00001 *************************
00002 *
00003 * PRPN.ASM
00004 * MDJ 01-26-91
00005 *
00006 * "PRINTING PAGE NUMBER"
00007 * MESSAGE
00008 *
00009 *************************
00010 *
00011 TYPF    EQU     $4F02
00012 XCURS   EQU     $F3
00013 YCURS   EQU     $F5
00014 XCURSH  EQU     $56CE
00015 YCURSH  EQU     $56D0
00016 CPRMT1  EQU     $571D
00017 PNV     EQU     $598B
00018 DOTF    EQU     $4F46
00019         ORG     $5F89
00020 PRPN    PSHS    X
00021         JSR     CPRMT1  GO CLEAR PROMPT
00022         LDX     XCURS   SAVE X-LOCATION
00023         STX     XCURSH
00024         LDX     YCURS   SAVE Y-LOCATION
00025         STX     XCURSH
00026         CLR     XCURS   SET X-LOCATION
00027         CLR     XCURS+1
00028         LDX     #176    SET Y-LOCATION
00029         STX     YCURS
00030         LDX     #PRMSG  MESSAGE ADDRESS
00031         PSHU    X
00032         LDX     PRMSGN  CHARACTER COUNT
00033         PSHU    X
00034         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00035         LDX     PNV     GET PAGE NUMBER
00036         PSHU    X
00037         JSR     DOTF    TYPE PAGE NUMBER TO SCREEN
00038         LDX     XCURSH  RESTORE X-LOCATION
00039         STX     XCURS
00040         LDX     YCURSH  RESTORE Y-LOCATION
00041         STX     YCURS
00042         PULS    X
00043         RTS
00044 PRMSGN  FDB     21
00045 PRMSG   FCC     'Printing Page Number'
00046 ZEND    FCB     32
00047         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
