� Swirly EUG 36
 � by Dominic Ford
 :
( �2:�=&2C00
2 �23,1,0;0;0;0;:�ass
< �r=0�15:�19,r,0,0,0,0,0:�
F *LO. Swirl2
P �swirl
Z �"MENU"
d :
n
 ��ass
x osbyte=&FFF4:osword=&FFF1
� �pass=0�2�2:P%=&2C00
�
 [OPTpass
�y .swirl LDA#0:STA&80:STA&81:SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#irq � 256:STA&204:LDA#irq � 256:STA&205:CLI
�| .loop LDA&82:STA&83:LDA&80:CLC:ADC&81:STAdata:LDY&81:LDAcols,Y:STAdata+1:LDA#&C:LDX#data � 256:LDY#data � 256:JSRosword
�/ INC&81:LDA&81:CMP#&10:BNEloop:LDA#0:STA&81
�� LDA&83:CLC:ADC#7:TAX:.wait TXA:SEC:SBC&82:BPLwait:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCSstop:LDA#&81:LDX#&8F:LDY#&FF:JSRosbyte:BCSstop
�) LDA&80:CLC:ADC#1:�#&F:STA&80:JMPloop
�< .stop SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS
� .irq INC&82:JMP(vector)
�x .vector EQUW0:.cols EQUB0:EQUB0:EQUB4:EQUB4:EQUB4:EQUB6:EQUB6:EQUB6:EQUB7:EQUB7:EQUB7:EQUB6:EQUB6:EQUB4:EQUB4:EQUB0
� .data EQUD0
�
 ]:�:�
�

