Assembler


         

8D 3E 0090


 
0216 8D 3E 0090 R LEA DI, DISK_TRANSFER_ADDRESS
021A B9 0020 MOV CX, RECORD_SIZE
021D F3/ AA REP STOSB ;
021F 50 PUSH AX ;
0220 8D 16 005C R LEA DX, FCB
0224 B4 15 MOV AH, 15H ;
0226 CD 21 INT 21H ;
0228 0A C0 OR AL, AL ;
022A 58 POP AX ;
022B 74 06 JZ WRITE_OK
022D 8D 16 0138 R LEA DX, BAD_WRITE_MSG ;
0231 EB B2 JMP ERROR_EXIT
0233 WRITE_OK:
0233 FE C0 INC AL ;
0235 3C 5B CMP AL, 'Z'+1 ;
0237 75 DD JNE CHARACTER_LOOP ;
 
;-----
0239 KEYBOARD_LOOP: ;
0239 8D 16 0103 R LEA DX, KEYBOARD_BUFFER ;
023D B4 0A MOV AH, 0AH ;
023F CD 21 INT 21H ;
0241 80 3E 0104 R 02 CMP KEYBOARD_BUFFER+1, 2 ; ?
0246 74 0A JE KEY_INPUT_OK