00001 *************************
00002 *
00003 * PLN.ASM
00004 * (+n1 -- +n2)
00005 * MDJ 02-23-91
00006 *
00007 * TRANSLATES PAGE NUMBER
00008 * +n1 ON THE TOP OF THE
00009 * U-STACK INTO THE PAGE
00010 * LOCATION NUMBER +n2 FOR
00011 * THE DISK BEING READ
00012 *
00013 *************************
00014 *
00015 ONEPL   EQU     $49CE
00016 MINUS   EQU     $48BC
00017 MINP    EQU     $3100
00018         ORG     $58D3
00019 PLN     PSHS    X
00020         JSR     ONEPL   PAGE NUMBER +1
00021         LDX     MINP    DISK MIN. PAGE NUMBER
00022         PSHU    X
00023         JSR     MINUS   GO SUBTRACT
00024         PULS    X
00025 ZEND    RTS
00026         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
