� > !RunImage

Q� ---------------------------------------------------------------------------

)�  Aurthor   - Computer Concepts Ltd.
M�  Purpose   - Basic code to perform tanslation of clear files to sprites
�  Version   - 1.00
�  Started   - 12/12/93
	�  Completed - 12/12/93

.�  Changes   - Mike - Originated this file

Q� ---------------------------------------------------------------------------


 � � �ReportSystemError(�$):�

� blk     1024
� scratch 1024

Debug%=�
	�vars
	�code

�Mem_Init
�W_Initialise(app_name$)
�setrunning
T%=�loadresources
� T%=� � �W_CloseDown:�
�W_Poll
�


� �vars
 app_name$="TransClear"
! app_path$="<TransClear$Dir>"
"app_leaf$="TClear"
#
$FType_Sprite = &FF9
%FType_Draw   = &AFF
&
'IconMenu = 0
(MainMenu = 1
)swapval  = 1
*mess_Size    = 0
+mess_Sender  = 4
,mess_MyRef   = 8
-mess_YourRef = 12
.mess_Type    = 16
/mess_Data    = 20
0mess_Length  = mess_Size
1mess_TaskID  = mess_Sender
2mess_Action  = mess_Type
3mess_SIZE    = 256
4
5dith_off    = 0<<2
6dith_simple = 1<<2
7dith_floyd  = 2<<2
8dith_fwd    = 0<<5
9dith_bkwd   = 1<<5
:dith_zigzag = 2<<5
;
<SrcCtrl_Flags = 0
=SrcCtrl_Offset = 4
>SrcCtrl_BlackCorrect = 8
?SrcCtrl_RangeShift = 12
@SrcCtrl_RangeScale = 16
ASrcCtrl_RedRes = 20
BSrcCtrl_GreenRes = 21
CSrcCtrl_BlueRes = 22
DSrcCtrl_Reserved = 23
E
FDataSave% = 1
GDataSaveAck% = 2
HDataLoad% = 3
IDataLoadAck% = 4
Jdloadref%=0
Kdsaveref%=0
L�
M
N
O
P� �W_Initialise(n$)
Q$blk = "TASK"
R:ș "Wimp_Initialise",200,!blk,app_name$ � ,TaskHandle%
S�
T
U
V
W
� �W_Poll
Xpoll_mask% = %000110001
Y
quit% = �
Z�
[+ș "Wimp_Poll",poll_mask%,blk � reason%
\Ȏ reason% �
]  � 17,18:�W_Message
^  � 19:�W_RecordedMessage
_�
`� quit%
a�W_CloseDown
b�
c
d
e� �W_CloseDown
f
�clearrun
gș "Wimp_CloseDown"
h�
i
j
k� �W_Message
l=ref% =blk!8                            :� the senders ref
mAtask%=blk!4                            :� the senders task id
n;� task%=TaskHandle%:�           :� ignore if we sent it
o Ȏ blk!16 �
p  � 0: quit%=�
q  � 2: �DataSaveAck
r  � 4: �DataLoadAck
s%  � &80E1F:�ReceivedTransFFG(blk)
t�
u�
v
w� �W_RecordedMessage
x=ref% =blk!8                            :� the senders ref
yAtask%=blk!4                            :� the senders task id
z Ȏ blk!16 �
{-  � DataSave%: � ref%=dsaveref% � quit%=�
|-  � DataLoad%: � ref%=dloadref% � quit%=�
} �
~�

�
�Q� ---------------------------------------------------------------------------
��
�!� String manipulation section
��
�Q� ---------------------------------------------------------------------------
�
�� �getstring(a%)
�� a$
�	a$=""
�ȕ ?a%>=32
�  a$=a$+�(?a%)
�  a%+=1
��
�=a$
�
�� �leaf(l$)
�� l%
�l%=1
�ȕ �l$,".",l%)>0
�  l%=�l$,".",l%)+1
��
�=�l$,l%)
�
�� �leafoffset(l$)
�� l%
�l%=�(l$)
�ȕ �l$,l%,1)<>"." � l%>1
�
 l%-=1
��
�=l%
�
�
�Q� ---------------------------------------------------------------------------
��
�� Data loading section
��
�Q� ---------------------------------------------------------------------------
�
�
�
�� �ReceivedTransFFG(mess)
�T� ------------------------------------------------------------------------------
��
��  Received_TranslateFFG
��
�1�  On entry - R0 = User message recorded (18)
��           - R1 = ^Block
�(�               +0 = length of block
�.�               +4 = task handle of sender
��               +8 = my ref
��              +12 = 0
�5�              +16 = action number (TranslateFFG)
�2�              +20 = destination window handle
�0�              +24 = destination icon handle
�1�              +28 = destination x coordinate
�1�              +32 = destination y coordinate
�I�              +36 = DataLoad message your_ref (0 if data from filer)
�5�              +40 = file type of data (FFG type)
�/�              +44 = destin (IFG) file type
�>�          +48..64 = 16 byte unique name padded with zeros
�L�         +64..104 = control parameter list (all zero if not applicable)
�?�             +104 = full pathname of data, zero terminated
��
�T� ------------------------------------------------------------------------------
�
�3� �getstring(mess+48)<>"TransClear" � quit%=�:�
�oftype%=mess!44
�7� oftype%<>FType_Draw � �ResError("CF00"):quit%=�:�
�
oflags%=0
�dwin%=mess!20
�dicon%=mess!24
�dix%=mess!28
�diy%=mess!32
�sender%=mess!4
�myref%=mess!8
�orig%=mess!36
�fpath$=�getstring(mess+104)
�flen%=�FileLength(fpath$)
�+� flen%=0 � �ResError("CF06"):quit%=�:�
��SendTranslateFFGAck
�,cl%=�FilterClear(1,fpath$,flen%,oflags%)
�$� orig%<>0 � �DeleteFile(fpath$)
�� cl% �
�% �ReturnFile(sender%,cl%,oftype%)
��
� �Mem_KillSlot
� quit%=�
��
��
�
�
�� �SendTranslateFFGAck
�scratch!12=myref%
�scratch!16=&80E20
�scratch!0=20
�,ș "Wimp_SendMessage",17,scratch,sender%
��
�
�
�
�� �DataSaveAck
�%� blk!mess_YourRef<>dsaveref% � �
�spath$=�getstring(blk+44)
�$s%=�SaveTransFile(spath$,blk!40)
�
� s% �
�  sender%=blk!mess_Sender
�  blk!12=blk!8
�  blk!mess_Type=DataLoad%
�*  ș "Wimp_SendMessage",18,blk,sender%
�  dloadref%=blk!mess_MyRef
��
�
  quit%=�
��
��
�
�
�� �DataLoadAck
�yref%=blk!mess_YourRef
�*� blk!mess_YourRef=dloadref% � quit%=�
��
�
�
�$� �ReturnFile(sndr%,len%,ftype%)
�&� �doesvarexist("Wimp$Scrap")<>0 �
�  blk!mess_YourRef=0
�  blk!mess_Type=DataSave%
�  blk!20=dwin%

  blk!24=dicon%


  blk!28=dix%

  blk!32=diy%

  blk!36=len%

  blk!40=ftype%

  $(blk+44)=app_leaf$

'  blk!0 =((45+�(app_leaf$))+3) � -4

(  ș "Wimp_SendMessage",18,blk,sndr%

  dsaveref%=blk!8

	�


  �ResError("WSNF")


  quit%=�

�


�





� �doesvarexist(v$)

� e%

0ș "XOS_ReadVarVal",v$,scratch,-1,0,3 � ,,e%

=e%





Q� ---------------------------------------------------------------------------

�

� File handling section

�

Q� ---------------------------------------------------------------------------



� �FileLength(path$)

� type%,len%

(ș "OS_File",5,path$ � type%,,,,len%

� type%<>1 � len%=0

 	=len%

!

"� �File_Load(path$,buffer)

# � "LOAD "+path$+" "+�~buffer

$�

%

&"� �File_Save(path$,buffer,len)

'*� "SAVE "+path$+" "+�~buffer+"+"+�~len

(�

)

*� �File_SetType(path$,type)

+!� "SETTYPE "+path$+" "+�~type

,�

-

.� �DeleteFile(p$)

/� flags%

0 ș "XOS_File",6,p$ � ;flags%

1�

2

3

4

5Q� ---------------------------------------------------------------------------

6�

7� Error section

8�

9Q� ---------------------------------------------------------------------------

:

;� �ReportWimpError(report$)

<!scratch = 0

=$(scratch+4)=report$

>?(scratch+4+�report$)=0

?.ș "Wimp_ReportError",scratch,%1,app_name$

@�

A

B!� �ReportSystemError(report$)

C,� 0,report$+" internal error ("+�(�)+")"

D�

E

F� �ResError(r$)

Gr$=�FindResourceString(r$)

H�ReportWimpError(r$)

I�

J

K� �PeekError(err%)

L(�ReportWimpError(�getstring(err%+4))

M�

N

O� �loadresources

P� l%,res$,claim

Q
res%=0

R ș "OS_Byte",70,127 � ,cnum%

S5ș "OS_ServiceCall",0,&43,2,0,scratch,32 � ,claim

T� claim=0 �

U  res$="UK"

V�

W  res$=�getstring(scratch)

X�

Y%res$=app_path$+".Resources."+res$

Zl%=�FileLength(res$)

[;� l%=0 � �ReportWimpError("resource file not found"):=�

\res%=�Claim(l%+4)

]J� res%=-1 � �ReportWimpError("Not enough memory to load resources"):=�

^
res%!0=l%

_!� "LOAD "+res$+" "+�~(res%+4)

`=�

a

b

c� �FindResourceString(r$)

d� l%,rend%

e-� res%=0 � ="Unknown resource error: "+r$

f
l%=res%!0

g
a%=res%+4

hrend%=res%+l%+4

if%=�

jȕ a%<rend% � � f%

k' s$=�(a%?0)+�(a%?1)+�(a%?2)+�(a%?3)

l � s$=r$ �

m"   s$=�getres(a%+5,rend%):f%=�

n �

o   ȕ ?a%>31 � a%<rend%

p     a%+=1

q   �

r   a%+=1

s �

t�

u� f% � =s$

v"="Unknown resource error: "+r$

w

x

y� �getres(r%,e%)

z� a$

{	a$=""

|ȕ ?r%>=32 � r%<e%

}  a$=a$+�(?r%)

~  r%+=1

�

�=a$

�

�

�

�

�Q� ---------------------------------------------------------------------------

��

�� Memory bits

��

�O� Ensuremem will ensure that there is enough memory in the variable buffer.

�O� This buffer is held above HIMEM, using Wimp_SlotSize to resize the amount

�N� of memory free. An error will be generated if there is not enough memory

�*� to cope with all the possible fonts.

��

�Q� ---------------------------------------------------------------------------

�

�

�� �Mem_Init

�MyHimem =�

�base    =�

�insert  =base

�5ș"Wimp_SlotSize",-1,-1 � envcurr,envnext,envfree

�-ș"OS_ReadMemMapInfo" � pagesize,numpages

��

�

�

�� �Claim(req)

�req=(req+3) � -4

�:� (insert+req)<MyHimem � insert=insert+req:=insert-req

�Kș "Wimp_SlotSize",-1,-1 � current,next,free           :� get slot info

�newhimem=insert+req

�newhimem+=pagesize-1

�)newhimem =newhimem � (� (pagesize-1))

�!� newhimem-MyHimem>free � =-1

� next=next-(newhimem-MyHimem)

�&current=current+(newhimem-MyHimem)

�6ș"Wimp_SlotSize",current,next � current,next,free

�MyHimem=current+&8000

�insert=insert+req

�=insert-req

�

�� �Mem_KillSlot

�.ș "Wimp_SlotSize",envcurr,envnext,envfree

�
�Mem_Init

��

�

�� �Align(ptr) =(ptr+3)�-4

�

�

�

�

�

�Q� ---------------------------------------------------------------------------

��

�)� Ok finally application related code

��

�Q� ---------------------------------------------------------------------------

�

�� �setrunning

�$�("SET TransClear$Running TRUE")

��

�

�� �clearrun

�!�("UNSET TransClear$Running")

��

�

�

�

�'� �FilterClear(cf%,path$,len%,flg%)

�T� ------------------------------------------------------------------------------

��

��  FilterClear

��

�$�  On entry - R0 = Control flags

��                  Bit 0..1

�2�                    = 0 then source in memory

�1�                    = 1 then source pathname

�4�                    = 2 then source file handle

�.�           - R1 = depends on R0 bits 0..1

�:�                    = 0 then R1=^Tiff image in memory

�.�                    = 1 then R1=^Pathname

�8�                    = 2 then R1= source file handle

�0�           - R2 = Length of TIFF image data

��           - R3 = Flags

�/�                  0 = convert to draw file

�F�                  1 = convert to sprite with control block header

�B�                  2 = convert to sprite without control block

��

�*�  On exit  - R3 = ^Start of draw file

�(�           - R4 = ^End of draw file

��

�9�  Errors   - VS if an error occured, R0=^Error block

�/�           - VC then conversion successful

��

�T� ------------------------------------------------------------------------------

�

�� cf%<>1 � =0

�
X=� path$

� � X=0 � �ResError("CF02"):=0

�,� � � �#X:�ReportWimpError(�$+" "+Þ):=0

�name$  = �readstring

�version= �readword

�xres   = �readword

�yres   = �readword

�sbpp   = �readword

�sbpp   = sbpp � &FF

�dbpp   = sbpp

�c%=�

�B� sbpp=1 � sbpp=2 � sbpp=4 � sbpp=8 � sbpp=16 � sbpp=24 � c%=�

�%� � c% � �ResError("CF05"):�#X:=0

�� dbpp=24 � dbpp=32

�palette%=-1

�+� sbpp<=8 � palette%=�ReadPalette(sbpp)

�� palette%=0 � �#X:=0

�� sbpp<16 � scanwid%=xres

�� sbpp=16 � scanwid%=3*xres

�� sbpp=24 � scanwid%=3*xres

�Scanline=�Claim(scanwid%)

�,� Scanline=-1 � �ResError("CF01"):�#X:=0

�;ș "PicTrans_DescribeSource",sbpp,xres,yres � imagesize

�
Ȏ flg% �

�  � 0:imhdr%=64

�  � 1:imhdr%=12

�  � 2:imhdr%=0

��

�"Image=�Claim(imagesize+imhdr%)

�)� Image=-1 � �ResError("CF01"):�#X:=0

�
Ȏ flg% �
   � 0:�InitDrawHeader(Image)

"  � 1:�InitSpriteHeader(Image)
�
Gș "PicTrans_OpenOutput",Image+imhdr%,palette%,&100 � Address,Param
!add=Address
!par=Param
!img=Image+imhdr%

!fhndle=X
!bwidth=scanwid%
	!xwidth=xres

!scan=Scanline
!tbpp=sbpp
ș "Hourglass_On"

� M%=0 � yres-1
 !ind=M%
 � transscan
H � !ErrPtr<>0 � M%=yres-1 � ș "Hourglass_Percentage",99*M%/(yres-1)
�
ș "Hourglass_Off"
�#X
&� !ErrPtr<>0 � �PeekError(!ErrPtr)
� M%=0 � =�
=�


� �ReadPalette(bpp)
� ncols
ncols=1<<bpp
pal=�Claim(ncols*8)
#� pal=-1 � �ResError("CF04"):=0
� m%=0 � ncols-1
 r%=�#X
  g%=�#X
