From 646d25e0b6b9341ca9d6c6ade133edce3f38b362 Mon Sep 17 00:00:00 2001
From: Anatoliy Belyanskiy <tolik.trek@gmail.com>
Date: Sun, 5 May 2024 23:03:09 +1000
Subject: [PATCH] ...

---
 constants/dss_equ.inc | 53 +++++++++++++++++++++----------------------
 1 file changed, 26 insertions(+), 27 deletions(-)

diff --git a/constants/dss_equ.inc b/constants/dss_equ.inc
index 650a5db..28a2ba4 100644
--- a/constants/dss_equ.inc
+++ b/constants/dss_equ.inc
@@ -51,29 +51,29 @@ Dss:
 .BootDSK.Set		EQU	#01*256 + .BootDSK
 ;
 ;       File i/o
-.Create         EQU     #0A
-.Creat_N        EQU     #0B
-;               EQU     #0C
-.ERASE          EQU     #0D
-.Delete         EQU     #0E
-.Move           EQU     #0F	;!TODO
-.Rename         EQU     #10
-.Open           EQU     #11
-.Open.RW                EQU     0
-.Open.R                 EQU     1
-.Open.W                 EQU     2
-.Close          EQU     #12
-.Read           EQU     #13
-.Write          EQU     #14
-.Move_FP        EQU     #15
-.Move_FP.FrStart        EQU     #00*256 + .Move_FP
-.Move_FP.FrCurrent      EQU     #01*256 + .Move_FP
-.Move_FP.FrEnd          EQU     #02*256 + .Move_FP
 
-.Attrib         EQU     #16
-.Get_D_T        EQU     #17
-.Put_D_T        EQU     #18
-.F_First        EQU     #19
+.Create		EQU	#0A
+.Creat_N	EQU	#0B
+;       	EQU	#0C
+;.ERASE		EQU	#0D
+.Delete		EQU	#0E
+;.Move		EQU	#0F	;!TODO
+.Rename		EQU	#10
+.Open		EQU	#11
+.Open.RW		EQU 0
+.Open.R			EQU 1
+.Open.W			EQU 2
+.Close		EQU	#12
+.Read		EQU	#13
+.Write		EQU	#14
+.Move_FP	EQU	#15
+.Move_FP.FrStart	EQU #00*256 + .Move_FP
+.Move_FP.FrCurrent	EQU #01*256 + .Move_FP
+.Move_FP.FrEnd		EQU #02*256 + .Move_FP
+.Attrib         EQU	#16
+.Get_D_T        EQU	#17
+.Put_D_T        EQU	#18
+.F_First        EQU	#19
 .F_First.FATname	EQU	0*256 + .F_First
 .F_First.DOSname	EQU	1*256 + .F_First
 	; from FAT
@@ -140,7 +140,7 @@ Dss:
 .Exec           EQU     #40
 .Exec.Here		EQU	1*256 + .Exec
 .Exit           EQU     #41
-.Wait           EQU     #42
+.Get_Err	EQU     #42	; .Wait
 
 .GSwitch        EQU     #43
 .DosName        EQU     #44
@@ -197,11 +197,10 @@ Dss:
 .PChars         EQU	#5C
 .Lib_Sub	EQU	#5D		;[ ] 11/02/2024	- Функция с пополняемыми подфункциями)))
 .Lib_Sub.RestoreFont	EQU	#01*256 + .Lib_Sub
-;
 ;       Printer
-.RES_PRN        EQU     #5D
-.CTRLPRN        EQU     #5E
-.Print          EQU     #5F
+;.RES_PRN	EQU	#5D
+;.CTRLPRN	EQU	#5E
+.Print          EQU	#5F
 ;----------------------------------------------------------------------;
 
 ;----------------------------------------------------------------------;