00001 *************************
00002 *
00003 * TTGL.ASM
00004 * MDJ 01-25-91
00005 *
00006 * TOP MARGIN TOGGLE
00007 *
00008 *************************
00009 *
00010 XCURS   EQU     $F3
00011 YCURS   EQU     $F5
00012 DOT     EQU     $4F13
00013         ORG     $5BF1
00014 TTGL    PSHS    A,B
00015         INC     TCODE   INCREMENT TOP MARGIN CODE
00016         LDA     TCODE
00017         CMPA    #8      OUT OF RANGE?
00018         BLO     TTGLT   GO IF NO
00019         CLR     TCODE   RESET TOP MARGIN CODE
00020 TTGLT   LDD     #96     SET Y-LOCATION
00021         STD     YCURS
00022         LDD     #124    SET X-LOCATION
00023         STD     XCURS
00024         CLRA
00025         LDB     TCODE
00026         PSHU    A,B
00027         JSR     DOT     TYPE TOP MARGIN TO SCREEN
00028         PULS    A,B
00029         RTS
00030 TCODE   RMB     1
00031 ZEND    NOP
00032         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
