24 lines
342 B
NASM
24 lines
342 B
NASM
; let the user edit the word at ES:BX
|
|
edit_word:
|
|
push bx
|
|
mov dx, [es:bx]
|
|
call print16
|
|
mov al, '.'
|
|
call putc
|
|
mov byte [inmin], 4
|
|
mov byte [inmax], 4
|
|
mov word [ingetc], getch
|
|
call gets
|
|
pop bx
|
|
jc .ret
|
|
|
|
mov si, inbuf
|
|
call eat_hex_word
|
|
jc .err
|
|
mov [es:bx], dx
|
|
|
|
.ret: ret
|
|
.err: call crlf
|
|
mov di, eat_hex_word.emsg
|
|
jmp parse_error
|