+" as
+
+ jms init1
+
+assm1:
+ lac eofflg
+ sza
+ jmp assm2
+ lac passno
+ sza
+ jmp finis
+ jms init2
+
+assm2:
+ jms gchar
+ sad d4
+ jmp assm1
+ sad d5
+ jmp assm1
+ lac char
+ dac savchr
+ jms gpair
+ lac rator
+ jms betwen; d1; d6
+ jmp assm3
+ jms expr
+ lac passno
+ sza
+ jms process
+ isz dot+1
+ nop
+ lac dot+1
+ and o17777
+ sad dot+1
+ jmp assm1
+ jms error; >>
+ dzm dot+1
+ jmp assm1
+
+assm3:
+ lac rand
+ sad d2
+ jmp assm4
+ sza
+ jmp assm6
+ lac rator
+ sza
+ jmp assm6
+ lac rand+1
+ jms betwen; dm1; d10
+ jmp assm6
+ dac name
+ tad fbxp
+ dac lvrand
+ lac i lvrand
+ dac name+1
+ isz i lvrand
+ lac o146
+ dac name+2
+ dzm name+3
+ jms tlookup
+ -1
+ dac fbflg
+assm4:
+ lac rand+1
+ tad d4
+ dac lvrand
+ lac rator
+ sza
+ jmp assm5
+ lac dot
+ dac r
+ lac dot+1
+ dac r+1
+ jmp 1f
+
+assm5:
+ jms gpair
+ jms expr
+1:
+ lac r
+ dac i lvrand
+ isz lvrand
+ lac r+1
+ dac i lvrand
+ lac fbflg
+ sna
+ jmp assm1
+ dzm fbflg
+ dzm name+1
+ lac o142
+ dac name+2
+ jms lookup
+ jmp assm4
+
+assm6:
+ jms error; x>
+ jmp assm1
+
+init1: 0
+ lac d1
+ sys write; 1f; 2f-1f
+ dzm passno
+ lac o56040
+ dac dot-4
+ lac o56056
+ dac cmflx-4
+ lac o40040
+ dac dot-3
+ dac dot-2
+ dac dot-1
+ dac cmflx-3
+ dac cmflx-2
+ dac cmflx-1
+ dzm iof
+ jms init
+ jmp i init1
+1:
+ 0111012
+2:
+
+init2: 0
+ lac d1
+ dac passno
+ sys write; 1f; 2f-1f
+ jms init
+ lac o17
+ sys creat; 2f
+ dac bfo
+ sys open; 2f; 0
+ dac bfi
+ dzm bufadd
+ jms copyz; buf; 64
+ jmp i init2
+1:
+ 0111111;012000
+2:
+ 0141056;0157165;0164040;040040
+
+init: 0
+ lac i 017777
+ dac narg
+ lac 017777
+ tad d1
+ dac fname
+ -1
+ dac eofflg
+ jms nextfil
+ jms ioinit
+ dzm savchr
+ dzm comflg
+ lac d1
+ dac dot
+ dzm dot+1
+ dzm cmflx
+ lac d4096
+ dac cmflx+1
+ dzm fbflg
+ jms copyz; fbxp: fbx; 10
+ jmp i init
+
+finis:
+ lac iof
+ sys close
+ jms bufwr
+ lac bfi
+ sys close
+ lac bfo
+ sys close
+ -1
+ tad namsiz
+ cma
+ rcl
+ dac char
+ rcl
+ tad char
+ dac 1f
+ lac o17
+ sys creat; n.out
+ dac bfi
+ sys write; namlst; 1: 0
+ lac bfi
+ sys close
+ sys exit
+n.out:
+ 0156056;0157165;0164040;040040
+
+process: 0
+ lac dot+1
+ dac lvrand
+ lac dot
+ sad d3
+ jmp proc4
+ sza
+ jmp proc1
+ -1
+ tad cmflx+1
+ cma
+ tad lvrand
+ dac lvrand
+
+proc1:
+ lac lvrand
+ spa
+ jmp proc4
+ and o17700
+ sad bufadd
+ jmp proc2
+ jms bufwr
+ jms copyz; buf; 64
+ lac lvrand
+ and o17700
+ dac bufadd
+ dac 1f
+ lac bfi
+ sys seek; 1: 0; 0
+ spa
+ jmp proc2
+ lac bfi
+ sys read; buf; 64
+
+proc2:
+ lac lvrand
+ and o77
+ jms betwen; dm1; maxsto
+ dac maxsto
+ tad bufp
+ dac lvrand
+ lac r
+ sna
+ jmp proc3
+ sad d3
+ jmp proc5
+ lac cmflx+1
+ tad r+1
+ dac r+1
+
+proc3:
+ lac r+1
+ dac i lvrand
+ jmp i process
+
+proc4:
+ jms error; .>
+ lac d1
+ dac dot
+ dzm dot+1
+ jmp skip
+
+proc5:
+ jms error; u>
+ jmp proc3
+
+bufwr: 0
+ lac bfo
+ sys seek; bufadd: 0; 0
+ isz maxsto
+ lac bfo
+ sys write; bufp: buf; maxsto: -1
+ -1
+ dac maxsto
+ jmp i bufwr
+
+:number: 0
+ dac 3f
+ lac d1000
+ dac 2f
+1:
+ lac 3f
+ cll
+ idiv; 2: 0
+ dac 3f
+ lacq
+ tad o60
+ dac i 8
+ lac 2b
+ cll
+ idiv; 10
+ lacq
+ dac 2b
+ sza
+ jmp 1b
+ jmp i number
+3: 0
+
+getsc: 0
+ lac i getsc
+ dac sctalp
+ isz getsc
+ lac i sctalp
+ dac sctal
+ add o400000
+ dac i sctalp
+ ral
+ lac i sctal
+ szl
+ lrss 9
+ and o177
+ jmp i getsc
+
+putsc: 0
+ and o177
+ lmq
+ lac i putsc
+ dac sctalp
+ isz putsc
+ lac i sctalp
+ dac sctal
+ add o400000
+ dac i sctalp
+ sma cla
+ jmp 1f
+ llss 27
+ dac i sctal
+ lrss 9
+ jmp i putsc
+
+1:
+ lac i sctal
+ omq
+ dac i sctal
+ lacq
+ jmp i putsc
+
+sctalp: 0
+sctal: 0
+
+betwen: 0
+ dac 2f
+ lac i betwen
+ dac 3f
+ isz betwen
+ lac i 3f
+ cma
+ tad 2f
+ spa
+ jmp 1f
+ lac i betwen
+ dac 3f
+ isz betwen
+ lac i 3f
+ cma
+ tad d1
+ tad 2f
+ spa
+1:
+ isz betwen
+ lac 2f
+ jmp i betwen
+2: 0
+3: 0
+
+copyz: 0
+ -1
+ tad i copyz
+ dac 8
+ isz copyz
+ lac i copyz
+ cma
+ tad d1
+ dac 2f
+ isz copyz
+1:
+ dzm i 8
+ isz 2f
+ jmp 1b
+ jmp i copyz
+2: 0
+
+error: 0
+ lac passno
+ sza
+ jmp 1f
+ isz error
+ jmp i error
+1:
+ -1
+ tad mesp
+ dac 8
+ lac i error
+ dac i 8
+ lac o40
+ dac i 8
+ lac rator
+ sad d5
+ jmp 1f
+ lac savchr
+ sad o12
+ jmp 1f
+ lac lineno
+ jmp 2f
+1:
+ -1
+ tad lineno
+2:
+ jms number
+ lac o12
+ dac i 8
+ -2
+ tad mesp
+ cma
+ tad 8
+ dac 1f
+ lac d1
+ sys write; mesp: mes; 1: 0
+ isz error
+ jmp i error
+
+skip:
+ lac rator
+ sad d5
+ jmp assm1
+1:
+ jms gchar
+ sad d5
+ jmp assm1
+ jmp 1b
+
+ioinit: 0
+ jms copyz; iobuf; 64
+ lac iof
+ sys read; iobufp: iobuf; 64
+ sna
+ jms nextfil
+ lac iobufp
+ dac tal
+ -129
+ dac talc
+ jmp i ioinit
+
+nextfil: 0
+ lac d1
+ dac lineno
+ lac iof
+ sza
+ sys close
+nf1:
+ lac narg
+ sad d4
+ skp
+ jmp 1f
+ dzm eofflg
+ jmp i nextfil
+1:
+ tad dm4
+ dac narg
+ lac fname
+ tad d4
+ dac fname
+ sys open; fname: 0; 0
+ dac iof
+ sma
+ lac passno
+ sna
+ jmp nextfil i
+ lac fname
+ dac 1f
+ lac d1
+ sys write; 1; 0; 4
+ lac iof
+ sma
+ jmp 1f
+ lac d1
+ sys write; emes; 2
+ sys exit
+1:
+ lac d1
+ sys write; emes+1; 1
+ jmp i nextfil
+emes:
+ 040077;012000
+
+gchar: 0
+ lac savchr
+ dzm savchr
+ sza
+ jmp gch3
+ lac eofflg
+ sza
+ jmp 1f
+ lac o12
+ jmp gch3
+1:
+ isz talc
+ skp
+ jms ioinit
+ jms getsc; tal
+ sna
+ jmp gchar+1
+ sad o177
+ jmp gchar+1
+ sad o12
+ skp
+ jmp 1f
+ dzm comflg
+ isz lineno
+1:
+ sad o42
+ dac comflg
+ dac char
+ lac comflg
+ sza
+ jmp gchar+1
+ lac char
+
+gch3:
+ dac char
+ jms betwen; d0; o200
+ cla
+ tad lactab
+ dac .+1
+ lac 0
+ jmp i gchar
+
+gsymb: 0
+ jms gchar
+ dac rator
+ tad jmpsw1
+ dac 1f
+ lac char
+ sad o74
+ jmp lqot
+ dac namc
+ jms gchar
+ lac char
+ sad o76
+ jmp rqot
+ dac savchr
+ lac namc
+ dac char
+1:
+ jmp 0
+
+jmpsw1:
+ jmp .+1
+ jmp i gsymb
+ jmp i gsymb
+ jmp i gsymb
+ jmp i gsymb
+ jmp gs1
+ jmp i gsymb
+ jmp gs2
+ jmp gs3
+
+badchr:
+ jms error; g>
+1:
+ jms gchar
+ lac char
+ sad o12
+ skp
+ jmp 1b
+ dac savchr
+ jmp gsymb+1
+
+lqot:
+ jms gchar
+ lac o40
+ dac savchr
+ lac char
+ alss 9
+ jmp 1f
+
+rqot:
+ lac namc
+1:
+ dac rand+1
+ lac d7
+ dac rator
+ jmp i gsymb
+
+gs1:
+ jms gchar
+ sad d4
+ jmp gs1
+ lac char
+ dac savchr
+ jmp i gsymb
+
+gs2:
+ lac namep
+ dac tal1
+ -7
+ dac tal1c
+ lac char
+ jms putsc; tal1
+
+gnam1:
+ jms gchar
+ jms betwen; d5; d8
+ jmp gnam3
+ lac char
+ jms putsc; tal1
+ isz tal1c
+ jmp gnam1
+
+gnam2:
+ jms gchar
+ jms betwen; d5; d8
+ skp
+ jmp gnam2
+ lac char
+ dac savchr
+ jms lookup
+ jmp i gsymb
+
+gnam3:
+ lac char
+ dac savchr
+1:
+ lac o40
+ jms putsc; tal1
+ isz tal1c
+ jmp 1b
+ jms lookup
+ jmp i gsymb
+
+gs3:
+ dzm rand+1
+ lac char
+ sad o60
+ jmp 1f
+ lac d10
+ jmp 2f
+1:
+ lac d8
+2:
+ dac num2
+
+num1:
+ lac rand+1
+ cll
+ mul
+num2: 0
+ lacq
+ tad char
+ tad dm48
+ dac rand+1
+ jms gchar
+ sad d7
+ jmp num1
+ lac char
+ dac savchr
+ lac rand+1
+ jms betwen; dm1; d10
+ jmp i gsymb
+ dac name
+ tad fbxp
+ dac name+1
+ lac i name+1
+ dac name+1
+ lac savchr
+ sad o146
+ jmp 1f
+ sad o142
+ skp
+ jmp i gsymb
+ dzm name+1
+1:
+ dac name+2
+ dzm name+3
+ lac d6
+ dac rator
+ jms lookup
+ dzm savchr
+ jmp i gsymb
+
+tlookup: 0
+ jmp 1f
+lookup: 0
+ dzm tlookup
+1:
+ -1
+ tad namlstp
+ dac 8
+ lac namsiz
+ dac namc
+lu1:
+ lac i 8
+ sad name
+ jmp 1f
+ lac d5
+lu2:
+ tad 8
+ dac 8
+ isz namc
+ jmp lu1
+ lac tlookup
+ sna
+ jmp 2f
+ lac fnamep
+ dac rand+1
+ jmp i tlookup
+2:
+ lac name
+ dac i 8
+ lac 8
+ dac rand+1
+ lac name+1
+ dac i 8
+ lac name+2
+ dac i 8
+ lac name+3
+ dac i 8
+ lac d3
+ dac i 8
+ dzm i 8
+ -1
+ tad namsiz
+ dac namsiz
+ jmp i lookup
+1:
+ lac i 8
+ sad name+1
+ jmp 1f
+ lac d4
+ jmp lu2
+1:
+ lac i 8
+ sad name+2
+ jmp 1f
+ lac d3
+ jmp lu2
+1:
+ lac i 8
+ sad name+3
+ jmp 1f
+ lac d2
+ jmp lu2
+1:
+ -3
+ tad 8
+ dac rand+1
+ lac tlookup
+ sza
+ jmp i tlookup
+ jmp i lookup
+namep: name
+
+gpair: 0
+ jms gsymb
+ lac rator
+ sad d4
+ jmp gpair+1
+ jms betwen; dm1; d6
+ jmp gp1
+ dzm rand
+ dzm rand+1
+ jmp i gpair
+gp1:
+ sad d7
+ lac d4
+ tad dm4
+ dac rand
+ jms gsymb
+ lac rator
+ sad d4
+ jmp gp2
+ jms betwen; dm1; d6
+ skp
+ jmp i gpair
+ jms error; x>
+ jmp skip
+gp2:
+ jms gchar
+ jms betwen; d5; d8
+ jmp gp3
+ lac char
+ dac savchr
+ jmp i gpair
+gp3:
+ lac char
+ dac savchr
+ jms gsymb
+ jmp i gpair
+
+expr: 0
+ jms grand
+ -1
+ dac srand
+exp5:
+ lac rand
+ dac r
+ lac rand+1
+ dac r+1
+exp1:
+ lac rator
+ jms betwen; d1; d5
+ jmp exp3
+ dac orator
+ jms gpair
+ jms grand
+ lac orator
+ sad d4
+ jmp exp2
+ jms oper; rand
+ jmp exp1
+exp2:
+ jms pickup
+ lac r
+ dac srand
+ lac r+1
+ dac srand+1
+ jmp exp5
+exp3:
+ sad d5
+ jmp exp4
+ jms error; x>
+ jmp skip
+exp4:
+ jms pickup
+ jmp i expr
+
+pickup: 0
+ lac srand
+ spa
+ jmp i pickup
+ lac d4
+ jms oper; srand
+ jmp i pickup
+
+grand: 0
+ lac rand
+ sad d2
+ skp
+ jmp i grand
+ lac rand+1
+ tad d4
+ dac rand+1
+ lac i rand+1
+ dac rand
+ isz rand+1
+ lac i rand+1
+ dac rand+1
+ jmp i grand
+
+oper: 0
+ tad opsw
+ dac oper1
+ -1
+ tad i oper
+ dac 8
+ isz oper
+ lac r
+ sad d3
+ jmp oper2
+ lac i 8
+ sad d3
+ jmp oper2
+oper1:
+ jmp 0
+opsw:
+ jmp .-1
+ jmp oplus
+ jmp ominus
+ tad r
+ dac r
+ lac r+1
+ lmq
+ lac i 8
+ omq
+ jmp oret
+oplus:
+ tad r
+ dac r
+ lac r+1
+ tad i 8
+ jmp oret
+ominus:
+ cma
+ tad d1
+ tad r
+ dac r
+ -1
+ tad i 8
+ cma
+ tad r+1
+oret:
+ dac r+1
+ lac r
+ jms betwen; dm1; d2
+ skp
+ jmp i oper
+ jms error; r>
+ lac d1
+ dac r
+ jmp i oper
+oper2:
+ dac r
+ dzm r+1
+ jmp i oper
+
+d0: 0
+d1: 1
+d4096: 4096
+d2: 2
+d3: 3
+d4: 4
+d5: 5
+d6: 6
+d7: 7
+d8: 8
+o12: d10: 10
+dm1: -1
+o40: 040
+o60: 060
+dm48: -48
+o400000: 0400000
+o177: 0177
+dm4: -4
+o200: 0200
+o42: 042
+o142: 0142
+o40040: 040040
+o56056: 056056
+o56040: 056040
+o146: 0146
+o17777: 017777
+d1000: 1000
+o17: 017
+o17700: 017700
+o77: 077
+o74: 074
+o76: 076
+
+namsiz: -2
+namlstp: namlst
+fnamep: fakename
+lactab: lac .+1
+8;8;8;8;8;8;8;8
+8;4;5;8;8;8;8;8
+8;8;8;8;8;8;8;8
+8;8;8;8;8;8;8;8
+4;8;8;8;8;8;8;8
+8;8;6;2;4;3;6;8
+7;7;7;7;7;7;7;7
+7;7;0;5;8;1;8;8
+8;6;6;6;6;6;6;6
+6;6;6;6;6;6;6;6
+6;6;6;6;6;6;6;6
+6;6;6;8;8;8;8;8
+8;6;6;6;6;6;6;6
+6;6;6;6;6;6;6;6
+6;6;6;6;6;6;6;6
+6;6;6;8;8;8;8;8
+
+fbflg: .=.+1
+tal: .=.+1
+talc: .=.+1
+tal1: .=.+1
+tal1c: .=.+1
+narg: .=.+1
+lvrand: .=.+1
+eofflg: .=.+1
+namc: .=.+1
+passno: .=.+1
+char: .=.+1
+savchr: .=.+1
+comflg: .=.+1
+rator: .=.+1
+orator: .=.+1
+rand: .=.+2
+srand: .=.+2
+r: .=.+2
+name: .=.+4
+buf: .=.+64
+iobuf: .=.+64
+fbx: .=.+10
+mes: .=.+20
+iof: .=.+1
+bfi: .=.+1
+bfo: .=.+1
+lineno: .=.+1
+
+fakename: .=.+6
+namlst:
+.=.+4
+dot:
+.=.+6
+cmflx:
projects / unix-history / blobdiff