Assembler



         

(FCB) - 8


0248 8D 16 0189 R LEA DX, INPUT_BAD_MSG ;
024C KEYBOARD_ERROR:
024C B4 09 MOV AH, 9H
024E CD 21 INT 21H ;
0250 EB E7 JMP KEYBOARD_LOOP ;
0252 KEY_INPUT_OK:
0252 8D 16 01AB R LEA DX, CHAR_BAD_MSG ;
;
0256 A0 0105 R MOV AL, KEYBOARD_BUFFER+2 ;
0259 3C 24 CMP AL, '$' ;
025B 75 03 JNE CHANGE_RECORD ;
025D EB 5C 90 JMP PROGRAM_EXIT
 
;-----
0260 CHANGE_RECORD:
0260 3C 41 CMP AL, 'A' ; ,
0262 7C E8 JL KEYBOARD_ERROR ; A-Z
0264 3C 5A CMP AL, 'Z'
0266 77 E4 JA KEYBOARD_ERROR
0268 2A E4 SUB AH, AH ;
026A 2C 41 SUB AL, 'A' ;
026C A3 007D R MOV word ptr FCB_RANDOM_RECORD, AX ; FCB
026F 8D 16 005C R LEA DX, FCB
0273 B4 21 MOV AH, 21H ;