!ARMcode/!RunImage

Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » ARMcode » !ARMcode/!RunImage

!ARMcode/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » ARMcode
Filename:	!ARMcode/!RunImage
Read OK:	✔
File size:	1E21 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > <ARMcode$Dir>.!RunImage
   20REM
   30REM  (c) Henrik Bjerregaard Pedersen
   40REM             10 July 1992
   50version$="1.10 (10-Jul-1992)"
   60
   70DIM Menu% 200,b% 2000,DisAssem% 100,Q% 500,Word% 8
   80
   90$b%="TASK"
  100SYS"Wimp_Initialise",200,!b%,"ARMcode"
  110
  120PROCInit
  130ON ERROR PROCError
  140REPEAT
  150 SYS"Wimp_Poll",3121,b% TO action%
  160 CASE action% OF
  170  WHEN 2:SYS"Wimp_OpenWindow",,b%
  180  WHEN 3:SYS"Wimp_CloseWindow",,b%
  190  WHEN 6:PROCButtons(b%)
  200  WHEN 7:PROCDrag(b%)
  210  WHEN 8:IF b%!24=13 THEN PROCDoWord ELSE SYS"Wimp_ProcessKey",b%!24
  220  WHEN 9:IF b%!0=1 THEN Quit%=TRUE
  230  WHEN 17,18:CASE b%!16 OF
  240    WHEN 0:Quit%=TRUE
  250    WHEN &D9980:PROCReceive(b%)
  260   ENDCASE
  270 ENDCASE
  280UNTIL Quit%
  290SYS"Wimp_CloseDown"
  300END
  310
  320DEFPROCReceive(b%)
  330 IF (b%!24=-1 AND b%!28=0) OR b%!24=-2 THEN
  340  $DisWord%=FNHex(b%!20):PROCDoWord
  350  b%!0=Edit%:SYS"Wimp_GetWindowState",,b%:SYS"Wimp_OpenWindow",,b%
  360 ENDIF
  370ENDPROC
  380
  390DEFPROCInit
  400 LOCAL I%,m%
  410 PROCTemplates
  420 Quit%=FALSE
  430
  440 $FNi(Info%,3)=version$
  450
  460 DisByte1%=FNi(Edit%,1):DisByte2%=FNi(Edit%,2)
  470 DisByte3%=FNi(Edit%,3):DisByte4%=FNi(Edit%,4)
  480 DisByte5%=FNi(Edit%,5):DisByte6%=FNi(Edit%,6)
  490 DisByte7%=FNi(Edit%,7):DisByte8%=FNi(Edit%,8)
  500 DisWord%=FNi(Edit%,26)
  510 DisText%=FNi(Edit%,0)
  520
  530 !b%=-1:b%!20=&3102
  540 b%!4=0:b%!12=68:b%!8=0:b%!16=68
  550 DIM isp 10:$isp="!ARMcode"
  560 b%!24=isp:b%!28=1:b%!32=LEN$isp+1
  570 SYS"Wimp_CreateIcon",,b% TO ib
  580
  590 SByte1%=0:SByte2%=0:SByte3%=0:SByte4%=0
  600 SByte5%=0:SByte6%=0:SByte7%=0:SByte8%=0
  610ENDPROC
  620
  630DEFPROCDrag(b%)
  640 SYS"Wimp_GetPointerInfo",,b%
  650 PROCToDisAssem(EVAL("&"+FNGetString(DisWord%)),b%!12)
  660ENDPROC
  670
  680DEFPROCToDisAssem(word%,task%)
  690 IF task%=0 THEN SYS"Wimp_GetCaretPosition",,b%:task%=b%!0
  700 b%!0=32:b%!4=0:b%!8=0:b%!12=0:b%!16=&D9981
  710 b%!20=word%:b%!24=-1:b%!28=task%
  720 SYS"Wimp_SendMessage",17,b%,task%
  730ENDPROC
  740
  750DEFPROCInitDrag(w%,i%)
  760 LOCAL xsize%,ysize%
  770 b%!0=w%:SYS"Wimp_GetWindowState",,b%
  780 xsize%=b%!4-b%!20:ysize%=b%!16-b%!24
  790 b%!4=i%:SYS"Wimp_GetIconState",,b%
  800 b%!8+=xsize%:b%!12+=ysize%:b%!16+=xsize%:b%!20+=ysize%
  810 b%!24=0:b%!28=0:b%!32=3E4:b%!36=3E4
  820 b%!4=5:SYS"Wimp_DragBox",,b%
  830ENDPROC
  840
  850DEFFNi(w%,i%):b%!0=w%:b%!4=i%:SYS"Wimp_GetIconState",,b%:=b%!28
  860
  870DEFPROCTemplates
  880 LOCAL LT%,CW%,n%
  890 LT%=&400DB:CW%=&400C1:n%=Q%
  900 SYS"Wimp_OpenTemplate",,"<ARMcode$Dir>.Templates"
  910 SYS LT%,,b%,n%,Q%+800,-1,"Info" TO ,,n%
  920 SYS CW%,,b% TO Info%
  930 SYS LT%,,b%,n%,Q%+800,-1,"Edit"
  940 SYS CW%,,b% TO Edit%
  950 SYS"Wimp_CloseTemplate"
  960ENDPROC
  970
  980DEFPROCError
  990 SYS"Wimp_DragBox",,-1
 1000 !b%=ERR:$(b%+4)=REPORT$
 1010 SYS"Wimp_ReportError",b%,1,"ARMcode"
 1020ENDPROC
 1030
 1040DEFPROCButtons(b%)
 1050 LOCAL select%,menu%,w%,i%,eor%,bit%,xi%,mx%
 1060 select%=(b%!8 AND4)<>0:menu%=(b%!8 AND2)<>0
 1070 w%=b%!12:i%=b%!16
 1080 CASE w% OF
 1090  WHEN -2:IF menu% THEN
 1100    PROCCreateMenu(2,0,"ARMcode","Info|[Info%],Quit|")
 1110    MouseX%=b%!0-80:MouseY%=184
 1120    SYS"Wimp_CreateMenu",,Menu%,MouseX%,MouseY%
 1130    ENDPROC
 1140   ENDIF
 1150   IF select% THEN
 1160    b%!0=Edit%:SYS"Wimp_GetWindowState",,b%
 1170    SYS"Wimp_OpenWindow",,b%
 1180    PROCSetData
 1190   ENDIF
 1200  WHEN Edit%:IF menu% THEN ENDPROC
 1210   CASE i% OF
 1220    WHEN 0:CASE b%!8 OF
 1230      WHEN 64:PROCInitDrag(w%,i%)
 1240      WHEN 1:PROCToDisAssem(EVAL("&"+FNGetString(DisWord%)),0)
 1250     ENDCASE
 1260    WHEN 1,2,3,4,5,6,7,8:mx%=b%!0
 1270     b%!0=w%:SYS"Wimp_GetWindowState",,b%
 1280     xi%=mx%-b%!4-i%*64:bit%=(3-xi% DIV16):eor%=(1<<bit%)
 1290     IF bit%<0 OR bit%>3 THEN ENDPROC
 1300     CASE i% OF
 1310      WHEN 1:SByte1%=SByte1% EOR eor%
 1320      WHEN 2:SByte2%=SByte2% EOR eor%
 1330      WHEN 3:SByte3%=SByte3% EOR eor%
 1340      WHEN 4:SByte4%=SByte4% EOR eor%
 1350      WHEN 5:SByte5%=SByte5% EOR eor%
 1360      WHEN 6:SByte6%=SByte6% EOR eor%
 1370      WHEN 7:SByte7%=SByte7% EOR eor%
 1380      WHEN 8:SByte8%=SByte8% EOR eor%
 1390     ENDCASE
 1400     PROCSetData:PROCRedrawEdit(i%)
 1410    WHEN 9:SByte1%+=1:IF SByte1%>15 THEN SByte1%=0
 1420     PROCSetData:PROCRedrawEdit(1)
 1430    WHEN 10:SByte2%+=1:IF SByte2%>15 THEN SByte2%=0
 1440     PROCSetData:PROCRedrawEdit(2)
 1450    WHEN 11:SByte3%+=1:IF SByte3%>15 THEN SByte3%=0
 1460     PROCSetData:PROCRedrawEdit(3)
 1470    WHEN 12:SByte4%+=1:IF SByte4%>15 THEN SByte4%=0
 1480     PROCSetData:PROCRedrawEdit(4)
 1490    WHEN 13:SByte5%+=1:IF SByte5%>15 THEN SByte5%=0
 1500     PROCSetData:PROCRedrawEdit(5)
 1510    WHEN 14:SByte6%+=1:IF SByte6%>15 THEN SByte6%=0
 1520     PROCSetData:PROCRedrawEdit(6)
 1530    WHEN 15:SByte7%+=1:IF SByte7%>15 THEN SByte7%=0
 1540     PROCSetData:PROCRedrawEdit(7)
 1550    WHEN 16:SByte8%+=1:IF SByte8%>15 THEN SByte8%=0
 1560     PROCSetData:PROCRedrawEdit(8)
 1570    WHEN 17:SByte1%-=1:IF SByte1%<0 THEN SByte1%=15
 1580     PROCSetData:PROCRedrawEdit(1)
 1590    WHEN 18:SByte2%-=1:IF SByte2%<0 THEN SByte2%=15
 1600     PROCSetData:PROCRedrawEdit(2)
 1610    WHEN 19:SByte3%-=1:IF SByte3%<0 THEN SByte3%=15
 1620     PROCSetData:PROCRedrawEdit(3)
 1630    WHEN 20:SByte4%-=1:IF SByte4%<0 THEN SByte4%=15
 1640     PROCSetData:PROCRedrawEdit(4)
 1650    WHEN 21:SByte5%-=1:IF SByte5%<0 THEN SByte5%=15
 1660     PROCSetData:PROCRedrawEdit(5)
 1670    WHEN 22:SByte6%-=1:IF SByte6%<0 THEN SByte6%=15
 1680     PROCSetData:PROCRedrawEdit(6)
 1690    WHEN 23:SByte7%-=1:IF SByte7%<0 THEN SByte7%=15
 1700     PROCSetData:PROCRedrawEdit(7)
 1710    WHEN 24:SByte8%-=1:IF SByte8%<0 THEN SByte8%=15
 1720     PROCSetData:PROCRedrawEdit(8)
 1730    WHEN 27:PROCDoWord
 1740    WHEN 28:$DisWord%="00000000":PROCDoWord
 1750   ENDCASE
 1760 ENDCASE
 1770ENDPROC
 1780
 1790DEFPROCDoWord
 1800 LOCAL w$
 1810 w$=RIGHT$("00000000"+FNGetString(DisWord%),8)
 1820 SByte1%=EVAL("&"+MID$(w$,1,1)):SByte2%=EVAL("&"+MID$(w$,2,1))
 1830 SByte3%=EVAL("&"+MID$(w$,3,1)):SByte4%=EVAL("&"+MID$(w$,4,1))
 1840 SByte5%=EVAL("&"+MID$(w$,5,1)):SByte6%=EVAL("&"+MID$(w$,6,1))
 1850 SByte7%=EVAL("&"+MID$(w$,7,1)):SByte8%=EVAL("&"+MID$(w$,8,1))
 1860 PROCSetData
 1870 PROCRedrawIcon(Edit%,1):PROCRedrawIcon(Edit%,2)
 1880 PROCRedrawIcon(Edit%,3):PROCRedrawIcon(Edit%,4)
 1890 PROCRedrawIcon(Edit%,5):PROCRedrawIcon(Edit%,6)
 1900 PROCRedrawIcon(Edit%,7):PROCRedrawIcon(Edit%,8)
 1910 PROCRedrawIcon(Edit%,26):PROCRedrawIcon(Edit%,0)
 1920ENDPROC
 1930
 1940DEFPROCRedrawEdit(i%)
 1950 PROCRedrawIcon(Edit%,i%):PROCRedrawIcon(Edit%,0):PROCRedrawIcon(Edit%,26)
 1960ENDPROC
 1970
 1980DEFPROCSetData
 1990 Byte1%=SByte1%*16+SByte2%:Byte2%=SByte3%*16+SByte4%
 2000 Byte3%=SByte5%*16+SByte6%:Byte4%=SByte7%*16+SByte8%
 2010 Word%?3=Byte1%:Word%?2=Byte2%:Word%?1=Byte3%:Word%?0=Byte4%
 2020 $DisByte1%=FNBin(SByte1%):$DisByte2%=FNBin(SByte2%)
 2030 $DisByte3%=FNBin(SByte3%):$DisByte4%=FNBin(SByte4%)
 2040 $DisByte5%=FNBin(SByte5%):$DisByte6%=FNBin(SByte6%)
 2050 $DisByte7%=FNBin(SByte7%):$DisByte8%=FNBin(SByte8%)
 2060 IF Byte1%=255 AND Byte2%=255 AND Byte3%=255 AND Byte4%=255 THEN
 2070  $DisWord%="FFFFFFFF"
 2080 ELSE
 2090  $DisWord%=FNHex(!Word%)
 2100 ENDIF
 2110 $DisText%=LEFT$(FNDisAssem,36)
 2120ENDPROC
 2130
 2140DEFFNBin(v%)
 2150 LOCAL b$
 2160 b$=""
 2170 IF v% AND 8 THEN b$+="1" ELSE b$+="0"
 2180 IF v% AND 4 THEN b$+="1" ELSE b$+="0"
 2190 IF v% AND 2 THEN b$+="1" ELSE b$+="0"
 2200 IF v% AND 1 THEN b$+="1" ELSE b$+="0"
 2210=b$
 2220
 2230DEFFNHex(v%):=RIGHT$("00000000"+STR$~(v%),8)
 2240
 2250DEFFNDisAssem
 2260 LOCAL len%
 2270 SYS"Debugger_Disassemble",Word%!0 TO ,DisAssem%,len%
 2280 IF len%>39 THEN len%=39
 2290 DisAssem%?len%=13
 2300=$DisAssem%
 2310
 2320DEFPROCCreateMenu(items%,start%,mt$,t$)
 2330 LOCAL t1$,title$,c2$,c$,subptr%
 2340 LOCAL tick%,I%,width%,lt%
 2350 start%+=Menu%:mb%=start%
 2360 IF LEN mt$>11 THEN mt$=LEFT$(mt$,11)
 2370 $mb%=mt$
 2380 width%=16*LEN mt$
 2390 mb%?12=7:mb%?13=2:mb%?14=7:mb%?15=0
 2400 mb%!20=44:mb%!24=0:mb%+=28
 2410 FOR I%=1 TO items%
 2420  subptr%=-1:tick%=0
 2430  t1$=LEFT$(t$,INSTR(t$,",")-1)
 2440  title$=LEFT$(t1$,INSTR(t1$,"|")-1)
 2450  c$=MID$(t1$,INSTR(t1$,"|")+1)
 2460  IF INSTR(c$,">") THEN
 2470   c2$=MID$(c$,INSTR(c$,">")+1)
 2480   subptr%=start%+EVAL LEFT$(c2$,INSTR(c2$,"<")-1)
 2490  ENDIF
 2500  IF INSTR(c$,"[") THEN
 2510   c2$=MID$(c$,INSTR(c$,"[")+1)
 2520   subptr%=EVAL LEFT$(c2$,INSTR(c2$,"]")-1)
 2530  ENDIF
 2540  IF INSTR(c$,"(") THEN
 2550   c2$=MID$(c$,INSTR(c$,"(")+1)
 2560   c2$=LEFT$(c2$,INSTR(c2$,")")-1)
 2570   mb%!12=EVAL MID$(c2$,3)
 2580   mb%!16=-1:mb%!20=EVAL LEFT$(c2$,2):write%=4:indi%=1
 2590   width%=16*EVAL LEFT$(c2$,2)
 2600  ELSE
 2610   lt%=LEN title$
 2620   $(mb%+12)=title$
 2630   IF 16+16*lt%>width% THEN width%=16+16*lt%
 2640  ENDIF
 2650  t$=MID$(t$,INSTR(t$,",")+1)
 2660  IF INSTR(c$,"!")>0 THEN tick%=1
 2670  mb%!0=tick%:mb%!4=subptr%:mb%!8=&7000021
 2680  mb%+=24
 2690 NEXT
 2700 mb%!-24=(mb%!-24 OR &80)
 2710 start%!16=width%
 2720ENDPROC
 2730
 2740DEFFNGetString(a%):a$="":WHILE ?a%>=32:a$+=CHR$(?a%):a%+=1:ENDWHILE:=a$
 2750
 2760DEFPROCRedrawIcon(w%,i%)
 2770 b%!0=w%:b%!4=i%
 2780 SYS"Wimp_GetIconState",,b%
 2790 SYS"Wimp_ForceRedraw",w%,b%!8,b%!12,b%!16,b%!20
 2800ENDPROC


