� > !RunImage
+� Z80Em (desktop frontend for binaries)
*� (c) Michael and Anne Borcherds, 1995
(�
2%� HIMEM should be &10000 on entry
<
F&version$="1.00D (27 October 1995)"
P
Z� errblk% 256
dm� � ș "XWimp_ReportError",�errblk(�,"Internal error "+Þ+": "+�$),3,"Z80Em" � ,A%:� A%=2 � �quit � �poll
n
x� volume between 0 and 127
�volume%=80
�	�init
�P�demo("This is a demo version of Z80Em. It will work for about 30 seconds.")
�	�poll
�
��
�
���assemble
�P%=code%
�
[OPT 2
�	ALIGN
�
.start
�EQUD &FF11AFF3


.delay

EQUD speed%

; MAIN REGISTERS

".Pc EQUD 0

,.bc EQUW 0

6.de EQUW 0

@.hl EQUD 0

J.ix EQUD 0

T.iy EQUD 0

^.sp EQUD 0

h.ri EQUD 0

r.a  EQUD 0

|

�; ALTERNATE REGISTERS

�

�.bc2 EQUW 0

�.de2 EQUW 0

�.hl2 EQUD 0

�.a2  EQUD 0

�.f2  EQUD 0

�

�
.returnPC

�
EQUD 0

�.border_col

�
EQUD 0

�.tape_handle
	EQUD0

	.code
&.update_screen_ptr
0]
:	P%+=4
D	[OPT2
N
X
.Z80start
b]
l
v�
�
���screen
�ș "Wimp_SetMode",mode%
�ȗ �
�P%=!update_screen_ptr
�Ȏ mode% �
�� 9
�# [OPT2:SWI "Z80_UpdateScreen":]
�� 27
�% [OPT2:SWI "Z80_UpdateScreen27":]
�� 60
�% [OPT2:SWI "Z80_UpdateScreen60":]
��
�

� 0,0,0,0
� 1,0,0,191
 � 2,191,0,0
*� 3,191,0,191
4� 4,0,191,0
>� 5,0,191,191
H� 6,191,191,0
R� 7,191,191,191
\
f
� 8,0,0,0
p� 9,0,0,255
z� 10,255,0,0
�� 11,255,0,255
�� 12,0,255,0
�� 13,0,255,255
�� 14,255,255,0
�� 15,255,255,255
�
�128+15:�
��28,0,75,75,55
��28,0,31,39,24
�
�B%=?border_col
�B�19,0,24,-((B% � 2)=2)*191,-((B% � 4)=4)*191,-((B% � 1)=1)*191
�
��

��load(F$)
	Q=�F$
$'� Q=0 � � 1,"File "+F$+" not found"
.
L%=�#Q
8�#Q
BȎ L% �
LF� 1024  :  ș "Z80_ReadKeyMapAddress" � A% : � "Load "+F$+" "+�~A%
V� 49179 :  �loadsna(F$)
`� 65792 :  �load702(F$)
j : �PROCloadZ80(F$)
t	Q=�F$
~L%=0
�J%=0:�I%=1 � 48:J%+=�#Q:�
� � J%=0 � tape_file$=F$:�#Q:�
�	�#Q=0
��
�
�#Q=L%
�
A%=�#Q
�
B%=�#Q
�L%=L%+A%+(B%<<8)+2
�� L%>=�#Q � (A%=0 � B%=0)
�� L%=�#Q �
�TAPfile$=F$:TAPcounter%=0
��
�loadZ80(F$)

�
�#Q
�
(�
�
���load_compressed(E%,F%,D%)
�� A%
�� D%<>0 � D%=1
�B%=Q
�E%+=Z80mem : F%+=Z80mem
�� decompress
�
�#Q=�#Q-1
��
�
J��loadZ80(F$)
T� Q
^ș "Hourglass_On"
h� minimised% � �deminimise
r
|	Q=�F$
�	�#Q=6
�� �#Q=0 � �#Q=0 �
�newZ80=�
�6�#Q=30:header_length%=�#Q:header_length%+=(�#Q)<<8
�
�#Q=34
�S� �#Q>1 � �#Q:� 1,"Z80Em cannot load this snapshot - it is for a Spectrum 128K"
�
�#Q=32
�Pc?2=�#Q
�Pc?3=�#Q
��
�newZ80=�
�	�#Q=6
�Pc?2=�#Q
Pc?3=�#Q
�

&	�#Q=0
0
:
?a=�#Q
Dsp?0=�#Q : � f
Nbc?0=�#Q : bc?1=�#Q
Xhl?0=�#Q : hl?1=�#Q
bQ%=�#Q : Q%=�#Q
lsp?2=�#Q : sp?3=�#Q
v
i%=�#Q
�r%=�#Q : r%=�(127)
�Q%=�#Q : � Q%=255 � Q%=1
� ?border_col=(Q% >> 1) � %111
�)!ri=(r% << 25) + (i% << 1) + (Q% � 1)
�C%=Q% � %100000
�de?0=�#Q : de?1=�#Q
�bc2?0=�#Q : bc2?1=�#Q
�de2?0=�#Q : de2?1=�#Q
�hl2?0=�#Q : hl2?1=�#Q
�?a2=�#Q
�?f2=�#Q
�iy?0=�#Q : iy?1=�#Q
�ix?0=�#Q : ix?1=�#Q
$iff1%=�#Q : � iff1%<>0 � iff1%=1
$iff2%=�#Q : � iff2%<>0 � iff2%=1
*Q%=�#Q : IM%=Q% � %11 : � IM%=2 IM%+=1
 &sp?1=IM%+(iff1% << 3)+(iff2% << 2)
*
4.� �#Q<>30 � �#Q:� 1,"Error in Z80 loading"
>� newZ80 �
H  �#Q=�#Q+header_length%+2
R  �
\(  len%=�#Q : len%+=�#Q << 8 : Q%=�#Q
f  ptr%=�#Q
p
  Ȏ Q% �
z'  � 0 : �load_compressed(0,&4000,1)
�+  � 4 : �load_compressed(&8000,&C000,1)
�,  � 5 : �load_compressed(&C000,&10000,1)
�+  � 8 : �load_compressed(&4000,&8000,1)
�*  � 1,2,3,6,7,9,10 : � 128k stuff, etc
�$   : �#Q:� 1,"Corrupt Z80 file"
�  �
�>  � �(ptr%+len%-�#Q)>1 � � 1,�(ptr%+len%)+" "+Ï#Q+" "+�Q%
�  � �#Q-�#Q<2
�  
��
�'  �load_compressed(&4000,&10000,C%)
�;  Q%=�#Q : Q%+=�#Q << 8 : Q%+=�#Q << 16 : Q%+=�#Q << 24
�6  � Q%<>&00EDED00 � �#Q:� 1,"Error in Z80 loading"
	�
	last_loaded$=F$
	ș "Hourglass_Off"
	$�#Q
	.�
	8
���load702(F$)
�� A%,B%,C%,D%
�� minimised% � �deminimise
�Q=�(F$)
�?a=�bget
�?sp=�bget : � f
�bc?1=�bget : bc?0=�bget
�de?1=�bget : de?0=�bget
�hl?1=�bget : hl?0=�bget
�Pc?2=�bget : Pc?3=B%
�A%=�bget
�sp?2=�bget : sp?3=B%
��#Q=&94 : r%=�#Q
$�#Q=&9C : !border_col=�#Q � %111
&�#Q=&A4 : IM%=�#Q : � IM%=2 IM%+=1
�#Q=&BE : i%=�#Q
"3�SWAP i%,r% : REM try taking this line out.....
,*!ri=(r% << 25) + (i% << 1) + (r% >> 7)
6#iff%=�#Q : � iff%<>0 iff%=%1100
@6�iff%=%1100-iff% : REM try taking this line out...
Jsp?1=IM%+iff%
T�#Q=&EC
^?a2=�#Q
h?f2=�#Q
rA%=�#Q : A%=�#Q
|bc2?1=�#Q : bc2?0=�#Q
�A%=�#Q : A%=�#Q
�de2?1=�#Q : de2?0=�#Q
�hl2?1=�#Q : hl2?0=�#Q
�ix?0=�#Q : ix?1=�#Q
�A%=�#Q : A%=�#Q
�iy?0=�#Q : iy?1=�#Q
�A%=�#Q : A%=�#Q
�"ș "OS_GBPB",4,Q,Z80mem,&10000
��#Q
�last_loaded$=F$
��
�
�
ݤbget
�

A%=�#Q

B%=�#Q
&
C%=�#Q
0
D%=�#Q
:=A%
D
N��loadsna(F$)
X� minimised% � �deminimise
b'�"LOAD "+F$+" "+�~(Z80mem+&4000-27)
l�loadROM
v	Q=�F$
�
i%=�#Q
�
hl2?0=�#Q
�
hl2?1=�#Q
�
de2?0=�#Q
�
de2?1=�#Q
�
bc2?0=�#Q
�
bc2?1=�#Q
�?f2=�#Q
�?a2=�#Q
�hl?0=�#Q
�hl?1=�#Q
�de?0=�#Q
�de?1=�#Q

bc?0=�#Q

bc?1=�#Q

iy?0=�#Q

 iy?1=�#Q

*ix?0=�#Q

4ix?1=�#Q

>iff2%=(�#Q � %100)

H,r%=�#Q : �r%=RND(127) + r% AND %10000000

R*!ri=(i% << 1) + (r% >> 7) + (r% << 25)

\sp?0=�#Q : � f

f
?a=�#Q

psp?2=�#Q

zsp?3=�#Q

�IM%=�#Q : � IM%=2 � IM%=3

�sp?1=IM%+iff2%+2*iff2%

�?border_col=�#Q

��#Q

�

�Sp=sp?2+256*sp?3

�1!Pc=(Sp?Z80mem << 16) + (Sp?(Z80mem+1) << 24)

�	Sp+=2

�sp?2=Sp � 256

�sp?3=Sp � 256

�last_loaded$=F$

�

��

�
��install
�� sx%,sy%,sm%,px%,py%
�sprite$ = "!Z80Em"
�4ș "Wimp_SpriteOp",40,,sprite$ � ,,,sx%,sy%,,sm%
�9ș "OS_ReadModeVariable",sm%,4 � ,,px% : sx%=sx%<<px%
�9ș "OS_ReadModeVariable",sm%,5 � ,,py% : sy%=sy%<<py%
�
!q%=-1
8q%!4=0:q%!8=(68-sy%)/2:q%!12=q%!4+sx%:q%!16=q%!8+sy%
q%!20=&1700300A
$(q%+24)=sprite$
""ș "Wimp_CreateIcon",,q% � !q%
,�
6
@
��init
J� t 4:$t="TASK"
T3ș "Wimp_Initialise",200,!t,"Z80Em" � RO%,hand%
^;� q% 256, iconmenu% 200, optionmenu% 200, modemenu% 100
h1� speedmenu% 50, speedvalid% 12, speedtext% 8
r8� pokemenu% 50, pokevalid% 12, poketext% 12, drag 40
|TQ=�"<Z80Em$Res>.Compress" : � compress �#Q : ș "OS_GBPB",4,Q,compress,�#Q : �#Q
�ZQ=�"<Z80Em$Res>.Decompress" : � decompress �#Q : ș "OS_GBPB",4,Q,decompress,�#Q : �#Q
��install
�
�&tape_file$="<Z80Em$Dir>.^.tape-in"
�
�ș "Z80_Register"
�Z80mem=&10000
�code%=&20000
�
�TAPcounter%=0
�%TAPfile$="<Z80Em$Dir>.DefaultTAP"
�
�Q=�"<Z80Em$Dir>.KeyMap"
� Q<>0 �
T� �#Q=1024 � ș "Z80_ReadKeyMapAddress" � A% : � "Load <Z80Em$Dir>.KeyMap "+�~A%
�#Q
&�
0
:myref%=0
Dsolid%=�
Nexact%=�
X
blast_loaded$=""
l
v
tape=�
�
�� RO%>=310 �
�3ș "OS_Byte",161,140 � ,,t% : THREED%=-(t% � 1)
�t� THREED%=� � ș "Wimp_OpenTemplate",,"<Z80Em$Res>.Template3D" � ș "Wimp_OpenTemplate",,"<Z80Em$Res>.Templates"
�3ș "Wimp_LoadTemplate",,-1,,,-1,"info" � ,A%,B%
�7ș "Wimp_LoadTemplate",,-1,,,-1,"xfer_sna" � ,C%,D%
�7ș "Wimp_LoadTemplate",,-1,,,-1,"xfer_z80" � ,E%,F%
��
�3ș "Wimp_OpenTemplate",,"<Z80Em$Res>.Templates"
�5A%=700 : B%=300 : C%=350 : D%=350 : E%=C% : F%=D%
��
�1� xfer%(1), xfer1(1), xfer2(1), save_type$(1)
�save_type$(0)="file_ba1"
save_type$(1)="file_ba0"
� buffer2 A%, icon3 B%
� Q% C%+4 : xfer1(0)=Q%
 � Q% D% : xfer2(0)=Q%
*� Q% E%+4 : xfer1(1)=Q%
4� Q% F% : xfer2(1)=Q%
><ș "Wimp_LoadTemplate",,buffer2,icon3,icon3+B%,-1,"info"
HGș "Wimp_LoadTemplate",,xfer1(0),xfer2(0),xfer2(0)+D%,-1,"xfer_sna"
RGș "Wimp_LoadTemplate",,xfer1(1),xfer2(1),xfer2(1)+F%,-1,"xfer_z80"
\ș "Wimp_CloseTemplate"
f5ș "Wimp_CreateWindow",,xfer1(0) � A%:xfer%(0)=A%
p5ș "Wimp_CreateWindow",,xfer1(1) � A%:xfer%(1)=A%
z1ș "Wimp_CreateWindow",,buffer2 � A%:info%=A%
�
�� buffer &100
�
�!buffer=info%
�buffer!4=9
�"ș "Wimp_GetIconState",,buffer
�$(buffer!28)=version$+�0
�
�!buffer=info%
�buffer!4=11
�"ș "Wimp_GetIconState",,buffer
�/�"Load <Z80Em$Res>.SerialNo "+�~(buffer!28)
�
7�SYS "OS_File",17,"<Z80Em$Dir>.CodeT" TO Q,,,,size%
7�IF Q<>1 THEN ERROR 0,"<Z80Em$Dir>.CodeT not found"
4ș "OS_File",17,"<Z80Em$Dir>.Code3" � Q,,,,size%
$.� Q<>1 � � 0,"<Z80Em$Dir>.Code3 not found"
.
8size%+=300
B
Lminimised%=�
V
`�loadoptions
j
t8� �start_minimised% � �deminimise � �minimise(32+16)
~
�ș "OS_GetEnv" � A$
�
I%=�A$
� �I%-=1:��A$,I%,1)=" " � I%=0
�A$=�A$,�A$-I%)
�D� �A$,�A$-11,10)<>".!RunImage" � ��A$,"@") � �load(A$):�spectrum
�
��
�
�
��poll
�
��
�mask%=%1100000110011
%ș "Wimp_Poll",mask%,q% � action%


Ȏ action% �
&�  2    : ș "Wimp_OpenWindow",,q%
('�  3    : ș "Wimp_CloseWindow",,q%
2�  6    : �click
<�  7    : �save
P�  9    : �decodemenu
Z� 17,18 : �message
d�
n
x��
��
�
�
��message
�Ȏ q%!16 �
�� 0 : �quit
|W� 3 : A$="":I%=44:ȕq%?I%<>0 : A$=A$+�q%?I% : I%+=1 : � : �load(A$) : �PROCspectrum
�	� 5 :
�,� q%!40=&BA0 � q%!40=&BA1 � q%!40=&702 �
�Eq%!16=4:q%!12=q%!8:ș "Wimp_SendMessage",17,q%,q%!20:A$="":I%=44:
�+ȕq%?I%<>0 : A$=A$+�q%?I% : I%+=1 : � :
��load(A$) : �spectrum
��
�� &400C1 : �PROCmode
��
��
�
D��click
Nmx%=q%!0
Xmy%=q%!4
bmb%=q%!8
lh%=q%!12
vi%=q%!16
�
� h%=-2 �
�C� mb%=2 � �menus:ș "Wimp_CreateMenu",,iconmenu%,mx%-64,96+7*44
�
� mb%=1 �
�$� �minimised% � �minimise(32+16)
�
�spectrum
��
�� mb%=4 � �spectrum
��
�;� i%=3 � h%=xfer%(save_type%) � ș "Wimp_CreateMenu",-1
�
�
$
.��spectrum
8� tape �
BA%=�tape_file$
L.� A%=0 � tape=�:�minimise(32+16) � �#A%=64
V�
`� minimised% � �deminimise
jwimp_mode=�
tș "Hourglass_Smash"
~�screen
�)ș "Z80_InstallExitHandler",wimp_mode
�� �err2(wimp_mode)
� �SYS "XOS_CLI","BlankTime 0"
�
�ș "Z80_SoundStart"
�
��
�
�modspeed
�!delay=speed%
�
��Z80mem?&A704=&ED
��Z80mem?&A705=&FF



�*FX19
� 1,&100+volume%,&8100,255
ș "Z80_Putkdata",&FF
(B%=&80 : � tape_cutoff
2-ș &600FA,0 : � Wimp_SetWatchdogState Off
<K%=� Z80start
F,ș &600FA,1 : � Wimp_SetWatchdogState On
P�SYS "Z80_Getkdata" TO K%
Z� 1,&100+volume%,0,2
d
nȎ K% �
x-� 1  : volume%-=5:� volume%<0 � volume%=0
�1� 2  : volume%+=5:� volume%>127 � volume%=127
�
� 3  :
�� �-1 � �-2 �
�6ș "XOS_CLI","Screensave <Z80Em$Dir>.^.!Z80Screen"
��
�3� 4  : � last_loaded$<>"" � �load(last_loaded$)
�.� 7  : � exact% � speed%+=&100 � speed%+=1
�.� 8  : � exact% � speed%-=&100 � speed%-=1
�� 9  : TAPcounter%=0
�� 10 : !Pc=0
�B� 11 : �pushpc:!sp=(!sp � 1<<11) � 1<<11:!Pc=&00660000 : � NMI
� &71 : � menu
d� 200 : � "Load "+�leaf(last_loaded$)+�?a+" "+�~(Z80mem+((!hl) � &FFFF)):�PROCsavesna("JUNKXZX")
� 201 :
"Q%=� TAPfile$
, � Q%=0 � ?sp=(?sp) � 1:�d~Z
6�#Q%=TAPcounter%
@� �#Q% � �#Q%=0
J
TL%=�#Q% : L%+=(�#Q%) << 8
^flag%=�#Q%
h
r)� flag%<>?a2 � �#Q%=�#Q%+L%-1 : �D@Z
|
�� �#Q% �
�?sp=(?sp) � %11111110
��
�%ș "OS_GBPB",4,Q%,Z80mem+!ix,L%-2
�� ?f2=0 � Q=�100
�checksum=�#Q%
�TAPcounter%=�#Q%
�?sp=(?sp) � 1
��
�� �#Q%=�#Q% � TAPcounter%=0
��#Q%
�
��

$� K%=12 � K%=0 � K%=&71 � K%=300
ș "Z80_SoundKill"
&
0� tape � A%<>0 � �#A%
:
Dș "Z80_RemoveExitHandler"
Nș "Wimp_SetMode",wimp_mode
X� �err
b*FX15,0
l��demo("The full version is available for �15 from: Warm Silence Software, St Catherine's College, Oxford, OX1 3UJ. We also sell a BBC Emulator for �15. Both Emulators �25.")
v
��
�
���menus
��P%
�8�menuheader(iconmenu%,"Z80Em",�"Single Task "*16+12)
�'�menuitem(0,info%,&07000001,"Info")
�0�menuitem(0,optionmenu%,&07000001,"Options")
�9�menuitem(0,xfer%(save_type%),&07000001� 2^22,"Save")
�@�menuitem(0,pokemenu%,&07000001 � -(2^22*minimised%),"Poke")
�2�menuitem(-minimised%,-1,&07000001,"Minimise")
�/�menuitem(-tape,-1,&07000001 � 2^22,"Tape")
�&�menuitem(&80,-1,&07000001,"Quit")
�
=�menuheader(optionmenu%,"Options",�"Save Options "*16+12)
+�menuitem(0,modemenu%,&07000001,"Mode")
;�menuitem(-start_minimised%,-1,&07000001,"Start Min'd")
 5�PROCmenuitem(-exact%,-1,&07000001,"Exact Speed")
*-�menuitem(0,speedmenu%,&07000001,"Speed")
4Ȏ save_type% �
>1� 0 : �menuitem(1,-1,&07000001,"Save as SNA")
H1� 1 : �menuitem(1,-1,&07000001,"Save as Z80")
R �
\�
f'�menuitem(0,-1,&07000001,"Default")
p.�menuitem(&80,-1,&07000001,"Save Options")
z
�.�menuheader(modemenu%,"Mode",�"99 "*16+12)
�*�menuitem(-(mode%=9),-1,&07000001,"9")
�,�menuitem(-(mode%=27),-1,&07000001,"27")
�/�menuitem(&80-(mode%=60),-1,&07000001,"60")
�
�"$speedvalid%="A0-9A-Fa-f&"+�13
�F� exact% � $speedtext%="&"+�~speed%+�13 � $speedtext%=�~speed%+�13
�
�4�menuheader(speedmenu%,"Speed",�"&99999 "*16+12)
�?�menuitem2(&84,-1,&07000001 � 2^8,speedtext%,speedvalid%,7)
�
�"$pokevalid%="A0-9A-Fa-f&,"+�13
�$poketext%=�13

5�menuheader(pokemenu%,"Poke",�"65535,255 "*16+12)
>�menuitem2(&84,-1,&07000001 � 2^8,poketext%,pokevalid%,10)
$
.
8�
B
L��menuheader(A%,B$,G%)
V	P%=A%
`$P%=B$+�13
j)P%?12=7 : P%?13=2 : P%?14=7 : P%?15=0
t!P%!16=G% : P%!20=44 : P%!24=0
~
P%+=28
��
�
���menuitem(A%,B%,C%,D$)
�P%!0=A%
�P%!4=B%
�P%!8=C%
�$(P%+12)=D$+�13
�
P%+=24
��
�
���decodemenu
�Ȏ !q% �
  � 1 :

    � q%!4 > -1 �
    Ȏ q%!4 �

    � 0 :
