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 />
; ****************<br />
; * SEC-READ *<br />
; ****************<br />
READ A SECTOR<br />
SECRD<br />
DB<br />
DW<br />
DW<br />
CAL<br />
MOV<br />
MOV<br />
JMP<br />
; * SEC-WRITE *<br />
. *****************<br />
I<br />
; WRITE A SECTOR<br />
SECWT<br />
DB<br />
DW<br />
DW<br />
CALL<br />
MOV<br />
MOV<br />
JMP<br />
88H<br />
'SEC-REA '<br />
PAGE 87<br />
'D '+80H<br />
TSCALC-10<br />
$+2<br />
GS EC ; GET (READ) SECTOR<br />
AH, 0<br />
DSKERR+2,AX ; SAVE ERROR STATUS<br />
NEXT<br />
89H<br />
'SEC-WRIT'<br />
'E '+80H<br />
SECRD-11<br />
$+2<br />
PS EC ; PUT (WRITE) SECTOR<br />
AH, 0<br />
DSKERR+2,AX ; SAVE ERROR STATUS<br />
NEXT