00001 *************************
00002 *
00003 * LTGL.ASM
00004 * MDJ 01-25-91
00005 *
00006 * LEFT MARGIN TOGGLE
00007 *
00008 *************************
00009 *
00010 XCURS   EQU     $F3
00011 YCURS   EQU     $F5
00012 DOTF    EQU     $4F46
00013 SPACE   EQU     $4EBD
00014         ORG     $5BC2
00015 LTGL    PSHS    A,B
00016         INC     LCODE   INCREMENT LEFT MARGIN CODE
00017         LDA     LCODE
00018         CMPA    #12     OUT OF RANGE?
00019         BLO     LTGLT   GO IF NO
00020         CLR     LCODE   RESET LEFT MARGIN CODE
00021 LTGLT   LDD     #72     SET Y-LOCATION
00022         STD     YCURS
00023         LDD     #128    SET X-LOCATION
00024         STD     XCURS
00025         JSR     SPACE   CLEAR FIELD
00026         JSR     SPACE
00027         STD     XCURS   RESET X-LOCATION
00028         CLRA
00029         LDB     LCODE
00030         PSHU    A,B
00031         JSR     DOTF    TYPE LEFT MARGIN TO SCREEN
00032         PULS    A,B
00033         RTS
00034 LCODE   RMB     1
00035 ZEND    NOP
00036         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
