From da5defb8216a6c4a54d3a19a9f8c7017dc442f1a Mon Sep 17 00:00:00 2001 From: doug Date: Sun, 17 Feb 2013 10:57:20 +0000 Subject: [PATCH] basic version now compiles, no substantive changes yet --- branches/s100/Source/btromwbw.inc | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/branches/s100/Source/btromwbw.inc b/branches/s100/Source/btromwbw.inc index 9123c04b..46a7c56f 100644 --- a/branches/s100/Source/btromwbw.inc +++ b/branches/s100/Source/btromwbw.inc @@ -27,7 +27,7 @@ WaitInitX: LD E,REGstatus ;Get status after initilization CALL IDErd8D ;Check Status (info in [D]) BIT 7,D - JR Z,SECREAD ;Zero, so all is OK to write to drive + JR Z,SECREADX ;Zero, so all is OK to write to drive ;Delay to allow drive to get up to speed PUSH BC LD BC,0FFFFH @@ -46,8 +46,7 @@ IDErrorX: SECREADX: ;Note CPMLDR will ALWAYS be on TRK 0,SEC 1,Head 0 CALL IDEwaitnotbusy ;Make sure drive is ready - JR C,IDError ;NC if ready - + JR C,IDErrorX ;NC if ready LD D,1 ;Load track 0,sec 1, head 0 LD E,REGsector ;Send info to drive CALL IDEwr8D @@ -95,7 +94,7 @@ MoreRD16X: LD E,REGstatus ;Check the R/W status when done CALL IDErd8D BIT 0,D - JR NZ,IDEerr1 ;Z if no errors + JR NZ,IDEerr1X ;Z if no errors LD HL,STARTCPM LD A,(HL) CP 31H ;EXPECT TO HAVE 31H @80H IE. LD SP,80H