Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » 35/Title

35/Title

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 » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf
Filename: 35/Title
Read OK:
File size: 0724 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

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

File contents
   10 REM Swirly Xmas EUG 35
   20 REM by Dominic Ford
   30 :
   40 ON ERROR GOTO 100
   50 MODE2:HIMEM=&2C00
   60 VDU23,1,0;0;0;0;:PROCass
   70 FORr=0TO15:VDU19,r,0,0,0,0,0:NEXT
   80 *LO. Swirl2
   90 CALLswirl
  100 CHAIN"MENU"
  110 :
  120 DEFPROCass
  130 osbyte=&FFF4:osword=&FFF1
  140 FORpass=0TO2STEP2:P%=&2C00
  150 [OPTpass
  160 .swirl LDA#0:STA&80:STA&81:STA&84:STA&85:SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#irq MOD 256:STA&204:LDA#irq DIV 256:STA&205:CLI
  170 .loop LDA&82:STA&83:LDA&80:CLC:ADC&81:STAdata:LDY&81:LDAcols,Y:STAdata+1:LDA#&C:LDX#data MOD 256:LDY#data DIV 256:JSRosword
  180 INC&81:LDA&81:CMP#&10:BNEloop:LDA#0:STA&81
  190 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 MOD 256):LDY#(sdata DIV 256):JSRosword:.nosnd
  200 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
  210 LDA&80:CLC:ADC#1:AND#&F:STA&80:JMPloop
  220 .stop SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS
  230 .finale LDA#0:STA&85:JMPnosnd
  240 .irq INC&82:JMP(vector)
  250 .vector EQUW0:.cols EQUB0:EQUB0:EQUB4:EQUB4:EQUB4:EQUB6:EQUB6:EQUB6:EQUB7:EQUB7:EQUB7:EQUB6:EQUB6:EQUB4:EQUB4:EQUB0
  260 .data EQUD0
  270 .sdata EQUW1:EQUW-5:.p EQUW0:EQUW-1:.notes
  280 ]:NEXT
  290 REPEAT:READd:?P%=d:P%=P%+1:UNTILd=255
  300 ENDPROC
  310 :
  320 DATA76,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
  330 DATA0,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
  340 DATA88,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
  350 DATA 255

 � 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
35/Title.m0
35/Title.m1
35/Title.m2
35/Title.m4
35/Title.m5