� Bits and Pieces
� By Stephen J. Ramplin
� (c) Electron User
(�6
2
*FX200
<*KEY10OLD|MRUN|M
F�(!&202 �&FFFF)<>&B402 �!-4
P	*FX18
Z
�assemble
d�'"Press <RETURN> to save"'
n
���=13
x�"SAVE BP C00 "+�~P%
�	�init
��
���assemble
�offset=&0A
�ptrA=&0B
�intA=&2A
�
wkspc=&3D
�from=&80
�end=&82
�lnum=&84
�handle=&86
�
error=&FD
�
brkv=&202

spaces=&8A97

reentry=&8AF6

missing=&8E98

"silly=&8FDF

,decode=&97DF

6linesrch=&9970

@oldbrk=&B402

Jnosuchline=&B9B5

Tosfind=&FFCE

^osbput=&FFD4

h�pass%=0�2�2

rP%=&C00

|
[OPTpass%

�	.init

�LDX#check �256

�LDY#check �256

�SEI

�STXbrkv

�
STYbrkv+1

�CLI

�RTS

�.not

�PLA

�TAY

�PLA

�
JMPoldbrk

.check
PHA
TYA
&PHA
0	LDY#0
:LDA(error),Y
D
CMP#26
N
BNEnot
X
.savelist
b
DECoffset
l
JSRspaces
vCMP#&CD \ savetkn
�
BNEnot
�
JSRspaces
�CMP#&C9 \ listtkn
�
BNEnot
�JSRobtainlnum
�LDAintA
�STAlnum
�
LDAintA+1
�
STAlnum+1
�SEC
�LDAwkspc
�	SBC#3
�STAfrom
LDAwkspc+1
	SBC#0

STAfrom+1
 JSRcomma
*JSRobtainlnum
4
LDAintA+1
>
CMPlnum+1
H
BCCbad
RBEQtestlow
\
.notsilly
f	LDY#0
pLDA(wkspc),Y
zSEC
�	SBC#2
�CLC
�ADCwkspc
�
STAend
�LDAwkspc+1
�	ADC#0
�STAend+1
�JSRcomma
�
JSRspaces
�
CMP#34
�BEQquoteok
�JMPmissing
�.quoteok

DECoffset
CLC
LDAptrA
$
ADCoffset
.TAX
8
LDAptrA+1
B	ADC#0
LTAY
VLDA#&80
`
JSRosfind
j
STAhandle
t
.saveloop
~	LDY#0
�LDA(from),Y
�
LDYhandle
�
JSRosbput
�INCfrom
�BNEhere
�
INCfrom+1
�	.here
�LDAfrom
�
CMPend
�BNEsaveloop
�
LDAfrom+1
�CMPend+1
BNEsaveloop

LDA#&FF

JSRosbput
	LDA#0
(
LDYhandle
2
JSRosfind
<JMPreentry
F.testlow
PLDAintA
ZCMPlnum
dBCSnotsilly
n.bad
xJMPsilly
�.obtainlnum
�
JSRspaces
�
DECoffset
�CMP#&8D
�
BEQget
�
JMPsyntax
�.get
�
JSRdecode
�JSRlinesrch
�BCCfound
�JMPnosuchline
�
.found
�RTS

.comma

JSRspaces
CMP#�","
"	BEQok
,.syntax
6BRK
@
EQUB47
JEQUS"Syntax:"+�32
T
EQUW&C9CD
^EQUS �32+"lnum,lnum,"+�34
hEQUS "Filename"+�34
rBRK
|.ok
�RTS
�]
��
��
�

00000000  0d 00 0a 15 f4 20 42 69  74 73 20 61 6e 64 20 50  |..... Bits and P|
00000010  69 65 63 65 73 0d 00 14  1b f4 20 42 79 20 53 74  |ieces..... By St|
00000020  65 70 68 65 6e 20 4a 2e  20 52 61 6d 70 6c 69 6e  |ephen J. Ramplin|
00000030  0d 00 1e 17 f4 20 28 63  29 20 45 6c 65 63 74 72  |..... (c) Electr|
00000040  6f 6e 20 55 73 65 72 0d  00 28 06 eb 36 0d 00 32  |on User..(..6..2|
00000050  0a 2a 46 58 32 30 30 0d  00 3c 14 2a 4b 45 59 31  |.*FX200..<.*KEY1|
00000060  30 4f 4c 44 7c 4d 52 55  4e 7c 4d 0d 00 46 1f e7  |0OLD|MRUN|M..F..|
00000070  28 21 26 32 30 32 20 80  26 46 46 46 46 29 3c 3e  |(!&202 .&FFFF)<>|
00000080  26 42 34 30 32 20 d6 21  2d 34 0d 00 50 09 2a 46  |&B402 .!-4..P.*F|
00000090  58 31 38 0d 00 5a 0d f2  61 73 73 65 6d 62 6c 65  |X18..Z..assemble|
000000a0  0d 00 64 1f f1 27 22 50  72 65 73 73 20 3c 52 45  |..d..'"Press <RE|
000000b0  54 55 52 4e 3e 20 74 6f  20 73 61 76 65 22 27 0d  |TURN> to save"'.|
000000c0  00 6e 0a f5 fd a5 3d 31  33 0d 00 78 18 ff 22 53  |.n....=13..x.."S|
000000d0  41 56 45 20 42 50 20 43  30 30 20 22 2b c3 7e 50  |AVE BP C00 "+.~P|
000000e0  25 0d 00 82 09 d6 69 6e  69 74 0d 00 8c 05 e0 0d  |%.....init......|
000000f0  00 96 0e dd f2 61 73 73  65 6d 62 6c 65 0d 00 a0  |.....assemble...|
00000100  0e 6f 66 66 73 65 74 3d  26 30 41 0d 00 aa 0c 70  |.offset=&0A....p|
00000110  74 72 41 3d 26 30 42 0d  00 b4 0c 69 6e 74 41 3d  |trA=&0B....intA=|
00000120  26 32 41 0d 00 be 0d 77  6b 73 70 63 3d 26 33 44  |&2A....wkspc=&3D|
00000130  0d 00 c8 0c 66 72 6f 6d  3d 26 38 30 0d 00 d2 0b  |....from=&80....|
00000140  65 6e 64 3d 26 38 32 0d  00 dc 0c 6c 6e 75 6d 3d  |end=&82....lnum=|
00000150  26 38 34 0d 00 e6 0e 68  61 6e 64 6c 65 3d 26 38  |&84....handle=&8|
00000160  36 0d 00 f0 0d 65 72 72  6f 72 3d 26 46 44 0d 00  |6....error=&FD..|
00000170  fa 0d 62 72 6b 76 3d 26  32 30 32 0d 01 04 10 73  |..brkv=&202....s|
00000180  70 61 63 65 73 3d 26 38  41 39 37 0d 01 0e 11 72  |paces=&8A97....r|
00000190  65 65 6e 74 72 79 3d 26  38 41 46 36 0d 01 18 11  |eentry=&8AF6....|
000001a0  6d 69 73 73 69 6e 67 3d  26 38 45 39 38 0d 01 22  |missing=&8E98.."|
000001b0  0f 73 69 6c 6c 79 3d 26  38 46 44 46 0d 01 2c 10  |.silly=&8FDF..,.|
000001c0  64 65 63 6f 64 65 3d 26  39 37 44 46 0d 01 36 12  |decode=&97DF..6.|
000001d0  6c 69 6e 65 73 72 63 68  3d 26 39 39 37 30 0d 01  |linesrch=&9970..|
000001e0  40 10 6f 6c 64 62 72 6b  3d 26 42 34 30 32 0d 01  |@.oldbrk=&B402..|
000001f0  4a 14 6e 6f 73 75 63 68  6c 69 6e 65 3d 26 42 39  |J.nosuchline=&B9|
00000200  42 35 0d 01 54 10 6f 73  66 69 6e 64 3d 26 46 46  |B5..T.osfind=&FF|
00000210  43 45 0d 01 5e 10 6f 73  62 70 75 74 3d 26 46 46  |CE..^.osbput=&FF|
00000220  44 34 0d 01 68 10 e3 70  61 73 73 25 3d 30 b8 32  |D4..h..pass%=0.2|
00000230  88 32 0d 01 72 0b 50 25  3d 26 43 30 30 0d 01 7c  |.2..r.P%=&C00..||
00000240  0d 5b 4f 50 54 70 61 73  73 25 0d 01 86 09 2e 69  |.[OPTpass%.....i|
00000250  6e 69 74 0d 01 90 12 4c  44 58 23 63 68 65 63 6b  |nit....LDX#check|
00000260  20 83 32 35 36 0d 01 9a  12 4c 44 59 23 63 68 65  | .256....LDY#che|
00000270  63 6b 20 81 32 35 36 0d  01 a4 07 53 45 49 0d 01  |ck .256....SEI..|
00000280  ae 0b 53 54 58 62 72 6b  76 0d 01 b8 0d 53 54 59  |..STXbrkv....STY|
00000290  62 72 6b 76 2b 31 0d 01  c2 07 43 4c 49 0d 01 cc  |brkv+1....CLI...|
000002a0  07 52 54 53 0d 01 d6 08  2e 6e 6f 74 0d 01 e0 07  |.RTS.....not....|
000002b0  50 4c 41 0d 01 ea 07 54  41 59 0d 01 f4 07 50 4c  |PLA....TAY....PL|
000002c0  41 0d 01 fe 0d 4a 4d 50  6f 6c 64 62 72 6b 0d 02  |A....JMPoldbrk..|
000002d0  08 0a 2e 63 68 65 63 6b  0d 02 12 07 50 48 41 0d  |...check....PHA.|
000002e0  02 1c 07 54 59 41 0d 02  26 07 50 48 41 0d 02 30  |...TYA..&.PHA..0|
000002f0  09 4c 44 59 23 30 0d 02  3a 10 4c 44 41 28 65 72  |.LDY#0..:.LDA(er|
00000300  72 6f 72 29 2c 59 0d 02  44 0a 43 4d 50 23 32 36  |ror),Y..D.CMP#26|
00000310  0d 02 4e 0a 42 4e 45 6e  6f 74 0d 02 58 0d 2e 73  |..N.BNEnot..X..s|
00000320  61 76 65 6c 69 73 74 0d  02 62 0d 44 45 43 6f 66  |avelist..b.DECof|
00000330  66 73 65 74 0d 02 6c 0d  4a 53 52 73 70 61 63 65  |fset..l.JSRspace|
00000340  73 0d 02 76 15 43 4d 50  23 26 43 44 20 5c 20 73  |s..v.CMP#&CD \ s|
00000350  61 76 65 74 6b 6e 0d 02  80 0a 42 4e 45 6e 6f 74  |avetkn....BNEnot|
00000360  0d 02 8a 0d 4a 53 52 73  70 61 63 65 73 0d 02 94  |....JSRspaces...|
00000370  15 43 4d 50 23 26 43 39  20 5c 20 6c 69 73 74 74  |.CMP#&C9 \ listt|
00000380  6b 6e 0d 02 9e 0a 42 4e  45 6e 6f 74 0d 02 a8 11  |kn....BNEnot....|
00000390  4a 53 52 6f 62 74 61 69  6e 6c 6e 75 6d 0d 02 b2  |JSRobtainlnum...|
000003a0  0b 4c 44 41 69 6e 74 41  0d 02 bc 0b 53 54 41 6c  |.LDAintA....STAl|
000003b0  6e 75 6d 0d 02 c6 0d 4c  44 41 69 6e 74 41 2b 31  |num....LDAintA+1|
000003c0  0d 02 d0 0d 53 54 41 6c  6e 75 6d 2b 31 0d 02 da  |....STAlnum+1...|
000003d0  07 53 45 43 0d 02 e4 0c  4c 44 41 77 6b 73 70 63  |.SEC....LDAwkspc|
000003e0  0d 02 ee 09 53 42 43 23  33 0d 02 f8 0b 53 54 41  |....SBC#3....STA|
000003f0  66 72 6f 6d 0d 03 02 0e  4c 44 41 77 6b 73 70 63  |from....LDAwkspc|
00000400  2b 31 0d 03 0c 09 53 42  43 23 30 0d 03 16 0d 53  |+1....SBC#0....S|
00000410  54 41 66 72 6f 6d 2b 31  0d 03 20 0c 4a 53 52 63  |TAfrom+1.. .JSRc|
00000420  6f 6d 6d 61 0d 03 2a 11  4a 53 52 6f 62 74 61 69  |omma..*.JSRobtai|
00000430  6e 6c 6e 75 6d 0d 03 34  0d 4c 44 41 69 6e 74 41  |nlnum..4.LDAintA|
00000440  2b 31 0d 03 3e 0d 43 4d  50 6c 6e 75 6d 2b 31 0d  |+1..>.CMPlnum+1.|
00000450  03 48 0a 42 43 43 62 61  64 0d 03 52 0e 42 45 51  |.H.BCCbad..R.BEQ|
00000460  74 65 73 74 6c 6f 77 0d  03 5c 0d 2e 6e 6f 74 73  |testlow..\..nots|
00000470  69 6c 6c 79 0d 03 66 09  4c 44 59 23 30 0d 03 70  |illy..f.LDY#0..p|
00000480  10 4c 44 41 28 77 6b 73  70 63 29 2c 59 0d 03 7a  |.LDA(wkspc),Y..z|
00000490  07 53 45 43 0d 03 84 09  53 42 43 23 32 0d 03 8e  |.SEC....SBC#2...|
000004a0  07 43 4c 43 0d 03 98 0c  41 44 43 77 6b 73 70 63  |.CLC....ADCwkspc|
000004b0  0d 03 a2 0a 53 54 41 65  6e 64 0d 03 ac 0e 4c 44  |....STAend....LD|
000004c0  41 77 6b 73 70 63 2b 31  0d 03 b6 09 41 44 43 23  |Awkspc+1....ADC#|
000004d0  30 0d 03 c0 0c 53 54 41  65 6e 64 2b 31 0d 03 ca  |0....STAend+1...|
000004e0  0c 4a 53 52 63 6f 6d 6d  61 0d 03 d4 0d 4a 53 52  |.JSRcomma....JSR|
000004f0  73 70 61 63 65 73 0d 03  de 0a 43 4d 50 23 33 34  |spaces....CMP#34|
00000500  0d 03 e8 0e 42 45 51 71  75 6f 74 65 6f 6b 0d 03  |....BEQquoteok..|
00000510  f2 0e 4a 4d 50 6d 69 73  73 69 6e 67 0d 03 fc 0c  |..JMPmissing....|
00000520  2e 71 75 6f 74 65 6f 6b  0d 04 06 0d 44 45 43 6f  |.quoteok....DECo|
00000530  66 66 73 65 74 0d 04 10  07 43 4c 43 0d 04 1a 0b  |ffset....CLC....|
00000540  4c 44 41 70 74 72 41 0d  04 24 0d 41 44 43 6f 66  |LDAptrA..$.ADCof|
00000550  66 73 65 74 0d 04 2e 07  54 41 58 0d 04 38 0d 4c  |fset....TAX..8.L|
00000560  44 41 70 74 72 41 2b 31  0d 04 42 09 41 44 43 23  |DAptrA+1..B.ADC#|
00000570  30 0d 04 4c 07 54 41 59  0d 04 56 0b 4c 44 41 23  |0..L.TAY..V.LDA#|
00000580  26 38 30 0d 04 60 0d 4a  53 52 6f 73 66 69 6e 64  |&80..`.JSRosfind|
00000590  0d 04 6a 0d 53 54 41 68  61 6e 64 6c 65 0d 04 74  |..j.STAhandle..t|
000005a0  0d 2e 73 61 76 65 6c 6f  6f 70 0d 04 7e 09 4c 44  |..saveloop..~.LD|
000005b0  59 23 30 0d 04 88 0f 4c  44 41 28 66 72 6f 6d 29  |Y#0....LDA(from)|
000005c0  2c 59 0d 04 92 0d 4c 44  59 68 61 6e 64 6c 65 0d  |,Y....LDYhandle.|
000005d0  04 9c 0d 4a 53 52 6f 73  62 70 75 74 0d 04 a6 0b  |...JSRosbput....|
000005e0  49 4e 43 66 72 6f 6d 0d  04 b0 0b 42 4e 45 68 65  |INCfrom....BNEhe|
000005f0  72 65 0d 04 ba 0d 49 4e  43 66 72 6f 6d 2b 31 0d  |re....INCfrom+1.|
00000600  04 c4 09 2e 68 65 72 65  0d 04 ce 0b 4c 44 41 66  |....here....LDAf|
00000610  72 6f 6d 0d 04 d8 0a 43  4d 50 65 6e 64 0d 04 e2  |rom....CMPend...|
00000620  0f 42 4e 45 73 61 76 65  6c 6f 6f 70 0d 04 ec 0d  |.BNEsaveloop....|
00000630  4c 44 41 66 72 6f 6d 2b  31 0d 04 f6 0c 43 4d 50  |LDAfrom+1....CMP|
00000640  65 6e 64 2b 31 0d 05 00  0f 42 4e 45 73 61 76 65  |end+1....BNEsave|
00000650  6c 6f 6f 70 0d 05 0a 0b  4c 44 41 23 26 46 46 0d  |loop....LDA#&FF.|
00000660  05 14 0d 4a 53 52 6f 73  62 70 75 74 0d 05 1e 09  |...JSRosbput....|
00000670  4c 44 41 23 30 0d 05 28  0d 4c 44 59 68 61 6e 64  |LDA#0..(.LDYhand|
00000680  6c 65 0d 05 32 0d 4a 53  52 6f 73 66 69 6e 64 0d  |le..2.JSRosfind.|
00000690  05 3c 0e 4a 4d 50 72 65  65 6e 74 72 79 0d 05 46  |.<.JMPreentry..F|
000006a0  0c 2e 74 65 73 74 6c 6f  77 0d 05 50 0b 4c 44 41  |..testlow..P.LDA|
000006b0  69 6e 74 41 0d 05 5a 0b  43 4d 50 6c 6e 75 6d 0d  |intA..Z.CMPlnum.|
000006c0  05 64 0f 42 43 53 6e 6f  74 73 69 6c 6c 79 0d 05  |.d.BCSnotsilly..|
000006d0  6e 08 2e 62 61 64 0d 05  78 0c 4a 4d 50 73 69 6c  |n..bad..x.JMPsil|
000006e0  6c 79 0d 05 82 0f 2e 6f  62 74 61 69 6e 6c 6e 75  |ly.....obtainlnu|
000006f0  6d 0d 05 8c 0d 4a 53 52  73 70 61 63 65 73 0d 05  |m....JSRspaces..|
00000700  96 0d 44 45 43 6f 66 66  73 65 74 0d 05 a0 0b 43  |..DECoffset....C|
00000710  4d 50 23 26 38 44 0d 05  aa 0a 42 45 51 67 65 74  |MP#&8D....BEQget|
00000720  0d 05 b4 0d 4a 4d 50 73  79 6e 74 61 78 0d 05 be  |....JMPsyntax...|
00000730  08 2e 67 65 74 0d 05 c8  0d 4a 53 52 64 65 63 6f  |..get....JSRdeco|
00000740  64 65 0d 05 d2 0f 4a 53  52 6c 69 6e 65 73 72 63  |de....JSRlinesrc|
00000750  68 0d 05 dc 0c 42 43 43  66 6f 75 6e 64 0d 05 e6  |h....BCCfound...|
00000760  11 4a 4d 50 6e 6f 73 75  63 68 6c 69 6e 65 0d 05  |.JMPnosuchline..|
00000770  f0 0a 2e 66 6f 75 6e 64  0d 05 fa 07 52 54 53 0d  |...found....RTS.|
00000780  06 04 0a 2e 63 6f 6d 6d  61 0d 06 0e 0d 4a 53 52  |....comma....JSR|
00000790  73 70 61 63 65 73 0d 06  18 0c 43 4d 50 23 97 22  |spaces....CMP#."|
000007a0  2c 22 0d 06 22 09 42 45  51 6f 6b 0d 06 2c 0b 2e  |,"..".BEQok..,..|
000007b0  73 79 6e 74 61 78 0d 06  36 07 42 52 4b 0d 06 40  |syntax..6.BRK..@|
000007c0  0a 45 51 55 42 34 37 0d  06 4a 15 45 51 55 53 22  |.EQUB47..J.EQUS"|
000007d0  53 79 6e 74 61 78 3a 22  2b bd 33 32 0d 06 54 0d  |Syntax:"+.32..T.|
000007e0  45 51 55 57 26 43 39 43  44 0d 06 5e 1d 45 51 55  |EQUW&C9CD..^.EQU|
000007f0  53 20 bd 33 32 2b 22 6c  6e 75 6d 2c 6c 6e 75 6d  |S .32+"lnum,lnum|
00000800  2c 22 2b bd 33 34 0d 06  68 17 45 51 55 53 20 22  |,"+.34..h.EQUS "|
00000810  46 69 6c 65 6e 61 6d 65  22 2b bd 33 34 0d 06 72  |Filename"+.34..r|
00000820  07 42 52 4b 0d 06 7c 07  2e 6f 6b 0d 06 86 07 52  |.BRK..|..ok....R|
00000830  54 53 0d 06 90 05 5d 0d  06 9a 05 ed 0d 06 a4 05  |TS....].........|
00000840  e1 0d ff                                          |...|
00000843