� > <ARMcode$Dir>.!RunImage
�
&�  (c) Henrik Bjerregaard Pedersen
(�             10 July 1992
2!version$="1.10 (10-Jul-1992)"
<
F4� Menu% 200,b% 2000,DisAssem% 100,Q% 500,Word% 8
P
Z$b%="TASK"
d)ș"Wimp_Initialise",200,!b%,"ARMcode"
n
x	�Init
�� � �Error
��
�$ ș"Wimp_Poll",3121,b% � action%
� Ȏ action% �
�!  � 2:ș"Wimp_OpenWindow",,b%
�"  � 3:ș"Wimp_CloseWindow",,b%
�  � 6:�Buttons(b%)
�  � 7:�Drag(b%)
�:  � 8:� b%!24=13 � �DoWord � ș"Wimp_ProcessKey",b%!24
�  � 9:� b%!0=1 � Quit%=�
�  � 17,18:Ȏ b%!16 �
�    � 0:Quit%=�
�    � &D9980:�Receive(b%)
   �
 �
� Quit%
"ș"Wimp_CloseDown"
,�
6
@��Receive(b%)
J( � (b%!24=-1 � b%!28=0) � b%!24=-2 �
T#  $DisWord%=�Hex(b%!20):�DoWord
^D  b%!0=Edit%:ș"Wimp_GetWindowState",,b%:ș"Wimp_OpenWindow",,b%
h �
r�
|
�
��Init
� � I%,m%
� �Templates
� Quit%=�
�
� $�i(Info%,3)=version$
�
�0 DisByte1%=�i(Edit%,1):DisByte2%=�i(Edit%,2)
�0 DisByte3%=�i(Edit%,3):DisByte4%=�i(Edit%,4)
�0 DisByte5%=�i(Edit%,5):DisByte6%=�i(Edit%,6)
�0 DisByte7%=�i(Edit%,7):DisByte8%=�i(Edit%,8)
� DisWord%=�i(Edit%,26)
� DisText%=�i(Edit%,0)

 !b%=-1:b%!20=&3102
$ b%!4=0:b%!12=68:b%!8=0:b%!16=68
& � isp 10:$isp="!ARMcode"
0$ b%!24=isp:b%!28=1:b%!32=�$isp+1
:! ș"Wimp_CreateIcon",,b% � ib
D
N, SByte1%=0:SByte2%=0:SByte3%=0:SByte4%=0
X, SByte5%=0:SByte6%=0:SByte7%=0:SByte8%=0
b�
l
v��Drag(b%)
�  ș"Wimp_GetPointerInfo",,b%
�3 �ToDisAssem(�("&"+�GetString(DisWord%)),b%!12)
��
�
���ToDisAssem(word%,task%)
�9 � task%=0 � ș"Wimp_GetCaretPosition",,b%:task%=b%!0
�/ b%!0=32:b%!4=0:b%!8=0:b%!12=0:b%!16=&D9981
�% b%!20=word%:b%!24=-1:b%!28=task%
�% ș"Wimp_SendMessage",17,b%,task%
��
�
���InitDrag(w%,i%)
� � xsize%,ysize%
( b%!0=w%:ș"Wimp_GetWindowState",,b%
) xsize%=b%!4-b%!20:ysize%=b%!16-b%!24
& b%!4=i%:ș"Wimp_GetIconState",,b%
 ; b%!8+=xsize%:b%!12+=ysize%:b%!16+=xsize%:b%!20+=ysize%
*( b%!24=0:b%!28=0:b%!32=3E4:b%!36=3E4
4  b%!4=5:ș"Wimp_DragBox",,b%
>�
H
R?ݤi(w%,i%):b%!0=w%:b%!4=i%:ș"Wimp_GetIconState",,b%:=b%!28
\
f��Templates
p � LT%,CW%,n%
z  LT%=&400DB:CW%=&400C1:n%=Q%
�5 ș"Wimp_OpenTemplate",,"<ARMcode$Dir>.Templates"
�* ș LT%,,b%,n%,Q%+800,-1,"Info" � ,,n%
� ș CW%,,b% � Info%
�# ș LT%,,b%,n%,Q%+800,-1,"Edit"
� ș CW%,,b% � Edit%
� ș"Wimp_CloseTemplate"
��
�
���Error
� ș"Wimp_DragBox",,-1
� !b%=�:$(b%+4)=�$
�( ș"Wimp_ReportError",b%,1,"ARMcode"
��

��Buttons(b%)
, � select%,menu%,w%,i%,eor%,bit%,xi%,mx%
$, select%=(b%!8 �4)<>0:menu%=(b%!8 �2)<>0
. w%=b%!12:i%=b%!16
8 Ȏ w% �
B  � -2:� menu% �
L7    �CreateMenu(2,0,"ARMcode","Info|[Info%],Quit|")
V#    MouseX%=b%!0-80:MouseY%=184
`2    ș"Wimp_CreateMenu",,Menu%,MouseX%,MouseY%
j	    �
t   �
~   � select% �
�.    b%!0=Edit%:ș"Wimp_GetWindowState",,b%
�    ș"Wimp_OpenWindow",,b%
�    �SetData
�   �
�  � Edit%:� menu% � �
�   Ȏ i% �
�    � 0:Ȏ b%!8 �
�      � 64:�InitDrag(w%,i%)
�8      � 1:�ToDisAssem(�("&"+�GetString(DisWord%)),0)
�
     �
�"    � 1,2,3,4,5,6,7,8:mx%=b%!0
�,     b%!0=w%:ș"Wimp_GetWindowState",,b%
;     xi%=mx%-b%!4-i%*64:bit%=(3-xi% �16):eor%=(1<<bit%)

     � bit%<0 � bit%>3 � �
     Ȏ i% �
$      � 1:SByte1%=SByte1% � eor%
($      � 2:SByte2%=SByte2% � eor%
2$      � 3:SByte3%=SByte3% � eor%
<$      � 4:SByte4%=SByte4% � eor%
F$      � 5:SByte5%=SByte5% � eor%
P$      � 6:SByte6%=SByte6% � eor%
Z$      � 7:SByte7%=SByte7% � eor%
d$      � 8:SByte8%=SByte8% � eor%
n
     �
x!     �SetData:�RedrawEdit(i%)
�/    � 9:SByte1%+=1:� SByte1%>15 � SByte1%=0
�      �SetData:�RedrawEdit(1)
�0    � 10:SByte2%+=1:� SByte2%>15 � SByte2%=0
�      �SetData:�RedrawEdit(2)
�0    � 11:SByte3%+=1:� SByte3%>15 � SByte3%=0
�      �SetData:�RedrawEdit(3)
�0    � 12:SByte4%+=1:� SByte4%>15 � SByte4%=0
�      �SetData:�RedrawEdit(4)
�0    � 13:SByte5%+=1:� SByte5%>15 � SByte5%=0
�      �SetData:�RedrawEdit(5)
�0    � 14:SByte6%+=1:� SByte6%>15 � SByte6%=0
�      �SetData:�RedrawEdit(6)
�0    � 15:SByte7%+=1:� SByte7%>15 � SByte7%=0
      �SetData:�RedrawEdit(7)
0    � 16:SByte8%+=1:� SByte8%>15 � SByte8%=0
      �SetData:�RedrawEdit(8)
"0    � 17:SByte1%-=1:� SByte1%<0 � SByte1%=15
,      �SetData:�RedrawEdit(1)
60    � 18:SByte2%-=1:� SByte2%<0 � SByte2%=15
@      �SetData:�RedrawEdit(2)
J0    � 19:SByte3%-=1:� SByte3%<0 � SByte3%=15
T      �SetData:�RedrawEdit(3)
^0    � 20:SByte4%-=1:� SByte4%<0 � SByte4%=15
h      �SetData:�RedrawEdit(4)
r0    � 21:SByte5%-=1:� SByte5%<0 � SByte5%=15
|      �SetData:�RedrawEdit(5)
�0    � 22:SByte6%-=1:� SByte6%<0 � SByte6%=15
�      �SetData:�RedrawEdit(6)
�0    � 23:SByte7%-=1:� SByte7%<0 � SByte7%=15
�      �SetData:�RedrawEdit(7)
�0    � 24:SByte8%-=1:� SByte8%<0 � SByte8%=15
�      �SetData:�RedrawEdit(8)
�    � 27:�DoWord
�)    � 28:$DisWord%="00000000":�DoWord
�   �
� �
��
�
���DoWord
	 � w$
+ w$=�"00000000"+�GetString(DisWord%),8)
4 SByte1%=�("&"+�w$,1,1)):SByte2%=�("&"+�w$,2,1))
&4 SByte3%=�("&"+�w$,3,1)):SByte4%=�("&"+�w$,4,1))
04 SByte5%=�("&"+�w$,5,1)):SByte6%=�("&"+�w$,6,1))
:4 SByte7%=�("&"+�w$,7,1)):SByte8%=�("&"+�w$,8,1))
D
 �SetData
N. �RedrawIcon(Edit%,1):�RedrawIcon(Edit%,2)
X. �RedrawIcon(Edit%,3):�RedrawIcon(Edit%,4)
b. �RedrawIcon(Edit%,5):�RedrawIcon(Edit%,6)
l. �RedrawIcon(Edit%,7):�RedrawIcon(Edit%,8)
v/ �RedrawIcon(Edit%,26):�RedrawIcon(Edit%,0)
��
�
���RedrawEdit(i%)
�E �RedrawIcon(Edit%,i%):�RedrawIcon(Edit%,0):�RedrawIcon(Edit%,26)
��
�
�
��SetData
�8 Byte1%=SByte1%*16+SByte2%:Byte2%=SByte3%*16+SByte4%
�8 Byte3%=SByte5%*16+SByte6%:Byte4%=SByte7%*16+SByte8%
�@ Word%?3=Byte1%:Word%?2=Byte2%:Word%?1=Byte3%:Word%?0=Byte4%
�6 $DisByte1%=�Bin(SByte1%):$DisByte2%=�Bin(SByte2%)
�6 $DisByte3%=�Bin(SByte3%):$DisByte4%=�Bin(SByte4%)
�6 $DisByte5%=�Bin(SByte5%):$DisByte6%=�Bin(SByte6%)
6 $DisByte7%=�Bin(SByte7%):$DisByte8%=�Bin(SByte8%)
: � Byte1%=255 � Byte2%=255 � Byte3%=255 � Byte4%=255 �
  $DisWord%="FFFFFFFF"
  �
*  $DisWord%=�Hex(!Word%)
4 �
> $DisText%=��DisAssem,36)
H�
R
\
ݤBin(v%)
f	 � b$
p
 b$=""
z! � v% � 8 � b$+="1" � b$+="0"
�! � v% � 4 � b$+="1" � b$+="0"
�! � v% � 2 � b$+="1" � b$+="0"
�! � v% � 1 � b$+="1" � b$+="0"
�=b$
�
�$ݤHex(v%):=�"00000000"+�~(v%),8)
�
�ݤDisAssem
� � len%
�7 ș"Debugger_Disassemble",Word%!0 � ,DisAssem%,len%
� � len%>39 � len%=39
� DisAssem%?len%=13
�=$DisAssem%
	
	&��CreateMenu(items%,start%,mt$,t$)
	  � t1$,title$,c2$,c$,subptr%
	$ � tick%,I%,width%,lt%
	. start%+=Menu%:mb%=start%
	8 � � mt$>11 � mt$=�mt$,11)
	B
 $mb%=mt$
	L width%=16*� mt$
	V( mb%?12=7:mb%?13=2:mb%?14=7:mb%?15=0
	` mb%!20=44:mb%!24=0:mb%+=28
	j � I%=1 � items%
	t  subptr%=-1:tick%=0
	~  t1$=�t$,�t$,",")-1)
	�  title$=�t1$,�t1$,"|")-1)
	�  c$=�t1$,�t1$,"|")+1)
	�  � �c$,">") �
	�   c2$=�c$,�c$,">")+1)
	�)   subptr%=start%+� �c2$,�c2$,"<")-1)
	�  �
	�  � �c$,"[") �
	�   c2$=�c$,�c$,"[")+1)
	�"   subptr%=� �c2$,�c2$,"]")-1)
	�  �
	�  � �c$,"(") �
	�   c2$=�c$,�c$,"(")+1)
   c2$=�c2$,�c2$,")")-1)

   mb%!12=� �c2$,3)
