mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
47 lines
939 B
NASM
47 lines
939 B
NASM
;///////////////////////////////////////////////////
|
|
;
|
|
; VER, VERSION. ‚뢮¤ ¢¥àᨨ „Ž‘
|
|
;
|
|
;///////////////////////////////////////////////////
|
|
cmd_version:
|
|
LD C,Dss.Version
|
|
RST ToDSS
|
|
LD L,D
|
|
LD H,E
|
|
LD DE,PRM1
|
|
CALL .Set_Ver_to_PRM ; set DSS version
|
|
;R13
|
|
LD HL,256*CONSOLE_MODF + CONSOLE_VERS
|
|
LD BC,CONSOLE_BUILD
|
|
LD DE,PRM2
|
|
CALL .Set_Ver_to_PRM ; set Shell version
|
|
;R13
|
|
LD DE,MAIN_MSG.VERSION
|
|
JP ECHO_MESSAGE
|
|
|
|
; ‚室:
|
|
; L - ®¬¥à ¢¥àᨨ (0..9)
|
|
; H - ®¬¥à ¬®¤¨ä¨ª 樨 (0..99)
|
|
; BC - ®¬¥à ¡¨«¤ (0..999)
|
|
; DE - ®¬¥à ¯ à ¬¥âà
|
|
.Set_Ver_to_PRM:
|
|
PUSH BC
|
|
PUSH HL
|
|
LD H,0
|
|
CALL hex2dec_ascii_16bit.n10 ;decim2 ®¬¥à ¢¥àᨨ (0..9)
|
|
LD A,'.'
|
|
LD (DE),A
|
|
INC DE
|
|
POP HL
|
|
LD L,H
|
|
LD H,0
|
|
CALL hex2dec_ascii_16bit.n10 ;decim2 ®¬¥à ¬®¤¨ä¨ª 樨 (0..99)
|
|
POP HL
|
|
LD A,'.'
|
|
LD (DE),A
|
|
INC DE
|
|
CALL hex2dec_ascii_16bit.n100 ;decim3 ®¬¥à ¡¨«¤ (0..999)
|
|
XOR A
|
|
LD (DE),A
|
|
RET
|
|
; |