Home » Personal collection » Acorn ADFS disks » Electron » Autostereograms_1.ADF » AUTOmc

AUTOmc

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 » Autostereograms_1.ADF
Filename: AUTOmc
Read OK:
File size: 0BF7 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There are 4 duplicate copies of this file in the archive:

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
AUTOmc.m0
AUTOmc.m1
AUTOmc.m2
AUTOmc.m4
AUTOmc.m5