Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASY86 VER 1.0 SOURCE: FORT9.A86 Fig <strong>Forth</strong> 8066/83 Ver 1.0<br />
. *<br />
EJECT<br />
* * * * * * * * * * * * * * * * * * * * * * * r * * * * * * * * * * *<br />
. *<br />
. *<br />
I . .................................<br />
; * DIRECT BIOS CALL FUNCTION *<br />
I<br />
I<br />
; ALLOWS DIRECT CALLS (THROUGR 'BDOS' )<br />
; TO THE 'BIOS' PROGRAM.<br />
I<br />
; ENTER: REG AL = BIDS FUNCTION NO.<br />
; " CX = PARA?lETGR 1<br />
; " DX = PAilAXETGR 2<br />
I<br />
; NOTE: THE ABOVE PAMXETERS ARE OPTIONAL<br />
I DEPEKDING UPON THE FUNCTION CALLED.<br />
I<br />
GCBIGS: MOV BX,OFFSET 313SIA.X<br />
MOTJ [BX] ,AL ; FSSC #<br />
PAGE 96<br />
MOV 1 [EX] ,CX ; PA?A. 1<br />
MOV 3 [BX] ,DX ; PAXSI. 2<br />
MOV DX,BX ; P.4X.Y. POINTER<br />
YOV CL, 50 ; 313ECT CALL<br />
JMP BDOSFUNC ; ... GO-IT...<br />
; THE FOLLDWING IS A SCRATCH AZEA FOR<br />
; STORING THE FUNCTION # AND 2AilAXETERS<br />
; DURING A DIRECT 913s CALL.<br />
. *******************<br />
I<br />
; * SELECT DISK *<br />
. *******************<br />
I<br />
I<br />
; ENTER DISK NUMBER I N 3EG CL.<br />
I<br />
SDSK: MOV. AL19 ; BIOS FUNCTION NO.<br />
JMP DCBIOS<br />
; * SETTRACK *<br />
. *****************<br />
8<br />
; ENTER TRACK NUMBER IN 3EG CL.<br />
I<br />
STRK: MOV<br />
JMP<br />
AL,lB ; 319s FUNC #<br />
DCBIOS