This commit is contained in:
Tolik authored and Anatoliy Belyanskiy committed 2024-07-21 01:35:29 +10:00
1 parent 09d50ef6e6
commit 03cdbeca7d
2 files changed
+14 -14

No files matched your search

+13 -13
View File
@@ -415,9 +415,9 @@ KOMP_CONT2:
MSDOS_KOMP_ALL:
LD A,(DE)
INC DE
CP 20H
CP " "
JR Z,MSDOS_KOMP_ALL
CP 13
CP "\r"
JR Z,KOMP_ERROR_NAME ; �…‚…��Ž… ˆŒŸ
DEC DE
@@ -426,11 +426,11 @@ MSDOS_KOMP_ALL:
RET NZ
LD A,(DE)
CP '.'
CP "."
JR Z,KOMP_POINT
CP 13
CP "\r"
JR Z,KOMP_SPACING3
CP 20H
CP " "
JR Z,KOMP_SPACING3
KOMP_ERROR_NAME: ; �…‚…��Ž… ˆŒŸ
LD A,1
@@ -453,21 +453,21 @@ KOMP_POINT:
;****************************************************
KOMP_TX:
LD A,(DE)
CP 13
CP "\r"
JR Z,KOMP_SPACING
CP 20H
CP " "
JR Z,KOMP_SPACING
CP '.'
CP "."
JR Z,KOMP_SPACING
CP '?'
CP "?"
JR Z,KOMP_EX_OK
CP '*'
CP "*"
JR Z,KOMP_EX_OK2
CP 'a'
CP "a"
JR C,KOMP_EXEC
CP 'z'+1
CP "z"+1
JR NC,KOMP_EXEC
AND 223
AND %1101'1111
KOMP_EXEC:
CP (HL)
RET NZ ; ­¥â ᮢ¯ ¤¥­¨ï