You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ASM86 VER 1.0 SOURCE: FORTH.A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
EJECT<br />
; ******************<br />
; * SET SECTOR *<br />
. ******************<br />
I<br />
SSEC: MOV<br />
JMP<br />
. ......................<br />
; * SET DMA OFFSET *<br />
. ......................<br />
AL,11 ; BIOS FUNC. I<br />
DCBIOS<br />
I<br />
; ENTER DMA OFFSET IN REG CX<br />
I<br />
SDMAO: MOV AL,12 ; BIOS FUNC. #<br />
JMP DCBIOS<br />
. .......................<br />
; * SET DMA SEGMENT *<br />
. .......................<br />
I<br />
; ENTER DMA SEGMENT IN REG CX<br />
I<br />
SDMAS: MOV AL,17 ; BIOS FUNC. C<br />
JMP DCBIOS<br />
; .........................<br />
; * GET (READ) SECTOR *<br />
. .........................<br />
I<br />
; EXITS WITH STATUS IN REG AL<br />
I<br />
GSEC: MOV AL,13 ; BIOS FUNC. #<br />
JMP DCBIOS<br />
; ..........................<br />
; * PUT (WRITE) SECTOR *<br />
; ..........................<br />
;<br />
; EXITS WITH STATUS IN REG AL<br />
I<br />
PSEC: MOV AL,14 ; BIOS FUNC. #<br />
JMP DCBIOS<br />
........................................<br />
I I<br />
I END OF CP/M-86 1/0 INTFRFACE 8<br />
PAGE 97