From 5ae09d139a770b45e0f07fe3feb8fc5ba55d88ab Mon Sep 17 00:00:00 2001
From: Anatoliy Belyanskiy <tolik.trek@gmail.com>
Date: Fri, 25 Aug 2023 23:45:03 +1000
Subject: [PATCH] ...

---
 constants/SP2000.inc | 29 +++++++++++++++++++----------
 1 file changed, 19 insertions(+), 10 deletions(-)

diff --git a/constants/SP2000.inc b/constants/SP2000.inc
index 2112cf6..8266de0 100644
--- a/constants/SP2000.inc
+++ b/constants/SP2000.inc
@@ -1648,10 +1648,16 @@ Read:
 .CylinderHigh           EQU	#0055 ; cnf 25	; HDR_CLH           R175  ; #1F5 Cylinder High register
 .Control		EQU	#4052 ; cnf 26	; HDR_DRV           R176  ; #1F6 Device/Head register
 .Status                 EQU	#4053 ; cnf 27	; HDR_CTL  P_HDST   R177  ; #1F7 Status (Control) register
-.AltControl		EQU	#4054 ; cnf 28	;			  ; #3F6 Alternate Status register
+.AltStatus		EQU	#4054 ; cnf 28	;			  ; #3F6 Alternate Status register
 .DrvAddress		EQU	#4055 ; cnf 29	;			  ; #3F7
 
-ControlBit:				; 0000 0000			; Bits for HardDrive.Read.Status
+ErrorBit:
+.Abort			EQU	2
+
+ErrorByte:
+.Abort			EQU	#04
+
+ControlBit:				; 0000 0000			; Bits for IDE.Read.Status
 .Busy			EQU     7;ÄÄÄÄÄÄÄÄÙ³³³ ³³³³			; BSY
 .Ready			EQU     6;ÄÄÄÄÄÄÄÄÄÙ³³ ³³³³			; RDY
 .Fault			EQU     5;ÄÄÄÄÄÄÄÄÄÄÙ³ ³³³³
@@ -1663,15 +1669,15 @@ ControlBit:				; 0000 0000			; Bits for HardDrive.Read.Status
 .CheckCondition		EQU     .Error
 .StreamError		EQU     .Fault
 
-ControlByte:					; Bits for HardDrive.Read.Status
-.Busy                   EQU     #80		; BSY
-.Ready                  EQU     #40		; RDY
+ControlByte:								; Bytes for IDE.Read.Status
+.Busy                   EQU     #80					; BSY
+.Ready                  EQU     #40					; RDY
 .Fault                  EQU     #20
-.DeferredWriteError     EQU     #10
-.DataRequest            EQU     #08		; DRQ
-.AlignmentError         EQU     #04 ; obsolete
-.SenseDataAvailable     EQU     #02 ; obsolete
-.Error                  EQU     #01		; Indicates an error occurred. Send a new command to clear it (or nuke it with a Software Reset).
+.SeekComplete		EQU     #10
+.DataRequest            EQU     #08					; DRQ
+.CorrectedData		EQU     #04 ; obsolete
+.Index			EQU     #02 ; obsolete
+.Error                  EQU     #01					; Indicates an error occurred. Send a new command to clear it (or nuke it with a Software Reset).
 .CheckCondition         EQU     .Error
 .StreamErrror           EQU     .Fault
 /*
@@ -1701,6 +1707,9 @@ Drive:
 .Master			EQU	#A0
 .Slave			EQU	#B0
 
+ATAPI:
+.IdentifyPackedDevice		EQU #A1
+;
 ATA:
 ; ATA-2 commands ************************
 .ExecuteDeviceDiagnostic	EQU #90