;///////////////////////////////////////////////////
;
; 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
;