00001 *************************
00002 *
00003 * DRANGE.ASM
00004 * MDJ 01-26-91
00005 *
00006 * SETS PAGE RANGE =
00007 * ENTIRE DOCUMENT
00008 *
00009 *************************
00010 *
00011 MAXPP   EQU     $3104
00012 PNVS    EQU     $6124
00013 PNVE    EQU     $6126
00014 PRANGE  EQU     $60E4
00015         ORG     $613A
00016 DRANGE  PSHS    X
00017         LDX     #1      STARTING PAGE
00018         STX     PNVS
00019         LDX     MAXPP   ENDING PAGE
00020         STX     PNVE
00021         JSR     PRANGE  GO PRINT RANGE
00022         PULS    X
00023 ZEND    RTS
00024         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