(      � q%!8 > -1 �
2      Ȏ q%!8 �
<        � 0 : mode%=9
F        � 1 : mode%=27
P        � 2 : mode%=60
Z        
d      �
n      �
x0    � 1 : start_minimised%=�start_minimised%
�L�    WHEN 2 : exact%=NOTexact%:IF NOTminimised% THEN PROCminimise(32+16)
�G�             IF exact% THEN speed%=&11000 ELSE speed%=1:tape=FALSE
�-    � 2 : speed%=�$speedtext% : �modspeed
�%    � 3 : save_type%=1-save_type%
�    � 4 : �defaultoptions
�    � 5 : �saveoptions
�	    �
�  �
�  � 2 : � save
�  � 3 : �poke($poketext%)
�  � 4 : �minimise(32)
�X  � 5 : �tape=NOTtape : PROCminimise(32+16) : IF tape THEN exact%=TRUE:speed%=&11000
�  � 6 : �quit
�
 ș "Wimp_GetPointerInfo",,q%
]� (q%!8 � %1)>0 � �menus:ș "Wimp_CreateMenu",,iconmenu%,mx%-iconmenu%!16/2-24,96+44*2+12
"�
,
6"��menuitem2(A%,B%,C%,D%,E%,F%)
@P%!0=A%
JP%!4=B%
TP%!8=C%
^P%!12=D%
hP%!16=E%
rP%!20=F%
|
P%+=24
��
�
���saveoptions
�Q=�"<Z80Em$Res>.Options"
�g� Q=0 � !errblk%=0:$(errblk%+4)="Could not save options"+�0:ș "Wimp_ReportError",errblk%,1,"Z80Em"
��#Q,speed%
��#Q,start_minimised%
�
�#Q,mode%
��#Q,exact%
��#Q,save_type%
��#Q
��
�
 ��loadoptions
 ș "Z80_Init",,A%
 Q=�"<Z80Em$Res>.Options"
 &� Q=0 � �defaultoptions:�
 0�#Q,speed%
 :�#Q,start_minimised%
 D
�#Q,mode%
 N�#Q,exact%
 X�#Q,save_type%
 b�#Q
 l�
 v
 ���defaultoptions
 �speed%=&11100
 �start_minimised%=�
 �mode%=60
 �0� �exact% � � �minimised% � �minimise(32+16)
 �exact%=�
 �save_type%=1
 ��
 �
 ���minimise(M%)
 �TAPcounter%=0
 �minimised%=�
 �!ș "Wimp_SlotSize",32*1024,-1
!�
!
!��deminimise
! minimised%=�
!*,ș "Wimp_SlotSize",96*1024+size%,-1 � S%
!40� S%<96*1024+size% � � 1,"Not enough memory"
!>
�assemble
!H�loadROM
!R� exact% �
!\V� tape � � "Load <Z80Em$Dir>.CodeT "+�~code% � � "Load <Z80Em$Dir>.Code3 "+�~code%
!f�
!p'� "Load <Z80Em$Dir>.Code2 "+�~code%
!z�
!��
!�
!�ݤerrblk(err%,report$)
!�&!errblk%=err%:$(errblk%+4)=report$
!�errblk%?(4+�$(errblk%+4))=0
!�=errblk%
!�
!���poke(A$)
!�� B$,C$,B%,C%
!�� minimised% � �
!�� �count(A$,",")<>1 � �
!�B$=�A$,�A$,",")-1)
!�C$=�A$,�A$-�B$-1)
"-� ��B$,�B$-1),"&") � ��C$,�C$-1),"&") � �
"#� �B$,1)<>"&" � �letter(B$) � �
"#� �C$,1)<>"&" � �letter(C$) � �
"$B%=�B$ : C%=�C$
".)� B%>&FFFF � B%<0 � C%>&FF � C%<0 � �
"8Z80mem?B%=C%
"B�
"L
"Vݤcount(A$,B$)
"`
�I%,C%
"j�I%=1 � �A$
"t� �A$,I%,1)=B$ � C%+=1
"~�
"�=C%
"�
"�ݤletter(A$)
"�� I%,J%
"��I%=1 � �A$
"�.� �"ABCDEFabcdef",�A$,I%,1)) � J%=�:I%=�A$
"��
"�=J%
"�
"���pushpc
"�SP=!sp >> 16
"�Z80mem?(SP-2)=Pc?2
#Z80mem?(SP-1)=Pc?3
#
SP=SP-2
#sp?2=SP � &FF
#sp?3=(SP � &FF00) >> 8
#(�
#2
#<
��quit
#F� �
#Pș "XZ80_DeRegister" � A%
#ZJ� A%=0 � ș "XOS_CLI","RMKill Z80Support":ș "XOS_CLI","RMKill Mode60"
#dș "Wimp_CloseDown"
#n�
#x�
#�
#�
��save
#�$� solid% � ș "DragASprite_Stop"
#�	K$=""
#�!drag=xfer%(save_type%)
#�drag!4=1
#� ș "Wimp_GetIconState",,drag
#�P%=drag!28-1
#�� P%+=1
#�� ?P%<>13 � K$=K$+�?P%
#�!� ?P%=�"." � ?P%=�":" � K$=""
#��?P%=13
#� ș "Wimp_GetPointerInfo",,q%
$8� q%!12<>xfer%(save_type%) � ș "Wimp_CreateMenu",-1
$q%!20=q%!12
$q%!24=q%!16
$"q%!28=q%!0
$,q%!32=q%!4
$6
$@q%!12=0
$Jq%!16=1
$Tq%!36=49179
$^q%!40=&BA1
$h$(q%+44)=K$+�0
$rq%!0=(48+�K$) � %111111100
$|
$�+ș "Wimp_SendMessage",17,q%,q%!20,q%!24
$�myref%=q%!8
$��
$�
$���modspeed
$�� exact% �
$�� speed%<&200 � speed%=&200
$�#� speed%>&30000 � speed%=&30000
$��
$�� speed%<0 � speed%=0
$�� speed%>10 � speed%=10
$��
$��
%
%��saveregs
%�I%
%&�I%=0 � 11
%0temp_regs!(I%*4)=Pc!(I%*4)
%:�
%D�
%N
%X��loadregs
%b�I%
%l�I%=0 � 11
%vPc!(I%*4)=temp_regs!(I%*4)
%��
%��
%�
%�ݤleaf(A$)
%�� I%
%�I%=�A$+1
%��I%-=1:� �A$,I%,1)="."
%�=�A$,I%)
%�
%�	��err
%�� �
%�Gș "XWimp_ReportError",�errblk(�,�$+" at line "+Þ),3,"Z80Em" � ,A%
%�� A%=2 � �quit � �poll
&�
&
&��err2(M%)
& � �
&*ș "XWimp_SetMode",M%
&4Gș "XWimp_ReportError",�errblk(�,�$+" at line "+Þ),3,"Z80Em" � ,A%
&>� A%=2 � �quit � �poll
&H�
&R
&\
��loadROM
&f+� "Load <Z80Em$Res>.SPECROMO "+�~Z80mem
&p
� �tape �
&zZ80mem?&56A=&76 : � HALT
&�Z80mem?&56B=&ED
&�Z80mem?&56C=&FC
&�Z80mem?&56D=&C9 : � RET
&��
&�
&�6�Z80mem?&0D2C=&17 : REM stop ROM writing to itself
&�6�Z80mem?&33FC=&13 : REM stop ROM writing to itself
&�
&�=�Z80mem?&0805=&C9 : REM RET to stop R Tape loading errors
&�
&��Z80mem?&5E0=&37 : REM SCF
&��Z80mem?&5E1=0   : REM NOP
&�
'�
'
'��demo(A$)
'$6ș "Wimp_ReportError",�errblk(1,A$),%11001,"Z80Em"
'.�
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 2b f4 20 5a  38 30 45 6d 20 28 64 65  |e...+. Z80Em (de|
00000020  73 6b 74 6f 70 20 66 72  6f 6e 74 65 6e 64 20 66  |sktop frontend f|
00000030  6f 72 20 62 69 6e 61 72  69 65 73 29 0d 00 1e 2a  |or binaries)...*|
00000040  f4 20 28 63 29 20 4d 69  63 68 61 65 6c 20 61 6e  |. (c) Michael an|
00000050  64 20 41 6e 6e 65 20 42  6f 72 63 68 65 72 64 73  |d Anne Borcherds|
00000060  2c 20 31 39 39 35 0d 00  28 05 f4 0d 00 32 25 f4  |, 1995..(....2%.|
00000070  20 48 49 4d 45 4d 20 73  68 6f 75 6c 64 20 62 65  | HIMEM should be|
00000080  20 26 31 30 30 30 30 20  6f 6e 20 65 6e 74 72 79  | &10000 on entry|
00000090  0d 00 3c 04 0d 00 46 26  76 65 72 73 69 6f 6e 24  |..<...F&version$|
000000a0  3d 22 31 2e 30 30 44 20  28 32 37 20 4f 63 74 6f  |="1.00D (27 Octo|
000000b0  62 65 72 20 31 39 39 35  29 22 0d 00 50 04 0d 00  |ber 1995)"..P...|
000000c0  5a 11 de 20 65 72 72 62  6c 6b 25 20 32 35 36 0d  |Z.. errblk% 256.|
000000d0  00 64 6d ee 20 85 20 c8  99 20 22 58 57 69 6d 70  |.dm. . .. "XWimp|
000000e0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c a4 65  |_ReportError",.e|
000000f0  72 72 62 6c 6b 28 9f 2c  22 49 6e 74 65 72 6e 61  |rrblk(.,"Interna|
00000100  6c 20 65 72 72 6f 72 20  22 2b c3 9e 2b 22 3a 20  |l error "+..+": |
00000110  22 2b f6 24 29 2c 33 2c  22 5a 38 30 45 6d 22 20  |"+.$),3,"Z80Em" |
00000120  b8 20 2c 41 25 3a e7 20  41 25 3d 32 20 8c 20 f2  |. ,A%:. A%=2 . .|
00000130  71 75 69 74 20 8b 20 f2  70 6f 6c 6c 0d 00 6e 04  |quit . .poll..n.|
00000140  0d 00 78 1e f4 20 76 6f  6c 75 6d 65 20 62 65 74  |..x.. volume bet|
00000150  77 65 65 6e 20 30 20 61  6e 64 20 31 32 37 0d 00  |ween 0 and 127..|
00000160  82 0e 76 6f 6c 75 6d 65  25 3d 38 30 0d 00 8c 09  |..volume%=80....|
00000170  f2 69 6e 69 74 0d 00 96  50 f2 64 65 6d 6f 28 22  |.init...P.demo("|
00000180  54 68 69 73 20 69 73 20  61 20 64 65 6d 6f 20 76  |This is a demo v|
00000190  65 72 73 69 6f 6e 20 6f  66 20 5a 38 30 45 6d 2e  |ersion of Z80Em.|
000001a0  20 49 74 20 77 69 6c 6c  20 77 6f 72 6b 20 66 6f  | It will work fo|
000001b0  72 20 61 62 6f 75 74 20  33 30 20 73 65 63 6f 6e  |r about 30 secon|
000001c0  64 73 2e 22 29 0d 00 a0  09 f2 70 6f 6c 6c 0d 00  |ds.").....poll..|
000001d0  aa 04 0d 00 b4 05 e0 0d  00 be 04 0d 00 c8 0e dd  |................|
000001e0  f2 61 73 73 65 6d 62 6c  65 0d 00 d2 0c 50 25 3d  |.assemble....P%=|
000001f0  63 6f 64 65 25 0d 00 dc  0a 5b 4f 50 54 20 32 0d  |code%....[OPT 2.|
00000200  00 e6 09 41 4c 49 47 4e  0d 00 f0 0a 2e 73 74 61  |...ALIGN.....sta|
00000210  72 74 0d 00 fa 12 45 51  55 44 20 26 46 46 31 31  |rt....EQUD &FF11|
00000220  41 46 46 33 0d 01 04 0a  2e 64 65 6c 61 79 0d 01  |AFF3.....delay..|
00000230  0e 0f 45 51 55 44 20 73  70 65 65 64 25 0d 01 18  |..EQUD speed%...|
00000240  14 3b 20 4d 41 49 4e 20  52 45 47 49 53 54 45 52  |.; MAIN REGISTER|
00000250  53 0d 01 22 0e 2e 50 63  20 45 51 55 44 20 30 0d  |S.."..Pc EQUD 0.|
00000260  01 2c 0e 2e 62 63 20 45  51 55 57 20 30 0d 01 36  |.,..bc EQUW 0..6|
00000270  0e 2e 64 65 20 45 51 55  57 20 30 0d 01 40 0e 2e  |..de EQUW 0..@..|
00000280  68 6c 20 45 51 55 44 20  30 0d 01 4a 0e 2e 69 78  |hl EQUD 0..J..ix|
00000290  20 45 51 55 44 20 30 0d  01 54 0e 2e 69 79 20 45  | EQUD 0..T..iy E|
000002a0  51 55 44 20 30 0d 01 5e  0e 2e 73 70 20 45 51 55  |QUD 0..^..sp EQU|
000002b0  44 20 30 0d 01 68 0e 2e  72 69 20 45 51 55 44 20  |D 0..h..ri EQUD |
000002c0  30 0d 01 72 0e 2e 61 20  20 45 51 55 44 20 30 0d  |0..r..a  EQUD 0.|
000002d0  01 7c 04 0d 01 86 19 3b  20 41 4c 54 45 52 4e 41  |.|.....; ALTERNA|
000002e0  54 45 20 52 45 47 49 53  54 45 52 53 0d 01 90 04  |TE REGISTERS....|
000002f0  0d 01 9a 0f 2e 62 63 32  20 45 51 55 57 20 30 0d  |.....bc2 EQUW 0.|
00000300  01 a4 0f 2e 64 65 32 20  45 51 55 57 20 30 0d 01  |....de2 EQUW 0..|
00000310  ae 0f 2e 68 6c 32 20 45  51 55 44 20 30 0d 01 b8  |...hl2 EQUD 0...|
00000320  0f 2e 61 32 20 20 45 51  55 44 20 30 0d 01 c2 0f  |..a2  EQUD 0....|
00000330  2e 66 32 20 20 45 51 55  44 20 30 0d 01 cc 04 0d  |.f2  EQUD 0.....|
00000340  01 d6 0d 2e 72 65 74 75  72 6e 50 43 0d 01 e0 0a  |....returnPC....|
00000350  45 51 55 44 20 30 0d 01  ea 0f 2e 62 6f 72 64 65  |EQUD 0.....borde|
00000360  72 5f 63 6f 6c 0d 01 f4  0a 45 51 55 44 20 30 0d  |r_col....EQUD 0.|
00000370  01 fe 10 2e 74 61 70 65  5f 68 61 6e 64 6c 65 0d  |....tape_handle.|
00000380  02 08 09 45 51 55 44 30  0d 02 12 04 0d 02 1c 09  |...EQUD0........|
00000390  2e 63 6f 64 65 0d 02 26  16 2e 75 70 64 61 74 65  |.code..&..update|
000003a0  5f 73 63 72 65 65 6e 5f  70 74 72 0d 02 30 05 5d  |_screen_ptr..0.]|
000003b0  0d 02 3a 09 50 25 2b 3d  34 0d 02 44 09 5b 4f 50  |..:.P%+=4..D.[OP|
000003c0  54 32 0d 02 4e 04 0d 02  58 0d 2e 5a 38 30 73 74  |T2..N...X..Z80st|
000003d0  61 72 74 0d 02 62 05 5d  0d 02 6c 04 0d 02 76 05  |art..b.]..l...v.|
000003e0  e1 0d 02 80 04 0d 02 8a  0c dd f2 73 63 72 65 65  |...........scree|
000003f0  6e 0d 02 94 1b c8 99 20  22 57 69 6d 70 5f 53 65  |n...... "Wimp_Se|
00000400  74 4d 6f 64 65 22 2c 6d  6f 64 65 25 0d 02 9e 08  |tMode",mode%....|
00000410  c8 97 20 87 0d 02 a8 19  50 25 3d 21 75 70 64 61  |.. .....P%=!upda|
00000420  74 65 5f 73 63 72 65 65  6e 5f 70 74 72 0d 02 b2  |te_screen_ptr...|
00000430  0e c8 8e 20 6d 6f 64 65  25 20 ca 0d 02 bc 07 c9  |... mode% ......|
00000440  20 39 0d 02 c6 23 20 5b  4f 50 54 32 3a 53 57 49  | 9...# [OPT2:SWI|
00000450  20 22 5a 38 30 5f 55 70  64 61 74 65 53 63 72 65  | "Z80_UpdateScre|
00000460  65 6e 22 3a 5d 0d 02 d0  08 c9 20 32 37 0d 02 da  |en":]..... 27...|
00000470  25 20 5b 4f 50 54 32 3a  53 57 49 20 22 5a 38 30  |% [OPT2:SWI "Z80|
00000480  5f 55 70 64 61 74 65 53  63 72 65 65 6e 32 37 22  |_UpdateScreen27"|
00000490  3a 5d 0d 02 e4 08 c9 20  36 30 0d 02 ee 25 20 5b  |:]..... 60...% [|
000004a0  4f 50 54 32 3a 53 57 49  20 22 5a 38 30 5f 55 70  |OPT2:SWI "Z80_Up|
000004b0  64 61 74 65 53 63 72 65  65 6e 36 30 22 3a 5d 0d  |dateScreen60":].|
000004c0  02 f8 05 cb 0d 03 02 05  87 0d 03 0c 0d fb 20 30  |.............. 0|
000004d0  2c 30 2c 30 2c 30 0d 03  16 0f fb 20 31 2c 30 2c  |,0,0,0..... 1,0,|
000004e0  30 2c 31 39 31 0d 03 20  0f fb 20 32 2c 31 39 31  |0,191.. .. 2,191|
000004f0  2c 30 2c 30 0d 03 2a 11  fb 20 33 2c 31 39 31 2c  |,0,0..*.. 3,191,|
00000500  30 2c 31 39 31 0d 03 34  0f fb 20 34 2c 30 2c 31  |0,191..4.. 4,0,1|
00000510  39 31 2c 30 0d 03 3e 11  fb 20 35 2c 30 2c 31 39  |91,0..>.. 5,0,19|
00000520  31 2c 31 39 31 0d 03 48  11 fb 20 36 2c 31 39 31  |1,191..H.. 6,191|
00000530  2c 31 39 31 2c 30 0d 03  52 13 fb 20 37 2c 31 39  |,191,0..R.. 7,19|
00000540  31 2c 31 39 31 2c 31 39  31 0d 03 5c 04 0d 03 66  |1,191,191..\...f|
00000550  0d fb 20 38 2c 30 2c 30  2c 30 0d 03 70 0f fb 20  |.. 8,0,0,0..p.. |
00000560  39 2c 30 2c 30 2c 32 35  35 0d 03 7a 10 fb 20 31  |9,0,0,255..z.. 1|
00000570  30 2c 32 35 35 2c 30 2c  30 0d 03 84 12 fb 20 31  |0,255,0,0..... 1|
00000580  31 2c 32 35 35 2c 30 2c  32 35 35 0d 03 8e 10 fb  |1,255,0,255.....|
00000590  20 31 32 2c 30 2c 32 35  35 2c 30 0d 03 98 12 fb  | 12,0,255,0.....|
000005a0  20 31 33 2c 30 2c 32 35  35 2c 32 35 35 0d 03 a2  | 13,0,255,255...|
000005b0  12 fb 20 31 34 2c 32 35  35 2c 32 35 35 2c 30 0d  |.. 14,255,255,0.|
000005c0  03 ac 14 fb 20 31 35 2c  32 35 35 2c 32 35 35 2c  |.... 15,255,255,|
000005d0  32 35 35 0d 03 b6 0d e6  31 32 38 2b 31 35 3a da  |255.....128+15:.|
000005e0  0d 03 c0 12 ef 32 38 2c  30 2c 37 35 2c 37 35 2c  |.....28,0,75,75,|
000005f0  35 35 0d 03 ca 12 ef 32  38 2c 30 2c 33 31 2c 33  |55.....28,0,31,3|
00000600  39 2c 32 34 0d 03 d4 04  0d 03 de 12 42 25 3d 3f  |9,24........B%=?|
00000610  62 6f 72 64 65 72 5f 63  6f 6c 0d 03 e8 42 ef 31  |border_col...B.1|
00000620  39 2c 30 2c 32 34 2c 2d  28 28 42 25 20 80 20 32  |9,0,24,-((B% . 2|
00000630  29 3d 32 29 2a 31 39 31  2c 2d 28 28 42 25 20 80  |)=2)*191,-((B% .|
00000640  20 34 29 3d 34 29 2a 31  39 31 2c 2d 28 28 42 25  | 4)=4)*191,-((B%|
00000650  20 80 20 31 29 3d 31 29  2a 31 39 31 0d 03 f2 04  | . 1)=1)*191....|
00000660  0d 03 fc 05 e1 0d 04 06  04 0d 04 10 0e dd f2 6c  |...............l|
00000670  6f 61 64 28 46 24 29 0d  04 1a 09 51 3d 8e 46 24  |oad(F$)....Q=.F$|
00000680  0d 04 24 27 e7 20 51 3d  30 20 8c 20 85 20 31 2c  |..$'. Q=0 . . 1,|
00000690  22 46 69 6c 65 20 22 2b  46 24 2b 22 20 6e 6f 74  |"File "+F$+" not|
000006a0  20 66 6f 75 6e 64 22 0d  04 2e 0a 4c 25 3d a2 23  | found"....L%=.#|
000006b0  51 0d 04 38 07 d9 23 51  0d 04 42 0b c8 8e 20 4c  |Q..8..#Q..B... L|
000006c0  25 20 ca 0d 04 4c 46 c9  20 31 30 32 34 20 20 3a  |% ...LF. 1024  :|
000006d0  20 20 c8 99 20 22 5a 38  30 5f 52 65 61 64 4b 65  |  .. "Z80_ReadKe|
000006e0  79 4d 61 70 41 64 64 72  65 73 73 22 20 b8 20 41  |yMapAddress" . A|
000006f0  25 20 3a 20 ff 20 22 4c  6f 61 64 20 22 2b 46 24  |% : . "Load "+F$|
00000700  2b 22 20 22 2b c3 7e 41  25 0d 04 56 1b c9 20 34  |+" "+.~A%..V.. 4|
00000710  39 31 37 39 20 3a 20 20  f2 6c 6f 61 64 73 6e 61  |9179 :  .loadsna|
00000720  28 46 24 29 0d 04 60 1b  c9 20 36 35 37 39 32 20  |(F$)..`.. 65792 |
00000730  3a 20 20 f2 6c 6f 61 64  37 30 32 28 46 24 29 0d  |:  .load702(F$).|
00000740  04 6a 18 7f 20 3a 20 f4  50 52 4f 43 6c 6f 61 64  |.j.. : .PROCload|
00000750  5a 38 30 28 46 24 29 0d  04 74 09 51 3d 8e 46 24  |Z80(F$)..t.Q=.F$|
00000760  0d 04 7e 08 4c 25 3d 30  0d 04 88 1d 4a 25 3d 30  |..~.L%=0....J%=0|
00000770  3a e3 49 25 3d 31 20 b8  20 34 38 3a 4a 25 2b 3d  |:.I%=1 . 48:J%+=|
00000780  9a 23 51 3a ed 0d 04 92  20 e7 20 4a 25 3d 30 20  |.#Q:.... . J%=0 |
00000790  8c 20 74 61 70 65 5f 66  69 6c 65 24 3d 46 24 3a  |. tape_file$=F$:|
000007a0  d9 23 51 3a e1 0d 04 9c  09 cf 23 51 3d 30 0d 04  |.#Q:......#Q=0..|
000007b0  a6 05 f5 0d 04 b0 0a cf  23 51 3d 4c 25 0d 04 ba  |........#Q=L%...|
000007c0  0a 41 25 3d 9a 23 51 0d  04 c4 0a 42 25 3d 9a 23  |.A%=.#Q....B%=.#|
000007d0  51 0d 04 ce 16 4c 25 3d  4c 25 2b 41 25 2b 28 42  |Q....L%=L%+A%+(B|
000007e0  25 3c 3c 38 29 2b 32 0d  04 d8 1d fd 20 4c 25 3e  |%<<8)+2..... L%>|
000007f0  3d a2 23 51 20 84 20 28  41 25 3d 30 20 80 20 42  |=.#Q . (A%=0 . B|
00000800  25 3d 30 29 0d 04 e2 0e  e7 20 4c 25 3d a2 23 51  |%=0)..... L%=.#Q|
00000810  20 8c 0d 04 ec 1d 54 41  50 66 69 6c 65 24 3d 46  | .....TAPfile$=F|
00000820  24 3a 54 41 50 63 6f 75  6e 74 65 72 25 3d 30 0d  |$:TAPcounter%=0.|
00000830  04 f6 05 cc 0d 05 00 10  f2 6c 6f 61 64 5a 38 30  |.........loadZ80|
00000840  28 46 24 29 0d 05 0a 05  cd 0d 05 14 07 d9 23 51  |(F$)..........#Q|
00000850  0d 05 1e 05 cb 0d 05 28  05 e1 0d 05 8c 04 0d 05  |.......(........|
00000860  96 1f dd f2 6c 6f 61 64  5f 63 6f 6d 70 72 65 73  |....load_compres|
00000870  73 65 64 28 45 25 2c 46  25 2c 44 25 29 0d 05 a0  |sed(E%,F%,D%)...|
00000880  08 ea 20 41 25 0d 05 aa  12 e7 20 44 25 3c 3e 30  |.. A%..... D%<>0|
00000890  20 8c 20 44 25 3d 31 0d  05 b4 08 42 25 3d 51 0d  | . D%=1....B%=Q.|
000008a0  05 be 1b 45 25 2b 3d 5a  38 30 6d 65 6d 20 3a 20  |...E%+=Z80mem : |
000008b0  46 25 2b 3d 5a 38 30 6d  65 6d 0d 05 c8 10 d6 20  |F%+=Z80mem..... |
000008c0  64 65 63 6f 6d 70 72 65  73 73 0d 05 d2 0d cf 23  |decompress.....#|
000008d0  51 3d 8f 23 51 2d 31 0d  05 dc 05 e1 0d 05 e6 04  |Q=.#Q-1.........|
000008e0  0d 06 4a 11 dd f2 6c 6f  61 64 5a 38 30 28 46 24  |..J...loadZ80(F$|
000008f0  29 0d 06 54 07 ea 20 51  0d 06 5e 15 c8 99 20 22  |)..T.. Q..^... "|
00000900  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 06 68  |Hourglass_On"..h|
00000910  1e e7 20 6d 69 6e 69 6d  69 73 65 64 25 20 8c 20  |.. minimised% . |
00000920  f2 64 65 6d 69 6e 69 6d  69 73 65 0d 06 72 04 0d  |.deminimise..r..|
00000930  06 7c 09 51 3d 8e 46 24  0d 06 86 09 cf 23 51 3d  |.|.Q=.F$.....#Q=|
00000940  36 0d 06 90 15 e7 20 9a  23 51 3d 30 20 80 20 9a  |6..... .#Q=0 . .|
00000950  23 51 3d 30 20 8c 0d 06  9a 0c 6e 65 77 5a 38 30  |#Q=0 .....newZ80|
00000960  3d b9 0d 06 a4 36 cf 23  51 3d 33 30 3a 68 65 61  |=....6.#Q=30:hea|
00000970  64 65 72 5f 6c 65 6e 67  74 68 25 3d 9a 23 51 3a  |der_length%=.#Q:|
00000980  68 65 61 64 65 72 5f 6c  65 6e 67 74 68 25 2b 3d  |header_length%+=|
00000990  28 9a 23 51 29 3c 3c 38  0d 06 ae 0a cf 23 51 3d  |(.#Q)<<8.....#Q=|
000009a0  33 34 0d 06 b8 53 e7 20  9a 23 51 3e 31 20 8c 20  |34...S. .#Q>1 . |
000009b0  d9 23 51 3a 85 20 31 2c  22 5a 38 30 45 6d 20 63  |.#Q:. 1,"Z80Em c|
000009c0  61 6e 6e 6f 74 20 6c 6f  61 64 20 74 68 69 73 20  |annot load this |
000009d0  73 6e 61 70 73 68 6f 74  20 2d 20 69 74 20 69 73  |snapshot - it is|
000009e0  20 66 6f 72 20 61 20 53  70 65 63 74 72 75 6d 20  | for a Spectrum |
000009f0  31 32 38 4b 22 0d 06 c2  0a cf 23 51 3d 33 32 0d  |128K".....#Q=32.|
00000a00  06 cc 0c 50 63 3f 32 3d  9a 23 51 0d 06 d6 0c 50  |...Pc?2=.#Q....P|
00000a10  63 3f 33 3d 9a 23 51 0d  06 e0 05 cc 0d 06 ea 0c  |c?3=.#Q.........|
00000a20  6e 65 77 5a 38 30 3d a3  0d 06 f4 09 cf 23 51 3d  |newZ80=......#Q=|
00000a30  36 0d 06 fe 0c 50 63 3f  32 3d 9a 23 51 0d 07 08  |6....Pc?2=.#Q...|
00000a40  0c 50 63 3f 33 3d 9a 23  51 0d 07 12 05 cd 0d 07  |.Pc?3=.#Q.......|
00000a50  1c 04 0d 07 26 09 cf 23  51 3d 30 0d 07 30 04 0d  |....&..#Q=0..0..|
00000a60  07 3a 0a 3f 61 3d 9a 23  51 0d 07 44 12 73 70 3f  |.:.?a=.#Q..D.sp?|
00000a70  30 3d 9a 23 51 20 3a 20  f4 20 66 0d 07 4e 17 62  |0=.#Q : . f..N.b|
00000a80  63 3f 30 3d 9a 23 51 20  3a 20 62 63 3f 31 3d 9a  |c?0=.#Q : bc?1=.|
00000a90  23 51 0d 07 58 17 68 6c  3f 30 3d 9a 23 51 20 3a  |#Q..X.hl?0=.#Q :|
00000aa0  20 68 6c 3f 31 3d 9a 23  51 0d 07 62 13 51 25 3d  | hl?1=.#Q..b.Q%=|
00000ab0  9a 23 51 20 3a 20 51 25  3d 9a 23 51 0d 07 6c 17  |.#Q : Q%=.#Q..l.|
00000ac0  73 70 3f 32 3d 9a 23 51  20 3a 20 73 70 3f 33 3d  |sp?2=.#Q : sp?3=|
00000ad0  9a 23 51 0d 07 76 0a 69  25 3d 9a 23 51 0d 07 80  |.#Q..v.i%=.#Q...|
00000ae0  16 72 25 3d 9a 23 51 20  3a 20 72 25 3d b3 28 31  |.r%=.#Q : r%=.(1|
00000af0  32 37 29 0d 07 8a 1c 51  25 3d 9a 23 51 20 3a 20  |27)....Q%=.#Q : |
00000b00  e7 20 51 25 3d 32 35 35  20 8c 20 51 25 3d 31 0d  |. Q%=255 . Q%=1.|
00000b10  07 94 20 3f 62 6f 72 64  65 72 5f 63 6f 6c 3d 28  |.. ?border_col=(|
00000b20  51 25 20 3e 3e 20 31 29  20 80 20 25 31 31 31 0d  |Q% >> 1) . %111.|
00000b30  07 9e 29 21 72 69 3d 28  72 25 20 3c 3c 20 32 35  |..)!ri=(r% << 25|
00000b40  29 20 2b 20 28 69 25 20  3c 3c 20 31 29 20 2b 20  |) + (i% << 1) + |
00000b50  28 51 25 20 80 20 31 29  0d 07 a8 13 43 25 3d 51  |(Q% . 1)....C%=Q|
00000b60  25 20 80 20 25 31 30 30  30 30 30 0d 07 b2 17 64  |% . %100000....d|
00000b70  65 3f 30 3d 9a 23 51 20  3a 20 64 65 3f 31 3d 9a  |e?0=.#Q : de?1=.|
00000b80  23 51 0d 07 bc 19 62 63  32 3f 30 3d 9a 23 51 20  |#Q....bc2?0=.#Q |
00000b90  3a 20 62 63 32 3f 31 3d  9a 23 51 0d 07 c6 19 64  |: bc2?1=.#Q....d|
00000ba0  65 32 3f 30 3d 9a 23 51  20 3a 20 64 65 32 3f 31  |e2?0=.#Q : de2?1|
00000bb0  3d 9a 23 51 0d 07 d0 19  68 6c 32 3f 30 3d 9a 23  |=.#Q....hl2?0=.#|
00000bc0  51 20 3a 20 68 6c 32 3f  31 3d 9a 23 51 0d 07 da  |Q : hl2?1=.#Q...|
00000bd0  0b 3f 61 32 3d 9a 23 51  0d 07 e4 0b 3f 66 32 3d  |.?a2=.#Q....?f2=|
00000be0  9a 23 51 0d 07 ee 17 69  79 3f 30 3d 9a 23 51 20  |.#Q....iy?0=.#Q |
00000bf0  3a 20 69 79 3f 31 3d 9a  23 51 0d 07 f8 17 69 78  |: iy?1=.#Q....ix|
00000c00  3f 30 3d 9a 23 51 20 3a  20 69 78 3f 31 3d 9a 23  |?0=.#Q : ix?1=.#|
00000c10  51 0d 08 02 24 69 66 66  31 25 3d 9a 23 51 20 3a  |Q...$iff1%=.#Q :|
00000c20  20 e7 20 69 66 66 31 25  3c 3e 30 20 8c 20 69 66  | . iff1%<>0 . if|
00000c30  66 31 25 3d 31 0d 08 0c  24 69 66 66 32 25 3d 9a  |f1%=1...$iff2%=.|
00000c40  23 51 20 3a 20 e7 20 69  66 66 32 25 3c 3e 30 20  |#Q : . iff2%<>0 |
00000c50  8c 20 69 66 66 32 25 3d  31 0d 08 16 2a 51 25 3d  |. iff2%=1...*Q%=|
00000c60  9a 23 51 20 3a 20 49 4d  25 3d 51 25 20 80 20 25  |.#Q : IM%=Q% . %|
00000c70  31 31 20 3a 20 e7 20 49  4d 25 3d 32 20 49 4d 25  |11 : . IM%=2 IM%|
00000c80  2b 3d 31 0d 08 20 26 73  70 3f 31 3d 49 4d 25 2b  |+=1.. &sp?1=IM%+|
00000c90  28 69 66 66 31 25 20 3c  3c 20 33 29 2b 28 69 66  |(iff1% << 3)+(if|
00000ca0  66 32 25 20 3c 3c 20 32  29 0d 08 2a 04 0d 08 34  |f2% << 2)..*...4|
00000cb0  2e e7 20 8f 23 51 3c 3e  33 30 20 8c 20 d9 23 51  |.. .#Q<>30 . .#Q|
00000cc0  3a 85 20 31 2c 22 45 72  72 6f 72 20 69 6e 20 5a  |:. 1,"Error in Z|
00000cd0  38 30 20 6c 6f 61 64 69  6e 67 22 0d 08 3e 0e e7  |80 loading"..>..|
00000ce0  20 6e 65 77 5a 38 30 20  8c 0d 08 48 1e 20 20 cf  | newZ80 ...H.  .|
00000cf0  23 51 3d 8f 23 51 2b 68  65 61 64 65 72 5f 6c 65  |#Q=.#Q+header_le|
00000d00  6e 67 74 68 25 2b 32 0d  08 52 07 20 20 f5 0d 08  |ngth%+2..R.  ...|
00000d10  5c 28 20 20 6c 65 6e 25  3d 9a 23 51 20 3a 20 6c  |\(  len%=.#Q : l|
00000d20  65 6e 25 2b 3d 9a 23 51  20 3c 3c 20 38 20 3a 20  |en%+=.#Q << 8 : |
00000d30  51 25 3d 9a 23 51 0d 08  66 0e 20 20 70 74 72 25  |Q%=.#Q..f.  ptr%|
00000d40  3d 8f 23 51 0d 08 70 0d  20 20 c8 8e 20 51 25 20  |=.#Q..p.  .. Q% |
00000d50  ca 0d 08 7a 27 20 20 c9  20 30 20 3a 20 f2 6c 6f  |...z'  . 0 : .lo|
00000d60  61 64 5f 63 6f 6d 70 72  65 73 73 65 64 28 30 2c  |ad_compressed(0,|
00000d70  26 34 30 30 30 2c 31 29  0d 08 84 2b 20 20 c9 20  |&4000,1)...+  . |
00000d80  34 20 3a 20 f2 6c 6f 61  64 5f 63 6f 6d 70 72 65  |4 : .load_compre|
00000d90  73 73 65 64 28 26 38 30  30 30 2c 26 43 30 30 30  |ssed(&8000,&C000|
00000da0  2c 31 29 0d 08 8e 2c 20  20 c9 20 35 20 3a 20 f2  |,1)...,  . 5 : .|
00000db0  6c 6f 61 64 5f 63 6f 6d  70 72 65 73 73 65 64 28  |load_compressed(|
00000dc0  26 43 30 30 30 2c 26 31  30 30 30 30 2c 31 29 0d  |&C000,&10000,1).|
00000dd0  08 98 2b 20 20 c9 20 38  20 3a 20 f2 6c 6f 61 64  |..+  . 8 : .load|
00000de0  5f 63 6f 6d 70 72 65 73  73 65 64 28 26 34 30 30  |_compressed(&400|
00000df0  30 2c 26 38 30 30 30 2c  31 29 0d 08 a2 2a 20 20  |0,&8000,1)...*  |
00000e00  c9 20 31 2c 32 2c 33 2c  36 2c 37 2c 39 2c 31 30  |. 1,2,3,6,7,9,10|
00000e10  20 3a 20 f4 20 31 32 38  6b 20 73 74 75 66 66 2c  | : . 128k stuff,|
00000e20  20 65 74 63 0d 08 ac 24  20 20 7f 20 3a 20 d9 23  | etc...$  . : .#|
00000e30  51 3a 85 20 31 2c 22 43  6f 72 72 75 70 74 20 5a  |Q:. 1,"Corrupt Z|
00000e40  38 30 20 66 69 6c 65 22  0d 08 b6 07 20 20 cb 0d  |80 file"....  ..|
00000e50  08 c0 3e 20 20 e7 20 94  28 70 74 72 25 2b 6c 65  |..>  . .(ptr%+le|
00000e60  6e 25 2d 8f 23 51 29 3e  31 20 8c 20 85 20 31 2c  |n%-.#Q)>1 . . 1,|
00000e70  c3 28 70 74 72 25 2b 6c  65 6e 25 29 2b 22 20 22  |.(ptr%+len%)+" "|
00000e80  2b c3 8f 23 51 2b 22 20  22 2b c3 51 25 0d 08 ca  |+..#Q+" "+.Q%...|
00000e90  11 20 20 fd 20 a2 23 51  2d 8f 23 51 3c 32 0d 08  |.  . .#Q-.#Q<2..|
00000ea0  d4 06 20 20 0d 08 de 05  cc 0d 08 e8 27 20 20 f2  |..  ........'  .|
00000eb0  6c 6f 61 64 5f 63 6f 6d  70 72 65 73 73 65 64 28  |load_compressed(|
00000ec0  26 34 30 30 30 2c 26 31  30 30 30 30 2c 43 25 29  |&4000,&10000,C%)|
00000ed0  0d 08 f2 3b 20 20 51 25  3d 9a 23 51 20 3a 20 51  |...;  Q%=.#Q : Q|
00000ee0  25 2b 3d 9a 23 51 20 3c  3c 20 38 20 3a 20 51 25  |%+=.#Q << 8 : Q%|
00000ef0  2b 3d 9a 23 51 20 3c 3c  20 31 36 20 3a 20 51 25  |+=.#Q << 16 : Q%|
00000f00  2b 3d 9a 23 51 20 3c 3c  20 32 34 0d 08 fc 36 20  |+=.#Q << 24...6 |
00000f10  20 e7 20 51 25 3c 3e 26  30 30 45 44 45 44 30 30  | . Q%<>&00EDED00|
00000f20  20 8c 20 d9 23 51 3a 85  20 31 2c 22 45 72 72 6f  | . .#Q:. 1,"Erro|
00000f30  72 20 69 6e 20 5a 38 30  20 6c 6f 61 64 69 6e 67  |r in Z80 loading|
00000f40  22 0d 09 06 05 cd 0d 09  10 13 6c 61 73 74 5f 6c  |".........last_l|
00000f50  6f 61 64 65 64 24 3d 46  24 0d 09 1a 16 c8 99 20  |oaded$=F$...... |
00000f60  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00000f70  09 24 07 d9 23 51 0d 09  2e 05 e1 0d 09 38 04 0d  |.$..#Q.......8..|
00000f80  0a 82 11 dd f2 6c 6f 61  64 37 30 32 28 46 24 29  |.....load702(F$)|
00000f90  0d 0a 8c 11 ea 20 41 25  2c 42 25 2c 43 25 2c 44  |..... A%,B%,C%,D|
00000fa0  25 0d 0a 96 1e e7 20 6d  69 6e 69 6d 69 73 65 64  |%..... minimised|
00000fb0  25 20 8c 20 f2 64 65 6d  69 6e 69 6d 69 73 65 0d  |% . .deminimise.|
00000fc0  0a a0 0b 51 3d 8e 28 46  24 29 0d 0a aa 0c 3f 61  |...Q=.(F$)....?a|
00000fd0  3d a4 62 67 65 74 0d 0a  b4 13 3f 73 70 3d a4 62  |=.bget....?sp=.b|
00000fe0  67 65 74 20 3a 20 f4 20  66 0d 0a be 1b 62 63 3f  |get : . f....bc?|
00000ff0  31 3d a4 62 67 65 74 20  3a 20 62 63 3f 30 3d a4  |1=.bget : bc?0=.|
00001000  62 67 65 74 0d 0a c8 1b  64 65 3f 31 3d a4 62 67  |bget....de?1=.bg|
00001010  65 74 20 3a 20 64 65 3f  30 3d a4 62 67 65 74 0d  |et : de?0=.bget.|
00001020  0a d2 1b 68 6c 3f 31 3d  a4 62 67 65 74 20 3a 20  |...hl?1=.bget : |
00001030  68 6c 3f 30 3d a4 62 67  65 74 0d 0a dc 18 50 63  |hl?0=.bget....Pc|
00001040  3f 32 3d a4 62 67 65 74  20 3a 20 50 63 3f 33 3d  |?2=.bget : Pc?3=|
00001050  42 25 0d 0a e6 0c 41 25  3d a4 62 67 65 74 0d 0a  |B%....A%=.bget..|
00001060  f0 18 73 70 3f 32 3d a4  62 67 65 74 20 3a 20 73  |..sp?2=.bget : s|
00001070  70 3f 33 3d 42 25 0d 0a  fa 14 cf 23 51 3d 26 39  |p?3=B%.....#Q=&9|
00001080  34 20 3a 20 72 25 3d 9a  23 51 0d 0b 04 24 cf 23  |4 : r%=.#Q...$.#|
00001090  51 3d 26 39 43 20 3a 20  21 62 6f 72 64 65 72 5f  |Q=&9C : !border_|
000010a0  63 6f 6c 3d 9a 23 51 20  80 20 25 31 31 31 0d 0b  |col=.#Q . %111..|
000010b0  0e 26 cf 23 51 3d 26 41  34 20 3a 20 49 4d 25 3d  |.&.#Q=&A4 : IM%=|
000010c0  9a 23 51 20 3a 20 e7 20  49 4d 25 3d 32 20 49 4d  |.#Q : . IM%=2 IM|
000010d0  25 2b 3d 31 0d 0b 18 14  cf 23 51 3d 26 42 45 20  |%+=1.....#Q=&BE |
000010e0  3a 20 69 25 3d 9a 23 51  0d 0b 22 33 f4 53 57 41  |: i%=.#Q.."3.SWA|
000010f0  50 20 69 25 2c 72 25 20  3a 20 52 45 4d 20 74 72  |P i%,r% : REM tr|
00001100  79 20 74 61 6b 69 6e 67  20 74 68 69 73 20 6c 69  |y taking this li|
00001110  6e 65 20 6f 75 74 2e 2e  2e 2e 2e 0d 0b 2c 2a 21  |ne out.......,*!|
00001120  72 69 3d 28 72 25 20 3c  3c 20 32 35 29 20 2b 20  |ri=(r% << 25) + |
00001130  28 69 25 20 3c 3c 20 31  29 20 2b 20 28 72 25 20  |(i% << 1) + (r% |
00001140  3e 3e 20 37 29 0d 0b 36  23 69 66 66 25 3d 9a 23  |>> 7)..6#iff%=.#|
00001150  51 20 3a 20 e7 20 69 66  66 25 3c 3e 30 20 69 66  |Q : . iff%<>0 if|
00001160  66 25 3d 25 31 31 30 30  0d 0b 40 36 f4 69 66 66  |f%=%1100..@6.iff|
00001170  25 3d 25 31 31 30 30 2d  69 66 66 25 20 3a 20 52  |%=%1100-iff% : R|
00001180  45 4d 20 74 72 79 20 74  61 6b 69 6e 67 20 74 68  |EM try taking th|
00001190  69 73 20 6c 69 6e 65 20  6f 75 74 2e 2e 2e 0d 0b  |is line out.....|
000011a0  4a 11 73 70 3f 31 3d 49  4d 25 2b 69 66 66 25 0d  |J.sp?1=IM%+iff%.|
000011b0  0b 54 0b cf 23 51 3d 26  45 43 0d 0b 5e 0b 3f 61  |.T..#Q=&EC..^.?a|
000011c0  32 3d 9a 23 51 0d 0b 68  0b 3f 66 32 3d 9a 23 51  |2=.#Q..h.?f2=.#Q|
000011d0  0d 0b 72 13 41 25 3d 9a  23 51 20 3a 20 41 25 3d  |..r.A%=.#Q : A%=|
000011e0  9a 23 51 0d 0b 7c 19 62  63 32 3f 31 3d 9a 23 51  |.#Q..|.bc2?1=.#Q|
000011f0  20 3a 20 62 63 32 3f 30  3d 9a 23 51 0d 0b 86 13  | : bc2?0=.#Q....|
00001200  41 25 3d 9a 23 51 20 3a  20 41 25 3d 9a 23 51 0d  |A%=.#Q : A%=.#Q.|
00001210  0b 90 19 64 65 32 3f 31  3d 9a 23 51 20 3a 20 64  |...de2?1=.#Q : d|
00001220  65 32 3f 30 3d 9a 23 51  0d 0b 9a 19 68 6c 32 3f  |e2?0=.#Q....hl2?|
00001230  31 3d 9a 23 51 20 3a 20  68 6c 32 3f 30 3d 9a 23  |1=.#Q : hl2?0=.#|
00001240  51 0d 0b a4 17 69 78 3f  30 3d 9a 23 51 20 3a 20  |Q....ix?0=.#Q : |
00001250  69 78 3f 31 3d 9a 23 51  0d 0b ae 13 41 25 3d 9a  |ix?1=.#Q....A%=.|
00001260  23 51 20 3a 20 41 25 3d  9a 23 51 0d 0b b8 17 69  |#Q : A%=.#Q....i|
00001270  79 3f 30 3d 9a 23 51 20  3a 20 69 79 3f 31 3d 9a  |y?0=.#Q : iy?1=.|
00001280  23 51 0d 0b c2 13 41 25  3d 9a 23 51 20 3a 20 41  |#Q....A%=.#Q : A|
00001290  25 3d 9a 23 51 0d 0b cc  22 c8 99 20 22 4f 53 5f  |%=.#Q...".. "OS_|
000012a0  47 42 50 42 22 2c 34 2c  51 2c 5a 38 30 6d 65 6d  |GBPB",4,Q,Z80mem|
000012b0  2c 26 31 30 30 30 30 0d  0b d6 07 d9 23 51 0d 0b  |,&10000.....#Q..|
000012c0  e0 13 6c 61 73 74 5f 6c  6f 61 64 65 64 24 3d 46  |..last_loaded$=F|
000012d0  24 0d 0b ea 05 e1 0d 0b  f4 04 0d 0b fe 0a dd a4  |$...............|
000012e0  62 67 65 74 0d 0c 08 05  ea 0d 0c 12 0a 41 25 3d  |bget.........A%=|
000012f0  9a 23 51 0d 0c 1c 0a 42  25 3d 9a 23 51 0d 0c 26  |.#Q....B%=.#Q..&|
00001300  0a 43 25 3d 9a 23 51 0d  0c 30 0a 44 25 3d 9a 23  |.C%=.#Q..0.D%=.#|
00001310  51 0d 0c 3a 07 3d 41 25  0d 0c 44 04 0d 0c 4e 11  |Q..:.=A%..D...N.|
00001320  dd f2 6c 6f 61 64 73 6e  61 28 46 24 29 0d 0c 58  |..loadsna(F$)..X|
00001330  1e e7 20 6d 69 6e 69 6d  69 73 65 64 25 20 8c 20  |.. minimised% . |
00001340  f2 64 65 6d 69 6e 69 6d  69 73 65 0d 0c 62 27 ff  |.deminimise..b'.|
00001350  22 4c 4f 41 44 20 22 2b  46 24 2b 22 20 22 2b c3  |"LOAD "+F$+" "+.|
00001360  7e 28 5a 38 30 6d 65 6d  2b 26 34 30 30 30 2d 32  |~(Z80mem+&4000-2|
00001370  37 29 0d 0c 6c 0c f2 6c  6f 61 64 52 4f 4d 0d 0c  |7)..l..loadROM..|
00001380  76 09 51 3d 8e 46 24 0d  0c 80 0a 69 25 3d 9a 23  |v.Q=.F$....i%=.#|
00001390  51 0d 0c 8a 0d 68 6c 32  3f 30 3d 9a 23 51 0d 0c  |Q....hl2?0=.#Q..|
000013a0  94 0d 68 6c 32 3f 31 3d  9a 23 51 0d 0c 9e 0d 64  |..hl2?1=.#Q....d|
000013b0  65 32 3f 30 3d 9a 23 51  0d 0c a8 0d 64 65 32 3f  |e2?0=.#Q....de2?|
000013c0  31 3d 9a 23 51 0d 0c b2  0d 62 63 32 3f 30 3d 9a  |1=.#Q....bc2?0=.|
000013d0  23 51 0d 0c bc 0d 62 63  32 3f 31 3d 9a 23 51 0d  |#Q....bc2?1=.#Q.|
000013e0  0c c6 0b 3f 66 32 3d 9a  23 51 0d 0c d0 0b 3f 61  |...?f2=.#Q....?a|
000013f0  32 3d 9a 23 51 0d 0c da  0c 68 6c 3f 30 3d 9a 23  |2=.#Q....hl?0=.#|
00001400  51 0d 0c e4 0c 68 6c 3f  31 3d 9a 23 51 0d 0c ee  |Q....hl?1=.#Q...|
00001410  0c 64 65 3f 30 3d 9a 23  51 0d 0c f8 0c 64 65 3f  |.de?0=.#Q....de?|
00001420  31 3d 9a 23 51 0d 0d 02  0c 62 63 3f 30 3d 9a 23  |1=.#Q....bc?0=.#|
00001430  51 0d 0d 0c 0c 62 63 3f  31 3d 9a 23 51 0d 0d 16  |Q....bc?1=.#Q...|
00001440  0c 69 79 3f 30 3d 9a 23  51 0d 0d 20 0c 69 79 3f  |.iy?0=.#Q.. .iy?|
00001450  31 3d 9a 23 51 0d 0d 2a  0c 69 78 3f 30 3d 9a 23  |1=.#Q..*.ix?0=.#|
00001460  51 0d 0d 34 0c 69 78 3f  31 3d 9a 23 51 0d 0d 3e  |Q..4.ix?1=.#Q..>|
00001470  16 69 66 66 32 25 3d 28  9a 23 51 20 80 20 25 31  |.iff2%=(.#Q . %1|
00001480  30 30 29 0d 0d 48 2c 72  25 3d 9a 23 51 20 3a 20  |00)..H,r%=.#Q : |
00001490  f4 72 25 3d 52 4e 44 28  31 32 37 29 20 2b 20 72  |.r%=RND(127) + r|
000014a0  25 20 41 4e 44 20 25 31  30 30 30 30 30 30 30 0d  |% AND %10000000.|
000014b0  0d 52 2a 21 72 69 3d 28  69 25 20 3c 3c 20 31 29  |.R*!ri=(i% << 1)|
000014c0  20 2b 20 28 72 25 20 3e  3e 20 37 29 20 2b 20 28  | + (r% >> 7) + (|
000014d0  72 25 20 3c 3c 20 32 35  29 0d 0d 5c 12 73 70 3f  |r% << 25)..\.sp?|
000014e0  30 3d 9a 23 51 20 3a 20  f4 20 66 0d 0d 66 0a 3f  |0=.#Q : . f..f.?|
000014f0  61 3d 9a 23 51 0d 0d 70  0c 73 70 3f 32 3d 9a 23  |a=.#Q..p.sp?2=.#|
00001500  51 0d 0d 7a 0c 73 70 3f  33 3d 9a 23 51 0d 0d 84  |Q..z.sp?3=.#Q...|
00001510  1d 49 4d 25 3d 9a 23 51  20 3a 20 e7 20 49 4d 25  |.IM%=.#Q : . IM%|
00001520  3d 32 20 8c 20 49 4d 25  3d 33 0d 0d 8e 1a 73 70  |=2 . IM%=3....sp|
00001530  3f 31 3d 49 4d 25 2b 69  66 66 32 25 2b 32 2a 69  |?1=IM%+iff2%+2*i|
00001540  66 66 32 25 0d 0d 98 13  3f 62 6f 72 64 65 72 5f  |ff2%....?border_|
00001550  63 6f 6c 3d 9a 23 51 0d  0d a2 07 d9 23 51 0d 0d  |col=.#Q.....#Q..|
00001560  ac 04 0d 0d b6 14 53 70  3d 73 70 3f 32 2b 32 35  |......Sp=sp?2+25|
00001570  36 2a 73 70 3f 33 0d 0d  c0 31 21 50 63 3d 28 53  |6*sp?3...1!Pc=(S|
00001580  70 3f 5a 38 30 6d 65 6d  20 3c 3c 20 31 36 29 20  |p?Z80mem << 16) |
00001590  2b 20 28 53 70 3f 28 5a  38 30 6d 65 6d 2b 31 29  |+ (Sp?(Z80mem+1)|
000015a0  20 3c 3c 20 32 34 29 0d  0d ca 09 53 70 2b 3d 32  | << 24)....Sp+=2|
000015b0  0d 0d d4 11 73 70 3f 32  3d 53 70 20 83 20 32 35  |....sp?2=Sp . 25|
000015c0  36 0d 0d de 11 73 70 3f  33 3d 53 70 20 81 20 32  |6....sp?3=Sp . 2|
000015d0  35 36 0d 0d e8 13 6c 61  73 74 5f 6c 6f 61 64 65  |56....last_loade|
000015e0  64 24 3d 46 24 0d 0d f2  04 0d 0d fc 05 e1 0d 0e  |d$=F$...........|
000015f0  06 04 0d 0f be 0d dd f2  69 6e 73 74 61 6c 6c 0d  |........install.|
00001600  0f c8 19 ea 20 73 78 25  2c 73 79 25 2c 73 6d 25  |.... sx%,sy%,sm%|
00001610  2c 70 78 25 2c 70 79 25  0d 0f d2 16 73 70 72 69  |,px%,py%....spri|
00001620  74 65 24 20 3d 20 22 21  5a 38 30 45 6d 22 0d 0f  |te$ = "!Z80Em"..|
00001630  dc 34 c8 99 20 22 57 69  6d 70 5f 53 70 72 69 74  |.4.. "Wimp_Sprit|
00001640  65 4f 70 22 2c 34 30 2c  2c 73 70 72 69 74 65 24  |eOp",40,,sprite$|
00001650  20 b8 20 2c 2c 2c 73 78  25 2c 73 79 25 2c 2c 73  | . ,,,sx%,sy%,,s|
00001660  6d 25 0d 0f e6 39 c8 99  20 22 4f 53 5f 52 65 61  |m%...9.. "OS_Rea|
00001670  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 73  |dModeVariable",s|
00001680  6d 25 2c 34 20 b8 20 2c  2c 70 78 25 20 3a 20 73  |m%,4 . ,,px% : s|
00001690  78 25 3d 73 78 25 3c 3c  70 78 25 0d 0f f0 39 c8  |x%=sx%<<px%...9.|
000016a0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
000016b0  72 69 61 62 6c 65 22 2c  73 6d 25 2c 35 20 b8 20  |riable",sm%,5 . |
000016c0  2c 2c 70 79 25 20 3a 20  73 79 25 3d 73 79 25 3c  |,,py% : sy%=sy%<|
000016d0  3c 70 79 25 0d 0f fa 0a  21 71 25 3d 2d 31 0d 10  |<py%....!q%=-1..|
000016e0  04 38 71 25 21 34 3d 30  3a 71 25 21 38 3d 28 36  |.8q%!4=0:q%!8=(6|
000016f0  38 2d 73 79 25 29 2f 32  3a 71 25 21 31 32 3d 71  |8-sy%)/2:q%!12=q|
00001700  25 21 34 2b 73 78 25 3a  71 25 21 31 36 3d 71 25  |%!4+sx%:q%!16=q%|
00001710  21 38 2b 73 79 25 0d 10  0e 13 71 25 21 32 30 3d  |!8+sy%....q%!20=|
00001720  26 31 37 30 30 33 30 30  41 0d 10 18 14 24 28 71  |&1700300A....$(q|
00001730  25 2b 32 34 29 3d 73 70  72 69 74 65 24 0d 10 22  |%+24)=sprite$.."|
00001740  22 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |".. "Wimp_Create|
00001750  49 63 6f 6e 22 2c 2c 71  25 20 b8 20 21 71 25 0d  |Icon",,q% . !q%.|
00001760  10 2c 05 e1 0d 10 36 04  0d 10 40 0a dd f2 69 6e  |.,....6...@...in|
00001770  69 74 0d 10 4a 13 de 20  74 20 34 3a 24 74 3d 22  |it..J.. t 4:$t="|
00001780  54 41 53 4b 22 0d 10 54  33 c8 99 20 22 57 69 6d  |TASK"..T3.. "Wim|
00001790  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
000017a0  30 2c 21 74 2c 22 5a 38  30 45 6d 22 20 b8 20 52  |0,!t,"Z80Em" . R|
000017b0  4f 25 2c 68 61 6e 64 25  0d 10 5e 3b de 20 71 25  |O%,hand%..^;. q%|
000017c0  20 32 35 36 2c 20 69 63  6f 6e 6d 65 6e 75 25 20  | 256, iconmenu% |
000017d0  32 30 30 2c 20 6f 70 74  69 6f 6e 6d 65 6e 75 25  |200, optionmenu%|
000017e0  20 32 30 30 2c 20 6d 6f  64 65 6d 65 6e 75 25 20  | 200, modemenu% |
000017f0  31 30 30 0d 10 68 31 de  20 73 70 65 65 64 6d 65  |100..h1. speedme|
00001800  6e 75 25 20 35 30 2c 20  73 70 65 65 64 76 61 6c  |nu% 50, speedval|
00001810  69 64 25 20 31 32 2c 20  73 70 65 65 64 74 65 78  |id% 12, speedtex|
00001820  74 25 20 38 0d 10 72 38  de 20 70 6f 6b 65 6d 65  |t% 8..r8. pokeme|
00001830  6e 75 25 20 35 30 2c 20  70 6f 6b 65 76 61 6c 69  |nu% 50, pokevali|
00001840  64 25 20 31 32 2c 20 70  6f 6b 65 74 65 78 74 25  |d% 12, poketext%|
00001850  20 31 32 2c 20 64 72 61  67 20 34 30 0d 10 7c 54  | 12, drag 40..|T|
00001860  51 3d 8e 22 3c 5a 38 30  45 6d 24 52 65 73 3e 2e  |Q=."<Z80Em$Res>.|
00001870  43 6f 6d 70 72 65 73 73  22 20 3a 20 de 20 63 6f  |Compress" : . co|
00001880  6d 70 72 65 73 73 20 a2  23 51 20 3a 20 c8 99 20  |mpress .#Q : .. |
00001890  22 4f 53 5f 47 42 50 42  22 2c 34 2c 51 2c 63 6f  |"OS_GBPB",4,Q,co|
000018a0  6d 70 72 65 73 73 2c a2  23 51 20 3a 20 d9 23 51  |mpress,.#Q : .#Q|
000018b0  0d 10 86 5a 51 3d 8e 22  3c 5a 38 30 45 6d 24 52  |...ZQ=."<Z80Em$R|
000018c0  65 73 3e 2e 44 65 63 6f  6d 70 72 65 73 73 22 20  |es>.Decompress" |
000018d0  3a 20 de 20 64 65 63 6f  6d 70 72 65 73 73 20 a2  |: . decompress .|
000018e0  23 51 20 3a 20 c8 99 20  22 4f 53 5f 47 42 50 42  |#Q : .. "OS_GBPB|
000018f0  22 2c 34 2c 51 2c 64 65  63 6f 6d 70 72 65 73 73  |",4,Q,decompress|
00001900  2c a2 23 51 20 3a 20 d9  23 51 0d 10 90 0c f2 69  |,.#Q : .#Q.....i|
00001910  6e 73 74 61 6c 6c 0d 10  9a 04 0d 10 a4 26 74 61  |nstall.......&ta|
00001920  70 65 5f 66 69 6c 65 24  3d 22 3c 5a 38 30 45 6d  |pe_file$="<Z80Em|
00001930  24 44 69 72 3e 2e 5e 2e  74 61 70 65 2d 69 6e 22  |$Dir>.^.tape-in"|
00001940  0d 10 ae 04 0d 10 b8 15  c8 99 20 22 5a 38 30 5f  |.......... "Z80_|
00001950  52 65 67 69 73 74 65 72  22 0d 10 c2 11 5a 38 30  |Register"....Z80|
00001960  6d 65 6d 3d 26 31 30 30  30 30 0d 10 cc 10 63 6f  |mem=&10000....co|
00001970  64 65 25 3d 26 32 30 30  30 30 0d 10 d6 04 0d 10  |de%=&20000......|
00001980  e0 11 54 41 50 63 6f 75  6e 74 65 72 25 3d 30 0d  |..TAPcounter%=0.|
00001990  10 ea 25 54 41 50 66 69  6c 65 24 3d 22 3c 5a 38  |..%TAPfile$="<Z8|
000019a0  30 45 6d 24 44 69 72 3e  2e 44 65 66 61 75 6c 74  |0Em$Dir>.Default|
000019b0  54 41 50 22 0d 10 f4 04  0d 10 fe 1b 51 3d 8e 22  |TAP"........Q=."|
000019c0  3c 5a 38 30 45 6d 24 44  69 72 3e 2e 4b 65 79 4d  |<Z80Em$Dir>.KeyM|
000019d0  61 70 22 0d 11 08 0c e7  20 51 3c 3e 30 20 8c 0d  |ap"..... Q<>0 ..|
000019e0  11 12 54 e7 20 a2 23 51  3d 31 30 32 34 20 8c 20  |..T. .#Q=1024 . |
000019f0  c8 99 20 22 5a 38 30 5f  52 65 61 64 4b 65 79 4d  |.. "Z80_ReadKeyM|
00001a00  61 70 41 64 64 72 65 73  73 22 20 b8 20 41 25 20  |apAddress" . A% |
00001a10  3a 20 ff 20 22 4c 6f 61  64 20 3c 5a 38 30 45 6d  |: . "Load <Z80Em|
00001a20  24 44 69 72 3e 2e 4b 65  79 4d 61 70 20 22 2b c3  |$Dir>.KeyMap "+.|
00001a30  7e 41 25 0d 11 1c 07 d9  23 51 0d 11 26 05 cd 0d  |~A%.....#Q..&...|
00001a40  11 30 04 0d 11 3a 0c 6d  79 72 65 66 25 3d 30 0d  |.0...:.myref%=0.|
00001a50  11 44 0c 73 6f 6c 69 64  25 3d a3 0d 11 4e 0c 65  |.D.solid%=...N.e|
00001a60  78 61 63 74 25 3d a3 0d  11 58 04 0d 11 62 13 6c  |xact%=...X...b.l|
00001a70  61 73 74 5f 6c 6f 61 64  65 64 24 3d 22 22 0d 11  |ast_loaded$=""..|
00001a80  6c 04 0d 11 76 0a 74 61  70 65 3d a3 0d 11 80 04  |l...v.tape=.....|
00001a90  0d 11 8a 10 e7 20 52 4f  25 3e 3d 33 31 30 20 8c  |..... RO%>=310 .|
00001aa0  0d 11 94 33 c8 99 20 22  4f 53 5f 42 79 74 65 22  |...3.. "OS_Byte"|
00001ab0  2c 31 36 31 2c 31 34 30  20 b8 20 2c 2c 74 25 20  |,161,140 . ,,t% |
00001ac0  3a 20 54 48 52 45 45 44  25 3d 2d 28 74 25 20 80  |: THREED%=-(t% .|
00001ad0  20 31 29 0d 11 9e 74 e7  20 54 48 52 45 45 44 25  | 1)...t. THREED%|
00001ae0  3d b9 20 8c 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |=. . .. "Wimp_Op|
00001af0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 5a  |enTemplate",,"<Z|
00001b00  38 30 45 6d 24 52 65 73  3e 2e 54 65 6d 70 6c 61  |80Em$Res>.Templa|
00001b10  74 65 33 44 22 20 8b 20  c8 99 20 22 57 69 6d 70  |te3D" . .. "Wimp|
00001b20  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
00001b30  22 3c 5a 38 30 45 6d 24  52 65 73 3e 2e 54 65 6d  |"<Z80Em$Res>.Tem|
00001b40  70 6c 61 74 65 73 22 0d  11 a8 33 c8 99 20 22 57  |plates"...3.. "W|
00001b50  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00001b60  22 2c 2c 2d 31 2c 2c 2c  2d 31 2c 22 69 6e 66 6f  |",,-1,,,-1,"info|
00001b70  22 20 b8 20 2c 41 25 2c  42 25 0d 11 b2 37 c8 99  |" . ,A%,B%...7..|
00001b80  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00001b90  61 74 65 22 2c 2c 2d 31  2c 2c 2c 2d 31 2c 22 78  |ate",,-1,,,-1,"x|
00001ba0  66 65 72 5f 73 6e 61 22  20 b8 20 2c 43 25 2c 44  |fer_sna" . ,C%,D|
00001bb0  25 0d 11 bc 37 c8 99 20  22 57 69 6d 70 5f 4c 6f  |%...7.. "Wimp_Lo|
00001bc0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 2d 31 2c  |adTemplate",,-1,|
00001bd0  2c 2c 2d 31 2c 22 78 66  65 72 5f 7a 38 30 22 20  |,,-1,"xfer_z80" |
00001be0  b8 20 2c 45 25 2c 46 25  0d 11 c6 05 cc 0d 11 d0  |. ,E%,F%........|
00001bf0  33 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |3.. "Wimp_OpenTe|
00001c00  6d 70 6c 61 74 65 22 2c  2c 22 3c 5a 38 30 45 6d  |mplate",,"<Z80Em|
00001c10  24 52 65 73 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Res>.Templates"|
00001c20  0d 11 da 35 41 25 3d 37  30 30 20 3a 20 42 25 3d  |...5A%=700 : B%=|
00001c30  33 30 30 20 3a 20 43 25  3d 33 35 30 20 3a 20 44  |300 : C%=350 : D|
00001c40  25 3d 33 35 30 20 3a 20  45 25 3d 43 25 20 3a 20  |%=350 : E%=C% : |
00001c50  46 25 3d 44 25 0d 11 e4  05 cd 0d 11 ee 31 de 20  |F%=D%........1. |
00001c60  78 66 65 72 25 28 31 29  2c 20 78 66 65 72 31 28  |xfer%(1), xfer1(|
00001c70  31 29 2c 20 78 66 65 72  32 28 31 29 2c 20 73 61  |1), xfer2(1), sa|
00001c80  76 65 5f 74 79 70 65 24  28 31 29 0d 11 f8 1c 73  |ve_type$(1)....s|
00001c90  61 76 65 5f 74 79 70 65  24 28 30 29 3d 22 66 69  |ave_type$(0)="fi|
00001ca0  6c 65 5f 62 61 31 22 0d  12 02 1c 73 61 76 65 5f  |le_ba1"....save_|
00001cb0  74 79 70 65 24 28 31 29  3d 22 66 69 6c 65 5f 62  |type$(1)="file_b|
00001cc0  61 30 22 0d 12 0c 1a de  20 62 75 66 66 65 72 32  |a0"..... buffer2|
00001cd0  20 41 25 2c 20 69 63 6f  6e 33 20 42 25 0d 12 16  | A%, icon3 B%...|
00001ce0  1b de 20 51 25 20 43 25  2b 34 20 3a 20 78 66 65  |.. Q% C%+4 : xfe|
00001cf0  72 31 28 30 29 3d 51 25  0d 12 20 19 de 20 51 25  |r1(0)=Q%.. .. Q%|
00001d00  20 44 25 20 3a 20 78 66  65 72 32 28 30 29 3d 51  | D% : xfer2(0)=Q|
00001d10  25 0d 12 2a 1b de 20 51  25 20 45 25 2b 34 20 3a  |%..*.. Q% E%+4 :|
00001d20  20 78 66 65 72 31 28 31  29 3d 51 25 0d 12 34 19  | xfer1(1)=Q%..4.|
00001d30  de 20 51 25 20 46 25 20  3a 20 78 66 65 72 32 28  |. Q% F% : xfer2(|
00001d40  31 29 3d 51 25 0d 12 3e  3c c8 99 20 22 57 69 6d  |1)=Q%..><.. "Wim|
00001d50  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00001d60  2c 62 75 66 66 65 72 32  2c 69 63 6f 6e 33 2c 69  |,buffer2,icon3,i|
00001d70  63 6f 6e 33 2b 42 25 2c  2d 31 2c 22 69 6e 66 6f  |con3+B%,-1,"info|
00001d80  22 0d 12 48 47 c8 99 20  22 57 69 6d 70 5f 4c 6f  |"..HG.. "Wimp_Lo|
00001d90  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 78 66 65  |adTemplate",,xfe|
00001da0  72 31 28 30 29 2c 78 66  65 72 32 28 30 29 2c 78  |r1(0),xfer2(0),x|
00001db0  66 65 72 32 28 30 29 2b  44 25 2c 2d 31 2c 22 78  |fer2(0)+D%,-1,"x|
00001dc0  66 65 72 5f 73 6e 61 22  0d 12 52 47 c8 99 20 22  |fer_sna"..RG.. "|
00001dd0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00001de0  65 22 2c 2c 78 66 65 72  31 28 31 29 2c 78 66 65  |e",,xfer1(1),xfe|
00001df0  72 32 28 31 29 2c 78 66  65 72 32 28 31 29 2b 46  |r2(1),xfer2(1)+F|
00001e00  25 2c 2d 31 2c 22 78 66  65 72 5f 7a 38 30 22 0d  |%,-1,"xfer_z80".|
00001e10  12 5c 1b c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.\... "Wimp_Clos|
00001e20  65 54 65 6d 70 6c 61 74  65 22 0d 12 66 35 c8 99  |eTemplate"..f5..|
00001e30  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00001e40  64 6f 77 22 2c 2c 78 66  65 72 31 28 30 29 20 b8  |dow",,xfer1(0) .|
00001e50  20 41 25 3a 78 66 65 72  25 28 30 29 3d 41 25 0d  | A%:xfer%(0)=A%.|
00001e60  12 70 35 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.p5.. "Wimp_Crea|
00001e70  74 65 57 69 6e 64 6f 77  22 2c 2c 78 66 65 72 31  |teWindow",,xfer1|
00001e80  28 31 29 20 b8 20 41 25  3a 78 66 65 72 25 28 31  |(1) . A%:xfer%(1|
00001e90  29 3d 41 25 0d 12 7a 31  c8 99 20 22 57 69 6d 70  |)=A%..z1.. "Wimp|
00001ea0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00001eb0  62 75 66 66 65 72 32 20  b8 20 41 25 3a 69 6e 66  |buffer2 . A%:inf|
00001ec0  6f 25 3d 41 25 0d 12 84  04 0d 12 8e 11 de 20 62  |o%=A%......... b|
00001ed0  75 66 66 65 72 20 26 31  30 30 0d 12 98 04 0d 12  |uffer &100......|
00001ee0  a2 11 21 62 75 66 66 65  72 3d 69 6e 66 6f 25 0d  |..!buffer=info%.|
00001ef0  12 ac 0e 62 75 66 66 65  72 21 34 3d 39 0d 12 b6  |...buffer!4=9...|
00001f00  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |".. "Wimp_GetIco|
00001f10  6e 53 74 61 74 65 22 2c  2c 62 75 66 66 65 72 0d  |nState",,buffer.|
00001f20  12 c0 1c 24 28 62 75 66  66 65 72 21 32 38 29 3d  |...$(buffer!28)=|
00001f30  76 65 72 73 69 6f 6e 24  2b bd 30 0d 12 ca 04 0d  |version$+.0.....|
00001f40  12 d4 11 21 62 75 66 66  65 72 3d 69 6e 66 6f 25  |...!buffer=info%|
00001f50  0d 12 de 0f 62 75 66 66  65 72 21 34 3d 31 31 0d  |....buffer!4=11.|
00001f60  12 e8 22 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..".. "Wimp_GetI|
00001f70  63 6f 6e 53 74 61 74 65  22 2c 2c 62 75 66 66 65  |conState",,buffe|
00001f80  72 0d 12 f2 2f ff 22 4c  6f 61 64 20 3c 5a 38 30  |r.../."Load <Z80|
00001f90  45 6d 24 52 65 73 3e 2e  53 65 72 69 61 6c 4e 6f  |Em$Res>.SerialNo|
00001fa0  20 22 2b c3 7e 28 62 75  66 66 65 72 21 32 38 29  | "+.~(buffer!28)|
00001fb0  0d 12 fc 04 0d 13 06 37  f4 53 59 53 20 22 4f 53  |.......7.SYS "OS|
00001fc0  5f 46 69 6c 65 22 2c 31  37 2c 22 3c 5a 38 30 45  |_File",17,"<Z80E|
00001fd0  6d 24 44 69 72 3e 2e 43  6f 64 65 54 22 20 54 4f  |m$Dir>.CodeT" TO|
00001fe0  20 51 2c 2c 2c 2c 73 69  7a 65 25 0d 13 10 37 f4  | Q,,,,size%...7.|
00001ff0  49 46 20 51 3c 3e 31 20  54 48 45 4e 20 45 52 52  |IF Q<>1 THEN ERR|
00002000  4f 52 20 30 2c 22 3c 5a  38 30 45 6d 24 44 69 72  |OR 0,"<Z80Em$Dir|
00002010  3e 2e 43 6f 64 65 54 20  6e 6f 74 20 66 6f 75 6e  |>.CodeT not foun|
00002020  64 22 0d 13 1a 34 c8 99  20 22 4f 53 5f 46 69 6c  |d"...4.. "OS_Fil|
00002030  65 22 2c 31 37 2c 22 3c  5a 38 30 45 6d 24 44 69  |e",17,"<Z80Em$Di|
00002040  72 3e 2e 43 6f 64 65 33  22 20 b8 20 51 2c 2c 2c  |r>.Code3" . Q,,,|
00002050  2c 73 69 7a 65 25 0d 13  24 2e e7 20 51 3c 3e 31  |,size%..$.. Q<>1|
00002060  20 8c 20 85 20 30 2c 22  3c 5a 38 30 45 6d 24 44  | . . 0,"<Z80Em$D|
00002070  69 72 3e 2e 43 6f 64 65  33 20 6e 6f 74 20 66 6f  |ir>.Code3 not fo|
00002080  75 6e 64 22 0d 13 2e 04  0d 13 38 0e 73 69 7a 65  |und"......8.size|
00002090  25 2b 3d 33 30 30 0d 13  42 04 0d 13 4c 10 6d 69  |%+=300..B...L.mi|
000020a0  6e 69 6d 69 73 65 64 25  3d b9 0d 13 56 04 0d 13  |nimised%=...V...|
000020b0  60 10 f2 6c 6f 61 64 6f  70 74 69 6f 6e 73 0d 13  |`..loadoptions..|
000020c0  6a 04 0d 13 74 38 e7 20  ac 73 74 61 72 74 5f 6d  |j...t8. .start_m|
000020d0  69 6e 69 6d 69 73 65 64  25 20 8c 20 f2 64 65 6d  |inimised% . .dem|
000020e0  69 6e 69 6d 69 73 65 20  8b 20 f2 6d 69 6e 69 6d  |inimise . .minim|
000020f0  69 73 65 28 33 32 2b 31  36 29 0d 13 7e 04 0d 13  |ise(32+16)..~...|
00002100  88 17 c8 99 20 22 4f 53  5f 47 65 74 45 6e 76 22  |.... "OS_GetEnv"|
00002110  20 b8 20 41 24 0d 13 92  0a 49 25 3d a9 41 24 0d  | . A$....I%=.A$.|
00002120  13 9c 20 f5 49 25 2d 3d  31 3a fd c1 41 24 2c 49  |.. .I%-=1:..A$,I|
00002130  25 2c 31 29 3d 22 20 22  20 84 20 49 25 3d 30 0d  |%,1)=" " . I%=0.|
00002140  13 a6 12 41 24 3d c2 41  24 2c a9 41 24 2d 49 25  |...A$=.A$,.A$-I%|
00002150  29 0d 13 b0 44 e7 20 c1  41 24 2c a9 41 24 2d 31  |)...D. .A$,.A$-1|
00002160  31 2c 31 30 29 3c 3e 22  2e 21 52 75 6e 49 6d 61  |1,10)<>".!RunIma|
00002170  67 65 22 20 80 20 ac a7  41 24 2c 22 40 22 29 20  |ge" . ..A$,"@") |
00002180  8c 20 f2 6c 6f 61 64 28  41 24 29 3a f2 73 70 65  |. .load(A$):.spe|
00002190  63 74 72 75 6d 0d 13 ba  04 0d 13 c4 05 e1 0d 13  |ctrum...........|
000021a0  ce 04 0d 13 d8 0a dd f2  70 6f 6c 6c 0d 13 e2 04  |........poll....|
000021b0  0d 13 ec 05 f5 0d 13 f6  18 6d 61 73 6b 25 3d 25  |.........mask%=%|
000021c0  31 31 30 30 30 30 30 31  31 30 30 31 31 0d 14 00  |1100000110011...|
000021d0  25 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |%.. "Wimp_Poll",|
000021e0  6d 61 73 6b 25 2c 71 25  20 b8 20 61 63 74 69 6f  |mask%,q% . actio|
000021f0  6e 25 0d 14 0a 04 0d 14  14 10 c8 8e 20 61 63 74  |n%.......... act|
00002200  69 6f 6e 25 20 ca 0d 14  1e 26 c9 20 20 32 20 20  |ion% ....&.  2  |
00002210  20 20 3a 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |  : .. "Wimp_Ope|
00002220  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 14 28 27  |nWindow",,q%..('|
00002230  c9 20 20 33 20 20 20 20  3a 20 c8 99 20 22 57 69  |.  3    : .. "Wi|
00002240  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00002250  2c 71 25 0d 14 32 14 c9  20 20 36 20 20 20 20 3a  |,q%..2..  6    :|
00002260  20 f2 63 6c 69 63 6b 0d  14 3c 13 c9 20 20 37 20  | .click..<..  7 |
00002270  20 20 20 3a 20 f2 73 61  76 65 0d 14 50 19 c9 20  |   : .save..P.. |
00002280  20 39 20 20 20 20 3a 20  f2 64 65 63 6f 64 65 6d  | 9    : .decodem|
00002290  65 6e 75 0d 14 5a 16 c9  20 31 37 2c 31 38 20 3a  |enu..Z.. 17,18 :|
000022a0  20 f2 6d 65 73 73 61 67  65 0d 14 64 05 cb 0d 14  | .message..d....|
000022b0  6e 04 0d 14 78 06 fd a3  0d 14 82 05 e1 0d 14 8c  |n...x...........|
000022c0  04 0d 14 96 0d dd f2 6d  65 73 73 61 67 65 0d 14  |.......message..|
000022d0  a0 0e c8 8e 20 71 25 21  31 36 20 ca 0d 14 aa 0f  |.... q%!16 .....|
000022e0  c9 20 30 20 3a 20 f2 71  75 69 74 0d 15 7c 57 c9  |. 0 : .quit..|W.|
000022f0  20 33 20 3a 20 41 24 3d  22 22 3a 49 25 3d 34 34  | 3 : A$="":I%=44|
00002300  3a c8 95 71 25 3f 49 25  3c 3e 30 20 3a 20 41 24  |:..q%?I%<>0 : A$|
00002310  3d 41 24 2b bd 71 25 3f  49 25 20 3a 20 49 25 2b  |=A$+.q%?I% : I%+|
00002320  3d 31 20 3a 20 ce 20 3a  20 f2 6c 6f 61 64 28 41  |=1 : . : .load(A|
00002330  24 29 20 3a 20 f4 50 52  4f 43 73 70 65 63 74 72  |$) : .PROCspectr|
00002340  75 6d 0d 15 86 09 c9 20  35 20 3a 0d 15 90 2c e7  |um..... 5 :...,.|
00002350  20 71 25 21 34 30 3d 26  42 41 30 20 84 20 71 25  | q%!40=&BA0 . q%|
00002360  21 34 30 3d 26 42 41 31  20 84 20 71 25 21 34 30  |!40=&BA1 . q%!40|
00002370  3d 26 37 30 32 20 8c 0d  15 9a 45 71 25 21 31 36  |=&702 ....Eq%!16|
00002380  3d 34 3a 71 25 21 31 32  3d 71 25 21 38 3a c8 99  |=4:q%!12=q%!8:..|
00002390  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000023a0  67 65 22 2c 31 37 2c 71  25 2c 71 25 21 32 30 3a  |ge",17,q%,q%!20:|
000023b0  41 24 3d 22 22 3a 49 25  3d 34 34 3a 0d 15 a4 2b  |A$="":I%=44:...+|
000023c0  c8 95 71 25 3f 49 25 3c  3e 30 20 3a 20 41 24 3d  |..q%?I%<>0 : A$=|
000023d0  41 24 2b bd 71 25 3f 49  25 20 3a 20 49 25 2b 3d  |A$+.q%?I% : I%+=|
000023e0  31 20 3a 20 ce 20 3a 0d  15 ae 19 f2 6c 6f 61 64  |1 : . :.....load|
000023f0  28 41 24 29 20 3a 20 f2  73 70 65 63 74 72 75 6d  |(A$) : .spectrum|
00002400  0d 15 b8 05 cd 0d 15 c2  18 c9 20 26 34 30 30 43  |.......... &400C|
00002410  31 20 3a 20 f4 50 52 4f  43 6d 6f 64 65 0d 15 cc  |1 : .PROCmode...|
00002420  05 cb 0d 15 d6 05 e1 0d  15 e0 04 0d 16 44 0b dd  |.............D..|
00002430  f2 63 6c 69 63 6b 0d 16  4e 0c 6d 78 25 3d 71 25  |.click..N.mx%=q%|
00002440  21 30 0d 16 58 0c 6d 79  25 3d 71 25 21 34 0d 16  |!0..X.my%=q%!4..|
00002450  62 0c 6d 62 25 3d 71 25  21 38 0d 16 6c 0c 68 25  |b.mb%=q%!8..l.h%|
00002460  3d 71 25 21 31 32 0d 16  76 0c 69 25 3d 71 25 21  |=q%!12..v.i%=q%!|
00002470  31 36 0d 16 80 0d e7 20  68 25 3d 2d 32 20 8c 0d  |16..... h%=-2 ..|
00002480  16 8a 43 e7 20 6d 62 25  3d 32 20 8c 20 f2 6d 65  |..C. mb%=2 . .me|
00002490  6e 75 73 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |nus:.. "Wimp_Cre|
000024a0  61 74 65 4d 65 6e 75 22  2c 2c 69 63 6f 6e 6d 65  |ateMenu",,iconme|
000024b0  6e 75 25 2c 6d 78 25 2d  36 34 2c 39 36 2b 37 2a  |nu%,mx%-64,96+7*|
000024c0  34 34 0d 16 94 0d e7 20  6d 62 25 3d 31 20 8c 0d  |44..... mb%=1 ..|
000024d0  16 9e 24 e7 20 ac 6d 69  6e 69 6d 69 73 65 64 25  |..$. .minimised%|
000024e0  20 8c 20 f2 6d 69 6e 69  6d 69 73 65 28 33 32 2b  | . .minimise(32+|
000024f0  31 36 29 0d 16 a8 0d f2  73 70 65 63 74 72 75 6d  |16).....spectrum|
00002500  0d 16 b2 05 cd 0d 16 bc  17 e7 20 6d 62 25 3d 34  |.......... mb%=4|
00002510  20 8c 20 f2 73 70 65 63  74 72 75 6d 0d 16 c6 05  | . .spectrum....|
00002520  cd 0d 16 d0 3b e7 20 69  25 3d 33 20 80 20 68 25  |....;. i%=3 . h%|
00002530  3d 78 66 65 72 25 28 73  61 76 65 5f 74 79 70 65  |=xfer%(save_type|
00002540  25 29 20 8c 20 c8 99 20  22 57 69 6d 70 5f 43 72  |%) . .. "Wimp_Cr|
00002550  65 61 74 65 4d 65 6e 75  22 2c 2d 31 0d 16 da 04  |eateMenu",-1....|
00002560  0d 18 1a 05 e1 0d 18 24  04 0d 18 2e 0e dd f2 73  |.......$.......s|
00002570  70 65 63 74 72 75 6d 0d  18 38 0c e7 20 74 61 70  |pectrum..8.. tap|
00002580  65 20 8c 0d 18 42 12 41  25 3d 8e 74 61 70 65 5f  |e ...B.A%=.tape_|
00002590  66 69 6c 65 24 0d 18 4c  2e e7 20 41 25 3d 30 20  |file$..L.. A%=0 |
000025a0  8c 20 74 61 70 65 3d a3  3a f2 6d 69 6e 69 6d 69  |. tape=.:.minimi|
000025b0  73 65 28 33 32 2b 31 36  29 20 8b 20 cf 23 41 25  |se(32+16) . .#A%|
000025c0  3d 36 34 0d 18 56 05 cd  0d 18 60 1e e7 20 6d 69  |=64..V....`.. mi|
000025d0  6e 69 6d 69 73 65 64 25  20 8c 20 f2 64 65 6d 69  |nimised% . .demi|
000025e0  6e 69 6d 69 73 65 0d 18  6a 0f 77 69 6d 70 5f 6d  |nimise..j.wimp_m|
000025f0  6f 64 65 3d eb 0d 18 74  18 c8 99 20 22 48 6f 75  |ode=...t... "Hou|
00002600  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 18 7e  |rglass_Smash"..~|
00002610  0b f2 73 63 72 65 65 6e  0d 18 88 29 c8 99 20 22  |..screen...).. "|
00002620  5a 38 30 5f 49 6e 73 74  61 6c 6c 45 78 69 74 48  |Z80_InstallExitH|
00002630  61 6e 64 6c 65 72 22 2c  77 69 6d 70 5f 6d 6f 64  |andler",wimp_mod|
00002640  65 0d 18 92 17 ee 85 20  f2 65 72 72 32 28 77 69  |e...... .err2(wi|
00002650  6d 70 5f 6d 6f 64 65 29  0d 18 9c 20 f4 53 59 53  |mp_mode)... .SYS|
00002660  20 22 58 4f 53 5f 43 4c  49 22 2c 22 42 6c 61 6e  | "XOS_CLI","Blan|
00002670  6b 54 69 6d 65 20 30 22  0d 18 a6 04 0d 18 b0 17  |kTime 0"........|
00002680  c8 99 20 22 5a 38 30 5f  53 6f 75 6e 64 53 74 61  |.. "Z80_SoundSta|
00002690  72 74 22 0d 18 ba 04 0d  18 c4 05 f5 0d 18 ce 0d  |rt".............|
000026a0  f2 6d 6f 64 73 70 65 65  64 0d 18 d8 11 21 64 65  |.modspeed....!de|
000026b0  6c 61 79 3d 73 70 65 65  64 25 0d 18 e2 04 0d 18  |lay=speed%......|
000026c0  ec 15 f4 5a 38 30 6d 65  6d 3f 26 41 37 30 34 3d  |...Z80mem?&A704=|
000026d0  26 45 44 0d 18 f6 15 f4  5a 38 30 6d 65 6d 3f 26  |&ED.....Z80mem?&|
000026e0  41 37 30 35 3d 26 46 46  0d 19 00 04 0d 19 0a 0a  |A705=&FF........|
000026f0  f4 2a 46 58 31 39 0d 19  14 1e d4 20 31 2c 26 31  |.*FX19..... 1,&1|
00002700  30 30 2b 76 6f 6c 75 6d  65 25 2c 26 38 31 30 30  |00+volume%,&8100|
00002710  2c 32 35 35 0d 19 1e 19  c8 99 20 22 5a 38 30 5f  |,255...... "Z80_|
00002720  50 75 74 6b 64 61 74 61  22 2c 26 46 46 0d 19 28  |Putkdata",&FF..(|
00002730  1a 42 25 3d 26 38 30 20  3a 20 f4 20 74 61 70 65  |.B%=&80 : . tape|
00002740  5f 63 75 74 6f 66 66 0d  19 32 2d c8 99 20 26 36  |_cutoff..2-.. &6|
00002750  30 30 46 41 2c 30 20 3a  20 f4 20 57 69 6d 70 5f  |00FA,0 : . Wimp_|
00002760  53 65 74 57 61 74 63 68  64 6f 67 53 74 61 74 65  |SetWatchdogState|
00002770  20 4f 66 66 0d 19 3c 11  4b 25 3d ba 20 5a 38 30  | Off..<.K%=. Z80|
00002780  73 74 61 72 74 0d 19 46  2c c8 99 20 26 36 30 30  |start..F,.. &600|
00002790  46 41 2c 31 20 3a 20 f4  20 57 69 6d 70 5f 53 65  |FA,1 : . Wimp_Se|
000027a0  74 57 61 74 63 68 64 6f  67 53 74 61 74 65 20 4f  |tWatchdogState O|
000027b0  6e 0d 19 50 1d f4 53 59  53 20 22 5a 38 30 5f 47  |n..P..SYS "Z80_G|
000027c0  65 74 6b 64 61 74 61 22  20 54 4f 20 4b 25 0d 19  |etkdata" TO K%..|
000027d0  5a 18 d4 20 31 2c 26 31  30 30 2b 76 6f 6c 75 6d  |Z.. 1,&100+volum|
000027e0  65 25 2c 30 2c 32 0d 19  64 04 0d 19 6e 0b c8 8e  |e%,0,2..d...n...|
000027f0  20 4b 25 20 ca 0d 19 78  2d c9 20 31 20 20 3a 20  | K% ...x-. 1  : |
00002800  76 6f 6c 75 6d 65 25 2d  3d 35 3a e7 20 76 6f 6c  |volume%-=5:. vol|
00002810  75 6d 65 25 3c 30 20 8c  20 76 6f 6c 75 6d 65 25  |ume%<0 . volume%|
00002820  3d 30 0d 19 82 31 c9 20  32 20 20 3a 20 76 6f 6c  |=0...1. 2  : vol|
00002830  75 6d 65 25 2b 3d 35 3a  e7 20 76 6f 6c 75 6d 65  |ume%+=5:. volume|
00002840  25 3e 31 32 37 20 8c 20  76 6f 6c 75 6d 65 25 3d  |%>127 . volume%=|
00002850  31 32 37 0d 19 8c 0a c9  20 33 20 20 3a 0d 19 96  |127..... 3  :...|
00002860  11 e7 20 a6 2d 31 20 84  20 a6 2d 32 20 8c 0d 19  |.. .-1 . .-2 ...|
00002870  a0 36 c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |.6.. "XOS_CLI","|
00002880  53 63 72 65 65 6e 73 61  76 65 20 3c 5a 38 30 45  |Screensave <Z80E|
00002890  6d 24 44 69 72 3e 2e 5e  2e 21 5a 38 30 53 63 72  |m$Dir>.^.!Z80Scr|
000028a0  65 65 6e 22 0d 19 be 05  cd 0d 19 c8 33 c9 20 34  |een"........3. 4|
000028b0  20 20 3a 20 e7 20 6c 61  73 74 5f 6c 6f 61 64 65  |  : . last_loade|
000028c0  64 24 3c 3e 22 22 20 8c  20 f2 6c 6f 61 64 28 6c  |d$<>"" . .load(l|
000028d0  61 73 74 5f 6c 6f 61 64  65 64 24 29 0d 19 d2 2e  |ast_loaded$)....|
000028e0  c9 20 37 20 20 3a 20 e7  20 65 78 61 63 74 25 20  |. 7  : . exact% |
000028f0  8c 20 73 70 65 65 64 25  2b 3d 26 31 30 30 20 8b  |. speed%+=&100 .|
00002900  20 73 70 65 65 64 25 2b  3d 31 0d 19 dc 2e c9 20  | speed%+=1..... |
00002910  38 20 20 3a 20 e7 20 65  78 61 63 74 25 20 8c 20  |8  : . exact% . |
00002920  73 70 65 65 64 25 2d 3d  26 31 30 30 20 8b 20 73  |speed%-=&100 . s|
00002930  70 65 65 64 25 2d 3d 31  0d 19 e6 18 c9 20 39 20  |peed%-=1..... 9 |
00002940  20 3a 20 54 41 50 63 6f  75 6e 74 65 72 25 3d 30  | : TAPcounter%=0|
00002950  0d 19 f0 10 c9 20 31 30  20 3a 20 21 50 63 3d 30  |..... 10 : !Pc=0|
00002960  0d 19 fa 42 c9 20 31 31  20 3a 20 f2 70 75 73 68  |...B. 11 : .push|
00002970  70 63 3a 21 73 70 3d 28  21 73 70 20 84 20 31 3c  |pc:!sp=(!sp . 1<|
00002980  3c 31 31 29 20 82 20 31  3c 3c 31 31 3a 21 50 63  |<11) . 1<<11:!Pc|
00002990  3d 26 30 30 36 36 30 30  30 30 20 3a 20 f4 20 4e  |=&00660000 : . N|
000029a0  4d 49 0d 1a 04 12 c9 20  26 37 31 20 3a 20 f4 20  |MI..... &71 : . |
000029b0  6d 65 6e 75 0d 1a 0e 64  c9 20 32 30 30 20 3a 20  |menu...d. 200 : |
000029c0  ff 20 22 4c 6f 61 64 20  22 2b a4 6c 65 61 66 28  |. "Load "+.leaf(|
000029d0  6c 61 73 74 5f 6c 6f 61  64 65 64 24 29 2b c3 3f  |last_loaded$)+.?|
000029e0  61 2b 22 20 22 2b c3 7e  28 5a 38 30 6d 65 6d 2b  |a+" "+.~(Z80mem+|
000029f0  28 28 21 68 6c 29 20 80  20 26 46 46 46 46 29 29  |((!hl) . &FFFF))|
00002a00  3a f4 50 52 4f 43 73 61  76 65 73 6e 61 28 22 4a  |:.PROCsavesna("J|
00002a10  55 4e 4b 58 5a 58 22 29  0d 1a 18 0b c9 20 32 30  |UNKXZX")..... 20|
00002a20  31 20 3a 0d 1a 22 11 51  25 3d 8e 20 54 41 50 66  |1 :..".Q%=. TAPf|
00002a30  69 6c 65 24 0d 1a 2c 20  e7 20 51 25 3d 30 20 8c  |ile$.., . Q%=0 .|
00002a40  20 3f 73 70 3d 28 3f 73  70 29 20 84 20 31 3a e5  | ?sp=(?sp) . 1:.|
00002a50  8d 64 7e 5a 0d 1a 36 14  cf 23 51 25 3d 54 41 50  |.d~Z..6..#Q%=TAP|
00002a60  63 6f 75 6e 74 65 72 25  0d 1a 40 13 e7 20 c5 23  |counter%..@.. .#|
00002a70  51 25 20 8c 20 cf 23 51  25 3d 30 0d 1a 4a 04 0d  |Q% . .#Q%=0..J..|
00002a80  1a 54 1d 4c 25 3d 9a 23  51 25 20 3a 20 4c 25 2b  |.T.L%=.#Q% : L%+|
00002a90  3d 28 9a 23 51 25 29 20  3c 3c 20 38 0d 1a 5e 0e  |=(.#Q%) << 8..^.|
00002aa0  66 6c 61 67 25 3d 9a 23  51 25 0d 1a 68 04 0d 1a  |flag%=.#Q%..h...|
00002ab0  72 29 e7 20 66 6c 61 67  25 3c 3e 3f 61 32 20 8c  |r). flag%<>?a2 .|
00002ac0  20 cf 23 51 25 3d 8f 23  51 25 2b 4c 25 2d 31 20  | .#Q%=.#Q%+L%-1 |
00002ad0  3a 20 e5 8d 44 40 5a 0d  1a 7c 04 0d 1a 86 0c e7  |: ..D@Z..|......|
00002ae0  20 c5 23 51 25 20 8c 0d  1a 90 19 3f 73 70 3d 28  | .#Q% .....?sp=(|
00002af0  3f 73 70 29 20 80 20 25  31 31 31 31 31 31 31 30  |?sp) . %11111110|
00002b00  0d 1a 9a 05 cc 0d 1a a4  25 c8 99 20 22 4f 53 5f  |........%.. "OS_|
00002b10  47 42 50 42 22 2c 34 2c  51 25 2c 5a 38 30 6d 65  |GBPB",4,Q%,Z80me|
00002b20  6d 2b 21 69 78 2c 4c 25  2d 32 0d 1a ae 14 e7 20  |m+!ix,L%-2..... |
00002b30  3f 66 32 3d 30 20 8c 20  51 3d a6 31 30 30 0d 1a  |?f2=0 . Q=.100..|
00002b40  b8 11 63 68 65 63 6b 73  75 6d 3d 9a 23 51 25 0d  |..checksum=.#Q%.|
00002b50  1a c2 14 54 41 50 63 6f  75 6e 74 65 72 25 3d 8f  |...TAPcounter%=.|
00002b60  23 51 25 0d 1a cc 11 3f  73 70 3d 28 3f 73 70 29  |#Q%....?sp=(?sp)|
00002b70  20 84 20 31 0d 1a d6 05  cd 0d 1a e0 1f e7 20 8f  | . 1.......... .|
00002b80  23 51 25 3d a2 23 51 25  20 8c 20 54 41 50 63 6f  |#Q%=.#Q% . TAPco|
00002b90  75 6e 74 65 72 25 3d 30  0d 1a ea 08 d9 23 51 25  |unter%=0.....#Q%|
00002ba0  0d 1a f4 04 0d 1a fe 05  cb 0d 1b 08 04 0d 1b 12  |................|
00002bb0  24 fd 20 4b 25 3d 31 32  20 84 20 4b 25 3d 30 20  |$. K%=12 . K%=0 |
00002bc0  84 20 4b 25 3d 26 37 31  20 84 20 4b 25 3d 33 30  |. K%=&71 . K%=30|
00002bd0  30 0d 1b 1c 16 c8 99 20  22 5a 38 30 5f 53 6f 75  |0...... "Z80_Sou|
00002be0  6e 64 4b 69 6c 6c 22 0d  1b 26 04 0d 1b 30 19 e7  |ndKill"..&...0..|
00002bf0  20 74 61 70 65 20 80 20  41 25 3c 3e 30 20 8c 20  | tape . A%<>0 . |
00002c00  d9 23 41 25 0d 1b 3a 04  0d 1b 44 1e c8 99 20 22  |.#A%..:...D... "|
00002c10  5a 38 30 5f 52 65 6d 6f  76 65 45 78 69 74 48 61  |Z80_RemoveExitHa|
00002c20  6e 64 6c 65 72 22 0d 1b  4e 1f c8 99 20 22 57 69  |ndler"..N... "Wi|
00002c30  6d 70 5f 53 65 74 4d 6f  64 65 22 2c 77 69 6d 70  |mp_SetMode",wimp|
00002c40  5f 6d 6f 64 65 0d 1b 58  0b ee 85 20 f2 65 72 72  |_mode..X... .err|
00002c50  0d 1b 62 0b 2a 46 58 31  35 2c 30 0d 1b 6c b1 f2  |..b.*FX15,0..l..|
00002c60  64 65 6d 6f 28 22 54 68  65 20 66 75 6c 6c 20 76  |demo("The full v|
00002c70  65 72 73 69 6f 6e 20 69  73 20 61 76 61 69 6c 61  |ersion is availa|
00002c80  62 6c 65 20 66 6f 72 20  a3 31 35 20 66 72 6f 6d  |ble for .15 from|
00002c90  3a 20 57 61 72 6d 20 53  69 6c 65 6e 63 65 20 53  |: Warm Silence S|
00002ca0  6f 66 74 77 61 72 65 2c  20 53 74 20 43 61 74 68  |oftware, St Cath|
00002cb0  65 72 69 6e 65 27 73 20  43 6f 6c 6c 65 67 65 2c  |erine's College,|
00002cc0  20 4f 78 66 6f 72 64 2c  20 4f 58 31 20 33 55 4a  | Oxford, OX1 3UJ|
00002cd0  2e 20 57 65 20 61 6c 73  6f 20 73 65 6c 6c 20 61  |. We also sell a|
00002ce0  20 42 42 43 20 45 6d 75  6c 61 74 6f 72 20 66 6f  | BBC Emulator fo|
00002cf0  72 20 a3 31 35 2e 20 42  6f 74 68 20 45 6d 75 6c  |r .15. Both Emul|
00002d00  61 74 6f 72 73 20 a3 32  35 2e 22 29 0d 1b 76 04  |ators .25.")..v.|
00002d10  0d 1b 80 05 e1 0d 1b 8a  04 0d 1b 94 0b dd f2 6d  |...............m|
00002d20  65 6e 75 73 0d 1b 9e 07  ea 50 25 0d 1b a8 38 f2  |enus.....P%...8.|
00002d30  6d 65 6e 75 68 65 61 64  65 72 28 69 63 6f 6e 6d  |menuheader(iconm|
00002d40  65 6e 75 25 2c 22 5a 38  30 45 6d 22 2c a9 22 53  |enu%,"Z80Em",."S|
00002d50  69 6e 67 6c 65 20 54 61  73 6b 20 22 2a 31 36 2b  |ingle Task "*16+|
00002d60  31 32 29 0d 1b b2 27 f2  6d 65 6e 75 69 74 65 6d  |12)...'.menuitem|
00002d70  28 30 2c 69 6e 66 6f 25  2c 26 30 37 30 30 30 30  |(0,info%,&070000|
00002d80  30 31 2c 22 49 6e 66 6f  22 29 0d 1b bc 30 f2 6d  |01,"Info")...0.m|
00002d90  65 6e 75 69 74 65 6d 28  30 2c 6f 70 74 69 6f 6e  |enuitem(0,option|
00002da0  6d 65 6e 75 25 2c 26 30  37 30 30 30 30 30 31 2c  |menu%,&07000001,|
00002db0  22 4f 70 74 69 6f 6e 73  22 29 0d 1b c6 39 f2 6d  |"Options")...9.m|
00002dc0  65 6e 75 69 74 65 6d 28  30 2c 78 66 65 72 25 28  |enuitem(0,xfer%(|
00002dd0  73 61 76 65 5f 74 79 70  65 25 29 2c 26 30 37 30  |save_type%),&070|
00002de0  30 30 30 30 31 84 20 32  5e 32 32 2c 22 53 61 76  |00001. 2^22,"Sav|
00002df0  65 22 29 0d 1b d0 40 f2  6d 65 6e 75 69 74 65 6d  |e")...@.menuitem|
00002e00  28 30 2c 70 6f 6b 65 6d  65 6e 75 25 2c 26 30 37  |(0,pokemenu%,&07|
00002e10  30 30 30 30 30 31 20 84  20 2d 28 32 5e 32 32 2a  |000001 . -(2^22*|
00002e20  6d 69 6e 69 6d 69 73 65  64 25 29 2c 22 50 6f 6b  |minimised%),"Pok|
00002e30  65 22 29 0d 1b da 32 f2  6d 65 6e 75 69 74 65 6d  |e")...2.menuitem|
00002e40  28 2d 6d 69 6e 69 6d 69  73 65 64 25 2c 2d 31 2c  |(-minimised%,-1,|
00002e50  26 30 37 30 30 30 30 30  31 2c 22 4d 69 6e 69 6d  |&07000001,"Minim|
00002e60  69 73 65 22 29 0d 1b e4  2f f2 6d 65 6e 75 69 74  |ise").../.menuit|
00002e70  65 6d 28 2d 74 61 70 65  2c 2d 31 2c 26 30 37 30  |em(-tape,-1,&070|
00002e80  30 30 30 30 31 20 84 20  32 5e 32 32 2c 22 54 61  |00001 . 2^22,"Ta|
00002e90  70 65 22 29 0d 1b ee 26  f2 6d 65 6e 75 69 74 65  |pe")...&.menuite|
00002ea0  6d 28 26 38 30 2c 2d 31  2c 26 30 37 30 30 30 30  |m(&80,-1,&070000|
00002eb0  30 31 2c 22 51 75 69 74  22 29 0d 1b f8 04 0d 1c  |01,"Quit")......|
00002ec0  02 3d f2 6d 65 6e 75 68  65 61 64 65 72 28 6f 70  |.=.menuheader(op|
00002ed0  74 69 6f 6e 6d 65 6e 75  25 2c 22 4f 70 74 69 6f  |tionmenu%,"Optio|
00002ee0  6e 73 22 2c a9 22 53 61  76 65 20 4f 70 74 69 6f  |ns",."Save Optio|
00002ef0  6e 73 20 22 2a 31 36 2b  31 32 29 0d 1c 0c 2b f2  |ns "*16+12)...+.|
00002f00  6d 65 6e 75 69 74 65 6d  28 30 2c 6d 6f 64 65 6d  |menuitem(0,modem|
00002f10  65 6e 75 25 2c 26 30 37  30 30 30 30 30 31 2c 22  |enu%,&07000001,"|
00002f20  4d 6f 64 65 22 29 0d 1c  16 3b f2 6d 65 6e 75 69  |Mode")...;.menui|
00002f30  74 65 6d 28 2d 73 74 61  72 74 5f 6d 69 6e 69 6d  |tem(-start_minim|
00002f40  69 73 65 64 25 2c 2d 31  2c 26 30 37 30 30 30 30  |ised%,-1,&070000|
00002f50  30 31 2c 22 53 74 61 72  74 20 4d 69 6e 27 64 22  |01,"Start Min'd"|
00002f60  29 0d 1c 20 35 f4 50 52  4f 43 6d 65 6e 75 69 74  |).. 5.PROCmenuit|
00002f70  65 6d 28 2d 65 78 61 63  74 25 2c 2d 31 2c 26 30  |em(-exact%,-1,&0|
00002f80  37 30 30 30 30 30 31 2c  22 45 78 61 63 74 20 53  |7000001,"Exact S|
00002f90  70 65 65 64 22 29 0d 1c  2a 2d f2 6d 65 6e 75 69  |peed")..*-.menui|
00002fa0  74 65 6d 28 30 2c 73 70  65 65 64 6d 65 6e 75 25  |tem(0,speedmenu%|
00002fb0  2c 26 30 37 30 30 30 30  30 31 2c 22 53 70 65 65  |,&07000001,"Spee|
00002fc0  64 22 29 0d 1c 34 13 c8  8e 20 73 61 76 65 5f 74  |d")..4... save_t|
00002fd0  79 70 65 25 20 ca 0d 1c  3e 31 c9 20 30 20 3a 20  |ype% ...>1. 0 : |
00002fe0  f2 6d 65 6e 75 69 74 65  6d 28 31 2c 2d 31 2c 26  |.menuitem(1,-1,&|
00002ff0  30 37 30 30 30 30 30 31  2c 22 53 61 76 65 20 61  |07000001,"Save a|
00003000  73 20 53 4e 41 22 29 0d  1c 48 31 c9 20 31 20 3a  |s SNA")..H1. 1 :|
00003010  20 f2 6d 65 6e 75 69 74  65 6d 28 31 2c 2d 31 2c  | .menuitem(1,-1,|
00003020  26 30 37 30 30 30 30 30  31 2c 22 53 61 76 65 20  |&07000001,"Save |
00003030  61 73 20 5a 38 30 22 29  0d 1c 52 07 7f 20 85 0d  |as Z80")..R.. ..|
00003040  1c 5c 05 cb 0d 1c 66 27  f2 6d 65 6e 75 69 74 65  |.\....f'.menuite|
00003050  6d 28 30 2c 2d 31 2c 26  30 37 30 30 30 30 30 31  |m(0,-1,&07000001|
00003060  2c 22 44 65 66 61 75 6c  74 22 29 0d 1c 70 2e f2  |,"Default")..p..|
00003070  6d 65 6e 75 69 74 65 6d  28 26 38 30 2c 2d 31 2c  |menuitem(&80,-1,|
00003080  26 30 37 30 30 30 30 30  31 2c 22 53 61 76 65 20  |&07000001,"Save |
00003090  4f 70 74 69 6f 6e 73 22  29 0d 1c 7a 04 0d 1c 84  |Options")..z....|
000030a0  2e f2 6d 65 6e 75 68 65  61 64 65 72 28 6d 6f 64  |..menuheader(mod|
000030b0  65 6d 65 6e 75 25 2c 22  4d 6f 64 65 22 2c a9 22  |emenu%,"Mode",."|
000030c0  39 39 20 22 2a 31 36 2b  31 32 29 0d 1c 8e 2a f2  |99 "*16+12)...*.|
000030d0  6d 65 6e 75 69 74 65 6d  28 2d 28 6d 6f 64 65 25  |menuitem(-(mode%|
000030e0  3d 39 29 2c 2d 31 2c 26  30 37 30 30 30 30 30 31  |=9),-1,&07000001|
000030f0  2c 22 39 22 29 0d 1c 98  2c f2 6d 65 6e 75 69 74  |,"9")...,.menuit|
00003100  65 6d 28 2d 28 6d 6f 64  65 25 3d 32 37 29 2c 2d  |em(-(mode%=27),-|
00003110  31 2c 26 30 37 30 30 30  30 30 31 2c 22 32 37 22  |1,&07000001,"27"|
00003120  29 0d 1c a2 2f f2 6d 65  6e 75 69 74 65 6d 28 26  |).../.menuitem(&|
00003130  38 30 2d 28 6d 6f 64 65  25 3d 36 30 29 2c 2d 31  |80-(mode%=60),-1|
00003140  2c 26 30 37 30 30 30 30  30 31 2c 22 36 30 22 29  |,&07000001,"60")|
00003150  0d 1c ac 04 0d 1c b6 22  24 73 70 65 65 64 76 61  |......."$speedva|
00003160  6c 69 64 25 3d 22 41 30  2d 39 41 2d 46 61 2d 66  |lid%="A0-9A-Fa-f|
00003170  26 22 2b bd 31 33 0d 1c  c0 46 e7 20 65 78 61 63  |&"+.13...F. exac|
00003180  74 25 20 8c 20 24 73 70  65 65 64 74 65 78 74 25  |t% . $speedtext%|
00003190  3d 22 26 22 2b c3 7e 73  70 65 65 64 25 2b bd 31  |="&"+.~speed%+.1|
000031a0  33 20 8b 20 24 73 70 65  65 64 74 65 78 74 25 3d  |3 . $speedtext%=|
000031b0  c3 7e 73 70 65 65 64 25  2b bd 31 33 0d 1c ca 04  |.~speed%+.13....|
000031c0  0d 1c d4 34 f2 6d 65 6e  75 68 65 61 64 65 72 28  |...4.menuheader(|
000031d0  73 70 65 65 64 6d 65 6e  75 25 2c 22 53 70 65 65  |speedmenu%,"Spee|
000031e0  64 22 2c a9 22 26 39 39  39 39 39 20 22 2a 31 36  |d",."&99999 "*16|
000031f0  2b 31 32 29 0d 1c de 3f  f2 6d 65 6e 75 69 74 65  |+12)...?.menuite|
00003200  6d 32 28 26 38 34 2c 2d  31 2c 26 30 37 30 30 30  |m2(&84,-1,&07000|
00003210  30 30 31 20 84 20 32 5e  38 2c 73 70 65 65 64 74  |001 . 2^8,speedt|
00003220  65 78 74 25 2c 73 70 65  65 64 76 61 6c 69 64 25  |ext%,speedvalid%|
00003230  2c 37 29 0d 1c e8 04 0d  1c f2 22 24 70 6f 6b 65  |,7)......."$poke|
00003240  76 61 6c 69 64 25 3d 22  41 30 2d 39 41 2d 46 61  |valid%="A0-9A-Fa|
00003250  2d 66 26 2c 22 2b bd 31  33 0d 1c fc 12 24 70 6f  |-f&,"+.13....$po|
00003260  6b 65 74 65 78 74 25 3d  bd 31 33 0d 1d 06 04 0d  |ketext%=.13.....|
00003270  1d 10 35 f2 6d 65 6e 75  68 65 61 64 65 72 28 70  |..5.menuheader(p|
00003280  6f 6b 65 6d 65 6e 75 25  2c 22 50 6f 6b 65 22 2c  |okemenu%,"Poke",|
00003290  a9 22 36 35 35 33 35 2c  32 35 35 20 22 2a 31 36  |."65535,255 "*16|
000032a0  2b 31 32 29 0d 1d 1a 3e  f2 6d 65 6e 75 69 74 65  |+12)...>.menuite|
000032b0  6d 32 28 26 38 34 2c 2d  31 2c 26 30 37 30 30 30  |m2(&84,-1,&07000|
000032c0  30 30 31 20 84 20 32 5e  38 2c 70 6f 6b 65 74 65  |001 . 2^8,pokete|
000032d0  78 74 25 2c 70 6f 6b 65  76 61 6c 69 64 25 2c 31  |xt%,pokevalid%,1|
000032e0  30 29 0d 1d 24 04 0d 1d  2e 04 0d 1d 38 05 e1 0d  |0)..$.......8...|
000032f0  1d 42 04 0d 1d 4c 1a dd  f2 6d 65 6e 75 68 65 61  |.B...L...menuhea|
00003300  64 65 72 28 41 25 2c 42  24 2c 47 25 29 0d 1d 56  |der(A%,B$,G%)..V|
00003310  09 50 25 3d 41 25 0d 1d  60 0e 24 50 25 3d 42 24  |.P%=A%..`.$P%=B$|
00003320  2b bd 31 33 0d 1d 6a 29  50 25 3f 31 32 3d 37 20  |+.13..j)P%?12=7 |
00003330  3a 20 50 25 3f 31 33 3d  32 20 3a 20 50 25 3f 31  |: P%?13=2 : P%?1|
00003340  34 3d 37 20 3a 20 50 25  3f 31 35 3d 30 0d 1d 74  |4=7 : P%?15=0..t|
00003350  21 50 25 21 31 36 3d 47  25 20 3a 20 50 25 21 32  |!P%!16=G% : P%!2|
00003360  30 3d 34 34 20 3a 20 50  25 21 32 34 3d 30 0d 1d  |0=44 : P%!24=0..|
00003370  7e 0a 50 25 2b 3d 32 38  0d 1d 88 05 e1 0d 1d 92  |~.P%+=28........|
00003380  04 0d 1d 9c 1b dd f2 6d  65 6e 75 69 74 65 6d 28  |.......menuitem(|
00003390  41 25 2c 42 25 2c 43 25  2c 44 24 29 0d 1d a6 0b  |A%,B%,C%,D$)....|
000033a0  50 25 21 30 3d 41 25 0d  1d b0 0b 50 25 21 34 3d  |P%!0=A%....P%!4=|
000033b0  42 25 0d 1d ba 0b 50 25  21 38 3d 43 25 0d 1d c4  |B%....P%!8=C%...|
000033c0  13 24 28 50 25 2b 31 32  29 3d 44 24 2b bd 31 33  |.$(P%+12)=D$+.13|
000033d0  0d 1d ce 0a 50 25 2b 3d  32 34 0d 1d d8 05 e1 0d  |....P%+=24......|
000033e0  1d e2 04 0d 1d ec 10 dd  f2 64 65 63 6f 64 65 6d  |.........decodem|
000033f0  65 6e 75 0d 1d f6 0c c8  8e 20 21 71 25 20 ca 0d  |enu...... !q% ..|
00003400  1e 00 0b 20 20 c9 20 31  20 3a 0d 1e 0a 15 20 20  |...  . 1 :....  |
00003410  20 20 e7 20 71 25 21 34  20 3e 20 2d 31 20 8c 0d  |  . q%!4 > -1 ..|
00003420  1e 14 11 20 20 20 20 c8  8e 20 71 25 21 34 20 ca  |...    .. q%!4 .|
00003430  0d 1e 1e 0d 20 20 20 20  c9 20 30 20 3a 0d 1e 28  |....    . 0 :..(|
00003440  17 20 20 20 20 20 20 e7  20 71 25 21 38 20 3e 20  |.      . q%!8 > |
00003450  2d 31 20 8c 0d 1e 32 13  20 20 20 20 20 20 c8 8e  |-1 ...2.      ..|
00003460  20 71 25 21 38 20 ca 0d  1e 3c 19 20 20 20 20 20  | q%!8 ...<.     |
00003470  20 20 20 c9 20 30 20 3a  20 6d 6f 64 65 25 3d 39  |   . 0 : mode%=9|
00003480  0d 1e 46 1a 20 20 20 20  20 20 20 20 c9 20 31 20  |..F.        . 1 |
00003490  3a 20 6d 6f 64 65 25 3d  32 37 0d 1e 50 1a 20 20  |: mode%=27..P.  |
000034a0  20 20 20 20 20 20 c9 20  32 20 3a 20 6d 6f 64 65  |      . 2 : mode|
000034b0  25 3d 36 30 0d 1e 5a 0c  20 20 20 20 20 20 20 20  |%=60..Z.        |
000034c0  0d 1e 64 0b 20 20 20 20  20 20 cb 0d 1e 6e 0b 20  |..d.      ...n. |
000034d0  20 20 20 20 20 cd 0d 1e  78 30 20 20 20 20 c9 20  |     ...x0    . |
000034e0  31 20 3a 20 73 74 61 72  74 5f 6d 69 6e 69 6d 69  |1 : start_minimi|
000034f0  73 65 64 25 3d ac 73 74  61 72 74 5f 6d 69 6e 69  |sed%=.start_mini|
00003500  6d 69 73 65 64 25 0d 1e  82 4c f4 20 20 20 20 57  |mised%...L.    W|
00003510  48 45 4e 20 32 20 3a 20  65 78 61 63 74 25 3d 4e  |HEN 2 : exact%=N|
00003520  4f 54 65 78 61 63 74 25  3a 49 46 20 4e 4f 54 6d  |OTexact%:IF NOTm|
00003530  69 6e 69 6d 69 73 65 64  25 20 54 48 45 4e 20 50  |inimised% THEN P|
00003540  52 4f 43 6d 69 6e 69 6d  69 73 65 28 33 32 2b 31  |ROCminimise(32+1|
00003550  36 29 0d 1e 8c 47 f4 20  20 20 20 20 20 20 20 20  |6)...G.         |
00003560  20 20 20 20 49 46 20 65  78 61 63 74 25 20 54 48  |    IF exact% TH|
00003570  45 4e 20 73 70 65 65 64  25 3d 26 31 31 30 30 30  |EN speed%=&11000|
00003580  20 45 4c 53 45 20 73 70  65 65 64 25 3d 31 3a 74  | ELSE speed%=1:t|
00003590  61 70 65 3d 46 41 4c 53  45 0d 1e 96 2d 20 20 20  |ape=FALSE...-   |
000035a0  20 c9 20 32 20 3a 20 73  70 65 65 64 25 3d a0 24  | . 2 : speed%=.$|
000035b0  73 70 65 65 64 74 65 78  74 25 20 3a 20 f2 6d 6f  |speedtext% : .mo|
000035c0  64 73 70 65 65 64 0d 1e  a0 25 20 20 20 20 c9 20  |dspeed...%    . |
000035d0  33 20 3a 20 73 61 76 65  5f 74 79 70 65 25 3d 31  |3 : save_type%=1|
000035e0  2d 73 61 76 65 5f 74 79  70 65 25 0d 1e aa 1d 20  |-save_type%.... |
000035f0  20 20 20 c9 20 34 20 3a  20 f2 64 65 66 61 75 6c  |   . 4 : .defaul|
00003600  74 6f 70 74 69 6f 6e 73  0d 1e b4 1a 20 20 20 20  |toptions....    |
00003610  c9 20 35 20 3a 20 f2 73  61 76 65 6f 70 74 69 6f  |. 5 : .saveoptio|
00003620  6e 73 0d 1e be 09 20 20  20 20 cd 0d 1e c8 07 20  |ns....    ..... |
00003630  20 cb 0d 1e d2 12 20 20  c9 20 32 20 3a 20 f4 20  | .....  . 2 : . |
00003640  73 61 76 65 0d 1e dc 1d  20 20 c9 20 33 20 3a 20  |save....  . 3 : |
00003650  f2 70 6f 6b 65 28 24 70  6f 6b 65 74 65 78 74 25  |.poke($poketext%|
00003660  29 0d 1e e6 19 20 20 c9  20 34 20 3a 20 f2 6d 69  |)....  . 4 : .mi|
00003670  6e 69 6d 69 73 65 28 33  32 29 0d 1e f0 58 20 20  |nimise(32)...X  |
00003680  c9 20 35 20 3a 20 f4 74  61 70 65 3d 4e 4f 54 74  |. 5 : .tape=NOTt|
00003690  61 70 65 20 3a 20 50 52  4f 43 6d 69 6e 69 6d 69  |ape : PROCminimi|
000036a0  73 65 28 33 32 2b 31 36  29 20 3a 20 49 46 20 74  |se(32+16) : IF t|
000036b0  61 70 65 20 54 48 45 4e  20 65 78 61 63 74 25 3d  |ape THEN exact%=|
000036c0  54 52 55 45 3a 73 70 65  65 64 25 3d 26 31 31 30  |TRUE:speed%=&110|
000036d0  30 30 0d 1e fa 11 20 20  c9 20 36 20 3a 20 f2 71  |00....  . 6 : .q|
000036e0  75 69 74 0d 1f 04 05 cb  0d 1f 0e 20 c8 99 20 22  |uit........ .. "|
000036f0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00003700  6e 66 6f 22 2c 2c 71 25  0d 1f 18 5d e7 20 28 71  |nfo",,q%...]. (q|
00003710  25 21 38 20 80 20 25 31  29 3e 30 20 8c 20 f2 6d  |%!8 . %1)>0 . .m|
00003720  65 6e 75 73 3a c8 99 20  22 57 69 6d 70 5f 43 72  |enus:.. "Wimp_Cr|
00003730  65 61 74 65 4d 65 6e 75  22 2c 2c 69 63 6f 6e 6d  |eateMenu",,iconm|
00003740  65 6e 75 25 2c 6d 78 25  2d 69 63 6f 6e 6d 65 6e  |enu%,mx%-iconmen|
00003750  75 25 21 31 36 2f 32 2d  32 34 2c 39 36 2b 34 34  |u%!16/2-24,96+44|
00003760  2a 32 2b 31 32 0d 1f 22  05 e1 0d 1f 2c 04 0d 1f  |*2+12.."....,...|
00003770  36 22 dd f2 6d 65 6e 75  69 74 65 6d 32 28 41 25  |6"..menuitem2(A%|
00003780  2c 42 25 2c 43 25 2c 44  25 2c 45 25 2c 46 25 29  |,B%,C%,D%,E%,F%)|
00003790  0d 1f 40 0b 50 25 21 30  3d 41 25 0d 1f 4a 0b 50  |..@.P%!0=A%..J.P|
000037a0  25 21 34 3d 42 25 0d 1f  54 0b 50 25 21 38 3d 43  |%!4=B%..T.P%!8=C|
000037b0  25 0d 1f 5e 0c 50 25 21  31 32 3d 44 25 0d 1f 68  |%..^.P%!12=D%..h|
000037c0  0c 50 25 21 31 36 3d 45  25 0d 1f 72 0c 50 25 21  |.P%!16=E%..r.P%!|
000037d0  32 30 3d 46 25 0d 1f 7c  0a 50 25 2b 3d 32 34 0d  |20=F%..|.P%+=24.|
000037e0  1f 86 05 e1 0d 1f 90 04  0d 1f 9a 11 dd f2 73 61  |..............sa|
000037f0  76 65 6f 70 74 69 6f 6e  73 0d 1f a4 1c 51 3d ae  |veoptions....Q=.|
00003800  22 3c 5a 38 30 45 6d 24  52 65 73 3e 2e 4f 70 74  |"<Z80Em$Res>.Opt|
00003810  69 6f 6e 73 22 0d 1f ae  67 e7 20 51 3d 30 20 8c  |ions"...g. Q=0 .|
00003820  20 21 65 72 72 62 6c 6b  25 3d 30 3a 24 28 65 72  | !errblk%=0:$(er|
00003830  72 62 6c 6b 25 2b 34 29  3d 22 43 6f 75 6c 64 20  |rblk%+4)="Could |
00003840  6e 6f 74 20 73 61 76 65  20 6f 70 74 69 6f 6e 73  |not save options|
00003850  22 2b bd 30 3a c8 99 20  22 57 69 6d 70 5f 52 65  |"+.0:.. "Wimp_Re|
00003860  70 6f 72 74 45 72 72 6f  72 22 2c 65 72 72 62 6c  |portError",errbl|
00003870  6b 25 2c 31 2c 22 5a 38  30 45 6d 22 0d 1f b8 0e  |k%,1,"Z80Em"....|
00003880  f1 23 51 2c 73 70 65 65  64 25 0d 1f c2 18 f1 23  |.#Q,speed%.....#|
00003890  51 2c 73 74 61 72 74 5f  6d 69 6e 69 6d 69 73 65  |Q,start_minimise|
000038a0  64 25 0d 1f cc 0d f1 23  51 2c 6d 6f 64 65 25 0d  |d%.....#Q,mode%.|
000038b0  1f d6 0e f1 23 51 2c 65  78 61 63 74 25 0d 1f e0  |....#Q,exact%...|
000038c0  12 f1 23 51 2c 73 61 76  65 5f 74 79 70 65 25 0d  |..#Q,save_type%.|
000038d0  1f ea 07 d9 23 51 0d 1f  f4 05 e1 0d 1f fe 04 0d  |....#Q..........|
000038e0  20 08 11 dd f2 6c 6f 61  64 6f 70 74 69 6f 6e 73  | ....loadoptions|
000038f0  0d 20 12 15 c8 99 20 22  5a 38 30 5f 49 6e 69 74  |. .... "Z80_Init|
00003900  22 2c 2c 41 25 0d 20 1c  1c 51 3d 8e 22 3c 5a 38  |",,A%. ..Q=."<Z8|
00003910  30 45 6d 24 52 65 73 3e  2e 4f 70 74 69 6f 6e 73  |0Em$Res>.Options|
00003920  22 0d 20 26 1d e7 20 51  3d 30 20 8c 20 f2 64 65  |". &.. Q=0 . .de|
00003930  66 61 75 6c 74 6f 70 74  69 6f 6e 73 3a e1 0d 20  |faultoptions:.. |
00003940  30 0e e8 23 51 2c 73 70  65 65 64 25 0d 20 3a 18  |0..#Q,speed%. :.|
00003950  e8 23 51 2c 73 74 61 72  74 5f 6d 69 6e 69 6d 69  |.#Q,start_minimi|
00003960  73 65 64 25 0d 20 44 0d  e8 23 51 2c 6d 6f 64 65  |sed%. D..#Q,mode|
00003970  25 0d 20 4e 0e e8 23 51  2c 65 78 61 63 74 25 0d  |%. N..#Q,exact%.|
00003980  20 58 12 e8 23 51 2c 73  61 76 65 5f 74 79 70 65  | X..#Q,save_type|
00003990  25 0d 20 62 07 d9 23 51  0d 20 6c 05 e1 0d 20 76  |%. b..#Q. l... v|
000039a0  04 0d 20 80 14 dd f2 64  65 66 61 75 6c 74 6f 70  |.. ....defaultop|
000039b0  74 69 6f 6e 73 0d 20 8a  11 73 70 65 65 64 25 3d  |tions. ..speed%=|
000039c0  26 31 31 31 30 30 0d 20  94 16 73 74 61 72 74 5f  |&11100. ..start_|
000039d0  6d 69 6e 69 6d 69 73 65  64 25 3d a3 0d 20 9e 0c  |minimised%=.. ..|
000039e0  6d 6f 64 65 25 3d 36 30  0d 20 a8 30 e7 20 ac 65  |mode%=60. .0. .e|
000039f0  78 61 63 74 25 20 8c 20  e7 20 ac 6d 69 6e 69 6d  |xact% . . .minim|
00003a00  69 73 65 64 25 20 8c 20  f2 6d 69 6e 69 6d 69 73  |ised% . .minimis|
00003a10  65 28 33 32 2b 31 36 29  0d 20 b2 0c 65 78 61 63  |e(32+16). ..exac|
00003a20  74 25 3d b9 0d 20 bc 10  73 61 76 65 5f 74 79 70  |t%=.. ..save_typ|
00003a30  65 25 3d 31 0d 20 c6 05  e1 0d 20 d0 04 0d 20 da  |e%=1. .... ... .|
00003a40  12 dd f2 6d 69 6e 69 6d  69 73 65 28 4d 25 29 0d  |...minimise(M%).|
00003a50  20 e4 11 54 41 50 63 6f  75 6e 74 65 72 25 3d 30  | ..TAPcounter%=0|
00003a60  0d 20 ee 10 6d 69 6e 69  6d 69 73 65 64 25 3d b9  |. ..minimised%=.|
00003a70  0d 20 f8 21 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |. .!.. "Wimp_Slo|
00003a80  74 53 69 7a 65 22 2c 33  32 2a 31 30 32 34 2c 2d  |tSize",32*1024,-|
00003a90  31 0d 21 02 05 e1 0d 21  0c 04 0d 21 16 10 dd f2  |1.!....!...!....|
00003aa0  64 65 6d 69 6e 69 6d 69  73 65 0d 21 20 10 6d 69  |deminimise.! .mi|
00003ab0  6e 69 6d 69 73 65 64 25  3d a3 0d 21 2a 2c c8 99  |nimised%=..!*,..|
00003ac0  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
00003ad0  2c 39 36 2a 31 30 32 34  2b 73 69 7a 65 25 2c 2d  |,96*1024+size%,-|
00003ae0  31 20 b8 20 53 25 0d 21  34 30 e7 20 53 25 3c 39  |1 . S%.!40. S%<9|
00003af0  36 2a 31 30 32 34 2b 73  69 7a 65 25 20 8c 20 85  |6*1024+size% . .|
00003b00  20 31 2c 22 4e 6f 74 20  65 6e 6f 75 67 68 20 6d  | 1,"Not enough m|
00003b10  65 6d 6f 72 79 22 0d 21  3e 0d f2 61 73 73 65 6d  |emory".!>..assem|
00003b20  62 6c 65 0d 21 48 0c f2  6c 6f 61 64 52 4f 4d 0d  |ble.!H..loadROM.|
00003b30  21 52 0e e7 20 65 78 61  63 74 25 20 8c 0d 21 5c  |!R.. exact% ..!\|
00003b40  56 e7 20 74 61 70 65 20  8c 20 ff 20 22 4c 6f 61  |V. tape . . "Loa|
00003b50  64 20 3c 5a 38 30 45 6d  24 44 69 72 3e 2e 43 6f  |d <Z80Em$Dir>.Co|
00003b60  64 65 54 20 22 2b c3 7e  63 6f 64 65 25 20 8b 20  |deT "+.~code% . |
00003b70  ff 20 22 4c 6f 61 64 20  3c 5a 38 30 45 6d 24 44  |. "Load <Z80Em$D|
00003b80  69 72 3e 2e 43 6f 64 65  33 20 22 2b c3 7e 63 6f  |ir>.Code3 "+.~co|
00003b90  64 65 25 0d 21 66 05 cc  0d 21 70 27 ff 20 22 4c  |de%.!f...!p'. "L|
00003ba0  6f 61 64 20 3c 5a 38 30  45 6d 24 44 69 72 3e 2e  |oad <Z80Em$Dir>.|
00003bb0  43 6f 64 65 32 20 22 2b  c3 7e 63 6f 64 65 25 0d  |Code2 "+.~code%.|
00003bc0  21 7a 05 cd 0d 21 84 05  e1 0d 21 8e 04 0d 21 98  |!z...!....!...!.|
00003bd0  1a dd a4 65 72 72 62 6c  6b 28 65 72 72 25 2c 72  |...errblk(err%,r|
00003be0  65 70 6f 72 74 24 29 0d  21 a2 26 21 65 72 72 62  |eport$).!.&!errb|
00003bf0  6c 6b 25 3d 65 72 72 25  3a 24 28 65 72 72 62 6c  |lk%=err%:$(errbl|
00003c00  6b 25 2b 34 29 3d 72 65  70 6f 72 74 24 0d 21 ac  |k%+4)=report$.!.|
00003c10  1f 65 72 72 62 6c 6b 25  3f 28 34 2b a9 24 28 65  |.errblk%?(4+.$(e|
00003c20  72 72 62 6c 6b 25 2b 34  29 29 3d 30 0d 21 b6 0c  |rrblk%+4))=0.!..|
00003c30  3d 65 72 72 62 6c 6b 25  0d 21 c0 04 0d 21 ca 0e  |=errblk%.!...!..|
00003c40  dd f2 70 6f 6b 65 28 41  24 29 0d 21 d4 11 ea 20  |..poke(A$).!... |
00003c50  42 24 2c 43 24 2c 42 25  2c 43 25 0d 21 de 14 e7  |B$,C$,B%,C%.!...|
00003c60  20 6d 69 6e 69 6d 69 73  65 64 25 20 8c 20 e1 0d  | minimised% . ..|
00003c70  21 e8 1b e7 20 a4 63 6f  75 6e 74 28 41 24 2c 22  |!... .count(A$,"|
00003c80  2c 22 29 3c 3e 31 20 8c  20 e1 0d 21 f2 16 42 24  |,")<>1 . ..!..B$|
00003c90  3d c0 41 24 2c a7 41 24  2c 22 2c 22 29 2d 31 29  |=.A$,.A$,",")-1)|
00003ca0  0d 21 fc 15 43 24 3d c2  41 24 2c a9 41 24 2d a9  |.!..C$=.A$,.A$-.|
00003cb0  42 24 2d 31 29 0d 22 06  2d e7 20 a7 c2 42 24 2c  |B$-1).".-. ..B$,|
00003cc0  a9 42 24 2d 31 29 2c 22  26 22 29 20 84 20 a7 c2  |.B$-1),"&") . ..|
00003cd0  43 24 2c a9 43 24 2d 31  29 2c 22 26 22 29 20 8c  |C$,.C$-1),"&") .|
00003ce0  20 e1 0d 22 10 23 e7 20  c0 42 24 2c 31 29 3c 3e  | ..".#. .B$,1)<>|
00003cf0  22 26 22 20 80 20 a4 6c  65 74 74 65 72 28 42 24  |"&" . .letter(B$|
00003d00  29 20 8c 20 e1 0d 22 1a  23 e7 20 c0 43 24 2c 31  |) . ..".#. .C$,1|
00003d10  29 3c 3e 22 26 22 20 80  20 a4 6c 65 74 74 65 72  |)<>"&" . .letter|
00003d20  28 43 24 29 20 8c 20 e1  0d 22 24 13 42 25 3d a0  |(C$) . .."$.B%=.|
00003d30  42 24 20 3a 20 43 25 3d  a0 43 24 0d 22 2e 29 e7  |B$ : C%=.C$.".).|
00003d40  20 42 25 3e 26 46 46 46  46 20 84 20 42 25 3c 30  | B%>&FFFF . B%<0|
00003d50  20 84 20 43 25 3e 26 46  46 20 84 20 43 25 3c 30  | . C%>&FF . C%<0|
00003d60  20 8c 20 e1 0d 22 38 10  5a 38 30 6d 65 6d 3f 42  | . .."8.Z80mem?B|
00003d70  25 3d 43 25 0d 22 42 05  e1 0d 22 4c 04 0d 22 56  |%=C%."B..."L.."V|
00003d80  12 dd a4 63 6f 75 6e 74  28 41 24 2c 42 24 29 0d  |...count(A$,B$).|
00003d90  22 60 0a ea 49 25 2c 43  25 0d 22 6a 0f e3 49 25  |"`..I%,C%."j..I%|
00003da0  3d 31 20 b8 20 a9 41 24  0d 22 74 1a e7 20 c1 41  |=1 . .A$."t.. .A|
00003db0  24 2c 49 25 2c 31 29 3d  42 24 20 8c 20 43 25 2b  |$,I%,1)=B$ . C%+|
00003dc0  3d 31 0d 22 7e 05 ed 0d  22 88 07 3d 43 25 0d 22  |=1."~..."..=C%."|
00003dd0  92 04 0d 22 9c 10 dd a4  6c 65 74 74 65 72 28 41  |..."....letter(A|
00003de0  24 29 0d 22 a6 0b ea 20  49 25 2c 4a 25 0d 22 b0  |$)."... I%,J%.".|
00003df0  0f e3 49 25 3d 31 20 b8  20 a9 41 24 0d 22 ba 2e  |..I%=1 . .A$."..|
00003e00  e7 20 a7 22 41 42 43 44  45 46 61 62 63 64 65 66  |. ."ABCDEFabcdef|
00003e10  22 2c c1 41 24 2c 49 25  2c 31 29 29 20 8c 20 4a  |",.A$,I%,1)) . J|
00003e20  25 3d b9 3a 49 25 3d a9  41 24 0d 22 c4 05 ed 0d  |%=.:I%=.A$."....|
00003e30  22 ce 07 3d 4a 25 0d 22  d8 04 0d 22 e2 0c dd f2  |"..=J%."..."....|
00003e40  70 75 73 68 70 63 0d 22  ec 10 53 50 3d 21 73 70  |pushpc."..SP=!sp|
00003e50  20 3e 3e 20 31 36 0d 22  f6 16 5a 38 30 6d 65 6d  | >> 16."..Z80mem|
00003e60  3f 28 53 50 2d 32 29 3d  50 63 3f 32 0d 23 00 16  |?(SP-2)=Pc?2.#..|
00003e70  5a 38 30 6d 65 6d 3f 28  53 50 2d 31 29 3d 50 63  |Z80mem?(SP-1)=Pc|
00003e80  3f 33 0d 23 0a 0b 53 50  3d 53 50 2d 32 0d 23 14  |?3.#..SP=SP-2.#.|
00003e90  11 73 70 3f 32 3d 53 50  20 80 20 26 46 46 0d 23  |.sp?2=SP . &FF.#|
00003ea0  1e 1a 73 70 3f 33 3d 28  53 50 20 80 20 26 46 46  |..sp?3=(SP . &FF|
00003eb0  30 30 29 20 3e 3e 20 38  0d 23 28 05 e1 0d 23 32  |00) >> 8.#(...#2|
00003ec0  04 0d 23 3c 0a dd f2 71  75 69 74 0d 23 46 08 ee  |..#<...quit.#F..|
00003ed0  85 20 87 0d 23 50 1d c8  99 20 22 58 5a 38 30 5f  |. ..#P... "XZ80_|
00003ee0  44 65 52 65 67 69 73 74  65 72 22 20 b8 20 41 25  |DeRegister" . A%|
00003ef0  0d 23 5a 4a e7 20 41 25  3d 30 20 8c 20 c8 99 20  |.#ZJ. A%=0 . .. |
00003f00  22 58 4f 53 5f 43 4c 49  22 2c 22 52 4d 4b 69 6c  |"XOS_CLI","RMKil|
00003f10  6c 20 5a 38 30 53 75 70  70 6f 72 74 22 3a c8 99  |l Z80Support":..|
00003f20  20 22 58 4f 53 5f 43 4c  49 22 2c 22 52 4d 4b 69  | "XOS_CLI","RMKi|
00003f30  6c 6c 20 4d 6f 64 65 36  30 22 0d 23 64 17 c8 99  |ll Mode60".#d...|
00003f40  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00003f50  22 0d 23 6e 05 e0 0d 23  78 05 e1 0d 23 82 04 0d  |".#n...#x...#...|
00003f60  23 8c 0a dd f2 73 61 76  65 0d 23 96 24 e7 20 73  |#....save.#.$. s|
00003f70  6f 6c 69 64 25 20 8c 20  c8 99 20 22 44 72 61 67  |olid% . .. "Drag|
00003f80  41 53 70 72 69 74 65 5f  53 74 6f 70 22 0d 23 a0  |ASprite_Stop".#.|
00003f90  09 4b 24 3d 22 22 0d 23  aa 1b 21 64 72 61 67 3d  |.K$="".#..!drag=|
00003fa0  78 66 65 72 25 28 73 61  76 65 5f 74 79 70 65 25  |xfer%(save_type%|
00003fb0  29 0d 23 b4 0c 64 72 61  67 21 34 3d 31 0d 23 be  |).#..drag!4=1.#.|
00003fc0  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  | .. "Wimp_GetIco|
00003fd0  6e 53 74 61 74 65 22 2c  2c 64 72 61 67 0d 23 c8  |nState",,drag.#.|
00003fe0  10 50 25 3d 64 72 61 67  21 32 38 2d 31 0d 23 d2  |.P%=drag!28-1.#.|
00003ff0  0b f5 20 50 25 2b 3d 31  0d 23 dc 1a e7 20 3f 50  |.. P%+=1.#... ?P|
00004000  25 3c 3e 31 33 20 8c 20  4b 24 3d 4b 24 2b bd 3f  |%<>13 . K$=K$+.?|
00004010  50 25 0d 23 e6 21 e7 20  3f 50 25 3d 97 22 2e 22  |P%.#.!. ?P%=."."|
00004020  20 84 20 3f 50 25 3d 97  22 3a 22 20 8c 20 4b 24  | . ?P%=.":" . K$|
00004030  3d 22 22 0d 23 f0 0b fd  3f 50 25 3d 31 33 0d 23  |="".#...?P%=13.#|
00004040  fa 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |. .. "Wimp_GetPo|
00004050  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 71 25 0d 24  |interInfo",,q%.$|
00004060  04 38 e7 20 71 25 21 31  32 3c 3e 78 66 65 72 25  |.8. q%!12<>xfer%|
00004070  28 73 61 76 65 5f 74 79  70 65 25 29 20 8c 20 c8  |(save_type%) . .|
00004080  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00004090  6e 75 22 2c 2d 31 0d 24  0e 0f 71 25 21 32 30 3d  |nu",-1.$..q%!20=|
000040a0  71 25 21 31 32 0d 24 18  0f 71 25 21 32 34 3d 71  |q%!12.$..q%!24=q|
000040b0  25 21 31 36 0d 24 22 0e  71 25 21 32 38 3d 71 25  |%!16.$".q%!28=q%|
000040c0  21 30 0d 24 2c 0e 71 25  21 33 32 3d 71 25 21 34  |!0.$,.q%!32=q%!4|
000040d0  0d 24 36 04 0d 24 40 0b  71 25 21 31 32 3d 30 0d  |.$6..$@.q%!12=0.|
000040e0  24 4a 0b 71 25 21 31 36  3d 31 0d 24 54 0f 71 25  |$J.q%!16=1.$T.q%|
000040f0  21 33 36 3d 34 39 31 37  39 0d 24 5e 0e 71 25 21  |!36=49179.$^.q%!|
00004100  34 30 3d 26 42 41 31 0d  24 68 12 24 28 71 25 2b  |40=&BA1.$h.$(q%+|
00004110  34 34 29 3d 4b 24 2b bd  30 0d 24 72 1e 71 25 21  |44)=K$+.0.$r.q%!|
00004120  30 3d 28 34 38 2b a9 4b  24 29 20 80 20 25 31 31  |0=(48+.K$) . %11|
00004130  31 31 31 31 31 30 30 0d  24 7c 04 0d 24 86 2b c8  |1111100.$|..$.+.|
00004140  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00004150  61 67 65 22 2c 31 37 2c  71 25 2c 71 25 21 32 30  |age",17,q%,q%!20|
00004160  2c 71 25 21 32 34 0d 24  90 0f 6d 79 72 65 66 25  |,q%!24.$..myref%|
00004170  3d 71 25 21 38 0d 24 9a  05 e1 0d 24 a4 04 0d 24  |=q%!8.$....$...$|
00004180  ae 0e dd f2 6d 6f 64 73  70 65 65 64 0d 24 b8 0e  |....modspeed.$..|
00004190  e7 20 65 78 61 63 74 25  20 8c 0d 24 c2 1f e7 20  |. exact% ..$... |
000041a0  73 70 65 65 64 25 3c 26  32 30 30 20 8c 20 73 70  |speed%<&200 . sp|
000041b0  65 65 64 25 3d 26 32 30  30 0d 24 cc 23 e7 20 73  |eed%=&200.$.#. s|
000041c0  70 65 65 64 25 3e 26 33  30 30 30 30 20 8c 20 73  |peed%>&30000 . s|
000041d0  70 65 65 64 25 3d 26 33  30 30 30 30 0d 24 d6 05  |peed%=&30000.$..|
000041e0  cc 0d 24 e0 19 e7 20 73  70 65 65 64 25 3c 30 20  |..$... speed%<0 |
000041f0  8c 20 73 70 65 65 64 25  3d 30 0d 24 ea 1b e7 20  |. speed%=0.$... |
00004200  73 70 65 65 64 25 3e 31  30 20 8c 20 73 70 65 65  |speed%>10 . spee|
00004210  64 25 3d 31 30 0d 24 f4  05 cd 0d 24 fe 05 e1 0d  |d%=10.$....$....|
00004220  25 08 04 0d 25 12 0e dd  f2 73 61 76 65 72 65 67  |%...%....savereg|
00004230  73 0d 25 1c 07 ea 49 25  0d 25 26 0e e3 49 25 3d  |s.%...I%.%&..I%=|
00004240  30 20 b8 20 31 31 0d 25  30 1e 74 65 6d 70 5f 72  |0 . 11.%0.temp_r|
00004250  65 67 73 21 28 49 25 2a  34 29 3d 50 63 21 28 49  |egs!(I%*4)=Pc!(I|
00004260  25 2a 34 29 0d 25 3a 05  ed 0d 25 44 05 e1 0d 25  |%*4).%:...%D...%|
00004270  4e 04 0d 25 58 0e dd f2  6c 6f 61 64 72 65 67 73  |N..%X...loadregs|
00004280  0d 25 62 07 ea 49 25 0d  25 6c 0e e3 49 25 3d 30  |.%b..I%.%l..I%=0|
00004290  20 b8 20 31 31 0d 25 76  1e 50 63 21 28 49 25 2a  | . 11.%v.Pc!(I%*|
000042a0  34 29 3d 74 65 6d 70 5f  72 65 67 73 21 28 49 25  |4)=temp_regs!(I%|
000042b0  2a 34 29 0d 25 80 05 ed  0d 25 8a 05 e1 0d 25 94  |*4).%....%....%.|
000042c0  04 0d 25 9e 0e dd a4 6c  65 61 66 28 41 24 29 0d  |..%....leaf(A$).|
000042d0  25 a8 08 ea 20 49 25 0d  25 b2 0c 49 25 3d a9 41  |%... I%.%..I%=.A|
000042e0  24 2b 31 0d 25 bc 1a f5  49 25 2d 3d 31 3a fd 20  |$+1.%...I%-=1:. |
000042f0  c1 41 24 2c 49 25 2c 31  29 3d 22 2e 22 0d 25 c6  |.A$,I%,1)=".".%.|
00004300  0c 3d c0 41 24 2c 49 25  29 0d 25 d0 04 0d 25 da  |.=.A$,I%).%...%.|
00004310  09 dd f2 65 72 72 0d 25  e4 08 ee 85 20 87 0d 25  |...err.%.... ..%|
00004320  ee 47 c8 99 20 22 58 57  69 6d 70 5f 52 65 70 6f  |.G.. "XWimp_Repo|
00004330  72 74 45 72 72 6f 72 22  2c a4 65 72 72 62 6c 6b  |rtError",.errblk|
00004340  28 9f 2c f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  |(.,.$+" at line |
00004350  22 2b c3 9e 29 2c 33 2c  22 5a 38 30 45 6d 22 20  |"+..),3,"Z80Em" |
00004360  b8 20 2c 41 25 0d 25 f8  1a e7 20 41 25 3d 32 20  |. ,A%.%... A%=2 |
00004370  8c 20 f2 71 75 69 74 20  8b 20 f2 70 6f 6c 6c 0d  |. .quit . .poll.|
00004380  26 02 05 e1 0d 26 0c 04  0d 26 16 0e dd f2 65 72  |&....&...&....er|
00004390  72 32 28 4d 25 29 0d 26  20 08 ee 85 20 87 0d 26  |r2(M%).& ... ..&|
000043a0  2a 19 c8 99 20 22 58 57  69 6d 70 5f 53 65 74 4d  |*... "XWimp_SetM|
000043b0  6f 64 65 22 2c 4d 25 0d  26 34 47 c8 99 20 22 58  |ode",M%.&4G.. "X|
000043c0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
000043d0  22 2c a4 65 72 72 62 6c  6b 28 9f 2c f6 24 2b 22  |",.errblk(.,.$+"|
000043e0  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 29 2c 33  | at line "+..),3|
000043f0  2c 22 5a 38 30 45 6d 22  20 b8 20 2c 41 25 0d 26  |,"Z80Em" . ,A%.&|
00004400  3e 1a e7 20 41 25 3d 32  20 8c 20 f2 71 75 69 74  |>.. A%=2 . .quit|
00004410  20 8b 20 f2 70 6f 6c 6c  0d 26 48 05 e1 0d 26 52  | . .poll.&H...&R|
00004420  04 0d 26 5c 0d dd f2 6c  6f 61 64 52 4f 4d 0d 26  |..&\...loadROM.&|
00004430  66 2b ff 20 22 4c 6f 61  64 20 3c 5a 38 30 45 6d  |f+. "Load <Z80Em|
00004440  24 52 65 73 3e 2e 53 50  45 43 52 4f 4d 4f 20 22  |$Res>.SPECROMO "|
00004450  2b c3 7e 5a 38 30 6d 65  6d 0d 26 70 0d e7 20 ac  |+.~Z80mem.&p.. .|
00004460  74 61 70 65 20 8c 0d 26  7a 1c 5a 38 30 6d 65 6d  |tape ..&z.Z80mem|
00004470  3f 26 35 36 41 3d 26 37  36 20 3a 20 f4 20 48 41  |?&56A=&76 : . HA|
00004480  4c 54 0d 26 84 13 5a 38  30 6d 65 6d 3f 26 35 36  |LT.&..Z80mem?&56|
00004490  42 3d 26 45 44 0d 26 8e  13 5a 38 30 6d 65 6d 3f  |B=&ED.&..Z80mem?|
000044a0  26 35 36 43 3d 26 46 43  0d 26 98 1b 5a 38 30 6d  |&56C=&FC.&..Z80m|
000044b0  65 6d 3f 26 35 36 44 3d  26 43 39 20 3a 20 f4 20  |em?&56D=&C9 : . |
000044c0  52 45 54 0d 26 a2 05 cd  0d 26 ac 04 0d 26 b6 36  |RET.&....&...&.6|
000044d0  f4 5a 38 30 6d 65 6d 3f  26 30 44 32 43 3d 26 31  |.Z80mem?&0D2C=&1|
000044e0  37 20 3a 20 52 45 4d 20  73 74 6f 70 20 52 4f 4d  |7 : REM stop ROM|
000044f0  20 77 72 69 74 69 6e 67  20 74 6f 20 69 74 73 65  | writing to itse|
00004500  6c 66 0d 26 c0 36 f4 5a  38 30 6d 65 6d 3f 26 33  |lf.&.6.Z80mem?&3|
00004510  33 46 43 3d 26 31 33 20  3a 20 52 45 4d 20 73 74  |3FC=&13 : REM st|
00004520  6f 70 20 52 4f 4d 20 77  72 69 74 69 6e 67 20 74  |op ROM writing t|
00004530  6f 20 69 74 73 65 6c 66  0d 26 ca 04 0d 26 d4 3d  |o itself.&...&.=|
00004540  f4 5a 38 30 6d 65 6d 3f  26 30 38 30 35 3d 26 43  |.Z80mem?&0805=&C|
00004550  39 20 3a 20 52 45 4d 20  52 45 54 20 74 6f 20 73  |9 : REM RET to s|
00004560  74 6f 70 20 52 20 54 61  70 65 20 6c 6f 61 64 69  |top R Tape loadi|
00004570  6e 67 20 65 72 72 6f 72  73 0d 26 de 04 0d 26 e8  |ng errors.&...&.|
00004580  1e f4 5a 38 30 6d 65 6d  3f 26 35 45 30 3d 26 33  |..Z80mem?&5E0=&3|
00004590  37 20 3a 20 52 45 4d 20  53 43 46 0d 26 f2 1e f4  |7 : REM SCF.&...|
000045a0  5a 38 30 6d 65 6d 3f 26  35 45 31 3d 30 20 20 20  |Z80mem?&5E1=0   |
000045b0  3a 20 52 45 4d 20 4e 4f  50 0d 26 fc 04 0d 27 06  |: REM NOP.&...'.|
000045c0  05 e1 0d 27 10 04 0d 27  1a 0e dd f2 64 65 6d 6f  |...'...'....demo|
000045d0  28 41 24 29 0d 27 24 36  c8 99 20 22 57 69 6d 70  |(A$).'$6.. "Wimp|
000045e0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c a4 65  |_ReportError",.e|
000045f0  72 72 62 6c 6b 28 31 2c  41 24 29 2c 25 31 31 30  |rrblk(1,A$),%110|
00004600  30 31 2c 22 5a 38 30 45  6d 22 0d 27 2e 05 e1 0d  |01,"Z80Em".'....|
00004610  ff                                                |.|
00004611