mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 06:38:06 +11:00
10 lines
310 B
Plaintext
10 lines
310 B
Plaintext
|
: _ ( AX BX sec )
|
||
|
( AH=read sectors, AL=1 sector, BX=dest,
|
||
|
CH=trackno CL=secno DH=head DL=drive )
|
||
|
FDSPT C@ /MOD ( AX BX sec trk )
|
||
|
FDHEADS C@ /MOD ( AX BX sec head trk )
|
||
|
8 LSHIFT ROT OR 1+ ( AX BX head CX )
|
||
|
SWAP 8 LSHIFT 0x03 C@ ( boot drive ) OR ( AX BX CX DX )
|
||
|
13H 2DROP 2DROP
|
||
|
;
|