Assembler äëÿ íà÷èíàþùèõ
46 49 47 36 2D
]
0080 STACK ENDS
0000 CODE SEGMENT
ASSUME CS:CODE
0000 FCB LABEL BYTE
0000 01 DRIVE DB 1 ; Íîìåð óñòðîéñòâà
0001 46 49 47 36 2D 31 35 FILE_NAME DB 'FIG6-15 ' ; Èìÿ ôàéëà
20
0009 41 53 4D FILE_EXT DB 'ASM' ; Òèï ôàéëà
000C 0000 CURRENT_BLOCK DW 0 ; Íîìåð òåêóùåãî áëîêà
000E 0080 RECORD_SIZE DW 80H ; Ëîãè÷åñêèé ðàçìåð çàïèñè
0010 00000000 FILE_SIZE DD 0 ; Ðàçìåð ôàéëà â áàéòàõ
0014 0000 DATE DATE_WORD <> ; Äàòà ïîñëåäíåãî èçìåíåíèÿ
0016 000A[ RESERVED DB 10 DUP (?) ; Çàðåçåðâèðîâàíî ÄÎÑ
??
]
0020 00 SEQ_NUMBER DB 0 ; Íîìåð òåêóùåé çàïèñè
0021 00000000 RANDOM_NUMBER DD 0 ; Íîìåð çàïèñè ïðè ïðÿìîì
0025 RECORDS PROC FAR
0025 1E PUSH DS ; Àäðåñ âîçâðàòà
0026 B8 0000 MOV AX,0
0029 50 PUSH AX
002A 0E PUSH CS ; Óñòàíîâêà DS íà ñåãìåíò CODE
002B 1F POP DS
ASSUME DS:CODE
002C 8D 16 0000 R LEA DX,FCB ; Îòêðûòèå ôàéëà
0030 B4 0F MOV AH,0FH
0032 CD 21 INT 21H
