00001 *************************
00002 *
00003 * DNARW.ASM
00004 * MDJ 01-23-91
00005 *
00006 * MOVES THE DISPLAY DOWN
00007 * ONE THIRD PAGE
00008 *
00009 *************************
00010 *
00011 MAXPP   EQU     $3104
00012 PTV     EQU     $59F6
00013 PNV     EQU     $598B
00014 PNTV    EQU     $598D
00015 PMOVET  EQU     $55F8
00016 PMOVEM  EQU     $5603
00017 PMOVEB  EQU     $560E
00018 PPN     EQU     $57B6
00019 PPTT    EQU     $57EE
00020 PPTM    EQU     $5827
00021 PPTB    EQU     $5860
00022 GPAGE EQU       $58E3
00023         ORG     $59F9
00024 DNARW   PSHS    A,X
00025         LDA     PTV     GET CURRENT THIRD CODE
00026         CMPA    #2      IS IT BOTTOM THIRD?
00027         BEQ     DA2     GO IF YES
00028         INCA            INCREMENT THIRD CODE
00029         STA     PTV
00030         CMPA    #1      IS IT MIDDLE THIRD?
00031         BEQ     DA1     GO IF YES
00032         JSR     PMOVEB  BOTTOM THIRD
00033         JSR     PPTB
00034         BRA     DA3
00035 DA1     JSR     PMOVEM  MIDDLE THIRD
00036         JSR     PPTM
00037         BRA     DA3
00038 DA2     LDX     PNV     LOAD CURRENT PAGE NUMBER
00039         CMPX    MAXPP   IS IT MAXIMUM PAGE NUMBER?
00040         BEQ     DA3     GO IF YES
00041         CLR     PTV     RESET THIRD CODE
00042         LEAX    1,X     INCREMENT PAGE NUMBER
00043         PSHU    X
00044         JSR     GPAGE   GO GET NEW PAGE
00045         LDX     PNV     GET NEW PAGE NUMBER
00046         PSHU    X
00047         JSR     PPN     GO TYPE PAGE NUMBER TO SCREEN
00048         JSR     PMOVET  TOP THIRD
00049         JSR     PPTT
00050 DA3     PULS    A,X
00051 ZEND    RTS
00052         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
