Directory of image this file is from
This file as a plain text file
[PLOTLINU [SPECIAL PLOTTER TEST $20 JMP 4Q CLR STC 1D SETi1 1A+3777 #1B LDHi1 SHDi 7700 JMP 1F AZEi JMP 1C MULi #1G 1 STC p+6 LDHi1 MUL 1G STC p+3 JMP 4P 0 0 JMP 1B #1C SROi #1D 0000 JMP 1E JMP 3L CLR COM STC 1D JMP 1B #1E JMP 3R CLR STC 1D JMP 1B #1F HALT RSW STC 1G JMP 20 [ADD SIMPLOT [ R [ E [ M [ O [O V [ R E [ I [ G [ I [ N $400 [ ------ [ ---- [SIMPLOT [CALL AS FOLLOWS- [JMP 4P [ X [ Y [NEXT INSTRUCTION [AJH, JUNE 1967 #4P LDA 0 BCLi 6000 STC 14 LDA 14 STC 4X LDAi14 STC 4Y LDAi14 LDA 14 ADD 4P+3 STC p+2 JMP 4Z JMP 000 [CLOSEOUT PLOT #4Q SET 17 0 CLR STC 3X STC 3Y JMP 3R+2 [SET PLOTTER WIDE #3W LDA 0 STC 3U+20 LDAi OPR 10 STC 4J+6 LDAi OPR 7 STC 4J+12 LDAi OPR 12 STA 3U+12 STC 4K+6 LDAi OPR 11 STA 3U+3 STC 4K+12 JMP 3U [SET PLOTTER TALL #3T LDA 0 STC 3U+20 ADD 3W+17 STA 3U+12 STC 4J+6 ADD 3W+12 STA 3U+3 STC 4J+12 ADD 3W+4 STC 4K+6 ADD 3W+7 STC 4K+12 [RESET PEN POSITION BEFORE STARTING. #3U JMP 4Q LDAi -3000 OPR 11 JMP 4L ADD 4E APO JMP p-4 LDAi -62 OPR 12 JMP 4L ADD 4E APO JMP p-4 JMP 4Q JMP 0000 [INTERPOL JMP 000 #4Z LDA 0 STC 4Z-1 STC 15 ADD 3X COM ADD 4X STAi #4A 0 APO COM STC 4B ADD 3Y COM ADD 4Y STAi #4C 0 APO COM STC 4D ADD 4D COM ADD 4B APO CLR ADD 4D AZEi JMP 4Z-1 ROL 1 XSKi15 APOi JMP p-3 LDAi 240 ADD 15 STC 4H ADD 15 COM ADAi 254 STC 4G ADD 4E #4G ROL 10 ADD 4E COM STC 15 ADD 4B JMP 4H STC 4B ADD 4D JMP 4H STC 4D STC 4M+3 STC 4M+11 #4M CLR ADD 4B LAMi 0 LZE JMP 4J CLR ADD 4D LAMi 0 LZE JMP 4K LDAi #4I 0 APOi JMP 4L COM STC 4I ADD 4E ADM 15 AZE JMP 4M JMP 4Z-1 #4X 0 #4Y 0 #4B 0 #4D 0 #4H ROL 4 JMP 0 #4J SET 17 0 LDA 4A APO JMP p+5 OPR 10 LDAi #4E 1 JMP p+4 OPR 7 LDAi #4F -1 ADMi #3X 0 CLR STC 4I JMP 17 #4K SET 17 0 LDA 4C APO JMP p+5 OPR 12 LDA 4E JMP p+4 OPR 11 LDA 4F ADMi #3Y 0 CLR STC 4I JMP 17 #4L SET 17 0 SETi16 1640 XSKi16 JMP p-1 JMP 17 [LOWER PEN #3L SET 17 0 LDAi #4R 7777 APO JMP 17 OPR 14 CLR COM STC 4R SETi16 0 XSKi16 JMP p-1 SROi 3333 JMP 3L+12 JMP 17 [RAISE PEN #3R SET 17 0 LDA 4R APOi JMP 17 OPR 13 CLR STC 4R JMP 3L+12 [END OF INTERPOL [TABLE FOR LINUS #1A 0110 0004 1103 1403 1604 2005 2107 2110 2011 1612 1613 1713 2016 2021 2521 2717 3120 3220 3421 3624 3722 4020 4421 4622 5023 5123 5525 5730 6026 5526 5200 2553 #2A 0030 5400 3053 0031 5634 6226 6023 5621 5420 5200 1753 0020 5622 6025 6130 6032 6335 6441 6334 6240 6244 6046 5650 5753 5754 5654 4650 3447 3447 4646 4545 4644 #2B 4545 4443 4542 4544 4342 4541 4541 4442 4341 4440 4342 4140 3736 3435 3235 3036 2741 2744 3344 3643 4046 4346 4500 4656 0042 5237 4434 3532 3530 3630 4031 4130 #2C 4227 4130 4227 4426 4327 4226 4325 4326 4225 4324 4225 4226 4124 4000 2442 0023 4124 3700 2032 0022 3025 3030 3600 3435 0032 2632 1633 1136 0640 0747 0660 0764 #2D 0760 0760 1154 1252 1247 1152 1351 1546 1543 1446 2046 2344 2337 1736 2236 2700 3432 0034 2035 1241 1537 1142 1245 1245 1143 1050 1000 3311 0031 1030 1026 0623 #2E 0622 1122 1623 2026 2130 2032 2030 2031 1530 1023 1222 1114 1213 1212 1111 1110 1005 1004 1110 1400 1116 0012 1311 1100 1316 0013 1216 1316 1513 1700 1620 0022 #2F 1700 2320 0021 2117 2100 2547 0027 5000 3246 0030 4630 4731 5032 5000 3350 0035 4700 3454 0036 5437 5300 3352 0036 5542 5645 5542 6035 6031 5500 3742 0043 5000 #2G 4346 0047 5451 5450 5051 4752 4100 4331 0042 2640 2540 2000 2733 0033 3200 3230 0026 3100 2530 0030 2732 2732 2626 2621 2700 2125 0027 2432 2432 2226 2223 2320 #2H 2300 2022 0023 2226 2132 2100 3626 0040 2642 2700 3625 0040 2500 3623 0040 2400 3622 0040 2200 3721 0040 2100 7601 7777 [END TABLE LINUS