diff --git a/scans/README.md b/scans/README.md index 8cdbcb6..58af6c2 100644 --- a/scans/README.md +++ b/scans/README.md @@ -55,6 +55,12 @@ Details of the files: * as.s: pages 32-48 of 05-1-4.pdf * ed1.s: pages 7-20 of 08-rest.pdf * ed2.s: pages 21-29 of 08-rest.pdf +* pd.s: page 1 of 11-45-91.pdf +* psych.s: page 2-6 of 11-45-91.pdf +* rm.s: page 7 of 11-45-91.pdf +* rn.s: page 8 of 11-45-91.pdf +* salv.s: pages 25-29 of 11-45-91.pdf +* sh.s: pages 30-36 of 11-45-91.pdf * st-1.s pages 1-5 of 12-92-119.pdf * st-2.s pages 6-9 of 12-92-119.pdf * st-3.s pages 10-13 of 12-92-119.pdf diff --git a/scans/pd.s b/scans/pd.s new file mode 100644 index 0000000..6196348 --- /dev/null +++ b/scans/pd.s @@ -0,0 +1,59 @@ +" ** 11-45-91.pdf page 1 +" pd + + sys open; dotdot; 0 + spa; jms error + dac df + law dir-1 + dac 8 +1: + lac df + sys read; tbuf; 8 + spa; jms error + sna + jmp 1f + lac tbuf + sna + jmp 1b + -8 + dac c1 + law tbuf-1 + dac 9 +2: + lac 9 i + dac 8 i + isz c1 + jmp 2b + jmp 1b + +1: + lac df + sys close + law 017 + sys creat; dotdot + spa; jms error + dac df + law dir-2 + cma + tad 8 + dac .+4 + lac df + sys write; dir; .. + spa; jms error + lac df + sys close + sys exit + +error: 0 + -1 + tad error + hlt + sys save + +dotdot: + 056056; 040040; 040040; 040040 + +c1: .=.+1 +df: .=.+1 +tbuf: .=.+8 +dir: diff --git a/scans/psych.s b/scans/psych.s new file mode 100644 index 0000000..ce9e60d --- /dev/null +++ b/scans/psych.s @@ -0,0 +1,303 @@ +" ** 11-45-91.pdf page 2 +" psych + + lac d1 + sys close + lac d13 "pushbuttons + sys sysloc + dac .pbp + tad d1 + dac .pbp1 +restart: + fld; arg1 + fst; g + fld; arg2 + fst; fact + fld; fp01 + fst; d + jms capture + -100 + dac j + fld; fp0 + fst; z + fst; oldx + fst; oldy + lac o400000 + dac i 11 + dac i 11 + lac setx + dac i 10 + lac sety + dac i 10 + +loop: + sys time + fld; z + fad; fm110 + fdv; radians + fst; b + fld; z + fad; g + fst; z + fld g; + fng + fmp; fact + fst; g + fld; fp1 + fdv; fact + fst; fact + fld; b + fad; fpid2 + sin + fmp; d + fmp; fp500 + fst; xx + jms in + jmp done + fld; b + sin + fmp; d + fmp; fp500 + fst; yy + jms in + jmp done +" ** 11-45-91.pdf page 3 + lac o400000 + dac i 11 + dac i 11 + fld; oldx + fng + fad; xx + fix + spa + xor o775777 + sad vecx + dac i 10 + fld; oldy + fng + fad; yy + fix + spa + xor o775777 + tad vecy + dac i 10 + fld; xx + fst; oldx + fld; yy + fst; oldy + isz j + skp + jmp done + fld; g + fdv; fp90000 + fad; d + fst; d + jmp loop + +done: + -1000 + dac 9f + sys time + isz 9f + jmp .-2 + skp +9f:0 + dzm char + lac auto + sza + jmp doauto +1: + sys time " swap + lac i .pbp + sna + jmp 1b + spa ra1 + jmp 1f + spa ra1 + jmp 2f + spa ra1 + jmp 3f + spa ra1 + jmp 4f + spa ra1 + jmp 5f + spa ra1 + jmp 6f +" ** 11-45-91.pdf page 4 + spa ra1 + jmp 7f + jms release + sys exit +7: cla + sys read; tmp; 1 + lac tmp + sad o141000 + skp + jmp 0f + dac auto + dzm i .pbp1 + jmp doauto +0: + sad o12000 + jmp restart + dzm g +9: + cla + sys read; char; 1 + lac char + sad o12000 + jmp 9f + lrss 9 + dac char + lac g + alss 3 + tad char + tad om60 + dac g + jmp 9b +9: + lac tmp + sad o61000 + jmp 9f + lac g + dac arg2 + jmp restart +9: + lac g + dac arg1 + jmp restart +5: + isz fp500 + nop + jmp restart +6: + -1 + tad fp500 + dac fp500 + jmp restart +4: + lac o400000 + dac char +3: + fld; arg1 + dmp; fm056 + lac char + spa + fng +" ** 11-45-91.pdf page 5 + fad; arg1 + fst; arg1 + jmp restart +2: + lac o400000 + dac char +1: + fld; arg2 + fmp; fm056 + lac char + spa + fng + fad; arg2 + fst; arg2 + jmp restart + +doauto: + lac i .pbp1 + sma + jmp 1f + dzm auto + jmp done +1: + sys time + omq + tad 0 + tad stick + cli + mul + 78625 + lls 9 + dac stick + dzm sexp + and o177777 + xor o200000 + dac ams + fad; fmhalf + fmp; fp128 + lac stick + and d1 + sna + jmp 1f + fst; arg1 + jmp restart +1: + fst; arg2 + jmp restart + +in: 0 + fix + tad d500 + spa + jmp i in + tad dm1000 + spa + isz in + jmp i in + +capture: 0 + law buf-1 + dac 10 +" ** 11-45-91.pdf page 6 + dac 11 + lac o400000 + dac i 11 + law buf + sys capt + jmp i capture + +release: 0 + sys rele + jmp i release + +char: 0 +stick: 0 +xx: 0; 0; 0 +oldx: 0; 0; 0 +yy: 0; 0; 0 +oldy: 0;0 0; 0 +j: 0 +auto: 0 + +setx: 0142000 +512 +sety: 0146000 +512 +vacx: 0100000 +vecy: 0124000 +o775777: 0775777 +o177777: 0177777 +o12000: 012000 +o61000: 061000 +om60: -060 +d13: 13 +d500: 500 +o141000: 0141000 +fp128:8; 0240000; 0 +fmhalf: 0; 0600000; 0 +dm1000: -1000 + +fact: 0;0;0 +g: 0;0;0 +z: 0;0;0 +b: 0;0;0 +d: 0;0;0 + +radians: 6;0345136;0 +fm110: 7;0734000;0 +arg1: 7;0234167;0 +arg2: 1;0275531;0 +fp0: 0;0;0 +fp01: -6;024656;0 +fm056: -4;0745301;0 +pp500: 11;0372000;0 +fp90000: 032;0257620;0 + .pbp: .=.+1 + .pbp1: 0 +buf: diff --git a/scans/rm.s b/scans/rm.s new file mode 100644 index 0000000..5ba7238 --- /dev/null +++ b/scans/rm.s @@ -0,0 +1,33 @@ +" ** 11-45-91.pdf page 7 +" rm + + lac 017777 + tad d1 + dac 2f +1: + lac 017777 i + sad d4 + sys exit + tad dm4 + dac 017777 i + lac 2f + tad d4 + dac 2f + sys unlink; 2: 0 + sma + jmp 1b + lac 2b + dac 2f + lac d1 + sys write; 2: 0; 4 + lac d1 + sys write; 1f; 2f-1f + jmp 1b +1: + 040077;012000 +2: + +d1: 1 +d4: 4 +dm4: -4 + diff --git a/scans/rn.s b/scans/rn.s new file mode 100644 index 0000000..6f5e9ed --- /dev/null +++ b/scans/rn.s @@ -0,0 +1,54 @@ +" ** 11-45-91.pdf page 8 +" rn + + lac 017777 + tad d1 + dac name2 +loop: + lac 017777 i + sad d4 + sys exit + sad d8 + jmp unbal + tad dm8 + dac 017777 i + lac name2 + tad d4 + dac name1 + tad d4 + dac name2 + sys unlink; name2: 0 + lac name2 + dac 1f + sys rename; name1: 0; 1: 0 + sma + jmp loop + lac name1 + dac 1f + lac d1 + sys write; 1: 0; 4 + lac d1 + sys write; mes; 1 + lac name2 + dac 1f + lac d1 + sys write; 1: 0; 4 + lac d1 + sys write; mes; 2 + jmp loop +mes: + 040000;077012 +unbal: + lac name2 + tad d4 + dac 1f + lac d1 + sys write; 1: 0; 4 + lac d1 + sys write; mes; 2 + sys exit + +d1: 1 +d4: 4 +d8: 8 +dm8: -8 diff --git a/scans/salv.s b/scans/salv.s new file mode 100644 index 0000000..9bc2a5a --- /dev/null +++ b/scans/salv.s @@ -0,0 +1,298 @@ +" ** 11-45-91.pdf page 25 +" salv + + lac d1 + sys sysloc + dac iget + + lac d2 + sys sysloc + dac inode + + lac d4 + sys sysloc + dac nxfblk + tad d1 + dac nfblks + tad d1 + dac fblks + + lac d5 + sys sysloc + dac copy + + lac d6 + sys sysloc + dac copyz + + lac d7 + sys sysloc + dac betwen + + lac d8 + sys sysloc + dac dskrd + + lac d10 + sys sysloc + dac dskbuf + + lac d15 + sys sysloc + dac free + + dzm indircnt + dzm icnt + dzm licnt + dzm blcnt + dzm curi + jms copyz i; usetab; 500 + +iloop: + isz curi + -3400 + tad curi + sma + jmp part2 + lac curi + jms iget i + jms copy i; inode: 0; linode; 12 + lac iflags + sma + jmp iloop + isz icnt + +" ** 11-45-91.pdf page 26 + + lac iflags + and 040 + sza + jmp iloop + law idskps + dac t1 + -7 + dac t2 +1: + lac i t1 + sza + jms dupcheck + isz t1 + isz t2 + jmp 1b + lac iflags + and o200000 + sna + jmp iloop + + isz licnt + law idskps + dac t1 + -7 + dac t2 +1: + lac i t1 + sna + jmp 3f + jms dskrd i + jms copy i; dskbuf: 0; idskbuf: 64 + isz indircnt + law ldskbuf + dac t3 + -64 + dac t4 +2: + lac i t3 + sza + jms dupcheck + isz t3 + isz t4 + jmp 2b +3: + isz t1 + isz t2 + jmp 1b + jmp iloop + +dupcheck: 0 + isz blcnt + jms betwen i; d709; d6400 + jmp badadr + dac t5 + lrss 4 + tad usetabp + dac t6 + cla + llss 4 + tad alsscom + dac 2f + +" ** 11-45-91.pdf page 27 + + lac d1 +2: alss 0 + dac bit + lac i t6 + and bit + sza + jmp dup + lac i t6 + xor bit + dac i t6 + jmp i dupcheck + +badadr: + jms print + lac d1 + sys write; badmes; 3 + jmp i dupcheck +badmes: + < b>;;;;;;;;;;;012 + m6s = .-m6 +m7: + 040;;;012 + m7s = .-m7 +m8: + 040;;;;