mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
36 lines
760 B
NASM
36 lines
760 B
NASM
;///////////////////////////////////////////////////
|
||
;
|
||
; SET. “áâ ®¢¨âì ¯¥à¥¬¥ãî ®ªà㦥¨ï
|
||
;
|
||
;///////////////////////////////////////////////////
|
||
cmd_set:ld a,(de) ; ª®¬-áâப
|
||
or a
|
||
jr z,A85EE ; ¯ãáâ ï
|
||
; ãáâ. ¯¥à¥¬¥ãî ®ªà㦥¨ï
|
||
inc de
|
||
cp 9
|
||
jr z,cmd_set
|
||
cp " "+1
|
||
jr c,cmd_set
|
||
dec de
|
||
ex de,hl
|
||
ld bc,Dss.Environ.Set*256 + Dss.Environ
|
||
RST ToDSS
|
||
call c,print_err_message ; ¢ë¢®¤ á®®¡é¥¨ï
|
||
ret
|
||
|
||
; <20>®ª § âì á¨á⥬®¥ ®ªà㦥¨¥
|
||
A85EE: ;ld hl,T9186 ; ªã¤
|
||
ld hl,work_buffer1;
|
||
ld bc,Dss.Environ.Read*256 + Dss.Environ ; ¯®«ãç¨âì á¨áâ. ®ªà㦥¨¥
|
||
RST ToDSS
|
||
;ld hl,T9186
|
||
ld hl,work_buffer1;
|
||
A85F8: ld c,Dss.PChars
|
||
RST ToDSS
|
||
call newline
|
||
ld a,(hl)
|
||
or a ; ª®¥æ á¨áâ. ®ªà㦥¨ï ?
|
||
jr nz,A85F8 ; ¥â
|
||
ret
|