Home » Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/EUGTitle5

dcfprogs/Graphics/EUGTitle5

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 hard disk » misc » misc2
Filename: dcfprogs/Graphics/EUGTitle5
Read OK:
File size: 0B2A bytes
Load address: 0000
Exec address: 0000
File contents
   10 REM EUG Title Screen - By D Ford
   20 :
   30 I$="Issue 20":REM Issue number
   40 HIMEM=&2C00
   50 PROCass
   60 CALL&2C00
   70 END
   80 :
   90 DEFPROCass
  100 osbyte=&FFF4:oswrch=&FFEE
  110 FORX=0TO2STEP2
  120 P%=&2C00
  130 [OPTX:JSRdisp:JSRestart:LDY#&06:STY&72:LDY#&00:STY&73:STY&70:.lc JSRcolinit:.lb LDX#&30:STX&71:.l LDA(&70),Y:EOR#&0F:STA(&70),Y:TYA:CLC:ADC#&08:TAY
  140 CPY#&08:BCSl:INC&71:LDX&71:CPX#&80:BNEl:INY:CPY#&08:BNElb:BEQlc:.colinit LDA#&81:LDX#&00:LDY#&00:JSR osbyte:CPX#&20:BNEcin:PLA:PLA:JMPestop
  150 .cin LDX&72:INX:CPX#&07:BNEcinb:LDX#&03:.cinb STX&72:LDA&73:EOR#&01:STA&73:LDA#&13:JSRoswrch:LDY&73:INY:INY:TYA:JSRoswrch:TXA:JSRoswrch:JSRnull:LDA#&13
  160 JSRoswrch:LDA&73
  170 JSRoswrch:DEX:DEX:TXA:JSRoswrch:JSRnull:LDY#&00:RTS:.null LDA#&00:JSRoswrch:JSRoswrch:JSRoswrch:JMPoswrch:.disp LDX#&00:.dl LDAdata,X:INX:CMP#&07
  180 BEQ dquit:JSRoswrch:JMPdl:.dquit JMPeug
  190 .set TXA:PHA:LSR A:LSR A:LSR A:LSR A:CLC:ADCmsb,Y:STA&75:TXA:ASL A:ASL A:ASL A:ASL A:STA&74:TYA:PHA:LDY#&00:.slop LDA(&74),Y:EOR#&F0:STA(&74),Y:INY
  200 CPY#&20:BCCslop:BEQlf:CPY#&40:BNEslop:PLA:TAY:PLA:TAX:RTS:.lf LDA&74:CLC:ADC#&60:STA&74:LDA&75:ADC#&02:STA&75:JMPslop
  210 .eug LDX#&FE:LDY#&00:.elop INX:INX:CPX#&1C:BNExnna:LDX#&00:INY:CPY#&05:BNExnna:RTS:.xnna TXA:LSR A:STA&76:TYA:ASL A:ASL A:ASL A:ASL A:ADC&76
  220 STX&76:TAX:LDAeugdata,X:LDX&76:CMP#&2A:BNEelop:JSRset:JMPelop
  230 .estart SEI:LDA&220:STA&80:LDA&221:STA&81:LDA#erout MOD 256:STA&220:LDA#erout DIV 256:STA&221:LDA#&01:STA&82:LDA#&00:STA&83:STA&85:STA&86
  240 STA&84:LDA#&0E:LDX#&04:LDY#&00:JSRosbyte:CLI:RTS
  250 .estop SEI:LDA&80:STA&220:LDA&81:STA&221:CLI:RTS
  260 .erout DEC&82:LDA&82:BEQswitch:LDA&84:BNEright:BEQleft:.switch LDA&84:EOR#&01:STA&84:LDA#&3F:STA&82:LDA#&00:STA&86:STA&83:JMP(&80)
  270 .left INC&86:LDA&86:CMP#&09:BNElscr:LDA#&00:STA&86:STA&83:DEC&85:DEC&85:JMP(&80):.lscr LDY#&00:STY&87:.sllop LDX&83:LDAeugleft,X:INC&83:CMP#&2A:BNEsllop
  280 TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:AND#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsllop:JMP(&80)
  290 .right INC&86:LDA&86:CMP#&09:BNErscr:LDA#&00:STA&86:STA&83:INC&85:INC&85:JMP(&80):.rscr LDY#&00:STY&87:.srlop LDX&83:LDAeugrite,X:INC&83:CMP#&2A:BNEsrlop
  300 TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:AND#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsrlop:JMP(&80)
  310 :
  320 .data EQUB 22:EQUB 1:EQUB 23:EQUB 1:EQUD 0:EQUD 0:EQUB 23:EQUB 255:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUB 17:EQUB 2:EQUB 31:EQUB 16:EQUB 25:EQUS I$:EQUB 31
  330 EQUB 8:EQUB 30:EQUS "Press SPACE to continue":EQUB 7
  340 :
  350 .msb EQUB &3F:EQUB &44:EQUB &49:EQUB &4E:EQUB &53
  360 :
  370 .eugdata EQUS " *** * * ***     *   * * *       **  * * *       *   * * * *     *** *** ***    "
  380 .eugrite EQUS " *  ******  *    **  ******      * * ******      **  ********    *  **  **  *   "
  390 .eugleft EQUS " *  ******  *    **  ******      * * ******      **  ********    *  **  **  *   "
  400 ]
  410 NEXT
  420 ENDPROC