00000000  0d 00 0a 14 20 f4 20 53  77 69 72 6c 79 20 45 55  |.... . Swirly EU|
00000010  47 20 33 36 0d 00 14 16  20 f4 20 62 79 20 44 6f  |G 36.... . by Do|
00000020  6d 69 6e 69 63 20 46 6f  72 64 0d 00 1e 06 20 3a  |minic Ford.... :|
00000030  0d 00 28 0f 20 eb 32 3a  d3 3d 26 32 43 30 30 0d  |..(. .2:.=&2C00.|
00000040  00 32 18 20 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.2. .23,1,0;0;0;|
00000050  30 3b 3a f2 61 73 73 0d  00 3c 1e 20 e3 72 3d 30  |0;:.ass..<. .r=0|
00000060  b8 31 35 3a ef 31 39 2c  72 2c 30 2c 30 2c 30 2c  |.15:.19,r,0,0,0,|
00000070  30 2c 30 3a ed 0d 00 46  10 20 2a 4c 4f 2e 20 53  |0,0:...F. *LO. S|
00000080  77 69 72 6c 32 0d 00 50  0b 20 d6 73 77 69 72 6c  |wirl2..P. .swirl|
00000090  0d 00 5a 0c 20 d7 22 4d  45 4e 55 22 0d 00 64 06  |..Z. ."MENU"..d.|
000000a0  20 3a 0d 00 6e 0a 20 dd  f2 61 73 73 0d 00 78 1e  | :..n. ..ass..x.|
000000b0  20 6f 73 62 79 74 65 3d  26 46 46 46 34 3a 6f 73  | osbyte=&FFF4:os|
000000c0  77 6f 72 64 3d 26 46 46  46 31 0d 00 82 19 20 e3  |word=&FFF1.... .|
000000d0  70 61 73 73 3d 30 b8 32  88 32 3a 50 25 3d 26 32  |pass=0.2.2:P%=&2|
000000e0  43 30 30 0d 00 8c 0d 20  5b 4f 50 54 70 61 73 73  |C00.... [OPTpass|
000000f0  0d 00 96 79 20 2e 73 77  69 72 6c 20 4c 44 41 23  |...y .swirl LDA#|
00000100  30 3a 53 54 41 26 38 30  3a 53 54 41 26 38 31 3a  |0:STA&80:STA&81:|
00000110  53 45 49 3a 4c 44 41 26  32 30 34 3a 53 54 41 76  |SEI:LDA&204:STAv|
00000120  65 63 74 6f 72 3a 4c 44  41 26 32 30 35 3a 53 54  |ector:LDA&205:ST|
00000130  41 76 65 63 74 6f 72 2b  31 3a 4c 44 41 23 69 72  |Avector+1:LDA#ir|
00000140  71 20 83 20 32 35 36 3a  53 54 41 26 32 30 34 3a  |q . 256:STA&204:|
00000150  4c 44 41 23 69 72 71 20  81 20 32 35 36 3a 53 54  |LDA#irq . 256:ST|
00000160  41 26 32 30 35 3a 43 4c  49 0d 00 a0 7c 20 2e 6c  |A&205:CLI...| .l|
00000170  6f 6f 70 20 4c 44 41 26  38 32 3a 53 54 41 26 38  |oop LDA&82:STA&8|
00000180  33 3a 4c 44 41 26 38 30  3a 43 4c 43 3a 41 44 43  |3:LDA&80:CLC:ADC|
00000190  26 38 31 3a 53 54 41 64  61 74 61 3a 4c 44 59 26  |&81:STAdata:LDY&|
000001a0  38 31 3a 4c 44 41 63 6f  6c 73 2c 59 3a 53 54 41  |81:LDAcols,Y:STA|
000001b0  64 61 74 61 2b 31 3a 4c  44 41 23 26 43 3a 4c 44  |data+1:LDA#&C:LD|
000001c0  58 23 64 61 74 61 20 83  20 32 35 36 3a 4c 44 59  |X#data . 256:LDY|
000001d0  23 64 61 74 61 20 81 20  32 35 36 3a 4a 53 52 6f  |#data . 256:JSRo|
000001e0  73 77 6f 72 64 0d 00 aa  2f 20 49 4e 43 26 38 31  |sword.../ INC&81|
000001f0  3a 4c 44 41 26 38 31 3a  43 4d 50 23 26 31 30 3a  |:LDA&81:CMP#&10:|
00000200  42 4e 45 6c 6f 6f 70 3a  4c 44 41 23 30 3a 53 54  |BNEloop:LDA#0:ST|
00000210  41 26 38 31 0d 00 b4 8a  20 4c 44 41 26 38 33 3a  |A&81.... LDA&83:|
00000220  43 4c 43 3a 41 44 43 23  37 3a 54 41 58 3a 2e 77  |CLC:ADC#7:TAX:.w|
00000230  61 69 74 20 54 58 41 3a  53 45 43 3a 53 42 43 26  |ait TXA:SEC:SBC&|
00000240  38 32 3a 42 50 4c 77 61  69 74 3a 4c 44 41 23 26  |82:BPLwait:LDA#&|
00000250  38 31 3a 4c 44 58 23 26  39 44 3a 4c 44 59 23 26  |81:LDX#&9D:LDY#&|
00000260  46 46 3a 4a 53 52 6f 73  62 79 74 65 3a 42 43 53  |FF:JSRosbyte:BCS|
00000270  73 74 6f 70 3a 4c 44 41  23 26 38 31 3a 4c 44 58  |stop:LDA#&81:LDX|
00000280  23 26 38 46 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&8F:LDY#&FF:JSR|
00000290  6f 73 62 79 74 65 3a 42  43 53 73 74 6f 70 0d 00  |osbyte:BCSstop..|
000002a0  be 29 20 4c 44 41 26 38  30 3a 43 4c 43 3a 41 44  |.) LDA&80:CLC:AD|
000002b0  43 23 31 3a 80 23 26 46  3a 53 54 41 26 38 30 3a  |C#1:.#&F:STA&80:|
000002c0  4a 4d 50 6c 6f 6f 70 0d  00 c8 3c 20 2e 73 74 6f  |JMPloop...< .sto|
000002d0  70 20 53 45 49 3a 4c 44  41 76 65 63 74 6f 72 3a  |p SEI:LDAvector:|
000002e0  53 54 41 26 32 30 34 3a  4c 44 41 76 65 63 74 6f  |STA&204:LDAvecto|
000002f0  72 2b 31 3a 53 54 41 26  32 30 35 3a 43 4c 49 3a  |r+1:STA&205:CLI:|
00000300  52 54 53 0d 00 d2 1c 20  2e 69 72 71 20 49 4e 43  |RTS.... .irq INC|
00000310  26 38 32 3a 4a 4d 50 28  76 65 63 74 6f 72 29 0d  |&82:JMP(vector).|
00000320  00 dc 78 20 2e 76 65 63  74 6f 72 20 45 51 55 57  |..x .vector EQUW|
00000330  30 3a 2e 63 6f 6c 73 20  45 51 55 42 30 3a 45 51  |0:.cols EQUB0:EQ|
00000340  55 42 30 3a 45 51 55 42  34 3a 45 51 55 42 34 3a  |UB0:EQUB4:EQUB4:|
00000350  45 51 55 42 34 3a 45 51  55 42 36 3a 45 51 55 42  |EQUB4:EQUB6:EQUB|
00000360  36 3a 45 51 55 42 36 3a  45 51 55 42 37 3a 45 51  |6:EQUB6:EQUB7:EQ|
00000370  55 42 37 3a 45 51 55 42  37 3a 45 51 55 42 36 3a  |UB7:EQUB7:EQUB6:|
00000380  45 51 55 42 36 3a 45 51  55 42 34 3a 45 51 55 42  |EQUB6:EQUB4:EQUB|
00000390  34 3a 45 51 55 42 30 0d  00 e6 10 20 2e 64 61 74  |4:EQUB0.... .dat|
000003a0  61 20 45 51 55 44 30 0d  00 f0 0a 20 5d 3a ed 3a  |a EQUD0.... ]:.:|
000003b0  e1 0d ff                                          |...|
000003b3