Loaded 105172 bytes for EDNDIR99.txt reserving V 86 29 Start main program RESTART seen *** label 11 at address 258 on line 0 *** label 12 at address 263 on line 0 *** label 51 at address 277 on line 0 *** label 2 at address 293 on line 0 *** label 32 at address 338 on line 0 *** label 5 at address 354 on line 0 *** label 6 at address 376 on line 0 *** label 30 at address 387 on line 0 *** label 35 at address 468 on line 0 *** label 36 at address 488 on line 0 *** label 4 at address 497 on line 0 *** label 1 at address 508 on line 0 *** label 10 at address 523 on line 0 *** label 34 at address 567 on line 0 *** label 14 at address 575 on line 0 *** label 15 at address 581 on line 0 *** label 13 at address 588 on line 0 *** label 16 at address 598 on line 0 *** label 17 at address 604 on line 0 *** label 9 at address 654 on line 0 *** label 19 at address 672 on line 0 *** label 20 at address 732 on line 0 *** label 21 at address 754 on line 0 *** label 22 at address 763 on line 0 *** label 23 at address 772 on line 0 *** label 997 at address 792 on line 0 *** label 24 at address 816 on line 0 *** label 25 at address 824 on line 0 *** label 26 at address 840 on line 0 *** label 27 at address 849 on line 0 *** label 28 at address 881 on line 0 *** label 998 at address 894 on line 0 *** label 1000 at address 900 on line 0 *** label 1001 at address 931 on line 0 *** label 1002 at address 935 on line 0 *** start P1V34; at address 1152 *** label 1 at address 1173 on line 0 *** label 2 at address 1179 on line 0 *** label 3 at address 1197 on line 0 *** label 4 at address 1205 on line 0 *** start P2V13; at address 1296 *** label 29 at address 1309 on line 0 *** label 30 at address 1331 on line 0 *** label 6 at address 1375 on line 0 *** label 2 at address 1393 on line 0 *** label 5 at address 1423 on line 0 *** label 9 at address 1466 on line 0 *** label 4 at address 1472 on line 0 *** label 10 at address 1488 on line 0 *** label 3 at address 1491 on line 0 *** label 1 at address 1509 on line 0 *** label 20 at address 1570 on line 0 *** label 21 at address 1620 on line 0 *** label 22 at address 1626 on line 0 *** start P3V0; at address 1644 *** label 1 at address 1670 on line 0 *** label 6 at address 1708 on line 0 *** label 3 at address 1713 on line 0 *** label 100 at address 1789 on line 0 *** label 101 at address 1822 on line 0 *** label 15 at address 1825 on line 0 *** label 5 at address 1826 on line 0 *** label 4 at address 1832 on line 0 *** label 2 at address 1836 on line 0 *** start P4V5; at address 1998 *** label 2 at address 2017 on line 0 *** label 5 at address 2047 on line 0 *** label 4 at address 2097 on line 0 *** label 3 at address 2098 on line 0 *** label 1 at address 2105 on line 0 *** label 6 at address 2112 on line 0 *** start P5V0; at address 2178 *** label 7 at address 2223 on line 0 *** label 2 at address 2230 on line 0 *** label 9 at address 2254 on line 0 *** label 1 at address 2263 on line 0 *** label 3 at address 2292 on line 0 *** label 4 at address 2309 on line 0 *** label 5 at address 2315 on line 0 *** label 6 at address 2340 on line 0 *** label 8 at address 2362 on line 0 *** start P6V64; at address 2754 *** label 5 at address 2761 on line 0 *** label 4 at address 2772 on line 0 *** label 1 at address 2781 on line 0 *** label 3 at address 2788 on line 0 *** label 2 at address 2813 on line 0 *** start P8V0; at address 2826 *** start P9V1; at address 2856 *** label 1 at address 2869 on line 0 *** start P10V0; at address 2892 *** label 1 at address 2899 on line 0 *** label 3 at address 2904 on line 0 *** label 2 at address 2914 on line 0 *** label 5 at address 2935 on line 0 *** label 6 at address 2946 on line 0 *** label 7 at address 2955 on line 0 *** label 4 at address 2964 on line 0 *** label 14 at address 2965 on line 0 *** label 50 at address 2970 on line 0 *** label 51 at address 2971 on line 0 *** start P104V116; at address 3678 *** start P11V40; at address 3918 *** label 15 at address 3918 on line 0 *** label 3 at address 3923 on line 0 *** label 11 at address 3929 on line 0 *** label 7 at address 3930 on line 0 *** label 1 at address 3949 on line 0 *** label 6 at address 3968 on line 0 *** label 8 at address 3973 on line 0 *** label 2 at address 3982 on line 0 *** label 14 at address 4002 on line 0 *** label 5 at address 4005 on line 0 *** label 12 at address 4017 on line 0 *** label 4 at address 4026 on line 0 *** label 10 at address 4049 on line 0 *** label 13 at address 4065 on line 0 *** start P12V7; at address 4122 *** label 9 at address 4138 on line 0 *** label 1 at address 4141 on line 0 *** label 4 at address 4163 on line 0 *** label 5 at address 4171 on line 0 *** label 2 at address 4177 on line 0 *** label 6 at address 4178 on line 0 *** label 7 at address 4181 on line 0 *** label 10 at address 4245 on line 0 *** label 11 at address 4252 on line 0 *** label 8 at address 4258 on line 0 *** label 12 at address 4273 on line 0 *** label 3 at address 4277 on line 0 *** label 13 at address 4312 on line 0 *** start P13V0; at address 4344 *** label 1 at address 4361 on line 0 *** label 2 at address 4386 on line 0 *** label 3 at address 4387 on line 0 *** start P15V2; at address 4410 *** label 1 at address 4411 on line 0 *** label 2 at address 4414 on line 0 *** label 3 at address 4430 on line 0 *** label 4 at address 4476 on line 0 *** label 6 at address 4511 on line 0 *** label 5 at address 4520 on line 0 *** label 10 at address 4538 on line 0 *** label 70 at address 4565 on line 0 *** label 41 at address 4571 on line 0 *** label 91 at address 4602 on line 0 *** label 15 at address 4636 on line 0 *** label 8 at address 4662 on line 0 *** label 90 at address 4684 on line 0 *** label 74 at address 4694 on line 0 *** label 75 at address 4787 on line 0 *** label 72 at address 4793 on line 0 *** label 71 at address 4840 on line 0 *** start P16V0; at address 4884 *** label 2 at address 4914 on line 0 *** label 3 at address 4920 on line 0 *** label 1 at address 4942 on line 0 *** label 6 at address 4943 on line 0 *** label 5 at address 4992 on line 0 *** label 7 at address 5018 on line 0 *** label 8 at address 5035 on line 0 *** label 10 at address 5057 on line 0 *** label 9 at address 5070 on line 0 *** start P17V0; at address 5076 *** label 5 at address 5141 on line 0 *** label 6 at address 5159 on line 0 *** label 2 at address 5172 on line 0 *** label 3 at address 5175 on line 0 *** start P18V0; at address 5184 *** start P19V0; at address 5190 *** label 4 at address 5202 on line 0 *** label 6 at address 5203 on line 0 *** label 3 at address 5209 on line 0 *** label 5 at address 5219 on line 0 *** start P20V1; at address 5238 *** label 3 at address 5288 on line 0 *** label 5 at address 5295 on line 0 *** label 4 at address 5318 on line 0 *** label 6 at address 5333 on line 0 *** label 7 at address 5352 on line 0 *** label 1 at address 5396 on line 0 *** label 2 at address 5397 on line 0 *** start P21V0; at address 5406 *** label 7 at address 5454 on line 0 *** label 6 at address 5457 on line 0 *** label 3 at address 5466 on line 0 *** label 5 at address 5513 on line 0 *** label 1 at address 5521 on line 0 *** label 2 at address 5522 on line 0 *** start P23V4; at address 5556 *** label 99 at address 5559 on line 0 *** label 82 at address 5565 on line 0 *** label 83 at address 5574 on line 0 *** label 86 at address 5586 on line 0 *** label 87 at address 5587 on line 0 *** label 98 at address 5601 on line 0 *** label 80 at address 5612 on line 0 *** label 156 at address 5653 on line 0 *** label 157 at address 5655 on line 0 *** label 158 at address 5714 on line 0 *** label 15 at address 5737 on line 0 *** label 16 at address 5738 on line 0 *** label 18 at address 5744 on line 0 *** label 19 at address 5750 on line 0 *** label 1 at address 5771 on line 0 *** label 27 at address 5838 on line 0 *** label 29 at address 5845 on line 0 *** label 28 at address 5917 on line 0 *** label 21 at address 5934 on line 0 *** label 14 at address 5961 on line 0 *** label 13 at address 5969 on line 0 *** label 3 at address 5988 on line 0 *** label 5 at address 5998 on line 0 *** label 4 at address 6023 on line 0 *** label 2 at address 6040 on line 0 *** label 11 at address 6050 on line 0 *** label 10 at address 6059 on line 0 *** label 12 at address 6072 on line 0 *** label 24 at address 6079 on line 0 *** label 7 at address 6092 on line 0 *** label 6 at address 6112 on line 0 *** label 8 at address 6113 on line 0 *** label 70 at address 6119 on line 0 *** label 71 at address 6130 on line 0 *** label 9 at address 6136 on line 0 *** start P24V0; at address 6216 *** label 1 at address 6223 on line 0 *** start P26V15; at address 6324 *** label 1 at address 6324 on line 0 *** label 2 at address 6329 on line 0 *** label 3 at address 6346 on line 0 *** label 4 at address 6348 on line 0 *** start P27V0; at address 6378 *** label 3 at address 6381 on line 0 *** label 1 at address 6406 on line 0 *** label 2 at address 6427 on line 0 *** start P28V0; at address 6438 *** start P29V0; at address 6474 *** label 1 at address 6474 on line 0 *** label 63 at address 6490 on line 0 *** label 66 at address 6498 on line 0 *** label 65 at address 6506 on line 0 *** label 2 at address 6512 on line 0 *** label 60 at address 6526 on line 0 *** label 20 at address 6558 on line 0 *** label 19 at address 6566 on line 0 *** label 3 at address 6575 on line 0 *** label 4 at address 6591 on line 0 *** label 5 at address 6601 on line 0 *** label 25 at address 6636 on line 0 *** label 24 at address 6644 on line 0 *** label 6 at address 6650 on line 0 *** label 7 at address 6669 on line 0 *** label 11 at address 6679 on line 0 *** label 32 at address 6686 on line 0 *** label 12 at address 6698 on line 0 *** label 50 at address 6712 on line 0 *** label 13 at address 6718 on line 0 *** label 14 at address 6729 on line 0 *** label 15 at address 6736 on line 0 *** label 16 at address 6748 on line 0 *** label 40 at address 6767 on line 0 *** label 17 at address 6769 on line 0 *** label 29 at address 6776 on line 0 *** label 102 at address 6782 on line 0 *** label 100 at address 6802 on line 0 *** label 101 at address 6832 on line 0 *** start P30V0; at address 6888 *** start P31V0; at address 6906 *** label 8 at address 6906 on line 0 *** label 2 at address 6933 on line 0 *** label 5 at address 6953 on line 0 *** label 4 at address 6954 on line 0 *** label 3 at address 6957 on line 0 *** label 6 at address 6993 on line 0 *** label 7 at address 7003 on line 0 *** label 1 at address 7010 on line 0 *** start P32V0; at address 7020 *** label 1 at address 7023 on line 0 *** label 5 at address 7026 on line 0 *** label 3 at address 7039 on line 0 *** label 4 at address 7042 on line 0 *** label 2 at address 7078 on line 0 *** label 6 at address 7087 on line 0 *** start P33V3; at address 7116 *** label 2 at address 7168 on line 0 *** label 7 at address 7179 on line 0 *** label 3 at address 7200 on line 0 *** label 1 at address 7228 on line 0 *** label 8 at address 7243 on line 0 *** start P34V0; at address 7266 *** label 1 at address 7305 on line 0 *** start P35V0; at address 7314 *** start P37V0; at address 7338 *** label 2 at address 7374 on line 0 *** label 3 at address 7382 on line 0 *** label 4 at address 7410 on line 0 *** start P38V0; at address 7416 *** label 1 at address 7431 on line 0 *** start P39V0; at address 7440 *** label 16 at address 7478 on line 0 *** label 1 at address 7493 on line 0 *** label 2 at address 7536 on line 0 *** label 3 at address 7543 on line 0 *** label 5 at address 7546 on line 0 *** label 4 at address 7550 on line 0 *** label 15 at address 7557 on line 0 *** start P40V0; at address 7566 *** start P41V0; at address 7578 *** label 41 at address 7611 on line 0 *** label 4 at address 7643 on line 0 *** label 2 at address 7660 on line 0 *** start P42V0; at address 7674 *** label 1 at address 7683 on line 0 *** label 2 at address 7689 on line 0 *** start P44V0; at address 7710 *** label 8 at address 7769 on line 0 *** label 6 at address 7772 on line 0 *** label 2 at address 7778 on line 0 *** label 7 at address 7779 on line 0 *** label 4 at address 7808 on line 0 *** label 5 at address 7832 on line 0 *** start P45V13; at address 7950 *** label 2 at address 7970 on line 0 *** label 6 at address 8009 on line 0 *** label 7 at address 8064 on line 0 *** label 10 at address 8079 on line 0 *** label 8 at address 8085 on line 0 *** label 11 at address 8112 on line 0 *** label 9 at address 8140 on line 0 *** label 5 at address 8170 on line 0 *** label 13 at address 8211 on line 0 *** label 12 at address 8212 on line 0 *** label 3 at address 8213 on line 0 *** label 1 at address 8214 on line 0 *** label 4 at address 8215 on line 0 *** start P48V0; at address 8220 *** start P49V0; at address 8262 *** start P50V0; at address 8292 *** start P51V0; at address 8304 *** start P254V17; at address 8418 *** start P52V8; at address 8466 *** label 1 at address 8467 on line 0 *** label 2 at address 8479 on line 0 *** label 13 at address 8532 on line 0 *** label 116 at address 8544 on line 0 *** label 7 at address 8597 on line 0 *** label 3 at address 8600 on line 0 *** label 8 at address 8623 on line 0 *** label 4 at address 8660 on line 0 *** label 5 at address 8672 on line 0 *** label 6 at address 8680 on line 0 *** label 117 at address 8706 on line 0 *** label 115 at address 8712 on line 0 *** label 9 at address 8730 on line 0 *** label 10 at address 8745 on line 0 *** label 25 at address 8820 on line 0 *** label 20 at address 8825 on line 0 *** label 11 at address 8826 on line 0 *** label 23 at address 8829 on line 0 *** label 26 at address 8861 on line 0 *** label 12 at address 8867 on line 0 *** label 14 at address 8884 on line 0 *** label 19 at address 8885 on line 0 *** label 27 at address 8903 on line 0 *** label 18 at address 8940 on line 0 *** label 15 at address 8945 on line 0 *** label 17 at address 8947 on line 0 *** start P53V0; at address 8964 *** label 1 at address 8977 on line 0 *** label 7 at address 9022 on line 0 *** label 5 at address 9030 on line 0 *** label 3 at address 9082 on line 0 *** label 9 at address 9099 on line 0 *** label 2 at address 9125 on line 0 *** label 4 at address 9137 on line 0 *** label 6 at address 9148 on line 0 *** label 8 at address 9156 on line 0 *** start P54V0; at address 9168 *** label 1 at address 9180 on line 0 *** label 2 at address 9212 on line 0 *** start P55V0; at address 9228 *** start P56V0; at address 9240 *** label 1 at address 9242 on line 0 *** label 2 at address 9264 on line 0 *** label 4 at address 9277 on line 0 *** label 3 at address 9278 on line 0 *** label 5 at address 9282 on line 0 *** start P57V1; at address 9306 *** start P58V7; at address 9366 *** label 2 at address 9372 on line 0 *** label 15 at address 9410 on line 0 *** label 5 at address 9411 on line 0 *** label 3 at address 9428 on line 0 *** label 6 at address 9440 on line 0 *** label 8 at address 9497 on line 0 *** label 14 at address 9509 on line 0 *** label 9 at address 9528 on line 0 *** label 4 at address 9532 on line 0 *** label 1 at address 9537 on line 0 *** label 22 at address 9574 on line 0 *** label 23 at address 9576 on line 0 *** label 13 at address 9593 on line 0 *** label 12 at address 9597 on line 0 *** label 11 at address 9606 on line 0 *** label 10 at address 9613 on line 0 *** start P59V0; at address 9618 *** label 1 at address 9623 on line 0 *** label 2 at address 9659 on line 0 *** label 6 at address 9666 on line 0 *** label 3 at address 9670 on line 0 *** label 4 at address 9674 on line 0 *** label 5 at address 9700 on line 0 *** label 7 at address 9712 on line 0 *** label 16 at address 9734 on line 0 *** label 8 at address 9740 on line 0 *** label 9 at address 9752 on line 0 *** label 10 at address 9757 on line 0 *** label 12 at address 9775 on line 0 *** label 11 at address 9787 on line 0 *** label 13 at address 9809 on line 0 *** label 15 at address 9815 on line 0 *** label 17 at address 9822 on line 0 *** start P60V1; at address 9840 *** label 10 at address 9857 on line 0 *** label 2 at address 9859 on line 0 *** label 9 at address 9873 on line 0 *** label 1 at address 9918 on line 0 *** label 7 at address 9951 on line 0 *** label 12 at address 9975 on line 0 *** label 3 at address 9984 on line 0 *** label 4 at address 10008 on line 0 *** label 5 at address 10013 on line 0 *** label 8 at address 10037 on line 0 *** label 6 at address 10040 on line 0 *** label 11 at address 10052 on line 0 *** label 255 at address 10088 on line 0 *** label 254 at address 10096 on line 0 *** label 251 at address 10128 on line 0 *** label 252 at address 10148 on line 0 *** label 253 at address 10172 on line 0 *** label 250 at address 10184 on line 0 *** start P61V0; at address 10194 *** label 5 at address 10235 on line 0 *** label 2 at address 10256 on line 0 *** label 7 at address 10262 on line 0 *** label 6 at address 10266 on line 0 *** label 8 at address 10304 on line 0 *** label 10 at address 10305 on line 0 *** label 3 at address 10314 on line 0 *** label 4 at address 10315 on line 0 *** label 11 at address 10321 on line 0 *** start P62V0; at address 10344 *** start P64V0; at address 10368 *** label 2 at address 10376 on line 0 *** label 1 at address 10388 on line 0 *** start P65V2; at address 10410 *** label 2 at address 10474 on line 0 *** label 3 at address 10478 on line 0 *** label 10 at address 10494 on line 0 *** start P66V0; at address 10500 *** label 1 at address 10504 on line 0 *** label 14 at address 10520 on line 0 *** label 15 at address 10526 on line 0 *** label 19 at address 10532 on line 0 *** label 191 at address 10571 on line 0 *** label 192 at address 10574 on line 0 *** label 193 at address 10602 on line 0 *** label 194 at address 10603 on line 0 *** start P72V4; at address 10632 *** label 8 at address 10718 on line 0 *** label 1 at address 10769 on line 0 *** label 2 at address 10794 on line 0 *** label 3 at address 10817 on line 0 *** label 4 at address 10836 on line 0 *** label 6 at address 10839 on line 0 *** label 5 at address 10843 on line 0 *** label 7 at address 10865 on line 0 *** label 9 at address 10870 on line 0 *** label 10 at address 10876 on line 0 *** start P76V0; at address 10896 *** start P100V9; at address 10956 *** label 1 at address 10968 on line 0 *** label 2 at address 10971 on line 0 *** label 3 at address 10981 on line 0 *** label 11 at address 11004 on line 0 *** label 4 at address 11016 on line 0 *** label 5 at address 11019 on line 0 *** label 6 at address 11024 on line 0 *** label 10 at address 11047 on line 0 *** start P101V30; at address 11268 *** label 1 at address 11286 on line 0 *** label 12 at address 11302 on line 0 *** label 11 at address 11311 on line 0 *** label 2 at address 11344 on line 0 *** label 3 at address 11353 on line 0 *** label 31 at address 11381 on line 0 *** label 32 at address 11394 on line 0 *** label 34 at address 11410 on line 0 *** label 35 at address 11416 on line 0 *** label 33 at address 11418 on line 0 *** label 4 at address 11428 on line 0 *** label 42 at address 11441 on line 0 *** label 43 at address 11447 on line 0 *** label 46 at address 11472 on line 0 *** label 44 at address 11518 on line 0 *** label 45 at address 11523 on line 0 *** label 5 at address 11546 on line 0 *** label 51 at address 11547 on line 0 *** label 6 at address 11558 on line 0 *** start P102V0; at address 11568 *** label 2 at address 11574 on line 0 *** label 1 at address 11587 on line 0 *** start P103V0; at address 11598 *** label 1 at address 11603 on line 0 *** label 2 at address 11609 on line 0 *** label 3 at address 11631 on line 0 *** start P105V2; at address 11658 *** label 6 at address 11664 on line 0 *** label 2 at address 11673 on line 0 *** label 3 at address 11676 on line 0 *** label 7 at address 11718 on line 0 *** label 107 at address 11737 on line 0 *** label 61 at address 11737 on line 0 *** label 8 at address 11742 on line 0 *** label 9 at address 11761 on line 0 *** label 10 at address 11766 on line 0 *** label 11 at address 11781 on line 0 *** label 5 at address 11784 on line 0 *** label 12 at address 11928 on line 0 *** label 66 at address 11977 on line 0 *** label 67 at address 11984 on line 0 *** label 62 at address 11999 on line 0 *** label 64 at address 12001 on line 0 *** label 65 at address 12019 on line 0 *** label 106 at address 12037 on line 0 *** label 63 at address 12049 on line 0 *** label 15 at address 12054 on line 0 *** label 16 at address 12065 on line 0 *** label 17 at address 12068 on line 0 *** label 14 at address 12092 on line 0 *** label 4 at address 12114 on line 0 *** label 1 at address 12120 on line 0 *** label 40 at address 12123 on line 0 *** label 42 at address 12135 on line 0 *** label 44 at address 12137 on line 0 *** label 45 at address 12173 on line 0 *** label 43 at address 12186 on line 0 *** label 50 at address 12197 on line 0 *** label 51 at address 12216 on line 0 *** label 52 at address 12232 on line 0 *** label 18 at address 12238 on line 0 *** label 20 at address 12282 on line 0 *** label 19 at address 12295 on line 0 *** start P300V0; at address 12312 *** label 106 at address 12312 on line 0 *** label 10 at address 12327 on line 0 *** label 107 at address 12350 on line 0 *** label 108 at address 12363 on line 0 *** label 109 at address 12385 on line 0 *** label 110 at address 12409 on line 0 *** label 1 at address 12420 on line 0 *** label 2 at address 12428 on line 0 *** label 111 at address 12431 on line 0 *** label 112 at address 12455 on line 0 *** label 113 at address 12473 on line 0 *** label 114 at address 12480 on line 0 *** label 20 at address 12485 on line 0 *** label 115 at address 12498 on line 0 *** start P116V3; at address 12534 *** label 1 at address 12544 on line 0 *** label 2 at address 12555 on line 0 *** label 3 at address 12584 on line 0 *** label 4 at address 12585 on line 0 *** start P117V0; at address 12600 *** label 1 at address 12611 on line 0 *** label 2 at address 12643 on line 0 *** label 3 at address 12649 on line 0 *** label 4 at address 12661 on line 0 *** start P18V0; at address 12684 *** start P119V0; at address 12732 *** start P120V6; at address 12786 *** label 11 at address 12786 on line 0 *** label 14 at address 12834 on line 0 *** label 16 at address 12852 on line 0 *** label 93 at address 12887 on line 0 *** label 94 at address 12913 on line 0 *** label 22 at address 12926 on line 0 *** label 19 at address 12962 on line 0 *** label 20 at address 13006 on line 0 *** label 24 at address 13025 on line 0 *** label 25 at address 13031 on line 0 *** label 105 at address 13045 on line 0 *** label 21 at address 13055 on line 0 *** label 23 at address 13110 on line 0 *** label 28 at address 13131 on line 0 *** label 29 at address 13158 on line 0 *** label 30 at address 13189 on line 0 *** label 74 at address 13203 on line 0 *** label 81 at address 13209 on line 0 *** label 69 at address 13237 on line 0 *** label 82 at address 13278 on line 0 *** label 182 at address 13297 on line 0 *** label 31 at address 13320 on line 0 *** label 32 at address 13352 on line 0 *** label 37 at address 13370 on line 0 *** label 63 at address 13376 on line 0 *** label 39 at address 13377 on line 0 *** label 33 at address 13383 on line 0 *** label 34 at address 13390 on line 0 *** label 35 at address 13394 on line 0 *** label 36 at address 13430 on line 0 *** label 136 at address 13442 on line 0 *** label 38 at address 13459 on line 0 *** label 140 at address 13497 on line 0 *** label 40 at address 13499 on line 0 *** label 78 at address 13551 on line 0 *** label 85 at address 13557 on line 0 *** label 83 at address 13563 on line 0 *** label 86 at address 13577 on line 0 *** label 42 at address 13633 on line 0 *** label 51 at address 13650 on line 0 *** label 52 at address 13658 on line 0 *** label 53 at address 13690 on line 0 *** label 43 at address 13712 on line 0 *** label 47 at address 13715 on line 0 *** label 44 at address 13729 on line 0 *** label 201 at address 13869 on line 0 *** label 49 at address 13933 on line 0 *** label 64 at address 13936 on line 0 *** label 50 at address 13940 on line 0 *** label 141 at address 13946 on line 0 *** label 48 at address 13962 on line 0 *** label 107 at address 13968 on line 0 *** label 183 at address 14000 on line 0 *** label 200 at address 14022 on line 0 *** label 109 at address 14037 on line 0 *** label 111 at address 14067 on line 0 *** label 110 at address 14076 on line 0 *** label 106 at address 14092 on line 0 *** label 84 at address 14102 on line 0 *** label 87 at address 14119 on line 0 *** label 96 at address 14151 on line 0 *** label 98 at address 14152 on line 0 *** start P121V0; at address 14160 *** label 22 at address 14191 on line 0 *** label 20 at address 14194 on line 0 *** label 21 at address 14217 on line 0 *** label 1 at address 14234 on line 0 *** label 2 at address 14245 on line 0 *** label 3 at address 14259 on line 0 *** label 4 at address 14264 on line 0 *** label 10 at address 14282 on line 0 *** start P122V1; at address 14346 *** label 1 at address 14351 on line 0 *** label 2 at address 14357 on line 0 *** start P123V0; at address 14382 *** label 1 at address 14407 on line 0 *** start P125V0; at address 14418 *** start P126V0; at address 14436 *** start P127V0; at address 14448 *** label 1 at address 14460 on line 0 *** start P128V0; at address 14466 *** start P130V0; at address 14484 *** label 1 at address 14506 on line 0 *** label 2 at address 14536 on line 0 *** label 5 at address 14539 on line 0 *** label 3 at address 14543 on line 0 *** label 4 at address 14558 on line 0 *** label 6 at address 14582 on line 0 *** label 7 at address 14639 on line 0 *** label 10 at address 14690 on line 0 *** label 12 at address 14699 on line 0 *** label 50 at address 14705 on line 0 *** label 25 at address 14724 on line 0 *** label 11 at address 14736 on line 0 *** label 13 at address 14832 on line 0 *** label 39 at address 14844 on line 0 *** start P131V0; at address 14874 *** start P132V0; at address 14886 *** start P133V0; at address 14898 *** label 1 at address 14907 on line 0 *** start P134V0; at address 14934 *** start P135V0; at address 14970 *** start P136V0; at address 14976 *** label 10 at address 15009 on line 0 *** start P137V0; at address 15024 *** label 1 at address 15030 on line 0 *** start P138V0; at address 15054 *** start P139V0; at address 15072 *** label 1 at address 15080 on line 0 *** start P154V0; at address 15090 *** start P155V17; at address 15198 *** label 93 at address 15204 on line 0 *** label 99 at address 15233 on line 0 *** label 98 at address 15258 on line 0 *** label 97 at address 15264 on line 0 *** label 96 at address 15269 on line 0 *** label 91 at address 15298 on line 0 *** label 95 at address 15317 on line 0 *** label 92 at address 15353 on line 0 *** label 162 at address 15369 on line 0 *** label 163 at address 15372 on line 0 *** label 90 at address 15412 on line 0 *** label 100 at address 15413 on line 0 *** label 1 at address 15438 on line 0 *** label 7 at address 15443 on line 0 *** label 11 at address 15467 on line 0 *** label 2 at address 15515 on line 0 *** label 12 at address 15523 on line 0 *** label 3 at address 15551 on line 0 *** label 4 at address 15567 on line 0 *** label 5 at address 15569 on line 0 *** label 254 at address 15572 on line 0 *** label 6 at address 15588 on line 0 *** label 50 at address 15609 on line 0 *** label 51 at address 15615 on line 0 *** label 52 at address 15642 on line 0 *** label 53 at address 15666 on line 0 *** label 8 at address 15690 on line 0 *** label 23 at address 15736 on line 0 *** label 33 at address 15755 on line 0 *** label 20 at address 15773 on line 0 *** label 21 at address 15782 on line 0 *** label 42 at address 15800 on line 0 *** label 40 at address 15812 on line 0 *** label 41 at address 15815 on line 0 *** label 25 at address 15865 on line 0 *** label 31 at address 15868 on line 0 *** label 32 at address 15879 on line 0 *** label 22 at address 15884 on line 0 *** label 101 at address 15941 on line 0 *** label 253 at address 15977 on line 0 *** label 255 at address 16001 on line 0 *** label 107 at address 16003 on line 0 *** label 102 at address 16030 on line 0 *** label 104 at address 16058 on line 0 *** label 103 at address 16137 on line 0 *** label 106 at address 16154 on line 0 *** label 105 at address 16157 on line 0 *** label 112 at address 16161 on line 0 *** label 108 at address 16182 on line 0 *** label 109 at address 16203 on line 0 *** label 111 at address 16234 on line 0 *** label 110 at address 16274 on line 0 *** start P161V5; at address 16320 *** label 1 at address 16323 on line 0 *** label 2 at address 16327 on line 0 *** start P192V0; at address 16338 *** label 2 at address 16370 on line 0 *** label 6 at address 16452 on line 0 *** label 16 at address 16461 on line 0 *** label 7 at address 16476 on line 0 *** label 18 at address 16485 on line 0 *** label 17 at address 16489 on line 0 *** label 15 at address 16494 on line 0 *** label 19 at address 16501 on line 0 *** label 11 at address 16560 on line 0 *** label 1 at address 16566 on line 0 *** label 4 at address 16568 on line 0 *** label 98 at address 16597 on line 0 *** label 20 at address 16597 on line 0 *** label 99 at address 16598 on line 0 *** label 5 at address 16610 on line 0 *** label 30 at address 16634 on line 0 *** label 31 at address 16636 on line 0 *** label 199 at address 16676 on line 0 *** start P193V2; at address 16698 *** label 9 at address 16717 on line 0 *** label 8 at address 16733 on line 0 *** label 13 at address 16740 on line 0 *** label 6 at address 16749 on line 0 *** label 1 at address 16781 on line 0 *** label 2 at address 16794 on line 0 *** label 3 at address 16833 on line 0 *** label 4 at address 16839 on line 0 *** label 5 at address 16852 on line 0 *** label 7 at address 16861 on line 0 *** label 10 at address 16896 on line 0 *** label 11 at address 16911 on line 0 *** label 111 at address 16943 on line 0 *** label 12 at address 16953 on line 0 *** label 113 at address 16996 on line 0 *** label 114 at address 17017 on line 0 *** label 112 at address 17018 on line 0 *** start P194V2; at address 17040 *** label 1 at address 17044 on line 0 *** label 129 at address 17049 on line 0 *** label 2 at address 17055 on line 0 *** label 6 at address 17059 on line 0 *** label 5 at address 17107 on line 0 *** label 15 at address 17130 on line 0 *** label 17 at address 17140 on line 0 *** label 10 at address 17164 on line 0 *** label 4 at address 17192 on line 0 *** label 3 at address 17227 on line 0 *** label 14 at address 17237 on line 0 *** label 19 at address 17243 on line 0 *** label 18 at address 17249 on line 0 *** label 16 at address 17257 on line 0 *** label 22 at address 17281 on line 0 *** label 23 at address 17284 on line 0 *** label 8 at address 17327 on line 0 *** label 101 at address 17334 on line 0 *** label 200 at address 17343 on line 0 *** label 27 at address 17372 on line 0 *** label 127 at address 17373 on line 0 *** label 128 at address 17385 on line 0 *** label 130 at address 17418 on line 0 *** label 131 at address 17429 on line 0 *** label 132 at address 17432 on line 0 *** label 28 at address 17441 on line 0 *** label 29 at address 17446 on line 0 *** start P195V7; at address 17502 *** label 53 at address 17502 on line 0 *** label 211 at address 17514 on line 0 *** label 213 at address 17520 on line 0 *** label 212 at address 17525 on line 0 *** label 214 at address 17532 on line 0 *** label 215 at address 17574 on line 0 *** label 44 at address 17588 on line 0 *** label 45 at address 17616 on line 0 *** label 145 at address 17676 on line 0 *** label 242 at address 17689 on line 0 *** label 24 at address 17698 on line 0 *** label 26 at address 17716 on line 0 *** label 226 at address 17717 on line 0 *** label 17 at address 17739 on line 0 *** label 10 at address 17746 on line 0 *** label 11 at address 17790 on line 0 *** label 244 at address 17799 on line 0 *** label 13 at address 17807 on line 0 *** label 12 at address 17840 on line 0 *** label 162 at address 17924 on line 0 *** label 161 at address 17925 on line 0 *** label 163 at address 17937 on line 0 *** label 5 at address 17940 on line 0 *** label 22 at address 17953 on line 0 *** label 15 at address 17997 on line 0 *** label 29 at address 18003 on line 0 *** label 16 at address 18058 on line 0 *** label 160 at address 18140 on line 0 *** label 14 at address 18155 on line 0 *** label 37 at address 18186 on line 0 *** label 40 at address 18219 on line 0 *** label 142 at address 18271 on line 0 *** label 143 at address 18296 on line 0 *** label 140 at address 18311 on line 0 *** label 141 at address 18317 on line 0 *** label 255 at address 18328 on line 0 *** label 254 at address 18341 on line 0 *** start P196V0; at address 18354 *** label 101 at address 18354 on line 0 *** label 11 at address 18365 on line 0 *** label 2 at address 18373 on line 0 *** label 3 at address 18383 on line 0 *** label 128 at address 18397 on line 0 *** label 129 at address 18403 on line 0 *** label 4 at address 18406 on line 0 *** label 5 at address 18412 on line 0 *** label 7 at address 18418 on line 0 *** label 17 at address 18419 on line 0 *** label 6 at address 18422 on line 0 *** label 9 at address 18428 on line 0 *** label 21 at address 18435 on line 0 *** label 31 at address 18435 on line 0 *** label 22 at address 18440 on line 0 *** label 127 at address 18441 on line 0 *** label 132 at address 18447 on line 0 *** label 130 at address 18453 on line 0 *** label 100 at address 18488 on line 0 *** label 23 at address 18496 on line 0 *** label 147 at address 18503 on line 0 *** label 8 at address 18508 on line 0 *** label 126 at address 18517 on line 0 *** label 10 at address 18526 on line 0 *** label 30 at address 18541 on line 0 *** label 32 at address 18555 on line 0 *** label 41 at address 18572 on line 0 *** label 42 at address 18580 on line 0 *** label 142 at address 18584 on line 0 *** label 143 at address 18607 on line 0 *** label 47 at address 18637 on line 0 *** label 247 at address 18661 on line 0 *** label 33 at address 18678 on line 0 *** label 136 at address 18683 on line 0 *** label 236 at address 18703 on line 0 *** label 138 at address 18712 on line 0 *** label 34 at address 18715 on line 0 *** label 36 at address 18722 on line 0 *** label 234 at address 18732 on line 0 *** label 70 at address 18738 on line 0 *** start P197V41; at address 18996 *** label 100 at address 18999 on line 0 *** label 3 at address 19013 on line 0 *** label 11 at address 19038 on line 0 *** label 5 at address 19062 on line 0 *** label 4 at address 19063 on line 0 *** label 10 at address 19068 on line 0 *** label 2 at address 19079 on line 0 *** label 1 at address 19098 on line 0 *** label 12 at address 19109 on line 0 *** start P198V0; at address 19134 *** label 1 at address 19150 on line 0 *** label 9 at address 19202 on line 0 *** label 12 at address 19206 on line 0 *** label 16 at address 19251 on line 0 *** label 14 at address 19261 on line 0 *** label 4 at address 19271 on line 0 *** label 2 at address 19279 on line 0 *** label 13 at address 19281 on line 0 *** label 3 at address 19282 on line 0 *** label 15 at address 19295 on line 0 *** label 10 at address 19301 on line 0 *** start P199V3; at address 19326 *** label 11 at address 19355 on line 0 *** label 1 at address 19393 on line 0 *** label 2 at address 19427 on line 0 *** label 3 at address 19460 on line 0 *** label 71 at address 19555 on line 0 *** label 73 at address 19573 on line 0 *** label 21 at address 19591 on line 0 *** label 16 at address 19609 on line 0 *** label 19 at address 19612 on line 0 *** label 18 at address 19619 on line 0 *** label 13 at address 19626 on line 0 *** label 15 at address 19638 on line 0 *** label 6 at address 19656 on line 0 *** label 5 at address 19659 on line 0 *** label 20 at address 19680 on line 0 *** label 17 at address 19701 on line 0 *** label 4 at address 19709 on line 0 *** label 24 at address 19723 on line 0 *** label 14 at address 19734 on line 0 *** label 72 at address 19744 on line 0 *** start P2939V0; at address 19758 *** label 13 at address 19767 on line 0 *** label 14 at address 19779 on line 0 *** label 52 at address 19784 on line 0 *** label 53 at address 19822 on line 0 *** label 1 at address 19845 on line 0 *** label 54 at address 19873 on line 0 *** label 2 at address 19906 on line 0 *** start P200V45; at address 20184 *** label 100 at address 20278 on line 0 *** label 101 at address 20285 on line 0 *** label 102 at address 20298 on line 0 *** label 103 at address 20311 on line 0 *** label 105 at address 20317 on line 0 *** label 104 at address 20323 on line 0 *** label 107 at address 20364 on line 0 *** label 109 at address 20374 on line 0 *** label 110 at address 20416 on line 0 *** label 108 at address 20431 on line 0 *** label 106 at address 20441 on line 0 *** label 2 at address 20444 on line 0 *** label 61 at address 20499 on line 0 *** label 15 at address 20528 on line 0 *** label 16 at address 20563 on line 0 *** label 9 at address 20564 on line 0 *** label 10 at address 20565 on line 0 *** label 11 at address 20653 on line 0 *** label 12 at address 20709 on line 0 *** label 13 at address 20710 on line 0 *** label 14 at address 20713 on line 0 *** label 70 at address 20808 on line 0 *** label 60 at address 20813 on line 0 *** label 200 at address 20819 on line 0 *** start P201V0; at address 20832 *** label 1 at address 20832 on line 0 *** start P202V0; at address 20850 *** label 1 at address 20863 on line 0 *** label 2 at address 20878 on line 0 *** label 6 at address 20885 on line 0 *** label 3 at address 20888 on line 0 *** label 4 at address 20892 on line 0 *** label 5 at address 20918 on line 0 *** start P204V0; at address 20928 *** start P206V0; at address 20934 *** label 1 at address 20944 on line 0 *** label 2 at address 20946 on line 0 *** start P208V9; at address 21048 *** label 2 at address 21101 on line 0 *** label 1 at address 21131 on line 0 *** label 3 at address 21168 on line 0 *** label 5 at address 21189 on line 0 *** label 4 at address 21199 on line 0 *** start P209V21; at address 21336 *** label 60 at address 21417 on line 0 *** label 111 at address 21522 on line 0 *** label 10 at address 21528 on line 0 *** label 63 at address 21595 on line 0 *** label 150 at address 21639 on line 0 *** label 102 at address 21653 on line 0 *** label 101 at address 21660 on line 0 *** label 51 at address 21708 on line 0 *** label 68 at address 21716 on line 0 *** label 69 at address 21732 on line 0 *** label 64 at address 21750 on line 0 *** label 67 at address 21756 on line 0 *** label 65 at address 21761 on line 0 *** label 66 at address 21786 on line 0 *** label 61 at address 21816 on line 0 *** label 120 at address 21825 on line 0 *** label 20 at address 21830 on line 0 *** label 62 at address 21831 on line 0 *** label 236 at address 21883 on line 0 *** label 7 at address 21894 on line 0 *** label 11 at address 21904 on line 0 *** label 12 at address 21917 on line 0 *** label 100 at address 21933 on line 0 *** start P210V14; at address 22032 *** label 1 at address 22086 on line 0 *** label 2 at address 22114 on line 0 *** start P297V0; at address 22140 *** label 11 at address 22164 on line 0 *** label 1 at address 22175 on line 0 *** label 12 at address 22188 on line 0 *** label 2 at address 22199 on line 0 *** start P298V5; at address 22248 *** label 2 at address 22284 on line 0 *** label 3 at address 22289 on line 0 *** label 4 at address 22313 on line 0 *** label 5 at address 22316 on line 0 *** label 6 at address 22332 on line 0 *** label 7 at address 22337 on line 0 *** label 8 at address 22345 on line 0 *** label 9 at address 22368 on line 0 *** label 10 at address 22374 on line 0 *** label 60 at address 22377 on line 0 *** start P-1V-1; at address 22428 FINISH !!! Reached end of file =============== Second pass =========================== reserving V 86 29 ========= V29; 4/0: 200 275 044 4/3: 200 275 044 ========= RESTART; JP200; JP200; Start main program RESTART seen ========= PROGRAM; ========= ========= ========= (== Typed from a photocopy of a lineprinter listing at the NAHC First unverified version 1 June 2005 Corrections based on first generation assembler output : 2 June 2005 Differences from listing : 1. Lower case characters used in comments 2. character * used in place of pound sterling symbol Hans B PUFAL, May 2005); ========= ========= [ == Various corrections by David Holdsworth, who wrote much of the code arund 1967-71 - Feb 2009 ========= [ == Comments introduced by [ and continued to end of line are "21st century comments" inserted from recollections ========= ========= (TITLE: OUT20 ETC) ========= ========= [ at the end of P45 is a string of erases followed by EXIT1 ========= [ These are used for obeying conditional exits and discarding nesting store data ========= V-store at 00015 = 000 000 001 014 157 172 ========= V5=1.048576/23; ========= [ V7 is currently executing program priority V-store at 00020 = 000 004 376 073 000 000 ========= V8=Q4/-453/0; (Increment .027 Msec) V-store at 00022 = 000 000 000 000 020 000 ========= V10=1/35; V-store at 00023 = 000 000 000 000 040 000 ========= V11=2/35; V-store at 00024 = 000 000 000 300 000 000 ========= V12=3/25; V-store at 00026 = 000 000 000 000 000 001 ========= V14=1; V-store at 00027 = 010 171 241 246 314 300 ========= V15=B0207464151546300; [ "FAILS " for use in console error messages ========= [ V16-22 are the reason for interrupt markers V-store at 00037 = 040 202 010 040 202 010 ========= V23=B1010101010101010; [ radix word for octal conversions V-store at 00040 = 010 117 377 374 164 000 ========= V24=B0204777777072000; [ four tabbing words for the user program columns on the console V-store at 00041 = 010 101 077 374 164 100 ========= V25=B0204047777072100; V-store at 00042 = 010 101 004 374 164 200 ========= V26=B0204040477072200; V-store at 00043 = 010 101 004 020 164 300 ========= V27=B0204040404072300; ========= (V28=Director/Program marker) ========= (V29 is easily OUT11 accessable marker, current bits in set are D0 - SET1 if on line M/C D35-44 - Number of words of user space(mod 32) D45-47 - Data number Sunday=0,Monday=1 etc); [ surely it means day number ========= 46/0: 300 000 044 46/3: 220 140 116 ========= V28; J35=Z; [ This means that an interrupt occurred even though still in director 47/0: 041 47/1: 301 000 044 47/4: 176 010 50/0: 171 120 50/2: 301 000 012 ========= ZERO; =V28; K4; Q5; =V2; [ get RFI and preserve programmer's Q5 -- hooter comes on if K4 not obeyed frequently 50/5: 300 000 017 51/2: 170 122 51/4: 304 000 003 52/1: 200 340 053 ========= V7; =M5; SET3; J11NTR; 52/4: 167 375 ========= SHC-2; 53/0: 205 200 053 ========= 11; J12NV; 53/3: 167 377 ========= SHC-1; 53/5: 301 121 361 54/2: 042 54/3: 164 325 54/5: 047 55/0: 065 ========= 12; =V1P104M5; DUP; SHL-22; STR; REV; 55/1: 052 55/2: 300 002 323 55/5: 054 56/0: 011 ========= ERASE; V0P13; AND; OR; 56/1: 042 56/2: 304 000 013 56/5: 164 047 ========= 51; DUP; SETB101; SHL+19; 57/1: 065 57/2: 167 003 57/4: 164 053 60/0: 205 140 060 ========= REV; SHC+1; SHL+21; J2!=Z; 60/3: 011 60/4: 041 ========= OR; (No RFIS so insert D22,28); ZERO; 60/5: 033 61/0: 054 ========= 2; NOT; AND; (Remove D22,28) 61/1: 042 61/2: 167 003 61/4: 164 053 62/0: 204 140 124 ========= DUP; SHC+1; SHL+21; J1!=Z; ========= (Jump if any RFI other than PR or LOV) [ this is where the long path is chosen 62/3: 300 000 015 63/0: 035 63/1: 042 63/2: 301 000 016 63/5: 300 121 365 64/2: 056 ========= V5; x; DUP; =V6; V5P104M5; +; [ short path continues here 64/3: 042 64/4: 301 121 365 65/1: 171 122 65/3: 065 ========= DUP; =V5P104M5; M5; REV; 65/4: 300 120 021 66/1: 164 013 66/3: 170 122 66/5: 114 120 67/1: 037 ========= V9M5; SHL+5; =M5; M5M0HN; SIGN; 67/2: 225 100 122 ========= J4>Z; (Jump if time limit exceeded) 67/5: 304 122 275 ========= SET-109891; (Basic SP 0.655 Msec) 70/2: 300 000 020 70/5: 170 120 71/1: 170 122 71/3: 300 001 360 72/0: 176 004 72/2: 011 72/3: 164 377 ========= 32; V8; =Q5; =M5; V0P104; K5;OR; SHL-1; 72/5: 017 73/0: 164 015 73/2: 042 73/3: 204 040 076 74/0: 143 120 74/2: 140 120 74/4: 177 120 ========= *5; SHL+6; DUP; J6>=Z; (Jump if hold-up digit not present); DC5; M+I5; J5C5NZS; [ find the highest priority program that is not held up 75/0: 301 000 026 ========= (No program can be entered); =V14; (d0=1) 75/3: 052 75/4: 200 320 300 76/1: 204 260 200 ========= ERASE; JSP1; J23; [ main idle loop in long path ========= 76/4: 174 000 ========= 6; =LINK; (Plant dummy link) 77/0: 304 000 004 77/3: 171 132 77/5: 036 100/0: 171 122 100/2: 012 ========= SET4; C5; -; M5; PERM; (N1= new priority, N2= old priority, N3= path correction) 100/3: 065 100/4: 170 122 101/0: 176 001 101/2: 167 017 101/4: 033 101/5: 027 102/0: 167 363 ========= 30; REV; =M5; K7; SHC+7; NOT; NEG; SHC-7; 102/2: 301 121 375 ========= =V13P104M5; (Preserve adjusted NS counters) 102/5: 042 103/0: 301 000 017 103/3: 170 122 ========= DUP; =V7; =M5; (New priority number) 103/5: 300 121 364 104/2: 056 104/3: 300 000 016 105/0: 036 105/1: 301 121 365 ========= V4P104M5; +; V6; -; =V5P104M5; (Run time) 105/4: 001 105/5: 300 121 361 106/2: 161 003 106/4: 002 ========= VR; V1P104M5; SHA+1; =TR; [ clever code to reinstate VR and TR 106/5: 300 122 001 107/2: 175 040 107/4: 052 ========= V17P104M5; =K2; ERASE; (CPDAR); [ current program device allocation register 107/5: 300 120 021 110/2: 300 121 375 110/5: 300 000 012 111/2: 170 120 111/4: 042 111/5: 175 020 ========= V9M5; V13P104M5; V2; =Q5; DUP; =K3; [ switches to new register stack ========= ========= (== 2 ==) 112/1: 017 112/2: 017 112/3: 017 112/4: 017 112/5: 017 ========= DUMMY; DUMMY; DUMMY; DUMMY; DUMMY; 113/0: 017 ========= DUMMY; (Allow new set to settle down) 113/1: 301 000 044 113/4: 173 000 114/0: 052 ========= =V28; LINK; ERASE; (Remove dummy link) 114/1: 301 000 044 ========= =V28; (Store twice in case of reset) 114/4: 017 114/5: 017 115/0: 175 100 115/2: 052 115/3: 222 360 000 ========= *=K1; ERASE; EXITD; (return to program) ========= ========= 35; (Director failure); 116/0: 304 377 367 116/3: 042 116/4: 170 122 117/0: 301 000 017 ========= SET-9; DUP; =M5; =V7; 117/3: 041 117/4: 033 117/5: 301 001 213 120/2: 200 320 300 120/5: 200 322 257 ========= ZERO; NOT; =V1P6; JSP1; JSP12; 121/2: 176 010 121/4: 052 121/5: 200 326 103 122/2: 202 260 121 ========= 36; K4; ERASE; JSP59; J36; 122/5: 170 122 123/1: 200 320 300 123/4: 041 123/5: 042 124/0: 033 124/1: 200 260 155 ========= 4; =M5; JSP1; ZERO; DUP; NOT; J9; ========= 124/4: 042 124/5: 164 317 125/1: 065 ========= 1; DUP; SHL-25; REV; [ long path entry 125/2: 170 120 125/4: 221 040 127 126/1: 200 320 300 ========= =Q5; J10=Z; (Prog is silent so skip output ident); 333/0: 300 122 031 333/3: 300 122 025 334/0: 166 061 334/2: 300 120 040 334/5: 304 000 003 335/2: 200 321 316 ========= V41P104M5; V37P104M5; SHLD24; V24P0M5; SET3; JS4P6; 335/5: 042 336/0: 164 351 336/2: 201 140 345 ========= 30; DUP; SHL-12; J6!=Z; 336/5: 041 337/0: 166 247 337/2: 300 000 037 ========= ZERO; SHLD-45; V23P0; 337/5: 042 340/0: 066 340/1: 067 340/2: 065 340/3: 164 003 ========= DUP; CAB; FRB; REV; SHL+1; 340/5: 056 341/0: 164 111 341/2: 164 351 341/4: 065 341/5: 300 000 037 ========= +; SHL+36; SHL-12; REV; V23P0; 342/2: 164 375 342/4: 065 342/5: 164 247 343/1: 067 343/2: 042 ========= SHL-2; REV; SHL-45; FRB; DUP; 343/3: 164 015 343/5: 036 344/0: 036 344/1: 304 000 013 344/4: 164 005 ========= SHL+6; -; -; SETB131355; SHL+2; 345/0: 054 ========= AND; 345/1: 300 000 313 345/4: 200 326 002 346/1: 167 365 346/3: 011 ========= 6; V1; JSP55; SHC-6; OR; 346/4: 300 120 040 347/1: 304 000 003 347/4: 200 321 316 ========= V24P0M5; SET3; JS4P6; 350/1: 200 322 257 350/4: 203 324 112 351/1: 017 351/2: 017 351/3: 017 ========= 2; JSP12; JS4P29; DUMMY; DUMMY; DUMMY; 351/4: 203 324 127 352/1: 017 352/2: 017 352/3: 017 ========= JS7P29; DUMMY; DUMMY; DUMMY; 352/4: 300 000 312 353/1: 042 353/2: 201 142 337 ========= V0; DUP; J1P15!=Z; 353/5: 300 007 121 354/2: 164 003 354/4: 202 040 365 ========= V26P101; SHL1; J4>=Z; (J if no react query); [ when prog fails operator is asked query REACT; 355/1: 304 000 013 355/4: 301 122 015 ========= 5; SETB20; =V29P104M5; (Stop tint a while react query); [ e.g. TINT A abandons a program, which might interfere 356/1: 300 120 040 356/4: 203 320 370 357/1: 101 006 ========= V24P0M5; JS3; =M0M6; 357/3: 171 142 357/5: 042 360/0: 304 000 002 360/3: 056 360/4: 200 321 327 ========= M6; DUP; SET2; +; JSP8; 361/1: 041 361/2: 301 122 015 ========= ZERO; =V29P104M5; 361/5: 203 320 370 362/2: 300 140 002 362/5: 164 255 ========= JS3; E2M6; SHL-42; 363/1: 304 000 013 363/4: 065 363/5: 203 140 373 ========= SETB41; REV; J1!=Z; 364/2: 304 000 007 364/5: 201 262 337 ========= 9; SET7; J1P15; 365/2: 300 122 075 365/5: 164 015 366/1: 201 040 355 366/4: 052 366/5: 202 260 364 ========= 4; V77P104M5; SHL6; J5>=Z; (J if loud); ERASE; J9; 367/2: 017 367/3: 017 367/4: 017 367/5: 017 370/0: 200 320 004 ========= *10; JSE4; 370/3: 300 121 375 371/0: 164 245 371/2: 042 371/3: 164 003 371/5: 056 ========= 3; V13P104M5; SHL-46; DUP; SHL+1; +; 372/0: 304 000 314 372/3: 056 372/4: 170 142 373/0: 200 360 000 ========= SETAV2; +; =M6; EXIT1; ========= 1; (Even restart) 373/3: 300 120 021 374/0: 164 013 374/2: 170 142 374/4: 300 140 004 375/1: 300 000 370 375/4: 015 375/5: 164 321 376/1: 222 140 364 ========= V9P0M5; SHL5; =M6; E4M6; R10; NEV; SHL-24;J9=Z; 376/4: 300 122 121 377/1: 304 000 004 377/4: 042 377/5: 164 061 400/1: 056 400/2: 056 400/3: 301 122 121 ========= V97P104M5; SET4; DUP; SHL24; +; +; =V97P104M5; ========= (JS142P195; Clear OUT40 if set); 401/0: 304 000 004 401/3: 042 401/4: 202 324 124 402/1: 200 260 116 ========= SET4; DUP; JS6P29; J35P0; 402/4: 164 061 403/0: 300 121 365 403/3: 056 403/4: 300 120 021 ========= SHL+24; V5P104M5; +; V9P0M5; 404/1: 164 013 404/3: 170 142 404/5: 115 140 405/1: 200 360 000 ========= SHL+5; =M6; =M6M0HN; EXIT1; ========= 405/4: 300 000 035 406/1: 201 140 332 406/4: 167 357 407/0: 301 122 075 ========= 20; V21P0; J29!=Z; (Not if fail S); SHC-9; =V77P104M5; [ cancel the right to a silent fail - stops looping 407/3: 170 173 407/5: 300 002 255 410/2: 220 141 016 V64P1 is out of range, only 35 V-stores specified 410/5: 300 000 335 ========= =RC7; V6P12; J21=Z; V64P1; 411/2: 300 000 276 411/5: 164 127 412/1: 300 000 275 412/4: 166 013 413/0: 170 164 413/2: 301 002 255 ========= V33P1; SHL+43; V32P1; SHLD+5; =I7; =V6P12; 413/5: 304 000 017 414/2: 042 414/3: 301 000 275 415/0: 301 000 276 415/3: 200 261 017 ========= SET15; DUP; =V32P1; =V33P1; J22; 416/0: 201 324 114 416/3: 200 320 116 ========= 21; JS5P29; JS35P0; [ EXIT1 should never happen - so fail director if it ever does ========= (== 4 ==) 417/0: 170 162 417/2: 203 320 373 417/5: 171 160 420/1: 301 140 006 420/4: 200 360 000 ========= 22; =M7; JS1; Q7; =E6M6; EXIT1; ========= ========= *** start P3V0; at address 1644 ========= P3V0; (OUT subroutine) V-store at 00421 = 377 377 377 377 355 355 ========= V0=B 77 77 77 77 77 76 67 55; [ bit for each valid OUT 0-34 36 37 39-42 44 45 47 422/0: 041 422/1: 301 000 034 ========= ZERO; =V20P0; (Clear out marker); 422/4: 300 000 033 423/1: 170 160 ========= V19P0; =Q7; 423/3: 300 000 255 424/0: 304 000 013 424/3: 036 424/4: 042 424/5: 202 041 026 ========= V16P1; SETB57777; -; DUP; J1>=Z; [ top cell of program's SJNS 425/2: 304 000 013 425/5: 167 003 426/1: 036 ========= SETB120000; SHC+1; -; 426/2: 301 000 255 ========= 1; =V16P1; (Link has 3 syllables added); [ so as to resume at the next instruction 426/5: 041 427/0: 033 427/1: 301 000 033 ========= ZERO; NOT; =V19P0; [ force EDT routine to deal with all sorts of things 427/4: 300 000 275 430/1: 222 141 061 430/4: 300 000 235 431/1: 170 152 431/3: 300 001 021 432/0: 041 432/1: 166 140 432/3: 003 ========= V32P1; J4=Z; V0P1; =C6; V0; ZERO; SHLDC6; BITS; 432/4: 065 432/5: 203 041 035 433/2: 167 377 433/4: 047 433/5: 304 000 013 434/2: 054 434/3: 056 ========= REV; J3>=Z; SHC-1; STR; SETB60000; AND; +; 434/4: 174 000 435/0: 202 361 062 ========= 6; =LINK; ( C6; SETB77; AND; SETAV0P6000U; +; =M6; [ supresses incrementing of out counter M0M6H; SHL-24; NOT; NEG; SHL24; =M0M6H; ); EXITAR2; 435/3: 052 435/4: 171 152 436/0: 304 000 062 436/3: 220 026 307 437/0: 304 000 063 437/3: 220 026 326 ========= 3; ERASE; C6; SET50; JP65=; SET51; JP66=; [ OUT 50 etc -- NPL specials ?? 440/0: 304 000 064 440/3: 222 034 341 441/0: 304 000 065 441/3: 224 034 347 ========= SET52; J52P2939=; SET53; J53P2939=; 442/0: 304 000 066 442/3: 221 034 360 ========= SET54; J54P2939=; 443/0: 042 443/1: 033 443/2: 221 141 052 ========= DUP; NOT; J100=Z; (J if OUT -1 for clear transfer); 443/5: 304 000 013 444/2: 015 444/3: 202 141 060 ========= SETB12345; NEV; J5!=Z; [ originally (DH) just set silent fail ========= (Alter bit in V77P104M5); [ generalised by NPL to define other program properties 445/0: 300 000 235 445/3: 047 445/4: 065 445/5: 170 160 446/1: 042 446/2: 300 122 075 446/5: 015 ========= V0P1; STR; REV;=Q6; DUP; V77P104M5; NEV; 447/0: 304 000 013 447/3: 164 140 447/5: 304 000 013 450/2: 054 450/3: 164 005 450/5: 011 451/0: 015 ========= SETB2000; SHLC6; SETB3520; AND; SHL+2; OR; NEV; 451/1: 301 122 075 451/4: 200 360 000 ========= =V77P104M5; EXIT1; (Allow D5,6,7,9); [ see comment on P104 452/1: 027 452/2: 164 020 452/4: 300 122 001 453/1: 054 453/2: 222 141 060 ========= 100; NEG; SHLC1; V17P104M5; AND; J5=Z; 453/5: 171 160 454/1: 301 000 033 454/4: 171 024 455/0: 170 163 455/2: 200 331 153 455/5: 100 007 456/1: 042 456/2: 301 000 235 ========= Q7; =V19P0; I1; =RM7; JSP128; M0M7; DUP; =V0P1; 456/5: 204 141 057 457/2: 120 020 ========= J101!=Z; CTQ1; 457/4: 200 360 000 ========= 101; EXIT1; 460/1: 052 ========= 15; ERASE; (Used by P195 in OUT54); 460/2: 304 000 013 460/5: 200 260 330 ========= 5; SETB10; JP2; (Illegal out number); 461/2: 041 461/3: 204 261 034 ========= 4; ZERO; J6; [ OUT with empty nest is same as OUT 0 ========= 462/0: 200 262 337 462/3: 200 263 056 463/0: 200 263 116 463/3: 200 270 102 464/0: 200 263 141 ========= *2; JP15; JP16; JP17; JP18; JP19; [ OUT 0 1 2 3 4 464/3: 200 263 151 465/0: 200 263 205 465/3: 200 263 205 466/0: 200 263 236 466/3: 200 264 014 467/0: 200 266 243 ========= JP20; JP21; JP21; JP23; JP24; JP61; [ 5 6 7 8 9 10 467/3: 203 273 002 470/0: 203 273 011 470/3: 200 274 335 471/0: 202 266 331 471/3: 202 266 332 472/0: 200 263 236 ========= J11P193; J12P193; JP2939; J14P66; J15P66; JP23; [ 11 12 13 14 15 16 472/3: 200 266 300 473/0: 204 267 367 473/3: 202 266 333 474/0: 200 272 243 ========= JP64; J18P105; J19P66; JP192; [ 17 18 19 20 474/3: 203 274 000 475/0: 202 274 001 475/3: 204 274 012 ========= J21P196; J22P196; J23P196; [ 21 22 23 476/0: 204 273 205 476/3: 200 271 226 477/0: 204 273 210 ========= J24P195; J25P130; J26P195; [ 24 25 26 477/3: 202 273 117 500/0: 205 273 132 ========= J27P194; J28P194; [ 27 28 500/3: 203 273 270 ========= J29P195; [ 29 501/0: 201 274 022 501/3: 203 274 000 502/0: 203 274 024 ========= J30P196; J31P196; J32P196; [ 30 31 32 502/3: 200 274 051 503/0: 201 274 057 503/3: 202 274 060 ========= J33P196; J34P196; J36P196; [ 33 34 36 504/0: 200 273 327 ========= J37P195; [ 37 504/3: 200 271 252 505/0: 203 273 334 ========= J39P130; J40P195; [ 39 40 505/3: 202 274 027 506/0: 204 274 030 ========= J41P196; J42P196; [ 41 42 There is no routine P915 506/3: 200 260 000 507/0: 200 273 170 507/3: 201 274 042 ========= J44P915; J45P195; J47P196; [ 44 45 47 ========= ========= *** start P4V5; at address 1998 ========= P4V5; (Instant TINT) [ Typewriter (= Flexowriter) interrupt -- instant because DH made it jump the Flex output queue V-store at 00507 = 010 170 147 206 233 277 ========= V0=B0207414741515677; [ cr cn AGAIN V-store at 00510 = 010 175 051 273 117 334 ========= V1=B0207645156647734; [ cr cn TINT; ========= (V2 and V3 contain answer to TINT query); V-store at 00513 = 137 373 077 250 000 000 ========= V4=B2777547752/29; (D3=A,D4=B etc Permitted TINTS A=JLMPR-XZ .EM is same as F); V-store at 00514 = 000 000 000 000 000 000 ========= V5=0; (TINT params); ========= 515/0: 041 515/1: 033 515/2: 301 000 033 515/5: 300 002 145 516/2: 201 145 131 ========= ZERO; NOT; =V19P0; V1P11; J4P45!=Z; [ TINT supressed if subprogram 0 is active 516/5: 041 517/0: 301 000 030 517/3: 041 517/4: 304 001 110 ========= ZERO; =V16P0; (Clear TINT RFI); ZERO; SETAV1; 520/1: 300 002 144 520/4: 170 120 521/0: 164 041 521/2: 304 001 112 521/5: 011 522/0: 041 ========= 2; V0P11; =Q4; SHL+16; SETAV3; OR; ZERO; [ uses subprogram 0 to ask the query 522/1: 041 522/2: 033 522/3: 301 000 033 ========= ZERO; NOT; =V19P0; 523/0: 033 523/1: 050 523/2: 301 001 114 523/5: 201 321 357 524/2: 304 001 111 ========= NOT; CONT; =V5; JS51P10; SETAV2; 524/5: 170 160 ========= =Q6; 525/1: 200 324 177 525/4: 204 261 135 526/1: 204 261 135 526/4: 204 261 135 ========= 5; JSP31; J3; J3; J3; [ P31 fetches and classifies characters 527/1: 304 377 342 527/4: 172 172 530/0: 300 001 113 530/3: 041 530/4: 166 160 ========= SET-30; =+C7; V4; ZERO; SHLDC7; 531/0: 003 531/1: 065 531/2: 203 041 135 ========= BITS; REV; J4>=Z; (Validity check) 531/5: 167 377 532/1: 047 532/2: 304 000 013 532/5: 054 533/0: 056 ========= SHC-1; STR; SETB60000; AND; +; 533/1: 205 321 136 ========= JS1; ========= (== 5 ==) 533/4: 204 261 135 ========= (TINT subroutine fails); J3; ========= (Exit 2 from TINT subroutine); 534/1: 300 002 144 534/4: 170 120 535/0: 200 360 000 ========= V0P11; =Q4; EXIT1; 535/3: 052 ========= 4; ERASE; 535/4: 041 535/5: 304 001 107 536/2: 201 261 120 ========= 3; ZERO; SETAV0; J2; [ invalid input, say AGAIN TINT; 536/5: 174 000 537/1: 202 361 140 ========= 1; =LINK; EXITAR6; 537/4: 017 537/5: 017 540/0: 202 360 001 540/3: 200 264 242 541/0: 200 264 273 541/3: 200 264 303 542/0: 200 264 303 ========= *6; EXIT2; JP33; JP34; JP35; JP35; 542/3: 200 264 307 543/0: 202 360 001 543/3: 200 264 330 544/0: 200 264 355 544/3: 200 264 357 ========= JP37; EXIT2; JP39; JP40; JP41; 545/0: 200 264 377 545/3: 200 265 005 546/0: 200 265 055 ========= JP42; JP44; JP45; 546/3: 200 265 132 547/0: 200 265 141 ========= JP48;JP49; 547/3: 200 265 146 550/0: 200 265 150 550/3: 200 265 203 551/0: 200 265 326 551/3: 200 265 370 ========= JP50; JP51; JP52; JP53; JP54; 552/0: 200 267 030 ========= JP76; 552/3: 200 266 354 ========= JP72; ========= *** start P5V0; at address 2178 ========= P5V0; (EDT subroutine); [ called when V19 is set, eithr by real EDT or internally 553/0: 300 000 010 553/3: 301 001 152 ========= V0P0; =V0; (Time of last EDT); 554/0: 041 554/1: 301 002 323 ========= ZERO; =V0P13; (Clear marker to give EDT on fpr RFI); 554/4: 041 554/5: 301 000 033 ========= ZERO; =V19P0; (Clear EDT indicator) 555/2: 200 327 042 ========= JSP100; (Deal with W magnetic tapes) 555/5: 200 327 227 ========= JSP105; (Consolidate store etc.) 556/2: 200 326 103 ========= JSP59; (Deal with flex queue) 556/5: 200 331 345 ========= JSP155; (Deal with OUT8 queue) 557/2: 200 334 225 ========= JSP199; (Enables disc access if appropriate); 557/5: 200 322 215 ========= JSP11; (Deal with subprograms) 560/2: 041 560/3: 301 007 067 ========= ZERO; =V0P101; (Clear new identifier marker) 561/0: 300 003 235 561/3: 203 141 162 562/0: 200 331 345 ========= V4P23; (Look for OUT8); J7!=Z; JSP155; 562/3: 200 332 337 ========= 7; JSP193; (Attend to JO); 563/0: 176 004 563/2: 151 005 ========= K5; M0TOQ5; 563/4: 041 563/5: 166 011 564/1: 170 132 564/3: 042 564/4: 164 003 565/0: 200 041 176 ========= 2; ZERO; SHLD+4; =C5; DUP; SHL+1; J3>=Z; 565/3: 042 565/4: 002 565/5: 204 341 167 ========= DUP; =TR; J9NTR; 566/2: 120 122 566/4: 220 341 176 567/1: 201 261 171 ========= BUSYQ5; J3TR; J1; 567/4: 300 120 021 570/1: 202 330 012 570/4: 200 261 176 ========= 9; V9P0M5; JS107P300; J3; ========= 1; (Clear PHU); 571/1: 300 121 375 571/4: 041 571/5: 033 572/0: 027 572/1: 011 ========= V13P104M5; ZERO; NOT; NEG; OR; 572/2: 301 121 375 572/5: 171 122 573/1: 164 367 573/3: 304 000 013 574/0: 011 ========= =V13P104M5; M5; SHL+123; SETB140000; OR; 574/1: 175 100 574/3: 052 574/4: 124 002 575/0: 304 000 013 575/3: 175 100 575/5: 052 ========= =K1; ERASE; CLOQ0; SETB140000; =K1; ERASE; 576/0: 164 005 576/2: 171 122 576/4: 304 000 003 577/1: 225 021 200 ========= 3; SHL+2; M5; SET3; J4=; 577/4: 033 577/5: 027 600/0: 170 122 600/2: 204 261 163 ========= NOT; NEG; =M5; J2; 600/5: 170 152 601/1: 052 601/2: 300 000 017 ========= 4; =C6; ERASE; V7P0; 601/5: 033 602/0: 027 602/1: 304 000 003 602/4: 054 602/5: 042 ========= 5; NOT; NEG;SET3; AND; DUP; 603/0: 170 122 603/2: 300 121 375 603/5: 167 377 604/1: 220 041 206 ========= =M5; V13P104M5; SHC-1; J6=Z; 611/1: 052 611/2: 041 611/3: 033 ========= ERASE; ZERO; NOT; 611/4: 301 000 026 612/1: 200 360 000 ========= 8; =V14P0; EXIT1; ========= *** start P6V64; at address 2754 ========= P6V64; (Put N2=NX in FLEX queue, X=1 given in N1, if flex queue overlows enter P59; to make room); V-store at 00613 = 377 377 377 377 377 377 ========= V1=-1; V-store at 00702 = 377 377 377 377 377 377 ========= V56=-1; (For benefit of the OUT8 system); 713/0: 171 122 713/2: 164 375 713/4: 200 041 316 ========= M5; SHL-2; J4>=Z; 714/1: 065 714/2: 052 714/3: 027 714/4: 033 714/5: 042 715/0: 201 141 314 715/3: 200 265 131 ========= 5; REV; ERASE; NEG;NOT;DUP; J5!=Z; J1P45; ========= 4; 716/0: 304 001 313 716/3: 304 001 213 717/0: 036 717/1: 170 173 ========= SETAP6; SETAV1P6; -; =RC7; 717/3: 302 161 213 720/0: 033 720/1: 203 141 317 ========= 1; V1M7Q; NOT; J1!=Z; 720/4: 245 161 324 ========= 3; J2C7Z; ========= (Queue not full) 721/1: 065 721/2: 301 161 212 721/5: 041 722/0: 033 722/1: 303 161 213 ========= REV; =V0M7; ZERO; NOT;=V1M7Q; 722/4: 027 722/5: 033 723/0: 042 723/1: 204 141 320 ========= NEG; NOT; DUP; J3!=Z; 723/4: 033 723/5: 301 000 033 724/2: 200 360 000 ========= NOT; =V19P0; EXIT1; ========= ========= (== 6 ==) 724/5: 200 326 103 725/2: 200 326 150 725/5: 052 726/0: 200 261 316 ========= 2; (Queue full); JSP59; JSP60; ERASE; J4P6; ========= *** start P8V0; at address 2826 ========= P8; (Put query parameters in FLEX queue and enter 2P10); 727/0: 065 727/1: 164 041 727/3: 011 727/4: 041 727/5: 033 ========= REV; SHL+16; OR; ZERO; NOT; 730/0: 050 730/1: 171 112 730/3: 164 101 730/5: 011 731/0: 042 ========= CONT; C4;SHL+32; OR; DUP; 731/1: 304 000 001 731/4: 200 321 316 732/1: 041 732/2: 065 732/3: 204 261 345 ========= SET1; JS4P6; ZERO; REV; J2P10; ========= *** start P9V1; at address 2856 ========= P9V1; (Convert cell count from binary to signed decimal characters, used in P12); V-store at 00732 = 050 242 212 050 020 101 ========= V0=B1212121212010101; V-store at 00733 = 034 170 345 262 314 300 ========= V1=B0707434554546300; 734/0: 042 734/1: 161 371 734/3: 164 377 734/5: 221 141 336 735/2: 304 000 204 735/5: 036 736/0: 027 ========= DUP; SHA-4; SHL-1; (Non-zero if count >=24); J1=Z; SET132;-; NEG; 736/1: 300 001 332 736/4: 065 736/5: 067 737/0: 304 000 013 737/3: 164 053 ========= 1; V0; REV; FRB;SETB35202; SHL+21; 737/5: 056 740/0: 300 001 333 740/3: 300 120 040 741/0: 304 000 003 741/3: 200 261 316 ========= +; V1;V24P0M5; SET3; J4P6; ========= ========= *** start P10V0; at address 2892 ========= P10; (Normal entry test BUSYQ7. If busy or if entry at 2, put SHUL, SHUP, and SHUL* into SHU list. Exit to level X+1 lower, X given in N1 (or N3 for entry 2)); [ P10 is the routine called from within a subprogram ========= [ when it is necessary to wait for things to happen elsewhere e.g. transfer, tape load ========= [ on entry: M5 = priority number, Q4 = subprog number / 1 / AV1P11Msubprogno -- see P30 742/0: 041 742/1: 002 742/2: 241 161 343 ========= ZERO; =TR; J1C7Z; [ normal entry waits if device in C7 is busy 742/5: 120 162 ========= BUSYQ7; 743/1: 124 164 743/3: 200 345 131 ========= 1; TLOQ7; J1P45NTR; 744/0: 041 744/1: 171 160 744/3: 171 104 744/5: 167 313 745/1: 301 002 323 ========= 3; ZERO; Q7; I4; SHC-27; =V0P13; (Next PR causes EDT); [ definitely decided to hold up 745/4: 301 100 012 746/1: 173 000 746/3: 011 746/4: 101 004 ========= 2; =E10M4; LINK; OR; =M0M4; 747/0: 171 112 747/2: 167 377 747/4: 201 101 351 ========= C4; SHC-1; J5<=Z; 750/1: 304 000 001 750/4: 205 330 036 ========= SET1;JS113P300; 751/1: 042 751/2: 047 751/3: 015 751/4: 170 172 ========= 5; DUP; STR;NEV;=C7; 752/0: 041 752/1: 243 161 354 ========= ZERO; J7C7Z; 752/4: 017 752/5: 017 753/0: 164 041 753/2: 173 000 753/4: 011 753/5: 143 160 754/1: 177 160 ========= *6; SHL+16; LINK; OR; DC7;J6C7NZS; 754/3: 301 100 036 755/0: 201 045 131 ========= 7; =E30M4; J4P45>=Z; 755/3: 202 360 001 ========= EXIT2; 756/0: 041 ========= 4; ZERO; 756/1: 041 756/2: 041 756/3: 204 261 345 ========= 14; ZERO; ZERO;J2; 757/0: 041 ========= 50; ZERO; 757/1: 041 757/2: 041 757/3: 041 757/4: 033 757/5: 050 760/0: 204 261 345 ========= 51; ZERO; ZERO; ZERO; NOT;CONT; J2; ========= ========= (P6000V23; (OUT COUNTS);); *** start P104V116; at address 3678 ========= P104V116; ========= [ P104 is only V-stores ========= [ V0 is a hold-up word in the same format as the hardware equivalent obtained from K5 ========= [ V1-117 are in quartets, addressed by instructions such as V25P104M5 ========= [ V5P104M5 = program CPU time used so far ========= [ V13P104M5 = nesting store counters for use with =K3 ========= (The various bits in V77P104M5 have the following significance D 0 = Prog read in by TINT X D 1 = TINIT X in progress D 2 = Last disc transfer parittied D 3 = Disc repeat in progress after parity D 4 = Not used (David thinks) D 5 = Auxiliary systems program D 6 = FLEX suppression D 7 = Job initiated by OUT39 D 8 = OUT 40 on by this level D 9 = Silent fail D10 = OUT 50 done by this level D11 = This level will print OUT8 tapes D12 = Shows TINT;TLM has been done D13 = OUT20 done by this level....Different bit from Leeds ); ========= (The various bits of V25P104M5 have the following significance D47 = Main subprogram active D46 = No program to run D45 = TINT S D44 = HU due to OUT8 subprogram D43 = Store move/priority change D42 = Rolled out D41 = OUT 19 (== 7 ==) ); V-store at 00760 = 004 020 101 000 000 000 ========= V0=B01010101/23; V-store at 00775 = 006 020 000 000 000 000 ========= V13=B0141/11; V-store at 00776 = 106 020 000 000 000 000 ========= V14=B2141/11; V-store at 00777 = 206 020 000 000 000 000 ========= V15=B4141/11; V-store at 01000 = 306 020 000 000 000 000 ========= V16=B6141/11; V-store at 01001 = 000 000 000 000 000 001 V-store at 01002 = 000 000 000 000 000 001 V-store at 01003 = 000 000 000 000 000 001 V-store at 01004 = 000 000 000 000 000 001 ========= V17=1; V18=1; V19=1; V20=1; V-store at 01011 = 000 000 000 000 000 002 V-store at 01012 = 000 000 000 000 000 002 V-store at 01013 = 000 000 000 000 000 002 V-store at 01005 = 000 000 000 000 000 002 ========= V25=2; V26=2; V27=2; V21=2; V-store at 01015 = 000 000 000 000 000 005 V-store at 01016 = 000 000 000 000 000 005 V-store at 01017 = 000 000 000 000 000 005 V-store at 01020 = 000 000 000 000 000 005 ========= V29=5; V30=5; V31=5; V32=5; V-store at 01121 = 100 000 000 100 000 000 V-store at 01122 = 100 000 000 100 000 000 ========= V97=B 20 00 00 00 20 00 00 00; V98=B 20 00 00 00 20 00 00 00; V-store at 01123 = 100 000 000 100 000 000 V-store at 01124 = 100 000 000 100 000 000 ========= V99=B 20 00 00 00 20 00 00 00; V100=B 20 00 00 00 20 00 00 00; ========= (V101 to V113 are all for use of controllers when running ROGS); ========= ========= *** start P11V40; at address 3918 ========= P11V40; (Deal with hold-ups in SHU list in due order); V-store at 01144 = 000 000 000 001 002 145 ========= V0=Q0/1/AV1; 1215/0: 300 002 144 1215/3: 170 120 ========= 15; V0; =Q4; 1215/5: 100 004 1216/1: 042 1216/2: 201 142 222 ========= 3; M0M4; DUP; J1!=Z; (Jump if this SHU is in use); 1216/5: 052 ========= 11; ERASE; 1217/0: 140 100 1217/2: 171 112 1217/4: 042 1217/5: 304 000 011 1220/2: 037 ========= 7; M+I4; C4; DUP; SET9; SIGN; 1220/3: 200 045 131 ========= J1P45>=Z; 1221/0: 033 1221/1: 027 1221/2: 170 112 1221/4: 205 262 215 ========= NOT; NEG; =C4; J3; 1222/1: 300 100 012 1222/4: 065 1222/5: 220 042 237 ========= 1; E10M4; REV; J4=Z; 1300/0: 171 122 1300/2: 300 000 017 1300/5: 015 1301/0: 223 142 303 V13P10 is out of range, only 1 V-stores specified 1301/3: 300 121 356 ========= M5; V7P0; NEV; J10=Z; V13P10M5; 1302/0: 164 005 1302/2: 164 253 1302/4: 027 1302/5: 033 1303/0: 204 262 304 ========= SHL+2; SHL-43; NEG; NOT; J11; 1303/3: 300 000 275 1304/0: 304 000 002 1304/3: 056 ========= 10; V32P1; SET2; +; 1304/4: 200 321 334 1305/1: 201 262 310 ========= 11; JSP9; J12; 1305/4: 300 002 251 1306/1: 300 162 252 1306/4: 300 120 040 1307/1: 304 000 003 1307/4: 200 321 316 ========= 8; V2; V3M7; V24P0M5; SET3; JS4P6; 1310/1: 052 1310/2: 200 360 000 ========= 12; ERASE; EXIT1; 1310/5: 041 1311/0: 301 002 255 1311/3: 300 000 277 1312/0: 042 1312/1: 304 000 004 1312/4: 036 1312/5: 301 002 256 1313/2: 204 322 316 1313/5: 300 000 276 1314/2: 164 127 ========= 3; ZERO; =V6; V34P1; DUP; SET4; -; =V7; JS13; V33P1; SHL+43; 1314/4: 204 142 261 1315/1: 304 000 013 1315/4: 200 321 334 1316/1: 202 262 270 ========= J9!=Z; SETB37; JSP9; J6; 1316/4: 300 002 254 1317/1: 065 1317/2: 067 1317/3: 300 000 037 1320/0: 164 353 1320/2: 056 1320/3: 300 162 247 ========= 13; V5; REV; FRB; V23P0; SHL-11; +; V0M7; 1321/0: 300 120 040 1321/3: 304 000 003 1322/0: 200 321 316 1322/3: 151 007 1322/5: 200 360 000 ========= V24P0M5; SET3; JS4P6; M0TOQ7; EXIT1; ========= *** start P13V0; at address 4344 ========= P13V0; (Set program HU bit in V0P104); 1324/0: 304 000 001 1324/3: 171 122 1324/5: 300 000 026 1325/2: 015 1325/3: 205 142 326 ========= SET1; M5; V14P0; NEV; J1!=Z; 1326/0: 041 1326/1: 033 1326/2: 301 000 026 ========= ZERO; NOT; =V14P0; 1326/5: 171 122 1327/1: 033 1327/2: 161 003 1327/4: 042 1327/5: 161 003 ========= 1; M5; NOT; SHA+1; DUP; SHA+1; 1330/1: 056 1330/2: 170 132 1330/4: 167 120 1331/0: 300 001 360 1331/3: 065 ========= +; =C5; SHCC5; V0P104; REV; 1331/4: 042 1331/5: 220 042 333 1332/2: 011 1332/3: 201 262 333 ========= DUP; J2=Z; 1341/4: 041 1341/5: 301 122 005 ========= ZERO; =V21P104M5; 1342/2: 300 122 061 1342/5: 041 1343/0: 033 ========= 3; V65P104M5; ZERO; NOT; 1343/1: 037 1343/2: 026 1343/3: 042 1343/4: 164 011 1344/0: 011 1344/1: 164 015 1344/3: 011 ========= SIGN; ABS; DUP; SHL+4; OR; SHL+6; OR; (Add 10 if OUT8 used); 1344/4: 301 121 361 1345/1: 203 324 112 1345/4: 017 1345/5: 017 1346/0: 017 ========= =V1P104M5; JS4P29; DUMMY; DUMMY; DUMMY; 1346/1: 203 324 127 1346/4: 017 1346/5: 017 1347/0: 017 ========= JS7P29; DUMMY; DUMMY;DUMMY; 1347/1: 304 000 001 1347/4: 301 122 001 ========= SET1; =V17P104M5; 1350/1: 304 000 002 1350/4: 205 330 036 1351/1: 300 004 016 1351/4: 170 160 ========= SET2; JS113P300; V0P26; =Q6; 1352/0: 102 006 1352/2: 052 1352/3: 242 142 361 ========= 4; M0M6Q; ERASE; J5C6Z; 1353/0: 200 331 143 1353/3: 200 262 352 ========= JSP125; J4; 1354/0: 120 140 1354/2: 121 140 1354/4: 041 1354/5: 002 1355/0: 300 144 016 1355/3: 164 043 1355/5: 205 042 357 ========= CTQ6; PARQ6; ZERO; =TR; V0P26M6; SHL+17; J6>=Z; 1356/2: 304 000 013 1356/5: 201 327 061 1357/2: 200 262 352 ========= SETB52000; JS10P100; J4; 1357/5: 300 122 005 1360/2: 200 324 047 1360/5: 200 262 352 ========= 6; V21P104M5; JSP27; J4; 1361/2: 110 004 1361/4: 202 142 364 ========= 5; M0M4N; J10!=Z; 1362/1: 304 003 236 1362/4: 111 004 1363/0: 041 1363/1: 301 100 013 1363/4: 041 1363/5: 301 100 037 ========= SETAP23; =M0M4N; ZERO; =E11M4; ZERO; =E31M4; 1364/2: 200 321 356 ========= 10; JS4P10; 1364/5: 300 122 015 1365/2: 222 042 364 ========= V29P104M5; J10=Z; V9P0M5; DUP; 1374/2: 167 061 1374/4: 164 025 Cannot find routine P14 1375/0: 300 120 000 1375/3: 011 1375/4: 167 035 1376/0: 200 331 300 1376/3: 201 270 360 ========= SHC+24; SHL+10; V89P14M5; OR; SHC+14; JSP136; J44P120; (OUT 2); ========= 91; (Deal with disc); 1377/0: 041 1377/1: 301 122 055 ========= ZERO; =V61P104M5; 1377/4: 041 1377/5: 301 122 131 ========= ZERO; =V105P104M5; 1400/2: 300 002 336 1400/5: 301 122 121 ========= V2; =V97P104M5; 1401/2: 300 122 105 1401/5: 164 321 1402/1: 042 1402/2: 220 143 011 ========= V85P104M5; SHL-24; DUP; J8=Z; 1402/5: 300 120 021 1403/2: 164 013 1403/4: 170 142 1404/0: 304 000 037 1404/3: 065 ========= V9P0M5; SHL+5; =M6; SET31; REV; 1404/4: 202 331 220 ========= 15; JS10P130; (Bit of a botch, see P198, DDES read); 1405/1: 300 120 021 1405/4: 164 013 1406/0: 170 142 1406/2: 041 1406/3: 033 1406/4: 101 006 ========= V9P0M5; SHL5; =M6; ZERO; NOT; =M0M6; (Put -1 in progs ED); 1407/0: 304 000 037 1407/3: 300 122 105 1410/0: 164 321 1410/2: 202 331 220 1410/5: 041 ========= SET31; V85P104M5; SHL-24; JS10P130; ZERO; ========= (Write -1 on global disc); ========= (== 9 ==) 1411/0: 301 122 105 1411/3: 041 1411/4: 033 1411/5: 202 326 221 ========= 8; =V85P104M5; ZERO; NOT; JS255P60; (Restart any OUT19); 1412/2: 203 332 365 1412/5: 202 271 114 ========= JS3P193; J10P121; (End if J0); 1413/2: 041 1413/3: 033 1413/4: 301 012 334 1414/1: 202 271 114 ========= ZERO; NOT; =V0P193; J10P121;(Set J0 flag); ========= 90; (Output stats and FLEX message, entered from P155); 1414/4: 141 120 ========= M-I5; 1415/0: 300 010 117 1415/3: 111 006 1415/5: 300 122 115 ========= V3P120; =M0M6N; V93P104M5; 1416/2: 301 140 004 1416/5: 300 000 010 1417/2: 300 122 045 1417/5: 036 1420/0: 200 326 017 ========= 74; =E4M6; V0P0; V53P104M5; -; (Elapsed); JSP57; 1420/3: 300 121 365 1421/0: 042 1421/1: 300 121 371 1421/4: 056 ========= V5P104M5; DUP; V9P104M5; +; (N E T); 1421/5: 042 1422/0: 161 321 1422/2: 203 332 240 1422/5: 301 140 010 1423/2: 200 326 017 ========= DUP; SHA-24; JS1P161; =E8M6; JSP57; 1423/5: 065 1424/0: 041 1424/1: 301 121 365 1424/4: 042 ========= REV; ZERO; =V5P104M5; DUP; (Run time); 1424/5: 161 061 1425/1: 203 332 240 1425/4: 301 140 007 1426/1: 200 326 017 ========= SHA24; JS1P161; =E7M6; JSP57; 1426/4: 300 002 335 1427/1: 300 120 040 1427/4: 304 000 013 1430/1: 011 ========= V1; V24P0M5; SETB33; OR; 1430/2: 300 002 334 1430/5: 300 121 361 1431/2: 011 ========= V0; V1P104M5; (Ending no); OR; 1431/3: 300 122 031 1432/0: 300 122 025 1432/3: 043 ========= V41P104M5; V37P104M5; (Ident); DUPD; 1432/4: 204 323 046 1433/1: 166 061 1433/3: 300 120 040 ========= JS71; SHLD+24; V24P0M5; 1434/0: 300 122 075 1434/3: 164 025 1434/5: 225 043 035 ========= V77P104M5; SHL10; J75=Z;M5; =V0P52; (Mag tape input waits for level); 1504/2: 300 120 021 1504/5: 164 061 1505/1: 164 271 1505/3: 033 1505/4: 027 ========= 7; V9P0M5; SHL+24; SHL-36; NOT; NEG; 1505/5: 164 013 1506/1: 301 121 361 1506/4: 202 270 152 ========= SHL+5; =V1P104M5; J22P120; 1507/1: 052 1507/2: 200 333 030 1507/5: 200 263 115 ========= 8; ERASE; JSP194; J9; 1510/2: 202 324 152 1510/5: 205 263 112 1511/2: 300 013 027 1511/5: 301 000 236 1512/2: 202 273 131 ========= JS102P29; J10; V2P194; =V1P1; J132P194; 1512/5: 052 1513/0: 065 1513/1: 052 1513/2: 300 013 027 1513/5: 065 1514/0: 204 324 162 1514/3: 202 273 131 ========= 10; ERASE; REV; ERASE; V2P194; REV; JS101P29; J132P194; 1515/0: 041 1515/1: 202 273 131 ========= 9; ZERO; J132P194; ========= *** start P17V0; at address 5076 ========= P17; (OUT2) [ enter a new program that is already in store, i.e. load and go 1516/0: 200 326 274 1516/3: 200 263 136 ========= JSP62; J2; [ check existence of NS info 1517/0: 300 120 021 1517/3: 164 013 1517/5: 170 143 1520/1: 102 006 1520/3: 301 122 021 ========= V9P0M5; SHL+5; =RM6; M0M6Q; =V33P104M5; [ picks up word 0 of object program 1521/0: 105 140 1521/2: 200 103 136 ========= =M6M0H; J2<=Z; [ stores time limit in word 1 if positive 1521/5: 110 006 1522/1: 200 330 112 ========= M0M6N; JSP119; [ check OK program name in word 2 1522/4: 304 000 013 1523/1: 203 263 136 ========= SETB200; J3; 1523/4: 052 1523/5: 300 120 021 1524/2: 167 061 1524/4: 041 1524/5: 166 025 ========= ERASE; V9P0M5; SHC+24; ZERO; SHLD+10; 1525/1: 100 006 1525/3: 164 061 1525/5: 042 1526/0: 205 143 130 ========= M0M6; SHL+24; DUP; J5!=Z; 1526/3: 052 1526/4: 042 1526/5: 033 ========= ERASE; DUP; NOT; 1527/0: 027 1527/1: 164 013 1527/3: 100 006 1527/5: 011 ========= NEG; SHL+5; M0M6; OR; ========= (== 10 ==) 1530/0: 101 006 1530/2: 205 263 133 ========= =M0M6; J6; 1530/5: 027 1531/0: 033 1531/1: 164 307 ========= 5; NEG;NOT;SHL-29; 1531/3: 001 1531/4: 032 1531/5: 052 1532/0: 225 203 133 ========= VR; MAX; ERASE; J6V; 1532/3: 052 1532/4: 052 1532/5: 304 000 013 1533/2: 203 263 136 ========= ERASE; ERASE; SETB220; J3; 1533/5: 301 122 111 1534/2: 052 ========= 6; =V89P104M5; ERASE; (SHC14; JS115P300;); 1534/3: 304 000 002 1535/0: 304 000 011 1535/3: 204 262 337 ========= SET2;SET9; ( V0P104; SHLC6; SHL+2; J2P15=Z; 1613/4: 304 000 013 1614/1: 201 327 061 1614/4: 154 166 ========= (Mag tape); SETB32000; JS10P100; C7TOQ6; 1615/0: 200 331 315 ========= 7; JSP138; 1615/3: 205 324 107 1616/0: 200 260 116 ========= 6; JS3P29; J35P0; ========= ========= (== 11 ==) 1616/3: 200 360 000 ========= EXIT1; 1617/0: 153 007 ========= 3; (Not mag tape); IM0TOQ7; 1617/2: 041 1617/3: 200 321 342 ========= ZERO; JSP10; 1620/0: 121 160 1620/2: 041 1620/3: 002 1620/4: 171 172 1621/0: 170 142 ========= PARQ7; ZERO;=TR; C7; =M6; 1621/2: 300 144 016 1621/5: 164 321 1622/1: 304 000 013 ========= (B program); V0P26M6; SHL-24; SETB607; 1622/4: 054 1622/5: 041 1623/0: 166 133 1623/2: 164 371 1623/4: 166 007 ========= AND; ZERO;SHLD+45; SHL-4; SHLD+3; 1624/0: 036 1624/1: 170 152 1624/3: 300 122 005 1625/0: 167 140 1625/2: 142 140 1625/4: 047 ========= -; =C6; V21P104M5; SHCC6; NC6; STR; 1625/5: 065 1626/0: 167 140 1626/2: 301 122 005 ========= REV; SHCC6; =V21P104M5; 1626/5: 154 166 1627/1: 200 324 047 1627/4: 200 263 215 ========= 5; C7TOQ6; JSP27; J7; 1630/1: 052 ========= 1; ERASE; 1630/2: 304 000 013 1630/5: 200 260 330 ========= 2; SETB30; JP2; ========= *** start P23V4; at address 5556 ========= P23V4; (OUT8); V-store at 01631 = 000 000 000 000 000 000 V-store at 01632 = 000 000 000 000 003 231 ========= V0=0; V1=AV0; (L queue); V-store at 01633 = 000 000 000 000 000 000 V-store at 01634 = 000 000 000 000 003 233 ========= V2=0; V3=AV2; (N queue); V-store at 01635 = 377 377 377 377 377 377 ========= V4=-1; (Marker to initiate p155); ========= 1636/0: 205 263 301 ========= J1; 1636/3: 300 122 015 1637/0: 203 043 245 ========= 99; V29P104M5; J98>=Z; (Check for termination); ========= 1637/3: 300 122 051 1640/0: 042 1640/1: 220 143 243 ========= 82; V57P104M5; DUP; J86=Z; 1640/4: 047 1640/5: 052 ========= STR; ERASE; ========= 1641/0: 304 000 055 1641/3: 024 1641/4: 045 1641/5: 016 1642/0: 202 323 247 1642/3: 203 263 237 ========= 83; SET45; FLOAT; FIX; ROUND; JS80; J82; (Close streams); ========= 1643/0: 052 ========= 86; ERASE; (No more streams open); ========= 1643/1: 304 000 013 1643/4: 200 330 040 ========= 87; SETB10; JS114P300; (Clear holdup, probably unnecessary); 1644/1: 300 122 015 1644/4: 047 1644/5: 052 1645/0: 301 122 015 ========= V29P104M5; STR; ERASE; =V29P104M5; (Clear termination marker); ========= 1645/3: 141 100 1645/5: 143 100 1646/1: 141 100 1646/3: 143 100 1646/5: 200 360 000 ========= 98; M-I4; DC4; M-I4; DC4; EXIT1; (Retrurn to main subprog); ========= ========= 80; (Close stream, coded str no in N1); 1647/2: 042 1647/3: 304 002 061 1650/0: 171 122 1650/2: 056 1650/3: 164 041 1650/5: 304 000 004 1651/2: 011 ========= DUP; SETAV65P104; M5; +; SHL+16; SET4; OR; 1651/3: 065 1651/4: 203 323 256 1652/1: 170 172 1652/3: 300 122 051 1653/0: 304 000 013 1653/3: 167 160 1653/5: 054 ========= REV; JS157; =C7; V57P104M5; SETB177776; SHCC7; AND; 1654/0: 042 1654/1: 047 1654/2: 052 1654/3: 041 1654/4: 037 1654/5: 027 ========= DUP; STR; ERASE; ZERO; SIGN; NEG; 1655/0: 054 1655/1: 301 122 051 1655/4: 200 261 357 ========= AND; =V57P104M5; J50P10; ========= 1656/1: 171 132 ========= 156; (Add to queue); C5; 1656/3: 164 011 1656/5: 171 112 1657/1: 011 1657/2: 167 341 1657/4: 011 ========= 157; SHL+4; C4; OR; SHC-16; OR; 1657/5: 300 122 051 1660/2: 047 1660/3: 164 003 1660/5: 170 142 1661/1: 052 ========= V57P104M5; STR; SHL+1; =M6; ERASE; 1661/2: 300 143 233 1661/5: 300 003 235 1662/2: 041 1662/3: 032 1662/4: 037 1662/5: 054 1663/0: 301 003 235 ========= V2M6; V4; ZERO; MAX; SIGN; AND; =V4; (Sets V4=0 if queue needs processing); 1663/3: 042 1663/4: 300 143 234 1664/1: 042 1664/2: 066 1664/3: 164 341 ========= DUP; V3M6; DUP; CAB; SHL-16; 1664/5: 166 341 1665/1: 052 1665/2: 167 041 1665/4: 042 ========= SHLD-16; ERASE; SHC+16; DUP; 1665/5: 301 143 234 1666/2: 170 142 1666/4: 041 1666/5: 101 006 1667/1: 170 142 1667/3: 101 006 1667/5: 200 360 000 ========= =V3M6; =M6; ZERO; =M0M6; =M6; =M0M6; EXIT1; ========= ========= 158; (Check str no and put coded stream in N1); 1670/2: 171 172 1670/4: 042 1670/5: 304 000 013 1671/2: 054 1671/3: 164 373 1671/5: 027 1672/0: 033 ========= C7; DUP; SETB177710; AND; SHL-3; NEG; NOT; 1672/1: 200 145 131 1672/4: 167 371 1673/0: 041 1673/1: 162 007 1673/3: 011 1673/4: 202 360 001 ========= J1P45!=Z; SHC-4; ZERO; SHAD+3; OR; EXIT2; ========= 1674/1: 052 ========= 15; ERASE; 1674/2: 304 000 013 1674/5: 200 260 330 ========= 16; SETB770; JP2; (Invalid parameters in N1); ========= 1675/2: 304 000 013 1675/5: 200 260 330 ========= 18; SETB740; JP2; (Invalid stream number); ========= 1676/2: 100 007 1676/4: 300 011 325 1677/1: 015 1677/2: 164 341 1677/4: 220 143 335 ========= 19; M0M7; V2P155; NEV; SHL-16; J21=Z; 1700/1: 141 100 1700/3: 143 100 1700/5: 304 000 013 1701/2: 200 260 330 ========= M-I4; DC4; SETB720; JP2; ========= (Invalid last char); ========= 1701/5: 171 160 1702/1: 301 000 033 ========= 1; Q7; =V19P0; (Restore EDT); 1702/4: 200 326 274 1703/1: 202 263 274 1703/4: 170 160 ========= JSP62; J16; =Q7; 1704/0: 171 162 1704/2: 171 164 1704/4: 200 023 315 1705/1: 171 172 1705/3: 015 1705/4: 201 143 274 1706/1: 052 ========= M7; I7; J27!=; C7; NEV; J15!=Z; ERASE; (Close stream); 1706/2: 202 323 270 1706/5: 202 263 274 1707/2: 170 160 1707/4: 202 331 321 1710/1: 171 162 1710/3: 042 1710/4: 033 1710/5: 170 172 ========= JS158; J16; =Q7; JS1P139; M7; DUP; NOT; =C7; (Wait for second subprog); ========= ========= (== 12 ==) 1711/1: 204 334 014 ========= JS8P196; (Remove progs N2); 1711/4: 300 122 051 1712/1: 167 160 1712/3: 200 045 131 1713/0: 140 100 1713/2: 171 104 1713/4: 172 112 ========= V57P104M5; SHCC7; J1P45>=Z; M+I4; I4; =+C4; (Check str open); 1714/0: 202 323 247 1714/3: 203 263 236 ========= JS80; J99; ========= 1715/0: 052 1715/1: 200 331 263 1715/4: 202 263 274 ========= 27; ERASE; JSP133; J16; (Check parametrs); ========= 1716/1: 154 007 1716/3: 202 331 321 1717/0: 200 327 210 ========= 29; C0TOQ7; JS1P139; JSP102; ========= (Wait for previous transfer or P105, set CPL); 1717/3: 171 164 1717/5: 170 143 1720/1: 100 006 1720/3: 170 172 1720/5: 245 163 342 ========= I7; =RM6; M0M6; =C7; J13C7Z; (J if FLEX); 1721/2: 300 122 055 1721/5: 027 1722/0: 033 1722/1: 042 1722/2: 301 122 055 1722/5: 224 143 375 ========= V61P104M5; NEG; NOT; DUP; =V61P104M5; J71=Z; (Check access O/P); 1723/2: 202 323 270 1723/5: 202 263 275 1724/2: 042 1724/3: 170 132 1724/5: 171 104 1725/1: 042 1725/2: 172 112 ========= JS158; J18; DUP; =C5; I4; DUP; =+C4; (Switch to second subprog); 1725/4: 140 100 1726/0: 164 120 1726/2: 300 122 051 1726/5: 043 1727/0: 011 ========= M+I4; SHLC5; V57P104M5; DUPD; OR; ========= 1727/1: 301 122 051 1727/4: 054 1727/5: 201 143 332 ========= =V57P104M5; AND; J28!=Z; ========= (Stream not yet open); ========= 1730/2: 304 002 061 1730/5: 171 122 1731/1: 056 1731/2: 164 041 1731/4: 201 323 256 ========= SETAV65P104; M5; +; SHL+16; JS156; (Open); ========= 1732/1: 167 371 1732/3: 200 043 335 1733/0: 100 007 1733/2: 164 125 1733/4: 026 ========= 28; SHC-4; J21>=Z; M0M7; SHL+42; ABS; 1733/5: 164 253 1734/1: 027 1734/2: 033 1734/3: 202 143 276 ========= SHL-43; NEG; NOT; J19!=Z; (Check last char); ========= 1735/0: 154 007 1735/2: 041 1735/3: 041 1735/4: 171 160 1736/0: 041 1736/1: 033 1736/2: 050 1736/3: 042 1736/4: 201 323 256 1737/1: 205 324 107 1737/4: 200 320 116 ========= 21; C0TOQ7; ZERO; ZERO; Q7; ZERO; NOT; CONT; DUP; JS156; JS3P29; JS35P0; 1740/1: 124 166 1740/3: 204 321 345 1741/0: 203 263 236 ========= PMHQ7; (Lock out transfer area); JS2P10; J99; ========= 1741/3: 041 1741/4: 200 321 344 1742/1: 171 164 1742/3: 170 143 ========= 14; ZERO; JS3P10; I7; =RM6; ========= 1742/5: 300 001 302 1743/2: 033 1743/3: 203 143 341 ========= 13; V56P6; NOT; J14!=Z; (Wait if transfer will fill FLEX queue); 1744/0: 171 162 1744/2: 171 164 1744/4: 036 1744/5: 304 000 010 1745/2: 032 1745/3: 052 1745/4: 170 152 ========= M7; I7; -; SET8; MAX; ERASE; =C6; (Truncate if more than 8 words); ========= 1746/0: 245 143 353 1746/3: 304 377 326 1747/0: 170 132 1747/2: 112 006 ========= 3; J4C6Z; SET-42; =C5; M0M6QN; ========= 1747/4: 164 120 1750/0: 304 000 013 1750/3: 054 ========= 5; SHLC5; SETB77; AND; 1750/4: 304 000 002 1751/1: 224 023 372 1751/4: 304 000 004 1752/1: 224 023 372 ========= SET2; J6=; SET4; J6=; (Check not 02 or 04); 1752/4: 304 000 013 1753/1: 202 023 367 ========= SETB75; J7!=; 1753/4: 052 ========= ERASE; ========= 1753/5: 300 122 035 1754/2: 225 043 372 ========= 4; V45P104M5; J8=Z; J8C5NZ; J8C6Z; 2000/4: 300 122 075 2001/1: 164 015 2001/3: 300 007 121 2002/0: 164 003 2002/2: 033 2002/3: 054 2002/4: 225 043 372 ========= V77P104M5; SHL6; V26P101; SHL1; NOT; AND; J8Z; (Nest too full); E5; 2136/4: 204 324 162 2137/1: 202 360 001 ========= 50; JS101; EXIT2;(ZERO); ========= 2137/4: 164 005 2140/0: 164 247 2140/2: 222 144 151 2140/5: 052 2141/0: 204 264 136 ========= 13; SHL2; SHL-45; J29=Z; (Next empty); ERASE;J50; 2141/3: 052 2141/4: 203 244 141 2142/1: 204 264 136 ========= 14; ERASE; J14NEN; J50; 2142/4: 164 017 2143/0: 164 251 2143/2: 222 144 151 2143/5: 173 000 2144/1: 202 264 132 ========= 15; SHL7; SHL-44; J29=Z; (SJNS empty); LINK; J32; ========= 2144/4: 164 017 2145/0: 164 253 2145/2: 304 000 020 2145/5: 036 2146/0: 222 104 151 ========= 16; SHL7; SHL-43; SET16; -; J29>Z; (SJNS TOO FULL); 2146/3: 300 000 005 2147/0: 174 000 2147/2: 204 264 136 ========= E5; =LINK; J50; ========= 2147/5: 173 000 ========= 40; LINK; 2150/1: 052 2150/2: 205 304 147 2150/5: 204 264 136 ========= 17; ERASE; J40NEJ; J50; 2151/2: 204 324 162 2151/5: 200 360 000 ========= 29; JS101; EXIT1; (ZERO; NOT;); ========= 2152/2: 171 122 2152/4: 300 000 017 2153/1: 015 2153/2: 220 151 152 ========= 102; M5; V7P0; NEV; J1P127=Z; (Exit 2 if nest in core); 2153/5: 173 000 2154/1: 204 324 155 2154/4: 065 2154/5: 174 000 2155/1: 200 360 000 ========= LINK; JS100; REV; =LINK; EXIT1; (EXIT1 if in nest stack); ========= (N1=stack count on exit); ========= ========= 100; (Swap to programmers nest); 2155/4: 304 000 001 2156/1: 164 123 2156/3: 176 001 2156/5: 056 2157/0: 301 000 003 2157/3: 300 121 375 2160/0: 042 2160/1: 175 020 ========= SET1; SHL41; K7; +; =E3; V13P104M5; DUP; =K3; 2160/3: 017 2160/4: 017 2160/5: 017 2161/0: 017 2161/1: 017 2161/2: 017 ========= DUMMY; DUMMY; DUMMY; DUMMY; DUMMY; DUMMY; 2161/3: 017 2161/4: 017 2161/5: 017 2162/0: 017 ========= DUMMY; DUMMY; DUMMY; DUMMY; 2162/1: 200 265 131 ========= J1P45; ========= 101; (Swap to director's nest); 2162/4: 041 2162/5: 304 000 001 2163/2: 164 123 2163/4: 176 001 2164/0: 056 2164/1: 300 000 003 2164/4: 175 020 ========= ZERO; SET1; SHL41; K7; +; E3; =K3; 2165/0: 017 2165/1: 017 2165/2: 017 2165/3: 017 2165/4: 017 2165/5: 017 ========= DUMMY; DUMMY; DUMMY; DUMMY; DUMMY; DUMMY; 2166/0: 017 2166/1: 017 2166/2: 017 2166/3: 017 ========= DUMMY; DUMMY; DUMMY; DUMMY; 2166/4: 052 2166/5: 042 2167/0: 300 121 375 2167/3: 015 ========= ERASE; DUP; V13P104M5; NEV; 2167/4: 300 000 017 2170/1: 170 142 2170/3: 176 001 2170/5: 300 141 375 2171/2: 015 2171/3: 011 ========= V7P0; =M6; K7; V13P104M6; NEV; OR; 2171/4: 164 245 2172/0: 200 140 116 2172/3: 301 121 375 2173/0: 200 265 131 ========= SHL-46; J35P0!=Z; =V13P104M5; J1P45; ========= *** start P30V0; at address 6888 ========= P30; (Set Q4 = 2P+2/1/AV1P11+2P+2, for entry to P10); 2174/0: 171 122 2174/2: 033 2174/3: 027 2174/4: 161 003 2175/0: 042 ========= M5; NOT; NEG; SHA+1; DUP; 2175/1: 170 113 2175/3: 304 002 145 2176/0: 056 2176/1: 170 102 2176/3: 200 360 000 ========= =RC4; SETAV1P11; +; =M4; EXIT1; ========= *** start P31V0; at address 6906 ========= P31; (Fetch character, result in C7); ========= [ on entry M6 points at word and C6 = char number, 0 for most sig 2177/0: 100 006 2177/2: 164 140 2177/4: 164 255 2200/0: 170 172 2200/2: 304 000 006 ========= 8; M0M6; SHLC6; SHL-42; =C7; SET6; 2200/5: 172 152 2201/1: 041 2201/2: 033 2201/3: 164 140 2201/5: 203 144 203 ========= =+C6; ZERO; NOT; SHLC6; J2!=Z; 2202/2: 154 006 2202/4: 304 000 001 2203/1: 172 142 ========= C0TOQ6; SET1; =+M6; 2203/3: 300 011 126 2204/0: 041 2204/1: 166 160 2204/3: 166 343 2204/5: 052 ========= 2; V1P122; ZERO; SHLDC7; SHLD-15; ERASE; 2205/0: 203 044 207 2205/3: 171 144 2205/5: 200 144 207 2206/2: 202 360 002 ========= J3>=Z; I6; J4!=Z; EXIT4; 2206/5: 052 ========= 5; ERASE; 2207/0: 200 360 001 ========= 4; EXIT3; 2207/3: 171 172 2207/5: 304 000 004 2210/2: 225 024 206 2210/5: 304 000 013 2211/2: 225 024 206 ========= 3; C7; SET4; J5=; SETB32; J5=; 2211/5: 304 000 013 2212/2: 225 024 206 2212/5: 304 000 013 2213/2: 225 024 206 2213/5: 304 000 002 ========= SETB34; J5=; SETB75; J5=; SET2; 2214/2: 203 024 215 2214/5: 052 2215/0: 202 360 001 ========= J6!=;ERASE; EXIT2; 2215/3: 304 000 006 2216/0: 036 2216/1: 042 2216/2: 201 144 217 2216/5: 145 140 ========= 6; SET6; -; DUP;J7!=Z;I6=-1; 2217/1: 027 2217/2: 033 2217/3: 202 144 220 2220/0: 152 006 ========= 7; NEG; NOT; J1!=Z; I0TOQ6; 2220/2: 260 164 177 2220/5: 200 360 000 ========= 1; J8C7NZ; EXIT1; ========= *** start P32V0; at address 7020 ========= P32; (Fetch number. Result in N1); 2222/0: 304 000 013 ========= SETB77600; 2222/3: 170 160 2222/5: 041 ========= 1; =Q7; ZERO; 2223/0: 042 2223/1: 221 044 225 2223/4: 171 162 2224/0: 003 2224/1: 034 ========= 5; DUP; J3=Z; ========= (== 15 ==) 2232/4: 052 2232/5: 041 2233/0: 033 2233/1: 200 360 000 ========= ERASE; ZERO; NOT;EXIT1; 2233/4: 171 172 2234/0: 304 000 013 2234/3: 015 2234/4: 221 145 131 ========= 2; C7; SETB75; NEV; J4P45=Z; 2235/1: 042 2235/2: 224 044 225 ========= 6; DUP; J4=Z; (Dont J if TINT X or quiet) 2245/1: 300 120 040 2245/4: 301 004 236 2246/1: 300 004 241 2246/4: 301 001 114 ========= V24P0M5; =V0; V3; =V5P4; 2247/1: 041 2247/2: 033 2247/3: 042 2247/4: 301 000 033 2250/1: 201 321 357 ========= ZERO; NOT; DUP; =V19P0; JS51P10; (Await reply); 2250/4: 300 004 240 2251/1: 164 271 2251/3: 304 000 013 2252/0: 015 2252/1: 201 145 131 ========= V2; SHL-36; SETB7137; NEV; J4P45!=Z; (Ignore if not Y.); 2252/4: 300 100 024 2253/1: 170 172 2253/3: 200 326 004 2254/0: 200 320 116 ========= 2; E20M4; =C7; JSP56; JS35P0; V29P10 is out of range, only 1 V-stores specified 2254/3: 300 121 376 2255/0: 042 2255/1: 204 144 264 ========= 7; V29P10M5; DUP; J1!=Z; (J if TINT A suppressed); 2255/4: 300 011 155 2256/1: 171 172 2256/3: 015 2256/4: 200 144 260 2257/1: 042 2257/2: 033 2257/3: 301 011 155 ========= V0P130; C7; NEV; J3!=Z; DUP; NOT;=V0P130; (Clear if dumped); 2260/0: 304 000 013 2260/3: 200 330 040 ========= 3; SETB144; JS114P300; (Clear possible OUT19, TINT S and rollout); 2261/0: 171 120 2261/2: 200 324 174 2261/5: 065 2262/0: 041 2262/1: 300 001 111 2262/4: 164 031 2263/0: 164 255 2263/2: 201 324 267 ========= Q4; JSP30; REV; ZERO; V2P4; SHL12; SHL-42; JS8; 2263/5: 170 120 2264/1: 202 360 001 ========= =Q4; EXIT2; (Keeps Q4 in case in director subprogram when just overwriting it cases subprogentrys to be lost which is catasrophic if thos levels are in disc Q) 2264/4: 042 2264/5: 171 104 2265/1: 164 133 2265/3: 054 2265/4: 164 003 2266/0: 011 2266/1: 301 122 015 2266/4: 202 360 001 ========= 1; DUP; I4; SHL45; AND; SHL1; OR; =V29P104M5; EXIT2; 2267/1: 204 321 345 ========= 8; JS2P10; (Now in priority subprogram) 2267/4: 304 000 004 2270/1: 171 162 2270/3: 304 000 013 2271/0: 015 2271/1: 201 142 337 ========= SET4; M7; SETB35; NEV; J1P15!=Z; 2271/4: 301 000 312 2272/1: 201 260 350 ========= =V0P2; J2P2; ========= *** start P34V0; at address 7266 ========= P34; (TINT B - read integer to E0); 2273/0: 200 324 324 ========= JSP38; 2273/3: 200 324 222 2274/0: 200 265 131 ========= JSP32; J1P45; 2274/3: 300 120 021 2275/0: 042 2275/1: 164 111 2275/3: 225 145 130 ========= V9P0M5; DUP; SHL+36; J3P45=Z; 2276/0: 164 015 2276/2: 033 2276/3: 027 2276/4: 170 142 ========= SHL+6; NOT; NEG; =M6; 2277/0: 300 122 015 2277/3: 304 000 013 2300/0: 167 373 2300/2: 054 ========= V29P104M5; SETB177376; SHC-3; AND; (Mask out disc Q markers); 2300/3: 301 122 021 2301/0: 202 360 001 ========= =V33P104M5;EXIT2; 2301/3: 164 061 2301/5: 105 006 2302/1: 202 360 001 ========= 1; SHL+24; =M0M6H; EXIT2; ========= ========= *** start P35V0; at address 7314 ========= P35V0; (Reset max number of dumpable levels); V-store at 02302 = 000 000 000 000 000 004 ========= V0=4; (Initial value =4); 2303/0: 200 324 222 2303/3: 200 265 131 2304/0: 042 2304/1: 164 375 2304/3: 200 145 131 ========= JSP32; J1P45; DUP; SHL-2; J1P45!=Z; (Check <4); 2305/0: 033 2305/1: 027 2305/2: 301 004 302 2305/5: 202 360 001 ========= NOT; NEG; =V0; EXIT2; *** start P37V0; at address 7338 ========= P37; (TINT E - nominate program tape) 2307/0: 200 324 222 ========= JSP32; 2307/3: 200 265 131 ========= J1P45; 2310/0: 042 2310/1: 170 162 2310/3: 042 2310/4: 304 000 007 2311/1: 037 2311/2: 220 045 131 ========= DUP; =M7; DUP; SET7; SIGN; J1P45=Z; ========= ========= (== 16 ==) 2333/1: 200 324 222 2333/4: 203 264 353 ========= JSP32; J15;(Reading D2); 2334/1: 043 2334/2: 036 2334/3: 225 105 130 ========= DUPD;-; J3P45>Z; 2335/0: 042 2335/1: 304 000 017 2335/4: 036 2335/5: 225 105 130 ========= DUP; SET15;-; J3P45>Z; 2336/2: 065 2336/3: 042 2336/4: 012 2336/5: 036 2337/0: 304 000 001 2337/3: 042 2337/4: 012 2337/5: 056 2340/0: 170 153 2340/2: 036 ========= 16; REV; DUP; PERM;-; SET1;DUP; PERM;+;=RC6;-; 2340/3: 170 142 ========= =M6; (Q6=D2-D1+1/1/D1=1); 2340/5: 302 144 017 2341/2: 042 2341/3: 222 044 352 2342/0: 042 2342/1: 164 061 ========= 1; V1P26M6Q; DUP; J4=Z; 2422/5: 304 000 013 2423/2: 205 025 130 ========= SETB10; J3P45!=; 2423/5: 171 122 2424/1: 304 000 007 2424/4: 037 2424/5: 205 145 130 ========= M5; SET7; SIGN; J3P45!=Z; 2425/2: 042 2425/3: 225 045 130 2426/0: 042 2426/1: 164 365 2426/3: 205 145 130 ========= 4; DUP; J3P45Z; (Jump if top of machine passed); 2463/4: 304 002 146 2464/1: 170 103 2464/3: 171 104 2464/5: 170 112 2465/1: 304 000 013 ========= SETAV2P11; =RM4; I4; =C4; SETB3654; 2465/4: 200 324 036 2466/1: 204 265 121 ========= JS1P26; J5; 2466/4: 052 ========= ERASE; 2466/5: 300 144 016 2467/2: 304 000 013 2467/5: 164 045 2470/1: 036 ========= 6; V0P26M6; SETB24; SHL+18; -; 2470/2: 304 000 013 2470/5: 011 2471/0: 042 2471/1: 301 144 016 2471/4: 304 000 001 ========= SETB44; OR; DUP; =V0P26M6; SET1; 2472/1: 200 321 313 2472/4: 154 147 2473/0: 304 005 037 ========= JSP6; (Type new descriptor); C6TOQ7; SETAV0; 2473/3: 170 164 2473/5: 304 005 041 2474/2: 170 162 2474/4: 041 2474/5: 171 122 2475/1: 304 000 002 ========= =I7; SETAV2; =M7; ZERO; M5; SET2; 2475/4: 170 143 2476/0: 300 005 042 2476/3: 301 005 052 2477/0: 300 005 045 2477/3: 301 005 053 ========= =RM6; V3; =V11; V6; =V12; 2500/0: 300 005 047 2500/3: 065 2500/4: 067 2500/5: 300 005 050 2501/2: 056 ========= 7; V8; REV; FRB; V9; +; 2501/3: 243 145 103 2502/0: 303 145 052 ========= J8C6Z; =V11M6Q; 2502/3: 041 2502/4: 166 041 2503/0: 200 265 100 ========= 10; ZERO;SHLD+16; J7; 2503/3: 304 000 002 2504/0: 011 2504/1: 301 145 052 2504/4: 052 2504/5: 041 2505/0: 033 2505/1: 171 120 ========= 8; SET2; OR; =V11M6; ERASE; ZERO; NOT; Q5; 2505/3: 301 005 046 2506/0: 200 321 342 2506/3: 304 000 003 2507/0: 170 153 ========= =V7; JSP10; SET3; =RC6; 2507/2: 017 2507/3: 017 2507/4: 017 2507/5: 017 2510/0: 300 145 052 2510/3: 303 145 037 2511/0: 177 140 2511/2: 130 160 2511/4: 300 005 046 ========= *11; V11M6; =V0M6Q; J11C6NZS; PWQ7; V7; 2512/1: 170 120 2512/3: 244 125 114 2513/0: 102 005 2513/2: 304 000 002 2513/5: 170 153 ========= =Q5; J9C5Z; M0M5Q; SET2; =RC6; 2514/1: 203 265 102 ========= J10; 2514/4: 171 172 2515/0: 170 142 2515/2: 300 144 016 2515/5: 164 365 2516/1: 164 015 ========= 9; C7; =M6; V0P26M6;SHL-6;SHL+6; 2516/3: 304 000 013 2517/0: 164 045 2517/2: 056 2517/3: 042 2517/4: 301 144 016 ========= SETB24; SHL+18; +; DUP; =V0P26M6; 2520/1: 304 000 001 2520/4: 200 321 313 2521/1: 202 360 001 ========= SET1; JSP6; EXIT2; 2521/4: 300 005 044 2522/1: 300 005 043 2522/4: 300 005 042 2523/1: 304 000 003 2523/4: 200 321 313 2524/1: 041 2524/2: 033 ========= 5; V5; V4; V3; SET3; JSP6; ZERO; NOT; 2524/3: 042 2524/4: 047 2524/5: 015 2525/0: 042 2525/1: 304 000 003 ========= DUP; STR; NEV; DUP; SET3; 2525/4: 011 2525/5: 171 120 2526/1: 301 005 046 2526/4: 204 321 345 2527/1: 300 005 046 ========= OR; Q5; =V7; JS2P10; V7; 2527/4: 170 120 2530/0: 205 265 066 ========= =Q5; J6; 2530/3: 052 ========= 13; ERASE; 2530/4: 052 ========= 12; ERASE; 2530/5: 052 ========= 3; ERASE; 2531/0: 052 ========= 1; ERASE; 2531/1: 200 360 000 ========= 4; EXIT1; ========= *** start P48V0; at address 8220 ========= P48; (TINT P P60 switch on job organiser P61 switch off jo P62 dont as react on on-line jobs P63 ask react always P64 switch on jo message P65 switch off jo message ); 2532/0: 200 324 222 2532/3: 200 265 131 2533/0: 304 000 013 2533/3: 036 2533/4: 042 2533/5: 220 045 131 2534/2: 167 377 2534/4: 047 2534/5: 065 ========= JSP32; J1P45; SETB60; -; DUP; J1P45=Z; DUP; =RM5;SET4;REV; -; =C5; 2607/5: 205 325 322 2610/2: 200 265 277 2610/5: 164 135 2611/1: 301 122 075 ========= JS15;J11;SHL+46; =V77P104M5; 2611/4: 300 005 201 2612/1: 047 2612/2: 052 2612/3: 301 005 201 ========= V7; STR; ERASE; =V7; (Cleared stored TINT T marker); 2613/0: 171 172 2613/2: 304 000 013 2613/5: 225 025 305 2614/2: 304 000 013 2614/5: 220 025 253 2615/2: 304 000 013 2615/5: 015 ========= C7; SETB54; J12=; SETB55; J117=; SETB60; NEV; 2616/0: 301 005 175 ========= 13; =V3; 2616/3: 171 172 2616/5: 304 000 013 2617/2: 015 2617/3: 220 145 254 ========= C7; SETB56; NEV; J115=Z; ========= 116; 2620/0: 300 005 051 2620/3: 300 010 063 2621/0: 036 ========= V10P45; V0P117; -; 2621/1: 304 000 013 2621/4: 203 324 222 2622/1: 205 265 130 ========= SETB77740; JS1P32; J3P45; 2622/4: 042 2622/5: 225 145 130 ========= DUP; J3P45=Z; 2623/2: 027 2623/3: 033 2623/4: 164 367 2624/0: 033 2624/1: 027 2624/2: 164 013 ========= NEG; NOT; SHL-5; NOT; NEG;SHL+5; 2624/4: 001 2624/5: 032 2625/0: 052 2625/1: 042 2625/2: 164 301 2625/4: 051 ========= VR; MAX; ERASE; DUP; SHL-32; REVD; 2625/5: 012 2626/0: 036 2626/1: 220 045 276 2626/4: 052 ========= PERM; -; J25Z; 2737/4: 300 121 365 2740/1: 042 2740/2: 300 121 371 2740/5: 056 ========= 7; V5P104M5; DUP; V9P104M5; +; 2741/0: 200 326 017 2741/3: 065 2741/4: 200 326 017 ========= 5; JSP57; REV; JSP57; 2742/1: 300 000 037 2742/4: 042 2742/5: 300 120 021 2743/2: 164 115 2743/4: 164 277 ========= V23P0; DUP; V9P0M5; SHL+38; SHL-33; 2744/0: 067 2744/1: 065 2744/2: 164 337 2744/4: 011 2744/5: 164 031 ========= FRB; REV; SHL-17; OR; SHL+12; (BA); 2745/1: 300 162 031 2745/4: 042 2745/5: 012 2746/0: 166 351 2746/2: 052 2746/3: 065 ========= V41P104M7; DUP; PERM; SHLD-12; ERASE; REV; 2746/4: 300 162 025 2747/1: 164 061 2747/3: 164 321 2747/5: 166 351 ========= V37P104M7; SHL24;SHL-24; SHLD-12; 2750/1: 171 132 2750/3: 170 162 ========= C5; =M7; 2750/5: 304 000 004 2751/2: 172 162 ========= SET4; =+M7; 2751/4: 171 122 2752/0: 304 000 013 2752/3: 011 2752/4: 164 025 2753/0: 011 ========= 3; M5; SETB20; OR; SHL+10; OR; (Priority); 2753/1: 300 122 011 2753/4: 167 365 2754/0: 220 045 366 ========= V25P104M5; SHC-6; J8Z; 3176/3: 263 146 172 ========= 12; J7C6NZ; 3177/0: 052 3177/1: 300 004 016 3177/4: 170 160 ========= ERASE; V0P26; =Q6; 3200/0: 304 000 013 3200/3: 205 324 036 ========= 3; SETB10544; JS2P26; 3201/0: 200 266 204 ========= J4; 3201/3: 052 3201/4: 120 152 3202/0: 220 346 200 ========= ERASE; PMBQ6; J3TR; 3202/3: 304 000 013 3203/0: 201 327 061 3203/3: 200 266 200 ========= (L, not on BT); SETB4000; JS10P100; J3; 3204/0: 300 004 016 3204/3: 170 160 ========= 4; V0P26; =Q6; 3204/5: 304 000 013 3205/2: 205 324 036 ========= 5; SETB10654; JS2P26; [ This line was missing in Hans P's version 3205/5: 202 266 211 ========= J6; 3206/2: 052 3206/3: 120 152 3206/5: 205 346 204 ========= ERASE; PMBQ6; J5NTR; 3207/2: 304 000 013 3207/5: 201 327 061 3210/2: 205 266 204 ========= (U, on BT); SETB32000; JS10P100; J5; 3210/5: 300 000 030 ========= 8; V16P0; ========= ========= (== 22 ==) 3211/2: 300 000 033 3211/5: 011 3212/0: 300 000 007 3212/3: 170 160 3212/5: 200 360 000 ========= 6; V19P0; OR; E7; =Q6; EXIT1; 3213/2: 171 160 3213/4: 171 120 3214/0: 171 120 3214/2: 141 140 ========= 11; (Fail this for exessive time); Q6; Q5; Q4; M-I6; 3214/4: 157 145 3215/0: 300 122 121 3215/3: 304 000 005 3216/0: 056 3216/1: 301 122 121 ========= Q6TOQ5; V97P104M5; SET5; +; =V97P104M5; (Allow time for restart); 3216/4: 041 3216/5: 203 324 364 3217/2: 017 3217/3: 017 3217/4: 017 3217/5: 170 120 3220/1: 170 120 3220/3: 170 160 3220/5: 203 266 176 ========= ZERO; JS41P41; DUMMY; DUMMY; DUMMY; =Q4; =Q5; =Q6; J12; 3221/2: 171 120 3221/4: 065 3221/5: 304 000 004 3222/2: 170 133 ========= 255; (Restart any OUT19 suspended progs, J1!=O if start to be forced); Q5; REV; SET4; =RC5; 3222/4: 300 122 011 3223/1: 167 363 3223/3: 202 046 237 3224/0: 200 324 174 ========= 254; V25P104M5; SHC-7; J253>=Z; JSP30; 3224/3: 300 100 024 3225/0: 042 3225/1: 170 160 3225/3: 222 146 241 3226/0: 041 3226/1: 002 3226/2: 120 162 ========= E20M4; DUP; =Q7; J250=Z; ZERO; =TR;BUSYQ7; 3226/4: 200 331 153 3227/1: 124 164 3227/3: 202 346 233 ========= JSP128; TLOQ7; J252NTR; (Go if no lockout); 3230/0: 300 100 012 3230/3: 300 000 010 3231/0: 036 3231/1: 202 046 237 3231/4: 171 160 3232/0: 222 146 233 3232/3: 120 160 3232/5: 201 334 046 ========= 251; E10M4; V0P0; -; J253>=Z; Q7; J252=Z; CTQ7; (Kill); JS247P196; 3233/2: 171 120 3233/4: 304 000 013 3234/1: 200 330 040 3234/4: 170 120 ========= 252; Q5; SETB100; JS114P300; =Q5; (Release prog); 3235/0: 300 000 010 3235/3: 300 100 036 3236/0: 036 3236/1: 300 121 371 3236/4: 056 3236/5: 301 121 371 ========= V0P0; E30M4; -; V9P104M5; +; =V9P104M5; 3237/2: 102 005 3237/4: 052 3237/5: 264 126 222 3240/2: 052 3240/3: 170 120 3240/5: 200 264 174 ========= 253; M0M5Q; ERASE; J254C5NZ; ERASE; =Q5; JP30; 3241/2: 042 3241/3: 220 146 230 3242/0: 202 266 233 ========= 250; DUP; J251=Z; J252; (First J if not forced); ========= *** start P61V0; at address 10194 ========= P61; (OUT 10); 3243/0: 041 3243/1: 301 122 035 3243/4: 205 324 107 3244/1: 201 266 267 ========= ZERO; =V45P104M5; JS3P29; J4; 3244/4: 300 000 275 3245/1: 164 377 3245/3: 221 146 267 ========= V32P1; SHL-1; J4=Z; 3246/0: 300 000 235 3246/3: 300 011 326 3247/0: 221 026 270 3247/3: 042 3247/4: 222 146 255 ========= V0P1; V3P155; J11=; DUP; J2=Z; 3250/1: 042 3250/2: 200 331 127 3250/5: 205 266 251 3251/2: 200 146 267 ========= DUP; JSP122; J5; J3!=Z; 3251/5: 042 3252/0: 200 331 261 3252/3: 200 266 267 3253/0: 300 000 236 3253/3: 042 ========= 5; DUP; JSP132; J3; V1P1; DUP; 3253/4: 200 331 127 3254/1: 200 266 257 3254/4: 052 3254/5: 200 146 267 ========= JSP122; J6; ERASE; J3!=Z; 3255/2: 300 000 236 3255/5: 200 146 267 ========= 2; V1P1; J3!=Z; 3256/2: 041 3256/3: 033 3256/4: 164 373 ========= 7; ZERO; NOT; SHL-3; 3257/0: 065 3257/1: 200 326 031 ========= 6; REV; JSP58; 3257/4: 200 331 315 ========= JSP138; 3260/1: 171 152 3260/3: 200 331 257 3261/0: 170 142 3261/2: 300 147 045 ========= C6; JSP131; =M6; V-18P101M6; 3261/5: 205 324 107 3262/2: 200 260 116 ========= JS3P29; J35P0; 3262/5: 300 122 035 3263/2: 202 146 265 ========= V45P104M5; J8!=Z; 3263/5: 205 324 107 3264/2: 200 260 116 ========= JS3P29; J35P0; 3264/5: 203 266 265 ========= J10; 3265/2: 052 ========= 8; ERASE; 3265/3: 202 324 075 3266/0: 200 260 116 ========= 10; JS2P29; J35P0; 3266/3: 200 360 000 ========= EXIT1; 3267/0: 052 ========= 3; ERASE; 3267/1: 304 000 013 3267/4: 200 260 330 ========= 4; SETB110; JP2; 3270/1: 300 007 120 3270/4: 203 332 240 3271/1: 300 000 236 3271/4: 015 3271/5: 164 015 3272/1: 205 146 251 3272/4: 041 3272/5: 301 007 120 3273/2: 205 266 251 ========= 11; V25P101; JS1P161; V1P1; NEV; SHL6; J5!=Z; ZERO; =V25P101; J5; ========= *** start P62V0; at address 10344 ========= P62; (Initial housekeeping for OUTS 2,4,8. Erase out no., check at least 1 other item in programs nest); 3274/0: 205 324 107 3274/3: 200 260 116 ========= JS3P29; J35P0; 3275/0: 300 000 275 3275/3: 201 105 131 ========= V32P1; J4P45<=Z; 3276/0: 300 000 235 3276/3: 042 3276/4: 202 360 001 ========= V0P1; DUP; EXIT2; ========= *** start P64V0; at address 10368 ========= P64; (OUT 17); 3300/0: 300 121 365 3300/3: 042 3300/4: 300 121 371 3301/1: 056 ========= V5P104M5; DUP; V9P104M5; +; 3301/2: 301 000 235 3301/5: 202 324 075 3302/2: 202 266 303 3302/5: 200 360 000 ========= 2; =V0P1; JS2P29; J1; EXIT1; 3303/2: 304 000 013 3303/5: 200 260 330 ========= 1; SETB40; JP2; (Fail nest full when OUT17 obeyed); ========= ========= ========= *** start P65V2; at address 10410 ========= P65V2; (OUT 50 and related topics); V-store at 03304 = 101 004 120 377 360 064 ========= V0=B2020212077770064; (Header word for stats block, used in P155); V-store at 03305 = 000 000 000 077 203 145 ========= V1=P /X*E; (Skeleton job descriptor, used in P15); V-store at 03306 = 000 334 371 317 111 155 ========= V2=P *SYSTEM; (Used in P52); ========= 3307/0: 171 104 3307/2: 167 353 3307/4: 300 122 075 3310/1: 011 3310/2: 301 122 075 ========= I4; SHC-11; V77P104M5; OR; =V77P104M5; (Show OUT50 done); 3310/5: 052 ========= ERASE; (Erases the out number, see P3); 3311/0: 200 326 274 3311/3: 200 266 325 3312/0: 052 3312/1: 200 331 263 3312/4: 200 266 325 ========= JSP62; J10; ERASE; JSP133; J10; 3313/1: 171 164 3313/3: 170 162 3313/5: 100 007 3314/1: 300 010 117 3314/4: 015 3314/5: 161 377 3315/1: 200 146 325 ========= I7; =M7; M0M7; V3P120; NEV; SHA-1; J10!=Z; 3315/4: 304 000 007 3316/1: 170 162 3316/3: 140 160 ========= SET7; =M7; M+I7; ========= ========= ========= (== 23 ==); 3316/5: 200 331 320 3317/2: 200 327 210 ========= JSP139; JSP102; (Wait, see ref 29P23); 3317/5: 205 324 107 3320/2: 200 320 116 ========= JS3P29; JS35P0; (Remove N2); 3320/5: 140 100 ========= M+I4; (Put Transfer in OUT8 queue); 3321/1: 203 263 236 ========= J99P23; (End of OUT1); 3321/4: 124 166 3322/0: 171 164 ========= 2; PMHQ7; I7; 3322/2: 304 002 061 3322/5: 171 122 3323/1: 056 3323/2: 164 041 ========= 3; SETAV65P104; M5; +; SHL+16; 3323/4: 011 3323/5: 041 3324/0: 203 323 256 ========= OR; ZERO; JS157P23; (Put item in OUT8 queue); 3324/3: 200 261 357 ========= J50P10; (Await end of transfer); 3325/0: 304 000 013 3325/3: 200 260 330 ========= 10; (Invalid or wrong date); SETB700; JP2; ========= ========= ========= *** start P66V0; at address 10500 ========= P66; (OUT51- overwrite job no.); 3326/0: 052 3326/1: 304 002 115 ========= ERASE; SETAV93P104; 3326/4: 170 162 3327/0: 204 334 014 3327/3: 200 324 067 3330/0: 201 333 372 3330/3: 101 165 3330/5: 200 360 000 ========= 1; =M7; JS8P196; JS1P29; JS128P196; =M7M5; EXIT1; 3331/2: 304 002 055 3331/5: 204 266 326 ========= 14; (OUT 14); SETAV61P104; J1; 3332/2: 304 002 055 3332/5: 204 266 326 ========= 15; (OUT15); SETAV61P104; J1; 3333/2: 204 334 014 3333/5: 200 324 067 3334/2: 201 333 372 3334/5: 042 3335/0: 225 046 341 ========= 19; (OUT19); JS8P196; JS1P29; JS128P196; DUP; J191=Z; 3602/2: 300 007 125 3602/5: 304 000 001 3603/2: 200 321 313 3603/5: 203 267 044 ========= V30; SET1; JSP6; J2P100; ========= 5; (W becomes L) 3604/2: 041 ========= ZERO; 3604/3: 041 3604/4: 033 3604/5: 301 007 067 3605/2: 304 000 013 3605/5: 205 267 163 ========= 51; ZERO;NOT; =V0; SETB17765; J43; ========= 6; (W becomes L, nothing typed) 3606/2: 041 3606/3: 033 3606/4: 203 267 204 ========= ZERO; NOT;J51; ========= *** start P102V0; at address 11568 ========= P102; (Hold up subprogram until peripheral transfer in programs area can be obeyed. Parameters given in Q7) 3610/0: 304 000 001 3610/3: 200 321 342 ========= SET1; JSP10; 3611/0: 171 160 3611/2: 200 327 215 3611/5: 201 267 213 ========= 2; Q7; JSP103; J1; 3612/2: 170 160 3612/4: 200 360 000 ========= =Q7; EXIT1; 3613/1: 304 000 001 3613/4: 041 3613/5: 066 3614/0: 204 321 345 ========= 1; SET1; ZERO; CAB; JS2P10; 3614/3: 200 267 211 ========= J2; ========= *** start P103V0; at address 11598 ========= P103; (Check parameters in N1 before peripheral transfer which may involve programs area) 3615/0: 304 000 004 3615/3: 170 153 ========= SET4; =RC6; 3615/5: 265 147 216 3616/2: 202 360 001 ========= 1; J2C6NZ; EXIT2; 3616/5: 302 140 021 3617/2: 200 330 026 3617/5: 042 3620/0: 203 330 014 ========= 2; V9P0M6Q; JS1P300; DUP; JS108P300; 3620/3: 205 267 215 ========= J1; 3621/0: 300 140 020 3621/3: 042 3621/4: 164 321 3622/0: 200 145 131 ========= V8P0M6; DUP; SHL-24; J1P45!=Z; 3622/3: 304 000 013 3623/0: 054 3623/1: 304 000 013 3623/4: 011 3623/5: 175 100 ========= 3; SETB30000; AND; SETB140000; OR; =K1; 3624/1: 052 3624/2: 202 360 001 ========= ERASE; EXIT2; ========= ========= (For actual p104 see in front of P11 V0=B01010101/23; (HUR) (V1 onwards= constants associated with priorities, in groups of 4) (V1-4= overflow and TR record, etc. V5-8= run time V9-12= PHU time) V13=B0141/11; (NS counters etc.); V14=B2141/11; V15=B4141/11; V16=B6141/11; V17=1; V18=1; V19=1; V20=1; (CPDAR); (V21=24 = A program unit pre-allocation. For B programs, records types to be pre-allocated on dellocation by OUT 6) V25=2; V26=2; V27=2; V28=2; (Hold-ups); V29=5; V30=5; V31=5; V32=5; (APM); (V33-36= Dump for E0 V37-44= Current program name V45-52=New program name, transfer parameters, OUT4/10 marker, etc. used (== 26 ==) only by main subprogram. V53-56=Program start time V57-60=Streams used by proram V61-68=Serial number of prog on tape) (V69 D0-15 System discs D16-31 32-47 Non system discs V73 Correspondence between logical and actual discs V77 D0 System marker D1 D2 OUT 41/42/43 Obeyed D3 Parity V81 D0-16 OUT43 selection marker D32-47 last seek requested V85 D0-15 D32-47NOC for OUT46 D16 last C block D17-31 length of block V89 input store for NOC); (V93-V96 job desc, of progs); (V97.. top half CPU time allowed for job, bottom half PHU time allowed for job. Overides E1 time for CPU, does restart on job if PHU time exceeded(as V9P104),set by OUT15); End of dummy P104); ========= *** start P105V2; at address 11658 ========= P105V2; (Consolidate core storage and swop priorities. Upgrades A priorities automatically if needed) ========= (V1=Q no. of quartets in P104/4/AV1P104, set up by P200); V-store at 03626 = 000 004 000 012 002 147 ========= V2=Q 4/10/AV3P11; 3627/0: 300 007 224 3627/3: 220 140 000 ========= V0; J4P54=Z; 3630/0: 041 3630/1: 301 007 224 3630/4: 304 000 004 3631/1: 170 133 ========= 6; ZERO; =V0; SET4; =RC5; 3631/3: 300 120 021 ========= 2; V9P0M5; 3632/0: 042 3632/1: 164 115 3632/3: 220 147 254 ========= 3; DUP; SHL+38; J5=Z; 3633/0: 042 3633/1: 202 330 012 3633/4: 200 267 343 ========= DUP; JS107P300; J4; ========= (Test for store move) 3634/1: 042 3634/2: 164 035 3634/4: 164 265 3635/0: 220 147 254 ========= DUP; SHL+14; SHL-38; J5=Z; ========= (ZERO; NOT; =V0P193; (Set JO marker);) ========= (Move program in store) 3635/3: 157 164 3635/5: 145 100 3636/1: 042 3636/2: 164 035 3636/4: 164 265 ========= Q7TOQ4; I4=-1; DUP;SHL+14; SHL-38; 3637/0: 164 013 3637/2: 171 164 3637/4: 036 ========= SHL+5; I7; -; 3637/5: 042 3640/0: 170 142 3640/2: 144 100 ========= DUP; =M6; I4=+1; 3640/4: 017 3640/5: 017 3641/0: 100 004 3641/2: 103 144 3641/4: 017 3641/5: 017 3642/0: 177 100 ========= *7; M0M4;=M6M4Q; *J7C4NZS; ========= (Alter value of base address) 3642/2: 041 3642/3: 065 3642/4: 167 321 3643/0: 166 355 ========= ZERO; REV; SHC-24; SHLD-10; 3643/2: 167 061 3643/4: 166 265 3644/0: 052 ========= SHC+24; SHLD-38; ERASE; ========= (Alter affected parameters in OUT 8 q) ========= 107; ========= 61; ========= (Alter affected parameters in FLEX q) 3644/1: 304 001 212 3644/4: 170 103 ========= SETAV0P6; =RM4; 3645/0: 100 004 3645/2: 033 3645/3: 221 147 250 ========= 8; M0M4; NOT; J9=Z; 3646/0: 100 004 3646/2: 200 331 150 3646/5: 201 330 020 3647/2: 103 004 3647/4: 200 267 245 ========= M0M4; JSP127; JS109P300; =M0M4Q; J8; ========= 9; (Alter affected SHUPS) 3650/1: 304 000 012 3650/4: 170 113 ========= SET10; =RC4; 3651/0: 302 102 145 3651/3: 223 047 253 ========= 10; V1P11M4Q; J11Z; (J if too much); 3774/2: 300 000 022 3774/5: 300 000 023 3775/2: 300 000 024 3775/5: 011 3776/0: 011 3776/1: 164 115 3776/3: 200 145 131 ========= V10P0; V11P0; V12P0; OR; OR; SHL38; J1P45!=Z;(J if others in MC); 3777/0: 164 035 3777/2: 300 120 021 3777/5: 056 4000/0: 301 120 021 4000/3: 041 4000/4: 201 264 015 ========= 20; SHL14; V9P0M5; +; =V9P0M5; ZERO; J1P24; 4001/1: 042 4001/2: 027 4001/3: 300 120 021 ========= 19; (Store to be reduced); DUP; NEG; V9P0M5; 4002/0: 164 061 4002/2: 164 265 4002/4: 036 4002/5: 200 045 131 4003/2: 200 267 377 ========= SHL24; SHL-38; -; J1P45>=Z; J20; (Not quite as bad as 1st bit); ========= *** start P300V0; at address 12312 ========= P300; (Old seperate P routines); ========= 106; (Given BA/NOL, set C7= no. of words occupied, I7,M7= first and last addresses occupied) 4004/0: 042 4004/1: 164 115 4004/3: 164 277 4004/5: 042 4005/0: 203 150 006 ========= DUP; SHL+38; SHL-33; DUP; J10!=Z; 4005/3: 170 160 4005/5: 052 4006/0: 200 360 000 ========= =Q7; ERASE; EXIT1; 4006/3: 042 4006/4: 170 164 4007/0: 170 162 4007/2: 164 061 4007/4: 164 265 ========= 10; DUP; =I7; =M7; SHL+24; SHL-38; 4010/0: 033 4010/1: 027 4010/2: 164 013 4010/4: 042 4010/5: 170 172 ========= NOT; NEG; SHL+5; DUP; =C7; 4011/1: 027 4011/2: 033 4011/3: 172 162 4011/5: 200 360 000 ========= NEG; NOT; =+M7; EXIT1; ========= ========= 107; (Given BA/NOL, set up Q7 as in P106, and test lock-out on progrms area) 4012/2: 041 4012/3: 002 4012/4: 200 330 004 4013/1: 124 164 4013/3: 221 345 131 4014/0: 202 360 001 ========= ZERO; =TR; JS106; TLOQ7; J4P45TR; EXIT2; ========= ========= 108; (Given transfer paramters, test for I >= I7 and M <= M7) 4014/3: 041 4014/4: 065 4014/5: 166 341 4015/1: 164 101 4015/3: 166 301 ========= ZERO; REV; SHLD-16; SHL+32; SHLD-32; 4015/5: 171 164 4016/1: 037 4016/2: 171 162 4016/4: 066 4016/5: 037 ========= I7; SIGN; M7; CAB; SIGN; 4017/0: 011 4017/1: 221 045 131 4017/4: 202 360 001 ========= OR; J4P45=Z; 4060/1: 300 160 020 4060/4: 301 150 045 4061/1: 041 ========= V8P0M7; =V0M6; ZERO; 4061/2: 052 ========= 3; ERASE; 4061/3: 263 170 054 ========= 4; J2C7NZ; 4062/0: 052 4062/1: 302 150 045 4062/4: 264 150 052 4063/1: 052 4063/2: 200 360 000 ========= ERASE; V0M6Q; J1C6NZ; ERASE; EXIT1; ========= *** start P117V0; at address 12600 ========= P117V0; (Set in N1 parameters for space between B and A programs, as C= no. of words, I,M= first and last addresses) 4064/0: 200 330 051 4064/3: 304 000 004 4065/0: 170 173 4065/2: 300 005 051 ========= JSP116; SET4;=RC7; V10P45; 4065/5: 300 170 045 4066/2: 042 4066/3: 200 330 043 4067/0: 221 150 073 ========= 1; V0P116M7; DUP; JS115P300; J2=Z; 4067/3: 302 170 045 4070/0: 300 001 360 4070/3: 164 140 4070/5: 164 005 4071/1: 221 050 074 ========= V0P116M7Q; V0P104; SHLC6; SHL+2; J3=Z; 4171/3: 300 122 015 4172/0: 164 003 4172/2: 204 050 167 ========= V29P104M5; SHL+1; J20>=Z; 4172/5: 304 000 011 4173/2: 200 271 070 ========= 24; SET9; JP121; ========= 25; (Program not on tape) 4173/5: 171 172 4174/1: 170 142 4174/3: 200 331 277 ========= C7; =M6; JSP135; 4175/0: 041 4175/1: 301 005 173 4175/4: 202 270 160 ========= ZERO; =V1P52; J19; 4176/1: 171 172 4176/3: 170 142 4176/5: 200 331 277 4177/2: 202 270 152 ========= 105; C7; =M6; JSP135; J22; (Abandon search); 4177/5: 300 122 015 4200/2: 164 007 4200/4: 041 4200/5: 033 4201/0: 050 4201/1: 164 373 4201/3: 301 122 015 ========= 21; V29P104M5; SHL+3; ZERO; NOT; CONT; SHL-3; =V29P104M5; 4202/0: 300 144 016 4202/3: 164 061 4202/5: 164 255 4203/1: 304 000 013 4203/4: 015 ========= V0P26M6; SHL+24; SHL-42; SETB43; NEV; 4203/5: 222 150 160 ========= J19=Z; 4204/2: 041 4204/3: 300 144 016 4205/0: 164 061 4205/2: 166 305 4205/4: 164 351 ========= ZERO; V0P26M6; SHL+24; SHLD-30; SHL-12; 4206/0: 304 000 013 4206/3: 015 4206/4: 011 4206/5: 204 150 167 ========= SETB54; NEV; OR; J20!=Z; 4207/2: 300 144 016 4207/5: 200 326 002 4210/2: 011 4210/3: 301 144 016 ========= V0P26M6; JSP55; OR; =V0P26M6; 4211/0: 153 007 4211/2: 134 172 4211/4: 041 4211/5: 200 321 342 ========= 23; IM0TOQ7; PMAQ7; ZERO; JSP10; 4212/2: 300 122 015 4212/5: 164 007 4213/1: 201 050 176 ========= V29P104M5; SHL+3; J105>=Z; 4213/4: 121 160 4214/0: 223 350 214 ========= PARQ7; J28TR; 4214/3: 120 172 4214/5: 225 350 173 ========= 28; PMFQ7; J25TR; 4215/2: 120 172 4215/4: 200 350 211 ========= PMCQ7; J23NTR; 4216/1: 200 331 146 4216/4: 200 327 210 4217/1: 124 160 4217/3: 041 4217/4: 200 321 342 ========= JSP126; JSP102; PIAQ7; ZERO; JSP10; 4220/1: 121 160 4220/3: 220 350 221 ========= PARQ7; J29TR; 4221/0: 120 172 4221/2: 120 172 4221/4: 225 350 173 ========= 29; PMCQ7; PMFQ7; J25TR; 4222/1: 171 164 4222/3: 170 142 4222/5: 100 006 4223/1: 300 122 035 ========= I7; =M6; M0M6; V45P104M5; 4223/4: 200 331 310 4224/1: 110 006 V49104P120 is out of range, only 7 V-stores specified 4224/3: 304 130 034 4225/0: 200 331 310 4225/3: 011 ========= JSP137; M0M6N; V49104M5; JSP137; OR; 4225/4: 200 150 211 ========= J23!=Z; ========= 30; (Read B-block) 4226/1: 200 327 210 4226/4: 124 160 4227/0: 041 4227/1: 200 321 342 ========= JSP102; PIAQ7; ZERO; JSP10; 4227/4: 121 160 4230/0: 200 350 254 ========= PARQ7; J31NTR; 4230/3: 304 000 004 4231/0: 200 262 257 ========= 74; SET4; JP12; 4231/3: 300 122 041 4232/0: 300 122 035 4232/3: 164 061 ========= 81; V49P104M5; V45P104M5; SHL24; 4232/5: 164 361 4233/1: 304 000 013 4233/4: 166 341 4234/0: 052 ========= SHL-8; SETB135371; SHLD-16; ERASE; 4234/1: 300 120 040 4234/4: 304 000 003 4235/1: 200 321 316 4235/4: 204 271 075 ========= V24P0M5; SET3; JS4P6; J20P121; (Nod gives CRNP message); ========= 69; (Binary archived); 4236/1: 041 4236/2: 033 4236/3: 164 373 4236/5: 065 4237/0: 200 326 031 ========= ZERO; NOT; SHL-3; REV; JSP58; (Request tape); 4237/3: 245 150 172 4240/0: 300 144 016 4240/3: 300 122 035 4241/0: 304 000 011 4241/3: 164 045 ========= J24C6Z; V0P26M6; V45P104M5; SET9; SHL18; 4241/5: 042 4242/0: 164 031 4242/2: 057 4242/3: 301 122 035 4243/0: 164 365 4243/2: 164 015 4243/4: 301 144 016 ========= DUP; SHL12; +D; =V45P104M5; SHL-6; SHL6; =V0P26M6; ========= (Change D to M and C to L); 4244/1: 154 147 4244/3: 205 270 177 ========= C6TOQ7; J21; ========= 82; (Program to be read from disc); 4245/0: 052 4245/1: 300 122 111 4245/4: 300 122 015 4246/1: 164 113 4246/3: 221 050 250 ========= ERASE; V89P104M5; V29P104M5; SHL37; J182Z; 133; V1P104M5; =Q7; JSP126; I7; =M6; DUP; J63<=Z; ZERO; ); 4266/3: 052 ========= 33; ERASE; 4266/4: 042 4266/5: 110 006 4267/1: 011 4267/2: 111 006 ========= DUP; M0M6N; OR; =M0M6N; 4267/4: 027 4267/5: 033 4270/0: 164 367 ========= 34; NEG; NOT; SHL-5; 4270/2: 042 4270/3: 300 120 021 4271/0: 164 061 4271/2: 164 265 ========= 35; DUP; V9P0M5; SHL+24; SHL-38; 4271/4: 037 4271/5: 201 110 303 ========= SIGN; J38<=Z; 4272/2: 171 160 4272/4: 200 330 064 4273/1: 202 270 276 ========= Q7; JSP117; J36; 4273/4: 164 301 4274/0: 164 023 4274/2: 300 120 021 4274/5: 056 ========= SHL-32; SHL+9; V9P0M5; +; 4275/0: 301 120 021 4275/3: 170 160 4275/5: 202 270 270 ========= =V9P0M5; =Q7; J35; 4276/2: 065 4276/3: 301 121 361 ========= 36; REV; =V1P104M5; 4277/0: 300 122 075 4277/3: 164 017 4277/5: 220 051 156 ========= V77P104M5; SHL+7; JP130=Z; V0P76; J42!=Z; 4326/5: 171 164 4327/1: 027 4327/2: 033 4327/3: 042 4327/4: 170 164 4330/0: 170 142 4330/2: 100 006 4330/4: 301 122 025 ========= 86; I7; NEG; NOT; DUP; =I7; =M6; M0M6; =V37P104M5; ========= (Preserve word which will be overwritten by N.O.C.); 4331/1: 171 162 4331/3: 171 164 4331/5: 036 4332/0: 304 016 377 4332/3: 036 4332/4: 223 110 323 4333/1: 200 327 210 4333/4: 300 122 111 4334/1: 202 331 056 ========= M7; I7; -; SET3839; -; J85>Z; JSP102; V89P104M5; JS84; 4334/4: 203 270 322 4335/1: 171 164 4335/3: 170 142 4335/5: 171 104 4336/1: 172 164 ========= J78; I7; =M6; I4; =+I7; 4336/3: 100 006 4336/5: 300 122 025 4337/2: 101 006 4337/4: 301 122 111 ========= M0M6; (N.O.C.); V37P104M5; =M0M6; =V89P104M5; 4340/1: 171 162 4340/3: 171 164 4340/5: 042 4341/0: 170 143 4341/2: 036 4341/3: 170 152 4341/5: 300 121 361 ========= 42; M7; I7; DUP; =RM6; -; =C6; V1P104M5; 4342/2: 017 4342/3: 017 4342/4: 017 4342/5: 017 4343/0: 242 150 344 4343/3: 102 006 4343/5: 056 4344/0: 177 140 ========= *51; J52C6Z; M0M6Q; +; J51C6NZS; 4344/2: 300 100 024 4344/5: 164 301 4345/1: 205 150 311 ========= 52; E20M4; SHL-32; J40!=Z; ========= ========= (== 32 ==) ========= (Check C-block sum) 4345/4: 100 007 4346/0: 015 4346/1: 300 120 021 4346/4: 164 013 4347/0: 170 162 ========= M0M7; NEV; V9P0M5; SHL+5; =M7; 4347/2: 100 007 4347/4: 164 061 4350/0: 224 150 351 ========= M0M7; SHL+24; J53=Z; 4350/3: 304 000 003 4351/0: 065 4351/1: 200 151 070 ========= SET3; REV; JP121!=Z; ========= 53; (Dispose of input unit) 4351/4: 052 4351/5: 245 170 355 4352/2: 171 172 4352/4: 170 142 4353/0: 300 144 016 ========= ERASE; J47C7Z; C7; =M6; V0P26M6; 4353/3: 164 043 4353/5: 222 050 355 4354/2: 200 331 135 4354/5: 205 270 355 ========= SHL17;J43=Z; JS3P29; DUMMY; DUMMY; DUMMY; 4435/2: 201 324 114 4435/5: 202 271 023 4436/2: 052 4436/3: 300 122 075 4437/0: 164 031 4437/2: 220 051 041 ========= 183; JS5P29; J50; ERASE; V77P104M5; SHL12; J200=Z; ========= (CRNP failure in OUT 1); 4505/1: 304 000 005 4505/4: 201 262 337 ========= SET5; J1P15; (CRNP in OUT1 does not say FAILSIO); ========= 4506/1: 300 005 174 4506/4: 170 172 4507/0: 243 171 110 ========= 2; V2P52; =C7; J3C7Z; 4507/3: 120 161 4507/5: 041 4510/0: 301 005 174 ========= MANUALQ7; ZERO; =V2P52; 4510/3: 300 004 016 4511/0: 170 160 ========= 3; V0P26; =Q6; 4511/2: 102 006 4511/4: 052 4511/5: 242 151 114 ========= 4; M0M6Q; ERASE; J10C6Z; 4512/2: 200 331 143 4512/5: 202 271 111 ========= JSP125; J4; 4513/2: 204 324 053 4513/5: 202 271 111 ========= JS1P27; (Make unit U); J4; ========= 10; (Clear BA/NOL, PHU, etc.) 4514/2: 041 4514/3: 301 122 075 ========= ZERO;=V77P104M5; (Clear disc allocation and other markers); 4515/0: 041 4515/1: 301 122 025 4515/4: 041 4515/5: 301 122 031 ========= ZERO; =V37P104M5; ZERO; =V41P104M5; 4516/2: 041 4516/3: 301 122 021 4517/0: 300 120 021 4517/3: 042 4517/4: 200 330 043 4520/1: 042 ========= ZERO; =V33P104M5; V9P0M5; DUP; JS115P300; DUP; 4520/2: 304 000 013 4520/5: 164 007 4521/1: 164 373 4521/3: 033 4521/4: 054 4521/5: 200 331 300 ========= SETB147777; SHL+3; SHL-3; NOT; AND; JSP136; 4522/2: 300 001 360 4522/5: 167 140 4523/1: 164 011 4523/3: 142 140 4523/5: 164 371 ========= V0P104; SHCC6; SHL+4; NC6; SHL-4; 4524/1: 167 140 4524/3: 301 001 360 4525/0: 200 360 000 ========= SHCC6;=V0P104; EXIT1; ========= *** start P122V1; at address 14346 ========= P122V1; (Check given word as mag tape identifier) V-store at 04525 = 152 246 265 152 346 253 ========= V0=B3252326532563253; [ underlined word JUNK V-store at 04526 = 377 353 277 377 377 360 ========= V1=B377727377777777/43; [ mask for allowable characters, digits, letters and a few others 4527/0: 042 4527/1: 304 000 013 4527/4: 054 ========= DUP; SETB77; AND; 4527/5: 170 172 4530/1: 042 4530/2: 220 145 131 ========= 1; =C7; DUP; J1P45=Z; [ EXIT1 for OK, includes zero tape , i.e. work tape / scratch tape 4530/5: 300 011 126 4531/2: 041 4531/3: 166 160 4531/5: 065 4532/0: 052 ========= 2; V1; ZERO; SHLDC7; REV; ERASE; 4532/1: 164 067 4532/3: 166 015 4532/5: 042 4533/0: 225 051 127 ========= SHL+27; SHLD+6; DUP; J1=Z; 4550/4: 042 4550/5: 164 003 4551/1: 161 251 4551/3: 221 145 131 ========= DUP; SHL+1; SHA-44; J4P45=Z; (The SHA is changed from SHA-38 in a desperate bid to et KKT92P1 to work); 4552/0: 202 360 001 ========= 1; EXIT2; ========= *** start P128V0; at address 14466 ========= P128; (Add base address of priority in M5 to I7 and M7) 4553/0: 300 120 021 4553/3: 164 115 4553/5: 164 277 4554/1: 042 ========= V9P0M5; SHL+38; SHL-33; DUP; 4554/2: 172 164 4554/4: 172 162 4555/0: 200 360 000 ========= =+I7; =+M7; EXIT1; ========= *** start P130V0; at address 14484 ========= P130V0; (Handle foreground jobs); V-store at 04555 = 377 377 377 377 377 377 ========= V0=-1; (Letter of dumped job); 4556/0: 300 011 155 4556/3: 202 050 300 ========= V0; J136P120>=Z; (J if if one level already dumped); 4557/0: 300 121 361 4557/3: 300 120 021 4560/0: 164 061 4560/2: 164 265 4560/4: 036 ========= V1P104M5; V9P0M5; SHL+24; SHL-38; -; ========= (== 34 ==) 4560/5: 300 004 302 4561/2: 170 153 ========= V0P35;=RC6; 4561/4: 042 4561/5: 302 140 021 4562/2: 164 061 4562/4: 164 265 ========= 1; DUP; V9P0M6Q; SHL+24; SHL-38; 4563/0: 036 4563/1: 224 111 166 ========= -; J2>Z; (J if no big enough); 4563/4: 300 142 074 4564/1: 164 017 ========= V76P104M6; SHL+7; (Look at foreground marker and OUT40); 4564/3: 300 142 010 4565/0: 167 375 ========= V24P104M6; SHC-2; (Lok at subprog activity bit and absent bit); 4565/2: 011 4565/3: 042 4565/4: 164 003 4566/0: 011 4566/1: 205 051 167 ========= OR; DUP; SHL+1; OR; J3>=Z; (J if OK to roll out); 4566/4: 264 111 161 ========= 2; J1C4NZ; 4567/1: 052 4567/2: 202 270 300 ========= 5; ERASE; J136P120; (Wait and come round again); 4567/5: 141 140 4570/1: 171 122 4570/3: 202 331 172 4571/0: 170 122 4571/2: 200 324 174 4571/5: 201 271 167 ========= 3; M-I6; M5; JS4; =M5; JSP30; J5; 4572/2: 151 145 4572/4: 200 324 174 4573/1: 300 120 021 4573/4: 200 330 004 4574/1: 200 326 002 4574/4: 301 011 155 ========= 4; M6TOQ5; JSP30; V9P0M5; JS106P300; JSP55; =V0; 4575/1: 200 331 320 4575/4: 200 327 210 ========= JSP139; JSP102; (Wait for no lo and no 2ND subprog); ========= (Now OK to dump); 4576/1: 041 ========= ZERO; 4576/2: 042 4576/3: 042 4576/4: 304 000 140 4577/1: 056 4577/2: 042 4577/3: 301 100 037 ========= 6; DUP; DUP; SET96; +; DUP; =E31M4; (SHUL* of sec subprog); 4600/0: 304 000 050 4600/3: 034 4600/4: 050 4600/5: 001 4601/0: 300 120 021 ========= SET40; xD; CONT;(Extent of max transfer); VR; V9P0M5; 4601/3: 164 061 4601/5: 164 265 4602/1: 033 4602/2: 027 4602/3: 164 013 ========= SHL+24; SHL-38; NOT; NEG; SHL+5; 4602/5: 032 4603/0: 052 ========= MAX; ERASE; (Leaves size of transfer in N1); ========= (VR set if this is last transer); 4603/1: 027 4603/2: 033 ========= NEG; NOT; (High address of transfer); 4603/3: 065 ========= REV; (Strat sector); 4603/4: 304 000 050 4604/1: 034 4604/2: 050 4604/3: 164 041 4604/5: 011 ========= SET40; xD; CONT; SHL+16; (Low address); OR; 4605/0: 065 4605/1: 304 004 200 4605/4: 056 ========= REV; SET1152; +; (Strat dump on track 12); 4605/5: 225 211 207 ========= J7V; (J if last time); 4606/2: 202 331 220 4606/5: 300 100 037 4607/2: 202 271 176 ========= JS10; E31M4; J6; 4607/5: 202 331 220 ========= 7; (Last time); JS10; 4610/2: 300 120 021 4610/5: 042 4611/0: 164 013 4611/2: 170 142 4611/4: 042 4611/5: 301 140 002 ========= V9P0M5; DUP; SHL+5; =M6; DUP; =E2M6; 4612/2: 167 061 4612/4: 164 025 4613/0: 167 035 4613/2: 301 120 021 ========= SHC+24; SHL+10; SHC+14; =V9P0M5; (Sets NOL = 32 words); 4613/5: 304 004 200 4614/2: 111 006 4614/4: 200 331 250 4615/1: 304 000 007 4615/4: 170 143 4616/0: 171 160 4616/2: 304 000 041 4616/5: 202 331 220 ========= SET1152; =M0M6N; JS13; SET7; =RM6; Q6; SET33;JS10; ========= (Put entry for JO on disc); 4617/2: 304 000 013 4617/5: 205 270 036 ========= SETB40; J113P300; (Hold up obj pro); ========= 10; (Write on global disc); 4620/2: 304 003 000 4620/5: 056 4621/0: 173 000 4621/2: 200 274 062 ========= SET768; +;LINK; J234P196; 4621/5: 304 000 013 4622/2: 200 260 330 ========= 12; (Invalid OUT25); SETB670; JP2; ========= 50; (Swop levels - only available to JO); 4622/5: 042 4623/0: 164 041 4623/2: 164 301 4623/4: 065 4623/5: 174 000 4624/1: 173 000 4624/3: 200 325 372 4625/0: 201 334 046 ========= DUP; SHL+16; SHL-32; REV;=LINK; LINK; JS1P54; JS247P196; 4625/3: 204 274 014 ========= J8P196; (Set TR if swop not possible); ========= 25; (OUT25, restore dumped prog if D0=0, swop levels if D0=1); ========= (Used by JO, N2=Q-/LO/HI of prog now in store); 4626/0: 203 332 365 4626/3: 200 271 230 4627/0: 304 000 013 4627/3: 200 260 330 ========= JS3P193; J11; SETB10; JP2; (Fail 01 if not JO); 4630/0: 205 333 367 4630/3: 225 051 222 ========= 11; JS3P196; J50=Z; (If no TINT J); 4753/5: 200 332 240 4754/2: 304 000 011 4754/5: 170 153 4755/1: 304 000 003 4755/4: 170 144 ========= JSP161; SET9; =RC6; SET3;=I6; 4756/0: 167 015 4756/2: 027 4756/3: 033 4756/4: 167 365 ========= SHC+6; NEG; NOT; SHC-6; 4757/0: 302 147 074 4757/3: 225 031 360 ========= *98; V5P101M6Q; J96=; 4760/0: 177 140 4760/2: 204 271 365 ========= 97; J98C6NZS; J91; 4760/5: 300 011 326 4761/2: 300 147 070 4761/5: 015 4762/0: 200 151 360 ========= 96; V3; V1P101M6; NEV; J97!=Z; 4762/3: 171 152 4762/5: 027 4763/0: 170 142 4763/2: 300 144 035 ========= C6; NEG; =M6; V15P26M6; 4763/5: 164 061 4764/1: 164 255 4764/3: 304 000 013 4765/0: 015 4765/1: 204 152 010 ========= SHL+24; SHL-42; SETB65; NEV; J90!=Z; ========= (J if tape still on machine); ========= 91; 4765/4: 304 000 004 4766/1: 170 133 ========= (Switch); SET4; =RC5; 4766/3: 300 012 232 4767/0: 033 4767/1: 027 4767/2: 301 012 232 ========= V0P161; NOT; NEG; =V0P161; 4767/5: 300 011 322 4770/2: 301 011 327 ========= V-1; =V4; 4770/5: 300 122 051 4771/2: 042 4771/3: 041 ========= 95; V57P104M5; DUP; ZERO; 4771/4: 037 4771/5: 027 4772/0: 050 4772/1: 303 122 051 ========= SIGN; NEG; CONT; =V57P104M5Q; 4772/4: 265 131 370 4773/1: 300 003 233 4773/4: 042 4773/5: 301 003 231 ========= J95C5NZ; V2P23; DUP; =V0P23; 4774/2: 300 003 234 4774/5: 065 4775/0: 205 151 376 4775/3: 304 003 231 4776/0: 166 341 4776/2: 052 4776/3: 167 041 ========= V3P23; REV; J92!=Z; SETAV0P23; SHLD-16; ERASE; SHC+16; 4776/5: 301 003 232 ========= 92; =V1P23; 4777/2: 041 4777/3: 301 003 233 5000/0: 304 003 233 5000/3: 301 003 234 5001/0: 200 271 346 ========= ZERO; =V2P23; SETAV2P23; =V3P23; J93; 5001/3: 304 000 013 ========= 162; SETB7777; 5002/0: 300 012 234 5002/3: 066 5002/4: 201 332 241 5003/1: 164 031 5003/3: 011 5003/4: 164 015 5004/0: 171 132 ========= 163; V2P161; CAB; JS2P161; SHL+12; OR; SHL+6; C5; 5004/2: 011 5004/3: 164 015 5004/5: 300 121 374 5005/2: 164 245 5005/4: 164 007 5006/0: 027 5006/1: 170 152 ========= OR; SHL+6; V12P104M5; SHL-46; SHL+3; NEG; =C6; 5006/3: 300 011 323 5007/0: 164 140 5007/2: 304 000 013 5007/5: 054 5010/0: 011 5010/1: 200 360 000 ========= V0; SHLC6; SETB77; AND; OR; EXIT1; 5010/4: 052 ========= 90; ERASE; Cannot find routine P22 5010/5: 300 000 000 5011/2: 304 000 002 5011/5: 170 102 5012/1: 170 160 5012/3: 244 172 157 5013/0: 120 162 5013/2: 221 345 131 ========= 100; V3P22; SET2; =M4; =Q7; J102C7Z; BUSYQ7; J4P45TR; 5013/5: 300 003 233 5014/2: 042 5014/3: 220 145 131 ========= V2P23; DUP; J1P45=Z; 5015/0: 122 160 5015/2: 223 352 205 ========= 1; METQ7; J112TR; 5015/5: 121 160 5016/1: 041 5016/2: 002 ========= 7; PARQ7; ZERO; =TR; 5016/3: 042 5016/4: 170 160 5017/0: 042 5017/1: 225 052 021 ========= DUP; =Q6; DUP; J11=Z;M7; I7; -; JS162; =M0M6; 5042/3: 130 160 ========= 4; MWQ7; 5042/5: 200 360 000 ========= 5; EXIT1; ========= 254; (If punch then do gap); 5043/2: 171 132 5043/4: 167 371 5044/0: 221 052 033 5044/3: 052 5044/4: 042 5044/5: 304 000 004 5045/2: 056 5045/3: 205 272 037 ========= C5; SHC-4; J12=Z; 5121/3: 300 122 124 5122/0: 113 006 ========= V100P104M5; =M0M6QN; 5122/2: 300 122 134 5122/5: 113 006 ========= V108P104M5; =M0M6QN; 5123/1: 300 122 140 5123/4: 204 272 124 ========= V112P104M5;J31; 5124/1: 304 000 013 ========= 25; SETB02; 5124/4: 113 006 5125/0: 171 152 5125/2: 027 5125/3: 203 332 001 5126/0: 301 011 332 ========= 31; =M0M6QN; C6; NEG; JS162; =V7; 5126/3: 151 147 5126/5: 203 272 042 ========= 32; M6TOQ7; J4; 5127/2: 041 5127/3: 171 132 5127/5: 166 373 5130/1: 164 011 5130/3: 300 011 331 5131/0: 011 5131/1: 166 037 5131/3: 113 006 ========= 22; ZERO; C5; SHLD-3; SHL+4; V6; OR; SHLD+15; =M0M6QN; 5131/5: 052 5132/0: 300 006 015 5132/3: 167 031 5132/5: 300 000 010 5133/2: 161 321 5133/4: 304 000 036 5134/1: 056 5134/2: 067 5134/3: 300 000 037 5135/0: 164 003 ========= ERASE; V0P57; SHC+12; V0P0; SHA-24; SET30; +; FRB;V23P0; SHL+1; 5135/2: 011 5135/3: 300 011 324 5136/0: 166 045 5136/2: 164 365 5136/4: 166 271 ========= OR; V1; SHLD+18; SHL-6; SHLD-36; 5137/0: 052 5137/1: 167 061 5137/3: 113 006 5137/5: 304 000 013 5140/2: 204 272 124 ========= ERASE; SHC24; =M0M6QN; SETB170202; J31; 5140/5: 052 5141/0: 300 002 051 5141/3: 300 002 052 5142/0: 011 ========= 101; (L queue empty); ERASE; V57P104; V58P104; OR; 5142/1: 300 002 053 5142/4: 011 5142/5: 300 002 054 5143/2: 011 5143/3: 225 052 010 ========= V59P104; OR; V60P104; OR; J100=Z; (J if ELDON will not print tape); 5145/2: 300 012 232 5145/5: 301 007 120 5146/2: 205 272 152 ========= V0P161; =V25P101; J255; (Store serial number for OUT 11); 5146/5: 171 160 5147/1: 304 000 020 5147/4: 304 001 040 5150/1: 205 332 354 5150/4: 204 272 010 ========= 253; Q7; SET16; SET288; JS1P193; J90; (J if nogo); 5151/1: 200 331 146 5151/4: 300 012 232 5152/1: 111 007 5152/3: 170 160 ========= JSP126; V0P161; =M0M7N; (Put reel no tape in E8 of prog); =Q7; 5152/5: 151 004 ========= 255; M0TOQ4; ========= 107; 5153/1: 304 011 330 5153/4: 042 5153/5: 170 164 5154/1: 170 162 5154/3: 130 172 ========= SETAV5; DUP; =I7; =M7; MLWQ7; 5154/5: 300 103 232 5155/2: 164 101 5155/4: 167 041 5156/0: 301 103 232 ========= V1P23M4; SHL+32; SHC+16; =V1P23M4; 5156/3: 171 172 5156/5: 170 142 5157/1: 200 271 277 ========= C7; =M6; JP135; 5157/4: 300 003 233 5160/1: 221 145 131 5160/4: 171 164 5161/0: 221 045 131 ========= 102; (No N tape); V2P23; J4P45=Z; I7; J4P45=Z; (J if no queued TINT T); 5341/4: 201 321 125 ========= JS5P4; (Enter TINT routine to attempt prog input); 5342/1: 300 007 121 5342/4: 221 045 131 ========= 9; V26P101; J4P45=Z; (J if foreground job); 5344/5: 052 5345/0: 300 012 334 5345/3: 220 153 000 ========= 8; ERASE; V0; J10=Z; (J if no JO req); 5346/0: 304 010 000 5346/3: 205 332 354 5347/0: 200 360 000 ========= 13; SET2048; JS1; EXIT1; 5347/3: 041 5347/4: 301 012 334 5350/1: 300 000 010 5350/4: 301 012 336 ========= 6; ZERO;=V0; V0P0; =V2; 5351/1: 300 007 121 5351/4: 164 005 5352/0: 221 045 131 ========= V26P101; SHL2;J4P45Z; (Exit if nogo); ========= 2; (Input prog without store availability check); 5357/0: 200 325 322 5357/3: 205 265 130 5360/0: 300 005 172 5360/3: 033 5360/4: 205 145 130 ========= JS18P52; J3P45; V0P52; NOT; J3P45!=Z; (Exit if prog input in progress); ========= (Now OK to go); 5361/1: 200 324 174 5361/4: 171 164 5362/0: 164 367 There is no routine P118 5362/2: 200 320 000 5362/5: 301 121 361 ========= JSP30; I7; SHL-5; JSP118; =V1P104M5; 5363/2: 171 104 5363/4: 167 363 5364/0: 301 122 075 ========= I4; SHC-7; =V77P104M5; (Suppress FLEX output); 5364/3: 205 325 310 5365/0: 202 360 001 ========= JS19P52; (Initiate input); EXIT2; (EXIT2 if prog initiated); ========= ========= 3; (Check for JO, exit if JO); 5365/3: 300 122 031 5366/0: 300 122 025 ========= V41P104M5; V37P104M5; 5366/3: 166 305 5366/5: 052 ========= 4; (Ditto ident in N1,N2); SHLD-30; ERASE; 5367/0: 300 005 172 5367/3: 015 5367/4: 221 145 131 5370/1: 202 360 001 ========= V17P254; (JO ident); NEV; J4P45=Z; EXIT2; 5370/4: 300 122 041 5371/1: 300 122 035 5371/4: 203 272 366 ========= 5; V49P104M5; V45P104M5; J4; (As 3 but during prog input); ========= 5372/1: 300 011 155 5372/4: 205 052 344 ========= 7; V0P130; J8>=Z; (J if there is already a foreground job running); 5373/1: 200 330 064 5373/4: 205 265 130 5374/1: 052 5374/2: 200 332 357 5374/5: 200 360 000 ========= JSP117; J3P45; ERASE; JS2; EXIT1; 5375/2: 041 5375/3: 033 5375/4: 301 012 335 5376/1: 304 000 111 5376/4: 167 361 5377/0: 301 122 075 ========= ZERO; NOT; =V1; SET73; SHC-8; =V77P104M5; (Set foreground); 5377/3: 203 272 347 ========= J6; (To clear V0 and give monitor message); ========= 10; (If time since last JO >4 mins then call JO); 5400/0: 300 000 010 5400/3: 300 012 336 5401/0: 036 5401/1: 164 301 5401/3: 220 145 131 5402/0: 200 272 346 ========= V0P0; V2; -; SHL-32; J1P45=Z; J13; ========= ========= ========= 11; (OUT11, transfer from absolute address, used by JO); 5402/3: 205 333 367 5403/0: 052 5403/1: 200 331 263 5403/4: 200 333 363 5404/1: 202 331 321 ========= JS3P196; ERASE; JSP133; JSP196; JS1P139; 5404/4: 300 122 035 5405/1: 164 301 5405/3: 170 143 5405/5: 171 162 5406/1: 171 164 5406/3: 042 5406/4: 170 163 5407/0: 036 5407/1: 033 5407/2: 027 5407/3: 170 152 ========= V45P104M5; SHL-32; =RM6; M7; I7; DUP; =RM7; -; NOT; NEG; =C6; 5407/5: 102 006 5410/1: 103 007 5410/3: 265 153 007 5411/0: 204 274 014 ========= 111; M0M6Q; =M0M7Q; J111C6NZ; J8P196; (Copy core and go); ========= ========= (== 40 ==) ========= 12; (OUT12, set up table in upper core store); 5411/3: 200 330 064 5412/0: 202 273 024 5412/3: 052 5412/4: 201 333 366 5413/1: 052 5413/2: 171 172 5413/4: 065 5413/5: 200 331 263 5414/2: 201 273 024 ========= JSP117; J112; ERASE; JS2P196; ERASE; C7; REV; JSP133; J114; 5414/5: 300 010 122 5415/2: 170 143 5415/4: 145 140 5416/0: 171 162 5416/2: 171 164 5416/4: 036 5416/5: 033 5417/0: 027 5417/1: 042 5417/2: 170 172 ========= V6P120; =RM6; I6=-1; M7; I7; -; NOT; NEG; DUP; =C7; 5417/4: 036 5417/5: 222 053 024 5420/2: 145 160 ========= -; J112=Z; (J if find or OUT 28); 5476/3: 015 5476/4: 164 365 5477/0: 167 351 5477/2: 164 351 5477/4: 204 273 100 ========= NEV; SHL-6; SHC-12; SHL-12; J23; (Ignore mod butno wild -); 5500/1: 200 331 310 ========= 22; JSP137; (For find do NEV with wild -); 5500/4: 204 153 050 ========= 23; J17!=Z; (fOUND); 5501/1: 300 174 063 5501/4: 301 013 027 ========= V-1P197M7; =V2; (Keep ID2); 5502/1: 300 174 064 5502/4: 301 013 025 5503/1: 300 100 024 5503/4: 042 5503/5: 033 5504/0: 225 153 107 5504/3: 016 5504/4: 203 053 112 ========= V0P197M7; (FOC); =V0; E20M4; DUP; NOT; J8=Z; ROUND; J200>=Z; 5505/1: 041 5505/2: 300 174 066 5505/5: 300 174 067 5506/2: 205 333 071 5506/5: 204 333 133 ========= (Delete); ZERO; V2P197M7; V3P197M7; JS19; JS29; (Set empty); ========= (Only set 1st wd !=Z if more entries in same sector); 5507/2: 200 273 111 ========= J101; 5507/5: 052 5510/0: 205 333 070 5510/3: 204 333 133 ========= 8; ERASE; JS14; JS29; 5511/0: 205 334 245 5511/3: 300 013 025 5512/0: 202 360 001 ========= 101; JS2P199; V0; EXIT2; ========= 5512/3: 300 013 025 5513/0: 164 047 5513/2: 220 053 111 ========= 200; (Mark prog used); V0; SHL19;J101=Z; (Check no OUT40 on); 5613/4: 157 007 5614/0: 202 331 321 ========= Q0TOQ7; JS1P139; (Await 2nd subprog); ========= 17; 5614/3: 041 5614/4: 201 334 240 ========= ZERO; JS1P199; (Await fixed head access); 5615/1: 300 013 135 ========= V0; (Start on same sector as last allocated block, OUT29 resets); 5615/4: 301 100 024 5616/1: 200 333 256 ========= 10; =E20M4; JS5; (Read ASL sector); 5616/4: 300 100 024 5617/1: 042 5617/2: 027 5617/3: 033 5617/4: 164 375 5620/0: 164 013 ========= E20M4; DUP; NEG; NOT; SHL-2; SHL+5; 5620/2: 042 5620/3: 300 122 035 5621/0: 033 5621/1: 164 255 5621/3: 054 5621/4: 164 373 5622/0: 011 ========= DUP; V45P104M5; NOT; SHL-42; AND; SHL-3; OR; 5622/1: 304 000 050 5622/4: 065 5622/5: 036 5623/0: 170 173 ========= SET40; REV; -; =RC7; (Set up loop); ========= (Keeps 2 cylinders for user discs); 5623/2: 300 122 035 5623/5: 220 053 147 ========= V45P104M5; J211=Z; NEG; (Max NOL in N1); 5731/2: 166 061 5731/4: 042 5731/5: 170 162 ========= SHLD+24; DUP; =M7; (Required BA); 5732/1: 032 5732/2: 052 5732/3: 171 162 5732/5: 011 5733/0: 167 321 ========= MAX;ERASE; M7; OR; SHC-24; (Actual BA/NOL); 5733/2: 301 122 105 5733/5: 001 5734/0: 205 274 013 ========= =V85P104M5; VR; J147P196; (Reset EDT and erase N1); ========= 40; (OUT40, inhibit other levels from disc); 5734/3: 205 333 367 5735/0: 204 334 014 5735/3: 052 5735/4: 164 243 5736/0: 170 160 5736/2: 202 331 321 5736/5: 171 160 5737/1: 225 153 353 ========= JS3P196;JS8P196;ERASE; SHL-47; =Q7; JS1P139; Q7;J140=Z; 5737/4: 300 122 075 5740/1: 164 021 5740/3: 220 045 055 ========= V77P104M5; SHL+8; JP45=Z; 5767/5: 171 160 5770/1: 301 000 033 ========= 3; (Reset EDT); Q7; =V19P0; 5770/4: 200 326 274 5771/1: 201 273 372 5771/4: 200 360 000 ========= (Check nest); JSP62; J128; EXIT1; 5772/1: 304 000 013 5772/4: 204 273 373 ========= 128; SETB510; J4; 5773/1: 304 000 013 ========= 129; SETB10; 5773/4: 173 000 5774/0: 052 5774/1: 200 260 330 ========= 4; LINK; ERASE; JP2; 5774/4: 304 000 013 5775/1: 200 260 330 ========= 5; SETB600; JP2; 5775/4: 034 ========= 7; xD; 5775/5: 174 000 5776/1: 052 ========= 17; =LINK; ERASE; (Spare item in SJNS is removed later on); 5776/2: 304 000 013 5776/5: 204 273 373 ========= 6; SETB560; J4; 5777/2: 052 5777/3: 304 000 013 6000/0: 200 260 330 ========= 9; ERASE; SETB550; JP2; ========= 21; (OUT21); 6000/3: 041 6000/4: 033 6000/5: 203 274 001 ========= 31; (OUT 31); ZERO; NOT; J127; 6001/2: 041 ========= 22; (OUT 22); ZERO; 6001/3: 301 122 041 6002/0: 201 333 366 ========= 127; =V49P104M5; JS2; 6002/3: 052 6002/4: 300 122 071 6003/1: 047 6003/2: 052 ========= 132; ERASE; V73P104M5; STR; ERASE; 6003/3: 301 100 024 6004/0: 200 331 263 6004/3: 204 273 374 6005/0: 154 007 6005/2: 200 327 210 6005/5: 202 331 321 ========= 130; =E20M4; JSP133; J5; C0TOQ7; JSP102; JS1P139; 6006/2: 300 122 035 6006/5: 164 301 6007/1: 304 000 013 6007/4: 054 ========= V45P104M5; SHL-32; SETB17700; AND; 6007/5: 300 100 024 6010/2: 300 122 041 6010/5: 200 274 165 ========= E20M4; V49P104M5; JP198; 6011/2: 052 6011/3: 052 6011/4: 304 000 013 6012/1: 200 260 330 ========= 100; ERASE; ERASE; SETB650; JP2; (Invalid global address); 6012/4: 201 333 366 6013/1: 052 6013/2: 201 334 016 ========= 23; (OUT23); JS2; ERASE; JS126; 6013/5: 171 160 6014/1: 301 000 033 ========= 147; Q7; =V19P0; 6014/4: 205 324 107 6015/1: 200 320 116 6015/4: 200 360 000 ========= 8; JS3P29; JS35P0; EXIT1; 6016/1: 204 334 017 ========= 126; JS10; 6016/4: 301 122 071 6017/1: 200 360 000 ========= =V73P104M5; EXIT1; 6017/4: 041 6017/5: 166 011 6020/1: 200 333 363 ========= 10; ZERO; SHLD+4; JS101; 6020/4: 065 6020/5: 164 255 6021/1: 164 023 6021/3: 011 ========= REV; SHL-42; SHL+9; OR; 6021/4: 200 360 000 ========= EXIT1; 6022/1: 304 000 001 6022/4: 301 122 041 6023/1: 205 333 367 6023/4: 052 6023/5: 041 6024/0: 203 274 003 ========= 30; (OUT30); SET1;=V49P104M5; JS3; ERASE; ZERO; J130; 6024/3: 205 333 367 6025/0: 052 6025/1: 201 334 016 6025/4: 041 6025/5: 301 122 041 6026/2: 205 333 367 6026/5: 203 274 002 ========= 32; (OUT32); JS3; ERASE; JS126; ZERO; =V49P104M5; JS3; J132; ========= ========= (== 44 ==); 6027/2: 205 333 367 6027/5: 041 6030/0: 033 6030/1: 202 274 031 ========= 41; (OUT41, write to user disc); JS3; ZERO; NOT; J142; 6030/4: 205 333 367 6031/1: 041 ========= 42; (OUT42, ditto but read); JS3; ZERO; 6031/2: 301 122 041 6031/5: 164 301 6032/1: 042 ========= 142; =V49P104M5; SHL-32; DUP; 6032/2: 300 122 075 6032/5: 164 041 6033/1: 042 6033/2: 164 003 6033/4: 056 6033/5: 041 6034/0: 166 341 ========= V77P104M5; SHL+16; DUP; SHL+1; +; ZERO; SHLD-16; 6034/2: 164 021 6034/4: 201 274 055 ========= SHL+8; J236; (Changes disc to sector no); 6035/1: 304 000 140 6035/4: 044 6035/5: 170 164 ========= 143; SET96; %I; =I7; 6036/1: 304 000 020 6036/4: 044 6036/5: 065 ========= SET16; %I; REV; 6037/0: 164 023 6037/2: 065 6037/3: 204 334 017 6040/0: 011 6040/1: 065 6040/2: 164 025 6040/4: 171 164 6041/0: 166 355 ========= SHL+9; REV; JS10; OR; REV; SHL+10; I7; SHLD-10; 6041/2: 052 6041/3: 065 6041/4: 203 274 003 ========= ERASE; REV; J130; 6042/1: 205 334 013 6042/4: 157 007 6043/0: 202 331 321 ========= 47; (OUT47); JS147; Q0TOQ7; JS1P139; 6043/3: 300 122 075 6044/0: 167 005 6044/2: 042 6044/3: 200 045 131 6045/0: 047 6045/1: 052 6045/2: 167 375 6045/4: 301 122 075 ========= V77P104M5; SHC+2; DUP; J1P45>=Z; STR; ERASE; SHC-2; =V77P104M5; 6046/1: 300 121 361 6046/4: 042 6046/5: 167 003 6047/1: 220 045 131 6047/4: 167 375 6050/0: 301 121 361 6050/3: 200 360 000 ========= 247; V1P104M5; DUP; SHC+1; J1P45=Z; (Check disc address not too big); 6056/4: 201 274 035 ========= 138; J143; 6057/1: 205 333 367 6057/4: 041 6057/5: 205 274 051 ========= 34; (OUT34); JS3; ZERO; J136; 6060/2: 205 333 367 6060/5: 164 301 6061/1: 304 003 000 6061/4: 056 6061/5: 041 ========= 36; (OUT36); JS3; SHL-32; SET768; +; ZERO; 6062/0: 301 122 041 6062/3: 201 274 035 ========= 234; =V49P104M5; J143; 6063/0: 057 6063/1: 052 6063/2: 052 6063/3: 204 334 014 6064/0: 201 274 046 ========= 70; +D; ERASE; ERASE; JS8; J247; ========= ========= ========= ========= ========= ========= ========= ========= ========= *** start P197V41; at address 18996 ========= P197V41; (Transfer fixed head sector); ========= (N1=sector, N2=SJNS count); V-store at 06064 = 377 377 014 065 014 134 ========= V0=QB16/AV1/AV40; 6136/0: 300 014 106 ========= V18; (Max number of system discs allowed, the only chnages necessary to increase this are in this routine); ========= 6136/3: 042 6136/4: 300 014 064 6137/1: 164 301 6137/3: 015 6137/4: 304 000 013 6140/1: 054 6140/2: 221 146 012 ========= 100; DUP; V0; SHL-32; NEV; SETB17700; AND; J4P56=Z; ========= (Does EXIT2 if sector already present); 6140/5: 300 014 064 6141/2: 170 160 6141/4: 304 000 013 6142/1: 011 6142/2: 170 172 ========= 3; V0; =Q7; SETB100016; OR; =C7; 6142/4: 171 160 6143/0: 301 014 064 ========= Q7; =V0; 6143/3: 033 6143/4: 027 6143/5: 042 6144/0: 301 014 135 6144/3: 200 334 225 ========= NOT; NEG; (Add 1 to SJNS count); DUP; =V41; JSP199; 6145/0: 300 014 064 6145/3: 164 301 6145/5: 170 172 6146/1: 200 334 331 ========= 11; V0; SHL-32;=C7; JS14P199; 6146/4: 126 160 6147/0: 200 334 314 6147/3: 200 360 000 6150/0: 200 274 145 6150/3: 202 360 001 ========= PICQ7; JS6P199; EXIT1; J11; EXIT2; 6151/0: 041 ========= 5; ZERO; ========= 4; (Form sum check); 6151/1: 304 000 050 6151/4: 170 173 ========= SET40; =RC7; 6152/0: 302 174 065 6152/3: 017 6152/4: 017 6152/5: 015 6153/0: 177 160 6153/2: 200 360 000 ========= *10; V1M7Q; DUMMY; DUMMY; NEV; J10C7NZS; EXIT1; ========= 2; (Write ASL sector); 6153/5: 200 334 151 6154/2: 300 014 064 6154/5: 164 007 6155/1: 164 257 6155/3: 170 162 6155/5: 301 173 136 ========= JS5; V0; SHL+3; SHL-41; =M7; =V1P195M7; 6156/2: 017 6156/3: 017 6156/4: 017 6156/5: 017 6157/0: 033 6157/1: 027 6157/2: 042 6157/3: 301 014 135 6160/0: 157 007 6160/2: 200 334 225 ========= *1; (Write to disc); NOT; NEG; DUP; =V41; Q0TOQ7; JSP199; 6160/5: 300 014 064 6161/2: 170 160 6161/4: 200 334 331 ========= 12; V0; =Q7; JS14P199; (Check on disc Q); 6162/1: 131 160 6162/3: 200 334 314 6163/0: 200 360 000 6163/3: 205 274 160 6164/0: 202 360 001 ========= POCQ7; JS6P199; EXIT1; J12; EXIT2; ========= ========= ========= ========= *** start P198V0; at address 19134 ========= P198; (Transfer to disc); ========= (N1= -1 write, 0 read, +1 FH read, N2=posn. N3=sector); ========= 6165/0: 166 041 6165/2: 164 041 6165/4: 011 6165/5: 011 6166/0: 042 6166/1: 170 160 6166/3: 042 6166/4: 301 100 025 6167/1: 301 100 024 ========= SHLD+16; SHL+16; OR; OR; DUP; =Q6; DUP; =E21M4; =E20M4; ========= ========= ========= (== 45 ==); 6167/4: 304 000 013 6170/1: 171 142 6170/3: 036 6170/4: 304 000 050 6171/1: 167 363 6171/3: 035 6171/4: 171 164 6172/0: 056 6172/1: 171 162 6172/3: 037 6172/4: 205 114 220 ========= 1; SETB14000; M6; -; SET40; SHC-7; x; I7; +; M7; SIGN; J10<=Z; 6173/1: 300 122 075 6173/4: 167 005 6174/0: 047 6174/1: 052 6174/2: 167 375 6174/4: 301 122 075 ========= V77P104M5; SHC2; STR; ERASE; SHC-2; =V77P104M5; (Clear parity); 6175/1: 171 152 6175/3: 026 6175/4: 164 377 6176/0: 202 154 200 ========= C6; ABS; SHL-1; J9!=Z; 6176/3: 204 334 014 6177/0: 140 100 6177/2: 171 104 6177/4: 172 112 ========= JS8P196; M+I4; I4; =+C4; (Erase progs N2, switch subprog); 6200/0: 124 166 ========= PMHQ7; (Set LO to preserve area); 6200/2: 041 6200/3: 200 334 225 ========= 9; ZERO; JSP199; (Wait in queue); 6201/0: 300 100 024 6201/3: 042 6201/4: 167 041 6202/0: 170 160 6202/2: 304 000 013 6202/5: 011 6203/0: 170 172 ========= 12; E20M4; DUP; SHC+16; =Q6; SETB16; OR; =C7; 6203/2: 171 142 6203/4: 042 6203/5: 027 6204/0: 033 6204/1: 225 154 213 6204/4: 205 334 324 6205/1: 042 6205/2: 221 154 215 ========= M6; DUP; NEG; NOT; J4=Z; JS4P199; DUP; J2=Z; 6205/5: 042 6206/0: 304 003 004 6206/3: 015 6206/4: 164 101 6207/0: 225 154 217 ========= DUP; SETAR15P15; NEV; SHL32; J15=Z; 6207/3: 130 160 6207/5: 033 6210/0: 224 154 215 ========= POAQ7; NOT; J3=Z; (Checks for read in P15); 6210/3: 041 6210/4: 203 334 314 6211/1: 201 274 212 6211/4: 200 274 201 ========= 16; ZERO; JS5P199; J14; J12; 6212/1: 300 100 024 6212/4: 167 041 6213/0: 174 000 6213/2: 200 360 000 ========= 14; E20M4; SHC+16; =LINK; EXIT1; 6213/5: 200 334 331 6214/2: 126 160 6214/4: 203 274 215 ========= 4; JS14P199; PICQ7; J13; 6215/1: 124 160 ========= 2; PIAQ7; 6215/3: 052 ========= 13; ERASE; 6215/4: 041 6215/5: 203 334 314 6216/2: 203 263 236 6216/5: 200 274 201 6217/2: 203 263 236 ========= 3; ZERO; JS5P199; J99P23; J12; J99P23; 6217/5: 052 6220/0: 124 160 6220/2: 203 274 210 ========= 15; ERASE; PIAQ7; J16; 6220/5: 304 000 013 6221/2: 200 260 330 ========= 10; SETB500; JP2; ========= ========= ========= ========= ========= ========= *** start P199V3; at address 19326 ========= P199V3; (Share out disc); V-store at 06221 = 377 377 377 377 377 377 ========= V0=-1; (FH Q); V-store at 06222 = 377 377 377 377 377 377 ========= V1=-1; (Disc Q); ========= (V2 last seek address); ========= (V3 last read address); ========= ========= 6225/0: 157 006 ========= (Await disc); Q0TOQ6; 6225/2: 300 014 222 6225/5: 042 6226/0: 042 6226/1: 164 003 6226/3: 054 ========= V1; DUP; DUP; SHL+1; AND;(-ve if Q empty); 6226/4: 300 122 075 6227/1: 164 021 ========= V77P104M5; SHL+8; (-ve if Q suspended by this level); 6227/3: 011 ========= OR; (-ve if OK to go ahead with transfer); 6227/4: 205 054 231 6230/1: 171 112 6230/3: 166 125 6230/5: 301 014 222 6231/2: 205 265 130 ========= J11>=Z; C4; SHLD+42; =V1; J3P45; 6231/5: 042 6232/0: 300 000 037 6232/3: 164 003 6232/5: 054 6233/0: 041 ========= 11; DUP; V23P0; SHL+1; AND; ZERO; 6233/1: 024 6233/2: 045 6233/3: 170 172 6233/5: 052 6234/0: 171 112 6234/2: 033 ========= FLOAT; FIX; =C7; ERASE; C4; NOT; 6234/3: 164 125 6234/5: 033 6235/0: 167 160 6235/2: 054 6235/3: 301 154 222 ========= SHL+42; NOT; SHCC7; AND; =V1M6; 6236/0: 304 000 013 6236/3: 170 172 6236/5: 033 6237/0: 027 6237/1: 200 321 344 ========= SETB100000; =C7; NOT; NEG; JS3P10; 6237/4: 200 360 000 ========= EXIT1; ========= 1; (Await access to fixed heads); 6240/1: 171 104 6240/3: 167 373 6240/5: 300 122 015 6241/2: 011 6241/3: 301 122 015 ========= I4; SHC-3;V29P104M5; OR; =V29P104M5; 6242/0: 041 6242/1: 033 6242/2: 170 160 ========= ZERO; NOT; =Q6; 6242/4: 300 014 221 ========= V0; 6243/1: 300 014 064 6243/4: 042 6243/5: 041 6244/0: 033 6244/1: 050 6244/2: 301 014 064 ========= V0P197; DUP; ZERO; NOT; CONT; =V0P197; 6244/5: 225 054 231 6245/2: 205 265 130 ========= J11=Z; ERASE; V0P197; 6252/0: 047 6252/1: 052 6252/2: 301 014 064 6252/5: 200 360 000 ========= STR; ERASE; =V0P197; EXIT1; ========= 3; (Allow disc access if free, entered every EDT); 6253/2: 300 014 222 6253/5: 042 6254/0: 002 6254/1: 304 000 013 6254/4: 170 172 6255/0: 120 162 6255/2: 220 345 131 6255/5: 157 006 ========= V1; DUP; =TR; SETB16; =C7; BUSYQ7; J1P45TR; Q0TOQ6; 6256/1: 042 6256/2: 164 253 6256/4: 027 6256/5: 033 6257/0: 170 122 ========= DUP; SHL-43; NEG; NOT; =M5; 6257/2: 121 160 6257/4: 201 354 304 6260/1: 300 122 075 6260/4: 164 005 6261/0: 201 054 301 ========= PARQ7; J16NTR; V77P104M5; SHL2;J21>=Z; 6261/3: 300 014 223 6262/0: 042 6262/1: 033 6262/2: 221 154 273 6262/5: 300 014 224 6263/2: 164 007 6263/4: 041 6263/5: 166 007 6264/1: 204 334 332 ========= V2; DUP; NOT;J71=Z; V3;SHL3; ZERO; SHLD3; JS72; 6264/4: 164 061 6265/0: 065 6265/1: 164 251 6265/3: 204 334 332 6266/0: 011 6266/1: 164 015 6266/3: 065 6266/4: 042 6266/5: 041 6267/0: 162 015 6267/2: 204 334 332 ========= SHL24; REV; SHL-44; JS72; OR; SHL6; REV; DUP; ZERO; SHAD6; JS72; 6267/5: 012 6270/0: 164 251 6270/2: 065 6270/3: 164 243 6270/5: 164 007 6271/1: 011 6271/2: 204 334 332 6271/5: 164 061 6272/1: 011 6272/2: 164 015 6272/4: 201 274 276 ========= PERM; SHL-44; REV; SHL-47; SHL3; OR; JS72; SHL24; OR; SHL6; J73; 6273/1: 052 6273/2: 300 014 224 6273/5: 164 007 6274/1: 164 257 6274/3: 204 334 332 6275/0: 304 000 013 6275/3: 164 023 6275/5: 167 061 ========= 71; ERASE; V3; SHL3; SHL-41; JS72; SETB100465; SHL9; SHC24; 6276/1: 300 007 125 6276/4: 304 000 013 6277/1: 167 351 6277/3: 015 6277/4: 300 120 040 6300/1: 304 000 004 6300/4: 200 321 316 ========= 73; V30P101; SETB4407; SHC-12; NEV; V24P0M5; SET4; JS4P6; 6301/1: 304 000 001 6301/4: 164 131 6302/0: 300 122 075 6302/3: 011 6302/4: 042 6302/5: 301 122 075 6303/2: 164 005 6303/4: 205 054 305 ========= 21; SET1; SHL+44; V77P104M5; OR; DUP; =V77P104M5; SHL+2; J18>=Z; ( SET; -> SET1; ???? ) 6304/1: 200 334 307 ========= 16; JS13; (Clear HU for completed transfer); 6304/4: 300 014 222 6305/1: 042 6305/2: 220 045 131 ========= 19; V1; DUP; J1P45=Z; V40; C7; SHLD-3; SHL+3; 6501/0: 011 6501/1: 167 053 6501/3: 301 015 033 ========= OR; SHC+21; =V37; 6502/0: 200 324 222 6502/3: 201 275 115 6503/0: 170 172 6503/2: 041 6503/3: 033 ========= 107; JSP32; J108; =C7; ZERO; NOT; 6503/4: 301 015 034 6504/1: 171 172 6504/3: 164 011 6504/5: 200 155 067 6505/2: 304 000 007 ========= 109; =V38; C7;SHL+4; J102!=Z; SET7; 6505/5: 300 015 033 6506/2: 171 172 6506/4: 166 373 6507/0: 164 007 6507/2: 011 6507/3: 167 023 ========= V37; C7; SHLD-3; SHL+3; OR; SHC+9; 6507/5: 171 172 6510/1: 170 162 6510/3: 042 6510/4: 301 164 016 6511/1: 164 043 ========= C7; =M7; DUP; =V0P26M7; SHL+17; 6511/3: 224 055 112 6512/0: 052 6512/1: 304 000 001 ========= J110Z; V38; J107!=Z; J100; 6515/1: 042 6515/2: 170 172 6515/4: 224 055 063 6516/1: 041 6516/2: 204 275 103 ========= 108; DUP; =C7; J100=Z; 6553/4: 243 135 143 6554/1: 200 335 240 6554/4: 202 275 143 6555/1: 042 6555/2: 304 000 144 ========= J10C5Z; JSP204; J9; DUP; SET100; 6555/5: 037 6556/0: 202 055 143 6556/3: 042 6556/4: 304 000 100 6557/1: 037 ========= SIGN; J9>=Z; DUP; SET64; SIGN; 6557/2: 222 055 143 6557/5: 042 6560/0: 170 122 6560/2: 300 015 011 6560/5: 065 ========= J9=Z; SET3600; xD; 6602/1: 052 6602/2: 170 120 6602/4: 200 335 240 6603/1: 203 275 173 6603/4: 042 ========= ERASE; =Q5; JSP204; J12; DUP; 6603/5: 304 000 074 6604/2: 037 6604/3: 203 055 173 6605/0: 304 000 074 6605/3: 034 ========= SET60; SIGN; J12>=Z; SET60; xD; 6605/4: 052 6605/5: 171 120 6606/1: 056 6606/2: 164 061 6606/4: 301 000 010 ========= ERASE; Q5; +; SHL+24; =V0P0; 6607/1: 300 000 010 6607/4: 301 012 336 ========= V0P0; =V2P193; (Dont start JO immediately); 6610/1: 300 000 002 6610/4: 164 321 6611/0: 164 031 6611/2: 304 007 072 6611/5: 011 6612/0: 164 031 6612/2: 304 001 360 6612/5: 011 ========= E2; SHL-24; SHL+12; SETAV3P101; OR; SHL+12; SETAV0P104; OR; 6613/0: 301 000 002 ========= =E2; (Set up word 2 for OUT 11); 6613/3: 204 260 200 ========= J23P0; (Enter Director PROPER); 6614/0: 052 6614/1: 041 6614/2: 301 015 037 ========= 70; ERASE; ZERO;=V41; 6614/5: 304 000 010 6615/2: 203 275 130 ========= 60; SET8; J61; 6615/5: 300 000 045 6616/2: 011 6616/3: 301 000 045 6617/0: 200 360 000 ========= 200; V29P0; OR; =V29P0; EXIT1; ========= ========= *** start P201V0; at address 20832 ========= P201; (Type message); 6620/0: 176 010 6620/2: 052 6620/3: 120 122 6620/5: 220 355 220 6621/2: 131 120 6621/4: 200 360 000 ========= 1; K4; ERASE; BUSYQ5; J1TR; POBQ5; EXIT1; ========= *** start P202V0; at address 20850 ========= P202; (Type query direct); 6623/0: 200 335 220 6623/3: 171 122 6623/5: 171 124 6624/1: 042 6624/2: 033 ========= JSP201; M5; I5; DUP; NOT; 6624/3: 027 6624/4: 170 123 6625/0: 036 ========= NEG; =RM5; -; 6625/1: 176 010 6625/3: 052 6625/4: 120 122 6626/0: 221 355 225 ========= 1; K4; ERASE; BUSYQ5; J1TR; 6626/3: 121 120 6626/5: 170 132 6627/1: 225 355 230 ========= PARQ5; =C5; J6TR; 6627/4: 304 000 010 6630/1: 262 135 231 6630/4: 002 ========= 2; SET8; J3C5NZ; =TR; 6630/5: 200 360 000 ========= 6; EXIT1; 6631/2: 170 152 6631/4: 102 005 ========= 3; =C6; M0M5Q; 6632/0: 041 6632/1: 166 015 6632/3: 304 000 013 6633/0: 222 035 236 6633/3: 143 140 ========= 4; ZERO; SHLD+6; SETB75; J5=; DC6; 6633/5: 304 000 013 6634/2: 037 6634/3: 167 377 6634/5: 033 6635/0: 002 ========= SETB37; SIGN; SHC-1; NOT; =TR; 6635/1: 260 155 232 6635/4: 052 6635/5: 204 275 227 ========= J4C6NZ; ERASE; J2; 6636/2: 052 6636/3: 052 6636/4: 205 355 230 6637/1: 202 360 001 ========= 5; ERASE; ERASE; J6NTR; EXIT2; ========= ========= *** start P204V0; at address 20928 ========= P204; (Fetch decimal number); 6640/0: 304 000 013 6640/3: 203 264 222 ========= SETB77740; J1P32; ========= ========= *** start P206V0; at address 20934 ========= P206; (Read prog.1st); 6641/0: 300 015 030 6641/3: 170 120 6641/5: 304 000 020 6642/2: 170 153 ========= V34P200; =Q5; SET16; =RC6; 6642/4: 125 120 ========= 1; PIBQ5; 6643/0: 176 010 6643/2: 052 6643/3: 120 122 6643/5: 220 355 243 ========= 2; K4; ERASE; BUSYQ5; J2TR; 6644/2: 121 120 6644/4: 220 355 067 6645/1: 300 016 234 6645/4: 300 016 233 6646/1: 042 6646/2: 200 330 112 ========= PARQ5; J102P200TR; Y2; Y1; DUP; JSP119; 6646/5: 200 275 067 6647/2: 200 275 067 6647/5: 164 137 6650/1: 012 ========= J102P200; J102P200; SHL+47; PERM; 6650/2: 166 305 6650/4: 052 6650/5: 011 6651/0: 303 145 151 ========= SHLD-30; ERASE; OR; =V0P254M6Q; 6651/3: 264 155 242 6652/0: 200 360 000 ========= J1C6NZ; EXIT1; ========= ========= ========= ========= (== 49 ==); *** start P208V9; at address 21048 ========= P208V9; (OUT8,COPLOT,STREAM,COUNT); V-store at 06652 = 010 173 365 320 322 015 V-store at 06653 = 312 131 154 066 353 334 ========= V0/1=P [CN]OUT*8*REEL*NO[Q]; V-store at 06655 = 010 161 363 323 051 141 V-store at 06656 = 264 330 357 326 355 034 ========= V3/4=P [CNN]STREAM*COUNT[Q]; V-store at 06660 = 010 161 307 034 161 307 V-store at 06661 = 036 073 360 262 375 015 V-store at 06662 = 312 131 154 066 353 334 ========= V6/8=P [C8N]COPLOT*REEL*NO[Q]; ========= 6664/0: 300 015 037 6664/3: 220 155 310 ========= V41P200; J3=Z; 6665/0: 304 015 252 6665/3: 170 125 6665/5: 304 015 254 6666/2: 170 122 ========= SETAV0; =RI5; SETAV2; =M5; 6666/4: 200 335 223 6667/1: 200 275 264 ========= JSP202; JP208; 6667/4: 304 015 254 6670/1: 170 160 6670/3: 200 335 240 6671/0: 220 055 264 ========= SETAV2; =Q6; JSP204; JP208Z; (j IF PRIME n); ========= (Select track 0 of global); 7040/5: 304 017 000 7041/2: 170 113 ========= SET3840; =RC4; 7041/4: 017 7041/5: 017 7042/0: 041 7042/1: 033 7042/2: 304 115 232 7042/5: 017 7043/0: 177 100 ========= *51; ZERO; NOT; =Y3840M4Q; *J51C4NZS; 7043/2: 300 015 316 7043/5: 170 120 7044/1: 130 120 7044/3: 205 336 104 7045/0: 203 336 107 7045/3: 200 360 000 ========= 68; V0; =Q5; POAQ5; JS12; JS100; EXIT1; ========= ========= 69; (Clear any jobs which were going on when Director put in); 7046/0: 300 015 316 7046/3: 170 120 7046/5: 124 120 7047/1: 205 336 104 7047/4: 203 276 107 7050/1: 300 015 342 7050/4: 170 360 ========= V0; =Q5; PIAQ5; JS12; J100; V20; =Q15; 7051/0: 102 017 7051/2: 033 7051/3: 205 156 052 ========= *64; M0M15Q; NOT; J65!=Z; 7052/0: 177 360 7052/2: 202 276 043 ========= 67; J64C15NZS; J68; 7052/5: 141 360 7053/1: 110 017 7053/3: 164 321 7053/5: 304 000 050 7054/2: 034 7054/3: 050 ========= 65; M-I15; M0M15N; SHL-24; SET40; xD; CONT; 7054/4: 170 343 7055/0: 304 000 047 7055/3: 170 352 7055/5: 041 7056/0: 033 7056/1: 042 7056/2: 304 355 232 ========= =RM14; SET39; =C14; ZERO; NOT; DUP; =Y3840M14Q; 7056/5: 017 7057/0: 041 7057/1: 304 355 232 7057/4: 017 7057/5: 017 7060/0: 177 340 7060/2: 042 7060/3: 302 355 232 7061/0: 042 ========= *66; ZERO; =Y3840M14Q; *J66C14NZS; DUP; =Y3840M14; DUP; 7061/1: 101 017 7061/3: 042 7061/4: 111 017 7062/0: 042 7062/1: 301 360 002 7062/4: 301 360 003 7063/1: 140 360 7063/3: 200 276 052 ========= =M0M15; DUP; =M0M15N; DUP; =E2M15; =E3M15; M+I15; J67; ========= 7064/0: 300 015 340 7064/3: 203 156 066 7065/0: 201 276 017 ========= 61; V18; J62!=Z;J63; 7065/3: 041 7065/4: 033 7065/5: 301 015 343 ========= 120; ZERO;NOT; =V21; (Show primed and mode X); 7066/2: 052 ========= 20; (Prime); ERASE; 7066/3: 200 336 101 7067/0: 205 336 104 7067/3: 203 276 107 ========= 62; JS7; (Write empty PPI); JS12; J100; 7070/0: 300 015 343 7070/3: 042 7070/4: 301 007 027 ========= V21; DUP; =V0P76; (Set primed or not if Y or X); 7071/1: 041 7071/2: 033 7071/3: 164 101 7071/5: 302 016 032 7072/2: 304 000 013 7072/5: 302 016 033 ========= ZERO; NOT; SHL32;=Y3968; SETB13200; =Y3969; 7073/2: 041 7073/3: 033 7073/4: 042 7073/5: 302 015 233 7074/2: 042 7074/3: 302 015 234 7075/0: 164 031 7075/2: 302 015 235 ========= ZERO; NOT; DUP; =Y3841; DUP; =Y3842; SHL12; =Y3843; 7075/5: 223 156 026 7076/2: 304 000 200 7076/5: 170 133 ========= J150=Z; (J if prime Y); SET128; =RC5; ========= (For mode X set ASL all ones); 7077/1: 041 7077/2: 033 7077/3: 305 055 232 7100/0: 261 136 077 ========= 236; ZERO; NOT; =Y3840M50; J236C5NZ; 7100/3: 203 276 026 ========= (ASL set up for prime X); J150; ========= 7101/0: 300 015 322 7101/3: 170 120 7101/5: 131 120 7102/1: 200 360 000 ========= 7; V4; =Q5; POCQ5; EXIT1; (Write back new PPI and exit); 7102/4: 304 015 327 7103/1: 170 125 7103/3: 140 120 7103/5: 200 335 220 7104/2: 200 276 003 ========= 11; SETAV9; =RI5;M+I5; JSP201; J111; 7104/5: 176 010 7105/1: 052 7105/2: 120 122 7105/4: 225 356 104 7106/1: 121 120 7106/3: 221 345 131 7107/0: 202 360 001 ========= 12; K4; ERASE; BUSYQ5; J12TR; PARQ5; J4P45TR; EXIT2; 7107/3: 304 015 330 7110/0: 042 7110/1: 170 125 7110/3: 170 122 7110/5: 200 335 220 7111/2: 201 275 071 ========= 100; SETAV10; DUP; =RI5; =M5; JSP201; J103P200; ========= ========= *** start P210V14; at address 22032 ========= P210V14; (Compute day of week); [ used in check that the correct date was input at start-up V-store at 07111 = 000 000 336 063 052 035 ========= V0=B 03 36 14 62 50 35; V-store at 07112 = 000 000 000 000 000 000 V-store at 07113 = 317 133 244 207 237 334 ========= V1/2=P SUNDAY[DQ]; V-store at 07114 = 000 000 000 000 000 000 V-store at 07115 = 266 373 244 207 237 334 ========= V3/4=P MONDAY[DQ]; V-store at 07116 = 000 000 000 000 000 000 V-store at 07117 = 323 131 163 222 036 134 ========= V5/6=P TUESDAY[Q]; V-store at 07120 = 000 000 000 000 000 000 V-store at 07121 = 336 113 263 222 036 134 ========= V7/8=P WDNSDAY[Q]; V-store at 07122 = 000 000 000 000 000 000 V-store at 07123 = 322 214 263 222 036 134 ========= V9/10=P THRSDAY[Q]; V-store at 07124 = 000 000 000 000 000 000 V-store at 07125 = 233 052 144 207 237 334 ========= V11/12=P FRIDAY[DQ]; V-store at 07126 = 000 000 000 000 000 000 V-store at 07127 = 316 035 044 207 237 334 ========= V13/14=P SATDAY[DQ]; ========= 7130/0: 171 122 7130/2: 042 7130/3: 033 7130/4: 027 7130/5: 065 7131/0: 027 7131/1: 033 7131/2: 164 375 ========= M5; DUP; NOT; NEG; REV; NEG; NOT; SHL-2; 7131/4: 056 7131/5: 304 000 014 7132/2: 171 132 7132/4: 036 7132/5: 304 377 375 7133/2: 034 7133/3: 050 7133/4: 170 372 ========= +; SET12; C5; -; SET-3; xD; CONT; =C15; 7134/0: 300 016 111 7134/3: 164 360 7134/5: 304 000 013 7135/2: 054 7135/3: 035 7135/4: 171 132 7136/0: 304 000 002 7136/3: 036 ========= V0; SHLC15; SETB7; AND; x; C5; SET2; -; ========= (== 51 ==); 7136/4: 200 116 141 7137/1: 171 122 7137/3: 304 000 003 7140/0: 054 7140/1: 200 156 141 7140/4: 033 7140/5: 027 ========= J1<=Z; M5; SET3; AND; J1!=Z; NOT; NEG; 7141/0: 171 124 7141/2: 027 7141/3: 033 7141/4: 035 7141/5: 304 000 007 7142/2: 044 7142/3: 065 7142/4: 052 7142/5: 042 7143/0: 205 335 215 ========= 1; I5; NEG; NOT; x; SET7; %I; REV; ERASE; DUP; JS200P200; 7143/3: 164 003 7143/5: 304 016 112 7144/2: 035 7144/3: 042 7144/4: 170 365 7145/0: 033 7145/1: 027 7145/2: 170 362 ========= SHL1; SETAV1; x; DUP; =RI15; NOT; NEG; =M15; 7145/4: 157 365 7146/0: 200 335 223 7146/3: 204 276 145 7147/0: 100 017 7147/2: 164 255 7147/4: 304 000 013 ========= 2; Q15TOQ5; JSP202; J2; M0M15; SHL-42; SETB71; 7150/1: 015 7150/2: 201 145 131 7150/5: 202 360 001 ========= NEV; J4P45!=Z; EXIT2; ========= ========= *** start P297V0; at address 22140 ========= P297V0; (Simulate PPI in core); V-store at 07151 = 120 000 000 000 000 000 ========= V0=40/6; ========= 7152/0: 304 000 001 7152/3: 172 020 ========= SET1; =+Q1; 7152/5: 042 7153/0: 300 014 064 7153/3: 164 041 7153/5: 011 7154/0: 304 000 013 7154/3: 011 7154/4: 167 341 7155/0: 301 014 064 ========= DUP; V0P197; SHL+16; OR; SETB16; OR; SHC-16; =V0P197; 7155/3: 205 336 163 ========= JS2; 7156/0: 303 374 252 7156/3: 303 174 065 7157/0: 177 160 7157/2: 202 360 001 ========= *11; Y3600M15Q; =V1P197M7Q; J11C7NZS; EXIT2; 7157/5: 300 014 064 7160/2: 164 301 7160/4: 205 336 163 ========= 1; V0P197; SHL-32; JS2; 7161/1: 017 7161/2: 017 7161/3: 017 7161/4: 017 7161/5: 017 7162/0: 302 174 065 7162/3: 304 374 252 7163/0: 177 160 7163/2: 202 360 001 ========= *12; V1P197M7Q; =Y3600M15Q; J12C7NZS; EXIT2; 7163/5: 164 365 7164/1: 042 7164/2: 164 005 7164/4: 056 7164/5: 164 007 7165/1: 170 363 7165/3: 304 000 050 7166/0: 170 173 7166/2: 052 7166/3: 200 360 000 ========= 2; SHL-6; DUP; SHL+2; +; SHL+3; =RM15; SET40; =RC7; ERASE; EXIT1; ========= ========= *** start P298V5; at address 22248 ========= P298V5; (Optimise PPI); V-store at 07166 = 000 132 000 050 016 272 ========= V0=Q90/40/AY32; V-store at 07167 = 000 002 000 001 002 147 ========= V1=Q2/1/AV3P11; V-store at 07170 = 000 160 244 012 131 056 ========= V2=B07024402454456; V-store at 07171 = 000 000 007 012 100 253 ========= V3=B0702440253; V-store at 07172 = 000 015 000 003 000 000 ========= V4=Q13/3/0; V-store at 07173 = 034 051 002 226 113 222 ========= V5=B 07 02 44 02 45 44 56 22; ========= 7174/0: 157 016 ========= Q0TOQ14; 7174/2: 300 014 136 7174/5: 170 260 7175/1: 300 014 157 7175/4: 170 260 ========= R100P197; =Q10; R1P197; =Q11; 7176/0: 300 016 220 7176/3: 301 014 136 7177/0: 300 016 221 7177/3: 301 014 157 ========= R9; =R100P197; R10; =R1P197; (Bus FH handler); 7200/0: 157 005 7200/2: 300 016 167 7200/5: 170 120 ========= Q0TOQ5; V1; =Q4; (Play at level 0); 7201/1: 300 016 166 7201/4: 170 220 ========= V0; =Q8; 7202/0: 300 016 172 7202/3: 170 220 ========= 2; V4; =Q9; 7202/5: 100 211 7203/1: 300 016 173 7203/4: 222 036 207 7204/1: 164 365 7204/3: 300 016 170 7205/0: 225 036 206 ========= 3; M8M9; V5; J5=; SHL-6; V2; J4=; (J if EDN but not CON2); 7205/3: 164 351 7205/5: 300 016 171 7206/2: 202 036 207 ========= SHL-12; V3; J5!=; (J if not K prog); 7206/5: 203 336 221 ========= 4; JS60; 7207/2: 052 7207/3: 265 216 202 ========= 5; ERASE; J3C8NZ; 7210/0: 140 200 7210/2: 143 200 7210/4: 260 156 202 ========= M+I8; DC8; J2C6NZ; 7211/1: 300 016 172 7211/4: 170 220 ========= V4; =Q8; 7212/0: 300 016 166 7212/3: 170 220 ========= 6; V0; =Q9; (Put rest in PPI, 1 from each sector in turn); 7212/5: 102 211 7213/1: 221 156 214 7213/4: 203 336 221 ========= 7; M8M9Q; J8=Z; JS60; 7214/1: 265 236 212 ========= 8; J7C9NZ; 7214/4: 140 200 7215/0: 143 200 7215/2: 260 216 212 ========= M+I8; DC8; J6C8NZ; 7215/5: 171 260 7216/1: 301 014 136 7216/4: 171 260 7217/0: 301 014 157 7217/3: 200 360 000 ========= Q10; =R100P197; Q11; =R1P197; EXIT1; ========= 7220/0: 200 276 152 ========= *9; JP297; 7220/3: 017 7220/4: 017 7220/5: 017 7221/0: 205 276 157 ========= *10; J1P297; 7221/3: 141 220 7221/5: 171 222 7222/1: 033 7222/2: 027 7222/3: 170 063 ========= 60; M-I9; M9; NOT; NEG; =RM3; 7222/5: 176 010 7223/1: 052 ========= K4; ERASE; (Keep clock happy - this bit takes 6 secs); 7223/2: 304 000 001 7223/5: 172 360 ========= SET1; =+Q14; 7224/1: 110 203 7224/3: 301 002 101 7225/0: 110 211 7225/2: 301 002 041 7225/5: 100 211 7226/1: 301 002 035 ========= M8M3N; =V81P104; M8M9N; =V49P104; M8M9; =V45P104; 7226/4: 041 7226/5: 101 211 7227/1: 140 220 ========= ZERO; =M8M9; (Mark as gone); M+I9; 7227/3: 204 333 030 7230/0: 200 360 000 ========= JS1P194; EXIT1; (Wierd if same in twice); 7230/3: 052 7230/4: 300 002 041 7231/1: 300 002 035 7231/4: 166 041 7232/0: 304 000 002 7232/3: 200 261 316 ========= ERASE; V49P104; V45P104; SHLD+16; SET2; J4P6; ========= (Put ident of duplicated prog in FLEXqueue); ========= ========= ========= *** start P-1V-1; at address 22428 FINISH !!! ========= FINISH; ========= ========= Reached end of file