" 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;div; 5 " "jmp tab " "jmp ell sad o15 jmp cret sad o40 jmp 1f law cbuf1 tad col dac t lac t i sza jmp inb2 lac ch dac t i 1: isz col jmp cloop inb2: law cbuf2 tad col dac t dac crflg lac ch dac t i isz col jmp cloop bksp: -1 tad col spa cla dac col jmp cloop cret: dzm col jmp cloop pass2: law cbuf1 p21: dac t dzm case -100 dac c dzm nblank p2loop: lac t i sna jmp blk -1 tad nblank spa jmp 2f cma dac c1 1: law 040 jms putc isz c1 jmp 1b dzm nblank 2: law casetab tad t i dac t1 lac t1 i sad case jmp 1f sad d2 jmp 1f dac case law 041 jms putc law 041 jms putc 1: lac t i sad o44 jmp dol sad o41 law 045 sad o77 law 0100 sad o134 law 0137 " ?? sad o137 law 055 sad o140 law 0134 sad o173 law 0133 sad o174 law 046 sad o175 law 0135 sad o176 law 0137 " ?? jms putc jmp p2test dol: law 044 jms putc law 044 jms putc jmp p2test blk: isz nblank p2test: isz t isz c jmp p2loop lac crflg sna jmp 1f law 041 jms putc law 060 jms putc law 044 jms putc law 040 jms putc dzm crflg law cbuf2 jmp p21 1: law 044 jms putc law 040 jms putc lac ch sad o4 jmp floop jmp loop getc: 0 lac ipt sad eipt jmp 1f dac 2f add o400000 dac ipt ral lac 2f i szl lrss 9 and o177 sna jmp getc+1 jmp getc i 1: lac fi sys read; rbuf; 64 sna jmp 1f tad iipt dac eipt lac iipt dac ipt jmp getc+1 1: lac o4 jmp getc i hangup: lac d1 sys write; m1; m1s jmp stop abort: lac d1 sys write; m2; m2s jmp stop nofiles: lac d1 sys write; m3; m3s sys exit discon: lac d1 sys write; m4; m4s jmp stop m1: ;;;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 " 2: both cases 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 - 100 case 0;0;0;0;0;0;0;0 " 1 - 200 case 0;0;0;0;0;0;0;0 " 2 - 300 case 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 "circled with 3f written in and to the right: lrss 9 "3: lac noc sad o45 "sna jmp 1f "jmp gcard i jms putc "sad d80 jmp gcard+1 "jmp gcard i 1: "law 040 -1 "jms putc tad gcard i "jmp 3b 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;