� Swirly Xmas EUG 35
 � by Dominic Ford
 :
( � � � �Dd@
2 �2:�=&2C00
< �23,1,0;0;0;0;:�ass
F �r=0�15:�19,r,0,0,0,0,0:�
P *LO. Swirl2
Z �swirl
d �"MENU"
n :
x
 ��ass
� osbyte=&FFF4:osword=&FFF1
� �pass=0�2�2:P%=&2C00
�
 [OPTpass
�� .swirl LDA#0:STA&80:STA&81:STA&84:STA&85: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
�� INC&84:LDA&84:CMP#4:BNEnosnd:LDA#0:STA&84:LDY&85:INC&85:LDAnotes,Y:CMP#255:BEQfinale:CMPp:BEQnosnd:STAp:PHA:LDA#21:LDX#5:JSRosbyte:PLA:CMP#0:BEQnosnd:LDA#7:LDX#(sdata � 256):LDY#(sdata � 256):JSRosword:.nosnd
Ȋ LDA&83:CLC:ADC#5: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
�" .finale LDA#0:STA&85:JMPnosnd
� .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

/ .sdata EQUW1:EQUW-5:.p EQUW0:EQUW-1:.notes

 ]:�

" �:�d:?P%=d:P%=P%+1:�d=255

, �

6 :

@� �76,68,60,60,60,68,76,80,88,88,88,88,96,104,108,108,104,104,96,96,88,88,88,88,96,104,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76

J� �0,0,76,68,60,60,60,68,76,80,88,88,88,88,96,104,108,108,104,104,96,96,88,88,88,88,96,104,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76,76,76,0,76,68,60,60,60,68,76,80

T� �88,88,88,88,108,104,96,96,96,96,0,96,96,88,88,88,88,88,88,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76,76,76,0,0,0,0,0,0,0,0

^
 � 255
�

00000000  0d 00 0a 19 20 f4 20 53  77 69 72 6c 79 20 58 6d  |.... . Swirly Xm|
00000010  61 73 20 45 55 47 20 33  35 0d 00 14 16 20 f4 20  |as EUG 35.... . |
00000020  62 79 20 44 6f 6d 69 6e  69 63 20 46 6f 72 64 0d  |by Dominic Ford.|
00000030  00 1e 06 20 3a 0d 00 28  0f 20 ee 20 85 20 e5 20  |... :..(. . . . |
00000040  8d 44 64 40 0d 00 32 0f  20 eb 32 3a d3 3d 26 32  |.Dd@..2. .2:.=&2|
00000050  43 30 30 0d 00 3c 18 20  ef 32 33 2c 31 2c 30 3b  |C00..<. .23,1,0;|
00000060  30 3b 30 3b 30 3b 3a f2  61 73 73 0d 00 46 1e 20  |0;0;0;:.ass..F. |
00000070  e3 72 3d 30 b8 31 35 3a  ef 31 39 2c 72 2c 30 2c  |.r=0.15:.19,r,0,|
00000080  30 2c 30 2c 30 2c 30 3a  ed 0d 00 50 10 20 2a 4c  |0,0,0,0:...P. *L|
00000090  4f 2e 20 53 77 69 72 6c  32 0d 00 5a 0b 20 d6 73  |O. Swirl2..Z. .s|
000000a0  77 69 72 6c 0d 00 64 0c  20 d7 22 4d 45 4e 55 22  |wirl..d. ."MENU"|
000000b0  0d 00 6e 06 20 3a 0d 00  78 0a 20 dd f2 61 73 73  |..n. :..x. ..ass|
000000c0  0d 00 82 1e 20 6f 73 62  79 74 65 3d 26 46 46 46  |.... osbyte=&FFF|
000000d0  34 3a 6f 73 77 6f 72 64  3d 26 46 46 46 31 0d 00  |4:osword=&FFF1..|
000000e0  8c 19 20 e3 70 61 73 73  3d 30 b8 32 88 32 3a 50  |.. .pass=0.2.2:P|
000000f0  25 3d 26 32 43 30 30 0d  00 96 0d 20 5b 4f 50 54  |%=&2C00.... [OPT|
00000100  70 61 73 73 0d 00 a0 87  20 2e 73 77 69 72 6c 20  |pass.... .swirl |
00000110  4c 44 41 23 30 3a 53 54  41 26 38 30 3a 53 54 41  |LDA#0:STA&80:STA|
00000120  26 38 31 3a 53 54 41 26  38 34 3a 53 54 41 26 38  |&81:STA&84:STA&8|
00000130  35 3a 53 45 49 3a 4c 44  41 26 32 30 34 3a 53 54  |5:SEI:LDA&204:ST|
00000140  41 76 65 63 74 6f 72 3a  4c 44 41 26 32 30 35 3a  |Avector:LDA&205:|
00000150  53 54 41 76 65 63 74 6f  72 2b 31 3a 4c 44 41 23  |STAvector+1:LDA#|
00000160  69 72 71 20 83 20 32 35  36 3a 53 54 41 26 32 30  |irq . 256:STA&20|
00000170  34 3a 4c 44 41 23 69 72  71 20 81 20 32 35 36 3a  |4:LDA#irq . 256:|
00000180  53 54 41 26 32 30 35 3a  43 4c 49 0d 00 aa 7c 20  |STA&205:CLI...| |
00000190  2e 6c 6f 6f 70 20 4c 44  41 26 38 32 3a 53 54 41  |.loop LDA&82:STA|
000001a0  26 38 33 3a 4c 44 41 26  38 30 3a 43 4c 43 3a 41  |&83:LDA&80:CLC:A|
000001b0  44 43 26 38 31 3a 53 54  41 64 61 74 61 3a 4c 44  |DC&81:STAdata:LD|
000001c0  59 26 38 31 3a 4c 44 41  63 6f 6c 73 2c 59 3a 53  |Y&81:LDAcols,Y:S|
000001d0  54 41 64 61 74 61 2b 31  3a 4c 44 41 23 26 43 3a  |TAdata+1:LDA#&C:|
000001e0  4c 44 58 23 64 61 74 61  20 83 20 32 35 36 3a 4c  |LDX#data . 256:L|
000001f0  44 59 23 64 61 74 61 20  81 20 32 35 36 3a 4a 53  |DY#data . 256:JS|
00000200  52 6f 73 77 6f 72 64 0d  00 b4 2f 20 49 4e 43 26  |Rosword.../ INC&|
00000210  38 31 3a 4c 44 41 26 38  31 3a 43 4d 50 23 26 31  |81:LDA&81:CMP#&1|
00000220  30 3a 42 4e 45 6c 6f 6f  70 3a 4c 44 41 23 30 3a  |0:BNEloop:LDA#0:|
00000230  53 54 41 26 38 31 0d 00  be d5 20 49 4e 43 26 38  |STA&81.... INC&8|
00000240  34 3a 4c 44 41 26 38 34  3a 43 4d 50 23 34 3a 42  |4:LDA&84:CMP#4:B|
00000250  4e 45 6e 6f 73 6e 64 3a  4c 44 41 23 30 3a 53 54  |NEnosnd:LDA#0:ST|
00000260  41 26 38 34 3a 4c 44 59  26 38 35 3a 49 4e 43 26  |A&84:LDY&85:INC&|
00000270  38 35 3a 4c 44 41 6e 6f  74 65 73 2c 59 3a 43 4d  |85:LDAnotes,Y:CM|
00000280  50 23 32 35 35 3a 42 45  51 66 69 6e 61 6c 65 3a  |P#255:BEQfinale:|
00000290  43 4d 50 70 3a 42 45 51  6e 6f 73 6e 64 3a 53 54  |CMPp:BEQnosnd:ST|
000002a0  41 70 3a 50 48 41 3a 4c  44 41 23 32 31 3a 4c 44  |Ap:PHA:LDA#21:LD|
000002b0  58 23 35 3a 4a 53 52 6f  73 62 79 74 65 3a 50 4c  |X#5:JSRosbyte:PL|
000002c0  41 3a 43 4d 50 23 30 3a  42 45 51 6e 6f 73 6e 64  |A:CMP#0:BEQnosnd|
000002d0  3a 4c 44 41 23 37 3a 4c  44 58 23 28 73 64 61 74  |:LDA#7:LDX#(sdat|
000002e0  61 20 83 20 32 35 36 29  3a 4c 44 59 23 28 73 64  |a . 256):LDY#(sd|
000002f0  61 74 61 20 81 20 32 35  36 29 3a 4a 53 52 6f 73  |ata . 256):JSRos|
00000300  77 6f 72 64 3a 2e 6e 6f  73 6e 64 0d 00 c8 8a 20  |word:.nosnd.... |
00000310  4c 44 41 26 38 33 3a 43  4c 43 3a 41 44 43 23 35  |LDA&83:CLC:ADC#5|
00000320  3a 54 41 58 3a 2e 77 61  69 74 20 54 58 41 3a 53  |:TAX:.wait TXA:S|
00000330  45 43 3a 53 42 43 26 38  32 3a 42 50 4c 77 61 69  |EC:SBC&82:BPLwai|
00000340  74 3a 4c 44 41 23 26 38  31 3a 4c 44 58 23 26 39  |t:LDA#&81:LDX#&9|
00000350  44 3a 4c 44 59 23 26 46  46 3a 4a 53 52 6f 73 62  |D:LDY#&FF:JSRosb|
00000360  79 74 65 3a 42 43 53 73  74 6f 70 3a 4c 44 41 23  |yte:BCSstop:LDA#|
00000370  26 38 31 3a 4c 44 58 23  26 38 46 3a 4c 44 59 23  |&81:LDX#&8F:LDY#|
00000380  26 46 46 3a 4a 53 52 6f  73 62 79 74 65 3a 42 43  |&FF:JSRosbyte:BC|
00000390  53 73 74 6f 70 0d 00 d2  29 20 4c 44 41 26 38 30  |Sstop...) LDA&80|
000003a0  3a 43 4c 43 3a 41 44 43  23 31 3a 80 23 26 46 3a  |:CLC:ADC#1:.#&F:|
000003b0  53 54 41 26 38 30 3a 4a  4d 50 6c 6f 6f 70 0d 00  |STA&80:JMPloop..|
000003c0  dc 3c 20 2e 73 74 6f 70  20 53 45 49 3a 4c 44 41  |.< .stop SEI:LDA|
000003d0  76 65 63 74 6f 72 3a 53  54 41 26 32 30 34 3a 4c  |vector:STA&204:L|
000003e0  44 41 76 65 63 74 6f 72  2b 31 3a 53 54 41 26 32  |DAvector+1:STA&2|
000003f0  30 35 3a 43 4c 49 3a 52  54 53 0d 00 e6 22 20 2e  |05:CLI:RTS..." .|
00000400  66 69 6e 61 6c 65 20 4c  44 41 23 30 3a 53 54 41  |finale LDA#0:STA|
00000410  26 38 35 3a 4a 4d 50 6e  6f 73 6e 64 0d 00 f0 1c  |&85:JMPnosnd....|
00000420  20 2e 69 72 71 20 49 4e  43 26 38 32 3a 4a 4d 50  | .irq INC&82:JMP|
00000430  28 76 65 63 74 6f 72 29  0d 00 fa 78 20 2e 76 65  |(vector)...x .ve|
00000440  63 74 6f 72 20 45 51 55  57 30 3a 2e 63 6f 6c 73  |ctor EQUW0:.cols|
00000450  20 45 51 55 42 30 3a 45  51 55 42 30 3a 45 51 55  | EQUB0:EQUB0:EQU|
00000460  42 34 3a 45 51 55 42 34  3a 45 51 55 42 34 3a 45  |B4:EQUB4:EQUB4:E|
00000470  51 55 42 36 3a 45 51 55  42 36 3a 45 51 55 42 36  |QUB6:EQUB6:EQUB6|
00000480  3a 45 51 55 42 37 3a 45  51 55 42 37 3a 45 51 55  |:EQUB7:EQUB7:EQU|
00000490  42 37 3a 45 51 55 42 36  3a 45 51 55 42 36 3a 45  |B7:EQUB6:EQUB6:E|
000004a0  51 55 42 34 3a 45 51 55  42 34 3a 45 51 55 42 30  |QUB4:EQUB4:EQUB0|
000004b0  0d 01 04 10 20 2e 64 61  74 61 20 45 51 55 44 30  |.... .data EQUD0|
000004c0  0d 01 0e 2f 20 2e 73 64  61 74 61 20 45 51 55 57  |.../ .sdata EQUW|
000004d0  31 3a 45 51 55 57 2d 35  3a 2e 70 20 45 51 55 57  |1:EQUW-5:.p EQUW|
000004e0  30 3a 45 51 55 57 2d 31  3a 2e 6e 6f 74 65 73 0d  |0:EQUW-1:.notes.|
000004f0  01 18 08 20 5d 3a ed 0d  01 22 1e 20 f5 3a f3 64  |... ]:...". .:.d|
00000500  3a 3f 50 25 3d 64 3a 50  25 3d 50 25 2b 31 3a fd  |:?P%=d:P%=P%+1:.|
00000510  64 3d 32 35 35 0d 01 2c  06 20 e1 0d 01 36 06 20  |d=255..,. ...6. |
00000520  3a 0d 01 40 9d 20 dc 37  36 2c 36 38 2c 36 30 2c  |:..@. .76,68,60,|
00000530  36 30 2c 36 30 2c 36 38  2c 37 36 2c 38 30 2c 38  |60,60,68,76,80,8|
00000540  38 2c 38 38 2c 38 38 2c  38 38 2c 39 36 2c 31 30  |8,88,88,88,96,10|
00000550  34 2c 31 30 38 2c 31 30  38 2c 31 30 34 2c 31 30  |4,108,108,104,10|
00000560  34 2c 39 36 2c 39 36 2c  38 38 2c 38 38 2c 38 38  |4,96,96,88,88,88|
00000570  2c 38 38 2c 39 36 2c 31  30 34 2c 31 30 38 2c 31  |,88,96,104,108,1|
00000580  30 38 2c 31 30 34 2c 31  30 34 2c 39 36 2c 39 36  |08,104,104,96,96|
00000590  2c 38 38 2c 38 38 2c 39  36 2c 39 36 2c 31 30 34  |,88,88,96,96,104|
000005a0  2c 31 30 34 2c 31 30 38  2c 31 30 38 2c 38 38 2c  |,104,108,108,88,|
000005b0  38 38 2c 38 30 2c 38 30  2c 37 36 2c 37 36 0d 01  |88,80,80,76,76..|
000005c0  4a c1 20 dc 30 2c 30 2c  37 36 2c 36 38 2c 36 30  |J. .0,0,76,68,60|
000005d0  2c 36 30 2c 36 30 2c 36  38 2c 37 36 2c 38 30 2c  |,60,60,68,76,80,|
000005e0  38 38 2c 38 38 2c 38 38  2c 38 38 2c 39 36 2c 31  |88,88,88,88,96,1|
000005f0  30 34 2c 31 30 38 2c 31  30 38 2c 31 30 34 2c 31  |04,108,108,104,1|
00000600  30 34 2c 39 36 2c 39 36  2c 38 38 2c 38 38 2c 38  |04,96,96,88,88,8|
00000610  38 2c 38 38 2c 39 36 2c  31 30 34 2c 31 30 38 2c  |8,88,96,104,108,|
00000620  31 30 38 2c 31 30 34 2c  31 30 34 2c 39 36 2c 39  |108,104,104,96,9|
00000630  36 2c 38 38 2c 38 38 2c  39 36 2c 39 36 2c 31 30  |6,88,88,96,96,10|
00000640  34 2c 31 30 34 2c 31 30  38 2c 31 30 38 2c 38 38  |4,104,108,108,88|
00000650  2c 38 38 2c 38 30 2c 38  30 2c 37 36 2c 37 36 2c  |,88,80,80,76,76,|
00000660  37 36 2c 37 36 2c 30 2c  37 36 2c 36 38 2c 36 30  |76,76,0,76,68,60|
00000670  2c 36 30 2c 36 30 2c 36  38 2c 37 36 2c 38 30 0d  |,60,60,68,76,80.|
00000680  01 54 99 20 dc 38 38 2c  38 38 2c 38 38 2c 38 38  |.T. .88,88,88,88|
00000690  2c 31 30 38 2c 31 30 34  2c 39 36 2c 39 36 2c 39  |,108,104,96,96,9|
000006a0  36 2c 39 36 2c 30 2c 39  36 2c 39 36 2c 38 38 2c  |6,96,0,96,96,88,|
000006b0  38 38 2c 38 38 2c 38 38  2c 38 38 2c 38 38 2c 31  |88,88,88,88,88,1|
000006c0  30 38 2c 31 30 38 2c 31  30 34 2c 31 30 34 2c 39  |08,108,104,104,9|
000006d0  36 2c 39 36 2c 38 38 2c  38 38 2c 39 36 2c 39 36  |6,96,88,88,96,96|
000006e0  2c 31 30 34 2c 31 30 34  2c 31 30 38 2c 31 30 38  |,104,104,108,108|
000006f0  2c 38 38 2c 38 38 2c 38  30 2c 38 30 2c 37 36 2c  |,88,88,80,80,76,|
00000700  37 36 2c 37 36 2c 37 36  2c 30 2c 30 2c 30 2c 30  |76,76,76,0,0,0,0|
00000710  2c 30 2c 30 2c 30 2c 30  0d 01 5e 0a 20 dc 20 32  |,0,0,0,0..^. . 2|
00000720  35 35 0d ff                                       |55..|
00000724