char=�","

�A%=0�3�3
P%=&DE00
([
2
OPT A%
<LDA#start � 255:STA &210
FLDA#start � 256:STA &211
PRTS
Z
.start
dPHP
n$JSR&E7BC:CMP#char:BEQP%+5:JMPout
xPHA:PHX:PHY
�	LDA#2
�JSR&FFEE
�LDY#0:LDX#0
�LDA#0:STA&70:LDA#&7C:STA&71
�STY&74:STX&75
�.l1
�LDA#0:STA&72
�.l9
�	LDY#0
�LDA(&70),Y:� #127
�
STA&73
�CMP#16:BCC l2
�CMP#32:BCS prn

LDA#1:STA&72:BRAprn

.l2

LDA#0:STA&72

".prn

,LDA&73:CMP#&60:BCSP%+6

6CMP#&40:BCSok

@LDA&72:CMP#1:BEQ l3

JLDA&73:CMP#32:BCC l3

TCMP#127:BEQ l3

^.ok

h#PHA:LDA#1:JSR&FFEE:PLA:JSR&FFEE

rBRAnext

|.l3

�"LDA#1:JSR&FFEE:LDA#32:JSR&FFEE

�	.next

�+LDX&75:INX:STX&75:INC&70:BNEP%+4:INC&71

�CPX#40:BNEl9

�	JSRlf

�/LDX#0:STX&75:LDY&74:INY:STY&74:CPY#24:BNEl1

�JSRlf:JSRlf

�LDA#3:JSR&FFEE

�PLY:PLX:PLA

�LDA#char

�.out

�PLP

�RTS
.lf
"LDA#1:JSR&FFEE:LDA#10:JSR&FFEE
"LDA#1:JSR&FFEE:LDA#13:JMP&FFEE
&]
0�
�

00000000  0d 00 0a 0d 63 68 61 72  3d 97 22 2c 22 0d 00 14  |....char=.","...|
00000010  0d e3 41 25 3d 30 b8 33  88 33 0d 00 1e 0c 50 25  |..A%=0.3.3....P%|
00000020  3d 26 44 45 30 30 0d 00  28 05 5b 0d 00 32 0a 4f  |=&DE00..(.[..2.O|
00000030  50 54 20 41 25 0d 00 3c  1c 4c 44 41 23 73 74 61  |PT A%..<.LDA#sta|
00000040  72 74 20 80 20 32 35 35  3a 53 54 41 20 26 32 31  |rt . 255:STA &21|
00000050  30 0d 00 46 1c 4c 44 41  23 73 74 61 72 74 20 81  |0..F.LDA#start .|
00000060  20 32 35 36 3a 53 54 41  20 26 32 31 31 0d 00 50  | 256:STA &211..P|
00000070  07 52 54 53 0d 00 5a 0a  2e 73 74 61 72 74 0d 00  |.RTS..Z..start..|
00000080  64 07 50 48 50 0d 00 6e  24 4a 53 52 26 45 37 42  |d.PHP..n$JSR&E7B|
00000090  43 3a 43 4d 50 23 63 68  61 72 3a 42 45 51 50 25  |C:CMP#char:BEQP%|
000000a0  2b 35 3a 4a 4d 50 6f 75  74 0d 00 78 0f 50 48 41  |+5:JMPout..x.PHA|
000000b0  3a 50 48 58 3a 50 48 59  0d 00 82 09 4c 44 41 23  |:PHX:PHY....LDA#|
000000c0  32 0d 00 8c 0c 4a 53 52  26 46 46 45 45 0d 00 96  |2....JSR&FFEE...|
000000d0  0f 4c 44 59 23 30 3a 4c  44 58 23 30 0d 00 a0 1f  |.LDY#0:LDX#0....|
000000e0  4c 44 41 23 30 3a 53 54  41 26 37 30 3a 4c 44 41  |LDA#0:STA&70:LDA|
000000f0  23 26 37 43 3a 53 54 41  26 37 31 0d 00 aa 11 53  |#&7C:STA&71....S|
00000100  54 59 26 37 34 3a 53 54  58 26 37 35 0d 00 b4 07  |TY&74:STX&75....|
00000110  2e 6c 31 0d 00 be 10 4c  44 41 23 30 3a 53 54 41  |.l1....LDA#0:STA|
00000120  26 37 32 0d 00 c8 07 2e  6c 39 0d 00 d2 09 4c 44  |&72.....l9....LD|
00000130  59 23 30 0d 00 dc 15 4c  44 41 28 26 37 30 29 2c  |Y#0....LDA(&70),|
00000140  59 3a 80 20 23 31 32 37  0d 00 e6 0a 53 54 41 26  |Y:. #127....STA&|
00000150  37 33 0d 00 f0 11 43 4d  50 23 31 36 3a 42 43 43  |73....CMP#16:BCC|
00000160  20 6c 32 0d 00 fa 12 43  4d 50 23 33 32 3a 42 43  | l2....CMP#32:BC|
00000170  53 20 70 72 6e 0d 01 04  17 4c 44 41 23 31 3a 53  |S prn....LDA#1:S|
00000180  54 41 26 37 32 3a 42 52  41 70 72 6e 0d 01 0e 07  |TA&72:BRAprn....|
00000190  2e 6c 32 0d 01 18 10 4c  44 41 23 30 3a 53 54 41  |.l2....LDA#0:STA|
000001a0  26 37 32 0d 01 22 08 2e  70 72 6e 0d 01 2c 1a 4c  |&72.."..prn..,.L|
000001b0  44 41 26 37 33 3a 43 4d  50 23 26 36 30 3a 42 43  |DA&73:CMP#&60:BC|
000001c0  53 50 25 2b 36 0d 01 36  11 43 4d 50 23 26 34 30  |SP%+6..6.CMP#&40|
000001d0  3a 42 43 53 6f 6b 0d 01  40 17 4c 44 41 26 37 32  |:BCSok..@.LDA&72|
000001e0  3a 43 4d 50 23 31 3a 42  45 51 20 6c 33 0d 01 4a  |:CMP#1:BEQ l3..J|
000001f0  18 4c 44 41 26 37 33 3a  43 4d 50 23 33 32 3a 42  |.LDA&73:CMP#32:B|
00000200  43 43 20 6c 33 0d 01 54  12 43 4d 50 23 31 32 37  |CC l3..T.CMP#127|
00000210  3a 42 45 51 20 6c 33 0d  01 5e 07 2e 6f 6b 0d 01  |:BEQ l3..^..ok..|
00000220  68 23 50 48 41 3a 4c 44  41 23 31 3a 4a 53 52 26  |h#PHA:LDA#1:JSR&|
00000230  46 46 45 45 3a 50 4c 41  3a 4a 53 52 26 46 46 45  |FFEE:PLA:JSR&FFE|
00000240  45 0d 01 72 0b 42 52 41  6e 65 78 74 0d 01 7c 07  |E..r.BRAnext..|.|
00000250  2e 6c 33 0d 01 86 22 4c  44 41 23 31 3a 4a 53 52  |.l3..."LDA#1:JSR|
00000260  26 46 46 45 45 3a 4c 44  41 23 33 32 3a 4a 53 52  |&FFEE:LDA#32:JSR|
00000270  26 46 46 45 45 0d 01 90  09 2e 6e 65 78 74 0d 01  |&FFEE.....next..|
00000280  9a 2b 4c 44 58 26 37 35  3a 49 4e 58 3a 53 54 58  |.+LDX&75:INX:STX|
00000290  26 37 35 3a 49 4e 43 26  37 30 3a 42 4e 45 50 25  |&75:INC&70:BNEP%|
000002a0  2b 34 3a 49 4e 43 26 37  31 0d 01 a4 10 43 50 58  |+4:INC&71....CPX|
000002b0  23 34 30 3a 42 4e 45 6c  39 0d 01 ae 09 4a 53 52  |#40:BNEl9....JSR|
000002c0  6c 66 0d 01 b8 2f 4c 44  58 23 30 3a 53 54 58 26  |lf.../LDX#0:STX&|
000002d0  37 35 3a 4c 44 59 26 37  34 3a 49 4e 59 3a 53 54  |75:LDY&74:INY:ST|
000002e0  59 26 37 34 3a 43 50 59  23 32 34 3a 42 4e 45 6c  |Y&74:CPY#24:BNEl|
000002f0  31 0d 01 c2 0f 4a 53 52  6c 66 3a 4a 53 52 6c 66  |1....JSRlf:JSRlf|
00000300  0d 01 cc 12 4c 44 41 23  33 3a 4a 53 52 26 46 46  |....LDA#3:JSR&FF|
00000310  45 45 0d 01 d6 0f 50 4c  59 3a 50 4c 58 3a 50 4c  |EE....PLY:PLX:PL|
00000320  41 0d 01 e0 0c 4c 44 41  23 63 68 61 72 0d 01 ea  |A....LDA#char...|
00000330  08 2e 6f 75 74 0d 01 f4  07 50 4c 50 0d 01 fe 07  |..out....PLP....|
00000340  52 54 53 0d 02 08 07 2e  6c 66 0d 02 12 22 4c 44  |RTS.....lf..."LD|
00000350  41 23 31 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |A#1:JSR&FFEE:LDA|
00000360  23 31 30 3a 4a 53 52 26  46 46 45 45 0d 02 1c 22  |#10:JSR&FFEE..."|
00000370  4c 44 41 23 31 3a 4a 53  52 26 46 46 45 45 3a 4c  |LDA#1:JSR&FFEE:L|
00000380  44 41 23 31 33 3a 4a 4d  50 26 46 46 45 45 0d 02  |DA#13:JMP&FFEE..|
00000390  26 05 5d 0d 02 30 05 ed  0d ff                    |&.]..0....|
0000039a