00001 *************************
00002 *
00003 * PPN.ASM
00004 * MDJ 01-22-91
00005 *
00006 * CLEARS THE PAGE NUMBER
00007 * FIELD AND TYPES THE
00008 * PAGE NUMBER ON TOP OF
00009 * THE U-STACK
00010 *
00011 *************************
00012 *
00013 XCURS   EQU     $F3
00014 YCURS   EQU     $F5
00015 SPCES   EQU     $4EC8
00016 DOTF    EQU     $4F46
00017 XCURSH  EQU     $56CE
00018 YCURSH  EQU     $56D0
00019         ORG     $57B6
00020 PPN     PSHS    X
00021         LDX     XCURS   SAVE X-LOCATION
00022         STX     XCURSH
00023         LDX     YCURS   SAVE Y-LOCATION
00024         STX     YCURSH
00025         LDX     #20     SET X-LOCATION
00026         STX     XCURS
00027         LDX     #136    SET Y-LOCATION
00028         STX     YCURS
00029         LDX     #4      # OF SPACES
00030         PSHU    X
00031         JSR     SPCES   GO CLEAR FIELD
00032         LDX     #20     RESET X-LOCATION
00033         STX     XCURS
00034         LDX     #136    RESET Y-LOCATION
00035         STX     YCURS
00036         JSR     DOTF    GO TYPE PAGE NUMBER
00037         LDX     XCURSH  RESTORE X-LOCATION
00038         STX     XCURS
00039         LDX     YCURSH  RESTORE Y-LOCATION
00040         STX     YCURS
00041         PULS    X
00042 ZEND    RTS
00043         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
