Home » Archimedes archive » Archimedes World » AW-1993-03.adf » AWMar93 » !AWMar93/Goodies/ResMod/!ResMod/!RunI
!AWMar93/Goodies/ResMod/!ResMod/!RunI
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 » Archimedes World » AW-1993-03.adf » AWMar93 |
| Filename: | !AWMar93/Goodies/ResMod/!ResMod/!RunI |
| Read OK: | ✔ |
| File size: | 3279 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!RunImage
20REM Program Wimp Control
30REM Author LEN Joseph Walker
40REM Version 1.10
50REM Date 26th November 1992
60REM Program Not Public Domain
70
80 MaxModSize% =490
90 PROC_Initalise
100 ON ERROR PROC_Error
110
120 REPEAT
130 Block%!0 =0
140 SYS "Wimp_Poll",0,Block% TO Reason%
150 CASE Reason% OF
160 WHEN 1 :PROC_RedrawWindow
170 WHEN 2 :SYS "Wimp_OpenWindow",,Block%
180 WHEN 3 :SYS "Wimp_CloseWindow",,Block%
190 Exit% =TRUE
200 WHEN 6 :PROC_MouseClick
210 WHEN 7 :PROC_DragEnd
220 WHEN 17,18 :PROC_RecieveMessage
230 ENDCASE
240 UNTIL Exit%
250
260 SYS "Wimp_CloseDown",&4B534154
270
280END
290
300
310
320DEFPROC_RedrawWindow
330
340 SYS "Wimp_RedrawWindow",,Block% TO More%
350 WHILE More%
360 SYS "Wimp_BorderWindow",,Block%
370 SYS "Wimp_GetRectangle",,Block% TO More%
380 ENDWHILE
390
400ENDPROC
410
420
430
440DEFPROC_MouseClick
450
460 Button% =Block%!8
470 Window% =Block%!12
480 Icon% =Block%!16
490
500 CASE Button% OF
510 WHEN 1,4 :IF Icon% =HelpIcon% THEN SYS "Wimp_StartTask","Run <ResMod$Dir>.!Help"
520 WHEN 2 :PROC_SetPointerVars
530 SYS "Wimp_CreateMenu",,InfoWin%,MouseX%-68,MouseY%
540 WHEN 16,64 :PROC_DragStart
550 ENDCASE
560
570ENDPROC
580
590
600
610DEFPROC_DragStart
620
630 PROC_SetWindowVars
640 Block%!0 =MainWin%
650 Block%!4 =DragIcon%
660 SYS "Wimp_GetIconState",,Block%
670
680 Block%!0 =MainWin%
690 Block%!4 =5
700 Block%!8 +=DispX%
710 Block%!12 +=DispY%
720 Block%!16 +=DispX%
730 Block%!20 +=DispY%
740 Block%!24 =0
750 Block%!28 =0
760 Block%!32 =&7FFFFFFF
770 Block%!36 =&7FFFFFFF
780 SYS "Wimp_DragBox",,Block%
790
800ENDPROC
810
820
830
840DEFPROC_DragEnd
850
860 PROC_SetWindowVars
870 PROC_SetPointerVars
880
890 FileName$ =FN_OSString(FileIcon%)
900 LeafName$ =FN_GetLeafName(FileName$)
910
920 Block%!0 =80 :REM message length
930 Block%!4 =0 :REM unused
940 Block%!8 =0
950 Block%!12 =0
960 Block%!16 =1 :REM message type
970 Block%!20 =Window%
980 Block%!24 =Icon%
990 Block%!28 =MouseX%
1000 Block%!32 =MouseY%
1010 Block%!36 =1024 :REM est. data length
1020 Block%!40 =&FFA
1030 $(Block%+44) =LeafName$
1040 SYS "Wimp_SendMessage",17,Block%,Window%,Icon%
1050
1060ENDPROC
1070
1080
1090
1100DEFPROC_RecieveMessage
1110
1120 YourHndl% =Block%!4
1130 MyRef% =Block%!8
1140 YourRef% =Block%!12
1150 Action% =Block%!16
1160
1170 CASE Action% OF
1180 WHEN 0 :Exit% =TRUE
1190 WHEN 2 :PROC_Message_DataSaveAck
1200 WHEN 3 :PROC_Message_DataLoad
1210 WHEN 4 :REM_Ignore_DataLoadAck
1220 ENDCASE
1230
1240ENDPROC
1250
1260
1270
1280DEFPROC_Message_DataSaveAck
1290
1300 FileName$ =FN_OSString(Block%+44)
1310 SourceName$ =FN_OSString(SourceDir%)
1320 IDName$ =FN_OSString(ModName%)
1330
1340 IF FN_CheckFileName(FileName$,TRUE) THEN
1350 SYS "Wimp_CommandWindow","ResMod"
1360 CASE LEFT$(FN_GetLeafName(SourceName$),1) OF
1370 WHEN "!" :PROC_SaveVirtualApp(SourceName$,FileName$,IDName$)
1380 OTHERWISE :PROC_SaveDirectory(SourceName$,FileName$,IDName$)
1390 ENDCASE
1400 SYS "Wimp_CommandWindow",-1
1410 Exit% =TRUE
1420 ENDIF
1430
1440ENDPROC
1450
1460
1470
1480DEFPROC_Message_DataLoad
1490
1500 FileType% =Block%!40
1510 FileName$ =FN_OSString(Block%+44)
1520
1530 $SourceDir% =FileName$
1540 PROC_SendDataLoadAck
1550 PROC_ForceRedraw
1560
1570ENDPROC
1580
1590
1600
1610DEFPROC_SendDataLoadAck
1620
1630 REM needs debugging
1640 Block%!12 =MyRef%
1650 Block%!16 =4
1660 SYS "Wimp_SendMessage",17,Block%,YourHndl%
1670
1680ENDPROC
1690
1700
1710
1720DEFFN_GetIndir(GetWindow%,GetIcon%)
1730
1740 LOCAL TextPtr%
1750
1760 SubBlock%!0 =GetWindow%
1770 SubBlock%!4 =GetIcon%
1780 SYS "Wimp_GetIconState",,SubBlock%
1790 TextPtr% =SubBlock%!28
1800
1810=TextPtr%
1820
1830
1840
1850DEFPROC_ForceRedraw
1860
1870 SubBlock%!0 =MainWin%
1880 SYS "Wimp_GetWindowState",,SubBlock%
1890 VisMinX% =SubBlock%!4 :VisMinY% =SubBlock%!8
1900 VisMaxX% =SubBlock%!12 :VisMaxY% =SubBlock%!16
1910 SYS "Wimp_ForceRedraw",-1,VisMinX%,VisMinY%,VisMaxX%,VisMaxY%
1920
1930ENDPROC
1940
1950
1960
1970DEFFN_Message(Message$,Flags%)
1980
1990 REM flag bit 0: OK box, bit 1: Cancel box, bit 4: Don't prefix with 'Error from'
2000 LOCAL Answer%
2010
2020 IF Message$ ="" THEN =TRUE
2030
2040 !SubBlock% =0
2050 $(SubBlock%+4)=Message$
2060 SYS "Wimp_ReportError",SubBlock%,Flags%,App$ TO ,Answer%
2070
2080 IF Answer% =1 THEN
2090 Answer% =TRUE
2100 ELSE
2110 Answer% =FALSE
2120 ENDIF
2130
2140=Answer%
2150
2160
2170
2180DEFFN_OSString(Address%)
2190
2200 LOCAL LocalAddr%,Old%,String$
2210 LOCAL ERROR
2220 ON ERROR LOCAL OK% =FN_Message("Invalid memory address (address exception?)",0):END
2230 LocalAddr% =Address%
2240
2250 WHILE ?LocalAddr% >31 AND ?LocalAddr% <>127
2260 LocalAddr% +=1
2270 IF LocalAddr% >Address%+255 THEN
2280 OK% =FN_Messaage("String longer than 255 bytes: Invalid address?",0):END
2290 ENDIF
2300 ENDWHILE
2310
2320 Old% =?LocalAddr%
2330 ?LocalAddr% =13
2340 String$ =$Address%
2350 ?LocalAddr% =Old%
2360
2370=String$
2380
2390
2400
2410DEFFN_GetLeafName(FileName$)
2420
2430 LOCAL n%
2440 IF INSTR(FileName$,"<Wimp$Scrap>") THEN ="ScrapFile"
2450
2460 n% =LEN FileName$
2470 WHILE MID$(FileName$,n%,1) =" " AND n%>0
2480 n% -=1
2490 ENDWHILE
2500
2510 FileName$ =LEFT$(FileName$,n%)
2520 WHILE MID$(FileName$,n%,1) <>"." AND n%>0
2530 n% -=1
2540 ENDWHILE
2550
2560=MID$(FileName$,n%+1)
2570
2580
2590
2600DEFFN_CheckFileName(Gen_Name$,Gen_CheckPath%)
2610
2620 IF Gen_Name$ ="" OR RIGHT$(Gen_Name$,1) ="." THEN
2630 A% =FN_Message("You must first specify a filename!",1)
2640 =FALSE
2650 ENDIF
2660
2670 IF Gen_CheckPath% AND INSTR(Gen_Name$,".") =0 THEN
2680 A% =FN_Message("To save, drag file icon to a directory viewer.",1)
2690 =FALSE
2700 ENDIF
2710
2720=TRUE
2730
2740
2750
2760DEFPROC_SetPointerVars
2770
2780 SYS "Wimp_GetPointerInfo",,SubBlock%
2790 MouseX% =SubBlock%!0
2800 MouseY% =SubBlock%!4
2810 Button% =SubBlock%!8
2820 Window% =SubBlock%!12
2830 Icon% =SubBlock%!16
2840
2850ENDPROC
2860
2870
2880
2890DEFPROC_SetWindowVars
2900
2910 SubBlock%!0 =MainWin%
2920 SYS "Wimp_GetWindowState",,SubBlock%
2930 VisMinX% =SubBlock%!4 :VisMinY% =SubBlock%!8
2940 VisMaxX% =SubBlock%!12 :VisMaxY% =SubBlock%!16
2950 ScrollX% =SubBlock%!20 :ScrollY% =SubBlock%!24
2960 DispX% =VisMinX% -ScrollX%
2970 DispY% =VisMaxY% -ScrollY%
2980
2990ENDPROC
3000
3010
3020
3030DEFPROC_SaveVirtualApp(SourceName$,FileName$,IDName$)
3040
3050 AppName$ =SourceName$
3060 IF INSTR(AppName$,".") THEN
3070 REPEAT
3080 AppName$ =MID$(AppName$,INSTR(AppName$,".")+1)
3090 UNTIL INSTR(AppName$,".")=0
3100 ENDIF
3110
3120 FOR Pass% = 4 TO 6 STEP 2
3130 O%=Code%
3140 P%=&00000000
3150 [
3160 OPT Pass%
3170
3180 EQUD &00000000
3190 EQUD Start%
3200 EQUD End%
3210 EQUD Service%
3220 EQUD Title%
3230 EQUD Help%
3240 EQUD &00000000
3250 EQUD &00000000
3260 EQUD &00000000
3270 EQUD &00000000
3280 EQUD &00000000
3290
3300 .Title%
3310 EQUS IDName$ +CHR$0
3320 ALIGN
3330
3340 .Help%
3350 EQUS IDName$ +CHR$9 +CHR$9
3360 EQUS "1.10 (26 Oct 1992) By Joseph Walker" +CHR$0
3370 ALIGN
3380
3390 .Start%
3400 STMFD R13!,{R0,R14}
3410 ADR R0,BootFile%
3420 SWI "XResourceFS_RegisterFiles"
3430 LDMFD R13!,{R0,PC}^
3440
3450 .End%
3460 STMFD R13!,{R0,R14}
3470 ADR R0,BootFile%
3480 SWI "XResourceFS_DeregisterFiles"
3490 LDMFD R13!,{R0,PC}^
3500
3510 .Service%
3520 TEQ R1,#&60
3530 MOVNE PC,R14
3540 STMFD R13!,{R0-R3,R14}
3550 ADR R0,BootFile%
3560 MOV R14,PC
3570 MOV PC,R2
3580 LDMFD R13!,{R0-R3,PC}^
3590
3600 .BootFile%
3610 EQUD RunFile% -P%
3620 EQUD &FFFFEB44
3630 EQUD &31A75225
3640 EQUD 11 +LEN SourceName$
3650 EQUD &00000003
3660 EQUS "Apps." +AppName$ +".!Boot" +CHR$0
3670 ALIGN
3680 EQUD 15 +LEN SourceName$
3690 EQUS "Filer_Boot " +SourceName$ +CHR$0
3700 ALIGN
3710
3720 .RunFile%
3730 EQUD Blank% -P%
3740 EQUD &FFFFEB44
3750 EQUD &31A75568
3760 EQUD 10 +LEN SourceName$
3770 EQUD &00000003
3780 EQUS "Apps." +AppName$ +".!Run" +CHR$0
3790 ALIGN
3800 EQUD 14 +LEN SourceName$
3810 EQUS "Filer_Run " +SourceName$ +CHR$0
3820 ALIGN
3830
3840 .Blank%
3850 EQUD &00000000
3860 ]
3870 PRINT "Pass ";Pass%;" successful..."
3880 NEXT Pass%
3890
3900 SYS "OS_File",10,FileName$,&FFA,,Code%,O%
3910
3920ENDPROC
3930
3940
3950
3960DEFPROC_SaveDirectory(SourcePath$,FileName$,IDName$)
3970
3980 PROC_CreateModuleHeader
3990 PROC_CreatePath("")
4000 SYS "OS_File",10,FileName$,&FFA,,Code%,LastByte%
4010
4020ENDPROC
4030
4040
4050
4060DEFPROC_CreateModuleHeader
4070
4080 Title$ =FN_OSString(ModName%)
4090 REM INPUT "Please enter the module title :" Title$
4100 PRINT "Assembling Module Header..."
4110 FOR Pass% = 4 TO 6 STEP 2
4120 O%=Code%
4130 P%=&00000000
4140 [
4150 OPT Pass%
4160
4170 EQUD &00000000
4180 EQUD Start%
4190 EQUD End%
4200 EQUD Service%
4210 EQUD Title%
4220 EQUD Help%
4230 EQUD &00000000
4240 EQUD &00000000
4250 EQUD &00000000
4260 EQUD &00000000
4270 EQUD &00000000
4280
4290 .Title%
4300 EQUS Title$
4310 EQUB &00
4320 ALIGN
4330
4340 .Help%
4350 EQUS Title$
4360 EQUW &0909
4370 EQUS "1.10 (26 Nov 1992) By Joseph Walker"
4380 EQUB &00
4390 ALIGN
4400
4410 .Start%
4420 STMFD R13!,{R0,R14}
4430 ADR R0,TableOffset%
4440 SWI "XResourceFS_RegisterFiles"
4450 LDMFD R13!,{R0,PC}^
4460
4470 .End%
4480 STMFD R13!,{R0,R14}
4490 ADR R0,TableOffset%
4500 SWI "XResourceFS_DeregisterFiles"
4510 LDMFD R13!,{R0,PC}^
4520
4530 .Service%
4540 TEQ R1,#&60
4550 MOVNE PC,R14
4560 STMFD R13!,{R0-R3,R14}
4570 ADR R0,TableOffset%
4580 MOV R14,PC
4590 MOV PC,R2
4600 EQUD &E8FD800F
4610
4620 .TableOffset%
4630 ]
4640
4650 NEXT Pass%
4660
4670 Table% =Code% +TableOffset%
4680 LastByte% =O%
4690
4700ENDPROC
4710
4720
4730
4740DEFPROC_CreatePath(ExtPath$)
4750
4760 LOCAL Next% ,LeafName$, FileName$
4770 LOCAL TempSource$ ,TempFile$
4780
4790 PRINT "Creating files in directory :" SourcePath$ ExtPath$
4800 Next% =0
4810
4820 REPEAT
4830
4840 SYS "OS_GBPB",10,SourcePath$+ExtPath$,Block%,1,Next%,256,"*" TO ,,Read%,,Next%
4850 IF Next% <>-1 THEN
4860 LeafName$ =FN_OSString(Read%+20)
4870
4880 IF(Read%!16) =2 THEN
4890 IF ExtPath$ ="" THEN
4900 PROC_CreatePath("." +LeafName$)
4910 ELSE
4920 PROC_CreatePath(ExtPath$ +"." +LeafName$)
4930 ENDIF
4940 ELSE
4950 IF ExtPath$ ="" THEN
4960 PROC_CreateFile(SourcePath$ +"." +LeafName$,LeafName$)
4970 ELSE
4980 TempSource$ =SourcePath$ +ExtPath$ +"." +LeafName$
4990 TempFile$ =MID$(ExtPath$,2) +"." +LeafName$
5000 PROC_CreateFile(TempSource$,TempFile$)
5010 ENDIF
5020 ENDIF
5030
5040 ENDIF
5050
5060 UNTIL Next% =-1
5070
5080ENDPROC
5090
5100
5110
5120DEFPROC_CreateFile(SourceFileName$,DestFileName$)
5130
5140 PRINT " Creating File :" DestFileName$
5150 SYS "OS_File",17,SourceFileName$ TO Type%,,LoadAddr%,ExecAddr%,FileLength%,Attrib%
5160 IF Type% =0 THEN ERROR 0,"Not Found"
5170 IF Type% =2 THEN ERROR 0,"Can't do directories yet"
5180 IF FileLength% >500*1024 THEN ERROR 0,"Very Long File"
5190
5200 NameEnd% =20 +LEN(DestFileName$)
5210 Offset% =NameEnd% +4 -NameEnd% MOD 4
5220 FileStart% =Table% +Offset% +4
5230 FileEnd% =FileStart% +FileLength%
5240 NextTable% =FileEnd% +4 -FileEnd% MOD 4
5250
5260 Table%!0 =NextTable% -Table%
5270 Table%!4 =LoadAddr%
5280 Table%!8 =ExecAddr%
5290 Table%!12 =FileEnd% -FileStart%
5300 Table%!16 =&00000003
5310 $(Table%+20) =DestFileName$ +STRING$(5,CHR$0)
5320 Table%!Offset% =4 +FileEnd% -FileStart%
5330 FOR n% =FileStart% +FileLength% TO FileStart% +FileLength% +5
5340 ?n% =0
5350 NEXT
5360 SYS "OS_File",16,SourceFileName$,FileStart%
5370
5380 NextTable%!0 =0
5390 NextTable%!4 =0
5400
5410 Table% =NextTable%
5420 LastByte% =NextTable% +8
5430
5440ENDPROC
5450
5460
5470
5480DEFPROC_Error
5490
5500 LOCAL Error$,Answer%
5510 LOCAL ERROR
5520 ON ERROR LOCAL SYS "Wimp_CloseDown": END
5530
5540 Error$ =REPORT$ +" (Error Code "+STR$(ERL)+") OK to Continue, CANCEL to QUIT"
5550 Answer% =FN_Message(Error$,3)
5560
5570 IF Answer% =0 THEN
5580 SYS "Wimp_CloseDown"
5590 END
5600 ENDIF
5610
5620 RESTORE ERROR
5630
5640ENDPROC
5650
5660
5670
5680DEFPROC_Initalise
5690
5700 DIM Block% 1024, SubBlock% 1024
5710 DIM Code% MaxModSize%*&400
5720 Exit% =FALSE
5730
5740 App$ ="ResourceFS Modifier"
5750 SYS "Wimp_Initialise",200,&4B534154,App$ TO Wimp%,Task%
5760
5770 SourceDirIcon% =9 :ModNameIcon% =10
5780 FileNameIcon% =11
5790 HelpIcon% =13 :DragIcon% =12
5800 DIM TemplateSpace% 1024
5810 TemplatePtr% =TemplateSpace%
5820 TemplateEnd% =TemplateSpace% +1024
5830
5840 SYS "Wimp_OpenTemplate",,"<ResMod$Dir>.Templates"
5850 SYS "Wimp_LoadTemplate",,Block%,TemplatePtr%,TemplateEnd%,-1,"Info",0 TO ,,TemplatePtr%
5860 SYS "Wimp_CreateWindow",,Block% TO InfoWin%
5870 SYS "Wimp_LoadTemplate",,Block%,TemplatePtr%,TemplateEnd%,-1,"Main",0 TO ,,TemplatePtr%
5880 SYS "Wimp_CreateWindow",,Block% TO MainWin%
5890 SYS "Wimp_CloseTemplate"
5900
5910 SubBlock%!0 =MainWin%
5920 SYS "Wimp_GetWindowState",0,SubBlock%
5930 SubBlock%!28 =-1
5940 SYS "Wimp_OpenWindow",0,SubBlock%
5950 SourceDir% =FN_GetIndir(MainWin%,SourceDirIcon%)
5960 ModName% =FN_GetIndir(MainWin%,ModNameIcon%)
5970 FileIcon% =FN_GetIndir(MainWin%,FileNameIcon%)
5980
5990ENDPROC
6000
6010
6020
� >!RunImage
� Program Wimp Control
� Author � Joseph Walker
(� Version 1.10
2!� Date 26th November 1992
< � Program Not Public Domain
F
P MaxModSize% =490
Z �_Initalise
d � � �_Error
n
x �
� Block%!0 =0
�) ș "Wimp_Poll",0,Block% � Reason%
� Ȏ Reason% �
�" � 1 :�_RedrawWindow
�0 � 2 :ș "Wimp_OpenWindow",,Block%
�1 � 3 :ș "Wimp_CloseWindow",,Block%
� Exit% =�
� � 6 :�_MouseClick
� � 7 :�_DragEnd
�$ � 17,18 :�_RecieveMessage
� �
�
� Exit%
�
# ș "Wimp_CloseDown",&4B534154
�
"
,
6
@��_RedrawWindow
J
T, ș "Wimp_RedrawWindow",,Block% � More%
^ ȕ More%
h& ș "Wimp_BorderWindow",,Block%
r. ș "Wimp_GetRectangle",,Block% � More%
| �
�
��
�
�
�
���_MouseClick
�
� Button% =Block%!8
� Window% =Block%!12
� Icon% =Block%!16
�
� Ȏ Button% �
�R � 1,4 :� Icon% =HelpIcon% � ș "Wimp_StartTask","Run <ResMod$Dir>.!Help"
! � 2 :�_SetPointerVars
E ș "Wimp_CreateMenu",,InfoWin%,MouseX%-68,MouseY%
� 16,64 :�_DragStart
& �
0
:�
D
N
X
b��_DragStart
l
v �_SetWindowVars
� Block%!0 =MainWin%
� Block%!4 =DragIcon%
�$ ș "Wimp_GetIconState",,Block%
�
� Block%!0 =MainWin%
� Block%!4 =5
� Block%!8 +=DispX%
� Block%!12 +=DispY%
� Block%!16 +=DispX%
� Block%!20 +=DispY%
� Block%!24 =0
� Block%!28 =0
� Block%!32 =&7FFFFFFF
Block%!36 =&7FFFFFFF
ș "Wimp_DragBox",,Block%
�
*
4
>
H��_DragEnd
R
\ �_SetWindowVars
f �_SetPointerVars
p
z& FileName$ =�_OSString(FileIcon%)
�) LeafName$ =�_GetLeafName(FileName$)
�
�+ Block%!0 =80 :� message length
�# Block%!4 =0 :� unused
� Block%!8 =0
� Block%!12 =0
�) Block%!16 =1 :� message type
� Block%!20 =Window%
� Block%!24 =Icon%
� Block%!28 =MouseX%
� Block%!32 =MouseY%
�- Block%!36 =1024 :� est. data length
� Block%!40 =&FFA
$(Block%+44) =LeafName$
3 ș "Wimp_SendMessage",17,Block%,Window%,Icon%
$�
.
8
B
L��_RecieveMessage
V
` YourHndl% =Block%!4
j MyRef% =Block%!8
t YourRef% =Block%!12
~ Action% =Block%!16
�
� Ȏ Action% �
� � 0 :Exit% =�
�" � 2 :�_Message_DataSaveAck
� � 3 :�_Message_DataLoad
�! � 4 :�_Ignore_DataLoadAck
� �
�
��
�
�
�
��_Message_DataSaveAck
( FileName$ =�_OSString(Block%+44)
) SourceName$ =�_OSString(SourceDir%)
(' IDName$ =�_OSString(ModName%)
2
<& � �_CheckFileName(FileName$,�) �
F( ș "Wimp_CommandWindow","ResMod"
P+ Ȏ ��_GetLeafName(SourceName$),1) �
ZA � "!" :�_SaveVirtualApp(SourceName$,FileName$,IDName$)
d; :�_SaveDirectory(SourceName$,FileName$,IDName$)
n �
x" ș "Wimp_CommandWindow",-1
� Exit% =�
� �
�
��
�
�
�
���_Message_DataLoad
�
� FileType% =Block%!40
�& FileName$ =�_OSString(Block%+44)
�
� $SourceDir% =FileName$
�_SendDataLoadAck
�_ForceRedraw
"�
,
6
@
J��_SendDataLoadAck
T
^ � needs debugging
h Block%!12 =MyRef%
r Block%!16 =4
|/ ș "Wimp_SendMessage",17,Block%,YourHndl%
�
��
�
�
�
�$ݤ_GetIndir(GetWindow%,GetIcon%)
�
� � TextPtr%
�
� SubBlock%!0 =GetWindow%
� SubBlock%!4 =GetIcon%
�' ș "Wimp_GetIconState",,SubBlock%
� TextPtr% =SubBlock%!28
=TextPtr%
&
0
:��_ForceRedraw
D
N SubBlock%!0 =MainWin%
X) ș "Wimp_GetWindowState",,SubBlock%
b3 VisMinX% =SubBlock%!4 :VisMinY% =SubBlock%!8
l4 VisMaxX% =SubBlock%!12 :VisMaxY% =SubBlock%!16
vB ș "Wimp_ForceRedraw",-1,VisMinX%,VisMinY%,VisMaxX%,VisMaxY%
�
��
�
�
�
� ݤ_Message(Message$,Flags%)
�
�T � flag bit 0: OK box, bit 1: Cancel box, bit 4: Don't prefix with 'Error from'
� � Answer%
�
� � Message$ ="" � =�
�
� !SubBlock% =0
$(SubBlock%+4)=Message$
< ș "Wimp_ReportError",SubBlock%,Flags%,App$ � ,Answer%
� Answer% =1 �
* Answer% =�
4 �
> Answer% =�
H �
R
\ =Answer%
f
p
z
�ݤ_OSString(Address%)
�
� � LocalAddr%,Old%,String$
� � �
�M � � � OK% =�_Message("Invalid memory address (address exception?)",0):�
� LocalAddr% =Address%
�
�, ȕ ?LocalAddr% >31 � ?LocalAddr% <>127
� LocalAddr% +=1
�$ � LocalAddr% >Address%+255 �
�O OK% =�_Messaage("String longer than 255 bytes: Invalid address?",0):�
� �
� �
Old% =?LocalAddr%
?LocalAddr% =13
$ String$ =$Address%
. ?LocalAddr% =Old%
8
B =String$
L
V
`
j ݤ_GetLeafName(FileName$)
t
~
� n%
�1 � �FileName$,"<Wimp$Scrap>") � ="ScrapFile"
�
� n% =� FileName$
�% ȕ �FileName$,n%,1) =" " � n%>0
� n% -=1
� �
�
� FileName$ =�FileName$,n%)
�& ȕ �FileName$,n%,1) <>"." � n%>0
� n% -=1
� �
�
=�FileName$,n%+1)
(.ݤ_CheckFileName(Gen_Name$,Gen_CheckPath%)
2
<, � Gen_Name$ ="" � �Gen_Name$,1) ="." �
F= A% =�_Message("You must first specify a filename!",1)
P
=�
Z �
d
n- � Gen_CheckPath% � �Gen_Name$,".") =0 �
xI A% =�_Message("To save, drag file icon to a directory viewer.",1)
�
=�
� �
�
�=�
�
�
�
���_SetPointerVars
�
�) ș "Wimp_GetPointerInfo",,SubBlock%
� MouseX% =SubBlock%!0
� MouseY% =SubBlock%!4
� Button% =SubBlock%!8
Window% =SubBlock%!12
Icon% =SubBlock%!16
"�
,
6
@
J��_SetWindowVars
T
^ SubBlock%!0 =MainWin%
h) ș "Wimp_GetWindowState",,SubBlock%
r3 VisMinX% =SubBlock%!4 :VisMinY% =SubBlock%!8
|4 VisMaxX% =SubBlock%!12 :VisMaxY% =SubBlock%!16
�4 ScrollX% =SubBlock%!20 :ScrollY% =SubBlock%!24
� DispX% =VisMinX% -ScrollX%
� DispY% =VisMaxY% -ScrollY%
�
��
�
�
�
�4��_SaveVirtualApp(SourceName$,FileName$,IDName$)
�
� AppName$ =SourceName$
� � �AppName$,".") �
� �
/ AppName$ =�AppName$,�AppName$,".")+1)
� �AppName$,".")=0
�
&
0 � Pass% = 4 � 6 � 2
: O%=Code%
D P%=&00000000
N [
X OPT Pass%
b
l EQUD &00000000
v EQUD Start%
� EQUD End%
� EQUD Service%
� EQUD Title%
� EQUD Help%
� EQUD &00000000
� EQUD &00000000
� EQUD &00000000
� EQUD &00000000
� EQUD &00000000
�
� .Title%
� EQUS IDName$ +�0
� ALIGN
.Help%
! EQUS IDName$ +�9 +�9
; EQUS "1.10 (26 Oct 1992) By Joseph Walker" +�0
* ALIGN
4
> .Start%
H STMFD R13!,{R0,R14}
R ADR R0,BootFile%
\- SWI "XResourceFS_RegisterFiles"
f LDMFD R13!,{R0,PC}^
p
z
.End%
� STMFD R13!,{R0,R14}
� ADR R0,BootFile%
�/ SWI "XResourceFS_DeregisterFiles"
� LDMFD R13!,{R0,PC}^
�
� .Service%
� TEQ R1,#&60
� MOVNE PC,R14
�" STMFD R13!,{R0-R3,R14}
� ADR R0,BootFile%
� MOV R14,PC
� MOV PC,R2
�" LDMFD R13!,{R0-R3,PC}^
.BootFile%
EQUD RunFile% -P%
$ EQUD &FFFFEB44
. EQUD &31A75225
8# EQUD 11 +� SourceName$
B EQUD &00000003
L1 EQUS "Apps." +AppName$ +".!Boot" +�0
V ALIGN
`# EQUD 15 +� SourceName$
j0 EQUS "Filer_Boot " +SourceName$ +�0
t ALIGN
~
� .RunFile%
� EQUD Blank% -P%
� EQUD &FFFFEB44
� EQUD &31A75568
�# EQUD 10 +� SourceName$
� EQUD &00000003
�0 EQUS "Apps." +AppName$ +".!Run" +�0
� ALIGN
�# EQUD 14 +� SourceName$
�/ EQUS "Filer_Run " +SourceName$ +�0
� ALIGN
�
.Blank%
EQUD &00000000
]
( � "Pass ";Pass%;" successful..."
(
� Pass%
2
<. ș "OS_File",10,FileName$,&FFA,,Code%,O%
F
P�
Z
d
n
x3��_SaveDirectory(SourcePath$,FileName$,IDName$)
�
� �_CreateModuleHeader
� �_CreatePath("")
�5 ș "OS_File",10,FileName$,&FFA,,Code%,LastByte%
�
��
�
�
�
���_CreateModuleHeader
�
�" Title$ =�_OSString(ModName%)
�6 � INPUT "Please enter the module title :" Title$
% � "Assembling Module Header..."
� Pass% = 4 � 6 � 2
O%=Code%
" P%=&00000000
, [
6 OPT Pass%
@
J EQUD &00000000
T EQUD Start%
^ EQUD End%
h EQUD Service%
r EQUD Title%
| EQUD Help%
� EQUD &00000000
� EQUD &00000000
� EQUD &00000000
� EQUD &00000000
� EQUD &00000000
�
� .Title%
� EQUS Title$
� EQUB &00
� ALIGN
�
� .Help%
� EQUS Title$
EQUW &0909
7 EQUS "1.10 (26 Nov 1992) By Joseph Walker"
EQUB &00
& ALIGN
0
: .Start%
D STMFD R13!,{R0,R14}
N! ADR R0,TableOffset%
X- SWI "XResourceFS_RegisterFiles"
b LDMFD R13!,{R0,PC}^
l
v
.End%
� STMFD R13!,{R0,R14}
�! ADR R0,TableOffset%
�/ SWI "XResourceFS_DeregisterFiles"
� LDMFD R13!,{R0,PC}^
�
� .Service%
� TEQ R1,#&60
� MOVNE PC,R14
�" STMFD R13!,{R0-R3,R14}
�! ADR R0,TableOffset%
� MOV R14,PC
� MOV PC,R2
� EQUD &E8FD800F
.TableOffset%
]
*
� Pass%
4
>$ Table% =Code% +TableOffset%
H LastByte% =O%
R
\�
f
p
z
���_CreatePath(ExtPath$)
�
�# � Next% ,LeafName$, FileName$
� � TempSource$ ,TempFile$
�
�< � "Creating files in directory :" SourcePath$ ExtPath$
� Next% =0
�
� �
�
�T ș "OS_GBPB",10,SourcePath$+ExtPath$,Block%,1,Next%,256,"*" � ,,Read%,,Next%
� � Next% <>-1 �
�) LeafName$ =�_OSString(Read%+20)
�(Read%!16) =2 �
� ExtPath$ ="" �
$* �_CreatePath("." +LeafName$)
.
�
84 �_CreatePath(ExtPath$ +"." +LeafName$)
B
�
L �
V � ExtPath$ ="" �
`A �_CreateFile(SourcePath$ +"." +LeafName$,LeafName$)
j
�
t@ TempSource$ =SourcePath$ +ExtPath$ +"." +LeafName$
~7 TempFile$ =�ExtPath$,2) +"." +LeafName$
�1 �_CreateFile(TempSource$,TempFile$)
�
�
� �
�
� �
�
� � Next% =-1
�
��
�
�
�
0��_CreateFile(SourceFileName$,DestFileName$)
) � " Creating File :" DestFileName$
V ș "OS_File",17,SourceFileName$ � Type%,,LoadAddr%,ExecAddr%,FileLength%,Attrib%
(" � Type% =0 � � 0,"Not Found"
21 � Type% =2 � � 0,"Can't do directories yet"
<4 � FileLength% >500*1024 � � 0,"Very Long File"
F
P* NameEnd% =20 +�(DestFileName$)
Z/ Offset% =NameEnd% +4 -NameEnd% � 4
d( FileStart% =Table% +Offset% +4
n- FileEnd% =FileStart% +FileLength%
x/ NextTable% =FileEnd% +4 -FileEnd% � 4
�
�( Table%!0 =NextTable% -Table%
� Table%!4 =LoadAddr%
� Table%!8 =ExecAddr%
�* Table%!12 =FileEnd% -FileStart%
� Table%!16 =&00000003
�+ $(Table%+20) =DestFileName$ +�5,�0)
�- Table%!Offset% =4 +FileEnd% -FileStart%
�@ � n% =FileStart% +FileLength% � FileStart% +FileLength% +5
� ?n% =0
� �
�0 ș "OS_File",16,SourceFileName$,FileStart%
�
NextTable%!0 =0
NextTable%!4 =0
" Table% =NextTable%
,# LastByte% =NextTable% +8
6
@�
J
T
^
h ��_Error
r
| � Error$,Answer%
� � �
�" � � � ș "Wimp_CloseDown": �
�
�L Error$ =�$ +" (Error Code "+�(�)+") OK to Continue, CANCEL to QUIT"
�" Answer% =�_Message(Error$,3)
�
� � Answer% =0 �
� ș "Wimp_CloseDown"
� �
� �
�
� � �
�
�
&
0��_Initalise
:
D# � Block% 1024, SubBlock% 1024
N � Code% MaxModSize%*&400
X Exit% =�
b
l! App$ ="ResourceFS Modifier"
v; ș "Wimp_Initialise",200,&4B534154,App$ � Wimp%,Task%
�
�* SourceDirIcon% =9 :ModNameIcon% =10
� FileNameIcon% =11
�* HelpIcon% =13 :DragIcon% =12
� � TemplateSpace% 1024
�$ TemplatePtr% =TemplateSpace%
�* TemplateEnd% =TemplateSpace% +1024
�
�6 ș "Wimp_OpenTemplate",,"<ResMod$Dir>.Templates"
�[ ș "Wimp_LoadTemplate",,Block%,TemplatePtr%,TemplateEnd%,-1,"Info",0 � ,,TemplatePtr%
�/ ș "Wimp_CreateWindow",,Block% � InfoWin%
�[ ș "Wimp_LoadTemplate",,Block%,TemplatePtr%,TemplateEnd%,-1,"Main",0 � ,,TemplatePtr%
�/ ș "Wimp_CreateWindow",,Block% � MainWin%
ș "Wimp_CloseTemplate"
SubBlock%!0 =MainWin%
* ș "Wimp_GetWindowState",0,SubBlock%
* SubBlock%!28 =-1
4& ș "Wimp_OpenWindow",0,SubBlock%
>5 SourceDir% =�_GetIndir(MainWin%,SourceDirIcon%)
H3 ModName% =�_GetIndir(MainWin%,ModNameIcon%)
R4 FileIcon% =�_GetIndir(MainWin%,FileNameIcon%)
\
f�
p
z
�
� 00000000 0d 00 0a 19 f4 20 20 20 20 20 20 20 20 20 20 3e |..... >|
00000010 21 52 75 6e 49 6d 61 67 65 0d 00 14 1b f4 20 50 |!RunImage..... P|
00000020 72 6f 67 72 61 6d 20 20 57 69 6d 70 20 43 6f 6e |rogram Wimp Con|
00000030 74 72 6f 6c 0d 00 1e 1e f4 20 41 75 74 68 6f 72 |trol..... Author|
00000040 20 20 20 a9 20 4a 6f 73 65 70 68 20 57 61 6c 6b | . Joseph Walk|
00000050 65 72 0d 00 28 13 f4 20 56 65 72 73 69 6f 6e 20 |er..(.. Version |
00000060 20 31 2e 31 30 0d 00 32 21 f4 20 44 61 74 65 20 | 1.10..2!. Date |
00000070 20 20 20 20 32 36 74 68 20 4e 6f 76 65 6d 62 65 | 26th Novembe|
00000080 72 20 31 39 39 32 0d 00 3c 20 f4 20 50 72 6f 67 |r 1992..< . Prog|
00000090 72 61 6d 20 20 4e 6f 74 20 50 75 62 6c 69 63 20 |ram Not Public |
000000a0 44 6f 6d 61 69 6e 0d 00 46 04 0d 00 50 16 20 20 |Domain..F...P. |
000000b0 4d 61 78 4d 6f 64 53 69 7a 65 25 20 3d 34 39 30 |MaxModSize% =490|
000000c0 0d 00 5a 11 20 20 f2 5f 49 6e 69 74 61 6c 69 73 |..Z. ._Initalis|
000000d0 65 0d 00 64 11 20 20 ee 20 85 20 f2 5f 45 72 72 |e..d. . . ._Err|
000000e0 6f 72 0d 00 6e 04 0d 00 78 07 20 20 f5 0d 00 82 |or..n...x. ....|
000000f0 13 20 20 20 20 42 6c 6f 63 6b 25 21 30 20 3d 30 |. Block%!0 =0|
00000100 0d 00 8c 29 20 20 20 20 c8 99 20 22 57 69 6d 70 |...) .. "Wimp|
00000110 5f 50 6f 6c 6c 22 2c 30 2c 42 6c 6f 63 6b 25 20 |_Poll",0,Block% |
00000120 b8 20 52 65 61 73 6f 6e 25 0d 00 96 14 20 20 20 |. Reason%.... |
00000130 20 c8 8e 20 52 65 61 73 6f 6e 25 20 ca 0d 00 a0 | .. Reason% ....|
00000140 22 20 20 20 20 20 20 c9 20 31 20 20 20 20 20 20 |" . 1 |
00000150 3a f2 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 0d |:._RedrawWindow.|
00000160 00 aa 30 20 20 20 20 20 20 c9 20 32 20 20 20 20 |..0 . 2 |
00000170 20 20 3a c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e | :.. "Wimp_Open|
00000180 57 69 6e 64 6f 77 22 2c 2c 42 6c 6f 63 6b 25 0d |Window",,Block%.|
00000190 00 b4 31 20 20 20 20 20 20 c9 20 33 20 20 20 20 |..1 . 3 |
000001a0 20 20 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 | :.. "Wimp_Clos|
000001b0 65 57 69 6e 64 6f 77 22 2c 2c 42 6c 6f 63 6b 25 |eWindow",,Block%|
000001c0 0d 00 be 1f 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
000001d0 20 20 20 20 20 20 20 45 78 69 74 25 20 3d b9 0d | Exit% =..|
000001e0 00 c8 20 20 20 20 20 20 20 c9 20 36 20 20 20 20 |.. . 6 |
000001f0 20 20 3a f2 5f 4d 6f 75 73 65 43 6c 69 63 6b 0d | :._MouseClick.|
00000200 00 d2 1d 20 20 20 20 20 20 c9 20 37 20 20 20 20 |... . 7 |
00000210 20 20 3a f2 5f 44 72 61 67 45 6e 64 0d 00 dc 24 | :._DragEnd...$|
00000220 20 20 20 20 20 20 c9 20 31 37 2c 31 38 20 20 3a | . 17,18 :|
00000230 f2 5f 52 65 63 69 65 76 65 4d 65 73 73 61 67 65 |._RecieveMessage|
00000240 0d 00 e6 09 20 20 20 20 cb 0d 00 f0 0d 20 20 fd |.... ..... .|
00000250 20 45 78 69 74 25 0d 00 fa 04 0d 01 04 23 20 20 | Exit%.......# |
00000260 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f |.. "Wimp_CloseDo|
00000270 77 6e 22 2c 26 34 42 35 33 34 31 35 34 0d 01 0e |wn",&4B534154...|
00000280 04 0d 01 18 05 e0 0d 01 22 04 0d 01 2c 04 0d 01 |........"...,...|
00000290 36 04 0d 01 40 13 dd f2 5f 52 65 64 72 61 77 57 |6...@..._RedrawW|
000002a0 69 6e 64 6f 77 0d 01 4a 04 0d 01 54 2c 20 20 c8 |indow..J...T, .|
000002b0 99 20 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 |. "Wimp_RedrawWi|
000002c0 6e 64 6f 77 22 2c 2c 42 6c 6f 63 6b 25 20 b8 20 |ndow",,Block% . |
000002d0 4d 6f 72 65 25 0d 01 5e 0e 20 20 c8 95 20 4d 6f |More%..^. .. Mo|
000002e0 72 65 25 0d 01 68 26 20 20 20 20 c8 99 20 22 57 |re%..h& .. "W|
000002f0 69 6d 70 5f 42 6f 72 64 65 72 57 69 6e 64 6f 77 |imp_BorderWindow|
00000300 22 2c 2c 42 6c 6f 63 6b 25 0d 01 72 2e 20 20 20 |",,Block%..r. |
00000310 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 52 65 63 | .. "Wimp_GetRec|
00000320 74 61 6e 67 6c 65 22 2c 2c 42 6c 6f 63 6b 25 20 |tangle",,Block% |
00000330 b8 20 4d 6f 72 65 25 0d 01 7c 07 20 20 ce 0d 01 |. More%..|. ...|
00000340 86 04 0d 01 90 05 e1 0d 01 9a 04 0d 01 a4 04 0d |................|
00000350 01 ae 04 0d 01 b8 11 dd f2 5f 4d 6f 75 73 65 43 |........._MouseC|
00000360 6c 69 63 6b 0d 01 c2 04 0d 01 cc 17 20 20 42 75 |lick........ Bu|
00000370 74 74 6f 6e 25 20 3d 42 6c 6f 63 6b 25 21 38 0d |tton% =Block%!8.|
00000380 01 d6 18 20 20 57 69 6e 64 6f 77 25 20 3d 42 6c |... Window% =Bl|
00000390 6f 63 6b 25 21 31 32 0d 01 e0 18 20 20 49 63 6f |ock%!12.... Ico|
000003a0 6e 25 20 20 20 3d 42 6c 6f 63 6b 25 21 31 36 0d |n% =Block%!16.|
000003b0 01 ea 04 0d 01 f4 12 20 20 c8 8e 20 42 75 74 74 |....... .. Butt|
000003c0 6f 6e 25 20 ca 0d 01 fe 52 20 20 20 20 c9 20 31 |on% ....R . 1|
000003d0 2c 34 20 20 20 3a e7 20 49 63 6f 6e 25 20 3d 48 |,4 :. Icon% =H|
000003e0 65 6c 70 49 63 6f 6e 25 20 8c 20 c8 99 20 22 57 |elpIcon% . .. "W|
000003f0 69 6d 70 5f 53 74 61 72 74 54 61 73 6b 22 2c 22 |imp_StartTask","|
00000400 52 75 6e 20 3c 52 65 73 4d 6f 64 24 44 69 72 3e |Run <ResMod$Dir>|
00000410 2e 21 48 65 6c 70 22 0d 02 08 21 20 20 20 20 c9 |.!Help"...! .|
00000420 20 32 20 20 20 20 20 3a f2 5f 53 65 74 50 6f 69 | 2 :._SetPoi|
00000430 6e 74 65 72 56 61 72 73 0d 02 12 45 20 20 20 20 |nterVars...E |
00000440 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 | .. "|
00000450 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
00000460 2c 2c 49 6e 66 6f 57 69 6e 25 2c 4d 6f 75 73 65 |,,InfoWin%,Mouse|
00000470 58 25 2d 36 38 2c 4d 6f 75 73 65 59 25 0d 02 1c |X%-68,MouseY%...|
00000480 1c 20 20 20 20 c9 20 31 36 2c 36 34 20 3a f2 5f |. . 16,64 :._|
00000490 44 72 61 67 53 74 61 72 74 0d 02 26 07 20 20 cb |DragStart..&. .|
000004a0 0d 02 30 04 0d 02 3a 05 e1 0d 02 44 04 0d 02 4e |..0...:....D...N|
000004b0 04 0d 02 58 04 0d 02 62 10 dd f2 5f 44 72 61 67 |...X...b..._Drag|
000004c0 53 74 61 72 74 0d 02 6c 04 0d 02 76 15 20 20 f2 |Start..l...v. .|
000004d0 5f 53 65 74 57 69 6e 64 6f 77 56 61 72 73 0d 02 |_SetWindowVars..|
000004e0 80 18 20 20 42 6c 6f 63 6b 25 21 30 20 3d 4d 61 |.. Block%!0 =Ma|
000004f0 69 6e 57 69 6e 25 0d 02 8a 19 20 20 42 6c 6f 63 |inWin%.... Bloc|
00000500 6b 25 21 34 20 3d 44 72 61 67 49 63 6f 6e 25 0d |k%!4 =DragIcon%.|
00000510 02 94 24 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 |..$ .. "Wimp_Ge|
00000520 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 42 6c 6f |tIconState",,Blo|
00000530 63 6b 25 0d 02 9e 04 0d 02 a8 19 20 20 42 6c 6f |ck%........ Blo|
00000540 63 6b 25 21 30 20 20 3d 4d 61 69 6e 57 69 6e 25 |ck%!0 =MainWin%|
00000550 0d 02 b2 12 20 20 42 6c 6f 63 6b 25 21 34 20 20 |.... Block%!4 |
00000560 3d 35 0d 02 bc 18 20 20 42 6c 6f 63 6b 25 21 38 |=5.... Block%!8|
00000570 20 20 2b 3d 44 69 73 70 58 25 0d 02 c6 18 20 20 | +=DispX%.... |
00000580 42 6c 6f 63 6b 25 21 31 32 20 2b 3d 44 69 73 70 |Block%!12 +=Disp|
00000590 59 25 0d 02 d0 18 20 20 42 6c 6f 63 6b 25 21 31 |Y%.... Block%!1|
000005a0 36 20 2b 3d 44 69 73 70 58 25 0d 02 da 18 20 20 |6 +=DispX%.... |
000005b0 42 6c 6f 63 6b 25 21 32 30 20 2b 3d 44 69 73 70 |Block%!20 +=Disp|
000005c0 59 25 0d 02 e4 12 20 20 42 6c 6f 63 6b 25 21 32 |Y%.... Block%!2|
000005d0 34 20 3d 30 0d 02 ee 12 20 20 42 6c 6f 63 6b 25 |4 =0.... Block%|
000005e0 21 32 38 20 3d 30 0d 02 f8 1a 20 20 42 6c 6f 63 |!28 =0.... Bloc|
000005f0 6b 25 21 33 32 20 3d 26 37 46 46 46 46 46 46 46 |k%!32 =&7FFFFFFF|
00000600 0d 03 02 1a 20 20 42 6c 6f 63 6b 25 21 33 36 20 |.... Block%!36 |
00000610 3d 26 37 46 46 46 46 46 46 46 0d 03 0c 1f 20 20 |=&7FFFFFFF.... |
00000620 c8 99 20 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 |.. "Wimp_DragBox|
00000630 22 2c 2c 42 6c 6f 63 6b 25 0d 03 16 04 0d 03 20 |",,Block%...... |
00000640 05 e1 0d 03 2a 04 0d 03 34 04 0d 03 3e 04 0d 03 |....*...4...>...|
00000650 48 0e dd f2 5f 44 72 61 67 45 6e 64 0d 03 52 04 |H..._DragEnd..R.|
00000660 0d 03 5c 15 20 20 f2 5f 53 65 74 57 69 6e 64 6f |..\. ._SetWindo|
00000670 77 56 61 72 73 0d 03 66 16 20 20 f2 5f 53 65 74 |wVars..f. ._Set|
00000680 50 6f 69 6e 74 65 72 56 61 72 73 0d 03 70 04 0d |PointerVars..p..|
00000690 03 7a 26 20 20 46 69 6c 65 4e 61 6d 65 24 20 3d |.z& FileName$ =|
000006a0 a4 5f 4f 53 53 74 72 69 6e 67 28 46 69 6c 65 49 |._OSString(FileI|
000006b0 63 6f 6e 25 29 0d 03 84 29 20 20 4c 65 61 66 4e |con%)...) LeafN|
000006c0 61 6d 65 24 20 3d a4 5f 47 65 74 4c 65 61 66 4e |ame$ =._GetLeafN|
000006d0 61 6d 65 28 46 69 6c 65 4e 61 6d 65 24 29 0d 03 |ame(FileName$)..|
000006e0 8e 04 0d 03 98 2b 20 20 42 6c 6f 63 6b 25 21 30 |.....+ Block%!0|
000006f0 20 20 3d 38 30 20 20 20 20 20 20 20 3a f4 20 6d | =80 :. m|
00000700 65 73 73 61 67 65 20 6c 65 6e 67 74 68 0d 03 a2 |essage length...|
00000710 23 20 20 42 6c 6f 63 6b 25 21 34 20 20 3d 30 20 |# Block%!4 =0 |
00000720 20 20 20 20 20 20 20 3a f4 20 75 6e 75 73 65 64 | :. unused|
00000730 0d 03 ac 12 20 20 42 6c 6f 63 6b 25 21 38 20 20 |.... Block%!8 |
00000740 3d 30 0d 03 b6 12 20 20 42 6c 6f 63 6b 25 21 31 |=0.... Block%!1|
00000750 32 20 3d 30 0d 03 c0 29 20 20 42 6c 6f 63 6b 25 |2 =0...) Block%|
00000760 21 31 36 20 3d 31 20 20 20 20 20 20 20 20 3a f4 |!16 =1 :.|
00000770 20 6d 65 73 73 61 67 65 20 74 79 70 65 0d 03 ca | message type...|
00000780 18 20 20 42 6c 6f 63 6b 25 21 32 30 20 3d 57 69 |. Block%!20 =Wi|
00000790 6e 64 6f 77 25 0d 03 d4 16 20 20 42 6c 6f 63 6b |ndow%.... Block|
000007a0 25 21 32 34 20 3d 49 63 6f 6e 25 0d 03 de 18 20 |%!24 =Icon%.... |
000007b0 20 42 6c 6f 63 6b 25 21 32 38 20 3d 4d 6f 75 73 | Block%!28 =Mous|
000007c0 65 58 25 0d 03 e8 18 20 20 42 6c 6f 63 6b 25 21 |eX%.... Block%!|
000007d0 33 32 20 3d 4d 6f 75 73 65 59 25 0d 03 f2 2d 20 |32 =MouseY%...- |
000007e0 20 42 6c 6f 63 6b 25 21 33 36 20 3d 31 30 32 34 | Block%!36 =1024|
000007f0 20 20 20 20 20 3a f4 20 65 73 74 2e 20 64 61 74 | :. est. dat|
00000800 61 20 6c 65 6e 67 74 68 0d 03 fc 15 20 20 42 6c |a length.... Bl|
00000810 6f 63 6b 25 21 34 30 20 3d 26 46 46 41 0d 04 06 |ock%!40 =&FFA...|
00000820 1d 20 20 24 28 42 6c 6f 63 6b 25 2b 34 34 29 20 |. $(Block%+44) |
00000830 3d 4c 65 61 66 4e 61 6d 65 24 0d 04 10 33 20 20 |=LeafName$...3 |
00000840 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |.. "Wimp_SendMes|
00000850 73 61 67 65 22 2c 31 37 2c 42 6c 6f 63 6b 25 2c |sage",17,Block%,|
00000860 57 69 6e 64 6f 77 25 2c 49 63 6f 6e 25 0d 04 1a |Window%,Icon%...|
00000870 04 0d 04 24 05 e1 0d 04 2e 04 0d 04 38 04 0d 04 |...$........8...|
00000880 42 04 0d 04 4c 15 dd f2 5f 52 65 63 69 65 76 65 |B...L..._Recieve|
00000890 4d 65 73 73 61 67 65 0d 04 56 04 0d 04 60 19 20 |Message..V...`. |
000008a0 20 59 6f 75 72 48 6e 64 6c 25 20 3d 42 6c 6f 63 | YourHndl% =Bloc|
000008b0 6b 25 21 34 0d 04 6a 19 20 20 4d 79 52 65 66 25 |k%!4..j. MyRef%|
000008c0 20 20 20 20 3d 42 6c 6f 63 6b 25 21 38 0d 04 74 | =Block%!8..t|
000008d0 1a 20 20 59 6f 75 72 52 65 66 25 20 20 3d 42 6c |. YourRef% =Bl|
000008e0 6f 63 6b 25 21 31 32 0d 04 7e 1a 20 20 41 63 74 |ock%!12..~. Act|
000008f0 69 6f 6e 25 20 20 20 3d 42 6c 6f 63 6b 25 21 31 |ion% =Block%!1|
00000900 36 0d 04 88 04 0d 04 92 12 20 20 c8 8e 20 41 63 |6........ .. Ac|
00000910 74 69 6f 6e 25 20 ca 0d 04 9c 15 20 20 20 20 c9 |tion% ..... .|
00000920 20 30 20 3a 45 78 69 74 25 20 3d b9 0d 04 a6 22 | 0 :Exit% =...."|
00000930 20 20 20 20 c9 20 32 20 3a f2 5f 4d 65 73 73 61 | . 2 :._Messa|
00000940 67 65 5f 44 61 74 61 53 61 76 65 41 63 6b 0d 04 |ge_DataSaveAck..|
00000950 b0 1f 20 20 20 20 c9 20 33 20 3a f2 5f 4d 65 73 |.. . 3 :._Mes|
00000960 73 61 67 65 5f 44 61 74 61 4c 6f 61 64 0d 04 ba |sage_DataLoad...|
00000970 21 20 20 20 20 c9 20 34 20 3a f4 5f 49 67 6e 6f |! . 4 :._Igno|
00000980 72 65 5f 44 61 74 61 4c 6f 61 64 41 63 6b 0d 04 |re_DataLoadAck..|
00000990 c4 07 20 20 cb 0d 04 ce 04 0d 04 d8 05 e1 0d 04 |.. ............|
000009a0 e2 04 0d 04 ec 04 0d 04 f6 04 0d 05 00 1a dd f2 |................|
000009b0 5f 4d 65 73 73 61 67 65 5f 44 61 74 61 53 61 76 |_Message_DataSav|
000009c0 65 41 63 6b 0d 05 0a 04 0d 05 14 28 20 20 46 69 |eAck.......( Fi|
000009d0 6c 65 4e 61 6d 65 24 20 20 20 3d a4 5f 4f 53 53 |leName$ =._OSS|
000009e0 74 72 69 6e 67 28 42 6c 6f 63 6b 25 2b 34 34 29 |tring(Block%+44)|
000009f0 0d 05 1e 29 20 20 53 6f 75 72 63 65 4e 61 6d 65 |...) SourceName|
00000a00 24 20 3d a4 5f 4f 53 53 74 72 69 6e 67 28 53 6f |$ =._OSString(So|
00000a10 75 72 63 65 44 69 72 25 29 0d 05 28 27 20 20 49 |urceDir%)..(' I|
00000a20 44 4e 61 6d 65 24 20 20 20 20 20 3d a4 5f 4f 53 |DName$ =._OS|
00000a30 53 74 72 69 6e 67 28 4d 6f 64 4e 61 6d 65 25 29 |String(ModName%)|
00000a40 0d 05 32 04 0d 05 3c 26 20 20 e7 20 a4 5f 43 68 |..2...<& . ._Ch|
00000a50 65 63 6b 46 69 6c 65 4e 61 6d 65 28 46 69 6c 65 |eckFileName(File|
00000a60 4e 61 6d 65 24 2c b9 29 20 8c 0d 05 46 28 20 20 |Name$,.) ...F( |
00000a70 20 20 c8 99 20 22 57 69 6d 70 5f 43 6f 6d 6d 61 | .. "Wimp_Comma|
00000a80 6e 64 57 69 6e 64 6f 77 22 2c 22 52 65 73 4d 6f |ndWindow","ResMo|
00000a90 64 22 0d 05 50 2b 20 20 20 20 c8 8e 20 c0 a4 5f |d"..P+ .. .._|
00000aa0 47 65 74 4c 65 61 66 4e 61 6d 65 28 53 6f 75 72 |GetLeafName(Sour|
00000ab0 63 65 4e 61 6d 65 24 29 2c 31 29 20 ca 0d 05 5a |ceName$),1) ...Z|
00000ac0 41 20 20 20 20 20 20 c9 20 22 21 22 20 20 3a f2 |A . "!" :.|
00000ad0 5f 53 61 76 65 56 69 72 74 75 61 6c 41 70 70 28 |_SaveVirtualApp(|
00000ae0 53 6f 75 72 63 65 4e 61 6d 65 24 2c 46 69 6c 65 |SourceName$,File|
00000af0 4e 61 6d 65 24 2c 49 44 4e 61 6d 65 24 29 0d 05 |Name$,IDName$)..|
00000b00 64 3b 20 20 20 20 20 20 7f 20 3a f2 5f 53 61 76 |d; . :._Sav|
00000b10 65 44 69 72 65 63 74 6f 72 79 28 53 6f 75 72 63 |eDirectory(Sourc|
00000b20 65 4e 61 6d 65 24 2c 46 69 6c 65 4e 61 6d 65 24 |eName$,FileName$|
00000b30 2c 49 44 4e 61 6d 65 24 29 0d 05 6e 09 20 20 20 |,IDName$)..n. |
00000b40 20 cb 0d 05 78 22 20 20 20 20 c8 99 20 22 57 69 | ...x" .. "Wi|
00000b50 6d 70 5f 43 6f 6d 6d 61 6e 64 57 69 6e 64 6f 77 |mp_CommandWindow|
00000b60 22 2c 2d 31 0d 05 82 10 20 20 20 20 45 78 69 74 |",-1.... Exit|
00000b70 25 20 3d b9 0d 05 8c 07 20 20 cd 0d 05 96 04 0d |% =..... ......|
00000b80 05 a0 05 e1 0d 05 aa 04 0d 05 b4 04 0d 05 be 04 |................|
00000b90 0d 05 c8 17 dd f2 5f 4d 65 73 73 61 67 65 5f 44 |......_Message_D|
00000ba0 61 74 61 4c 6f 61 64 0d 05 d2 04 0d 05 dc 1a 20 |ataLoad........ |
00000bb0 20 46 69 6c 65 54 79 70 65 25 20 3d 42 6c 6f 63 | FileType% =Bloc|
00000bc0 6b 25 21 34 30 0d 05 e6 26 20 20 46 69 6c 65 4e |k%!40...& FileN|
00000bd0 61 6d 65 24 20 3d a4 5f 4f 53 53 74 72 69 6e 67 |ame$ =._OSString|
00000be0 28 42 6c 6f 63 6b 25 2b 34 34 29 0d 05 f0 04 0d |(Block%+44).....|
00000bf0 05 fa 1c 20 20 24 53 6f 75 72 63 65 44 69 72 25 |... $SourceDir%|
00000c00 20 3d 46 69 6c 65 4e 61 6d 65 24 0d 06 04 17 20 | =FileName$.... |
00000c10 20 f2 5f 53 65 6e 64 44 61 74 61 4c 6f 61 64 41 | ._SendDataLoadA|
00000c20 63 6b 0d 06 0e 13 20 20 f2 5f 46 6f 72 63 65 52 |ck.... ._ForceR|
00000c30 65 64 72 61 77 0d 06 18 04 0d 06 22 05 e1 0d 06 |edraw......"....|
00000c40 2c 04 0d 06 36 04 0d 06 40 04 0d 06 4a 16 dd f2 |,...6...@...J...|
00000c50 5f 53 65 6e 64 44 61 74 61 4c 6f 61 64 41 63 6b |_SendDataLoadAck|
00000c60 0d 06 54 04 0d 06 5e 17 20 20 f4 20 6e 65 65 64 |..T...^. . need|
00000c70 73 20 64 65 62 75 67 67 69 6e 67 0d 06 68 17 20 |s debugging..h. |
00000c80 20 42 6c 6f 63 6b 25 21 31 32 20 3d 4d 79 52 65 | Block%!12 =MyRe|
00000c90 66 25 0d 06 72 12 20 20 42 6c 6f 63 6b 25 21 31 |f%..r. Block%!1|
00000ca0 36 20 3d 34 0d 06 7c 2f 20 20 c8 99 20 22 57 69 |6 =4..|/ .. "Wi|
00000cb0 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
00000cc0 31 37 2c 42 6c 6f 63 6b 25 2c 59 6f 75 72 48 6e |17,Block%,YourHn|
00000cd0 64 6c 25 0d 06 86 04 0d 06 90 05 e1 0d 06 9a 04 |dl%.............|
00000ce0 0d 06 a4 04 0d 06 ae 04 0d 06 b8 24 dd a4 5f 47 |...........$.._G|
00000cf0 65 74 49 6e 64 69 72 28 47 65 74 57 69 6e 64 6f |etIndir(GetWindo|
00000d00 77 25 2c 47 65 74 49 63 6f 6e 25 29 0d 06 c2 04 |w%,GetIcon%)....|
00000d10 0d 06 cc 10 20 20 ea 20 54 65 78 74 50 74 72 25 |.... . TextPtr%|
00000d20 0d 06 d6 04 0d 06 e0 1e 20 20 53 75 62 42 6c 6f |........ SubBlo|
00000d30 63 6b 25 21 30 20 20 3d 47 65 74 57 69 6e 64 6f |ck%!0 =GetWindo|
00000d40 77 25 0d 06 ea 1c 20 20 53 75 62 42 6c 6f 63 6b |w%.... SubBlock|
00000d50 25 21 34 20 20 3d 47 65 74 49 63 6f 6e 25 0d 06 |%!4 =GetIcon%..|
00000d60 f4 27 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 |.' .. "Wimp_Get|
00000d70 49 63 6f 6e 53 74 61 74 65 22 2c 2c 53 75 62 42 |IconState",,SubB|
00000d80 6c 6f 63 6b 25 0d 06 fe 1c 20 20 54 65 78 74 50 |lock%.... TextP|
00000d90 74 72 25 20 3d 53 75 62 42 6c 6f 63 6b 25 21 32 |tr% =SubBlock%!2|
00000da0 38 0d 07 08 04 0d 07 12 0d 3d 54 65 78 74 50 74 |8........=TextPt|
00000db0 72 25 0d 07 1c 04 0d 07 26 04 0d 07 30 04 0d 07 |r%......&...0...|
00000dc0 3a 12 dd f2 5f 46 6f 72 63 65 52 65 64 72 61 77 |:..._ForceRedraw|
00000dd0 0d 07 44 04 0d 07 4e 1b 20 20 53 75 62 42 6c 6f |..D...N. SubBlo|
00000de0 63 6b 25 21 30 20 3d 4d 61 69 6e 57 69 6e 25 0d |ck%!0 =MainWin%.|
00000df0 07 58 29 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 |.X) .. "Wimp_Ge|
00000e00 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 53 |tWindowState",,S|
00000e10 75 62 42 6c 6f 63 6b 25 0d 07 62 33 20 20 56 69 |ubBlock%..b3 Vi|
00000e20 73 4d 69 6e 58 25 20 3d 53 75 62 42 6c 6f 63 6b |sMinX% =SubBlock|
00000e30 25 21 34 20 20 3a 56 69 73 4d 69 6e 59 25 20 3d |%!4 :VisMinY% =|
00000e40 53 75 62 42 6c 6f 63 6b 25 21 38 0d 07 6c 34 20 |SubBlock%!8..l4 |
00000e50 20 56 69 73 4d 61 78 58 25 20 3d 53 75 62 42 6c | VisMaxX% =SubBl|
00000e60 6f 63 6b 25 21 31 32 20 3a 56 69 73 4d 61 78 59 |ock%!12 :VisMaxY|
00000e70 25 20 3d 53 75 62 42 6c 6f 63 6b 25 21 31 36 0d |% =SubBlock%!16.|
00000e80 07 76 42 20 20 c8 99 20 22 57 69 6d 70 5f 46 6f |.vB .. "Wimp_Fo|
00000e90 72 63 65 52 65 64 72 61 77 22 2c 2d 31 2c 56 69 |rceRedraw",-1,Vi|
00000ea0 73 4d 69 6e 58 25 2c 56 69 73 4d 69 6e 59 25 2c |sMinX%,VisMinY%,|
00000eb0 56 69 73 4d 61 78 58 25 2c 56 69 73 4d 61 78 59 |VisMaxX%,VisMaxY|
00000ec0 25 0d 07 80 04 0d 07 8a 05 e1 0d 07 94 04 0d 07 |%...............|
00000ed0 9e 04 0d 07 a8 04 0d 07 b2 1f dd a4 5f 4d 65 73 |............_Mes|
00000ee0 73 61 67 65 28 4d 65 73 73 61 67 65 24 2c 46 6c |sage(Message$,Fl|
00000ef0 61 67 73 25 29 0d 07 bc 04 0d 07 c6 54 20 20 f4 |ags%).......T .|
00000f00 20 66 6c 61 67 20 62 69 74 20 30 3a 20 4f 4b 20 | flag bit 0: OK |
00000f10 62 6f 78 2c 20 62 69 74 20 31 3a 20 43 61 6e 63 |box, bit 1: Canc|
00000f20 65 6c 20 62 6f 78 2c 20 62 69 74 20 34 3a 20 44 |el box, bit 4: D|
00000f30 6f 6e 27 74 20 70 72 65 66 69 78 20 77 69 74 68 |on't prefix with|
00000f40 20 27 45 72 72 6f 72 20 66 72 6f 6d 27 0d 07 d0 | 'Error from'...|
00000f50 0f 20 20 ea 20 41 6e 73 77 65 72 25 0d 07 da 04 |. . Answer%....|
00000f60 0d 07 e4 19 20 20 e7 20 4d 65 73 73 61 67 65 24 |.... . Message$|
00000f70 20 3d 22 22 20 8c 20 3d b9 0d 07 ee 04 0d 07 f8 | ="" . =........|
00000f80 13 20 20 21 53 75 62 42 6c 6f 63 6b 25 20 3d 30 |. !SubBlock% =0|
00000f90 0d 08 02 1d 20 20 24 28 53 75 62 42 6c 6f 63 6b |.... $(SubBlock|
00000fa0 25 2b 34 29 3d 4d 65 73 73 61 67 65 24 0d 08 0c |%+4)=Message$...|
00000fb0 3c 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f |< .. "Wimp_Repo|
00000fc0 72 74 45 72 72 6f 72 22 2c 53 75 62 42 6c 6f 63 |rtError",SubBloc|
00000fd0 6b 25 2c 46 6c 61 67 73 25 2c 41 70 70 24 20 b8 |k%,Flags%,App$ .|
00000fe0 20 2c 41 6e 73 77 65 72 25 0d 08 16 04 0d 08 20 | ,Answer%...... |
00000ff0 14 20 20 e7 20 41 6e 73 77 65 72 25 20 3d 31 20 |. . Answer% =1 |
00001000 8c 0d 08 2a 12 20 20 20 20 41 6e 73 77 65 72 25 |...*. Answer%|
00001010 20 3d b9 0d 08 34 07 20 20 cc 0d 08 3e 12 20 20 | =...4. ...>. |
00001020 20 20 41 6e 73 77 65 72 25 20 3d a3 0d 08 48 07 | Answer% =...H.|
00001030 20 20 cd 0d 08 52 04 0d 08 5c 0c 3d 41 6e 73 77 | ...R...\.=Answ|
00001040 65 72 25 0d 08 66 04 0d 08 70 04 0d 08 7a 04 0d |er%..f...p...z..|
00001050 08 84 19 dd a4 5f 4f 53 53 74 72 69 6e 67 28 41 |....._OSString(A|
00001060 64 64 72 65 73 73 25 29 0d 08 8e 04 0d 08 98 1f |ddress%)........|
00001070 20 20 ea 20 4c 6f 63 61 6c 41 64 64 72 25 2c 4f | . LocalAddr%,O|
00001080 6c 64 25 2c 53 74 72 69 6e 67 24 0d 08 a2 09 20 |ld%,String$.... |
00001090 20 ea 20 85 0d 08 ac 4d 20 20 ee 20 85 20 ea 20 | . ....M . . . |
000010a0 4f 4b 25 20 3d a4 5f 4d 65 73 73 61 67 65 28 22 |OK% =._Message("|
000010b0 49 6e 76 61 6c 69 64 20 6d 65 6d 6f 72 79 20 61 |Invalid memory a|
000010c0 64 64 72 65 73 73 20 28 61 64 64 72 65 73 73 20 |ddress (address |
000010d0 65 78 63 65 70 74 69 6f 6e 3f 29 22 2c 30 29 3a |exception?)",0):|
000010e0 e0 0d 08 b6 1a 20 20 4c 6f 63 61 6c 41 64 64 72 |..... LocalAddr|
000010f0 25 20 3d 41 64 64 72 65 73 73 25 0d 08 c0 04 0d |% =Address%.....|
00001100 08 ca 2c 20 20 c8 95 20 3f 4c 6f 63 61 6c 41 64 |.., .. ?LocalAd|
00001110 64 72 25 20 3e 33 31 20 80 20 3f 4c 6f 63 61 6c |dr% >31 . ?Local|
00001120 41 64 64 72 25 20 3c 3e 31 32 37 0d 08 d4 16 20 |Addr% <>127.... |
00001130 20 20 20 4c 6f 63 61 6c 41 64 64 72 25 20 2b 3d | LocalAddr% +=|
00001140 31 0d 08 de 24 20 20 20 20 e7 20 4c 6f 63 61 6c |1...$ . Local|
00001150 41 64 64 72 25 20 3e 41 64 64 72 65 73 73 25 2b |Addr% >Address%+|
00001160 32 35 35 20 8c 0d 08 e8 4f 20 20 20 20 20 20 4f |255 ....O O|
00001170 4b 25 20 3d a4 5f 4d 65 73 73 61 61 67 65 28 22 |K% =._Messaage("|
00001180 53 74 72 69 6e 67 20 6c 6f 6e 67 65 72 20 74 68 |String longer th|
00001190 61 6e 20 32 35 35 20 62 79 74 65 73 3a 20 49 6e |an 255 bytes: In|
000011a0 76 61 6c 69 64 20 61 64 64 72 65 73 73 3f 22 2c |valid address?",|
000011b0 30 29 3a e0 0d 08 f2 09 20 20 20 20 cd 0d 08 fc |0):..... ....|
000011c0 07 20 20 ce 0d 09 06 04 0d 09 10 17 20 20 4f 6c |. ......... Ol|
000011d0 64 25 20 3d 3f 4c 6f 63 61 6c 41 64 64 72 25 0d |d% =?LocalAddr%.|
000011e0 09 1a 15 20 20 3f 4c 6f 63 61 6c 41 64 64 72 25 |... ?LocalAddr%|
000011f0 20 3d 31 33 0d 09 24 18 20 20 53 74 72 69 6e 67 | =13..$. String|
00001200 24 20 3d 24 41 64 64 72 65 73 73 25 0d 09 2e 17 |$ =$Address%....|
00001210 20 20 3f 4c 6f 63 61 6c 41 64 64 72 25 20 3d 4f | ?LocalAddr% =O|
00001220 6c 64 25 0d 09 38 04 0d 09 42 0c 3d 53 74 72 69 |ld%..8...B.=Stri|
00001230 6e 67 24 0d 09 4c 04 0d 09 56 04 0d 09 60 04 0d |ng$..L...V...`..|
00001240 09 6a 1d dd a4 5f 47 65 74 4c 65 61 66 4e 61 6d |.j..._GetLeafNam|
00001250 65 28 46 69 6c 65 4e 61 6d 65 24 29 0d 09 74 04 |e(FileName$)..t.|
00001260 0d 09 7e 0a 20 20 ea 20 6e 25 0d 09 88 31 20 20 |..~. . n%...1 |
00001270 e7 20 a7 46 69 6c 65 4e 61 6d 65 24 2c 22 3c 57 |. .FileName$,"<W|
00001280 69 6d 70 24 53 63 72 61 70 3e 22 29 20 8c 20 3d |imp$Scrap>") . =|
00001290 22 53 63 72 61 70 46 69 6c 65 22 0d 09 92 04 0d |"ScrapFile".....|
000012a0 09 9c 15 20 20 6e 25 20 3d a9 20 46 69 6c 65 4e |... n% =. FileN|
000012b0 61 6d 65 24 0d 09 a6 25 20 20 c8 95 20 c1 46 69 |ame$...% .. .Fi|
000012c0 6c 65 4e 61 6d 65 24 2c 6e 25 2c 31 29 20 3d 22 |leName$,n%,1) ="|
000012d0 20 22 20 80 20 6e 25 3e 30 0d 09 b0 0e 20 20 20 | " . n%>0.... |
000012e0 20 6e 25 20 2d 3d 31 0d 09 ba 07 20 20 ce 0d 09 | n% -=1.... ...|
000012f0 c4 04 0d 09 ce 1f 20 20 46 69 6c 65 4e 61 6d 65 |...... FileName|
00001300 24 20 3d c0 46 69 6c 65 4e 61 6d 65 24 2c 6e 25 |$ =.FileName$,n%|
00001310 29 0d 09 d8 26 20 20 c8 95 20 c1 46 69 6c 65 4e |)...& .. .FileN|
00001320 61 6d 65 24 2c 6e 25 2c 31 29 20 3c 3e 22 2e 22 |ame$,n%,1) <>"."|
00001330 20 80 20 6e 25 3e 30 0d 09 e2 0e 20 20 20 20 6e | . n%>0.... n|
00001340 25 20 2d 3d 31 0d 09 ec 07 20 20 ce 0d 09 f6 04 |% -=1.... .....|
00001350 0d 0a 00 15 3d c1 46 69 6c 65 4e 61 6d 65 24 2c |....=.FileName$,|
00001360 6e 25 2b 31 29 0d 0a 0a 04 0d 0a 14 04 0d 0a 1e |n%+1)...........|
00001370 04 0d 0a 28 2e dd a4 5f 43 68 65 63 6b 46 69 6c |...(..._CheckFil|
00001380 65 4e 61 6d 65 28 47 65 6e 5f 4e 61 6d 65 24 2c |eName(Gen_Name$,|
00001390 47 65 6e 5f 43 68 65 63 6b 50 61 74 68 25 29 0d |Gen_CheckPath%).|
000013a0 0a 32 04 0d 0a 3c 2c 20 20 e7 20 47 65 6e 5f 4e |.2...<, . Gen_N|
000013b0 61 6d 65 24 20 3d 22 22 20 84 20 c2 47 65 6e 5f |ame$ ="" . .Gen_|
000013c0 4e 61 6d 65 24 2c 31 29 20 3d 22 2e 22 20 8c 0d |Name$,1) ="." ..|
000013d0 0a 46 3d 20 20 20 20 41 25 20 3d a4 5f 4d 65 73 |.F= A% =._Mes|
000013e0 73 61 67 65 28 22 59 6f 75 20 6d 75 73 74 20 66 |sage("You must f|
000013f0 69 72 73 74 20 73 70 65 63 69 66 79 20 61 20 66 |irst specify a f|
00001400 69 6c 65 6e 61 6d 65 21 22 2c 31 29 0d 0a 50 0a |ilename!",1)..P.|
00001410 20 20 20 20 3d a3 0d 0a 5a 07 20 20 cd 0d 0a 64 | =...Z. ...d|
00001420 04 0d 0a 6e 2d 20 20 e7 20 47 65 6e 5f 43 68 65 |...n- . Gen_Che|
00001430 63 6b 50 61 74 68 25 20 80 20 a7 47 65 6e 5f 4e |ckPath% . .Gen_N|
00001440 61 6d 65 24 2c 22 2e 22 29 20 3d 30 20 8c 0d 0a |ame$,".") =0 ...|
00001450 78 49 20 20 20 20 41 25 20 3d a4 5f 4d 65 73 73 |xI A% =._Mess|
00001460 61 67 65 28 22 54 6f 20 73 61 76 65 2c 20 64 72 |age("To save, dr|
00001470 61 67 20 66 69 6c 65 20 69 63 6f 6e 20 74 6f 20 |ag file icon to |
00001480 61 20 64 69 72 65 63 74 6f 72 79 20 76 69 65 77 |a directory view|
00001490 65 72 2e 22 2c 31 29 0d 0a 82 0a 20 20 20 20 3d |er.",1).... =|
000014a0 a3 0d 0a 8c 07 20 20 cd 0d 0a 96 04 0d 0a a0 06 |..... .........|
000014b0 3d b9 0d 0a aa 04 0d 0a b4 04 0d 0a be 04 0d 0a |=...............|
000014c0 c8 15 dd f2 5f 53 65 74 50 6f 69 6e 74 65 72 56 |...._SetPointerV|
000014d0 61 72 73 0d 0a d2 04 0d 0a dc 29 20 20 c8 99 20 |ars.......) .. |
000014e0 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 |"Wimp_GetPointer|
000014f0 49 6e 66 6f 22 2c 2c 53 75 62 42 6c 6f 63 6b 25 |Info",,SubBlock%|
00001500 0d 0a e6 1a 20 20 4d 6f 75 73 65 58 25 20 3d 53 |.... MouseX% =S|
00001510 75 62 42 6c 6f 63 6b 25 21 30 0d 0a f0 1a 20 20 |ubBlock%!0.... |
00001520 4d 6f 75 73 65 59 25 20 3d 53 75 62 42 6c 6f 63 |MouseY% =SubBloc|
00001530 6b 25 21 34 0d 0a fa 1a 20 20 42 75 74 74 6f 6e |k%!4.... Button|
00001540 25 20 3d 53 75 62 42 6c 6f 63 6b 25 21 38 0d 0b |% =SubBlock%!8..|
00001550 04 1b 20 20 57 69 6e 64 6f 77 25 20 3d 53 75 62 |.. Window% =Sub|
00001560 42 6c 6f 63 6b 25 21 31 32 0d 0b 0e 1b 20 20 49 |Block%!12.... I|
00001570 63 6f 6e 25 20 20 20 3d 53 75 62 42 6c 6f 63 6b |con% =SubBlock|
00001580 25 21 31 36 0d 0b 18 04 0d 0b 22 05 e1 0d 0b 2c |%!16......"....,|
00001590 04 0d 0b 36 04 0d 0b 40 04 0d 0b 4a 14 dd f2 5f |...6...@...J..._|
000015a0 53 65 74 57 69 6e 64 6f 77 56 61 72 73 0d 0b 54 |SetWindowVars..T|
000015b0 04 0d 0b 5e 1b 20 20 53 75 62 42 6c 6f 63 6b 25 |...^. SubBlock%|
000015c0 21 30 20 3d 4d 61 69 6e 57 69 6e 25 0d 0b 68 29 |!0 =MainWin%..h)|
000015d0 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 | .. "Wimp_GetWi|
000015e0 6e 64 6f 77 53 74 61 74 65 22 2c 2c 53 75 62 42 |ndowState",,SubB|
000015f0 6c 6f 63 6b 25 0d 0b 72 33 20 20 56 69 73 4d 69 |lock%..r3 VisMi|
00001600 6e 58 25 20 3d 53 75 62 42 6c 6f 63 6b 25 21 34 |nX% =SubBlock%!4|
00001610 20 20 3a 56 69 73 4d 69 6e 59 25 20 3d 53 75 62 | :VisMinY% =Sub|
00001620 42 6c 6f 63 6b 25 21 38 0d 0b 7c 34 20 20 56 69 |Block%!8..|4 Vi|
00001630 73 4d 61 78 58 25 20 3d 53 75 62 42 6c 6f 63 6b |sMaxX% =SubBlock|
00001640 25 21 31 32 20 3a 56 69 73 4d 61 78 59 25 20 3d |%!12 :VisMaxY% =|
00001650 53 75 62 42 6c 6f 63 6b 25 21 31 36 0d 0b 86 34 |SubBlock%!16...4|
00001660 20 20 53 63 72 6f 6c 6c 58 25 20 3d 53 75 62 42 | ScrollX% =SubB|
00001670 6c 6f 63 6b 25 21 32 30 20 3a 53 63 72 6f 6c 6c |lock%!20 :Scroll|
00001680 59 25 20 3d 53 75 62 42 6c 6f 63 6b 25 21 32 34 |Y% =SubBlock%!24|
00001690 0d 0b 90 20 20 20 44 69 73 70 58 25 20 3d 56 69 |... DispX% =Vi|
000016a0 73 4d 69 6e 58 25 20 2d 53 63 72 6f 6c 6c 58 25 |sMinX% -ScrollX%|
000016b0 0d 0b 9a 20 20 20 44 69 73 70 59 25 20 3d 56 69 |... DispY% =Vi|
000016c0 73 4d 61 78 59 25 20 2d 53 63 72 6f 6c 6c 59 25 |sMaxY% -ScrollY%|
000016d0 0d 0b a4 04 0d 0b ae 05 e1 0d 0b b8 04 0d 0b c2 |................|
000016e0 04 0d 0b cc 04 0d 0b d6 34 dd f2 5f 53 61 76 65 |........4.._Save|
000016f0 56 69 72 74 75 61 6c 41 70 70 28 53 6f 75 72 63 |VirtualApp(Sourc|
00001700 65 4e 61 6d 65 24 2c 46 69 6c 65 4e 61 6d 65 24 |eName$,FileName$|
00001710 2c 49 44 4e 61 6d 65 24 29 0d 0b e0 04 0d 0b ea |,IDName$).......|
00001720 1b 20 20 41 70 70 4e 61 6d 65 24 20 3d 53 6f 75 |. AppName$ =Sou|
00001730 72 63 65 4e 61 6d 65 24 0d 0b f4 18 20 20 e7 20 |rceName$.... . |
00001740 a7 41 70 70 4e 61 6d 65 24 2c 22 2e 22 29 20 8c |.AppName$,".") .|
00001750 0d 0b fe 09 20 20 20 20 f5 0d 0c 08 2f 20 20 20 |.... ..../ |
00001760 20 20 20 41 70 70 4e 61 6d 65 24 20 3d c1 41 70 | AppName$ =.Ap|
00001770 70 4e 61 6d 65 24 2c a7 41 70 70 4e 61 6d 65 24 |pName$,.AppName$|
00001780 2c 22 2e 22 29 2b 31 29 0d 0c 12 1a 20 20 20 20 |,".")+1).... |
00001790 fd 20 a7 41 70 70 4e 61 6d 65 24 2c 22 2e 22 29 |. .AppName$,".")|
000017a0 3d 30 0d 0c 1c 07 20 20 cd 0d 0c 26 04 0d 0c 30 |=0.... ...&...0|
000017b0 19 20 20 e3 20 50 61 73 73 25 20 3d 20 34 20 b8 |. . Pass% = 4 .|
000017c0 20 36 20 88 20 32 0d 0c 3a 10 20 20 20 20 4f 25 | 6 . 2..:. O%|
000017d0 3d 43 6f 64 65 25 0d 0c 44 14 20 20 20 20 50 25 |=Code%..D. P%|
000017e0 3d 26 30 30 30 30 30 30 30 30 0d 0c 4e 09 20 20 |=&00000000..N. |
000017f0 20 20 5b 0d 0c 58 11 20 20 20 20 4f 50 54 20 50 | [..X. OPT P|
00001800 61 73 73 25 0d 0c 62 04 0d 0c 6c 1b 20 20 20 20 |ass%..b...l. |
00001810 20 20 45 51 55 44 20 20 20 20 26 30 30 30 30 30 | EQUD &00000|
00001820 30 30 30 0d 0c 76 18 20 20 20 20 20 20 45 51 55 |000..v. EQU|
00001830 44 20 20 20 20 53 74 61 72 74 25 0d 0c 80 16 20 |D Start%.... |
00001840 20 20 20 20 20 45 51 55 44 20 20 20 20 45 6e 64 | EQUD End|
00001850 25 0d 0c 8a 1a 20 20 20 20 20 20 45 51 55 44 20 |%.... EQUD |
00001860 20 20 20 53 65 72 76 69 63 65 25 0d 0c 94 18 20 | Service%.... |
00001870 20 20 20 20 20 45 51 55 44 20 20 20 20 54 69 74 | EQUD Tit|
00001880 6c 65 25 0d 0c 9e 17 20 20 20 20 20 20 45 51 55 |le%.... EQU|
00001890 44 20 20 20 20 48 65 6c 70 25 0d 0c a8 1b 20 20 |D Help%.... |
000018a0 20 20 20 20 45 51 55 44 20 20 20 20 26 30 30 30 | EQUD &000|
000018b0 30 30 30 30 30 0d 0c b2 1b 20 20 20 20 20 20 45 |00000.... E|
000018c0 51 55 44 20 20 20 20 26 30 30 30 30 30 30 30 30 |QUD &00000000|
000018d0 0d 0c bc 1b 20 20 20 20 20 20 45 51 55 44 20 20 |.... EQUD |
000018e0 20 20 26 30 30 30 30 30 30 30 30 0d 0c c6 1b 20 | &00000000.... |
000018f0 20 20 20 20 20 45 51 55 44 20 20 20 20 26 30 30 | EQUD &00|
00001900 30 30 30 30 30 30 0d 0c d0 1b 20 20 20 20 20 20 |000000.... |
00001910 45 51 55 44 20 20 20 20 26 30 30 30 30 30 30 30 |EQUD &0000000|
00001920 30 0d 0c da 04 0d 0c e4 0f 20 20 20 20 2e 54 69 |0........ .Ti|
00001930 74 6c 65 25 0d 0c ee 1d 20 20 20 20 20 20 45 51 |tle%.... EQ|
00001940 55 53 20 20 20 20 49 44 4e 61 6d 65 24 20 2b bd |US IDName$ +.|
00001950 30 0d 0c f8 0f 20 20 20 20 20 20 41 4c 49 47 4e |0.... ALIGN|
00001960 0d 0d 02 04 0d 0d 0c 0e 20 20 20 20 2e 48 65 6c |........ .Hel|
00001970 70 25 0d 0d 16 21 20 20 20 20 20 20 45 51 55 53 |p%...! EQUS|
00001980 20 20 20 20 49 44 4e 61 6d 65 24 20 2b bd 39 20 | IDName$ +.9 |
00001990 2b bd 39 0d 0d 20 3b 20 20 20 20 20 20 45 51 55 |+.9.. ; EQU|
000019a0 53 20 20 20 20 22 31 2e 31 30 20 28 32 36 20 4f |S "1.10 (26 O|
000019b0 63 74 20 31 39 39 32 29 20 42 79 20 4a 6f 73 65 |ct 1992) By Jose|
000019c0 70 68 20 57 61 6c 6b 65 72 22 20 2b bd 30 0d 0d |ph Walker" +.0..|
000019d0 2a 0f 20 20 20 20 20 20 41 4c 49 47 4e 0d 0d 34 |*. ALIGN..4|
000019e0 04 0d 0d 3e 0f 20 20 20 20 2e 53 74 61 72 74 25 |...>. .Start%|
000019f0 0d 0d 48 1f 20 20 20 20 20 20 53 54 4d 46 44 20 |..H. STMFD |
00001a00 20 20 52 31 33 21 2c 7b 52 30 2c 52 31 34 7d 0d | R13!,{R0,R14}.|
00001a10 0d 52 1e 20 20 20 20 20 20 41 44 52 20 20 20 20 |.R. ADR |
00001a20 20 52 30 2c 42 6f 6f 74 46 69 6c 65 25 0d 0d 5c | R0,BootFile%..\|
00001a30 2d 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 |- SWI "|
00001a40 58 52 65 73 6f 75 72 63 65 46 53 5f 52 65 67 69 |XResourceFS_Regi|
00001a50 73 74 65 72 46 69 6c 65 73 22 0d 0d 66 1f 20 20 |sterFiles"..f. |
00001a60 20 20 20 20 4c 44 4d 46 44 20 20 20 52 31 33 21 | LDMFD R13!|
00001a70 2c 7b 52 30 2c 50 43 7d 5e 0d 0d 70 04 0d 0d 7a |,{R0,PC}^..p...z|
00001a80 0d 20 20 20 20 2e 45 6e 64 25 0d 0d 84 1f 20 20 |. .End%.... |
00001a90 20 20 20 20 53 54 4d 46 44 20 20 20 52 31 33 21 | STMFD R13!|
00001aa0 2c 7b 52 30 2c 52 31 34 7d 0d 0d 8e 1e 20 20 20 |,{R0,R14}.... |
00001ab0 20 20 20 41 44 52 20 20 20 20 20 52 30 2c 42 6f | ADR R0,Bo|
00001ac0 6f 74 46 69 6c 65 25 0d 0d 98 2f 20 20 20 20 20 |otFile%.../ |
00001ad0 20 53 57 49 20 20 20 20 20 22 58 52 65 73 6f 75 | SWI "XResou|
00001ae0 72 63 65 46 53 5f 44 65 72 65 67 69 73 74 65 72 |rceFS_Deregister|
00001af0 46 69 6c 65 73 22 0d 0d a2 1f 20 20 20 20 20 20 |Files".... |
00001b00 4c 44 4d 46 44 20 20 20 52 31 33 21 2c 7b 52 30 |LDMFD R13!,{R0|
00001b10 2c 50 43 7d 5e 0d 0d ac 04 0d 0d b6 11 20 20 20 |,PC}^........ |
00001b20 20 2e 53 65 72 76 69 63 65 25 0d 0d c0 19 20 20 | .Service%.... |
00001b30 20 20 20 20 54 45 51 20 20 20 20 20 52 31 2c 23 | TEQ R1,#|
00001b40 26 36 30 0d 0d ca 18 20 20 20 20 20 20 4d 4f 56 |&60.... MOV|
00001b50 4e 45 20 20 20 50 43 2c 52 31 34 0d 0d d4 22 20 |NE PC,R14..." |
00001b60 20 20 20 20 20 53 54 4d 46 44 20 20 20 52 31 33 | STMFD R13|
00001b70 21 2c 7b 52 30 2d 52 33 2c 52 31 34 7d 0d 0d de |!,{R0-R3,R14}...|
00001b80 1e 20 20 20 20 20 20 41 44 52 20 20 20 20 20 52 |. ADR R|
00001b90 30 2c 42 6f 6f 74 46 69 6c 65 25 0d 0d e8 18 20 |0,BootFile%.... |
00001ba0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 31 34 | MOV R14|
00001bb0 2c 50 43 0d 0d f2 17 20 20 20 20 20 20 4d 4f 56 |,PC.... MOV|
00001bc0 20 20 20 20 20 50 43 2c 52 32 0d 0d fc 22 20 20 | PC,R2..." |
00001bd0 20 20 20 20 4c 44 4d 46 44 20 20 20 52 31 33 21 | LDMFD R13!|
00001be0 2c 7b 52 30 2d 52 33 2c 50 43 7d 5e 0d 0e 06 04 |,{R0-R3,PC}^....|
00001bf0 0d 0e 10 11 20 20 20 2e 42 6f 6f 74 46 69 6c 65 |.... .BootFile|
00001c00 25 0d 0e 1a 1e 20 20 20 20 20 20 45 51 55 44 20 |%.... EQUD |
00001c10 20 20 20 52 75 6e 46 69 6c 65 25 20 2d 50 25 0d | RunFile% -P%.|
00001c20 0e 24 1b 20 20 20 20 20 20 45 51 55 44 20 20 20 |.$. EQUD |
00001c30 20 26 46 46 46 46 45 42 34 34 0d 0e 2e 1b 20 20 | &FFFFEB44.... |
00001c40 20 20 20 20 45 51 55 44 20 20 20 20 26 33 31 41 | EQUD &31A|
00001c50 37 35 32 32 35 0d 0e 38 23 20 20 20 20 20 20 45 |75225..8# E|
00001c60 51 55 44 20 20 20 20 31 31 20 2b a9 20 53 6f 75 |QUD 11 +. Sou|
00001c70 72 63 65 4e 61 6d 65 24 0d 0e 42 1b 20 20 20 20 |rceName$..B. |
00001c80 20 20 45 51 55 44 20 20 20 20 26 30 30 30 30 30 | EQUD &00000|
00001c90 30 30 33 0d 0e 4c 31 20 20 20 20 20 20 45 51 55 |003..L1 EQU|
00001ca0 53 20 20 20 20 22 41 70 70 73 2e 22 20 2b 41 70 |S "Apps." +Ap|
00001cb0 70 4e 61 6d 65 24 20 2b 22 2e 21 42 6f 6f 74 22 |pName$ +".!Boot"|
00001cc0 20 2b bd 30 0d 0e 56 0f 20 20 20 20 20 20 41 4c | +.0..V. AL|
00001cd0 49 47 4e 0d 0e 60 23 20 20 20 20 20 20 45 51 55 |IGN..`# EQU|
00001ce0 44 20 20 20 20 31 35 20 2b a9 20 53 6f 75 72 63 |D 15 +. Sourc|
00001cf0 65 4e 61 6d 65 24 0d 0e 6a 30 20 20 20 20 20 20 |eName$..j0 |
00001d00 45 51 55 53 20 20 20 20 22 46 69 6c 65 72 5f 42 |EQUS "Filer_B|
00001d10 6f 6f 74 20 22 20 2b 53 6f 75 72 63 65 4e 61 6d |oot " +SourceNam|
00001d20 65 24 20 2b bd 30 0d 0e 74 0f 20 20 20 20 20 20 |e$ +.0..t. |
00001d30 41 4c 49 47 4e 0d 0e 7e 04 0d 0e 88 11 20 20 20 |ALIGN..~..... |
00001d40 20 2e 52 75 6e 46 69 6c 65 25 0d 0e 92 1c 20 20 | .RunFile%.... |
00001d50 20 20 20 20 45 51 55 44 20 20 20 20 42 6c 61 6e | EQUD Blan|
00001d60 6b 25 20 2d 50 25 0d 0e 9c 1b 20 20 20 20 20 20 |k% -P%.... |
00001d70 45 51 55 44 20 20 20 20 26 46 46 46 46 45 42 34 |EQUD &FFFFEB4|
00001d80 34 0d 0e a6 1b 20 20 20 20 20 20 45 51 55 44 20 |4.... EQUD |
00001d90 20 20 20 26 33 31 41 37 35 35 36 38 0d 0e b0 23 | &31A75568...#|
00001da0 20 20 20 20 20 20 45 51 55 44 20 20 20 20 31 30 | EQUD 10|
00001db0 20 2b a9 20 53 6f 75 72 63 65 4e 61 6d 65 24 0d | +. SourceName$.|
00001dc0 0e ba 1b 20 20 20 20 20 20 45 51 55 44 20 20 20 |... EQUD |
00001dd0 20 26 30 30 30 30 30 30 30 33 0d 0e c4 30 20 20 | &00000003...0 |
00001de0 20 20 20 20 45 51 55 53 20 20 20 20 22 41 70 70 | EQUS "App|
00001df0 73 2e 22 20 2b 41 70 70 4e 61 6d 65 24 20 2b 22 |s." +AppName$ +"|
00001e00 2e 21 52 75 6e 22 20 2b bd 30 0d 0e ce 0f 20 20 |.!Run" +.0.... |
00001e10 20 20 20 20 41 4c 49 47 4e 0d 0e d8 23 20 20 20 | ALIGN...# |
00001e20 20 20 20 45 51 55 44 20 20 20 20 31 34 20 2b a9 | EQUD 14 +.|
00001e30 20 53 6f 75 72 63 65 4e 61 6d 65 24 0d 0e e2 2f | SourceName$.../|
00001e40 20 20 20 20 20 20 45 51 55 53 20 20 20 20 22 46 | EQUS "F|
00001e50 69 6c 65 72 5f 52 75 6e 20 22 20 2b 53 6f 75 72 |iler_Run " +Sour|
00001e60 63 65 4e 61 6d 65 24 20 2b bd 30 0d 0e ec 0f 20 |ceName$ +.0.... |
00001e70 20 20 20 20 20 41 4c 49 47 4e 0d 0e f6 04 0d 0f | ALIGN......|
00001e80 00 0f 20 20 20 20 2e 42 6c 61 6e 6b 25 0d 0f 0a |.. .Blank%...|
00001e90 1b 20 20 20 20 20 20 45 51 55 44 20 20 20 20 26 |. EQUD &|
00001ea0 30 30 30 30 30 30 30 30 0d 0f 14 09 20 20 20 20 |00000000.... |
00001eb0 5d 0d 0f 1e 28 20 20 20 20 f1 20 22 50 61 73 73 |]...( . "Pass|
00001ec0 20 22 3b 50 61 73 73 25 3b 22 20 73 75 63 63 65 | ";Pass%;" succe|
00001ed0 73 73 66 75 6c 2e 2e 2e 22 0d 0f 28 0d 20 20 ed |ssful..."..(. .|
00001ee0 20 50 61 73 73 25 0d 0f 32 04 0d 0f 3c 2e 20 20 | Pass%..2...<. |
00001ef0 c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c 31 30 2c |.. "OS_File",10,|
00001f00 46 69 6c 65 4e 61 6d 65 24 2c 26 46 46 41 2c 2c |FileName$,&FFA,,|
00001f10 43 6f 64 65 25 2c 4f 25 0d 0f 46 04 0d 0f 50 05 |Code%,O%..F...P.|
00001f20 e1 0d 0f 5a 04 0d 0f 64 04 0d 0f 6e 04 0d 0f 78 |...Z...d...n...x|
00001f30 33 dd f2 5f 53 61 76 65 44 69 72 65 63 74 6f 72 |3.._SaveDirector|
00001f40 79 28 53 6f 75 72 63 65 50 61 74 68 24 2c 46 69 |y(SourcePath$,Fi|
00001f50 6c 65 4e 61 6d 65 24 2c 49 44 4e 61 6d 65 24 29 |leName$,IDName$)|
00001f60 0d 0f 82 04 0d 0f 8c 1a 20 20 f2 5f 43 72 65 61 |........ ._Crea|
00001f70 74 65 4d 6f 64 75 6c 65 48 65 61 64 65 72 0d 0f |teModuleHeader..|
00001f80 96 16 20 20 f2 5f 43 72 65 61 74 65 50 61 74 68 |.. ._CreatePath|
00001f90 28 22 22 29 0d 0f a0 35 20 20 c8 99 20 22 4f 53 |("")...5 .. "OS|
00001fa0 5f 46 69 6c 65 22 2c 31 30 2c 46 69 6c 65 4e 61 |_File",10,FileNa|
00001fb0 6d 65 24 2c 26 46 46 41 2c 2c 43 6f 64 65 25 2c |me$,&FFA,,Code%,|
00001fc0 4c 61 73 74 42 79 74 65 25 0d 0f aa 04 0d 0f b4 |LastByte%.......|
00001fd0 05 e1 0d 0f be 04 0d 0f c8 04 0d 0f d2 04 0d 0f |................|
00001fe0 dc 19 dd f2 5f 43 72 65 61 74 65 4d 6f 64 75 6c |...._CreateModul|
00001ff0 65 48 65 61 64 65 72 0d 0f e6 04 0d 0f f0 22 20 |eHeader......." |
00002000 20 54 69 74 6c 65 24 20 3d a4 5f 4f 53 53 74 72 | Title$ =._OSStr|
00002010 69 6e 67 28 4d 6f 64 4e 61 6d 65 25 29 0d 0f fa |ing(ModName%)...|
00002020 36 20 20 f4 20 49 4e 50 55 54 20 22 50 6c 65 61 |6 . INPUT "Plea|
00002030 73 65 20 65 6e 74 65 72 20 74 68 65 20 6d 6f 64 |se enter the mod|
00002040 75 6c 65 20 74 69 74 6c 65 20 3a 22 20 54 69 74 |ule title :" Tit|
00002050 6c 65 24 0d 10 04 25 20 20 f1 20 22 41 73 73 65 |le$...% . "Asse|
00002060 6d 62 6c 69 6e 67 20 4d 6f 64 75 6c 65 20 48 65 |mbling Module He|
00002070 61 64 65 72 2e 2e 2e 22 0d 10 0e 19 20 20 e3 20 |ader...".... . |
00002080 50 61 73 73 25 20 3d 20 34 20 b8 20 36 20 88 20 |Pass% = 4 . 6 . |
00002090 32 0d 10 18 10 20 20 20 20 4f 25 3d 43 6f 64 65 |2.... O%=Code|
000020a0 25 0d 10 22 14 20 20 20 20 50 25 3d 26 30 30 30 |%..". P%=&000|
000020b0 30 30 30 30 30 0d 10 2c 09 20 20 20 20 5b 0d 10 |00000..,. [..|
000020c0 36 11 20 20 20 20 4f 50 54 20 50 61 73 73 25 0d |6. OPT Pass%.|
000020d0 10 40 04 0d 10 4a 1b 20 20 20 20 20 20 45 51 55 |.@...J. EQU|
000020e0 44 20 20 20 20 26 30 30 30 30 30 30 30 30 0d 10 |D &00000000..|
000020f0 54 18 20 20 20 20 20 20 45 51 55 44 20 20 20 20 |T. EQUD |
00002100 53 74 61 72 74 25 0d 10 5e 16 20 20 20 20 20 20 |Start%..^. |
00002110 45 51 55 44 20 20 20 20 45 6e 64 25 0d 10 68 1a |EQUD End%..h.|
00002120 20 20 20 20 20 20 45 51 55 44 20 20 20 20 53 65 | EQUD Se|
00002130 72 76 69 63 65 25 0d 10 72 18 20 20 20 20 20 20 |rvice%..r. |
00002140 45 51 55 44 20 20 20 20 54 69 74 6c 65 25 0d 10 |EQUD Title%..|
00002150 7c 17 20 20 20 20 20 20 45 51 55 44 20 20 20 20 ||. EQUD |
00002160 48 65 6c 70 25 0d 10 86 1b 20 20 20 20 20 20 45 |Help%.... E|
00002170 51 55 44 20 20 20 20 26 30 30 30 30 30 30 30 30 |QUD &00000000|
00002180 0d 10 90 1b 20 20 20 20 20 20 45 51 55 44 20 20 |.... EQUD |
00002190 20 20 26 30 30 30 30 30 30 30 30 0d 10 9a 1b 20 | &00000000.... |
000021a0 20 20 20 20 20 45 51 55 44 20 20 20 20 26 30 30 | EQUD &00|
000021b0 30 30 30 30 30 30 0d 10 a4 1b 20 20 20 20 20 20 |000000.... |
000021c0 45 51 55 44 20 20 20 20 26 30 30 30 30 30 30 30 |EQUD &0000000|
000021d0 30 0d 10 ae 1b 20 20 20 20 20 20 45 51 55 44 20 |0.... EQUD |
000021e0 20 20 20 26 30 30 30 30 30 30 30 30 0d 10 b8 04 | &00000000....|
000021f0 0d 10 c2 0f 20 20 20 20 2e 54 69 74 6c 65 25 0d |.... .Title%.|
00002200 10 cc 18 20 20 20 20 20 20 45 51 55 53 20 20 20 |... EQUS |
00002210 20 54 69 74 6c 65 24 0d 10 d6 15 20 20 20 20 20 | Title$.... |
00002220 20 45 51 55 42 20 20 20 20 26 30 30 0d 10 e0 0f | EQUB &00....|
00002230 20 20 20 20 20 20 41 4c 49 47 4e 0d 10 ea 04 0d | ALIGN.....|
00002240 10 f4 0e 20 20 20 20 2e 48 65 6c 70 25 0d 10 fe |... .Help%...|
00002250 18 20 20 20 20 20 20 45 51 55 53 20 20 20 20 54 |. EQUS T|
00002260 69 74 6c 65 24 0d 11 08 17 20 20 20 20 20 20 45 |itle$.... E|
00002270 51 55 57 20 20 20 20 26 30 39 30 39 0d 11 12 37 |QUW &0909...7|
00002280 20 20 20 20 20 20 45 51 55 53 20 20 20 20 22 31 | EQUS "1|
00002290 2e 31 30 20 28 32 36 20 4e 6f 76 20 31 39 39 32 |.10 (26 Nov 1992|
000022a0 29 20 42 79 20 4a 6f 73 65 70 68 20 57 61 6c 6b |) By Joseph Walk|
000022b0 65 72 22 0d 11 1c 15 20 20 20 20 20 20 45 51 55 |er".... EQU|
000022c0 42 20 20 20 20 26 30 30 0d 11 26 0f 20 20 20 20 |B &00..&. |
000022d0 20 20 41 4c 49 47 4e 0d 11 30 04 0d 11 3a 0f 20 | ALIGN..0...:. |
000022e0 20 20 20 2e 53 74 61 72 74 25 0d 11 44 1f 20 20 | .Start%..D. |
000022f0 20 20 20 20 53 54 4d 46 44 20 20 20 52 31 33 21 | STMFD R13!|
00002300 2c 7b 52 30 2c 52 31 34 7d 0d 11 4e 21 20 20 20 |,{R0,R14}..N! |
00002310 20 20 20 41 44 52 20 20 20 20 20 52 30 2c 54 61 | ADR R0,Ta|
00002320 62 6c 65 4f 66 66 73 65 74 25 0d 11 58 2d 20 20 |bleOffset%..X- |
00002330 20 20 20 20 53 57 49 20 20 20 20 20 22 58 52 65 | SWI "XRe|
00002340 73 6f 75 72 63 65 46 53 5f 52 65 67 69 73 74 65 |sourceFS_Registe|
00002350 72 46 69 6c 65 73 22 0d 11 62 1f 20 20 20 20 20 |rFiles"..b. |
00002360 20 4c 44 4d 46 44 20 20 20 52 31 33 21 2c 7b 52 | LDMFD R13!,{R|
00002370 30 2c 50 43 7d 5e 0d 11 6c 04 0d 11 76 0d 20 20 |0,PC}^..l...v. |
00002380 20 20 2e 45 6e 64 25 0d 11 80 1f 20 20 20 20 20 | .End%.... |
00002390 20 53 54 4d 46 44 20 20 20 52 31 33 21 2c 7b 52 | STMFD R13!,{R|
000023a0 30 2c 52 31 34 7d 0d 11 8a 21 20 20 20 20 20 20 |0,R14}...! |
000023b0 41 44 52 20 20 20 20 20 52 30 2c 54 61 62 6c 65 |ADR R0,Table|
000023c0 4f 66 66 73 65 74 25 0d 11 94 2f 20 20 20 20 20 |Offset%.../ |
000023d0 20 53 57 49 20 20 20 20 20 22 58 52 65 73 6f 75 | SWI "XResou|
000023e0 72 63 65 46 53 5f 44 65 72 65 67 69 73 74 65 72 |rceFS_Deregister|
000023f0 46 69 6c 65 73 22 0d 11 9e 1f 20 20 20 20 20 20 |Files".... |
00002400 4c 44 4d 46 44 20 20 20 52 31 33 21 2c 7b 52 30 |LDMFD R13!,{R0|
00002410 2c 50 43 7d 5e 0d 11 a8 04 0d 11 b2 11 20 20 20 |,PC}^........ |
00002420 20 2e 53 65 72 76 69 63 65 25 0d 11 bc 19 20 20 | .Service%.... |
00002430 20 20 20 20 54 45 51 20 20 20 20 20 52 31 2c 23 | TEQ R1,#|
00002440 26 36 30 0d 11 c6 18 20 20 20 20 20 20 4d 4f 56 |&60.... MOV|
00002450 4e 45 20 20 20 50 43 2c 52 31 34 0d 11 d0 22 20 |NE PC,R14..." |
00002460 20 20 20 20 20 53 54 4d 46 44 20 20 20 52 31 33 | STMFD R13|
00002470 21 2c 7b 52 30 2d 52 33 2c 52 31 34 7d 0d 11 da |!,{R0-R3,R14}...|
00002480 21 20 20 20 20 20 20 41 44 52 20 20 20 20 20 52 |! ADR R|
00002490 30 2c 54 61 62 6c 65 4f 66 66 73 65 74 25 0d 11 |0,TableOffset%..|
000024a0 e4 18 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 |.. MOV |
000024b0 52 31 34 2c 50 43 0d 11 ee 17 20 20 20 20 20 20 |R14,PC.... |
000024c0 4d 4f 56 20 20 20 20 20 50 43 2c 52 32 0d 11 f8 |MOV PC,R2...|
000024d0 1b 20 20 20 20 20 20 45 51 55 44 20 20 20 20 26 |. EQUD &|
000024e0 45 38 46 44 38 30 30 46 0d 12 02 04 0d 12 0c 15 |E8FD800F........|
000024f0 20 20 20 20 2e 54 61 62 6c 65 4f 66 66 73 65 74 | .TableOffset|
00002500 25 0d 12 16 09 20 20 20 20 5d 0d 12 20 04 0d 12 |%.... ].. ...|
00002510 2a 0d 20 20 ed 20 50 61 73 73 25 0d 12 34 04 0d |*. . Pass%..4..|
00002520 12 3e 24 20 20 54 61 62 6c 65 25 20 20 20 20 3d |.>$ Table% =|
00002530 43 6f 64 65 25 20 2b 54 61 62 6c 65 4f 66 66 73 |Code% +TableOffs|
00002540 65 74 25 0d 12 48 13 20 20 4c 61 73 74 42 79 74 |et%..H. LastByt|
00002550 65 25 20 3d 4f 25 0d 12 52 04 0d 12 5c 05 e1 0d |e% =O%..R...\...|
00002560 12 66 04 0d 12 70 04 0d 12 7a 04 0d 12 84 1b dd |.f...p...z......|
00002570 f2 5f 43 72 65 61 74 65 50 61 74 68 28 45 78 74 |._CreatePath(Ext|
00002580 50 61 74 68 24 29 0d 12 8e 04 0d 12 98 23 20 20 |Path$).......# |
00002590 ea 20 4e 65 78 74 25 20 2c 4c 65 61 66 4e 61 6d |. Next% ,LeafNam|
000025a0 65 24 2c 20 46 69 6c 65 4e 61 6d 65 24 0d 12 a2 |e$, FileName$...|
000025b0 1e 20 20 ea 20 54 65 6d 70 53 6f 75 72 63 65 24 |. . TempSource$|
000025c0 20 2c 54 65 6d 70 46 69 6c 65 24 0d 12 ac 04 0d | ,TempFile$.....|
000025d0 12 b6 3c 20 20 f1 20 22 43 72 65 61 74 69 6e 67 |..< . "Creating|
000025e0 20 66 69 6c 65 73 20 69 6e 20 64 69 72 65 63 74 | files in direct|
000025f0 6f 72 79 20 3a 22 20 53 6f 75 72 63 65 50 61 74 |ory :" SourcePat|
00002600 68 24 20 45 78 74 50 61 74 68 24 0d 12 c0 0e 20 |h$ ExtPath$.... |
00002610 20 4e 65 78 74 25 20 3d 30 0d 12 ca 04 0d 12 d4 | Next% =0.......|
00002620 07 20 20 f5 0d 12 de 04 0d 12 e8 54 20 20 20 20 |. ........T |
00002630 c8 99 20 22 4f 53 5f 47 42 50 42 22 2c 31 30 2c |.. "OS_GBPB",10,|
00002640 53 6f 75 72 63 65 50 61 74 68 24 2b 45 78 74 50 |SourcePath$+ExtP|
00002650 61 74 68 24 2c 42 6c 6f 63 6b 25 2c 31 2c 4e 65 |ath$,Block%,1,Ne|
00002660 78 74 25 2c 32 35 36 2c 22 2a 22 20 b8 20 2c 2c |xt%,256,"*" . ,,|
00002670 52 65 61 64 25 2c 2c 4e 65 78 74 25 0d 12 f2 16 |Read%,,Next%....|
00002680 20 20 20 20 e7 20 4e 65 78 74 25 20 3c 3e 2d 31 | . Next% <>-1|
00002690 20 8c 0d 12 fc 29 20 20 20 20 20 20 4c 65 61 66 | ....) Leaf|
000026a0 4e 61 6d 65 24 20 3d a4 5f 4f 53 53 74 72 69 6e |Name$ =._OSStrin|
000026b0 67 28 52 65 61 64 25 2b 32 30 29 0d 13 06 04 0d |g(Read%+20).....|
000026c0 13 10 1a 20 20 20 20 20 20 e7 28 52 65 61 64 25 |... .(Read%|
000026d0 21 31 36 29 20 3d 32 20 8c 0d 13 1a 1c 20 20 20 |!16) =2 ..... |
000026e0 20 20 20 20 20 e7 20 45 78 74 50 61 74 68 24 20 | . ExtPath$ |
000026f0 3d 22 22 20 8c 0d 13 24 2a 20 20 20 20 20 20 20 |="" ...$* |
00002700 20 20 20 f2 5f 43 72 65 61 74 65 50 61 74 68 28 | ._CreatePath(|
00002710 22 2e 22 20 2b 4c 65 61 66 4e 61 6d 65 24 29 0d |"." +LeafName$).|
00002720 13 2e 0d 20 20 20 20 20 20 20 20 cc 0d 13 38 34 |... ...84|
00002730 20 20 20 20 20 20 20 20 20 20 f2 5f 43 72 65 61 | ._Crea|
00002740 74 65 50 61 74 68 28 45 78 74 50 61 74 68 24 20 |tePath(ExtPath$ |
00002750 2b 22 2e 22 20 2b 4c 65 61 66 4e 61 6d 65 24 29 |+"." +LeafName$)|
00002760 0d 13 42 0d 20 20 20 20 20 20 20 20 cd 0d 13 4c |..B. ...L|
00002770 0b 20 20 20 20 20 20 cc 0d 13 56 1c 20 20 20 20 |. ...V. |
00002780 20 20 20 20 e7 20 45 78 74 50 61 74 68 24 20 3d | . ExtPath$ =|
00002790 22 22 20 8c 0d 13 60 41 20 20 20 20 20 20 20 20 |"" ...`A |
000027a0 20 20 f2 5f 43 72 65 61 74 65 46 69 6c 65 28 53 | ._CreateFile(S|
000027b0 6f 75 72 63 65 50 61 74 68 24 20 2b 22 2e 22 20 |ourcePath$ +"." |
000027c0 2b 4c 65 61 66 4e 61 6d 65 24 2c 4c 65 61 66 4e |+LeafName$,LeafN|
000027d0 61 6d 65 24 29 0d 13 6a 0d 20 20 20 20 20 20 20 |ame$)..j. |
000027e0 20 cc 0d 13 74 40 20 20 20 20 20 20 20 20 20 20 | ...t@ |
000027f0 54 65 6d 70 53 6f 75 72 63 65 24 20 3d 53 6f 75 |TempSource$ =Sou|
00002800 72 63 65 50 61 74 68 24 20 2b 45 78 74 50 61 74 |rcePath$ +ExtPat|
00002810 68 24 20 2b 22 2e 22 20 2b 4c 65 61 66 4e 61 6d |h$ +"." +LeafNam|
00002820 65 24 0d 13 7e 37 20 20 20 20 20 20 20 20 20 20 |e$..~7 |
00002830 54 65 6d 70 46 69 6c 65 24 20 20 20 3d c1 45 78 |TempFile$ =.Ex|
00002840 74 50 61 74 68 24 2c 32 29 20 2b 22 2e 22 20 2b |tPath$,2) +"." +|
00002850 4c 65 61 66 4e 61 6d 65 24 0d 13 88 31 20 20 20 |LeafName$...1 |
00002860 20 20 20 20 20 20 20 f2 5f 43 72 65 61 74 65 46 | ._CreateF|
00002870 69 6c 65 28 54 65 6d 70 53 6f 75 72 63 65 24 2c |ile(TempSource$,|
00002880 54 65 6d 70 46 69 6c 65 24 29 0d 13 92 0d 20 20 |TempFile$).... |
00002890 20 20 20 20 20 20 cd 0d 13 9c 0b 20 20 20 20 20 | ..... |
000028a0 20 cd 0d 13 a6 04 0d 13 b0 09 20 20 20 20 cd 0d | ......... ..|
000028b0 13 ba 04 0d 13 c4 11 20 20 fd 20 4e 65 78 74 25 |....... . Next%|
000028c0 20 3d 2d 31 0d 13 ce 04 0d 13 d8 05 e1 0d 13 e2 | =-1............|
000028d0 04 0d 13 ec 04 0d 13 f6 04 0d 14 00 30 dd f2 5f |............0.._|
000028e0 43 72 65 61 74 65 46 69 6c 65 28 53 6f 75 72 63 |CreateFile(Sourc|
000028f0 65 46 69 6c 65 4e 61 6d 65 24 2c 44 65 73 74 46 |eFileName$,DestF|
00002900 69 6c 65 4e 61 6d 65 24 29 0d 14 0a 04 0d 14 14 |ileName$).......|
00002910 29 20 20 f1 20 22 20 20 43 72 65 61 74 69 6e 67 |) . " Creating|
00002920 20 46 69 6c 65 20 3a 22 20 44 65 73 74 46 69 6c | File :" DestFil|
00002930 65 4e 61 6d 65 24 0d 14 1e 56 20 20 c8 99 20 22 |eName$...V .. "|
00002940 4f 53 5f 46 69 6c 65 22 2c 31 37 2c 53 6f 75 72 |OS_File",17,Sour|
00002950 63 65 46 69 6c 65 4e 61 6d 65 24 20 b8 20 54 79 |ceFileName$ . Ty|
00002960 70 65 25 2c 2c 4c 6f 61 64 41 64 64 72 25 2c 45 |pe%,,LoadAddr%,E|
00002970 78 65 63 41 64 64 72 25 2c 46 69 6c 65 4c 65 6e |xecAddr%,FileLen|
00002980 67 74 68 25 2c 41 74 74 72 69 62 25 0d 14 28 22 |gth%,Attrib%..("|
00002990 20 20 e7 20 54 79 70 65 25 20 3d 30 20 8c 20 85 | . Type% =0 . .|
000029a0 20 30 2c 22 4e 6f 74 20 46 6f 75 6e 64 22 0d 14 | 0,"Not Found"..|
000029b0 32 31 20 20 e7 20 54 79 70 65 25 20 3d 32 20 8c |21 . Type% =2 .|
000029c0 20 85 20 30 2c 22 43 61 6e 27 74 20 64 6f 20 64 | . 0,"Can't do d|
000029d0 69 72 65 63 74 6f 72 69 65 73 20 79 65 74 22 0d |irectories yet".|
000029e0 14 3c 34 20 20 e7 20 46 69 6c 65 4c 65 6e 67 74 |.<4 . FileLengt|
000029f0 68 25 20 3e 35 30 30 2a 31 30 32 34 20 8c 20 85 |h% >500*1024 . .|
00002a00 20 30 2c 22 56 65 72 79 20 4c 6f 6e 67 20 46 69 | 0,"Very Long Fi|
00002a10 6c 65 22 0d 14 46 04 0d 14 50 2a 20 20 4e 61 6d |le"..F...P* Nam|
00002a20 65 45 6e 64 25 20 20 20 20 20 20 20 3d 32 30 20 |eEnd% =20 |
00002a30 2b a9 28 44 65 73 74 46 69 6c 65 4e 61 6d 65 24 |+.(DestFileName$|
00002a40 29 0d 14 5a 2f 20 20 4f 66 66 73 65 74 25 20 20 |)..Z/ Offset% |
00002a50 20 20 20 20 20 20 3d 4e 61 6d 65 45 6e 64 25 20 | =NameEnd% |
00002a60 2b 34 20 2d 4e 61 6d 65 45 6e 64 25 20 83 20 34 |+4 -NameEnd% . 4|
00002a70 0d 14 64 28 20 20 46 69 6c 65 53 74 61 72 74 25 |..d( FileStart%|
00002a80 20 20 20 20 20 3d 54 61 62 6c 65 25 20 2b 4f 66 | =Table% +Of|
00002a90 66 73 65 74 25 20 2b 34 0d 14 6e 2d 20 20 46 69 |fset% +4..n- Fi|
00002aa0 6c 65 45 6e 64 25 20 20 20 20 20 20 20 3d 46 69 |leEnd% =Fi|
00002ab0 6c 65 53 74 61 72 74 25 20 2b 46 69 6c 65 4c 65 |leStart% +FileLe|
00002ac0 6e 67 74 68 25 0d 14 78 2f 20 20 4e 65 78 74 54 |ngth%..x/ NextT|
00002ad0 61 62 6c 65 25 20 20 20 20 20 3d 46 69 6c 65 45 |able% =FileE|
00002ae0 6e 64 25 20 2b 34 20 2d 46 69 6c 65 45 6e 64 25 |nd% +4 -FileEnd%|
00002af0 20 83 20 34 0d 14 82 04 0d 14 8c 28 20 20 54 61 | . 4.......( Ta|
00002b00 62 6c 65 25 21 30 20 20 20 20 20 20 20 3d 4e 65 |ble%!0 =Ne|
00002b10 78 74 54 61 62 6c 65 25 20 2d 54 61 62 6c 65 25 |xtTable% -Table%|
00002b20 0d 14 96 1f 20 20 54 61 62 6c 65 25 21 34 20 20 |.... Table%!4 |
00002b30 20 20 20 20 20 3d 4c 6f 61 64 41 64 64 72 25 0d | =LoadAddr%.|
00002b40 14 a0 1f 20 20 54 61 62 6c 65 25 21 38 20 20 20 |... Table%!8 |
00002b50 20 20 20 20 3d 45 78 65 63 41 64 64 72 25 0d 14 | =ExecAddr%..|
00002b60 aa 2a 20 20 54 61 62 6c 65 25 21 31 32 20 20 20 |.* Table%!12 |
00002b70 20 20 20 3d 46 69 6c 65 45 6e 64 25 20 2d 46 69 | =FileEnd% -Fi|
00002b80 6c 65 53 74 61 72 74 25 0d 14 b4 1f 20 20 54 61 |leStart%.... Ta|
00002b90 62 6c 65 25 21 31 36 20 20 20 20 20 20 3d 26 30 |ble%!16 =&0|
00002ba0 30 30 30 30 30 30 33 0d 14 be 2b 20 20 24 28 54 |0000003...+ $(T|
00002bb0 61 62 6c 65 25 2b 32 30 29 20 20 20 3d 44 65 73 |able%+20) =Des|
00002bc0 74 46 69 6c 65 4e 61 6d 65 24 20 2b c4 35 2c bd |tFileName$ +.5,.|
00002bd0 30 29 0d 14 c8 2d 20 20 54 61 62 6c 65 25 21 4f |0)...- Table%!O|
00002be0 66 66 73 65 74 25 20 3d 34 20 2b 46 69 6c 65 45 |ffset% =4 +FileE|
00002bf0 6e 64 25 20 2d 46 69 6c 65 53 74 61 72 74 25 0d |nd% -FileStart%.|
00002c00 14 d2 40 20 20 e3 20 6e 25 20 3d 46 69 6c 65 53 |..@ . n% =FileS|
00002c10 74 61 72 74 25 20 2b 46 69 6c 65 4c 65 6e 67 74 |tart% +FileLengt|
00002c20 68 25 20 b8 20 46 69 6c 65 53 74 61 72 74 25 20 |h% . FileStart% |
00002c30 2b 46 69 6c 65 4c 65 6e 67 74 68 25 20 2b 35 0d |+FileLength% +5.|
00002c40 14 dc 0e 20 20 20 20 3f 6e 25 20 3d 30 0d 14 e6 |... ?n% =0...|
00002c50 07 20 20 ed 0d 14 f0 30 20 20 c8 99 20 22 4f 53 |. ....0 .. "OS|
00002c60 5f 46 69 6c 65 22 2c 31 36 2c 53 6f 75 72 63 65 |_File",16,Source|
00002c70 46 69 6c 65 4e 61 6d 65 24 2c 46 69 6c 65 53 74 |FileName$,FileSt|
00002c80 61 72 74 25 0d 14 fa 04 0d 15 04 17 20 20 4e 65 |art%........ Ne|
00002c90 78 74 54 61 62 6c 65 25 21 30 20 20 20 3d 30 0d |xtTable%!0 =0.|
00002ca0 15 0e 17 20 20 4e 65 78 74 54 61 62 6c 65 25 21 |... NextTable%!|
00002cb0 34 20 20 20 3d 30 0d 15 18 04 0d 15 22 20 20 20 |4 =0......" |
00002cc0 54 61 62 6c 65 25 20 20 20 20 20 20 20 20 20 3d |Table% =|
00002cd0 4e 65 78 74 54 61 62 6c 65 25 0d 15 2c 23 20 20 |NextTable%..,# |
00002ce0 4c 61 73 74 42 79 74 65 25 20 20 20 20 20 20 3d |LastByte% =|
00002cf0 4e 65 78 74 54 61 62 6c 65 25 20 2b 38 0d 15 36 |NextTable% +8..6|
00002d00 04 0d 15 40 05 e1 0d 15 4a 04 0d 15 54 04 0d 15 |...@....J...T...|
00002d10 5e 04 0d 15 68 0c dd f2 5f 45 72 72 6f 72 0d 15 |^...h..._Error..|
00002d20 72 04 0d 15 7c 16 20 20 ea 20 45 72 72 6f 72 24 |r...|. . Error$|
00002d30 2c 41 6e 73 77 65 72 25 0d 15 86 09 20 20 ea 20 |,Answer%.... . |
00002d40 85 0d 15 90 22 20 20 ee 20 85 20 ea 20 c8 99 20 |...." . . . .. |
00002d50 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 |"Wimp_CloseDown"|
00002d60 3a 20 e0 0d 15 9a 04 0d 15 a4 4c 20 20 45 72 72 |: ........L Err|
00002d70 6f 72 24 20 3d f6 24 20 2b 22 20 28 45 72 72 6f |or$ =.$ +" (Erro|
00002d80 72 20 43 6f 64 65 20 22 2b c3 28 9e 29 2b 22 29 |r Code "+.(.)+")|
00002d90 20 20 20 20 4f 4b 20 74 6f 20 43 6f 6e 74 69 6e | OK to Contin|
00002da0 75 65 2c 20 43 41 4e 43 45 4c 20 74 6f 20 51 55 |ue, CANCEL to QU|
00002db0 49 54 22 0d 15 ae 22 20 20 41 6e 73 77 65 72 25 |IT"..." Answer%|
00002dc0 20 3d a4 5f 4d 65 73 73 61 67 65 28 45 72 72 6f | =._Message(Erro|
00002dd0 72 24 2c 33 29 0d 15 b8 04 0d 15 c2 14 20 20 e7 |r$,3)........ .|
00002de0 20 41 6e 73 77 65 72 25 20 3d 30 20 8c 0d 15 cc | Answer% =0 ....|
00002df0 1b 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 43 6c |. .. "Wimp_Cl|
00002e00 6f 73 65 44 6f 77 6e 22 0d 15 d6 09 20 20 20 20 |oseDown".... |
00002e10 e0 0d 15 e0 07 20 20 cd 0d 15 ea 04 0d 15 f4 09 |..... .........|
00002e20 20 20 f7 20 85 0d 15 fe 04 0d 16 08 05 e1 0d 16 | . ............|
00002e30 12 04 0d 16 1c 04 0d 16 26 04 0d 16 30 10 dd f2 |........&...0...|
00002e40 5f 49 6e 69 74 61 6c 69 73 65 0d 16 3a 04 0d 16 |_Initalise..:...|
00002e50 44 23 20 20 de 20 42 6c 6f 63 6b 25 20 31 30 32 |D# . Block% 102|
00002e60 34 2c 20 53 75 62 42 6c 6f 63 6b 25 20 31 30 32 |4, SubBlock% 102|
00002e70 34 0d 16 4e 1e 20 20 de 20 43 6f 64 65 25 20 4d |4..N. . Code% M|
00002e80 61 78 4d 6f 64 53 69 7a 65 25 2a 26 34 30 30 0d |axModSize%*&400.|
00002e90 16 58 0e 20 20 45 78 69 74 25 20 3d a3 0d 16 62 |.X. Exit% =...b|
00002ea0 04 0d 16 6c 21 20 20 41 70 70 24 20 3d 22 52 65 |...l! App$ ="Re|
00002eb0 73 6f 75 72 63 65 46 53 20 4d 6f 64 69 66 69 65 |sourceFS Modifie|
00002ec0 72 22 0d 16 76 3b 20 20 c8 99 20 22 57 69 6d 70 |r"..v; .. "Wimp|
00002ed0 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 30 30 |_Initialise",200|
00002ee0 2c 26 34 42 35 33 34 31 35 34 2c 41 70 70 24 20 |,&4B534154,App$ |
00002ef0 b8 20 57 69 6d 70 25 2c 54 61 73 6b 25 0d 16 80 |. Wimp%,Task%...|
00002f00 04 0d 16 8a 2a 20 20 53 6f 75 72 63 65 44 69 72 |....* SourceDir|
00002f10 49 63 6f 6e 25 20 3d 39 20 20 3a 4d 6f 64 4e 61 |Icon% =9 :ModNa|
00002f20 6d 65 49 63 6f 6e 25 20 3d 31 30 0d 16 94 18 20 |meIcon% =10.... |
00002f30 20 46 69 6c 65 4e 61 6d 65 49 63 6f 6e 25 20 20 | FileNameIcon% |
00002f40 3d 31 31 0d 16 9e 2a 20 20 48 65 6c 70 49 63 6f |=11...* HelpIco|
00002f50 6e 25 20 20 20 20 20 20 3d 31 33 20 3a 44 72 61 |n% =13 :Dra|
00002f60 67 49 63 6f 6e 25 20 20 20 20 3d 31 32 0d 16 a8 |gIcon% =12...|
00002f70 1b 20 20 de 20 54 65 6d 70 6c 61 74 65 53 70 61 |. . TemplateSpa|
00002f80 63 65 25 20 31 30 32 34 0d 16 b2 24 20 20 20 20 |ce% 1024...$ |
00002f90 54 65 6d 70 6c 61 74 65 50 74 72 25 20 3d 54 65 |TemplatePtr% =Te|
00002fa0 6d 70 6c 61 74 65 53 70 61 63 65 25 0d 16 bc 2a |mplateSpace%...*|
00002fb0 20 20 20 20 54 65 6d 70 6c 61 74 65 45 6e 64 25 | TemplateEnd%|
00002fc0 20 3d 54 65 6d 70 6c 61 74 65 53 70 61 63 65 25 | =TemplateSpace%|
00002fd0 20 2b 31 30 32 34 0d 16 c6 04 0d 16 d0 36 20 20 | +1024.......6 |
00002fe0 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d |.. "Wimp_OpenTem|
00002ff0 70 6c 61 74 65 22 2c 2c 22 3c 52 65 73 4d 6f 64 |plate",,"<ResMod|
00003000 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 |$Dir>.Templates"|
00003010 0d 16 da 5b 20 20 c8 99 20 22 57 69 6d 70 5f 4c |...[ .. "Wimp_L|
00003020 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 42 6c |oadTemplate",,Bl|
00003030 6f 63 6b 25 2c 54 65 6d 70 6c 61 74 65 50 74 72 |ock%,TemplatePtr|
00003040 25 2c 54 65 6d 70 6c 61 74 65 45 6e 64 25 2c 2d |%,TemplateEnd%,-|
00003050 31 2c 22 49 6e 66 6f 22 2c 30 20 b8 20 2c 2c 54 |1,"Info",0 . ,,T|
00003060 65 6d 70 6c 61 74 65 50 74 72 25 0d 16 e4 2f 20 |emplatePtr%.../ |
00003070 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 | .. "Wimp_Create|
00003080 57 69 6e 64 6f 77 22 2c 2c 42 6c 6f 63 6b 25 20 |Window",,Block% |
00003090 b8 20 49 6e 66 6f 57 69 6e 25 0d 16 ee 5b 20 20 |. InfoWin%...[ |
000030a0 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d |.. "Wimp_LoadTem|
000030b0 70 6c 61 74 65 22 2c 2c 42 6c 6f 63 6b 25 2c 54 |plate",,Block%,T|
000030c0 65 6d 70 6c 61 74 65 50 74 72 25 2c 54 65 6d 70 |emplatePtr%,Temp|
000030d0 6c 61 74 65 45 6e 64 25 2c 2d 31 2c 22 4d 61 69 |lateEnd%,-1,"Mai|
000030e0 6e 22 2c 30 20 b8 20 2c 2c 54 65 6d 70 6c 61 74 |n",0 . ,,Templat|
000030f0 65 50 74 72 25 0d 16 f8 2f 20 20 c8 99 20 22 57 |ePtr%.../ .. "W|
00003100 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
00003110 22 2c 2c 42 6c 6f 63 6b 25 20 b8 20 4d 61 69 6e |",,Block% . Main|
00003120 57 69 6e 25 0d 17 02 1d 20 20 c8 99 20 22 57 69 |Win%.... .. "Wi|
00003130 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 |mp_CloseTemplate|
00003140 22 0d 17 0c 04 0d 17 16 1b 20 20 53 75 62 42 6c |"........ SubBl|
00003150 6f 63 6b 25 21 30 20 3d 4d 61 69 6e 57 69 6e 25 |ock%!0 =MainWin%|
00003160 0d 17 20 2a 20 20 c8 99 20 22 57 69 6d 70 5f 47 |.. * .. "Wimp_G|
00003170 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 30 |etWindowState",0|
00003180 2c 53 75 62 42 6c 6f 63 6b 25 0d 17 2a 16 20 20 |,SubBlock%..*. |
00003190 53 75 62 42 6c 6f 63 6b 25 21 32 38 20 3d 2d 31 |SubBlock%!28 =-1|
000031a0 0d 17 34 26 20 20 c8 99 20 22 57 69 6d 70 5f 4f |..4& .. "Wimp_O|
000031b0 70 65 6e 57 69 6e 64 6f 77 22 2c 30 2c 53 75 62 |penWindow",0,Sub|
000031c0 42 6c 6f 63 6b 25 0d 17 3e 35 20 20 53 6f 75 72 |Block%..>5 Sour|
000031d0 63 65 44 69 72 25 20 3d a4 5f 47 65 74 49 6e 64 |ceDir% =._GetInd|
000031e0 69 72 28 4d 61 69 6e 57 69 6e 25 2c 53 6f 75 72 |ir(MainWin%,Sour|
000031f0 63 65 44 69 72 49 63 6f 6e 25 29 0d 17 48 33 20 |ceDirIcon%)..H3 |
00003200 20 4d 6f 64 4e 61 6d 65 25 20 20 20 3d a4 5f 47 | ModName% =._G|
00003210 65 74 49 6e 64 69 72 28 4d 61 69 6e 57 69 6e 25 |etIndir(MainWin%|
00003220 2c 4d 6f 64 4e 61 6d 65 49 63 6f 6e 25 29 0d 17 |,ModNameIcon%)..|
00003230 52 34 20 20 46 69 6c 65 49 63 6f 6e 25 20 20 3d |R4 FileIcon% =|
00003240 a4 5f 47 65 74 49 6e 64 69 72 28 4d 61 69 6e 57 |._GetIndir(MainW|
00003250 69 6e 25 2c 46 69 6c 65 4e 61 6d 65 49 63 6f 6e |in%,FileNameIcon|
00003260 25 29 0d 17 5c 04 0d 17 66 05 e1 0d 17 70 04 0d |%)..\...f....p..|
00003270 17 7a 04 0d 17 84 04 0d ff |.z.......|
00003279 
.