! b%=�#X
" r%=r% � (r%>>4)
# g%=g% � (g%>>4)
$ b%=b% � (b%>>4)
%* pal!(m%<<3)=(b%<<24)+(g%<<16)+(r%<<8)
&. pal!((m%<<3)+4)=(b%<<24)+(g%<<16)+(r%<<8)
'�
(=pal
)
*
+� �code
,	LK=14
-SR_V=1<<28
.� code 256
/� PASS=0 � 2 � 2
0P%=code
1
[OPT PASS
2
3(.transscan   STMFD   R13!,{R0-R7,LK}
4M             LDR     R3,bwidth                  ; get scan width in bytes
5              LDR     R2,scan
6J             MOV     R0,#4                      ; use current file ptr
7"             LDR     R1,fhndle
8#             SWI     "XOS_GBPB"
9!             BVS     CantRead
:N             BCS     CantReadCS                 ; CS if not all transfered
;             LDR     R0,par
<              LDR     R1,scan
=             LDR     R2,img
>             LDR     R3,ind
?             MOV     LK,PC
@             LDR     PC,add
A(             LDMFD   R13!,{R0-R7,LK}
B$             BICS    PC,LK,#SR_V
C".CantReadCS  LDR     LK,bwidth
DD             CMP     R3,LK                      ; failed on any?
E             BEQ     NoLine
F             LDR     R0,par
G              LDR     R1,scan
H             LDR     R2,img
I             LDR     R3,ind
J             MOV     LK,PC
K             LDR     PC,add
L#.NoLine      ADR     R0,ErrMess
M".CantRead    STR     R0,ErrPtr
N(             LDMFD   R13!,{R0-R7,LK}
O$             BICS    PC,LK,#SR_V
P
Q.ErrPtr      EQUD    0
R.ErrMess     EQUD    0
SJ             EQUS    "Failed to read a scanline, image data too short"
T             EQUB    0
U             ALIGN
V
W.add         EQUD    0
X.par         EQUD    0
Y.wrk         EQUD    0
Z.img         EQUD    0
[.fhndle      EQUD    0
\.xwidth      EQUD    0
].bwidth      EQUD    0
^.ind         EQUD    0
_.scan        EQUD    0
`.tbpp        EQUD    0
a
b]�
c�
d
e
f� �readword
g	� x,y
h	x=�#X
i	y=�#X
jx=x+(y<<8)
k	y=�#X
lx=x+(y<<16)
m	y=�#X
nx=x+(y<<16)
o=x
p
q
r� �readstring
s
� s$,x
t	s$=""
u�
v
 x=�#X
w � x>31 s$=s$+�x
x
� x<32
y=s$
z
{� �readres
|xres=�readnumeric(" ")
}yres=�readnumeric(�&0A)
~�

�� �readnumeric(term$)
�� n
�n=0
��skipspace
��
� ch=�#X
�. � � �term(�ch,term$) � n=(n*10)+(ch-�"0")
�� �term(�ch,term$)
�
�#X=�#X-1
�=n
�
�� �SaveTransFile(p$,t%)
�%� return false if failed to save!
�� flags%
�Cș "XOS_File",10,p$,t%,0,Image,Image+imagesize+imhdr% � ;flags%
�(� (flags% � 1)=1 � �ResError("CF03")
�6�Mem_KillSlot   :� dont kill slot before ResError!
�� (flags% � 1)=1 � =�
�=�
�
�
�� �InitDrawHeader(ptr)
�$ptr="Draw"
�
ptr!4=201
�ptr!8=0
� �pokestr("Imager",ptr+12,12)
�ptr!24=0
�ptr!28=0
�ptr!32=xres<<(1+8)
�ptr!36=yres<<(1+8)
�ptr!40=5
�ptr!44=imagesize+24
�ptr!48=0
�ptr!52=0
�ptr!56=xres<<(1+8)
�ptr!60=yres<<(1+8)
��
�
�
�� �InitSpriteHeader(ptr)
�ptr!0=1
�ptr!4=16
�ptr!8=imagesize+16
��
�
�
�� �pokestr(s$,ptr,pad)
�� m%
�� m%=0 � pad-1
�
 ptr?m%=0
��
�$ptr=�s$,pad-1)
��
�
�Q� ---------------------------------------------------------------------------
��
�&�  BASIC VduStream debugging bits.
��
�Q� ---------------------------------------------------------------------------
�
�� �rmln(s$,r%)
�� � Debug% � �
�ș "Stream_Write0",s$
�ș "Stream_WriteH32",r%
�ș "Stream_NewLine"
��
�
�� �dhex(s$,r%)
�� � Debug% � �
�ș "Stream_Write0",s$
�ș "Stream_WriteH32",r%
�ș "Stream_NewLine"
��
�
�� �ddec(s$,r%)
�� � Debug% � �
�ș "Stream_Write0",s$
�ș "Stream_WriteD32",r%
�ș "Stream_NewLine"
��
�
�� �writeln(s$)
�� � Debug% � �
�ș "Stream_Write0",s$
�ș "Stream_NewLine"
��
�
�
� �pr(a%)
�� � Debug% � �
�ș "Stream_WriteD32",a%
�ș "Stream_NewLine
��
�
�� �memh(m%)
�� � Debug% � �
�ș "Stream_Enable"
�ș "Mem_H",m%,256
�ș "Stream_Disable"
��
�
���memedit(a%)
�ș "Mem_Edit",a%
��
�
�
�

00000000  0d 00 01 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 02 04 0d 00 03  51 f4 20 2d 2d 2d 2d 2d  |e.......Q. -----|
00000020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000060  2d 2d 2d 2d 2d 2d 0d 00  04 04 0d 00 05 29 f4 20  |------.......). |
00000070  20 41 75 72 74 68 6f 72  20 20 20 2d 20 43 6f 6d  | Aurthor   - Com|
00000080  70 75 74 65 72 20 43 6f  6e 63 65 70 74 73 20 4c  |puter Concepts L|
00000090  74 64 2e 0d 00 06 4d f4  20 20 50 75 72 70 6f 73  |td....M.  Purpos|
000000a0  65 20 20 20 2d 20 42 61  73 69 63 20 63 6f 64 65  |e   - Basic code|
000000b0  20 74 6f 20 70 65 72 66  6f 72 6d 20 74 61 6e 73  | to perform tans|
000000c0  6c 61 74 69 6f 6e 20 6f  66 20 63 6c 65 61 72 20  |lation of clear |
000000d0  66 69 6c 65 73 20 74 6f  20 73 70 72 69 74 65 73  |files to sprites|
000000e0  0d 00 07 17 f4 20 20 56  65 72 73 69 6f 6e 20 20  |.....  Version  |
000000f0  20 2d 20 31 2e 30 30 0d  00 08 1b f4 20 20 53 74  | - 1.00.....  St|
00000100  61 72 74 65 64 20 20 20  2d 20 31 32 2f 31 32 2f  |arted   - 12/12/|
00000110  39 33 0d 00 09 1b f4 20  20 43 6f 6d 70 6c 65 74  |93.....  Complet|
00000120  65 64 20 2d 20 31 32 2f  31 32 2f 39 33 0d 00 0a  |ed - 12/12/93...|
00000130  2e f4 20 20 43 68 61 6e  67 65 73 20 20 20 2d 20  |..  Changes   - |
00000140  4d 69 6b 65 20 2d 20 4f  72 69 67 69 6e 61 74 65  |Mike - Originate|
00000150  64 20 74 68 69 73 20 66  69 6c 65 0d 00 0b 04 0d  |d this file.....|
00000160  00 0c 51 f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..Q. -----------|
00000170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000001b0  0d 00 0d 04 0d 00 0e 20  ee 20 85 20 f2 52 65 70  |....... . . .Rep|
000001c0  6f 72 74 53 79 73 74 65  6d 45 72 72 6f 72 28 f6  |ortSystemError(.|
000001d0  24 29 3a e0 0d 00 0f 04  0d 00 10 12 de 20 62 6c  |$):.......... bl|
000001e0  6b 20 20 20 20 20 31 30  32 34 0d 00 11 12 de 20  |k     1024..... |
000001f0  73 63 72 61 74 63 68 20  31 30 32 34 0d 00 12 04  |scratch 1024....|
00000200  0d 00 13 0c 44 65 62 75  67 25 3d b9 0d 00 14 09  |....Debug%=.....|
00000210  f2 76 61 72 73 0d 00 15  09 f2 63 6f 64 65 0d 00  |.vars.....code..|
00000220  16 0d f2 4d 65 6d 5f 49  6e 69 74 0d 00 17 1c f2  |...Mem_Init.....|
00000230  57 5f 49 6e 69 74 69 61  6c 69 73 65 28 61 70 70  |W_Initialise(app|
00000240  5f 6e 61 6d 65 24 29 0d  00 18 0f f2 73 65 74 72  |_name$).....setr|
00000250  75 6e 6e 69 6e 67 0d 00  19 15 54 25 3d a4 6c 6f  |unning....T%=.lo|
00000260  61 64 72 65 73 6f 75 72  63 65 73 0d 00 1a 1b e7  |adresources.....|
00000270  20 54 25 3d a3 20 8c 20  f2 57 5f 43 6c 6f 73 65  | T%=. . .W_Close|
00000280  44 6f 77 6e 3a e0 0d 00  1b 0b f2 57 5f 50 6f 6c  |Down:......W_Pol|
00000290  6c 0d 00 1c 05 e0 0d 00  1d 04 0d 00 1e 04 0d 00  |l...............|
000002a0  1f 0b dd 20 f2 76 61 72  73 0d 00 20 1a 61 70 70  |... .vars.. .app|
000002b0  5f 6e 61 6d 65 24 3d 22  54 72 61 6e 73 43 6c 65  |_name$="TransCle|
000002c0  61 72 22 0d 00 21 20 61  70 70 5f 70 61 74 68 24  |ar"..! app_path$|
000002d0  3d 22 3c 54 72 61 6e 73  43 6c 65 61 72 24 44 69  |="<TransClear$Di|
000002e0  72 3e 22 0d 00 22 16 61  70 70 5f 6c 65 61 66 24  |r>"..".app_leaf$|
000002f0  3d 22 54 43 6c 65 61 72  22 0d 00 23 04 0d 00 24  |="TClear"..#...$|
00000300  17 46 54 79 70 65 5f 53  70 72 69 74 65 20 3d 20  |.FType_Sprite = |
00000310  26 46 46 39 0d 00 25 17  46 54 79 70 65 5f 44 72  |&FF9..%.FType_Dr|
00000320  61 77 20 20 20 3d 20 26  41 46 46 0d 00 26 04 0d  |aw   = &AFF..&..|
00000330  00 27 10 49 63 6f 6e 4d  65 6e 75 20 3d 20 30 0d  |.'.IconMenu = 0.|
00000340  00 28 10 4d 61 69 6e 4d  65 6e 75 20 3d 20 31 0d  |.(.MainMenu = 1.|
00000350  00 29 10 73 77 61 70 76  61 6c 20 20 3d 20 31 0d  |.).swapval  = 1.|
00000360  00 2a 14 6d 65 73 73 5f  53 69 7a 65 20 20 20 20  |.*.mess_Size    |
00000370  3d 20 30 0d 00 2b 14 6d  65 73 73 5f 53 65 6e 64  |= 0..+.mess_Send|
00000380  65 72 20 20 3d 20 34 0d  00 2c 14 6d 65 73 73 5f  |er  = 4..,.mess_|
00000390  4d 79 52 65 66 20 20 20  3d 20 38 0d 00 2d 15 6d  |MyRef   = 8..-.m|
000003a0  65 73 73 5f 59 6f 75 72  52 65 66 20 3d 20 31 32  |ess_YourRef = 12|
000003b0  0d 00 2e 15 6d 65 73 73  5f 54 79 70 65 20 20 20  |....mess_Type   |
000003c0  20 3d 20 31 36 0d 00 2f  15 6d 65 73 73 5f 44 61  | = 16../.mess_Da|
000003d0  74 61 20 20 20 20 3d 20  32 30 0d 00 30 1c 6d 65  |ta    = 20..0.me|
000003e0  73 73 5f 4c 65 6e 67 74  68 20 20 3d 20 6d 65 73  |ss_Length  = mes|
000003f0  73 5f 53 69 7a 65 0d 00  31 1e 6d 65 73 73 5f 54  |s_Size..1.mess_T|
00000400  61 73 6b 49 44 20 20 3d  20 6d 65 73 73 5f 53 65  |askID  = mess_Se|
00000410  6e 64 65 72 0d 00 32 1c  6d 65 73 73 5f 41 63 74  |nder..2.mess_Act|
00000420  69 6f 6e 20 20 3d 20 6d  65 73 73 5f 54 79 70 65  |ion  = mess_Type|
00000430  0d 00 33 16 6d 65 73 73  5f 53 49 5a 45 20 20 20  |..3.mess_SIZE   |
00000440  20 3d 20 32 35 36 0d 00  34 04 0d 00 35 16 64 69  | = 256..4...5.di|
00000450  74 68 5f 6f 66 66 20 20  20 20 3d 20 30 3c 3c 32  |th_off    = 0<<2|
00000460  0d 00 36 16 64 69 74 68  5f 73 69 6d 70 6c 65 20  |..6.dith_simple |
00000470  3d 20 31 3c 3c 32 0d 00  37 16 64 69 74 68 5f 66  |= 1<<2..7.dith_f|
00000480  6c 6f 79 64 20 20 3d 20  32 3c 3c 32 0d 00 38 16  |loyd  = 2<<2..8.|
00000490  64 69 74 68 5f 66 77 64  20 20 20 20 3d 20 30 3c  |dith_fwd    = 0<|
000004a0  3c 35 0d 00 39 16 64 69  74 68 5f 62 6b 77 64 20  |<5..9.dith_bkwd |
000004b0  20 20 3d 20 31 3c 3c 35  0d 00 3a 16 64 69 74 68  |  = 1<<5..:.dith|
000004c0  5f 7a 69 67 7a 61 67 20  3d 20 32 3c 3c 35 0d 00  |_zigzag = 2<<5..|
000004d0  3b 04 0d 00 3c 15 53 72  63 43 74 72 6c 5f 46 6c  |;...<.SrcCtrl_Fl|
000004e0  61 67 73 20 3d 20 30 0d  00 3d 16 53 72 63 43 74  |ags = 0..=.SrcCt|
000004f0  72 6c 5f 4f 66 66 73 65  74 20 3d 20 34 0d 00 3e  |rl_Offset = 4..>|
00000500  1c 53 72 63 43 74 72 6c  5f 42 6c 61 63 6b 43 6f  |.SrcCtrl_BlackCo|
00000510  72 72 65 63 74 20 3d 20  38 0d 00 3f 1b 53 72 63  |rrect = 8..?.Src|
00000520  43 74 72 6c 5f 52 61 6e  67 65 53 68 69 66 74 20  |Ctrl_RangeShift |
00000530  3d 20 31 32 0d 00 40 1b  53 72 63 43 74 72 6c 5f  |= 12..@.SrcCtrl_|
00000540  52 61 6e 67 65 53 63 61  6c 65 20 3d 20 31 36 0d  |RangeScale = 16.|
00000550  00 41 17 53 72 63 43 74  72 6c 5f 52 65 64 52 65  |.A.SrcCtrl_RedRe|
00000560  73 20 3d 20 32 30 0d 00  42 19 53 72 63 43 74 72  |s = 20..B.SrcCtr|
00000570  6c 5f 47 72 65 65 6e 52  65 73 20 3d 20 32 31 0d  |l_GreenRes = 21.|
00000580  00 43 18 53 72 63 43 74  72 6c 5f 42 6c 75 65 52  |.C.SrcCtrl_BlueR|
00000590  65 73 20 3d 20 32 32 0d  00 44 19 53 72 63 43 74  |es = 22..D.SrcCt|
000005a0  72 6c 5f 52 65 73 65 72  76 65 64 20 3d 20 32 33  |rl_Reserved = 23|
000005b0  0d 00 45 04 0d 00 46 11  44 61 74 61 53 61 76 65  |..E...F.DataSave|
000005c0  25 20 3d 20 31 0d 00 47  14 44 61 74 61 53 61 76  |% = 1..G.DataSav|
000005d0  65 41 63 6b 25 20 3d 20  32 0d 00 48 11 44 61 74  |eAck% = 2..H.Dat|
000005e0  61 4c 6f 61 64 25 20 3d  20 33 0d 00 49 14 44 61  |aLoad% = 3..I.Da|
000005f0  74 61 4c 6f 61 64 41 63  6b 25 20 3d 20 34 0d 00  |taLoadAck% = 4..|
00000600  4a 0f 64 6c 6f 61 64 72  65 66 25 3d 30 0d 00 4b  |J.dloadref%=0..K|
00000610  0f 64 73 61 76 65 72 65  66 25 3d 30 0d 00 4c 05  |.dsaveref%=0..L.|
00000620  e1 0d 00 4d 04 0d 00 4e  04 0d 00 4f 04 0d 00 50  |...M...N...O...P|
00000630  17 dd 20 f2 57 5f 49 6e  69 74 69 61 6c 69 73 65  |.. .W_Initialise|
00000640  28 6e 24 29 0d 00 51 11  24 62 6c 6b 20 3d 20 22  |(n$)..Q.$blk = "|
00000650  54 41 53 4b 22 0d 00 52  3a c8 99 20 22 57 69 6d  |TASK"..R:.. "Wim|
00000660  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00000670  30 2c 21 62 6c 6b 2c 61  70 70 5f 6e 61 6d 65 24  |0,!blk,app_name$|
00000680  20 b8 20 2c 54 61 73 6b  48 61 6e 64 6c 65 25 0d  | . ,TaskHandle%.|
00000690  00 53 05 e1 0d 00 54 04  0d 00 55 04 0d 00 56 04  |.S....T...U...V.|
000006a0  0d 00 57 0d dd 20 f2 57  5f 50 6f 6c 6c 0d 00 58  |..W.. .W_Poll..X|
000006b0  1b 70 6f 6c 6c 5f 6d 61  73 6b 25 20 3d 20 25 30  |.poll_mask% = %0|
000006c0  30 30 31 31 30 30 30 31  0d 00 59 0d 71 75 69 74  |00110001..Y.quit|
000006d0  25 20 3d 20 a3 0d 00 5a  05 f5 0d 00 5b 2b c8 99  |% = ...Z....[+..|
000006e0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 70 6f 6c  | "Wimp_Poll",pol|
000006f0  6c 5f 6d 61 73 6b 25 2c  62 6c 6b 20 b8 20 72 65  |l_mask%,blk . re|
00000700  61 73 6f 6e 25 0d 00 5c  10 c8 8e 20 72 65 61 73  |ason%..\... reas|
00000710  6f 6e 25 20 ca 0d 00 5d  18 20 20 c9 20 31 37 2c  |on% ...].  . 17,|
00000720  31 38 3a f2 57 5f 4d 65  73 73 61 67 65 0d 00 5e  |18:.W_Message..^|
00000730  1d 20 20 c9 20 31 39 3a  f2 57 5f 52 65 63 6f 72  |.  . 19:.W_Recor|
00000740  64 65 64 4d 65 73 73 61  67 65 0d 00 5f 05 cb 0d  |dedMessage.._...|
00000750  00 60 0b fd 20 71 75 69  74 25 0d 00 61 10 f2 57  |.`.. quit%..a..W|
00000760  5f 43 6c 6f 73 65 44 6f  77 6e 0d 00 62 05 e1 0d  |_CloseDown..b...|
00000770  00 63 04 0d 00 64 04 0d  00 65 12 dd 20 f2 57 5f  |.c...d...e.. .W_|
00000780  43 6c 6f 73 65 44 6f 77  6e 0d 00 66 0d f2 63 6c  |CloseDown..f..cl|
00000790  65 61 72 72 75 6e 0d 00  67 17 c8 99 20 22 57 69  |earrun..g... "Wi|
000007a0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 00 68  |mp_CloseDown"..h|
000007b0  05 e1 0d 00 69 04 0d 00  6a 04 0d 00 6b 10 dd 20  |....i...j...k.. |
000007c0  f2 57 5f 4d 65 73 73 61  67 65 0d 00 6c 3d 72 65  |.W_Message..l=re|
000007d0  66 25 20 3d 62 6c 6b 21  38 20 20 20 20 20 20 20  |f% =blk!8       |
000007e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000007f0  20 20 20 20 20 3a f4 20  74 68 65 20 73 65 6e 64  |     :. the send|
00000800  65 72 73 20 72 65 66 0d  00 6d 41 74 61 73 6b 25  |ers ref..mAtask%|
00000810  3d 62 6c 6b 21 34 20 20  20 20 20 20 20 20 20 20  |=blk!4          |
00000820  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000830  20 20 3a f4 20 74 68 65  20 73 65 6e 64 65 72 73  |  :. the senders|
00000840  20 74 61 73 6b 20 69 64  0d 00 6e 3b e7 20 74 61  | task id..n;. ta|
00000850  73 6b 25 3d 54 61 73 6b  48 61 6e 64 6c 65 25 3a  |sk%=TaskHandle%:|
00000860  e1 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 69  |.           :. i|
00000870  67 6e 6f 72 65 20 69 66  20 77 65 20 73 65 6e 74  |gnore if we sent|
00000880  20 69 74 0d 00 6f 10 20  c8 8e 20 62 6c 6b 21 31  | it..o. .. blk!1|
00000890  36 20 ca 0d 00 70 12 20  20 c9 20 30 3a 20 71 75  |6 ...p.  . 0: qu|
000008a0  69 74 25 3d b9 0d 00 71  17 20 20 c9 20 32 3a 20  |it%=...q.  . 2: |
000008b0  f2 44 61 74 61 53 61 76  65 41 63 6b 0d 00 72 17  |.DataSaveAck..r.|
000008c0  20 20 c9 20 34 3a 20 f2  44 61 74 61 4c 6f 61 64  |  . 4: .DataLoad|
000008d0  41 63 6b 0d 00 73 25 20  20 c9 20 26 38 30 45 31  |Ack..s%  . &80E1|
000008e0  46 3a f2 52 65 63 65 69  76 65 64 54 72 61 6e 73  |F:.ReceivedTrans|
000008f0  46 46 47 28 62 6c 6b 29  0d 00 74 05 cb 0d 00 75  |FFG(blk)..t....u|
00000900  05 e1 0d 00 76 04 0d 00  77 18 dd 20 f2 57 5f 52  |....v...w.. .W_R|
00000910  65 63 6f 72 64 65 64 4d  65 73 73 61 67 65 0d 00  |ecordedMessage..|
00000920  78 3d 72 65 66 25 20 3d  62 6c 6b 21 38 20 20 20  |x=ref% =blk!8   |
00000930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000940  20 20 20 20 20 20 20 20  20 3a f4 20 74 68 65 20  |         :. the |
00000950  73 65 6e 64 65 72 73 20  72 65 66 0d 00 79 41 74  |senders ref..yAt|
00000960  61 73 6b 25 3d 62 6c 6b  21 34 20 20 20 20 20 20  |ask%=blk!4      |
00000970  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000980  20 20 20 20 20 20 3a f4  20 74 68 65 20 73 65 6e  |      :. the sen|
00000990  64 65 72 73 20 74 61 73  6b 20 69 64 0d 00 7a 10  |ders task id..z.|
000009a0  20 c8 8e 20 62 6c 6b 21  31 36 20 ca 0d 00 7b 2d  | .. blk!16 ...{-|
000009b0  20 20 c9 20 44 61 74 61  53 61 76 65 25 3a 20 e7  |  . DataSave%: .|
000009c0  20 72 65 66 25 3d 64 73  61 76 65 72 65 66 25 20  | ref%=dsaveref% |
000009d0  8c 20 71 75 69 74 25 3d  b9 0d 00 7c 2d 20 20 c9  |. quit%=...|-  .|
000009e0  20 44 61 74 61 4c 6f 61  64 25 3a 20 e7 20 72 65  | DataLoad%: . re|
000009f0  66 25 3d 64 6c 6f 61 64  72 65 66 25 20 8c 20 71  |f%=dloadref% . q|
00000a00  75 69 74 25 3d b9 0d 00  7d 06 20 cb 0d 00 7e 05  |uit%=...}. ...~.|
00000a10  e1 0d 00 7f 04 0d 00 80  04 0d 00 81 51 f4 20 2d  |............Q. -|
00000a20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 82 05 f4 0d  |----------......|
00000a70  00 83 21 f4 20 53 74 72  69 6e 67 20 6d 61 6e 69  |..!. String mani|
00000a80  70 75 6c 61 74 69 6f 6e  20 73 65 63 74 69 6f 6e  |pulation section|
00000a90  0d 00 84 05 f4 0d 00 85  51 f4 20 2d 2d 2d 2d 2d  |........Q. -----|
00000aa0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ae0  2d 2d 2d 2d 2d 2d 0d 00  86 04 0d 00 87 14 dd 20  |------......... |
00000af0  a4 67 65 74 73 74 72 69  6e 67 28 61 25 29 0d 00  |.getstring(a%)..|
00000b00  88 08 ea 20 61 24 0d 00  89 09 61 24 3d 22 22 0d  |... a$....a$="".|
00000b10  00 8a 0e c8 95 20 3f 61  25 3e 3d 33 32 0d 00 8b  |..... ?a%>=32...|
00000b20  12 20 20 61 24 3d 61 24  2b bd 28 3f 61 25 29 0d  |.  a$=a$+.(?a%).|
00000b30  00 8c 0b 20 20 61 25 2b  3d 31 0d 00 8d 05 ce 0d  |...  a%+=1......|
00000b40  00 8e 07 3d 61 24 0d 00  8f 04 0d 00 90 0f dd 20  |...=a$......... |
00000b50  a4 6c 65 61 66 28 6c 24  29 0d 00 91 08 ea 20 6c  |.leaf(l$)..... l|
00000b60  25 0d 00 92 08 6c 25 3d  31 0d 00 93 14 c8 95 20  |%....l%=1...... |
00000b70  a7 6c 24 2c 22 2e 22 2c  6c 25 29 3e 30 0d 00 94  |.l$,".",l%)>0...|
00000b80  16 20 20 6c 25 3d a7 6c  24 2c 22 2e 22 2c 6c 25  |.  l%=.l$,".",l%|
00000b90  29 2b 31 0d 00 95 05 ce  0d 00 96 0c 3d c1 6c 24  |)+1.........=.l$|
00000ba0  2c 6c 25 29 0d 00 97 04  0d 00 98 15 dd 20 a4 6c  |,l%)......... .l|
00000bb0  65 61 66 6f 66 66 73 65  74 28 6c 24 29 0d 00 99  |eafoffset(l$)...|
00000bc0  08 ea 20 6c 25 0d 00 9a  0c 6c 25 3d a9 28 6c 24  |.. l%....l%=.(l$|
00000bd0  29 0d 00 9b 1c c8 95 20  c1 6c 24 2c 6c 25 2c 31  |)...... .l$,l%,1|
00000be0  29 3c 3e 22 2e 22 20 80  20 6c 25 3e 31 0d 00 9c  |)<>"." . l%>1...|
00000bf0  0a 20 6c 25 2d 3d 31 0d  00 9d 05 ce 0d 00 9e 07  |. l%-=1.........|
00000c00  3d 6c 25 0d 00 9f 04 0d  00 a0 04 0d 00 a1 51 f4  |=l%...........Q.|
00000c10  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000c20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 00 a2 05  |------------....|
00000c60  f4 0d 00 a3 1a f4 20 44  61 74 61 20 6c 6f 61 64  |...... Data load|
00000c70  69 6e 67 20 73 65 63 74  69 6f 6e 0d 00 a4 05 f4  |ing section.....|
00000c80  0d 00 a5 51 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...Q. ----------|
00000c90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000cd0  2d 0d 00 a6 04 0d 00 a7  04 0d 00 a8 04 0d 00 a9  |-...............|
00000ce0  1d dd 20 f2 52 65 63 65  69 76 65 64 54 72 61 6e  |.. .ReceivedTran|
00000cf0  73 46 46 47 28 6d 65 73  73 29 0d 00 aa 54 f4 20  |sFFG(mess)...T. |
00000d00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000d50  ab 05 f4 0d 00 ac 1c f4  20 20 52 65 63 65 69 76  |........  Receiv|
00000d60  65 64 5f 54 72 61 6e 73  6c 61 74 65 46 46 47 0d  |ed_TranslateFFG.|
00000d70  00 ad 05 f4 0d 00 ae 31  f4 20 20 4f 6e 20 65 6e  |.......1.  On en|
00000d80  74 72 79 20 2d 20 52 30  20 3d 20 55 73 65 72 20  |try - R0 = User |
00000d90  6d 65 73 73 61 67 65 20  72 65 63 6f 72 64 65 64  |message recorded|
00000da0  20 28 31 38 29 0d 00 af  1d f4 20 20 20 20 20 20  | (18).....      |
00000db0  20 20 20 20 20 2d 20 52  31 20 3d 20 5e 42 6c 6f  |     - R1 = ^Blo|
00000dc0  63 6b 0d 00 b0 28 f4 20  20 20 20 20 20 20 20 20  |ck...(.         |
00000dd0  20 20 20 20 20 20 2b 30  20 3d 20 6c 65 6e 67 74  |      +0 = lengt|
00000de0  68 20 6f 66 20 62 6c 6f  63 6b 0d 00 b1 2e f4 20  |h of block..... |
00000df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2b 34  |              +4|
00000e00  20 3d 20 74 61 73 6b 20  68 61 6e 64 6c 65 20 6f  | = task handle o|
00000e10  66 20 73 65 6e 64 65 72  0d 00 b2 1f f4 20 20 20  |f sender.....   |
00000e20  20 20 20 20 20 20 20 20  20 20 20 20 2b 38 20 3d  |            +8 =|
00000e30  20 6d 79 20 72 65 66 0d  00 b3 1a f4 20 20 20 20  | my ref.....    |
00000e40  20 20 20 20 20 20 20 20  20 20 2b 31 32 20 3d 20  |          +12 = |
00000e50  30 0d 00 b4 35 f4 20 20  20 20 20 20 20 20 20 20  |0...5.          |
00000e60  20 20 20 20 2b 31 36 20  3d 20 61 63 74 69 6f 6e  |    +16 = action|
00000e70  20 6e 75 6d 62 65 72 20  28 54 72 61 6e 73 6c 61  | number (Transla|
00000e80  74 65 46 46 47 29 0d 00  b5 32 f4 20 20 20 20 20  |teFFG)...2.     |
00000e90  20 20 20 20 20 20 20 20  20 2b 32 30 20 3d 20 64  |         +20 = d|
00000ea0  65 73 74 69 6e 61 74 69  6f 6e 20 77 69 6e 64 6f  |estination windo|
00000eb0  77 20 68 61 6e 64 6c 65  0d 00 b6 30 f4 20 20 20  |w handle...0.   |
00000ec0  20 20 20 20 20 20 20 20  20 20 20 2b 32 34 20 3d  |           +24 =|
00000ed0  20 64 65 73 74 69 6e 61  74 69 6f 6e 20 69 63 6f  | destination ico|
00000ee0  6e 20 68 61 6e 64 6c 65  0d 00 b7 31 f4 20 20 20  |n handle...1.   |
00000ef0  20 20 20 20 20 20 20 20  20 20 20 2b 32 38 20 3d  |           +28 =|
00000f00  20 64 65 73 74 69 6e 61  74 69 6f 6e 20 78 20 63  | destination x c|
00000f10  6f 6f 72 64 69 6e 61 74  65 0d 00 b8 31 f4 20 20  |oordinate...1.  |
00000f20  20 20 20 20 20 20 20 20  20 20 20 20 2b 33 32 20  |            +32 |
00000f30  3d 20 64 65 73 74 69 6e  61 74 69 6f 6e 20 79 20  |= destination y |
00000f40  63 6f 6f 72 64 69 6e 61  74 65 0d 00 b9 49 f4 20  |coordinate...I. |
00000f50  20 20 20 20 20 20 20 20  20 20 20 20 20 2b 33 36  |             +36|
00000f60  20 3d 20 44 61 74 61 4c  6f 61 64 20 6d 65 73 73  | = DataLoad mess|
00000f70  61 67 65 20 79 6f 75 72  5f 72 65 66 20 28 30 20  |age your_ref (0 |
00000f80  69 66 20 64 61 74 61 20  66 72 6f 6d 20 66 69 6c  |if data from fil|
00000f90  65 72 29 0d 00 ba 35 f4  20 20 20 20 20 20 20 20  |er)...5.        |
00000fa0  20 20 20 20 20 20 2b 34  30 20 3d 20 66 69 6c 65  |      +40 = file|
00000fb0  20 74 79 70 65 20 6f 66  20 64 61 74 61 20 28 46  | type of data (F|
00000fc0  46 47 20 74 79 70 65 29  0d 00 bb 2f f4 20 20 20  |FG type).../.   |
00000fd0  20 20 20 20 20 20 20 20  20 20 20 2b 34 34 20 3d  |           +44 =|
00000fe0  20 64 65 73 74 69 6e 20  28 49 46 47 29 20 66 69  | destin (IFG) fi|
00000ff0  6c 65 20 74 79 70 65 0d  00 bc 3e f4 20 20 20 20  |le type...>.    |
00001000  20 20 20 20 20 20 2b 34  38 2e 2e 36 34 20 3d 20  |      +48..64 = |
00001010  31 36 20 62 79 74 65 20  75 6e 69 71 75 65 20 6e  |16 byte unique n|
00001020  61 6d 65 20 70 61 64 64  65 64 20 77 69 74 68 20  |ame padded with |
00001030  7a 65 72 6f 73 0d 00 bd  4c f4 20 20 20 20 20 20  |zeros...L.      |
00001040  20 20 20 2b 36 34 2e 2e  31 30 34 20 3d 20 63 6f  |   +64..104 = co|
00001050  6e 74 72 6f 6c 20 70 61  72 61 6d 65 74 65 72 20  |ntrol parameter |
00001060  6c 69 73 74 20 28 61 6c  6c 20 7a 65 72 6f 20 69  |list (all zero i|
00001070  66 20 6e 6f 74 20 61 70  70 6c 69 63 61 62 6c 65  |f not applicable|
00001080  29 0d 00 be 3f f4 20 20  20 20 20 20 20 20 20 20  |)...?.          |
00001090  20 20 20 2b 31 30 34 20  3d 20 66 75 6c 6c 20 70  |   +104 = full p|
000010a0  61 74 68 6e 61 6d 65 20  6f 66 20 64 61 74 61 2c  |athname of data,|
000010b0  20 7a 65 72 6f 20 74 65  72 6d 69 6e 61 74 65 64  | zero terminated|
000010c0  0d 00 bf 05 f4 0d 00 c0  54 f4 20 2d 2d 2d 2d 2d  |........T. -----|
000010d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001110  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 c1 04 0d 00 c2  |---------.......|
00001120  33 e7 20 a4 67 65 74 73  74 72 69 6e 67 28 6d 65  |3. .getstring(me|
00001130  73 73 2b 34 38 29 3c 3e  22 54 72 61 6e 73 43 6c  |ss+48)<>"TransCl|
00001140  65 61 72 22 20 8c 20 71  75 69 74 25 3d b9 3a e1  |ear" . quit%=.:.|
00001150  0d 00 c3 13 6f 66 74 79  70 65 25 3d 6d 65 73 73  |....oftype%=mess|
00001160  21 34 34 0d 00 c4 37 e7  20 6f 66 74 79 70 65 25  |!44...7. oftype%|
00001170  3c 3e 46 54 79 70 65 5f  44 72 61 77 20 8c 20 f2  |<>FType_Draw . .|
00001180  52 65 73 45 72 72 6f 72  28 22 43 46 30 30 22 29  |ResError("CF00")|
00001190  3a 71 75 69 74 25 3d b9  3a e1 0d 00 c5 0d 6f 66  |:quit%=.:.....of|
000011a0  6c 61 67 73 25 3d 30 0d  00 c6 11 64 77 69 6e 25  |lags%=0....dwin%|
000011b0  3d 6d 65 73 73 21 32 30  0d 00 c7 12 64 69 63 6f  |=mess!20....dico|
000011c0  6e 25 3d 6d 65 73 73 21  32 34 0d 00 c8 10 64 69  |n%=mess!24....di|
000011d0  78 25 3d 6d 65 73 73 21  32 38 0d 00 c9 10 64 69  |x%=mess!28....di|
000011e0  79 25 3d 6d 65 73 73 21  33 32 0d 00 ca 12 73 65  |y%=mess!32....se|
000011f0  6e 64 65 72 25 3d 6d 65  73 73 21 34 0d 00 cb 11  |nder%=mess!4....|
00001200  6d 79 72 65 66 25 3d 6d  65 73 73 21 38 0d 00 cc  |myref%=mess!8...|
00001210  11 6f 72 69 67 25 3d 6d  65 73 73 21 33 36 0d 00  |.orig%=mess!36..|
00001220  cd 1f 66 70 61 74 68 24  3d a4 67 65 74 73 74 72  |..fpath$=.getstr|
00001230  69 6e 67 28 6d 65 73 73  2b 31 30 34 29 0d 00 ce  |ing(mess+104)...|
00001240  1d 66 6c 65 6e 25 3d a4  46 69 6c 65 4c 65 6e 67  |.flen%=.FileLeng|
00001250  74 68 28 66 70 61 74 68  24 29 0d 00 cf 2b e7 20  |th(fpath$)...+. |
00001260  66 6c 65 6e 25 3d 30 20  8c 20 f2 52 65 73 45 72  |flen%=0 . .ResEr|
00001270  72 6f 72 28 22 43 46 30  36 22 29 3a 71 75 69 74  |ror("CF06"):quit|
00001280  25 3d b9 3a e1 0d 00 d0  18 f2 53 65 6e 64 54 72  |%=.:......SendTr|
00001290  61 6e 73 6c 61 74 65 46  46 47 41 63 6b 0d 00 d1  |anslateFFGAck...|
000012a0  2c 63 6c 25 3d a4 46 69  6c 74 65 72 43 6c 65 61  |,cl%=.FilterClea|
000012b0  72 28 31 2c 66 70 61 74  68 24 2c 66 6c 65 6e 25  |r(1,fpath$,flen%|
000012c0  2c 6f 66 6c 61 67 73 25  29 0d 00 d2 24 e7 20 6f  |,oflags%)...$. o|
000012d0  72 69 67 25 3c 3e 30 20  8c 20 f2 44 65 6c 65 74  |rig%<>0 . .Delet|
000012e0  65 46 69 6c 65 28 66 70  61 74 68 24 29 0d 00 d3  |eFile(fpath$)...|
000012f0  0b e7 20 63 6c 25 20 8c  0d 00 d4 25 20 f2 52 65  |.. cl% ....% .Re|
00001300  74 75 72 6e 46 69 6c 65  28 73 65 6e 64 65 72 25  |turnFile(sender%|
00001310  2c 63 6c 25 2c 6f 66 74  79 70 65 25 29 0d 00 d5  |,cl%,oftype%)...|
00001320  05 cc 0d 00 d6 12 20 f2  4d 65 6d 5f 4b 69 6c 6c  |...... .Mem_Kill|
00001330  53 6c 6f 74 0d 00 d7 0c  20 71 75 69 74 25 3d b9  |Slot.... quit%=.|
00001340  0d 00 d8 05 cd 0d 00 d9  05 e1 0d 00 da 04 0d 00  |................|
00001350  db 04 0d 00 dc 1a dd 20  f2 53 65 6e 64 54 72 61  |....... .SendTra|
00001360  6e 73 6c 61 74 65 46 46  47 41 63 6b 0d 00 dd 15  |nslateFFGAck....|
00001370  73 63 72 61 74 63 68 21  31 32 3d 6d 79 72 65 66  |scratch!12=myref|
00001380  25 0d 00 de 15 73 63 72  61 74 63 68 21 31 36 3d  |%....scratch!16=|
00001390  26 38 30 45 32 30 0d 00  df 10 73 63 72 61 74 63  |&80E20....scratc|
000013a0  68 21 30 3d 32 30 0d 00  e0 2c c8 99 20 22 57 69  |h!0=20...,.. "Wi|
000013b0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000013c0  31 37 2c 73 63 72 61 74  63 68 2c 73 65 6e 64 65  |17,scratch,sende|
000013d0  72 25 0d 00 e1 05 e1 0d  00 e2 04 0d 00 e3 04 0d  |r%..............|
000013e0  00 e4 04 0d 00 e5 12 dd  20 f2 44 61 74 61 53 61  |........ .DataSa|
000013f0  76 65 41 63 6b 0d 00 e6  25 e7 20 62 6c 6b 21 6d  |veAck...%. blk!m|
00001400  65 73 73 5f 59 6f 75 72  52 65 66 3c 3e 64 73 61  |ess_YourRef<>dsa|
00001410  76 65 72 65 66 25 20 8c  20 e1 0d 00 e7 1d 73 70  |veref% . .....sp|
00001420  61 74 68 24 3d a4 67 65  74 73 74 72 69 6e 67 28  |ath$=.getstring(|
00001430  62 6c 6b 2b 34 34 29 0d  00 e8 24 73 25 3d a4 53  |blk+44)...$s%=.S|
00001440  61 76 65 54 72 61 6e 73  46 69 6c 65 28 73 70 61  |aveTransFile(spa|
00001450  74 68 24 2c 62 6c 6b 21  34 30 29 0d 00 e9 0a e7  |th$,blk!40).....|
00001460  20 73 25 20 8c 0d 00 ea  1d 20 20 73 65 6e 64 65  | s% .....  sende|
00001470  72 25 3d 62 6c 6b 21 6d  65 73 73 5f 53 65 6e 64  |r%=blk!mess_Send|
00001480  65 72 0d 00 eb 12 20 20  62 6c 6b 21 31 32 3d 62  |er....  blk!12=b|
00001490  6c 6b 21 38 0d 00 ec 1d  20 20 62 6c 6b 21 6d 65  |lk!8....  blk!me|
000014a0  73 73 5f 54 79 70 65 3d  44 61 74 61 4c 6f 61 64  |ss_Type=DataLoad|
000014b0  25 0d 00 ed 2a 20 20 c8  99 20 22 57 69 6d 70 5f  |%...*  .. "Wimp_|
000014c0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
000014d0  62 6c 6b 2c 73 65 6e 64  65 72 25 0d 00 ee 1e 20  |blk,sender%.... |
000014e0  20 64 6c 6f 61 64 72 65  66 25 3d 62 6c 6b 21 6d  | dloadref%=blk!m|
000014f0  65 73 73 5f 4d 79 52 65  66 0d 00 ef 05 cc 0d 00  |ess_MyRef.......|
00001500  f0 0d 20 20 71 75 69 74  25 3d b9 0d 00 f1 05 cd  |..  quit%=......|
00001510  0d 00 f2 05 e1 0d 00 f3  04 0d 00 f4 04 0d 00 f5  |................|
00001520  12 dd 20 f2 44 61 74 61  4c 6f 61 64 41 63 6b 0d  |.. .DataLoadAck.|
00001530  00 f6 1a 79 72 65 66 25  3d 62 6c 6b 21 6d 65 73  |...yref%=blk!mes|
00001540  73 5f 59 6f 75 72 52 65  66 0d 00 f7 2a e7 20 62  |s_YourRef...*. b|
00001550  6c 6b 21 6d 65 73 73 5f  59 6f 75 72 52 65 66 3d  |lk!mess_YourRef=|
00001560  64 6c 6f 61 64 72 65 66  25 20 8c 20 71 75 69 74  |dloadref% . quit|
00001570  25 3d b9 0d 00 f8 05 e1  0d 00 f9 04 0d 00 fa 04  |%=..............|
00001580  0d 00 fb 24 dd 20 f2 52  65 74 75 72 6e 46 69 6c  |...$. .ReturnFil|
00001590  65 28 73 6e 64 72 25 2c  6c 65 6e 25 2c 66 74 79  |e(sndr%,len%,fty|
000015a0  70 65 25 29 0d 00 fc 26  e7 20 a4 64 6f 65 73 76  |pe%)...&. .doesv|
000015b0  61 72 65 78 69 73 74 28  22 57 69 6d 70 24 53 63  |arexist("Wimp$Sc|
000015c0  72 61 70 22 29 3c 3e 30  20 8c 0d 00 fd 18 20 20  |rap")<>0 .....  |
000015d0  62 6c 6b 21 6d 65 73 73  5f 59 6f 75 72 52 65 66  |blk!mess_YourRef|
000015e0  3d 30 0d 00 fe 1d 20 20  62 6c 6b 21 6d 65 73 73  |=0....  blk!mess|
000015f0  5f 54 79 70 65 3d 44 61  74 61 53 61 76 65 25 0d  |_Type=DataSave%.|
00001600  00 ff 12 20 20 62 6c 6b  21 32 30 3d 64 77 69 6e  |...  blk!20=dwin|
00001610  25 0d 01 00 13 20 20 62  6c 6b 21 32 34 3d 64 69  |%....  blk!24=di|
00001620  63 6f 6e 25 0d 01 01 11  20 20 62 6c 6b 21 32 38  |con%....  blk!28|
00001630  3d 64 69 78 25 0d 01 02  11 20 20 62 6c 6b 21 33  |=dix%....  blk!3|
00001640  32 3d 64 69 79 25 0d 01  03 11 20 20 62 6c 6b 21  |2=diy%....  blk!|
00001650  33 36 3d 6c 65 6e 25 0d  01 04 13 20 20 62 6c 6b  |36=len%....  blk|
00001660  21 34 30 3d 66 74 79 70  65 25 0d 01 05 19 20 20  |!40=ftype%....  |
00001670  24 28 62 6c 6b 2b 34 34  29 3d 61 70 70 5f 6c 65  |$(blk+44)=app_le|
00001680  61 66 24 0d 01 06 27 20  20 62 6c 6b 21 30 20 3d  |af$...'  blk!0 =|
00001690  28 28 34 35 2b a9 28 61  70 70 5f 6c 65 61 66 24  |((45+.(app_leaf$|
000016a0  29 29 2b 33 29 20 80 20  2d 34 0d 01 07 28 20 20  |))+3) . -4...(  |
000016b0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000016c0  73 61 67 65 22 2c 31 38  2c 62 6c 6b 2c 73 6e 64  |sage",18,blk,snd|
000016d0  72 25 0d 01 08 15 20 20  64 73 61 76 65 72 65 66  |r%....  dsaveref|
000016e0  25 3d 62 6c 6b 21 38 0d  01 09 05 cc 0d 01 0a 17  |%=blk!8.........|
000016f0  20 20 f2 52 65 73 45 72  72 6f 72 28 22 57 53 4e  |  .ResError("WSN|
00001700  46 22 29 0d 01 0b 0d 20  20 71 75 69 74 25 3d b9  |F")....  quit%=.|
00001710  0d 01 0c 05 cd 0d 01 0d  05 e1 0d 01 0e 04 0d 01  |................|
00001720  0f 04 0d 01 10 17 dd 20  a4 64 6f 65 73 76 61 72  |....... .doesvar|
00001730  65 78 69 73 74 28 76 24  29 0d 01 11 08 ea 20 65  |exist(v$)..... e|
00001740  25 0d 01 12 30 c8 99 20  22 58 4f 53 5f 52 65 61  |%...0.. "XOS_Rea|
00001750  64 56 61 72 56 61 6c 22  2c 76 24 2c 73 63 72 61  |dVarVal",v$,scra|
00001760  74 63 68 2c 2d 31 2c 30  2c 33 20 b8 20 2c 2c 65  |tch,-1,0,3 . ,,e|
00001770  25 0d 01 13 07 3d 65 25  0d 01 14 04 0d 01 15 04  |%....=e%........|
00001780  0d 01 16 51 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...Q. ----------|
00001790  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000017d0  2d 0d 01 17 05 f4 0d 01  18 1b f4 20 46 69 6c 65  |-.......... File|
000017e0  20 68 61 6e 64 6c 69 6e  67 20 73 65 63 74 69 6f  | handling sectio|
000017f0  6e 0d 01 19 05 f4 0d 01  1a 51 f4 20 2d 2d 2d 2d  |n........Q. ----|
00001800  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001840  2d 2d 2d 2d 2d 2d 2d 0d  01 1b 04 0d 01 1c 18 dd  |-------.........|
00001850  20 a4 46 69 6c 65 4c 65  6e 67 74 68 28 70 61 74  | .FileLength(pat|
00001860  68 24 29 0d 01 1d 10 ea  20 74 79 70 65 25 2c 6c  |h$)..... type%,l|
00001870  65 6e 25 0d 01 1e 28 c8  99 20 22 4f 53 5f 46 69  |en%...(.. "OS_Fi|
00001880  6c 65 22 2c 35 2c 70 61  74 68 24 20 b8 20 74 79  |le",5,path$ . ty|
00001890  70 65 25 2c 2c 2c 2c 6c  65 6e 25 0d 01 1f 17 e7  |pe%,,,,len%.....|
000018a0  20 74 79 70 65 25 3c 3e  31 20 8c 20 6c 65 6e 25  | type%<>1 . len%|
000018b0  3d 30 0d 01 20 09 3d 6c  65 6e 25 0d 01 21 04 0d  |=0.. .=len%..!..|
000018c0  01 22 1e dd 20 f2 46 69  6c 65 5f 4c 6f 61 64 28  |.".. .File_Load(|
000018d0  70 61 74 68 24 2c 62 75  66 66 65 72 29 0d 01 23  |path$,buffer)..#|
000018e0  20 ff 20 22 4c 4f 41 44  20 22 2b 70 61 74 68 24  | . "LOAD "+path$|
000018f0  2b 22 20 22 2b c3 7e 62  75 66 66 65 72 0d 01 24  |+" "+.~buffer..$|
00001900  05 e1 0d 01 25 04 0d 01  26 22 dd 20 f2 46 69 6c  |....%...&". .Fil|
00001910  65 5f 53 61 76 65 28 70  61 74 68 24 2c 62 75 66  |e_Save(path$,buf|
00001920  66 65 72 2c 6c 65 6e 29  0d 01 27 2a ff 20 22 53  |fer,len)..'*. "S|
00001930  41 56 45 20 22 2b 70 61  74 68 24 2b 22 20 22 2b  |AVE "+path$+" "+|
00001940  c3 7e 62 75 66 66 65 72  2b 22 2b 22 2b c3 7e 6c  |.~buffer+"+"+.~l|
00001950  65 6e 0d 01 28 05 e1 0d  01 29 04 0d 01 2a 1f dd  |en..(....)...*..|
00001960  20 f2 46 69 6c 65 5f 53  65 74 54 79 70 65 28 70  | .File_SetType(p|
00001970  61 74 68 24 2c 74 79 70  65 29 0d 01 2b 21 ff 20  |ath$,type)..+!. |
00001980  22 53 45 54 54 59 50 45  20 22 2b 70 61 74 68 24  |"SETTYPE "+path$|
00001990  2b 22 20 22 2b c3 7e 74  79 70 65 0d 01 2c 05 e1  |+" "+.~type..,..|
000019a0  0d 01 2d 04 0d 01 2e 15  dd 20 f2 44 65 6c 65 74  |..-...... .Delet|
000019b0  65 46 69 6c 65 28 70 24  29 0d 01 2f 0c ea 20 66  |eFile(p$)../.. f|
000019c0  6c 61 67 73 25 0d 01 30  20 c8 99 20 22 58 4f 53  |lags%..0 .. "XOS|
000019d0  5f 46 69 6c 65 22 2c 36  2c 70 24 20 b8 20 3b 66  |_File",6,p$ . ;f|
000019e0  6c 61 67 73 25 0d 01 31  05 e1 0d 01 32 04 0d 01  |lags%..1....2...|
000019f0  33 04 0d 01 34 04 0d 01  35 51 f4 20 2d 2d 2d 2d  |3...4...5Q. ----|
00001a00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001a40  2d 2d 2d 2d 2d 2d 2d 0d  01 36 05 f4 0d 01 37 13  |-------..6....7.|
00001a50  f4 20 45 72 72 6f 72 20  73 65 63 74 69 6f 6e 0d  |. Error section.|
00001a60  01 38 05 f4 0d 01 39 51  f4 20 2d 2d 2d 2d 2d 2d  |.8....9Q. ------|
00001a70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001ab0  2d 2d 2d 2d 2d 0d 01 3a  04 0d 01 3b 1f dd 20 f2  |-----..:...;.. .|
00001ac0  52 65 70 6f 72 74 57 69  6d 70 45 72 72 6f 72 28  |ReportWimpError(|
00001ad0  72 65 70 6f 72 74 24 29  0d 01 3c 10 21 73 63 72  |report$)..<.!scr|
00001ae0  61 74 63 68 20 3d 20 30  0d 01 3d 18 24 28 73 63  |atch = 0..=.$(sc|
00001af0  72 61 74 63 68 2b 34 29  3d 72 65 70 6f 72 74 24  |ratch+4)=report$|
00001b00  0d 01 3e 1b 3f 28 73 63  72 61 74 63 68 2b 34 2b  |..>.?(scratch+4+|
00001b10  a9 72 65 70 6f 72 74 24  29 3d 30 0d 01 3f 2e c8  |.report$)=0..?..|
00001b20  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00001b30  72 6f 72 22 2c 73 63 72  61 74 63 68 2c 25 31 2c  |ror",scratch,%1,|
00001b40  61 70 70 5f 6e 61 6d 65  24 0d 01 40 05 e1 0d 01  |app_name$..@....|
00001b50  41 04 0d 01 42 21 dd 20  f2 52 65 70 6f 72 74 53  |A...B!. .ReportS|
00001b60  79 73 74 65 6d 45 72 72  6f 72 28 72 65 70 6f 72  |ystemError(repor|
00001b70  74 24 29 0d 01 43 2c 85  20 30 2c 72 65 70 6f 72  |t$)..C,. 0,repor|
00001b80  74 24 2b 22 20 69 6e 74  65 72 6e 61 6c 20 65 72  |t$+" internal er|
00001b90  72 6f 72 20 28 22 2b c3  28 9e 29 2b 22 29 22 0d  |ror ("+.(.)+")".|
00001ba0  01 44 05 e1 0d 01 45 04  0d 01 46 13 dd 20 f2 52  |.D....E...F.. .R|
00001bb0  65 73 45 72 72 6f 72 28  72 24 29 0d 01 47 1e 72  |esError(r$)..G.r|
00001bc0  24 3d a4 46 69 6e 64 52  65 73 6f 75 72 63 65 53  |$=.FindResourceS|
00001bd0  74 72 69 6e 67 28 72 24  29 0d 01 48 18 f2 52 65  |tring(r$)..H..Re|
00001be0  70 6f 72 74 57 69 6d 70  45 72 72 6f 72 28 72 24  |portWimpError(r$|
00001bf0  29 0d 01 49 05 e1 0d 01  4a 04 0d 01 4b 16 dd 20  |)..I....J...K.. |
00001c00  f2 50 65 65 6b 45 72 72  6f 72 28 65 72 72 25 29  |.PeekError(err%)|
00001c10  0d 01 4c 28 f2 52 65 70  6f 72 74 57 69 6d 70 45  |..L(.ReportWimpE|
00001c20  72 72 6f 72 28 a4 67 65  74 73 74 72 69 6e 67 28  |rror(.getstring(|
00001c30  65 72 72 25 2b 34 29 29  0d 01 4d 05 e1 0d 01 4e  |err%+4))..M....N|
00001c40  04 0d 01 4f 14 dd 20 a4  6c 6f 61 64 72 65 73 6f  |...O.. .loadreso|
00001c50  75 72 63 65 73 0d 01 50  13 ea 20 6c 25 2c 72 65  |urces..P.. l%,re|
00001c60  73 24 2c 63 6c 61 69 6d  0d 01 51 0a 72 65 73 25  |s$,claim..Q.res%|
00001c70  3d 30 0d 01 52 20 c8 99  20 22 4f 53 5f 42 79 74  |=0..R .. "OS_Byt|
00001c80  65 22 2c 37 30 2c 31 32  37 20 b8 20 2c 63 6e 75  |e",70,127 . ,cnu|
00001c90  6d 25 0d 01 53 35 c8 99  20 22 4f 53 5f 53 65 72  |m%..S5.. "OS_Ser|
00001ca0  76 69 63 65 43 61 6c 6c  22 2c 30 2c 26 34 33 2c  |viceCall",0,&43,|
00001cb0  32 2c 30 2c 73 63 72 61  74 63 68 2c 33 32 20 b8  |2,0,scratch,32 .|
00001cc0  20 2c 63 6c 61 69 6d 0d  01 54 0f e7 20 63 6c 61  | ,claim..T.. cla|
00001cd0  69 6d 3d 30 20 8c 0d 01  55 0f 20 20 72 65 73 24  |im=0 ...U.  res$|
00001ce0  3d 22 55 4b 22 0d 01 56  05 cc 0d 01 57 1e 20 20  |="UK"..V....W.  |
00001cf0  72 65 73 24 3d a4 67 65  74 73 74 72 69 6e 67 28  |res$=.getstring(|
00001d00  73 63 72 61 74 63 68 29  0d 01 58 05 cd 0d 01 59  |scratch)..X....Y|
00001d10  25 72 65 73 24 3d 61 70  70 5f 70 61 74 68 24 2b  |%res$=app_path$+|
00001d20  22 2e 52 65 73 6f 75 72  63 65 73 2e 22 2b 72 65  |".Resources."+re|
00001d30  73 24 0d 01 5a 18 6c 25  3d a4 46 69 6c 65 4c 65  |s$..Z.l%=.FileLe|
00001d40  6e 67 74 68 28 72 65 73  24 29 0d 01 5b 3b e7 20  |ngth(res$)..[;. |
00001d50  6c 25 3d 30 20 8c 20 f2  52 65 70 6f 72 74 57 69  |l%=0 . .ReportWi|
00001d60  6d 70 45 72 72 6f 72 28  22 72 65 73 6f 75 72 63  |mpError("resourc|
00001d70  65 20 66 69 6c 65 20 6e  6f 74 20 66 6f 75 6e 64  |e file not found|
00001d80  22 29 3a 3d a3 0d 01 5c  15 72 65 73 25 3d a4 43  |"):=...\.res%=.C|
00001d90  6c 61 69 6d 28 6c 25 2b  34 29 0d 01 5d 4a e7 20  |laim(l%+4)..]J. |
00001da0  72 65 73 25 3d 2d 31 20  8c 20 f2 52 65 70 6f 72  |res%=-1 . .Repor|
00001db0  74 57 69 6d 70 45 72 72  6f 72 28 22 4e 6f 74 20  |tWimpError("Not |
00001dc0  65 6e 6f 75 67 68 20 6d  65 6d 6f 72 79 20 74 6f  |enough memory to|
00001dd0  20 6c 6f 61 64 20 72 65  73 6f 75 72 63 65 73 22  | load resources"|
00001de0  29 3a 3d a3 0d 01 5e 0d  72 65 73 25 21 30 3d 6c  |):=...^.res%!0=l|
00001df0  25 0d 01 5f 21 ff 20 22  4c 4f 41 44 20 22 2b 72  |%.._!. "LOAD "+r|
00001e00  65 73 24 2b 22 20 22 2b  c3 7e 28 72 65 73 25 2b  |es$+" "+.~(res%+|
00001e10  34 29 0d 01 60 06 3d b9  0d 01 61 04 0d 01 62 04  |4)..`.=...a...b.|
00001e20  0d 01 63 1d dd 20 a4 46  69 6e 64 52 65 73 6f 75  |..c.. .FindResou|
00001e30  72 63 65 53 74 72 69 6e  67 28 72 24 29 0d 01 64  |rceString(r$)..d|
00001e40  0e ea 20 6c 25 2c 72 65  6e 64 25 0d 01 65 2d e7  |.. l%,rend%..e-.|
00001e50  20 72 65 73 25 3d 30 20  8c 20 3d 22 55 6e 6b 6e  | res%=0 . ="Unkn|
00001e60  6f 77 6e 20 72 65 73 6f  75 72 63 65 20 65 72 72  |own resource err|
00001e70  6f 72 3a 20 22 2b 72 24  0d 01 66 0d 6c 25 3d 72  |or: "+r$..f.l%=r|
00001e80  65 73 25 21 30 0d 01 67  0d 61 25 3d 72 65 73 25  |es%!0..g.a%=res%|
00001e90  2b 34 0d 01 68 13 72 65  6e 64 25 3d 72 65 73 25  |+4..h.rend%=res%|
00001ea0  2b 6c 25 2b 34 0d 01 69  08 66 25 3d a3 0d 01 6a  |+l%+4..i.f%=...j|
00001eb0  16 c8 95 20 61 25 3c 72  65 6e 64 25 20 80 20 ac  |... a%<rend% . .|
00001ec0  20 66 25 0d 01 6b 27 20  73 24 3d bd 28 61 25 3f  | f%..k' s$=.(a%?|
00001ed0  30 29 2b bd 28 61 25 3f  31 29 2b bd 28 61 25 3f  |0)+.(a%?1)+.(a%?|
00001ee0  32 29 2b bd 28 61 25 3f  33 29 0d 01 6c 0e 20 e7  |2)+.(a%?3)..l. .|
00001ef0  20 73 24 3d 72 24 20 8c  0d 01 6d 22 20 20 20 73  | s$=r$ ...m"   s|
00001f00  24 3d a4 67 65 74 72 65  73 28 61 25 2b 35 2c 72  |$=.getres(a%+5,r|
00001f10  65 6e 64 25 29 3a 66 25  3d b9 0d 01 6e 06 20 cc  |end%):f%=...n. .|
00001f20  0d 01 6f 1b 20 20 20 c8  95 20 3f 61 25 3e 33 31  |..o.   .. ?a%>31|
00001f30  20 80 20 61 25 3c 72 65  6e 64 25 0d 01 70 0e 20  | . a%<rend%..p. |
00001f40  20 20 20 20 61 25 2b 3d  31 0d 01 71 08 20 20 20  |    a%+=1..q.   |
00001f50  ce 0d 01 72 0c 20 20 20  61 25 2b 3d 31 0d 01 73  |...r.   a%+=1..s|
00001f60  06 20 cd 0d 01 74 05 ce  0d 01 75 0e e7 20 66 25  |. ...t....u.. f%|
00001f70  20 8c 20 3d 73 24 0d 01  76 22 3d 22 55 6e 6b 6e  | . =s$..v"="Unkn|
00001f80  6f 77 6e 20 72 65 73 6f  75 72 63 65 20 65 72 72  |own resource err|
00001f90  6f 72 3a 20 22 2b 72 24  0d 01 77 04 0d 01 78 04  |or: "+r$..w...x.|
00001fa0  0d 01 79 14 dd 20 a4 67  65 74 72 65 73 28 72 25  |..y.. .getres(r%|
00001fb0  2c 65 25 29 0d 01 7a 08  ea 20 61 24 0d 01 7b 09  |,e%)..z.. a$..{.|
00001fc0  61 24 3d 22 22 0d 01 7c  16 c8 95 20 3f 72 25 3e  |a$=""..|... ?r%>|
00001fd0  3d 33 32 20 80 20 72 25  3c 65 25 0d 01 7d 12 20  |=32 . r%<e%..}. |
00001fe0  20 61 24 3d 61 24 2b bd  28 3f 72 25 29 0d 01 7e  | a$=a$+.(?r%)..~|
00001ff0  0b 20 20 72 25 2b 3d 31  0d 01 7f 05 ce 0d 01 80  |.  r%+=1........|
00002000  07 3d 61 24 0d 01 81 04  0d 01 82 04 0d 01 83 04  |.=a$............|
00002010  0d 01 84 04 0d 01 85 51  f4 20 2d 2d 2d 2d 2d 2d  |.......Q. ------|
00002020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002060  2d 2d 2d 2d 2d 0d 01 86  05 f4 0d 01 87 11 f4 20  |-----.......... |
00002070  4d 65 6d 6f 72 79 20 62  69 74 73 0d 01 88 05 f4  |Memory bits.....|
00002080  0d 01 89 4f f4 20 45 6e  73 75 72 65 6d 65 6d 20  |...O. Ensuremem |
00002090  77 69 6c 6c 20 65 6e 73  75 72 65 20 74 68 61 74  |will ensure that|
000020a0  20 74 68 65 72 65 20 69  73 20 65 6e 6f 75 67 68  | there is enough|
000020b0  20 6d 65 6d 6f 72 79 20  69 6e 20 74 68 65 20 76  | memory in the v|
000020c0  61 72 69 61 62 6c 65 20  62 75 66 66 65 72 2e 0d  |ariable buffer..|
000020d0  01 8a 4f f4 20 54 68 69  73 20 62 75 66 66 65 72  |..O. This buffer|
000020e0  20 69 73 20 68 65 6c 64  20 61 62 6f 76 65 20 48  | is held above H|
000020f0  49 4d 45 4d 2c 20 75 73  69 6e 67 20 57 69 6d 70  |IMEM, using Wimp|
00002100  5f 53 6c 6f 74 53 69 7a  65 20 74 6f 20 72 65 73  |_SlotSize to res|
00002110  69 7a 65 20 74 68 65 20  61 6d 6f 75 6e 74 0d 01  |ize the amount..|
00002120  8b 4e f4 20 6f 66 20 6d  65 6d 6f 72 79 20 66 72  |.N. of memory fr|
00002130  65 65 2e 20 41 6e 20 65  72 72 6f 72 20 77 69 6c  |ee. An error wil|
00002140  6c 20 62 65 20 67 65 6e  65 72 61 74 65 64 20 69  |l be generated i|
00002150  66 20 74 68 65 72 65 20  69 73 20 6e 6f 74 20 65  |f there is not e|
00002160  6e 6f 75 67 68 20 6d 65  6d 6f 72 79 0d 01 8c 2a  |nough memory...*|
00002170  f4 20 74 6f 20 63 6f 70  65 20 77 69 74 68 20 61  |. to cope with a|
00002180  6c 6c 20 74 68 65 20 70  6f 73 73 69 62 6c 65 20  |ll the possible |
00002190  66 6f 6e 74 73 2e 0d 01  8d 05 f4 0d 01 8e 51 f4  |fonts.........Q.|
000021a0  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
000021b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000021e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 01 8f 04  |------------....|
000021f0  0d 01 90 04 0d 01 91 0f  dd 20 f2 4d 65 6d 5f 49  |......... .Mem_I|
00002200  6e 69 74 0d 01 92 0e 4d  79 48 69 6d 65 6d 20 3d  |nit....MyHimem =|
00002210  93 0d 01 93 0e 62 61 73  65 20 20 20 20 3d 93 0d  |.....base    =..|
00002220  01 94 11 69 6e 73 65 72  74 20 20 3d 62 61 73 65  |...insert  =base|
00002230  0d 01 95 35 c8 99 22 57  69 6d 70 5f 53 6c 6f 74  |...5.."Wimp_Slot|
00002240  53 69 7a 65 22 2c 2d 31  2c 2d 31 20 b8 20 65 6e  |Size",-1,-1 . en|
00002250  76 63 75 72 72 2c 65 6e  76 6e 65 78 74 2c 65 6e  |vcurr,envnext,en|
00002260  76 66 72 65 65 0d 01 96  2d c8 99 22 4f 53 5f 52  |vfree...-.."OS_R|
00002270  65 61 64 4d 65 6d 4d 61  70 49 6e 66 6f 22 20 b8  |eadMemMapInfo" .|
00002280  20 70 61 67 65 73 69 7a  65 2c 6e 75 6d 70 61 67  | pagesize,numpag|
00002290  65 73 0d 01 97 05 e1 0d  01 98 04 0d 01 99 04 0d  |es..............|
000022a0  01 9a 11 dd 20 a4 43 6c  61 69 6d 28 72 65 71 29  |.... .Claim(req)|
000022b0  0d 01 9b 14 72 65 71 3d  28 72 65 71 2b 33 29 20  |....req=(req+3) |
000022c0  80 20 2d 34 0d 01 9c 3a  e7 20 28 69 6e 73 65 72  |. -4...:. (inser|
000022d0  74 2b 72 65 71 29 3c 4d  79 48 69 6d 65 6d 20 8c  |t+req)<MyHimem .|
000022e0  20 69 6e 73 65 72 74 3d  69 6e 73 65 72 74 2b 72  | insert=insert+r|
000022f0  65 71 3a 3d 69 6e 73 65  72 74 2d 72 65 71 0d 01  |eq:=insert-req..|
00002300  9d 4b c8 99 20 22 57 69  6d 70 5f 53 6c 6f 74 53  |.K.. "Wimp_SlotS|
00002310  69 7a 65 22 2c 2d 31 2c  2d 31 20 b8 20 63 75 72  |ize",-1,-1 . cur|
00002320  72 65 6e 74 2c 6e 65 78  74 2c 66 72 65 65 20 20  |rent,next,free  |
00002330  20 20 20 20 20 20 20 20  20 3a f4 20 67 65 74 20  |         :. get |
00002340  73 6c 6f 74 20 69 6e 66  6f 0d 01 9e 17 6e 65 77  |slot info....new|
00002350  68 69 6d 65 6d 3d 69 6e  73 65 72 74 2b 72 65 71  |himem=insert+req|
00002360  0d 01 9f 18 6e 65 77 68  69 6d 65 6d 2b 3d 70 61  |....newhimem+=pa|
00002370  67 65 73 69 7a 65 2d 31  0d 01 a0 29 6e 65 77 68  |gesize-1...)newh|
00002380  69 6d 65 6d 20 3d 6e 65  77 68 69 6d 65 6d 20 80  |imem =newhimem .|
00002390  20 28 ac 20 28 70 61 67  65 73 69 7a 65 2d 31 29  | (. (pagesize-1)|
000023a0  29 0d 01 a1 21 e7 20 6e  65 77 68 69 6d 65 6d 2d  |)...!. newhimem-|
000023b0  4d 79 48 69 6d 65 6d 3e  66 72 65 65 20 8c 20 3d  |MyHimem>free . =|
000023c0  2d 31 0d 01 a2 20 6e 65  78 74 3d 6e 65 78 74 2d  |-1... next=next-|
000023d0  28 6e 65 77 68 69 6d 65  6d 2d 4d 79 48 69 6d 65  |(newhimem-MyHime|
000023e0  6d 29 0d 01 a3 26 63 75  72 72 65 6e 74 3d 63 75  |m)...&current=cu|
000023f0  72 72 65 6e 74 2b 28 6e  65 77 68 69 6d 65 6d 2d  |rrent+(newhimem-|
00002400  4d 79 48 69 6d 65 6d 29  0d 01 a4 36 c8 99 22 57  |MyHimem)...6.."W|
00002410  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 63 75  |imp_SlotSize",cu|
00002420  72 72 65 6e 74 2c 6e 65  78 74 20 b8 20 63 75 72  |rrent,next . cur|
00002430  72 65 6e 74 2c 6e 65 78  74 2c 66 72 65 65 0d 01  |rent,next,free..|
00002440  a5 19 4d 79 48 69 6d 65  6d 3d 63 75 72 72 65 6e  |..MyHimem=curren|
00002450  74 2b 26 38 30 30 30 0d  01 a6 15 69 6e 73 65 72  |t+&8000....inser|
00002460  74 3d 69 6e 73 65 72 74  2b 72 65 71 0d 01 a7 0f  |t=insert+req....|
00002470  3d 69 6e 73 65 72 74 2d  72 65 71 0d 01 a8 04 0d  |=insert-req.....|
00002480  01 a9 13 dd 20 f2 4d 65  6d 5f 4b 69 6c 6c 53 6c  |.... .Mem_KillSl|
00002490  6f 74 0d 01 aa 2e c8 99  20 22 57 69 6d 70 5f 53  |ot...... "Wimp_S|
000024a0  6c 6f 74 53 69 7a 65 22  2c 65 6e 76 63 75 72 72  |lotSize",envcurr|
000024b0  2c 65 6e 76 6e 65 78 74  2c 65 6e 76 66 72 65 65  |,envnext,envfree|
000024c0  0d 01 ab 0d f2 4d 65 6d  5f 49 6e 69 74 0d 01 ac  |.....Mem_Init...|
000024d0  05 e1 0d 01 ad 04 0d 01  ae 1d dd 20 a4 41 6c 69  |........... .Ali|
000024e0  67 6e 28 70 74 72 29 20  3d 28 70 74 72 2b 33 29  |gn(ptr) =(ptr+3)|
000024f0  80 2d 34 0d 01 af 04 0d  01 b0 04 0d 01 b1 04 0d  |.-4.............|
00002500  01 b2 04 0d 01 b3 04 0d  01 b4 51 f4 20 2d 2d 2d  |..........Q. ---|
00002510  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002550  2d 2d 2d 2d 2d 2d 2d 2d  0d 01 b5 05 f4 0d 01 b6  |--------........|
00002560  29 f4 20 4f 6b 20 66 69  6e 61 6c 6c 79 20 61 70  |). Ok finally ap|
00002570  70 6c 69 63 61 74 69 6f  6e 20 72 65 6c 61 74 65  |plication relate|
00002580  64 20 63 6f 64 65 0d 01  b7 05 f4 0d 01 b8 51 f4  |d code........Q.|
00002590  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
000025a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000025d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 01 b9 04  |------------....|
000025e0  0d 01 ba 11 dd 20 f2 73  65 74 72 75 6e 6e 69 6e  |..... .setrunnin|
000025f0  67 0d 01 bb 24 ff 28 22  53 45 54 20 54 72 61 6e  |g...$.("SET Tran|
00002600  73 43 6c 65 61 72 24 52  75 6e 6e 69 6e 67 20 54  |sClear$Running T|
00002610  52 55 45 22 29 0d 01 bc  05 e1 0d 01 bd 04 0d 01  |RUE")...........|
00002620  be 0f dd 20 f2 63 6c 65  61 72 72 75 6e 0d 01 bf  |... .clearrun...|
00002630  21 ff 28 22 55 4e 53 45  54 20 54 72 61 6e 73 43  |!.("UNSET TransC|
00002640  6c 65 61 72 24 52 75 6e  6e 69 6e 67 22 29 0d 01  |lear$Running")..|
00002650  c0 05 e1 0d 01 c1 04 0d  01 c2 04 0d 01 c3 04 0d  |................|
00002660  01 c4 27 dd 20 a4 46 69  6c 74 65 72 43 6c 65 61  |..'. .FilterClea|
00002670  72 28 63 66 25 2c 70 61  74 68 24 2c 6c 65 6e 25  |r(cf%,path$,len%|
00002680  2c 66 6c 67 25 29 0d 01  c5 54 f4 20 2d 2d 2d 2d  |,flg%)...T. ----|
00002690  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000026d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 01 c6 05 f4 0d  |----------......|
000026e0  01 c7 12 f4 20 20 46 69  6c 74 65 72 43 6c 65 61  |....  FilterClea|
000026f0  72 0d 01 c8 05 f4 0d 01  c9 24 f4 20 20 4f 6e 20  |r........$.  On |
00002700  65 6e 74 72 79 20 2d 20  52 30 20 3d 20 43 6f 6e  |entry - R0 = Con|
00002710  74 72 6f 6c 20 66 6c 61  67 73 0d 01 ca 1f f4 20  |trol flags..... |
00002720  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002730  20 42 69 74 20 30 2e 2e  31 0d 01 cb 32 f4 20 20  | Bit 0..1...2.  |
00002740  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002750  20 20 3d 20 30 20 74 68  65 6e 20 73 6f 75 72 63  |  = 0 then sourc|
00002760  65 20 69 6e 20 6d 65 6d  6f 72 79 0d 01 cc 31 f4  |e in memory...1.|
00002770  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002780  20 20 20 20 3d 20 31 20  74 68 65 6e 20 73 6f 75  |    = 1 then sou|
00002790  72 63 65 20 70 61 74 68  6e 61 6d 65 0d 01 cd 34  |rce pathname...4|
000027a0  f4 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000027b0  20 20 20 20 20 3d 20 32  20 74 68 65 6e 20 73 6f  |     = 2 then so|
000027c0  75 72 63 65 20 66 69 6c  65 20 68 61 6e 64 6c 65  |urce file handle|
000027d0  0d 01 ce 2e f4 20 20 20  20 20 20 20 20 20 20 20  |.....           |
000027e0  2d 20 52 31 20 3d 20 64  65 70 65 6e 64 73 20 6f  |- R1 = depends o|
000027f0  6e 20 52 30 20 62 69 74  73 20 30 2e 2e 31 0d 01  |n R0 bits 0..1..|
00002800  cf 3a f4 20 20 20 20 20  20 20 20 20 20 20 20 20  |.:.             |
00002810  20 20 20 20 20 20 20 3d  20 30 20 74 68 65 6e 20  |       = 0 then |
00002820  52 31 3d 5e 54 69 66 66  20 69 6d 61 67 65 20 69  |R1=^Tiff image i|
00002830  6e 20 6d 65 6d 6f 72 79  0d 01 d0 2e f4 20 20 20  |n memory.....   |
00002840  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002850  20 3d 20 31 20 74 68 65  6e 20 52 31 3d 5e 50 61  | = 1 then R1=^Pa|
00002860  74 68 6e 61 6d 65 0d 01  d1 38 f4 20 20 20 20 20  |thname...8.     |
00002870  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3d  |               =|
00002880  20 32 20 74 68 65 6e 20  52 31 3d 20 73 6f 75 72  | 2 then R1= sour|
00002890  63 65 20 66 69 6c 65 20  68 61 6e 64 6c 65 0d 01  |ce file handle..|
000028a0  d2 30 f4 20 20 20 20 20  20 20 20 20 20 20 2d 20  |.0.           - |
000028b0  52 32 20 3d 20 4c 65 6e  67 74 68 20 6f 66 20 54  |R2 = Length of T|
000028c0  49 46 46 20 69 6d 61 67  65 20 64 61 74 61 0d 01  |IFF image data..|
000028d0  d3 1c f4 20 20 20 20 20  20 20 20 20 20 20 2d 20  |...           - |
000028e0  52 33 20 3d 20 46 6c 61  67 73 0d 01 d4 2f f4 20  |R3 = Flags.../. |
000028f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002900  20 30 20 3d 20 63 6f 6e  76 65 72 74 20 74 6f 20  | 0 = convert to |
00002910  64 72 61 77 20 66 69 6c  65 0d 01 d5 46 f4 20 20  |draw file...F.  |
00002920  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002930  31 20 3d 20 63 6f 6e 76  65 72 74 20 74 6f 20 73  |1 = convert to s|
00002940  70 72 69 74 65 20 77 69  74 68 20 63 6f 6e 74 72  |prite with contr|
00002950  6f 6c 20 62 6c 6f 63 6b  20 68 65 61 64 65 72 0d  |ol block header.|
00002960  01 d6 42 f4 20 20 20 20  20 20 20 20 20 20 20 20  |..B.            |
00002970  20 20 20 20 20 20 32 20  3d 20 63 6f 6e 76 65 72  |      2 = conver|
00002980  74 20 74 6f 20 73 70 72  69 74 65 20 77 69 74 68  |t to sprite with|
00002990  6f 75 74 20 63 6f 6e 74  72 6f 6c 20 62 6c 6f 63  |out control bloc|
000029a0  6b 0d 01 d7 05 f4 0d 01  d8 2a f4 20 20 4f 6e 20  |k........*.  On |
000029b0  65 78 69 74 20 20 2d 20  52 33 20 3d 20 5e 53 74  |exit  - R3 = ^St|
000029c0  61 72 74 20 6f 66 20 64  72 61 77 20 66 69 6c 65  |art of draw file|
000029d0  0d 01 d9 28 f4 20 20 20  20 20 20 20 20 20 20 20  |...(.           |
000029e0  2d 20 52 34 20 3d 20 5e  45 6e 64 20 6f 66 20 64  |- R4 = ^End of d|
000029f0  72 61 77 20 66 69 6c 65  0d 01 da 05 f4 0d 01 db  |raw file........|
00002a00  39 f4 20 20 45 72 72 6f  72 73 20 20 20 2d 20 56  |9.  Errors   - V|
00002a10  53 20 69 66 20 61 6e 20  65 72 72 6f 72 20 6f 63  |S if an error oc|
00002a20  63 75 72 65 64 2c 20 52  30 3d 5e 45 72 72 6f 72  |cured, R0=^Error|
00002a30  20 62 6c 6f 63 6b 0d 01  dc 2f f4 20 20 20 20 20  | block.../.     |
00002a40  20 20 20 20 20 20 2d 20  56 43 20 74 68 65 6e 20  |      - VC then |
00002a50  63 6f 6e 76 65 72 73 69  6f 6e 20 73 75 63 63 65  |conversion succe|
00002a60  73 73 66 75 6c 0d 01 dd  05 f4 0d 01 de 54 f4 20  |ssful........T. |
00002a70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002ab0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 01  |--------------..|
00002ac0  df 04 0d 01 e0 11 e7 20  63 66 25 3c 3e 31 20 8c  |....... cf%<>1 .|
00002ad0  20 3d 30 0d 01 e1 0d 58  3d ad 20 70 61 74 68 24  | =0....X=. path$|
00002ae0  0d 01 e2 20 e7 20 58 3d  30 20 8c 20 f2 52 65 73  |... . X=0 . .Res|
00002af0  45 72 72 6f 72 28 22 43  46 30 32 22 29 3a 3d 30  |Error("CF02"):=0|
00002b00  0d 01 e3 2c ee 20 85 20  ea 20 d9 23 58 3a f2 52  |...,. . . .#X:.R|
00002b10  65 70 6f 72 74 57 69 6d  70 45 72 72 6f 72 28 f6  |eportWimpError(.|
00002b20  24 2b 22 20 22 2b c3 9e  29 3a 3d 30 0d 01 e4 18  |$+" "+..):=0....|
00002b30  6e 61 6d 65 24 20 20 3d  20 a4 72 65 61 64 73 74  |name$  = .readst|
00002b40  72 69 6e 67 0d 01 e5 16  76 65 72 73 69 6f 6e 3d  |ring....version=|
00002b50  20 a4 72 65 61 64 77 6f  72 64 0d 01 e6 16 78 72  | .readword....xr|
00002b60  65 73 20 20 20 3d 20 a4  72 65 61 64 77 6f 72 64  |es   = .readword|
00002b70  0d 01 e7 16 79 72 65 73  20 20 20 3d 20 a4 72 65  |....yres   = .re|
00002b80  61 64 77 6f 72 64 0d 01  e8 16 73 62 70 70 20 20  |adword....sbpp  |
00002b90  20 3d 20 a4 72 65 61 64  77 6f 72 64 0d 01 e9 17  | = .readword....|
00002ba0  73 62 70 70 20 20 20 3d  20 73 62 70 70 20 80 20  |sbpp   = sbpp . |
00002bb0  26 46 46 0d 01 ea 11 64  62 70 70 20 20 20 3d 20  |&FF....dbpp   = |
00002bc0  73 62 70 70 0d 01 eb 08  63 25 3d a3 0d 01 ec 42  |sbpp....c%=....B|
00002bd0  e7 20 73 62 70 70 3d 31  20 84 20 73 62 70 70 3d  |. sbpp=1 . sbpp=|
00002be0  32 20 84 20 73 62 70 70  3d 34 20 84 20 73 62 70  |2 . sbpp=4 . sbp|
00002bf0  70 3d 38 20 84 20 73 62  70 70 3d 31 36 20 84 20  |p=8 . sbpp=16 . |
00002c00  73 62 70 70 3d 32 34 20  8c 20 63 25 3d b9 0d 01  |sbpp=24 . c%=...|
00002c10  ed 25 e7 20 ac 20 63 25  20 8c 20 f2 52 65 73 45  |.%. . c% . .ResE|
00002c20  72 72 6f 72 28 22 43 46  30 35 22 29 3a d9 23 58  |rror("CF05"):.#X|
00002c30  3a 3d 30 0d 01 ee 17 e7  20 64 62 70 70 3d 32 34  |:=0..... dbpp=24|
00002c40  20 8c 20 64 62 70 70 3d  33 32 0d 01 ef 0f 70 61  | . dbpp=32....pa|
00002c50  6c 65 74 74 65 25 3d 2d  31 0d 01 f0 2b e7 20 73  |lette%=-1...+. s|
00002c60  62 70 70 3c 3d 38 20 8c  20 70 61 6c 65 74 74 65  |bpp<=8 . palette|
00002c70  25 3d a4 52 65 61 64 50  61 6c 65 74 74 65 28 73  |%=.ReadPalette(s|
00002c80  62 70 70 29 0d 01 f1 19  e7 20 70 61 6c 65 74 74  |bpp)..... palett|
00002c90  65 25 3d 30 20 8c 20 d9  23 58 3a 3d 30 0d 01 f2  |e%=0 . .#X:=0...|
00002ca0  1d e7 20 73 62 70 70 3c  31 36 20 8c 20 73 63 61  |.. sbpp<16 . sca|
00002cb0  6e 77 69 64 25 3d 78 72  65 73 0d 01 f3 1f e7 20  |nwid%=xres..... |
00002cc0  73 62 70 70 3d 31 36 20  8c 20 73 63 61 6e 77 69  |sbpp=16 . scanwi|
00002cd0  64 25 3d 33 2a 78 72 65  73 0d 01 f4 1f e7 20 73  |d%=3*xres..... s|
00002ce0  62 70 70 3d 32 34 20 8c  20 73 63 61 6e 77 69 64  |bpp=24 . scanwid|
00002cf0  25 3d 33 2a 78 72 65 73  0d 01 f5 1d 53 63 61 6e  |%=3*xres....Scan|
00002d00  6c 69 6e 65 3d a4 43 6c  61 69 6d 28 73 63 61 6e  |line=.Claim(scan|
00002d10  77 69 64 25 29 0d 01 f6  2c e7 20 53 63 61 6e 6c  |wid%)...,. Scanl|
00002d20  69 6e 65 3d 2d 31 20 8c  20 f2 52 65 73 45 72 72  |ine=-1 . .ResErr|
00002d30  6f 72 28 22 43 46 30 31  22 29 3a d9 23 58 3a 3d  |or("CF01"):.#X:=|
00002d40  30 0d 01 f7 3b c8 99 20  22 50 69 63 54 72 61 6e  |0...;.. "PicTran|
00002d50  73 5f 44 65 73 63 72 69  62 65 53 6f 75 72 63 65  |s_DescribeSource|
00002d60  22 2c 73 62 70 70 2c 78  72 65 73 2c 79 72 65 73  |",sbpp,xres,yres|
00002d70  20 b8 20 69 6d 61 67 65  73 69 7a 65 0d 01 f8 0d  | . imagesize....|
00002d80  c8 8e 20 66 6c 67 25 20  ca 0d 01 f9 13 20 20 c9  |.. flg% .....  .|
00002d90  20 30 3a 69 6d 68 64 72  25 3d 36 34 0d 01 fa 13  | 0:imhdr%=64....|
00002da0  20 20 c9 20 31 3a 69 6d  68 64 72 25 3d 31 32 0d  |  . 1:imhdr%=12.|
00002db0  01 fb 12 20 20 c9 20 32  3a 69 6d 68 64 72 25 3d  |...  . 2:imhdr%=|
00002dc0  30 0d 01 fc 05 cb 0d 01  fd 22 49 6d 61 67 65 3d  |0........"Image=|
00002dd0  a4 43 6c 61 69 6d 28 69  6d 61 67 65 73 69 7a 65  |.Claim(imagesize|
00002de0  2b 69 6d 68 64 72 25 29  0d 01 fe 29 e7 20 49 6d  |+imhdr%)...). Im|
00002df0  61 67 65 3d 2d 31 20 8c  20 f2 52 65 73 45 72 72  |age=-1 . .ResErr|
00002e00  6f 72 28 22 43 46 30 31  22 29 3a d9 23 58 3a 3d  |or("CF01"):.#X:=|
00002e10  30 0d 01 ff 0d c8 8e 20  66 6c 67 25 20 ca 0d 02  |0...... flg% ...|
00002e20  00 20 20 20 c9 20 30 3a  f2 49 6e 69 74 44 72 61  |.   . 0:.InitDra|
00002e30  77 48 65 61 64 65 72 28  49 6d 61 67 65 29 0d 02  |wHeader(Image)..|
00002e40  01 22 20 20 c9 20 31 3a  f2 49 6e 69 74 53 70 72  |."  . 1:.InitSpr|
00002e50  69 74 65 48 65 61 64 65  72 28 49 6d 61 67 65 29  |iteHeader(Image)|
00002e60  0d 02 02 05 cb 0d 02 03  47 c8 99 20 22 50 69 63  |........G.. "Pic|
00002e70  54 72 61 6e 73 5f 4f 70  65 6e 4f 75 74 70 75 74  |Trans_OpenOutput|
00002e80  22 2c 49 6d 61 67 65 2b  69 6d 68 64 72 25 2c 70  |",Image+imhdr%,p|
00002e90  61 6c 65 74 74 65 25 2c  26 31 30 30 20 b8 20 41  |alette%,&100 . A|
00002ea0  64 64 72 65 73 73 2c 50  61 72 61 6d 0d 02 04 10  |ddress,Param....|
00002eb0  21 61 64 64 3d 41 64 64  72 65 73 73 0d 02 05 0e  |!add=Address....|
00002ec0  21 70 61 72 3d 50 61 72  61 6d 0d 02 06 15 21 69  |!par=Param....!i|
00002ed0  6d 67 3d 49 6d 61 67 65  2b 69 6d 68 64 72 25 0d  |mg=Image+imhdr%.|
00002ee0  02 07 0d 21 66 68 6e 64  6c 65 3d 58 0d 02 08 14  |...!fhndle=X....|
00002ef0  21 62 77 69 64 74 68 3d  73 63 61 6e 77 69 64 25  |!bwidth=scanwid%|
00002f00  0d 02 09 10 21 78 77 69  64 74 68 3d 78 72 65 73  |....!xwidth=xres|
00002f10  0d 02 0a 12 21 73 63 61  6e 3d 53 63 61 6e 6c 69  |....!scan=Scanli|
00002f20  6e 65 0d 02 0b 0e 21 74  62 70 70 3d 73 62 70 70  |ne....!tbpp=sbpp|
00002f30  0d 02 0c 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
00002f40  73 5f 4f 6e 22 0d 02 0d  13 e3 20 4d 25 3d 30 20  |s_On"..... M%=0 |
00002f50  b8 20 79 72 65 73 2d 31  0d 02 0e 0c 20 21 69 6e  |. yres-1.... !in|
00002f60  64 3d 4d 25 0d 02 0f 10  20 d6 20 74 72 61 6e 73  |d=M%.... . trans|
00002f70  73 63 61 6e 0d 02 10 48  20 e7 20 21 45 72 72 50  |scan...H . !ErrP|
00002f80  74 72 3c 3e 30 20 8c 20  4d 25 3d 79 72 65 73 2d  |tr<>0 . M%=yres-|
00002f90  31 20 8b 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |1 . .. "Hourglas|
00002fa0  73 5f 50 65 72 63 65 6e  74 61 67 65 22 2c 39 39  |s_Percentage",99|
00002fb0  2a 4d 25 2f 28 79 72 65  73 2d 31 29 0d 02 11 05  |*M%/(yres-1)....|
00002fc0  ed 0d 02 12 16 c8 99 20  22 48 6f 75 72 67 6c 61  |....... "Hourgla|
00002fd0  73 73 5f 4f 66 66 22 0d  02 13 07 d9 23 58 0d 02  |ss_Off".....#X..|
00002fe0  14 26 e7 20 21 45 72 72  50 74 72 3c 3e 30 20 8c  |.&. !ErrPtr<>0 .|
00002ff0  20 f2 50 65 65 6b 45 72  72 6f 72 28 21 45 72 72  | .PeekError(!Err|
00003000  50 74 72 29 0d 02 15 0f  e7 20 4d 25 3d 30 20 8c  |Ptr)..... M%=0 .|
00003010  20 3d a3 0d 02 16 06 3d  b9 0d 02 17 04 0d 02 18  | =.....=........|
00003020  04 0d 02 19 17 dd 20 a4  52 65 61 64 50 61 6c 65  |...... .ReadPale|
00003030  74 74 65 28 62 70 70 29  0d 02 1a 0b ea 20 6e 63  |tte(bpp)..... nc|
00003040  6f 6c 73 0d 02 1b 10 6e  63 6f 6c 73 3d 31 3c 3c  |ols....ncols=1<<|
00003050  62 70 70 0d 02 1c 17 70  61 6c 3d a4 43 6c 61 69  |bpp....pal=.Clai|
00003060  6d 28 6e 63 6f 6c 73 2a  38 29 0d 02 1d 23 e7 20  |m(ncols*8)...#. |
00003070  70 61 6c 3d 2d 31 20 8c  20 f2 52 65 73 45 72 72  |pal=-1 . .ResErr|
00003080  6f 72 28 22 43 46 30 34  22 29 3a 3d 30 0d 02 1e  |or("CF04"):=0...|
00003090  14 e3 20 6d 25 3d 30 20  b8 20 6e 63 6f 6c 73 2d  |.. m%=0 . ncols-|
000030a0  31 0d 02 1f 0b 20 72 25  3d 9a 23 58 0d 02 20 0b  |1.... r%=.#X.. .|
000030b0  20 67 25 3d 9a 23 58 0d  02 21 0b 20 62 25 3d 9a  | g%=.#X..!. b%=.|
000030c0  23 58 0d 02 22 14 20 72  25 3d 72 25 20 84 20 28  |#X..". r%=r% . (|
000030d0  72 25 3e 3e 34 29 0d 02  23 14 20 67 25 3d 67 25  |r%>>4)..#. g%=g%|
000030e0  20 84 20 28 67 25 3e 3e  34 29 0d 02 24 14 20 62  | . (g%>>4)..$. b|
000030f0  25 3d 62 25 20 84 20 28  62 25 3e 3e 34 29 0d 02  |%=b% . (b%>>4)..|
00003100  25 2a 20 70 61 6c 21 28  6d 25 3c 3c 33 29 3d 28  |%* pal!(m%<<3)=(|
00003110  62 25 3c 3c 32 34 29 2b  28 67 25 3c 3c 31 36 29  |b%<<24)+(g%<<16)|
00003120  2b 28 72 25 3c 3c 38 29  0d 02 26 2e 20 70 61 6c  |+(r%<<8)..&. pal|
00003130  21 28 28 6d 25 3c 3c 33  29 2b 34 29 3d 28 62 25  |!((m%<<3)+4)=(b%|
00003140  3c 3c 32 34 29 2b 28 67  25 3c 3c 31 36 29 2b 28  |<<24)+(g%<<16)+(|
00003150  72 25 3c 3c 38 29 0d 02  27 05 ed 0d 02 28 08 3d  |r%<<8)..'....(.=|
00003160  70 61 6c 0d 02 29 04 0d  02 2a 04 0d 02 2b 0b dd  |pal..)...*...+..|
00003170  20 f2 63 6f 64 65 0d 02  2c 09 4c 4b 3d 31 34 0d  | .code..,.LK=14.|
00003180  02 2d 0e 53 52 5f 56 3d  31 3c 3c 32 38 0d 02 2e  |.-.SR_V=1<<28...|
00003190  0e de 20 63 6f 64 65 20  32 35 36 0d 02 2f 14 e3  |.. code 256../..|
000031a0  20 50 41 53 53 3d 30 20  b8 20 32 20 88 20 32 0d  | PASS=0 . 2 . 2.|
000031b0  02 30 0b 50 25 3d 63 6f  64 65 0d 02 31 0d 5b 4f  |.0.P%=code..1.[O|
000031c0  50 54 20 50 41 53 53 0d  02 32 04 0d 02 33 28 2e  |PT PASS..2...3(.|
000031d0  74 72 61 6e 73 73 63 61  6e 20 20 20 53 54 4d 46  |transscan   STMF|
000031e0  44 20 20 20 52 31 33 21  2c 7b 52 30 2d 52 37 2c  |D   R13!,{R0-R7,|
000031f0  4c 4b 7d 0d 02 34 4d 20  20 20 20 20 20 20 20 20  |LK}..4M         |
00003200  20 20 20 20 4c 44 52 20  20 20 20 20 52 33 2c 62  |    LDR     R3,b|
00003210  77 69 64 74 68 20 20 20  20 20 20 20 20 20 20 20  |width           |
00003220  20 20 20 20 20 20 20 3b  20 67 65 74 20 73 63 61  |       ; get sca|
00003230  6e 20 77 69 64 74 68 20  69 6e 20 62 79 74 65 73  |n width in bytes|
00003240  0d 02 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |..5             |
00003250  20 4c 44 52 20 20 20 20  20 52 32 2c 73 63 61 6e  | LDR     R2,scan|
00003260  0d 02 36 4a 20 20 20 20  20 20 20 20 20 20 20 20  |..6J            |
00003270  20 4d 4f 56 20 20 20 20  20 52 30 2c 23 34 20 20  | MOV     R0,#4  |
00003280  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003290  20 20 20 20 3b 20 75 73  65 20 63 75 72 72 65 6e  |    ; use curren|
000032a0  74 20 66 69 6c 65 20 70  74 72 0d 02 37 22 20 20  |t file ptr..7"  |
000032b0  20 20 20 20 20 20 20 20  20 20 20 4c 44 52 20 20  |           LDR  |
000032c0  20 20 20 52 31 2c 66 68  6e 64 6c 65 0d 02 38 23  |   R1,fhndle..8#|
000032d0  20 20 20 20 20 20 20 20  20 20 20 20 20 53 57 49  |             SWI|
000032e0  20 20 20 20 20 22 58 4f  53 5f 47 42 50 42 22 0d  |     "XOS_GBPB".|
000032f0  02 39 21 20 20 20 20 20  20 20 20 20 20 20 20 20  |.9!             |
00003300  42 56 53 20 20 20 20 20  43 61 6e 74 52 65 61 64  |BVS     CantRead|
00003310  0d 02 3a 4e 20 20 20 20  20 20 20 20 20 20 20 20  |..:N            |
00003320  20 42 43 53 20 20 20 20  20 43 61 6e 74 52 65 61  | BCS     CantRea|
00003330  64 43 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |dCS             |
00003340  20 20 20 20 3b 20 43 53  20 69 66 20 6e 6f 74 20  |    ; CS if not |
00003350  61 6c 6c 20 74 72 61 6e  73 66 65 72 65 64 0d 02  |all transfered..|
00003360  3b 1f 20 20 20 20 20 20  20 20 20 20 20 20 20 4c  |;.             L|
00003370  44 52 20 20 20 20 20 52  30 2c 70 61 72 0d 02 3c  |DR     R0,par..<|
00003380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4c 44  |              LD|
00003390  52 20 20 20 20 20 52 31  2c 73 63 61 6e 0d 02 3d  |R     R1,scan..=|
000033a0  1f 20 20 20 20 20 20 20  20 20 20 20 20 20 4c 44  |.             LD|
000033b0  52 20 20 20 20 20 52 32  2c 69 6d 67 0d 02 3e 1f  |R     R2,img..>.|
000033c0  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 52  |             LDR|
000033d0  20 20 20 20 20 52 33 2c  69 6e 64 0d 02 3f 1e 20  |     R3,ind..?. |
000033e0  20 20 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |            MOV |
000033f0  20 20 20 20 4c 4b 2c 50  43 0d 02 40 1f 20 20 20  |    LK,PC..@.   |
00003400  20 20 20 20 20 20 20 20  20 20 4c 44 52 20 20 20  |          LDR   |
00003410  20 20 50 43 2c 61 64 64  0d 02 41 28 20 20 20 20  |  PC,add..A(    |
00003420  20 20 20 20 20 20 20 20  20 4c 44 4d 46 44 20 20  |         LDMFD  |
00003430  20 52 31 33 21 2c 7b 52  30 2d 52 37 2c 4c 4b 7d  | R13!,{R0-R7,LK}|
00003440  0d 02 42 24 20 20 20 20  20 20 20 20 20 20 20 20  |..B$            |
00003450  20 42 49 43 53 20 20 20  20 50 43 2c 4c 4b 2c 23  | BICS    PC,LK,#|
00003460  53 52 5f 56 0d 02 43 22  2e 43 61 6e 74 52 65 61  |SR_V..C".CantRea|
00003470  64 43 53 20 20 4c 44 52  20 20 20 20 20 4c 4b 2c  |dCS  LDR     LK,|
00003480  62 77 69 64 74 68 0d 02  44 44 20 20 20 20 20 20  |bwidth..DD      |
00003490  20 20 20 20 20 20 20 43  4d 50 20 20 20 20 20 52  |       CMP     R|
000034a0  33 2c 4c 4b 20 20 20 20  20 20 20 20 20 20 20 20  |3,LK            |
000034b0  20 20 20 20 20 20 20 20  20 20 3b 20 66 61 69 6c  |          ; fail|
000034c0  65 64 20 6f 6e 20 61 6e  79 3f 0d 02 45 1f 20 20  |ed on any?..E.  |
000034d0  20 20 20 20 20 20 20 20  20 20 20 42 45 51 20 20  |           BEQ  |
000034e0  20 20 20 4e 6f 4c 69 6e  65 0d 02 46 1f 20 20 20  |   NoLine..F.   |
000034f0  20 20 20 20 20 20 20 20  20 20 4c 44 52 20 20 20  |          LDR   |
00003500  20 20 52 30 2c 70 61 72  0d 02 47 20 20 20 20 20  |  R0,par..G     |
00003510  20 20 20 20 20 20 20 20  20 4c 44 52 20 20 20 20  |         LDR    |
00003520  20 52 31 2c 73 63 61 6e  0d 02 48 1f 20 20 20 20  | R1,scan..H.    |
00003530  20 20 20 20 20 20 20 20  20 4c 44 52 20 20 20 20  |         LDR    |
00003540  20 52 32 2c 69 6d 67 0d  02 49 1f 20 20 20 20 20  | R2,img..I.     |
00003550  20 20 20 20 20 20 20 20  4c 44 52 20 20 20 20 20  |        LDR     |
00003560  52 33 2c 69 6e 64 0d 02  4a 1e 20 20 20 20 20 20  |R3,ind..J.      |
00003570  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 4c  |       MOV     L|
00003580  4b 2c 50 43 0d 02 4b 1f  20 20 20 20 20 20 20 20  |K,PC..K.        |
00003590  20 20 20 20 20 4c 44 52  20 20 20 20 20 50 43 2c  |     LDR     PC,|
000035a0  61 64 64 0d 02 4c 23 2e  4e 6f 4c 69 6e 65 20 20  |add..L#.NoLine  |
000035b0  20 20 20 20 41 44 52 20  20 20 20 20 52 30 2c 45  |    ADR     R0,E|
000035c0  72 72 4d 65 73 73 0d 02  4d 22 2e 43 61 6e 74 52  |rrMess..M".CantR|
000035d0  65 61 64 20 20 20 20 53  54 52 20 20 20 20 20 52  |ead    STR     R|
000035e0  30 2c 45 72 72 50 74 72  0d 02 4e 28 20 20 20 20  |0,ErrPtr..N(    |
000035f0  20 20 20 20 20 20 20 20  20 4c 44 4d 46 44 20 20  |         LDMFD  |
00003600  20 52 31 33 21 2c 7b 52  30 2d 52 37 2c 4c 4b 7d  | R13!,{R0-R7,LK}|
00003610  0d 02 4f 24 20 20 20 20  20 20 20 20 20 20 20 20  |..O$            |
00003620  20 42 49 43 53 20 20 20  20 50 43 2c 4c 4b 2c 23  | BICS    PC,LK,#|
00003630  53 52 5f 56 0d 02 50 04  0d 02 51 1a 2e 45 72 72  |SR_V..P...Q..Err|
00003640  50 74 72 20 20 20 20 20  20 45 51 55 44 20 20 20  |Ptr      EQUD   |
00003650  20 30 0d 02 52 1a 2e 45  72 72 4d 65 73 73 20 20  | 0..R..ErrMess  |
00003660  20 20 20 45 51 55 44 20  20 20 20 30 0d 02 53 4a  |   EQUD    0..SJ|
00003670  20 20 20 20 20 20 20 20  20 20 20 20 20 45 51 55  |             EQU|
00003680  53 20 20 20 20 22 46 61  69 6c 65 64 20 74 6f 20  |S    "Failed to |
00003690  72 65 61 64 20 61 20 73  63 61 6e 6c 69 6e 65 2c  |read a scanline,|
000036a0  20 69 6d 61 67 65 20 64  61 74 61 20 74 6f 6f 20  | image data too |
000036b0  73 68 6f 72 74 22 0d 02  54 1a 20 20 20 20 20 20  |short"..T.      |
000036c0  20 20 20 20 20 20 20 45  51 55 42 20 20 20 20 30  |       EQUB    0|
000036d0  0d 02 55 16 20 20 20 20  20 20 20 20 20 20 20 20  |..U.            |
000036e0  20 41 4c 49 47 4e 0d 02  56 04 0d 02 57 1a 2e 61  | ALIGN..V...W..a|
000036f0  64 64 20 20 20 20 20 20  20 20 20 45 51 55 44 20  |dd         EQUD |
00003700  20 20 20 30 0d 02 58 1a  2e 70 61 72 20 20 20 20  |   0..X..par    |
00003710  20 20 20 20 20 45 51 55  44 20 20 20 20 30 0d 02  |     EQUD    0..|
00003720  59 1a 2e 77 72 6b 20 20  20 20 20 20 20 20 20 45  |Y..wrk         E|
00003730  51 55 44 20 20 20 20 30  0d 02 5a 1a 2e 69 6d 67  |QUD    0..Z..img|
00003740  20 20 20 20 20 20 20 20  20 45 51 55 44 20 20 20  |         EQUD   |
00003750  20 30 0d 02 5b 1a 2e 66  68 6e 64 6c 65 20 20 20  | 0..[..fhndle   |
00003760  20 20 20 45 51 55 44 20  20 20 20 30 0d 02 5c 1a  |   EQUD    0..\.|
00003770  2e 78 77 69 64 74 68 20  20 20 20 20 20 45 51 55  |.xwidth      EQU|
00003780  44 20 20 20 20 30 0d 02  5d 1a 2e 62 77 69 64 74  |D    0..]..bwidt|
00003790  68 20 20 20 20 20 20 45  51 55 44 20 20 20 20 30  |h      EQUD    0|
000037a0  0d 02 5e 1a 2e 69 6e 64  20 20 20 20 20 20 20 20  |..^..ind        |
000037b0  20 45 51 55 44 20 20 20  20 30 0d 02 5f 1a 2e 73  | EQUD    0.._..s|
000037c0  63 61 6e 20 20 20 20 20  20 20 20 45 51 55 44 20  |can        EQUD |
000037d0  20 20 20 30 0d 02 60 1a  2e 74 62 70 70 20 20 20  |   0..`..tbpp   |
000037e0  20 20 20 20 20 45 51 55  44 20 20 20 20 30 0d 02  |     EQUD    0..|
000037f0  61 04 0d 02 62 06 5d ed  0d 02 63 05 e1 0d 02 64  |a...b.]...c....d|
00003800  04 0d 02 65 04 0d 02 66  0f dd 20 a4 72 65 61 64  |...e...f.. .read|
00003810  77 6f 72 64 0d 02 67 09  ea 20 78 2c 79 0d 02 68  |word..g.. x,y..h|
00003820  09 78 3d 9a 23 58 0d 02  69 09 79 3d 9a 23 58 0d  |.x=.#X..i.y=.#X.|
00003830  02 6a 0e 78 3d 78 2b 28  79 3c 3c 38 29 0d 02 6b  |.j.x=x+(y<<8)..k|
00003840  09 79 3d 9a 23 58 0d 02  6c 0f 78 3d 78 2b 28 79  |.y=.#X..l.x=x+(y|
00003850  3c 3c 31 36 29 0d 02 6d  09 79 3d 9a 23 58 0d 02  |<<16)..m.y=.#X..|
00003860  6e 0f 78 3d 78 2b 28 79  3c 3c 31 36 29 0d 02 6f  |n.x=x+(y<<16)..o|
00003870  06 3d 78 0d 02 70 04 0d  02 71 04 0d 02 72 11 dd  |.=x..p...q...r..|
00003880  20 a4 72 65 61 64 73 74  72 69 6e 67 0d 02 73 0a  | .readstring..s.|
00003890  ea 20 73 24 2c 78 0d 02  74 09 73 24 3d 22 22 0d  |. s$,x..t.s$="".|
000038a0  02 75 05 f5 0d 02 76 0a  20 78 3d 9a 23 58 0d 02  |.u....v. x=.#X..|
000038b0  77 14 20 e7 20 78 3e 33  31 20 73 24 3d 73 24 2b  |w. . x>31 s$=s$+|
000038c0  bd 78 0d 02 78 0a fd 20  78 3c 33 32 0d 02 79 07  |.x..x.. x<32..y.|
000038d0  3d 73 24 0d 02 7a 04 0d  02 7b 0e dd 20 f2 72 65  |=s$..z...{.. .re|
000038e0  61 64 72 65 73 0d 02 7c  1a 78 72 65 73 3d a4 72  |adres..|.xres=.r|
000038f0  65 61 64 6e 75 6d 65 72  69 63 28 22 20 22 29 0d  |eadnumeric(" ").|
00003900  02 7d 1b 79 72 65 73 3d  a4 72 65 61 64 6e 75 6d  |.}.yres=.readnum|
00003910  65 72 69 63 28 bd 26 30  41 29 0d 02 7e 05 e1 0d  |eric(.&0A)..~...|
00003920  02 7f 04 0d 02 80 19 dd  20 a4 72 65 61 64 6e 75  |........ .readnu|
00003930  6d 65 72 69 63 28 74 65  72 6d 24 29 0d 02 81 07  |meric(term$)....|
00003940  ea 20 6e 0d 02 82 07 6e  3d 30 0d 02 83 0e f2 73  |. n....n=0.....s|
00003950  6b 69 70 73 70 61 63 65  0d 02 84 05 f5 0d 02 85  |kipspace........|
00003960  0b 20 63 68 3d 9a 23 58  0d 02 86 2e 20 e7 20 ac  |. ch=.#X.... . .|
00003970  20 a4 74 65 72 6d 28 bd  63 68 2c 74 65 72 6d 24  | .term(.ch,term$|
00003980  29 20 8c 20 6e 3d 28 6e  2a 31 30 29 2b 28 63 68  |) . n=(n*10)+(ch|
00003990  2d 97 22 30 22 29 0d 02  87 16 fd 20 a4 74 65 72  |-."0")..... .ter|
000039a0  6d 28 bd 63 68 2c 74 65  72 6d 24 29 0d 02 88 0d  |m(.ch,term$)....|
000039b0  cf 23 58 3d 8f 23 58 2d  31 0d 02 89 06 3d 6e 0d  |.#X=.#X-1....=n.|
000039c0  02 8a 04 0d 02 8b 1b dd  20 a4 53 61 76 65 54 72  |........ .SaveTr|
000039d0  61 6e 73 46 69 6c 65 28  70 24 2c 74 25 29 0d 02  |ansFile(p$,t%)..|
000039e0  8c 25 f4 20 72 65 74 75  72 6e 20 66 61 6c 73 65  |.%. return false|
000039f0  20 69 66 20 66 61 69 6c  65 64 20 74 6f 20 73 61  | if failed to sa|
00003a00  76 65 21 0d 02 8d 0c ea  20 66 6c 61 67 73 25 0d  |ve!..... flags%.|
00003a10  02 8e 43 c8 99 20 22 58  4f 53 5f 46 69 6c 65 22  |..C.. "XOS_File"|
00003a20  2c 31 30 2c 70 24 2c 74  25 2c 30 2c 49 6d 61 67  |,10,p$,t%,0,Imag|
00003a30  65 2c 49 6d 61 67 65 2b  69 6d 61 67 65 73 69 7a  |e,Image+imagesiz|
00003a40  65 2b 69 6d 68 64 72 25  20 b8 20 3b 66 6c 61 67  |e+imhdr% . ;flag|
00003a50  73 25 0d 02 8f 28 e7 20  28 66 6c 61 67 73 25 20  |s%...(. (flags% |
00003a60  80 20 31 29 3d 31 20 8c  20 f2 52 65 73 45 72 72  |. 1)=1 . .ResErr|
00003a70  6f 72 28 22 43 46 30 33  22 29 0d 02 90 36 f2 4d  |or("CF03")...6.M|
00003a80  65 6d 5f 4b 69 6c 6c 53  6c 6f 74 20 20 20 3a f4  |em_KillSlot   :.|
00003a90  20 64 6f 6e 74 20 6b 69  6c 6c 20 73 6c 6f 74 20  | dont kill slot |
00003aa0  62 65 66 6f 72 65 20 52  65 73 45 72 72 6f 72 21  |before ResError!|
00003ab0  0d 02 91 19 e7 20 28 66  6c 61 67 73 25 20 80 20  |..... (flags% . |
00003ac0  31 29 3d 31 20 8c 20 3d  a3 0d 02 92 06 3d b9 0d  |1)=1 . =.....=..|
00003ad0  02 93 04 0d 02 94 04 0d  02 95 1a dd 20 f2 49 6e  |............ .In|
00003ae0  69 74 44 72 61 77 48 65  61 64 65 72 28 70 74 72  |itDrawHeader(ptr|
00003af0  29 0d 02 96 0f 24 70 74  72 3d 22 44 72 61 77 22  |)....$ptr="Draw"|
00003b00  0d 02 97 0d 70 74 72 21  34 3d 32 30 31 0d 02 98  |....ptr!4=201...|
00003b10  0b 70 74 72 21 38 3d 30  0d 02 99 20 f2 70 6f 6b  |.ptr!8=0... .pok|
00003b20  65 73 74 72 28 22 49 6d  61 67 65 72 22 2c 70 74  |estr("Imager",pt|
00003b30  72 2b 31 32 2c 31 32 29  0d 02 9a 0c 70 74 72 21  |r+12,12)....ptr!|
00003b40  32 34 3d 30 0d 02 9b 0c  70 74 72 21 32 38 3d 30  |24=0....ptr!28=0|
00003b50  0d 02 9c 16 70 74 72 21  33 32 3d 78 72 65 73 3c  |....ptr!32=xres<|
00003b60  3c 28 31 2b 38 29 0d 02  9d 16 70 74 72 21 33 36  |<(1+8)....ptr!36|
00003b70  3d 79 72 65 73 3c 3c 28  31 2b 38 29 0d 02 9e 0c  |=yres<<(1+8)....|
00003b80  70 74 72 21 34 30 3d 35  0d 02 9f 17 70 74 72 21  |ptr!40=5....ptr!|
00003b90  34 34 3d 69 6d 61 67 65  73 69 7a 65 2b 32 34 0d  |44=imagesize+24.|
00003ba0  02 a0 0c 70 74 72 21 34  38 3d 30 0d 02 a1 0c 70  |...ptr!48=0....p|
00003bb0  74 72 21 35 32 3d 30 0d  02 a2 16 70 74 72 21 35  |tr!52=0....ptr!5|
00003bc0  36 3d 78 72 65 73 3c 3c  28 31 2b 38 29 0d 02 a3  |6=xres<<(1+8)...|
00003bd0  16 70 74 72 21 36 30 3d  79 72 65 73 3c 3c 28 31  |.ptr!60=yres<<(1|
00003be0  2b 38 29 0d 02 a4 05 e1  0d 02 a5 04 0d 02 a6 04  |+8).............|
00003bf0  0d 02 a7 1c dd 20 f2 49  6e 69 74 53 70 72 69 74  |..... .InitSprit|
00003c00  65 48 65 61 64 65 72 28  70 74 72 29 0d 02 a8 0b  |eHeader(ptr)....|
00003c10  70 74 72 21 30 3d 31 0d  02 a9 0c 70 74 72 21 34  |ptr!0=1....ptr!4|
00003c20  3d 31 36 0d 02 aa 16 70  74 72 21 38 3d 69 6d 61  |=16....ptr!8=ima|
00003c30  67 65 73 69 7a 65 2b 31  36 0d 02 ab 05 e1 0d 02  |gesize+16.......|
00003c40  ac 04 0d 02 ad 04 0d 02  ae 1a dd 20 f2 70 6f 6b  |........... .pok|
00003c50  65 73 74 72 28 73 24 2c  70 74 72 2c 70 61 64 29  |estr(s$,ptr,pad)|
00003c60  0d 02 af 08 ea 20 6d 25  0d 02 b0 12 e3 20 6d 25  |..... m%..... m%|
00003c70  3d 30 20 b8 20 70 61 64  2d 31 0d 02 b1 0d 20 70  |=0 . pad-1.... p|
00003c80  74 72 3f 6d 25 3d 30 0d  02 b2 05 ed 0d 02 b3 13  |tr?m%=0.........|
00003c90  24 70 74 72 3d c0 73 24  2c 70 61 64 2d 31 29 0d  |$ptr=.s$,pad-1).|
00003ca0  02 b4 05 e1 0d 02 b5 04  0d 02 b6 51 f4 20 2d 2d  |...........Q. --|
00003cb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003cf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 02 b7 05 f4 0d 02  |---------.......|
00003d00  b8 26 f4 20 20 42 41 53  49 43 20 56 64 75 53 74  |.&.  BASIC VduSt|
00003d10  72 65 61 6d 20 64 65 62  75 67 67 69 6e 67 20 62  |ream debugging b|
00003d20  69 74 73 2e 0d 02 b9 05  f4 0d 02 ba 51 f4 20 2d  |its.........Q. -|
00003d30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003d70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 02 bb 04 0d 02  |----------......|
00003d80  bc 12 dd 20 f2 72 6d 6c  6e 28 73 24 2c 72 25 29  |... .rmln(s$,r%)|
00003d90  0d 02 bd 12 e7 20 ac 20  44 65 62 75 67 25 20 8c  |..... . Debug% .|
00003da0  20 e1 0d 02 be 19 c8 99  20 22 53 74 72 65 61 6d  | ....... "Stream|
00003db0  5f 57 72 69 74 65 30 22  2c 73 24 0d 02 bf 1b c8  |_Write0",s$.....|
00003dc0  99 20 22 53 74 72 65 61  6d 5f 57 72 69 74 65 48  |. "Stream_WriteH|
00003dd0  33 32 22 2c 72 25 0d 02  c0 17 c8 99 20 22 53 74  |32",r%...... "St|
00003de0  72 65 61 6d 5f 4e 65 77  4c 69 6e 65 22 0d 02 c1  |ream_NewLine"...|
00003df0  05 e1 0d 02 c2 04 0d 02  c3 12 dd 20 f2 64 68 65  |........... .dhe|
00003e00  78 28 73 24 2c 72 25 29  0d 02 c4 12 e7 20 ac 20  |x(s$,r%)..... . |
00003e10  44 65 62 75 67 25 20 8c  20 e1 0d 02 c5 19 c8 99  |Debug% . .......|
00003e20  20 22 53 74 72 65 61 6d  5f 57 72 69 74 65 30 22  | "Stream_Write0"|
00003e30  2c 73 24 0d 02 c6 1b c8  99 20 22 53 74 72 65 61  |,s$...... "Strea|
00003e40  6d 5f 57 72 69 74 65 48  33 32 22 2c 72 25 0d 02  |m_WriteH32",r%..|
00003e50  c7 17 c8 99 20 22 53 74  72 65 61 6d 5f 4e 65 77  |.... "Stream_New|
00003e60  4c 69 6e 65 22 0d 02 c8  05 e1 0d 02 c9 04 0d 02  |Line"...........|
00003e70  ca 12 dd 20 f2 64 64 65  63 28 73 24 2c 72 25 29  |... .ddec(s$,r%)|
00003e80  0d 02 cb 12 e7 20 ac 20  44 65 62 75 67 25 20 8c  |..... . Debug% .|
00003e90  20 e1 0d 02 cc 19 c8 99  20 22 53 74 72 65 61 6d  | ....... "Stream|
00003ea0  5f 57 72 69 74 65 30 22  2c 73 24 0d 02 cd 1b c8  |_Write0",s$.....|
00003eb0  99 20 22 53 74 72 65 61  6d 5f 57 72 69 74 65 44  |. "Stream_WriteD|
00003ec0  33 32 22 2c 72 25 0d 02  ce 17 c8 99 20 22 53 74  |32",r%...... "St|
00003ed0  72 65 61 6d 5f 4e 65 77  4c 69 6e 65 22 0d 02 cf  |ream_NewLine"...|
00003ee0  05 e1 0d 02 d0 04 0d 02  d1 12 dd 20 f2 77 72 69  |........... .wri|
00003ef0  74 65 6c 6e 28 73 24 29  0d 02 d2 12 e7 20 ac 20  |teln(s$)..... . |
00003f00  44 65 62 75 67 25 20 8c  20 e1 0d 02 d3 19 c8 99  |Debug% . .......|
00003f10  20 22 53 74 72 65 61 6d  5f 57 72 69 74 65 30 22  | "Stream_Write0"|
00003f20  2c 73 24 0d 02 d4 17 c8  99 20 22 53 74 72 65 61  |,s$...... "Strea|
00003f30  6d 5f 4e 65 77 4c 69 6e  65 22 0d 02 d5 05 e1 0d  |m_NewLine"......|
00003f40  02 d6 04 0d 02 d7 0d dd  20 f2 70 72 28 61 25 29  |........ .pr(a%)|
00003f50  0d 02 d8 12 e7 20 ac 20  44 65 62 75 67 25 20 8c  |..... . Debug% .|
00003f60  20 e1 0d 02 d9 1b c8 99  20 22 53 74 72 65 61 6d  | ....... "Stream|
00003f70  5f 57 72 69 74 65 44 33  32 22 2c 61 25 0d 02 da  |_WriteD32",a%...|
00003f80  16 c8 99 20 22 53 74 72  65 61 6d 5f 4e 65 77 4c  |... "Stream_NewL|
00003f90  69 6e 65 0d 02 db 05 e1  0d 02 dc 04 0d 02 dd 0f  |ine.............|
00003fa0  dd 20 f2 6d 65 6d 68 28  6d 25 29 0d 02 de 12 e7  |. .memh(m%).....|
00003fb0  20 ac 20 44 65 62 75 67  25 20 8c 20 e1 0d 02 df  | . Debug% . ....|
00003fc0  16 c8 99 20 22 53 74 72  65 61 6d 5f 45 6e 61 62  |... "Stream_Enab|
00003fd0  6c 65 22 0d 02 e0 15 c8  99 20 22 4d 65 6d 5f 48  |le"...... "Mem_H|
00003fe0  22 2c 6d 25 2c 32 35 36  0d 02 e1 17 c8 99 20 22  |",m%,256...... "|
00003ff0  53 74 72 65 61 6d 5f 44  69 73 61 62 6c 65 22 0d  |Stream_Disable".|
00004000  02 e2 05 e1 0d 02 e3 04  0d 02 e4 11 dd f2 6d 65  |..............me|
00004010  6d 65 64 69 74 28 61 25  29 0d 02 e5 14 c8 99 20  |medit(a%)...... |
00004020  22 4d 65 6d 5f 45 64 69  74 22 2c 61 25 0d 02 e6  |"Mem_Edit",a%...|
00004030  05 e1 0d 02 e7 04 0d 02  e8 04 0d ff              |............|
0000403c