From 8633b1b8c6dfc7e0934a21cfb1edb37d094cf039 Mon Sep 17 00:00:00 2001 From: Phil Budne Date: Fri, 18 Oct 2019 22:46:53 -0400 Subject: [PATCH] add psych.s --- scans/README.md | 1 + scans/psych.s | 303 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 304 insertions(+) create mode 100644 scans/psych.s diff --git a/scans/README.md b/scans/README.md index ea10023..40a7265 100644 --- a/scans/README.md +++ b/scans/README.md @@ -56,6 +56,7 @@ Details of the files: * 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 * 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 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: