Elliott 903 Algol Interpreter - Annotated Source Code
The original source was in the form of a series of reels ("volumes") of
paper tape punched in Elliott 903 telecode, which for the purpose herein is
identical to 7 bit ASCII with parity.
A number of helpful "21st Century" comments have been added to the original
to aid understanding. These are indicated by the form ([....]) and include
links to images of the original type-written documentation and hand-drawn
flowcharts.
The original source code can be viewed
here.
This HTML listing has added line numbers and hot links for all references to
labels
(global and local).
You can hover and click on a reference in code such as CODL in
4 CODL+1
and jump to the defintion of the label CODL.
When you have seen enough of it, you can use the back button to carry on
where you left off.
1
2 ([VOLUME 1])
3 *+8
4 (903 ALGOL INTERPRETER 29-11-67)
5
6 ^+8
7 [OTCHA GECHAR GECHEN GECH OTCHA1 OTCHA2
8 TABLE ALRMCH HALTCH FAILEN PAUSRT BUFFER
9 NEXTCH PCHLNK IDEV ODEV INSLOT OUTSLT
10 SBLNK HALTMK SBW4 SBW3 SBW W3 W4 FLNS14 FLNS15
11 WS SBW5 LFCH OUTPA INPADLDIV FPA DLMULT
12 READAL SP NXPORD SERIES]
13 8 READAL
14 8 HALTCH+5
15 8 EXECUT
16 8 7775
17 8 READLB
18 8 READOL
19 8 HALTCH+13
20 8 ;+0
21 8 ;+0
22 8 ;+0
23 8 ;+0
24 8 ;+0
25 0 ;+1
26 8 ;+0
27 8 ;+0
28 8 ;+0
29 8 ;+0
30 8 ;+0
31
32 STKMOD +0 ([Description])
33 STKEND +8177 ([Description])
34 WARNAD +7350 ([Description])
35 PDADD +0 ([Description])
36 STACKADD +0 ([Description])
37
38
39 8 ;+0
40 >+99
41 BASE +3960 ([Description])
42 +8191
43 +8191
44 WARN +1 ([Description])
45 PP +0 ([Description])
46 SP +0 ([Description])
47 EP +0 ([Description])
48 FP +0 ([Description])
49 BN +0 ([Description])
50 0 PBA
51
52 0 PRIM31
53 0 PRIM33
54 0 PRIM35
55 0 PRIM37
56 0 PRIM59
57 0 DLMULT
58 0 DLDIV
59 0 RRES
60 0 SERIES
61 0 STAND
62 0 TABLE
63 0 OTCHA
64 8 GECH
65 0 OSTSB
66 -1
67 STIM -1
68 0 SBLNK1
69 8 RICONV
70 -1
71 -1
72 -1
73 -1
74 -1
75 -1
76
77 PAUSRT 0 STOP
78 8 FAILEN
79 SBLNK2 +0
80 0 ODEV
81 0 GLOPMD
82 IOLNK +0
83 0 OUTI
84 0 OUTR
85 NEXTCH +0
86 0 STSUBRT
87 -1
88 +0
89 +0
90 +0
91 +0
92
93 W +74
94 W1
95 TENPWR +0
96 W2
97 NSIGNF +0
98 FPA
99 W3 +0
100 W4 +0
101 W5 +0
102 FPB
103 W6 +0
104 W7
105 BEFPT +0
106 W8
107 AFTPT +0
108 W9
109 DECPWR +0
110
111 WS +0
112 WS1 +0
113 WS2 +0
114 WS3 +0
115 WS4 +0
116 WS5 +0
117 WS6 +0
118 WS7 +0
119 WS8 +0
120 ODEV
121 WS9 +0
122 DIGM
123 WS10 +0
124 DIGN
125 WS11 +0
126 OPMD
127 WS12 +0
128 PKDADD
129 WS13 +0
130 UNPACKED
131 WS14 +0
132 WS15 +0
133 WS16 +0
134 WS17 +0
135 WS18 +0
136 WS19 +0
137 WS20 +0
138 WS21 +0
139 WS22 +0
140 WS23 +0
141 WS24 +0
142 WS25 +0
143 WS26 +0
144 +0
145 WS28 +0
146 WS29 +0
147 WS30 +0
148 +0
149 WS32 +0
150 WS33 +0
151 SBW +0
152 NXPDAD 0 NXPORD
153 +0
154 +0
155 +0
156
157 PCHLNK +0
158 +0
159 BUFFER >+10
160 INSLOT >+10
161 OUTSLT
162 0 OUTPA+4
163 0 OUTPA+4
164 0 OUTPA+2
165 0 OUTPA+4
166 0 OUTPA+4
167 0 OUTPA+4
168 0 OUTPA+4
169 0 OUTPA+4
170 0 OUTPA+4
171 0 OUTPA+4
172
173 COUNT +0
174 N +0
175 MKR7 +0
176 SINGLE +0 ([Description])
177 0 W
178 /4 0
179 5 W3
180 /4 1
181 5 W4
182 /4 2
183 5 W5
184 0 SINGLE
185 /8 1
186 FAIL +0 ([Description])
187 11 PAUSRT
188 8 FAILEN
189 4 W3
190 9 ;+9
191 4 =15 8191
192 5 W3
193 4 &377600
194 5 W4
195 4 +63
196 5 W5
197 0 FAIL
198 /8 1
199 4 =/0 0
200 5 W3
201 4 +0
202 8 ;-8
203
204 RSTACK +0 ([Description])
205 0 W
206 /4 0
207 5 W3
208 /4 1
209 5 W4
210 /4 2
211 5 W5
212 /4 3
213 5 W6
214 /4 4
215 5 W7
216 /4 5
217 5 W8
218 0 RSTACK
219 /8 1
220
221 RRES +0 ([Description])
222 0 W
223 4 W3
224 /5 0
225 4 W4
226 /5 1
227 4 W5
228 /5 2
229 0 RRES
230 /8 1
231 PRIM30 +0 ([Description, Specification])
232 0 W
233 /4 0
234 9 ;+8
235 /4 3
236 9 ;+8
237 /1 0
238 9 ;+10
239 /5 0
240 0 PRIM30
241 /8 1
242 /4 3
243 9 ;+3
244 /1 0
245 8 ;-6
246 /1 0
247 9 ;-8
248 8 INTOVR
249
250 PRIM32 +0 ([Description, Specification])
251 0 W
252 /4 3
253 2 +0
254 /5 3
255 1 =/0 0
256 7 ;+4
257 4 PRIM32
258 5 PRIM30
259 8 PRIM30+2
260
261 /4 0
262 9 ;+2
263 8 PRIM30+17
264 /1 3
265 /5 0
266 0 PRIM32
267 /8 1
268
269 PRIM34 +0 ([Description, Specification])
270 0 W
271 /4 0
272 /12 3
273 3 WS1
274 7 ;+4
275 1 +1
276 7 ;+6
277 8 PRIM30+17
278 4 WS1
279 /5 0
280 0 PRIM34
281 /8 1
282 4 WS1
283 1 =/0 0
284 8 ;-5
285
286 PRIM38 +0 ([Description, Specification])
287 0 W
288 /4 0
289 7 ;+23
290 5 WS1
291 /4 3
292 9 SPARE
293 7 ;+21
294 2 +0
295 5 COUNT
296 CALC 10 COUNT
297 4 COUNT
298 7 ;+12
299 4 WS1
300 /12 0
301 3 WS1
302 7 CALC
303 1 +1
304 7 ;+2
305 8 INTOVR
306 4 WS1
307 1 =/0 0
308 5 WS1
309 8 CALC
310 4 WS1
311 /5 0
312 0 PRIM38
313 /8 1
314 4 +1
315 8 ;-4
316
317 SET +0 ([Description])
318 4 +0
319 0 W
320 /5 0
321 0 SET
322 /8 2
323 4 +1
324 8 ;-5
325
326 PRIM41 +0 ([Description, Specification])
327 0 W
328 /4 3
329 /2 0
330 11 SET
331 9 SET+6
332 8 SET+1
333 0 PRIM41
334 /8 1
335
336 PRIM43 +0 ([Description, Specification])
337 0 W
338 /4 0
339 /2 3
340 11 SET
341 9 SET+1
342 8 SET+6
343 0 PRIM43
344 /8 1
345
346 PRIM45 +0 ([Description, Specification])
347 0 W
348 /4 0
349 /2 3
350 11 SET
351 7 SET+6
352 8 SET+1
353 0 PRIM45
354 /8 1
355
356 PRIM47 +0 ([Description, Specification])
357 0 W
358 /4 0
359 /2 3
360 11 SET
361 7 SET+1
362 8 SET+6
363 0 PRIM47
364 /8 1
365
366 PRIM49 +0 ([Description, Specification])
367 0 W
368 /4 0
369 /2 3
370 11 SET
371 9 SET+6
372 8 SET+1
373 0 PRIM49
374 /8 1
375
376 PRIM51 +0 ([Description, Specification])
377 0 W
378 /4 3
379 /2 0
380 11 SET
381 9 SET+1
382 8 SET+6
383 0 PRIM51
384 /8 1
385
386 SBLNK ([Description])
387 STAND +0 ([Description])
388 4 +0
389 5 SBW
390 4 W3
391 7 STAND3
392 9 STAND4
393 STAND1 14 1
394 9 STAND2
395 10 SBW
396 8 STAND1
397 STAND7 4 +0
398 5 W3
399 5 W4
400 STAND5 5 W5
401 8 STAND6
402 STAND3 4 +17
403 5 SBW
404 4 W4
405 7 STAND5
406 8 STAND1
407
408 STAND4 1 +1
409 7 ;+3
410 4 W3
411 8 ;+5
412 4 +16
413 5 SBW
414 4 W4
415 10 SBW
416 14 1
417 9 ;-2
418 STAND2 4 SBW
419 SHIFTD 5 SBW
420 2 W5
421 5 W5
422 1 +64
423 9 STAND7
424 1 -128
425 9 ;+5
426 4 SBLNK
427 5 FAIL
428 4 +9
429 8 FAIL+1
430 4 SBW
431 7 STAND6
432 6 +8191
433 1 SHFT1
434 5 SHIFTN
435 0 W4
436 14 1
437 4 W3
438
439 SHIFTN +0
440 3 W4
441 5 W3
442 STAND6 0 SBLNK
443 /8 1
444 SHFT1 14 0
445 SHIFT1 +0 ([Description])
446 0 W4
447 14 1
448 4 W3
449 14 8191
450 5 W3
451 3 W4
452 0 W7
453 14 1
454 4 W6
455 14 8191
456 5 W6
457 3 W7
458 10 W5
459 10 W8
460 0 SHIFT1
461 /8 1
462
463 PRIM31 +0 ([Description, Specification])
464 11 RSTACK
465 8 RSTACK+1
466 4 W3
467 7 EXTRAT
468 4 W6
469 7 EXIT31+2
470 11 SHIFT1
471 8 SHIFT1+1
472 4 W5
473 2 W8
474 9 NEG5
475 2 +0
476 1 =15 0
477 6 =14 8191
478 5 ;+6
479 4 W8
480 5 W5
481 0 W4
482 14 1
483 4 W3
484 +0
485 3 W4
486 1 W6
487 5 W3
488 4 W4
489 1 W7
490 9 ;+8
491 5 W4
492 EXIT31 11 STAND
493 8 STAND+1
494 11 RRES
495 8 RRES+1
496 0 PRIM31
497 /8 1
498 6 =15 8191
499 10 W3
500 8 ;-9
501 NEG5 6 =14 8191
502 5 ;+4
503 0 W7
504 14 1
505 4 W6
506 +0
507 3 W7
508 1 W3
509 5 W3
510 4 W7
511 1 W4
512 9 ;+2
513 8 EXIT31-1
514 10 W3
515 6 =15 8191
516 8 EXIT31-1
517
518 EXTRAT 4 W6
519 5 W3
520 4 W7
521 5 W4
522 4 W8
523 5 W5
524 8 EXIT31
525
526 PRIM33 +0 ([Description, Specification])
527 11 RSTACK
528 8 RSTACK+1
529 4 W6
530 9 ;+16
531 4 W7
532 7 ;+11
533 2 +0
534 6 =15 8191
535 5 W7
536 4 W6
537 2 +0
538 1 =/15 8191
539 5 W6
540 4 PRIM33
541 5 PRIM31
542 8 PRIM31+3
543 4 W6
544 2 +0
545 8 ;-6
546 1 =/0 0
547 7 ;+2
548 8 ;-17
549 4 W7
550 7 ;+2
551 8 ;-18
552 4 =8 0
553 10 W8
554 8 ;-15
555
556 DLMULT +0 ([Description])
557 4 W6
558 12 W3
559 5 WS10
560 3 WS11
561 4 W7
562 12 W3
563 14 8175
564 3 WS12
565 1 WS10
566 5 W3
567 4 WS11
568 1 WS12
569 9 ;+19
570 5 WS11
571 4 W6
572 12 W4
573
574 ([VOLUME2])
575
576 14 8175
577 3 WS12
578 1 W3
579 5 W3
580 4 WS12
581 1 WS11
582 9 ;+6
583 5 W4
584 7 ;+10
585 4 W3
586 0 DLMULT
587 /8 1
588 6 =15 8191
589 10 W3
590 8 ;-7
591 6 =15 8191
592 10 W3
593 8 DLMULT+14
594 4 W3
595 1 =/0 0
596 7 ;+2
597 8 ;-12
598 4 =15 8191
599 5 W3
600 5 W4
601 8 ;-15
602
603 PRIM35 +0 ([Description, Specification])
604 11 RSTACK
605 8 RSTACK+1
606 4 W5
607 1 W8
608 5 W5
609 11 DLMULT
610 8 DLMULT+1
611 11 STAND
612 8 STAND+1
613 11 RRES
614 8 RRES+1
615 0 PRIM35
616 /8 1
617
618 PRIM37 +0 ([Description, Specification])
619 11 RSTACK
620 8 RSTACK+1
621 0 W4
622 14 1
623 4 W3
624 14 8191
625 3 W4
626 5 W3
627 7 ;+16
628 10 W5
629 4 W6
630 7 ;+15
631 5 WS17
632 4 W7
633 5 WS18
634 11 DLDIV
635 8 DLDIV+1
636 4 W8
637 2 W5
638 5 W5
639 11 STAND
640 8 STAND+1
641
642 EXIT37 11 RRES
643 8 RRES+1
644 0 PRIM37
645 /8 1
646 4 +9
647 11 FAIL
648 8 FAIL+1
649 8 EXIT37
650
651 PRIM42 +0 ([Description, Specification])
652 11 PRIM33
653 8 PRIM33+1
654 4 W3
655 11 SET
656 9 SET+6
657 8 SET+1
658 0 PRIM42
659 /8 1
660
661 PRIM44 +0 ([Description])
662 11 PRIM33
663 8 PRIM33+1
664 4 W3
665 11 SET
666 9 SET+6
667 8 ;+3
668 0 PRIM44
669 /8 1
670 7 SET+6
671 8 SET+1
672
673 PRIM46 +0 ([Description, Specification])
674 11 PRIM33
675 8 PRIM33+1
676 4 W3
677 11 SET
678 7 SET+6
679 8 SET+1
680 0 PRIM46
681 /8 1
682
683 PRIM48 +0 ([Description, Specification])
684 11 PRIM33
685 8 PRIM33+1
686 4 W3
687 11 SET
688 7 SET+1
689 8 SET+6
690 0 PRIM48
691 /8 1
692
693 PRIM50 +0 ([Description, Specification])
694 11 PRIM33
695 8 PRIM33+1
696 4 W3
697 11 SET
698 9 SET+1
699 8 ;+3
700 0 PRIM50
701 /8 1
702 7 SET+1
703 8 SET+6
704
705 PRIM52 +0 ([Description, Specification])
706 11 PRIM33
707 8 PRIM33+1
708 4 W3
709 11 SET
710 9 SET+1
711 8 SET+6
712 0 PRIM52
713 /8 1
714
715 ITOR +0 ([Description])
716 0 W
717 /4 3
718 5 W3
719 4 +0
720 5 W4
721 4 +17
722 5 W5
723 11 STAND
724 8 STAND+1
725 4 W3
726 5 W6
727 4 W4
728 5 W7
729 4 W5
730 5 W8
731 0 W
732 /4 0
733 5 W3
734 4 +0
735 5 W4
736 4 +17
737 5 W5
738 11 STAND
739 8 STAND+1
740 11 RRES
741 8 RRES+1
742 0 ITOR
743 /8 1
744
745 PRIM53 +0 ([Description, Specification])
746 0 W
747 /4 0
748 7 ;+2
749 /4 3
750 11 SET
751 7 SET+1
752 8 SET+6
753 0 PRIM53
754 /8 1
755
756 PRIM54 +0 ([Description, Specification])
757 0 W
758 /4 0
759 11 SET
760 7 ;+4
761 8 SET+6
762 0 PRIM54
763 /8 1
764 /4 3
765 7 SET+1
766 8 SET+6
767
768 PRIM55 +0 ([Description, Specification])
769 0 W
770 /4 0
771 7 ;+7
772 /4 3
773 11 SET
774 7 SET+1
775 8 SET+6
776
777 0 PRIM55
778 /8 1
779 /4 3
780 11 SET
781 7 SET+6
782 8 SET+1
783 8 ;-6
784
785 PRIM56 +0 ([Description, Specification])
786 0 W
787 /4 0
788 11 SET
789 7 SET+6
790 8 ;+3
791 0 PRIM56
792 /8 1
793 /4 3
794 7 SET+1
795 8 SET+6
796
797 PRIM57 +0 ([Description, Specification])
798 0 W
799 /4 0
800 11 SET
801 7 SET+6
802 8 SET+1
803 0 PRIM57
804 /8 1
805
806 PRIM40 +0 ([Description, Specification])
807 11 RSTACK
808 8 RSTACK+1
809 4 W3
810 9 ;+23
811 7 ;+20
812 4 W6
813 7 ;+28
814 5 WS5
815 4 W7
816 5 WS6
817 4 W8
818 5 WS7
819 11 PRIM61
820 8 PRIM61+3
821 4 WS5
822 5 W6
823 4 WS6
824 5 W7
825 4 WS7
826 5 W8
827 11 PRIM35
828 8 PRIM35+3
829 11 EXP (BLAST)
830 8 EXP+3
831 0 PRIM40
832 /8 1
833 4 +19
834 11 PAUSRT
835 8 FAILEN
836 4 +0
837 5 W3
838 5 W4
839 5 W5
840 8 ;+7
841 4 =8 0
842 5 W3
843 4 +0
844 5 W4
845 4 +1
846 5 W5
847 11 RRES
848 8 RRES+1
849 8 ;-18
850
851 PRIM36 +0 ([Description, Specification])
852 11 ITOR
853 8 ITOR+1
854 11 PRIM37
855 8 PRIM37+3
856 0 PRIM36
857 /8 1
858
859 PRIM39 +0 ([Description, Specification])
860 0 W
861 /4 0
862 7 EXTRA2+5
863 /4 3
864 9 EXTRA2
865 7 EXTRA2+11
866 2 +0
867 5 WS5
868 4 +0
869 5 MKR7
870 5 W4
871 /4 0
872 5 W3
873 4 +17
874 5 W5
875 11 STAND
876 8 STAND+1
877 4 W3
878 5 W6
879 4 W4
880 5 W7
881 4 W5
882 5 W8
883 10 WS5
884 4 WS5
885 9 ;+2
886 8 ;+4
887 11 PRIM35
888 8 PRIM35+3
889 8 ;-6
890 4 MKR7
891 9 ;+4
892 8 EXTRA2+8
893 EXIT39 0 PRIM39
894 /8 1
895
896 4 W3
897 5 W6
898 4 W4
899 5 W7
900 4 W5
901 5 W8
902 4 =8 0
903 5 W3
904 4 +0
905 5 W4
906 4 +1
907 5 W5
908 11 PRIM37
909 8 PRIM37+3
910 8 ;-16
911
912 EXTRA2 5 WS5
913 4 =/0 0
914 5 MKR7
915 4 +0
916 8 PRIM39+11
917 5 W3
918 5 W5
919 5 W4
920 11 RRES
921 8 RRES+1
922 8 EXIT39
923 4 =8 0
924 5 W3
925 4 +1
926 5 W5
927 4 +0
928 8 ;-9
929
930 PRIM59 +0 ([Description, Specification])
931 0 W
932 /4 2
933 9 EXIT59+2
934 7 EXIT59+2
935 2 +17
936 9 PRIM30+17
937 7 ;+7
938 2 +0
939 6 =14 8191
940 5 ;+2
941 /4 0
942 +0
943 /5 0
944
945 EXIT59 0 PRIM59
946 /8 1
947 /4 0
948 9 ;+3
949 4 +0
950 8 ;-6
951 4 -1
952 8 ;-8
953
954 ([VOLUME3])
955
956 PRIM58 +0 ([Description, Specification])
957 0 W
958 /4 0
959 9 ;+3
960 EXIT58 0 PRIM58
961 /8 1
962 1 =/0 0
963 7 ;+15
964 /4 0
965 2 +0
966 /5 0
967 /4 1
968 2 +0
969 9 ;+3
970 /5 1
971 8 EXIT58
972 6 =15 8191
973 /5 1
974 /4 0
975 1 =/15 8191
976 /5 0
977 8 EXIT58
978 /4 1
979 7 ;+2
980 8 EXIT58+4
981 /10 2
982 4 =8 0
983 8 ;-7
984
985 PRIM62 +0 ([Description, Specification])
986 0 W
987 /4 0
988 7 ;+6
989 9 ;+7
990 4 +1
991 /5 0
992 0 PRIM62
993 /8 1
994 4 +0
995 8 ;-4
996 4 -1
997 8 ;-6
998
999 DIV ([Description, Specification])
1000 4 +6
1001 2 SP
1002 5 W
1003 1 +3
1004 5 SP
1005 0 W
1006 /4 3
1007 7 INTOVR
1008 5 WS1
1009 1 -1
1010 7 NXPORD
1011 1 +2
1012 7 KMIN1
1013 4 +0
1014 5 WS2
1015 4 WS1
1016 9 KKNEG
1017 /4 0
1018 9 JJNEG
1019
1020 DIVPOS
1021 /4 0
1022 0 +0
1023 14 8176
1024 13 WS1
1025 14 8191
1026 JKRES
1027 0 W
1028 /5 0
1029 4 WS2
1030 7 NXPORD
1031 /4 0
1032 2 +0
1033 /5 0
1034 8 NXPORD
1035
1036 KMIN1
1037 /4 0
1038 2 +0
1039 /5 0
1040 1 =/0 0
1041 7 INTOVR
1042 8 NXPORD
1043 KKNEG
1044 2 +0
1045 5 WS1
1046 9 KKS
1047 /4 0
1048 9 JJNEG+1
1049 10 WS2
1050 8 DIVPOS
1051
1052 JJNEG
1053 10 WS2
1054 2 +0
1055 /5 0
1056 9 ;+2
1057 8 DIVPOS
1058 0 +0
1059 4 +2
1060 13 WS1
1061 8 JKRES-1
1062
1063 KKS
1064 /2 0
1065 7 ;+2
1066 4 -1
1067 1 +1
1068 8 JKRES
1069
1070 PRIM28 4 EXIT28+1 ([Description, Specification])
1071 5 PRIM39
1072 4 SP
1073 1 -6
1074 5 W
1075 1 +3
1076 5 SP
1077 11 SINGLE
1078 8 SINGLE+1
1079 0 W
1080 /4 0
1081 7 EXTRA2+5
1082 /4 3
1083 7 EXTRA2+11
1084 9 ;+6
1085 2 +0
1086 5 WS5
1087 4 +0
1088 5 MKR7
1089 8 PRIM39+18
1090 5 WS5
1091 4 =/0 0
1092 5 MKR7
1093 EXIT28 8 PRIM39+18
1094 0 NXPORD-1
1095
1096 PRIM61 ([Description, Specification])
1097 +0
1098 11 SINGLE
1099 8 SINGLE+1
1100 4 FPA
1101 7 LOERR
1102 9 LOERR
1103 0 FPA+1
1104 14 1
1105 4 FPA
1106 14 8191
1107 1 =8 0
1108 5 WS+17
1109 3 WS+18
1110 1 =/0 0
1111 5 FPA
1112 3 FPA+1
1113 11 DLDIV
1114 8 DLDIV+1
1115 5 FPB
1116 4 FPA+1
1117 5 FPB+1
1118 11 DLMULT
1119 8 DLMULT+1
1120 5 FPB
1121 4 FPA+1
1122 5 FPB+1
1123 11 SERIES
1124 8 SERIES+1
1125 +18142
1126 +75061
1127 +20153
1128 +80261
1129 +23831
1130 +48226
1131 +29127
1132 +14509
1133 +37449
1134 +18724
1135 +52428
1136 +104857
1137 +87381
1138 +43690
1139 +0
1140 -1
1141 11 DLMULT
1142 8 DLMULT+1
1143 0 WS+29
1144 14 1
1145 4 WS+28
1146 3 FPB+1
1147 5 FPB
1148 14 1
1149 5 WS+28
1150 3 WS+29
1151 11 DLMULT
1152 8 DLMULT+1
1153 1 WS+28
1154 5 FPA
1155 4 FPA+1
1156 1 WS+29
1157 9 LOV
1158 LO 5 FPA+1
1159 4 FPA+2
1160 5 LOK
1161 4 +0
1162 5 FPA+2
1163 11 STAND
1164 8 STAND+1
1165 4 FPA
1166 5 WS+28
1167 4 FPA+1
1168 5 WS+29
1169 4 FPA+2
1170 5 WS+30
1171 4 LOK
1172 11 SBLNK
1173 8 ITRSB1
1174 4 LOGE2
1175 5 W6
1176 4 LOGE2+1
1177 5 W7
1178 11 DLMULT
1179 8 DLMULT+1
1180 11 STAND
1181 8 STAND+1
1182 4 WS+28
1183 5 W6
1184 4 WS+29
1185 5 W7
1186 4 WS+30
1187 5 W8
1188 11 PRIM31
1189 8 PRIM31+3
1190 LGEX
1191 0 PRIM61
1192 /8 1
1193 LOGE2
1194 +90852
1195 +24543
1196 LOV
1197 6 +131071
1198 10 FPA
1199 8 LO
1200 LOERR
1201 4 +13
1202 11 PAUSRT
1203 8 FAILEN
1204 4 +0
1205 0 W
1206 /5 0
1207 /5 1
1208 /5 2
1209 8 LGEX
1210 LOK +0
1211
1212 EXP +0 ([Description, Specification])
1213 11 SINGLE
1214 8 SINGLE+1
1215 4 FPA+2
1216 9 EXNEGP
1217 1 -17
1218 9 EXPOSP
1219 4 FPA
1220 9 EXZERO
1221 4 +12
1222 11 FAIL
1223 8 FAIL+1
1224 8 EXPEXIT
1225
1226 EXZERO 4 +0
1227 5 FPA
1228 5 FPA+1
1229 5 FPA+2
1230 8 EXPEXIT
1231
1232 EXONE 4 -36
1233 EXNEGP 1 +36
1234 9 EXONE
1235 1 =14 8156
1236 5 ;+4
1237 0 FPA+1
1238 14 1
1239 4 FPA
1240 +0
1241 5 FPA
1242 3 FPA+1
1243 4 +0
1244 5 FPA+2
1245 EXPOSP 4 FPA+2
1246 1 =14 1
1247 5 ;+16
1248 1 =0 8175
1249 6 =14 8191
1250 5 ;+7
1251 4 LOG2E+1
1252 5 FPB+1
1253 4 LOG2E
1254 5 FPB
1255 11 DLMULT
1256 8 DLMULT+1
1257
1258 +0
1259 5 FPA+2
1260 10 FPA+2
1261 0 FPA+1
1262 14 1
1263 4 FPA
1264 +0
1265 6 =15 8191
1266 1 =/8 0
1267 14 1
1268 5 FPB
1269 3 FPB+1
1270 11 SERIES
1271 8 SERIES+1
1272 +0
1273 +1453
1274 +0
1275 +29363
1276 +3
1277 +112955
1278 +55
1279 +93527
1280 +643
1281 +3708
1282 +5566
1283 +21285
1284 +32121
1285 +12955
1286 +92681
1287 +117968
1288 +0
1289 -1
1290 11 STAND
1291 8 STAND+1
1292 EXPEXIT
1293 11 RRES
1294 8 RRES+1
1295 0 EXP
1296 /8 1
1297 LOG2E +94548
1298 +60581
1299
1300 BUFLAG +0
1301 HALTMK +0
1302 W10
1303 SIGNCH +0
1304 ADPART +0
1305 W3ADDR 0 W3
1306
1307 SBLNK1 +0
1308 SUBWK1
1309 +0
1310 SBW1 +0
1311 SBW2 +0
1312 SBW3 +0
1313 SBW4 +0
1314 SBW5 +0
1315 SW +0
1316 SW1 +0
1317
1318 PBA 0 0
1319 0 CBL
1320 0 CHECKB
1321 0 CHECKI
1322 0 CHECKR
1323 0 CHECKS
1324
1325 0 DO
1326 0 STW
1327 0 FINISH
1328 0 FOR
1329 0 FR
1330
1331 0 FSE
1332 0 DIV
1333 0 ITOR1
1334 0 ITOR2
1335 0 NEGI
1336 0 NEGR
1337 0 RETURN
1338 0 RTOI1
1339 0 SPARE
1340 0 ST
1341
1342 0 STA
1343 0 STEP
1344 0 ST
1345
1346 0 WAIT
1347 0 SPARE
1348 0 UNTIL
1349 0 UP
1350 0 PRIM28
1351 0 WHILE
1352 0 PRIM30
1353 0 PRIM31
1354 0 PRIM32
1355 0 PRIM33
1356 0 PRIM34
1357 0 PRIM35
1358 0 PRIM36
1359 0 PRIM37
1360 0 PRIM38
1361 0 PRIM39
1362 0 PRIM40
1363 0 PRIM41
1364 0 PRIM42
1365 0 PRIM43
1366 0 PRIM44
1367 0 PRIM45
1368 0 PRIM46
1369 0 PRIM47
1370 0 PRIM48
1371 0 PRIM49
1372 0 PRIM50
1373 0 PRIM51
1374 0 PRIM52
1375 0 PRIM53
1376 0 PRIM54
1377 0 PRIM55
1378 0 PRIM56
1379 0 PRIM57
1380 0 PRIM58
1381 0 PRIM59
1382 0 EXP
1383 0 PRIM61
1384 0 PRIM62
1385 0 PRIM63
1386 0 PRIM63
1387 0 PRIM63
1388 0 PRIM63
1389 0 PRIM63
1390 0 PRIM63
1391 0 PRIM63
1392 0 PRIM63
1393
1394 FLNST1 +0
1395 +0
1396 FAILHD 0 ;+1
1397 &070101
1398 \ERR
1399 \OR
1400 \NO
1401 \ AD
1402 \R
1403 \RET
1404 &014000
1405
1406 FAILEN 14 8175 ([Description, Flowchart])
1407 4 W3
1408 5 WS
1409 3 W3
1410 4 -4096
1411 15 6144
1412 1 +256
1413 9 ;-2
1414 4 +3
1415 5 ODEV
1416 4 FAILHD
1417 11 SBLNK2
1418 8 OSTSB
1419 4 PRFA1
1420 5 FLNST1
1421 4 NULSTR+2
1422 5 PRFA1
1423 4 IOLNK
1424 5 FLNST1+1
1425 4 +6
1426 11 IOLNK
1427 8 OUTI5
1428 4 PDADD
1429 2 PP
1430 5 W3
1431 4 +5
1432 11 IOLNK
1433 8 OUTI5
1434 0 EP
1435 4 EP
1436 2 STACKADD
1437 7 ;+3
1438 4 PDADD
1439 /2 1
1440 5 W3
1441 4 +5
1442 11 IOLNK
1443
1444 8 OUTI5
1445 4 FLNST1
1446 5 PRFA1
1447 4 +1
1448 11 OTCHA
1449 8 OTCHA1
1450 4 WS
1451 5 W3
1452 4 FLNST1+1
1453 5 IOLNK
1454 8 HALTCH+1
1455
1456 WAIT 11 PAUSRT ([Specification, Flowchart])
1457 8 HALTCH+1
1458 8 NXPORD
1459
1460 FAILNS +2
1461 FLNS1 +3
1462 FLNS2 +4
1463 FLNS3 +5
1464 FLNS4 +9
1465 FLNS5 +1
1466 FLNS6 +7
1467 FLNS7 +6
1468 FLNS14 +15
1469 FLNS15 +14
1470 FLNS16 +16
1471 FLNS17 +18
1472 FLNS19 +8
1473 FLNS21 +22
1474 FLNS22 +20
1475 GTSFAIL 4 FLNS2
1476 ENFAIL 11 PAUSRT ([Description, Flowchart])
1477 8 FAILEN
1478 8 STOP
1479 4 +21
1480 8 ENFAIL
1481
1482 STSUBRT +0 ([Description, Flowchart])
1483 4 SP
1484 1 -6
1485 5 PKDADD
1486 5 W
1487 1 +3
1488 5 SP
1489 5 SBW
1490 0 SBW
1491 /4 0
1492 5 W3
1493 /4 1
1494 5 W4
1495 /4 2
1496 5 W5
1497 STSUB 0 PKDADD
1498 /4 0
1499 5 PKDADD
1500 6 =/8 0
1501 7 STSUB1
1502 14 1
1503 9 ENFAIL+3
1504 /4 1
1505 9 STSUB7
1506 4 W4
1507 1 +64
1508 9 STSUB2
1509 6 &377600
1510 5 W4
1511
1512 STSUB3 4 W5
1513 1 +64
1514 9 STSUB5
1515 1 -128
1516 9 ;+4
1517 4 FLNS4
1518 11 FAIL
1519 8 FAIL+1
1520 4 W5
1521 6 +127
1522 1 W4
1523 0 PKDADD
1524 /5 1
1525 STSUB1 0 PKDADD
1526 4 W3
1527 /5 0
1528 0 STSUBRT
1529 /8 1
1530
1531 STSUB7 4 W5
1532 0 PKDADD
1533 /5 2
1534 4 W4
1535 8 STSUB1-1
1536 STSUB5 4 +0
1537 5 W3
1538 5 W5
1539 8 STSUB3-1
1540 STSUB2 4 +0
1541 5 W4
1542 10 W3
1543 4 W3
1544 6 =7 8191
1545 11 SBLNK
1546 7 ;+2
1547 8 STSUB3
1548 4 W3
1549 14 1
1550 0 W3ADDR
1551 9 NEGR4+7
1552 8 NEGR3
1553
1554 W345R 4 SP ([Description])
1555 1 -3
1556 W345R1 5 W
1557 0 W
1558 W345R2 /4 0
1559 5 W3
1560 /4 1
1561 5 W4
1562 /4 2
1563 5 W5
1564 0 SBLNK
1565 /8 1
1566 RICONV 4 W5 ([Description, Flowchart])
1567 1 -17
1568 9 RICON1
1569 7 RICON2
1570 NEGIE
1571 INTOVR 4 FLNS1
1572 8 ENFAIL
1573 RICON1 11 SBLNK
1574 8 SHIFTD
1575 RICON2 4 =8 0
1576 2 W4
1577 9 RICON3
1578 4 W3
1579 9 RICON4
1580 1 +1
1581 9 INTOVR
1582 8 ;+2
1583 RICON4 1 +1
1584 5 W3
1585 RICON3 4 W3
1586 0 SBLNK1
1587 /8 1
1588
1589 ITRSB1 5 W3 ([Description])
1590 ITRSB2 4 +0
1591 5 W4
1592 4 +17
1593 5 W5
1594 8 STAND+1
1595
1596 NEGR1 0 W ([Description, Flowchart])
1597 0 W
1598 NEGR6 /4 1
1599 7 NEGR4
1600 2 +0
1601 6 =15 8191
1602 /5 1
1603 /10 0
1604 NEGR5 /4 0
1605 2 +0
1606 NEGR2 /5 0
1607 0 SBLNK
1608 /8 1
1609 NEGR4 /4 0
1610 2 =/0 0
1611 7 NEGR3
1612 /4 0
1613 2 =8 0
1614 7 ;+2
1615 8 NEGR5
1616 /4 2
1617 1 -1
1618 /5 2
1619 4 =/0 0
1620 8 NEGR2
1621
1622 NEGR3 /10 2
1623 4 =8 0
1624 8 NEGR2
1625 GLOPMD +0
1626 GLIDEV +0
1627 GLODEV +0
1628 GLPRFA +0
1629 GLINTD +0
1630 GLDIGM +0
1631 GLDIGN +0
1632
1633 OPMD1 +0
1634 IDEV +1
1635 ODEV1 +1
1636 PRFA1 +0
1637 INTDG +4
1638 DIGM1 +2
1639 DIGN1 +8
1640
1641 &070101
1642 \NO
1643 \PRO
1644 \GRA
1645 &550140
1646 0 ;-5
1647 TEXT1 0 ;+1
1648 &070162
1649 \ELO
1650 \AD
1651 \TAP
1652
1653 ([VOLUME4])
1654
1655 &452201
1656 &010140
1657 4 TEXT1-1
1658 8 ;+5
1659 READAL 4 WARN ([Description, Flowchart])
1660 2 +1
1661 7 7785
1662 4 TEXT1
1663 0 +6
1664 3 ODEV
1665 11 SBLNK2
1666 8 OSTSB
1667 8 STOP
1668 READLB 4 -1 ([Description, Flowchart])
1669 5 NEXTCH+2
1670 READOL 4 WARN ([Description, Flowchart])
1671 2 +1
1672 7 7774
1673 8 READAL+3
1674 EXECUT 4 BASE+2 ([Description, Flowchart])
1675 2 +8191
1676 7 READAL-2
1677 4 STKMOD
1678 7 ;+2
1679 5 STACKADD
1680 4 STACKADD
1681 5 SP
1682 5 EP
1683 4 PDADD
1684 5 PP
1685 0 PP
1686 /4 8
1687 2 &10140
1688 7 ;+3
1689 4 +25
1690 8 ENFAIL
1691 4 -1
1692 5 BUFLAG
1693 4 +1
1694 5 GLIDEV
1695 5 GLODEV
1696 4 -10
1697 5 W
1698 0 W
1699 4 +0
1700 /5 BUFFER+10
1701 4 INPA
1702 /5 INSLOT+10
1703 4 OUTPA
1704 /5 OUTSLT+10
1705 10 W
1706 4 W
1707 9 ;-9
1708 4 OUTPA+1
1709 5 OUTSLT+2
1710 4 INPA+1
1711 5 INSLOT+2
1712 4 +6
1713 5 GLINTD
1714 4 +7
1715 5 GLDIGN
1716 4 NULSTR+3
1717 5 GLPRFA
1718 4 +0
1719 5 GLOPMD
1720 4 +800
1721 5 BN
1722 4 NXPDAD
1723 8 HALTCH+6
1724
1725 PRIM 0 ADPART ([Description, Flowchart])
1726 1 -30
1727 /0 PBA
1728 /9 0
1729 1 -27
1730 9 PRIMA
1731 4 SP
1732 1 -3
1733 5 W
1734 8 PRIMA1
1735 PRIMA 4 SP ([Flowchart])
1736 1 -6
1737 5 W
1738 1 +3
1739 5 SP
1740 PRIMA1 /11 0
1741 /8 1
1742 NXPORD ([Description, Flowchart])
1743 8 NXPORD+4
1744 8 NXPORD+1
1745 8 NXPORD+4
1746 8 NXPORD+1
1747
1748 0 PP
1749 /4 0
1750 10 PP
1751 14 8179
1752 5 W
1753 /4 0
1754 6 +8191
1755 5 ADPART
1756 0 W
1757 /8 FBAJ
1758 8 TRAP
1759 8 TICA
1760 8 TIC
1761 8 TRCA
1762 8 TRC
1763 8 CF
1764 8 CFF
1765 8 PE
1766 8 TFAI
1767 8 TFVR
1768 8 TRCN
1769 8 INDS
1770 8 IFUN
1771 8 RFUN
1772 8 PEM
1773 8 PRIM
1774 FBAJ 8 TA
1775 8 TIA
1776 8 TIR
1777 8 TRA
1778 8 TRR
1779 8 INDFS
1780 8 MAMPS
1781 8 IFJ
1782 8 UJ
1783 8 GTS
1784 8 GT
1785 8 GTF
1786 8 INDA
1787 8 INDR
1788 8 GTFS
1789 8 INOUT
1790
1791 FINDFP +0 ([Description, Flowchart])
1792 4 ADPART
1793 6 +15
1794 5 W
1795 2 ADPART
1796 5 SUBWK1+1
1797 2 BN
1798 7 FINDP3
1799 0 EP
1800 4 EP
1801 FINDP2 5 SUBWK1
1802 2 STACKADD
1803 9 FINDP1
1804 SPARE 4 +20
1805 8 ENFAIL
1806 FINDP1 /4 3
1807 2 SUBWK1+1
1808 7 FINDP4
1809 /4 0
1810 /0 0
1811 8 FINDP2
1812 FINDP3
1813 0 EP
1814 /4 2
1815 1 -3
1816 1 W
1817 1 W
1818 1 W
1819 5 W1
1820 0 W1
1821 /4 0
1822 0 FINDFP
1823 /8 1
1824 FINDP4
1825 /0 0
1826 8 FINDP3+1
1827
1828 PEM 5 W ([Specification, Flowchart])
1829 1 W
1830 1 W
1831 2 EP
1832 0 SP
1833 /5 0
1834 1 -3
1835 5 FP
1836 4 BN
1837 /5 1
1838 10 SP
1839 10 SP
1840 0 PP
1841 /11 0
1842 /8 1
1843
1844 RETURN 0 EP ([Specification, Flowchart])
1845 /4 3
1846 5 BN
1847 /4 2
1848 5 SP
1849 /4 1
1850 5 PP
1851 /4 0
1852 5 EP
1853 8 NXPORD
1854
1855 TIA 1 BASE+2 ([Specification, Flowchart])
1856 5 W1
1857 4 +1
1858 8 TACHK
1859
1860 TRA 1 BASE+2 ([Specification, Flowchart])
1861 TRAP 1 =/0 0 ([Specification, Flowchart])
1862 5 W1
1863 4 +2
1864
1865 TACHK 0 SP
1866 /5 1
1867 4 W1
1868
1869 TA 0 SP ([Specification, Flowchart])
1870 /5 0
1871
1872 UP 4 SP ([Specification, Flowchart])
1873 1 +3
1874 5 SP
1875 2 27 ([STKEND])
1876 9 MAMPS5
1877 8 NXPORD
1878
1879 TRR 0 ADPART ([Specification, Flowchart])
1880 1 BASE+2
1881
1882 STKRLV 5 W+1
1883 0 W+1
1884 /4 1
1885 5 W+2
1886 /4 0
1887 0 SP
1888 /5 0
1889 4 W+2
1890 6 &777600
1891 /5 1
1892 4 W+2
1893 14 11
1894 14 8181
1895 /5 2
1896 8 UP
1897
1898 TIR 1 BASE+2 ([Specification, Flowchart])
1899 5 W
1900 0 W
1901 /4 0
1902 8 TA
1903
1904 TRCA 1 BASE+1 ([Specification, Flowchart])
1905 1 =/8 0
1906 8 TRAP+1
1907
1908 TICA 1 BASE+1 ([Specification, Flowchart])
1909 1 =8 0
1910 8 TIA+1
1911
1912 RFUN 11 FINDFP ([Specification, Flowchart])
1913 8 FINDFP+1
1914 4 W1
1915 1 =/0 0
1916 5 W1
1917 4 =/0 2
1918 8 TACHK
1919
1920 IFUN 11 FINDFP ([Specification, Flowchart])
1921 8 FINDFP+1
1922 8 TIA+2
1923
1924 TIC 1 BASE+1 ([Specification, Flowchart])
1925 8 TIR+1
1926
1927 TRC 1 BASE+1 ([Specification, Flowchart])
1928 8 STKRLV
1929
1930 IFJ 4 +3 ([Specification, Flowchart])
1931 2 SP
1932 5 SP
1933 0 SP
1934 /4 0
1935 7 ;+2
1936 8 NXPORD
1937 4 ADPART
1938
1939 UJ 5 PP ([Specification, Flowchart])
1940 8 NXPORD
1941 PE 6 +15 ([Specification, Flowchart])
1942 5 W
1943 1 W
1944 1 W
1945 2 EP
1946 0 SP
1947 /5 0
1948 5 W4
1949 4 BN
1950 /5 1
1951 4 ADPART
1952 6 &017760
1953 5 BN
1954 10 SP
1955 10 SP
1956 PCHK4 4 EP
1957 2 W4
1958 9 PCHK1
1959 MAMPS4 4 WARNAD
1960 2 SP
1961 9 NXPORD
1962 10 WARN
1963 4 STKEND
1964 2 SP
1965 9 NXPORD
1966 MAMPS5 4 FAILNS
1967 8 ENFAIL
1968
1969 PRIM63 +0 ([Specification])
1970 4 +60
1971 2 ADPART
1972 0 W
1973 /5 1
1974 8 NXPORD
1975
1976 PCHK1 0 PP
1977 /4 0
1978 10 PP
1979 5 W2
1980 14 8179
1981 9 PCHK2
1982 6 +15
1983 5 W3
1984 0 W4
1985 /4 1
1986 6 =15 8191
1987 2 W3
1988 7 PCHK3
1989 PCHK7 4 FLNS5
1990 8 ENFAIL
1991 PCHK2 6 +15
1992 1 -3
1993 9 PCHK5
1994 1 -2
1995 9 COPYAR
1996 PCHK5 4 W4
1997 1 +3
1998 5 W4
1999 8 PCHK4
2000 PCHK3
2001 4 PDADD
2002 2 W2
2003 6 +8191
2004 5 W5
2005 4 W2
2006 6 +8191
2007 2 +8191
2008 7 PCHK5
2009 4 W3
2010 1 -3
2011 9 PCHK5
2012 1 -2
2013 9 PCHK8
2014 1 -3
2015 9 PCHK6
2016 8 PCHK5
2017 PCHK6 0 W4
2018 /0 0
2019 /4 0
2020 6 +15
2021 PCHK9 2 W5
2022 7 PCHK5
2023 8 PCHK7
2024 PCHK8 0 W4
2025 /0 0
2026 /0 1
2027 /4 0
2028 8 PCHK9
2029
2030 CFF 11 FINDFP ([Specification, Flowchart])
2031 8 FINDFP+1
2032 5 ADPART
2033 8 CF
2034
2035 GTF 11 FINDFP ([Specification, Flowchart])
2036 8 FINDFP+1
2037 8 GTL2
2038
2039 GT 1 BASE+1 ([Specification, Flowchart])
2040 GTL2 5 W
2041 0 W
2042 4 BN
2043 /2 1
2044 7 GTCONW
2045 GTL3 0 EP
2046 /4 3
2047 0 W
2048 /2 1
2049 7 GTL4
2050 0 EP
2051 /4 0
2052 5 EP
2053 2 STACKADD
2054 9 GTL3
2055 4 +24
2056 8 ENFAIL
2057 4 EP
2058 8 ;+4
2059 GTL4 0 EP
2060 /4 2
2061 9 ;-4
2062 5 SP
2063 /4 3
2064 5 BN
2065 /4 0
2066 5 EP
2067 GTCONW 0 W
2068 /4 0
2069 5 PP
2070 8 NXPORD
2071
2072 GTFS 11 FINDFP ([Specification, Flowchart])
2073 8 FINDFP+1
2074 8 GTL5
2075
2076 GTS 1 BASE+1 ([Specification, Flowchart])
2077 GTL5 5 W
2078 4 +3
2079 2 SP
2080 5 SP
2081 0 SP
2082 /4 0
2083 9 GTSFAIL
2084 7 GTSFAIL
2085 0 W
2086 /2 0
2087 9 GTSFAIL
2088 0 SP
2089 4 +1
2090 /2 0
2091 /1 0
2092 1 W
2093 8 GTL2
2094
2095 TFAI ([TF PORD, Specification, Flowchart])
2096 TFAR
2097 TFVI
2098 TFVR 11 FINDFP
2099 8 FINDFP+1
2100 0 W1
2101 /4 2
2102 0 SP
2103 /5 2
2104 0 W1
2105 /4 0
2106 5 W1
2107 /4 1
2108 8 TACHK
2109 /4 0
2110 5 W1
2111 8 TFVR+2
2112
2113 TRCN 11 FINDFP ([Specification, Flowchart])
2114 8 FINDFP+1
2115 0 W1
2116 /4 1
2117 9 TRCN-3
2118 /4 0
2119 STKVAL 5 W+1
2120 9 STKRLV
2121 0 W+1
2122 /4 0
2123 8 TA
2124
2125 MAMPS9 4 FLNS21
2126 8 ENFAIL
2127
2128 MAMPS ([Specification, Flowchart])
2129 14 8187
2130 6 +126
2131 5 W9
2132 1 W9
2133 1 W9
2134 2 SP
2135 5 W9
2136 5 W5
2137 5 W4
2138 0 PP
2139 /4 0
2140 6 =/0 0
2141 5 W2
2142 7 ;+2
2143 4 +1
2144 1 +1
2145 5 W6
2146 /4 0
2147 6 +8191
2148 1 BASE+2
2149 5 WS
2150 4 ADPART
2151 14 1
2152 6 +126
2153 1 WS
2154 5 WS1
2155 0 W4
2156 4 W2
2157 7 ;+2
2158 /4 0
2159 /1 0
2160 2 +0
2161 5 W7
2162 MAMPS2
2163 /4 0
2164 5 WS2
2165 0 W4
2166 /2 3
2167 9 MAMPS9
2168 1 +1
2169 12 W6
2170 3 W6
2171 0 W5
2172 4 WS2
2173 /5 3
2174 4 W4
2175 1 +6
2176 5 W4
2177 2 SP
2178 7 MAMPS1
2179 4 W6
2180 0 W5
2181 /5 4
2182 10 W5
2183 10 W5
2184 0 W4
2185 /4 0
2186 12 W6
2187 14 17
2188 2 W7
2189 5 W7
2190 8 MAMPS2
2191 MAMPS1
2192 4 W6
2193 0 W9
2194 /5 1
2195 4 W7
2196 /5 2
2197 4 ADPART
2198 14 8186
2199 6 +63
2200 /5 0
2201 4 W5
2202 1 +4
2203 1 W2
2204 5 W5
2205 MAMPS3
2206 4 W5
2207 0 WS
2208 /5 0
2209 1 W6
2210 5 W5
2211 4 W9
2212 /5 1
2213 10 WS
2214 10 WS
2215 4 WS1
2216 2 WS
2217 9 MAMPS3
2218 10 PP
2219 4 W5
2220 6 =15 8191
2221 5 SP
2222 8 MAMPS4
2223 COPYAR 0 W4 ([Flowchart])
2224 /4 0
2225 5 W
2226 4 SP
2227 /5 0
2228 0 W
2229 /4 1
2230 0 SP
2231 /5 1
2232 5 W1
2233 0 W
2234 /4 0
2235 6 =/0 0
2236 1 SP
2237 1 +2
2238 0 SP
2239 /5 0
2240 6 =15 8191
2241 5 W2
2242 0 W1
2243 /4 1
2244 1 W2
2245 5 SP
2246 2 STKEND
2247 9 MAMPS5
2248 0 W
2249 /4 0
2250 5 W1
2251 CPYAR1
2252 0 W1
2253 /4 0
2254 0 W2
2255 /5 0
2256 10 W2
2257 10 W1
2258 4 SP
2259 2 W2
2260 9 CPYAR1
2261 8 PCHK5
2262 INDSFL 4 FAILNS+2
2263 8 ENFAIL
2264
2265 INDFS ([Specification])
2266 11 FINDFP
2267 8 FINDFP+1
2268 8 ;+2
2269
2270 INDS 1 BASE+1 ([Specification, Flowchart])
2271 5 ADPART
2272 4 +3
2273 2 SP
2274 5 W
2275 0 W
2276 /4 0
2277 9 INDSFL
2278 7 INDSFL
2279 0 ADPART
2280 /2 0
2281 9 INDSFL
2282 4 +1
2283 2 ADPART
2284 0 W
2285 /1 0
2286 /1 0
2287 /5 0
2288 8 NXPORD
2289
2290 AINDSB +0 ([Specification, Flowchart])
2291 4 ADPART
2292 2 SP
2293 5 W+5
2294 1 -3
2295 5 W+6
2296 0 W+6
2297 /4 0
2298 5 W
2299 0 W
2300 /4 1
2301 5 W1
2302 5 W7
2303 /4 0
2304 6 &400000
2305 0 W+5
2306 7 ;+2
2307 /4 0
2308 /1 0
2309 0 W+1
2310 /1 2
2311 AINDS1 5 W+3
2312 4 W+5
2313 1 +3
2314 5 W+5
2315 2 SP
2316 7 AINDS2
2317 0 W+5
2318 /4 0
2319 0 W+1
2320 /12 4
2321 14 17
2322 10 W+1
2323 10 W+1
2324 1 W+3
2325 8 AINDS1
2326 AINDS2 4 W+6
2327 5 SP
2328 0 W+7
2329 /4 1
2330 2 W+3
2331 9 ;+3
2332 INDWRG 4 FAILNS+3
2333 8 ENFAIL
2334 4 W+3
2335 9 INDWRG
2336 0 W
2337 /1 0
2338 0 AINDSB
2339 /8 1
2340
2341 INDA 11 AINDSB ([Specification, Flowchart])
2342 8 AINDSB+1
2343 9 TRAP+1
2344 8 TIA+1
2345
2346 INDR 11 AINDSB ([Specification, Flowchart])
2347 8 AINDSB+1
2348 8 STKVAL
2349
2350 CBL 4 PP ([Specification, Flowchart])
2351 1 +1
2352 5 ADPART
2353
2354 CF 0 SP ([Specification, Flowchart])
2355 4 EP
2356 /5 0
2357 4 PP
2358 /5 1
2359 4 SP
2360 5 EP
2361 10 SP
2362 10 SP
2363 4 ADPART
2364 5 PP
2365 8 NXPORD
2366
2367 ST 11 STSUBRT ([Specification, Flowchart])
2368 8 STSUBRT+1
2369 4 W
2370 5 SP
2371 8 NXPORD
2372
2373 STA 11 STSUBRT ([Specification, Flowchart])
2374 8 STSUBRT+1
2375 0 W
2376 /4 3
2377 /5 0
2378 /4 4
2379 /5 1
2380 /4 5
2381 /5 2
2382 8 NXPORD
2383
2384 DO 11 STSUBRT ([Specification, Flowchart])
2385 8 STSUBRT+1
2386 0 EP
2387 4 PP
2388 /5 1
2389 /4 2
2390 6 =15 8191
2391 5 PP
2392 8 NXPORD
2393
2394 STEP 11 STSUBRT ([Specification, Flowchart])
2395 8 STSUBRT+1
2396 4 PP
2397 0 EP
2398 /5 1
2399 4 +0
2400 /5 7
2401 8 NXPORD
2402
2403 FOR 0 SP ([Specification, Flowchart])
2404 4 EP
2405 /5 0
2406 0 PP
2407 /4 0
2408 1 =/0 0
2409 0 SP
2410 /5 2
2411 4 BN
2412 /5 3
2413 0 PP
2414 /4 1
2415 5 BN
2416 /4 2
2417 0 SP
2418 /5 4
2419 4 SP
2420 5 EP
2421 1 +5
2422 5 SP
2423 4 PP
2424 1 +3
2425 5 PP
2426 1 +1
2427 /5 1
2428 8 NXPORD
2429
2430 FR 0 EP ([Specification, Flowchart])
2431 /4 1
2432 5 PP
2433 8 NXPORD
2434
2435 FSE 0 EP ([Specification, Flowchart])
2436 /4 3
2437 5 BN
2438 /4 4
2439 5 PP
2440 4 EP
2441 5 SP
2442 /4 0
2443
2444 ([VOLUME 5])
2445
2446 5 EP
2447 8 NXPORD
2448
2449 NEGI 4 +3 9 ([Specification, Flowchart])
2450 2 SP
2451 5 W
2452 0 W
2453 /4 0
2454 2 =/0 0
2455 7 NEGIE
2456 /4 0
2457 2 +0
2458 /5 0
2459 8 NXPORD
2460
2461 UNTIL 4 +6 ([Specification, Flowchart])
2462 2 SP
2463 5 SP
2464 0 EP
2465 /4 5
2466 9 UNTILR
2467 /4 7
2468 /3 7
2469 7 UNTIL2
2470 /4 8
2471 /0 5
2472 /1 0
2473 /5 0
2474 UNTIL2 0 EP
2475 /4 11
2476 /0 5
2477 /2 0
2478 7 UNTIL3
2479 0 EP
2480 6 =/0 0
2481 /2 8
2482 UNTIL4 9 UNTIL3
2483 WHILE1 0 EP
2484 4 PP
2485 /5 1
2486 8 NXPORD
2487 WADDR 0 W
2488 GETRL2 0 EP
2489 /4 6
2490 /0 5
2491 9 W345R2
2492 /4 0
2493 5 W3
2494 /4 1
2495 6 &777600
2496 5 W4
2497 /4 1
2498 14 11
2499 14 8181
2500 5 W5
2501 0 SBLNK
2502 /8 1
2503 UNTILR /4 7
2504 /3 7
2505 7 UNTLR2
2506 4 EP
2507 1 +5
2508 5 W
2509 11 RSTACK
2510 8 RSTACK+1
2511 11 SBLNK
2512 8 GETRL2
2513 4 W3ADDR
2514 5 W
2515 11 PRIM31
2516 8 PRIM31+3
2517 4 EP
2518 1 +5
2519 5 PKDADD
2520 11 STSUBRT
2521 8 STSUB
2522 UNTLR2 4 EP
2523 1 +8
2524 5 W
2525 11 RSTACK
2526 8 RSTACK+1
2527 11 SBLNK
2528 8 GETRL2
2529 4 W3ADDR
2530 5 W
2531 11 PRIM33
2532 8 PRIM33+3
2533 4 W3
2534 8 UNTIL2+4
2535
2536 NULSTR &074000
2537 &070140
2538 0 NULSTR
2539 0 NULSTR+1
2540 +0
2541 &070112
2542 &400000
2543 0 ;-2
2544 CHKSBR 4 PRFA1
2545 5 CHKSBR-4
2546 4 CHKSBR-1
2547 5 PRFA1
2548 4 GLODEV
2549 5 ODEV
2550 8 W345R
2551
2552 CHECKI 11 SBLNK ([Specification, Flowchart])
2553 8 CHKSBR
2554 4 +6
2555 11 IOLNK
2556 8 OUTI5
2557 4 CHKSBR-4
2558 5 PRFA1
2559 8 NXPORD
2560
2561 CHECKR 11 SBLNK ([Specification, Flowchart])
2562 8 CHKSBR
2563 4 +8
2564 5 DIGN
2565 4 +1
2566 5 OPMD
2567 11 IOLNK
2568 8 OUTR+3
2569 8 CHECKI+5
2570 &070112
2571 &026462
2572 &654502
2573 &000040
2574 &070112
2575 &024641
2576 \LSE
2577 &020040
2578 0 ;-4
2579
2580 CHECKB 11 SBLNK ([Specification, Flowchart])
2581 8 CHKSBR+4
2582 4 W3
2583 7 ;+2
2584 4 -4
2585 1 CHECKB-1
2586 11 SBLNK2
2587 8 OSTSB
2588 8 NXPORD
2589
2590 CHECKS 11 SBLNK ([Specification, Flowchart])
2591 8 CHKSBR+4
2592 4 CHKSBR-1
2593 11 SBLNK2
2594 8 OSTSB
2595 4 SP
2596 1 -3
2597 5 SP
2598 4 W3
2599 8 CHECKB+6
2600
2601 OSTR1 5 SP ([Flowchart])
2602 4 ODEV1
2603 5 ODEV
2604 0 SP
2605 /4 0
2606 8 CHECKB+6
2607
2608 FINSUB 4 ALRMCH
2609 15 6144
2610 1 =2 0
2611 9 ;-2
2612 4 ALRMCH+1
2613 15 6144
2614 0 SBLNK
2615 /8 1
2616 &070101
2617 \FIN
2618 \ISH
2619 &010140
2620 0 ;-4
2621
2622 FINISH 4 -5120 ([Specification, Flowchart])
2623 15 6144
2624 1 +256
2625 9 ;-2
2626 4 +3
2627 5 ODEV
2628 4 FINISH-1
2629 11 SBLNK2
2630 8 OSTSB
2631 11 SBLNK
2632 8 FINSUB
2633 4 -38400
2634 15 6144
2635 1 +256
2636 9 ;-2
2637
2638 STOP 11 PAUSRT ([Flowchart])
2639 8 HALTCH+1
2640 8 STOP
2641
2642 WHILE 4 +3 ([Specification, Flowchart])
2643 2 SP
2644 5 SP
2645 0 SP
2646 /4 0
2647 7 WHILE1
2648 UNTIL3 0 EP
2649 /4 2
2650 6 =15 8191
2651 5 PP
2652 8 NXPORD
2653
2654 STW 11 STSUBRT ([Specification, Flowchart])
2655 8 STSUBRT+1
2656 8 NXPORD
2657
2658 RTOI1 11 SBLNK ([Specification, Flowchart])
2659 8 W345R
2660 11 SBLNK1
2661 8 RICONV
2662 0 W
2663 /5 0
2664 8 NXPORD
2665
2666 ITOR1 4 +3 ([Specification, Flowchart])
2667 8 ;+2
2668
2669 ITOR2 4 +6 ([Specification, Flowchart])
2670 2 SP
2671 5 W
2672 0 W
2673 /4 0
2674 11 STAND
2675 8 ITRSB1
2676 11 RRES
2677 8 RRES+1
2678 8 NXPORD
2679
2680 NEGR 4 SP ([Specification, Flowchart])
2681 1 -3
2682 5 W
2683 11 SBLNK
2684 8 NEGR1
2685 8 NXPORD
2686
2687 LDZERO +0
2688 INOEX 0 IOLNK
2689 /8 1
2690 RNDTBL
2691 8 0
2692 +26214
2693 +10485
2694 +4194
2695 +1677
2696 +671
2697 +268
2698 +107
2699 +43
2700 +17
2701 +7
2702 +3
2703 +1
2704 +0
2705 +0
2706 +0
2707
2708 INOUT ([Description, Specification, Flowchart])
2709 2 +15
2710 9 INOUT1
2711 4 +0
2712 INOUT2 5 W10
2713 4 +3
2714 2 SP
2715 5 W
2716 0 ADPART
2717 /0 INOUT3
2718 11 IOLNK
2719 /8 0
2720 8 NXPORD
2721 INOUT1 4 +7
2722 8 INOUT2
2723 INOUT4 4 -7
2724 5 WS
2725 INOUT5 0 WS
2726 /4 GLOPMD+7
2727 /5 GLOPMD+14
2728 10 WS
2729 4 WS
2730 9 INOUT5
2731 8 NXPORD
2732
2733 SMLN 4 NULSTR+2 ([Flowchart])
2734 8 PRFX1
2735
2736 PRFX 5 SP ([Flowchart])
2737 0 W
2738 /4 0
2739 PRFX1 0 W10
2740 /5 GLPRFA
2741 INOUT3 8 NXPORD
2742 0 RDNM
2743 0 RDNM
2744 0 OUTI
2745 0 OUTR
2746 0 ALGN
2747 0 DEST
2748 0 DIGIT
2749 0 FRPNT
2750 0 SPARE
2751 0 SPARE
2752 0 PRFX
2753 0 SMLN
2754 0 SCLD
2755 0 SRCE
2756 0 OSTR1
2757 0 ALGN
2758 0 DEST
2759 0 DIGIT
2760 0 FRPNT
2761 0 INOUT4
2762 0 SPARE
2763 0 PRFX
2764 0 SMLN
2765 0 SCLD
2766 0 SRCE
2767
2768 FRPNT 5 SP ([Flowchart])
2769 0 W
2770 /4 0
2771 FRPNT1 0 W10
2772 /5 GLDIGN
2773 5 W1
2774 4 +0
2775 /5 GLOPMD
2776 INOUT9 4 W1
2777 1 -1
2778 9 FRPNT2
2779 1 -8
2780 9 NXPORD
2781 FRPNT2 4 +7
2782 8 FRPNT1
2783
2784 ALGN 1 -3 ([Flowchart])
2785 5 SP
2786 5 W
2787 0 W
2788 /4 3
2789 0 W10
2790 9 FRPNT2
2791 /5 GLDIGN
2792 4 -1
2793 /5 GLOPMD
2794 0 W
2795 /4 0
2796 0 W10
2797 9 FRPNT2
2798 /5 GLDIGM
2799 /1 GLDIGN
2800 7 FRPNT2
2801 2 +15
2802 9 FRPNT2
2803 8 NXPORD
2804
2805 SCLD 5 SP ([Flowchart])
2806 0 W
2807 /4 0
2808 0 W10
2809 /5 GLDIGN
2810 5 W1
2811 1 -2
2812 9 FRPNT2
2813 4 +1
2814 /5 GLOPMD
2815 8 INOUT9
2816
2817 DEST 5 SP
2818 0 W
2819 /4 0
2820 DEST1 0 W10
2821 /5 GLODEV
2822 9 DEST2
2823 7 DEST2
2824 1 -11
2825 9 NXPORD
2826 DEST2 4 +1
2827 8 DEST1
2828
2829 SRCE 5 SP
2830 0 W
2831 /4 0
2832 SRCE1 0 W10
2833 /5 GLIDEV
2834 9 SRCE2
2835 7 SRCE2
2836 1 -11
2837 9 NXPORD
2838 SRCE2 4 +1
2839 8 SRCE1
2840
2841 DIGIT 5 SP ([Flowchart])
2842 0 W
2843 /4 0
2844 DIGIT1 0 W10
2845 /5 GLINTD
2846 1 -1
2847 9 DIGIT2
2848 1 -12
2849 9 NXPORD
2850 DIGIT2 4 +6
2851 8 DIGIT1
2852 DIVTEN 0 W4
2853 14 1
2854 4 W3
2855 14 8188
2856 13 TENPWR
2857 14 18
2858 5 SBW
2859 14 3
2860 12 TENPWR
2861 14 1
2862 3 SBW2
2863 5 SBW1
2864 4 SBW2
2865 2 W4
2866 9 ;+2
2867 8 ;+3
2868 10 SBW1
2869 6 =15 8191
2870 5 SBW2
2871 4 SBW1
2872 2 W3
2873 5 SBW1
2874 0 SBW2
2875 14 1
2876 4 SBW1
2877 14 11
2878 13 TENPWR
2879 0 +0
2880 14 8177
2881 3 W4
2882 1 SBW
2883 5 W3
2884 0 SBLNK
2885 /8 1
2886 DECML5 4 +4
2887 1 W5
2888 5 W5
2889 DECML 0 W4
2890 14 1
2891 4 W3
2892 14 8188
2893 3 W4
2894 5 W3
2895 DECML1 0 W4
2896 14 1
2897 4 W3
2898 14 1
2899 3 W4
2900 5 W3
2901 14 2
2902 3 SBW
2903 DECML4 1 W3
2904 5 W3
2905 4 SBW
2906 1 W4
2907 9 DECML2
2908 DECML3 5 W4
2909 0 SBLNK
2910 /8 1
2911 DECML2 6 =15 8191
2912 10 W3
2913 8 DECML3
2914
2915 OUTR 5 SP ([Description, Flowchart])
2916 4 ODEV1
2917 5 ODEV
2918 4 DIGN1
2919 5 DIGN
2920 4 DIGM1
2921 5 DIGM
2922 4 OPMD1
2923 OUTR2 5 OPMD
2924 11 SBLNK
2925 8 W345R1+1
2926 4 +4
2927 8 OINT2
2928 OUTI 5 SP ([Description, Flowchart])
2929 4 ODEV1
2930 5 ODEV
2931 0 W
2932 /4 0
2933 OUTI4 5 W3
2934 4 INTDG
2935 OUTI5 5 DIGM
2936 4 +0
2937 OINT2 5 ADPART
2938 4 LDZERO
2939 5 NSIGNF
2940 4 +0
2941 5 SIGNCH
2942 4 PRFA1
2943 11 SBLNK2
2944 8 OSTSB
2945 4 ADPART
2946 7 OUTI3
2947 OINT3
2948 4 +0
2949 5 DECPWR
2950 4 W3
2951 9 OPRL1
2952 7 OPRL19
2953 14 1
2954 9 OPRL3
2955 OPRL2 4 FLNS6
2956 11 PAUSRT
2957 8 FAILEN
2958 4 +10
2959 11 OTCHA
2960 8 OTCHA1
2961 11 OTCHA
2962 8 OTCHA2
2963 11 OTCHA
2964 8 OTCHA2
2965 8 INOEX
2966 OPRL1 14 1
2967 9 OPRL2
2968 0 W3ADDR
2969 11 SBLNK
2970 8 NEGR6
2971 4 +13
2972 5 SIGNCH
2973 OPRL3
2974 OPRL4 4 W5
2975 9 OPRL12
2976 4 &310000
2977 5 TENPWR
2978 OPRL5 4 W5
2979 9 OPRL10
2980 7 OPRL11
2981 4 +5
2982 2 W5
2983 9 OPRL8
2984 1 +2
2985 5 W5
2986 10 DECPWR
2987 OPRL9
2988 11 SBLNK
2989 8 DIVTEN
2990 10 DECPWR
2991 11 STAND
2992 8 STAND+1
2993 8 OPRL5
2994 OPRL8 4 =10 0
2995 5 TENPWR
2996 8 OPRL9
2997 OPRL18 10 DECPWR
2998 4 &031463
2999 5 W3
3000 4 &063160
3001 5 W4
3002 8 OPRL20
3003 OPRL19 10 DECPWR
3004 4 W4
3005 7 OPRL20
3006 8 OPRL2
3007 OPRL13 4 &314631
3008 2 W3
3009 9 OPRL14
3010 7 ;+2
3011 8 OPRL10
3012 4 &231463
3013 2 W4
3014 9 OPRL14
3015 8 OPRL10
3016 OPRL14 4 W5
3017 1 +4
3018 5 W5
3019 11 SBLNK
3020 8 DECML
3021 11 STAND
3022 8 STAND+1
3023 OPRL15 4 +1
3024 2 DECPWR
3025 5 DECPWR
3026 OPRL12 4 W5
3027 1 +3
3028 9 OPRL14
3029 7 OPRL13
3030 OPRL10 4 W5
3031 11 SBLNK
3032 8 SHIFTD
3033 OPRL11 4 OPMD
3034 7 ;+4
3035 9 ;+6
3036 4 DIGN
3037 8 ;+6
3038 4 DECPWR
3039 9 ;+3
3040 8 ;-4
3041 4 DECPWR
3042 1 DIGN
3043 9 OPRL20
3044 5 SBW1
3045 1 SBW1
3046 2 +0
3047 5 SBW
3048 0 SBW1
3049 /4 RNDTBL
3050 0 SBW
3051 /14 0
3052 3 SBW
3053 11 SBLNK
3054 8 DECML4
3055 4 W3
3056 9 OPRL18
3057 OPRL20 4 OPMD
3058 7 OPRL21
3059 9 OPRL22
3060 4 +1
3061 2 DIGN
3062 OPRL25 5 AFTPT
3063 4 +1
3064 5 BEFPT
3065 11 SBLNK1
3066 8 OTMX1
3067 4 +16
3068 5 NSIGNF
3069 4 +11
3070 5 SIGNCH
3071 4 +31
3072 11 OTCHA
3073 8 OTCHA1
3074 4 DECPWR
3075 1 -1
3076 5 W3
3077 4 +2
3078 5 DIGM
3079 4 +0
3080 5 ADPART
3081 OUTI3 5 W4
3082 5 DIGN
3083 4 -1
3084 5 OPMD
3085 4 +17
3086 5 W5
3087 11 STAND
3088 8 STAND+1
3089 8 OINT3
3090 OPRL27 4 +0
3091 8 OPRL28
3092 OPRL21 4 DECPWR
3093 9 OPRL27
3094 OPRL28 5 BEFPT
3095 2 DIGN
3096 9 OPRL24
3097 OPRL23 5 AFTPT
3098 11 SBLNK1
3099 8 OUTMXD
3100 8 INOEX
3101 OPRL22 4 DECPWR
3102 2 DIGM
3103 9 OPRL29
3104 4 DIGM
3105 5 BEFPT
3106 4 DIGN
3107 8 OPRL23
3108 OPRL29 4 DIGM
3109 1 DIGN
3110 5 DIGN
3111 OPRL24 4 ADPART
3112 6 +8191
3113 7 ;+2
3114 4 +1
3115 1 DIGN
3116 1 -6
3117 9 OPRL26
3118 1 +1
3119 5 DIGN
3120 4 +1
3121 5 OPMD
3122 5 ADPART
3123 8 OPRL11
3124 OPRL26
3125 2 -6
3126 11 OTCHA
3127 5 SW
3128 4 SW
3129 10 SW
3130 7 ;+3
3131 4 +0
3132 8 OTCHA1
3133 4 +40
3134 11 OTCHA
3135 8 OTCHA1
3136 11 SBLNK
3137 8 FINSUB
3138 8 INOEX
3139
3140 OUTMXD 4 DECPWR ([Description, Flowchart])
3141 OTMX1 5 SW1
3142 OTMX2 4 BEFPT
3143 7 OTMX4
3144 1 AFTPT
3145 7 OTMX13
3146 OTMX3 4 SW1
3147 2 BEFPT
3148 9 OTMX7
3149 7 OTMX6
3150 4 BEFPT
3151 1 -1
3152 7 OTMX11
3153 4 NSIGNF
3154 5 SW
3155 7 OTMX10
3156 8 OTMX9
3157 OTMX11 4 +16
3158 5 SW
3159 8 OTMX9
3160 OTMX4 4 AFTPT
3161 7 OTMX12
3162 4 +16
3163 5 NSIGNF
3164 4 SIGNCH
3165 9 OTMX5
3166 11 OTCHA
3167 8 OTCHA1
3168 4 -1
3169 5 SIGNCH
3170 OTMX5 4 +14
3171 11 OTCHA
3172 8 OTCHA1
3173 8 OTMX3
3174 OTMX6 11 SBLNK
3175 8 DECML
3176 8 OTMX8
3177 OTMX7 11 SBLNK
3178
3179 ([VOLUME6])
3180
3181 8 DECML1
3182 OTMX8 4 W3
3183 14 8179
3184 1 +16
3185 5 SW
3186 4 W3
3187 6 +8191
3188 5 W3
3189 OTMX9 4 SIGNCH
3190 9 OTMX10
3191 11 OTCHA
3192 8 OTCHA1
3193 4 -1
3194 5 SIGNCH
3195 OTMX10 4 SW
3196 11 OTCHA
3197 8 OTCHA1
3198 4 BEFPT
3199 1 -1
3200 5 BEFPT
3201 8 OTMX2
3202 OTMX12 4 ADPART
3203 7 OTMX13
3204 4 +0
3205 11 OTCHA
3206 8 OTCHA1
3207 OTMX13 0 SBLNK1
3208 /8 1
3209
3210 RDNM26 4 FLNS19
3211 11 PAUSRT
3212 8 FAILEN
3213 11 GECHAR
3214 8 GECHEN
3215
3216 RDNM 4 +0 ([Description, Flowchart])
3217 5 W1
3218 5 W2
3219 5 W3
3220 5 W4
3221 5 W5
3222 5 W6
3223 5 W7
3224 5 W9
3225 5 WS20
3226 4 =/0 0
3227 5 W8
3228 8 ;+5
3229 4 WS22
3230 5 W2
3231 RDNM1 11 GECHAR
3232 8 GECHEN
3233 0 IDEV
3234 /4 BUFFER-1
3235 5 WS21
3236 0 WS21
3237 /4 TABLE
3238 6 =8 0
3239 7 RDNM3
3240 10 W1
3241 10 WS20
3242 4 W7
3243 7 RDNM2
3244 0 +0
3245 4 W9
3246 1 W9
3247 5 W9
3248 14 2
3249 1 W9
3250 1 WS21
3251 1 -16
3252 5 W9
3253 2 +28
3254 9 ;+2
3255 8 RDNM1
3256 1 W9
3257 8 ;-5
3258 RDNM2 10 W8
3259 11 SBLNK
3260 8 DECML5
3261 4 W5
3262 2 +17
3263 6 +8191
3264 1 SHFT1
3265 5 ;+4
3266 4 WS21
3267 1 -16
3268 0 +0
3269 +0
3270 3 SBW
3271 11 SBLNK
3272 8 DECML4
3273 11 STAND
3274 8 STAND+1
3275 8 RDNM1
3276 RDNM5 4 W6
3277 10 W6
3278 7 RDNM6
3279 RDNM7 4 FLNS17
3280 8 RDNM26+1
3281 RDNM6 5 W8
3282 8 RDNM1
3283 RDNM8 4 +1
3284 RDNM9 5 WS22
3285 4 WS20
3286 7 RDNM1-2
3287 8 RDNM27
3288 RDNM10 5 WS20
3289 4 W7
3290 7 RDNM11
3291 8 RDNM7
3292 RDNM11 10 W7
3293 4 W1
3294 7 RDNM12
3295 RDNM13 4 W2
3296 5 W10
3297 4 +0
3298 5 W2
3299 10 W6
3300 8 RDNM1
3301 RDNM12 4 =8 0
3302 5 W3
3303 4 +1
3304 5 W5
3305 10 W1
3306 8 RDNM13
3307 RDNM3 4 WS21
3308 1 -14
3309 7 RDNM5
3310 1 -17
3311 7 RDNM10
3312 1 +18
3313 7 RDNM8
3314 1 +2
3315 7 RDNM9
3316 1 +4
3317 7 RDNM26
3318 RDNM27 4 W1
3319 7 RDNM1
3320 4 W7
3321 7 RDNM14
3322 4 W2
3323 7 RDNM4
3324 4 W9
3325 2 +0
3326 5 W9
3327 RDNM4 4 W10
3328 5 W2
3329 RDNM14 4 W8
3330 9 RDNM15
3331 2 W9
3332 5 W9
3333 RDNM15 4 W9
3334 7 RDNM20
3335 9 RDNM16
3336 1 -1
3337 5 W9
3338 11 SBLNK
3339 8 DECML5
3340 RDNM19 11 STAND
3341 8 STAND+1
3342 8 RDNM15
3343 RDNM16
3344 4 W3
3345 7 RDNM20
3346 10 W9
3347 4 =10 0
3348 5 TENPWR
3349 11 SBLNK
3350 8 DIVTEN
3351 8 RDNM19
3352 RDNM20 4 W2
3353 7 ;+4
3354 0 W3ADDR
3355 11 SBLNK
3356 8 NEGR6
3357 4 ADPART
3358 2 +2
3359 7 ;+3
3360 11 SBLNK1
3361 8 RICONV
3362 4 W
3363 5 SP
3364 5 PKDADD
3365 11 STSUBRT
3366 8 STSUB
3367 8 INOEX
3368 0 SBLNK2
3369 /8 1
3370 OSTSB 5 WS2 ([Flowchart])
3371 4 -12
3372 5 WS3
3373 4 -1
3374 5 WS6
3375 5 WS4
3376
3377 OST2 0 WS2
3378 /4 0
3379 0 WS3
3380 /14 0
3381 6 +63
3382 5 WS5
3383 4 WS3
3384 7 OST1
3385 1 +6
3386 OST3 5 WS3
3387 4 WS4
3388 9 OST4
3389 7 OST6
3390 0 WS5
3391 /4 TABLE
3392 6 =8 0
3393 7 OST5
3394 4 WS6
3395 12 +10
3396 14 17
3397 1 WS5
3398 1 -16
3399 5 WS6
3400 8 OST2
3401 OST1 4 -12
3402 10 WS2
3403 8 OST3
3404 OST4 4 WS5
3405 1 -7
3406 7 OST2-1
3407 4 +23
3408 8 ENFAIL
3409 4 +1
3410 8 OST2-1
3411 OST6 4 WS5
3412 1 -7
3413 7 OST6-2
3414 1 -25
3415 7 OSTSB-2
3416 4 WS5
3417 11 OTCHA
3418 8 OTCHA1
3419 8 OST2
3420
3421 OST5 4 WS6
3422 9 OST9+3
3423 4 WS7
3424 1 -34
3425 7 OST11
3426 4 WS6
3427 1 -2
3428 5 WS6
3429 9 OST9
3430 4 WS14
3431 11 OTCHA
3432 8 OTCHA1
3433 4 WS6
3434 1 -1
3435 8 ;-7
3436 4 =/0 0
3437 8 ;+2
3438 OST8 4 HALTCH
3439 8 OST8+8
3440 4 +1
3441 5 WS7
3442 4 LFCH+1
3443 8 OST8+9
3444 1 +25
3445 1 +7
3446 5 WS7
3447 5 WS14
3448 4 +0
3449 5 WS6
3450 8 OST2
3451 OST11
3452 4 WS6
3453 1 =/0 0
3454 5 WS7
3455 4 -1
3456 5 WS6
3457 OST9 4 WS7
3458 11 OTCHA
3459 8 OTCHA1
3460 4 WS5
3461 5 WS7
3462 1 -32
3463 7 OST2-1
3464 1 -2
3465 7 OST8+10
3466 1 -6
3467 7 OST8
3468 1 -4
3469 7 OST8+2
3470 1 -5
3471 7 OST8+7
3472 1 -1
3473 7 OST8-2
3474 1 -1
3475 7 OST8+8
3476 1 -2
3477 7 OST8+6
3478 4 FLNS7
3479 11 PAUSRT
3480 8 FAILEN
3481 8 OST8+2
3482
3483 [SERIES FPA DLMULT]
3484
3485 SERIES +0 ([Description])
3486 4 +0
3487 11 DLMULT
3488 5 FPA+1
3489 0 SERIES
3490 /1 1
3491 5 FPA
3492 /4 2
3493 10 SERIES
3494 1 FPA+1
3495 10 SERIES
3496 9 OVERFLOW
3497 RETURN 5 FPA+
3498 /4 4
3499 /9 5
3500 8 DLMULT+1
3501 OVERFLOW 6 =15 8191
3502 10 FPA
3503 8 RETURN
3504
3505 [DLDIV W3 W4 WS]
3506
3507 DLDIV +0 ([Description])
3508 4 W3
3509 5 WS+13
3510 4 W4
3511 5 WS+14
3512 0 +0
3513 14 8191
3514 3 WS+16
3515 5 WS+15
3516 4 +0
3517 5 WS+30
3518 5 WS+29
3519 0 +0
3520 4 WS+13
3521 13 WS+17
3522 5 WS+32
3523 12 WS+17
3524 3 WS+20
3525 5 WS+19
3526 4 WS+20
3527 7 NOCARRY
3528 2 +131071
3529 1 +1
3530 5 WS+20
3531 4 WS+19
3532 2 WS+13
3533 1 -1
3534 8 ;+3
3535 NOCARRY 4 WS+19
3536 2 WS+13
3537 5 WS+19
3538 4 WS+32
3539 12 WS+18
3540 14 8191
3541 3 WS+33
3542 2 WS+15
3543 5 WS+21
3544 4 WS+33
3545 2 WS+16
3546 5 WS+22
3547 9 SUBTI
3548 4 WS+21
3549 8 ;+4
3550 SUBTI 4 WS+21
3551 1 -1
3552 5 WS+21
3553 7 L0
3554 9 LNEG
3555 LPOS 14 1
3556 10 WS+30
3557 9 JUMP1
3558 8 ;-3
3559 L0 4 +16
3560 5 WS+30
3561 8 JUMP1
3562 LNEG 0 +0
3563 14 1
3564 10 WS+30
3565 9 ;-2
3566 JUMP1 4 WS+19
3567 7 JUMP2
3568 1 +1
3569 7 JUMP2
3570 1 -1
3571 14 8191
3572 10 WS+29
3573 8 ;-6
3574 JUMP2 4 WS+29
3575 1 WS+30
3576 2 +1
3577 7 N1
3578 4 WS+29
3579 2 +16
3580 5 WS+28
3581 1 =14 0
3582 5 SHIFT2
3583 4 WS+29
3584 2 +0
3585 6 &17777
3586 1 =14 0
3587 5 SHIFT1
3588 EVALUATE 0 WS+22
3589 14 1
3590 4 WS+21
3591 SHIFT1 14 0
3592 3 WS+22
3593 5 WS+21
3594 0 WS+20
3595 14 1
3596 4 WS+19
3597 SHIFT2 14 0
3598 3 WS+23
3599 1 WS+21
3600 5 WS+24
3601 4 WS+23
3602 1 WS+22
3603 5 WS+25
3604 9 ADDI
3605 8 ;+2
3606 ADDI 10 WS+24
3607 0 WS+25
3608 14 1
3609 4 WS+24
3610 14 8191
3611 13 WS+17
3612 5 WS+26
3613 4 WS+28
3614 2 =15 1
3615 5 SHIFT3
3616 0 +0
3617 4 WS+26
3618 SHIFT3 14 0
3619 3 WS+29
3620 3 W4
3621 1 WS+32
3622 5 W3
3623 5 WS+28
3624 0 DLDIV
3625 /8 1
3626 N1 4 =14 8191
3627 5 SHIFT1
3628 4 =14 15
3629 5 SHIFT2
3630 4 +15
3631 5 WS+28
3632 8 EVALUATE
3633
3634 [TABLE]
3635 TABLE
3636 /0 67
3637 /0 192
3638 2 192
3639 2 64
3640 2 192
3641 2 64
3642 2 64
3643 2 2243
3644
3645 2 2240
3646 2 2048
3647 2 2625
3648 2 2752
3649 2 2112
3650 2 2755
3651 2 4288
3652 2 2624
3653
3654 8 192
3655 8 64
3656 8 64
3657 8 192
3658 8 69
3659 8 192
3660 8 192
3661 8 64
3662
3663 8 64
3664 8 192
3665 2 2240
3666 2 2112
3667 2 2496
3668 2 2368
3669 2 2368
3670 2 4288
3671
3672 2 128
3673 4 66
3674 4 2
3675 4 131
3676 4 4
3677 4 133
3678 4 134
3679 4 7
3680
3681 4 8
3682 4 137
3683 4 138
3684 4 11
3685 4 140
3686 4 13
3687 4 14
3688 4 143
3689
3690 4 16
3691 4 145
3692 4 146
3693 4 19
3694 4 148
3695 4 21
3696 4 22
3697 4 151
3698
3699 4 152
3700 4 25
3701 4 26
3702 2 2203
3703 2 28
3704 2 2205
3705 2 2718
3706 2 31
3707
3708 /4 160
3709 /1 5153
3710 4 2082
3711 /4 3235
3712 4 4132
3713 /4 5285
3714 /4 6310
3715 4 7207
3716
3717 5 40
3718 /5 1193
3719 /5 2218
3720 5 3115
3721 /5 4268
3722 5 5165
3723 5 6190
3724 /5 7343
3725
3726 6 48
3727 /6 1201
3728 /6 2226
3729 6 3123
3730 /6 4276
3731 6 5173
3732 6 6198
3733 /6 7351
3734
3735 /7 184
3736 7 1081
3737 7 2106
3738 /7 3259
3739 7 4156
3740 /7 5309
3741 /7 6334
3742 7 7232
3743
3744 /8 66
3745 8 1185
3746 8 2210
3747 /8 3107
3748 8 4260
3749 /8 5157
3750 /8 6182
3751 8 7335
3752
3753 9 168
3754 /9 1065
3755 /9 2090
3756 9 3243
3757 /9 4140
3758 9 5293
3759 9 6318
3760 /9 7215
3761
3762 10 176
3763 /10 1073
3764 /10 2098
3765 10 3251
3766 /10 4148
3767 10 5301
3768 10 6326
3769 /10 7223
3770
3771 /11 56
3772 11 1209
3773 11 2234
3774 /11 3136
3775 11 4288
3776 /11 5184
3777 /11 6208
3778 11 7363
3779
3780 [OTCHA GECHAR GECHEN GECH OTCHA1 OTCHA2
3781 TABLE ALRMCH HALTCH FAILEN PAUSRT BUFFER
3782 NEXTCH PCHLNK IDEV ODEV INSLOT OUTSLT
3783 SBLNK HALTMK SBW4 SBW3 SBW FLNS14 FLNS15
3784 SBW5 LFCH OUTPA INPA ]
3785
3786 DEV +0
3787 OTCHA +0 ([Description, Flowchart])
3788 OTCHA1 5 SBW
3789 OTCHA2 4 OTCHA
3790 5 PCHLNK+1
3791 4 SBW
3792 0 ODEV
3793 /0 OUTSLT-1
3794 /8 0
3795
3796 OUTPA 0 ;+4
3797 0 ;+1
3798 4 +6148
3799 8 ;+2
3800 4 +6144
3801 5 DEV
3802 4 SBW
3803 9 OTCHA6
3804 OTCHA4
3805 0 SBW
3806 /0 TABLE+64
3807 14 8
3808 OTCHA6
3809 0 DEV
3810 /15 0
3811 4 SBW
3812 1 -1
3813 7 ;+3
3814 OTCHA5 0 PCHLNK+1
3815 /8 1
3816 4 LFCH
3817 /15 0
3818 4 +0
3819 /15 0
3820 8 OTCHA5
3821
3822 GECHAR +0 ([Description, Flowchart])
3823 GECH 4 SBLNK
3824 8 ;+2
3825 GECHEN 4 GECHAR
3826 5 PCHLNK
3827 0 IDEV
3828 /0 INSLOT-1
3829 /8 0
3830 INPA 0 ;+4
3831 0 ;+1
3832 4 +2052
3833 8 ;+2
3834 4 +2048
3835 5 DEV
3836 0 IDEV
3837 /4 BUFFER-1
3838 9 ;+3
3839 5 NEXTCH
3840 GECHP1 8 GECH4
3841 11 PAUSRT
3842 8 HALTCH+1
3843 4 +1
3844 8 ;-5
3845 GECH4 4 +0
3846 0 DEV
3847 /15 0
3848 5 SBW4
3849 6 +127
3850 5 SBW5
3851 0 SBW5
3852 2 SBW4
3853 /2 TABLE
3854 6 +128
3855 7 ;+3
3856 4 FLNS14
3857 8 GECH15
3858 /4 TABLE
3859 6 +127
3860 1 -64
3861 GECHP4 9 GECH13
3862 5 SBW4
3863 0 SBW4
3864 /8 ;+1
3865 8 GECH9
3866 8 GECH11
3867 8 GECH99
3868 8 GECH4
3869 GECHP2 8 GECH9
3870
3871 4 =/0 1
3872 GECH11 5 HALTMK
3873 GECHP3 8 ;+2
3874 GECH13 6 +63
3875 0 IDEV
3876 /5 BUFFER-1
3877 0 NEXTCH
3878 /4 TABLE
3879 0 PCHLNK
3880 /8 1
3881
3882 GECH99 4 +0
3883 15 2048
3884 15 6144
3885 7 GECH4
3886 8 ;-4
3887
3888 GECH9 4 FLNS15
3889 GECH15 11 PAUSRT
3890 8 FAILEN
3891 4 +0
3892 8 GECH13
3893 LFCH +10
3894
3895 /0 10
3896 ALRMCH /0 135
3897 HALTCH /0 20
3898
3899 [PAUSRT NXPORD SP READAL]
3900 4 PAUSRT (LIKE SWAIT)
3901 1 +1
3902 5 20
3903 8 NXPORD+1
3904
3905 4 20 (FROM 9) [DESCRIPTION=CONTIN,FLOWCHART=CONTIN]
3906 5 20 (FROM 8 ETC)
3907 4 NXPORD+2
3908 5 NXPORD
3909 4 NXPORD+3
3910 5 NXPORD+1
3911 0 20
3912 /8 0
3913
3914 4 SP (FROM 14)
3915 1 -7980
3916 9 8000
3917 8 READAL-1
3918
3919 %