2   mb%!16=-1:mb%!20=� �c2$,2):write%=4:indi%=1
   width%=16*� �c2$,2)
(  �
2   lt%=� title$
<   $(mb%+12)=title$
F,   � 16+16*lt%>width% � width%=16+16*lt%
P  �
Z  t$=�t$,�t$,",")+1)
d  � �c$,"!")>0 � tick%=1
n.  mb%!0=tick%:mb%!4=subptr%:mb%!8=&7000021
x
  mb%+=24
� �
� mb%!-24=(mb%!-24 � &80)
� start%!16=width%
��
�
�;ݤGetString(a%):a$="":ȕ ?a%>=32:a$+=�(?a%):a%+=1:�:=a$
�
���RedrawIcon(w%,i%)
� b%!0=w%:b%!4=i%
� ș"Wimp_GetIconState",,b%
�3 ș"Wimp_ForceRedraw",w%,b%!8,b%!12,b%!16,b%!20
��
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 41 52 4d 63 6f 64 65  |..... > <ARMcode|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 05 f4 0d 00 1e 26  f4 20 20 28 63 29 20 48  |.......&.  (c) H|
00000030  65 6e 72 69 6b 20 42 6a  65 72 72 65 67 61 61 72  |enrik Bjerregaar|
00000040  64 20 50 65 64 65 72 73  65 6e 0d 00 28 1e f4 20  |d Pedersen..(.. |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 31 30 20 4a  |            10 J|
00000060  75 6c 79 20 31 39 39 32  0d 00 32 21 76 65 72 73  |uly 1992..2!vers|
00000070  69 6f 6e 24 3d 22 31 2e  31 30 20 28 31 30 2d 4a  |ion$="1.10 (10-J|
00000080  75 6c 2d 31 39 39 32 29  22 0d 00 3c 04 0d 00 46  |ul-1992)"..<...F|
00000090  34 de 20 4d 65 6e 75 25  20 32 30 30 2c 62 25 20  |4. Menu% 200,b% |
000000a0  32 30 30 30 2c 44 69 73  41 73 73 65 6d 25 20 31  |2000,DisAssem% 1|
000000b0  30 30 2c 51 25 20 35 30  30 2c 57 6f 72 64 25 20  |00,Q% 500,Word% |
000000c0  38 0d 00 50 04 0d 00 5a  0e 24 62 25 3d 22 54 41  |8..P...Z.$b%="TA|
000000d0  53 4b 22 0d 00 64 29 c8  99 22 57 69 6d 70 5f 49  |SK"..d).."Wimp_I|
000000e0  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 21  |nitialise",200,!|
000000f0  62 25 2c 22 41 52 4d 63  6f 64 65 22 0d 00 6e 04  |b%,"ARMcode"..n.|
00000100  0d 00 78 09 f2 49 6e 69  74 0d 00 82 0e ee 20 85  |..x..Init..... .|
00000110  20 f2 45 72 72 6f 72 0d  00 8c 05 f5 0d 00 96 24  | .Error........$|
00000120  20 c8 99 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 33  | .."Wimp_Poll",3|
00000130  31 32 31 2c 62 25 20 b8  20 61 63 74 69 6f 6e 25  |121,b% . action%|
00000140  0d 00 a0 11 20 c8 8e 20  61 63 74 69 6f 6e 25 20  |.... .. action% |
00000150  ca 0d 00 aa 21 20 20 c9  20 32 3a c8 99 22 57 69  |....!  . 2:.."Wi|
00000160  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000170  62 25 0d 00 b4 22 20 20  c9 20 33 3a c8 99 22 57  |b%..."  . 3:.."W|
00000180  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00000190  2c 2c 62 25 0d 00 be 16  20 20 c9 20 36 3a f2 42  |,,b%....  . 6:.B|
000001a0  75 74 74 6f 6e 73 28 62  25 29 0d 00 c8 13 20 20  |uttons(b%)....  |
000001b0  c9 20 37 3a f2 44 72 61  67 28 62 25 29 0d 00 d2  |. 7:.Drag(b%)...|
000001c0  3a 20 20 c9 20 38 3a e7  20 62 25 21 32 34 3d 31  |:  . 8:. b%!24=1|
000001d0  33 20 8c 20 f2 44 6f 57  6f 72 64 20 8b 20 c8 99  |3 . .DoWord . ..|
000001e0  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
000001f0  22 2c 62 25 21 32 34 0d  00 dc 1c 20 20 c9 20 39  |",b%!24....  . 9|
00000200  3a e7 20 62 25 21 30 3d  31 20 8c 20 51 75 69 74  |:. b%!0=1 . Quit|
00000210  25 3d b9 0d 00 e6 18 20  20 c9 20 31 37 2c 31 38  |%=.....  . 17,18|
00000220  3a c8 8e 20 62 25 21 31  36 20 ca 0d 00 f0 13 20  |:.. b%!16 ..... |
00000230  20 20 20 c9 20 30 3a 51  75 69 74 25 3d b9 0d 00  |   . 0:Quit%=...|
00000240  fa 1d 20 20 20 20 c9 20  26 44 39 39 38 30 3a f2  |..    . &D9980:.|
00000250  52 65 63 65 69 76 65 28  62 25 29 0d 01 04 08 20  |Receive(b%).... |
00000260  20 20 cb 0d 01 0e 06 20  cb 0d 01 18 0b fd 20 51  |  ..... ...... Q|
00000270  75 69 74 25 0d 01 22 16  c8 99 22 57 69 6d 70 5f  |uit%.."..."Wimp_|
00000280  43 6c 6f 73 65 44 6f 77  6e 22 0d 01 2c 05 e0 0d  |CloseDown"..,...|
00000290  01 36 04 0d 01 40 11 dd  f2 52 65 63 65 69 76 65  |.6...@...Receive|
000002a0  28 62 25 29 0d 01 4a 28  20 e7 20 28 62 25 21 32  |(b%)..J( . (b%!2|
000002b0  34 3d 2d 31 20 80 20 62  25 21 32 38 3d 30 29 20  |4=-1 . b%!28=0) |
000002c0  84 20 62 25 21 32 34 3d  2d 32 20 8c 0d 01 54 23  |. b%!24=-2 ...T#|
000002d0  20 20 24 44 69 73 57 6f  72 64 25 3d a4 48 65 78  |  $DisWord%=.Hex|
000002e0  28 62 25 21 32 30 29 3a  f2 44 6f 57 6f 72 64 0d  |(b%!20):.DoWord.|
000002f0  01 5e 44 20 20 62 25 21  30 3d 45 64 69 74 25 3a  |.^D  b%!0=Edit%:|
00000300  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00000310  77 53 74 61 74 65 22 2c  2c 62 25 3a c8 99 22 57  |wState",,b%:.."W|
00000320  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000330  2c 62 25 0d 01 68 06 20  cd 0d 01 72 05 e1 0d 01  |,b%..h. ...r....|
00000340  7c 04 0d 01 86 0a dd f2  49 6e 69 74 0d 01 90 0c  ||.......Init....|
00000350  20 ea 20 49 25 2c 6d 25  0d 01 9a 0f 20 f2 54 65  | . I%,m%.... .Te|
00000360  6d 70 6c 61 74 65 73 0d  01 a4 0c 20 51 75 69 74  |mplates.... Quit|
00000370  25 3d a3 0d 01 ae 04 0d  01 b8 1a 20 24 a4 69 28  |%=......... $.i(|
00000380  49 6e 66 6f 25 2c 33 29  3d 76 65 72 73 69 6f 6e  |Info%,3)=version|
00000390  24 0d 01 c2 04 0d 01 cc  30 20 44 69 73 42 79 74  |$.......0 DisByt|
000003a0  65 31 25 3d a4 69 28 45  64 69 74 25 2c 31 29 3a  |e1%=.i(Edit%,1):|
000003b0  44 69 73 42 79 74 65 32  25 3d a4 69 28 45 64 69  |DisByte2%=.i(Edi|
000003c0  74 25 2c 32 29 0d 01 d6  30 20 44 69 73 42 79 74  |t%,2)...0 DisByt|
000003d0  65 33 25 3d a4 69 28 45  64 69 74 25 2c 33 29 3a  |e3%=.i(Edit%,3):|
000003e0  44 69 73 42 79 74 65 34  25 3d a4 69 28 45 64 69  |DisByte4%=.i(Edi|
000003f0  74 25 2c 34 29 0d 01 e0  30 20 44 69 73 42 79 74  |t%,4)...0 DisByt|
00000400  65 35 25 3d a4 69 28 45  64 69 74 25 2c 35 29 3a  |e5%=.i(Edit%,5):|
00000410  44 69 73 42 79 74 65 36  25 3d a4 69 28 45 64 69  |DisByte6%=.i(Edi|
00000420  74 25 2c 36 29 0d 01 ea  30 20 44 69 73 42 79 74  |t%,6)...0 DisByt|
00000430  65 37 25 3d a4 69 28 45  64 69 74 25 2c 37 29 3a  |e7%=.i(Edit%,7):|
00000440  44 69 73 42 79 74 65 38  25 3d a4 69 28 45 64 69  |DisByte8%=.i(Edi|
00000450  74 25 2c 38 29 0d 01 f4  1a 20 44 69 73 57 6f 72  |t%,8).... DisWor|
00000460  64 25 3d a4 69 28 45 64  69 74 25 2c 32 36 29 0d  |d%=.i(Edit%,26).|
00000470  01 fe 19 20 44 69 73 54  65 78 74 25 3d a4 69 28  |... DisText%=.i(|
00000480  45 64 69 74 25 2c 30 29  0d 02 08 04 0d 02 12 17  |Edit%,0)........|
00000490  20 21 62 25 3d 2d 31 3a  62 25 21 32 30 3d 26 33  | !b%=-1:b%!20=&3|
000004a0  31 30 32 0d 02 1c 24 20  62 25 21 34 3d 30 3a 62  |102...$ b%!4=0:b|
000004b0  25 21 31 32 3d 36 38 3a  62 25 21 38 3d 30 3a 62  |%!12=68:b%!8=0:b|
000004c0  25 21 31 36 3d 36 38 0d  02 26 1d 20 de 20 69 73  |%!16=68..&. . is|
000004d0  70 20 31 30 3a 24 69 73  70 3d 22 21 41 52 4d 63  |p 10:$isp="!ARMc|
000004e0  6f 64 65 22 0d 02 30 24  20 62 25 21 32 34 3d 69  |ode"..0$ b%!24=i|
000004f0  73 70 3a 62 25 21 32 38  3d 31 3a 62 25 21 33 32  |sp:b%!28=1:b%!32|
00000500  3d a9 24 69 73 70 2b 31  0d 02 3a 21 20 c8 99 22  |=.$isp+1..:! .."|
00000510  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00000520  2c 2c 62 25 20 b8 20 69  62 0d 02 44 04 0d 02 4e  |,,b% . ib..D...N|
00000530  2c 20 53 42 79 74 65 31  25 3d 30 3a 53 42 79 74  |, SByte1%=0:SByt|
00000540  65 32 25 3d 30 3a 53 42  79 74 65 33 25 3d 30 3a  |e2%=0:SByte3%=0:|
00000550  53 42 79 74 65 34 25 3d  30 0d 02 58 2c 20 53 42  |SByte4%=0..X, SB|
00000560  79 74 65 35 25 3d 30 3a  53 42 79 74 65 36 25 3d  |yte5%=0:SByte6%=|
00000570  30 3a 53 42 79 74 65 37  25 3d 30 3a 53 42 79 74  |0:SByte7%=0:SByt|
00000580  65 38 25 3d 30 0d 02 62  05 e1 0d 02 6c 04 0d 02  |e8%=0..b....l...|
00000590  76 0e dd f2 44 72 61 67  28 62 25 29 0d 02 80 20  |v...Drag(b%)... |
000005a0  20 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  | .."Wimp_GetPoin|
000005b0  74 65 72 49 6e 66 6f 22  2c 2c 62 25 0d 02 8a 33  |terInfo",,b%...3|
000005c0  20 f2 54 6f 44 69 73 41  73 73 65 6d 28 a0 28 22  | .ToDisAssem(.("|
000005d0  26 22 2b a4 47 65 74 53  74 72 69 6e 67 28 44 69  |&"+.GetString(Di|
000005e0  73 57 6f 72 64 25 29 29  2c 62 25 21 31 32 29 0d  |sWord%)),b%!12).|
000005f0  02 94 05 e1 0d 02 9e 04  0d 02 a8 1d dd f2 54 6f  |..............To|
00000600  44 69 73 41 73 73 65 6d  28 77 6f 72 64 25 2c 74  |DisAssem(word%,t|
00000610  61 73 6b 25 29 0d 02 b2  39 20 e7 20 74 61 73 6b  |ask%)...9 . task|
00000620  25 3d 30 20 8c 20 c8 99  22 57 69 6d 70 5f 47 65  |%=0 . .."Wimp_Ge|
00000630  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00000640  2c 62 25 3a 74 61 73 6b  25 3d 62 25 21 30 0d 02  |,b%:task%=b%!0..|
00000650  bc 2f 20 62 25 21 30 3d  33 32 3a 62 25 21 34 3d  |./ b%!0=32:b%!4=|
00000660  30 3a 62 25 21 38 3d 30  3a 62 25 21 31 32 3d 30  |0:b%!8=0:b%!12=0|
00000670  3a 62 25 21 31 36 3d 26  44 39 39 38 31 0d 02 c6  |:b%!16=&D9981...|
00000680  25 20 62 25 21 32 30 3d  77 6f 72 64 25 3a 62 25  |% b%!20=word%:b%|
00000690  21 32 34 3d 2d 31 3a 62  25 21 32 38 3d 74 61 73  |!24=-1:b%!28=tas|
000006a0  6b 25 0d 02 d0 25 20 c8  99 22 57 69 6d 70 5f 53  |k%...% .."Wimp_S|
000006b0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
000006c0  25 2c 74 61 73 6b 25 0d  02 da 05 e1 0d 02 e4 04  |%,task%.........|
000006d0  0d 02 ee 15 dd f2 49 6e  69 74 44 72 61 67 28 77  |......InitDrag(w|
000006e0  25 2c 69 25 29 0d 02 f8  14 20 ea 20 78 73 69 7a  |%,i%).... . xsiz|
000006f0  65 25 2c 79 73 69 7a 65  25 0d 03 02 28 20 62 25  |e%,ysize%...( b%|
00000700  21 30 3d 77 25 3a c8 99  22 57 69 6d 70 5f 47 65  |!0=w%:.."Wimp_Ge|
00000710  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000720  25 0d 03 0c 29 20 78 73  69 7a 65 25 3d 62 25 21  |%...) xsize%=b%!|
00000730  34 2d 62 25 21 32 30 3a  79 73 69 7a 65 25 3d 62  |4-b%!20:ysize%=b|
00000740  25 21 31 36 2d 62 25 21  32 34 0d 03 16 26 20 62  |%!16-b%!24...& b|
00000750  25 21 34 3d 69 25 3a c8  99 22 57 69 6d 70 5f 47  |%!4=i%:.."Wimp_G|
00000760  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 25  |etIconState",,b%|
00000770  0d 03 20 3b 20 62 25 21  38 2b 3d 78 73 69 7a 65  |.. ; b%!8+=xsize|
00000780  25 3a 62 25 21 31 32 2b  3d 79 73 69 7a 65 25 3a  |%:b%!12+=ysize%:|
00000790  62 25 21 31 36 2b 3d 78  73 69 7a 65 25 3a 62 25  |b%!16+=xsize%:b%|
000007a0  21 32 30 2b 3d 79 73 69  7a 65 25 0d 03 2a 28 20  |!20+=ysize%..*( |
000007b0  62 25 21 32 34 3d 30 3a  62 25 21 32 38 3d 30 3a  |b%!24=0:b%!28=0:|
000007c0  62 25 21 33 32 3d 33 45  34 3a 62 25 21 33 36 3d  |b%!32=3E4:b%!36=|
000007d0  33 45 34 0d 03 34 20 20  62 25 21 34 3d 35 3a c8  |3E4..4  b%!4=5:.|
000007e0  99 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  |."Wimp_DragBox",|
000007f0  2c 62 25 0d 03 3e 05 e1  0d 03 48 04 0d 03 52 3f  |,b%..>....H...R?|
00000800  dd a4 69 28 77 25 2c 69  25 29 3a 62 25 21 30 3d  |..i(w%,i%):b%!0=|
00000810  77 25 3a 62 25 21 34 3d  69 25 3a c8 99 22 57 69  |w%:b%!4=i%:.."Wi|
00000820  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000830  2c 2c 62 25 3a 3d 62 25  21 32 38 0d 03 5c 04 0d  |,,b%:=b%!28..\..|
00000840  03 66 0f dd f2 54 65 6d  70 6c 61 74 65 73 0d 03  |.f...Templates..|
00000850  70 11 20 ea 20 4c 54 25  2c 43 57 25 2c 6e 25 0d  |p. . LT%,CW%,n%.|
00000860  03 7a 20 20 4c 54 25 3d  26 34 30 30 44 42 3a 43  |.z  LT%=&400DB:C|
00000870  57 25 3d 26 34 30 30 43  31 3a 6e 25 3d 51 25 0d  |W%=&400C1:n%=Q%.|
00000880  03 84 35 20 c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |..5 .."Wimp_Open|
00000890  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 41 52 4d  |Template",,"<ARM|
000008a0  63 6f 64 65 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |code$Dir>.Templa|
000008b0  74 65 73 22 0d 03 8e 2a  20 c8 99 20 4c 54 25 2c  |tes"...* .. LT%,|
000008c0  2c 62 25 2c 6e 25 2c 51  25 2b 38 30 30 2c 2d 31  |,b%,n%,Q%+800,-1|
000008d0  2c 22 49 6e 66 6f 22 20  b8 20 2c 2c 6e 25 0d 03  |,"Info" . ,,n%..|
000008e0  98 17 20 c8 99 20 43 57  25 2c 2c 62 25 20 b8 20  |.. .. CW%,,b% . |
000008f0  49 6e 66 6f 25 0d 03 a2  23 20 c8 99 20 4c 54 25  |Info%...# .. LT%|
00000900  2c 2c 62 25 2c 6e 25 2c  51 25 2b 38 30 30 2c 2d  |,,b%,n%,Q%+800,-|
00000910  31 2c 22 45 64 69 74 22  0d 03 ac 17 20 c8 99 20  |1,"Edit".... .. |
00000920  43 57 25 2c 2c 62 25 20  b8 20 45 64 69 74 25 0d  |CW%,,b% . Edit%.|
00000930  03 b6 1b 20 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |... .."Wimp_Clos|
00000940  65 54 65 6d 70 6c 61 74  65 22 0d 03 c0 05 e1 0d  |eTemplate"......|
00000950  03 ca 04 0d 03 d4 0b dd  f2 45 72 72 6f 72 0d 03  |.........Error..|
00000960  de 19 20 c8 99 22 57 69  6d 70 5f 44 72 61 67 42  |.. .."Wimp_DragB|
00000970  6f 78 22 2c 2c 2d 31 0d  03 e8 15 20 21 62 25 3d  |ox",,-1.... !b%=|
00000980  9f 3a 24 28 62 25 2b 34  29 3d f6 24 0d 03 f2 28  |.:$(b%+4)=.$...(|
00000990  20 c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  | .."Wimp_ReportE|
000009a0  72 72 6f 72 22 2c 62 25  2c 31 2c 22 41 52 4d 63  |rror",b%,1,"ARMc|
000009b0  6f 64 65 22 0d 03 fc 05  e1 0d 04 06 04 0d 04 10  |ode"............|
000009c0  11 dd f2 42 75 74 74 6f  6e 73 28 62 25 29 0d 04  |...Buttons(b%)..|
000009d0  1a 2c 20 ea 20 73 65 6c  65 63 74 25 2c 6d 65 6e  |., . select%,men|
000009e0  75 25 2c 77 25 2c 69 25  2c 65 6f 72 25 2c 62 69  |u%,w%,i%,eor%,bi|
000009f0  74 25 2c 78 69 25 2c 6d  78 25 0d 04 24 2c 20 73  |t%,xi%,mx%..$, s|
00000a00  65 6c 65 63 74 25 3d 28  62 25 21 38 20 80 34 29  |elect%=(b%!8 .4)|
00000a10  3c 3e 30 3a 6d 65 6e 75  25 3d 28 62 25 21 38 20  |<>0:menu%=(b%!8 |
00000a20  80 32 29 3c 3e 30 0d 04  2e 16 20 77 25 3d 62 25  |.2)<>0.... w%=b%|
00000a30  21 31 32 3a 69 25 3d 62  25 21 31 36 0d 04 38 0c  |!12:i%=b%!16..8.|
00000a40  20 c8 8e 20 77 25 20 ca  0d 04 42 14 20 20 c9 20  | .. w% ...B.  . |
00000a50  2d 32 3a e7 20 6d 65 6e  75 25 20 8c 0d 04 4c 37  |-2:. menu% ...L7|
00000a60  20 20 20 20 f2 43 72 65  61 74 65 4d 65 6e 75 28  |    .CreateMenu(|
00000a70  32 2c 30 2c 22 41 52 4d  63 6f 64 65 22 2c 22 49  |2,0,"ARMcode","I|
00000a80  6e 66 6f 7c 5b 49 6e 66  6f 25 5d 2c 51 75 69 74  |nfo|[Info%],Quit|
00000a90  7c 22 29 0d 04 56 23 20  20 20 20 4d 6f 75 73 65  ||")..V#    Mouse|
00000aa0  58 25 3d 62 25 21 30 2d  38 30 3a 4d 6f 75 73 65  |X%=b%!0-80:Mouse|
00000ab0  59 25 3d 31 38 34 0d 04  60 32 20 20 20 20 c8 99  |Y%=184..`2    ..|
00000ac0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000ad0  22 2c 2c 4d 65 6e 75 25  2c 4d 6f 75 73 65 58 25  |",,Menu%,MouseX%|
00000ae0  2c 4d 6f 75 73 65 59 25  0d 04 6a 09 20 20 20 20  |,MouseY%..j.    |
00000af0  e1 0d 04 74 08 20 20 20  cd 0d 04 7e 12 20 20 20  |...t.   ...~.   |
00000b00  e7 20 73 65 6c 65 63 74  25 20 8c 0d 04 88 2e 20  |. select% ..... |
00000b10  20 20 20 62 25 21 30 3d  45 64 69 74 25 3a c8 99  |   b%!0=Edit%:..|
00000b20  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000b30  74 61 74 65 22 2c 2c 62  25 0d 04 92 1f 20 20 20  |tate",,b%....   |
00000b40  20 c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  | .."Wimp_OpenWin|
00000b50  64 6f 77 22 2c 2c 62 25  0d 04 9c 10 20 20 20 20  |dow",,b%....    |
00000b60  f2 53 65 74 44 61 74 61  0d 04 a6 08 20 20 20 cd  |.SetData....   .|
00000b70  0d 04 b0 19 20 20 c9 20  45 64 69 74 25 3a e7 20  |....  . Edit%:. |
00000b80  6d 65 6e 75 25 20 8c 20  e1 0d 04 ba 0e 20 20 20  |menu% . .....   |
00000b90  c8 8e 20 69 25 20 ca 0d  04 c4 15 20 20 20 20 c9  |.. i% .....    .|
00000ba0  20 30 3a c8 8e 20 62 25  21 38 20 ca 0d 04 ce 1f  | 0:.. b%!8 .....|
00000bb0  20 20 20 20 20 20 c9 20  36 34 3a f2 49 6e 69 74  |      . 64:.Init|
00000bc0  44 72 61 67 28 77 25 2c  69 25 29 0d 04 d8 38 20  |Drag(w%,i%)...8 |
00000bd0  20 20 20 20 20 c9 20 31  3a f2 54 6f 44 69 73 41  |     . 1:.ToDisA|
00000be0  73 73 65 6d 28 a0 28 22  26 22 2b a4 47 65 74 53  |ssem(.("&"+.GetS|
00000bf0  74 72 69 6e 67 28 44 69  73 57 6f 72 64 25 29 29  |tring(DisWord%))|
00000c00  2c 30 29 0d 04 e2 0a 20  20 20 20 20 cb 0d 04 ec  |,0)....     ....|
00000c10  22 20 20 20 20 c9 20 31  2c 32 2c 33 2c 34 2c 35  |"    . 1,2,3,4,5|
00000c20  2c 36 2c 37 2c 38 3a 6d  78 25 3d 62 25 21 30 0d  |,6,7,8:mx%=b%!0.|
00000c30  04 f6 2c 20 20 20 20 20  62 25 21 30 3d 77 25 3a  |..,     b%!0=w%:|
00000c40  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00000c50  77 53 74 61 74 65 22 2c  2c 62 25 0d 05 00 3b 20  |wState",,b%...; |
00000c60  20 20 20 20 78 69 25 3d  6d 78 25 2d 62 25 21 34  |    xi%=mx%-b%!4|
00000c70  2d 69 25 2a 36 34 3a 62  69 74 25 3d 28 33 2d 78  |-i%*64:bit%=(3-x|
00000c80  69 25 20 81 31 36 29 3a  65 6f 72 25 3d 28 31 3c  |i% .16):eor%=(1<|
00000c90  3c 62 69 74 25 29 0d 05  0a 1e 20 20 20 20 20 e7  |<bit%)....     .|
00000ca0  20 62 69 74 25 3c 30 20  84 20 62 69 74 25 3e 33  | bit%<0 . bit%>3|
00000cb0  20 8c 20 e1 0d 05 14 10  20 20 20 20 20 c8 8e 20  | . .....     .. |
00000cc0  69 25 20 ca 0d 05 1e 24  20 20 20 20 20 20 c9 20  |i% ....$      . |
00000cd0  31 3a 53 42 79 74 65 31  25 3d 53 42 79 74 65 31  |1:SByte1%=SByte1|
00000ce0  25 20 82 20 65 6f 72 25  0d 05 28 24 20 20 20 20  |% . eor%..($    |
00000cf0  20 20 c9 20 32 3a 53 42  79 74 65 32 25 3d 53 42  |  . 2:SByte2%=SB|
00000d00  79 74 65 32 25 20 82 20  65 6f 72 25 0d 05 32 24  |yte2% . eor%..2$|
00000d10  20 20 20 20 20 20 c9 20  33 3a 53 42 79 74 65 33  |      . 3:SByte3|
00000d20  25 3d 53 42 79 74 65 33  25 20 82 20 65 6f 72 25  |%=SByte3% . eor%|
00000d30  0d 05 3c 24 20 20 20 20  20 20 c9 20 34 3a 53 42  |..<$      . 4:SB|
00000d40  79 74 65 34 25 3d 53 42  79 74 65 34 25 20 82 20  |yte4%=SByte4% . |
00000d50  65 6f 72 25 0d 05 46 24  20 20 20 20 20 20 c9 20  |eor%..F$      . |
00000d60  35 3a 53 42 79 74 65 35  25 3d 53 42 79 74 65 35  |5:SByte5%=SByte5|
00000d70  25 20 82 20 65 6f 72 25  0d 05 50 24 20 20 20 20  |% . eor%..P$    |
00000d80  20 20 c9 20 36 3a 53 42  79 74 65 36 25 3d 53 42  |  . 6:SByte6%=SB|
00000d90  79 74 65 36 25 20 82 20  65 6f 72 25 0d 05 5a 24  |yte6% . eor%..Z$|
00000da0  20 20 20 20 20 20 c9 20  37 3a 53 42 79 74 65 37  |      . 7:SByte7|
00000db0  25 3d 53 42 79 74 65 37  25 20 82 20 65 6f 72 25  |%=SByte7% . eor%|
00000dc0  0d 05 64 24 20 20 20 20  20 20 c9 20 38 3a 53 42  |..d$      . 8:SB|
00000dd0  79 74 65 38 25 3d 53 42  79 74 65 38 25 20 82 20  |yte8%=SByte8% . |
00000de0  65 6f 72 25 0d 05 6e 0a  20 20 20 20 20 cb 0d 05  |eor%..n.     ...|
00000df0  78 21 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |x!     .SetData:|
00000e00  f2 52 65 64 72 61 77 45  64 69 74 28 69 25 29 0d  |.RedrawEdit(i%).|
00000e10  05 82 2f 20 20 20 20 c9  20 39 3a 53 42 79 74 65  |../    . 9:SByte|
00000e20  31 25 2b 3d 31 3a e7 20  53 42 79 74 65 31 25 3e  |1%+=1:. SByte1%>|
00000e30  31 35 20 8c 20 53 42 79  74 65 31 25 3d 30 0d 05  |15 . SByte1%=0..|
00000e40  8c 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00000e50  f2 52 65 64 72 61 77 45  64 69 74 28 31 29 0d 05  |.RedrawEdit(1)..|
00000e60  96 30 20 20 20 20 c9 20  31 30 3a 53 42 79 74 65  |.0    . 10:SByte|
00000e70  32 25 2b 3d 31 3a e7 20  53 42 79 74 65 32 25 3e  |2%+=1:. SByte2%>|
00000e80  31 35 20 8c 20 53 42 79  74 65 32 25 3d 30 0d 05  |15 . SByte2%=0..|
00000e90  a0 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00000ea0  f2 52 65 64 72 61 77 45  64 69 74 28 32 29 0d 05  |.RedrawEdit(2)..|
00000eb0  aa 30 20 20 20 20 c9 20  31 31 3a 53 42 79 74 65  |.0    . 11:SByte|
00000ec0  33 25 2b 3d 31 3a e7 20  53 42 79 74 65 33 25 3e  |3%+=1:. SByte3%>|
00000ed0  31 35 20 8c 20 53 42 79  74 65 33 25 3d 30 0d 05  |15 . SByte3%=0..|
00000ee0  b4 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00000ef0  f2 52 65 64 72 61 77 45  64 69 74 28 33 29 0d 05  |.RedrawEdit(3)..|
00000f00  be 30 20 20 20 20 c9 20  31 32 3a 53 42 79 74 65  |.0    . 12:SByte|
00000f10  34 25 2b 3d 31 3a e7 20  53 42 79 74 65 34 25 3e  |4%+=1:. SByte4%>|
00000f20  31 35 20 8c 20 53 42 79  74 65 34 25 3d 30 0d 05  |15 . SByte4%=0..|
00000f30  c8 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00000f40  f2 52 65 64 72 61 77 45  64 69 74 28 34 29 0d 05  |.RedrawEdit(4)..|
00000f50  d2 30 20 20 20 20 c9 20  31 33 3a 53 42 79 74 65  |.0    . 13:SByte|
00000f60  35 25 2b 3d 31 3a e7 20  53 42 79 74 65 35 25 3e  |5%+=1:. SByte5%>|
00000f70  31 35 20 8c 20 53 42 79  74 65 35 25 3d 30 0d 05  |15 . SByte5%=0..|
00000f80  dc 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00000f90  f2 52 65 64 72 61 77 45  64 69 74 28 35 29 0d 05  |.RedrawEdit(5)..|
00000fa0  e6 30 20 20 20 20 c9 20  31 34 3a 53 42 79 74 65  |.0    . 14:SByte|
00000fb0  36 25 2b 3d 31 3a e7 20  53 42 79 74 65 36 25 3e  |6%+=1:. SByte6%>|
00000fc0  31 35 20 8c 20 53 42 79  74 65 36 25 3d 30 0d 05  |15 . SByte6%=0..|
00000fd0  f0 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00000fe0  f2 52 65 64 72 61 77 45  64 69 74 28 36 29 0d 05  |.RedrawEdit(6)..|
00000ff0  fa 30 20 20 20 20 c9 20  31 35 3a 53 42 79 74 65  |.0    . 15:SByte|
00001000  37 25 2b 3d 31 3a e7 20  53 42 79 74 65 37 25 3e  |7%+=1:. SByte7%>|
00001010  31 35 20 8c 20 53 42 79  74 65 37 25 3d 30 0d 06  |15 . SByte7%=0..|
00001020  04 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00001030  f2 52 65 64 72 61 77 45  64 69 74 28 37 29 0d 06  |.RedrawEdit(7)..|
00001040  0e 30 20 20 20 20 c9 20  31 36 3a 53 42 79 74 65  |.0    . 16:SByte|
00001050  38 25 2b 3d 31 3a e7 20  53 42 79 74 65 38 25 3e  |8%+=1:. SByte8%>|
00001060  31 35 20 8c 20 53 42 79  74 65 38 25 3d 30 0d 06  |15 . SByte8%=0..|
00001070  18 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00001080  f2 52 65 64 72 61 77 45  64 69 74 28 38 29 0d 06  |.RedrawEdit(8)..|
00001090  22 30 20 20 20 20 c9 20  31 37 3a 53 42 79 74 65  |"0    . 17:SByte|
000010a0  31 25 2d 3d 31 3a e7 20  53 42 79 74 65 31 25 3c  |1%-=1:. SByte1%<|
000010b0  30 20 8c 20 53 42 79 74  65 31 25 3d 31 35 0d 06  |0 . SByte1%=15..|
000010c0  2c 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |,      .SetData:|
000010d0  f2 52 65 64 72 61 77 45  64 69 74 28 31 29 0d 06  |.RedrawEdit(1)..|
000010e0  36 30 20 20 20 20 c9 20  31 38 3a 53 42 79 74 65  |60    . 18:SByte|
000010f0  32 25 2d 3d 31 3a e7 20  53 42 79 74 65 32 25 3c  |2%-=1:. SByte2%<|
00001100  30 20 8c 20 53 42 79 74  65 32 25 3d 31 35 0d 06  |0 . SByte2%=15..|
00001110  40 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |@      .SetData:|
00001120  f2 52 65 64 72 61 77 45  64 69 74 28 32 29 0d 06  |.RedrawEdit(2)..|
00001130  4a 30 20 20 20 20 c9 20  31 39 3a 53 42 79 74 65  |J0    . 19:SByte|
00001140  33 25 2d 3d 31 3a e7 20  53 42 79 74 65 33 25 3c  |3%-=1:. SByte3%<|
00001150  30 20 8c 20 53 42 79 74  65 33 25 3d 31 35 0d 06  |0 . SByte3%=15..|
00001160  54 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |T      .SetData:|
00001170  f2 52 65 64 72 61 77 45  64 69 74 28 33 29 0d 06  |.RedrawEdit(3)..|
00001180  5e 30 20 20 20 20 c9 20  32 30 3a 53 42 79 74 65  |^0    . 20:SByte|
00001190  34 25 2d 3d 31 3a e7 20  53 42 79 74 65 34 25 3c  |4%-=1:. SByte4%<|
000011a0  30 20 8c 20 53 42 79 74  65 34 25 3d 31 35 0d 06  |0 . SByte4%=15..|
000011b0  68 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |h      .SetData:|
000011c0  f2 52 65 64 72 61 77 45  64 69 74 28 34 29 0d 06  |.RedrawEdit(4)..|
000011d0  72 30 20 20 20 20 c9 20  32 31 3a 53 42 79 74 65  |r0    . 21:SByte|
000011e0  35 25 2d 3d 31 3a e7 20  53 42 79 74 65 35 25 3c  |5%-=1:. SByte5%<|
000011f0  30 20 8c 20 53 42 79 74  65 35 25 3d 31 35 0d 06  |0 . SByte5%=15..|
00001200  7c 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  ||      .SetData:|
00001210  f2 52 65 64 72 61 77 45  64 69 74 28 35 29 0d 06  |.RedrawEdit(5)..|
00001220  86 30 20 20 20 20 c9 20  32 32 3a 53 42 79 74 65  |.0    . 22:SByte|
00001230  36 25 2d 3d 31 3a e7 20  53 42 79 74 65 36 25 3c  |6%-=1:. SByte6%<|
00001240  30 20 8c 20 53 42 79 74  65 36 25 3d 31 35 0d 06  |0 . SByte6%=15..|
00001250  90 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00001260  f2 52 65 64 72 61 77 45  64 69 74 28 36 29 0d 06  |.RedrawEdit(6)..|
00001270  9a 30 20 20 20 20 c9 20  32 33 3a 53 42 79 74 65  |.0    . 23:SByte|
00001280  37 25 2d 3d 31 3a e7 20  53 42 79 74 65 37 25 3c  |7%-=1:. SByte7%<|
00001290  30 20 8c 20 53 42 79 74  65 37 25 3d 31 35 0d 06  |0 . SByte7%=15..|
000012a0  a4 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
000012b0  f2 52 65 64 72 61 77 45  64 69 74 28 37 29 0d 06  |.RedrawEdit(7)..|
000012c0  ae 30 20 20 20 20 c9 20  32 34 3a 53 42 79 74 65  |.0    . 24:SByte|
000012d0  38 25 2d 3d 31 3a e7 20  53 42 79 74 65 38 25 3c  |8%-=1:. SByte8%<|
000012e0  30 20 8c 20 53 42 79 74  65 38 25 3d 31 35 0d 06  |0 . SByte8%=15..|
000012f0  b8 20 20 20 20 20 20 f2  53 65 74 44 61 74 61 3a  |.      .SetData:|
00001300  f2 52 65 64 72 61 77 45  64 69 74 28 38 29 0d 06  |.RedrawEdit(8)..|
00001310  c2 14 20 20 20 20 c9 20  32 37 3a f2 44 6f 57 6f  |..    . 27:.DoWo|
00001320  72 64 0d 06 cc 29 20 20  20 20 c9 20 32 38 3a 24  |rd...)    . 28:$|
00001330  44 69 73 57 6f 72 64 25  3d 22 30 30 30 30 30 30  |DisWord%="000000|
00001340  30 30 22 3a f2 44 6f 57  6f 72 64 0d 06 d6 08 20  |00":.DoWord.... |
00001350  20 20 cb 0d 06 e0 06 20  cb 0d 06 ea 05 e1 0d 06  |  ..... ........|
00001360  f4 04 0d 06 fe 0c dd f2  44 6f 57 6f 72 64 0d 07  |........DoWord..|
00001370  08 09 20 ea 20 77 24 0d  07 12 2b 20 77 24 3d c2  |.. . w$...+ w$=.|
00001380  22 30 30 30 30 30 30 30  30 22 2b a4 47 65 74 53  |"00000000"+.GetS|
00001390  74 72 69 6e 67 28 44 69  73 57 6f 72 64 25 29 2c  |tring(DisWord%),|
000013a0  38 29 0d 07 1c 34 20 53  42 79 74 65 31 25 3d a0  |8)...4 SByte1%=.|
000013b0  28 22 26 22 2b c1 77 24  2c 31 2c 31 29 29 3a 53  |("&"+.w$,1,1)):S|
000013c0  42 79 74 65 32 25 3d a0  28 22 26 22 2b c1 77 24  |Byte2%=.("&"+.w$|
000013d0  2c 32 2c 31 29 29 0d 07  26 34 20 53 42 79 74 65  |,2,1))..&4 SByte|
000013e0  33 25 3d a0 28 22 26 22  2b c1 77 24 2c 33 2c 31  |3%=.("&"+.w$,3,1|
000013f0  29 29 3a 53 42 79 74 65  34 25 3d a0 28 22 26 22  |)):SByte4%=.("&"|
00001400  2b c1 77 24 2c 34 2c 31  29 29 0d 07 30 34 20 53  |+.w$,4,1))..04 S|
00001410  42 79 74 65 35 25 3d a0  28 22 26 22 2b c1 77 24  |Byte5%=.("&"+.w$|
00001420  2c 35 2c 31 29 29 3a 53  42 79 74 65 36 25 3d a0  |,5,1)):SByte6%=.|
00001430  28 22 26 22 2b c1 77 24  2c 36 2c 31 29 29 0d 07  |("&"+.w$,6,1))..|
00001440  3a 34 20 53 42 79 74 65  37 25 3d a0 28 22 26 22  |:4 SByte7%=.("&"|
00001450  2b c1 77 24 2c 37 2c 31  29 29 3a 53 42 79 74 65  |+.w$,7,1)):SByte|
00001460  38 25 3d a0 28 22 26 22  2b c1 77 24 2c 38 2c 31  |8%=.("&"+.w$,8,1|
00001470  29 29 0d 07 44 0d 20 f2  53 65 74 44 61 74 61 0d  |))..D. .SetData.|
00001480  07 4e 2e 20 f2 52 65 64  72 61 77 49 63 6f 6e 28  |.N. .RedrawIcon(|
00001490  45 64 69 74 25 2c 31 29  3a f2 52 65 64 72 61 77  |Edit%,1):.Redraw|
000014a0  49 63 6f 6e 28 45 64 69  74 25 2c 32 29 0d 07 58  |Icon(Edit%,2)..X|
000014b0  2e 20 f2 52 65 64 72 61  77 49 63 6f 6e 28 45 64  |. .RedrawIcon(Ed|
000014c0  69 74 25 2c 33 29 3a f2  52 65 64 72 61 77 49 63  |it%,3):.RedrawIc|
000014d0  6f 6e 28 45 64 69 74 25  2c 34 29 0d 07 62 2e 20  |on(Edit%,4)..b. |
000014e0  f2 52 65 64 72 61 77 49  63 6f 6e 28 45 64 69 74  |.RedrawIcon(Edit|
000014f0  25 2c 35 29 3a f2 52 65  64 72 61 77 49 63 6f 6e  |%,5):.RedrawIcon|
00001500  28 45 64 69 74 25 2c 36  29 0d 07 6c 2e 20 f2 52  |(Edit%,6)..l. .R|
00001510  65 64 72 61 77 49 63 6f  6e 28 45 64 69 74 25 2c  |edrawIcon(Edit%,|
00001520  37 29 3a f2 52 65 64 72  61 77 49 63 6f 6e 28 45  |7):.RedrawIcon(E|
00001530  64 69 74 25 2c 38 29 0d  07 76 2f 20 f2 52 65 64  |dit%,8)..v/ .Red|
00001540  72 61 77 49 63 6f 6e 28  45 64 69 74 25 2c 32 36  |rawIcon(Edit%,26|
00001550  29 3a f2 52 65 64 72 61  77 49 63 6f 6e 28 45 64  |):.RedrawIcon(Ed|
00001560  69 74 25 2c 30 29 0d 07  80 05 e1 0d 07 8a 04 0d  |it%,0)..........|
00001570  07 94 14 dd f2 52 65 64  72 61 77 45 64 69 74 28  |.....RedrawEdit(|
00001580  69 25 29 0d 07 9e 45 20  f2 52 65 64 72 61 77 49  |i%)...E .RedrawI|
00001590  63 6f 6e 28 45 64 69 74  25 2c 69 25 29 3a f2 52  |con(Edit%,i%):.R|
000015a0  65 64 72 61 77 49 63 6f  6e 28 45 64 69 74 25 2c  |edrawIcon(Edit%,|
000015b0  30 29 3a f2 52 65 64 72  61 77 49 63 6f 6e 28 45  |0):.RedrawIcon(E|
000015c0  64 69 74 25 2c 32 36 29  0d 07 a8 05 e1 0d 07 b2  |dit%,26)........|
000015d0  04 0d 07 bc 0d dd f2 53  65 74 44 61 74 61 0d 07  |.......SetData..|
000015e0  c6 38 20 42 79 74 65 31  25 3d 53 42 79 74 65 31  |.8 Byte1%=SByte1|
000015f0  25 2a 31 36 2b 53 42 79  74 65 32 25 3a 42 79 74  |%*16+SByte2%:Byt|
00001600  65 32 25 3d 53 42 79 74  65 33 25 2a 31 36 2b 53  |e2%=SByte3%*16+S|
00001610  42 79 74 65 34 25 0d 07  d0 38 20 42 79 74 65 33  |Byte4%...8 Byte3|
00001620  25 3d 53 42 79 74 65 35  25 2a 31 36 2b 53 42 79  |%=SByte5%*16+SBy|
00001630  74 65 36 25 3a 42 79 74  65 34 25 3d 53 42 79 74  |te6%:Byte4%=SByt|
00001640  65 37 25 2a 31 36 2b 53  42 79 74 65 38 25 0d 07  |e7%*16+SByte8%..|
00001650  da 40 20 57 6f 72 64 25  3f 33 3d 42 79 74 65 31  |.@ Word%?3=Byte1|
00001660  25 3a 57 6f 72 64 25 3f  32 3d 42 79 74 65 32 25  |%:Word%?2=Byte2%|
00001670  3a 57 6f 72 64 25 3f 31  3d 42 79 74 65 33 25 3a  |:Word%?1=Byte3%:|
00001680  57 6f 72 64 25 3f 30 3d  42 79 74 65 34 25 0d 07  |Word%?0=Byte4%..|
00001690  e4 36 20 24 44 69 73 42  79 74 65 31 25 3d a4 42  |.6 $DisByte1%=.B|
000016a0  69 6e 28 53 42 79 74 65  31 25 29 3a 24 44 69 73  |in(SByte1%):$Dis|
000016b0  42 79 74 65 32 25 3d a4  42 69 6e 28 53 42 79 74  |Byte2%=.Bin(SByt|
000016c0  65 32 25 29 0d 07 ee 36  20 24 44 69 73 42 79 74  |e2%)...6 $DisByt|
000016d0  65 33 25 3d a4 42 69 6e  28 53 42 79 74 65 33 25  |e3%=.Bin(SByte3%|
000016e0  29 3a 24 44 69 73 42 79  74 65 34 25 3d a4 42 69  |):$DisByte4%=.Bi|
000016f0  6e 28 53 42 79 74 65 34  25 29 0d 07 f8 36 20 24  |n(SByte4%)...6 $|
00001700  44 69 73 42 79 74 65 35  25 3d a4 42 69 6e 28 53  |DisByte5%=.Bin(S|
00001710  42 79 74 65 35 25 29 3a  24 44 69 73 42 79 74 65  |Byte5%):$DisByte|
00001720  36 25 3d a4 42 69 6e 28  53 42 79 74 65 36 25 29  |6%=.Bin(SByte6%)|
00001730  0d 08 02 36 20 24 44 69  73 42 79 74 65 37 25 3d  |...6 $DisByte7%=|
00001740  a4 42 69 6e 28 53 42 79  74 65 37 25 29 3a 24 44  |.Bin(SByte7%):$D|
00001750  69 73 42 79 74 65 38 25  3d a4 42 69 6e 28 53 42  |isByte8%=.Bin(SB|
00001760  79 74 65 38 25 29 0d 08  0c 3a 20 e7 20 42 79 74  |yte8%)...: . Byt|
00001770  65 31 25 3d 32 35 35 20  80 20 42 79 74 65 32 25  |e1%=255 . Byte2%|
00001780  3d 32 35 35 20 80 20 42  79 74 65 33 25 3d 32 35  |=255 . Byte3%=25|
00001790  35 20 80 20 42 79 74 65  34 25 3d 32 35 35 20 8c  |5 . Byte4%=255 .|
000017a0  0d 08 16 1a 20 20 24 44  69 73 57 6f 72 64 25 3d  |....  $DisWord%=|
000017b0  22 46 46 46 46 46 46 46  46 22 0d 08 20 06 20 cc  |"FFFFFFFF".. . .|
000017c0  0d 08 2a 1c 20 20 24 44  69 73 57 6f 72 64 25 3d  |..*.  $DisWord%=|
000017d0  a4 48 65 78 28 21 57 6f  72 64 25 29 0d 08 34 06  |.Hex(!Word%)..4.|
000017e0  20 cd 0d 08 3e 1d 20 24  44 69 73 54 65 78 74 25  | ...>. $DisText%|
000017f0  3d c0 a4 44 69 73 41 73  73 65 6d 2c 33 36 29 0d  |=..DisAssem,36).|
00001800  08 48 05 e1 0d 08 52 04  0d 08 5c 0d dd a4 42 69  |.H....R...\...Bi|
00001810  6e 28 76 25 29 0d 08 66  09 20 ea 20 62 24 0d 08  |n(v%)..f. . b$..|
00001820  70 0a 20 62 24 3d 22 22  0d 08 7a 21 20 e7 20 76  |p. b$=""..z! . v|
00001830  25 20 80 20 38 20 8c 20  62 24 2b 3d 22 31 22 20  |% . 8 . b$+="1" |
00001840  8b 20 62 24 2b 3d 22 30  22 0d 08 84 21 20 e7 20  |. b$+="0"...! . |
00001850  76 25 20 80 20 34 20 8c  20 62 24 2b 3d 22 31 22  |v% . 4 . b$+="1"|
00001860  20 8b 20 62 24 2b 3d 22  30 22 0d 08 8e 21 20 e7  | . b$+="0"...! .|
00001870  20 76 25 20 80 20 32 20  8c 20 62 24 2b 3d 22 31  | v% . 2 . b$+="1|
00001880  22 20 8b 20 62 24 2b 3d  22 30 22 0d 08 98 21 20  |" . b$+="0"...! |
00001890  e7 20 76 25 20 80 20 31  20 8c 20 62 24 2b 3d 22  |. v% . 1 . b$+="|
000018a0  31 22 20 8b 20 62 24 2b  3d 22 30 22 0d 08 a2 07  |1" . b$+="0"....|
000018b0  3d 62 24 0d 08 ac 04 0d  08 b6 24 dd a4 48 65 78  |=b$.......$..Hex|
000018c0  28 76 25 29 3a 3d c2 22  30 30 30 30 30 30 30 30  |(v%):=."00000000|
000018d0  22 2b c3 7e 28 76 25 29  2c 38 29 0d 08 c0 04 0d  |"+.~(v%),8).....|
000018e0  08 ca 0e dd a4 44 69 73  41 73 73 65 6d 0d 08 d4  |.....DisAssem...|
000018f0  0b 20 ea 20 6c 65 6e 25  0d 08 de 37 20 c8 99 22  |. . len%...7 .."|
00001900  44 65 62 75 67 67 65 72  5f 44 69 73 61 73 73 65  |Debugger_Disasse|
00001910  6d 62 6c 65 22 2c 57 6f  72 64 25 21 30 20 b8 20  |mble",Word%!0 . |
00001920  2c 44 69 73 41 73 73 65  6d 25 2c 6c 65 6e 25 0d  |,DisAssem%,len%.|
00001930  08 e8 18 20 e7 20 6c 65  6e 25 3e 33 39 20 8c 20  |... . len%>39 . |
00001940  6c 65 6e 25 3d 33 39 0d  08 f2 16 20 44 69 73 41  |len%=39.... DisA|
00001950  73 73 65 6d 25 3f 6c 65  6e 25 3d 31 33 0d 08 fc  |ssem%?len%=13...|
00001960  0f 3d 24 44 69 73 41 73  73 65 6d 25 0d 09 06 04  |.=$DisAssem%....|
00001970  0d 09 10 26 dd f2 43 72  65 61 74 65 4d 65 6e 75  |...&..CreateMenu|
00001980  28 69 74 65 6d 73 25 2c  73 74 61 72 74 25 2c 6d  |(items%,start%,m|
00001990  74 24 2c 74 24 29 0d 09  1a 20 20 ea 20 74 31 24  |t$,t$)...  . t1$|
000019a0  2c 74 69 74 6c 65 24 2c  63 32 24 2c 63 24 2c 73  |,title$,c2$,c$,s|
000019b0  75 62 70 74 72 25 0d 09  24 1a 20 ea 20 74 69 63  |ubptr%..$. . tic|
000019c0  6b 25 2c 49 25 2c 77 69  64 74 68 25 2c 6c 74 25  |k%,I%,width%,lt%|
000019d0  0d 09 2e 1d 20 73 74 61  72 74 25 2b 3d 4d 65 6e  |.... start%+=Men|
000019e0  75 25 3a 6d 62 25 3d 73  74 61 72 74 25 0d 09 38  |u%:mb%=start%..8|
000019f0  1e 20 e7 20 a9 20 6d 74  24 3e 31 31 20 8c 20 6d  |. . . mt$>11 . m|
00001a00  74 24 3d c0 6d 74 24 2c  31 31 29 0d 09 42 0d 20  |t$=.mt$,11)..B. |
00001a10  24 6d 62 25 3d 6d 74 24  0d 09 4c 14 20 77 69 64  |$mb%=mt$..L. wid|
00001a20  74 68 25 3d 31 36 2a a9  20 6d 74 24 0d 09 56 28  |th%=16*. mt$..V(|
00001a30  20 6d 62 25 3f 31 32 3d  37 3a 6d 62 25 3f 31 33  | mb%?12=7:mb%?13|
00001a40  3d 32 3a 6d 62 25 3f 31  34 3d 37 3a 6d 62 25 3f  |=2:mb%?14=7:mb%?|
00001a50  31 35 3d 30 0d 09 60 1f  20 6d 62 25 21 32 30 3d  |15=0..`. mb%!20=|
00001a60  34 34 3a 6d 62 25 21 32  34 3d 30 3a 6d 62 25 2b  |44:mb%!24=0:mb%+|
00001a70  3d 32 38 0d 09 6a 14 20  e3 20 49 25 3d 31 20 b8  |=28..j. . I%=1 .|
00001a80  20 69 74 65 6d 73 25 0d  09 74 18 20 20 73 75 62  | items%..t.  sub|
00001a90  70 74 72 25 3d 2d 31 3a  74 69 63 6b 25 3d 30 0d  |ptr%=-1:tick%=0.|
00001aa0  09 7e 19 20 20 74 31 24  3d c0 74 24 2c a7 74 24  |.~.  t1$=.t$,.t$|
00001ab0  2c 22 2c 22 29 2d 31 29  0d 09 88 1e 20 20 74 69  |,",")-1)....  ti|
00001ac0  74 6c 65 24 3d c0 74 31  24 2c a7 74 31 24 2c 22  |tle$=.t1$,.t1$,"|
00001ad0  7c 22 29 2d 31 29 0d 09  92 1a 20 20 63 24 3d c1  ||")-1)....  c$=.|
00001ae0  74 31 24 2c a7 74 31 24  2c 22 7c 22 29 2b 31 29  |t1$,.t1$,"|")+1)|
00001af0  0d 09 9c 12 20 20 e7 20  a7 63 24 2c 22 3e 22 29  |....  . .c$,">")|
00001b00  20 8c 0d 09 a6 1a 20 20  20 63 32 24 3d c1 63 24  | .....   c2$=.c$|
00001b10  2c a7 63 24 2c 22 3e 22  29 2b 31 29 0d 09 b0 29  |,.c$,">")+1)...)|
00001b20  20 20 20 73 75 62 70 74  72 25 3d 73 74 61 72 74  |   subptr%=start|
00001b30  25 2b a0 20 c0 63 32 24  2c a7 63 32 24 2c 22 3c  |%+. .c2$,.c2$,"<|
00001b40  22 29 2d 31 29 0d 09 ba  07 20 20 cd 0d 09 c4 12  |")-1)....  .....|
00001b50  20 20 e7 20 a7 63 24 2c  22 5b 22 29 20 8c 0d 09  |  . .c$,"[") ...|
00001b60  ce 1a 20 20 20 63 32 24  3d c1 63 24 2c a7 63 24  |..   c2$=.c$,.c$|
00001b70  2c 22 5b 22 29 2b 31 29  0d 09 d8 22 20 20 20 73  |,"[")+1)..."   s|
00001b80  75 62 70 74 72 25 3d a0  20 c0 63 32 24 2c a7 63  |ubptr%=. .c2$,.c|
00001b90  32 24 2c 22 5d 22 29 2d  31 29 0d 09 e2 07 20 20  |2$,"]")-1)....  |
00001ba0  cd 0d 09 ec 12 20 20 e7  20 a7 63 24 2c 22 28 22  |.....  . .c$,"("|
00001bb0  29 20 8c 0d 09 f6 1a 20  20 20 63 32 24 3d c1 63  |) .....   c2$=.c|
00001bc0  24 2c a7 63 24 2c 22 28  22 29 2b 31 29 0d 0a 00  |$,.c$,"(")+1)...|
00001bd0  1c 20 20 20 63 32 24 3d  c0 63 32 24 2c a7 63 32  |.   c2$=.c2$,.c2|
00001be0  24 2c 22 29 22 29 2d 31  29 0d 0a 0a 17 20 20 20  |$,")")-1)....   |
00001bf0  6d 62 25 21 31 32 3d a0  20 c1 63 32 24 2c 33 29  |mb%!12=. .c2$,3)|
00001c00  0d 0a 14 32 20 20 20 6d  62 25 21 31 36 3d 2d 31  |...2   mb%!16=-1|
00001c10  3a 6d 62 25 21 32 30 3d  a0 20 c0 63 32 24 2c 32  |:mb%!20=. .c2$,2|
00001c20  29 3a 77 72 69 74 65 25  3d 34 3a 69 6e 64 69 25  |):write%=4:indi%|
00001c30  3d 31 0d 0a 1e 1a 20 20  20 77 69 64 74 68 25 3d  |=1....   width%=|
00001c40  31 36 2a a0 20 c0 63 32  24 2c 32 29 0d 0a 28 07  |16*. .c2$,2)..(.|
00001c50  20 20 cc 0d 0a 32 13 20  20 20 6c 74 25 3d a9 20  |  ...2.   lt%=. |
00001c60  74 69 74 6c 65 24 0d 0a  3c 17 20 20 20 24 28 6d  |title$..<.   $(m|
00001c70  62 25 2b 31 32 29 3d 74  69 74 6c 65 24 0d 0a 46  |b%+12)=title$..F|
00001c80  2c 20 20 20 e7 20 31 36  2b 31 36 2a 6c 74 25 3e  |,   . 16+16*lt%>|
00001c90  77 69 64 74 68 25 20 8c  20 77 69 64 74 68 25 3d  |width% . width%=|
00001ca0  31 36 2b 31 36 2a 6c 74  25 0d 0a 50 07 20 20 cd  |16+16*lt%..P.  .|
00001cb0  0d 0a 5a 18 20 20 74 24  3d c1 74 24 2c a7 74 24  |..Z.  t$=.t$,.t$|
00001cc0  2c 22 2c 22 29 2b 31 29  0d 0a 64 1c 20 20 e7 20  |,",")+1)..d.  . |
00001cd0  a7 63 24 2c 22 21 22 29  3e 30 20 8c 20 74 69 63  |.c$,"!")>0 . tic|
00001ce0  6b 25 3d 31 0d 0a 6e 2e  20 20 6d 62 25 21 30 3d  |k%=1..n.  mb%!0=|
00001cf0  74 69 63 6b 25 3a 6d 62  25 21 34 3d 73 75 62 70  |tick%:mb%!4=subp|
00001d00  74 72 25 3a 6d 62 25 21  38 3d 26 37 30 30 30 30  |tr%:mb%!8=&70000|
00001d10  32 31 0d 0a 78 0d 20 20  6d 62 25 2b 3d 32 34 0d  |21..x.  mb%+=24.|
00001d20  0a 82 06 20 ed 0d 0a 8c  1c 20 6d 62 25 21 2d 32  |... ..... mb%!-2|
00001d30  34 3d 28 6d 62 25 21 2d  32 34 20 84 20 26 38 30  |4=(mb%!-24 . &80|
00001d40  29 0d 0a 96 15 20 73 74  61 72 74 25 21 31 36 3d  |).... start%!16=|
00001d50  77 69 64 74 68 25 0d 0a  a0 05 e1 0d 0a aa 04 0d  |width%..........|
00001d60  0a b4 3b dd a4 47 65 74  53 74 72 69 6e 67 28 61  |..;..GetString(a|
00001d70  25 29 3a 61 24 3d 22 22  3a c8 95 20 3f 61 25 3e  |%):a$="":.. ?a%>|
00001d80  3d 33 32 3a 61 24 2b 3d  bd 28 3f 61 25 29 3a 61  |=32:a$+=.(?a%):a|
00001d90  25 2b 3d 31 3a ce 3a 3d  61 24 0d 0a be 04 0d 0a  |%+=1:.:=a$......|
00001da0  c8 17 dd f2 52 65 64 72  61 77 49 63 6f 6e 28 77  |....RedrawIcon(w|
00001db0  25 2c 69 25 29 0d 0a d2  14 20 62 25 21 30 3d 77  |%,i%).... b%!0=w|
00001dc0  25 3a 62 25 21 34 3d 69  25 0d 0a dc 1e 20 c8 99  |%:b%!4=i%.... ..|
00001dd0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001de0  74 65 22 2c 2c 62 25 0d  0a e6 33 20 c8 99 22 57  |te",,b%...3 .."W|
00001df0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00001e00  2c 77 25 2c 62 25 21 38  2c 62 25 21 31 32 2c 62  |,w%,b%!8,b%!12,b|
00001e10  25 21 31 36 2c 62 25 21  32 30 0d 0a f0 05 e1 0d  |%!16,b%!20......|
00001e20  ff                                                |.|
00001e21

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .