demos/inp.asm


1
2
3
4
5
6
7
8
9

        ORG 12
LINP,   SKI         / check input flag
        BUN LINP
        inp
        OUT         /output character
        sta CHR i
        HLT
CHR,
        HEX B42