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