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 îáîçíà÷àåò,
