Assembler


         

(FCB) - 6


01E1 8D 16 0108 R LEA DX, FILE_ERROR_MSG ;
01E5 ERROR_EXIT: ;
01E5 B4 09 MOV AH, 9H ;
01E7 CD 21 INT 21H ;
01E9 CD 20 INT 20H
 
;-----
01EB NO_FILE:
01EB B4 16 MOV AH, 16H ;
01ED 8D 16 005C R LEA DX, FCB
01F1 CD 21 INT 21H
01F3 0A C0 OR AL, AL ;
01F5 74 06 JZ CREATE_OK
01F7 8D 16 011E R LEA DX, BAD_OPEN_MSG ;
01FB EB E8 JMP ERROR_EXIT ;
 
;----- FCB
01FD CREATE_OK:
01FD C6 06 007C R 00 MOV FCB_CURRENT_RECORD, 0 ;
0202 C7 06 007D R 0000 MOV WORD PTR FCB_RANDOM_RECORD, 0 ;
0208 C7 06 007F R 0000 MOV WORD PTR FCB_RANDOM_RECORD+2, 0
020E C7 06 006A R 0020 MOV WORD PTR FCB_RECORD_SIZE, RECORD_SIZE
 
. 5.6 DOS ()
;-----
 
0214 B0 41 MOV AL, 'A' ;
0216 CHARACTER_LOOP: ;