00001 *************************
00002 *
00003 * LARW.ASM
00004 * MDJ 01-23-91
00005 *
00006 * MOVES THE DISPLAY
00007 * BACK ONE PAGE
00008 *
00009 *************************
00010 *
00011 MAXPP   EQU     $3104
00012 PTV     EQU     $59F6
00013 PNV     EQU     $598B
00014 PMOVET  EQU     $55F8
00015 PPN     EQU     $57B6
00016 PPTT    EQU     $57EE
00017 GPAGE   EQU     $58E3
00018         ORG     $5A3D
00019 LARW    PSHS    A,X
00020         LDX     PNV     LOAD CURRENT PAGE NUMBER
00021         CMPX    #1      IS IT PAGE NUMBER ONE?
00022         BEQ     LA1     GO IF YES
00023         LEAX    -1,X    DECREMENT PAGE NUMBER
00024         PSHU    X
00025         JSR     GPAGE   GO GET NEW PAGE
00026         LDX     PNV     GET NEW PAGE NUMBER
00027         PSHU    X
00028         JSR     PPN     GO TYPE PAGE NUMBER TO SCREEN
00029         CLRA            RESET THIRD CODE
00030         STA     PTV
00031         JSR     PMOVET  TOP THIRD
00032         JSR     PPTT
00033 LA1     PULS    A,X
00034 ZEND    RTS
00035         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
