mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
30 lines
708 B
NASM
30 lines
708 B
NASM
////////////////////////////////////////////////////////////////////////
|
|
; ”ãªæ¨ï #18. ˆ§¬¥¥¨¥ ¤ âë ¨ ¢à¥¬¥¨ ä ©« .
|
|
;
|
|
; ¢å®¤: A - ¤¥áªà¨¯â®à ä ©«
|
|
; D - ¤¥ì
|
|
; E - ¬¥áïæ
|
|
; IX - £®¤
|
|
; H - ç á
|
|
; L - ¬¨ãâë
|
|
; B - ᥪã¤ë
|
|
; ¢ë室: A - ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
|
|
////////////////////////////////////////////////////////////////////////
|
|
PUT_D_T:
|
|
PUSH AF
|
|
CALL MK_TIME ; § ª®¤¨à®¢ âì ¢à¥¬ï/¤ âã
|
|
POP AF ; ¤¥áªà¨¯â®à
|
|
PUSH DE
|
|
PUSH BC
|
|
CALL SET_FM
|
|
POP BC
|
|
POP DE
|
|
RET C
|
|
LD (IY + _sFM.FS_REC.TIME),E
|
|
LD (IY + _sFM.FS_REC.TIME+1),D
|
|
LD (IY + _sFM.FS_REC.DATE),C
|
|
LD (IY + _sFM.FS_REC.DATE+1),B
|
|
SET 7,(IY + _sFM.ACCESS_MODE) ;R006 ; ãáâ. ¯à¨§ ª ¨§¬¥¥¨ï ä ©«
|
|
AND A
|
|
RET
|
|
; |