IO.f

{ EMIT
NT FPOP AX
NT MOV AH, 0x0E
NT INT 0x10 }

{ WRITE
N FPOP AX
NT MOV SI, AX
NT MOV AH, 0x0E
N WRITE_LOOP:
NT LODSB
NT OR AL, AL
NT JZ WRITE_END
NT CMP AL, 13
NT JNZ NORETURN
NT INT 0x10
NT MOV AL, 10
NT INT 0x10

N NORETURN:
NT INT 0x10
NT JMP WRITE_LOOP
N WRITE_END: }

{ .
N %include "HEX.asm" }

{ HANG
T CLI
NT HLT }

: NEWLINE 13 EMIT 10 EMIT ;
: SPC 32 EMIT ;