Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » AUTOSTEREO
AUTOSTEREO
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF |
Filename: | AUTOSTEREO |
Read OK: | ✔ |
File size: | 0BF7 bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF8023 |
Duplicates
There are 4 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Autostereograms_1.ADF » AUTOmc
- Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » AUTOSTEREO
- Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » AUTOSTEREO
- Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/AUTOSTEREO
- Personal collection » Acorn hard disk » zipped_disks » elk06 » autoster/AUTOmc
File contents
4MODE 4 5HIMEM=&4000 10width=320 20height=256 30eyes=90 50FORpass=0 TO 2 STEP 2:P%=&4000:[OPTpass 60LDAheightLO:STAyLO:LDAheightHI:STAyHI:LDAyLO:SEC:SBC#1:STAyLO:BCScont:DECyHI:.cont LDA#&50:STA&71:LDY#0:STY&70:LDA#0:.clearloop STA(&70),Y:INY:BNEclearloop:INC&71:BPLclearloop 65.newline LDA#0:STAxLO:STAxHI:STAsameLO:STAsameHI 70LDX#0:LDY#0:.sameloop JSRwritesame:INX:INCsameLO:BNEsameloop:INY:INCsameHI:CPYwidthHI:BCCsameloop:BEQsameloop 80.newdot JSRshape 90CLC:LDAsepLO:ANDyLO:AND#1:ADCsepLO:STA&70:LDAsepHI:ANDyHI:ADCsepHI:CLC:LSR A:STA&71:ROR&70:LDAxLO:SEC:SBC&70:STAiLO:LDAxHI:SBC&71:BPLiOK:JMPnextdot:.iOK STAiHI 100LDAiLO:CLC:ADCsepLO:STAjLO:LDAiHI:ADCsepHI:STAjHI:CMPwidthHI:BCCjOK:BNEnextdotB:LDAjLO:CMPwidthLO:BCCjOK:.nextdotB JMPnextdot:.jOK 110.sameloop2 LDAiLO:STAsameLO:LDAiHI:STAsameHI:JSRreadsame:CPYjHI:BCCifA:BNEifB:CPXjLO:BCCifA:BEQifA:.ifB STXsLO:STYsHI:LDXjLO:LDYjHI:JSRwritesame:LDAsLO:STAjLO:LDAsHI:STAjHI 115 .ifA STXiLO:STYiHI:STXsameLO:STYsameHI:LDXjLO:LDYjHI:JSRwritesame:CPXiLO:BNEsameloop2:CPYiHI:BNEsameloop2 120.nextdot INCxLO:BNEcheck:INCxHI:.check LDAxHI:CMPwidthHI:BCCloopend:LDAxLO:CMPwidthLO:BEQdisploop:.loopend JMPnewdot 130.disploop LDAxLO:SEC:SBC#1::STAxLO:BCScheck2:DECxHI:.check2 LDAxHI:BPLcolour:JMPnextline 140.colour STAsameHI:LDAxLO:STAsameLO:JSRreadsame:CPXxLO:BNEsame:CPYxHI:BNEsame:LDA#0:STA&70:RTS:.random LDX&71:JSRwritecol:JMPdisp:.same LDAxLO:STAsameLO:LDAxHI:STAsameHI:JSRreadsame:STXcolLO:STYcolHI:JSRreadcol:JSRwritecol 150.disp TXA:BEQdisploop:LDA#25:JSR&FFEE:LDA#4:JSR&FFEE:LDAxLO:STA&70:LDAxHI:STA&71:ASL&70:ROL&71:ASL&70:ROL&71:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDAyLO:STA&72:LDAyHI:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE 160LDA#25:JSR&FFEE:LDA#5:JSR&FFEE:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE:JMPdisploop 170.nextline LDAyLO:SEC:SBC#1:STAyLO:BCSagain:DECyHI:BPLagain:LDA#1:STA&70:RTS:.again JMPnewline 180.writesame LDAsameLO:STA&80:LDAsameHI:STA&81:ASL&80:ROL&81:CLC:LDA#&50:ADC&81:STA&81:TYA:PHA:LDY#1:STA(&80),Y:DEY:TXA:STA(&80),Y:PLA:TAY:RTS 190.readsame LDAsameLO:STA&80:LDAsameHI:STA&81:ASL&80:ROL&81:CLC:LDA#&50:ADC&81:STA&81:LDY#0:LDA(&80),Y:TAX:INY:LDA(&80),Y:TAY:RTS 200.writecol LDAxLO:STA&80:LDAxHI:CLC:ADC#&55:STA&81:STY&83:TXA:LDY#0:STA(&80),Y:LDY&83:RTS 210.readcol LDAcolLO:STA&80:LDAcolHI:CLC:ADC#&55:STA&81:STY&83:LDY#0:LDA(&80),Y:TAX:LDY&83:RTS 220.xLO EQUB0:.xHI EQUB0:.yLO EQUB0:.yHI EQUB0:.sameLO EQUB0:.sameHI EQUB0:.colLO EQUB0:.colHI EQUB0:.widthLO EQUB0:.widthHI EQUB0:.heightLO EQUB0:.heightHI EQUB0:.sepLO EQUB0:.sepHI EQUB0:.iLO EQUB0:.iHI EQUB0 225.jLO EQUB0:.jHI EQUB0:.sLO EQUB0:.sHI EQUB0 230.shape LDAyLO:CMP#192:BCSground:CMP#64:BCCground:LDAxHI:BNEground:LDAxLO:CMP#80:BCCground:CMP#240:BCSground:LDXobjLO:LDYobjHI:JMPendshape:.ground LDXgroundLO:LDYgroundHI:.endshape STXsepLO:STYsepHI:RTS 240.groundLO EQUB0:.groundHI EQUB0:.objLO EQUB0:.objHI EQUB0 250] 260NEXT 265!widthLO=width+height*65536 270eyes=90 280ground=eyes/2:obj=ground-4 290!groundLO=ground+obj*65536 300CALL&4000 310IF?&70=1 THEN END ELSE ?&71=RND(2)-1:CALLrandom:GOTO310
� 4 �=&4000 width=320 height=256 eyes=90 2%�pass=0 � 2 � 2:P%=&4000:[OPTpass <�LDAheightLO:STAyLO:LDAheightHI:STAyHI:LDAyLO:SEC:SBC#1:STAyLO:BCScont:DECyHI:.cont LDA#&50:STA&71:LDY#0:STY&70:LDA#0:.clearloop STA(&70),Y:INY:BNEclearloop:INC&71:BPLclearloop A4.newline LDA#0:STAxLO:STAxHI:STAsameLO:STAsameHI FqLDX#0:LDY#0:.sameloop JSRwritesame:INX:INCsameLO:BNEsameloop:INY:INCsameHI:CPYwidthHI:BCCsameloop:BEQsameloop P.newdot JSRshape Z�CLC:LDAsepLO:�yLO:�#1:ADCsepLO:STA&70:LDAsepHI:�yHI:ADCsepHI:CLC:LSR A:STA&71:ROR&70:LDAxLO:SEC:SBC&70:STAiLO:LDAxHI:SBC&71:BPLiOK:JMPnextdot:.iOK STAiHI d�LDAiLO:CLC:ADCsepLO:STAjLO:LDAiHI:ADCsepHI:STAjHI:CMPwidthHI:BCCjOK:BNEnextdotB:LDAjLO:CMPwidthLO:BCCjOK:.nextdotB JMPnextdot:.jOK n�.sameloop2 LDAiLO:STAsameLO:LDAiHI:STAsameHI:JSRreadsame:CPYjHI:BCCifA:BNEifB:CPXjLO:BCCifA:BEQifA:.ifB STXsLO:STYsHI:LDXjLO:LDYjHI:JSRwritesame:LDAsLO:STAjLO:LDAsHI:STAjHI sn .ifA STXiLO:STYiHI:STXsameLO:STYsameHI:LDXjLO:LDYjHI:JSRwritesame:CPXiLO:BNEsameloop2:CPYiHI:BNEsameloop2 xx.nextdot INCxLO:BNEcheck:INCxHI:.check LDAxHI:CMPwidthHI:BCCloopend:LDAxLO:CMPwidthLO:BEQdisploop:.loopend JMPnewdot �\.disploop LDAxLO:SEC:SBC#1::STAxLO:BCScheck2:DECxHI:.check2 LDAxHI:BPLcolour:JMPnextline ��.colour STAsameHI:LDAxLO:STAsameLO:JSRreadsame:CPXxLO:BNEsame:CPYxHI:BNEsame:LDA#0:STA&70:RTS:.random LDX&71:JSRwritecol:JMPdisp:.same LDAxLO:STAsameLO:LDAxHI:STAsameHI:JSRreadsame:STXcolLO:STYcolHI:JSRreadcol:JSRwritecol ��.disp TXA:BEQdisploop:LDA#25:JSR&FFEE:LDA#4:JSR&FFEE:LDAxLO:STA&70:LDAxHI:STA&71:ASL&70:ROL&71:ASL&70:ROL&71:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDAyLO:STA&72:LDAyHI:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE �nLDA#25:JSR&FFEE:LDA#5:JSR&FFEE:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE:JMPdisploop �a.nextline LDAyLO:SEC:SBC#1:STAyLO:BCSagain:DECyHI:BPLagain:LDA#1:STA&70:RTS:.again JMPnewline ��.writesame LDAsameLO:STA&80:LDAsameHI:STA&81:ASL&80:ROL&81:CLC:LDA#&50:ADC&81:STA&81:TYA:PHA:LDY#1:STA(&80),Y:DEY:TXA:STA(&80),Y:PLA:TAY:RTS ��.readsame LDAsameLO:STA&80:LDAsameHI:STA&81:ASL&80:ROL&81:CLC:LDA#&50:ADC&81:STA&81:LDY#0:LDA(&80),Y:TAX:INY:LDA(&80),Y:TAY:RTS �\.writecol LDAxLO:STA&80:LDAxHI:CLC:ADC#&55:STA&81:STY&83:TXA:LDY#0:STA(&80),Y:LDY&83:RTS �_.readcol LDAcolLO:STA&80:LDAcolHI:CLC:ADC#&55:STA&81:STY&83:LDY#0:LDA(&80),Y:TAX:LDY&83:RTS ��.xLO EQUB0:.xHI EQUB0:.yLO EQUB0:.yHI EQUB0:.sameLO EQUB0:.sameHI EQUB0:.colLO EQUB0:.colHI EQUB0:.widthLO EQUB0:.widthHI EQUB0:.heightLO EQUB0:.heightHI EQUB0:.sepLO EQUB0:.sepHI EQUB0:.iLO EQUB0:.iHI EQUB0 �/.jLO EQUB0:.jHI EQUB0:.sLO EQUB0:.sHI EQUB0 ��.shape LDAyLO:CMP#192:BCSground:CMP#64:BCCground:LDAxHI:BNEground:LDAxLO:CMP#80:BCCground:CMP#240:BCSground:LDXobjLO:LDYobjHI:JMPendshape:.ground LDXgroundLO:LDYgroundHI:.endshape STXsepLO:STYsepHI:RTS �=.groundLO EQUB0:.groundHI EQUB0:.objLO EQUB0:.objHI EQUB0 �] � !widthLO=width+height*65536 eyes=90 ground=eyes/2:obj=ground-4 "!groundLO=ground+obj*65536 , �&4000 6+�?&70=1 � � � ?&71=�(2)-1:�random:�TvA �
00000000 0d 00 04 07 eb 20 34 0d 00 05 0b d3 3d 26 34 30 |..... 4.....=&40| 00000010 30 30 0d 00 0a 0d 77 69 64 74 68 3d 33 32 30 0d |00....width=320.| 00000020 00 14 0e 68 65 69 67 68 74 3d 32 35 36 0d 00 1e |...height=256...| 00000030 0b 65 79 65 73 3d 39 30 0d 00 32 25 e3 70 61 73 |.eyes=90..2%.pas| 00000040 73 3d 30 20 b8 20 32 20 88 20 32 3a 50 25 3d 26 |s=0 . 2 . 2:P%=&| 00000050 34 30 30 30 3a 5b 4f 50 54 70 61 73 73 0d 00 3c |4000:[OPTpass..<| 00000060 b3 4c 44 41 68 65 69 67 68 74 4c 4f 3a 53 54 41 |.LDAheightLO:STA| 00000070 79 4c 4f 3a 4c 44 41 68 65 69 67 68 74 48 49 3a |yLO:LDAheightHI:| 00000080 53 54 41 79 48 49 3a 4c 44 41 79 4c 4f 3a 53 45 |STAyHI:LDAyLO:SE| 00000090 43 3a 53 42 43 23 31 3a 53 54 41 79 4c 4f 3a 42 |C:SBC#1:STAyLO:B| 000000a0 43 53 63 6f 6e 74 3a 44 45 43 79 48 49 3a 2e 63 |CScont:DECyHI:.c| 000000b0 6f 6e 74 20 4c 44 41 23 26 35 30 3a 53 54 41 26 |ont LDA#&50:STA&| 000000c0 37 31 3a 4c 44 59 23 30 3a 53 54 59 26 37 30 3a |71:LDY#0:STY&70:| 000000d0 4c 44 41 23 30 3a 2e 63 6c 65 61 72 6c 6f 6f 70 |LDA#0:.clearloop| 000000e0 20 53 54 41 28 26 37 30 29 2c 59 3a 49 4e 59 3a | STA(&70),Y:INY:| 000000f0 42 4e 45 63 6c 65 61 72 6c 6f 6f 70 3a 49 4e 43 |BNEclearloop:INC| 00000100 26 37 31 3a 42 50 4c 63 6c 65 61 72 6c 6f 6f 70 |&71:BPLclearloop| 00000110 0d 00 41 34 2e 6e 65 77 6c 69 6e 65 20 4c 44 41 |..A4.newline LDA| 00000120 23 30 3a 53 54 41 78 4c 4f 3a 53 54 41 78 48 49 |#0:STAxLO:STAxHI| 00000130 3a 53 54 41 73 61 6d 65 4c 4f 3a 53 54 41 73 61 |:STAsameLO:STAsa| 00000140 6d 65 48 49 0d 00 46 71 4c 44 58 23 30 3a 4c 44 |meHI..FqLDX#0:LD| 00000150 59 23 30 3a 2e 73 61 6d 65 6c 6f 6f 70 20 4a 53 |Y#0:.sameloop JS| 00000160 52 77 72 69 74 65 73 61 6d 65 3a 49 4e 58 3a 49 |Rwritesame:INX:I| 00000170 4e 43 73 61 6d 65 4c 4f 3a 42 4e 45 73 61 6d 65 |NCsameLO:BNEsame| 00000180 6c 6f 6f 70 3a 49 4e 59 3a 49 4e 43 73 61 6d 65 |loop:INY:INCsame| 00000190 48 49 3a 43 50 59 77 69 64 74 68 48 49 3a 42 43 |HI:CPYwidthHI:BC| 000001a0 43 73 61 6d 65 6c 6f 6f 70 3a 42 45 51 73 61 6d |Csameloop:BEQsam| 000001b0 65 6c 6f 6f 70 0d 00 50 14 2e 6e 65 77 64 6f 74 |eloop..P..newdot| 000001c0 20 4a 53 52 73 68 61 70 65 0d 00 5a 9d 43 4c 43 | JSRshape..Z.CLC| 000001d0 3a 4c 44 41 73 65 70 4c 4f 3a 80 79 4c 4f 3a 80 |:LDAsepLO:.yLO:.| 000001e0 23 31 3a 41 44 43 73 65 70 4c 4f 3a 53 54 41 26 |#1:ADCsepLO:STA&| 000001f0 37 30 3a 4c 44 41 73 65 70 48 49 3a 80 79 48 49 |70:LDAsepHI:.yHI| 00000200 3a 41 44 43 73 65 70 48 49 3a 43 4c 43 3a 4c 53 |:ADCsepHI:CLC:LS| 00000210 52 20 41 3a 53 54 41 26 37 31 3a 52 4f 52 26 37 |R A:STA&71:ROR&7| 00000220 30 3a 4c 44 41 78 4c 4f 3a 53 45 43 3a 53 42 43 |0:LDAxLO:SEC:SBC| 00000230 26 37 30 3a 53 54 41 69 4c 4f 3a 4c 44 41 78 48 |&70:STAiLO:LDAxH| 00000240 49 3a 53 42 43 26 37 31 3a 42 50 4c 69 4f 4b 3a |I:SBC&71:BPLiOK:| 00000250 4a 4d 50 6e 65 78 74 64 6f 74 3a 2e 69 4f 4b 20 |JMPnextdot:.iOK | 00000260 53 54 41 69 48 49 0d 00 64 86 4c 44 41 69 4c 4f |STAiHI..d.LDAiLO| 00000270 3a 43 4c 43 3a 41 44 43 73 65 70 4c 4f 3a 53 54 |:CLC:ADCsepLO:ST| 00000280 41 6a 4c 4f 3a 4c 44 41 69 48 49 3a 41 44 43 73 |AjLO:LDAiHI:ADCs| 00000290 65 70 48 49 3a 53 54 41 6a 48 49 3a 43 4d 50 77 |epHI:STAjHI:CMPw| 000002a0 69 64 74 68 48 49 3a 42 43 43 6a 4f 4b 3a 42 4e |idthHI:BCCjOK:BN| 000002b0 45 6e 65 78 74 64 6f 74 42 3a 4c 44 41 6a 4c 4f |EnextdotB:LDAjLO| 000002c0 3a 43 4d 50 77 69 64 74 68 4c 4f 3a 42 43 43 6a |:CMPwidthLO:BCCj| 000002d0 4f 4b 3a 2e 6e 65 78 74 64 6f 74 42 20 4a 4d 50 |OK:.nextdotB JMP| 000002e0 6e 65 78 74 64 6f 74 3a 2e 6a 4f 4b 0d 00 6e b0 |nextdot:.jOK..n.| 000002f0 2e 73 61 6d 65 6c 6f 6f 70 32 20 4c 44 41 69 4c |.sameloop2 LDAiL| 00000300 4f 3a 53 54 41 73 61 6d 65 4c 4f 3a 4c 44 41 69 |O:STAsameLO:LDAi| 00000310 48 49 3a 53 54 41 73 61 6d 65 48 49 3a 4a 53 52 |HI:STAsameHI:JSR| 00000320 72 65 61 64 73 61 6d 65 3a 43 50 59 6a 48 49 3a |readsame:CPYjHI:| 00000330 42 43 43 69 66 41 3a 42 4e 45 69 66 42 3a 43 50 |BCCifA:BNEifB:CP| 00000340 58 6a 4c 4f 3a 42 43 43 69 66 41 3a 42 45 51 69 |XjLO:BCCifA:BEQi| 00000350 66 41 3a 2e 69 66 42 20 53 54 58 73 4c 4f 3a 53 |fA:.ifB STXsLO:S| 00000360 54 59 73 48 49 3a 4c 44 58 6a 4c 4f 3a 4c 44 59 |TYsHI:LDXjLO:LDY| 00000370 6a 48 49 3a 4a 53 52 77 72 69 74 65 73 61 6d 65 |jHI:JSRwritesame| 00000380 3a 4c 44 41 73 4c 4f 3a 53 54 41 6a 4c 4f 3a 4c |:LDAsLO:STAjLO:L| 00000390 44 41 73 48 49 3a 53 54 41 6a 48 49 0d 00 73 6e |DAsHI:STAjHI..sn| 000003a0 20 2e 69 66 41 20 53 54 58 69 4c 4f 3a 53 54 59 | .ifA STXiLO:STY| 000003b0 69 48 49 3a 53 54 58 73 61 6d 65 4c 4f 3a 53 54 |iHI:STXsameLO:ST| 000003c0 59 73 61 6d 65 48 49 3a 4c 44 58 6a 4c 4f 3a 4c |YsameHI:LDXjLO:L| 000003d0 44 59 6a 48 49 3a 4a 53 52 77 72 69 74 65 73 61 |DYjHI:JSRwritesa| 000003e0 6d 65 3a 43 50 58 69 4c 4f 3a 42 4e 45 73 61 6d |me:CPXiLO:BNEsam| 000003f0 65 6c 6f 6f 70 32 3a 43 50 59 69 48 49 3a 42 4e |eloop2:CPYiHI:BN| 00000400 45 73 61 6d 65 6c 6f 6f 70 32 0d 00 78 78 2e 6e |Esameloop2..xx.n| 00000410 65 78 74 64 6f 74 20 49 4e 43 78 4c 4f 3a 42 4e |extdot INCxLO:BN| 00000420 45 63 68 65 63 6b 3a 49 4e 43 78 48 49 3a 2e 63 |Echeck:INCxHI:.c| 00000430 68 65 63 6b 20 4c 44 41 78 48 49 3a 43 4d 50 77 |heck LDAxHI:CMPw| 00000440 69 64 74 68 48 49 3a 42 43 43 6c 6f 6f 70 65 6e |idthHI:BCCloopen| 00000450 64 3a 4c 44 41 78 4c 4f 3a 43 4d 50 77 69 64 74 |d:LDAxLO:CMPwidt| 00000460 68 4c 4f 3a 42 45 51 64 69 73 70 6c 6f 6f 70 3a |hLO:BEQdisploop:| 00000470 2e 6c 6f 6f 70 65 6e 64 20 4a 4d 50 6e 65 77 64 |.loopend JMPnewd| 00000480 6f 74 0d 00 82 5c 2e 64 69 73 70 6c 6f 6f 70 20 |ot...\.disploop | 00000490 4c 44 41 78 4c 4f 3a 53 45 43 3a 53 42 43 23 31 |LDAxLO:SEC:SBC#1| 000004a0 3a 3a 53 54 41 78 4c 4f 3a 42 43 53 63 68 65 63 |::STAxLO:BCSchec| 000004b0 6b 32 3a 44 45 43 78 48 49 3a 2e 63 68 65 63 6b |k2:DECxHI:.check| 000004c0 32 20 4c 44 41 78 48 49 3a 42 50 4c 63 6f 6c 6f |2 LDAxHI:BPLcolo| 000004d0 75 72 3a 4a 4d 50 6e 65 78 74 6c 69 6e 65 0d 00 |ur:JMPnextline..| 000004e0 8c e1 2e 63 6f 6c 6f 75 72 20 53 54 41 73 61 6d |...colour STAsam| 000004f0 65 48 49 3a 4c 44 41 78 4c 4f 3a 53 54 41 73 61 |eHI:LDAxLO:STAsa| 00000500 6d 65 4c 4f 3a 4a 53 52 72 65 61 64 73 61 6d 65 |meLO:JSRreadsame| 00000510 3a 43 50 58 78 4c 4f 3a 42 4e 45 73 61 6d 65 3a |:CPXxLO:BNEsame:| 00000520 43 50 59 78 48 49 3a 42 4e 45 73 61 6d 65 3a 4c |CPYxHI:BNEsame:L| 00000530 44 41 23 30 3a 53 54 41 26 37 30 3a 52 54 53 3a |DA#0:STA&70:RTS:| 00000540 2e 72 61 6e 64 6f 6d 20 4c 44 58 26 37 31 3a 4a |.random LDX&71:J| 00000550 53 52 77 72 69 74 65 63 6f 6c 3a 4a 4d 50 64 69 |SRwritecol:JMPdi| 00000560 73 70 3a 2e 73 61 6d 65 20 4c 44 41 78 4c 4f 3a |sp:.same LDAxLO:| 00000570 53 54 41 73 61 6d 65 4c 4f 3a 4c 44 41 78 48 49 |STAsameLO:LDAxHI| 00000580 3a 53 54 41 73 61 6d 65 48 49 3a 4a 53 52 72 65 |:STAsameHI:JSRre| 00000590 61 64 73 61 6d 65 3a 53 54 58 63 6f 6c 4c 4f 3a |adsame:STXcolLO:| 000005a0 53 54 59 63 6f 6c 48 49 3a 4a 53 52 72 65 61 64 |STYcolHI:JSRread| 000005b0 63 6f 6c 3a 4a 53 52 77 72 69 74 65 63 6f 6c 0d |col:JSRwritecol.| 000005c0 00 96 e8 2e 64 69 73 70 20 54 58 41 3a 42 45 51 |....disp TXA:BEQ| 000005d0 64 69 73 70 6c 6f 6f 70 3a 4c 44 41 23 32 35 3a |disploop:LDA#25:| 000005e0 4a 53 52 26 46 46 45 45 3a 4c 44 41 23 34 3a 4a |JSR&FFEE:LDA#4:J| 000005f0 53 52 26 46 46 45 45 3a 4c 44 41 78 4c 4f 3a 53 |SR&FFEE:LDAxLO:S| 00000600 54 41 26 37 30 3a 4c 44 41 78 48 49 3a 53 54 41 |TA&70:LDAxHI:STA| 00000610 26 37 31 3a 41 53 4c 26 37 30 3a 52 4f 4c 26 37 |&71:ASL&70:ROL&7| 00000620 31 3a 41 53 4c 26 37 30 3a 52 4f 4c 26 37 31 3a |1:ASL&70:ROL&71:| 00000630 4c 44 41 26 37 30 3a 4a 53 52 26 46 46 45 45 3a |LDA&70:JSR&FFEE:| 00000640 4c 44 41 26 37 31 3a 4a 53 52 26 46 46 45 45 3a |LDA&71:JSR&FFEE:| 00000650 4c 44 41 79 4c 4f 3a 53 54 41 26 37 32 3a 4c 44 |LDAyLO:STA&72:LD| 00000660 41 79 48 49 3a 53 54 41 26 37 33 3a 41 53 4c 26 |AyHI:STA&73:ASL&| 00000670 37 32 3a 52 4f 4c 26 37 33 3a 41 53 4c 26 37 32 |72:ROL&73:ASL&72| 00000680 3a 52 4f 4c 26 37 33 3a 4c 44 41 26 37 32 3a 4a |:ROL&73:LDA&72:J| 00000690 53 52 26 46 46 45 45 3a 4c 44 41 26 37 33 3a 4a |SR&FFEE:LDA&73:J| 000006a0 53 52 26 46 46 45 45 0d 00 a0 6e 4c 44 41 23 32 |SR&FFEE...nLDA#2| 000006b0 35 3a 4a 53 52 26 46 46 45 45 3a 4c 44 41 23 35 |5:JSR&FFEE:LDA#5| 000006c0 3a 4a 53 52 26 46 46 45 45 3a 4c 44 41 26 37 30 |:JSR&FFEE:LDA&70| 000006d0 3a 4a 53 52 26 46 46 45 45 3a 4c 44 41 26 37 31 |:JSR&FFEE:LDA&71| 000006e0 3a 4a 53 52 26 46 46 45 45 3a 4c 44 41 26 37 32 |:JSR&FFEE:LDA&72| 000006f0 3a 4a 53 52 26 46 46 45 45 3a 4c 44 41 26 37 33 |:JSR&FFEE:LDA&73| 00000700 3a 4a 53 52 26 46 46 45 45 3a 4a 4d 50 64 69 73 |:JSR&FFEE:JMPdis| 00000710 70 6c 6f 6f 70 0d 00 aa 61 2e 6e 65 78 74 6c 69 |ploop...a.nextli| 00000720 6e 65 20 4c 44 41 79 4c 4f 3a 53 45 43 3a 53 42 |ne LDAyLO:SEC:SB| 00000730 43 23 31 3a 53 54 41 79 4c 4f 3a 42 43 53 61 67 |C#1:STAyLO:BCSag| 00000740 61 69 6e 3a 44 45 43 79 48 49 3a 42 50 4c 61 67 |ain:DECyHI:BPLag| 00000750 61 69 6e 3a 4c 44 41 23 31 3a 53 54 41 26 37 30 |ain:LDA#1:STA&70| 00000760 3a 52 54 53 3a 2e 61 67 61 69 6e 20 4a 4d 50 6e |:RTS:.again JMPn| 00000770 65 77 6c 69 6e 65 0d 00 b4 90 2e 77 72 69 74 65 |ewline.....write| 00000780 73 61 6d 65 20 4c 44 41 73 61 6d 65 4c 4f 3a 53 |same LDAsameLO:S| 00000790 54 41 26 38 30 3a 4c 44 41 73 61 6d 65 48 49 3a |TA&80:LDAsameHI:| 000007a0 53 54 41 26 38 31 3a 41 53 4c 26 38 30 3a 52 4f |STA&81:ASL&80:RO| 000007b0 4c 26 38 31 3a 43 4c 43 3a 4c 44 41 23 26 35 30 |L&81:CLC:LDA#&50| 000007c0 3a 41 44 43 26 38 31 3a 53 54 41 26 38 31 3a 54 |:ADC&81:STA&81:T| 000007d0 59 41 3a 50 48 41 3a 4c 44 59 23 31 3a 53 54 41 |YA:PHA:LDY#1:STA| 000007e0 28 26 38 30 29 2c 59 3a 44 45 59 3a 54 58 41 3a |(&80),Y:DEY:TXA:| 000007f0 53 54 41 28 26 38 30 29 2c 59 3a 50 4c 41 3a 54 |STA(&80),Y:PLA:T| 00000800 41 59 3a 52 54 53 0d 00 be 83 2e 72 65 61 64 73 |AY:RTS.....reads| 00000810 61 6d 65 20 4c 44 41 73 61 6d 65 4c 4f 3a 53 54 |ame LDAsameLO:ST| 00000820 41 26 38 30 3a 4c 44 41 73 61 6d 65 48 49 3a 53 |A&80:LDAsameHI:S| 00000830 54 41 26 38 31 3a 41 53 4c 26 38 30 3a 52 4f 4c |TA&81:ASL&80:ROL| 00000840 26 38 31 3a 43 4c 43 3a 4c 44 41 23 26 35 30 3a |&81:CLC:LDA#&50:| 00000850 41 44 43 26 38 31 3a 53 54 41 26 38 31 3a 4c 44 |ADC&81:STA&81:LD| 00000860 59 23 30 3a 4c 44 41 28 26 38 30 29 2c 59 3a 54 |Y#0:LDA(&80),Y:T| 00000870 41 58 3a 49 4e 59 3a 4c 44 41 28 26 38 30 29 2c |AX:INY:LDA(&80),| 00000880 59 3a 54 41 59 3a 52 54 53 0d 00 c8 5c 2e 77 72 |Y:TAY:RTS...\.wr| 00000890 69 74 65 63 6f 6c 20 4c 44 41 78 4c 4f 3a 53 54 |itecol LDAxLO:ST| 000008a0 41 26 38 30 3a 4c 44 41 78 48 49 3a 43 4c 43 3a |A&80:LDAxHI:CLC:| 000008b0 41 44 43 23 26 35 35 3a 53 54 41 26 38 31 3a 53 |ADC#&55:STA&81:S| 000008c0 54 59 26 38 33 3a 54 58 41 3a 4c 44 59 23 30 3a |TY&83:TXA:LDY#0:| 000008d0 53 54 41 28 26 38 30 29 2c 59 3a 4c 44 59 26 38 |STA(&80),Y:LDY&8| 000008e0 33 3a 52 54 53 0d 00 d2 5f 2e 72 65 61 64 63 6f |3:RTS..._.readco| 000008f0 6c 20 4c 44 41 63 6f 6c 4c 4f 3a 53 54 41 26 38 |l LDAcolLO:STA&8| 00000900 30 3a 4c 44 41 63 6f 6c 48 49 3a 43 4c 43 3a 41 |0:LDAcolHI:CLC:A| 00000910 44 43 23 26 35 35 3a 53 54 41 26 38 31 3a 53 54 |DC#&55:STA&81:ST| 00000920 59 26 38 33 3a 4c 44 59 23 30 3a 4c 44 41 28 26 |Y&83:LDY#0:LDA(&| 00000930 38 30 29 2c 59 3a 54 41 58 3a 4c 44 59 26 38 33 |80),Y:TAX:LDY&83| 00000940 3a 52 54 53 0d 00 dc d3 2e 78 4c 4f 20 45 51 55 |:RTS.....xLO EQU| 00000950 42 30 3a 2e 78 48 49 20 45 51 55 42 30 3a 2e 79 |B0:.xHI EQUB0:.y| 00000960 4c 4f 20 45 51 55 42 30 3a 2e 79 48 49 20 45 51 |LO EQUB0:.yHI EQ| 00000970 55 42 30 3a 2e 73 61 6d 65 4c 4f 20 45 51 55 42 |UB0:.sameLO EQUB| 00000980 30 3a 2e 73 61 6d 65 48 49 20 45 51 55 42 30 3a |0:.sameHI EQUB0:| 00000990 2e 63 6f 6c 4c 4f 20 45 51 55 42 30 3a 2e 63 6f |.colLO EQUB0:.co| 000009a0 6c 48 49 20 45 51 55 42 30 3a 2e 77 69 64 74 68 |lHI EQUB0:.width| 000009b0 4c 4f 20 45 51 55 42 30 3a 2e 77 69 64 74 68 48 |LO EQUB0:.widthH| 000009c0 49 20 45 51 55 42 30 3a 2e 68 65 69 67 68 74 4c |I EQUB0:.heightL| 000009d0 4f 20 45 51 55 42 30 3a 2e 68 65 69 67 68 74 48 |O EQUB0:.heightH| 000009e0 49 20 45 51 55 42 30 3a 2e 73 65 70 4c 4f 20 45 |I EQUB0:.sepLO E| 000009f0 51 55 42 30 3a 2e 73 65 70 48 49 20 45 51 55 42 |QUB0:.sepHI EQUB| 00000a00 30 3a 2e 69 4c 4f 20 45 51 55 42 30 3a 2e 69 48 |0:.iLO EQUB0:.iH| 00000a10 49 20 45 51 55 42 30 0d 00 e1 2f 2e 6a 4c 4f 20 |I EQUB0.../.jLO | 00000a20 45 51 55 42 30 3a 2e 6a 48 49 20 45 51 55 42 30 |EQUB0:.jHI EQUB0| 00000a30 3a 2e 73 4c 4f 20 45 51 55 42 30 3a 2e 73 48 49 |:.sLO EQUB0:.sHI| 00000a40 20 45 51 55 42 30 0d 00 e6 cd 2e 73 68 61 70 65 | EQUB0.....shape| 00000a50 20 4c 44 41 79 4c 4f 3a 43 4d 50 23 31 39 32 3a | LDAyLO:CMP#192:| 00000a60 42 43 53 67 72 6f 75 6e 64 3a 43 4d 50 23 36 34 |BCSground:CMP#64| 00000a70 3a 42 43 43 67 72 6f 75 6e 64 3a 4c 44 41 78 48 |:BCCground:LDAxH| 00000a80 49 3a 42 4e 45 67 72 6f 75 6e 64 3a 4c 44 41 78 |I:BNEground:LDAx| 00000a90 4c 4f 3a 43 4d 50 23 38 30 3a 42 43 43 67 72 6f |LO:CMP#80:BCCgro| 00000aa0 75 6e 64 3a 43 4d 50 23 32 34 30 3a 42 43 53 67 |und:CMP#240:BCSg| 00000ab0 72 6f 75 6e 64 3a 4c 44 58 6f 62 6a 4c 4f 3a 4c |round:LDXobjLO:L| 00000ac0 44 59 6f 62 6a 48 49 3a 4a 4d 50 65 6e 64 73 68 |DYobjHI:JMPendsh| 00000ad0 61 70 65 3a 2e 67 72 6f 75 6e 64 20 4c 44 58 67 |ape:.ground LDXg| 00000ae0 72 6f 75 6e 64 4c 4f 3a 4c 44 59 67 72 6f 75 6e |roundLO:LDYgroun| 00000af0 64 48 49 3a 2e 65 6e 64 73 68 61 70 65 20 53 54 |dHI:.endshape ST| 00000b00 58 73 65 70 4c 4f 3a 53 54 59 73 65 70 48 49 3a |XsepLO:STYsepHI:| 00000b10 52 54 53 0d 00 f0 3d 2e 67 72 6f 75 6e 64 4c 4f |RTS...=.groundLO| 00000b20 20 45 51 55 42 30 3a 2e 67 72 6f 75 6e 64 48 49 | EQUB0:.groundHI| 00000b30 20 45 51 55 42 30 3a 2e 6f 62 6a 4c 4f 20 45 51 | EQUB0:.objLO EQ| 00000b40 55 42 30 3a 2e 6f 62 6a 48 49 20 45 51 55 42 30 |UB0:.objHI EQUB0| 00000b50 0d 00 fa 05 5d 0d 01 04 05 ed 0d 01 09 1f 21 77 |....].........!w| 00000b60 69 64 74 68 4c 4f 3d 77 69 64 74 68 2b 68 65 69 |idthLO=width+hei| 00000b70 67 68 74 2a 36 35 35 33 36 0d 01 0e 0b 65 79 65 |ght*65536....eye| 00000b80 73 3d 39 30 0d 01 18 1e 67 72 6f 75 6e 64 3d 65 |s=90....ground=e| 00000b90 79 65 73 2f 32 3a 6f 62 6a 3d 67 72 6f 75 6e 64 |yes/2:obj=ground| 00000ba0 2d 34 0d 01 22 1e 21 67 72 6f 75 6e 64 4c 4f 3d |-4..".!groundLO=| 00000bb0 67 72 6f 75 6e 64 2b 6f 62 6a 2a 36 35 35 33 36 |ground+obj*65536| 00000bc0 0d 01 2c 0a d6 26 34 30 30 30 0d 01 36 2b e7 3f |..,..&4000..6+.?| 00000bd0 26 37 30 3d 31 20 8c 20 e0 20 8b 20 3f 26 37 31 |&70=1 . . . ?&71| 00000be0 3d b3 28 32 29 2d 31 3a d6 72 61 6e 64 6f 6d 3a |=.(2)-1:.random:| 00000bf0 e5 8d 54 76 41 0d ff |..TvA..| 00000bf7