00001 *************************
00002 *
00003 * PMOVE.ASM
00004 * MDJ 01-17-91
00005 *
00006 * PMOVET MOVES THE TOP
00007 * THIRD OF THE PAGE TO
00008 * THE SCREEN
00009 *
00010 * PMOVEM MOVES THE MIDDLE
00011 * THIRD OF THE PAGE TO
00012 * THE SCREEN
00013 *
00014 * PMOVEB MOVES THE BOTTOM
00015 * THIRD OF THE PAGE TO
00016 * THE SCREEN
00017 *
00018 *************************
00019 *
00020 BAKCOL  EQU     $B3
00021 XCURS   EQU     $F3
00022 YCURS   EQU     $F5
00023 TYPF    EQU     $4F02
00024         ORG     $55F8
00025 PMOVET  PSHS    A,B,X,Y
00026         LDY     #$2200  TOP THIRD ADDRESS
00027         BSR     PMOVE
00028         PULS    A,B,X,Y
00029         RTS
00030 PMOVEM  PSHS    A,B,X,Y
00031         LDY     #$2600  MIDDLE THIRD ADDRESS
00032         BSR     PMOVE
00033         PULS    A,B,X,Y
00034         RTS
00035 PMOVEB  PSHS    A,B,X,Y
00036         LDY     #$2A00  BOTTOM THIRD ADDRESS
00037         BSR     PMOVE
00038         PULS    A,B,X,Y
00039         RTS
00040 PMOVE   LDX     #$0A00  SCREEN ADDRESS
00041         LDB     BAKCOL  CLEAR SCREEN TEXT AREA
00042         LDA     #$55
00043         MUL
00044 PMVA    STB     ,X+
00045         CMPX    #$1A00  END OF SCREEN TEXT AREA?
00046         BNE     PMVA    GO IF NO
00047         CLR     XCURS   SET CURSOR TO TOP OF SCREEN
00048         CLR     XCURS+1
00049         CLR     YCURS
00050         CLR     YCURS+1
00051         PSHU    Y       TEXT ADDRESS TO U-STACK
00052         LDX     #1024   NUMBER OF CHARACTERS TO U-STACK
00053         PSHU    X
00054         JSR     TYPF    GO TYPE TO SCREEN
00055 ZEND    RTS
00056         END
 
 
 
 
 
 
 
 
 
 
