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