------------------------------------------------------------------------------ LINC SPACE WAR, A. J. Hance, April 1965 ------------------------------------------------------------------------------ Notes: The original listing is represented in Pass 1. This listing consists of two parts: the listing proper on the left and annotations on the right. These annotations are not part of the actual listing, but were amendments to the original printout by AJH using a typewriter and pen (for spaceship outlines and range brackets). All numbers in the printout are octal. Decimal numbers in the annotations are suffixed by "(10)" (subscripts in the original). Underlined text in the annotations are represented by surrounding underscores. Blank lines represent page breaks in the original printout. Program start at 0020 (line 5, "@" = LINC keyboard code 065 SQUARED MINUS). Pass 2 is formatted similar to what it would have looked like as a LAP IV manuscript printout. The resulting object code would have occupied two blocks on magnetic tape, to be loaded into the first two "quarters" (256 words each) of memory. Source transliteration and assembly: Norbert Landsteiner, April 2021 ------------------------------------------------------------------------------ .Pass 1 0001 [SPACE WAR. [SPACE WAR. 0002 [VERSION OF 0003 [APR.1965 0004 [AJH LINC 0005 @20 0020 0006 SETi6 /make sure that both missiles are 0021 0007 7777 inactive 0022 0010 SETi7 0023 0011 7777 0024 0012 SAM 0 /interrogate knob 0 for _L_eft 0025 0013 SCR 3 vehicle X direction and velocity 0026 0014 STA (X increment) 0027 0015 7M 0030 0016 ADD 6M /obtain new X coordinate for L 0031 0017 BCLi vehicle from old coordinate plus 0032 0020 7000 X increment. Clear leftmost 0033 0021 STC 6M 3 bits to keep vehicle one 0034 0022 SAM 1 plane of hyperspace 0035 0023 SCR 3 /knob 1 gives Y direction and 0036 0024 STA increment for L vehicle 0037 0025 7N (Y increment) 0040 0026 ADD 6N /derive new Y coordinate for L 0041 0027 BCLi vehicle 0042 0030 7000 0043 0031 STC 6N 0044 0032 SAM 6 /knob 6 gives X increment for 0045 0033 SCR 3 _R_ight vehicle 0046 0034 STA 0047 0035 7O 0050 0036 ADD 6O /derive new X coordinate for R 0051 0037 BCLi vehicle 0052 0040 7000 0053 0041 STC 6O 0054 0042 SAM 7 /knob 7 gives Y increment for 0055 0043 SCR 3 R vehicle 0056 0044 STA 0057 0045 7P 0060 0046 ADD 6P /derive new Y coordinate for R 0061 0047 BCLi vehicle 0062 0050 7000 0063 0051 STC 6P 0064 0052 SETi1 /parameters for display routine 0065 0053 #6M 200 /L vehicle, X coordinate 0066 0054 SETi2 0067 0055 #6N 0 /L vehicle, Y coordinate 0070 0056 SETi4 0071 0057 #7M 0 /L vehicle, X increment 0072 0060 SETi5 0073 0061 #7N 0 /L vehicle, Y increment 0074 0062 #5A JMP 7I /jump to _vehicle display_ 0075 0063 SETi1 0076 0064 #6O 600 /R vehicle, X coordinate 0077 0065 SETi2 0100 0066 #6P 0 /R vehicle, Y coordinate 0101 0067 SETi4 0102 0070 #7O 0 /R vehicle, X increment 0103 0071 SETi5 0104 0072 #7P 0 /R vehicle, Y increment 0105 0073 #5B JMP 7I /jump to _vehicle display_ 0106 0074 XSK 6 /is L missile in flight? 0107 0075 #5C JMP 7W /yes, jump to _display L missile_ 0110 0076 XSK 7 /is R missile in flight? 0111 0077 #5D JMP 7X /yes, jump to _display R missile_ 0112 0100 SNSi5 [SPACE WAR. 0113 0101 #5E JMP 7U /launch L missile if sense switch 0114 0102 SNSi0 5 is up 0115 0103 #5F JMP 7V /launch R missile if sense switch 0116 0104 JMP 6X 0 is up 0105 [LAUNCH MIS /jump to _check coincidence_ 0117 0106 #7U LDA /launch L missile at twice X 0120 0107 7M velocity of L vehicle (i.e. 0121 0110 ROL 1 missile increment is twice that 0122 0111 STC 7O of vehicle at time of launch) 0123 0112 ADD 6M 0124 0113 STAi 0125 0114 #4L 0 /X coordinate of vehicle (or L 0126 0115 STC 11 missile) at time of launch 0127 0116 ADD 7N /L missile Y velocity (increment) 0130 0117 ROL 1 twice that of L vehicle at time 0131 0120 STC 7R of launch 0132 0121 ADDi 0133 0122 STAi 0134 0123 #4M 0 /Y coordinate of launch point of 0135 0124 STC 6R L missile 0136 0125 SETi6 /set timer for missile life of 0137 0126 7500 191(10) display cycles 0140 0127 JMP 0 /return jump 0141 0130 #7V LDA /launch R missile at twice X 0142 0131 7O increment of R vehicle 0143 0132 ROL 1 0144 0133 STC 7S 0145 0134 ADD 6O 0146 0135 STAi 0147 0136 #4R 0 /X coordinate of R missile launch 0150 0137 STC 12 point 0151 0140 ADD 7P /R missile Y increment is twice 0152 0141 ROL 1 that of R vehicle 0153 0142 STC 7T 0154 0143 ADD 6P 0155 0144 STAi 0156 0145 #4S 0 /Y coordinate of R missile launch 0157 0146 STC 6T point 0160 0147 SETi7 /set timer for R missile life 0161 0150 7500 0162 0151 JMP 0 /return jump 0152 [DISPLAY MIS 0163 0153 #7W LDAi DISPLAY L MISSILE 0164 0154 #7Q 0 /L missile increment plus old 0165 0155 ADD 11 coordinate given new L missile 0166 0156 BCLi X coordinate 0167 0157 7000 0170 0160 STC 11 /L missile X coordinate in reg.11 0171 0161 LDAi /L missile increment plus old 0172 0162 #7R 0 coordinate give L missile 0173 0163 ADD 6R Y coordinate 0174 0164 BCLi 0175 0165 7000 0176 0166 STAi 0177 0167 #6R 0 /L missile Y coordinate 0200 0170 DIS 11 /display 0201 0171 LDAi6 /index life counter 0202 0172 JMP 0 /return jump 0203 0173 #7X LDAi DISPLAY R MISSILE 0204 0174 #7S 0 /R missile increment plus old 0205 0175 ADD 12 coordinate given new R missile 0206 0176 BCLi X coordinate 0207 0177 7000 0210 0200 STC 12 [SPACE WAR. 0211 0201 LDAi /R missile X coordinate in reg.12 0212 0202 #7T 0 /R missile increment plus old 0213 0203 ADD 6T coordinate given new R missile 0214 0204 BCLi Y coordinate 0215 0205 7000 0216 0206 STAi 0217 0207 #6T 0 /R missile Y coordinate 0220 0210 DIS 12 /display 0221 0211 LDAi7 /index life counter 0222 0212 JMP 0 /return jump 0213 [DISPL VEHICLE VEHICLE DISPLAY 0223 0214 #7I SET 10 /store return jump in reg.10 0224 0215 0 0225 0216 LDA /X increment to accumulator 0226 0217 4 0227 0220 AZEi 0230 0221 JMP 7J /if zero, vehicle is perpendicular 0231 0222 APO 0232 0223 JMP 7K /if negative, vehicle points left 0233 0224 LDA /if positive, vehicle points right 0234 0225 5 /pointing right.Check Y increment 0235 0226 AZEi 0236 0227 JMP 6D /if zero, points horizontally R 0237 0230 APO 0240 0231 JMP 6H /if neg., points down and R 0241 0232 JMP 6G /if pos., points up and R 0242 0233 #7K LDA /pointing left.Check Y increment 0243 0234 5 0244 0235 AZEi /if zero, points horizontally L 0245 0236 JMP 6C 0246 0237 APO 0247 0240 JMP 6F /if neg., points down and L 0250 0241 JMP 6E /if pos., points up and L 0251 0242 #7J LDA /perpendicular. Check Y increment 0252 0243 5 0253 0244 AZE 0254 0245 APOi /if zero or pos.,points perpendic- 0255 0246 JMP 6A ularly up 0256 0247 JMP 6B /if neg. points perpendic. up 0257 0250 #6A SETi3 0260 0251 7A /entry for perpendic. up 0261 0252 JMP 7L 0262 0253 #6B SETi3 0263 0254 7B /entry for perpendic.down 0264 0255 JMP 7L 0265 0256 #6C SETi3 0266 0257 7C /entry for horiz. left 0267 0260 JMP 7L 0270 0261 #6D SETi3 0271 0262 7D /entry for horiz. right 0272 0263 JMP 7L 0273 0264 #6E SETi3 0274 0265 7E /entry for pointing L and up 0275 0266 JMP 7L 0276 0267 #6F SETi3 0277 0270 7F /entry for pointing L and down 0300 0271 JMP 7L 0301 0272 #6G SETi3 0302 0273 7G /entry for pointing R and up 0303 0274 JMP 7L 0304 0275 #6H SETi3 0305 0276 7H /entry for pointing R and down 0306 0277 JMP 7L 0307 0300 #7L LDAi [SPACE WAR. 0310 0301 -14 /begin display of appropriate 0311 0302 ADM matrix. Reg. 3 points to matrix 0312 0303 1 array to be used 0313 0304 LDAi /X axis left edge coordinate to 0314 0305 14 register 1 0315 0306 ADD 2 /Y coordinate from reg.2 0316 0307 SRO 3 /reg.3 points to 12-bit matrices 0317 0310 JMP p+3 in vehicle display arrays 0320 0311 DISi1 /display 0321 0312 JMP p+2 0322 0313 XSKi1 /increment X axis by 2 for each 0323 0314 XSKi1 point 0324 0315 NOP 0325 0316 SROi 0326 0317 3777 /repeat 12 times for one line of 0327 0320 JMP p-11 matrix 0330 0321 ADAi 0331 0322 -2 /decrement Y axis by 2 0332 0323 STC 2 0333 0324 LDAi /reset X axis to left edge 0334 0325 -30 0335 0326 ADM 0336 0327 1 0337 0330 XSKi3 /index to next line (12 bits) of 0340 0331 CLR display 0341 0332 SROi 0342 0333 3777 /repeat for 12 lines in matrix 0343 0334 JMP p-26 0344 0335 JMP 10 /return jump 0336 [MATRICES MATRICES FOR VEHICLES IN VARIOUS 0345 0337 #7A 7677 ----+ POSITIONS 0346 0340 7437 | 0347 0341 7017 |--- /perpendicular & up 0350 0342 7017 | 0351 0343 7017 | /\ 0352 0344 7017 | | | 0353 0345 7017 | +--+ 0354 0346 7017 | || 0355 0347 7017 | 0356 0350 #7B 7537 --+ | 0357 0351 7537 | | 0360 0352 7537 --|-+ 0361 0353 7017 | 0362 0354 7017 | 0363 0355 7017 |----- /perpendicular & down 0364 0356 7017 | 0365 0357 7017 | || 0366 0360 7017 | +--+ 0367 0361 7017 | | | 0370 0362 7437 | \/ 0371 0363 7677 --+ 0372 0364 #7D 7777 ----+ 0373 0365 7777 | 0374 0366 7777 | 0375 0367 6007 | 0376 0370 4000 | 0377 0371 0007 |--- /horizontal, pointing right 0400 0372 4000 | 0401 0373 6007 | +--- 0402 0374 #7C 7777 --+ | --| \ 0403 0375 7777 | | --| / 0404 0376 7777 | | +--- 0405 0377 7777 --|-+ 0406 0400 7003 | [SPACE WAR. 0407 0401 0001 | 0410 0402 7000 |----- /horizontal, pointing left 0411 0403 0001 | 0412 0404 7003 | ---+ 0413 0405 7777 | / |-- 0414 0406 #7G 7777 --|-+ \ |-- 0415 0407 7777 --+ | ---+ 0416 0410 6077 | 0417 0411 6037 | 0420 0412 6017 |--- /pointing right and up 0421 0413 6007 | ___ 0422 0414 7003 | / | 0423 0415 7407 | / | 0424 0416 7613 | \ | 0425 0417 7725 | /\ / 0426 0420 7772 | /\/ 0427 0421 #7H 7775 --+-+ 0430 0422 7772 | 0431 0423 7725 | 0432 0424 7613 | 0433 0425 7407 |----- /pointing right and down 0434 0426 7003 | 0435 0427 6007 | \/\ 0436 0430 6017 | \/ \ 0437 0431 6037 | / | 0440 0432 6077 | \ | 0441 0433 #7E 7777 --|-+ \___| 0442 0434 7777 --+ | 0443 0435 7703 | 0444 0436 7603 | 0445 0437 7403 |--- /pointing left and up 0446 0440 7003 | ___ 0447 0441 6007 | | \ 0450 0442 7017 | | \ 0451 0443 6437 | | / 0452 0444 5277 | \ /\ 0453 0445 2777 | \/\ 0454 0446 #7F 5777 --+-+ 0455 0447 2777 | 0456 0450 5277 | 0457 0451 6437 | 0460 0452 7017 |----- /pointing left and down 0461 0453 6007 | 0462 0454 7003 | /\/ 0463 0455 7403 | / \/ 0464 0456 7603 | | \ 0465 0457 7703 | | / 0466 0460 7777 | |___/ 0467 0461 7777 --+ 0470 0462 #5Z SETi4 EXPLOSION DISPLAY 0471 0463 -200 0472 0464 SETi3 /reg. 3 points to matrix array 0473 0465 6Z 0474 0466 SETi10 /set up return jump in reg.10 0475 0467 6000+5N 0476 0470 JMP 7L /jump to part of vehicle display 0477 0471 #5N LDAi 0500 0472 14 0501 0473 ADM /reset Y axis 0502 0474 2 0503 0475 LDAi 0504 0476 14 0505 0477 ADM /reset X axis 0506 0500 1 [SPACE WAR. 0507 0501 XSKi4 0510 0502 JMP 5Z+2 /repeat explosion display 128(10) 0511 0503 LDAi times 0512 0504 6024 0513 0505 STA /replace entries to explosion 0514 0506 6X display and coincidence check 0515 0507 STC 5Z with a recycling jump 0516 0510 JMP 24 /return to next display cycle 0517 0511 #6Z 7637 --- MATRIX FOR EXPLOSION 0520 0512 5635 0521 0513 6633 0522 0514 7007 0523 0515 7007 0524 0516 0000 0525 0517 0000 0526 0520 7007 0527 0521 7007 0530 0522 6633 0531 0523 5635 0532 0524 7637 ---- 0533 0525 #6X XSK 6 CHECK COINCIDENCE 0534 0526 JMP p+2 /is left missile in flight? 0535 0527 JMP 4A /no, go check right missile 0536 0530 LDA /yes, is L missile armed?(i.e. 0537 0531 4L has it left the vicinity of the 0540 0532 ADD 4M launching point?) 0541 0533 COM 0542 0534 ADD 6M 0543 0535 ADD 6N 0544 0536 JMP 7Y /jump to fuse criterion 0545 0537 AZEi 0546 0540 JMP 4A /L missile is inactive, go check 0547 0541 LDA R missile 0550 0542 6M /check for X axis coincidence of 0551 0543 COM L missile and L vehicle 0552 0544 ADD 11 0553 0545 JMP 7Z /jump to proximity criterion 0554 0546 AZE 0555 0547 JMP 4B /L missile and L vehicle not 0556 0550 LDA coincident.Go check L missile & 0557 0551 6N R vehicle 0560 0552 COM /X axes coincident, check Y axis 0561 0553 ADD 6R coincidence of L missile and L 0562 0554 JMP 7Z /jump to proximity criterion/ ve[hicle] 0563 0555 AZE 0564 0556 JMP 4B /L missile & L vehicle not coin- 0565 0557 LDAi cident. Go check L missile & R 0566 0560 16 vehicle 0567 0561 STA /Coincidence of L missile and L 0570 0562 5A vehicle. Destroy entries to 0571 0563 STA L missile and L vehicle display 0572 0564 5C and to L missile launcher 0573 0565 STC 5E 0574 0566 JMP 5L /and jump to L vehicle explosion 0575 0567 #4B LDA 0576 0570 6O /check X axes of L missile and 0577 0571 COM R vehicle 0600 0572 ADD 11 0601 0573 JMP 7Z /jump tp proximity criterion 0602 0574 AZE /L missile and R vehicle X axes 0603 0575 JMP 4A not coincident. Go check if R 0604 0576 LDA missile in flight 0605 0577 6P 0606 0600 COM [SPACE WAR. 0607 0601 ADD 6R /X axes coincident. Check Y axis 0610 0602 JMP 7Z coincidence of L missile and R 0611 0603 AZE vehicle 0612 0604 JMP 4A /not coincident. Go check if R 0613 0605 LDAi missile is in flight 0614 0606 16 /Y axes of L missile and R vehicle 0615 0607 STA are also coincident. Destroy 0616 0610 5B entries to L missile and R 0617 0611 STA vehicle display and to L missile 0620 0612 5C launcher 0621 0613 STC 5F 0622 0614 JMP 5R /and jump to R vehicle explosion 0623 0615 #4A XSK 7 /is R missile in flight? 0624 0616 JMP p+2 0625 0617 JMP 6W /no, go check proximity of L & R 0626 0620 LDA vehicles 0627 0621 4R /yes, is R missile armed? 0630 0622 ADD 4S 0631 0623 COM 0632 0624 ADD 6O 0633 0625 ADD 6P 0634 0626 JMP 7Y /jump to fuse criterion 0635 0627 AZEi /R missile is inactive. Go check 0636 0630 JMP 6W proximity of L & R vehicles 0637 0631 LDA /check X axis coincidence of R 0640 0632 6O missile and R vehicle 0641 0633 COM 0642 0634 ADD 12 0643 0635 JMP 7Z /jump to proximity criterion 0644 0636 AZE /R missile and R vehicle not co- 0645 0637 JMP 4C incident. Check R missile & L 0646 0640 LDA vehicle 0647 0641 6P /X axes coincident. Check Y axes 0650 0642 COM of R missile and R vehicle 0651 0643 ADD 6T 0652 0644 JMP 7Z /jump to proximity criterion 0653 0645 AZE /R missile and R vehicle not 0654 0646 JMP 4C coincident. Check R missile and 0655 0647 LDAi L vehicle 0656 0650 16 /R missile and R vehicle are 0657 0651 STA coincident. Destroy entries to 0660 0652 5B R missile and R vehicle displays 0661 0653 STA and R missile launcher 0662 0654 5D 0663 0655 STC 5F 0664 0656 JMP 5R /and jump to R vehicle explosion 0665 0657 #4C LDA /check X axis coincidence of R 0666 0660 6M missile and L vehicle 0667 0661 COM 0670 0662 ADD 12 0671 0663 JMP 7Z /jump to proximity criterion 0672 0664 AZE /R missile and L vehicle not 0673 0665 JMP 6W coincident. Go check L & R 0674 0666 LDA vehicle coincidence 0675 0667 6N /X axes coincident. Check Y axis 0676 0670 COM coincidence of R missile and L 0677 0671 ADD 6T vehicle 0700 0672 JMP 7Z /jump to proximity criterion 0701 0673 AZE /R missile and L vehicle not co- 0702 0674 JMP 6W incident. Go check L & R vehicle 0703 0675 LDAi coincidence 0704 0676 16 /R missile and L vehicle coincident 0705 0677 STA 0706 0700 5A [SPACE WAR. 0707 0701 STA /destroy entries to R missile and 0710 0702 5D L vehicle displays and R missile 0711 0703 STC 5E launcher 0712 0704 JMP 5L /and jump to L vehicle explosion 0713 0705 #6W LDA /check proximity of L & R vehicles 0714 0706 6M in X axis 0715 0707 COM 0716 0710 ADD 6O 0717 0711 JMP 7Z /jump to proximity criterion 0720 0712 AZE /R and L vehicles not coin- 0721 0713 JMP 24 cident. Go repeat display cycle 0722 0714 LDA /X axes coincident. Check Y axis 0723 0715 6N coincidence of R and L vehicles 0724 0716 COM 0725 0717 ADD 6P 0726 0720 JMP 7Z /jump to proximity criterion 0727 0721 AZE /Y axes not coincident. Go start 0730 0722 JMP 24 new display cycle 0731 0723 LDAi /R & L coincident. 0732 0724 16 /destroy entries into R vehicle 0733 0725 STA and L vehicle displays and entries 0734 0726 5A to L missile and R missile 0735 0727 STA displays 0736 0730 5B 0737 0731 STA 0740 0732 5E /and enter R vehicle explosion 0741 0733 STC 5F 0742 0734 #5R SET 1 /Right vehicle explosion 0743 0735 6O 0744 0736 SET 2 0745 0737 6P 0746 0740 JMP 5Z /jump to _explosion display_ 0747 0741 #5L SET 1 /Left vehicle explosion 0750 0742 6M 0751 0743 SET 2 0752 0744 6N 0753 0745 JMP 5Z /jump to _explosion display_ 0754 0746 #7Y SCR 7 FUSE CRITERION 0755 0747 JMP 0 0756 0750 #7Z SCR 5 PROXIMITY CRITERION 0757 0751 JMP 0 0752 [END .Pass 1 ok. .Pass 2 0001 [SPACE WAR. 0002 [VERSION OF 0003 [APR.1965 0004 [AJH LINC 0005 @20 0020 0006 SETi6 0066 0021 0007 7777 7777 0022 0010 SETi7 0067 0023 0011 7777 7777 0024 0012 SAM 0 0100 0025 0013 SCR 3 0343 0026 0014 STA 1040 0027 0015 7M 0071 0030 0016 ADD 6M 2065 0031 0017 BCLi 1560 0032 0020 7000 7000 0033 0021 STC 6M 4065 0034 0022 SAM 1 0101 0035 0023 SCR 3 0343 0036 0024 STA 1040 0037 0025 7N 0073 0040 0026 ADD 6N 2067 0041 0027 BCLi 1560 0042 0030 7000 7000 0043 0031 STC 6N 4067 0044 0032 SAM 6 0106 0045 0033 SCR 3 0343 0046 0034 STA 1040 0047 0035 7O 0102 0050 0036 ADD 6O 2076 0051 0037 BCLi 1560 0052 0040 7000 7000 0053 0041 STC 6O 4076 0054 0042 SAM 7 0107 0055 0043 SCR 3 0343 0056 0044 STA 1040 0057 0045 7P 0104 0060 0046 ADD 6P 2100 0061 0047 BCLi 1560 0062 0050 7000 7000 0063 0051 STC 6P 4100 0064 0052 SETi1 0061 0065 0053 #6M 200 0200 0066 0054 SETi2 0062 0067 0055 #6N 0 0000 0070 0056 SETi4 0064 0071 0057 #7M 0 0000 0072 0060 SETi5 0065 0073 0061 #7N 0 0000 0074 0062 #5A JMP 7I 6223 0075 0063 SETi1 0061 0076 0064 #6O 600 0600 0077 0065 SETi2 0062 0100 0066 #6P 0 0000 0101 0067 SETi4 0064 0102 0070 #7O 0 0000 0103 0071 SETi5 0065 0104 0072 #7P 0 0000 0105 0073 #5B JMP 7I 6223 0106 0074 XSK 6 0206 0107 0075 #5C JMP 7W 6163 0110 0076 XSK 7 0207 0111 0077 #5D JMP 7X 6203 0112 0100 SNSi5 0465 0113 0101 #5E JMP 7U 6117 0114 0102 SNSi0 0460 0115 0103 #5F JMP 7V 6141 0116 0104 JMP 6X 6533 0105 [LAUNCH MIS 0117 0106 #7U LDA 1000 0120 0107 7M 0071 0121 0110 ROL 1 0241 0122 0111 STC 7O 4102 0123 0112 ADD 6M 2065 0124 0113 STAi 1060 0125 0114 #4L 0 0000 0126 0115 STC 11 4011 0127 0116 ADD 7N 2073 0130 0117 ROL 1 0241 0131 0120 STC 7R 4172 0132 0121 ADDi 2020 0133 0122 STAi 1060 0134 0123 #4M 0 0000 0135 0124 STC 6R 4177 0136 0125 SETi6 0066 0137 0126 7500 7500 0140 0127 JMP 0 6000 0141 0130 #7V LDA 1000 0142 0131 7O 0102 0143 0132 ROL 1 0241 0144 0133 STC 7S 4204 0145 0134 ADD 6O 2076 0146 0135 STAi 1060 0147 0136 #4R 0 0000 0150 0137 STC 12 4012 0151 0140 ADD 7P 2104 0152 0141 ROL 1 0241 0153 0142 STC 7T 4212 0154 0143 ADD 6P 2100 0155 0144 STAi 1060 0156 0145 #4S 0 0000 0157 0146 STC 6T 4217 0160 0147 SETi7 0067 0161 0150 7500 7500 0162 0151 JMP 0 6000 0152 [DISPLAY MIS 0163 0153 #7W LDAi 1020 0164 0154 #7Q 0 0000 0165 0155 ADD 11 2011 0166 0156 BCLi 1560 0167 0157 7000 7000 0170 0160 STC 11 4011 0171 0161 LDAi 1020 0172 0162 #7R 0 0000 0173 0163 ADD 6R 2177 0174 0164 BCLi 1560 0175 0165 7000 7000 0176 0166 STAi 1060 0177 0167 #6R 0 0000 0200 0170 DIS 11 0151 0201 0171 LDAi6 1026 0202 0172 JMP 0 6000 0203 0173 #7X LDAi 1020 0204 0174 #7S 0 0000 0205 0175 ADD 12 2012 0206 0176 BCLi 1560 0207 0177 7000 7000 0210 0200 STC 12 4012 0211 0201 LDAi 1020 0212 0202 #7T 0 0000 0213 0203 ADD 6T 2217 0214 0204 BCLi 1560 0215 0205 7000 7000 0216 0206 STAi 1060 0217 0207 #6T 0 0000 0220 0210 DIS 12 0152 0221 0211 LDAi7 1027 0222 0212 JMP 0 6000 0213 [DISPL VEHICLE 0223 0214 #7I SET 10 0050 0224 0215 0 0000 0225 0216 LDA 1000 0226 0217 4 0004 0227 0220 AZEi 0470 0230 0221 JMP 7J 6251 0231 0222 APO 0451 0232 0223 JMP 7K 6242 0233 0224 LDA 1000 0234 0225 5 0005 0235 0226 AZEi 0470 0236 0227 JMP 6D 6270 0237 0230 APO 0451 0240 0231 JMP 6H 6304 0241 0232 JMP 6G 6301 0242 0233 #7K LDA 1000 0243 0234 5 0005 0244 0235 AZEi 0470 0245 0236 JMP 6C 6265 0246 0237 APO 0451 0247 0240 JMP 6F 6276 0250 0241 JMP 6E 6273 0251 0242 #7J LDA 1000 0252 0243 5 0005 0253 0244 AZE 0450 0254 0245 APOi 0471 0255 0246 JMP 6A 6257 0256 0247 JMP 6B 6262 0257 0250 #6A SETi3 0063 0260 0251 7A 0345 0261 0252 JMP 7L 6307 0262 0253 #6B SETi3 0063 0263 0254 7B 0356 0264 0255 JMP 7L 6307 0265 0256 #6C SETi3 0063 0266 0257 7C 0402 0267 0260 JMP 7L 6307 0270 0261 #6D SETi3 0063 0271 0262 7D 0372 0272 0263 JMP 7L 6307 0273 0264 #6E SETi3 0063 0274 0265 7E 0441 0275 0266 JMP 7L 6307 0276 0267 #6F SETi3 0063 0277 0270 7F 0454 0300 0271 JMP 7L 6307 0301 0272 #6G SETi3 0063 0302 0273 7G 0414 0303 0274 JMP 7L 6307 0304 0275 #6H SETi3 0063 0305 0276 7H 0427 0306 0277 JMP 7L 6307 0307 0300 #7L LDAi 1020 0310 0301 -14 7763 0311 0302 ADM 1140 0312 0303 1 0001 0313 0304 LDAi 1020 0314 0305 14 0014 0315 0306 ADD 2 2002 0316 0307 SRO 3 1503 0317 0310 JMP p+3 6322 0320 0311 DISi1 0161 0321 0312 JMP p+2 6323 0322 0313 XSKi1 0221 0323 0314 XSKi1 0221 0324 0315 NOP 0016 0325 0316 SROi 1520 0326 0317 3777 3777 0327 0320 JMP p-11 6316 0330 0321 ADAi 1120 0331 0322 -2 7775 0332 0323 STC 2 4002 0333 0324 LDAi 1020 0334 0325 -30 7747 0335 0326 ADM 1140 0336 0327 1 0001 0337 0330 XSKi3 0223 0340 0331 CLR 0011 0341 0332 SROi 1520 0342 0333 3777 3777 0343 0334 JMP p-26 6315 0344 0335 JMP 10 6010 0336 [MATRICES 0345 0337 #7A 7677 7677 0346 0340 7437 7437 0347 0341 7017 7017 0350 0342 7017 7017 0351 0343 7017 7017 0352 0344 7017 7017 0353 0345 7017 7017 0354 0346 7017 7017 0355 0347 7017 7017 0356 0350 #7B 7537 7537 0357 0351 7537 7537 0360 0352 7537 7537 0361 0353 7017 7017 0362 0354 7017 7017 0363 0355 7017 7017 0364 0356 7017 7017 0365 0357 7017 7017 0366 0360 7017 7017 0367 0361 7017 7017 0370 0362 7437 7437 0371 0363 7677 7677 0372 0364 #7D 7777 7777 0373 0365 7777 7777 0374 0366 7777 7777 0375 0367 6007 6007 0376 0370 4000 4000 0377 0371 0007 0007 0400 0372 4000 4000 0401 0373 6007 6007 0402 0374 #7C 7777 7777 0403 0375 7777 7777 0404 0376 7777 7777 0405 0377 7777 7777 0406 0400 7003 7003 0407 0401 0001 0001 0410 0402 7000 7000 0411 0403 0001 0001 0412 0404 7003 7003 0413 0405 7777 7777 0414 0406 #7G 7777 7777 0415 0407 7777 7777 0416 0410 6077 6077 0417 0411 6037 6037 0420 0412 6017 6017 0421 0413 6007 6007 0422 0414 7003 7003 0423 0415 7407 7407 0424 0416 7613 7613 0425 0417 7725 7725 0426 0420 7772 7772 0427 0421 #7H 7775 7775 0430 0422 7772 7772 0431 0423 7725 7725 0432 0424 7613 7613 0433 0425 7407 7407 0434 0426 7003 7003 0435 0427 6007 6007 0436 0430 6017 6017 0437 0431 6037 6037 0440 0432 6077 6077 0441 0433 #7E 7777 7777 0442 0434 7777 7777 0443 0435 7703 7703 0444 0436 7603 7603 0445 0437 7403 7403 0446 0440 7003 7003 0447 0441 6007 6007 0450 0442 7017 7017 0451 0443 6437 6437 0452 0444 5277 5277 0453 0445 2777 2777 0454 0446 #7F 5777 5777 0455 0447 2777 2777 0456 0450 5277 5277 0457 0451 6437 6437 0460 0452 7017 7017 0461 0453 6007 6007 0462 0454 7003 7003 0463 0455 7403 7403 0464 0456 7603 7603 0465 0457 7703 7703 0466 0460 7777 7777 0467 0461 7777 7777 0470 0462 #5Z SETi4 0064 0471 0463 -200 7577 0472 0464 SETi3 0063 0473 0465 6Z 0517 0474 0466 SETi10 0070 0475 0467 6000+5N 6477 0476 0470 JMP 7L 6307 0477 0471 #5N LDAi 1020 0500 0472 14 0014 0501 0473 ADM 1140 0502 0474 2 0002 0503 0475 LDAi 1020 0504 0476 14 0014 0505 0477 ADM 1140 0506 0500 1 0001 0507 0501 XSKi4 0224 0510 0502 JMP 5Z+2 6472 0511 0503 LDAi 1020 0512 0504 6024 6024 0513 0505 STA 1040 0514 0506 6X 0533 0515 0507 STC 5Z 4470 0516 0510 JMP 24 6024 0517 0511 #6Z 7637 7637 0520 0512 5635 5635 0521 0513 6633 6633 0522 0514 7007 7007 0523 0515 7007 7007 0524 0516 0000 0000 0525 0517 0000 0000 0526 0520 7007 7007 0527 0521 7007 7007 0530 0522 6633 6633 0531 0523 5635 5635 0532 0524 7637 7637 0533 0525 #6X XSK 6 0206 0534 0526 JMP p+2 6536 0535 0527 JMP 4A 6623 0536 0530 LDA 1000 0537 0531 4L 0125 0540 0532 ADD 4M 2134 0541 0533 COM 0017 0542 0534 ADD 6M 2065 0543 0535 ADD 6N 2067 0544 0536 JMP 7Y 6754 0545 0537 AZEi 0470 0546 0540 JMP 4A 6623 0547 0541 LDA 1000 0550 0542 6M 0065 0551 0543 COM 0017 0552 0544 ADD 11 2011 0553 0545 JMP 7Z 6756 0554 0546 AZE 0450 0555 0547 JMP 4B 6575 0556 0550 LDA 1000 0557 0551 6N 0067 0560 0552 COM 0017 0561 0553 ADD 6R 2177 0562 0554 JMP 7Z 6756 0563 0555 AZE 0450 0564 0556 JMP 4B 6575 0565 0557 LDAi 1020 0566 0560 16 0016 0567 0561 STA 1040 0570 0562 5A 0074 0571 0563 STA 1040 0572 0564 5C 0107 0573 0565 STC 5E 4113 0574 0566 JMP 5L 6747 0575 0567 #4B LDA 1000 0576 0570 6O 0076 0577 0571 COM 0017 0600 0572 ADD 11 2011 0601 0573 JMP 7Z 6756 0602 0574 AZE 0450 0603 0575 JMP 4A 6623 0604 0576 LDA 1000 0605 0577 6P 0100 0606 0600 COM 0017 0607 0601 ADD 6R 2177 0610 0602 JMP 7Z 6756 0611 0603 AZE 0450 0612 0604 JMP 4A 6623 0613 0605 LDAi 1020 0614 0606 16 0016 0615 0607 STA 1040 0616 0610 5B 0105 0617 0611 STA 1040 0620 0612 5C 0107 0621 0613 STC 5F 4115 0622 0614 JMP 5R 6742 0623 0615 #4A XSK 7 0207 0624 0616 JMP p+2 6626 0625 0617 JMP 6W 6713 0626 0620 LDA 1000 0627 0621 4R 0147 0630 0622 ADD 4S 2156 0631 0623 COM 0017 0632 0624 ADD 6O 2076 0633 0625 ADD 6P 2100 0634 0626 JMP 7Y 6754 0635 0627 AZEi 0470 0636 0630 JMP 6W 6713 0637 0631 LDA 1000 0640 0632 6O 0076 0641 0633 COM 0017 0642 0634 ADD 12 2012 0643 0635 JMP 7Z 6756 0644 0636 AZE 0450 0645 0637 JMP 4C 6665 0646 0640 LDA 1000 0647 0641 6P 0100 0650 0642 COM 0017 0651 0643 ADD 6T 2217 0652 0644 JMP 7Z 6756 0653 0645 AZE 0450 0654 0646 JMP 4C 6665 0655 0647 LDAi 1020 0656 0650 16 0016 0657 0651 STA 1040 0660 0652 5B 0105 0661 0653 STA 1040 0662 0654 5D 0111 0663 0655 STC 5F 4115 0664 0656 JMP 5R 6742 0665 0657 #4C LDA 1000 0666 0660 6M 0065 0667 0661 COM 0017 0670 0662 ADD 12 2012 0671 0663 JMP 7Z 6756 0672 0664 AZE 0450 0673 0665 JMP 6W 6713 0674 0666 LDA 1000 0675 0667 6N 0067 0676 0670 COM 0017 0677 0671 ADD 6T 2217 0700 0672 JMP 7Z 6756 0701 0673 AZE 0450 0702 0674 JMP 6W 6713 0703 0675 LDAi 1020 0704 0676 16 0016 0705 0677 STA 1040 0706 0700 5A 0074 0707 0701 STA 1040 0710 0702 5D 0111 0711 0703 STC 5E 4113 0712 0704 JMP 5L 6747 0713 0705 #6W LDA 1000 0714 0706 6M 0065 0715 0707 COM 0017 0716 0710 ADD 6O 2076 0717 0711 JMP 7Z 6756 0720 0712 AZE 0450 0721 0713 JMP 24 6024 0722 0714 LDA 1000 0723 0715 6N 0067 0724 0716 COM 0017 0725 0717 ADD 6P 2100 0726 0720 JMP 7Z 6756 0727 0721 AZE 0450 0730 0722 JMP 24 6024 0731 0723 LDAi 1020 0732 0724 16 0016 0733 0725 STA 1040 0734 0726 5A 0074 0735 0727 STA 1040 0736 0730 5B 0105 0737 0731 STA 1040 0740 0732 5E 0113 0741 0733 STC 5F 4115 0742 0734 #5R SET 1 0041 0743 0735 6O 0076 0744 0736 SET 2 0042 0745 0737 6P 0100 0746 0740 JMP 5Z 6470 0747 0741 #5L SET 1 0041 0750 0742 6M 0065 0751 0743 SET 2 0042 0752 0744 6N 0067 0753 0745 JMP 5Z 6470 0754 0746 #7Y SCR 7 0347 0755 0747 JMP 0 6000 0756 0750 #7Z SCR 5 0345 0757 0751 JMP 0 6000 0752 [END .Pass 2 ok. Symbols: 4A 0623 5R 0742 6T 0217 7L 0307 4B 0575 5Z 0470 6W 0713 7M 0071 4C 0665 6A 0257 6X 0533 7N 0073 4L 0125 6B 0262 6Z 0517 7O 0102 4M 0134 6C 0265 7A 0345 7P 0104 4R 0147 6D 0270 7B 0356 7Q 0164 4S 0156 6E 0273 7C 0402 7R 0172 5A 0074 6F 0276 7D 0372 7S 0204 5B 0105 6G 0301 7E 0441 7T 0212 5C 0107 6H 0304 7F 0454 7U 0117 5D 0111 6M 0065 7G 0414 7V 0141 5E 0113 6N 0067 7H 0427 7W 0163 5F 0115 6O 0076 7I 0223 7X 0203 5L 0747 6P 0100 7J 0251 7Y 0754 5N 0477 6R 0177 7K 0242 7Z 0756 Object code (2 blocks, 0000 - 0777, start address 0020): 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0066 7777 0067 7777 0100 0343 1040 0071 2065 1560 7000 4065 0101 0343 1040 0073 2067 1560 7000 4067 0106 0343 1040 0102 2076 1560 7000 4076 0107 0343 1040 0104 2100 1560 7000 4100 0061 0200 0062 0000 0064 0000 0065 0000 6223 0061 0600 0062 0000 0064 0000 0065 0000 6223 0206 6163 0207 6203 0465 6117 0460 6141 6533 1000 0071 0241 4102 2065 1060 0000 4011 2073 0241 4172 2020 1060 0000 4177 0066 7500 6000 1000 0102 0241 4204 2076 1060 0000 4012 2104 0241 4212 2100 1060 0000 4217 0067 7500 6000 1020 0000 2011 1560 7000 4011 1020 0000 2177 1560 7000 1060 0000 0151 1026 6000 1020 0000 2012 1560 7000 4012 1020 0000 2217 1560 7000 1060 0000 0152 1027 6000 0050 0000 1000 0004 0470 6251 0451 6242 1000 0005 0470 6270 0451 6304 6301 1000 0005 0470 6265 0451 6276 6273 1000 0005 0450 0471 6257 6262 0063 0345 6307 0063 0356 6307 0063 0402 6307 0063 0372 6307 0063 0441 6307 0063 0454 6307 0063 0414 6307 0063 0427 6307 1020 7763 1140 0001 1020 0014 2002 1503 6322 0161 6323 0221 0221 0016 1520 3777 6316 1120 7775 4002 1020 7747 1140 0001 0223 0011 1520 3777 6315 6010 7677 7437 7017 7017 7017 7017 7017 7017 7017 7537 7537 7537 7017 7017 7017 7017 7017 7017 7017 7437 7677 7777 7777 7777 6007 4000 0007 4000 6007 7777 7777 7777 7777 7003 0001 7000 0001 7003 7777 7777 7777 6077 6037 6017 6007 7003 7407 7613 7725 7772 7775 7772 7725 7613 7407 7003 6007 6017 6037 6077 7777 7777 7703 7603 7403 7003 6007 7017 6437 5277 2777 5777 2777 5277 6437 7017 6007 7003 7403 7603 7703 7777 7777 0064 7577 0063 0517 0070 6477 6307 1020 0014 1140 0002 1020 0014 1140 0001 0224 6472 1020 6024 1040 0533 4470 6024 7637 5635 6633 7007 7007 0000 0000 7007 7007 6633 5635 7637 0206 6536 6623 1000 0125 2134 0017 2065 2067 6754 0470 6623 1000 0065 0017 2011 6756 0450 6575 1000 0067 0017 2177 6756 0450 6575 1020 0016 1040 0074 1040 0107 4113 6747 1000 0076 0017 2011 6756 0450 6623 1000 0100 0017 2177 6756 0450 6623 1020 0016 1040 0105 1040 0107 4115 6742 0207 6626 6713 1000 0147 2156 0017 2076 2100 6754 0470 6713 1000 0076 0017 2012 6756 0450 6665 1000 0100 0017 2217 6756 0450 6665 1020 0016 1040 0105 1040 0111 4115 6742 1000 0065 0017 2012 6756 0450 6713 1000 0067 0017 2217 6756 0450 6713 1020 0016 1040 0074 1040 0111 4113 6747 1000 0065 0017 2076 6756 0450 6024 1000 0067 0017 2100 6756 0450 6024 1020 0016 1040 0074 1040 0105 1040 0113 4115 0041 0076 0042 0100 6470 0041 0065 0042 0067 6470 0347 6000 0345 6000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 --EOF--