Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav » MEDIT

MEDIT

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 tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav
Filename: MEDIT
Read OK:
File size: 18DE bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM MEDIT
   20REM (C) ELECTRON USER
   30REM By Mark Davidson
   40MODE6
   50PRINT'''" Display size ? L(arge)/S(mall) ";
   60REPEAT:A$=GET$:UNTILA$="L" OR A$="S"
   70PRINT;A$
   80IFA$="L" top=4:height=15 ELSE top=6:height=7   
   90PRINT'''" Assembling ..." 
  100*K.0 CALL &5A00|M
  110PROCass
  120PRINT''" Saving now ..."''
  130*SAVE MEDIT 5A00 +4B0
  140PRINT''" Finished."
  150END
  160 
  170DEFPROCass
  180FORI=0 TO 2 STEP 2
  190P%=&5A00:[OPTI
  200 
  210LDA#22:JSR&FFEE:LDA#6:JSR&FFEE 
  220LDX #(mess MOD 256):LDY #(mess DIV 256):JSR print 
  230LDA#4:LDX#1:JSR&FFF4
  240LDA#&5A:STA 7
  250JSRnblise
  260JSR hex_screen
  270JSRshow_type
  280JSRxy
  290.again
  300LDA#21:LDX#0:JSR&FFF4
  310JSR &FFE0
  320BCC ok:LDA#4:LDX#0:JSR&FFF4
  330LDA#12:JSR&FFEE
  340RTS:.ok
  350CMP#135:BNEn_sw:LDAtype:EOR#&FF:STAtype:JSRshow_type:JSRxy:JMPagain:.n_sw
  360CMP#127:BNEskip    
  370JSRaddress:JSRxy:JMPagain:.skip
  380JSRinput 
  390.ap2 JSR edit_keys
  400JMP again
  410 
  420.print
  430STX P+1:STY P+2:LDX#0
  440.P LDA &FFF,X:CMP#255:BEQ EP:JSR&FFEE:INX:JMP P:.EP RTS 
  450 
  460.edit_keys
  470CMP#135:BCS edkeys
  480.e_exit
  490RTS
  500.edkeys 
  510CMP #139:BNE en1
  520.l
  530LDA yc:CMP #0:BNE n_scr1
  540JSRup_line:RTS
  550.n_scr1 JSR d1pos:DEC yc:JMPsub1
  560 
  570.en1 CMP #138:BNE en2
  580.r
  590LDA yc:CMP #height:BNE n_scr2 
  600JSRdown_line:RTS
  610.n_scr2 JSR d2pos:INCyc:JMPsub1
  620 
  630.en2 CMP#136:BNE en3 
  640LDApos:BNEok3:DECpos+1:.ok3 DECpos
  650LDA xc:CMP #0:BEQ up
  660DEC xc:JMPsub1:.up
  670JSRend_line:JMPl  
  680 
  690.en3 CMP #137:BEQ go3:RTS:.go3
  700INCpos:BNE ok4:INC pos+1:.ok4
  710LDAxc:CMP #7:BEQgo2:INCxc:JMPsub1
  720.go2 JSRstrt_line:JMPr
  730 
  740.d1pos
  750LDA pos:SEC:SBC#8:STA pos:BCS d12:DEC pos+1:.d12 RTS  
  760 
  770.d2pos
  780LDA pos:CLC:ADC#8:STA pos:BCC d22:INC pos+1:.d22 RTS   
  790 
  800.up_line LDA addr:SEC:SBC#8:STAaddr:BCS u_p:DECaddr+1:.u_p JSR d1pos:JSR hex_screen:JSR sub1:RTS
  810 
  820.down_line LDAaddr:CLC:ADC#8:STAaddr:BCC d_p:INCaddr+1:.d_p JSR d2pos:JSR hex_screen:JSRsub1:RTS
  830 
  840.strt_line LDApos:SEC:SBC#8:STA pos:BCS strt_p:DECpos+1:.strt_p LDA# 0:STAxc:RTS  
  850 
  860.end_line LDApos:CLC:ADC#8:STApos:BCCe_p:INCpos+1:.e_p LDA#7:STAxc:RTS:.et EQUB0  
  870 
  880.hex_screen  
  890SEI
  900JSR z_store
  910JSR curs
  920LDX #height
  930.h_outer LDY #0
  940JSR side
  950.h_inner LDA (&70),Y:JSR hex_it
  960LDA#32:JSR&FFEE
  970INY:CPY #8:BNE h_inner
  980.a_outer LDY #0  
  990LDA#32:JSR &FFEE
 1000.a_inner LDA (&70),Y 
 1010CMP #32:BCC a_not_ok
 1020CMP #128:BCS a_not_ok
 1030JSR &FFEE:BNE a_spaces
 1040.a_not_ok
 1050LDA #46:JSR &FFEE
 1060.a_spaces
 1070INY:CPY #8:BNE a_inner 
 1080JSR &FFE7
 1090LDA &70:CLC:ADC #8
 1100STA &70:BCC h_pass
 1110INC &71
 1120.h_pass
 1130DEX:BPL h_outer 
 1140JSR z_rstore
 1150JSRsub1
 1160CLI
 1170RTS
 1180 
 1190.display
 1200LDY#0:LDA(&70),Y:PHA:LDXxc:LDYyc
 1210LDA#31:JSR&FFEE:LDAdx,X:JSR&FFEE:LDAdy,Y:JSR&FFEE:PLA:PHA:JSR hex_it
 1220LDA#31:JSR&FFEE:LDAx1,X:JSR&FFEE:LDAdy,Y:JSR&FFEE:PLA:JSRlim1:CPY#0:BEQdis_ok   
 1230LDA#46:.dis_ok JSR&FFEE:JSRxy:RTS
 1240.dt EQUB0
 1250 
 1260.enter
 1270JSRnbler:STAent:LDY#0:LDA(&70),Y
 1280ASL A:ASL A:ASL A:ASL A
 1290ORAent:STA(&70),Y:JSRdisplay:RTS
 1300.ent EQUB 0
 1310 
 1320.chk_hex
 1330CMP#48:BCChno:CMP#71:BCShno
 1340CMP#58:BCCchk_ok:CMP#65:BCSchk_ok
 1350.hno SEC:RTS:.chk_ok CLC:RTS
 1360 
 1370.nbler
 1380CMP#65:BCSnblter:SEC:SBC#48:RTS
 1390.nblter SEC:SBC#55:RTS
 1400 
 1410.hex_it
 1420STA htemp
 1430AND #&F0:LSR A:LSR A:LSR A
 1440LSR A:STA htemp2
 1450JSR digit    
 1460LDA htemp
 1470AND#&F:STA htemp2  
 1480.digit
 1490CMP #10:BCS select_letter
 1500LDA#48:BNE hprint
 1510.select_letter
 1520LDA #55
 1530.hprint
 1540CLC:ADC htemp2:JSR &FFEE:RTS 
 1550 
 1560.input
 1570LDX type:BMI type_hex
 1580.type_ascii
 1590CMP#127:BCCinp_ok:RTS:.inp_ok 
 1600PHA
 1610LDApos:STA&70:LDApos+1:STA&71:LDY#0:PLA:STA(&70),Y:JSRdisplay:JSRsub1
 1620JSRgo3
 1630RTS
 1640 
 1650.type_hex   
 1660JSRchk_hex:BCCt_ok:RTS
 1670.t_ok
 1680PHA
 1690LDApos:STA&70:LDApos+1:STA&71
 1700PLA
 1710JSRenter
 1720RTS
 1730 
 1740.lim1 LDY#0   
 1750CMP#32:BCSiok1:LDY#&FF:RTS:.iok1
 1760CMP#127:BCCiok2:LDY#&FF:RTS:.iok2
 1770RTS
 1780 
 1790.type EQUB1
 1800 
 1810.z_store
 1820LDX#0:.zlp1 LDA c_off,X:CMP#13:BEQ z1_done:JSR&FFEE:INX:JMP zlp1:.z1_done
 1830LDA &70:STA z1:LDA &71:STA z1+1
 1840LDA addr:STA &70
 1850LDA addr+1:STA &71  
 1860RTS
 1870 
 1880.show_type
 1890LDAtype:BMIstp:LDA#65:STAmb:BNEsp:.stp:LDA#72:STAmb:.sp
 1900LDX#mtype MOD256:LDY#mtype DIV256:JSR print:RTS
 1910 
 1920.mtype EQUB31:EQUB31:EQUB(height+top+2):EQUS"Type : ":.mb EQUB0:EQUB255
 1930 
 1940.c_off EQUB 23:EQUB 1:EQUD0:EQUD0:EQUB13
 1950.c_on EQUB 23:EQUB 1:EQUB 1:EQUD0:EQUW0:EQUB0:EQUB13
 1960 
 1970.z_rstore
 1980LDX#0:.zlp2 LDA c_on,X:CMP#13:BEQ z2_done:JSR&FFEE:INX:JMP zlp2:.z2_done
 1990LDA z1:STA &70:LDA z1+1:STA &71
 2000RTS
 2010 
 2020.side
 2030LDA &71:JSR hex_it:LDA &70:JSR hex_it:LDA #32:JSR &FFEE:JSR &FFEE:RTS
 2040 
 2050.curs
 2060LDA#31:JSR&FFEE:LDA#0:JSR &FFEE:LDA#top:JSR &FFEE  
 2070RTS
 2080 
 2090.sub1
 2100LDA#31:JSR&FFEE:LDA#0:JSR&FFEE:LDA #height+top+2:JSR &FFEE 
 2110LDX#txt MOD256:LDY#txt DIV256:JSR print
 2120LDA pos+1:JSR hex_it:LDA pos
 2130JSR hex_it
 2140.xy
 2150LDX xc:LDY yc:LDA #31:JSR &FFEE:LDA dx,X:JSR &FFEE:LDA dy,Y:JSR &FFEE:RTS
 2160 
 2170.nblise
 2180LDX#3:.nblp LDA b4,X
 2190CMP#65:BCC number
 2200SBC#55:STA w4,X:JMP n  
 2210.number SBC#47:STA w4,X   
 2220.n DEX:BPL nblp 
 2230LDA w4:ASL A:ASL A:ASL A:ASL A
 2240ORA w4+1:STA pos+1:STA addr+1 
 2250LDA w4+2:ASL A:ASL A:ASL A:ASL A 
 2260ORA w4+3:STA pos:STA addr 
 2270LDA#0:STAxc:STAyc
 2280RTS
 2290 
 2300.address
 2310LDA#21:LDX#0:JSR&FFF4
 2320LDX#mess2 MOD256:LDY#mess2 DIV256
 2330JSRprint:LDX#0
 2340.addr_lp
 2350DEX:STXxt:INX  
 2360JSR&FFE0:CMP#27:BEQ ignore_addr:CMP#13 
 2370BEQrearrange:JSRchk_hex:BCSaddr_lp
 2380STAd4,X:JSR&FFEE:INX:CPX#4
 2390BNEaddr_lp:INCxt
 2400.rearrange 
 2410LDXxt
 2420LDA#48:LDY#3:.cl_lp STAb4,Y:DEY:BPL cl_lp
 2430LDY#3:.rearr_lp LDA d4,X:STAb4,Y
 2440DEY:DEX:BPLrearr_lp
 2450JSRnblise:JSRhex_screen
 2460.ignore_addr
 2470LDA#31:JSR&FFEE:LDA#0:JSR&FFEE:LDA#(height+top+4):JSR&FFEE
 2480LDX#20:LDA#32:.sp_lp JSR&FFEE:DEX:BPLsp_lp:RTS:.xt EQUB0 
 2490 
 2500.b4 EQUS "4F13":EQUB13
 2510.w4 EQUS "****"
 2520.d4 EQUS "****":EQUB13
 2530 
 2540.x EQUB 6:.y EQUB top
 2550 
 2560.xc EQUB 0:.yc EQUB 0
 2570 
 2580.htemp EQUB 0:.htemp2 EQUB 0
 2590.z1 EQUW 0
 2600.addr EQUW A%
 2610.pos EQUW A%
 2620.mess EQUB12:EQUB31:EQUB8:EQUB1:EQUS"*** Memory Editor ***"+CHR$255
 2630.mess2 EQUB31:EQUB0:EQUB(top+height+4):EQUS"Enter address : ":EQUB255
 2640.txt EQUS "Address : "+CHR$255
 2650.dx OPT FNxx 
 2660.dy OPT FNyy  
 2670.x1 OPT FNxe
 2680 
 2690]:NEXT
 2700ENDPROC
 2710 
 2720DEFFNxx
 2730FORJ%=0 TO 7:[OPTI:EQUB 6+J%*3:]:NEXT:=I
 2740 
 2750DEFFNyy
 2760FORJ%=0 TO height:[OPTI:EQUB top+J%:]:NEXT:=I 
 2770 
 2780DEFFNxe
 2790FORJ%=0 TO 7:[OPTI:EQUB 31+J%:]:NEXT:=I 

� 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
MEDIT.m0
MEDIT.m1
MEDIT.m2
MEDIT.m4
MEDIT.m5