mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 17:31:47 +03:00
64 lines
1.0 KiB
NASM
Executable File
64 lines
1.0 KiB
NASM
Executable File
delay_curs equ 11 ; ç áâ®â ¬¨£ ¨ï ªãàá®à
|
||
|
||
|
||
|
||
cursor: db 3Eh ; ld a,..
|
||
crFlag: db 0 ; ä« £ ªãàá®à 00-¥â/01-¥áâì
|
||
cpl
|
||
ld (crFlag),a
|
||
; ‚ª«îç¨âì ªãàá®à
|
||
cursor_on:
|
||
ld c,8Eh ; 㧠âì ¯®«®¦. ªãàá®à
|
||
rst 08h
|
||
ld (curs_posit+1),de
|
||
xor a
|
||
ld c,0B4h ; ¯®«ãç¨âì ᨬ¢®«
|
||
rst 08h
|
||
ld bc,1BB5h ; b=§ ª®£¥., á=ᨬ¢®« íªà
|
||
ld a,(crFlag)
|
||
or a
|
||
jr z,curs__
|
||
ld b,1Ah ; ç¥àâ
|
||
ld a,(D0642) ; ä« £¨ ª« ¢ë
|
||
bit 1,a ; ¡¨â Ins
|
||
jr nz,$+4
|
||
ld b,19h ; ¡«®ª
|
||
curs__: xor a ; ®¬¥à ®ª
|
||
rst 08h
|
||
ld a,1
|
||
ld (curs_inv_flag),a
|
||
ld a,delay_curs
|
||
ret
|
||
|
||
; ‚몫îç¨âì ªãàá®à
|
||
cursor_off:
|
||
db 3Eh ; ld a,..
|
||
curs_inv_flag:
|
||
db 0 ; ä« £ ªãàá®à : 00-¢ëª«/01-¢ª«
|
||
or a
|
||
ret z
|
||
ld a,-1
|
||
ld (crFlag),a
|
||
inc a
|
||
ld (curs_inv_flag),a
|
||
ld a,delay_curs
|
||
ld (curs_timer),a
|
||
curs_posit:
|
||
ld de,0 ; Y/X ¯®«®¦.
|
||
bit 7,e
|
||
ret nz
|
||
ld c,0B4h ; ¯®«ãç¨âì ᨬ¢®«
|
||
xor a
|
||
rst 08h
|
||
xor a
|
||
ld bc,1BB5h ; ᨬ¢®« íªà
|
||
rst 08h
|
||
ret
|
||
|
||
|
||
; “áâ ®¢¨âì 䮪ãá "Input Line"
|
||
focus_to_inpline:
|
||
call cursor_on ; ¢ª«. ªãàá®à
|
||
ei
|
||
ret
|