Add README.md
[pdp8.git] / sw / SPACE / SPACE.PA
... / ...
CommitLineData
1CLZE=6130
2CLSK=6131
3CLOE=6132
4CLAB=6133
5CLEN=6134
6CLSA=6135
7CLBA=6136
8CLCA=6137
9CREXT=0100
10CR2=0200
11CR3=0300
12CR4=0400
13CR5=0500
14CR6=0600
15COVSTAT=4000
16CMFREE=0000
17CMPROG=1000
18CADC=0040
19CINH=0020
20CION=0010
21CEV3=0004
22CEV2=0002
23CEV1=00001
24DIXY=6055
25DILX=6053
26DILY=6054
27DILE=6056
28DISD=6052
29XRIN=NOP
30XRCL=NOP
31/DSB=XXXX
32DXC=JMS I IVCLDX
33DYC=JMS I IVCLDY
34DXL=0000
35DYL=0000
36DIS=0000
37/CRF=NOP
38/CCF=NOP
39 *0
40 0
41 JMP I 2
42 INTSER
43EMPTY, 0
44ODT1, 0
45ODT2, 0
46ODT3, 0
47 *10
48AUTO10, 0
49AUTO11, 0
50AUTO12, 0
51AUTO13, 0
52AUTO14, 0
53AUTO15, 0
54AUTO16, 0
55AUTO17, 0
56 *20
57ONEOUT, 0
58ONECNT, 0
59ONEFLG, 0
60ONETHE, 0
61ONEVEX, 0
62ONEVEY, 0
63ONEPEX, 0
64ONEPEY, 0
65ONESIN, 0
66ONECOS, 0
67ONEFIN, 0
68TWOOUT, 0
69TWOCNT, 0
70TWOFLG, 0
71TWOTHE, 0
72TWOVEX, 0
73TWOVEY, 0
74TWOPEX, 0
75TWOPEY, 0
76TWOSIN, 0
77TWOCOS, 0
78TWOFIN, 0
79XONEDS, 0
80YONEDS, 0
81XTWODS, 0
82YTWODS, 0
83DIXTEM, 0
84DIYTEM, 0
85DISCNT, 0
86T10SIN, 0
87T20SIN, 0
88T30SIN, 0
89T10COS, 0
90T20COS, 0
91T30COS, 0
92CALSIN, 0
93CALCOS, 0
94SINE, SINEIN
95COSINE, COSINI
96MULT, MULTI
97RSHIFT, SHIFTR
98VECTOR, DISPLY
99CALPOS, POSCAL
100INTWRD, 0
101INTCNT, 0
102HYPER, HYPSET
103MESOUT, CHARS
104THEADJ, THEAJI
105VEESCL, VEELIM
106ISHFT, DISHFT
107RESET1, RESE1
108GAMOVR, 0
109ACCFLG, 0
110ACCPER, -30
111MEXP, -400
112PROX, 0
113PROY, 0
114PROLIF, -360
115BUFTMP, 0
116ONEFIL, DISBUF
117TWOFIL, DISBUF+40
118P5, 5
119P10, 10
120P17, 17
121P20, 20
122P37, 37
123P40, 40
124P100, 100
125P132, 132
126P200, 200
127P400, 400
128P550, 550
129P3777, 3777
130M4, -4
131M6, -6
132M10, -10
133M11, -11
134M264, -264
135M200, -200
136M400, -400
137M550, -550
138IVCLDX, VCLDX
139IVCLDY, VCLDY
140 *200
141START, CLA CLL
142 DIXY
143 LAS
144 TAD SWRD
145 TAD XROPT
146 DCA COLDST
147RESTRT, CLA CMA
148 XRCL
149 CLA CLL
150 TAD P17
151 DCA AUTO10
152 TAD TABLEN
153 DCA AUTO11
154 DCA I AUTO10
155 ISZ AUTO11
156 JMP .-2
157 TAD STRT1
158 DCA ONEPEX
159 TAD STRT2
160 DCA TWOPEX
161 TAD P37
162 DCA ONECOS
163 TAD P37
164 DCA TWOCOS
165 TAD ACCPER
166 DCA ACCFLG
167 DCA ONEFIN
168 DCA TWOFIN
169 DCA GAMOVR
170 JMS I BUFSET
171 TCF
172 PCF
173 RRB
174 CLA CMA
175 CLZE
176 CLA
177 TAD CDELY
178 CLAB
179 CLA
180 TAD CCNF
181 CLOE
182 CLA CLL
183 JMP COLDST
184
185CCNF, CR4+CMPROG+CION+COVSTAT
186CDELY, -310
187UPDATE, CLA CLL
188
189COLDST, 0
190 LAS
191 DCA INTWRD
192 TAD INTWRD
193 RTR
194 RTR
195 AND LFTHAF
196 DCA INTTEM
197 TAD INTWRD
198 AND RYTHAF
199 TAD INTTEM
200 JMP .+3
201CODST, XRIN
202 XRCL
203 DCA INTWRD
204 TAD M550
205 DCA INTCNT
206 ION
207 TAD ACCFLG
208 IAC
209 SMA SZA
210 TAD ACCPER
211 DCA ACCFLG
212 JMP I .+1
213 ONEUP
214BUFSET, SETBUF
215TABLEN, AUTO17-CALCOS
216INTTEM, 0
217LFTHAF, 0360
218RYTHAF, 0017
219STRT1, 1000
220STRT2, -1000
221SWRD, 2000-CODST
222XROPT, JMP CODST
223INTSER, DCA INTACC
224 RAR
225 DCA INTLNK
226 CLSK
227 JMP INTBUS
228 CLA IAC RTR
229 CLSA
230 CLA CLL
231 JMP UPDATE
232INTBUS, KSF
233 JMP .+5
234 KCC
235 TAD GAMOVR
236 SZA CLA
237 JMP RESTRT
238/ TCF
239 ISZ INTGLH
240 SKP
241 HLT
242INTRET, CLA CLL
243 TAD INTLNK
244 RAL
245 TAD INTACC
246 ION
247 JMP I 0
248INTACC, 0
249INTLNK, 0
250INTGLH, 0
251 *400
252ONEUP, TAD ONEFLG
253 SNA
254 JMP ONEOK
255 IAC
256 SNA
257 TAD ONEFIN
258 DCA ONEFLG
259 JMP I ITWOUP
260ONEOK, TAD ONEOUT
261 SZA CLA
262 JMP ONEFIG
263 TAD TWOFIN
264 SZA CLA
265 JMS I ONEWN
266 TAD INTWRD
267 AND OP300
268 TAD OM300
269 SZA CLA
270 JMP ONELEF
271 CMA
272 JMP I HYPER
273ONELEF, TAD INTWRD
274 AND P200
275 SNA CLA
276 JMP ONERYT
277 CLA CLL CMA
278 JMP ONEFIG
279ONERYT, TAD INTWRD
280 AND P100
281 SZA CLA
282 IAC
283ONEFIG, TAD ONETHE
284 JMS I THEADJ
285 DCA ONETHE
286 TAD ONETHE
287 JMS I SINE
288 DCA ONESIN
289 TAD ONETHE
290 JMS I COSINE
291 DCA ONECOS
292 TAD ONEOUT
293 SZA CLA
294 JMP ONEVEL
295ONEMOV, TAD ACCFLG
296 SZA CLA
297 JMP ONEVEL
298 TAD INTWRD
299 AND P40
300 SNA CLA
301 JMP ONEVEL
302 TAD ONECOS
303 TAD ONEVEY
304 JMS I VEESCL
305 DCA ONEVEY
306 TAD ONESIN
307 TAD ONEVEX
308 JMS I VEESCL
309 DCA ONEVEX
310ONEVEL, TAD ONEVEX
311 JMS I ISHFT
312 JMS I ISHFT
313 TAD ONEPEX
314 DCA ONEPEX
315 TAD ONEVEY
316 JMS I ISHFT
317 JMS I ISHFT
318 TAD ONEPEY
319 DCA ONEPEY
320 TAD ONEOUT
321 SZA CLA
322 JMP I ITWOUP
323ONELNC, TAD LNC1FG
324 SNA CLA
325 JMP .+3
326 ISZ LNC1FG
327 JMP I ITWOUP
328 TAD INTWRD
329 AND P20
330 SNA CLA
331 JMP I ITWOUP
332
333 TAD PROLIF
334 DCA I AUTO16
335 TAD ONEVEX
336 JMS I ISHFT
337 JMS I RSHIFT
338 TAD ONESIN
339 JMS I RSHIFT
340 DCA I AUTO16
341 TAD ONESIN
342 CLL RTL
343 TAD ONEPEX
344 DCA I AUTO16
345 TAD ONEVEY
346 JMS I ISHFT
347 JMS I RSHIFT
348 TAD ONECOS
349 JMS I RSHIFT
350 DCA I AUTO16
351 TAD ONECOS
352 CLL RTL
353 TAD ONEPEY
354 DCA I AUTO16
355 TAD M200
356 DCA LNC1FG
357 JMS I RESET1
358 JMP I .+1
359ITWOUP, TWOUP
360LNC1FG, 0
361OP300, 300
362OM300, -300
363ONEWN, ONEWIN
364 *600
365TWOUP, TAD TWOFLG
366 SNA
367 JMP TWOOK
368 IAC
369 SNA
370 TAD TWOFIN
371 DCA TWOFLG
372 JMP I IONEST
373TWOOK, TAD TWOOUT
374 SZA CLA
375 JMP TWOFIG
376 TAD ONEFIN
377 SZA CLA
378 JMS I TWOWN
379 TAD INTWRD
380 AND OP14
381 TAD OM14
382 SNA CLA
383 JMP I HYPER
384
385TWOLEF, TAD INTWRD
386 AND P10
387 SNA CLA
388 JMP TWORYT
389 CLA CLL CMA
390 JMP TWOFIG
391TWORYT, CLA CLL IAC RTL
392 AND INTWRD
393 SZA CLA
394 IAC
395TWOFIG, TAD TWOTHE
396 JMS I THEADJ
397 DCA TWOTHE
398 TAD TWOTHE
399 JMS I SINE
400 DCA TWOSIN
401 TAD TWOTHE
402 JMS I COSINE
403 DCA TWOCOS
404 TAD TWOOUT
405 SZA CLA
406 JMP TWOVEL
407TWOMOV, TAD ACCFLG
408 SZA CLA
409 JMP TWOVEL
410 CLL IAC RAL
411 AND INTWRD
412 SNA CLA
413 JMP TWOVEL
414 TAD TWOSIN
415 TAD TWOVEX
416 JMS I VEESCL
417 DCA TWOVEX
418 TAD TWOCOS
419 TAD TWOVEY
420 JMS I VEESCL
421 DCA TWOVEY
422TWOVEL, TAD TWOVEX
423 JMS I ISHFT /COMPONENTS
424 JMS I ISHFT
425 TAD TWOPEX
426 DCA TWOPEX
427 TAD TWOVEY
428 JMS I ISHFT
429 JMS I ISHFT
430 TAD TWOPEY
431 DCA TWOPEY
432 TAD TWOOUT
433 SZA CLA
434 JMP I IONEST
435TWOLNC, TAD LNC2FG
436 SNA CLA
437 JMP .+3
438 ISZ LNC2FG
439 JMP I IONEST
440 IAC
441 AND INTWRD
442 SNA CLA
443 JMP I IONEST
444 TAD PROLIF
445 DCA I AUTO16
446 TAD TWOVEX
447 JMS I ISHFT
448 JMS I RSHIFT
449 TAD TWOSIN
450 JMS I RSHIFT
451 DCA I AUTO16
452 TAD TWOSIN
453 CLL RTL
454 TAD TWOPEX
455 DCA I AUTO16
456 TAD TWOVEY
457 JMS I ISHFT
458 JMS I RSHIFT
459 TAD TWOCOS
460 JMS I RSHIFT
461 DCA I AUTO16
462 TAD TWOCOS
463 CLL RTL
464 TAD TWOPEY
465 DCA I AUTO16
466 TAD M200
467 DCA LNC2FG
468 JMS I RESET1
469 JMP I .+1
470IONEST, ONESET
471LNC2FG, 0
472OP14, 14
473OM14, -14
474TWOWN, TWOWIN
475 *1000
476ONESET, CLA CLL
477 TAD ONEFLG
478 SZA CLA
479 JMP I ITWOST
480 TAD ONESIN
481 DCA CALSIN
482 TAD ONECOS
483 DCA CALCOS
484 JMS I CALPOS
485 TAD ONEFIL
486 DCA AUTO10
487 TAD ONEPEX
488 TAD T30SIN
489 DCA I AUTO10
490 TAD ONEPEY
491 TAD T30COS
492 DCA I AUTO10
493 TAD T10COS
494 CIA
495 TAD ONEPEX
496 DCA I AUTO10
497 TAD T10SIN
498 TAD ONEPEY
499 DCA I AUTO10
500 TAD T30SIN
501 TAD T30COS
502 CIA
503 TAD ONEPEX
504 DCA I AUTO10
505 TAD T30COS
506 CIA
507 TAD T30SIN
508 TAD ONEPEY
509 DCA I AUTO10
510 TAD T10SIN
511 CIA
512 TAD ONEPEX
513 DCA I AUTO10
514 TAD T10COS
515 CIA
516 TAD ONEPEY
517 DCA I AUTO10
518FLAM1, TAD INTWRD
519 AND P40
520 SNA CLA
521 JMP ONECON
522 TAD ONEOUT
523 SZA CLA
524 JMP ONECON
525 TAD ONFG1
526 SNA
527 CLA CLL CMA RAL
528 DCA ONFG1
529 ISZ ONFG1
530 JMP ONECON
531 TAD ONFG2
532 CMA
533 DCA ONFG2
534 TAD ONFG2
535 SNA CLA
536 TAD T10SIN
537 TAD T30SIN
538 CIA
539 TAD ONEPEX
540 DCA I AUTO10
541 TAD ONFG2
542 SNA CLA
543 TAD T10COS
544 TAD T30COS
545 CIA
546 TAD ONEPEY
547 DCA I AUTO10
548 TAD T10SIN
549 CIA
550 TAD ONEPEX
551 DCA I AUTO10
552 TAD T10COS
553 CIA
554 TAD ONEPEY
555 DCA I AUTO10
556 CLA CLL CMA RAL
557ONECON, TAD M6
558 DCA ONECNT
559 TAD T30SIN
560 CIA
561 TAD T30COS
562 TAD ONEPEX
563 DCA I AUTO10
564 TAD T30SIN
565 TAD T30COS
566 CIA
567 TAD ONEPEY
568 DCA I AUTO10
569 TAD T10COS
570 TAD ONEPEX
571 DCA I AUTO10
572 TAD T10SIN
573 CIA
574 TAD ONEPEY
575 DCA I AUTO10
576 TAD T30SIN
577 TAD ONEPEX
578 DCA I AUTO10
579 TAD T30COS
580 TAD ONEPEY
581 DCA I AUTO10
582 JMP I ITWOST
583ITWOST, TWOSET
584ONFG1, 0
585ONFG2, 0
586 *1200
587TWOSET, CLA CLL
588 TAD TWOFLG
589 SZA CLA
590 JMP I IFILDS
591 TAD TWOSIN
592 DCA CALSIN
593 TAD TWOCOS
594 DCA CALCOS
595 JMS I CALPOS
596 TAD TWOFIL
597 DCA AUTO10
598 TAD T30SIN
599 TAD TWOPEX
600 DCA I AUTO10
601 TAD T30COS
602 TAD TWOPEY
603 DCA I AUTO10
604 TAD T20COS
605 CIA
606 TAD T20SIN
607 TAD TWOPEX
608 DCA I AUTO10
609 TAD T20SIN
610 TAD T20COS
611 TAD TWOPEY
612 DCA I AUTO10
613 TAD T20COS
614 CIA
615 TAD TWOPEX
616 DCA I AUTO10
617 TAD T20SIN
618 TAD TWOPEY
619 DCA I AUTO10
620 TAD T20COS
621 TAD T30SIN
622 CIA
623 TAD TWOPEX
624 DCA I AUTO10
625 TAD T30COS
626 CIA
627 TAD T20SIN
628 TAD TWOPEY
629 DCA I AUTO10
630 TAD T20SIN
631 CIA
632 TAD TWOPEX
633 DCA I AUTO10
634 TAD T20COS
635 CIA
636 TAD TWOPEY
637 DCA I AUTO10
638FLAM2, CLA CLL IAC RAL
639 AND INTWRD
640 SNA CLA
641 JMP TWOCON
642 TAD TWOOUT
643 SZA CLA
644 JMP TWOCON
645 TAD TWFG1
646 SNA
647 CLA CLL CMA RAL
648 DCA TWFG1
649 ISZ TWFG1
650 JMP TWOCON
651 TAD TWFG2
652 CMA
653 DCA TWFG2
654
655 TAD TWFG2
656 SNA CLA
657 TAD T20SIN
658 TAD T30SIN
659 CIA
660 TAD TWOPEX
661 DCA I AUTO10
662 TAD TWFG2
663 SNA CLA
664 TAD T20COS
665 TAD T30COS
666 CIA
667 TAD TWOPEY
668 DCA I AUTO10
669 TAD T20SIN
670 CIA
671 TAD TWOPEX
672 DCA I AUTO10
673 TAD T20COS
674 CIA
675 TAD TWOPEY
676 DCA I AUTO10
677 CLA CLL CMA RAL
678TWOCON, TAD M10
679 DCA TWOCNT
680 TAD T30SIN
681 CIA
682 TAD T20COS
683 TAD TWOPEX
684 DCA I AUTO10
685 TAD T30COS
686 TAD T20SIN
687 CIA
688 TAD TWOPEY
689 DCA I AUTO10
690 TAD T20COS
691 TAD TWOPEX
692 DCA I AUTO10
693 TAD T20SIN
694 CIA
695 TAD TWOPEY
696 DCA I AUTO10
697 TAD T20COS
698 TAD T20SIN
699 TAD TWOPEX
700 DCA I AUTO10
701 TAD T20SIN
702 CIA
703 TAD T20COS
704 TAD TWOPEY
705 DCA I AUTO10
706 TAD T30SIN
707 TAD TWOPEX
708 DCA I AUTO10
709 TAD T30COS
710 TAD TWOPEY
711 DCA I AUTO10
712 JMP I IFILDS
713IFILDS, FILDIS
714TWFG1, 0
715TWFG2, 0
716 *1400
717FILDIS, CLA CLL
718 JMS I COLIDE
719/ DSB 1
720 TAD ONEFLG
721 SZA CLA
722 JMP TWODIS
723 TAD ONEFIL
724 DCA AUTO10
725 TAD ONECNT
726 DCA AUTO11
727 TAD I AUTO10
728 DCA XONEDS
729 TAD I AUTO10
730 DCA YONEDS
731 TAD ONEOUT
732 SZA CLA
733 JMP I IONEEX
734FILONE, TAD I AUTO10
735 DCA XTWODS
736 TAD I AUTO10
737 DCA YTWODS
738 JMS I VECTOR
739 ISZ AUTO11
740 SKP
741 JMP TWODIS
742 TAD XTWODS
743 DCA XONEDS
744 TAD YTWODS
745 DCA YONEDS
746 JMP FILONE
747TWODIS, TAD TWOFLG
748 SZA CLA
749 JMP I IPRODS
750 TAD TWOFIL
751 DCA AUTO10
752 TAD TWOCNT
753 DCA AUTO11
754 TAD I AUTO10
755 DCA XONEDS
756 TAD I AUTO10
757 DCA YONEDS
758 TAD TWOOUT
759 SZA CLA
760 JMP I ITWOEX
761TWDLOP, TAD I AUTO10
762 DCA XTWODS
763 TAD I AUTO10
764 DCA YTWODS
765 JMS I VECTOR
766 ISZ AUTO11
767 JMP .+3
768 JMP I .+1
769IPRODS, PRODIS
770 TAD XTWODS
771 DCA XONEDS
772 TAD YTWODS
773 DCA YONEDS
774 JMP TWDLOP
775COLIDE, COLLID
776IONEEX, ONEEXP
777ITWOEX, TWOEXP
778DISPLY, 0
779 CLA
780 TAD XONEDS
781 CIA
782 TAD XTWODS
783 JMS DISHFT
784 DCA DIXTEM
785 TAD YONEDS
786 CIA
787 TAD YTWODS
788 JMS DISHFT
789 DCA DIYTEM
790 TAD M4
791 DCA DISCNT
792DISLOP, TAD XONEDS
793 TAD DIXTEM
794 DCA XONEDS
795 TAD YONEDS
796 TAD DIYTEM
797 DCA YONEDS
798 TAD XONEDS
799/ RTR
800 DXC DXL
801 CLA
802 TAD YONEDS
803 DYC DYL DIS
804 CLA
805 ISZ DISCNT
806 JMP DISLOP
807 JMP I DISPLY
808DISHFT, 0
809 CLL
810 SPA
811 CML IAC
812 RAR
813 CLL
814 SPA
815 CML IAC
816 RAR
817 JMP I DISHFT
818 *1600
819PRODIS, CLA CLL
820 TAD BUFST
821 DCA BUFTMP
822/ DSB 2
823PROLOP, TAD I BUFTMP
824 SNA
825 JMP EXPIRE
826 IAC
827 DCA I BUFTMP
828 ISZ BUFTMP
829 TAD I BUFTMP
830 ISZ BUFTMP
831 TAD I BUFTMP
832 DCA I BUFTMP
833 TAD I BUFTMP
834 DCA PROX
835 ISZ BUFTMP
836 TAD I BUFTMP
837 ISZ BUFTMP
838 TAD I BUFTMP
839 DCA I BUFTMP
840 TAD I BUFTMP
841 DCA PROY
842 TAD PROX
843/ RTR
844/ RAR
845 DXC DXL
846 CLA
847 TAD PROY
848/ RTR
849 DYC DYL DIS
850 CLA
851 JMS I CHKOUT
852 ISZ BUFTMP
853 TAD BUFTMP
854 TAD BUFLIM
855 SZA CLA
856 JMP PROLOP
857/ BEGIN. TURNS OUT THAT ROUGHLY 2
858FINISH, TAD GAMOVR
859 SZA CLA
860 JMP I ENDGAM
861/ TAD M400
862 CLA CLL
863 TAD INTCNT
864 CIA
865 JMP .
866ENDGAM, JOBLOP
867EXPIRE, TAD BUFTMP
868 TAD P5
869 DCA BUFTMP
870 TAD BUFTMP
871 TAD BUFLIM
872 SZA CLA
873 JMP PROLOP
874 JMP FINISH
875BUFST, DISBUF+101
876BUFLIM, -DISBUF-175
877CHKOUT, CHECK
878RESE1, 0
879 TAD MRES
880 DCA RESCNT
881RESLOP, TAD RESPNT
882 TAD P5
883 DCA RESPNT
884 TAD RESPNT
885 TAD BUFLIM
886 SZA CLA
887 JMP RESCON
888 TAD BUFST
889 DCA RESPNT
890RESCON, TAD I RESPNT
891 SNA CLA
892 JMP RESFND
893 ISZ RESCNT
894 JMP RESLOP
895 HLT
896RESFND, CMA
897 TAD RESPNT
898 DCA AUTO16
899 JMP I RESE1
900MRES, -14
901RESCNT, 0
902RESPNT, 0
903SETBUF, 0
904 CMA
905 TAD BUFST
906 DCA AUTO16
907 TAD BUFST
908 DCA BUFTMP
909 TAD BUFST
910 DCA RESPNT
911 TAD BUFST
912 DCA SETPNT
913SETLOP, DCA I SETPNT
914 ISZ SETPNT
915 TAD SETPNT
916 TAD BUFLIM
917 SZA CLA
918 JMP SETLOP
919 JMP I SETBUF
920SETPNT, 0
921 *2000
922CHECK, 0
923 TAD ONEFLG
924 SZA CLA
925 JMP CHECK2
926 TAD ONEOUT
927 SZA CLA
928 JMP CHECK2
929 TAD PROX
930 CIA
931 TAD ONEPEX
932 SPA
933 CIA
934 TAD LIMIT
935 SMA CLA
936 JMP CHECK2
937 TAD PROY
938 CIA
939 TAD ONEPEY
940 SPA
941 CIA
942 TAD LIMIT
943 SMA CLA
944 JMP CHECK2
945 TAD MEXP
946 DCA ONEOUT
947 JMS CUTOUT
948CHECK2, TAD TWOFLG
949 SZA CLA
950 JMP I CHECK
951 TAD TWOOUT
952 SZA CLA
953 JMP I CHECK
954 TAD PROX
955 CIA
956 TAD TWOPEX
957 SPA
958 CIA
959 TAD LIMIT
960 SMA CLA
961 JMP I CHECK
962 TAD PROY
963 CIA
964 TAD TWOPEY
965 SPA
966 CIA
967 TAD LIMIT
968 SMA CLA
969 JMP I CHECK
970 TAD MEXP
971 DCA TWOOUT
972 JMS CUTOUT
973 JMP I CHECK
974LIMIT, -120
975CUTOUT, 0
976 TAD M4
977 TAD BUFTMP
978 DCA CUTPNT
979 DCA I CUTPNT
980 JMP I CUTOUT
981CUTPNT, 0
982COLLID, 0
983 TAD ONEFLG
984 SZA CLA
985 JMP I COLLID
986 TAD TWOFLG
987 SZA CLA
988 JMP I COLLID
989 TAD ONEOUT
990 SZA CLA
991 JMP I COLLID
992 TAD TWOOUT
993 SZA CLA
994 JMP I COLLID
995 TAD ONEPEX
996 CIA
997 TAD TWOPEX
998 SPA
999 CIA
1000 TAD COLLIM
1001 SMA CLA
1002 JMP I COLLID
1003 TAD ONEPEY
1004 CIA
1005 TAD TWOPEY
1006 SPA
1007 CIA
1008 TAD COLLIM
1009 SMA CLA
1010 JMP I COLLID
1011 TAD MEXP
1012 DCA ONEOUT
1013 TAD MEXP
1014 DCA TWOOUT
1015 JMP I COLLID
1016COLLIM, -300
1017 *2200
1018HYPSET, DCA RTNFLG
1019 TAD RTNFLG
1020 SZA CLA
1021 TAD ONEDIF
1022 TAD TWOLST
1023 DCA AUTO15
1024 CLCA
1025
1026 DCA AUTO17
1027 TAD I AUTO17
1028 AND TIMOUT
1029 CIA
1030 DCA I AUTO15
1031 TAD I AUTO17
1032 JMS I THEADJ
1033 DCA I AUTO15
1034 TAD I AUTO17
1035 JMS VEESET
1036 DCA I AUTO15
1037 TAD I AUTO17
1038 JMS VEESET
1039 DCA I AUTO15
1040 TAD I AUTO17
1041 DCA I AUTO15
1042 TAD I AUTO17
1043 DCA I AUTO15
1044 TAD I AUTO17
1045 AND TIMOUT
1046 TAD MHYP /ABOUT 3
1047 SMA CLA
1048 JMP HYPRET
1049 TAD RTNFLG
1050 SZA CLA
1051 TAD ONEDIF
1052 TAD OUTLOC
1053 DCA VEESET
1054 TAD MEXP
1055 DCA I VEESET
1056HYPRET, ISZ RTNFLG
1057 JMP I TWORTN
1058 JMP I ONERTN
1059TIMOUT, 777
1060ONEDIF, ONEFLG-TWOFLG
1061TWOLST, TWOFLG-1
1062RTNFLG, 0
1063ONERTN, TWOUP
1064TWORTN, ONESET
1065OUTLOC, TWOOUT
1066MHYP, -200
1067VEESET, 0
1068 CLL
1069 SPA
1070 CML
1071 AND HM177
1072 SZL CLL
1073 CIA
1074 JMP I VEESET
1075HM177, 177
1076ONEEXP, CLA CLL
1077 TAD ONETHE
1078 TAD INCONE
1079 DCA ONETHE
1080 JMS I IXPDIS
1081 ISZ ONEOUT
1082 JMP I NOWTWO
1083 IAC
1084 DCA ONEFLG
1085 IAC
1086 DCA ONEFIN
1087 TAD TWOFIN
1088 SNA CLA
1089 JMP I NOWTWO
1090 JMP I TIEUP
1091TWOEXP, CLA CLL
1092 TAD TWOTHE
1093 TAD INCTWO
1094 DCA TWOTHE
1095 JMS I IXPDIS
1096 ISZ TWOOUT
1097 JMP I NOWPRO
1098 IAC
1099 DCA TWOFLG
1100 IAC
1101 DCA TWOFIN
1102
1103 TAD ONEFIN
1104 SZA CLA
1105 JMP I TIEUP
1106 JMP I NOWPRO
1107NOWTWO, TWODIS
1108NOWPRO, PRODIS
1109TIEUP, NOWIN
1110IXPDIS, EXPDIS
1111INCONE, 55
1112INCTWO, 55
1113 *2400
1114EXPDIS, 0
1115 TAD I AUTO10
1116 DCA XTWODS
1117 TAD I AUTO10
1118 DCA YTWODS
1119 TAD XTWODS
1120 CIA
1121 TAD XONEDS
1122 DCA DIXTEM
1123 TAD YTWODS
1124 CIA
1125 TAD YONEDS
1126 DCA DIYTEM
1127 TAD M4
1128 DCA DISCNT
1129
1130EXPLOP, TAD XONEDS
1131 TAD DIXTEM
1132 DCA XONEDS
1133 TAD YONEDS
1134 TAD DIYTEM
1135 DCA YONEDS
1136 TAD XONEDS
1137/ RTR
1138/ RAR
1139 JMS I IVCLDX
1140 CLA
1141 TAD YONEDS
1142 JMS I IVCLDY
1143 CLA
1144 ISZ DISCNT
1145 JMP EXPLOP
1146 ISZ AUTO11
1147 SKP
1148 JMP I EXPDIS
1149 TAD XTWODS
1150 DCA XONEDS
1151 TAD YTWODS
1152 DCA YONEDS
1153 JMP EXPDIS+1
1154VEELIM, 0
1155 DCA VEEHLD
1156 TAD VEEHLD
1157 SMA
1158 JMP VEEPOS
1159 TAD VEEMAX
1160 SMA CLA
1161 JMP VEECLR
1162 TAD VEEMIN
1163 JMP I VEELIM
1164VEEPOS, TAD VEEMIN
1165 SPA CLA
1166 JMP VEECLR
1167 TAD VEEMAX
1168 JMP I VEELIM
1169VEECLR, TAD VEEHLD
1170 JMP I VEELIM
1171VEEHLD, 0
1172VEEMIN, -140
1173VEEMAX, 140
1174THEAJI, 0
1175 SMA
1176 JMP .+3
1177 TAD P550
1178 JMP .-3
1179 TAD M550
1180 SMA
1181 JMP .-2
1182 TAD P550
1183 JMP I THEAJI
1184ONEWIN, 0
1185 TAD MES1
1186 DCA MESS
1187 IAC
1188 DCA GAMOVR
1189 JMP I ONEWIN
1190TWOWIN, 0
1191 TAD MES2
1192 DCA MESS
1193 IAC
1194 DCA GAMOVR
1195 JMP I TWOWIN
1196NOWIN, TAD MES4
1197 DCA MESS
1198 IAC
1199 DCA GAMOVR
1200
1201JOBLOP,
1202/ DSB 1
1203 TAD MES0
1204 JMS I MESOUT
1205 TAD MESS
1206 JMS I MESOUT
1207 TAD MES5
1208 JMS I MESOUT
1209 TAD MES3
1210 JMS I MESOUT
1211FINITO, JMP JOBLOP
1212MES0, MESS0
1213MES1, MESS1
1214MES2, MESS2
1215MES3, MESS3
1216MES4, MESS4
1217MES5, MESS5
1218MESS, 0
1219 *6400
1220SINEIN, 0
1221 DCA SINARG
1222 TAD SINEIN
1223 DCA I SINPSH
1224 ISZ SINPSH
1225 TAD SINARG
1226 SZA
1227 JMP SINNG2
1228SINPOP, CLA CLL CMA
1229 TAD SINPSH
1230 DCA SINPSH
1231 TAD I SINPSH
1232 DCA SINEIN
1233 TAD SINARG
1234 JMP I SINEIN
1235SINNG2, SMA
1236 JMP SINPOS
1237 CIA
1238 JMS SINEIN
1239SINNEG, CIA
1240 DCA SINARG
1241 JMP SINPOP
1242SINPOS, TAD M264
1243 SPA
1244 JMP .+2
1245 JMP SINNEG-1
1246 TAD P132
1247 SPA
1248 JMP SINELK
1249 SZA CLA
1250 JMP .+3
1251 TAD P37
1252 JMP SINNEG+1
1253 TAD SINARG
1254 TAD M264
1255 JMP SINNEG-1
1256SINELK, TAD P132
1257 TAD SINTAB
1258 DCA SINEIN
1259 TAD I SINEIN
1260 DCA SINARG
1261 JMP SINPOP
1262SINARG, 0
1263SINPSH, SINLST
1264SINLST, 0
1265 0
1266 0
1267 0
1268 0
1269 0
1270SINTAB, SINES-1
1271COSINI, 0
1272 CIA
1273 TAD P132
1274 JMS SINEIN
1275 JMP I COSINI
1276SINES, 00
1277 01
1278 01
1279 02
1280 02
1281 03
1282 03
1283 04
1284 05
1285 05
1286 06
1287 06
1288 07
1289 07
1290 10
1291 10
1292 11
1293 11
1294 12
1295 12
1296 13
1297 13
1298 14
1299 15
1300 15
1301 16
1302 16
1303 17
1304 17
1305 20
1306 20
1307 20
1308 21
1309 21
1310 22
1311 22
1312 23
1313 23
1314 24
1315 24
1316 25
1317 25
1318 25
1319 26
1320 26
1321 27
1322 27
1323 27
1324 30
1325 30
1326 30
1327 31
1328 31
1329 31
1330 32
1331 32
1332 32
1333 33
1334 33
1335 33
1336 33
1337 34
1338 34
1339 34
1340 35
1341 35
1342 35
1343 35
1344 35
1345 36
1346 36
1347 36
1348 36
1349 36
1350 36
1351 37
1352 37
1353 37
1354 37
1355 37
1356 37
1357 37
1358 37
1359 37
1360 37
1361 37
1362 37
1363 37
1364 37
1365MULTI, 0
1366 CLL
1367 SPA
1368 CMA CML IAC
1369 DCA MULMP1
1370 DCA MULMP5
1371 TAD I MULTI
1372 SNA
1373 JMP MULPSN+2
1374 SPA
1375 CMA CML IAC
1376 DCA MULMP2
1377 TAD MULTHR
1378 DCA MULMP3
1379MULMP4, TAD MULMP1
1380 RAR
1381 DCA MULMP1
1382 TAD MULMP5
1383 SZL
1384 TAD MULMP2
1385 CLL RAR
1386 DCA MULMP5
1387 ISZ MULMP3
1388 JMP MULMP4
1389 TAD MULMP1
1390 RAR
1391MULPSN, SZL
1392 JMP MULCMP
1393 DCA MULMP1
1394 TAD MULMP5
1395MULMPZ, ISZ MULTI
1396 JMP I MULTI
1397MULCMP, CMA CLL IAC
1398 DCA MULMP1
1399 TAD MULMP5
1400 CMA
1401 SZL
1402 IAC
1403 JMP MULMPZ
1404MULTHR, 7764
1405MULMP1, 0
1406MULMP5, 0
1407MULMP2, 0
1408MULMP3, 0
1409SHIFTR, 0
1410 CLL
1411 SPA
1412 CML IAC
1413 RAR
1414 JMP I SHIFTR
1415POSCAL, 0
1416 TAD CALSIN
1417 DCA T10SIN
1418 TAD T10SIN
1419 CLL RAL
1420 DCA T20SIN
1421 TAD T10SIN
1422 TAD T20SIN
1423 DCA T30SIN
1424 TAD CALCOS
1425 DCA T10COS
1426 TAD T10COS
1427 CLL RAL
1428 DCA T20COS
1429 TAD T10COS
1430 TAD T20COS
1431 DCA T30COS
1432 JMP I POSCAL
1433VDIV, 0
1434 SMA
1435 JMP VPLUS
1436VMINUS, CMA IAC
1437 RTR
1438 AND P1777
1439 CMA IAC
1440 JMP I VDIV
1441VPLUS, RTR
1442 AND P1777
1443 JMP I VDIV
1444VCLDX, 0
1445 JMS VDIV
1446 DISD
1447 JMP .-1
1448 DIXY
1449 DILX
1450 JMP I VCLDX
1451VCLDY, 0
1452 JMS VDIV
1453 DILY
1454 JMP I VCLDY
1455P1777, 1777
1456 *7000
1457CHARS, 0
1458 DCA ADDR
1459 TAD I ADDR
1460 RTR
1461 RTR
1462 RTR
1463 JMS CHAR
1464 SKP
1465 JMP I CHARS
1466 TAD I ADDR
1467 ISZ ADDR
1468 JMS CHAR
1469 JMP CHARS+2
1470 JMP I CHARS
1471CHAR, 0
1472 AND K77
1473 CLL RAL
1474 TAD TABLE
1475 DCA POINT
1476 CMA
1477 DCA COUNT2
1478 TAD I POINT
1479 ISZ POINT
1480 SNA
1481 JMP SPCHAR
1482 DCA CURPLT
1483XPLOT, TAD KM6
1484 DCA COUNT6
1485 TAD YVALUE
1486 DCA YTEMP
1487 TAD XVALUE
1488 DILX
1489 TAD XINCR
1490 DCA XVALUE
1491YPLOT, TAD CURPLT
1492 CLL RAL
1493 DCA CURPLT
1494 SNL
1495 JMP CNTINU
1496 TAD YTEMP
1497 DILY
1498 DISD
1499 JMP .-1
1500 DIXY
1501 CLA CLL
1502 TAD CURPLT
1503 SNA CLA
1504 JMP WRDEND
1505CNTINU, TAD YTEMP
1506 TAD YINCR
1507 DCA YTEMP
1508 ISZ COUNT6
1509 JMP YPLOT
1510 JMP XPLOT
1511WRDEND, ISZ COUNT2
1512 JMP EXIT
1513 TAD I POINT
1514 SZA
1515 JMP XPLOT-1
1516EXIT, TAD XVALUE
1517 TAD XINCR
1518 DCA XVALUE
1519 JMP I CHAR
1520SPCHAR, TAD I POINT
1521 DCA POINT
1522 JMP I POINT
1523SPACE, TAD XINCR
1524 CLL RTL
1525 JMP EXIT
1526CRLF, TAD INITX
1527 DCA XVALUE
1528LF, TAD YINCR
1529 CLL RTL
1530 CLL CIA RAL
1531 TAD YVALUE
1532 DCA YVALUE
1533 JMP I CHAR
1534RESET, TAD INITX
1535 DCA XVALUE
1536 TAD INITY
1537 JMP RESET-2
1538TERM, ISZ CHAR
1539 JMP I CHAR
1540INITX, 0
1541INITY, 327
1542XVALUE, 0
1543YVALUE, 0
1544XINCR, 6
1545YINCR, 10
1546YTEMP, 0
1547CURPLT, 0
1548ADDR, 0
1549COUNT6, 0
1550COUNT2, 0
1551KM6, -6
1552K77, 77
1553POINT, 0
1554TABLE, .+1
1555 0
1556 TERM
1557 7611
1558 1176
1559 7745
1560 4532
1561 3641
1562 4122
1563 7741
1564 4136
1565 7745
1566 4541
1567 7705
1568 501
1569 7741
1570 5173
1571 7710
1572 1077
1573 4177
1574 4100
1575 2040
1576 4037
1577 7714
1578 2241
1579 7740
1580 4040
1581 7702
1582 277
1583 7706
1584 3077
1585 7741
1586 4177
1587 7705
1588 502
1589 3641
1590 6176
1591 7715
1592 2542
1593 2245
1594 5122
1595 177
1596 100
1597 3740
1598 4037
1599 1720
1600 4037
1601 7730
1602 3077
1603 4136
1604 3641
1605 374
1606 7403
1607 6151
1608 4543
1609 7741
1610 0
1611 204
1612 1020
1613 4177
1614 0
1615 436
1616 400
1617 0
1618 RESET
1619 0
1620 SPACE
1621 5600
1622 0
1623 303
1624 0
1625 1477
1626 7714
1627 2277
1628 2200
1629 2313
1630 6462
1631 7777
1632 7777
1633 300
1634 0
1635 3641
1636 0
1637 4136
1638 0
1639 4040
1640 4040
1641 1034
1642 1000
1643 0
1644 LF
1645 1010
1646 1000
1647 4000
1648 0
1649 2010 /
1650 402
1651 3641
1652 4136
1653 4442
1654 7740
1655 4261
1656 5146
1657 2145
1658 5321
1659 1710
1660 1077
1661 4745
1662 4531
1663 7750
1664 5070
1665 6111
1666 503
1667 2255
1668 5522
1669 705
1670 577
1671 2400
1672 0
1673 0
1674 CRLF
1675 1024
1676 4200
1677 1212
1678 1200
1679 4224
1680 1000
1681 255
1682 300
1683MESS0, 3773
1684MESS5, 7340
1685 4040
1686 4040
1687 4000
1688MESS1, 1716
1689 0500
1690MESS2, 2427
1691 1700
1692MESS3, 2711
1693 1623
1694 4100
1695MESS4, 1617
1696 0217
1697 0431
1698 0000
1699 *7400
1700DISBUF, 0
1701 $
1702///////////////////////////
1703//////////////////////////