mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
12c028744a
Убран баг в ATTRIB для GET на разделе FAT с кластером 64 кб. Исправлен улёт стека в ПЗУ в процедуре запуска EXE. Исправлен баг со скроллом в ECHOKEY.
34 lines
1.1 KiB
NASM
34 lines
1.1 KiB
NASM
;///////////////////////////////////////////////////////////////////////
|
||
; ”ãªæ¨ï #5C. ‚뢮¤ áâப¨ íªà .
|
||
;
|
||
; ¢å®¤: HL - 㪠§ ⥫ì áâபã ᨬ¢®«®¢
|
||
; ¢ë室: HL - 㪠§ ⥫ì á«¥¤ãîéãî áâபã ᨬ¢®«®¢
|
||
; PRINT NULL-TERMINATED CHARS STRING
|
||
;///////////////////////////////////////////////////////////////////////
|
||
; PCHARS: LD A,(HL)
|
||
; INC HL
|
||
; OR A
|
||
; RET Z
|
||
; CALL PUTCHAR
|
||
; JP PCHARS
|
||
;///////////////////////////////////////////////////////////////////////
|
||
PCHARS: XOR A
|
||
.NO_SCROLL: LD D,A
|
||
LD A,(CLEAR.shell_color)
|
||
LD B,A
|
||
LD A,D
|
||
AND A ; no attr-mode
|
||
EX AF,AF'
|
||
XOR A ; no XY-mode
|
||
LD C,BIOS.LP_PR_LINE_DIR
|
||
LD IY,0 ; YH = YL = B
|
||
JP ToBIOS
|
||
;///////////////////////////////////////////////////////////////////////
|
||
; A - âਡãâë ¢ë¢®¤¨¬®£® ᨬ¢®« ¥á«¨ CF'
|
||
; A' - ¥á«¨ !=0 â® ¡¥§ áªà®««
|
||
; CF - XY-mode
|
||
; DE - ¬¥á⮠ᨬ¢®« ¢ ®ª¥, ¥á«¨ CF=1
|
||
; HL - ¤à¥á á ¢ë¢®¤¨¬®© áâப®©
|
||
; B - 梥⠪®á®«¨ (¨á¯®«ì§ã¥âáï ¯à¨ áªà®««¥ ¨ ®ç¨á⪥ ®ª )
|
||
; IY - ¤¢ ᯥæ.ᨬ¢®« ¤«ï ¢ë室 á CF=1. „®«¦ë ¡ëâì à ¢ë B, ¥á«¨ ¥ ã¦ë
|
||
; CF' - ¢ë¢®¤¨âì ᨬ¢®« á âਡãâ ¬¨ |