; > RelTest  waits for char from console, then exits to ODT
;
        ORG     512
        BR      TEST
VEC:    DEF     O60             ; Console base vector
CON:    DEF     O177560         ; Console address
TEST:   MOV     @#VEC,R6        ;
        MOV     #GET,(R6)+      ; set vector to receive chars
        MOV     #O340,(R6)      ; set PSW to ignore IRQ during GET
        MOV     #512,R6         ; stack
        MOV     #O100,@CON-$    ; enable IRQ on rcvr
IRQ:    WAIT                    ; for IRQ
        HALT
;
GET:    TSTB    @CON-$
        CLR     @CON-$
        BPL     NONO            ; if zero, no char
        RTI
NONO:   HALT