# � EUG Title Screen - By D Ford
 :
! I$="Issue 20":� Issue number
( �=&2C00
2	 �ass
< �&2C00
F �
P :
Z
 ��ass
d osbyte=&FFF4:oswrch=&FFEE
n
 �X=0�2�2
x
 P%=&2C00
�� [OPTX:JSRdisp:JSRestart:LDY#&06:STY&72:LDY#&00:STY&73:STY&70:.lc JSRcolinit:.lb LDX#&30:STX&71:.l LDA(&70),Y:�#&0F:STA(&70),Y:TYA:CLC:ADC#&08:TAY
�� CPY#&08:BCSl:INC&71:LDX&71:CPX#&80:BNEl:INY:CPY#&08:BNElb:BEQlc:.colinit LDA#&81:LDX#&00:LDY#&00:JSR osbyte:CPX#&20:BNEcin:PLA:PLA:JMPestop
�� .cin LDX&72:INX:CPX#&07:BNEcinb:LDX#&03:.cinb STX&72:LDA&73:�#&01:STA&73:LDA#&13:JSRoswrch:LDY&73:INY:INY:TYA:JSRoswrch:TXA:JSRoswrch:JSRnull:LDA#&13
� JSRoswrch:LDA&73
�� JSRoswrch:DEX:DEX:TXA:JSRoswrch:JSRnull:LDY#&00:RTS:.null LDA#&00:JSRoswrch:JSRoswrch:JSRoswrch:JMPoswrch:.disp LDX#&00:.dl LDAdata,X:INX:CMP#&07
�, BEQ dquit:JSRoswrch:JMPdl:.dquit JMPeug
�� .set TXA:PHA:LSR A:LSR A:LSR A:LSR A:CLC:ADCmsb,Y:STA&75:TXA:ASL A:ASL A:ASL A:ASL A:STA&74:TYA:PHA:LDY#&00:.slop LDA(&74),Y:�#&F0:STA(&74),Y:INY
�z CPY#&20:BCCslop:BEQlf:CPY#&40:BNEslop:PLA:TAY:PLA:TAX:RTS:.lf LDA&74:CLC:ADC#&60:STA&74:LDA&75:ADC#&02:STA&75:JMPslop
ґ .eug LDX#&FE:LDY#&00:.elop INX:INX:CPX#&1C:BNExnna:LDX#&00:INY:CPY#&05:BNExnna:RTS:.xnna TXA:LSR A:STA&76:TYA:ASL A:ASL A:ASL A:ASL A:ADC&76
�B STX&76:TAX:LDAeugdata,X:LDX&76:CMP#&2A:BNEelop:JSRset:JMPelop
� .estart SEI:LDA&220:STA&80:LDA&221:STA&81:LDA#erout � 256:STA&220:LDA#erout � 256:STA&221:LDA#&01:STA&82:LDA#&00:STA&83:STA&85:STA&86
�5 STA&84:LDA#&0E:LDX#&04:LDY#&00:JSRosbyte:CLI:RTS
�5 .estop SEI:LDA&80:STA&220:LDA&81:STA&221:CLI:RTS
� .erout DEC&82:LDA&82:BEQswitch:LDA&84:BNEright:BEQleft:.switch LDA&84:�#&01:STA&84:LDA#&3F:STA&82:LDA#&00:STA&86:STA&83:JMP(&80)
� .left INC&86:LDA&86:CMP#&09:BNElscr:LDA#&00:STA&86:STA&83:DEC&85:DEC&85:JMP(&80):.lscr LDY#&00:STY&87:.sllop LDX&83:LDAeugleft,X:INC&83:CMP#&2A:BNEsllop
r TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:�#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsllop:JMP(&80)
"� .right INC&86:LDA&86:CMP#&09:BNErscr:LDA#&00:STA&86:STA&83:INC&85:INC&85:JMP(&80):.rscr LDY#&00:STY&87:.srlop LDX&83:LDAeugrite,X:INC&83:CMP#&2A:BNEsrlop
,r TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:�#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsrlop:JMP(&80)
6 :
@� .data EQUB 22:EQUB 1:EQUB 23:EQUB 1:EQUD 0:EQUD 0:EQUB 23:EQUB 255:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUB 17:EQUB 2:EQUB 31:EQUB 16:EQUB 25:EQUS I$:EQUB 31
J9 EQUB 8:EQUB 30:EQUS "Press SPACE to continue":EQUB 7
T :
^6 .msb EQUB &3F:EQUB &44:EQUB &49:EQUB &4E:EQUB &53
h :
re .eugdata EQUS " *** * * ***     *   * * *       **  * * *       *   * * * *     *** *** ***    "
|e .eugrite EQUS " *  ******  *    **  ******      * * ******      **  ********    *  **  **  *   "
�e .eugleft EQUS " *  ******  *    **  ******      * * ******      **  ********    *  **  **  *   "
� ]
� �
� �
�
00000000  0d 00 0a 23 20 f4 20 45  55 47 20 54 69 74 6c 65  |...# . EUG Title|
00000010  20 53 63 72 65 65 6e 20  2d 20 42 79 20 44 20 46  | Screen - By D F|
00000020  6f 72 64 0d 00 14 06 20  3a 0d 00 1e 21 20 49 24  |ord.... :...! I$|
00000030  3d 22 49 73 73 75 65 20  32 30 22 3a f4 20 49 73  |="Issue 20":. Is|
00000040  73 75 65 20 6e 75 6d 62  65 72 0d 00 28 0c 20 d3  |sue number..(. .|
00000050  3d 26 32 43 30 30 0d 00  32 09 20 f2 61 73 73 0d  |=&2C00..2. .ass.|
00000060  00 3c 0b 20 d6 26 32 43  30 30 0d 00 46 06 20 e0  |.<. .&2C00..F. .|
00000070  0d 00 50 06 20 3a 0d 00  5a 0a 20 dd f2 61 73 73  |..P. :..Z. ..ass|
00000080  0d 00 64 1e 20 6f 73 62  79 74 65 3d 26 46 46 46  |..d. osbyte=&FFF|
00000090  34 3a 6f 73 77 72 63 68  3d 26 46 46 45 45 0d 00  |4:oswrch=&FFEE..|
000000a0  6e 0d 20 e3 58 3d 30 b8  32 88 32 0d 00 78 0d 20  |n. .X=0.2.2..x. |
000000b0  50 25 3d 26 32 43 30 30  0d 00 82 96 20 5b 4f 50  |P%=&2C00.... [OP|
000000c0  54 58 3a 4a 53 52 64 69  73 70 3a 4a 53 52 65 73  |TX:JSRdisp:JSRes|
000000d0  74 61 72 74 3a 4c 44 59  23 26 30 36 3a 53 54 59  |tart:LDY#&06:STY|
000000e0  26 37 32 3a 4c 44 59 23  26 30 30 3a 53 54 59 26  |&72:LDY#&00:STY&|
000000f0  37 33 3a 53 54 59 26 37  30 3a 2e 6c 63 20 4a 53  |73:STY&70:.lc JS|
00000100  52 63 6f 6c 69 6e 69 74  3a 2e 6c 62 20 4c 44 58  |Rcolinit:.lb LDX|
00000110  23 26 33 30 3a 53 54 58  26 37 31 3a 2e 6c 20 4c  |#&30:STX&71:.l L|
00000120  44 41 28 26 37 30 29 2c  59 3a 82 23 26 30 46 3a  |DA(&70),Y:.#&0F:|
00000130  53 54 41 28 26 37 30 29  2c 59 3a 54 59 41 3a 43  |STA(&70),Y:TYA:C|
00000140  4c 43 3a 41 44 43 23 26  30 38 3a 54 41 59 0d 00  |LC:ADC#&08:TAY..|
00000150  8c 90 20 43 50 59 23 26  30 38 3a 42 43 53 6c 3a  |.. CPY#&08:BCSl:|
00000160  49 4e 43 26 37 31 3a 4c  44 58 26 37 31 3a 43 50  |INC&71:LDX&71:CP|
00000170  58 23 26 38 30 3a 42 4e  45 6c 3a 49 4e 59 3a 43  |X#&80:BNEl:INY:C|
00000180  50 59 23 26 30 38 3a 42  4e 45 6c 62 3a 42 45 51  |PY#&08:BNElb:BEQ|
00000190  6c 63 3a 2e 63 6f 6c 69  6e 69 74 20 4c 44 41 23  |lc:.colinit LDA#|
000001a0  26 38 31 3a 4c 44 58 23  26 30 30 3a 4c 44 59 23  |&81:LDX#&00:LDY#|
000001b0  26 30 30 3a 4a 53 52 20  6f 73 62 79 74 65 3a 43  |&00:JSR osbyte:C|
000001c0  50 58 23 26 32 30 3a 42  4e 45 63 69 6e 3a 50 4c  |PX#&20:BNEcin:PL|
000001d0  41 3a 50 4c 41 3a 4a 4d  50 65 73 74 6f 70 0d 00  |A:PLA:JMPestop..|
000001e0  96 9a 20 2e 63 69 6e 20  4c 44 58 26 37 32 3a 49  |.. .cin LDX&72:I|
000001f0  4e 58 3a 43 50 58 23 26  30 37 3a 42 4e 45 63 69  |NX:CPX#&07:BNEci|
00000200  6e 62 3a 4c 44 58 23 26  30 33 3a 2e 63 69 6e 62  |nb:LDX#&03:.cinb|
00000210  20 53 54 58 26 37 32 3a  4c 44 41 26 37 33 3a 82  | STX&72:LDA&73:.|
00000220  23 26 30 31 3a 53 54 41  26 37 33 3a 4c 44 41 23  |#&01:STA&73:LDA#|
00000230  26 31 33 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |&13:JSRoswrch:LD|
00000240  59 26 37 33 3a 49 4e 59  3a 49 4e 59 3a 54 59 41  |Y&73:INY:INY:TYA|
00000250  3a 4a 53 52 6f 73 77 72  63 68 3a 54 58 41 3a 4a  |:JSRoswrch:TXA:J|
00000260  53 52 6f 73 77 72 63 68  3a 4a 53 52 6e 75 6c 6c  |SRoswrch:JSRnull|
00000270  3a 4c 44 41 23 26 31 33  0d 00 a0 15 20 4a 53 52  |:LDA#&13.... JSR|
00000280  6f 73 77 72 63 68 3a 4c  44 41 26 37 33 0d 00 aa  |oswrch:LDA&73...|
00000290  96 20 4a 53 52 6f 73 77  72 63 68 3a 44 45 58 3a  |. JSRoswrch:DEX:|
000002a0  44 45 58 3a 54 58 41 3a  4a 53 52 6f 73 77 72 63  |DEX:TXA:JSRoswrc|
000002b0  68 3a 4a 53 52 6e 75 6c  6c 3a 4c 44 59 23 26 30  |h:JSRnull:LDY#&0|
000002c0  30 3a 52 54 53 3a 2e 6e  75 6c 6c 20 4c 44 41 23  |0:RTS:.null LDA#|
000002d0  26 30 30 3a 4a 53 52 6f  73 77 72 63 68 3a 4a 53  |&00:JSRoswrch:JS|
000002e0  52 6f 73 77 72 63 68 3a  4a 53 52 6f 73 77 72 63  |Roswrch:JSRoswrc|
000002f0  68 3a 4a 4d 50 6f 73 77  72 63 68 3a 2e 64 69 73  |h:JMPoswrch:.dis|
00000300  70 20 4c 44 58 23 26 30  30 3a 2e 64 6c 20 4c 44  |p LDX#&00:.dl LD|
00000310  41 64 61 74 61 2c 58 3a  49 4e 58 3a 43 4d 50 23  |Adata,X:INX:CMP#|
00000320  26 30 37 0d 00 b4 2c 20  42 45 51 20 64 71 75 69  |&07..., BEQ dqui|
00000330  74 3a 4a 53 52 6f 73 77  72 63 68 3a 4a 4d 50 64  |t:JSRoswrch:JMPd|
00000340  6c 3a 2e 64 71 75 69 74  20 4a 4d 50 65 75 67 0d  |l:.dquit JMPeug.|
00000350  00 be 96 20 2e 73 65 74  20 54 58 41 3a 50 48 41  |... .set TXA:PHA|
00000360  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000370  20 41 3a 4c 53 52 20 41  3a 43 4c 43 3a 41 44 43  | A:LSR A:CLC:ADC|
00000380  6d 73 62 2c 59 3a 53 54  41 26 37 35 3a 54 58 41  |msb,Y:STA&75:TXA|
00000390  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
000003a0  20 41 3a 41 53 4c 20 41  3a 53 54 41 26 37 34 3a  | A:ASL A:STA&74:|
000003b0  54 59 41 3a 50 48 41 3a  4c 44 59 23 26 30 30 3a  |TYA:PHA:LDY#&00:|
000003c0  2e 73 6c 6f 70 20 4c 44  41 28 26 37 34 29 2c 59  |.slop LDA(&74),Y|
000003d0  3a 82 23 26 46 30 3a 53  54 41 28 26 37 34 29 2c  |:.#&F0:STA(&74),|
000003e0  59 3a 49 4e 59 0d 00 c8  7a 20 43 50 59 23 26 32  |Y:INY...z CPY#&2|
000003f0  30 3a 42 43 43 73 6c 6f  70 3a 42 45 51 6c 66 3a  |0:BCCslop:BEQlf:|
00000400  43 50 59 23 26 34 30 3a  42 4e 45 73 6c 6f 70 3a  |CPY#&40:BNEslop:|
00000410  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 3a  |PLA:TAY:PLA:TAX:|
00000420  52 54 53 3a 2e 6c 66 20  4c 44 41 26 37 34 3a 43  |RTS:.lf LDA&74:C|
00000430  4c 43 3a 41 44 43 23 26  36 30 3a 53 54 41 26 37  |LC:ADC#&60:STA&7|
00000440  34 3a 4c 44 41 26 37 35  3a 41 44 43 23 26 30 32  |4:LDA&75:ADC#&02|
00000450  3a 53 54 41 26 37 35 3a  4a 4d 50 73 6c 6f 70 0d  |:STA&75:JMPslop.|
00000460  00 d2 91 20 2e 65 75 67  20 4c 44 58 23 26 46 45  |... .eug LDX#&FE|
00000470  3a 4c 44 59 23 26 30 30  3a 2e 65 6c 6f 70 20 49  |:LDY#&00:.elop I|
00000480  4e 58 3a 49 4e 58 3a 43  50 58 23 26 31 43 3a 42  |NX:INX:CPX#&1C:B|
00000490  4e 45 78 6e 6e 61 3a 4c  44 58 23 26 30 30 3a 49  |NExnna:LDX#&00:I|
000004a0  4e 59 3a 43 50 59 23 26  30 35 3a 42 4e 45 78 6e  |NY:CPY#&05:BNExn|
000004b0  6e 61 3a 52 54 53 3a 2e  78 6e 6e 61 20 54 58 41  |na:RTS:.xnna TXA|
000004c0  3a 4c 53 52 20 41 3a 53  54 41 26 37 36 3a 54 59  |:LSR A:STA&76:TY|
000004d0  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
000004e0  4c 20 41 3a 41 53 4c 20  41 3a 41 44 43 26 37 36  |L A:ASL A:ADC&76|
000004f0  0d 00 dc 42 20 53 54 58  26 37 36 3a 54 41 58 3a  |...B STX&76:TAX:|
00000500  4c 44 41 65 75 67 64 61  74 61 2c 58 3a 4c 44 58  |LDAeugdata,X:LDX|
00000510  26 37 36 3a 43 4d 50 23  26 32 41 3a 42 4e 45 65  |&76:CMP#&2A:BNEe|
00000520  6c 6f 70 3a 4a 53 52 73  65 74 3a 4a 4d 50 65 6c  |lop:JSRset:JMPel|
00000530  6f 70 0d 00 e6 8a 20 2e  65 73 74 61 72 74 20 53  |op.... .estart S|
00000540  45 49 3a 4c 44 41 26 32  32 30 3a 53 54 41 26 38  |EI:LDA&220:STA&8|
00000550  30 3a 4c 44 41 26 32 32  31 3a 53 54 41 26 38 31  |0:LDA&221:STA&81|
00000560  3a 4c 44 41 23 65 72 6f  75 74 20 83 20 32 35 36  |:LDA#erout . 256|
00000570  3a 53 54 41 26 32 32 30  3a 4c 44 41 23 65 72 6f  |:STA&220:LDA#ero|
00000580  75 74 20 81 20 32 35 36  3a 53 54 41 26 32 32 31  |ut . 256:STA&221|
00000590  3a 4c 44 41 23 26 30 31  3a 53 54 41 26 38 32 3a  |:LDA#&01:STA&82:|
000005a0  4c 44 41 23 26 30 30 3a  53 54 41 26 38 33 3a 53  |LDA#&00:STA&83:S|
000005b0  54 41 26 38 35 3a 53 54  41 26 38 36 0d 00 f0 35  |TA&85:STA&86...5|
000005c0  20 53 54 41 26 38 34 3a  4c 44 41 23 26 30 45 3a  | STA&84:LDA#&0E:|
000005d0  4c 44 58 23 26 30 34 3a  4c 44 59 23 26 30 30 3a  |LDX#&04:LDY#&00:|
000005e0  4a 53 52 6f 73 62 79 74  65 3a 43 4c 49 3a 52 54  |JSRosbyte:CLI:RT|
000005f0  53 0d 00 fa 35 20 2e 65  73 74 6f 70 20 53 45 49  |S...5 .estop SEI|
00000600  3a 4c 44 41 26 38 30 3a  53 54 41 26 32 32 30 3a  |:LDA&80:STA&220:|
00000610  4c 44 41 26 38 31 3a 53  54 41 26 32 32 31 3a 43  |LDA&81:STA&221:C|
00000620  4c 49 3a 52 54 53 0d 01  04 85 20 2e 65 72 6f 75  |LI:RTS.... .erou|
00000630  74 20 44 45 43 26 38 32  3a 4c 44 41 26 38 32 3a  |t DEC&82:LDA&82:|
00000640  42 45 51 73 77 69 74 63  68 3a 4c 44 41 26 38 34  |BEQswitch:LDA&84|
00000650  3a 42 4e 45 72 69 67 68  74 3a 42 45 51 6c 65 66  |:BNEright:BEQlef|
00000660  74 3a 2e 73 77 69 74 63  68 20 4c 44 41 26 38 34  |t:.switch LDA&84|
00000670  3a 82 23 26 30 31 3a 53  54 41 26 38 34 3a 4c 44  |:.#&01:STA&84:LD|
00000680  41 23 26 33 46 3a 53 54  41 26 38 32 3a 4c 44 41  |A#&3F:STA&82:LDA|
00000690  23 26 30 30 3a 53 54 41  26 38 36 3a 53 54 41 26  |#&00:STA&86:STA&|
000006a0  38 33 3a 4a 4d 50 28 26  38 30 29 0d 01 0e 9d 20  |83:JMP(&80).... |
000006b0  2e 6c 65 66 74 20 49 4e  43 26 38 36 3a 4c 44 41  |.left INC&86:LDA|
000006c0  26 38 36 3a 43 4d 50 23  26 30 39 3a 42 4e 45 6c  |&86:CMP#&09:BNEl|
000006d0  73 63 72 3a 4c 44 41 23  26 30 30 3a 53 54 41 26  |scr:LDA#&00:STA&|
000006e0  38 36 3a 53 54 41 26 38  33 3a 44 45 43 26 38 35  |86:STA&83:DEC&85|
000006f0  3a 44 45 43 26 38 35 3a  4a 4d 50 28 26 38 30 29  |:DEC&85:JMP(&80)|
00000700  3a 2e 6c 73 63 72 20 4c  44 59 23 26 30 30 3a 53  |:.lscr LDY#&00:S|
00000710  54 59 26 38 37 3a 2e 73  6c 6c 6f 70 20 4c 44 58  |TY&87:.sllop LDX|
00000720  26 38 33 3a 4c 44 41 65  75 67 6c 65 66 74 2c 58  |&83:LDAeugleft,X|
00000730  3a 49 4e 43 26 38 33 3a  43 4d 50 23 26 32 41 3a  |:INC&83:CMP#&2A:|
00000740  42 4e 45 73 6c 6c 6f 70  0d 01 18 72 20 54 58 41  |BNEsllop...r TXA|
00000750  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000760  20 41 3a 4c 53 52 20 41  3a 54 41 59 3a 54 58 41  | A:LSR A:TAY:TXA|
00000770  3a 80 23 26 30 46 3a 41  53 4c 20 41 3a 43 4c 43  |:.#&0F:ASL A:CLC|
00000780  3a 41 44 43 26 38 35 3a  54 41 58 3a 4a 53 52 73  |:ADC&85:TAX:JSRs|
00000790  65 74 3a 49 4e 43 26 38  37 3a 4c 44 41 26 38 37  |et:INC&87:LDA&87|
000007a0  3a 43 4d 50 23 26 30 35  3a 42 4e 45 73 6c 6c 6f  |:CMP#&05:BNEsllo|
000007b0  70 3a 4a 4d 50 28 26 38  30 29 0d 01 22 9e 20 2e  |p:JMP(&80)..". .|
000007c0  72 69 67 68 74 20 49 4e  43 26 38 36 3a 4c 44 41  |right INC&86:LDA|
000007d0  26 38 36 3a 43 4d 50 23  26 30 39 3a 42 4e 45 72  |&86:CMP#&09:BNEr|
000007e0  73 63 72 3a 4c 44 41 23  26 30 30 3a 53 54 41 26  |scr:LDA#&00:STA&|
000007f0  38 36 3a 53 54 41 26 38  33 3a 49 4e 43 26 38 35  |86:STA&83:INC&85|
00000800  3a 49 4e 43 26 38 35 3a  4a 4d 50 28 26 38 30 29  |:INC&85:JMP(&80)|
00000810  3a 2e 72 73 63 72 20 4c  44 59 23 26 30 30 3a 53  |:.rscr LDY#&00:S|
00000820  54 59 26 38 37 3a 2e 73  72 6c 6f 70 20 4c 44 58  |TY&87:.srlop LDX|
00000830  26 38 33 3a 4c 44 41 65  75 67 72 69 74 65 2c 58  |&83:LDAeugrite,X|
00000840  3a 49 4e 43 26 38 33 3a  43 4d 50 23 26 32 41 3a  |:INC&83:CMP#&2A:|
00000850  42 4e 45 73 72 6c 6f 70  0d 01 2c 72 20 54 58 41  |BNEsrlop..,r TXA|
00000860  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000870  20 41 3a 4c 53 52 20 41  3a 54 41 59 3a 54 58 41  | A:LSR A:TAY:TXA|
00000880  3a 80 23 26 30 46 3a 41  53 4c 20 41 3a 43 4c 43  |:.#&0F:ASL A:CLC|
00000890  3a 41 44 43 26 38 35 3a  54 41 58 3a 4a 53 52 73  |:ADC&85:TAX:JSRs|
000008a0  65 74 3a 49 4e 43 26 38  37 3a 4c 44 41 26 38 37  |et:INC&87:LDA&87|
000008b0  3a 43 4d 50 23 26 30 35  3a 42 4e 45 73 72 6c 6f  |:CMP#&05:BNEsrlo|
000008c0  70 3a 4a 4d 50 28 26 38  30 29 0d 01 36 06 20 3a  |p:JMP(&80)..6. :|
000008d0  0d 01 40 9c 20 2e 64 61  74 61 20 45 51 55 42 20  |..@. .data EQUB |
000008e0  32 32 3a 45 51 55 42 20  31 3a 45 51 55 42 20 32  |22:EQUB 1:EQUB 2|
000008f0  33 3a 45 51 55 42 20 31  3a 45 51 55 44 20 30 3a  |3:EQUB 1:EQUD 0:|
00000900  45 51 55 44 20 30 3a 45  51 55 42 20 32 33 3a 45  |EQUD 0:EQUB 23:E|
00000910  51 55 42 20 32 35 35 3a  45 51 55 44 20 26 46 46  |QUB 255:EQUD &FF|
00000920  46 46 46 46 46 46 3a 45  51 55 44 20 26 46 46 46  |FFFFFF:EQUD &FFF|
00000930  46 46 46 46 46 3a 45 51  55 42 20 31 37 3a 45 51  |FFFFF:EQUB 17:EQ|
00000940  55 42 20 32 3a 45 51 55  42 20 33 31 3a 45 51 55  |UB 2:EQUB 31:EQU|
00000950  42 20 31 36 3a 45 51 55  42 20 32 35 3a 45 51 55  |B 16:EQUB 25:EQU|
00000960  53 20 49 24 3a 45 51 55  42 20 33 31 0d 01 4a 39  |S I$:EQUB 31..J9|
00000970  20 45 51 55 42 20 38 3a  45 51 55 42 20 33 30 3a  | EQUB 8:EQUB 30:|
00000980  45 51 55 53 20 22 50 72  65 73 73 20 53 50 41 43  |EQUS "Press SPAC|
00000990  45 20 74 6f 20 63 6f 6e  74 69 6e 75 65 22 3a 45  |E to continue":E|
000009a0  51 55 42 20 37 0d 01 54  06 20 3a 0d 01 5e 36 20  |QUB 7..T. :..^6 |
000009b0  2e 6d 73 62 20 45 51 55  42 20 26 33 46 3a 45 51  |.msb EQUB &3F:EQ|
000009c0  55 42 20 26 34 34 3a 45  51 55 42 20 26 34 39 3a  |UB &44:EQUB &49:|
000009d0  45 51 55 42 20 26 34 45  3a 45 51 55 42 20 26 35  |EQUB &4E:EQUB &5|
000009e0  33 0d 01 68 06 20 3a 0d  01 72 65 20 2e 65 75 67  |3..h. :..re .eug|
000009f0  64 61 74 61 20 45 51 55  53 20 22 20 2a 2a 2a 20  |data EQUS " *** |
00000a00  2a 20 2a 20 2a 2a 2a 20  20 20 20 20 2a 20 20 20  |* * ***     *   |
00000a10  2a 20 2a 20 2a 20 20 20  20 20 20 20 2a 2a 20 20  |* * *       **  |
00000a20  2a 20 2a 20 2a 20 20 20  20 20 20 20 2a 20 20 20  |* * *       *   |
00000a30  2a 20 2a 20 2a 20 2a 20  20 20 20 20 2a 2a 2a 20  |* * * *     *** |
00000a40  2a 2a 2a 20 2a 2a 2a 20  20 20 20 22 0d 01 7c 65  |*** ***    "..|e|
00000a50  20 2e 65 75 67 72 69 74  65 20 45 51 55 53 20 22  | .eugrite EQUS "|
00000a60  20 2a 20 20 2a 2a 2a 2a  2a 2a 20 20 2a 20 20 20  | *  ******  *   |
00000a70  20 2a 2a 20 20 2a 2a 2a  2a 2a 2a 20 20 20 20 20  | **  ******     |
00000a80  20 2a 20 2a 20 2a 2a 2a  2a 2a 2a 20 20 20 20 20  | * * ******     |
00000a90  20 2a 2a 20 20 2a 2a 2a  2a 2a 2a 2a 2a 20 20 20  | **  ********   |
00000aa0  20 2a 20 20 2a 2a 20 20  2a 2a 20 20 2a 20 20 20  | *  **  **  *   |
00000ab0  22 0d 01 86 65 20 2e 65  75 67 6c 65 66 74 20 45  |"...e .eugleft E|
00000ac0  51 55 53 20 22 20 2a 20  20 2a 2a 2a 2a 2a 2a 20  |QUS " *  ****** |
00000ad0  20 2a 20 20 20 20 2a 2a  20 20 2a 2a 2a 2a 2a 2a  | *    **  ******|
00000ae0  20 20 20 20 20 20 2a 20  2a 20 2a 2a 2a 2a 2a 2a  |      * * ******|
00000af0  20 20 20 20 20 20 2a 2a  20 20 2a 2a 2a 2a 2a 2a  |      **  ******|
00000b00  2a 2a 20 20 20 20 2a 20  20 2a 2a 20 20 2a 2a 20  |**    *  **  ** |
00000b10  20 2a 20 20 20 22 0d 01  90 06 20 5d 0d 01 9a 06  | *   ".... ]....|
00000b20  20 ed 0d 01 a4 06 20 e1  0d ff                    | ..... ...|
00000b2a