File: LIST.DC of Disk: Disks/MyPDP/m8-rka0-rkb0
(Source file text)
/DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 1 XA01=6201 XA11=6211 XC01=6601 XD02=7002 XD41=7041 XE01=7201 XF00=7400 XF10=7410 XF40=7440 XF50=7450 XF162=7562 *0000 00000 0003 NIL, 0003 00001 7200! Z01, 7200 00002 6046! Z02, 6046 00003 1053! Z03, 1053 00004 3033 Z04, 3033 00005 4500 Z05, 4500 00006 2205 2205 00007 2324 2324 00010 0304! Z10, A104 00011 2400 Z11, FUNCTI 00012 0000! Z12, 0000 00013 1001 1001 00014 7773 7773 00015 1714 Z15, 1714 00016 7514 7514 00017 0000! Z17, 0000 00020 0012! COUNT, Z12 00021 0000! Z21, 0000 00022 7562! POINT, XF162 00023 0311 Z23, A111 00024 0000! Z24, 0000 00025 0000! Z25, 0000 00026 0000! Z26, 0000 00027 0000! Z27, 0000 00030 0000! NUMACC, 0000 00031 0000! Z31, 0000 00032 0000! Z32, 0000 00033 0305 Z33, 0305 00034 0217! Z34, 0217 00035 0311! STRMEM, A111 00036 7577! ENDMEM, 7577 00037 0020 Z37, 0020 00040 0000! Z40, 0000 00041 0240! CHAR, A40 00042 0002! KBDFLG, 0002 00043 7701! Z43, 7701 00044 0000! LEFT, 0000 00045 7700 Z45, 7700 00046 0203! KBDTMP, 0203 00047 0612! BRANCH, C12 00050 7777! Z50, 7777 00051 0220 Z51, A20 00052 0303 Z52, 0303 00053 0222 Z53, 0222 00054 0223 Z54, 0223 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 2 00055 0136 Z55, 0136 00056 0231 Z56, A31 00057 0240 SPACE, A40 00060 4577 Z60, JMS I [L3030 00061 3030 Z61, 3030 00062 4577 Z62, JMS I [L3030 00063 3066 Z63, 3066 00064 1030 Z64, 1030 00065 5466 JMP I NEXT 00066 0305! NEXT, A105 00067 5576 JMP I [L1400 00070 0334 0334 00071 7001 7001 00072 6670 6670 00073 0212 0212 00074 0215 0215 00075 0403 0403 00076 0010 0010 00077 7700 Z77, 7700 00100 0330! Z100, A130 00101 0306 0306 00102 0564 0564 00103 1745 Z103, G145 00104 0527 0527 00105 0300 0300 00106 1671 1671 00107 7404 Z107, 7404 00110 7600 Z110, 7600 00111 7403 7403 00112 7402 7402 00113 7401 7401 00114 1610! Z114, 1610 00115 7400 Z115, XF00 00116 0526 0526 00117 0200 0200 00120 0007 0007 00121 7757 7757 00122 7764 7764 00123 7762 7762 00124 0033 0033 00125 7761 Z125, 7761 00126 7760 7760 00127 7756 Z127, 7756 00130 7775 7775 00131 7745 7745 00132 1665 1665 00133 1000 1000 00134 7744 Z134, 7744 00135 0556 00136 3626 00137 2200 00140 7775 00141 2462 00142 3064 00143 2730 00144 2524 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 3 00145 2545 00146 3100 00147 0462 00150 0005 00151 3114 00152 1557 00153 0754 00154 0077 00155 0003 00156 1344 00157 0002 00160 0317 00161 3000 00162 1200 00163 0237 00164 0004 00165 4133 00166 4040 00167 4000 00170 1432 00171 3054 00172 3006 00173 2565 00174 1233 00175 4151 00176 1400 00177 3030 *0200 00200 7000! START, NOP 00201 1377 A01, TAD (5237 00202 3200 DCA START 00203 1033 TAD Z33 00204 6211 CDF 10 00205 3423 DCA I Z23 00206 1036 TAD ENDMEM 00207 7041 CIA 00210 1035 TAD STRMEM 00211 3020 DCA COUNT 00212 1035 TAD STRMEM 00213 3022 DCA POINT 00214 2022 A14, ISZ POINT 00215 6211 CDF 10 00216 3422 LOWMEM, DCA I POINT 00217 6221 CDF 20 00220 3422 A20, DCA I POINT 00221 6231 CDF 30 00222 3422 DCA I POINT 00223 1022 TAD POINT 00224 2020 ISZ COUNT 00225 5214 JMP A14 00226 7200 CLA 00227 1376 TAD (216 00230 3010 DCA Z10 00231 1375! A31, TAD (-66 00232 3020 DCA COUNT 00233 1374 TAD (2000 00234 3410 DCA I Z10 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 4 00235 2020 ISZ COUNT 00236 5233 JMP .-3 00237 7200 MAIN, CLA 00240 1373 A40, TAD (6201 00241 4772 JMS I (SETCDF 00242 4771 A42, JMS I (B00 00243 3041 A43, DCA CHAR 00244 3046 DCA KBDTMP 00245 7240 A45, CLA CMA 00246 3050 DCA Z50 00247 3024 DCA Z24 00250 3025 DCA Z25 00251 3030 DCA NUMACC 00252 3031 DCA Z31 00253 3032 DCA Z32 00254 3026 DCA Z26 00255 3027 DCA Z27 00256 4575 JMS I [TERPRI 00257 4574 A57, JMS I [READT 00260 5257 A60, JMP .-1 00261 7201 CLA IAC 00262 3307 DCA A107 00263 4770 JMS I (READ 00264 3030 DCA NUMACC 00265 4573 JMS I [NUMBER 00266 7640 SZA CLA 00267 5355 JMP A155 00270 1030 TAD NUMACC 00271 4336 JMS A136 00272 4572 JMS I [L06 00273 4770 JMS I (READ 00274 4336 JMS A136 00275 3031 DCA Z31 00276 2307 ISZ A107 00277 4571 JMS I [L54 00300 1020 A100, TAD COUNT 00301 3030 DCA NUMACC 00302 1031 TAD Z31 00303 4572 JMS I [L06 00304 4570! A104, JMS I [F32 00305 4336 A105, JMS A136 00306 5245 A106, JMP A45 00307 0002! A107, AND Z02 00310 0000 A110, 0000 00311 3030! A111, DCA NUMACC 00312 4567 JMS I [PRIN 00313 7200 CLA 00314 1166 TAD [P40 00315 4565 JMS I [P133 00316 5710 JMP I A110 00317 0000 ERROR, 0000 00320 7200 CLA 00321 1317 A121, TAD ERROR 00322 6221 CDF 20 00323 3767 DCA I (Z03 00324 4575 JMS I [TERPRI 00325 6221 CDF 20 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 5 00326 1366 TAD (237 00327 4310 JMS A110 00330 6221 A130, CDF 20 00331 1367 TAD (Z03 00332 4310 JMS A110 00333 1026 TAD Z26 00334 4310 JMS A110 00335 5237 JMP MAIN 00336 0306 A136, A106 00337 3030 DCA NUMACC 00340 1307 TAD A107 00341 0042 AND KBDFLG 00342 7450 SNA 00343 5353 JMP A153 00344 7010 RAR 00345 7620 SNL CLA 00346 4575 JMS I [TERPRI 00347 1166 TAD [P40 00350 4565 JMS I [P133 00351 4567 A151, JMS I [PRIN 00352 7410 A152, XF10 00353 1030 A153, TAD NUMACC 00354 5736 JMP I A136 00355 4765 A155, JMS I (MODE 00356 5245 JMP A45 00357 0165 AND [P133 00360 1174 TAD [READT 00361 4423 JMS I Z23 00362 5752 JMP I A152 00363 4330 JMS A130 00364 7700 SMA CLA 00365 0530 00366 0237 00367 0003 00370 0600 00371 0400! 00372 5525 00373 6201 00374 2000 00375 7712 00376 0216 00377 5237 *0400 00400 0243 B00, A43 00401 5207! B01, JMP B07 00402 1377 TAD (5207 00403 3201 B03, DCA B01 00404 6201 CDF 0 00405 4776 JMS I (U50 00406 4356 JMS B156 00407 4254 B07, JMS SETTTY 00410 7200 B10, CLA 00411 1216 TAD B16 00412 3042 DCA KBDFLG 00413 1210 TAD B10 00414 3235 DCA B35 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 6 00415 5600 JMP I B00 00416 0002 B16, AND Z02 00417 1257 KBDIN, E57 00420 1042 TAD KBDFLG 00421 0164 AND [Z04 00422 7640 SZA CLA 00423 5230 JMP B30 00424 6031 KSF 00425 5224 JMP .-1 00426 6036 KRB 00427 5617 JMP I KBDIN 00430 6201 B30, CDF 0 00431 4775 JMS I (T62 00432 5563 JMP I [MAIN 00433 5617 JMP I KBDIN 00434 0000 B34, 0000 00435 7200! B35, CLA 00436 4254 JMS SETTTY 00437 6201 CDF 0 00440 4774 JMS I (T00 00441 1411 B41, TAD I Z11 00442 6201 CDF 0 00443 4773 B43, JMS I (SETCDF 00444 4772 JMS I (T22 00445 4356 JMS B156 00446 6201 B46, CDF 0 00447 4771 JMS I (V04 00450 1417 TAD I Z17 00451 5303 JMP B103 00452 7200! B52, CLA 00453 5634 JMP I B34 00454 0410 SETTTY, B10 00455 6041 TSF 00456 6046 TLS 00457 6041 B57, TSF 00460 5257 JMP B57 00461 5654 JMP I SETTTY 00462 1270 TTYOUT, E70 00463 3275 DCA TTYTMP 00464 1042 TAD KBDFLG 00465 0164 AND [Z04 00466 7650 SNA CLA 00467 5276 JMP B76 00470 1275 B70, TAD TTYTMP 00471 6201 CDF 0 00472 4770 JMS I (U103 00473 4356 JMS B156 00474 5662 JMP I TTYOUT 00475 0203! TTYTMP, AND B03 00476 1275 B76, TAD TTYTMP 00477 6041 TSF 00500 5277 JMP .-1 00501 6046 TLS 00502 5662 JMP I TTYOUT /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 7 00503 7200 B103, CLA 00504 1327 TAD B127 00505 3315 DCA B115 00506 1767 TAD I (V46 00507 3316 DCA B116 00510 6201 CDF 0 00511 6212 CIF 10 00512 4766 JMS I (7700 00513 0001 0001 /FETCH 00514 2424 J24 00515 3100! B115, DCA Z100 00516 0000! B116, 0000 00517 4356 JMS B156 00520 1316 TAD B116 00521 3765 DCA I (U47 00522 1315 TAD B115 00523 6211 CDF 10 00524 3764 DCA I (7600 00525 5246 JMP B46 00526 2424 ISZ I Z24 00527 3100 B127, DCA Z100 00530 0000 MODE, 0000 00531 6221 CDF 20 00532 1430 TAD I NUMACC 00533 0164 AND [Z04 00534 7640 SZA CLA 00535 5346 JMP B146 00536 1042 TAD KBDFLG 00537 0164 AND [Z04 00540 7640 SZA CLA 00541 4200 JMS B00 00542 6221 B142, CDF 20 00543 1430 TAD I NUMACC 00544 3042 DCA KBDFLG 00545 5730 JMP I MODE 00546 1042 B146, TAD KBDFLG 00547 0164 AND [Z04 00550 7640 SZA CLA 00551 5730 JMP I MODE 00552 1210 TAD B10 00553 3201 DCA B01 00554 4234 JMS B34 00555 5342 JMP B142 00556 0000 B156, 0000 00557 7200 CLA 00560 4200 JMS B00 00561 1356 TAD B156 00562 5763 JMP I (A121 00563 0321 00564 7600 00565 5247 00566 7700 00567 5446 00570 5303 00571 5404 00572 5022 00573 5525 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 10 00574 5000 00575 5062 00576 5250 00577 5207 *0600 00600 0621 READ, C21 00601 7240 CLA CMA 00602 3020 DCA COUNT 00603 4562 C03, JMS I [DELIM 00604 7410 C04, SKP 00605 5244 JMP ILCHAR 00606 3041 DCA CHAR 00607 5447 JMP I BRANCH 00610 5203 JMP C03 00611 5216 JMP C16 00612 5223 C12, JMP C23 00613 1200 TAD READ 00614 4561 JMS I [L00 00615 7410 SKP 00616 4200 C16, JMS READ 00617 3027 DCA Z27 00620 4200 JMS READ 00621 4572 C21, R172 00622 5217 JMP .-3 00623 1200 C23, TAD READ 00624 7041 CIA 00625 1377 TAD (621 00626 7640 SZA CLA 00627 4560 JMS I [ERROR 00630 5776 JMP I (K157 00631 0653! TESNUM, C53 00632 1375 TAD (7506 00633 7500 SMA 00634 5631 JMP I TESNUM 00635 1157 TAD [Z02 00636 7500 SMA 00637 4560! C37, JMS I [ERROR 00640 1374 TAD (10 00641 7500 SMA 00642 2231 ISZ TESNUM 00643 5631 JMP I TESNUM 00644 4231 ILCHAR, JMS TESNUM 00645 5272 JMP C72 00646 3030 C46, DCA NUMACC 00647 3041 DCA CHAR 00650 4574 JMS I [READT 00651 4560 JMS I [ERROR 00652 4231 JMS TESNUM 00653 5263 C53, U63 00654 3031 DCA Z31 00655 1030 TAD NUMACC 00656 7106 CLL RTL 00657 7000! C57, NOP 00660 7104 CLL RAL 00661 1031 TAD Z31 00662 5246 JMP C46 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 11 00663 7200 CLA 00664 1030 TAD NUMACC 00665 2020 ISZ COUNT 00666 7041 CIA 00667 3030 DCA NUMACC 00670 4556 JMS I [LO 00671 5600 C71, JMP I READ 00672 1155 C72, TAD [3 00673 7450 SNA 00674 2020 ISZ COUNT 00675 1157 TAD [Z02 00676 7650 SNA CLA 00677 5302 JMP .+3 00700 4773 JMS I (D127 00701 5312 JMP C112 00702 1041 TAD CHAR 00703 0154 AND [77 00704 7002 BSW 00705 3044 DCA LEFT 00706 3041 DCA CHAR 00707 4562 JMS I [DELIM 00710 7410 SKP 00711 5203 JMP C03 00712 6211 C112, CDF 10 00713 1423 TAD I Z23 00714 3027 DCA Z27 00715 4553 JMS I [C154 00716 5322 JMP C122 00717 4773 C117, JMS I (D127 00720 6211 C120, CDF 10 00721 1421 TAD I Z21 00722 3021 C122, DCA Z21 00723 1044 TAD LEFT 00724 7650 SNA CLA 00725 5341 JMP C141 00726 1021 C126, TAD Z21 00727 7650 SNA CLA 00730 5337 JMP C137 00731 6221 CDF 20 00732 1421 TAD I Z21 00733 7041 CIA 00734 1044 TAD LEFT 00735 7650 SNA CLA 00736 5317 JMP C117 00737 4772 C137, JMS I (D00 00740 5326 C140, JMP C126 00741 1021 C141, TAD Z21 00742 7650 SNA CLA 00743 5346 JMP .+3 00744 4772 JMS I (D00 00745 5341 JMP C141 00746 4553 JMS I [C154 00747 7041 C147, XD41 00750 1055 TAD Z55 00751 7640 SZA CLA 00752 1020 TAD COUNT 00753 5600 JMP I READ /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 12 00754 0747 C154, C147 00755 7450 SNA 00756 1027 TAD Z27 00757 3020 C157, DCA COUNT 00760 6231 CDF 30 00761 1420 TAD I COUNT 00762 7006 RTL 00763 7200 CLA 00764 6221 CDF 20 00765 1420 TAD I COUNT 00766 7420 SNL 00767 5357 JMP C157 00770 5754 JMP I C154 00771 7607 CLA DVI 00772 1000 00773 1127 00774 0010 00775 7506 00776 2757 00777 0621 *1000 01000 0740 D00, C140 01001 1027 TAD Z27 01002 3030 DCA NUMACC 01003 4552 D03, JMS I [F157 01004 5247 JMP D47 01005 6211 CDF 10 01006 1430 TAD I NUMACC 01007 7450 SNA 01010 1034 TAD Z34 01011 3030 DCA NUMACC 01012 4553 D12, JMS I [C154 01013 3032 DCA Z32 01014 1030 TAD NUMACC 01015 4553 JMS I [C154 01016 3031 D16, DCA Z31 01017 1032 TAD Z32 01020 7041 CIA 01021 1021 TAD Z21 01022 7640 D22, SZA CLA 01023 5231 JMP D31 01024 1030 TAD NUMACC 01025 3027 DCA Z27 01026 1031 TAD Z31 01027 3021 DCA Z21 01030 5600 JMP I D00 01031 1031 D31, TAD Z31 01032 7650 SNA CLA 01033 5203 JMP D03 01034 6221 CDF 20 01035 1432 TAD I Z32 01036 7041 CIA 01037 1431 TAD I Z31 01040 7640 SZA CLA 01041 5203 JMP D03 01042 6211 CDF 10 01043 1432 TAD I Z32 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 13 01044 3032 DCA Z32 01045 1431 TAD I Z31 01046 5216 JMP D16 01047 2030 D47, ISZ NUMACC 01050 4552 JMS I [F157 01051 5212 JMP D12 01052 4553 JMS I [C154 01053 3032 DCA Z32 01054 3031 DCA Z31 01055 4551 JMS I [CONS 01056 3027 DCA Z27 01057 6211 CDF 10 01060 1423 TAD I Z23 01061 3031 DCA Z31 01062 4551 JMS I [CONS 01063 6211 CDF 10 01064 3423 DCA I Z23 01065 1027 TAD Z27 01066 3030 DCA NUMACC 01067 4271 JMS D71 01070 5777 JMP I (C71 01071 0000 D71, 0000 01072 1376 TAD (2000 01073 6231 CDF 30 01074 3430 DCA I NUMACC 01075 3031 DCA Z31 01076 6221 CDF 20 01077 1022 D77, TAD POINT 01100 3430 DCA I NUMACC 01101 1032 TAD Z32 01102 7041 CIA 01103 1021 TAD Z21 01104 7650 SNA CLA 01105 5315 JMP D115 01106 6221 CDF 20 01107 1432 TAD I Z32 01110 3030 DCA NUMACC 01111 6211 CDF 10 01112 1432 TAD I Z32 01113 3032 DCA Z32 01114 5775 JMP I (E155 01115 1044 D115, TAD LEFT 01116 7450 SNA 01117 5323 JMP D123 01120 3030 D120, L3030 01121 4327 JMS D127 01122 5775 JMP I (E155 01123 6211 D123, CDF 10 01124 3430 DCA I NUMACC 01125 1027 TAD Z27 01126 5671 JMP I D71 01127 0720 D127, C120 01130 7240 CLA CMA 01131 3372 DCA D172 01132 3044 DCA LEFT 01133 1050 D133, TAD Z50 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 14 01134 7650 SNA CLA 01135 5343 JMP D143 01136 4562 JMS I [DELIM 01137 5727 JMP I D127 01140 7440 D140, XF40 01141 5345 JMP D145 01142 3041 DCA CHAR 01143 4574 D143, JMS I [READT 01144 4560 JMS I [ERROR 01145 4774 D145, JMS I (E125 01146 5353 D146, JMP D153 01147 2050 ISZ Z50 01150 5353 JMP D153 01151 7200 CLA 01152 1373 TAD (40 01153 2372 D153, ISZ D172 01154 7410 SKP 01155 7002 BSW 01156 1044 TAD LEFT 01157 3044 DCA LEFT 01160 1050 TAD Z50 01161 7650 SNA CLA 01162 5366 JMP D166 01163 3041 DCA CHAR 01164 7240 CLA CMA 01165 3050 DCA Z50 01166 1372 D166, TAD D172 01167 7650 SNA CLA 01170 5333 JMP D133 01171 5727 JMP I D127 01172 7777! D172, 7777 01173 0040 01174 1325 01175 1355 01176 2000 01177 0671 *1200 01200 0604! DELIM, C04 01201 4233 JMS READT 01202 5563 JMP I [MAIN 01203 1377! E03, TAD (7522 01204 7450 E04, XF50 01205 5216 JMP E16 01206 1150 TAD [5 01207 7450 SNA 01210 5215 E10, U15 01211 7001 IAC 01212 7440 SZA 01213 5222 JMP E22 01214 7001 IAC 01215 7001 E15, IAC 01216 7001 E16, IAC 01217 1232 E17, TAD E32 01220 3047 DCA BRANCH 01221 5600 JMP I DELIM 01222 7001 E22, IAC 01223 7450 SNA /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 15 01224 5230 JMP E30 01225 7710 SPA CLA 01226 5217 JMP E17 01227 1041 TAD CHAR 01230 2200 E30, ISZ DELIM 01231 5600 JMP I DELIM 01232 0610 E32, AND I E10 01233 0260! READT, A60 01234 7200 CLA 01235 1041 TAD CHAR 01236 7440 SZA 01237 5253 JMP E53 01240 1046 E40, TAD KBDTMP 01241 3041 DCA CHAR 01242 4255 JMS READIN 01243 5251 E43, JMP E51 01244 1376 TAD (210 01245 4547 JMS I [TTYOUT 01246 4255 JMS READIN 01247 5240 JMP E40 01250 5246 JMP .-2 01251 1041 E51, TAD CHAR 01252 7440 SZA 01253 2233 E53, ISZ READT 01254 5633 JMP I READT 01255 1243! READIN, E43 01256 4775 JMS I (KBDIN 01257 3046 E57, DCA KBDTMP 01260 1042 E60, TAD KBDFLG 01261 0374 AND (45 01262 7640 SZA CLA 01263 5270 JMP E70 01264 1046 TAD KBDTMP 01265 2043 ISZ Z43 01266 7000 E66, NOP 01267 4547 JMS I [TTYOUT 01270 1373 E70, TAD (-203 01271 7440 E71, XF40 01272 5275 JMP .+3 01273 6201 FUNARG, CDF 0 01274 5772 JMP I (7600 01275 1155 TAD [3 01276 7450 SNA 01277 5563 JMP I [MAIN 01300 1371 TAD (-177 01301 7650 SNA CLA 01302 2255 ISZ READIN 01303 5655 JMP I READIN 01304 4574 APVAL, JMS I [READT 01305 7000 E105, NOP 01306 7650 SNA CLA 01307 1057 TAD SPACE 01310 5466 JMP I NEXT 01311 0000 INCH, 0000 01312 4775 JMS I (KBDIN 01313 3030 DCA NUMACC /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 16 01314 4556 JMS I [LO 01315 5711 JMP I INCH 01316 0000 OUTCH, 0000 01317 6221 CDF 20 01320 1430 TAD I NUMACC 01321 2043 ISZ Z43 01322 7000 NOP 01323 4547 JMS I [TTYOUT 01324 5716 JMP I OUTCH 01325 1146! E125, D146 01326 3343 E126, DCA E143 01327 1343 TAD E143 01330 1370 TAD (7540 01331 7550 SPA SNA 01332 5336 JMP E136 01333 1367 TAD (7700 01334 7550 SPA SNA 01335 7410 SKP 01336 2325 E136, ISZ E125 01337 7200 CLA 01340 1343 TAD E143 01341 0154 AND [77 01342 5725 JMP I E125 01343 0305! E143, AND E105 01344 0671 LO, C71 01345 3031 DCA Z31 01346 4551 JMS I [CONS 01347 7200 CLA 01350 1366 TAD (3000 01351 6231 CDF 30 01352 3430 DCA I NUMACC 01353 1030 TAD NUMACC 01354 5744 JMP I LO 01355 1365 E155, TAD (1000 01356 6231 CDF 30 01357 3422 DCA I POINT 01360 4551 JMS I [CONS 01361 7200 CLA 01362 6211 CDF 10 01363 5764 JMP I (D77 01364 1077 01365 1000 01366 3000 01367 7700 01370 7540 01371 7601 01372 7600 01373 7575 01374 0045 01375 0417 01376 0210 01377 7522 *1400 01400 6034 L1400, KRS 01401 1377 TAD (7560 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 17 01402 7650 SNA CLA 01403 5563 JMP I [MAIN 01404 4546 JMS I [ATOM 01405 7650 F05, 7650 01406 5221 JMP F21 01407 4552 JMS I [F157 01410 5064 JMP Z64 01411 4573 JMS I [NUMBER 01412 7640 SZA CLA 01413 5064 JMP Z64 01414 1051 TAD Z51 01415 4545 JMS I [J145 01416 7420 SNL 01417 4560 JMS I [ERROR 01420 5466 JMP I NEXT 01421 1030 F21, TAD NUMACC 01422 3026 DCA Z26 01423 6211 CDF 10 01424 1430 TAD I NUMACC 01425 3027 DCA Z27 01426 6221 CDF 20 01427 1420 TAD I COUNT 01430 3030 DCA NUMACC 01431 5240 JMP F40 01432 0305 F32, AND F105 01433 1232 TAD F32 01434 3066 DCA NEXT 01435 1031 TAD Z31 01436 3027 DCA Z27 01437 7240 CLA CMA 01440 3044 F40, DCA LEFT 01441 1030 TAD NUMACC 01442 7450 F42, SNA 01443 5466 JMP I NEXT 01444 3030 DCA NUMACC 01445 4573 JMS I [NUMBER 01446 7640 SZA CLA 01447 4560 JMS I [ERROR 01450 6211 CDF 10 01451 1430 TAD I NUMACC 01452 3031 DCA Z31 01453 4546 JMS I [ATOM 01454 7650 SNA CLA 01455 5311 JMP F111 01456 4552 JMS I [F157 01457 5776 F57, JMP I (G00 01460 1052 TAD Z52 01461 4545 JMS I [J145 01462 7430 SZL 01463 5242 JMP F42 01464 1053 TAD Z53 01465 3031 DCA Z31 01466 1026 TAD Z26 01467 3030 DCA NUMACC 01470 4544 JMS I [GET 01471 7420 SNL 01472 5775 JMP I (G66 01473 3026 DCA Z26 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 20 01474 1024 TAD Z24 01475 3030 DCA NUMACC 01476 3031 DCA Z31 01477 4551 JMS I [CONS 01500 3031 DCA Z31 01501 1027! F101, TAD Z27 01502 3030 DCA NUMACC 01503 4551 JMS I [CONS 01504 3027 DCA Z27 01505 1026 F105, TAD Z26 01506 3030 DCA NUMACC 01507 7240 CLA CMA 01510 5240 JMP F40 01511 6221 F111, CDF 20 01512 1420 TAD I COUNT 01513 7161 STL CIA 01514 1034 TAD Z34 01515 7450 SNA 01516 5774 JMP I (LAMBDA 01517 1373 TAD (4 01520 7640 SZA CLA 01521 5341 JMP F141 01522 1066 TAD NEXT 01523 4561 JMS I [L00 01524 1024 TAD Z24 01525 4572 JMS I [L06 01526 1031 TAD Z31 01527 4572 JMS I [L06 01530 4543 JMS I [K130 01531 4571 JMS I [L54 01532 6211 CDF 10 01533 1420 TAD I COUNT 01534 3024 DCA Z24 01535 6221 CDF 20 01536 1420 TAD I COUNT 01537 3425 DCA I Z25 01540 5772 JMP I (H12 01541 1044 F141, TAD LEFT 01542 4561 JMS I [L00 01543 1027 TAD Z27 01544 4572 JMS I [L06 01545 1066 TAD NEXT 01546 4561 JMS I [L00 01547 4066 JMS NEXT 01550 3030 DCA NUMACC 01551 4577 JMS I [L3030 01552 3066 DCA NEXT 01553 4577 JMS I [L3030 01554 3027 F154, L27 01555 4577 JMS I [L3030 01556 5240 JMP F40 01557 1457! F157, F57 01560 1030 TAD NUMACC 01561 7160 STL CMA 01562 1033 TAD Z33 01563 7630 SZL CLA 01564 2357 ISZ F157 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 21 01565 5757 JMP I F157 01566 5754 JMP I F154 01567 4500 JMS I Z100 01570 2301 ISZ F101 01571 2605 ISZ I F05 01572 2012 01573 0004 01574 2003 01575 1666 01576 1600 01577 7560 *1600 01600 1377 G00, TAD (242 01601 7161 STL CIA 01602 1030 TAD NUMACC 01603 7200 CLA 01604 1031 TAD Z31 01605 3251 DCA G51 01606 3031 DCA Z31 01607 7430 SZL 01610 5651 JMP I G51 01611 1066 TAD NEXT 01612 4561 JMS I [L00 01613 1030 G13, TAD NUMACC 01614 4572 JMS I [L06 01615 4543 G15, JMS I [K130 01616 4577 G16, JMS I [L3030 01617 3026 DCA Z26 01620 1376 TAD (246 01621 7161 STL CIA 01622 1026 TAD Z26 01623 7630 SZL CLA 01624 5241 JMP G41 01625 1027 TAD Z27 01626 7650 SNA CLA 01627 4560 JMS I [ERROR 01630 6221 CDF 20 01631 1427 TAD I Z27 01632 3030 DCA NUMACC 01633 1375 TAD (262 01634 4251 JMS G51 01635 3031 DCA Z31 01636 1374 TAD (300 01637 4251 JMS G51 01640 3032 DCA Z32 01641 6211 G41, CDF 10 01642 1427 TAD I Z27 01643 7640 SZA CLA 01644 4560 JMS I [ERROR 01645 1426 TAD I Z26 01646 3251 DCA G51 01647 4651 JMS I G51 01650 5061 G50, JMP Z61 01651 3446! G51, STOR 01652 7161 STL CIA 01653 1026 TAD Z26 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 22 01654 7630 SZL CLA 01655 5241 JMP G41 01656 6211 CDF 10 01657 1427 TAD I Z27 01660 7450 SNA 01661 4560 JMS I [ERROR 01662 3027 DCA Z27 01663 6221 CDF 20 01664 1427 TAD I Z27 01665 5651 JMP I G51 01666 1066 G66, TAD NEXT 01667 4561 JMS I [L00 01670 1026 TAD Z26 01671 4572 JMS I [L06 01672 4317 JMS G117 01673 4543 JMS I [K130 01674 4542 JMS I [L64 01675 3030 DCA NUMACC 01676 4317 JMS G117 01677 1021 G77, TAD Z21 01700 7110 CLL RAR 01701 7440 SZA 01702 5305 JMP .+3 01703 4577 JMS I [L3030 01704 5062 JMP Z62 01705 3021 DCA Z21 01706 6211 CDF 10 01707 7420 SNL 01710 1030 TAD NUMACC 01711 7660 SZA SNL CLA 01712 1430 TAD I NUMACC 01713 7430 SZL 01714 4541 JMS I [CAR 01715 3030 DCA NUMACC 01716 5277 JMP G77 01717 0000 G117, 0000 01720 4571 JMS I [L54 01721 7201 CLA IAC 01722 3021 DCA Z21 01723 6221 CDF 20 01724 1420 TAD I COUNT 01725 3020 DCA COUNT 01726 1420 TAD I COUNT 01727 7002 BSW 01730 0154 AND [77 01731 1140 TAD [7775 01732 7640 SZA CLA 01733 4560 JMS I [ERROR 01734 1420 G134, TAD I COUNT 01735 4350 JMS G150 01736 6211 CDF 10 01737 1420 TAD I COUNT 01740 7450 SNA 01741 4560 JMS I [ERROR 01742 3020 DCA COUNT 01743 6221 CDF 20 01744 1420 TAD I COUNT /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 23 01745 7002 G145, BSW 01746 4350 JMS G150 01747 5334 JMP G134 01750 0000 G150, 0000 01751 7100 CLL 01752 0154 AND [77 01753 1373 TAD (7777 01754 7440 SZA 01755 1140 TAD [7775 01756 7440 SZA 01757 5366 JMP G166 01760 1021 TAD Z21 01761 7004 RAL 01762 7430 SZL 01763 4560 JMS I [ERROR 01764 3021 DCA Z21 01765 5750 JMP I G150 01766 1372 G166, TAD (7762 01767 7440 SZA 01770 5560 JMP I [ERROR 01771 5717 JMP I G117 01772 7762 01773 7777 01774 0300 01775 0262 01776 0246 01777 0242 *2000 02000 1027 PROG, TAD Z27 02001 3031 DCA Z31 02002 3027 DCA Z27 02003 1066 LAMBDA, TAD NEXT 02004 4561 JMS I [L00 02005 1024 TAD Z24 02006 4572 JMS I [L06 02007 1031 TAD Z31 02010 4572 JMS I [L06 02011 4543 JMS I [K130 02012 4571 H12, JMS I [L54 02013 1020 TAD COUNT 02014 3026 DCA Z26 02015 6211 CDF 10 02016 1420 TAD I COUNT 02017 3020 DCA COUNT 02020 6221 CDF 20 02021 1426 TAD I Z26 02022 7450 SNA 02023 5261 JMP H61 02024 3021 H24, DCA Z21 02025 6221 CDF 20 02026 1421 TAD I Z21 02027 3030 DCA NUMACC 02030 1027 TAD Z27 02031 7640 SZA CLA 02032 5241 JMP H41 02033 6211 CDF 10 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 24 02034 1420 TAD I COUNT 02035 7650 SNA CLA 02036 4560 JMS I [ERROR 02037 3031 DCA Z31 02040 5247 JMP H47 02041 6221 H41, CDF 20 02042 1427 TAD I Z27 02043 3031 DCA Z31 02044 6211 CDF 10 02045 1427 TAD I Z27 02046 3027 DCA Z27 02047 4551 H47, JMS I [CONS 02050 7200 CLA 02051 1024 TAD Z24 02052 3031 DCA Z31 02053 4551 JMS I [CONS 02054 3024 DCA Z24 02055 6211 CDF 10 02056 1421 TAD I Z21 02057 7440 SZA 02060 5224 JMP H24 02061 1027 H61, TAD Z27 02062 7640 SZA CLA 02063 4560 JMS I [ERROR 02064 6211 CDF 10 02065 1420 TAD I COUNT 02066 7640 SZA CLA 02067 5274 JMP H74 02070 6221 CDF 20 02071 1420 TAD I COUNT 02072 3030 DCA NUMACC 02073 5317 JMP H117 02074 1020 H74, TAD COUNT 02075 4572 JMS I [L06 02076 4571 H76, JMS I [L54 02077 7420 SNL 02100 5315 JMP H115 02101 6211 CDF 10 02102 1420 TAD I COUNT 02103 6221 CDF 20 02104 3425 DCA I Z25 02105 1420 TAD I COUNT 02106 3030 DCA NUMACC 02107 4546 JMS I [ATOM 02110 7450 SNA 02111 4066 JMS NEXT 02112 5276 JMP H76 02113 4537 RETURN, JMS I [I00 02114 4542 JMS I [L64 02115 3030 H115, DCA NUMACC 02116 4577 JMS I [L3030 02117 4577 H117, JMS I [L3030 02120 4066 H120, JMS NEXT 02121 3030 H121, DCA NUMACC 02122 4577 JMS I [L3030 02123 3024 DCA Z24 02124 5062 JMP Z62 02125 0000 EVAL, 0000 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 25 02126 1325 TAD EVAL 02127 4561 JMS I [L00 02130 1024 TAD Z24 02131 4572 JMS I [L06 02132 1031 TAD Z31 02133 3024 DCA Z24 02134 5320 JMP H120 02135 0000 APPLY, 0000 02136 1335 TAD APPLY 02137 4561 JMS I [L00 02140 1024 TAD Z24 02141 4572 JMS I [L06 02142 4570 JMS I [F32 02143 5321 JMP H121 02144 4537 GO, JMS I [I00 02145 4542 JMS I [L64 02146 3031 DCA Z31 02147 6211 CDF 10 02150 1425 TAD I Z25 02151 3030 DCA NUMACC 02152 6221 CDF 20 02153 1430 TAD I NUMACC 02154 3030 H154, L3030 02155 4544 JMS I [GET 02156 7420 SNL 02157 4560 JMS I [ERROR 02160 4571 JMS I [L54 02161 1030 TAD NUMACC 02162 6221 CDF 20 02163 3425 DCA I Z25 02164 5276 JMP H76 02165 4542 T, JMS I [L64 02166 3030 DCA NUMACC 02167 5576 JMP I [L1400 02170 5563 STOP, JMP I [MAIN 02171 3100 DCA Z100 02172 0462 AND I Z62 02173 0005 AND Z05 02174 3114 DCA Z114 02175 1557 TAD I [Z02 02176 0754 AND I H154 02177 0077 AND Z77 02200 0000 I00, 0000 02201 1066 TAD NEXT 02202 7041 CIA 02203 1377 TAD (2112 02204 7640 SZA CLA 02205 4560 JMS I [ERROR 02206 5600 JMP I I00 02207 1066 COND, TAD NEXT 02210 4561 JMS I [L00 02211 1027 TAD Z27 02212 4572 JMS I [L06 02213 5221 JMP I21 02214 4571 I14, JMS I [L54 02215 6211 CDF 10 02216 1420 TAD I COUNT /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 26 02217 6221 CDF 20 02220 3425 DCA I Z25 02221 4571 I21, JMS I [L54 02222 7420 SNL 02223 5245 JMP I45 02224 6221 CDF 20 02225 1420 TAD I COUNT 02226 3020 DCA COUNT 02227 1420 TAD I COUNT 02230 3030 DCA NUMACC 02231 4066 JMS NEXT 02232 7650 SNA CLA 02233 5214 JMP I14 02234 4571 JMS I [L54 02235 6221 CDF 20 02236 1420 TAD I COUNT 02237 3030 DCA NUMACC 02240 6211 CDF 10 02241 1430 TAD I NUMACC 02242 3020 DCA COUNT 02243 6221 CDF 20 02244 1420 TAD I COUNT 02245 3030 I45, L3030 02246 4577 JMS I [L3030 02247 4577 JMS I [L3030 02250 3066 DCA NEXT 02251 7430 SZL 02252 5576 JMP I [L1400 02253 4537 I53, R137 02254 5466 JMP I NEXT 02255 0000 EQ, 0000 02256 4573 JMS I [NUMBER 02257 7640 SZA CLA 02260 4303 JMS I103 02261 4573 JMS I [NUMBER 02262 7640 SZA CLA 02263 5270 JMP I70 02264 1030 TAD NUMACC 02265 7041 CIA 02266 1031 TAD Z31 02267 5274 JMP I74 02270 6221 I70, CDF 20 02271 1430 TAD I NUMACC 02272 7041 CIA 02273 1431 TAD I Z31 02274 7650 I74, SNA CLA 02275 1057 TAD SPACE 02276 5655 JMP I EQ 02277 0000 NULL, 0000 02300 3031 DCA Z31 02301 4255 JMS EQ 02302 5677 JMP I NULL 02303 0000 I103, 0000 02304 1030 TAD NUMACC 02305 3313 DCA I113 02306 1031 TAD Z31 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 27 02307 3030 DCA NUMACC 02310 1313 TAD I113 02311 3031 DCA Z31 02312 5703 JMP I I103 02313 0000! I113, 0000 02314 0000 EQUAL, 0000 02315 1314 TAD EQUAL 02316 4561 JMS I [L00 02317 4546 I117, JMS I [ATOM 02320 7650 SNA CLA 02321 4303 JMS I103 02322 4546 JMS I [ATOM 02323 7650 SNA CLA 02324 5327 JMP .+3 02325 4255 JMS EQ 02326 5061 JMP Z61 02327 6211 CDF 10 02330 1430 TAD I NUMACC 02331 4572 JMS I [L06 02332 6211 CDF 10 02333 1431 TAD I Z31 02334 4572 JMS I [L06 02335 6221 CDF 20 02336 1430 TAD I NUMACC 02337 3030 DCA NUMACC 02340 1431 TAD I Z31 02341 3031 DCA Z31 02342 4314 JMS EQUAL 02343 3032 DCA Z32 02344 4577 JMS I [L3030 02345 3031 I145, L31 02346 4577 JMS I [L3030 02347 3030 DCA NUMACC 02350 1032 TAD Z32 02351 7640 SZA CLA 02352 5317 JMP I117 02353 5061 JMP Z61 02354 4562 JMS I [DELIM 02355 6257 CDF CIF SINT50 02356 6263 CDF CIF 60 02357 0044 AND LEFT 02360 4564 JMS I [Z04 02361 4543 JMS I [K130 02362 6445 6445 02363 4432 JMS I Z32 02364 0000 0000 02365 5451 JMP I Z51 02366 5653 JMP I I53 02367 6300 6300 02370 4745 JMS I I145 02371 5645 JMP I I45 02372 6241 CDF 40 02373 6445 6445 02374 4432 JMS I Z32 02375 0000 0000 02376 7575 DCM 02377 2112 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 30 *2400 02400 4542 FUNCTI, R142 02401 3030 J01, DCA NUMACC 02402 4546 JMS I [ATOM 02403 7650 SNA CLA 02404 5212 JMP J12 02405 1052 TAD Z52 02406 4545 JMS I [J145 02407 7420 SNL 02410 4560 JMS I [ERROR 02411 5201 JMP J01 02412 6211 J12, CDF 10 02413 1430 TAD I NUMACC 02414 3030 DCA NUMACC 02415 1024 TAD Z24 02416 3031 DCA Z31 02417 4551 JMS I [CONS 02420 3031 DCA Z31 02421 1054 TAD Z54 02422 3030 DCA NUMACC 02423 4551 JMS I [CONS 02424 5466 J24, 5466 02425 0000 SE, 0000 02426 1031 1031 02427 3027 DCA Z27 02430 1024 TAD Z24 02431 3031 DCA Z31 02432 4301 JMS ASSOC 02433 7650 SNA CLA 02434 4560 JMS I [ERROR 02435 1027 TAD Z27 02436 6211 CDF 10 02437 3420 DCA I COUNT 02440 1027 TAD Z27 02441 5625 JMP I SE 02442 1066 SETQ, TAD NEXT 02443 4561 JMS I [L00 02444 6221 CDF 20 02445 1427 TAD I Z27 02446 4572 JMS I [L06 02447 6211 CDF 10 02450 1427 TAD I Z27 02451 3027 DCA Z27 02452 4542 JMS I [L64 02453 3030 DCA NUMACC 02454 4066 JMS NEXT 02455 3031 DCA Z31 02456 4577 JMS I [L3030 02457 3030 DCA NUMACC 02460 4225 JMS SE 02461 5061 JMP Z61 02462 0000 CAR, 0000 02463 4546 JMS I [ATOM 02464 7640 SZA CLA 02465 4560 JMS I [ERROR 02466 6221 CDF 20 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 31 02467 1420 TAD I COUNT 02470 5662 JMP I CAR 02471 0000 CDR, 0000 02472 1377 TAD (7473 02473 7120 STL 02474 1030 TAD NUMACC 02475 6211 CDF 10 02476 7620 SNL CLA 02477 1430 TAD I NUMACC 02500 5671 JMP I CDR 02501 0000 ASSOC, 0000 02502 7300 J102, CLA CLL 02503 1031 TAD Z31 02504 7650 SNA CLA 02505 5701 JMP I ASSOC 02506 6221 CDF 20 02507 1431 TAD I Z31 02510 3020 DCA COUNT 02511 1420 TAD I COUNT 02512 7041 CIA 02513 1030 TAD NUMACC 02514 7650 SNA CLA 02515 5322 JMP J122 02516 6211 CDF 10 02517 1431 TAD I Z31 02520 3031 DCA Z31 02521 5302 JMP J102 02522 1020 J122, TAD COUNT 02523 5701 JMP I ASSOC 02524 0000 GET, 0000 02525 4552 J125, JMS I [F157 02526 5724 JMP I GET 02527 1030 TAD NUMACC 02530 3020 J130, L20 02531 6211 CDF 10 02532 1430 TAD I NUMACC 02533 3030 DCA NUMACC 02534 6221 CDF 20 02535 1420 TAD I COUNT 02536 7141 CLL CIA 02537 1031 TAD Z31 02540 7640 SZA CLA 02541 5325 JMP J125 02542 6221 CDF 20 02543 1430 TAD I NUMACC 02544 5724 JMP I GET 02545 0000 J145, 0000 02546 3021 DCA Z21 02547 1024 TAD Z24 02550 3031 DCA Z31 02551 4301 JMS ASSOC 02552 7620 SNL CLA 02553 5357 JMP J157 02554 6211 CDF 10 02555 1420 TAD I COUNT /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 32 02556 5745 JMP I J145 02557 1030 J157, TAD NUMACC 02560 3026 DCA Z26 02561 1021 TAD Z21 02562 3031 DCA Z31 02563 4324 JMS GET 02564 5745 JMP I J145 02565 4005 NUMBER, P05 02566 6231 CDF 30 02567 1430 TAD I NUMACC 02570 7006 RTL 02571 7710 SPA CLA 02572 1057 TAD SPACE 02573 5765 JMP I NUMBER 02574 5600 JMP I FUNCTI 02575 2730 ISZ I J130 02576 7566 SMA SZA SNL OSR HLT 02577 7473 *2600 02600 4542 QUOTE, JMS I [L64 02601 5466 JMP I NEXT 02602 0000 RPLACA, 0000 02603 1202 TAD RPLACA 02604 3207 DCA RPLACD 02605 6221 CDF 20 02606 5211 JMP .+3 02607 0000! RPLACD, 0000 02610 6211 CDF 10 02611 1377 TAD (7473 02612 7120 STL 02613 1030 TAD NUMACC 02614 7630 SZL CLA 02615 4560 JMS I [ERROR 02616 1031 K16, D31 02617 3430 DCA I NUMACC 02620 1030 TAD NUMACC 02621 5607 JMP I RPLACD 02622 0000 DEFLIS, 0000 02623 1222 TAD DEFLIS 02624 4561 JMS I [L00 02625 1031 TAD Z31 02626 3032 DCA Z32 02627 1030 K27, TAD NUMACC 02630 3026 DCA Z26 02631 4552 JMS I [F157 02632 5357 JMP K157 02633 4541 JMS I [CAR 02634 3031 DCA Z31 02635 1031 TAD Z31 02636 3030 DCA NUMACC 02637 4541 JMS I [CAR 02640 3030 DCA NUMACC 02641 1032 TAD Z32 02642 6221 CDF 20 02643 3420 DCA I COUNT /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 33 02644 4546 JMS I [ATOM 02645 7650 SNA CLA 02646 4560 JMS I [ERROR 02647 4552 JMS I [F157 02650 5301 JMP K101 02651 6211 CDF 10 02652 1430 TAD I NUMACC 02653 3027 DCA Z27 02654 4207 JMS RPLACD 02655 4572 JMS I [L06 02656 6211 CDF 10 02657 1431 TAD I Z31 02660 3031 DCA Z31 02661 6221 CDF 20 02662 1427 TAD I Z27 02663 7041 CIA 02664 1032 TAD Z32 02665 6211 CDF 10 02666 7640 SZA CLA 02667 5274 JMP K74 02670 1427 TAD I Z27 02671 3027 DCA Z27 02672 1427 TAD I Z27 02673 7410 SKP 02674 1027 K74, TAD Z27 02675 3431 DCA I Z31 02676 1426 K76, TAD I Z26 02677 3030 DCA NUMACC 02700 5227 JMP K27 02701 6221 K101, CDF 20 02702 1420 TAD I COUNT 02703 3030 DCA NUMACC 02704 4551 JMS I [CONS 02705 4572 JMS I [L06 02706 7332 AC2000 02707 6231 CDF 30 02710 3430 DCA I NUMACC 02711 6211 CDF 10 02712 1423 TAD I Z23 02713 3031 DCA Z31 02714 4551 JMS I [CONS 02715 6211 CDF 10 02716 3423 DCA I Z23 02717 5276 JMP K76 02720 0000 DEFINE, 0000 02721 1052 TAD Z52 02722 3031 DCA Z31 02723 4222 JMS DEFLIS 02724 5720 JMP I DEFINE 02725 1066 LIST, TAD NEXT 02726 3330 DCA K130 02727 7410 SKP 02730 1616! K130, G16 02731 1027 K131, TAD Z27 02732 2044 ISZ LEFT 02733 7450 SNA 02734 5730 JMP I K130 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 34 02735 3020 DCA COUNT 02736 1330 TAD K130 02737 4561 JMS I [L00 02740 6221 K140, CDF 20 02741 1420 TAD I COUNT 02742 3030 DCA NUMACC 02743 6211 CDF 10 02744 1420 TAD I COUNT 02745 4572 JMS I [L06 02746 4066 JMS NEXT 02747 3021 DCA Z21 02750 4571 JMS I [L54 02751 1021 TAD Z21 02752 6221 CDF 20 02753 3425 DCA I Z25 02754 7430 SZL 02755 5340 JMP K140 02756 3027 DCA Z27 02757 6231 K157, CDF 30 02760 1425 TAD I Z25 02761 7106 CLL RTL 02762 7004 RAL 02763 4577 JMS I [L3030 02764 3030 DCA NUMACC 02765 1027 TAD Z27 02766 7430 SZL 02767 5430 JMP I NUMACC 02770 3031 DCA Z31 02771 4551 JMS I [CONS 02772 3027 K172, DCA Z27 02773 5357 JMP K157 02774 4445 JMS I Z45 02775 2515 ISZ I Z115 02776 2510 ISZ I Z110 02777 7473 *3000 03000 1613 L00, G13 03001 4206 L01, Q06 03002 1377 TAD (1000 03003 6231 CDF 30 03004 3425 DCA I Z25 03005 5600 JMP I L00 03006 1615 L06, G15 03007 6221 CDF 20 03010 3422 DCA I POINT 03011 1025 L11, TAD Z25 03012 3021 DCA Z21 03013 1022 L13, D22 03014 3025 DCA Z25 03015 6211 L15, XA11 03016 1422 TAD I POINT 03017 3022 DCA POINT 03020 1021! L20, TAD Z21 03021 3425 DCA I Z25 03022 6231 CDF 30 03023 3425 DCA I Z25 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 35 03024 1022 TAD POINT 03025 7650 SNA CLA 03026 4536 JMS I [O26 03027 5606 L27, JMP I L06 03030 0063 L3030, Z63 03031 7200 L31, CLA 03032 6211 CDF 10 03033 1425 TAD I Z25 03034 3253 DCA L53 03035 1022 TAD POINT 03036 3425 DCA I Z25 03037 1025 TAD Z25 03040 3022 DCA POINT 03041 1253 TAD L53 03042 3025 DCA Z25 03043 6221 CDF 20 03044 1422 TAD I POINT 03045 3253 DCA L53 03046 3422 DCA I POINT 03047 6231 CDF 30 03050 3422 DCA I POINT 03051 1253 TAD L53 03052 5630 JMP I L3030 03053 0305! L53, AND L105 03054 0300 L54, A100 03055 7320 CLA STL 03056 6221 CDF 20 03057 1425 TAD I Z25 03060 7450 SNA 03061 7100 CLL 03062 3020 DCA COUNT 03063 5654 JMP I L54 03064 0000 L64, 0000 03065 7200 CLA 03066 1027 TAD Z27 03067 7650 SNA CLA 03070 4560 JMS I [ERROR 03071 6211 CDF 10 03072 1427 TAD I Z27 03073 7640 SZA CLA 03074 4560 JMS I [ERROR 03075 6221 CDF 20 03076 1427 TAD I Z27 03077 5664 JMP I L64 03100 4002 ATOM, P02 03101 7200 CLA 03102 1030 TAD NUMACC 03103 7450 SNA 03104 1056 TAD Z56 03105 3020 L105, DCA COUNT 03106 6231 CDF 30 03107 1420 TAD I COUNT 03110 7006 RTL 03111 7630 SZL CLA /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 36 03112 1057 TAD SPACE 03113 5700 JMP I ATOM 03114 2772 CONS, K172 03115 1030 TAD NUMACC 03116 6221 CDF 20 03117 3422 DCA I POINT 03120 1022 TAD POINT 03121 3030 DCA NUMACC 03122 6211 CDF 10 03123 1430 TAD I NUMACC 03124 3022 DCA POINT 03125 1031 TAD Z31 03126 3430 DCA I NUMACC 03127 3031 L127, DCA Z31 03130 1022 TAD POINT 03131 7650 SNA CLA 03132 4536 JMS I [O26 03133 1030 TAD NUMACC 03134 5714 JMP I CONS 03135 1035 TAD STRMEM 03136 3017 DCA Z17 03137 5211 JMP L11 03140 1027 TAD Z27 03141 7041 CIA 03142 1035 TAD STRMEM 03143 7650! L143, SNA CLA 03144 5327 JMP L127 03145 4542 JMS I [L64 03146 5144! L146, JMP [GET 03147 5211 JMP L11 03150 7041 CIA 03151 5766 JMP I L166 03152 1033 TAD Z33 03153 4566 JMS I [P40 03154 0157 AND [Z02 03155 1033 TAD Z33 03156 7040 CMA 03157 0034 AND Z34 03160 5766 JMP I L166 03161 4574 JMS I [READT 03162 5763 JMP I .+1 03163 3332 M132 03164 3346 DCA L146 03165 3601 DCA I L01 03166 3601 L166, O01 03167 0503 AND I Z103 03170 7757 CLA MQA SAM 03171 7524 SMA SNL OSR 03172 0452 L172, B52 03173 7772 SPA SNA SZL HLT CLA 03174 4424 JMS I Z24 03175 7534 SPA SZL OSR 03176 2343 ISZ L143 03177 1000 *3200 03200 0000 LOGA, 0000 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 37 03201 6221 CDF 20 03202 1430 TAD I NUMACC 03203 0431 AND I Z31 03204 3030 DCA NUMACC 03205 4556 JMS I [LO 03206 5600 JMP I LOGA 03207 0000 M07, 0000 03210 3030 DCA NUMACC 03211 1066 TAD NEXT 03212 4561 JMS I [L00 03213 4556 JMS I [LO 03214 4572 JMS I [L06 03215 1207 TAD M07 03216 6201 CDF 0 03217 3543 DCA I [K130 03220 5777 JMP I (K131 03221 0000! M21, 0000 03222 7200 CLA 03223 1027 TAD Z27 03224 7650 SNA CLA 03225 5621 JMP I M21 03226 2221 ISZ M21 03227 6221 CDF 20 03230 1427 TAD I Z27 03231 3030 DCA NUMACC 03232 6211 CDF 10 03233 1427 TAD I Z27 03234 3027 DCA Z27 03235 4573 JMS I [NUMBER 03236 7650 SNA CLA 03237 4560 JMS I [ERROR 03240 4571 JMS I [L54 03241 6221 CDF 20 03242 1420 TAD I COUNT 03243 5621 JMP I M21 03244 4207 PLUS, JMS M07 03245 4221 M45, JMS M21 03246 5060 JMP Z60 03247 6221 CDF 20 03250 1430 TAD I NUMACC 03251 3420 DCA I COUNT 03252 5245 JMP M45 03253 4207 MINUS, JMS M07 03254 4221 M54, JMS M21 03255 5060 JMP Z60 03256 6221 M56, CDF 20 03257 1430 TAD I NUMACC 03260 7041 CIA 03261 3420 DCA I COUNT 03262 5254 JMP M54 03263 4207 TIMES, JMS M07 03264 4571 JMS I [L54 03265 7201 CLA IAC 03266 6221 CDF 20 03267 3420 DCA I COUNT 03270 3342 DCA M142 03271 4221 M71, JMS M21 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 40 03272 5331 JMP M131 03273 3341 DCA M141 03274 6221 CDF 20 03275 1430 TAD I NUMACC 03276 7450 SNA 03277 5337 JMP M137 03300 7100 CLL 03301 7500 SMA 03302 5305 JMP .+3 03303 2342 ISZ M142 03304 7041 CIA 03305 3420 DCA I COUNT 03306 3430 DCA I NUMACC 03307 1376 TAD (7764 03310 3343 DCA M143 03311 1420 M111, TAD I COUNT 03312 7010 RAR 03313 3420 DCA I COUNT 03314 1430 TAD I NUMACC 03315 7420 SNL 03316 5321 JMP .+3 03317 7100 CLL 03320 1341 TAD M141 03321 7010 RAR 03322 3430 DCA I NUMACC 03323 2343 ISZ M143 03324 5311 JMP M111 03325 1420 TAD I COUNT 03326 7010 RAR 03327 3420 DCA I COUNT 03330 5271 JMP M71 03331 1342 M131, TAD M142 03332 7010 M132, RAR 03333 7620 SNL CLA 03334 5340 JMP M140 03335 1420 TAD I COUNT 03336 7041 CIA 03337 3420 M137, DCA I COUNT 03340 5060 M140, JMP Z60 03341 0000! M141, 0000 03342 0000! M142, 0000 03343 0000! M143, 0000 03344 6221 CDF 20 03345 1431 TAD I Z31 03346 7161 STL CIA 03347 0000 LESSP, 0000 03350 6221 CDF 20 03351 1431 TAD I Z31 03352 7161 STL CIA 03353 7500 SMA 03354 7100 CLL 03355 3021 DCA Z21 03356 1430 TAD I NUMACC 03357 7510 SPA 03360 7020 CML 03361 1021 TAD Z21 03362 7630 SZL CLA 03363 1057 TAD SPACE /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 41 03364 5747 JMP I LESSP 03365 0002 AND Z02 03366 7753 CLA MQA DPIC 03367 0064 AND Z64 03370 7443 DAD 03371 3630 O30 03372 3400 DCA I NIL 03373 4600 JMS I LOGA 03374 0063 AND Z63 03375 7707 CLA MQA DVI 03376 7764 03377 2731 *3400 03400 0000 GENSYM, 0000 03401 3044 N01, DCA LEFT 03402 3021 DCA Z21 03403 1232 TAD N32 03404 0377 AND (17 03405 3020 DCA COUNT 03406 1232 TAD N32 03407 7006 RTL 03410 0376 AND (1700 03411 1020 TAD COUNT 03412 1375 TAD (707 03413 6221 CDF 20 03414 3774 DCA I (Z02 03415 1232 TAD N32 03416 7012 RTR 03417 0376 AND (1700 03420 1375 TAD (707 03421 3773 DCA I (Z01 03422 2232 ISZ N32 03423 1373 TAD (Z01 03424 3032 DCA Z32 03425 3031 DCA Z31 03426 4551 JMS I [CONS 03427 3027 DCA Z27 03430 4772 JMS I (D71 03431 5600 JMP I GENSYM 03432 0000! N32, 0000 03433 0000 LOOK, 0000 03434 4261 JMS N61 03435 3241 DCA N41 03436 1031 TAD Z31 03437 4274 JMS N74 03440 3031 DCA Z31 03441 0000! N41, 0000 03442 1431 TAD I Z31 03443 3030 DCA NUMACC 03444 4556 N44, R156 03445 5633 JMP I LOOK 03446 1650 STOR, G50 03447 4261 N47, Q61 03450 3256 N50, M56 03451 1031 TAD Z31 03452 4274 JMS N74 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 42 03453 3031 DCA Z31 03454 1032 TAD Z32 03455 4274 JMS N74 03456 6201 N56, XA01 03457 3431 DCA I Z31 03460 5646 JMP I STOR 03461 3450 N61, N50 03462 6221 CDF 20 03463 1430 TAD I NUMACC 03464 0371 N64, A171 03465 7640 SZA CLA 03466 4560 JMS I [ERROR 03467 1430 TAD I NUMACC 03470 7106 CLL RTL 03471 7004 RAL 03472 1370 TAD (6201 03473 5661 JMP I N61 03474 3456 N74, N56 03475 3030 DCA NUMACC 03476 4573 JMS I [NUMBER 03477 7650 SNA CLA 03500 4560 JMS I [ERROR 03501 6221 CDF 20 03502 1430 TAD I NUMACC 03503 5674 JMP I N74 03504 0201! EXPR, A01 03505 4573 JMS I [NUMBER 03506 7650 SNA CLA 03507 4560 JMS I [ERROR 03510 6221 CDF 20 03511 1430 TAD I NUMACC 03512 3304 DCA EXPR 03513 1431 TAD I Z31 03514 5704 JMP I EXPR 03515 5447 JMP I BRANCH 03516 4343 JMS N143 03517 1176 TAD [L1400 03520 1035 TAD STRMEM 03521 3035 DCA STRMEM 03522 1056 TAD Z56 03523 0175 AND [TERPRI 03524 7650 SNA CLA 03525 5330 JMP .+3 03526 4542 JMS I [L64 03527 5172 JMP [L06 03530 1056 TAD Z56 03531 0157 AND [Z02 03532 7640 SZA CLA 03533 4343 JMS N143 03534 1034 N134, TAD Z34 03535 0155 AND [3 03536 1035 TAD STRMEM 03537 3034 DCA Z34 03540 1410 TAD I Z10 03541 3043 DCA Z43 03542 5443 JMP I Z43 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 43 03543 3534 N143, N134 03544 1035 TAD STRMEM 03545 7040 CMA 03546 0127 AND Z127 03547 7440 SZA 03550 5353 JMP .+3 03551 4542 JMS I [L64 03552 5151 JMP [CONS 03553 1035 TAD STRMEM 03554 3035 DCA STRMEM 03555 5743 JMP I N143 03556 3600 DCA I GENSYM 03557 3656 DCA I N56 03560 5435 JMP I STRMEM 03561 3644 DCA I N44 03562 3664 DCA I N64 03563 3664 DCA I N64 03564 3647 DCA I N47 03565 1373 TAD (Z01 03566 7650 SNA CLA 03567 6031 KSF 03570 6201 03571 7770 03572 1071 03573 0001 03574 0002 03575 0707 03576 1700 03577 0017 *3600 03600 7264! O00, CLA CMA CML RAL 03601 7746 O01, 7746 03602 7561 O02, SWP SCA 03603 0000! O03, 0000 03604 7600! O04, 7600 03605 0000 0000 03606 0017! O06, Z17 03607 3022 FEXP, DCA POINT 03610 4226 JMS O26 03611 1200 O11, DELIM 03612 3030 DCA NUMACC 03613 4556 JMS I [LO 03614 3032 DCA Z32 03615 1040 TAD Z40 03616 3030 DCA NUMACC 03617 4556 JMS I [LO 03620 3031 DCA Z31 03621 3040! O21, DCA Z40 03622 1032 TAD Z32 03623 3030 DCA NUMACC 03624 4551 JMS I [CONS 03625 5466 JMP I NEXT 03626 3611 O26, O11 03627 1037 TAD Z37 03630 3206 O30, 3206 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 44 03631 2040 2040 03632 7000 NOP 03633 1377 TAD (23 03634 3203 DCA O03 03635 6201 O35, CDF 0 03636 1603 TAD I O03 03637 3204 DCA O04 03640 4312 JMS O112 03641 1203 O41, E03 03642 1201 TAD O01 03643 2203 ISZ O03 03644 7640 SZA CLA 03645 5235 JMP O35 03646 1036 TAD ENDMEM 03647 7040 CMA 03650 1033 TAD Z33 03651 3203 DCA O03 03652 1033 TAD Z33 03653 3204 DCA O04 03654 3022 DCA POINT 03655 3200 DCA O00 03656 7330 O56, AC4000 03657 6231 CDF 30 03660 1604 TAD I O04 03661 3604 DCA I O04 03662 7430 SZL 03663 5275 JMP O75 03664 3604 DCA I O04 03665 6221 CDF 20 03666 3604 DCA I O04 03667 1022 TAD POINT 03670 6211 CDF 10 03671 3604 DCA I O04 03672 1204 TAD O04 03673 3022 DCA POINT 03674 2200 ISZ O00 03675 2204 O75, ISZ O04 03676 2203 ISZ O03 03677 5256 JMP O56 03700 1022 TAD POINT 03701 7640 SZA CLA 03702 5626 O102, JMP I O26 03703 1376 TAD (34 03704 1375 O104, TAD (43 03705 3020 DCA COUNT 03706 4774 JMS I (B00 03707 1020 TAD COUNT 03710 4565 JMS I [P133 03711 5773 JMP I (A45 03712 3641 O112, O41 03713 5330 JMP O130 03714 1206 O114, TAD O06 03715 7040 CMA 03716 1037 TAD Z37 03717 7450 SNA 03720 5712 JMP I O112 03721 7001 IAC /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 45 03722 7040 CMA 03723 1037 TAD Z37 03724 3206 DCA O06 03725 6231 CDF 30 03726 1606 TAD I O06 03727 3204 DCA O04 03730 1033 O130, TAD Z33 03731 7161 STL CIA 03732 1204 TAD O04 03733 7200 CLA 03734 6231 CDF 30 03735 1604 TAD I O04 03736 7730 SPA SZL CLA 03737 5314 JMP O114 03740 7330 AC4000 03741 1604 TAD I O04 03742 3604 DCA I O04 03743 1604 TAD I O04 03744 7006 RTL 03745 6211 CDF 10 03746 7710 SPA CLA 03747 5361 JMP O161 03750 1206 TAD O06 03751 1202 TAD O02 03752 7650 SNA CLA 03753 5304 JMP O104 03754 1604 TAD I O04 03755 6231 CDF 30 03756 3606 DCA I O06 03757 2206 ISZ O06 03760 6221 CDF 20 03761 1604 O161, TAD I O04 03762 3204 DCA O04 03763 5330 JMP O130 03764 0015 AND Z15 03765 5302 JMP O102 03766 5201 JMP O01 03767 0164 AND [Z04 03770 7601 CLA 03771 3601 DCA I O01 03772 3221 DCA O21 03773 0245 03774 0400 03775 0043 03776 0034 03777 0023 *4000 04000 0352 PRIN, A152 04001 4546 JMS I [ATOM 04002 7650 P02, SNA CLA 04003 5260 JMP P60 04004 4573 JMS I [NUMBER 04005 7640 P05, SZA CLA 04006 5777 JMP I (Q43 04007 6221 CDF 20 04010 1420 TAD I COUNT 04011 3021 DCA Z21 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 46 04012 3032 DCA Z32 04013 1021 TAD Z21 04014 3020 P14, DCA COUNT 04015 6211 CDF 10 04016 1420 TAD I COUNT 04017 2032 ISZ Z32 04020 7440 SZA 04021 2032 ISZ Z32 04022 7440 SZA 04023 5214 JMP P14 04024 1154 TAD [77 04025 7040 CMA 04026 6221 CDF 20 04027 0420 AND I COUNT 04030 7640 SZA CLA 04031 2032 ISZ Z32 04032 1032 TAD Z32 04033 4251 JMS P51 04034 1021 P34, TAD Z21 04035 7640 SZA CLA 04036 5242 JMP P42 04037 3032 DCA Z32 04040 1030 P40, TAD NUMACC 04041 5600 P41, JMP I PRIN 04042 6221 P42, CDF 20 04043 1421 TAD I Z21 04044 4776 JMS I (PACKED 04045 6211 CDF 10 04046 1421 TAD I Z21 04047 3021 DCA Z21 04050 5234 JMP P34 04051 4034 P51, P34 04052 1043 TAD Z43 04053 3043 DCA Z43 04054 1043 TAD Z43 04055 7700 SMA CLA 04056 4575 JMS I [TERPRI 04057 5651 P57, JMP I P51 04060 1200 P60, TAD PRIN 04061 4561 JMS I [L00 04062 1030 TAD NUMACC 04063 4572 JMS I [L06 04064 1375 TAD (50 04065 4565 JMS I [P133 04066 1030 TAD NUMACC 04067 4305 P67, JMS P105 04070 7640 SZA CLA 04071 5275 JMP P75 04072 4200 P72, JMS PRIN 04073 4577 JMS I [L3030 04074 5267 JMP P67 04075 4200 P75, JMS PRIN 04076 4577 JMS I [L3030 04077 4305 JMS P105 04100 7650 P100, SNA CLA 04101 5272 JMP P72 04102 1166 TAD [P40 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 47 04103 4565 JMS I [P133 04104 5275 JMP P75 04105 4100 P105, P100 04106 7450 SNA 04107 5327 JMP P127 04110 3030 DCA NUMACC 04111 4546 JMS I [ATOM 04112 7640 SZA CLA 04113 5324 JMP P124 04114 6211 CDF 10 04115 1430 TAD I NUMACC 04116 4572 JMS I [L06 04117 6221 CDF 20 04120 1430 TAD I NUMACC 04121 3030 DCA NUMACC 04122 4546 JMS I [ATOM 04123 5705 JMP I P105 04124 1374 P124, TAD (56 04125 4565 JMS I [P133 04126 4200 JMS PRIN 04127 7201 P127, CLA IAC 04130 1375 TAD (50 04131 4565 JMS I [P133 04132 5060 JMP Z60 04133 0351 P133, A151 04134 7002 BSW 04135 2043 ISZ Z43 04136 5347 JMP P147 04137 3021 DCA Z21 04140 4575 JMS I [TERPRI 04141 1021 TAD Z21 04142 1373 TAD (3740 04143 7650 SNA CLA 04144 5733 JMP I P133 04145 2043 ISZ Z43 04146 1021 TAD Z21 04147 4776 P147, JMS I (PACKED 04150 5733 JMP I P133 04151 0257 TERPRI, A57 04152 1045 P152, TAD Z45 04153 3043 DCA Z43 04154 1372 TAD (4015 04155 4776 JMS I (PACKED 04156 1371 TAD (4012 04157 4776 JMS I (PACKED 04160 5751 P160, JMP I TERPRI 04161 0000 0000 04162 0000 0000 04163 0000 0000 04164 0000 0000 04165 0000 0000 04166 0000 0000 04167 0000 0000 04170 0000 0000 04171 4012 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 50 04172 4015 04173 3740 04174 0056 04175 0050 04176 4326 04177 4243 *4200 04200 4200 Q00, JMS Q00 04201 1000 TAD NIL 04202 0100 AND Z100 04203 0010 AND Z10 04204 0000 0000 04205 4205 Q05, JMS Q05 04206 1750! Q06, TAD I Q150 04207 0144 AND [GET 04210 0012 AND Z12 04211 0000 0000 04212 0000 RADIX, 0000 04213 6221 CDF 20 04214 1430 TAD I NUMACC 04215 6201 CDF 0 04216 7650 SNA CLA 04217 5231 JMP Q31 04220 1200 TAD Q00 04221 3242 DCA Q42 04222 1377 TAD (7000 04223 3776 DCA I (C57 04224 1377 TAD (7000 04225 3246 DCA Q46 04226 1375 TAD (4560 04227 3774 DCA I (C37 04230 5612 JMP I RADIX 04231 1205 Q31, TAD Q05 04232 3242 DCA Q42 04233 1373 TAD (1030 04234 3776 DCA I (C57 04235 1372 TAD (7141 04236 3246 DCA Q46 04237 1377 TAD (7000 04240 3774 DCA I (C37 04241 5612 JMP I RADIX 04242 4200! Q42, Q00 04243 6221 Q43, CDF 20 04244 1430 TAD I NUMACC 04245 7510 SPA 04246 7000! Q46, NOP 04247 3021 DCA Z21 04250 6201 CDF 0 04251 1642 TAD I Q42 04252 3027 DCA Z27 04253 7420 SNL 04254 1371 TAD (55 04255 3364 DCA Q164 04256 3031 DCA Z31 04257 7430 SZL 04260 2031 Q60, ISZ Z31 04261 2027! Q61, ISZ Z27 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 51 04262 6201 CDF 0 04263 1427 TAD I Z27 04264 7141 CLL CIA 04265 1021 TAD Z21 04266 7620 SNL CLA 04267 5260 JMP Q60 04270 1031 TAD Z31 04271 7041 CIA 04272 1150 TAD [5 04273 4770 JMS I (P51 04274 1364 Q74, TAD Q164 04275 7002 BSW 04276 4326 JMS PACKED 04277 1367 TAD (57 04300 3364 DCA Q164 04301 2364 Q101, ISZ Q164 04302 6201 CDF 0 04303 1427 TAD I Z27 04304 7450 SNA 04305 5316 JMP Q116 04306 7161 STL CIA 04307 1021 TAD Z21 04310 7420 SNL 04311 3021 DCA Z21 04312 7620 SNL CLA 04313 5301 JMP Q101 04314 2027 ISZ Z27 04315 5274 JMP Q74 04316 1021 Q116, TAD Z21 04317 1364 TAD Q164 04320 7002 BSW 04321 4326 JMS PACKED 04322 3031 DCA Z31 04323 3027 DCA Z27 04324 1030 TAD NUMACC 04325 5766 JMP I (P41 04326 4160 PACKED, P160 04327 7002 BSW 04330 3363 Q130, DCA Q163 04331 1363 TAD Q163 04332 0154 AND [77 04333 7450 SNA 04334 5726 JMP I PACKED 04335 3020 DCA COUNT 04336 1154 TAD [77 04337 1362 TAD Q162 04340 7171 STL CIA RAR 04341 1020 TAD COUNT 04342 7640 SZA CLA 04343 5347 JMP Q147 04344 7420 SNL 04345 5354 JMP Q154 04346 7020 CML 04347 7005 Q147, IAC RAL 04350 7002 Q150, XD02 04351 1020 TAD COUNT 04352 4547 JMS I [TTYOUT /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 52 04353 7240 CLA CMA 04354 7001 Q154, IAC 04355 3362 DCA Q162 04356 1363 TAD Q163 04357 7002 BSW 04360 0154 AND [77 04361 5330 JMP Q130 04362 0000! Q162, 0000 04363 0000! Q163, 0000 04364 0060! Q164, AND Z60 04365 0000 0000 04366 4041 04367 0057 04370 4051 04371 0055 04372 7141 04373 1030 04374 0637 04375 4560 04376 0657 04377 7000 *4400 04400 0000! FILEIN, 0000 04401 1221 TAD R21 04402 3313 DCA R113 04403 1377 TAD (7201 04404 3267 DCA R67 04405 1376 TAD (4464 04406 3010 DCA Z10 04407 6221 CDF 20 04410 4306 JMS R106 04411 4306 JMS R106 04412 4260 JMS R60 04413 1375 TAD (4453 04414 3010 DCA Z10 04415 4272 JMS R72 04416 1374 TAD (4454 04417 3225 DCA R25 04420 1266 TAD R66 04421 6201 R21, CDF 0 04422 6212 CIF 10 04423 4773 JMS I (7700 04424 0002 0002 /LOOKUP 04425 4454! R25, R54 04426 0000! R26, 0000 04427 4535 JMS I [B156 04430 1225 TAD R25 04431 6211 CDF 10 04432 3772 DCA I (7620 04433 1226 TAD R26 04434 7106 CLL RTL 04435 7006 RTL 04436 0371 AND (7760 04437 3226 DCA R26 04440 1370 R40, E170 04441 6201 CDF 0 04442 3767 DCA I (T15 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 53 04443 1266 TAD R66 04444 0366 AND (17 04445 1226 TAD R26 04446 6211 CDF 10 04447 3765 DCA I (7617 04450 1364 R50, TAD (5242 04451 6201 CDF 0 04452 3763 DCA I (B35 04453 5600 JMP I FILEIN 04454 0000 R54, 0000 04455 0000 0000 04456 0000 0000 04457 0000 0000 04460 0000 R60, 0000 04461 6201 CDF 0 04462 6212 CIF 10 04463 4773 JMS I (7700 04464 0001 0001 /FETCH 04465 0000 0000 04466 0000 R66, 0000 04467 0000! R67, 0000 04470 4535 JMS I [B156 04471 5660 JMP I R60 04472 0000 R72, 0000 04473 1031 TAD Z31 04474 3030 DCA NUMACC 04475 6221 CDF 20 04476 4306 JMS R106 04477 4306 JMS R106 04500 4306 JMS R106 04501 1032 TAD Z32 04502 3030 DCA NUMACC 04503 6221 CDF 20 04504 4306 JMS R106 04505 5672 JMP I R72 04506 0000 R106, 0000 04507 1430 TAD I NUMACC 04510 3030 DCA NUMACC 04511 6221 CDF 20 04512 1430 TAD I NUMACC 04513 6211! R113, CDF 10 04514 3410 DCA I Z10 04515 6211 R115, CDF 10 04516 5706 JMP I R106 04517 0000 FILEOU, 0000 04520 1317 TAD FILEOU 04521 3200 DCA FILEIN 04522 1221 TAD R21 04523 3313 DCA R113 04524 1362 TAD (6601 04525 3267 DCA R67 04526 1376 TAD (4464 04527 3010 DCA Z10 04530 6221 CDF 20 04531 4306 JMS R106 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 54 04532 4306 JMS R106 04533 4260 JMS R60 04534 1361 TAD (7600 04535 3010 DCA Z10 04536 1315! R136, TAD R115 04537 3313 R137, DCA R113 04540 4272 JMS R72 04541 1266 R141, E66 04542 0366 R142, AND (17 04543 6211 CDF 10 04544 3761 DCA I (7600 04545 5250 JMP R50 04546 1027 TAD Z27 04547 1030 TAD NUMACC 04550 7120 STL 04551 2032 ISZ Z32 04552 4525 JMS I Z125 04553 7200 CLA 04554 3032 DCA Z32 04555 5741 JMP I R141 04556 0000! R156, 0000 04557 4640 JMS I R40 04560 2336 ISZ R136 04561 7600 04562 6601 04563 0435 04564 5242 04565 7617 04566 0017 04567 5015 04570 7616 04571 7760 04572 7620 04573 7700 04574 4454 04575 4453 04576 4464 04577 7201 *5000 05000 0000! T00, 0000 05001 4777 JMS I (MAKCDF 05002 3220 DCA T20 05003 1600 TAD I T00 05004 2200 ISZ T00 05005 3215 DCA T15 05006 6224 RIF 05007 1376 TAD (6201 05010 4775 JMS I (SETCDF 05011 4775 JMS I (SETCDF 05012 6212 CIF 10 05013 4774 JMS I (7700 05014 0005 0005 /CD 05015 0000! T15, 0000 05016 1373 TAD (7616 05017 3215 DCA T15 05020 0000! T20, 0000 05021 5600 JMP I T00 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 55 05022 0000! T22, 0000 05023 7450 SNA 05024 5230 JMP T30 05025 7104 CLL RAL 05026 1372 TAD (7614 05027 3215 DCA T15 05030 4777 T30, JMS I (MAKCDF 05031 3256 DCA T56 05032 1371 TAD (7201 05033 3245 DCA T45 05034 6211 CDF 10 05035 2215 ISZ T15 05036 1615 TAD I T15 05037 7450 SNA 05040 5256 JMP T56 05041 4775 JMS I (SETCDF 05042 6212 CIF 10 05043 4774 JMS I (7700 05044 0001 0001 /FETCH 05045 7201! T45, XE01 05046 5260 JMP T60 05047 2215 ISZ T15 05050 6211 CDF 10 05051 1615 TAD I T15 05052 3273 DCA T73 05053 1370 TAD (5066 05054 3326 DCA T126 05055 2222 ISZ T22 05056 0000! T56, 0000 05057 5622 JMP I T22 05060 7130 T60, STL RAR 05061 5256 JMP T56 05062 0000! T62, 0000 05063 4777 JMS I (MAKCDF 05064 3336 DCA T136 05065 5726 JMP I T126 05066 4775 T66, JMS I (SETCDF 05067 6202 CIF 0 05070 4645 JMS I T45 05071 0200 AND T00 05072 6200 T72, 6200 05073 0000! T73, 0000 05074 7500 SMA 05075 7610 SKP CLA 05076 5336 JMP T136 05077 1367 TAD (7600 05100 3220 DCA T20 05101 1272 TAD T72 05102 3222 DCA T22 05103 1273 TAD T73 05104 1366 TAD (1 05105 3273 DCA T73 05106 6201 T106, CDF 0 05107 1622 TAD I T22 05110 4326 JMS T126 05111 6201 CDF 0 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 56 05112 1622 TAD I T22 05113 4326 JMS T126 05114 7146 CLL CMA RTL 05115 1222 TAD T22 05116 3222 DCA T22 05117 4340 JMS T140 05120 4340 JMS T140 05121 7004 RAL 05122 4326 JMS T126 05123 2220 ISZ T20 05124 5306 JMP T106 05125 5266 JMP T66 05126 0000! T126, 0000 05127 0365 AND (377 05130 1364 TAD (7546 05131 7450 SNA 05132 5336 JMP T136 05133 1363 TAD (232 05134 2222 ISZ T22 05135 2262 ISZ T62 05136 0000! T136, 0000 05137 5662 JMP I T62 05140 0000 T140, 0000 05141 3326 DCA T126 05142 6201 CDF 0 05143 2222 ISZ T22 05144 1622 TAD I T22 05145 0362 AND (7400 05146 1326! T146, E126 05147 7006 RTL 05150 7006 RTL 05151 5740 JMP I T140 05152 5746 JMP I T146 05153 2346 ISZ T146 05154 5746 JMP I T146 05155 3025 DCA Z25 05156 1040 TAD Z40 05157 1366 TAD (1 05160 7100 CLL 05161 1365 TAD (377 05162 7400 05163 0232 05164 7546 05165 0377 05166 0001 05167 7600 05170 5066 05171 7201 05172 7614 05173 7616 05174 7700 05175 5525 05176 6201 05177 5530 *5200 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 57 05200 0000! U00, 0000 05201 1235 TAD U35 05202 7041 CIA 05203 1357 TAD U157 05204 1377 TAD (177 05205 0376 AND (7600 05206 7110 CLL RAR 05207 3234 DCA U34 05210 1234 TAD U34 05211 7112 CLL RTR 05212 7012 RTR 05213 7012 RTR 05214 7450 SNA 05215 5243 U15, JMP U43 05216 7001 IAC 05217 7010 RAR 05220 1272 TAD U72 05221 3272 DCA U72 05222 7100 CLL 05223 1775 TAD I (V61 05224 1272 TAD U72 05225 7630 SZL CLA 05226 5245 JMP U45 05227 1234 TAD U34 05230 1374 TAD (4000 05231 3234 DCA U34 05232 6202 CIF 0 05233 4647 JMS I U47 05234 0000! U34, 0000 05235 5600 U35, JMP I U00 05236 0000! U36, 0000 05237 5245 JMP U45 05240 1236 TAD U36 05241 1373 TAD (1 05242 4772 JMS I (V106 05243 2200 U43, ISZ U00 05244 5600 JMP I U00 05245 7330 U45, AC4000 05246 5600 JMP I U00 05247 0000! U47, 0000 05250 0000! U50, 0000 05251 4771 JMS I (MAKCDF 05252 3276 DCA U76 05253 4770 JMS I (SETCDF 05254 1367 TAD (232 05255 4303 U55, JMS U103 05256 5276 JMP U76 05257 1302 TAD U102 05260 0366 AND (77 05261 7640 SZA CLA 05262 5255 JMP U55 05263 4200 U63, JMS U00 05264 5276 JMP U76 05265 1765 TAD I (V115 05266 6212 CIF 10 05267 4764 JMS I (7700 05270 0004 0004 /CLOSE /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 60 05271 5516 5516 05272 0000! U72, 0000 05273 5300 JMP U100 05274 3763 DCA I (V124 05275 2250 ISZ U50 05276 0000! U76, 0000 05277 5650 JMP I U50 05300 7130 U100, STL RAR 05301 5276 JMP U76 05302 0000! U102, 0000 05303 0000! U103, 0000 05304 0362 AND (377 05305 3234 DCA U34 05306 4771 JMS I (MAKCDF 05307 3331 DCA U131 05310 5730 JMP I U130 05311 2303 U111, ISZ U103 05312 4330 U112, JMS U130 05313 4333 JMS U133 05314 4333 JMS U133 05315 7144 CLL CMA RAL 05316 1357 TAD U157 05317 3357 DCA U157 05320 4343 JMS U143 05321 4343 JMS U143 05322 2302 ISZ U102 05323 5311 JMP U111 05324 4770 JMS I (SETCDF 05325 4200 JMS U00 05326 5761 JMP I (V00 05327 5311 JMP U111 05330 0000! U130, 0000 05331 0000! U131, 0000 05332 5703 JMP I U103 05333 0000 U133, 0000 05334 1234 TAD U34 05335 6201 CDF 0 05336 3757 DCA I U157 05337 2357 ISZ U157 05340 2303 ISZ U103 05341 4330 JMS U130 05342 5733 JMP I U133 05343 0000 U143, 0000 05344 1234 TAD U34 05345 7106 CLL RTL 05346 7006 RTL 05347 3234 DCA U34 05350 1234 TAD U34 05351 0360 AND (7400 05352 6201 CDF 0 05353 1757 TAD I U157 05354 3757 DCA I U157 05355 2357 ISZ U157 05356 5743 JMP I U143 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 61 05357 0000! U157, 0000 05360 7400 05361 5400 05362 0377 05363 5524 05364 7700 05365 5515 05366 0077 05367 0232 05370 5525 05371 5530 05372 5506 05373 0001 05374 4000 05375 5461 05376 7600 05377 0177 *5400 05400 7200 V00, CLA 05401 3324 DCA V124 05402 7130 STL RAR 05403 5777 JMP I (U112 05404 0000! V04, 0000 05405 3246 V05, DCA V46 05406 4330 JMS MAKCDF 05407 3273 DCA V73 05410 1324 TAD V124 05411 7640 SZA CLA 05412 5272 JMP V72 05413 1246 TAD V46 05414 7106 CLL RTL 05415 1246 TAD V46 05416 1376 TAD (7600 05417 3322 DCA V122 05420 1604 TAD I V04 05421 3246 DCA V46 05422 1375 TAD (5515 05423 3323 DCA V123 05424 4276 JMS V76 05425 4276 JMS V76 05426 4276 JMS V76 05427 4276 JMS V76 05430 4276 JMS V76 05431 1321 TAD V121 05432 7450 SNA 05433 1246 TAD V46 05434 3321 DCA V121 05435 1374 TAD (6601 05436 3246 DCA V46 05437 1315 TAD V115 05440 0373 AND (17 05441 7450 SNA 05442 5273 V42, JMP V73 05443 6212 CIF 10 05444 4772 JMS I (7700 05445 0001 0001 /FETCH /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 62 05446 6601! V46, XC01 05447 5272 JMP V72 05450 1246 TAD V46 05451 3771 DCA I (U47 05452 1370 TAD (5516 05453 3260 DCA V60 05454 1315 TAD V115 05455 6212 CIF 10 05456 4772 JMS I (7700 05457 0003 0003 /ENTER 05460 5516! V60, V116 05461 0000 V61, 0000 05462 5272 JMP V72 05463 2324 ISZ V124 05464 1260 TAD V60 05465 4306 JMS V106 05466 1367 TAD (5313 05467 3766 DCA I (U130 05470 2204 ISZ V04 05471 7410 SKP 05472 7330 V72, AC4000 05473 0000! V73, 0000 05474 2204 ISZ V04 05475 5604 JMP I V04 05476 0000 V76, 0000 05477 6211 CDF 10 05500 1722 TAD I V122 05501 4325 JMS SETCDF 05502 3723 DCA I V123 05503 2322 ISZ V122 05504 2323 ISZ V123 05505 5676 JMP I V76 05506 0000 V106, 0000 05507 3765 DCA I (U36 05510 1376 TAD (7600 05511 3764 DCA I (U102 05512 1763 TAD I (U35 05513 3762 DCA I (U157 05514 5706 JMP I V106 05515 0000 V115, 0000 05516 0000 V116, 0000 05517 0000 0000 05520 0000 0000 05521 0000! V121, 0000 05522 0000! V122, 0000 05523 0000! V123, 0000 05524 0000! V124, 0000 05525 0242 SETCDF, A42 05526 6201 V126, CDF 0 05527 5725 JMP I SETCDF 05530 0000 MAKCDF, 0000 05531 7200 CLA 05532 6214 RDF 05533 1361 TAD (6203 /DEASS AB-WW-V0030 LIST.DC 06/11/70 PAGE 63 05534 5730 JMP I MAKCDF 05535 7240 CLA CMA 05536 3036 DCA ENDMEM 05537 4574 JMS I [READT 05540 1040 TAD Z40 05541 7700 SMA CLA 05542 5326 JMP V126 05543 4535 JMS I [B156 05544 5577 JMP I [L3030 05545 1051 TAD Z51 05546 5205 JMP V05 05547 0441! V147, B41 05550 4564 JMS I [Z04 05551 1040 TAD Z40 05552 1107 TAD Z107 05553 7650 SNA CLA 05554 5747 JMP I V147 05555 1040 TAD Z40 05556 7700 SMA CLA 05557 2347 ISZ V147 05560 5747 JMP I V147 05561 6203 05562 5357 05563 5235 05564 5302 05565 5236 05566 5330 05567 5313 05570 5516 05571 5247 05572 7700 05573 0017 05574 6601 05575 5515 05576 7600 05577 5312 $$$$$$$$$$$$$$$$