Assembler


         

DATE_WORD.


 
0034 A1 0014 R MOV AX,DATE
0037 25 FE00 AND AX,MASK YEAR ;
003A B1 09 MOV CL,YEAR ;
003C D3 E8 SHR AX,CL
003E 8A F8 MOV BH,AL ; BH
 
0040 A1 0014 R MOV AX,DATE
0043 25 01E0 AND AX,MASK MONTH
0046 B1 05 MOV CL,MONTH
0048 D3 E8 SHR AX,CL
004A 8A D8 MOV BL,AL ; BL
 
. 6.15 ()
004C A1 0014 R MOV AX,DATE
004F 25 001F AND AX,MASK DAY ; AL
 
0052 CB RET
0053 RECORDS ENDP
0053 CODE ENDS
END RECORDS
 
. 6.15 ()
 
. 6. 15 DATE_WORD.
RECORD , DATE_WORD
. 7 (YEAR), 4
- (MONTH) 5 - (DAY). ,
MACRO,
, DATE_WORD.
RECORD ,

.
 
DATE FCB
DATE_WORD. DATE ,