emul/8086/pcat: fix broken int13h logic

I had forgotten that heads index increment before track index.
This commit is contained in:
Virgil Dupras 2020-10-25 12:21:44 -04:00
parent ba21b6a9f5
commit 5a77b80d3d
2 changed files with 5 additions and 5 deletions

View File

@ -6,8 +6,8 @@
#define WCOLS 80
#define WLINES 25
#define SEC_PER_TRK 0x3f
#define TRK_PER_HEAD 0xff
#define SEC_PER_TRK 0x24
#define HEADCNT 2
extern uint8_t byteregtable[8];
extern union _bytewordregs_ regs;
@ -49,7 +49,7 @@ static void int13() {
// CL = sector number (1-based), AL = sector count
// DH = head number, CH = track number
// ES:BX = dest addr
fseek(fp, ((((dh*TRK_PER_HEAD)+ch)*SEC_PER_TRK)+cl-1)*512, SEEK_SET);
fseek(fp, (((ch*HEADCNT*SEC_PER_TRK)+(dh*SEC_PER_TRK))+cl-1)*512, SEEK_SET);
for (int i=0; i<(al*512); i++) {
if (cmd == 0x03) { // write
fputc(getmem8(segregs[reges], bx+i), fp);
@ -62,7 +62,7 @@ static void int13() {
case 0x08: // poll sectors per track / per head
// we just report a lot of them
regs.wordregs[regcx] = SEC_PER_TRK;
regs.byteregs[regdh] = TRK_PER_HEAD-1;
regs.byteregs[regdh] = HEADCNT-1;
break;
}
}

View File

@ -2,7 +2,7 @@
( 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 SWAP ( AX BX sec head 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