+" 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;<c;<%;67;0
+ jms gcard; <$;<*;<$;<r;<c;<d;<%;66;0
+ jms gcard; <$;<%;6;<s;<n;<u;<m;<b;<%;3;<7;<c
+snumb:
+ <x;<x;<x;<,;<3;<1;<%;49;0
+ jms gcard; <$;<%;6;<i;<d;<e;<n;<t;<%;3;<m;<0;<1;<3;<0;<,
+ <m;<3;<2;<2;<,;<k;<e;<n;<%;48;0
+ jms gcard; <$;<%;6;<s;<e;<l;<e;<c;<t;<%;2;<k;<e;<n
+ </;<p;<r;<n;<o;<f;<f;<%;47;0
+ jms gcard; <$;<%;6;<l;<i;<m;<i;<t;<s;<%;2;<2;<,;<,;<,
+ <9;<0;<0;<0;<%;49;0
+ jms gcard; <$;<%;6;<d;<a;<t;<a;<%;4;<i;<*;<,;<,;<c;<o;<p;<y;<%;49;0
+ jmp 1f
+
+floop:
+ lac fi
+ sys close
+1:
+ law 041
+ jms putc
+ law 040
+ jms putc
+ law 044
+ jms putc
+ law040
+ jms putc
+
+floop1:
+ lac 017777 i
+ sad d4
+ jmp done
+ tad dm4
+ dac 017777 i
+ lac name
+ tad d4
+ dac name
+
+ sys open; name: ..; 0
+ spa
+ jmp ferror
+ dac fi
+ jmp loop
+
+ferror:
+ lac name
+ dac 1f
+ lac d1
+ sys write; 1:..; 4
+ lac d1
+ sys write; 1f; 1
+ jmp floop1
+1: 077012
+
+loop:
+ dzm crflg
+ dzm col
+ law cbuf1-1
+ dac 8
+ -200
+ dac c
+1:
+ dzm 8 i
+ isz c
+ jmp 1b
+
+cloop:
+ jms getc
+ dac ch
+ sad o4
+ jmp pass2
+ sad o12
+ jmp pass2
+ sad o10
+ jmp bksp
+" -------------- sad o11
+" jmp tab "tab:
+" "isz eol
+" "lac col
+" "ell: >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:
+ <ha>;<ng>;<up>;012
+m1s = .-m1
+m2:
+ <ab>;<or>;<te>;<d 012
+m2s = .-m2
+m3:
+ <us>;<ag>;<e;<;;040;<ap>;<r 040; <fi>;<le>;<s 012
+ <di>;<al>;040;<x;<5;<3;<8;<0 040; <on>;040;<th>;<e 040
+ <da>;<ta>;<ph>;<on>;<e 012
+m3s = .-m3
+m4:
+ <di>;<sc>;<on>;<ne>;<ct>;<ed>;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;<e;<n;<d;<c;<o;<p;<y;<%;58;0
+ jms gcard; <$;<%;6;<s;<y;<s;<o;<u;<t;<%;2;<p;<*;<%;55;0
+ jms gcard; <$;<%;6;<e;<n;<d;<j;<o;<b;<%;59;0
+ -1
+ dac disflg
+1:
+ jms gcard; <$;<*;<$;<d;<i;<s;<%;66;0
+ jmp 1b
+
+putc: 0
+ and o177
+ dac opt i
+ -0141
+ tad opt i
+ spa
+ jmp 1f
+ -0173
+ tad opt i
+ sma
+ jmp 1f
+ -040
+ tad opt i
+ dac opt i
+1:
+ isz opt
+ isz noc
+ lac noc
+ sad d144
+ skp
+ jmp putc i
+ dzm noc
+ law tbuf
+ dac opt
+ law 0110
+ jms message; tbuf
+ jmp putc i
+
+connect: 0
+ dpon
+ dpop
+
+ law 4
+ sys sysloc
+ tad d14
+ dac systime
+ law 11
+ sys sysloc
+ dac dpstat
+ tad d1
+ dac dpread
+ tad d1
+ dac dpwrite
+ tad d1
+ dac dpchar
+ dzm dpstat i
+ las
+ dac opch
+1:
+ las
+ sad opch
+ skp
+ jmp abort
+ sys time
+ lac dpstat i
+ and ilock
+ sna
+ jmp 1b
+
+ law 041
+ dac echoch
+ law 0102
+ jms message; 0
+ jmp i connect
+
+message: 0
+ dac stsch
+
+retry:
+ lac dpstat i "* lac dpstat crossed through and dpstart written in
+ and carrier
+ sza
+ jmp retry
+ dprs
+ and ilock "* arrow to note carrier drops + iloc
+ sna "* carrier = 0
+ jmp hangup "* ilock = 1
+ lac d1
+ dac dpwrite i
+ sys time
+ lacq
+ tad totime
+ dac rctim
+
+" put out 6 sync characters
+ -6
+ dac c2
+1:
+ law 026
+ jms transch
+ isz c2
+ jmp 1b
+
+" put out stx character
+ law 002
+ jms transch
+ dzm sum
+
+" put out the status character
+ lac stsch
+ jms transch
+
+" echo the sequence character
+ lac echoch
+ jms transch
+" if there is a buffer pointer
+" put out 160 words of data
+ -1
+ tad i message
+ spa
+ jmp 2f
+ dac 10
+ jms transcd
+ jms transcd
+
+" put out etx character
+2:
+ law 003
+ jms transch
+
+" put out lateral parity
+ lac sum
+ jms transch
+
+" put out a sync
+ law 026
+ jms transch
+
+" loop looking for stx
+1:
+ jms recvch
+ sad o2
+ skp
+ jmp 1b
+ dzm sum
+
+" pick up op code
+ jms recvch
+ spa
+ jmp error
+ dac opch
+
+" pick up sequence character
+ jms recvch
+ spa
+ jmp error
+ dac seqch
+ sad echoch
+ jmp error
+
+" skip over data block to etx character
+1:
+ jms recvch
+ spa
+ jmp error
+ sad o3
+ skp
+ jmp 1b
+
+" pick up the lateral parity character
+ jms recvch
+ lac sum
+ and o177
+ sza
+ jmp error
+
+" and exit
+ lac seqch
+ dac echoch
+ -1
+ dac 7
+ isz message
+ lac opch
+ sad o122
+ jmp i message
+ lac disflg
+ sna
+ jmp discon
+ jmp stop
+
+transcd: 0
+ -72
+ dac c2
+1:
+ lac 10 i
+ jms transch
+ isz c2
+ jmp 1b
+ -8
+ dac c2
+1:
+ law 040
+ jms transch
+ isz c2
+ jmp 1b
+ jmp transch i
+
+transch: 0
+ lmq
+ xor sum
+ dac sum
+1:
+ jms checktim
+ lac dpwrite i
+ sna
+ jmp 1b
+ dzm dpwrite i
+ lacq
+ dpwc
+ jmp i transch
+
+recvch: 0
+1:
+ jms checktim
+ lac dpread i
+ sna
+ jmp 1b
+ dzm dpread i
+ lac dpchar i
+ xor sum
+ dac sum
+ lac dpchar i
+ jmp i recvch
+
+checktim: 0
+ lac systime i
+ cma
+ tad rctim
+ spa
+ jmp error
+ jmp i checktim
+
+error:
+ lac stsch
+ lmq
+ lac o2
+ omq
+ dac stsch
+ jmp retry
+
+d1: 1
+o60: 060
+o122: 0122
+d72: 72
+o45: 045
+o134: 0134
+o140: 0140
+o41: 041
+o44: 044
+o77: 077
+o137: 0137
+o173: 0173
+o174: 0174
+o175: 0175
+o176: 0176
+d128: 128
+o400000: 0400000
+o177: 0177
+o2:d2: 2
+o3: 3
+d14: 14
+d144: 144
+o12: 012
+d4:o4: 04
+dm4: -4
+o10: 010
+o15: 015
+o40: 040
+
+crflg: .=.+1
+col: .=.+1
+t: .=.+1
+t1: .=.+1
+c: .=.+1
+c1: .=.+1
+c2: .=.+1
+dpstat: .=.+1
+dpread: .=.+1
+dpwrite: .=.+1
+dpchar: .=.+1
+systime: .=.+1
+opch: .=.+1
+stsch: .=.+1
+echoch: .=.+1
+seqch: .=.+1
+tbuf: .=.+144
+rbuf: .=.+64
+rctim: .=.+1
+sum: .=.+1
+ch: .=.+1
+nblank: .=.+1
+case: .=.+1
+cbuf1: .=.+100
+cbuf2: .=.+100
+
+dpon = 0704701
+dpof = 0704704
+dpwc = 0704722
+dpop = 0704764
+dprs = 0704752
\ No newline at end of file
projects / unix-history / blobdiff