This commit is contained in:
Tolik 2024-07-12 02:22:56 +10:00
parent 698a864b04
commit 6d36e21c3c
2 changed files with 14 additions and 14 deletions

@ -1 +1 @@
Subproject commit 04aaef8ac955971d913babd95921a62937b597ae
Subproject commit 4f546cb1d2cd8eeb1aec0de2c3e9902d1bb52fee

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 ; <20><E2809A><E280A6>Ž… ˆŒŸ
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: ; <20><E2809A><E280A6>Ž… ˆŒŸ
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 ; ­¥â ᮢ¯ ¤¥­¨ï