Home » Archimedes archive » Acorn User » AU 1993-08.adf » !Morphing_Morphing » !Convert/!RunImage
!Convert/!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 » AU 1993-08.adf » !Morphing_Morphing |
| Filename: | !Convert/!RunImage |
| Read OK: | ✔ |
| File size: | 2CBF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!RunImage
20REM By Mark Moxon & Robin Barnes
30REM For 32-bit machines
40REM (c) BAU August 1993
50:
60version$="1.00 (25-May-93)"
70dir$="<Convert$Dir>"
80LIBRARY dir$+".WimpLib"
90:
100PROCsetup
110PROCtemplates(dir$+".Templates")
120bar%=FNicon_bar(block%,"!convert")
130:
140bmenu_length%=2
150PROCcreate_menu(bmenu%,width%,end%,"Convert")
160PROCmenu_item(bmenu%,width%,end%,"Info",0,0,0,0,0,info%)
170PROCmenu_item(bmenu%,width%,end%,"Quit",0,0,0,0,1,-1)
180:
190REPEAT
200 PROCpoll
210UNTIL quit%
220:
230$block%="TASK"
240SYS "Wimp_CloseDown",task%,!block%
250END
260:
270:
280DEF PROCsetup
290ON ERROR IF FNwimperror(block%,ERR,REPORT$+" (internal error code "+STR$(ERL)+")",task_name$,0,1)=2 THEN SYS "Wimp_CloseDown":END
300quit%=FALSE : REM True if application is to be quit
310DIM block% &1000 : REM Block returned by Wimp_Poll
320DIM bmenu% &200 : REM Main icon bar menu
330DIM ind1% 1400 : REM Workspace for indirected icons
340DIM decode% &100 : REM Block to decode menu choices into
350DIM squash &2000
360task_name$="Convert"
370info4$=version$
380$block%="TASK"
390SYS "Wimp_Initialise",200,!block%,task_name$ TO version%,task%
400ENDPROC
410:
420:
430DEF PROCtemplates(file$)
440DIM tempname% 11
450SYS "Wimp_OpenTemplate",,file$
460$tempname%="progInfo"
470SYS "Wimp_LoadTemplate",,block%,ind1%,ind1%+1399,-1,tempname%,0 TO ,,ind2%
480SYS "Wimp_CreateWindow",,block% TO info%
490!block%=info%
500block%!4=4:SYS "Wimp_GetIconState",,block%:$(block%!28)=info4$
510$tempname%="convert"
520SYS "Wimp_LoadTemplate",,block%,ind2%,ind1%+1399,-1,tempname%,0 TO ,,ind2%
530SYS "Wimp_CreateWindow",,block% TO convert%
540$tempname%="save"
550SYS "Wimp_LoadTemplate",,block%,ind2%,ind1%+1399,-1,tempname%,0
560SYS "Wimp_CreateWindow",,block% TO save%
570SYS "Wimp_CloseTemplate"
580ENDPROC
590:
600:
610DEF PROCpoll
620SYS "Wimp_Poll",,block% TO reason%
630CASE reason% OF
640 WHEN 2 : SYS "Wimp_OpenWindow",,block%
650 WHEN 3 : SYS "Wimp_CloseWindow",,block%
660 WHEN 6 : PROCmouse_click
670 WHEN 7 : PROCend_dragsave(block%,save%,0,&601,0)
680 WHEN 8 : SYS "Wimp_ProcessKey",block%!24
690 WHEN 9 : PROCmenu_selection
700 WHEN 17,18 : PROCuser_message
710ENDCASE
720ENDPROC
730:
740:
750DEF PROCmouse_click
760CASE block%!12 OF
770 WHEN -2 : IF block%!8=2 THEN PROCdisplay_bar_menu(bmenu%,bmenu_length%,!block%) ELSE !block%=convert%:SYS "Wimp_GetWindowState",,block%:block%!28=-1:SYS "Wimp_OpenWindow",,block%
780 WHEN save%
790 IF (block%!8 AND &50)>0 AND block%!16=2 THEN PROCstart_dragsave(block%,save%,2)
800 WHEN convert%
810 CASE block%!16 OF
820 WHEN 20 : PROCprocess
830 WHEN 28
840 !block%=convert%:block%!4=32:SYS "Wimp_GetIconState",,block%
850 frame%=VAL($(block%!28))
860 IF frame%<>1 THEN frame%-=1
870 $(block%!28)=STR$(frame%)
880 !block%=convert%:block%!4=32
890 block%!8=0:block%!12=0
900 SYS "Wimp_SetIconState",,block%
910 WHEN 29
920 !block%=convert%:block%!4=32:SYS "Wimp_GetIconState",,block%
930 frame%=VAL($(block%!28))
940 $(block%!28)=STR$(frame%+1)
950 !block%=convert%:block%!4=32
960 block%!8=0:block%!12=0
970 SYS "Wimp_SetIconState",,block%
980 WHEN 31
990 IF block%!8=1 THEN !block%=convert%:block%!4=31:block%!8=1<<21:block%!12=1<<21:SYS "Wimp_SetIconState",,block%
1000 WHEN 33
1010 IF block%!8=1 THEN !block%=convert%:block%!4=33:block%!8=1<<21:block%!12=1<<21:SYS "Wimp_SetIconState",,block%
1020 WHEN 27
1030 x%=!block%:y%=block%!4
1040 SYS "Wimp_CreateMenu",,save%,x%-64,y%
1050 ENDCASE
1060ENDCASE
1070ENDPROC
1080:
1090:
1100DEF PROCmenu_selection
1110IF !block%=1 THEN quit%=TRUE
1120ENDPROC
1130:
1140:
1150DEF PROCuser_message
1160CASE block%!16 OF
1170 WHEN 0
1180 quit%=TRUE
1190 WHEN 2
1200 newfile$=FNmessage_datasave(block%)
1210 SYS "Wimp_CreateMenu",,-1
1220 !block%=save%:block%!4=0:SYS "Wimp_GetIconState",,block%
1230 $(block%!28)=newfile$
1240 !block%=convert%:block%!4=0
1250 block%!8=0:block%!12=0
1260 SYS "Wimp_SetIconState",,block%
1270 !block%=convert%:block%!4=21:SYS "Wimp_GetIconState",,block%
1280 $(block%!28)=newfile$
1290 !block%=convert%:block%!4=21
1300 block%!8=0:block%!12=0
1310 SYS "Wimp_SetIconState",,block%
1320 WHEN 3
1330 newfile$=FNzero_string(block%+44)
1340 WHILE RIGHT$(newfile$)>="0" AND RIGHT$(newfile$)<="9"
1350 newfile$=LEFT$(newfile$)
1360 ENDWHILE
1370 block%!12=block%!8
1380 block%!16=4
1390 SYS "Wimp_SendMessage",17,block%,block%!4
1400 !block%=convert%:block%!4=23:SYS "Wimp_GetIconState",,block%
1410 $(block%!28)=newfile$
1420 !block%=convert%:block%!4=23
1430 block%!8=0:block%!12=0
1440 SYS "Wimp_SetIconState",,block%
1450ENDCASE
1460ENDPROC
1470:
1480DEF PROCprocess
1490wimpmode%=MODE
1500!block%=convert%:block%!4=21:SYS "Wimp_GetIconState",,block%
1510data$=$(block%!28)
1520!block%=convert%:block%!4=23:SYS "Wimp_GetIconState",,block%
1530sprite$=$(block%!28)
1540!block%=convert%:block%!4=32:SYS "Wimp_GetIconState",,block%
1550max%=VAL($(block%!28))
1560!block%=convert%:block%!4=16:SYS "Wimp_GetIconState",,block%
1570load$=$(block%!28)
1580!block%=convert%:block%!4=10:SYS "Wimp_GetIconState",,block%
1590scroll%=((block%!24)>>21)AND1
1600!block%=convert%:block%!4=33:SYS "Wimp_GetIconState",,block%
1610cycle%=((block%!24)>>21)AND1
1620:
1630PROCcode
1640LOCAL ERROR
1650ON ERROR LOCAL SYS "Wimp_SetMode",wimpmode%:RESTORE ERROR:ERROR ERL,REPORT$:ENDPROC
1660PROCgetbox
1670:
1680DIM sprite% sprsze%
1690!sprite%=sprsze%
1700sprite%!4=0
1710sprite%!8=16
1720sprite%!12=16
1730bufsze%=HIMEM-(END+&8000)
1740DIM buffer% bufsze%
1750:
1760PROCprogram
1770IF scroll%=1 THEN buffer%!4=buffer%!4 OR 2
1780SYS "OS_File",&00,data$,0,0,buffer%,store%+sze%
1790SYS "OS_File",&12,data$,&601
1800SYS "Wimp_SetMode",wimpmode%
1810ENDPROC
1820:
1830DEF PROCcode
1840FOR opt=0 TO 2 STEP 2
1850P%=squash
1860[OPT opt
1870:
1880.countcolour
1890STMFD R13!,{R14}
1900MOV R0,#&00
1910LDR R1,coladr
1920LDR R4,paladr
1930MOV R2,#&FF
1940MOV R3,#&00
1950MOV R5,#&FF
1960:
1970.clearcol
1980MOV R0,R3,ASL #&18
1990ADD R3,R3,#&01
2000STR R0,[R1],#&04
2010STRB R5,[R4],#&01
2020SUBS R2,R2,#&01
2030BGE clearcol
2040LDR R1,read
2050LDR R2,coladr
2060LDR R3,size
2070MOV R12,#&1000000
2080SUB R12,R12,#&01
2090:
2100.cntcolp
2110LDRB R4,[R1],#&01
2120SUBS R3,R3,#&01
2130BEQ cntcolex
2140LDR R0,[R2,R4,ASL #&02]
2150AND R5,R0,R12
2160AND R6,R0,#&FF000000
2170ADD R5,R5,#&01
2180ORR R0,R5,R6
2190STR R0,[R2,R4,ASL #&02]
2200B cntcolp
2210:
2220.cntcolex
2230MOV R0,#&FF
2240LDR R1,coladr
2250MOV R2,R0,ASR #&01
2260:
2270.fstsrtlp
2280MOV R3,R2
2290MOV R4,R0
2300BL pileup
2310SUBS R2,R2,#&01
2320BPL fstsrtlp
2330MOV R2,R0
2340:
2350.secsrtlp
2360MOV R6,#&00
2370MOV R7,R2
2380BL swap
2390SUB R4,R2,#&01
2400MOV R3,#&00
2410BL pileup
2420SUBS R2,R2,#&01
2430BNE secsrtlp
2440LDR R2,savepal
2450MOV R3,#&FF
2460:
2470.bldpalte
2480LDR R0,[R1,R3,ASL #&02]
2490SUB R3,R3,#&01
2500CMP R3,#&80
2510BLT bldpalex
2520ANDS R4,R0,R12
2530BEQ bldpalex
2540AND R0,R0,#&FF000000
2550MOV R0,R0,ASR #&18
2560STRB R0,[R2],#&01
2570B bldpalte
2580:
2590.bldpalex
2600RSB R0,R3,#&FF
2610LDR R1,paladr
2620LDR R2,savepal
2630:
2640.bldsqpal
2650LDRB R3,[R2,R0]
2660STRB R0,[R1,R3]
2670SUBS R0,R0,#&01
2680BGE bldsqpal
2690LDMFD R13!,{PC}
2700:
2710.pileup
2720STMFD R13!,{R14}
2730:
2740.thrsrtlp
2750MOV R5,R3,ASL #&01
2760CMP R5,R4
2770LDMGTFD R13!,{PC}^
2780BEQ oneonly
2790MOV R6,R5
2800ADD R7,R5,#&01
2810BL backward
2820ADDLT R5,R5,#&01
2830MOV R6,R3
2840MOV R7,R5
2850BL backward
2860LDMGEFD R13!,{PC}^
2870BL swap1
2880MOV R3,R5
2890B thrsrtlp
2900:
2910.oneonly
2920MOV R6,R3
2930MOV R7,R4
2940BL backward
2950BLLT swap1
2960LDMFD R13!,{PC}^
2970:
2980.swap
2990LDR R8,[R1,R6,ASL #&02]
3000LDR R9,[R1,R7,ASL #&02]
3010:
3020.swap1
3030STR R9,[R1,R6,ASL #&02]
3040STR R8,[R1,R7,ASL #&02]
3050MOVS PC,R14
3060:
3070.backward
3080LDR R8,[R1,R6,ASL #&02]
3090LDR R9,[R1,R7,ASL #&02]
3100AND R10,R8,R12
3110AND R11,R9,R12
3120CMP R10,R11
3130MOV PC,R14
3140:
3150.crush
3160LDR R1,read
3170LDR R2,write
3180LDR R3,size
3190MOV R4,#&100
3200MOV R5,#&00
3210LDR R6,paladr
3220:
3230.crushlp
3240LDRB R7,[R1],#&01
3250LDRB R0,[R6,R7]
3260SUBS R3,R3,#&01
3270BEQ crushex
3280CMP R7,R4
3290BNE crsdif
3300ADD R5,R5,#&01
3310CMP R5,#&7E
3320BLT crushlp
3330:
3340.crshnum
3350ORR R5,R5,#&80
3360STRB R5,[R2],#&01
3370MOV R5,#&00
3380B crushlp
3390:
3400.crsdif
3410CMP R5,#&00
3420ORRGT R5,R5,#&80
3430STRGTB R5,[R2],#&01
3440MOVGT R5,#&00
3450STRB R0,[R2],#&01
3460CMP R0,#&FF
3470STREQB R7,[R2],#&01
3480MOV R4,R7
3490B crushlp
3500:
3510.crushex
3520CMP R5,#&00
3530ORRGT R5,R5,#&80
3540STRGTB R5,[R2],#&01
3550STRB R0,[R2],#&01
3560CMP R0,#&FF
3570STREQB R7,[R2],#&01
3580STR R2,write
3590MOV PC,R14
3600:
3610.expand
3620LDR R7,read
3630ADD R1,R7,#&80
3640LDR R2,write
3650LDR R3,size
3660MOV R4,#&00
3670LDRB R0,[R1],#&01
3680CMP R0,#&FF
3690LDREQB R0,[R1],#&01
3700LDRNEB R0,[R7,R0]
3710:
3720.explp
3730STRB R0,[R2],#&01
3740SUBS R3,R3,#&01
3750MOVEQ PC,R14
3760SUBS R4,R4,#&01
3770BGT explp
3780LDRB R5,[R1],#&01
3790CMP R5,#&FF
3800LDREQB R0,[R1],#&01
3810BEQ explp
3820ANDS R6,R5,#&80
3830ANDNE R4,R5,#&7F
3840LDREQB R0,[R7,R5]
3850B explp
3860:
3870.limit
3880LDR R1,read
3890LDR R2,line
3900LDR R3,size
3910MOV R4,#&00
3920MOV R5,#&00
3930MOV R6,#&00
3940MOV R7,R2
3950ADR R0,box
3960LDMIA R0,{R8-R11}
3970MOV R12,#&00
3980:
3990.limscan
4000SUBS R3,R3,#&01
4010ADREQ R0,box
4020STMEQIA R0,{R8-R11}
4030MOVEQ PC,R14
4040LDRB R0,[R1]
4050CMP R0,#&00
4060MOVNE R12,#&01
4070MOVNE R6,R4
4080CMPEQ R6,#&00
4090MOVEQ R7,R4
4100STRB R0,[R1],#&01
4110ADD R4,R4,#&01
4120CMP R4,R2
4130BLT limscan
4140MOV R4,#&00
4150CMP R6,R8
4160MOVGT R8,R6
4170CMP R7,R9
4180MOVLT R9,R7
4190MOV R6,#&00
4200MOV R7,R2
4210CMP R12,#&00
4220ADDEQ R5,R5,#&01
4230BEQ limscan
4240CMP R5,R10
4250MOVGT R10,R5
4260CMP R5,R11
4270MOVLT R11,R5
4280ADD R5,R5,#&01
4290MOV R12,#&00
4300B limscan
4310:
4320.line EQUD &00
4330:
4340.box
4350EQUD &00:EQUD &00
4360EQUD &00:EQUD &00
4370:
4380.read
4390EQUD &00
4400:
4410.write
4420EQUD &00
4430:
4440.savepal
4450EQUD &00
4460:
4470.size
4480EQUD &00
4490:
4500.paladr
4510EQUD sqshpal
4520:
4530.coladr
4540EQUD coltable
4550]
4560sqshpal=P%
4570coltable=P%+256
4580NEXT opt
4590ENDPROC
4600:
4610DEF PROCconvert(frame%)
4620SYS "OS_SpriteOp",256+24,sprite%,"frame" TO ,,spadr%
4630start%=spadr%+spadr%!32
4640end%=spadr%+!spadr%
4650size%=end%-start%
4660!size=size%
4670!read=start%
4680!write=store%+sze%+128
4690!savepal=store%+sze%
4700CALL countcolour
4710CALL crush
4720sze%=!write-store%
4730table%!(4+4*frame%)=sze%
4740IF sze%>bufsze% THEN ERROR 0,"Memory full"
4750ENDPROC
4760:
4770DEF PROCprogram
4780!buffer%=max%
4790buffer%!4=cycle%
4800table%=buffer%+152
4810store%=buffer%+4*max%+160
4820sze%=0
4830!table%=sze%
4840FOR frame%=0 TO max%
4850CLS
4860OSCLI load$+" "+sprite$+STR$(frame%)
4870SYS "OS_SpriteOp",256+16,sprite%,"frame",1,lft%,btm%,rgt%,top%
4880PROCconvert(frame%)
4890RECTANGLE lft%,btm%,rgt%-lft%,top%-btm%
4900NEXT frame%
4910SYS "OS_SpriteOp",256+40,sprite%,"frame" TO ,,,wdt%,hgt%
4920SYS "OS_SpriteOp",256+24,sprite%,"frame" TO ,,spadr%
4930buffer%!8=spadr%+!spadr%-sprite%
4940buffer%!12=MODE:buffer%!16=wdt%:buffer%!20=hgt%
4950FOR palette%=0 TO 31
4960buffer%!(24+4*palette%)=spadr%!(44+palette%*4)
4970NEXT palette%
4980SYS "OS_SpriteOp",256+9,sprite%
4990ENDPROC
5000:
5010DEF PROCexpand(frame%)
5020OSCLI load$+" "+sprite$+STR$(frame%)
5030ENDPROC
5040:
5050DEF PROCpalette
5060FOR col%=0 TO 15
5070VDU 19,col%,16,buffer%?(24+8*col%+1),buffer%?(24+8*col%+2),buffer%?(24+8*col%+3)
5080NEXT col%
5090ENDPROC
5100:
5110DEF PROCgetbox
5120frame%=0
5130OSCLI load$+" "+sprite$+STR$(frame%)
5140OFF
5150GCOL 0 TINT 0:RECTANGLE 0,0,1279,1023
5160WAIT
5170!box=149:box!4=-1
5180SYS "OS_ReadVduVariables",box,box+8
5190!read=box!8
5200SYS "OS_ReadModeVariable",MODE,4 TO ,,xeig%
5210SYS "OS_ReadModeVariable",MODE,5 TO ,,yeig%
5220SYS "OS_ReadModeVariable",MODE,6 TO ,,!line
5230SYS "OS_ReadModeVariable",MODE,7 TO ,,!size
5240!box=0:box!4=!line:box!8=0:box!12=1024>>yeig%
5250WHILE frame%<max%
5260CALL limit
5270lft%=box!4<<xeig%:rgt%=!box<<xeig%
5280btm%=1023-(box!12<<yeig%):top%=1023-(box!8<<yeig%)
5290GCOL 63 TINT 192:RECTANGLE lft%,btm%,rgt%-lft%,top%-btm%
5300frame%+=1
5310OSCLI load$+" "+sprite$+STR$(frame%)
5320OFF
5330GCOL 0 TINT 0:RECTANGLE 0,0,1279,1023
5340WAIT
5350ENDWHILE
5360CALL limit
5370sprsze%=4096+(!box-box!4)*(box!8-box!12)
5380lft%=box!4<<xeig%:rgt%=!box<<xeig%
5390btm%=1024-(box!12<<yeig%):top%=1024-(box!8<<yeig%)
5400lft%=lft% AND NOT 15:btm%=btm% AND NOT 15
5410rgt%=(rgt% AND NOT 15)-1:top%=(top% AND NOT 15)-1
5420GCOL 63 TINT 192:RECTANGLE lft%,btm%,rgt%-lft%,top%-btm%
5430ENDPROC
� >!RunImage
#� By Mark Moxon & Robin Barnes
� For 32-bit machines
(� (c) BAU August 1993
2:
< version$="1.00 (25-May-93)"
Fdir$="<Convert$Dir>"
Pț dir$+".WimpLib"
Z:
d
�setup
n!�templates(dir$+".Templates")
x%bar%=�icon_bar(block%,"!convert")
�:
�bmenu_length%=2
�.�create_menu(bmenu%,width%,end%,"Convert")
�9�menu_item(bmenu%,width%,end%,"Info",0,0,0,0,0,info%)
�6�menu_item(bmenu%,width%,end%,"Quit",0,0,0,0,1,-1)
�:
��
�
�poll
� � quit%
�:
�$block%="TASK"
�%ș "Wimp_CloseDown",task%,!block%
��
:
:
� �setup
"l� � � �wimperror(block%,�,�$+" (internal error code "+�(�)+")",task_name$,0,1)=2 � ș "Wimp_CloseDown":�
,7quit%=� : � True if application is to be quit
63� block% &1000 : � Block returned by Wimp_Poll
@*� bmenu% &200 : � Main icon bar menu
J6� ind1% 1400 : � Workspace for indirected icons
T9� decode% &100 : � Block to decode menu choices into
^� squash &2000
htask_name$="Convert"
rinfo4$=version$
|$block%="TASK"
�@ș "Wimp_Initialise",200,!block%,task_name$ � version%,task%
��
�:
�:
�� �templates(file$)
�� tempname% 11
�!ș "Wimp_OpenTemplate",,file$
�$tempname%="progInfo"
�Lș "Wimp_LoadTemplate",,block%,ind1%,ind1%+1399,-1,tempname%,0 � ,,ind2%
�*ș "Wimp_CreateWindow",,block% � info%
�!block%=info%
�Ablock%!4=4:ș "Wimp_GetIconState",,block%:$(block%!28)=info4$
�$tempname%="convert"
Lș "Wimp_LoadTemplate",,block%,ind2%,ind1%+1399,-1,tempname%,0 � ,,ind2%
-ș "Wimp_CreateWindow",,block% � convert%
$tempname%="save"
&Bș "Wimp_LoadTemplate",,block%,ind2%,ind1%+1399,-1,tempname%,0
0*ș "Wimp_CreateWindow",,block% � save%
:ș "Wimp_CloseTemplate"
D�
N:
X:
b � �poll
l$ș "Wimp_Poll",,block% � reason%
vȎ reason% �
�' � 2 : ș "Wimp_OpenWindow",,block%
�( � 3 : ș "Wimp_CloseWindow",,block%
� � 6 : �mouse_click
�/ � 7 : �end_dragsave(block%,save%,0,&601,0)
�) � 8 : ș "Wimp_ProcessKey",block%!24
� � 9 : �menu_selection
� � 17,18 : �user_message
��
��
�:
�:
�� �mouse_click
�Ȏ block%!12 �
� � -2 : � block%!8=2 � �display_bar_menu(bmenu%,bmenu_length%,!block%) � !block%=convert%:ș "Wimp_GetWindowState",,block%:block%!28=-1:ș "Wimp_OpenWindow",,block%
� save%
J � (block%!8 � &50)>0 � block%!16=2 � �start_dragsave(block%,save%,2)
� convert%
* Ȏ block%!16 �
4 � 20 : �process
> � 28
HC !block%=convert%:block%!4=32:ș "Wimp_GetIconState",,block%
R frame%=�($(block%!28))
\ � frame%<>1 � frame%-=1
f $(block%!28)=�(frame%)
p$ !block%=convert%:block%!4=32
z block%!8=0:block%!12=0
�& ș "Wimp_SetIconState",,block%
� � 29
�C !block%=convert%:block%!4=32:ș "Wimp_GetIconState",,block%
� frame%=�($(block%!28))
� $(block%!28)=�(frame%+1)
�$ !block%=convert%:block%!4=32
� block%!8=0:block%!12=0
�& ș "Wimp_SetIconState",,block%
� � 31
�q � block%!8=1 � !block%=convert%:block%!4=31:block%!8=1<<21:block%!12=1<<21:ș "Wimp_SetIconState",,block%
� � 33
�q � block%!8=1 � !block%=convert%:block%!4=33:block%!8=1<<21:block%!12=1<<21:ș "Wimp_SetIconState",,block%
� � 27
x%=!block%:y%=block%!4
, ș "Wimp_CreateMenu",,save%,x%-64,y%
�
$�
.�
8:
B:
L� �menu_selection
V� !block%=1 � quit%=�
`�
j:
t:
~� �user_message
�Ȏ block%!16 �
� � 0
�
quit%=�
� � 2
�( newfile$=�message_datasave(block%)
� ș "Wimp_CreateMenu",,-1
�= !block%=save%:block%!4=0:ș "Wimp_GetIconState",,block%
� $(block%!28)=newfile$
�! !block%=convert%:block%!4=0
� block%!8=0:block%!12=0
�$ ș "Wimp_SetIconState",,block%
�A !block%=convert%:block%!4=21:ș "Wimp_GetIconState",,block%
$(block%!28)=newfile$
" !block%=convert%:block%!4=21
block%!8=0:block%!12=0
$ ș "Wimp_SetIconState",,block%
( � 3
2& newfile$=�zero_string(block%+44)
<* ȕ �newfile$)>="0" � �newfile$)<="9"
F newfile$=�newfile$)
P �
Z block%!12=block%!8
d block%!16=4
n. ș "Wimp_SendMessage",17,block%,block%!4
xA !block%=convert%:block%!4=23:ș "Wimp_GetIconState",,block%
� $(block%!28)=newfile$
�" !block%=convert%:block%!4=23
� block%!8=0:block%!12=0
�$ ș "Wimp_SetIconState",,block%
��
��
�:
�� �process
�wimpmode%=�
�?!block%=convert%:block%!4=21:ș "Wimp_GetIconState",,block%
�data$=$(block%!28)
�?!block%=convert%:block%!4=23:ș "Wimp_GetIconState",,block%
�sprite$=$(block%!28)
?!block%=convert%:block%!4=32:ș "Wimp_GetIconState",,block%
max%=�($(block%!28))
?!block%=convert%:block%!4=16:ș "Wimp_GetIconState",,block%
"load$=$(block%!28)
,?!block%=convert%:block%!4=10:ș "Wimp_GetIconState",,block%
6 scroll%=((block%!24)>>21)�1
@?!block%=convert%:block%!4=33:ș "Wimp_GetIconState",,block%
J cycle%=((block%!24)>>21)�1
T:
^ �code
h� �
r2� � � ș "Wimp_SetMode",wimpmode%:� �:� �,�$:�
| �getbox
�:
�� sprite% sprsze%
�!sprite%=sprsze%
�sprite%!4=0
�sprite%!8=16
�sprite%!12=16
�bufsze%=�-(�+&8000)
�� buffer% bufsze%
�:
� �program
�)� scroll%=1 � buffer%!4=buffer%!4 � 2
�2ș "OS_File",&00,data$,0,0,buffer%,store%+sze%
� ș "OS_File",&12,data$,&601
ș "Wimp_SetMode",wimpmode%
�
:
& � �code
0� opt=0 � 2 � 2
:
P%=squash
D [OPT opt
N:
X.countcolour
bSTMFD R13!,{R14}
lMOV R0,#&00
vLDR R1,coladr
�LDR R4,paladr
�MOV R2,#&FF
�MOV R3,#&00
�MOV R5,#&FF
�:
�
.clearcol
�MOV R0,R3,ASL #&18
�ADD R3,R3,#&01
�STR R0,[R1],#&04
�STRB R5,[R4],#&01
�SUBS R2,R2,#&01
�BGE clearcol
�LDR R1,read
LDR R2,coladr
LDR R3,size
MOV R12,#&1000000
SUB R12,R12,#&01
*:
4 .cntcolp
>LDRB R4,[R1],#&01
HSUBS R3,R3,#&01
RBEQ cntcolex
\LDR R0,[R2,R4,ASL #&02]
f� R5,R0,R12
p� R6,R0,#&FF000000
zADD R5,R5,#&01
��R R0,R5,R6
�STR R0,[R2,R4,ASL #&02]
�
B cntcolp
�:
�
.cntcolex
�MOV R0,#&FF
�LDR R1,coladr
�MOV R2,R0,ASR #&01
�:
�
.fstsrtlp
�
MOV R3,R2
�
MOV R4,R0
�
BL pileup
SUBS R2,R2,#&01
BPL fstsrtlp
MOV R2,R0
$:
.
.secsrtlp
8MOV R6,#&00
B
MOV R7,R2
L BL swap
VSUB R4,R2,#&01
`MOV R3,#&00
j
BL pileup
tSUBS R2,R2,#&01
~BNE secsrtlp
�LDR R2,savepal
�MOV R3,#&FF
�:
�
.bldpalte
�LDR R0,[R1,R3,ASL #&02]
�SUB R3,R3,#&01
�CMP R3,#&80
�BLT bldpalex
��S R4,R0,R12
�BEQ bldpalex
�� R0,R0,#&FF000000
�MOV R0,R0,ASR #&18
STRB R0,[R2],#&01
B bldpalte
:
.bldpalex
(RSB R0,R3,#&FF
2LDR R1,paladr
<LDR R2,savepal
F:
P
.bldsqpal
ZLDRB R3,[R2,R0]
dSTRB R0,[R1,R3]
nSUBS R0,R0,#&01
xBGE bldsqpal
�LDMFD R13!,{PC}
�:
� .pileup
�STMFD R13!,{R14}
�:
�
.thrsrtlp
�MOV R5,R3,ASL #&01
�
CMP R5,R4
�LDMGTFD R13!,{PC}^
�BEQ oneonly
�
MOV R6,R5
�ADD R7,R5,#&01
�BL backward
ADDLT R5,R5,#&01
MOV R6,R3
MOV R7,R5
"BL backward
,LDMGEFD R13!,{PC}^
6 BL swap1
@
MOV R3,R5
JB thrsrtlp
T:
^ .oneonly
h
MOV R6,R3
r
MOV R7,R4
|BL backward
�BLLT swap1
�LDMFD R13!,{PC}^
�:
� .swap
�LDR R8,[R1,R6,ASL #&02]
�LDR R9,[R1,R7,ASL #&02]
�:
�
.swap1
�STR R9,[R1,R6,ASL #&02]
�STR R8,[R1,R7,ASL #&02]
�MOVS PC,R14
�:
�
.backward
LDR R8,[R1,R6,ASL #&02]
LDR R9,[R1,R7,ASL #&02]
� R10,R8,R12
&� R11,R9,R12
0CMP R10,R11
:MOV PC,R14
D:
N
.crush
XLDR R1,read
bLDR R2,write
lLDR R3,size
vMOV R4,#&100
�MOV R5,#&00
�LDR R6,paladr
�:
� .crushlp
�LDRB R7,[R1],#&01
�LDRB R0,[R6,R7]
�SUBS R3,R3,#&01
�BEQ crushex
�
CMP R7,R4
�BNE crsdif
�ADD R5,R5,#&01
�CMP R5,#&7E
�BLT crushlp
:
.crshnum
�R R5,R5,#&80
STRB R5,[R2],#&01
*MOV R5,#&00
4
B crushlp
>:
H .crsdif
RCMP R5,#&00
\�RGT R5,R5,#&80
fSTRGTB R5,[R2],#&01
pMOVGT R5,#&00
zSTRB R0,[R2],#&01
�CMP R0,#&FF
�STREQB R7,[R2],#&01
�
MOV R4,R7
�
B crushlp
�:
� .crushex
�CMP R5,#&00
��RGT R5,R5,#&80
�STRGTB R5,[R2],#&01
�STRB R0,[R2],#&01
�CMP R0,#&FF
�STREQB R7,[R2],#&01
�STR R2,write
MOV PC,R14
:
.expand
$LDR R7,read
.ADD R1,R7,#&80
8LDR R2,write
BLDR R3,size
LMOV R4,#&00
VLDRB R0,[R1],#&01
`CMP R0,#&FF
jLDREQB R0,[R1],#&01
tLDRNEB R0,[R7,R0]
~:
�
.explp
�STRB R0,[R2],#&01
�SUBS R3,R3,#&01
�
�Q PC,R14
�SUBS R4,R4,#&01
�
BGT explp
�LDRB R5,[R1],#&01
�CMP R5,#&FF
�LDREQB R0,[R1],#&01
�
BEQ explp
��S R6,R5,#&80
��NE R4,R5,#&7F
LDREQB R0,[R7,R5]
B explp
:
.limit
(LDR R1,read
2LDR R2,line
<LDR R3,size
FMOV R4,#&00
PMOV R5,#&00
ZMOV R6,#&00
d
MOV R7,R2
nADR R0,box
xLDMIA R0,{R8-R11}
�MOV R12,#&00
�:
� .limscan
�SUBS R3,R3,#&01
�ADREQ R0,box
�STMEQIA R0,{R8-R11}
�
�Q PC,R14
�LDRB R0,[R1]
�CMP R0,#&00
�MOVNE R12,#&01
�MOVNE R6,R4
�CMPEQ R6,#&00
� �Q R7,R4
STRB R0,[R1],#&01
ADD R4,R4,#&01
CMP R4,R2
"BLT limscan
,MOV R4,#&00
6
CMP R6,R8
@MOVGT R8,R6
J
CMP R7,R9
TMOVLT R9,R7
^MOV R6,#&00
h
MOV R7,R2
rCMP R12,#&00
|ADDEQ R5,R5,#&01
�BEQ limscan
�CMP R5,R10
�MOVGT R10,R5
�CMP R5,R11
�MOVLT R11,R5
�ADD R5,R5,#&01
�MOV R12,#&00
�
B limscan
�:
�.line EQUD &00
�:
�.box
�EQUD &00:EQUD &00
EQUD &00:EQUD &00
:
.read
& EQUD &00
0:
:
.write
D EQUD &00
N:
X .savepal
b EQUD &00
l:
v .size
� EQUD &00
�:
� .paladr
�EQUD sqshpal
�:
� .coladr
�EQUD coltable
�]
�sqshpal=P%
�coltable=P%+256
� � opt
��
�:
� �convert(frame%)
6ș "OS_SpriteOp",256+24,sprite%,"frame" � ,,spadr%
start%=spadr%+spadr%!32
end%=spadr%+!spadr%
*size%=end%-start%
4!size=size%
>!read=start%
H!write=store%+sze%+128
R!savepal=store%+sze%
\� countcolour
f � crush
psze%=!write-store%
z table%!(4+4*frame%)=sze%
�&� sze%>bufsze% � � 0,"Memory full"
��
�:
�� �program
�!buffer%=max%
�buffer%!4=cycle%
�table%=buffer%+152
� store%=buffer%+4*max%+160
�
sze%=0
�!table%=sze%
�� frame%=0 � max%
��
�!� load$+" "+sprite$+�(frame%)
Aș "OS_SpriteOp",256+16,sprite%,"frame",1,lft%,btm%,rgt%,top%
�convert(frame%)
$ȓ lft%,btm%,rgt%-lft%,top%-btm%
$ � frame%
.:ș "OS_SpriteOp",256+40,sprite%,"frame" � ,,,wdt%,hgt%
86ș "OS_SpriteOp",256+24,sprite%,"frame" � ,,spadr%
B$buffer%!8=spadr%+!spadr%-sprite%
L0buffer%!12=�:buffer%!16=wdt%:buffer%!20=hgt%
V� palette%=0 � 31
`2buffer%!(24+4*palette%)=spadr%!(44+palette%*4)
j� palette%
t"ș "OS_SpriteOp",256+9,sprite%
~�
�:
�� �expand(frame%)
�!� load$+" "+sprite$+�(frame%)
��
�:
�� �palette
�� col%=0 � 15
�R� 19,col%,16,buffer%?(24+8*col%+1),buffer%?(24+8*col%+2),buffer%?(24+8*col%+3)
�
� col%
��
�:
�
� �getbox
frame%=0
!� load$+" "+sprite$+�(frame%)
�
� 0 Ȝ 0:ȓ 0,0,1279,1023
(Ȗ
2!box=149:box!4=-1
<&ș "OS_ReadVduVariables",box,box+8
F!read=box!8
P*ș "OS_ReadModeVariable",�,4 � ,,xeig%
Z*ș "OS_ReadModeVariable",�,5 � ,,yeig%
d*ș "OS_ReadModeVariable",�,6 � ,,!line
n*ș "OS_ReadModeVariable",�,7 � ,,!size
x1!box=0:box!4=!line:box!8=0:box!12=1024>>yeig%
�ȕ frame%<max%
� � limit
�&lft%=box!4<<xeig%:rgt%=!box<<xeig%
�6btm%=1023-(box!12<<yeig%):top%=1023-(box!8<<yeig%)
�0� 63 Ȝ 192:ȓ lft%,btm%,rgt%-lft%,top%-btm%
�
frame%+=1
�!� load$+" "+sprite$+�(frame%)
��
� � 0 Ȝ 0:ȓ 0,0,1279,1023
�Ȗ
��
� � limit
�,sprsze%=4096+(!box-box!4)*(box!8-box!12)
&lft%=box!4<<xeig%:rgt%=!box<<xeig%
6btm%=1024-(box!12<<yeig%):top%=1024-(box!8<<yeig%)
%lft%=lft% � � 15:btm%=btm% � � 15
"-rgt%=(rgt% � � 15)-1:top%=(top% � � 15)-1
,0� 63 Ȝ 192:ȓ lft%,btm%,rgt%-lft%,top%-btm%
6�
� 00000000 0d 00 0a 14 f4 20 20 20 20 20 3e 21 52 75 6e 49 |..... >!RunI|
00000010 6d 61 67 65 0d 00 14 23 f4 20 42 79 20 20 4d 61 |mage...#. By Ma|
00000020 72 6b 20 4d 6f 78 6f 6e 20 26 20 52 6f 62 69 6e |rk Moxon & Robin|
00000030 20 42 61 72 6e 65 73 0d 00 1e 19 f4 20 46 6f 72 | Barnes..... For|
00000040 20 33 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 | 32-bit machines|
00000050 0d 00 28 19 f4 20 28 63 29 20 42 41 55 20 41 75 |..(.. (c) BAU Au|
00000060 67 75 73 74 20 31 39 39 33 0d 00 32 05 3a 0d 00 |gust 1993..2.:..|
00000070 3c 1f 76 65 72 73 69 6f 6e 24 3d 22 31 2e 30 30 |<.version$="1.00|
00000080 20 28 32 35 2d 4d 61 79 2d 39 33 29 22 0d 00 46 | (25-May-93)"..F|
00000090 18 64 69 72 24 3d 22 3c 43 6f 6e 76 65 72 74 24 |.dir$="<Convert$|
000000a0 44 69 72 3e 22 0d 00 50 16 c8 9b 20 64 69 72 24 |Dir>"..P... dir$|
000000b0 2b 22 2e 57 69 6d 70 4c 69 62 22 0d 00 5a 05 3a |+".WimpLib"..Z.:|
000000c0 0d 00 64 0a f2 73 65 74 75 70 0d 00 6e 21 f2 74 |..d..setup..n!.t|
000000d0 65 6d 70 6c 61 74 65 73 28 64 69 72 24 2b 22 2e |emplates(dir$+".|
000000e0 54 65 6d 70 6c 61 74 65 73 22 29 0d 00 78 25 62 |Templates")..x%b|
000000f0 61 72 25 3d a4 69 63 6f 6e 5f 62 61 72 28 62 6c |ar%=.icon_bar(bl|
00000100 6f 63 6b 25 2c 22 21 63 6f 6e 76 65 72 74 22 29 |ock%,"!convert")|
00000110 0d 00 82 05 3a 0d 00 8c 13 62 6d 65 6e 75 5f 6c |....:....bmenu_l|
00000120 65 6e 67 74 68 25 3d 32 0d 00 96 2e f2 63 72 65 |ength%=2.....cre|
00000130 61 74 65 5f 6d 65 6e 75 28 62 6d 65 6e 75 25 2c |ate_menu(bmenu%,|
00000140 77 69 64 74 68 25 2c 65 6e 64 25 2c 22 43 6f 6e |width%,end%,"Con|
00000150 76 65 72 74 22 29 0d 00 a0 39 f2 6d 65 6e 75 5f |vert")...9.menu_|
00000160 69 74 65 6d 28 62 6d 65 6e 75 25 2c 77 69 64 74 |item(bmenu%,widt|
00000170 68 25 2c 65 6e 64 25 2c 22 49 6e 66 6f 22 2c 30 |h%,end%,"Info",0|
00000180 2c 30 2c 30 2c 30 2c 30 2c 69 6e 66 6f 25 29 0d |,0,0,0,0,info%).|
00000190 00 aa 36 f2 6d 65 6e 75 5f 69 74 65 6d 28 62 6d |..6.menu_item(bm|
000001a0 65 6e 75 25 2c 77 69 64 74 68 25 2c 65 6e 64 25 |enu%,width%,end%|
000001b0 2c 22 51 75 69 74 22 2c 30 2c 30 2c 30 2c 30 2c |,"Quit",0,0,0,0,|
000001c0 31 2c 2d 31 29 0d 00 b4 05 3a 0d 00 be 05 f5 0d |1,-1)....:......|
000001d0 00 c8 0a 20 f2 70 6f 6c 6c 0d 00 d2 0b fd 20 71 |... .poll..... q|
000001e0 75 69 74 25 0d 00 dc 05 3a 0d 00 e6 12 24 62 6c |uit%....:....$bl|
000001f0 6f 63 6b 25 3d 22 54 41 53 4b 22 0d 00 f0 25 c8 |ock%="TASK"...%.|
00000200 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 |. "Wimp_CloseDow|
00000210 6e 22 2c 74 61 73 6b 25 2c 21 62 6c 6f 63 6b 25 |n",task%,!block%|
00000220 0d 00 fa 05 e0 0d 01 04 05 3a 0d 01 0e 05 3a 0d |.........:....:.|
00000230 01 18 0c dd 20 f2 73 65 74 75 70 0d 01 22 6c ee |.... .setup.."l.|
00000240 20 85 20 e7 20 a4 77 69 6d 70 65 72 72 6f 72 28 | . . .wimperror(|
00000250 62 6c 6f 63 6b 25 2c 9f 2c f6 24 2b 22 20 28 69 |block%,.,.$+" (i|
00000260 6e 74 65 72 6e 61 6c 20 65 72 72 6f 72 20 63 6f |nternal error co|
00000270 64 65 20 22 2b c3 28 9e 29 2b 22 29 22 2c 74 61 |de "+.(.)+")",ta|
00000280 73 6b 5f 6e 61 6d 65 24 2c 30 2c 31 29 3d 32 20 |sk_name$,0,1)=2 |
00000290 8c 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 |. .. "Wimp_Close|
000002a0 44 6f 77 6e 22 3a e0 0d 01 2c 37 71 75 69 74 25 |Down":...,7quit%|
000002b0 3d a3 20 20 20 20 20 20 20 3a 20 f4 20 54 72 75 |=. : . Tru|
000002c0 65 20 69 66 20 61 70 70 6c 69 63 61 74 69 6f 6e |e if application|
000002d0 20 69 73 20 74 6f 20 62 65 20 71 75 69 74 0d 01 | is to be quit..|
000002e0 36 33 de 20 62 6c 6f 63 6b 25 20 20 26 31 30 30 |63. block% &100|
000002f0 30 20 3a 20 f4 20 42 6c 6f 63 6b 20 72 65 74 75 |0 : . Block retu|
00000300 72 6e 65 64 20 62 79 20 57 69 6d 70 5f 50 6f 6c |rned by Wimp_Pol|
00000310 6c 0d 01 40 2a de 20 62 6d 65 6e 75 25 20 20 26 |l..@*. bmenu% &|
00000320 32 30 30 20 20 3a 20 f4 20 4d 61 69 6e 20 69 63 |200 : . Main ic|
00000330 6f 6e 20 62 61 72 20 6d 65 6e 75 0d 01 4a 36 de |on bar menu..J6.|
00000340 20 69 6e 64 31 25 20 20 20 31 34 30 30 20 20 3a | ind1% 1400 :|
00000350 20 f4 20 57 6f 72 6b 73 70 61 63 65 20 66 6f 72 | . Workspace for|
00000360 20 69 6e 64 69 72 65 63 74 65 64 20 69 63 6f 6e | indirected icon|
00000370 73 0d 01 54 39 de 20 64 65 63 6f 64 65 25 20 26 |s..T9. decode% &|
00000380 31 30 30 20 20 3a 20 f4 20 42 6c 6f 63 6b 20 74 |100 : . Block t|
00000390 6f 20 64 65 63 6f 64 65 20 6d 65 6e 75 20 63 68 |o decode menu ch|
000003a0 6f 69 63 65 73 20 69 6e 74 6f 0d 01 5e 12 de 20 |oices into..^.. |
000003b0 73 71 75 61 73 68 20 26 32 30 30 30 0d 01 68 18 |squash &2000..h.|
000003c0 74 61 73 6b 5f 6e 61 6d 65 24 3d 22 43 6f 6e 76 |task_name$="Conv|
000003d0 65 72 74 22 0d 01 72 13 69 6e 66 6f 34 24 3d 76 |ert"..r.info4$=v|
000003e0 65 72 73 69 6f 6e 24 0d 01 7c 12 24 62 6c 6f 63 |ersion$..|.$bloc|
000003f0 6b 25 3d 22 54 41 53 4b 22 0d 01 86 40 c8 99 20 |k%="TASK"...@.. |
00000400 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 |"Wimp_Initialise|
00000410 22 2c 32 30 30 2c 21 62 6c 6f 63 6b 25 2c 74 61 |",200,!block%,ta|
00000420 73 6b 5f 6e 61 6d 65 24 20 b8 20 76 65 72 73 69 |sk_name$ . versi|
00000430 6f 6e 25 2c 74 61 73 6b 25 0d 01 90 05 e1 0d 01 |on%,task%.......|
00000440 9a 05 3a 0d 01 a4 05 3a 0d 01 ae 17 dd 20 f2 74 |..:....:..... .t|
00000450 65 6d 70 6c 61 74 65 73 28 66 69 6c 65 24 29 0d |emplates(file$).|
00000460 01 b8 12 de 20 74 65 6d 70 6e 61 6d 65 25 20 31 |.... tempname% 1|
00000470 31 0d 01 c2 21 c8 99 20 22 57 69 6d 70 5f 4f 70 |1...!.. "Wimp_Op|
00000480 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 66 69 6c |enTemplate",,fil|
00000490 65 24 0d 01 cc 19 24 74 65 6d 70 6e 61 6d 65 25 |e$....$tempname%|
000004a0 3d 22 70 72 6f 67 49 6e 66 6f 22 0d 01 d6 4c c8 |="progInfo"...L.|
000004b0 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 |. "Wimp_LoadTemp|
000004c0 6c 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 2c 69 6e |late",,block%,in|
000004d0 64 31 25 2c 69 6e 64 31 25 2b 31 33 39 39 2c 2d |d1%,ind1%+1399,-|
000004e0 31 2c 74 65 6d 70 6e 61 6d 65 25 2c 30 20 b8 20 |1,tempname%,0 . |
000004f0 2c 2c 69 6e 64 32 25 0d 01 e0 2a c8 99 20 22 57 |,,ind2%...*.. "W|
00000500 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
00000510 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 69 6e 66 6f |",,block% . info|
00000520 25 0d 01 ea 11 21 62 6c 6f 63 6b 25 3d 69 6e 66 |%....!block%=inf|
00000530 6f 25 0d 01 f4 41 62 6c 6f 63 6b 25 21 34 3d 34 |o%...Ablock%!4=4|
00000540 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |:.. "Wimp_GetIco|
00000550 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 3a |nState",,block%:|
00000560 24 28 62 6c 6f 63 6b 25 21 32 38 29 3d 69 6e 66 |$(block%!28)=inf|
00000570 6f 34 24 0d 01 fe 18 24 74 65 6d 70 6e 61 6d 65 |o4$....$tempname|
00000580 25 3d 22 63 6f 6e 76 65 72 74 22 0d 02 08 4c c8 |%="convert"...L.|
00000590 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 |. "Wimp_LoadTemp|
000005a0 6c 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 2c 69 6e |late",,block%,in|
000005b0 64 32 25 2c 69 6e 64 31 25 2b 31 33 39 39 2c 2d |d2%,ind1%+1399,-|
000005c0 31 2c 74 65 6d 70 6e 61 6d 65 25 2c 30 20 b8 20 |1,tempname%,0 . |
000005d0 2c 2c 69 6e 64 32 25 0d 02 12 2d c8 99 20 22 57 |,,ind2%...-.. "W|
000005e0 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
000005f0 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 63 6f 6e 76 |",,block% . conv|
00000600 65 72 74 25 0d 02 1c 15 24 74 65 6d 70 6e 61 6d |ert%....$tempnam|
00000610 65 25 3d 22 73 61 76 65 22 0d 02 26 42 c8 99 20 |e%="save"..&B.. |
00000620 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 |"Wimp_LoadTempla|
00000630 74 65 22 2c 2c 62 6c 6f 63 6b 25 2c 69 6e 64 32 |te",,block%,ind2|
00000640 25 2c 69 6e 64 31 25 2b 31 33 39 39 2c 2d 31 2c |%,ind1%+1399,-1,|
00000650 74 65 6d 70 6e 61 6d 65 25 2c 30 0d 02 30 2a c8 |tempname%,0..0*.|
00000660 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |. "Wimp_CreateWi|
00000670 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 |ndow",,block% . |
00000680 73 61 76 65 25 0d 02 3a 1b c8 99 20 22 57 69 6d |save%..:... "Wim|
00000690 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 |p_CloseTemplate"|
000006a0 0d 02 44 05 e1 0d 02 4e 05 3a 0d 02 58 05 3a 0d |..D....N.:..X.:.|
000006b0 02 62 0b dd 20 f2 70 6f 6c 6c 0d 02 6c 24 c8 99 |.b.. .poll..l$..|
000006c0 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 2c 62 6c | "Wimp_Poll",,bl|
000006d0 6f 63 6b 25 20 b8 20 72 65 61 73 6f 6e 25 0d 02 |ock% . reason%..|
000006e0 76 10 c8 8e 20 72 65 61 73 6f 6e 25 20 ca 0d 02 |v... reason% ...|
000006f0 80 27 20 c9 20 32 20 3a 20 c8 99 20 22 57 69 6d |.' . 2 : .. "Wim|
00000700 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 |p_OpenWindow",,b|
00000710 6c 6f 63 6b 25 0d 02 8a 28 20 c9 20 33 20 3a 20 |lock%...( . 3 : |
00000720 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |.. "Wimp_CloseWi|
00000730 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 0d 02 94 |ndow",,block%...|
00000740 17 20 c9 20 36 20 3a 20 f2 6d 6f 75 73 65 5f 63 |. . 6 : .mouse_c|
00000750 6c 69 63 6b 0d 02 9e 2f 20 c9 20 37 20 3a 20 f2 |lick.../ . 7 : .|
00000760 65 6e 64 5f 64 72 61 67 73 61 76 65 28 62 6c 6f |end_dragsave(blo|
00000770 63 6b 25 2c 73 61 76 65 25 2c 30 2c 26 36 30 31 |ck%,save%,0,&601|
00000780 2c 30 29 0d 02 a8 29 20 c9 20 38 20 3a 20 c8 99 |,0)...) . 8 : ..|
00000790 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
000007a0 79 22 2c 62 6c 6f 63 6b 25 21 32 34 0d 02 b2 1a |y",block%!24....|
000007b0 20 c9 20 39 20 3a 20 f2 6d 65 6e 75 5f 73 65 6c | . 9 : .menu_sel|
000007c0 65 63 74 69 6f 6e 0d 02 bc 1c 20 c9 20 31 37 2c |ection.... . 17,|
000007d0 31 38 20 3a 20 f2 75 73 65 72 5f 6d 65 73 73 61 |18 : .user_messa|
000007e0 67 65 0d 02 c6 05 cb 0d 02 d0 05 e1 0d 02 da 05 |ge..............|
000007f0 3a 0d 02 e4 05 3a 0d 02 ee 12 dd 20 f2 6d 6f 75 |:....:..... .mou|
00000800 73 65 5f 63 6c 69 63 6b 0d 02 f8 12 c8 8e 20 62 |se_click...... b|
00000810 6c 6f 63 6b 25 21 31 32 20 ca 0d 03 02 a8 20 c9 |lock%!12 ..... .|
00000820 20 2d 32 20 3a 20 e7 20 62 6c 6f 63 6b 25 21 38 | -2 : . block%!8|
00000830 3d 32 20 8c 20 f2 64 69 73 70 6c 61 79 5f 62 61 |=2 . .display_ba|
00000840 72 5f 6d 65 6e 75 28 62 6d 65 6e 75 25 2c 62 6d |r_menu(bmenu%,bm|
00000850 65 6e 75 5f 6c 65 6e 67 74 68 25 2c 21 62 6c 6f |enu_length%,!blo|
00000860 63 6b 25 29 20 8b 20 21 62 6c 6f 63 6b 25 3d 63 |ck%) . !block%=c|
00000870 6f 6e 76 65 72 74 25 3a c8 99 20 22 57 69 6d 70 |onvert%:.. "Wimp|
00000880 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"|
00000890 2c 2c 62 6c 6f 63 6b 25 3a 62 6c 6f 63 6b 25 21 |,,block%:block%!|
000008a0 32 38 3d 2d 31 3a c8 99 20 22 57 69 6d 70 5f 4f |28=-1:.. "Wimp_O|
000008b0 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 |penWindow",,bloc|
000008c0 6b 25 0d 03 0c 0c 20 c9 20 73 61 76 65 25 0d 03 |k%.... . save%..|
000008d0 16 4a 20 20 e7 20 28 62 6c 6f 63 6b 25 21 38 20 |.J . (block%!8 |
000008e0 80 20 26 35 30 29 3e 30 20 80 20 62 6c 6f 63 6b |. &50)>0 . block|
000008f0 25 21 31 36 3d 32 20 8c 20 f2 73 74 61 72 74 5f |%!16=2 . .start_|
00000900 64 72 61 67 73 61 76 65 28 62 6c 6f 63 6b 25 2c |dragsave(block%,|
00000910 73 61 76 65 25 2c 32 29 0d 03 20 0f 20 c9 20 63 |save%,2).. . . c|
00000920 6f 6e 76 65 72 74 25 0d 03 2a 14 20 20 c8 8e 20 |onvert%..*. .. |
00000930 62 6c 6f 63 6b 25 21 31 36 20 ca 0d 03 34 16 20 |block%!16 ...4. |
00000940 20 20 c9 20 32 30 20 3a 20 f2 70 72 6f 63 65 73 | . 20 : .proces|
00000950 73 0d 03 3e 0b 20 20 20 c9 20 32 38 0d 03 48 43 |s..>. . 28..HC|
00000960 20 20 20 20 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 | !block%=conv|
00000970 65 72 74 25 3a 62 6c 6f 63 6b 25 21 34 3d 33 32 |ert%:block%!4=32|
00000980 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |:.. "Wimp_GetIco|
00000990 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d |nState",,block%.|
000009a0 03 52 1e 20 20 20 20 66 72 61 6d 65 25 3d bb 28 |.R. frame%=.(|
000009b0 24 28 62 6c 6f 63 6b 25 21 32 38 29 29 0d 03 5c |$(block%!28))..\|
000009c0 1f 20 20 20 20 e7 20 66 72 61 6d 65 25 3c 3e 31 |. . frame%<>1|
000009d0 20 8c 20 66 72 61 6d 65 25 2d 3d 31 0d 03 66 1e | . frame%-=1..f.|
000009e0 20 20 20 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 | $(block%!28)|
000009f0 3d c3 28 66 72 61 6d 65 25 29 0d 03 70 24 20 20 |=.(frame%)..p$ |
00000a00 20 20 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 65 72 | !block%=conver|
00000a10 74 25 3a 62 6c 6f 63 6b 25 21 34 3d 33 32 0d 03 |t%:block%!4=32..|
00000a20 7a 1e 20 20 20 20 62 6c 6f 63 6b 25 21 38 3d 30 |z. block%!8=0|
00000a30 3a 62 6c 6f 63 6b 25 21 31 32 3d 30 0d 03 84 26 |:block%!12=0...&|
00000a40 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 | .. "Wimp_Set|
00000a50 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 |IconState",,bloc|
00000a60 6b 25 0d 03 8e 0b 20 20 20 c9 20 32 39 0d 03 98 |k%.... . 29...|
00000a70 43 20 20 20 20 21 62 6c 6f 63 6b 25 3d 63 6f 6e |C !block%=con|
00000a80 76 65 72 74 25 3a 62 6c 6f 63 6b 25 21 34 3d 33 |vert%:block%!4=3|
00000a90 32 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |2:.. "Wimp_GetIc|
00000aa0 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |onState",,block%|
00000ab0 0d 03 a2 1e 20 20 20 20 66 72 61 6d 65 25 3d bb |.... frame%=.|
00000ac0 28 24 28 62 6c 6f 63 6b 25 21 32 38 29 29 0d 03 |($(block%!28))..|
00000ad0 ac 20 20 20 20 20 24 28 62 6c 6f 63 6b 25 21 32 |. $(block%!2|
00000ae0 38 29 3d c3 28 66 72 61 6d 65 25 2b 31 29 0d 03 |8)=.(frame%+1)..|
00000af0 b6 24 20 20 20 20 21 62 6c 6f 63 6b 25 3d 63 6f |.$ !block%=co|
00000b00 6e 76 65 72 74 25 3a 62 6c 6f 63 6b 25 21 34 3d |nvert%:block%!4=|
00000b10 33 32 0d 03 c0 1e 20 20 20 20 62 6c 6f 63 6b 25 |32.... block%|
00000b20 21 38 3d 30 3a 62 6c 6f 63 6b 25 21 31 32 3d 30 |!8=0:block%!12=0|
00000b30 0d 03 ca 26 20 20 20 20 c8 99 20 22 57 69 6d 70 |...& .. "Wimp|
00000b40 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
00000b50 62 6c 6f 63 6b 25 0d 03 d4 0b 20 20 20 c9 20 33 |block%.... . 3|
00000b60 31 0d 03 de 71 20 20 20 20 e7 20 62 6c 6f 63 6b |1...q . block|
00000b70 25 21 38 3d 31 20 8c 20 21 62 6c 6f 63 6b 25 3d |%!8=1 . !block%=|
00000b80 63 6f 6e 76 65 72 74 25 3a 62 6c 6f 63 6b 25 21 |convert%:block%!|
00000b90 34 3d 33 31 3a 62 6c 6f 63 6b 25 21 38 3d 31 3c |4=31:block%!8=1<|
00000ba0 3c 32 31 3a 62 6c 6f 63 6b 25 21 31 32 3d 31 3c |<21:block%!12=1<|
00000bb0 3c 32 31 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 |<21:.. "Wimp_Set|
00000bc0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 |IconState",,bloc|
00000bd0 6b 25 0d 03 e8 0b 20 20 20 c9 20 33 33 0d 03 f2 |k%.... . 33...|
00000be0 71 20 20 20 20 e7 20 62 6c 6f 63 6b 25 21 38 3d |q . block%!8=|
00000bf0 31 20 8c 20 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 |1 . !block%=conv|
00000c00 65 72 74 25 3a 62 6c 6f 63 6b 25 21 34 3d 33 33 |ert%:block%!4=33|
00000c10 3a 62 6c 6f 63 6b 25 21 38 3d 31 3c 3c 32 31 3a |:block%!8=1<<21:|
00000c20 62 6c 6f 63 6b 25 21 31 32 3d 31 3c 3c 32 31 3a |block%!12=1<<21:|
00000c30 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |.. "Wimp_SetIcon|
00000c40 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 03 |State",,block%..|
00000c50 fc 0b 20 20 20 c9 20 32 37 0d 04 06 1e 20 20 20 |.. . 27.... |
00000c60 20 78 25 3d 21 62 6c 6f 63 6b 25 3a 79 25 3d 62 | x%=!block%:y%=b|
00000c70 6c 6f 63 6b 25 21 34 0d 04 10 2c 20 20 20 20 c8 |lock%!4..., .|
00000c80 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |. "Wimp_CreateMe|
00000c90 6e 75 22 2c 2c 73 61 76 65 25 2c 78 25 2d 36 34 |nu",,save%,x%-64|
00000ca0 2c 79 25 0d 04 1a 07 20 20 cb 0d 04 24 05 cb 0d |,y%.... ...$...|
00000cb0 04 2e 05 e1 0d 04 38 05 3a 0d 04 42 05 3a 0d 04 |......8.:..B.:..|
00000cc0 4c 15 dd 20 f2 6d 65 6e 75 5f 73 65 6c 65 63 74 |L.. .menu_select|
00000cd0 69 6f 6e 0d 04 56 19 e7 20 21 62 6c 6f 63 6b 25 |ion..V.. !block%|
00000ce0 3d 31 20 8c 20 71 75 69 74 25 3d b9 0d 04 60 05 |=1 . quit%=...`.|
00000cf0 e1 0d 04 6a 05 3a 0d 04 74 05 3a 0d 04 7e 13 dd |...j.:..t.:..~..|
00000d00 20 f2 75 73 65 72 5f 6d 65 73 73 61 67 65 0d 04 | .user_message..|
00000d10 88 12 c8 8e 20 62 6c 6f 63 6b 25 21 31 36 20 ca |.... block%!16 .|
00000d20 0d 04 92 08 20 c9 20 30 0d 04 9c 0d 20 20 71 75 |.... . 0.... qu|
00000d30 69 74 25 3d b9 0d 04 a6 08 20 c9 20 32 0d 04 b0 |it%=..... . 2...|
00000d40 28 20 20 6e 65 77 66 69 6c 65 24 3d a4 6d 65 73 |( newfile$=.mes|
00000d50 73 61 67 65 5f 64 61 74 61 73 61 76 65 28 62 6c |sage_datasave(bl|
00000d60 6f 63 6b 25 29 0d 04 ba 1e 20 20 c8 99 20 22 57 |ock%).... .. "W|
00000d70 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
00000d80 2c 2d 31 0d 04 c4 3d 20 20 21 62 6c 6f 63 6b 25 |,-1...= !block%|
00000d90 3d 73 61 76 65 25 3a 62 6c 6f 63 6b 25 21 34 3d |=save%:block%!4=|
00000da0 30 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |0:.. "Wimp_GetIc|
00000db0 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |onState",,block%|
00000dc0 0d 04 ce 1b 20 20 24 28 62 6c 6f 63 6b 25 21 32 |.... $(block%!2|
00000dd0 38 29 3d 6e 65 77 66 69 6c 65 24 0d 04 d8 21 20 |8)=newfile$...! |
00000de0 20 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 65 72 74 | !block%=convert|
00000df0 25 3a 62 6c 6f 63 6b 25 21 34 3d 30 0d 04 e2 1c |%:block%!4=0....|
00000e00 20 20 62 6c 6f 63 6b 25 21 38 3d 30 3a 62 6c 6f | block%!8=0:blo|
00000e10 63 6b 25 21 31 32 3d 30 0d 04 ec 24 20 20 c8 99 |ck%!12=0...$ ..|
00000e20 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 | "Wimp_SetIconSt|
00000e30 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 04 f6 41 |ate",,block%...A|
00000e40 20 20 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 65 72 | !block%=conver|
00000e50 74 25 3a 62 6c 6f 63 6b 25 21 34 3d 32 31 3a c8 |t%:block%!4=21:.|
00000e60 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |. "Wimp_GetIconS|
00000e70 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 05 00 |tate",,block%...|
00000e80 1b 20 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 3d |. $(block%!28)=|
00000e90 6e 65 77 66 69 6c 65 24 0d 05 0a 22 20 20 21 62 |newfile$..." !b|
00000ea0 6c 6f 63 6b 25 3d 63 6f 6e 76 65 72 74 25 3a 62 |lock%=convert%:b|
00000eb0 6c 6f 63 6b 25 21 34 3d 32 31 0d 05 14 1c 20 20 |lock%!4=21.... |
00000ec0 62 6c 6f 63 6b 25 21 38 3d 30 3a 62 6c 6f 63 6b |block%!8=0:block|
00000ed0 25 21 31 32 3d 30 0d 05 1e 24 20 20 c8 99 20 22 |%!12=0...$ .. "|
00000ee0 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat|
00000ef0 65 22 2c 2c 62 6c 6f 63 6b 25 0d 05 28 08 20 c9 |e",,block%..(. .|
00000f00 20 33 0d 05 32 26 20 20 6e 65 77 66 69 6c 65 24 | 3..2& newfile$|
00000f10 3d a4 7a 65 72 6f 5f 73 74 72 69 6e 67 28 62 6c |=.zero_string(bl|
00000f20 6f 63 6b 25 2b 34 34 29 0d 05 3c 2a 20 20 c8 95 |ock%+44)..<* ..|
00000f30 20 c2 6e 65 77 66 69 6c 65 24 29 3e 3d 22 30 22 | .newfile$)>="0"|
00000f40 20 80 20 c2 6e 65 77 66 69 6c 65 24 29 3c 3d 22 | . .newfile$)<="|
00000f50 39 22 0d 05 46 1a 20 20 20 6e 65 77 66 69 6c 65 |9"..F. newfile|
00000f60 24 3d c0 6e 65 77 66 69 6c 65 24 29 0d 05 50 07 |$=.newfile$)..P.|
00000f70 20 20 ce 0d 05 5a 18 20 20 62 6c 6f 63 6b 25 21 | ...Z. block%!|
00000f80 31 32 3d 62 6c 6f 63 6b 25 21 38 0d 05 64 11 20 |12=block%!8..d. |
00000f90 20 62 6c 6f 63 6b 25 21 31 36 3d 34 0d 05 6e 2e | block%!16=4..n.|
00000fa0 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d | .. "Wimp_SendM|
00000fb0 65 73 73 61 67 65 22 2c 31 37 2c 62 6c 6f 63 6b |essage",17,block|
00000fc0 25 2c 62 6c 6f 63 6b 25 21 34 0d 05 78 41 20 20 |%,block%!4..xA |
00000fd0 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 65 72 74 25 |!block%=convert%|
00000fe0 3a 62 6c 6f 63 6b 25 21 34 3d 32 33 3a c8 99 20 |:block%!4=23:.. |
00000ff0 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00001000 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 05 82 1b 20 |te",,block%.... |
00001010 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 3d 6e 65 | $(block%!28)=ne|
00001020 77 66 69 6c 65 24 0d 05 8c 22 20 20 21 62 6c 6f |wfile$..." !blo|
00001030 63 6b 25 3d 63 6f 6e 76 65 72 74 25 3a 62 6c 6f |ck%=convert%:blo|
00001040 63 6b 25 21 34 3d 32 33 0d 05 96 1c 20 20 62 6c |ck%!4=23.... bl|
00001050 6f 63 6b 25 21 38 3d 30 3a 62 6c 6f 63 6b 25 21 |ock%!8=0:block%!|
00001060 31 32 3d 30 0d 05 a0 24 20 20 c8 99 20 22 57 69 |12=0...$ .. "Wi|
00001070 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_SetIconState"|
00001080 2c 2c 62 6c 6f 63 6b 25 0d 05 aa 05 cb 0d 05 b4 |,,block%........|
00001090 05 e1 0d 05 be 05 3a 0d 05 c8 0e dd 20 f2 70 72 |......:..... .pr|
000010a0 6f 63 65 73 73 0d 05 d2 0f 77 69 6d 70 6d 6f 64 |ocess....wimpmod|
000010b0 65 25 3d eb 0d 05 dc 3f 21 62 6c 6f 63 6b 25 3d |e%=....?!block%=|
000010c0 63 6f 6e 76 65 72 74 25 3a 62 6c 6f 63 6b 25 21 |convert%:block%!|
000010d0 34 3d 32 31 3a c8 99 20 22 57 69 6d 70 5f 47 65 |4=21:.. "Wimp_Ge|
000010e0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f |tIconState",,blo|
000010f0 63 6b 25 0d 05 e6 16 64 61 74 61 24 3d 24 28 62 |ck%....data$=$(b|
00001100 6c 6f 63 6b 25 21 32 38 29 0d 05 f0 3f 21 62 6c |lock%!28)...?!bl|
00001110 6f 63 6b 25 3d 63 6f 6e 76 65 72 74 25 3a 62 6c |ock%=convert%:bl|
00001120 6f 63 6b 25 21 34 3d 32 33 3a c8 99 20 22 57 69 |ock%!4=23:.. "Wi|
00001130 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00001140 2c 2c 62 6c 6f 63 6b 25 0d 05 fa 18 73 70 72 69 |,,block%....spri|
00001150 74 65 24 3d 24 28 62 6c 6f 63 6b 25 21 32 38 29 |te$=$(block%!28)|
00001160 0d 06 04 3f 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 |...?!block%=conv|
00001170 65 72 74 25 3a 62 6c 6f 63 6b 25 21 34 3d 33 32 |ert%:block%!4=32|
00001180 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |:.. "Wimp_GetIco|
00001190 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d |nState",,block%.|
000011a0 06 0e 18 6d 61 78 25 3d bb 28 24 28 62 6c 6f 63 |...max%=.($(bloc|
000011b0 6b 25 21 32 38 29 29 0d 06 18 3f 21 62 6c 6f 63 |k%!28))...?!bloc|
000011c0 6b 25 3d 63 6f 6e 76 65 72 74 25 3a 62 6c 6f 63 |k%=convert%:bloc|
000011d0 6b 25 21 34 3d 31 36 3a c8 99 20 22 57 69 6d 70 |k%!4=16:.. "Wimp|
000011e0 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
000011f0 62 6c 6f 63 6b 25 0d 06 22 16 6c 6f 61 64 24 3d |block%..".load$=|
00001200 24 28 62 6c 6f 63 6b 25 21 32 38 29 0d 06 2c 3f |$(block%!28)..,?|
00001210 21 62 6c 6f 63 6b 25 3d 63 6f 6e 76 65 72 74 25 |!block%=convert%|
00001220 3a 62 6c 6f 63 6b 25 21 34 3d 31 30 3a c8 99 20 |:block%!4=10:.. |
00001230 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00001240 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 06 36 1f 73 |te",,block%..6.s|
00001250 63 72 6f 6c 6c 25 3d 28 28 62 6c 6f 63 6b 25 21 |croll%=((block%!|
00001260 32 34 29 3e 3e 32 31 29 80 31 0d 06 40 3f 21 62 |24)>>21).1..@?!b|
00001270 6c 6f 63 6b 25 3d 63 6f 6e 76 65 72 74 25 3a 62 |lock%=convert%:b|
00001280 6c 6f 63 6b 25 21 34 3d 33 33 3a c8 99 20 22 57 |lock%!4=33:.. "W|
00001290 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
000012a0 22 2c 2c 62 6c 6f 63 6b 25 0d 06 4a 1e 63 79 63 |",,block%..J.cyc|
000012b0 6c 65 25 3d 28 28 62 6c 6f 63 6b 25 21 32 34 29 |le%=((block%!24)|
000012c0 3e 3e 32 31 29 80 31 0d 06 54 05 3a 0d 06 5e 09 |>>21).1..T.:..^.|
000012d0 f2 63 6f 64 65 0d 06 68 07 ea 20 85 0d 06 72 32 |.code..h.. ...r2|
000012e0 ee 20 85 20 ea 20 c8 99 20 22 57 69 6d 70 5f 53 |. . . .. "Wimp_S|
000012f0 65 74 4d 6f 64 65 22 2c 77 69 6d 70 6d 6f 64 65 |etMode",wimpmode|
00001300 25 3a f7 20 85 3a 85 20 9e 2c f6 24 3a e1 0d 06 |%:. .:. .,.$:...|
00001310 7c 0b f2 67 65 74 62 6f 78 0d 06 86 05 3a 0d 06 ||..getbox....:..|
00001320 90 15 de 20 73 70 72 69 74 65 25 20 73 70 72 73 |... sprite% sprs|
00001330 7a 65 25 0d 06 9a 14 21 73 70 72 69 74 65 25 3d |ze%....!sprite%=|
00001340 73 70 72 73 7a 65 25 0d 06 a4 0f 73 70 72 69 74 |sprsze%....sprit|
00001350 65 25 21 34 3d 30 0d 06 ae 10 73 70 72 69 74 65 |e%!4=0....sprite|
00001360 25 21 38 3d 31 36 0d 06 b8 11 73 70 72 69 74 65 |%!8=16....sprite|
00001370 25 21 31 32 3d 31 36 0d 06 c2 17 62 75 66 73 7a |%!12=16....bufsz|
00001380 65 25 3d 93 2d 28 e0 2b 26 38 30 30 30 29 0d 06 |e%=.-(.+&8000)..|
00001390 cc 15 de 20 62 75 66 66 65 72 25 20 62 75 66 73 |... buffer% bufs|
000013a0 7a 65 25 0d 06 d6 05 3a 0d 06 e0 0c f2 70 72 6f |ze%....:.....pro|
000013b0 67 72 61 6d 0d 06 ea 29 e7 20 73 63 72 6f 6c 6c |gram...). scroll|
000013c0 25 3d 31 20 8c 20 62 75 66 66 65 72 25 21 34 3d |%=1 . buffer%!4=|
000013d0 62 75 66 66 65 72 25 21 34 20 84 20 32 0d 06 f4 |buffer%!4 . 2...|
000013e0 32 c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c 26 30 |2.. "OS_File",&0|
000013f0 30 2c 64 61 74 61 24 2c 30 2c 30 2c 62 75 66 66 |0,data$,0,0,buff|
00001400 65 72 25 2c 73 74 6f 72 65 25 2b 73 7a 65 25 0d |er%,store%+sze%.|
00001410 06 fe 1f c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c |..... "OS_File",|
00001420 26 31 32 2c 64 61 74 61 24 2c 26 36 30 31 0d 07 |&12,data$,&601..|
00001430 08 1f c8 99 20 22 57 69 6d 70 5f 53 65 74 4d 6f |.... "Wimp_SetMo|
00001440 64 65 22 2c 77 69 6d 70 6d 6f 64 65 25 0d 07 12 |de",wimpmode%...|
00001450 05 e1 0d 07 1c 05 3a 0d 07 26 0b dd 20 f2 63 6f |......:..&.. .co|
00001460 64 65 0d 07 30 13 e3 20 6f 70 74 3d 30 20 b8 20 |de..0.. opt=0 . |
00001470 32 20 88 20 32 0d 07 3a 0d 50 25 3d 73 71 75 61 |2 . 2..:.P%=squa|
00001480 73 68 0d 07 44 0c 5b 4f 50 54 20 6f 70 74 0d 07 |sh..D.[OPT opt..|
00001490 4e 05 3a 0d 07 58 10 2e 63 6f 75 6e 74 63 6f 6c |N.:..X..countcol|
000014a0 6f 75 72 0d 07 62 14 53 54 4d 46 44 20 52 31 33 |our..b.STMFD R13|
000014b0 21 2c 7b 52 31 34 7d 0d 07 6c 0f 4d 4f 56 20 52 |!,{R14}..l.MOV R|
000014c0 30 2c 23 26 30 30 0d 07 76 11 4c 44 52 20 52 31 |0,#&00..v.LDR R1|
000014d0 2c 63 6f 6c 61 64 72 0d 07 80 11 4c 44 52 20 52 |,coladr....LDR R|
000014e0 34 2c 70 61 6c 61 64 72 0d 07 8a 0f 4d 4f 56 20 |4,paladr....MOV |
000014f0 52 32 2c 23 26 46 46 0d 07 94 0f 4d 4f 56 20 52 |R2,#&FF....MOV R|
00001500 33 2c 23 26 30 30 0d 07 9e 0f 4d 4f 56 20 52 35 |3,#&00....MOV R5|
00001510 2c 23 26 46 46 0d 07 a8 05 3a 0d 07 b2 0d 2e 63 |,#&FF....:.....c|
00001520 6c 65 61 72 63 6f 6c 0d 07 bc 16 4d 4f 56 20 52 |learcol....MOV R|
00001530 30 2c 52 33 2c 41 53 4c 20 23 26 31 38 0d 07 c6 |0,R3,ASL #&18...|
00001540 12 41 44 44 20 52 33 2c 52 33 2c 23 26 30 31 0d |.ADD R3,R3,#&01.|
00001550 07 d0 14 53 54 52 20 52 30 2c 5b 52 31 5d 2c 23 |...STR R0,[R1],#|
00001560 26 30 34 0d 07 da 15 53 54 52 42 20 52 35 2c 5b |&04....STRB R5,[|
00001570 52 34 5d 2c 23 26 30 31 0d 07 e4 13 53 55 42 53 |R4],#&01....SUBS|
00001580 20 52 32 2c 52 32 2c 23 26 30 31 0d 07 ee 10 42 | R2,R2,#&01....B|
00001590 47 45 20 63 6c 65 61 72 63 6f 6c 0d 07 f8 0f 4c |GE clearcol....L|
000015a0 44 52 20 52 31 2c 72 65 61 64 0d 08 02 11 4c 44 |DR R1,read....LD|
000015b0 52 20 52 32 2c 63 6f 6c 61 64 72 0d 08 0c 0f 4c |R R2,coladr....L|
000015c0 44 52 20 52 33 2c 73 69 7a 65 0d 08 16 15 4d 4f |DR R3,size....MO|
000015d0 56 20 52 31 32 2c 23 26 31 30 30 30 30 30 30 0d |V R12,#&1000000.|
000015e0 08 20 14 53 55 42 20 52 31 32 2c 52 31 32 2c 23 |. .SUB R12,R12,#|
000015f0 26 30 31 0d 08 2a 05 3a 0d 08 34 0c 2e 63 6e 74 |&01..*.:..4..cnt|
00001600 63 6f 6c 70 0d 08 3e 15 4c 44 52 42 20 52 34 2c |colp..>.LDRB R4,|
00001610 5b 52 31 5d 2c 23 26 30 31 0d 08 48 13 53 55 42 |[R1],#&01..H.SUB|
00001620 53 20 52 33 2c 52 33 2c 23 26 30 31 0d 08 52 10 |S R3,R3,#&01..R.|
00001630 42 45 51 20 63 6e 74 63 6f 6c 65 78 0d 08 5c 1b |BEQ cntcolex..\.|
00001640 4c 44 52 20 52 30 2c 5b 52 32 2c 52 34 2c 41 53 |LDR R0,[R2,R4,AS|
00001650 4c 20 23 26 30 32 5d 0d 08 66 0f 80 20 52 35 2c |L #&02]..f.. R5,|
00001660 52 30 2c 52 31 32 0d 08 70 16 80 20 52 36 2c 52 |R0,R12..p.. R6,R|
00001670 30 2c 23 26 46 46 30 30 30 30 30 30 0d 08 7a 12 |0,#&FF000000..z.|
00001680 41 44 44 20 52 35 2c 52 35 2c 23 26 30 31 0d 08 |ADD R5,R5,#&01..|
00001690 84 0f 84 52 20 52 30 2c 52 35 2c 52 36 0d 08 8e |...R R0,R5,R6...|
000016a0 1b 53 54 52 20 52 30 2c 5b 52 32 2c 52 34 2c 41 |.STR R0,[R2,R4,A|
000016b0 53 4c 20 23 26 30 32 5d 0d 08 98 0d 42 20 63 6e |SL #&02]....B cn|
000016c0 74 63 6f 6c 70 0d 08 a2 05 3a 0d 08 ac 0d 2e 63 |tcolp....:.....c|
000016d0 6e 74 63 6f 6c 65 78 0d 08 b6 0f 4d 4f 56 20 52 |ntcolex....MOV R|
000016e0 30 2c 23 26 46 46 0d 08 c0 11 4c 44 52 20 52 31 |0,#&FF....LDR R1|
000016f0 2c 63 6f 6c 61 64 72 0d 08 ca 16 4d 4f 56 20 52 |,coladr....MOV R|
00001700 32 2c 52 30 2c 41 53 52 20 23 26 30 31 0d 08 d4 |2,R0,ASR #&01...|
00001710 05 3a 0d 08 de 0d 2e 66 73 74 73 72 74 6c 70 0d |.:.....fstsrtlp.|
00001720 08 e8 0d 4d 4f 56 20 52 33 2c 52 32 0d 08 f2 0d |...MOV R3,R2....|
00001730 4d 4f 56 20 52 34 2c 52 30 0d 08 fc 0d 42 4c 20 |MOV R4,R0....BL |
00001740 70 69 6c 65 75 70 0d 09 06 13 53 55 42 53 20 52 |pileup....SUBS R|
00001750 32 2c 52 32 2c 23 26 30 31 0d 09 10 10 42 50 4c |2,R2,#&01....BPL|
00001760 20 66 73 74 73 72 74 6c 70 0d 09 1a 0d 4d 4f 56 | fstsrtlp....MOV|
00001770 20 52 32 2c 52 30 0d 09 24 05 3a 0d 09 2e 0d 2e | R2,R0..$.:.....|
00001780 73 65 63 73 72 74 6c 70 0d 09 38 0f 4d 4f 56 20 |secsrtlp..8.MOV |
00001790 52 36 2c 23 26 30 30 0d 09 42 0d 4d 4f 56 20 52 |R6,#&00..B.MOV R|
000017a0 37 2c 52 32 0d 09 4c 0b 42 4c 20 73 77 61 70 0d |7,R2..L.BL swap.|
000017b0 09 56 12 53 55 42 20 52 34 2c 52 32 2c 23 26 30 |.V.SUB R4,R2,#&0|
000017c0 31 0d 09 60 0f 4d 4f 56 20 52 33 2c 23 26 30 30 |1..`.MOV R3,#&00|
000017d0 0d 09 6a 0d 42 4c 20 70 69 6c 65 75 70 0d 09 74 |..j.BL pileup..t|
000017e0 13 53 55 42 53 20 52 32 2c 52 32 2c 23 26 30 31 |.SUBS R2,R2,#&01|
000017f0 0d 09 7e 10 42 4e 45 20 73 65 63 73 72 74 6c 70 |..~.BNE secsrtlp|
00001800 0d 09 88 12 4c 44 52 20 52 32 2c 73 61 76 65 70 |....LDR R2,savep|
00001810 61 6c 0d 09 92 0f 4d 4f 56 20 52 33 2c 23 26 46 |al....MOV R3,#&F|
00001820 46 0d 09 9c 05 3a 0d 09 a6 0d 2e 62 6c 64 70 61 |F....:.....bldpa|
00001830 6c 74 65 0d 09 b0 1b 4c 44 52 20 52 30 2c 5b 52 |lte....LDR R0,[R|
00001840 31 2c 52 33 2c 41 53 4c 20 23 26 30 32 5d 0d 09 |1,R3,ASL #&02]..|
00001850 ba 12 53 55 42 20 52 33 2c 52 33 2c 23 26 30 31 |..SUB R3,R3,#&01|
00001860 0d 09 c4 0f 43 4d 50 20 52 33 2c 23 26 38 30 0d |....CMP R3,#&80.|
00001870 09 ce 10 42 4c 54 20 62 6c 64 70 61 6c 65 78 0d |...BLT bldpalex.|
00001880 09 d8 10 80 53 20 52 34 2c 52 30 2c 52 31 32 0d |....S R4,R0,R12.|
00001890 09 e2 10 42 45 51 20 62 6c 64 70 61 6c 65 78 0d |...BEQ bldpalex.|
000018a0 09 ec 16 80 20 52 30 2c 52 30 2c 23 26 46 46 30 |.... R0,R0,#&FF0|
000018b0 30 30 30 30 30 0d 09 f6 16 4d 4f 56 20 52 30 2c |00000....MOV R0,|
000018c0 52 30 2c 41 53 52 20 23 26 31 38 0d 0a 00 15 53 |R0,ASR #&18....S|
000018d0 54 52 42 20 52 30 2c 5b 52 32 5d 2c 23 26 30 31 |TRB R0,[R2],#&01|
000018e0 0d 0a 0a 0e 42 20 62 6c 64 70 61 6c 74 65 0d 0a |....B bldpalte..|
000018f0 14 05 3a 0d 0a 1e 0d 2e 62 6c 64 70 61 6c 65 78 |..:.....bldpalex|
00001900 0d 0a 28 12 52 53 42 20 52 30 2c 52 33 2c 23 26 |..(.RSB R0,R3,#&|
00001910 46 46 0d 0a 32 11 4c 44 52 20 52 31 2c 70 61 6c |FF..2.LDR R1,pal|
00001920 61 64 72 0d 0a 3c 12 4c 44 52 20 52 32 2c 73 61 |adr..<.LDR R2,sa|
00001930 76 65 70 61 6c 0d 0a 46 05 3a 0d 0a 50 0d 2e 62 |vepal..F.:..P..b|
00001940 6c 64 73 71 70 61 6c 0d 0a 5a 13 4c 44 52 42 20 |ldsqpal..Z.LDRB |
00001950 52 33 2c 5b 52 32 2c 52 30 5d 0d 0a 64 13 53 54 |R3,[R2,R0]..d.ST|
00001960 52 42 20 52 30 2c 5b 52 31 2c 52 33 5d 0d 0a 6e |RB R0,[R1,R3]..n|
00001970 13 53 55 42 53 20 52 30 2c 52 30 2c 23 26 30 31 |.SUBS R0,R0,#&01|
00001980 0d 0a 78 10 42 47 45 20 62 6c 64 73 71 70 61 6c |..x.BGE bldsqpal|
00001990 0d 0a 82 13 4c 44 4d 46 44 20 52 31 33 21 2c 7b |....LDMFD R13!,{|
000019a0 50 43 7d 0d 0a 8c 05 3a 0d 0a 96 0b 2e 70 69 6c |PC}....:.....pil|
000019b0 65 75 70 0d 0a a0 14 53 54 4d 46 44 20 52 31 33 |eup....STMFD R13|
000019c0 21 2c 7b 52 31 34 7d 0d 0a aa 05 3a 0d 0a b4 0d |!,{R14}....:....|
000019d0 2e 74 68 72 73 72 74 6c 70 0d 0a be 16 4d 4f 56 |.thrsrtlp....MOV|
000019e0 20 52 35 2c 52 33 2c 41 53 4c 20 23 26 30 31 0d | R5,R3,ASL #&01.|
000019f0 0a c8 0d 43 4d 50 20 52 35 2c 52 34 0d 0a d2 16 |...CMP R5,R4....|
00001a00 4c 44 4d 47 54 46 44 20 52 31 33 21 2c 7b 50 43 |LDMGTFD R13!,{PC|
00001a10 7d 5e 0d 0a dc 0f 42 45 51 20 6f 6e 65 6f 6e 6c |}^....BEQ oneonl|
00001a20 79 0d 0a e6 0d 4d 4f 56 20 52 36 2c 52 35 0d 0a |y....MOV R6,R5..|
00001a30 f0 12 41 44 44 20 52 37 2c 52 35 2c 23 26 30 31 |..ADD R7,R5,#&01|
00001a40 0d 0a fa 0f 42 4c 20 62 61 63 6b 77 61 72 64 0d |....BL backward.|
00001a50 0b 04 14 41 44 44 4c 54 20 52 35 2c 52 35 2c 23 |...ADDLT R5,R5,#|
00001a60 26 30 31 0d 0b 0e 0d 4d 4f 56 20 52 36 2c 52 33 |&01....MOV R6,R3|
00001a70 0d 0b 18 0d 4d 4f 56 20 52 37 2c 52 35 0d 0b 22 |....MOV R7,R5.."|
00001a80 0f 42 4c 20 62 61 63 6b 77 61 72 64 0d 0b 2c 16 |.BL backward..,.|
00001a90 4c 44 4d 47 45 46 44 20 52 31 33 21 2c 7b 50 43 |LDMGEFD R13!,{PC|
00001aa0 7d 5e 0d 0b 36 0c 42 4c 20 73 77 61 70 31 0d 0b |}^..6.BL swap1..|
00001ab0 40 0d 4d 4f 56 20 52 33 2c 52 35 0d 0b 4a 0e 42 |@.MOV R3,R5..J.B|
00001ac0 20 74 68 72 73 72 74 6c 70 0d 0b 54 05 3a 0d 0b | thrsrtlp..T.:..|
00001ad0 5e 0c 2e 6f 6e 65 6f 6e 6c 79 0d 0b 68 0d 4d 4f |^..oneonly..h.MO|
00001ae0 56 20 52 36 2c 52 33 0d 0b 72 0d 4d 4f 56 20 52 |V R6,R3..r.MOV R|
00001af0 37 2c 52 34 0d 0b 7c 0f 42 4c 20 62 61 63 6b 77 |7,R4..|.BL backw|
00001b00 61 72 64 0d 0b 86 0e 42 4c 4c 54 20 73 77 61 70 |ard....BLLT swap|
00001b10 31 0d 0b 90 14 4c 44 4d 46 44 20 52 31 33 21 2c |1....LDMFD R13!,|
00001b20 7b 50 43 7d 5e 0d 0b 9a 05 3a 0d 0b a4 09 2e 73 |{PC}^....:.....s|
00001b30 77 61 70 0d 0b ae 1b 4c 44 52 20 52 38 2c 5b 52 |wap....LDR R8,[R|
00001b40 31 2c 52 36 2c 41 53 4c 20 23 26 30 32 5d 0d 0b |1,R6,ASL #&02]..|
00001b50 b8 1b 4c 44 52 20 52 39 2c 5b 52 31 2c 52 37 2c |..LDR R9,[R1,R7,|
00001b60 41 53 4c 20 23 26 30 32 5d 0d 0b c2 05 3a 0d 0b |ASL #&02]....:..|
00001b70 cc 0a 2e 73 77 61 70 31 0d 0b d6 1b 53 54 52 20 |...swap1....STR |
00001b80 52 39 2c 5b 52 31 2c 52 36 2c 41 53 4c 20 23 26 |R9,[R1,R6,ASL #&|
00001b90 30 32 5d 0d 0b e0 1b 53 54 52 20 52 38 2c 5b 52 |02]....STR R8,[R|
00001ba0 31 2c 52 37 2c 41 53 4c 20 23 26 30 32 5d 0d 0b |1,R7,ASL #&02]..|
00001bb0 ea 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d 0b f4 |..MOVS PC,R14...|
00001bc0 05 3a 0d 0b fe 0d 2e 62 61 63 6b 77 61 72 64 0d |.:.....backward.|
00001bd0 0c 08 1b 4c 44 52 20 52 38 2c 5b 52 31 2c 52 36 |...LDR R8,[R1,R6|
00001be0 2c 41 53 4c 20 23 26 30 32 5d 0d 0c 12 1b 4c 44 |,ASL #&02]....LD|
00001bf0 52 20 52 39 2c 5b 52 31 2c 52 37 2c 41 53 4c 20 |R R9,[R1,R7,ASL |
00001c00 23 26 30 32 5d 0d 0c 1c 10 80 20 52 31 30 2c 52 |#&02]..... R10,R|
00001c10 38 2c 52 31 32 0d 0c 26 10 80 20 52 31 31 2c 52 |8,R12..&.. R11,R|
00001c20 39 2c 52 31 32 0d 0c 30 0f 43 4d 50 20 52 31 30 |9,R12..0.CMP R10|
00001c30 2c 52 31 31 0d 0c 3a 0e 4d 4f 56 20 50 43 2c 52 |,R11..:.MOV PC,R|
00001c40 31 34 0d 0c 44 05 3a 0d 0c 4e 0a 2e 63 72 75 73 |14..D.:..N..crus|
00001c50 68 0d 0c 58 0f 4c 44 52 20 52 31 2c 72 65 61 64 |h..X.LDR R1,read|
00001c60 0d 0c 62 10 4c 44 52 20 52 32 2c 77 72 69 74 65 |..b.LDR R2,write|
00001c70 0d 0c 6c 0f 4c 44 52 20 52 33 2c 73 69 7a 65 0d |..l.LDR R3,size.|
00001c80 0c 76 10 4d 4f 56 20 52 34 2c 23 26 31 30 30 0d |.v.MOV R4,#&100.|
00001c90 0c 80 0f 4d 4f 56 20 52 35 2c 23 26 30 30 0d 0c |...MOV R5,#&00..|
00001ca0 8a 11 4c 44 52 20 52 36 2c 70 61 6c 61 64 72 0d |..LDR R6,paladr.|
00001cb0 0c 94 05 3a 0d 0c 9e 0c 2e 63 72 75 73 68 6c 70 |...:.....crushlp|
00001cc0 0d 0c a8 15 4c 44 52 42 20 52 37 2c 5b 52 31 5d |....LDRB R7,[R1]|
00001cd0 2c 23 26 30 31 0d 0c b2 13 4c 44 52 42 20 52 30 |,#&01....LDRB R0|
00001ce0 2c 5b 52 36 2c 52 37 5d 0d 0c bc 13 53 55 42 53 |,[R6,R7]....SUBS|
00001cf0 20 52 33 2c 52 33 2c 23 26 30 31 0d 0c c6 0f 42 | R3,R3,#&01....B|
00001d00 45 51 20 63 72 75 73 68 65 78 0d 0c d0 0d 43 4d |EQ crushex....CM|
00001d10 50 20 52 37 2c 52 34 0d 0c da 0e 42 4e 45 20 63 |P R7,R4....BNE c|
00001d20 72 73 64 69 66 0d 0c e4 12 41 44 44 20 52 35 2c |rsdif....ADD R5,|
00001d30 52 35 2c 23 26 30 31 0d 0c ee 0f 43 4d 50 20 52 |R5,#&01....CMP R|
00001d40 35 2c 23 26 37 45 0d 0c f8 0f 42 4c 54 20 63 72 |5,#&7E....BLT cr|
00001d50 75 73 68 6c 70 0d 0d 02 05 3a 0d 0d 0c 0c 2e 63 |ushlp....:.....c|
00001d60 72 73 68 6e 75 6d 0d 0d 16 11 84 52 20 52 35 2c |rshnum.....R R5,|
00001d70 52 35 2c 23 26 38 30 0d 0d 20 15 53 54 52 42 20 |R5,#&80.. .STRB |
00001d80 52 35 2c 5b 52 32 5d 2c 23 26 30 31 0d 0d 2a 0f |R5,[R2],#&01..*.|
00001d90 4d 4f 56 20 52 35 2c 23 26 30 30 0d 0d 34 0d 42 |MOV R5,#&00..4.B|
00001da0 20 63 72 75 73 68 6c 70 0d 0d 3e 05 3a 0d 0d 48 | crushlp..>.:..H|
00001db0 0b 2e 63 72 73 64 69 66 0d 0d 52 0f 43 4d 50 20 |..crsdif..R.CMP |
00001dc0 52 35 2c 23 26 30 30 0d 0d 5c 13 84 52 47 54 20 |R5,#&00..\..RGT |
00001dd0 52 35 2c 52 35 2c 23 26 38 30 0d 0d 66 17 53 54 |R5,R5,#&80..f.ST|
00001de0 52 47 54 42 20 52 35 2c 5b 52 32 5d 2c 23 26 30 |RGTB R5,[R2],#&0|
00001df0 31 0d 0d 70 11 4d 4f 56 47 54 20 52 35 2c 23 26 |1..p.MOVGT R5,#&|
00001e00 30 30 0d 0d 7a 15 53 54 52 42 20 52 30 2c 5b 52 |00..z.STRB R0,[R|
00001e10 32 5d 2c 23 26 30 31 0d 0d 84 0f 43 4d 50 20 52 |2],#&01....CMP R|
00001e20 30 2c 23 26 46 46 0d 0d 8e 17 53 54 52 45 51 42 |0,#&FF....STREQB|
00001e30 20 52 37 2c 5b 52 32 5d 2c 23 26 30 31 0d 0d 98 | R7,[R2],#&01...|
00001e40 0d 4d 4f 56 20 52 34 2c 52 37 0d 0d a2 0d 42 20 |.MOV R4,R7....B |
00001e50 63 72 75 73 68 6c 70 0d 0d ac 05 3a 0d 0d b6 0c |crushlp....:....|
00001e60 2e 63 72 75 73 68 65 78 0d 0d c0 0f 43 4d 50 20 |.crushex....CMP |
00001e70 52 35 2c 23 26 30 30 0d 0d ca 13 84 52 47 54 20 |R5,#&00.....RGT |
00001e80 52 35 2c 52 35 2c 23 26 38 30 0d 0d d4 17 53 54 |R5,R5,#&80....ST|
00001e90 52 47 54 42 20 52 35 2c 5b 52 32 5d 2c 23 26 30 |RGTB R5,[R2],#&0|
00001ea0 31 0d 0d de 15 53 54 52 42 20 52 30 2c 5b 52 32 |1....STRB R0,[R2|
00001eb0 5d 2c 23 26 30 31 0d 0d e8 0f 43 4d 50 20 52 30 |],#&01....CMP R0|
00001ec0 2c 23 26 46 46 0d 0d f2 17 53 54 52 45 51 42 20 |,#&FF....STREQB |
00001ed0 52 37 2c 5b 52 32 5d 2c 23 26 30 31 0d 0d fc 10 |R7,[R2],#&01....|
00001ee0 53 54 52 20 52 32 2c 77 72 69 74 65 0d 0e 06 0e |STR R2,write....|
00001ef0 4d 4f 56 20 50 43 2c 52 31 34 0d 0e 10 05 3a 0d |MOV PC,R14....:.|
00001f00 0e 1a 0b 2e 65 78 70 61 6e 64 0d 0e 24 0f 4c 44 |....expand..$.LD|
00001f10 52 20 52 37 2c 72 65 61 64 0d 0e 2e 12 41 44 44 |R R7,read....ADD|
00001f20 20 52 31 2c 52 37 2c 23 26 38 30 0d 0e 38 10 4c | R1,R7,#&80..8.L|
00001f30 44 52 20 52 32 2c 77 72 69 74 65 0d 0e 42 0f 4c |DR R2,write..B.L|
00001f40 44 52 20 52 33 2c 73 69 7a 65 0d 0e 4c 0f 4d 4f |DR R3,size..L.MO|
00001f50 56 20 52 34 2c 23 26 30 30 0d 0e 56 15 4c 44 52 |V R4,#&00..V.LDR|
00001f60 42 20 52 30 2c 5b 52 31 5d 2c 23 26 30 31 0d 0e |B R0,[R1],#&01..|
00001f70 60 0f 43 4d 50 20 52 30 2c 23 26 46 46 0d 0e 6a |`.CMP R0,#&FF..j|
00001f80 17 4c 44 52 45 51 42 20 52 30 2c 5b 52 31 5d 2c |.LDREQB R0,[R1],|
00001f90 23 26 30 31 0d 0e 74 15 4c 44 52 4e 45 42 20 52 |#&01..t.LDRNEB R|
00001fa0 30 2c 5b 52 37 2c 52 30 5d 0d 0e 7e 05 3a 0d 0e |0,[R7,R0]..~.:..|
00001fb0 88 0a 2e 65 78 70 6c 70 0d 0e 92 15 53 54 52 42 |...explp....STRB|
00001fc0 20 52 30 2c 5b 52 32 5d 2c 23 26 30 31 0d 0e 9c | R0,[R2],#&01...|
00001fd0 13 53 55 42 53 20 52 33 2c 52 33 2c 23 26 30 31 |.SUBS R3,R3,#&01|
00001fe0 0d 0e a6 0d ec 51 20 50 43 2c 52 31 34 0d 0e b0 |.....Q PC,R14...|
00001ff0 13 53 55 42 53 20 52 34 2c 52 34 2c 23 26 30 31 |.SUBS R4,R4,#&01|
00002000 0d 0e ba 0d 42 47 54 20 65 78 70 6c 70 0d 0e c4 |....BGT explp...|
00002010 15 4c 44 52 42 20 52 35 2c 5b 52 31 5d 2c 23 26 |.LDRB R5,[R1],#&|
00002020 30 31 0d 0e ce 0f 43 4d 50 20 52 35 2c 23 26 46 |01....CMP R5,#&F|
00002030 46 0d 0e d8 17 4c 44 52 45 51 42 20 52 30 2c 5b |F....LDREQB R0,[|
00002040 52 31 5d 2c 23 26 30 31 0d 0e e2 0d 42 45 51 20 |R1],#&01....BEQ |
00002050 65 78 70 6c 70 0d 0e ec 11 80 53 20 52 36 2c 52 |explp.....S R6,R|
00002060 35 2c 23 26 38 30 0d 0e f6 12 80 4e 45 20 52 34 |5,#&80.....NE R4|
00002070 2c 52 35 2c 23 26 37 46 0d 0f 00 15 4c 44 52 45 |,R5,#&7F....LDRE|
00002080 51 42 20 52 30 2c 5b 52 37 2c 52 35 5d 0d 0f 0a |QB R0,[R7,R5]...|
00002090 0b 42 20 65 78 70 6c 70 0d 0f 14 05 3a 0d 0f 1e |.B explp....:...|
000020a0 0a 2e 6c 69 6d 69 74 0d 0f 28 0f 4c 44 52 20 52 |..limit..(.LDR R|
000020b0 31 2c 72 65 61 64 0d 0f 32 0f 4c 44 52 20 52 32 |1,read..2.LDR R2|
000020c0 2c 6c 69 6e 65 0d 0f 3c 0f 4c 44 52 20 52 33 2c |,line..<.LDR R3,|
000020d0 73 69 7a 65 0d 0f 46 0f 4d 4f 56 20 52 34 2c 23 |size..F.MOV R4,#|
000020e0 26 30 30 0d 0f 50 0f 4d 4f 56 20 52 35 2c 23 26 |&00..P.MOV R5,#&|
000020f0 30 30 0d 0f 5a 0f 4d 4f 56 20 52 36 2c 23 26 30 |00..Z.MOV R6,#&0|
00002100 30 0d 0f 64 0d 4d 4f 56 20 52 37 2c 52 32 0d 0f |0..d.MOV R7,R2..|
00002110 6e 0e 41 44 52 20 52 30 2c 62 6f 78 0d 0f 78 15 |n.ADR R0,box..x.|
00002120 4c 44 4d 49 41 20 52 30 2c 7b 52 38 2d 52 31 31 |LDMIA R0,{R8-R11|
00002130 7d 0d 0f 82 10 4d 4f 56 20 52 31 32 2c 23 26 30 |}....MOV R12,#&0|
00002140 30 0d 0f 8c 05 3a 0d 0f 96 0c 2e 6c 69 6d 73 63 |0....:.....limsc|
00002150 61 6e 0d 0f a0 13 53 55 42 53 20 52 33 2c 52 33 |an....SUBS R3,R3|
00002160 2c 23 26 30 31 0d 0f aa 10 41 44 52 45 51 20 52 |,#&01....ADREQ R|
00002170 30 2c 62 6f 78 0d 0f b4 17 53 54 4d 45 51 49 41 |0,box....STMEQIA|
00002180 20 52 30 2c 7b 52 38 2d 52 31 31 7d 0d 0f be 0d | R0,{R8-R11}....|
00002190 ec 51 20 50 43 2c 52 31 34 0d 0f c8 10 4c 44 52 |.Q PC,R14....LDR|
000021a0 42 20 52 30 2c 5b 52 31 5d 0d 0f d2 0f 43 4d 50 |B R0,[R1]....CMP|
000021b0 20 52 30 2c 23 26 30 30 0d 0f dc 12 4d 4f 56 4e | R0,#&00....MOVN|
000021c0 45 20 52 31 32 2c 23 26 30 31 0d 0f e6 0f 4d 4f |E R12,#&01....MO|
000021d0 56 4e 45 20 52 36 2c 52 34 0d 0f f0 11 43 4d 50 |VNE R6,R4....CMP|
000021e0 45 51 20 52 36 2c 23 26 30 30 0d 0f fa 0c ec 51 |EQ R6,#&00.....Q|
000021f0 20 52 37 2c 52 34 0d 10 04 15 53 54 52 42 20 52 | R7,R4....STRB R|
00002200 30 2c 5b 52 31 5d 2c 23 26 30 31 0d 10 0e 12 41 |0,[R1],#&01....A|
00002210 44 44 20 52 34 2c 52 34 2c 23 26 30 31 0d 10 18 |DD R4,R4,#&01...|
00002220 0d 43 4d 50 20 52 34 2c 52 32 0d 10 22 0f 42 4c |.CMP R4,R2..".BL|
00002230 54 20 6c 69 6d 73 63 61 6e 0d 10 2c 0f 4d 4f 56 |T limscan..,.MOV|
00002240 20 52 34 2c 23 26 30 30 0d 10 36 0d 43 4d 50 20 | R4,#&00..6.CMP |
00002250 52 36 2c 52 38 0d 10 40 0f 4d 4f 56 47 54 20 52 |R6,R8..@.MOVGT R|
00002260 38 2c 52 36 0d 10 4a 0d 43 4d 50 20 52 37 2c 52 |8,R6..J.CMP R7,R|
00002270 39 0d 10 54 0f 4d 4f 56 4c 54 20 52 39 2c 52 37 |9..T.MOVLT R9,R7|
00002280 0d 10 5e 0f 4d 4f 56 20 52 36 2c 23 26 30 30 0d |..^.MOV R6,#&00.|
00002290 10 68 0d 4d 4f 56 20 52 37 2c 52 32 0d 10 72 10 |.h.MOV R7,R2..r.|
000022a0 43 4d 50 20 52 31 32 2c 23 26 30 30 0d 10 7c 14 |CMP R12,#&00..|.|
000022b0 41 44 44 45 51 20 52 35 2c 52 35 2c 23 26 30 31 |ADDEQ R5,R5,#&01|
000022c0 0d 10 86 0f 42 45 51 20 6c 69 6d 73 63 61 6e 0d |....BEQ limscan.|
000022d0 10 90 0e 43 4d 50 20 52 35 2c 52 31 30 0d 10 9a |...CMP R5,R10...|
000022e0 10 4d 4f 56 47 54 20 52 31 30 2c 52 35 0d 10 a4 |.MOVGT R10,R5...|
000022f0 0e 43 4d 50 20 52 35 2c 52 31 31 0d 10 ae 10 4d |.CMP R5,R11....M|
00002300 4f 56 4c 54 20 52 31 31 2c 52 35 0d 10 b8 12 41 |OVLT R11,R5....A|
00002310 44 44 20 52 35 2c 52 35 2c 23 26 30 31 0d 10 c2 |DD R5,R5,#&01...|
00002320 10 4d 4f 56 20 52 31 32 2c 23 26 30 30 0d 10 cc |.MOV R12,#&00...|
00002330 0d 42 20 6c 69 6d 73 63 61 6e 0d 10 d6 05 3a 0d |.B limscan....:.|
00002340 10 e0 12 2e 6c 69 6e 65 20 45 51 55 44 20 26 30 |....line EQUD &0|
00002350 30 0d 10 ea 05 3a 0d 10 f4 08 2e 62 6f 78 0d 10 |0....:.....box..|
00002360 fe 15 45 51 55 44 20 26 30 30 3a 45 51 55 44 20 |..EQUD &00:EQUD |
00002370 26 30 30 0d 11 08 15 45 51 55 44 20 26 30 30 3a |&00....EQUD &00:|
00002380 45 51 55 44 20 26 30 30 0d 11 12 05 3a 0d 11 1c |EQUD &00....:...|
00002390 09 2e 72 65 61 64 0d 11 26 0c 45 51 55 44 20 26 |..read..&.EQUD &|
000023a0 30 30 0d 11 30 05 3a 0d 11 3a 0a 2e 77 72 69 74 |00..0.:..:..writ|
000023b0 65 0d 11 44 0c 45 51 55 44 20 26 30 30 0d 11 4e |e..D.EQUD &00..N|
000023c0 05 3a 0d 11 58 0c 2e 73 61 76 65 70 61 6c 0d 11 |.:..X..savepal..|
000023d0 62 0c 45 51 55 44 20 26 30 30 0d 11 6c 05 3a 0d |b.EQUD &00..l.:.|
000023e0 11 76 09 2e 73 69 7a 65 0d 11 80 0c 45 51 55 44 |.v..size....EQUD|
000023f0 20 26 30 30 0d 11 8a 05 3a 0d 11 94 0b 2e 70 61 | &00....:.....pa|
00002400 6c 61 64 72 0d 11 9e 10 45 51 55 44 20 73 71 73 |ladr....EQUD sqs|
00002410 68 70 61 6c 0d 11 a8 05 3a 0d 11 b2 0b 2e 63 6f |hpal....:.....co|
00002420 6c 61 64 72 0d 11 bc 11 45 51 55 44 20 63 6f 6c |ladr....EQUD col|
00002430 74 61 62 6c 65 0d 11 c6 05 5d 0d 11 d0 0e 73 71 |table....]....sq|
00002440 73 68 70 61 6c 3d 50 25 0d 11 da 13 63 6f 6c 74 |shpal=P%....colt|
00002450 61 62 6c 65 3d 50 25 2b 32 35 36 0d 11 e4 09 ed |able=P%+256.....|
00002460 20 6f 70 74 0d 11 ee 05 e1 0d 11 f8 05 3a 0d 12 | opt.........:..|
00002470 02 16 dd 20 f2 63 6f 6e 76 65 72 74 28 66 72 61 |... .convert(fra|
00002480 6d 65 25 29 0d 12 0c 36 c8 99 20 22 4f 53 5f 53 |me%)...6.. "OS_S|
00002490 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 32 34 2c |priteOp",256+24,|
000024a0 73 70 72 69 74 65 25 2c 22 66 72 61 6d 65 22 20 |sprite%,"frame" |
000024b0 b8 20 2c 2c 73 70 61 64 72 25 0d 12 16 1b 73 74 |. ,,spadr%....st|
000024c0 61 72 74 25 3d 73 70 61 64 72 25 2b 73 70 61 64 |art%=spadr%+spad|
000024d0 72 25 21 33 32 0d 12 20 17 65 6e 64 25 3d 73 70 |r%!32.. .end%=sp|
000024e0 61 64 72 25 2b 21 73 70 61 64 72 25 0d 12 2a 15 |adr%+!spadr%..*.|
000024f0 73 69 7a 65 25 3d 65 6e 64 25 2d 73 74 61 72 74 |size%=end%-start|
00002500 25 0d 12 34 0f 21 73 69 7a 65 3d 73 69 7a 65 25 |%..4.!size=size%|
00002510 0d 12 3e 10 21 72 65 61 64 3d 73 74 61 72 74 25 |..>.!read=start%|
00002520 0d 12 48 1a 21 77 72 69 74 65 3d 73 74 6f 72 65 |..H.!write=store|
00002530 25 2b 73 7a 65 25 2b 31 32 38 0d 12 52 18 21 73 |%+sze%+128..R.!s|
00002540 61 76 65 70 61 6c 3d 73 74 6f 72 65 25 2b 73 7a |avepal=store%+sz|
00002550 65 25 0d 12 5c 11 d6 20 63 6f 75 6e 74 63 6f 6c |e%..\.. countcol|
00002560 6f 75 72 0d 12 66 0b d6 20 63 72 75 73 68 0d 12 |our..f.. crush..|
00002570 70 16 73 7a 65 25 3d 21 77 72 69 74 65 2d 73 74 |p.sze%=!write-st|
00002580 6f 72 65 25 0d 12 7a 1c 74 61 62 6c 65 25 21 28 |ore%..z.table%!(|
00002590 34 2b 34 2a 66 72 61 6d 65 25 29 3d 73 7a 65 25 |4+4*frame%)=sze%|
000025a0 0d 12 84 26 e7 20 73 7a 65 25 3e 62 75 66 73 7a |...&. sze%>bufsz|
000025b0 65 25 20 8c 20 85 20 30 2c 22 4d 65 6d 6f 72 79 |e% . . 0,"Memory|
000025c0 20 66 75 6c 6c 22 0d 12 8e 05 e1 0d 12 98 05 3a | full".........:|
000025d0 0d 12 a2 0e dd 20 f2 70 72 6f 67 72 61 6d 0d 12 |..... .program..|
000025e0 ac 11 21 62 75 66 66 65 72 25 3d 6d 61 78 25 0d |..!buffer%=max%.|
000025f0 12 b6 14 62 75 66 66 65 72 25 21 34 3d 63 79 63 |...buffer%!4=cyc|
00002600 6c 65 25 0d 12 c0 16 74 61 62 6c 65 25 3d 62 75 |le%....table%=bu|
00002610 66 66 65 72 25 2b 31 35 32 0d 12 ca 1d 73 74 6f |ffer%+152....sto|
00002620 72 65 25 3d 62 75 66 66 65 72 25 2b 34 2a 6d 61 |re%=buffer%+4*ma|
00002630 78 25 2b 31 36 30 0d 12 d4 0a 73 7a 65 25 3d 30 |x%+160....sze%=0|
00002640 0d 12 de 10 21 74 61 62 6c 65 25 3d 73 7a 65 25 |....!table%=sze%|
00002650 0d 12 e8 15 e3 20 66 72 61 6d 65 25 3d 30 20 b8 |..... frame%=0 .|
00002660 20 6d 61 78 25 0d 12 f2 05 db 0d 12 fc 21 ff 20 | max%........!. |
00002670 6c 6f 61 64 24 2b 22 20 22 2b 73 70 72 69 74 65 |load$+" "+sprite|
00002680 24 2b c3 28 66 72 61 6d 65 25 29 0d 13 06 41 c8 |$+.(frame%)...A.|
00002690 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
000026a0 32 35 36 2b 31 36 2c 73 70 72 69 74 65 25 2c 22 |256+16,sprite%,"|
000026b0 66 72 61 6d 65 22 2c 31 2c 6c 66 74 25 2c 62 74 |frame",1,lft%,bt|
000026c0 6d 25 2c 72 67 74 25 2c 74 6f 70 25 0d 13 10 14 |m%,rgt%,top%....|
000026d0 f2 63 6f 6e 76 65 72 74 28 66 72 61 6d 65 25 29 |.convert(frame%)|
000026e0 0d 13 1a 24 c8 93 20 6c 66 74 25 2c 62 74 6d 25 |...$.. lft%,btm%|
000026f0 2c 72 67 74 25 2d 6c 66 74 25 2c 74 6f 70 25 2d |,rgt%-lft%,top%-|
00002700 62 74 6d 25 0d 13 24 0c ed 20 66 72 61 6d 65 25 |btm%..$.. frame%|
00002710 0d 13 2e 3a c8 99 20 22 4f 53 5f 53 70 72 69 74 |...:.. "OS_Sprit|
00002720 65 4f 70 22 2c 32 35 36 2b 34 30 2c 73 70 72 69 |eOp",256+40,spri|
00002730 74 65 25 2c 22 66 72 61 6d 65 22 20 b8 20 2c 2c |te%,"frame" . ,,|
00002740 2c 77 64 74 25 2c 68 67 74 25 0d 13 38 36 c8 99 |,wdt%,hgt%..86..|
00002750 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 | "OS_SpriteOp",2|
00002760 35 36 2b 32 34 2c 73 70 72 69 74 65 25 2c 22 66 |56+24,sprite%,"f|
00002770 72 61 6d 65 22 20 b8 20 2c 2c 73 70 61 64 72 25 |rame" . ,,spadr%|
00002780 0d 13 42 24 62 75 66 66 65 72 25 21 38 3d 73 70 |..B$buffer%!8=sp|
00002790 61 64 72 25 2b 21 73 70 61 64 72 25 2d 73 70 72 |adr%+!spadr%-spr|
000027a0 69 74 65 25 0d 13 4c 30 62 75 66 66 65 72 25 21 |ite%..L0buffer%!|
000027b0 31 32 3d eb 3a 62 75 66 66 65 72 25 21 31 36 3d |12=.:buffer%!16=|
000027c0 77 64 74 25 3a 62 75 66 66 65 72 25 21 32 30 3d |wdt%:buffer%!20=|
000027d0 68 67 74 25 0d 13 56 15 e3 20 70 61 6c 65 74 74 |hgt%..V.. palett|
000027e0 65 25 3d 30 20 b8 20 33 31 0d 13 60 32 62 75 66 |e%=0 . 31..`2buf|
000027f0 66 65 72 25 21 28 32 34 2b 34 2a 70 61 6c 65 74 |fer%!(24+4*palet|
00002800 74 65 25 29 3d 73 70 61 64 72 25 21 28 34 34 2b |te%)=spadr%!(44+|
00002810 70 61 6c 65 74 74 65 25 2a 34 29 0d 13 6a 0e ed |palette%*4)..j..|
00002820 20 70 61 6c 65 74 74 65 25 0d 13 74 22 c8 99 20 | palette%..t".. |
00002830 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 35 |"OS_SpriteOp",25|
00002840 36 2b 39 2c 73 70 72 69 74 65 25 0d 13 7e 05 e1 |6+9,sprite%..~..|
00002850 0d 13 88 05 3a 0d 13 92 15 dd 20 f2 65 78 70 61 |....:..... .expa|
00002860 6e 64 28 66 72 61 6d 65 25 29 0d 13 9c 21 ff 20 |nd(frame%)...!. |
00002870 6c 6f 61 64 24 2b 22 20 22 2b 73 70 72 69 74 65 |load$+" "+sprite|
00002880 24 2b c3 28 66 72 61 6d 65 25 29 0d 13 a6 05 e1 |$+.(frame%).....|
00002890 0d 13 b0 05 3a 0d 13 ba 0e dd 20 f2 70 61 6c 65 |....:..... .pale|
000028a0 74 74 65 0d 13 c4 11 e3 20 63 6f 6c 25 3d 30 20 |tte..... col%=0 |
000028b0 b8 20 31 35 0d 13 ce 52 ef 20 31 39 2c 63 6f 6c |. 15...R. 19,col|
000028c0 25 2c 31 36 2c 62 75 66 66 65 72 25 3f 28 32 34 |%,16,buffer%?(24|
000028d0 2b 38 2a 63 6f 6c 25 2b 31 29 2c 62 75 66 66 65 |+8*col%+1),buffe|
000028e0 72 25 3f 28 32 34 2b 38 2a 63 6f 6c 25 2b 32 29 |r%?(24+8*col%+2)|
000028f0 2c 62 75 66 66 65 72 25 3f 28 32 34 2b 38 2a 63 |,buffer%?(24+8*c|
00002900 6f 6c 25 2b 33 29 0d 13 d8 0a ed 20 63 6f 6c 25 |ol%+3)..... col%|
00002910 0d 13 e2 05 e1 0d 13 ec 05 3a 0d 13 f6 0d dd 20 |.........:..... |
00002920 f2 67 65 74 62 6f 78 0d 14 00 0c 66 72 61 6d 65 |.getbox....frame|
00002930 25 3d 30 0d 14 0a 21 ff 20 6c 6f 61 64 24 2b 22 |%=0...!. load$+"|
00002940 20 22 2b 73 70 72 69 74 65 24 2b c3 28 66 72 61 | "+sprite$+.(fra|
00002950 6d 65 25 29 0d 14 14 05 87 0d 14 1e 1d e6 20 30 |me%).......... 0|
00002960 20 c8 9c 20 30 3a c8 93 20 30 2c 30 2c 31 32 37 | .. 0:.. 0,0,127|
00002970 39 2c 31 30 32 33 0d 14 28 06 c8 96 0d 14 32 15 |9,1023..(.....2.|
00002980 21 62 6f 78 3d 31 34 39 3a 62 6f 78 21 34 3d 2d |!box=149:box!4=-|
00002990 31 0d 14 3c 26 c8 99 20 22 4f 53 5f 52 65 61 64 |1..<&.. "OS_Read|
000029a0 56 64 75 56 61 72 69 61 62 6c 65 73 22 2c 62 6f |VduVariables",bo|
000029b0 78 2c 62 6f 78 2b 38 0d 14 46 0f 21 72 65 61 64 |x,box+8..F.!read|
000029c0 3d 62 6f 78 21 38 0d 14 50 2a c8 99 20 22 4f 53 |=box!8..P*.. "OS|
000029d0 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c |_ReadModeVariabl|
000029e0 65 22 2c eb 2c 34 20 b8 20 2c 2c 78 65 69 67 25 |e",.,4 . ,,xeig%|
000029f0 0d 14 5a 2a c8 99 20 22 4f 53 5f 52 65 61 64 4d |..Z*.. "OS_ReadM|
00002a00 6f 64 65 56 61 72 69 61 62 6c 65 22 2c eb 2c 35 |odeVariable",.,5|
00002a10 20 b8 20 2c 2c 79 65 69 67 25 0d 14 64 2a c8 99 | . ,,yeig%..d*..|
00002a20 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 | "OS_ReadModeVar|
00002a30 69 61 62 6c 65 22 2c eb 2c 36 20 b8 20 2c 2c 21 |iable",.,6 . ,,!|
00002a40 6c 69 6e 65 0d 14 6e 2a c8 99 20 22 4f 53 5f 52 |line..n*.. "OS_R|
00002a50 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 |eadModeVariable"|
00002a60 2c eb 2c 37 20 b8 20 2c 2c 21 73 69 7a 65 0d 14 |,.,7 . ,,!size..|
00002a70 78 31 21 62 6f 78 3d 30 3a 62 6f 78 21 34 3d 21 |x1!box=0:box!4=!|
00002a80 6c 69 6e 65 3a 62 6f 78 21 38 3d 30 3a 62 6f 78 |line:box!8=0:box|
00002a90 21 31 32 3d 31 30 32 34 3e 3e 79 65 69 67 25 0d |!12=1024>>yeig%.|
00002aa0 14 82 12 c8 95 20 66 72 61 6d 65 25 3c 6d 61 78 |..... frame%<max|
00002ab0 25 0d 14 8c 0b d6 20 6c 69 6d 69 74 0d 14 96 26 |%..... limit...&|
00002ac0 6c 66 74 25 3d 62 6f 78 21 34 3c 3c 78 65 69 67 |lft%=box!4<<xeig|
00002ad0 25 3a 72 67 74 25 3d 21 62 6f 78 3c 3c 78 65 69 |%:rgt%=!box<<xei|
00002ae0 67 25 0d 14 a0 36 62 74 6d 25 3d 31 30 32 33 2d |g%...6btm%=1023-|
00002af0 28 62 6f 78 21 31 32 3c 3c 79 65 69 67 25 29 3a |(box!12<<yeig%):|
00002b00 74 6f 70 25 3d 31 30 32 33 2d 28 62 6f 78 21 38 |top%=1023-(box!8|
00002b10 3c 3c 79 65 69 67 25 29 0d 14 aa 30 e6 20 36 33 |<<yeig%)...0. 63|
00002b20 20 c8 9c 20 31 39 32 3a c8 93 20 6c 66 74 25 2c | .. 192:.. lft%,|
00002b30 62 74 6d 25 2c 72 67 74 25 2d 6c 66 74 25 2c 74 |btm%,rgt%-lft%,t|
00002b40 6f 70 25 2d 62 74 6d 25 0d 14 b4 0d 66 72 61 6d |op%-btm%....fram|
00002b50 65 25 2b 3d 31 0d 14 be 21 ff 20 6c 6f 61 64 24 |e%+=1...!. load$|
00002b60 2b 22 20 22 2b 73 70 72 69 74 65 24 2b c3 28 66 |+" "+sprite$+.(f|
00002b70 72 61 6d 65 25 29 0d 14 c8 05 87 0d 14 d2 1d e6 |rame%)..........|
00002b80 20 30 20 c8 9c 20 30 3a c8 93 20 30 2c 30 2c 31 | 0 .. 0:.. 0,0,1|
00002b90 32 37 39 2c 31 30 32 33 0d 14 dc 06 c8 96 0d 14 |279,1023........|
00002ba0 e6 05 ce 0d 14 f0 0b d6 20 6c 69 6d 69 74 0d 14 |........ limit..|
00002bb0 fa 2c 73 70 72 73 7a 65 25 3d 34 30 39 36 2b 28 |.,sprsze%=4096+(|
00002bc0 21 62 6f 78 2d 62 6f 78 21 34 29 2a 28 62 6f 78 |!box-box!4)*(box|
00002bd0 21 38 2d 62 6f 78 21 31 32 29 0d 15 04 26 6c 66 |!8-box!12)...&lf|
00002be0 74 25 3d 62 6f 78 21 34 3c 3c 78 65 69 67 25 3a |t%=box!4<<xeig%:|
00002bf0 72 67 74 25 3d 21 62 6f 78 3c 3c 78 65 69 67 25 |rgt%=!box<<xeig%|
00002c00 0d 15 0e 36 62 74 6d 25 3d 31 30 32 34 2d 28 62 |...6btm%=1024-(b|
00002c10 6f 78 21 31 32 3c 3c 79 65 69 67 25 29 3a 74 6f |ox!12<<yeig%):to|
00002c20 70 25 3d 31 30 32 34 2d 28 62 6f 78 21 38 3c 3c |p%=1024-(box!8<<|
00002c30 79 65 69 67 25 29 0d 15 18 25 6c 66 74 25 3d 6c |yeig%)...%lft%=l|
00002c40 66 74 25 20 80 20 ac 20 31 35 3a 62 74 6d 25 3d |ft% . . 15:btm%=|
00002c50 62 74 6d 25 20 80 20 ac 20 31 35 0d 15 22 2d 72 |btm% . . 15.."-r|
00002c60 67 74 25 3d 28 72 67 74 25 20 80 20 ac 20 31 35 |gt%=(rgt% . . 15|
00002c70 29 2d 31 3a 74 6f 70 25 3d 28 74 6f 70 25 20 80 |)-1:top%=(top% .|
00002c80 20 ac 20 31 35 29 2d 31 0d 15 2c 30 e6 20 36 33 | . 15)-1..,0. 63|
00002c90 20 c8 9c 20 31 39 32 3a c8 93 20 6c 66 74 25 2c | .. 192:.. lft%,|
00002ca0 62 74 6d 25 2c 72 67 74 25 2d 6c 66 74 25 2c 74 |btm%,rgt%-lft%,t|
00002cb0 6f 70 25 2d 62 74 6d 25 0d 15 36 05 e1 0d ff |op%-btm%..6....|
00002cbf 
.