00001 *************************
00002 *
00003 * CRANGE.ASM
00004 * MDJ 01-26-91
00005 *
00006 * SETS PAGE RANGE =
00007 * CURRENT PAGE
00008 *
00009 *************************
00010 *
00011 PNV     EQU     $598B
00012 PNVS    EQU     $6124
00013 PNVE    EQU     $6126
00014 PRANGE  EQU     $60E4
00015         ORG     $6129
00016 CRANGE  PSHS    X
00017         LDX     PNV     GET CURRENT PAGE NUMBER
00018         STX     PNVS    STARTING PAGE
00019         STX     PNVE    ENDING PAGE
00020         JSR     PRANGE  GO PRINT RANGE
00021         PULS    X
00022 ZEND    RTS
00023         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
