izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pcat: add blk write support

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-22 06:44:52 -04:00
parent 4939189233
commit f76d30b6fe
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
recipes/pcat/xcomp.fs
View File

@ -27,10 +27,9 @@ CODE 13H ( ax bx cx dx -- ax bx cx dx )
;CODE
: FDSPT 0x70 RAM+ ;
: FDHEADS 0x71 RAM+ ;
: _ ( dest secno )
: _ ( AX BX sec )
( AH=read sectors, AL=1 sector, BX=dest,
CH=trackno CL=secno DH=head DL=drive )
0x0201 ROT ROT ( AX BX sec )
FDSPT C@ /MOD ( AX BX sec trk )
FDHEADS C@ /MOD ( AX BX sec head trk )
8 LSHIFT ROT OR 1+ ( AX BX head CX )
@ -39,8 +38,12 @@ CODE 13H ( ax bx cx dx -- ax bx cx dx )
;
: FD@
2 * 16 + ( blkfs starts at sector 16 )
BLK( OVER _ BLK( 0x200 + SWAP 1+ _ ;
: FD! DROP ;
0x0201 BLK( 2 PICK _
0x0201 BLK( 0x200 + ROT 1+ _ ;
: FD!
2 * 16 + ( blkfs starts at sector 16 )
0x0301 BLK( 2 PICK _
0x0301 BLK( 0x200 + ROT 1+ _ ;
: FD$
( get number of sectors per track with command 08H. )
0x03 ( boot drive ) C@ 13H08H