/ GRAPHICS TEST PROGRAM / DISASSEMBLED FROM A RANDOM CORE IMAGE BY: / CHARLES J. LASNER P?S NY / LAST EDIT: 18-APR-1987 23:00:00 CJL / EQUATED SYMBOLS. GRGR= 6154 /GRAPHICS OPTION GDC READ GRGW= 6155 /GRAPHICS OPTION GDC WRITE GRW1= 6156 /GRAPHICS OPTION WRITE REGISTER ONE GRW2= 6157 /GRAPHICS OPTION WRITE REGISTER TWO NL0002= CLA CLL IAC RAL /LOAD AC WITH 0002 (BUT NOT ON A -8!) NL0100= 7303 /LOAD AC WITH 0100 *0010 XR1, 3150 *0021 VALUE, 5400 PLDVAL, LODVAL PMAIN, MAIN PLODW1, LODW1 PLODW2, LODW2 PCOMMN, COMMN PWAIT, WAIT PSYNC, SYNC *0032 PSTOR4, STOR4 PCHEKR, CHEKR *0035 PSUB8, SUB8 PCLRIT, CLRIT *0040 LODTMP, 0550 *0044 L1, 0001 0007 *0047 L25, 0025 L77, 0077 L300, 0300 L360, 0360 *0055 L7777, 7777 *0057 L7774, 7774 *0061 L7770, 7770 *0063 WATVAL, 7777 TEMP1, 1322 TEMP2, 0251 *0070 PATERN, 0000 *0072 COUNT1, 0000 COUNT2, 0010 0000 *0200 CLA CLL JMS I PMAIN A02, JMP I .+1 7600 *0400 LODW1, E42 CLA CLL TAD I LODW1 AND L77 TAD VALUE DCA LODTMP ISZ LODW1 NOP JMS I PSYNC B11, TAD LODTMP GRW1 CLA CLL JMP I LODW1 LODW2, F24 CLA CLL TAD I LODW2 DCA LODTMP ISZ LODW2 NOP JMS I PSYNC TAD LODTMP GRW2 CLA CLL JMP I LODW2 *0600 SYNC, B11 JMS I PWAIT SYNCLP, GRGR RTR RAR SNL JMP SYNCLP RAR SZL CLA JMP SYNCLP JMP I SYNC WAIT, SYNCLP CLA CLL TAD WATVAL SNA JMP I WAIT DCA OUTER DCA INNER ISZ INNER JMP .-1 ISZ OUTER JMP .-3 JMP I WAIT OUTER, 0000 INNER, 0000 *0647 STOR4, G56 CLA CLL TAD I STOR4 DCA XR1 ISZ STOR4 TAD TEMP1 RTR C56, RTR AND L77 DCA LODTMP TAD TEMP2 BSW AND L300 TAD LODTMP DCA I XR1 TAD TEMP2 RTR AND L77 DCA I XR1 TAD TEMP1 RTL RTL AND L360 DCA I XR1 JMP I STOR4 *1200 CHEKR, G62 CLA CLL TAD I CHEKR DCA INLIN1 ISZ CHEKR TAD I CHEKR DCA INLIN2 ISZ CHEKR TAD I CHEKR DCA PTR1 ISZ CHEKR TAD L7774 DCA CNTR DCA W1VAL NL0002 TAD INLIN1 DCA PTR2 TAD I PTR2 AND L77 DCA I PTR2 CHKLUP, TAD I PTR1 RAR DCA I PTR1 SZL JMP AROUND JMS I PLDVAL QTABLE JMP REJOIN AROUND, JMS I PLDVAL PTABLE REJOIN, JMS I PLDVAL INLIN1, BLK4M1 JMS I PLODW1 W1VAL, 0124 E42, JMS I PLDVAL INLIN2, RTABLE E44, TAD W1VAL TAD L25 DCA W1VAL NL0100 TAD I PTR2 DCA I PTR2 ISZ CNTR JMP CHKLUP JMP I CHEKR PTR1, 0070 CNTR, 0000 PTR2, 3104 PTABLE, 0443 7777 QTABLE, 0442 7777 *1400 MAIN, A02 CLA CLL F02, TAD (400) GRGW WATDSP, CLA CLL GRGR BSW SMA JMP WATDSP DSPWAT, CLA CLL GRGR BSW SPA CLA JMP DSPWAT TAD L1400 DCA VALUE JMS I PLODW1 0000 JMS I PLODW2 3567 F24, JMS I PLDVAL TABLE1 JMS I PCOMMN F27, TAD L5400 DCA VALUE JMS I PLODW1 0071 JMS I PLDVAL TABLE3 JMS I PCLRIT F36, JMP I MAIN 0000 L1400, 1400 L5400, 5400 COMMN, F27 JMS I PLDVAL TABLE4 JMS I PLODW1 0071 JMS I PLDVAL TABLE2 JMP I COMMN *1600 CLRIT, F36 CLA CLL TAD L7770 DCA CNT1 TAD L7770 DCA CNT2 DCA COUNT1 DCA COUNT2 CLRLUP, JMS I PSUB8 G11, ISZ COUNT1 NOP ISZ CNT1 JMP CLRLUP TAD L7770 DCA CNT1 DCA COUNT1 ISZ COUNT2 NOP ISZ CNT2 JMP CLRLUP JMP I CLRIT CNT1, 7770 CNT2, 0000 SUB8, G11 CLA CLL TAD COUNT1 TAD TMP1 DCA LODTMP NL0002 TAD I LODTMP DCA TEMP1 TAD COUNT2 TAD TMP2 DCA LODTMP CLA CLL IAC TAD I LODTMP DCA TEMP2 TAD COUNT1 TAD COUNT2 AND L1 TAD TMP3 DCA LODTMP TAD I LODTMP DCA PATERN JMS I PSTOR4 BLK4M1 G56, JMS I PCHEKR BLK4M1 RTABLE PATERN G62, CLA CLL JMP I SUB8 TMP1, 3151 TMP2, 3161 TMP3, 3171 *2000 TABLE1, 0417 0026 0062 0142 0004 0004 0004 0360 0110 0557 0507 0100 0560 0000 0000 0000 0017 0513 0000 0506 0000 0553 7777 TABLE2, 0512 0377 0377 0440 0570 0000 0000 0000 0000 0000 0000 0000 0000 0514 0020 0037 0003 0360 0000 0360 0000 0550 0511 0000 0000 0000 7777 TABLE3, 0511 0021 0000 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0006 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0014 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0022 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0030 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0036 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0044 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0052 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0060 0000 0570 0377 0377 0514 0012 0001 0002 0377 0075 0376 0073 0000 0000 0554 0511 0021 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0021 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0025 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0025 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0031 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0031 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0035 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0035 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0041 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0041 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0045 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0045 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0051 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0045 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0051 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0051 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0055 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0055 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0061 0000 0000 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 0511 0061 0000 0020 0570 0377 0377 0514 0010 0300 0000 0100 0077 0200 0077 0000 0000 0554 7777 TABLE4, 0511 0000 0000 0000 7777 BLK4M1, 0511 BLOCK4, 0155 L104, 0452 0040 7777 0514 0022 0007 0000 0570 0000 0000 0000 0000 0000 0000 0000 0000 0550 7777 RTABLE, 0514 0020 0075 0000 0027 0000 0027 0000 0570 0377 0377 0377 0377 0377 0377 0377 0377 0550 L150, 7777 0420 0520 0620 0720 1020 1120 1220 1320 0000 0030 0060 0110 0140 0170 0220 0250 0012 0014 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0300 0360 0374 0376 0374 0000 0360 0374 0377 0377 0377 0377 0377 0000 0017 0177 0377 0377 0377 0377 0377 0000 0000 0000 0003 0017 0077 0177 0077 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0360 0360 0300 0300 0360 0377 0360 0300 0377 0377 0377 0377 0377 0377 0377 0377 0377 0377 0377 0377 0377 0377 0377 0377 0017 0017 0003 0003 0017 0377 0017 0003 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0360 0374 0377 0000 0000 0000 0000 0000 0377 0377 0377 0000 0377 0377 0377 0377 0377 0377 0377 0000 0377 0377 0377 0377 0377 0377 0377 0000 0000 0000 0000 0000 0377 0377 0377 0000 0000 0000 0000 0000 0017 0077 0377 0000 0000 0000 0000 0000 0000 0000 0000 0000 5600 0000 0000 0000 *3600 LODVAL, E44 CLA CLL TAD I LODVAL TAD L7777 DCA XR1 ISZ LODVAL NOP LODLUP, TAD I XR1 IAC SNA JMP I LODVAL TAD L7777 AND L777 DCA LODTMP GRGR RTR SZL CLA JMP .-3 TAD LODTMP GRGW CLA JMP LODLUP L777, 0777 $ /THAT'S ALL FOLK!