� Flash.
� By Graham D. Walkden.
� Syntax - *LINE x,y,z
(� (c) The Micro User
2*FX13,4
<�opt%=0�3�3
FP%=&A00
P[OPTopt%
Z	.line
dCMP#1:BEQok
nJMP&E310
x.ok
�STX&F8:STY&F9
�LDA#0:STA&39F
�-LDA#&70 � 256:STA&92:LDA#&70 � 256:STA&93
�LDY#0:JSRload
�STA&39F:CLC:ADC&39F:STA&39F
�JSRload
�JSRstore:JSRload
�"JSRstore:LDA#0:STA&3A2:STA&3A3
�RTS
�	.load
�LDA(&F8),Y:TAX
� INY:LDA(&F8),Y:CMP#44:BEQout
�CMP#13:BEQout

CLC:SBC#47:CLC:ADC#10

INY:INY:RTS

.out TXA:CLC:SBC#47:INY

"RTS

,
.store

6STY&3A0:LDY&39F:STA(&92),Y

@INC&39F:LDY&3A0

JRTS

T]

^'�:?&200=line � 256:?&201=line � 256

ha%=P%+2:�opt%=0�3�3

r"P%=a%:delay=25:?&3A3=0:?&3A1=9

|
[OPT opt%

�.start CMP#4:BNEret1

�PHA:TYA:PHA:TXA:PHA

�LDA&355:CMP&3A1:BEQnoclr

�*STA&3A1:LDA#12:JSR&FFE3:LDA#32:STA&3A4

�,.noclr INC&3A5:LDA&3A5:CMP#delay:BNEout1

�LDA#0:STA&3A5

�LDA&3A4:CMP#32:BNEnowipe

�LDA#0:STA&3A4:LDA&355

�CMP#2:BEQwipev16

�CMP#1:BEQwipev4

�CMP#5:BEQwipev4

�CMP#0:BEQwipev2

�
JMPwipev2
.nowipe LDX#0:LDY#0
	.loop
JMPnojp
&.ret1 JMPret2
0.wipev16 JMPwipe16
:	.nojp
D LDA#19:JSR&FFE3:TXA:JSR&FFE3
NLDA&3A2:CMP#1:BNEfl1
XLDA&70,Y:INY:INY:JMPfl2
b.fl1 LDA&71,Y:INY:INY
l.fl2
v
JMPnooutv
�.out1 JMPout
�>.nooutv JSR&FFE3:LDA#0:JSR&FFE3:JSR&FFE3:JSR&FFE3:JSR&FFE3
�LDA&360:STA&3A6:INC&3A6
�INX:CPX&3A6:BNEloop
�
JMPnov
�.ret2 JMPret
�.nov
�LDA&3A2:CMP#1:BNEnot1
�LDA#0:STA&3A2:JMPfin
�.not1 LDA#1:STA&3A2
�.fin
�.out PLA:TAX:PLA:TAY:PLA
�.ret RTS
.wipev2 JMPwipe2
.wipev4 JMPwipe4
.wipe16
 LDY#0:LDX#0
*.lp
4!STX&70,Y:STX&71,Y:INY:INY:INX
>CPX#15:BNElp
H
JMPnowipe
R.wipe4 LDA#0:STA&70:STA&71
\LDA#1:STA&72:STA&73
fLDA#3:STA&74:STA&75
pLDA#7:STA&76:STA&77
z
JMPnowipe
�
.wipe2
�LDA#0:STA&70:STA&71
�LDA#7:STA&72:STA&73
�
JMPnowipe
�]
��
�0oswrch=?&20E+(?&20F*256):a%=P%+2:�opt%=0�3�3
�	P%=a%
�[OPTopt%
�
.debug
�CMP#12:BEQnoexit
�%PHA:INC&3A3:LDA&3A3:CMP#1:BCCnofx
�=TXA:PHA:TYA:PHA:LDA#14:LDX#4:JSR&FFF4:PLA:TAY:PLA:TAX:PLA

JMPoswrch
W.noexit PHA:TXA:PHA:TYA:PHA:LDA#13:LDX#4:JSR&FFF4:LDA#0:STA&3A3:PLA:TAY:PLA:TAX:PLA

JMPoswrch
$.nofx PLA:JMPoswrch
.]
8�
B'?&20E=debug � 256:?&20F=debug � 256
L'?&220=start � 256:?&221=start � 256
V*FX14,4
`+c=0:�i=&70�&8E �2:?i=c:?(i+1)=c:c=c+1:�
�

00000000  0d 00 0a 0c f4 20 46 6c  61 73 68 2e 0d 00 14 1b  |..... Flash.....|
00000010  f4 20 42 79 20 47 72 61  68 61 6d 20 44 2e 20 57  |. By Graham D. W|
00000020  61 6c 6b 64 65 6e 2e 0d  00 1e 1a f4 20 53 79 6e  |alkden...... Syn|
00000030  74 61 78 20 2d 20 2a 4c  49 4e 45 20 78 2c 79 2c  |tax - *LINE x,y,|
00000040  7a 0d 00 28 18 f4 20 28  63 29 20 54 68 65 20 4d  |z..(.. (c) The M|
00000050  69 63 72 6f 20 55 73 65  72 0d 00 32 0b 2a 46 58  |icro User..2.*FX|
00000060  31 33 2c 34 0d 00 3c 0f  e3 6f 70 74 25 3d 30 b8  |13,4..<..opt%=0.|
00000070  33 88 33 0d 00 46 0b 50  25 3d 26 41 30 30 0d 00  |3.3..F.P%=&A00..|
00000080  50 0c 5b 4f 50 54 6f 70  74 25 0d 00 5a 09 2e 6c  |P.[OPTopt%..Z..l|
00000090  69 6e 65 0d 00 64 0f 43  4d 50 23 31 3a 42 45 51  |ine..d.CMP#1:BEQ|
000000a0  6f 6b 0d 00 6e 0c 4a 4d  50 26 45 33 31 30 0d 00  |ok..n.JMP&E310..|
000000b0  78 07 2e 6f 6b 0d 00 82  11 53 54 58 26 46 38 3a  |x..ok....STX&F8:|
000000c0  53 54 59 26 46 39 0d 00  8c 11 4c 44 41 23 30 3a  |STY&F9....LDA#0:|
000000d0  53 54 41 26 33 39 46 0d  00 96 2d 4c 44 41 23 26  |STA&39F...-LDA#&|
000000e0  37 30 20 83 20 32 35 36  3a 53 54 41 26 39 32 3a  |70 . 256:STA&92:|
000000f0  4c 44 41 23 26 37 30 20  81 20 32 35 36 3a 53 54  |LDA#&70 . 256:ST|
00000100  41 26 39 33 0d 00 a0 11  4c 44 59 23 30 3a 4a 53  |A&93....LDY#0:JS|
00000110  52 6c 6f 61 64 0d 00 aa  1f 53 54 41 26 33 39 46  |Rload....STA&39F|
00000120  3a 43 4c 43 3a 41 44 43  26 33 39 46 3a 53 54 41  |:CLC:ADC&39F:STA|
00000130  26 33 39 46 0d 00 b4 0b  4a 53 52 6c 6f 61 64 0d  |&39F....JSRload.|
00000140  00 be 14 4a 53 52 73 74  6f 72 65 3a 4a 53 52 6c  |...JSRstore:JSRl|
00000150  6f 61 64 0d 00 c8 22 4a  53 52 73 74 6f 72 65 3a  |oad..."JSRstore:|
00000160  4c 44 41 23 30 3a 53 54  41 26 33 41 32 3a 53 54  |LDA#0:STA&3A2:ST|
00000170  41 26 33 41 33 0d 00 d2  07 52 54 53 0d 00 dc 09  |A&3A3....RTS....|
00000180  2e 6c 6f 61 64 0d 00 e6  12 4c 44 41 28 26 46 38  |.load....LDA(&F8|
00000190  29 2c 59 3a 54 41 58 0d  00 f0 20 49 4e 59 3a 4c  |),Y:TAX... INY:L|
000001a0  44 41 28 26 46 38 29 2c  59 3a 43 4d 50 23 34 34  |DA(&F8),Y:CMP#44|
000001b0  3a 42 45 51 6f 75 74 0d  00 fa 11 43 4d 50 23 31  |:BEQout....CMP#1|
000001c0  33 3a 42 45 51 6f 75 74  0d 01 04 19 43 4c 43 3a  |3:BEQout....CLC:|
000001d0  53 42 43 23 34 37 3a 43  4c 43 3a 41 44 43 23 31  |SBC#47:CLC:ADC#1|
000001e0  30 0d 01 0e 0f 49 4e 59  3a 49 4e 59 3a 52 54 53  |0....INY:INY:RTS|
000001f0  0d 01 18 1b 2e 6f 75 74  20 54 58 41 3a 43 4c 43  |.....out TXA:CLC|
00000200  3a 53 42 43 23 34 37 3a  49 4e 59 0d 01 22 07 52  |:SBC#47:INY..".R|
00000210  54 53 0d 01 2c 0a 2e 73  74 6f 72 65 0d 01 36 1e  |TS..,..store..6.|
00000220  53 54 59 26 33 41 30 3a  4c 44 59 26 33 39 46 3a  |STY&3A0:LDY&39F:|
00000230  53 54 41 28 26 39 32 29  2c 59 0d 01 40 13 49 4e  |STA(&92),Y..@.IN|
00000240  43 26 33 39 46 3a 4c 44  59 26 33 41 30 0d 01 4a  |C&39F:LDY&3A0..J|
00000250  07 52 54 53 0d 01 54 05  5d 0d 01 5e 27 ed 3a 3f  |.RTS..T.]..^'.:?|
00000260  26 32 30 30 3d 6c 69 6e  65 20 83 20 32 35 36 3a  |&200=line . 256:|
00000270  3f 26 32 30 31 3d 6c 69  6e 65 20 81 20 32 35 36  |?&201=line . 256|
00000280  0d 01 68 17 61 25 3d 50  25 2b 32 3a e3 6f 70 74  |..h.a%=P%+2:.opt|
00000290  25 3d 30 b8 33 88 33 0d  01 72 22 50 25 3d 61 25  |%=0.3.3..r"P%=a%|
000002a0  3a 64 65 6c 61 79 3d 32  35 3a 3f 26 33 41 33 3d  |:delay=25:?&3A3=|
000002b0  30 3a 3f 26 33 41 31 3d  39 0d 01 7c 0d 5b 4f 50  |0:?&3A1=9..|.[OP|
000002c0  54 20 6f 70 74 25 0d 01  86 18 2e 73 74 61 72 74  |T opt%.....start|
000002d0  20 43 4d 50 23 34 3a 42  4e 45 72 65 74 31 0d 01  | CMP#4:BNEret1..|
000002e0  90 17 50 48 41 3a 54 59  41 3a 50 48 41 3a 54 58  |..PHA:TYA:PHA:TX|
000002f0  41 3a 50 48 41 0d 01 9a  1c 4c 44 41 26 33 35 35  |A:PHA....LDA&355|
00000300  3a 43 4d 50 26 33 41 31  3a 42 45 51 6e 6f 63 6c  |:CMP&3A1:BEQnocl|
00000310  72 0d 01 a4 2a 53 54 41  26 33 41 31 3a 4c 44 41  |r...*STA&3A1:LDA|
00000320  23 31 32 3a 4a 53 52 26  46 46 45 33 3a 4c 44 41  |#12:JSR&FFE3:LDA|
00000330  23 33 32 3a 53 54 41 26  33 41 34 0d 01 ae 2c 2e  |#32:STA&3A4...,.|
00000340  6e 6f 63 6c 72 20 49 4e  43 26 33 41 35 3a 4c 44  |noclr INC&3A5:LD|
00000350  41 26 33 41 35 3a 43 4d  50 23 64 65 6c 61 79 3a  |A&3A5:CMP#delay:|
00000360  42 4e 45 6f 75 74 31 0d  01 b8 11 4c 44 41 23 30  |BNEout1....LDA#0|
00000370  3a 53 54 41 26 33 41 35  0d 01 c2 1c 4c 44 41 26  |:STA&3A5....LDA&|
00000380  33 41 34 3a 43 4d 50 23  33 32 3a 42 4e 45 6e 6f  |3A4:CMP#32:BNEno|
00000390  77 69 70 65 0d 01 cc 19  4c 44 41 23 30 3a 53 54  |wipe....LDA#0:ST|
000003a0  41 26 33 41 34 3a 4c 44  41 26 33 35 35 0d 01 d6  |A&3A4:LDA&355...|
000003b0  14 43 4d 50 23 32 3a 42  45 51 77 69 70 65 76 31  |.CMP#2:BEQwipev1|
000003c0  36 0d 01 e0 13 43 4d 50  23 31 3a 42 45 51 77 69  |6....CMP#1:BEQwi|
000003d0  70 65 76 34 0d 01 ea 13  43 4d 50 23 35 3a 42 45  |pev4....CMP#5:BE|
000003e0  51 77 69 70 65 76 34 0d  01 f4 13 43 4d 50 23 30  |Qwipev4....CMP#0|
000003f0  3a 42 45 51 77 69 70 65  76 32 0d 01 fe 0d 4a 4d  |:BEQwipev2....JM|
00000400  50 77 69 70 65 76 32 0d  02 08 17 2e 6e 6f 77 69  |Pwipev2.....nowi|
00000410  70 65 20 4c 44 58 23 30  3a 4c 44 59 23 30 0d 02  |pe LDX#0:LDY#0..|
00000420  12 09 2e 6c 6f 6f 70 0d  02 1c 0b 4a 4d 50 6e 6f  |...loop....JMPno|
00000430  6a 70 0d 02 26 11 2e 72  65 74 31 20 4a 4d 50 72  |jp..&..ret1 JMPr|
00000440  65 74 32 0d 02 30 16 2e  77 69 70 65 76 31 36 20  |et2..0..wipev16 |
00000450  4a 4d 50 77 69 70 65 31  36 0d 02 3a 09 2e 6e 6f  |JMPwipe16..:..no|
00000460  6a 70 0d 02 44 20 4c 44  41 23 31 39 3a 4a 53 52  |jp..D LDA#19:JSR|
00000470  26 46 46 45 33 3a 54 58  41 3a 4a 53 52 26 46 46  |&FFE3:TXA:JSR&FF|
00000480  45 33 0d 02 4e 18 4c 44  41 26 33 41 32 3a 43 4d  |E3..N.LDA&3A2:CM|
00000490  50 23 31 3a 42 4e 45 66  6c 31 0d 02 58 1b 4c 44  |P#1:BNEfl1..X.LD|
000004a0  41 26 37 30 2c 59 3a 49  4e 59 3a 49 4e 59 3a 4a  |A&70,Y:INY:INY:J|
000004b0  4d 50 66 6c 32 0d 02 62  19 2e 66 6c 31 20 4c 44  |MPfl2..b..fl1 LD|
000004c0  41 26 37 31 2c 59 3a 49  4e 59 3a 49 4e 59 0d 02  |A&71,Y:INY:INY..|
000004d0  6c 08 2e 66 6c 32 0d 02  76 0d 4a 4d 50 6e 6f 6f  |l..fl2..v.JMPnoo|
000004e0  75 74 76 0d 02 80 10 2e  6f 75 74 31 20 4a 4d 50  |utv.....out1 JMP|
000004f0  6f 75 74 0d 02 8a 3e 2e  6e 6f 6f 75 74 76 20 4a  |out...>.nooutv J|
00000500  53 52 26 46 46 45 33 3a  4c 44 41 23 30 3a 4a 53  |SR&FFE3:LDA#0:JS|
00000510  52 26 46 46 45 33 3a 4a  53 52 26 46 46 45 33 3a  |R&FFE3:JSR&FFE3:|
00000520  4a 53 52 26 46 46 45 33  3a 4a 53 52 26 46 46 45  |JSR&FFE3:JSR&FFE|
00000530  33 0d 02 94 1b 4c 44 41  26 33 36 30 3a 53 54 41  |3....LDA&360:STA|
00000540  26 33 41 36 3a 49 4e 43  26 33 41 36 0d 02 9e 17  |&3A6:INC&3A6....|
00000550  49 4e 58 3a 43 50 58 26  33 41 36 3a 42 4e 45 6c  |INX:CPX&3A6:BNEl|
00000560  6f 6f 70 0d 02 a8 0a 4a  4d 50 6e 6f 76 0d 02 b2  |oop....JMPnov...|
00000570  10 2e 72 65 74 32 20 4a  4d 50 72 65 74 0d 02 bc  |..ret2 JMPret...|
00000580  08 2e 6e 6f 76 0d 02 c6  19 4c 44 41 26 33 41 32  |..nov....LDA&3A2|
00000590  3a 43 4d 50 23 31 3a 42  4e 45 6e 6f 74 31 0d 02  |:CMP#1:BNEnot1..|
000005a0  d0 18 4c 44 41 23 30 3a  53 54 41 26 33 41 32 3a  |..LDA#0:STA&3A2:|
000005b0  4a 4d 50 66 69 6e 0d 02  da 17 2e 6e 6f 74 31 20  |JMPfin.....not1 |
000005c0  4c 44 41 23 31 3a 53 54  41 26 33 41 32 0d 02 e4  |LDA#1:STA&3A2...|
000005d0  08 2e 66 69 6e 0d 02 ee  1c 2e 6f 75 74 20 50 4c  |..fin.....out PL|
000005e0  41 3a 54 41 58 3a 50 4c  41 3a 54 41 59 3a 50 4c  |A:TAX:PLA:TAY:PL|
000005f0  41 0d 02 f8 0c 2e 72 65  74 20 52 54 53 0d 03 02  |A.....ret RTS...|
00000600  14 2e 77 69 70 65 76 32  20 4a 4d 50 77 69 70 65  |..wipev2 JMPwipe|
00000610  32 0d 03 0c 14 2e 77 69  70 65 76 34 20 4a 4d 50  |2.....wipev4 JMP|
00000620  77 69 70 65 34 0d 03 16  0b 2e 77 69 70 65 31 36  |wipe4.....wipe16|
00000630  0d 03 20 0f 4c 44 59 23  30 3a 4c 44 58 23 30 0d  |.. .LDY#0:LDX#0.|
00000640  03 2a 07 2e 6c 70 0d 03  34 21 53 54 58 26 37 30  |.*..lp..4!STX&70|
00000650  2c 59 3a 53 54 58 26 37  31 2c 59 3a 49 4e 59 3a  |,Y:STX&71,Y:INY:|
00000660  49 4e 59 3a 49 4e 58 0d  03 3e 10 43 50 58 23 31  |INY:INX..>.CPX#1|
00000670  35 3a 42 4e 45 6c 70 0d  03 48 0d 4a 4d 50 6e 6f  |5:BNElp..H.JMPno|
00000680  77 69 70 65 0d 03 52 1e  2e 77 69 70 65 34 20 4c  |wipe..R..wipe4 L|
00000690  44 41 23 30 3a 53 54 41  26 37 30 3a 53 54 41 26  |DA#0:STA&70:STA&|
000006a0  37 31 0d 03 5c 17 4c 44  41 23 31 3a 53 54 41 26  |71..\.LDA#1:STA&|
000006b0  37 32 3a 53 54 41 26 37  33 0d 03 66 17 4c 44 41  |72:STA&73..f.LDA|
000006c0  23 33 3a 53 54 41 26 37  34 3a 53 54 41 26 37 35  |#3:STA&74:STA&75|
000006d0  0d 03 70 17 4c 44 41 23  37 3a 53 54 41 26 37 36  |..p.LDA#7:STA&76|
000006e0  3a 53 54 41 26 37 37 0d  03 7a 0d 4a 4d 50 6e 6f  |:STA&77..z.JMPno|
000006f0  77 69 70 65 0d 03 84 0a  2e 77 69 70 65 32 0d 03  |wipe.....wipe2..|
00000700  8e 17 4c 44 41 23 30 3a  53 54 41 26 37 30 3a 53  |..LDA#0:STA&70:S|
00000710  54 41 26 37 31 0d 03 98  17 4c 44 41 23 37 3a 53  |TA&71....LDA#7:S|
00000720  54 41 26 37 32 3a 53 54  41 26 37 33 0d 03 a2 0d  |TA&72:STA&73....|
00000730  4a 4d 50 6e 6f 77 69 70  65 0d 03 ac 05 5d 0d 03  |JMPnowipe....]..|
00000740  b6 05 ed 0d 03 c0 30 6f  73 77 72 63 68 3d 3f 26  |......0oswrch=?&|
00000750  32 30 45 2b 28 3f 26 32  30 46 2a 32 35 36 29 3a  |20E+(?&20F*256):|
00000760  61 25 3d 50 25 2b 32 3a  e3 6f 70 74 25 3d 30 b8  |a%=P%+2:.opt%=0.|
00000770  33 88 33 0d 03 ca 09 50  25 3d 61 25 0d 03 d4 0c  |3.3....P%=a%....|
00000780  5b 4f 50 54 6f 70 74 25  0d 03 de 0a 2e 64 65 62  |[OPTopt%.....deb|
00000790  75 67 0d 03 e8 14 43 4d  50 23 31 32 3a 42 45 51  |ug....CMP#12:BEQ|
000007a0  6e 6f 65 78 69 74 0d 03  f2 25 50 48 41 3a 49 4e  |noexit...%PHA:IN|
000007b0  43 26 33 41 33 3a 4c 44  41 26 33 41 33 3a 43 4d  |C&3A3:LDA&3A3:CM|
000007c0  50 23 31 3a 42 43 43 6e  6f 66 78 0d 03 fc 3d 54  |P#1:BCCnofx...=T|
000007d0  58 41 3a 50 48 41 3a 54  59 41 3a 50 48 41 3a 4c  |XA:PHA:TYA:PHA:L|
000007e0  44 41 23 31 34 3a 4c 44  58 23 34 3a 4a 53 52 26  |DA#14:LDX#4:JSR&|
000007f0  46 46 46 34 3a 50 4c 41  3a 54 41 59 3a 50 4c 41  |FFF4:PLA:TAY:PLA|
00000800  3a 54 41 58 3a 50 4c 41  0d 04 06 0d 4a 4d 50 6f  |:TAX:PLA....JMPo|
00000810  73 77 72 63 68 0d 04 10  57 2e 6e 6f 65 78 69 74  |swrch...W.noexit|
00000820  20 50 48 41 3a 54 58 41  3a 50 48 41 3a 54 59 41  | PHA:TXA:PHA:TYA|
00000830  3a 50 48 41 3a 4c 44 41  23 31 33 3a 4c 44 58 23  |:PHA:LDA#13:LDX#|
00000840  34 3a 4a 53 52 26 46 46  46 34 3a 4c 44 41 23 30  |4:JSR&FFF4:LDA#0|
00000850  3a 53 54 41 26 33 41 33  3a 50 4c 41 3a 54 41 59  |:STA&3A3:PLA:TAY|
00000860  3a 50 4c 41 3a 54 41 58  3a 50 4c 41 0d 04 1a 0d  |:PLA:TAX:PLA....|
00000870  4a 4d 50 6f 73 77 72 63  68 0d 04 24 17 2e 6e 6f  |JMPoswrch..$..no|
00000880  66 78 20 50 4c 41 3a 4a  4d 50 6f 73 77 72 63 68  |fx PLA:JMPoswrch|
00000890  0d 04 2e 05 5d 0d 04 38  05 ed 0d 04 42 27 3f 26  |....]..8....B'?&|
000008a0  32 30 45 3d 64 65 62 75  67 20 83 20 32 35 36 3a  |20E=debug . 256:|
000008b0  3f 26 32 30 46 3d 64 65  62 75 67 20 81 20 32 35  |?&20F=debug . 25|
000008c0  36 0d 04 4c 27 3f 26 32  32 30 3d 73 74 61 72 74  |6..L'?&220=start|
000008d0  20 83 20 32 35 36 3a 3f  26 32 32 31 3d 73 74 61  | . 256:?&221=sta|
000008e0  72 74 20 81 20 32 35 36  0d 04 56 0b 2a 46 58 31  |rt . 256..V.*FX1|
000008f0  34 2c 34 0d 04 60 2b 63  3d 30 3a e3 69 3d 26 37  |4,4..`+c=0:.i=&7|
00000900  30 b8 26 38 45 20 88 32  3a 3f 69 3d 63 3a 3f 28  |0.&8E .2:?i=c:?(|
00000910  69 2b 31 29 3d 63 3a 63  3d 63 2b 31 3a ed 0d ff  |i+1)=c:c=c+1:...|
00000920