мелочи

This commit is contained in:
Tolik Trek 2026-08-17 08:00:50 +10:00
parent 03cfe1eda4
commit 0ff9e58ffc
3 changed files with 8 additions and 13 deletions

View File

@ -9,7 +9,7 @@ Help_Msg: DB 13,10
DB 'x - ­¥ ¯à®¢¥àïâì ä ©« ª®­äë ­  ¢ «¨¤­®áâì § £®«®¢ª  ¨ à §¬¥à',13,10 DB 'x - ­¥ ¯à®¢¥àïâì ä ©« ª®­äë ­  ¢ «¨¤­®áâì § £®«®¢ª  ¨ à §¬¥à',13,10
;DB 'l - áâà è­ë© ª«îç, § «¨â ï ª®­ä  ®áâ ­¥âáï ¤® ¯¥à¥§ «¨¢ª¨ ¨«¨ ¢ëª«î祭¨ï <20>Š',13,10 ;DB 'l - áâà è­ë© ª«îç, § «¨â ï ª®­ä  ®áâ ­¥âáï ¤® ¯¥à¥§ «¨¢ª¨ ¨«¨ ¢ëª«î祭¨ï <20>Š',13,10
DB 13,10 DB 13,10
DB '…б«Ё гЄ § ­® в®«мЄ® Ё¬п Є®­дл, в®: § Јаг§Є  Є®­дл -> аҐбҐв ->',13,10 DB '…б«Ё гЄ § ­® в®«мЄ® Ё¬п Є®­дл (б Є«о箬 "c"), в®: § Јаг§Є  Є®­дл -> аҐбҐв ->',13,10
DB '¢®ááâ ­®¢«¥­¨¥ ¤¥ä®«â­®© ª®­äë -> à¥á¥â -> ¢ë室. <20>®ª  â ª.',13,10,13,10 DB '¢®ááâ ­®¢«¥­¨¥ ¤¥ä®«â­®© ª®­äë -> à¥á¥â -> ¢ë室. <20>®ª  â ª.',13,10,13,10
DB '<27>ணࠬ¬  ¡ë«  § ç¥¬-â® ­ ¯¨á ­  €­ â®«¨¥¬ <20>¥«ï­áª¨¬. ',13,10 DB '<27>ணࠬ¬  ¡ë«  § ç¥¬-â® ­ ¯¨á ­  €­ â®«¨¥¬ <20>¥«ï­áª¨¬. ',13,10
DB '<27>¥ ¯¨è¨â¥ ¬­¥ á: ',e_mail,' ))))',13,10,13,10 DB '<27>¥ ¯¨è¨â¥ ¬­¥ á: ',e_mail,' ))))',13,10,13,10

View File

@ -411,16 +411,11 @@ Set_keys:
;-----------------; ;-----------------;
;-----------------; ;-----------------;
.set_keys_l: .set_keys_l: INC C
INC C .set_keys_a: INC C
.set_keys_a: .set_keys_x: INC C
INC C .set_keys_e: INC C
.set_keys_x: .set_keys_c: ; EX DE,HL ; <20><E28099>Ÿœ “Š€‡€’…‹œ <20>€ ‘‹…„“ž™ˆ‰ <20><EFBFBD>€Œ…<E280A6>!
INC C
.set_keys_e:
INC C
.set_keys_c:
; EX DE,HL ; <20><E28099>Ÿœ “Š€‡€’…‹œ <20>€ ‘‹…„“ž™ˆ‰ <20><EFBFBD>€Œ…<E280A6>!
LD HL,key_buff ; ‚ëç¨á«ï¥¬ ï祩ªã åà ­¥­¨ï ª«îç  LD HL,key_buff ; ‚ëç¨á«ï¥¬ ï祩ªã åà ­¥­¨ï ª«îç 
ADD HL,BC ADD HL,BC
LD A,(HL) ; ¨ ¯à®¢¥à塞 ­¥â «¨ â ¬ 㦥 ª«îç . LD A,(HL) ; ¨ ¯à®¢¥à塞 ­¥â «¨ â ¬ 㦥 ª«îç .
@ -462,7 +457,7 @@ Set_keys:
LD DE,Buffer ; ¡ãä¥à ¤«ï ®¯¥à æ¨© á® áâப ¬¨ LD DE,Buffer ; ¡ãä¥à ¤«ï ®¯¥à æ¨© á® áâப ¬¨
RST #10 ; ¯®«ãç ¥¬ ¢ ¡ãä¥à¥ á«¥¤ãî騩 ¯ à ¬¥âà RST #10 ; ¯®«ãç ¥¬ ¢ ¡ãä¥à¥ á«¥¤ãî騩 ¯ à ¬¥âà
LD (NextParameter),HL LD (NextParameter),HL
CCF ;CCF
LD A,(Buffer) LD A,(Buffer)
AND A AND A
RET NZ ; <20>®à¬ «ì­ë© ¢®§¢à â C = 0 RET NZ ; <20>®à¬ «ì­ë© ¢®§¢à â C = 0

@ -1 +1 @@
Subproject commit d2ba40c4620459681fdc5eb8d4cadcb50eb79aa8 Subproject commit 591d3212c9341f17d6dd034bf2b8da91bd2f6107