Assembler äëÿ íà÷èíàþùèõ
DS ôàéòè÷åñêè óêàçûâàåò íà
0010 00000000 FILE_SIZE DD 0 ; Ðàçìåð ôàéëà â áàéòàõ
0014 0000 DATE DW 0 ; Äàòà ïîñëåäíåãî èçìåíåíèÿ ôàéëà
0016 000A[ RESERVED DB 10 DUP (?) ; Çàðåçåðâèðîâàíî ÄÎÑ
??
]
0020 00 SEQ_NUMBER DB 0 ; Íîìåð çàïèñè â áëîêå
0021 00000000 RANDOM_NUMBER DD 0 ; Íîìåð çàïèñè â ôàéëå
0025 FCB ENDS
0000 STACK SEGMENT STACK
0000 0040[ DW 64 DUP (?)
????
]
0080 STACK ENDS
0000 CODE SEGMENT
ASSUME CS:CODE
0000 RECORDS PROC FAR
0000 1E PUSH DS ; Çàíåñåíèå â ñòåê àäðåñà âîçâðàòà
0001 B8 0000 MOV AX,0
0004 50 PUSH AX
ASSUME DS:CODE ; DS ôàéòè÷åñêè óêàçûâàåò íà PSP
0005 BA 005C MOV DX,05CH ; Àäðåñ FCB â PSP
0008 B4 0F MOV AH,0FH ; Îòêðûòü ôàéë
000A CD 21 INT 21H
000C BB 005C MOV BX,05CH ; Àäðåñ FCB
000F 8B 47 14 MOV AX,[BX].DATE
0012 25 FE00 AND AX,MASK YEAR ; Âûäåëåíèå ãîäà èç ïîëíîé äàòû
0015 B9 0009 MOV CX,YEAR ; Âûðàâíèâàíèå âïðàâî
0018 D3 E8 SHR AX,CL
