00001 *************************
00002 *
00003 * CURSP.ASM
00004 * MDJ 09-25-90
00005 *
00006 * ADVANCES THE CURSOR ONE
00007 * SCREEN POSITION
00008 *
00009 *************************
00010 *
00011 * U AND S STACKS MUST
00012 * ALREADY BE INITIALIZED
00013 *
00014 * NO ENTRY CONDITIONS
00015 *
00016 * NOTHING RETURNED
00017 *
00018 *************************
00019 *
00020 XCURS   EQU     $F3     CURSOR X LOCATION
00021 YCURS   EQU     $F5     CURSOR Y LOCATION
00022 ADVCOD  EQU     $F7     ADVANCE CODE
00023         ORG     $3F6B
00024 CURSP   PSHS    A,B,X
00025         LDX     XCURS   CURSOR X LOCATION
00026         LDB     #4      X ADVANCE
00027         ABX
00028         STX     XCURS
00029         CMPX    #256    END OF LINE?
00030         BLO     CURSP1  GO IF NO
00031         LDX     #0
00032         STX     XCURS   RESET CURSOR X LOCATION
00033         LDX     YCURS   CURSOR Y LOCATION
00034         LDB     #8      Y ADVANCE
00035         ABX
00036         STX     YCURS
00037         CMPX    #192    END OF SCREEN?
00038         BLO     CURSP1  GO IF NO
00039         LDX     #252    SET CURSOR AT END OF SCREEN
00040         STX     XCURS
00041         LDX     #184
00042         STX     YCURS
00043         LDA     #1
00044         STA     ADVCOD  SET ADVANCE CODE
00045 CURSP1  PULS    A,B,X
00046 ZEND    RTS
00047         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
