00001 *************************
00002 *
00003 * CTGL.ASM
00004 * MDJ 01-28-91
00005 *
00006 * CARRIAGE RETURN CODE
00007 * TOGGLE
00008 *
00009 *************************
00010 *
00011 XCURS   EQU     $F3
00012 YCURS   EQU     $F5
00013 TYPE    EQU     $4EF1
00014         ORG     $5C9A
00015 CTGL    PSHS    A,X
00016         INC     CCODE   INCREMENT CARRIAGE RETURN CODE
00017         LDA     CCODE
00018         CMPA    #2      OUT OF RANGE?
00019         BLO     CTGLT   GO IF NO
00020         CLR     CCODE   RESET CARRIAGE RETURN CODE
00021 CTGLT   LDX     #148    SET X-LOCATION
00022         STX     XCURS
00023         LDX     #144    SET Y-LOCATION
00024         STX     YCURS
00025         LDA     CCODE
00026         CMPA    #0      CARRIAGE RETURN ONLY?
00027         BEQ     CTGLA   GO IF YES
00028         LDX     #CMSG1  PCCRLF MESSAGE ADDRESS
00029         PSHU    X
00030         LDX     CMSGN1  CHARACTER COUNT
00031         BRA     CTGLB
00032 CTGLA   LDX     #CMSG2  PCR MESSAGE ADDRESS
00033         PSHU    X
00034         LDX     CMSGN2  CHARACTER COUNT
00035 CTGLB   PSHU    X
00036         JSR     TYPE    GO TYPE MESSAGE TO SCREEN
00037         PULS    A,X
00038         RTS
00039 CMSGN1  FDB     26
00040 CMSG1   FCC     'Carriage Return + Linefeed'
00041 CMSGN2  FDB     26
00042 CMSG2   FCC     'Carriage Return Only      '
00043 CCODE   RMB     1       CARRIAGE RETURN CODE VARIABLE
00044         NOP
00045 ZEND    NOP
00046         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
