00001 *************************
00002 *
00003 * PRANGE.ASM
00004 * MDJ 01-26-91
00005 *
00006 * PRINTS A RANGE OF PAGES
00007 *
00008 *************************
00009 *
00010 TVAR    EQU     $C7
00011 PNV     EQU     $598B
00012 PRPN    EQU     $5F89
00013 PHEAD   EQU     $5FDA
00014 PPAGE   EQU     $604C
00015 RDY     EQU     $608A
00016 GPAGE   EQU     $58E3
00017         ORG     $60E4
00018 PRANGE  PSHS    X
00019         LDX     PNV     SAVE CURRENT PAGE NUMBER
00020         STX     PNVH
00021         LDX     PNVS    GET STARTING PAGE NUMBER
00022 PRN1    CMPX    PNVE    DONE?
00023         BHI     PRN2    GO IF YES
00024         STX     TVAR
00025         PSHU    X
00026         JSR     GPAGE   GO GET PAGE
00027         LDX     TVAR
00028         STX     PNV
00029         JSR     RDY     GO CHECK IF PRINTER IS READY
00030         JSR     PRPN    GO TYPE "PRINTING" MESSAGE
00031         JSR     PHEAD   GO PRINT PAGE HEADER
00032         JSR     PPAGE   GO PRINT PAGE BODY
00033         LEAX    1,X     INCREMENT PAGE COUNT
00034         BRA     PRN1    RETURN FOR NEXT PAGE
00035 PRN2    LDX     PNVH    RESTORE CURRENT PAGE NUMBER
00036         STX     TVAR
00037         PSHU    X
00038         JSR     GPAGE   GO RE-GET CURRENT PAGE
00039         LDX     TVAR
00040         STX     PNV
00041         PULS    X
00042         RTS
00043 PNVH    RMB     2       PAGE NUMBER HOLDING VARIABLE
00044 PNVS    RMB     2       STARTING PAGE NUMBER VARIABLE
00045 PNVE    RMB     2       ENDING PAGE NUMBER VARIABLE
00046 ZEND    NOP
00047         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
