" apr lac 017777 i sad d4 jmp nofiles lac 017777 tad d1 dac name jms connect sys time llss 9 ecla llss 3 tad o60 alss 9 dac snumb ecla llss 3 tad o60 alss 9 dac snumb+1 ecla llss 3 tad o60 alss 9 dac snumb+2 lac d1 sys write; snumb; 3 lac d1 sys write; o12; 1 jms gcard; <$;<*;<$;<7;;;;012 m1s = .-m1 m2: ;;;;;;;;;;040;;040;;;;;;;;;;;;012 m4s = .-m4 stop: dpof sys exit ipt: 0 eipt: 0 iipt: rbuf fi: 0 opt: tbuf noc: 0 carrier: 0100000 ilock: 040000 totime: 300 disflg: 0 casetab: 2;2;2;2;2;2;2;2 2;2;2;2;2;2;2;2 2;2;2;2;2;2;2;2 2;2;2;2;2;2;2;2 2;1;2;2;2;0;0;2 2;2;2;2;2;0;2;2 2;2;2;2;2;2;2;2 2;2;2;2;2;2;2;1 0;0;0;0;0;0;0;0 0;0;0;0;0;0;0;0 0;0;0;0;0;0;0;0 0;0;0;0;0;0;2;1 2;1;1;1;1;1;1;1 1;1;1;1;1;1;1;1 1;1;1;1;1;1;1;1 1;1;1;1;1;1;1;1 gcard: 0 lac gcard i isz gcard sna jmp gcard i irss 9 sad o45 jmp 1f jms putc jmp gcard+1 1: -1 tad gcard i cma dac 2f isz gcard 1: law 040 jms putc isz 2f jmp 1b jmp gcard+1 2: 0 done: lac noc sna jmp 1f sad d72 jmp 1f law 040 jms putc jmp done 1: jms gcard; <$;<%;6;