Directory of image this file is from
This file as a plain text file
[PLOTSNOO [SPECIAL PLOTTER TEST $20 JMP 4Q CLR STC 1D SETi1 1A+3777 #1B LDHi1 SHDi 7700 JMP 1F AZEi JMP 1C MULi #1G 14 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 JMP 4Q LDA 1G MULi 3 SCR 3 JMP 3S SETi1 1H+3777 #1K LDHi1 SHDi 1200 JMP 1L JMP 4U JMP 1K #1L LDA 1G MULi 120 STC p+2 JMP 4P 1400 0000 JMP 4Q HLT RSW BCLi 7760 STC 1G JMP 20 #1H"FROM THE NEUROPHARMACOLOGY GROUP ; [ADD SIMPLOT [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 [SIMPALPH [CHARACTER SET FOR [CALCOMP PLOTTER. [CALL AS FOLLOWS- [JMP 4U, WITH THE [CHARACTER IN [ACCUMULATOR FOR [REGULAR OUTPUT. [COMPLEMENT ACCUM. [FOR GRAPH SYMBOLS. LDAi 0000 APO JMP 3L JMP 000 #4U BCLi 7700 STAi 0 LDA 0 STC 4U-1 ADD 3X STC 3C ADD 3Y STC 3D ADD 4U+3 ADAi -67 APOi JMP p+4 LDAi -1 JMP p+3 LDAi -4 STC 3Z ADD 4U+3 ADAi 4S STC p+2 LDA 0 ADAi 3777 STC 14 ADD 4R STC 4U-4 [DRAW CHARACTER JMP 3R JMP p+2 JMP 3L #3A LDHi14 AZEi JMP 4U-1 SHDi 0100 JMP 3A-3 SHDi 0200 JMP 3A-1 JMP 3P STAi #3N 0000 LDH 14 SCR 3 JMP 3P STAi #3M 0000 LDAi #4T 0000 [FLAG FOR HORIZONTAL OR VERTICAL APO JMP p+10 ADD 3N ADD 3D STC 4Y ADD 3M ADD 3C STC 4X JMP p+10 ADD 3N COM ADD 3C STC 4X ADD 3M ADD 3D STC 4Y JMP 4Z JMP 3A [SCALE AND OFFSET #3P BCLi 7770 ADD 3Z MULi #3B 0000 JMP 0 [STORAGE #3Z -4 #3C 0 #3D 0 [SET CHARACTERS ON VERTICAL #3V CLR COM STC 4T JMP 0 [SET CHARACTERS ON HORIZONTAL #3H CLR STC 4T JMP 0 [SET CHARACTER SIZE #3S BCLi 7700 AZEi ADD 4E STC 3B JMP 0 [MATRIX ACCESS TABLE [EVERYTHING FROM THIS POINT ON MAY BE ANYWHERE IN MEMORY, INCLUDING UPPER HALF. #4S 6A 6B 6C 6D 6E 6F 6G 6H 6I 6J 6S 6S 6K 6S 6S 6N 6O 6P 6Q 6S 5A 5B 5C 5D 5E 5F 5G 5H 5I 5J 5K 5L 5M 5N 5O 5P 5Q 5R 5S 5T 5U 5V 5W 5X 5Y 5Z 6R 6S 6T 6U 6L 6W 6S 6S 6S 6S 3E 3F 3K 3G 3I 3J 3O 6S [END OF TABLE [DIGIT MATRICES #6A 1202 1627 3746 4231 2112 0151 #6S 0000 #6B 0231 2127 1601 4100 #6C 1602 2737 4645 1211 4101 5100 #6D 1602 2737 4634 2434 4342 3121 1201 5100 #6E 3102 3713 4301 5100 #6F 1202 2131 4243 3414 1747 0151 0000 #6G 1302 2434 4342 3121 1216 2737 4601 5100 #6H 1702 4746 1101 5100 #6I 1202 1324 3445 4637 2716 1524 3443 4231 2112 0151 0000 #6J 1202 2131 4246 3727 1615 2434 4501 [SPACE #6K 5100 [END DIGITS [ALPHABETIC MATRICES #5A 0216 2747 5654 1454 5101 6100 #5B 0217 3746 4534 1444 5352 4111 0161 0000 #5C 5202 4121 1216 2747 5601 6100 #5D 0217 4756 5241 1101 6100 #5E 5102 1114 4414 1757 0161 0000 #5F 0214 4414 1757 0161 0000 #5G 4302 5351 2112 1627 4756 0161 0000 #5H 0217 1454 5751 0161 0000 #5I 0231 2127 1737 0141 0000 #5J 1202 2131 4247 3757 0161 0000 #5K 0217 1447 1441 0151 0000 #5L 1702 1141 0151 0000 #5M 0217 3457 5101 6100 #5N 0217 4147 0151 0000 #5O 1202 1627 4756 5241 2112 0161 0000 #5P 0217 4756 5544 1401 6100 #5Q 2102 1216 2747 5652 4121 4251 0161 0000 #5R 0217 4756 5544 1434 5101 6100 #5S 1202 2141 5253 4424 1516 2747 5601 6100 #5T 1702 5737 3101 6100 #5U 1702 1221 4152 5701 6100 #5V 1702 3157 0161 0000 #5W 1702 2134 4157 0161 0000 #5X 0234 1734 5734 5101 6100 #5Y 1702 3457 3431 0161 0000 #5Z 1702 5711 5101 6100 [-,+,|, #6N 1402 5401 6100 #6O 1402 3436 3234 5401 6100 #6P 0247 0151 0000 [TAG = , . #6Q 2102 4701 6702 4101 1302 6301 2502 7501 7100 #6R 1402 5401 1302 5301 6100 #6T 0222 2313 1222 0131 0000 #6U 0221 2212 1101 3100 [LEFT,RIGHT [PARENTHESES #6W 2102 1315 2701 3100 #6L 0223 2517 0131 0000 [SYMBOL MATRICES [SYMBOL X #3E 0226 6244 6622 4400 [SYMBOL + #3F 0247 4144 1474 4400 [SYMBOL SQUA #3G 0117 0277 7111 1701 4400 [SYMBOL TRIA #3K 0147 0212 7247 0144 0000 [SYMBOL 0 #3I 0137 0257 7573 5131 1315 3701 4400 [SYMBOL DIAM #3J 0147 0274 4114 4701 4400 [SYMBOL STAR #3O 0147 0221 7515 6147 0144 0000 [END OF SIMPLOT. [AJH, JUNE 1967 [TABLE FOR SNOOPY,1967 #1A 0434 0002 3402 4701 4701 2302 2302 3604 3604 3005 2713 2724 3706 2211 1520 1243 3434 2544 2560 2674 3076 3776 4676 4674 4772 4770 4666 4464 4045 4346 5245 5446 5650 5754 5755 6156 6356 6555 6652 7050 7046 6645 6744 6640 7235 7234 7133 7232 7132 7034 7034 7133 6634 6537 6540 6637 6534 6536 6340 6243 6143 6043 5742 5536 5136 5042 5232 4532 4732 #2B 4431 4532 5224 4414 4510 4406 4405 4304 4204 3400 1227 0012 4400 2444 0031 4434 4240 4144 4245 4345 4242 4036 4031 4230 4400 3243 0043 5035 4535 4200 4656 0050 #2C 5674 6376 6375 6076 5776 5265 5160 5245 5442 5543 5746 5600 4461 #2D 0046 6447 6546 6646 6744 6644 6545 6446 6452 6153 6247 6500 4360 0045 6150 6000 5763 0061 6464 6567 6470 6300 6251 0052 4200 6636 #2E 0061 3261 3062 2764 2771 3273 3500 1027 0010 4400 5354 0053 5653 5554 5554 5654 5400 5554 0055 5656 5656 5456 5555 5500 5754 0057 5660 5660 5557 5500 6154 0061 5662 5662 5561 5500 6354 0064 5464 5664 5563 5563 5600 6654 0066 5667 5567 5466 5400 7054 0070 5671 5671 5471 5570 5500 7254 0073 5473 5673 5572 5572 5600 7454 0075 5475 5574 5574 5675 5600 1001 7777 [END OF TABLE FOR SNOOPY - - THE ONLY TRUE-BLUE ENEMY OF THE RED BARON+