Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
AS'486 'JER 1.0 SOURCE: FORTII.A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0 PAGE 86<br />
EJECT<br />
I<br />
; (CALCULATES DRIVE#, TRACK*, & SECTORB )<br />
; STACK: SECTOR-DISPLACEMENT = BLKP * SEC/BLK<br />
; OUTPUT: VARIABLES DRIVE, TRACK, & SEC<br />
I<br />
DB<br />
DB<br />
DB<br />
DW<br />
TSCALC DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
D'rS<br />
DX<br />
DW<br />
DW<br />
DW<br />
DW<br />
DK<br />
TSCALl DW<br />
Dd<br />
TSCAL2 DW<br />
DW<br />
DW<br />
Dd<br />
DW<br />
SINGLE DENSITY<br />
87H<br />
'T&SCAL '<br />
'C '+80H<br />
SETDRV-12<br />
DOCOL, DEXSTY<br />
AT<br />
ZBRAN<br />
OFFSET TSCALS-$<br />
LIT, SPDR'J2<br />
SLY00<br />
LIT,MX2RVtYIN<br />
DL'?, DRIVE<br />
AT, EQL'AL<br />
ZBMN<br />
OFFSET TSCAL1-$<br />
DROP<br />
SRAN<br />
OFFSET TSCAL2-$<br />
DXIVE,STOi7E<br />
SETCRV<br />
LIT,S?T2<br />
SLMOD, TXACK<br />
~rn- LJRE OKZP<br />
SEZ, STSRE<br />
SEMIS<br />
LIT,SPDRVl<br />
SLMGD<br />
LIT,!dXDRV,XIN<br />
DUP, DRIVE<br />
AT, EQUAL<br />
Z BRAN<br />
OFFSET TSCAL3-$<br />
DROP<br />
B i?AN<br />
OFFSET TSCAL4-S<br />
DRIV5,STORE<br />
SETGRV<br />
LIT, STT1<br />
SLMOD, TRACK<br />
STORE, ONEP<br />
SEC, STORE<br />
SEMIS