� MEDIT
� (C) ELECTRON USER
� By Mark Davidson
(�6
2+�'''" Display size ? L(arge)/S(mall) ";
<�:A$=�:�A$="L" � A$="S"
F�;A$
P/�A$="L" top=4:height=15 � top=6:height=7   
Z�'''" Assembling ..." 
d*K.0 CALL &5A00|M
n�ass
x�''" Saving now ..."''
�*SAVE MEDIT 5A00 +4B0
��''" Finished."
��
� 
�	��ass
��I=0 � 2 � 2
�P%=&5A00:[OPTI
� 
�#LDA#22:JSR&FFEE:LDA#6:JSR&FFEE 
�2LDX #(mess � 256):LDY #(mess � 256):JSR print 
�LDA#4:LDX#1:JSR&FFF4
�LDA#&5A:STA 7
�
JSRnblise

JSR hex_screen

JSRshow_type

	JSRxy

"
.again

,LDA#21:LDX#0:JSR&FFF4

6
JSR &FFE0

@BCC ok:LDA#4:LDX#0:JSR&FFF4

JLDA#12:JSR&FFEE

TRTS:.ok

^KCMP#135:BNEn_sw:LDAtype:�#&FF:STAtype:JSRshow_type:JSRxy:JMPagain:.n_sw

hCMP#127:BNEskip    

r#JSRaddress:JSRxy:JMPagain:.skip

|
JSRinput 

�.ap2 JSR edit_keys

�
JMP again

� 

�
.print

�STX P+1:STY P+2:LDX#0

�<.P LDA &FFF,X:CMP#255:BEQ EP:JSR&FFEE:INX:JMP P:.EP RTS 

� 

�.edit_keys

�CMP#135:BCS edkeys

�.e_exit

�RTS

�.edkeys 

�CMP #139:BNE en1
.l
LDA yc:CMP #0:BNE n_scr1
JSRup_line:RTS
&$.n_scr1 JSR d1pos:DEC yc:JMPsub1
0 
:.en1 CMP #138:BNE en2
D.r
N"LDA yc:CMP #height:BNE n_scr2 
XJSRdown_line:RTS
b#.n_scr2 JSR d2pos:INCyc:JMPsub1
l 
v.en2 CMP#136:BNE en3 
�&LDApos:BNEok3:DECpos+1:.ok3 DECpos
�LDA xc:CMP #0:BEQ up
�DEC xc:JMPsub1:.up
�JSRend_line:JMPl  
� 
�".en3 CMP #137:BEQ go3:RTS:.go3
�!INCpos:BNE ok4:INC pos+1:.ok4
�%LDAxc:CMP #7:BEQgo2:INCxc:JMPsub1
�.go2 JSRstrt_line:JMPr
� 
�
.d1pos
�:LDA pos:SEC:SBC#8:STA pos:BCS d12:DEC pos+1:.d12 RTS  
� 

.d2pos
;LDA pos:CLC:ADC#8:STA pos:BCC d22:INC pos+1:.d22 RTS   
 
 d.up_line LDA addr:SEC:SBC#8:STAaddr:BCS u_p:DECaddr+1:.u_p JSR d1pos:JSR hex_screen:JSR sub1:RTS
* 
4d.down_line LDAaddr:CLC:ADC#8:STAaddr:BCC d_p:INCaddr+1:.d_p JSR d2pos:JSR hex_screen:JSRsub1:RTS
> 
HV.strt_line LDApos:SEC:SBC#8:STA pos:BCS strt_p:DECpos+1:.strt_p LDA# 0:STAxc:RTS  
R 
\V.end_line LDApos:CLC:ADC#8:STApos:BCCe_p:INCpos+1:.e_p LDA#7:STAxc:RTS:.et EQUB0  
f 
p.hex_screen  
zSEI
�JSR z_store
�JSR curs
�LDX #height
�.h_outer LDY #0
�JSR side
�#.h_inner LDA (&70),Y:JSR hex_it
�LDA#32:JSR&FFEE
�INY:CPY #8:BNE h_inner
�.a_outer LDY #0  
�LDA#32:JSR &FFEE
�.a_inner LDA (&70),Y 
�CMP #32:BCC a_not_ok
�CMP #128:BCS a_not_ok
JSR &FFEE:BNE a_spaces

.a_not_ok
LDA #46:JSR &FFEE
$
.a_spaces
.INY:CPY #8:BNE a_inner 
8
JSR &FFE7
BLDA &70:CLC:ADC #8
LSTA &70:BCC h_pass
VINC &71
`.h_pass
jDEX:BPL h_outer 
tJSR z_rstore
~JSRsub1
�CLI
�RTS
� 
�.display
�$LDY#0:LDA(&70),Y:PHA:LDXxc:LDYyc
�HLDA#31:JSR&FFEE:LDAdx,X:JSR&FFEE:LDAdy,Y:JSR&FFEE:PLA:PHA:JSR hex_it
�TLDA#31:JSR&FFEE:LDAx1,X:JSR&FFEE:LDAdy,Y:JSR&FFEE:PLA:JSRlim1:CPY#0:BEQdis_ok   
�%LDA#46:.dis_ok JSR&FFEE:JSRxy:RTS
�
.dt EQUB0
� 
�
.enter
�$JSRnbler:STAent:LDY#0:LDA(&70),Y
ASL A:ASL A:ASL A:ASL A

#�Aent:STA(&70),Y:JSRdisplay:RTS
.ent EQUB 0
 
(.chk_hex
2CMP#48:BCChno:CMP#71:BCShno
<%CMP#58:BCCchk_ok:CMP#65:BCSchk_ok
F .hno SEC:RTS:.chk_ok CLC:RTS
P 
Z
.nbler
d#CMP#65:BCSnblter:SEC:SBC#48:RTS
n.nblter SEC:SBC#55:RTS
x 
�.hex_it
�
STA htemp
�� #&F0:LSR A:LSR A:LSR A
�LSR A:STA htemp2
�JSR digit    
�
LDA htemp
��#&F:STA htemp2  
�
.digit
�CMP #10:BCS select_letter
�LDA#48:BNE hprint
�.select_letter
�LDA #55
�.hprint
!CLC:ADC htemp2:JSR &FFEE:RTS 
 

.input
"LDX type:BMI type_hex
,.type_ascii
6"CMP#127:BCCinp_ok:RTS:.inp_ok 
@PHA
JILDApos:STA&70:LDApos+1:STA&71:LDY#0:PLA:STA(&70),Y:JSRdisplay:JSRsub1
T
JSRgo3
^RTS
h 
r.type_hex   
|JSRchk_hex:BCCt_ok:RTS
�	.t_ok
�PHA
�!LDApos:STA&70:LDApos+1:STA&71
�PLA
�JSRenter
�RTS
� 
�.lim1 LDY#0   
�$CMP#32:BCSiok1:LDY#&FF:RTS:.iok1
�%CMP#127:BCCiok2:LDY#&FF:RTS:.iok2
�RTS
� 
�.type EQUB1
 
.z_store
MLDX#0:.zlp1 LDA c_off,X:CMP#13:BEQ z1_done:JSR&FFEE:INX:JMP zlp1:.z1_done
&#LDA &70:STA z1:LDA &71:STA z1+1
0LDA addr:STA &70
:LDA addr+1:STA &71  
DRTS
N 
X.show_type
b;LDAtype:BMIstp:LDA#65:STAmb:BNEsp:.stp:LDA#72:STAmb:.sp
l/LDX#mtype �256:LDY#mtype �256:JSR print:RTS
v 
�K.mtype EQUB31:EQUB31:EQUB(height+top+2):EQUS"Type : ":.mb EQUB0:EQUB255
� 
�,.c_off EQUB 23:EQUB 1:EQUD0:EQUD0:EQUB13
�8.c_on EQUB 23:EQUB 1:EQUB 1:EQUD0:EQUW0:EQUB0:EQUB13
� 
�
.z_rstore
�LLDX#0:.zlp2 LDA c_on,X:CMP#13:BEQ z2_done:JSR&FFEE:INX:JMP zlp2:.z2_done
�#LDA z1:STA &70:LDA z1+1:STA &71
�RTS
� 
�	.side
�ILDA &71:JSR hex_it:LDA &70:JSR hex_it:LDA #32:JSR &FFEE:JSR &FFEE:RTS
� 
	.curs
7LDA#31:JSR&FFEE:LDA#0:JSR &FFEE:LDA#top:JSR &FFEE  
RTS
  
*	.sub1
4?LDA#31:JSR&FFEE:LDA#0:JSR&FFEE:LDA #height+top+2:JSR &FFEE 
>'LDX#txt �256:LDY#txt �256:JSR print
H LDA pos+1:JSR hex_it:LDA pos
RJSR hex_it
\.xy
fMLDX xc:LDY yc:LDA #31:JSR &FFEE:LDA dx,X:JSR &FFEE:LDA dy,Y:JSR &FFEE:RTS
p 
z.nblise
�LDX#3:.nblp LDA b4,X
�CMP#65:BCC number
�SBC#55:STA w4,X:JMP n  
�.number SBC#47:STA w4,X   
�.n DEX:BPL nblp 
�"LDA w4:ASL A:ASL A:ASL A:ASL A
�!�A w4+1:STA pos+1:STA addr+1 
�%LDA w4+2:ASL A:ASL A:ASL A:ASL A 
��A w4+3:STA pos:STA addr 
�LDA#0:STAxc:STAyc
�RTS
� 
�.address
	LDA#21:LDX#0:JSR&FFF4
	!LDX#mess2 �256:LDY#mess2 �256
	JSRprint:LDX#0
	$.addr_lp
	.DEX:STXxt:INX  
	8+JSR&FFE0:CMP#27:BEQ ignore_addr:CMP#13 
	B&BEQrearrange:JSRchk_hex:BCSaddr_lp
	LSTAd4,X:JSR&FFEE:INX:CPX#4
	VBNEaddr_lp:INCxt
	`.rearrange 
	j	LDXxt
	t-LDA#48:LDY#3:.cl_lp STAb4,Y:DEY:BPL cl_lp
	~$LDY#3:.rearr_lp LDA d4,X:STAb4,Y
	�DEY:DEX:BPLrearr_lp
	�JSRnblise:JSRhex_screen
	�.ignore_addr
	�>LDA#31:JSR&FFEE:LDA#0:JSR&FFEE:LDA#(height+top+4):JSR&FFEE
	�=LDX#20:LDA#32:.sp_lp JSR&FFEE:DEX:BPLsp_lp:RTS:.xt EQUB0 
	� 
	�.b4 EQUS "4F13":EQUB13
	�.w4 EQUS "****"
	�.d4 EQUS "****":EQUB13
	� 
	�.x EQUB 6:.y EQUB top
	� 
.xc EQUB 0:.yc EQUB 0

 
 .htemp EQUB 0:.htemp2 EQUB 0
.z1 EQUW 0
(.addr EQUW A%
2.pos EQUW A%
<D.mess EQUB12:EQUB31:EQUB8:EQUB1:EQUS"*** Memory Editor ***"+�255
FI.mess2 EQUB31:EQUB0:EQUB(top+height+4):EQUS"Enter address : ":EQUB255
P.txt EQUS "Address : "+�255
Z.dx OPT �xx 
d.dy OPT �yy  
n.x1 OPT �xe
x 
�]:�
��
� 
�ݤxx
�&�J%=0 � 7:[OPTI:EQUB 6+J%*3:]:�:=I
� 
�ݤyy
�,�J%=0 � height:[OPTI:EQUB top+J%:]:�:=I 
� 
�ݤxe
�&�J%=0 � 7:[OPTI:EQUB 31+J%:]:�:=I 
�

00000000  0d 00 0a 0b f4 20 4d 45  44 49 54 0d 00 14 17 f4  |..... MEDIT.....|
00000010  20 28 43 29 20 45 4c 45  43 54 52 4f 4e 20 55 53  | (C) ELECTRON US|
00000020  45 52 0d 00 1e 16 f4 20  42 79 20 4d 61 72 6b 20  |ER..... By Mark |
00000030  44 61 76 69 64 73 6f 6e  0d 00 28 06 eb 36 0d 00  |Davidson..(..6..|
00000040  32 2b f1 27 27 27 22 20  44 69 73 70 6c 61 79 20  |2+.'''" Display |
00000050  73 69 7a 65 20 3f 20 4c  28 61 72 67 65 29 2f 53  |size ? L(arge)/S|
00000060  28 6d 61 6c 6c 29 20 22  3b 0d 00 3c 1b f5 3a 41  |(mall) ";..<..:A|
00000070  24 3d be 3a fd 41 24 3d  22 4c 22 20 84 20 41 24  |$=.:.A$="L" . A$|
00000080  3d 22 53 22 0d 00 46 08  f1 3b 41 24 0d 00 50 2f  |="S"..F..;A$..P/|
00000090  e7 41 24 3d 22 4c 22 20  74 6f 70 3d 34 3a 68 65  |.A$="L" top=4:he|
000000a0  69 67 68 74 3d 31 35 20  8b 20 74 6f 70 3d 36 3a  |ight=15 . top=6:|
000000b0  68 65 69 67 68 74 3d 37  20 20 20 0d 00 5a 1a f1  |height=7   ..Z..|
000000c0  27 27 27 22 20 41 73 73  65 6d 62 6c 69 6e 67 20  |'''" Assembling |
000000d0  2e 2e 2e 22 20 0d 00 64  15 2a 4b 2e 30 20 43 41  |..." ..d.*K.0 CA|
000000e0  4c 4c 20 26 35 41 30 30  7c 4d 0d 00 6e 08 f2 61  |LL &5A00|M..n..a|
000000f0  73 73 0d 00 78 1a f1 27  27 22 20 53 61 76 69 6e  |ss..x..''" Savin|
00000100  67 20 6e 6f 77 20 2e 2e  2e 22 27 27 0d 00 82 19  |g now ..."''....|
00000110  2a 53 41 56 45 20 4d 45  44 49 54 20 35 41 30 30  |*SAVE MEDIT 5A00|
00000120  20 2b 34 42 30 0d 00 8c  13 f1 27 27 22 20 46 69  | +4B0.....''" Fi|
00000130  6e 69 73 68 65 64 2e 22  0d 00 96 05 e0 0d 00 a0  |nished."........|
00000140  05 20 0d 00 aa 09 dd f2  61 73 73 0d 00 b4 10 e3  |. ......ass.....|
00000150  49 3d 30 20 b8 20 32 20  88 20 32 0d 00 be 12 50  |I=0 . 2 . 2....P|
00000160  25 3d 26 35 41 30 30 3a  5b 4f 50 54 49 0d 00 c8  |%=&5A00:[OPTI...|
00000170  05 20 0d 00 d2 23 4c 44  41 23 32 32 3a 4a 53 52  |. ...#LDA#22:JSR|
00000180  26 46 46 45 45 3a 4c 44  41 23 36 3a 4a 53 52 26  |&FFEE:LDA#6:JSR&|
00000190  46 46 45 45 20 0d 00 dc  32 4c 44 58 20 23 28 6d  |FFEE ...2LDX #(m|
000001a0  65 73 73 20 83 20 32 35  36 29 3a 4c 44 59 20 23  |ess . 256):LDY #|
000001b0  28 6d 65 73 73 20 81 20  32 35 36 29 3a 4a 53 52  |(mess . 256):JSR|
000001c0  20 70 72 69 6e 74 20 0d  00 e6 18 4c 44 41 23 34  | print ....LDA#4|
000001d0  3a 4c 44 58 23 31 3a 4a  53 52 26 46 46 46 34 0d  |:LDX#1:JSR&FFF4.|
000001e0  00 f0 11 4c 44 41 23 26  35 41 3a 53 54 41 20 37  |...LDA#&5A:STA 7|
000001f0  0d 00 fa 0d 4a 53 52 6e  62 6c 69 73 65 0d 01 04  |....JSRnblise...|
00000200  12 4a 53 52 20 68 65 78  5f 73 63 72 65 65 6e 0d  |.JSR hex_screen.|
00000210  01 0e 10 4a 53 52 73 68  6f 77 5f 74 79 70 65 0d  |...JSRshow_type.|
00000220  01 18 09 4a 53 52 78 79  0d 01 22 0a 2e 61 67 61  |...JSRxy.."..aga|
00000230  69 6e 0d 01 2c 19 4c 44  41 23 32 31 3a 4c 44 58  |in..,.LDA#21:LDX|
00000240  23 30 3a 4a 53 52 26 46  46 46 34 0d 01 36 0d 4a  |#0:JSR&FFF4..6.J|
00000250  53 52 20 26 46 46 45 30  0d 01 40 1f 42 43 43 20  |SR &FFE0..@.BCC |
00000260  6f 6b 3a 4c 44 41 23 34  3a 4c 44 58 23 30 3a 4a  |ok:LDA#4:LDX#0:J|
00000270  53 52 26 46 46 46 34 0d  01 4a 13 4c 44 41 23 31  |SR&FFF4..J.LDA#1|
00000280  32 3a 4a 53 52 26 46 46  45 45 0d 01 54 0b 52 54  |2:JSR&FFEE..T.RT|
00000290  53 3a 2e 6f 6b 0d 01 5e  4b 43 4d 50 23 31 33 35  |S:.ok..^KCMP#135|
000002a0  3a 42 4e 45 6e 5f 73 77  3a 4c 44 41 74 79 70 65  |:BNEn_sw:LDAtype|
000002b0  3a 82 23 26 46 46 3a 53  54 41 74 79 70 65 3a 4a  |:.#&FF:STAtype:J|
000002c0  53 52 73 68 6f 77 5f 74  79 70 65 3a 4a 53 52 78  |SRshow_type:JSRx|
000002d0  79 3a 4a 4d 50 61 67 61  69 6e 3a 2e 6e 5f 73 77  |y:JMPagain:.n_sw|
000002e0  0d 01 68 17 43 4d 50 23  31 32 37 3a 42 4e 45 73  |..h.CMP#127:BNEs|
000002f0  6b 69 70 20 20 20 20 0d  01 72 23 4a 53 52 61 64  |kip    ..r#JSRad|
00000300  64 72 65 73 73 3a 4a 53  52 78 79 3a 4a 4d 50 61  |dress:JSRxy:JMPa|
00000310  67 61 69 6e 3a 2e 73 6b  69 70 0d 01 7c 0d 4a 53  |gain:.skip..|.JS|
00000320  52 69 6e 70 75 74 20 0d  01 86 16 2e 61 70 32 20  |Rinput .....ap2 |
00000330  4a 53 52 20 65 64 69 74  5f 6b 65 79 73 0d 01 90  |JSR edit_keys...|
00000340  0d 4a 4d 50 20 61 67 61  69 6e 0d 01 9a 05 20 0d  |.JMP again.... .|
00000350  01 a4 0a 2e 70 72 69 6e  74 0d 01 ae 19 53 54 58  |....print....STX|
00000360  20 50 2b 31 3a 53 54 59  20 50 2b 32 3a 4c 44 58  | P+1:STY P+2:LDX|
00000370  23 30 0d 01 b8 3c 2e 50  20 4c 44 41 20 26 46 46  |#0...<.P LDA &FF|
00000380  46 2c 58 3a 43 4d 50 23  32 35 35 3a 42 45 51 20  |F,X:CMP#255:BEQ |
00000390  45 50 3a 4a 53 52 26 46  46 45 45 3a 49 4e 58 3a  |EP:JSR&FFEE:INX:|
000003a0  4a 4d 50 20 50 3a 2e 45  50 20 52 54 53 20 0d 01  |JMP P:.EP RTS ..|
000003b0  c2 05 20 0d 01 cc 0e 2e  65 64 69 74 5f 6b 65 79  |.. .....edit_key|
000003c0  73 0d 01 d6 16 43 4d 50  23 31 33 35 3a 42 43 53  |s....CMP#135:BCS|
000003d0  20 65 64 6b 65 79 73 0d  01 e0 0b 2e 65 5f 65 78  | edkeys.....e_ex|
000003e0  69 74 0d 01 ea 07 52 54  53 0d 01 f4 0c 2e 65 64  |it....RTS.....ed|
000003f0  6b 65 79 73 20 0d 01 fe  14 43 4d 50 20 23 31 33  |keys ....CMP #13|
00000400  39 3a 42 4e 45 20 65 6e  31 0d 02 08 06 2e 6c 0d  |9:BNE en1.....l.|
00000410  02 12 1c 4c 44 41 20 79  63 3a 43 4d 50 20 23 30  |...LDA yc:CMP #0|
00000420  3a 42 4e 45 20 6e 5f 73  63 72 31 0d 02 1c 12 4a  |:BNE n_scr1....J|
00000430  53 52 75 70 5f 6c 69 6e  65 3a 52 54 53 0d 02 26  |SRup_line:RTS..&|
00000440  24 2e 6e 5f 73 63 72 31  20 4a 53 52 20 64 31 70  |$.n_scr1 JSR d1p|
00000450  6f 73 3a 44 45 43 20 79  63 3a 4a 4d 50 73 75 62  |os:DEC yc:JMPsub|
00000460  31 0d 02 30 05 20 0d 02  3a 19 2e 65 6e 31 20 43  |1..0. ..:..en1 C|
00000470  4d 50 20 23 31 33 38 3a  42 4e 45 20 65 6e 32 0d  |MP #138:BNE en2.|
00000480  02 44 06 2e 72 0d 02 4e  22 4c 44 41 20 79 63 3a  |.D..r..N"LDA yc:|
00000490  43 4d 50 20 23 68 65 69  67 68 74 3a 42 4e 45 20  |CMP #height:BNE |
000004a0  6e 5f 73 63 72 32 20 0d  02 58 14 4a 53 52 64 6f  |n_scr2 ..X.JSRdo|
000004b0  77 6e 5f 6c 69 6e 65 3a  52 54 53 0d 02 62 23 2e  |wn_line:RTS..b#.|
000004c0  6e 5f 73 63 72 32 20 4a  53 52 20 64 32 70 6f 73  |n_scr2 JSR d2pos|
000004d0  3a 49 4e 43 79 63 3a 4a  4d 50 73 75 62 31 0d 02  |:INCyc:JMPsub1..|
000004e0  6c 05 20 0d 02 76 19 2e  65 6e 32 20 43 4d 50 23  |l. ..v..en2 CMP#|
000004f0  31 33 36 3a 42 4e 45 20  65 6e 33 20 0d 02 80 26  |136:BNE en3 ...&|
00000500  4c 44 41 70 6f 73 3a 42  4e 45 6f 6b 33 3a 44 45  |LDApos:BNEok3:DE|
00000510  43 70 6f 73 2b 31 3a 2e  6f 6b 33 20 44 45 43 70  |Cpos+1:.ok3 DECp|
00000520  6f 73 0d 02 8a 18 4c 44  41 20 78 63 3a 43 4d 50  |os....LDA xc:CMP|
00000530  20 23 30 3a 42 45 51 20  75 70 0d 02 94 16 44 45  | #0:BEQ up....DE|
00000540  43 20 78 63 3a 4a 4d 50  73 75 62 31 3a 2e 75 70  |C xc:JMPsub1:.up|
00000550  0d 02 9e 16 4a 53 52 65  6e 64 5f 6c 69 6e 65 3a  |....JSRend_line:|
00000560  4a 4d 50 6c 20 20 0d 02  a8 05 20 0d 02 b2 22 2e  |JMPl  .... ...".|
00000570  65 6e 33 20 43 4d 50 20  23 31 33 37 3a 42 45 51  |en3 CMP #137:BEQ|
00000580  20 67 6f 33 3a 52 54 53  3a 2e 67 6f 33 0d 02 bc  | go3:RTS:.go3...|
00000590  21 49 4e 43 70 6f 73 3a  42 4e 45 20 6f 6b 34 3a  |!INCpos:BNE ok4:|
000005a0  49 4e 43 20 70 6f 73 2b  31 3a 2e 6f 6b 34 0d 02  |INC pos+1:.ok4..|
000005b0  c6 25 4c 44 41 78 63 3a  43 4d 50 20 23 37 3a 42  |.%LDAxc:CMP #7:B|
000005c0  45 51 67 6f 32 3a 49 4e  43 78 63 3a 4a 4d 50 73  |EQgo2:INCxc:JMPs|
000005d0  75 62 31 0d 02 d0 1a 2e  67 6f 32 20 4a 53 52 73  |ub1.....go2 JSRs|
000005e0  74 72 74 5f 6c 69 6e 65  3a 4a 4d 50 72 0d 02 da  |trt_line:JMPr...|
000005f0  05 20 0d 02 e4 0a 2e 64  31 70 6f 73 0d 02 ee 3a  |. .....d1pos...:|
00000600  4c 44 41 20 70 6f 73 3a  53 45 43 3a 53 42 43 23  |LDA pos:SEC:SBC#|
00000610  38 3a 53 54 41 20 70 6f  73 3a 42 43 53 20 64 31  |8:STA pos:BCS d1|
00000620  32 3a 44 45 43 20 70 6f  73 2b 31 3a 2e 64 31 32  |2:DEC pos+1:.d12|
00000630  20 52 54 53 20 20 0d 02  f8 05 20 0d 03 02 0a 2e  | RTS  .... .....|
00000640  64 32 70 6f 73 0d 03 0c  3b 4c 44 41 20 70 6f 73  |d2pos...;LDA pos|
00000650  3a 43 4c 43 3a 41 44 43  23 38 3a 53 54 41 20 70  |:CLC:ADC#8:STA p|
00000660  6f 73 3a 42 43 43 20 64  32 32 3a 49 4e 43 20 70  |os:BCC d22:INC p|
00000670  6f 73 2b 31 3a 2e 64 32  32 20 52 54 53 20 20 20  |os+1:.d22 RTS   |
00000680  0d 03 16 05 20 0d 03 20  64 2e 75 70 5f 6c 69 6e  |.... .. d.up_lin|
00000690  65 20 4c 44 41 20 61 64  64 72 3a 53 45 43 3a 53  |e LDA addr:SEC:S|
000006a0  42 43 23 38 3a 53 54 41  61 64 64 72 3a 42 43 53  |BC#8:STAaddr:BCS|
000006b0  20 75 5f 70 3a 44 45 43  61 64 64 72 2b 31 3a 2e  | u_p:DECaddr+1:.|
000006c0  75 5f 70 20 4a 53 52 20  64 31 70 6f 73 3a 4a 53  |u_p JSR d1pos:JS|
000006d0  52 20 68 65 78 5f 73 63  72 65 65 6e 3a 4a 53 52  |R hex_screen:JSR|
000006e0  20 73 75 62 31 3a 52 54  53 0d 03 2a 05 20 0d 03  | sub1:RTS..*. ..|
000006f0  34 64 2e 64 6f 77 6e 5f  6c 69 6e 65 20 4c 44 41  |4d.down_line LDA|
00000700  61 64 64 72 3a 43 4c 43  3a 41 44 43 23 38 3a 53  |addr:CLC:ADC#8:S|
00000710  54 41 61 64 64 72 3a 42  43 43 20 64 5f 70 3a 49  |TAaddr:BCC d_p:I|
00000720  4e 43 61 64 64 72 2b 31  3a 2e 64 5f 70 20 4a 53  |NCaddr+1:.d_p JS|
00000730  52 20 64 32 70 6f 73 3a  4a 53 52 20 68 65 78 5f  |R d2pos:JSR hex_|
00000740  73 63 72 65 65 6e 3a 4a  53 52 73 75 62 31 3a 52  |screen:JSRsub1:R|
00000750  54 53 0d 03 3e 05 20 0d  03 48 56 2e 73 74 72 74  |TS..>. ..HV.strt|
00000760  5f 6c 69 6e 65 20 4c 44  41 70 6f 73 3a 53 45 43  |_line LDApos:SEC|
00000770  3a 53 42 43 23 38 3a 53  54 41 20 70 6f 73 3a 42  |:SBC#8:STA pos:B|
00000780  43 53 20 73 74 72 74 5f  70 3a 44 45 43 70 6f 73  |CS strt_p:DECpos|
00000790  2b 31 3a 2e 73 74 72 74  5f 70 20 4c 44 41 23 20  |+1:.strt_p LDA# |
000007a0  30 3a 53 54 41 78 63 3a  52 54 53 20 20 0d 03 52  |0:STAxc:RTS  ..R|
000007b0  05 20 0d 03 5c 56 2e 65  6e 64 5f 6c 69 6e 65 20  |. ..\V.end_line |
000007c0  4c 44 41 70 6f 73 3a 43  4c 43 3a 41 44 43 23 38  |LDApos:CLC:ADC#8|
000007d0  3a 53 54 41 70 6f 73 3a  42 43 43 65 5f 70 3a 49  |:STApos:BCCe_p:I|
000007e0  4e 43 70 6f 73 2b 31 3a  2e 65 5f 70 20 4c 44 41  |NCpos+1:.e_p LDA|
000007f0  23 37 3a 53 54 41 78 63  3a 52 54 53 3a 2e 65 74  |#7:STAxc:RTS:.et|
00000800  20 45 51 55 42 30 20 20  0d 03 66 05 20 0d 03 70  | EQUB0  ..f. ..p|
00000810  11 2e 68 65 78 5f 73 63  72 65 65 6e 20 20 0d 03  |..hex_screen  ..|
00000820  7a 07 53 45 49 0d 03 84  0f 4a 53 52 20 7a 5f 73  |z.SEI....JSR z_s|
00000830  74 6f 72 65 0d 03 8e 0c  4a 53 52 20 63 75 72 73  |tore....JSR curs|
00000840  0d 03 98 0f 4c 44 58 20  23 68 65 69 67 68 74 0d  |....LDX #height.|
00000850  03 a2 13 2e 68 5f 6f 75  74 65 72 20 4c 44 59 20  |....h_outer LDY |
00000860  23 30 0d 03 ac 0c 4a 53  52 20 73 69 64 65 0d 03  |#0....JSR side..|
00000870  b6 23 2e 68 5f 69 6e 6e  65 72 20 4c 44 41 20 28  |.#.h_inner LDA (|
00000880  26 37 30 29 2c 59 3a 4a  53 52 20 68 65 78 5f 69  |&70),Y:JSR hex_i|
00000890  74 0d 03 c0 13 4c 44 41  23 33 32 3a 4a 53 52 26  |t....LDA#32:JSR&|
000008a0  46 46 45 45 0d 03 ca 1a  49 4e 59 3a 43 50 59 20  |FFEE....INY:CPY |
000008b0  23 38 3a 42 4e 45 20 68  5f 69 6e 6e 65 72 0d 03  |#8:BNE h_inner..|
000008c0  d4 15 2e 61 5f 6f 75 74  65 72 20 4c 44 59 20 23  |...a_outer LDY #|
000008d0  30 20 20 0d 03 de 14 4c  44 41 23 33 32 3a 4a 53  |0  ....LDA#32:JS|
000008e0  52 20 26 46 46 45 45 0d  03 e8 19 2e 61 5f 69 6e  |R &FFEE.....a_in|
000008f0  6e 65 72 20 4c 44 41 20  28 26 37 30 29 2c 59 20  |ner LDA (&70),Y |
00000900  0d 03 f2 18 43 4d 50 20  23 33 32 3a 42 43 43 20  |....CMP #32:BCC |
00000910  61 5f 6e 6f 74 5f 6f 6b  0d 03 fc 19 43 4d 50 20  |a_not_ok....CMP |
00000920  23 31 32 38 3a 42 43 53  20 61 5f 6e 6f 74 5f 6f  |#128:BCS a_not_o|
00000930  6b 0d 04 06 1a 4a 53 52  20 26 46 46 45 45 3a 42  |k....JSR &FFEE:B|
00000940  4e 45 20 61 5f 73 70 61  63 65 73 0d 04 10 0d 2e  |NE a_spaces.....|
00000950  61 5f 6e 6f 74 5f 6f 6b  0d 04 1a 15 4c 44 41 20  |a_not_ok....LDA |
00000960  23 34 36 3a 4a 53 52 20  26 46 46 45 45 0d 04 24  |#46:JSR &FFEE..$|
00000970  0d 2e 61 5f 73 70 61 63  65 73 0d 04 2e 1b 49 4e  |..a_spaces....IN|
00000980  59 3a 43 50 59 20 23 38  3a 42 4e 45 20 61 5f 69  |Y:CPY #8:BNE a_i|
00000990  6e 6e 65 72 20 0d 04 38  0d 4a 53 52 20 26 46 46  |nner ..8.JSR &FF|
000009a0  45 37 0d 04 42 16 4c 44  41 20 26 37 30 3a 43 4c  |E7..B.LDA &70:CL|
000009b0  43 3a 41 44 43 20 23 38  0d 04 4c 16 53 54 41 20  |C:ADC #8..L.STA |
000009c0  26 37 30 3a 42 43 43 20  68 5f 70 61 73 73 0d 04  |&70:BCC h_pass..|
000009d0  56 0b 49 4e 43 20 26 37  31 0d 04 60 0b 2e 68 5f  |V.INC &71..`..h_|
000009e0  70 61 73 73 0d 04 6a 14  44 45 58 3a 42 50 4c 20  |pass..j.DEX:BPL |
000009f0  68 5f 6f 75 74 65 72 20  0d 04 74 10 4a 53 52 20  |h_outer ..t.JSR |
00000a00  7a 5f 72 73 74 6f 72 65  0d 04 7e 0b 4a 53 52 73  |z_rstore..~.JSRs|
00000a10  75 62 31 0d 04 88 07 43  4c 49 0d 04 92 07 52 54  |ub1....CLI....RT|
00000a20  53 0d 04 9c 05 20 0d 04  a6 0c 2e 64 69 73 70 6c  |S.... .....displ|
00000a30  61 79 0d 04 b0 24 4c 44  59 23 30 3a 4c 44 41 28  |ay...$LDY#0:LDA(|
00000a40  26 37 30 29 2c 59 3a 50  48 41 3a 4c 44 58 78 63  |&70),Y:PHA:LDXxc|
00000a50  3a 4c 44 59 79 63 0d 04  ba 48 4c 44 41 23 33 31  |:LDYyc...HLDA#31|
00000a60  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 64 78 2c  |:JSR&FFEE:LDAdx,|
00000a70  58 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 64 79  |X:JSR&FFEE:LDAdy|
00000a80  2c 59 3a 4a 53 52 26 46  46 45 45 3a 50 4c 41 3a  |,Y:JSR&FFEE:PLA:|
00000a90  50 48 41 3a 4a 53 52 20  68 65 78 5f 69 74 0d 04  |PHA:JSR hex_it..|
00000aa0  c4 54 4c 44 41 23 33 31  3a 4a 53 52 26 46 46 45  |.TLDA#31:JSR&FFE|
00000ab0  45 3a 4c 44 41 78 31 2c  58 3a 4a 53 52 26 46 46  |E:LDAx1,X:JSR&FF|
00000ac0  45 45 3a 4c 44 41 64 79  2c 59 3a 4a 53 52 26 46  |EE:LDAdy,Y:JSR&F|
00000ad0  46 45 45 3a 50 4c 41 3a  4a 53 52 6c 69 6d 31 3a  |FEE:PLA:JSRlim1:|
00000ae0  43 50 59 23 30 3a 42 45  51 64 69 73 5f 6f 6b 20  |CPY#0:BEQdis_ok |
00000af0  20 20 0d 04 ce 25 4c 44  41 23 34 36 3a 2e 64 69  |  ...%LDA#46:.di|
00000b00  73 5f 6f 6b 20 4a 53 52  26 46 46 45 45 3a 4a 53  |s_ok JSR&FFEE:JS|
00000b10  52 78 79 3a 52 54 53 0d  04 d8 0d 2e 64 74 20 45  |Rxy:RTS.....dt E|
00000b20  51 55 42 30 0d 04 e2 05  20 0d 04 ec 0a 2e 65 6e  |QUB0.... .....en|
00000b30  74 65 72 0d 04 f6 24 4a  53 52 6e 62 6c 65 72 3a  |ter...$JSRnbler:|
00000b40  53 54 41 65 6e 74 3a 4c  44 59 23 30 3a 4c 44 41  |STAent:LDY#0:LDA|
00000b50  28 26 37 30 29 2c 59 0d  05 00 1b 41 53 4c 20 41  |(&70),Y....ASL A|
00000b60  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00000b70  20 41 0d 05 0a 23 84 41  65 6e 74 3a 53 54 41 28  | A...#.Aent:STA(|
00000b80  26 37 30 29 2c 59 3a 4a  53 52 64 69 73 70 6c 61  |&70),Y:JSRdispla|
00000b90  79 3a 52 54 53 0d 05 14  0f 2e 65 6e 74 20 45 51  |y:RTS.....ent EQ|
00000ba0  55 42 20 30 0d 05 1e 05  20 0d 05 28 0c 2e 63 68  |UB 0.... ..(..ch|
00000bb0  6b 5f 68 65 78 0d 05 32  1f 43 4d 50 23 34 38 3a  |k_hex..2.CMP#48:|
00000bc0  42 43 43 68 6e 6f 3a 43  4d 50 23 37 31 3a 42 43  |BCChno:CMP#71:BC|
00000bd0  53 68 6e 6f 0d 05 3c 25  43 4d 50 23 35 38 3a 42  |Shno..<%CMP#58:B|
00000be0  43 43 63 68 6b 5f 6f 6b  3a 43 4d 50 23 36 35 3a  |CCchk_ok:CMP#65:|
00000bf0  42 43 53 63 68 6b 5f 6f  6b 0d 05 46 20 2e 68 6e  |BCSchk_ok..F .hn|
00000c00  6f 20 53 45 43 3a 52 54  53 3a 2e 63 68 6b 5f 6f  |o SEC:RTS:.chk_o|
00000c10  6b 20 43 4c 43 3a 52 54  53 0d 05 50 05 20 0d 05  |k CLC:RTS..P. ..|
00000c20  5a 0a 2e 6e 62 6c 65 72  0d 05 64 23 43 4d 50 23  |Z..nbler..d#CMP#|
00000c30  36 35 3a 42 43 53 6e 62  6c 74 65 72 3a 53 45 43  |65:BCSnblter:SEC|
00000c40  3a 53 42 43 23 34 38 3a  52 54 53 0d 05 6e 1a 2e  |:SBC#48:RTS..n..|
00000c50  6e 62 6c 74 65 72 20 53  45 43 3a 53 42 43 23 35  |nblter SEC:SBC#5|
00000c60  35 3a 52 54 53 0d 05 78  05 20 0d 05 82 0b 2e 68  |5:RTS..x. .....h|
00000c70  65 78 5f 69 74 0d 05 8c  0d 53 54 41 20 68 74 65  |ex_it....STA hte|
00000c80  6d 70 0d 05 96 1c 80 20  23 26 46 30 3a 4c 53 52  |mp..... #&F0:LSR|
00000c90  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 0d 05  | A:LSR A:LSR A..|
00000ca0  a0 14 4c 53 52 20 41 3a  53 54 41 20 68 74 65 6d  |..LSR A:STA htem|
00000cb0  70 32 0d 05 aa 11 4a 53  52 20 64 69 67 69 74 20  |p2....JSR digit |
00000cc0  20 20 20 0d 05 b4 0d 4c  44 41 20 68 74 65 6d 70  |   ....LDA htemp|
00000cd0  0d 05 be 15 80 23 26 46  3a 53 54 41 20 68 74 65  |.....#&F:STA hte|
00000ce0  6d 70 32 20 20 0d 05 c8  0a 2e 64 69 67 69 74 0d  |mp2  .....digit.|
00000cf0  05 d2 1d 43 4d 50 20 23  31 30 3a 42 43 53 20 73  |...CMP #10:BCS s|
00000d00  65 6c 65 63 74 5f 6c 65  74 74 65 72 0d 05 dc 15  |elect_letter....|
00000d10  4c 44 41 23 34 38 3a 42  4e 45 20 68 70 72 69 6e  |LDA#48:BNE hprin|
00000d20  74 0d 05 e6 12 2e 73 65  6c 65 63 74 5f 6c 65 74  |t.....select_let|
00000d30  74 65 72 0d 05 f0 0b 4c  44 41 20 23 35 35 0d 05  |ter....LDA #55..|
00000d40  fa 0b 2e 68 70 72 69 6e  74 0d 06 04 21 43 4c 43  |...hprint...!CLC|
00000d50  3a 41 44 43 20 68 74 65  6d 70 32 3a 4a 53 52 20  |:ADC htemp2:JSR |
00000d60  26 46 46 45 45 3a 52 54  53 20 0d 06 0e 05 20 0d  |&FFEE:RTS .... .|
00000d70  06 18 0a 2e 69 6e 70 75  74 0d 06 22 19 4c 44 58  |....input..".LDX|
00000d80  20 74 79 70 65 3a 42 4d  49 20 74 79 70 65 5f 68  | type:BMI type_h|
00000d90  65 78 0d 06 2c 0f 2e 74  79 70 65 5f 61 73 63 69  |ex..,..type_asci|
00000da0  69 0d 06 36 22 43 4d 50  23 31 32 37 3a 42 43 43  |i..6"CMP#127:BCC|
00000db0  69 6e 70 5f 6f 6b 3a 52  54 53 3a 2e 69 6e 70 5f  |inp_ok:RTS:.inp_|
00000dc0  6f 6b 20 0d 06 40 07 50  48 41 0d 06 4a 49 4c 44  |ok ..@.PHA..JILD|
00000dd0  41 70 6f 73 3a 53 54 41  26 37 30 3a 4c 44 41 70  |Apos:STA&70:LDAp|
00000de0  6f 73 2b 31 3a 53 54 41  26 37 31 3a 4c 44 59 23  |os+1:STA&71:LDY#|
00000df0  30 3a 50 4c 41 3a 53 54  41 28 26 37 30 29 2c 59  |0:PLA:STA(&70),Y|
00000e00  3a 4a 53 52 64 69 73 70  6c 61 79 3a 4a 53 52 73  |:JSRdisplay:JSRs|
00000e10  75 62 31 0d 06 54 0a 4a  53 52 67 6f 33 0d 06 5e  |ub1..T.JSRgo3..^|
00000e20  07 52 54 53 0d 06 68 05  20 0d 06 72 10 2e 74 79  |.RTS..h. ..r..ty|
00000e30  70 65 5f 68 65 78 20 20  20 0d 06 7c 1a 4a 53 52  |pe_hex   ..|.JSR|
00000e40  63 68 6b 5f 68 65 78 3a  42 43 43 74 5f 6f 6b 3a  |chk_hex:BCCt_ok:|
00000e50  52 54 53 0d 06 86 09 2e  74 5f 6f 6b 0d 06 90 07  |RTS.....t_ok....|
00000e60  50 48 41 0d 06 9a 21 4c  44 41 70 6f 73 3a 53 54  |PHA...!LDApos:ST|
00000e70  41 26 37 30 3a 4c 44 41  70 6f 73 2b 31 3a 53 54  |A&70:LDApos+1:ST|
00000e80  41 26 37 31 0d 06 a4 07  50 4c 41 0d 06 ae 0c 4a  |A&71....PLA....J|
00000e90  53 52 65 6e 74 65 72 0d  06 b8 07 52 54 53 0d 06  |SRenter....RTS..|
00000ea0  c2 05 20 0d 06 cc 12 2e  6c 69 6d 31 20 4c 44 59  |.. .....lim1 LDY|
00000eb0  23 30 20 20 20 0d 06 d6  24 43 4d 50 23 33 32 3a  |#0   ...$CMP#32:|
00000ec0  42 43 53 69 6f 6b 31 3a  4c 44 59 23 26 46 46 3a  |BCSiok1:LDY#&FF:|
00000ed0  52 54 53 3a 2e 69 6f 6b  31 0d 06 e0 25 43 4d 50  |RTS:.iok1...%CMP|
00000ee0  23 31 32 37 3a 42 43 43  69 6f 6b 32 3a 4c 44 59  |#127:BCCiok2:LDY|
00000ef0  23 26 46 46 3a 52 54 53  3a 2e 69 6f 6b 32 0d 06  |#&FF:RTS:.iok2..|
00000f00  ea 07 52 54 53 0d 06 f4  05 20 0d 06 fe 0f 2e 74  |..RTS.... .....t|
00000f10  79 70 65 20 45 51 55 42  31 0d 07 08 05 20 0d 07  |ype EQUB1.... ..|
00000f20  12 0c 2e 7a 5f 73 74 6f  72 65 0d 07 1c 4d 4c 44  |...z_store...MLD|
00000f30  58 23 30 3a 2e 7a 6c 70  31 20 4c 44 41 20 63 5f  |X#0:.zlp1 LDA c_|
00000f40  6f 66 66 2c 58 3a 43 4d  50 23 31 33 3a 42 45 51  |off,X:CMP#13:BEQ|
00000f50  20 7a 31 5f 64 6f 6e 65  3a 4a 53 52 26 46 46 45  | z1_done:JSR&FFE|
00000f60  45 3a 49 4e 58 3a 4a 4d  50 20 7a 6c 70 31 3a 2e  |E:INX:JMP zlp1:.|
00000f70  7a 31 5f 64 6f 6e 65 0d  07 26 23 4c 44 41 20 26  |z1_done..&#LDA &|
00000f80  37 30 3a 53 54 41 20 7a  31 3a 4c 44 41 20 26 37  |70:STA z1:LDA &7|
00000f90  31 3a 53 54 41 20 7a 31  2b 31 0d 07 30 14 4c 44  |1:STA z1+1..0.LD|
00000fa0  41 20 61 64 64 72 3a 53  54 41 20 26 37 30 0d 07  |A addr:STA &70..|
00000fb0  3a 18 4c 44 41 20 61 64  64 72 2b 31 3a 53 54 41  |:.LDA addr+1:STA|
00000fc0  20 26 37 31 20 20 0d 07  44 07 52 54 53 0d 07 4e  | &71  ..D.RTS..N|
00000fd0  05 20 0d 07 58 0e 2e 73  68 6f 77 5f 74 79 70 65  |. ..X..show_type|
00000fe0  0d 07 62 3b 4c 44 41 74  79 70 65 3a 42 4d 49 73  |..b;LDAtype:BMIs|
00000ff0  74 70 3a 4c 44 41 23 36  35 3a 53 54 41 6d 62 3a  |tp:LDA#65:STAmb:|
00001000  42 4e 45 73 70 3a 2e 73  74 70 3a 4c 44 41 23 37  |BNEsp:.stp:LDA#7|
00001010  32 3a 53 54 41 6d 62 3a  2e 73 70 0d 07 6c 2f 4c  |2:STAmb:.sp..l/L|
00001020  44 58 23 6d 74 79 70 65  20 83 32 35 36 3a 4c 44  |DX#mtype .256:LD|
00001030  59 23 6d 74 79 70 65 20  81 32 35 36 3a 4a 53 52  |Y#mtype .256:JSR|
00001040  20 70 72 69 6e 74 3a 52  54 53 0d 07 76 05 20 0d  | print:RTS..v. .|
00001050  07 80 4b 2e 6d 74 79 70  65 20 45 51 55 42 33 31  |..K.mtype EQUB31|
00001060  3a 45 51 55 42 33 31 3a  45 51 55 42 28 68 65 69  |:EQUB31:EQUB(hei|
00001070  67 68 74 2b 74 6f 70 2b  32 29 3a 45 51 55 53 22  |ght+top+2):EQUS"|
00001080  54 79 70 65 20 3a 20 22  3a 2e 6d 62 20 45 51 55  |Type : ":.mb EQU|
00001090  42 30 3a 45 51 55 42 32  35 35 0d 07 8a 05 20 0d  |B0:EQUB255.... .|
000010a0  07 94 2c 2e 63 5f 6f 66  66 20 45 51 55 42 20 32  |..,.c_off EQUB 2|
000010b0  33 3a 45 51 55 42 20 31  3a 45 51 55 44 30 3a 45  |3:EQUB 1:EQUD0:E|
000010c0  51 55 44 30 3a 45 51 55  42 31 33 0d 07 9e 38 2e  |QUD0:EQUB13...8.|
000010d0  63 5f 6f 6e 20 45 51 55  42 20 32 33 3a 45 51 55  |c_on EQUB 23:EQU|
000010e0  42 20 31 3a 45 51 55 42  20 31 3a 45 51 55 44 30  |B 1:EQUB 1:EQUD0|
000010f0  3a 45 51 55 57 30 3a 45  51 55 42 30 3a 45 51 55  |:EQUW0:EQUB0:EQU|
00001100  42 31 33 0d 07 a8 05 20  0d 07 b2 0d 2e 7a 5f 72  |B13.... .....z_r|
00001110  73 74 6f 72 65 0d 07 bc  4c 4c 44 58 23 30 3a 2e  |store...LLDX#0:.|
00001120  7a 6c 70 32 20 4c 44 41  20 63 5f 6f 6e 2c 58 3a  |zlp2 LDA c_on,X:|
00001130  43 4d 50 23 31 33 3a 42  45 51 20 7a 32 5f 64 6f  |CMP#13:BEQ z2_do|
00001140  6e 65 3a 4a 53 52 26 46  46 45 45 3a 49 4e 58 3a  |ne:JSR&FFEE:INX:|
00001150  4a 4d 50 20 7a 6c 70 32  3a 2e 7a 32 5f 64 6f 6e  |JMP zlp2:.z2_don|
00001160  65 0d 07 c6 23 4c 44 41  20 7a 31 3a 53 54 41 20  |e...#LDA z1:STA |
00001170  26 37 30 3a 4c 44 41 20  7a 31 2b 31 3a 53 54 41  |&70:LDA z1+1:STA|
00001180  20 26 37 31 0d 07 d0 07  52 54 53 0d 07 da 05 20  | &71....RTS.... |
00001190  0d 07 e4 09 2e 73 69 64  65 0d 07 ee 49 4c 44 41  |.....side...ILDA|
000011a0  20 26 37 31 3a 4a 53 52  20 68 65 78 5f 69 74 3a  | &71:JSR hex_it:|
000011b0  4c 44 41 20 26 37 30 3a  4a 53 52 20 68 65 78 5f  |LDA &70:JSR hex_|
000011c0  69 74 3a 4c 44 41 20 23  33 32 3a 4a 53 52 20 26  |it:LDA #32:JSR &|
000011d0  46 46 45 45 3a 4a 53 52  20 26 46 46 45 45 3a 52  |FFEE:JSR &FFEE:R|
000011e0  54 53 0d 07 f8 05 20 0d  08 02 09 2e 63 75 72 73  |TS.... .....curs|
000011f0  0d 08 0c 37 4c 44 41 23  33 31 3a 4a 53 52 26 46  |...7LDA#31:JSR&F|
00001200  46 45 45 3a 4c 44 41 23  30 3a 4a 53 52 20 26 46  |FEE:LDA#0:JSR &F|
00001210  46 45 45 3a 4c 44 41 23  74 6f 70 3a 4a 53 52 20  |FEE:LDA#top:JSR |
00001220  26 46 46 45 45 20 20 0d  08 16 07 52 54 53 0d 08  |&FFEE  ....RTS..|
00001230  20 05 20 0d 08 2a 09 2e  73 75 62 31 0d 08 34 3f  | . ..*..sub1..4?|
00001240  4c 44 41 23 33 31 3a 4a  53 52 26 46 46 45 45 3a  |LDA#31:JSR&FFEE:|
00001250  4c 44 41 23 30 3a 4a 53  52 26 46 46 45 45 3a 4c  |LDA#0:JSR&FFEE:L|
00001260  44 41 20 23 68 65 69 67  68 74 2b 74 6f 70 2b 32  |DA #height+top+2|
00001270  3a 4a 53 52 20 26 46 46  45 45 20 0d 08 3e 27 4c  |:JSR &FFEE ..>'L|
00001280  44 58 23 74 78 74 20 83  32 35 36 3a 4c 44 59 23  |DX#txt .256:LDY#|
00001290  74 78 74 20 81 32 35 36  3a 4a 53 52 20 70 72 69  |txt .256:JSR pri|
000012a0  6e 74 0d 08 48 20 4c 44  41 20 70 6f 73 2b 31 3a  |nt..H LDA pos+1:|
000012b0  4a 53 52 20 68 65 78 5f  69 74 3a 4c 44 41 20 70  |JSR hex_it:LDA p|
000012c0  6f 73 0d 08 52 0e 4a 53  52 20 68 65 78 5f 69 74  |os..R.JSR hex_it|
000012d0  0d 08 5c 07 2e 78 79 0d  08 66 4d 4c 44 58 20 78  |..\..xy..fMLDX x|
000012e0  63 3a 4c 44 59 20 79 63  3a 4c 44 41 20 23 33 31  |c:LDY yc:LDA #31|
000012f0  3a 4a 53 52 20 26 46 46  45 45 3a 4c 44 41 20 64  |:JSR &FFEE:LDA d|
00001300  78 2c 58 3a 4a 53 52 20  26 46 46 45 45 3a 4c 44  |x,X:JSR &FFEE:LD|
00001310  41 20 64 79 2c 59 3a 4a  53 52 20 26 46 46 45 45  |A dy,Y:JSR &FFEE|
00001320  3a 52 54 53 0d 08 70 05  20 0d 08 7a 0b 2e 6e 62  |:RTS..p. ..z..nb|
00001330  6c 69 73 65 0d 08 84 18  4c 44 58 23 33 3a 2e 6e  |lise....LDX#3:.n|
00001340  62 6c 70 20 4c 44 41 20  62 34 2c 58 0d 08 8e 15  |blp LDA b4,X....|
00001350  43 4d 50 23 36 35 3a 42  43 43 20 6e 75 6d 62 65  |CMP#65:BCC numbe|
00001360  72 0d 08 98 1b 53 42 43  23 35 35 3a 53 54 41 20  |r....SBC#55:STA |
00001370  77 34 2c 58 3a 4a 4d 50  20 6e 20 20 0d 08 a2 1e  |w4,X:JMP n  ....|
00001380  2e 6e 75 6d 62 65 72 20  53 42 43 23 34 37 3a 53  |.number SBC#47:S|
00001390  54 41 20 77 34 2c 58 20  20 20 0d 08 ac 14 2e 6e  |TA w4,X   .....n|
000013a0  20 44 45 58 3a 42 50 4c  20 6e 62 6c 70 20 0d 08  | DEX:BPL nblp ..|
000013b0  b6 22 4c 44 41 20 77 34  3a 41 53 4c 20 41 3a 41  |."LDA w4:ASL A:A|
000013c0  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
000013d0  0d 08 c0 21 84 41 20 77  34 2b 31 3a 53 54 41 20  |...!.A w4+1:STA |
000013e0  70 6f 73 2b 31 3a 53 54  41 20 61 64 64 72 2b 31  |pos+1:STA addr+1|
000013f0  20 0d 08 ca 25 4c 44 41  20 77 34 2b 32 3a 41 53  | ...%LDA w4+2:AS|
00001400  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
00001410  41 53 4c 20 41 20 0d 08  d4 1d 84 41 20 77 34 2b  |ASL A .....A w4+|
00001420  33 3a 53 54 41 20 70 6f  73 3a 53 54 41 20 61 64  |3:STA pos:STA ad|
00001430  64 72 20 0d 08 de 15 4c  44 41 23 30 3a 53 54 41  |dr ....LDA#0:STA|
00001440  78 63 3a 53 54 41 79 63  0d 08 e8 07 52 54 53 0d  |xc:STAyc....RTS.|
00001450  08 f2 05 20 0d 08 fc 0c  2e 61 64 64 72 65 73 73  |... .....address|
00001460  0d 09 06 19 4c 44 41 23  32 31 3a 4c 44 58 23 30  |....LDA#21:LDX#0|
00001470  3a 4a 53 52 26 46 46 46  34 0d 09 10 21 4c 44 58  |:JSR&FFF4...!LDX|
00001480  23 6d 65 73 73 32 20 83  32 35 36 3a 4c 44 59 23  |#mess2 .256:LDY#|
00001490  6d 65 73 73 32 20 81 32  35 36 0d 09 1a 12 4a 53  |mess2 .256....JS|
000014a0  52 70 72 69 6e 74 3a 4c  44 58 23 30 0d 09 24 0c  |Rprint:LDX#0..$.|
000014b0  2e 61 64 64 72 5f 6c 70  0d 09 2e 13 44 45 58 3a  |.addr_lp....DEX:|
000014c0  53 54 58 78 74 3a 49 4e  58 20 20 0d 09 38 2b 4a  |STXxt:INX  ..8+J|
000014d0  53 52 26 46 46 45 30 3a  43 4d 50 23 32 37 3a 42  |SR&FFE0:CMP#27:B|
000014e0  45 51 20 69 67 6e 6f 72  65 5f 61 64 64 72 3a 43  |EQ ignore_addr:C|
000014f0  4d 50 23 31 33 20 0d 09  42 26 42 45 51 72 65 61  |MP#13 ..B&BEQrea|
00001500  72 72 61 6e 67 65 3a 4a  53 52 63 68 6b 5f 68 65  |rrange:JSRchk_he|
00001510  78 3a 42 43 53 61 64 64  72 5f 6c 70 0d 09 4c 1e  |x:BCSaddr_lp..L.|
00001520  53 54 41 64 34 2c 58 3a  4a 53 52 26 46 46 45 45  |STAd4,X:JSR&FFEE|
00001530  3a 49 4e 58 3a 43 50 58  23 34 0d 09 56 14 42 4e  |:INX:CPX#4..V.BN|
00001540  45 61 64 64 72 5f 6c 70  3a 49 4e 43 78 74 0d 09  |Eaddr_lp:INCxt..|
00001550  60 0f 2e 72 65 61 72 72  61 6e 67 65 20 0d 09 6a  |`..rearrange ..j|
00001560  09 4c 44 58 78 74 0d 09  74 2d 4c 44 41 23 34 38  |.LDXxt..t-LDA#48|
00001570  3a 4c 44 59 23 33 3a 2e  63 6c 5f 6c 70 20 53 54  |:LDY#3:.cl_lp ST|
00001580  41 62 34 2c 59 3a 44 45  59 3a 42 50 4c 20 63 6c  |Ab4,Y:DEY:BPL cl|
00001590  5f 6c 70 0d 09 7e 24 4c  44 59 23 33 3a 2e 72 65  |_lp..~$LDY#3:.re|
000015a0  61 72 72 5f 6c 70 20 4c  44 41 20 64 34 2c 58 3a  |arr_lp LDA d4,X:|
000015b0  53 54 41 62 34 2c 59 0d  09 88 17 44 45 59 3a 44  |STAb4,Y....DEY:D|
000015c0  45 58 3a 42 50 4c 72 65  61 72 72 5f 6c 70 0d 09  |EX:BPLrearr_lp..|
000015d0  92 1b 4a 53 52 6e 62 6c  69 73 65 3a 4a 53 52 68  |..JSRnblise:JSRh|
000015e0  65 78 5f 73 63 72 65 65  6e 0d 09 9c 10 2e 69 67  |ex_screen.....ig|
000015f0  6e 6f 72 65 5f 61 64 64  72 0d 09 a6 3e 4c 44 41  |nore_addr...>LDA|
00001600  23 33 31 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |#31:JSR&FFEE:LDA|
00001610  23 30 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 23  |#0:JSR&FFEE:LDA#|
00001620  28 68 65 69 67 68 74 2b  74 6f 70 2b 34 29 3a 4a  |(height+top+4):J|
00001630  53 52 26 46 46 45 45 0d  09 b0 3d 4c 44 58 23 32  |SR&FFEE...=LDX#2|
00001640  30 3a 4c 44 41 23 33 32  3a 2e 73 70 5f 6c 70 20  |0:LDA#32:.sp_lp |
00001650  4a 53 52 26 46 46 45 45  3a 44 45 58 3a 42 50 4c  |JSR&FFEE:DEX:BPL|
00001660  73 70 5f 6c 70 3a 52 54  53 3a 2e 78 74 20 45 51  |sp_lp:RTS:.xt EQ|
00001670  55 42 30 20 0d 09 ba 05  20 0d 09 c4 1a 2e 62 34  |UB0 .... .....b4|
00001680  20 45 51 55 53 20 22 34  46 31 33 22 3a 45 51 55  | EQUS "4F13":EQU|
00001690  42 31 33 0d 09 ce 13 2e  77 34 20 45 51 55 53 20  |B13.....w4 EQUS |
000016a0  22 2a 2a 2a 2a 22 0d 09  d8 1a 2e 64 34 20 45 51  |"****".....d4 EQ|
000016b0  55 53 20 22 2a 2a 2a 2a  22 3a 45 51 55 42 31 33  |US "****":EQUB13|
000016c0  0d 09 e2 05 20 0d 09 ec  19 2e 78 20 45 51 55 42  |.... .....x EQUB|
000016d0  20 36 3a 2e 79 20 45 51  55 42 20 74 6f 70 0d 09  | 6:.y EQUB top..|
000016e0  f6 05 20 0d 0a 00 19 2e  78 63 20 45 51 55 42 20  |.. .....xc EQUB |
000016f0  30 3a 2e 79 63 20 45 51  55 42 20 30 0d 0a 0a 05  |0:.yc EQUB 0....|
00001700  20 0d 0a 14 20 2e 68 74  65 6d 70 20 45 51 55 42  | ... .htemp EQUB|
00001710  20 30 3a 2e 68 74 65 6d  70 32 20 45 51 55 42 20  | 0:.htemp2 EQUB |
00001720  30 0d 0a 1e 0e 2e 7a 31  20 45 51 55 57 20 30 0d  |0.....z1 EQUW 0.|
00001730  0a 28 11 2e 61 64 64 72  20 45 51 55 57 20 41 25  |.(..addr EQUW A%|
00001740  0d 0a 32 10 2e 70 6f 73  20 45 51 55 57 20 41 25  |..2..pos EQUW A%|
00001750  0d 0a 3c 44 2e 6d 65 73  73 20 45 51 55 42 31 32  |..<D.mess EQUB12|
00001760  3a 45 51 55 42 33 31 3a  45 51 55 42 38 3a 45 51  |:EQUB31:EQUB8:EQ|
00001770  55 42 31 3a 45 51 55 53  22 2a 2a 2a 20 4d 65 6d  |UB1:EQUS"*** Mem|
00001780  6f 72 79 20 45 64 69 74  6f 72 20 2a 2a 2a 22 2b  |ory Editor ***"+|
00001790  bd 32 35 35 0d 0a 46 49  2e 6d 65 73 73 32 20 45  |.255..FI.mess2 E|
000017a0  51 55 42 33 31 3a 45 51  55 42 30 3a 45 51 55 42  |QUB31:EQUB0:EQUB|
000017b0  28 74 6f 70 2b 68 65 69  67 68 74 2b 34 29 3a 45  |(top+height+4):E|
000017c0  51 55 53 22 45 6e 74 65  72 20 61 64 64 72 65 73  |QUS"Enter addres|
000017d0  73 20 3a 20 22 3a 45 51  55 42 32 35 35 0d 0a 50  |s : ":EQUB255..P|
000017e0  1f 2e 74 78 74 20 45 51  55 53 20 22 41 64 64 72  |..txt EQUS "Addr|
000017f0  65 73 73 20 3a 20 22 2b  bd 32 35 35 0d 0a 5a 10  |ess : "+.255..Z.|
00001800  2e 64 78 20 4f 50 54 20  a4 78 78 20 0d 0a 64 11  |.dx OPT .xx ..d.|
00001810  2e 64 79 20 4f 50 54 20  a4 79 79 20 20 0d 0a 6e  |.dy OPT .yy  ..n|
00001820  0f 2e 78 31 20 4f 50 54  20 a4 78 65 0d 0a 78 05  |..x1 OPT .xe..x.|
00001830  20 0d 0a 82 07 5d 3a ed  0d 0a 8c 05 e1 0d 0a 96  | ....]:.........|
00001840  05 20 0d 0a a0 08 dd a4  78 78 0d 0a aa 26 e3 4a  |. ......xx...&.J|
00001850  25 3d 30 20 b8 20 37 3a  5b 4f 50 54 49 3a 45 51  |%=0 . 7:[OPTI:EQ|
00001860  55 42 20 36 2b 4a 25 2a  33 3a 5d 3a ed 3a 3d 49  |UB 6+J%*3:]:.:=I|
00001870  0d 0a b4 05 20 0d 0a be  08 dd a4 79 79 0d 0a c8  |.... ......yy...|
00001880  2c e3 4a 25 3d 30 20 b8  20 68 65 69 67 68 74 3a  |,.J%=0 . height:|
00001890  5b 4f 50 54 49 3a 45 51  55 42 20 74 6f 70 2b 4a  |[OPTI:EQUB top+J|
000018a0  25 3a 5d 3a ed 3a 3d 49  20 0d 0a d2 05 20 0d 0a  |%:]:.:=I .... ..|
000018b0  dc 08 dd a4 78 65 0d 0a  e6 26 e3 4a 25 3d 30 20  |....xe...&.J%=0 |
000018c0  b8 20 37 3a 5b 4f 50 54  49 3a 45 51 55 42 20 33  |. 7:[OPTI:EQUB 3|
000018d0  31 2b 4a 25 3a 5d 3a ed  3a 3d 49 20 0d ff        |1+J%:]:.:=I ..|
000018de