Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASM86 VER 1.0 SOURCE: FORTH.A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
EJECT<br />
I<br />
; SETS: DMA OFFSET, DMA SEGMEhT<br />
i TRACK AND SECTOR.<br />
I<br />
DB 86H<br />
DB 'SET-I '<br />
DB '01+80H<br />
DW BLOCK-8<br />
DW $+2<br />
MOV CX, USE+2<br />
CALL SDMAO<br />
MOV CX,CS<br />
CALL SDMAS<br />
MOV CX,SEC+2<br />
CALL SSEC<br />
MOV CX,TRACK+2<br />
CALL STRK<br />
JMP NEXT<br />
; * SET-DRIVE *<br />
. *****************<br />
DB<br />
DW<br />
SETDRV DW<br />
MOV<br />
CALL<br />
JMP<br />
89H<br />
'SET-DRIV '<br />
'E1+80H<br />
SETIO-9<br />
$+2<br />
CX,DRIVE+2<br />
SDSK ; SELECT DISK<br />
NEXT<br />
; DMA OFFSET<br />
; SET IT<br />
; GET SEGMENT<br />
; SET IT<br />
; SECToR #<br />
; SET IT<br />
; TRACK #<br />
; SET IT<br />
PAGE 85