00001 *************************
00002 *
00003 * PLXLAT.ASM
00004 * (p1 -- u1 u2 u3 )
00005 * MDJ 01-18-91
00006 *
00007 * TRANSLATES THE PAGE
00008 * LOCATION NUMBER pl
00009 * (1-52) INTO THE DRIVE
00010 * NUMBER u1, TRACK
00011 * NUMBER u2, AND SECTOR
00012 * NUMBER u3.
00013 *
00014 *************************
00015 *
00016 ONEMN   EQU     $49E6
00017 MULT    EQU     $48CB
00018 DIVM    EQU     $4905
00019 SWAP    EQU     $4841
00020 ONEPL   EQU     $49CE
00021         ORG     $5657
00022 PLXLAT  PSHS    A,B,X
00023         LDD     #0      DRIVE NUMBER
00024         JSR     ONEMN   PAGE LOCATION NUMBER MINUS 1
00025         LDX     #12     12 SECTORS PER PAGE
00026         PSHU    X
00027         JSR     MULT    GO MULTIPLY = RAW SECTOR NUMBER
00028         PULU    X
00029         PSHU    A,B     DRIVE NUMBER TO U-STACK
00030         PSHU    X       RAW SECTOR NUMBER
00031         LDX     #18     18 SECTORS PER TRACK
00032         PSHU    X
00033         JSR     DIVM    GO DIVIDE
00034         JSR     SWAP    REMAINDER TO TOP OF U-STACK
00035         JSR     ONEPL   REMANIDER PLUS 1 = SECTOR #
00036         PULS    A,B,X
00037 ZEND    RTS
00038         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
