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
