00001 *************************
00002 *
00003 * PTGL.ASM
00004 * MDJ 01-25-91
00005 *
00006 * PAUSE CODE TOGGLE
00007 *
00008 *************************
00009 *
00010 XCURS   EQU     $F3
00011 YCURS   EQU     $F5
00012 TYPE    EQU     $4EF1
00013         ORG     $5B7A
00014 PTGL    PSHS    A,X
00015         INC     PCODE   INCREMENT PAUSE CODE
00016         LDA     PCODE
00017         CMPA    #2      OUT OF RANGE?
00018         BLO     PTGLT   GO IF NO
00019         CLR     PCODE   RESET PAUSE CODE
00020 PTGLT   LDX     #160    SET X-LOCATION
00021         STX     XCURS
00022         LDX     #48     SET Y-LOCATION
00023         STX     YCURS
00024         LDA     PCODE
00025         CMPA    #0      PAUSE = YES?
00026         BEQ     PTGLA   GO IF YES
00027         LDX     #PMSG1  "NO" MESSAGE ADDRESS
00028         PSHU    X
00029         LDX     PMSGN1  CHARACTER COUNT
00030         BRA     PTGLB
00031 PTGLA   LDX     #PMSG2  "YES" MESSAGE ADDRESS
00032         PSHU    X
00033         LDX     PMSGN2  CHARACTER COUNT
00034 PTGLB   PSHU    X
00035         JSR     TYPE    GO TYPE MESSAGE TO SCREEN
00036         PULS    A,X
00037         RTS
00038 PMSGN1  FDB     3
00039 PMSG1   FCC     'NO '
00040 PMSGN2  FDB     3
00041 PMSG2   FCC     'YES'
00042         NOP
00043         NOP
00044 PCODE   RMB     1
00045 ZEND    NOP
00046         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
