diff --git a/scans/README.md b/scans/README.md index 60c944f..1cf76cb 100644 --- a/scans/README.md +++ b/scans/README.md @@ -73,3 +73,5 @@ Details of the files: * un.s page 18 of 14-148-165.pdf * scope.v pages 3-18 of 03-scope.pdf * op.s page 35 of 09-1-35.pdf +* ln.s pages 15-16 of 09-1-35.pdf +* nm.s pages 31-34 of 09-1-35.pdf diff --git a/scans/ln.s b/scans/ln.s new file mode 100644 index 0000000..c918654 --- /dev/null +++ b/scans/ln.s @@ -0,0 +1,105 @@ +"** 09-1-35.pdf page 15 +" ln + lac 017777 i + sad d4 + jmp error + lac 017777 + tad d1 + dac dirn + lac dirn i + sad qli + jmp clink + lac 017777 + tad d5 + dac dirn + dac name + +loop: + lac 017777 i + sad d8 + sys exit + tad dm4 + dac 017777 i + lac name + tad d4 + dac name + dac name1 + sys link; dirn; 0; name: 0; name1: 0 + sma + jmp loop + lac name + dac 1f + lac d1 + sys write; 1: 0; 4 + lac d1 + sys write; errmes; 2 + jmp loop + +clink: + lac 017777 i + sad d8 + jmp arg1 + sad d12 + jmp arg2 + sad d16 + jmp arg3 + +error: + lac d1 + sys write; errmes+1; 1 + sys exit + +arg1: + lac 017777 + tad d5 + dac larg+1 + dac larg+2 + jmp dlink +arg2: + lac 017777 + tad d5 + dac larg + tad d4 +"** 14-148-165.pdf page 16 + dac larg+1 + dac larg+2 + jmp dlink +arg3: + lac 017777 + tad d5 + dac larg + tad d4 + dac larg+1 + tad d4 + dac larg+2 +dlink: + sys link; larg; defdir;0;0 + sma + sys exit + lac larg + dac 1f + lac larg+1 + dac 2f + lac larg+2 + dac 3f + lac d1 + sys write; 1:..; 4 + lac d1 + sys write; 2:..; 4 + lac d1 + sys write; 3:..; 4 + lac d1 + sys write; errmes; 2 + sys exit + +errmes: + 040; 077012 +d1: 1 +qli:
  • +d12: 12 +d16: 16 +defdir: ;;;040040 +d4: 4 +d8: 8 +dm4: -4 +d5: 5 diff --git a/scans/nm.s b/scans/nm.s new file mode 100644 index 0000000..86152f4 --- /dev/null +++ b/scans/nm.s @@ -0,0 +1,242 @@ +"** 09-1-35.pdf page 31 +" nm + + lac 017777 i + sad d3 + skp + jmp 1f + law n.out + dac fname + jmp 2f +1: + lac 017777 + tad d1 + dac fname + +loop: + lac 017777 i + sad d4 + jmp done + tad dm4 + dac 017777 i + lac fname + tad d4 + dac fname +2: + law 012 + jms putc + sys open; fname: 0; 0 + sma + jmp 1f + lac fname + dac 2f + lac d1 + sys write; 2: 0; 4 + lac d1 + sys write; mes; 2 + jmp loop +mes: + 040077; 012 + +1: + lac d2 + sys read; buf; 3072 + cll; idiv; 6 + lacq + dac size + law o200000 + dac c2 + +print: + lac o200000 + dac c2 i + dzm c2name + -1 + tad size + cma + dac c1 + law buf + dac c3 + lac o200000 + dac c2name +1: + lac c3 i +"** 09-1-35.pdf page 32 + cma + tad c2name + spa + jmp 2f + lac c3 i + dac c2name + lac c3 + dac c2 +2: + law 6 + tad c3 + dac c3 + isz c1 + jmp 1b + lac c2name + sad o200000 + skp + jmp 1f + lac d2 + sys close + jmp loop +1: + + lac c2 + tad d3 + dac t + lac i t + sna + jmp print + isz t + lac i t + sna + jmp print + -1 + tad c2 + dac 8 + -4 + dac c3 +1: + lac 8 i + lrss 9 + jms putc + llss 9 + jms putc + isz c3 + jmp 1b + lac i t + sad d3 + jmp undef + sna + jmp 1f + law 0162 + skp +1: + law 0141 + dac type + law 040 + jms putc + isz t + lac i t + lmq +"** 09-1-35.pdf page 33 + -6 + dac c3 +1: + cla + llss 3 + tad o60 + jms putc + isz c3 + jmp 1b + law 040 + jms putc + lac type + jms putc + law 012 + jms putc + jmp print +undef: + -8 + dac c3 +1: + law 040 + jms putc + isz c3 + jmp 1b + law 0165 + jms putc + law 012 + jms putc + jmp print + +done: + lac noc + sna + sys exit + and d1 + sna cla + jmp 1f + jms putc + jmp done +1: + lac noc + rcr + dac 1f + lac fo + sys write; iopt+1; 1:.. + sys exit + +putc: 0 + and o777 + dac 2f+1 + lac opt + dac 2f + add o400000 + dac opt + spa + jmp 1f + lac 2f i + xor 2f+1 + jmp 3f +1: + lac 2f+1 +"** 09-1-35.pdf page 34 + alss 9 +3: + dac 2f i + isz noc + lac noc + sad d128 + skp + jmp putc i + lac fo + sys write; iopt+1; 64 + lac iopt + dac opt + dzm noc + jmp putc i +2: 0;0 +ipt: 0 +eipt: 0 +iipt: .+1; .=.+64 +fi: 0 +opt: .+2 +iopt: .+1; .=.+64 +noc: 0 +fo: 1 + +c1: 0 +c2: 0 +c3: 0 +t: 0 +size: 0 +c2name: 0 +type: 0 + +d1: 1 +d128: 128 +o200000: 0200000 +o777: 0777 +o400000: 0400000 +d2: 2 +d4: 4 +dm4: -4 +o60: 060 +d3: 3 +d6: 6 +n.out: +0156056;0157165;0164040;040040 +buf: + + + + + + + +