     1 000000           ; > RelTest  waits for char from console, then exits to ODT
     2 000000           ;
     3 000000                   ORG     512
     4 001000 000402            BR      TEST
     5 001002 000060    VEC:    DEF     O60             ; Console base vector
     6 001004 177560    CON:    DEF     O177560         ; Console address
     7 001006 013706    TEST:   MOV     @#VEC,R6        ;
     7 001010 001002    
     8 001012 012726            MOV     #GET,(R6)+      ; set vector to receive chars
     8 001014 001040    
     9 001016 012716            MOV     #O340,(R6)      ; set PSW to ignore IRQ during GET
     9 001020 000340    
    10 001022 012706            MOV     #512,R6         ; stack
    10 001024 001000    
    11 001026 012777            MOV     #O100,@CON-$    ; enable IRQ on rcvr
    11 001030 000100    
    11 001032 177750    
    12 001034 000001    IRQ:    WAIT                    ; for IRQ
    13 001036 000000            HALT
    14 001040           ;
    15 001040 105777    GET:    TSTB    @CON-$
    15 001042 177740    
    16 001044 005077            CLR     @CON-$
    16 001046 177734    
    17 001050 100001            BPL     NONO            ; if zero, no char
    18 001052 000002            RTI
    19 001054 000000    NONO:   HALT
