Tolik-Trek/Copy
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Copy.git synced 2026-06-15 09:21:38 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

отключил режим дебага

Browse Source
This commit is contained in:
Tolik 2025-06-17 05:19:29 +10:00
parent a0ee27b2bb
commit 5e5ab8d1b6
2 changed files with 42 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
Copy.asm
View File

@ -281,8 +281,8 @@ EXITCODE+1: LD B,0
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; ;
RD_ERROR: CALL PRINT_ERROR RD_ERROR: ;CALL PRINT_ERROR
; LD (EXITCODE),A
LD HL,READ_ERR_STR LD HL,READ_ERR_STR
; LD C,Dss.PChars ; LD C,Dss.PChars
; RST ToDSS ; RST ToDSS
@ -290,8 +290,8 @@ RD_ERROR: CALL PRINT_ERROR
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; ;
WR_ERROR: CALL PRINT_ERROR WR_ERROR: ;CALL PRINT_ERROR
; LD (EXITCODE),A
LD HL,WRITE_ERR_STR LD HL,WRITE_ERR_STR
; LD C,Dss.PChars ; LD C,Dss.PChars
; RST ToDSS ; RST ToDSS
@ -305,39 +305,39 @@ WR_ERROR: CALL PRINT_ERROR
; ;;;;;;;;;;;;;;;;;;;;;;;;; ; ;;;;;;;;;;;;;;;;;;;;;;;;;
; ; ; ;
; ; ; ;
PRINT_ERROR: LD H,0 ; PRINT_ERROR: LD H,0
LD L,A ; LD L,A
LD (EXITCODE),A ; LD (EXITCODE),A
LD DE,READ_ERR_STR.errNum ; LD DE,READ_ERR_STR.errNum
;CALL hex2dec_ascii_16bit ; ;CALL hex2dec_ascii_16bit
; ¢å®¤: hl=ç¨á«®, de=¡ãä¥à ; ; ¢å®¤: hl=ç¨á«®, de=¡ãä¥à
hex2dec_ascii_16bit: ; hex2dec_ascii_16bit:
.n100: LD IX,MemBuffer.tmp1 ; .n100: LD IX,MemBuffer.tmp1
RES 7,(ix+0) ; RES 7,(ix+0)
.skip2: LD BC,100 ; .skip2: LD BC,100
CALL .num16 ; CALL .num16
; ; ;
.decim: LD BC,10 ; .decim: LD BC,10
CALL .num16 ; CALL .num16
LD A,L ; LD A,L
ADD A,"0" ; ADD A,"0"
JR .num16_exit ; JR .num16_exit
; ; ;
.num16: LD A,'0'-1 ; .num16: LD A,'0'-1
AND A ; AND A
INC A ; INC A
SBC HL,BC ; SBC HL,BC
JR NC,$-3 ;!FIXIT $ ; JR NC,$-3 ;!FIXIT $
ADD HL,BC ; ADD HL,BC
CP "0" ; CP "0"
JR Z,$+6 ;!FIXIT $ ; JR Z,$+6 ;!FIXIT $
SET 7,(ix+0) ; SET 7,(ix+0)
BIT 7,(ix+0) ; BIT 7,(ix+0)
RET Z ; RET Z
.num16_exit: ; .num16_exit:
LD (DE),A ; á®åà. ¢ ¡ãä¥à¥ ; LD (DE),A ; á®åà. ¢ ¡ãä¥à¥
INC DE ; INC DE
RET ; RET
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; ;
@ -345,10 +345,10 @@ DONE_STR: DB "File copied",#0D,#0A,#00
NO_MEM_STR: DB "No free memory",#0D,#0A,#00 NO_MEM_STR: DB "No free memory",#0D,#0A,#00
SOPEN_ERR_STR: DB "Can't open source file",#0D,#0A,#00 SOPEN_ERR_STR: DB "Can't open source file",#0D,#0A,#00
DOPEN_ERR_STR: DB "Can't open destination file",#0D,#0A,#00 DOPEN_ERR_STR: DB "Can't open destination file",#0D,#0A,#00
READ_ERR_STR: DB "Reading error " READ_ERR_STR: DB "Reading error",#0D,#0A,#00
.errNum: DB "00",#0D,#0A,#00 ;.errNum: DB "00 ",#0D,#0A,#00
WRITE_ERR_STR: DB "Writing error " WRITE_ERR_STR: DB "Writing error",#0D,#0A,#00
.errNum: DB "00 ",#0D,#0A,#00 ;.errNum: DB "00 ",#0D,#0A,#00
; ;

2
Shared_Includes

@ -1 +1 @@
Subproject commit be5eed466fa1c0e442b828a42ffc1b9abda23ac9 Subproject commit a0e68ce3a19bd47537585e49bfbf5e45fab197a1