Home » Personal collection » Acorn hard disk » zipped_disks » 2000_apps_2 » apps2/!ChangeFSI/ChangeFSI
apps2/!ChangeFSI/ChangeFSI
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 » Personal collection » Acorn hard disk » zipped_disks » 2000_apps_2 |
| Filename: | apps2/!ChangeFSI/ChangeFSI |
| Read OK: | ✔ |
| File size: | 28885 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_1.6M_Apps2.adf » !ChangeFSI/ChangeFSI
- Personal collection » Acorn hard disk » apps » ImagePrcss » !ChangeFSI/ChangeFSI
- Personal collection » Acorn hard disk » apps » web » !ChangeFSI/ChangeFSI
- Personal collection » Acorn hard disk » zipped_disks » 2000_apps_2 » apps2/!ChangeFSI/ChangeFSI
File contents
10REM > ChangeFSI
140areanumber%=0
150SYS"OS_GetEnv" TO A$
160task%=INSTR(A$," -wimp"):IFtask% THEN
170DIM z%(1),p%(3),s%(3),m$(30)
180A%=OPENIN"<ChangeFSI$Dir>.Messages"
190B%=-1:REPEAT B%+=1:m$(B%)=GET$#A%:UNTILEOF#A%:CLOSE#A%
200startfile%=RIGHT$(A$,6)<>"-wimp "
210DIM taskid%4:$taskid%="TASK"
220SYS "Wimp_Initialise",200,!taskid%,m$(20) TO version%
230IF version%>=350 THEN
240SYS"OS_Memory",8+(2<<8) TO ,r1,r2:vramsize%=r1*r2
250IF vramsize%>0 vram%=TRUE ELSEvram%=FALSE
260ELSE
270vram%=FALSE
280ENDIF
290Wimp = (1<<18) + (3<<6)
300CreateW = Wimp+1:OpenW = Wimp+5 :CloseW = Wimp+6:RedrawW = Wimp+8
310UpdateW = Wimp+9:GetR% = Wimp+10:GetW = Wimp+11:SetI = Wimp+13
320GetI = Wimp+14:GetP = Wimp+15:Drag = Wimp+16:CrMenu = Wimp+20
330DcMenu = Wimp+21
340SYS "OS_SWINumberFromString",,"Wimp_PollIdle" TO Poll%
350SYS "OS_SWINumberFromString",,"XOS_SpriteOp" TO spopx%
360SYS "OS_SWINumberFromString",,"OS_SpriteOp" TO spop%
370SYS "OS_SWINumberFromString",,"OS_ReadMonotonicTime" TO Time%
380SYS "OS_SWINumberFromString",,"ColourTrans_ReturnColourNumber" TO ctran%
390SYS "OS_SWINumberFromString",,"Wimp_SetCaretPosition" TO Caretpos%
400SYS "OS_SWINumberFromString",,"Wimp_GetCaretPosition" TO Getcaret%
410SYS "XOS_SWINumberFromString",,"DragASprite_Start" TO dstart%;f%:IFf%AND 1 dstart%=0
420SYS "XOS_SWINumberFromString",,"JPEG_PlotScaled" TO jpegpaint%;f%:IFf%AND 1 jpegpaint%=0
430SYS "OS_Byte",161,&1C TO ,,f%:IF(f%AND2)=0 dstart%=0
440nextlocation%=HIMEM
450SYS "Wimp_SlotSize",-1,-1 TO originalslot%
460PROClocale_initialise
480IF version%>=300 THEN
490DIM q% 255,ifactors% 15,factors% 15,pixtrans% 255,paltemp% 1023,buffer% 255,idata% 1023
500ELSE
510DIM z% 1699,q% 255,ifactors% 15,factors% 15,pixtrans% 255,paltemp% 1023,buffer% 255,idata% 2399
520eidata%=idata%+2400
530ENDIF
550scrap%=FALSE:sprite%=FALSE:sar%=FALSE:saved%=TRUE:z$=STRING$(12,CHR$13)
570SYS "OS_Byte",161,&8C TO ,,f%
580IFf% AND 1 THEN
590SYS"Wimp_OpenTemplate",,"<ChangeFSI$Dir>.3dTemplate"
600ELSE
610SYS"Wimp_OpenTemplate",,"<ChangeFSI$Dir>.Templates"
620ENDIF
640LOCAL ERROR
650ON ERROR SYS"Wimp_CloseTemplate":ERROR 0,REPORT$+" (code "+STR$ERL+")"
670IFversion%>=300 THEN
690name=q%
700$name="*":here%=0:largest_tem%=0
710SYS "Wimp_LoadTemplate", ,0,,,,name,0 TO ,size%,,,,,here%
720WHILE here%
730IF largest_tem%<size% largest_tem%=size%
740$name="*"
750SYS "Wimp_LoadTemplate", ,0,,,,name,here% TO ,size%,,,,,here%
760ENDWHILE
770DIM z% largest_tem%
780ENDIF
800PROCdotemplate("Info")
810SYS CreateW,,z% TO infow%:$!(z%+88+7*32+20)=m$(21)
830PROCdotemplate("Processing")
840SYS CreateW,,z% TO proc%
850p%(0)=!(z%+88+8*32+20):p%(1)=!(z%+88+9*32+20):p%(2)=!(z%+88+10*32+20):p%(3)=!(z%+88+12*32+20)
870PROCdotemplate("Output")
880SYS CreateW,,z% TO output%:admode%=!(z%+88+20*32+20):adspcl%=!(z%+88+19*32+20):oldmode%=!(z%+88+34*32+20)
900PROCdotemplate("Scaling")
910SYS CreateW,,z% TO scalew%:adscale%=!(z%+88+1*32+20)
920s%(0)=!(z%+88+10*32+20):s%(1)=!(z%+88+11*32+20):s%(2)=!(z%+88+12*32+20):s%(3)=!(z%+88+13*32+20)
940PROCdotemplate("Save")
950SYS CreateW,,z% TO save%:adsave%=!(z%+88+1*32+20):adsavesprite%=!(z%+88+0*32+20)
970PROCdotemplate("Sprite")
980SYS CreateW,,z% TO sinfo%:adsname%=!(z%+88+5*32+20):adsbytes%=!(z%+88+8*32+20)
990adsx%=!(z%+88+7*32+20):adsy%=!(z%+88+9*32+20):adsm%=!(z%+88+6*32+20)
1010PROCdotemplate("Source")
1020SYS CreateW,,z% TO srcinfo%:adsrc%=!(z%+88+0*32+20)
1040PROCdotemplate("Range")
1050SYS CreateW,,z% TO raninfo%:adran%=!(z%+88+0*32+20)
1070PROCdotemplate("Zoom")
1080SYS CreateW,,z% TO zoom%:z%(0)=!(z%+88+4*32+20):z%(1)=!(z%+88+5*32+20)
1100PROCdotemplate("JPEGOutput")
1110SYS CreateW,,z% TO jpego%:adjpegq%=!(z%+88+5*32+20)
1130PROCdotemplate("Pic")
1140SYS CreateW,,z% TO pic%:adtitle%=z%!72
1160RESTORE ERROR
1170SYS"Wimp_CloseTemplate"
1180!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=%11000000000010
1190$(q%+24)="!"+m$(20):SYS"Wimp_CreateIcon",,q% TO iconbar%
1200A%=OPENIN"<ChangeFSI$Dir>.Choices":IFA%=0 THEN
1210fast%=FALSE:dest%=1:statescale%=%10000000100:stateproc%=0:stateoutput%=&4052008:statejpeg%=&2
1220$p%(0)="":$p%(1)="2"+decimal_point$+"2":$p%(2)="24":$p%(3)="4":$adspcl%=""
1230$admode%="28":$s%(0)="1":$s%(1)="4":$s%(2)="1":$s%(3)="4"
1240$adjpegq%="75":$oldmode%=""
1250ELSE
1260INPUT#A%,fast%,dest%,statescale%,stateproc%,stateoutput%,statejpeg%,$adjpegq%,$oldmode%
1270INPUT#A%,$p%(0),$p%(1),$p%(2),$p%(3),$admode%,$adspcl%
1280$p%(1)=FNlocale_convert($p%(1),".",decimal_point$)
1290INPUT#A%,$s%(0),$s%(1),$s%(2),$s%(3)
1300CLOSE#A%
1310ENDIF
1320q%!12=1<<21
1330!q%=scalew%:FORI%=0TO9:IFstatescale%>>I%AND1 q%!8=1<<21 ELSEq%!8=0
1340q%!4=I%:SYS SetI,,q%:NEXT
1350FORI%=10TO13:IFstatescale%>>I%AND1 q%!8=1<<21 ELSEq%!8=0
1360q%!4=I%+6:SYS SetI,,q%:NEXT
1370!q%=proc%:FORI%=0TO7:IFstateproc%>>I%AND1 q%!8=1<<21 ELSEq%!8=0
1380q%!4=I%:SYS SetI,,q%:NEXT
1390!q%=output%:FORI%=0TO26:IFstateoutput%>>I%AND1 q%!8=1<<21 ELSEq%!8=0
1400q%!4=I%:SYS SetI,,q%:NEXT
1410!q%=jpego%:FORI%=0TO3:IFstatejpeg%>>I%AND1 q%!8=1<<21 ELSEq%!8=0
1420q%!4=I%:SYS SetI,,q%:NEXT
1430IFstateoutput%>>17AND1 q%!8=1<<22 ELSEq%!8=0
1440!q%=output%:q%!12=1<<22:q%!4=7:SYS SetI,,q%:q%!4=8:SYS SetI,,q%:q%!4=13:SYS SetI,,q%:q%!4=14:SYS SetI,,q%
1450PROCshowscaletofit:$z%(0)="1":$z%(1)="1"
1460SYS "OS_UpdateMEMC" TO oldmemc
1470jpegsave%=FALSE
1480ON ERROR SYS"OS_UpdateMEMC",oldmemc,&700:PROCerrorbox:SYS CrMenu,,-1
1490SYS Drag,,-1
1500IFNOTsprite% SYS "Wimp_SlotSize",originalslot%,-1
1510F$="":IFstartfile% startfile%=FALSE:F$=MID$(A$,INSTR(A$,"-wimp")+6):PROCcallFSI
1520REPEAT
1530SYS Poll%,1,q% TO A%
1540CASE A% OF
1550WHEN 1 :IFsprite% PROCredraw_window(!q%)
1560WHEN 2 :PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
1570WHEN 3 :SYS &400c3,,q%:nextlocation%=HIMEM:PROCremovearea
1580SYS "Wimp_SlotSize",originalslot%,-1:saved%=TRUE:sprite%=FALSE
1590WHEN 6 :PROCcheckmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
1600WHEN 7 :SYS GetP,,q%:dw%=q%!12:di%=q%!16:IFdstart% SYS"DragASprite_Stop"
1610q%!12=0:q%!16=1:q%!20=dw%:q%!24=di%:q%!28=!q%:q%!32=q%!4:q%!36=!sar%+3
1620IFjpegsave% THENq%!40=&c85 ELSEq%!40=&ff9
1630temp$=FNZS(adsave%):foo%=INSTR(temp$,"."):WHILEfoo%
1640temp$=MID$(temp$,foo%+1):foo%=INSTR(temp$,".")
1650ENDWHILE
1660$(q%+44)=temp$+CHR$0:!q%=44+(LENtemp$+1+3ANDNOT3)
1670SYS "Wimp_SendMessage",17,q%,dw%,di%:myref%=q%!8
1680WHEN 8 :PROCkey(!q%,q%!4,q%!24)
1690WHEN 9 :PROCmenuselect(q%)
1700WHEN 17,18:PROCreceive(q%)
1710ENDCASE
1720UNTIL FALSE
1730ELSE
1740Q%=HIMEM
1750END=&4000000
1760ON ERROR ON ERROR OFF:OSCLI"Set ChangeFSI$ReturnCode "+REPORT$+" (code "+STR$ERL+")":PROCremovearea:CLEAR:END=Q%:END
1770foo%=0:A%=FNChangeFSI(A$,-1,-1,0,-1,-1,foo%,TRUE)
1780PROCremovearea:*unset ChangeFSI$ReturnCode
1790CLEAR:END=Q%
1800ENDIF
1810END
1830DEF PROCdotemplate(a$)
1840LOCAL A%
1850IFversion%>300 THEN
1860SYS "Wimp_LoadTemplate",,0,,,,a$+z$,0 TO ,,indsize%
1870DIM A% indsize%
1880SYS"Wimp_LoadTemplate",,z%,A%,A%+indsize%,-1,a$+z$,0
1890ELSE
1900SYS"Wimp_LoadTemplate",,z%,idata%,eidata%,-1,a$+z$,0 TO ,,idata%
1910ENDIF
1920ENDPROC
1940DEF PROClocale_initialise
1950LOCAL p%
1960LOCAL ERROR
1970ON ERROR LOCAL decimal_point$=".":ENDPROC
1980SYS "Territory_ReadSymbols",-1,0 TO p%
1990decimal_point$=CHR$?p%
2000ENDPROC
2020DEF FNlocale_convert(n$,f$,t$)
2030IF f$=t$ THEN=n$
2040LOCAL i%
2050i%=INSTR(n$,f$)
2060IF i%<>0 THEN=LEFT$(n$,i%-1)+t$+MID$(n$,i%+1)
2070=n$
2090DEF PROCreceive(q%)
2100CASE q%!16 OF
2110WHEN 0:PROCremovearea:SYS "Wimp_CloseDown":END
2120WHEN 1:IFq%!20<>save% THEN
2130!q%=60:q%!12=q%!8:q%!16=2:q%!36=-1:$(q%+44)="<Wimp$Scrap>"+CHR$0
2140SYS"Wimp_SendMessage",17,q%,q%!4:scrap%=q%!8
2150ENDIF
2160WHEN 2:IFjpegsave% THEN
2170SYS"OS_File",10,FNZS(q%+44),&c85,,sar%,sar%+jpegsize%
2180ELSE
2190SYSspop%,&10C,sar%,FNZS(q%+44)
2200ENDIF
2210$adsave%=FNZS(q%+44)
2220q%!12=q%!8:q%!16=3:SYS "Wimp_SendMessage",18,q%,q%!4
2230IF q%!36<>-1 saved%=TRUE
2240SYS CrMenu,,-1
2250WHEN 3:F$=FNZS(q%+44):IFscrap% scrap%=scrap%=q%!12
2260q%!12=q%!8:q%!16=4:SYS"Wimp_SendMessage",17,q%,q%!4
2270PROCcallFSI
2280WHEN 5:CASE q%!40 OF
2290WHEN &ff0,&c85
2300q%!12=q%!8:q%!16=4:SYS"Wimp_SendMessage",17,q%,q%!4
2310F$=FNZS(q%+44):PROCcallFSI
2320ENDCASE
2330WHEN 8:IFsaved%ORNOTsprite% ENDPROC
2340!buffer%=ERR:$(buffer%+4)=m$(2)+F$+m$(3)+CHR$0
2350SYS"Wimp_ReportError",buffer%,%10111,m$(20) TO ,A%
2360q%!12=q%!8:IFA%<>1 SYS"Wimp_SendMessage",19,q%,0
2370WHEN9,&400C1:IFsprite% PROCgetmodeinfo:SYS&400d1,pic%,0,-32767,32767,0
2380PROCshowscaletofit
2390WHEN 10:SYS"XOS_ReadVarVal","ChangeFSI$Dir",paltemp%,256,0,3 TO,,bootlen%
2400paltemp%?bootlen%=13
2410BPUT#q%!20,"Run "+$paltemp%
2420ENDCASE
2430ENDPROC
2450DEF PROCcallFSI
2460IF FNcheckvalues THENENDPROC
2470A$=FNdeducemode:A%=47
2480jpegsave%=FALSE:IFdest%=0 THEN
2490jpegsave%=TRUE:A$="JPEG":IFFNgeticonstate(jpego%,2) A$="JPEGMONO"
2500A$+=$adjpegq%
2510ELSE
2520IFFNgeticonstate(output%,15) THEN
2530A$+=$adspcl%
2540ELSE
2550IFFNgeticonstate(output%,16) THEN
2560IFFNgeticonstate(output%,5)ORFNgeticonstate(output%,11) A$+="R"
2570ELSE
2580SYS53,VALA$,3 TO,,A%
2590IFA%=63 THEN
2600IFFNgeticonstate(output%,6) A$="27t"
2610IFFNgeticonstate(output%,12) A$="12t"
2620ELSE
2630IFA%=255 A$+="d"
2640ENDIF
2650ENDIF
2660ENDIF
2670ENDIF
2680A$="garbage "+F$+" <ChangeFSI$Dir>.Foo "+A$
2690PROCChangeFSISuffix
2700info$="":range$=m$(19):cputime%=0
2710IFsprite% !q%=pic%:SYS &400c3,,q%:saved%=TRUE:sprite%=FALSE
2720nextlocation%=HIMEM
2730SYS "Wimp_SlotSize",originalslot%,-1:PROCremovearea
2740IFfast% SYS "OS_UpdateMEMC",&300,&700 TO oldmemc
2750A%=FNChangeFSI(A$,-1,-1,nextlocation%,0,0,sar%,0)
2760IFfast% SYS "OS_UpdateMEMC",oldmemc,&700
2770IFscrap% scrap%=FALSE:SYS"OS_File",6,F$
2780IFA%<2 AND sar%<>0 THEN
2790$adsx%=STR$xsp%:$adsy%=STR$ysp%:IFjpegsave% THEN
2800$adsm%="JPEG":$adsname%="JPEG"
2810$adsbytes%=STR$jpegsize%
2820x=xsp%*2:y=ysp%*2
2830SYS&35,-1,4 TO,,nx:SYS&35,-1,5 TO,,ny
2840!ifactors%=1:ifactors%!4=1:ifactors%!8=nx:ifactors%!12=ny
2850$adsavesprite%="file_c85"
2860IF LEFT$(F$,7)="<Wimp$S" F$="JPEGImage"
2870ELSE
2880SYS spopx%,&10d,sar%,pixtrans%,255,1
2890n$=FNZS(pixtrans%):SYS spopx%,&128,sar%,n$ TO,,,x,y,,m
2900$adsm%=STR$m:$adsname%=n$
2910$adsbytes%=STR$sar%!12
2920SYS&35,m,4 TO,,nx:x=x<<nx
2930SYS&35,m,5 TO,,ny:y=y<<ny:PROCgetmodeinfo
2940$adsavesprite%="file_ff9"
2950IF LEFT$(F$,7)="<Wimp$S" F$="SpriteFile"
2960ENDIF
2970!q%=save%:q%!4=0:q%!8=0:q%!12=0:SYS SetI,,q%
2980$adran%=range$:$adsrc%=info$+m$(0)+STR$(cputime%DIV100)+decimal_point$+RIGHT$("0"+STR$(cputime%MOD100),2)+m$(1)
2990saved%=FALSE:sprite%=TRUE
3030A%=LENF$:WHILEMID$("."+F$,A%,1)<>".":A%-=1:ENDWHILE
3040$adsave%=MID$("."+F$,A%+1)
3060pic%=FNcreate_window(x,y,F$)
3070PROCpopup(pic%,-1)
3080ENDIF
3090ENDPROC
3110DEF FNcheckvalues
3120LOCAL e,error$,flag%
3140IF dest%=0 AND VAL$adjpegq%>100 THEN
3150e=1:error$=m$(22)+m$(25)+m$(23)+m$(27)+m$(24)
3160ENDIF
3180IF LEFT$($admode%,1)<"A" AND dest%=1 THEN
3190SYS &35,VAL$admode%,0 TO ;flag%
3210IF LEN$admode%=0 flag%=2
3220IF VAL$admode%>127 AND VAL$admode%<256 flag%=2
3230IF (flag%AND2)>0 THEN
3240e=2:error$=m$(22)+m$(26)+m$(23)+m$(13)+m$(24)
3250ENDIF
3260ENDIF
3270IF e THEN
3280SYS Drag,,-1:!buffer%=e:$(buffer%+4)=error$+CHR$0
3290SYS "Wimp_ReportError",buffer%,%01,m$(20) TO ,A%
3300IFA%=2 PROCremovearea:SYS "Wimp_CloseDown":END
3310ENDIF
3320=e
3340DEF PROCChangeFSISuffix
3350safe%=TRUE
3360IFFNgeticonstate(scalew%,1) A$+=" "+STR$tofitx+": "+STR$tofity+":":safe%=FALSE
3370IFFNgeticonstate(scalew%,5) A$+=" 1:2":safe%=FALSE
3380IFFNgeticonstate(scalew%,4) A$+=" 1:2 1:1":safe%=FALSE
3390IFFNgeticonstate(scalew%,3) A$+=" 1:1 1:2":safe%=FALSE
3400IFFNgeticonstate(scalew%,9) THEN
3410safe%=FALSE
3420IFVAL$s%(0) A$+=" "+$s%(0) ELSEA$+=" 1"
3430A$+=":"+$s%(1)
3440IFVAL$s%(2) A$+=" "+$s%(2) ELSEA$+=" 1"
3450A$+=":"+$s%(3)
3460ENDIF
3470IFFNgeticonstate(scalew%,0) A$+=" -nosize"
3480IFFNgeticonstate(scalew%,18) A$+=" -noscale"
3490IFFNgeticonstate(scalew%,19) A$+=" -lock"
3500IFFNgeticonstate(scalew%,6) THEN
3510safe%=FALSE:IFFNgeticonstate(scalew%,16) A$+=" -rotate" ELSEA$+=" -rotate-"
3520ENDIF
3530IFFNgeticonstate(scalew%,7) A$+=" -hflip":safe%=FALSE
3540IFFNgeticonstate(scalew%,8) A$+=" -vflip":safe%=FALSE
3550IFFNgeticonstate(proc%,0) A$+=" -range":safe%=FALSE
3560IFFNgeticonstate(proc%,1) A$+=" -equal":safe%=FALSE
3570IFFNgeticonstate(proc%,2) A$+=" -nodither"
3580IFFNgeticonstate(proc%,3) A$+=" -invert":safe%=FALSE
3590IFFNgeticonstate(proc%,4) A$+=" -brighten"
3600IFFNgeticonstate(proc%,5) A$+=" -black"+$p%(0)
3610IFFNgeticonstate(proc%,6) A$+=" -gamma"+FNlocale_convert($p%(1),decimal_point$,"."):safe%=FALSE
3620IFFNgeticonstate(proc%,7) A$+=" -sharpen"+$p%(2):safe%=FALSE
3630IFFNgeticonstate(proc%,11) A$+=" -smooth"+$p%(3)
3640ENDPROC
3660DEF PROCcheckandfinish
3670IFsaved% ORNOTsprite% PROCremovearea:SYS "Wimp_CloseDown":END
3680!buffer%=ERR:$(buffer%+4)=m$(2)+F$+m$(3)+CHR$0
3690SYS "Wimp_ReportError",buffer%,%10111,m$(20) TO ,A%
3700IFA%=1 PROCremovearea:SYS "Wimp_CloseDown":END
3710ENDPROC
3730DEF PROCkey(handle%,icon%,key%)
3740IFkey%=&1b SYS CrMenu,,-1:ENDPROC
3750CASE handle% OF
3760WHEN zoom%:CASE key% OF
3770WHEN 13:PROCdozoom(icon%-4,0):IFicon%=4 SYS &400d2,zoom%,5,,,-1,LEN$z%(0)
3780IFicon%=5 SYS CrMenu,,-1
3790ENDPROC
3800WHEN &18e,&18f:PROCdozoom(icon%-4,0)
3810SYS &400d2,zoom%,icon%EOR1,,,-1,LEN$z%(icon%EOR5):ENDPROC
3820ENDCASE
3830WHEN save%
3840IFkey%=13 PROCsavesprite:ENDPROC
3850WHEN output%
3860IF icon%=34 AND FNgeticonstate(output%, 24) THEN$admode% = $oldmode%:!q%=output%:q%!4=20:q%!8=0:q%!12=0:SYS SetI,,q%
3870PROCshowscaletofit
3880IFkey%=13 SYS CrMenu,,-1:ENDPROC
3890IFkey%=&18e THEN
3900CASE icon% OF
3910WHEN 19:icon%=34:key%=oldmode%
3920WHEN 34:icon%=22:key%=adjpegq%
3930WHEN 22:icon%=19:key%=adspcl%
3940ENDCASE
3950ENDIF
3960IFkey%=&18f THEN
3970CASE icon% OF
3980WHEN 22:icon%=34:key%=oldmode%
3990WHEN 34:icon%=19:key%=adspcl%
4000WHEN 19:icon%=22:key%=adjpegq%
4010ENDCASE
4020ENDIF
4030IFkey%>1024 SYS &400d2,output%,icon%,,,-1,LEN$key%:ENDPROC
4040WHEN proc%:CASE key% OF
4050WHEN &18e,13:icon%+=1:IFicon%>10 icon%=8:IFkey%=13 SYS CrMenu,,-1:ENDPROC
4060SYS &400d2,proc%,icon%,,,-1,LEN$p%(icon%-8):ENDPROC
4070WHEN &18f:icon%-=1:IFicon%<8 icon%=10
4080SYS &400d2,proc%,icon%,,,-1,LEN$p%(icon%-8):ENDPROC
4090ENDCASE
4100WHEN scalew%:CASE key% OF
4110WHEN &18e,13:icon%+=1:IFicon%>13 icon%=10:IFkey%=13 SYS CrMenu,,-1:ENDPROC
4120SYS &400d2,scalew%,icon%,,,-1,LEN$s%(icon%-10):ENDPROC
4130WHEN &18f:icon%-=1:IFicon%<10 icon%=13
4140SYS &400d2,scalew%,icon%,,,-1,LEN$s%(icon%-10):ENDPROC
4150ENDCASE
4160ENDCASE
4170SYS "Wimp_ProcessKey",key%
4180ENDPROC
4200DEF PROCsavesprite
4210IF F$=$adsave% THEN
4220SYS Drag,,-1:!buffer%=3:$(buffer%+4)=m$(28)+CHR$0
4230SYS "Wimp_ReportError",buffer%,%11,m$(20) TO ,A%
4240IFA%=2 THEN
4250SYS CrMenu,,-1
4260ENDPROC
4270ENDIF
4280ENDIF
4290IFjpegsave% THEN
4300SYS"OS_File",10,$adsave%,&c85,,sar%,sar%+jpegsize%
4310ELSE
4320SYS spop%,&10C,sar%,$adsave%
4330ENDIF
4340SYS CrMenu,,-1
4350ENDPROC
4370DEF PROCcheckmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
4380LOCAL moved%:moved%=FALSE
4390IFb%AND2 THEN
4400CASE handle% OF
4410WHEN pic%:PROCdomenu(pic%,m$(4)+">sinfo%,"+m$(5)+">srcinfo%,"+m$(6)+">raninfo%,"+m$(7)+">zoom%,"+m$(8)+">save%,"+m$(9),m$(20))
4420WHEN -2:PROCdomenu(101,m$(10)+">infow%,"+m$(11)+">scalew%,"+m$(12)+">proc%,"+m$(13)+">output%:dest%,"+m$(27)+">jpego%:1-dest%,"+m$(9)+","+m$(14)+":fast%AND1,"+m$(15)+","+m$(16),m$(20))
4430ENDCASE
4440rmenuhandle%=handle%
4450ENDIF
4460IFb%AND4 THEN
4470CASE handle% OF
4480WHEN zoom%:CASE icon% OF
4490WHEN 0:PROCdozoom(0,1)
4500WHEN 1:PROCdozoom(0,-1)
4510WHEN 2:PROCdozoom(1,1)
4520WHEN 3:PROCdozoom(1,-1)
4530ENDCASE
4540ENDCASE
4550ENDIF
4560IFb%AND1 THEN
4570CASE handle% OF
4580WHEN zoom%:CASE icon% OF
4590WHEN 0:PROCdozoom(0,-1)
4600WHEN 1:PROCdozoom(0,1)
4610WHEN 2:PROCdozoom(1,-1)
4620WHEN 3:PROCdozoom(1,1)
4630ENDCASE
4640ENDCASE
4650ENDIF
4660IFb%AND5 THEN
4670CASE handle% OF
4680WHEN output%:IF dest%=0 dest%=1:PROCdomenu(101,m$(10)+">infow%,"+m$(11)+">scalew%,"+m$(12)+">proc%,"+m$(13)+">output%:dest%,"+m$(27)+">jpego%:1-dest%,"+m$(9)+","+m$(14)+":fast%AND1,"+m$(15)+","+m$(16),m$(20)):SYS Getcaret%,,q%:moved%=TRUE
4690CASE icon% OF
4700WHEN 3,4,5,6:PROCkillcurrent(STR$(22+icon%)):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4710WHEN 7:PROCkillcurrent("S16,90,90"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4720WHEN 8:PROCkillcurrent("S32,90,90"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4730WHEN 9:PROCkillcurrent("0"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4740WHEN 10:PROCkillcurrent("8"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4750WHEN 11:PROCkillcurrent("12"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4760WHEN 12:PROCkillcurrent("15"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4770WHEN 13:PROCkillcurrent("S16,90,45"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4780WHEN 14:PROCkillcurrent("S32,90,45"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4790WHEN 15:PROCkillcurrent(FNdeducemode):SYS SetI,,q%:SYS Caretpos%,output%,19,,,-1,LEN($adspcl%):!q%=output%:q%!4=7:q%!8=0:q%!12=1<<22:SYS SetI,,q%:q%!4=8:SYS SetI,,q%:q%!4=13:SYS SetI,,q%:q%!4=14:SYS SetI,,q%
4800WHEN 16:PROCkillcurrent(FNdeducemode):!q%=output%:q%!4=7:q%!8=0:q%!12=1<<22:SYS SetI,,q%:q%!4=8:SYS SetI,,q%:q%!4=13:SYS SetI,,q%:q%!4=14:SYS SetI,,q%
4810WHEN 17:PROCkillcurrent(FNdeducemode):!q%=output%:q%!4=7:q%!8=1<<22:q%!12=1<<22:SYS SetI,,q%:q%!4=8:SYS SetI,,q%:q%!4=13:SYS SetI,,q%:q%!4=14:SYS SetI,,q%
4820IF LEFT$($admode%,1) = "S" THEN
4830IF RIGHT$($admode%,2) = "45" THEN
4840PROCkillcurrent("15"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4850ELSE
4860PROCkillcurrent("28"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:q%!4=24:SYS SetI,,q%
4870ENDIF
4880ENDIF
4890WHEN 18:!q%=output%:q%!4=24:q%!8=0:q%!12=1<<21:SYS SetI,,q%
4900WHEN 24:!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:SYS SetI,,q%:PROCkillcurrent(FNdeducemode):SYS Caretpos%,output%,34,,,-1,LEN($oldmode%)
4910WHEN 34:IF moved% SYS Caretpos%,output%,q%!4,q%!8,q%!12,q%!16,q%!20
4920WHEN 19:IF moved% SYS Caretpos%,output%,q%!4,q%!8,q%!12,q%!16,q%!20
4930ENDCASE
4940IFFNgeticonstate(output%,18) $admode%=FNdeducemode
4950!q%=output%:q%!4=20:q%!8=0:q%!12=0:SYS SetI,,q%
4960PROCshowscaletofit
4970WHEN save%:CASE icon% OF
4980WHEN 2:PROCsavesprite
4990ENDCASE
5000WHEN -2:IFsprite% PROCgetw(pic%):PROCopen_window(pic%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
5010WHEN jpego%:IF dest%=1 THEN
5020SYS Getcaret%,,q%
5030dest%=0:PROCdomenu(101,m$(10)+">infow%,"+m$(11)+">scalew%,"+m$(12)+">proc%,"+m$(13)+">output%:dest%,"+m$(27)+">jpego%:1-dest%,"+m$(9)+","+m$(14)+":fast%AND1,"+m$(15)+","+m$(16),m$(20))
5040IF icon%=5 SYS Caretpos%,jpego%,q%!4,q%!8,q%!12,q%!16,q%!20
5050ENDIF
5060CASE icon% OF
5070WHEN 3:IF b%AND4 THEN$adjpegq%=STR$(VAL$adjpegq%-1) ELSE$adjpegq%=STR$(VAL$adjpegq%+1)
5080IF VAL$adjpegq%<0 $adjpegq%="0"
5090IF VAL$adjpegq%>100 $adjpegq%="100"
5100!q%=jpego%:q%!4=5:q%!8=0:q%!12=0:SYS SetI,,q%
5110SYS Caretpos%,jpego%,5,,,-1,LEN$adjpegq%
5120WHEN 4:IF b%AND4 THEN$adjpegq%=STR$(VAL$adjpegq%+1) ELSE$adjpegq%=STR$(VAL$adjpegq%-1)
5130IF VAL$adjpegq%<0 $adjpegq%="0"
5140IF VAL$adjpegq%>100 $adjpegq%="100"
5150!q%=jpego%:q%!4=5:q%!8=0:q%!12=0:SYS SetI,,q%
5160SYS Caretpos%,jpego%,5,,,-1,LEN$adjpegq%
5170WHEN 5
5180ENDCASE
5190ENDCASE
5200ENDIF
5210IFb%AND&50 THEN
5220CASE handle% OF
5230WHEN save%:CASE icon% OF
5240WHEN 0:PROCgetw(save%)
5250!q%=save%:q%!4=0:SYS GetI,,q%
5260!q%=save%:q%!4=5:q%!8+=bx%:q%!12+=by%:q%!16+=bx%:q%!20+=by%
5270q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
5280t$="file_ff9":IFjpegsave% t$="file_c85"
5290IFdstart% SYS dstart%,%11000101,1,t$,q%+8,q%+24 ELSESYS "Wimp_DragBox",,q%
5300ENDCASE
5310ENDCASE
5320ENDIF
5330ENDPROC
5350DEF PROCdozoom(s%,a%)
5360IFs%=0 THEN
5370$z%(0)=STR$(VAL$z%(0)+a%):IF$z%(0)="0" $z%(0)="1"
5380ELSE
5390$z%(1)=STR$(VAL$z%(1)+a%):IF$z%(1)="0" $z%(1)="1"
5400ENDIF
5410!q%=zoom%:q%!4=4+s%:q%!8=0:q%!12=0:SYS SetI,,q%
5420!q%=pic%:SYS GetW,,q%:f%=q%!28:SYS &400c3,,q%
5430pic%=FNcreate_window(x,y,F$)
5440PROCpopup(pic%,f%)
5450ENDPROC
5470DEF PROCdomenu(handle%,menu$,menutitle$)
5480menuhandle%=handle%
5490menuptr%=buffer%:indirect%=idata%
5500i%=0
5510menuptr%!20=44
5520$menuptr%=menutitle$
5530menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
5540menuptr%!16=200:menuptr%!24=0
5550menuptr%+=28
5560REPEAT i1%=i%+1:i%=INSTR(menu$+",",",",i1%)
5570item$=MID$(menu$,i1%,i%-i1%):PROCmenuitem(item$):UNTIL item$=""
5580menuptr%!-24=(menuptr%!-24)OR&80
5590IFhandle%=101 SYS CrMenu,,buffer%,mousex%-64,96+9*44 ELSESYS CrMenu,,buffer%,mousex%-32,mousey%+16
5600ENDPROC
5620DEF PROCmenuitem(text$)
5630IF text$="" ENDPROC
5640flg%=0:submenu%=-1:I%=INSTR(text$,":"):IFI%THEN
5650flg%=EVALMID$(text$,I%+1):text$=LEFT$(text$,I%-1)
5660ENDIF
5670I%=INSTR(text$,">"):IFI%THEN
5680submenu%=EVALMID$(text$,I%+1):text$=LEFT$(text$,I%-1)
5690ENDIF
5700menuptr%!0=flg%
5710menuptr%!4=submenu%
5720IF(text$=m$(9)AND(F$="" OR F$="SpriteFile" OR F$="JPEGImage")) OR (text$=m$(14)ANDvram%) THEN
5730menuptr%!8=&07400021
5740ELSE
5750menuptr%!8=&07000021
5760ENDIF
5770IFLENtext$*16+8>buffer%!16 buffer%!16=LENtext$*16+8
5780IFLENtext$>12 THEN
5790menuptr%!8=menuptr%!8 OR 256:menuptr%!20=LENtext$+1:menuptr%!16=0
5800menuptr%!12=indirect%:$indirect%=text$:indirect%+=LENtext$+2
5810ELSE
5820$(menuptr%+12)=text$
5830ENDIF
5840menuptr%+=24
5850ENDPROC
5870DEF PROCmenuselect(menus%)
5880SYS GetP,,paltemp%:adjust%=paltemp%!8 AND 1
5890SYS DcMenu,,buffer%,menus%,STRING$(200," ")TO,,,a$
5900IF a$="" THENENDPROC
5910CASE menuhandle% OF
5920WHEN pic%
5930CASE a$ OF
5940WHEN m$(9):PROCcallFSI
5950ENDCASE
5960WHEN 101
5970CASE a$ OF
5980WHEN m$(14):fast%=NOTfast%
5990WHEN m$(27):dest%=0
6000WHEN m$(13):dest%=1
6010WHEN m$(9):PROCcallFSI
6020WHEN m$(15)
6030statescale%=0:FORI%=0TO9:statescale%+=FNgeticonstate(scalew%,I%)<<I%:NEXT
6040FORI%=10TO13:statescale%+=FNgeticonstate(scalew%,I%+6)<<I%:NEXT
6050stateproc%=0:FORI%=0TO7:stateproc%+=FNgeticonstate(proc%,I%)<<I%:NEXT
6060stateoutput%=0:FORI%=0TO26:stateoutput%+=FNgeticonstate(output%,I%)<<I%:NEXT
6070statejpeg%=0:FORI%=0TO3:statejpeg%+=FNgeticonstate(jpego%,I%)<<I%:NEXT
6080A%=OPENOUT"<ChangeFSI$Dir>.Choices"
6090PRINT#A%,fast%,dest%,statescale%,stateproc%,stateoutput%,statejpeg%,$adjpegq%,$oldmode%
6100PRINT#A%,$p%(0),FNlocale_convert($p%(1),decimal_point$,"."),$p%(2),$p%(3),$admode%,$adspcl%
6110PRINT#A%,$s%(0),$s%(1),$s%(2),$s%(3)
6120CLOSE#A%
6130WHEN m$(16):PROCcheckandfinish
6140ENDCASE
6150ENDCASE
6160IFadjust% PROCcheckmouse(0,0,2,rmenuhandle%,0,0)
6170ENDPROC
6190DEF FNcreate_window(x,y,title$)
6200x=x*VAL$z%(0)DIVVAL$z%(1):y=y*VAL$z%(0)DIVVAL$z%(1)
6210!z%=0:z%!4=-y:z%!8=x:z%!12=0
6220z%!40=0:z%!44=-y:z%!48=x:z%!52=0
6230IFx<128 OR y<128 z%?35=0 ELSEz%?35=255
6240$adtitle%="":SYS CreateW,,z% TO handle%
6250$adtitle%=title$
6260=handle%
6280DEF PROCpopup(handle%,f%)
6290SYS "OS_ReadModeVariable",-1,4 TO ,,modexshift%
6300SYS "OS_ReadModeVariable",-1,5 TO ,,modeyshift%
6310SYS "OS_ReadModeVariable",-1,11 TO ,,rightscr%
6320SYS "OS_ReadModeVariable",-1,12 TO ,,topscr%
6330rightscr%=rightscr%<<modexshift%:topscr%=topscr%<<modeyshift%
6340PROCgetw(handle%)
6350xo%=rightscr%/2-(x0%+x1%)/2:yo%=topscr%/2-(y0%+y1%)/2
6360PROCopen_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,f%)
6370ENDPROC
6390DEF PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
6400IFhandle%=-1THENENDPROC
6410q%!0=handle%:q%!28=bhandle%
6420q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
6430q%!20=scx%:q%!24=scy%
6440SYS OpenW,,q%
6450ENDPROC
6470DEF PROCgetw(handle%)
6480!q%=handle%:SYS GetW,,q%
6490PROCinfo(q%+4):bhandle%=q%!28:flags%=q%!32
6500ENDPROC
6520DEF PROCinfo(q%)
6530x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
6540bx%=x0%-scx%:by%=y1%-scy%
6550ENDPROC
6570DEF PROCredraw_window(handle%)
6580IF handle%=pic% THEN
6590!factors%=!ifactors%*VAL$z%(0):factors%!4=ifactors%!4*VAL$z%(0)
6600factors%!8=ifactors%!8*VAL$z%(1):factors%!12=ifactors%!12*VAL$z%(1)
6610PROCreduce(!factors%,factors%!8):PROCreduce(factors%!4,factors%!12)
6620!q%=handle%
6630SYS RedrawW,,q% TO more%
6640PROCinfo(q%+4):by%=by%-INT(y*VAL$z%(0)DIVVAL$z%(1))
6650WHILE more%
6660IFjpegsave% THEN
6670IFjpegpaint% SYS jpegpaint%,sar%,bx%,by%,factors%,jpegsize%,1 TO;V%:IF(V%AND1)=0 ELSECLG
6680ELSE
6690SYS spopx%,&134,sar%,n$,bx%,by%,,factors%,spx%
6700ENDIF
6710SYS GetR%,0,q% TO more%
6720ENDWHILE
6730ENDIF
6740ENDPROC
6760DEF FNgeticonstate(handle%,icon%)
6770!q%=handle%:q%!4=icon%:SYS GetI,,q%
6780=q%!24>>21 AND 1
6800DEF PROCgetmodeinfo
6810IFjpegsave% THEN
6820SYS&35,-1,4 TO,,nx:SYS&35,-1,5 TO,,ny
6830!ifactors%=1:ifactors%!4=1:ifactors%!8=nx:ifactors%!12=ny
6840ENDPROC
6850ENDIF
6860SYS"XWimp_ReadPixTrans",&100,sar%,n$,,,,ifactors%,pixtrans%
6870SYS spopx%,&118,sar%,n$ TO ,,sptr%
6880IF sptr%!32=44 THEN
6890palptr%=0
6900ELSE
6910FOR grab%=0 TO 2048-8 STEP 8:paltemp%!(grab%>>1)=sptr%!(grab%+44):NEXT
6920palptr%=paltemp%
6930ENDIF
6940FORQ%=0TO255:pixtrans%?Q%=Q%:NEXT
6950IFsptr%!32=44+2048 THEN
6960FORQ%=0TO255:SYSctran%,palptr%!(Q%<<2)TOpixtrans%?Q%:NEXT
6970ELSE
6980SYS "ColourTrans_SelectTable",m,palptr%,-1,-1,pixtrans%
6990ENDIF
7000spx%=-1:FORQ%=0TO255:IFpixtrans%?Q%<>Q% spx%=pixtrans%
7010NEXT
7020ENDPROC
7040DEF FNdeducemode
7050LOCAL m,x,y
7060IFFNgeticonstate(output%,21) THEN
7070IFFNgeticonstate(output%,17) THEN="JPEG8" ELSE="JPEG24"
7080ELSE
7090IFFNgeticonstate(output%,18) THEN
7100SYS &6,135 TO ,,m
7120SYS&35,-1,9 TO,,m
7130IFm>3 THEN
7140SYS&35,-1,4 TO,,x:SYS&35,-1,5 TO,,y
7150x=180/(2^x):y=180/(2^y)
7160="S"+STR$(2^m)+","+STR$x+","+STR$y
7170ELSE
7180=STR$MODE
7190ENDIF
7200ELSE
7210IF FNgeticonstate(output%,24) THEN
7220=$oldmode%
7230ELSE
7240=$admode%
7250ENDIF
7260ENDIF
7270ENDIF
7290DEF PROCshowscaletofit
7300LOCAL m,x,y
7310$admode%=FNdeducemode
7320CASE ?admode% OF
7330WHEN ASC"S"
7340IFVALMID$($admode%,5)>VALMID$($admode%,8) x=6 ELSEx=0
7350IFVALMID$($admode%,2)>16 x+=5 ELSEx+=4
7360SYS&35,-1,11 TO,,tofitx:SYS&35,-1,12 TO,,tofity
7370WHEN ASC"J"
7380SYS&35,-1,11 TO,,tofitx:SYS&35,-1,12 TO,,tofity
7400x=12
7410OTHERWISE
7420m=VAL$admode%
7430SYS&35,m,11 TO,,tofitx:SYS&35,m,12 TO,,tofity
7440SYS&35,m,4 TO,,x:SYS&35,m,5 TO,,y:IFy>x x=6 ELSEx=0
7450SYS&35,m,9 TO,,y:x+=y
7460ENDCASE
7470tofitx+=1:tofity+=1:$adscale%=m$(17)+STR$tofitx+m$(18)+STR$tofity
7480q%!12=1<<21:!q%=output%:FORI%=0TO11:IFI%=x q%!8=1<<21 ELSEq%!8=0
7490q%!4=I%+3:SYS SetI,,q%:NEXT:IFx=12 q%!8=0:q%!4=24:SYS SetI,,q%
7500ENDPROC
7520DEF PROCkillcurrent(m$)
7530q%!12=1<<21:!q%=output%:q%!8=0
7540q%!4=20:SYS SetI,,q%
7550$admode%=m$
7570ENDPROC
7590DEFFNZS(I%)LOCALA$:REPEATA$+=CHR$?I%:I%+=1:UNTIL?I%<14:=A$
7610DEF PROCerrorbox
7620SYS Drag,,-1:!buffer%=ERR:$(buffer%+4)=REPORT$+" (code "+STR$ERL+")"+CHR$0
7630SYS "Wimp_ReportError",buffer%,%11,m$(20) TO ,A%
7640IFA%=2 PROCremovearea:SYS "Wimp_CloseDown":END
7650ENDPROC
7880DEF FNChangeFSI(A$,spritearea%,workspace%,worklimit%,oksave%,okinfo%,RETURN ram%,fast%)
7890LOCAL A$(),r%(),g%(),b%(),rpal%(),gpal%(),bpal%(),table%(),cl%(),xl%(),xl2%()
7900LOCAL xp%(),rm%(),rm1%(),rm2%(),vals%(),nl%(),A%(),B%(),new%(),st%(),jpq%(),m
7910WHILELEFT$(A$,1)<>" "ANDLENA$<>0 A$=MID$(A$,2):ENDWHILE
7920WHILELEFT$(A$,1)=" " A$=MID$(A$,2):ENDWHILE
7930WHILERIGHT$(A$,1)=" " A$=LEFT$(A$):ENDWHILE
7940IFFNuc(LEFT$(A$,5))="-QUIT" THEN
7950A$=MID$(A$,7):WHILELEFT$(A$,1)<>" "ANDLENA$<>0 A$=MID$(A$,2):ENDWHILE
7960WHILELEFT$(A$,1)=" " A$=MID$(A$,2):ENDWHILE
7970ENDIF
7980DIM A$(100):ARG%=0:B%=INSTR(A$," ")
7990WHILE B%<>0
8000ARG%+=1:A$(ARG%)=LEFT$(A$,B%-1):A$=MID$(A$,B%+1)
8010WHILE LEFT$(A$,1)=" ":A$=MID$(A$,2):ENDWHILE
8020B%=INSTR(A$," ")
8030ENDWHILE
8040IFA$<>"" ARG%+=1:A$(ARG%)=A$
8050invert%=FALSE:range%=FALSE:sharpen%=FALSE:info%=FALSE:cache%=FALSE:cacheareanumber%=0:dither%=TRUE:black%=FALSE
8060hist%=FALSE:equal%=FALSE:vflip%=FALSE:hflip%=FALSE:scale%=TRUE:scaleo%=TRUE:scrapf%=FALSE
8070gamma=1:rotate%=FALSE:max%=20000000:bright%=15:lock%=FALSE
8080rwt=.299:gwt=.587:bwt=.114
8090IFARG%<3 THEN
8100PRINT"ChangeFSI interactive input (read FSIinfo for command line details)"
8110INPUT"Source file: "s$,"Destination file: "f$,"Output mode: "m$
8120INPUT"(X)Scale (e.g. 2:1): "xs$:INPUT"Y Scale: "ys$
8130INPUT"Info on input picture?"a$:IFFNuc(LEFT$(a$,1))="Y" info%=TRUE
8140INPUT"Invert picture colours?"a$:IFFNuc(LEFT$(a$,1))="Y" invert%=TRUE
8150INPUT"Compute histogram of input?"a$:IFFNuc(LEFT$(a$,1))="Y" hist%=TRUE
8160INPUT"Apply histogram equalisation?"a$:IFFNuc(LEFT$(a$,1))="Y" equal%=TRUE
8170INPUT"Expand input dynamic range?"a$:IFFNuc(LEFT$(a$,1))="Y" range%=TRUE:equal%=FALSE
8180INPUT"Sharpen picture by (e.g. 12 for harsh, 24 for soft) "a$
8190IFa$<>"" sharpen%=VALa$
8200INPUT"Rotate?"a$:IFFNuc(LEFT$(a$,1))="Y" rotate%=1
8210scale%=FALSE:scaleo%=FALSE:fast%=FALSE
8220ELSE
8230REPEAT A%=ARG%
8240IFFNuc(A$(ARG%))="-INFO" info%=TRUE:A$(ARG%)="":ARG%-=1
8250IFFNuc(A$(ARG%))="-HIST" hist%=TRUE:A$(ARG%)="":ARG%-=1
8260IFFNuc(A$(ARG%))="-LOCK" lock%=TRUE:A$(ARG%)="":ARG%-=1
8270IFFNuc(A$(ARG%))="-EQUAL" equal%=TRUE:range%=FALSE:A$(ARG%)="":ARG%-=1
8280IFFNuc(A$(ARG%))="-RANGE" range%=TRUE:equal%=FALSE:A$(ARG%)="":ARG%-=1
8290IFFNuc(A$(ARG%))="-INVERT" invert%=TRUE:A$(ARG%)="":ARG%-=1
8300IFFNuc(A$(ARG%))="-NOSCALE" scale%=FALSE:scaleo%=FALSE:A$(ARG%)="":ARG%-=1
8310IFFNuc(A$(ARG%))="-NOSIZE" scale%=FALSE:A$(ARG%)="":ARG%-=1
8320IFFNuc(A$(ARG%))="-NODITHER" dither%=FALSE:A$(ARG%)="":ARG%-=1
8330IFFNuc(A$(ARG%))="-BRIGHTEN" bright%=16:A$(ARG%)="":ARG%-=1
8340IFFNuc(A$(ARG%))="-ROTATE" rotate%=1:A$(ARG%)="":ARG%-=1
8350IFFNuc(A$(ARG%))="-ROTATE-" rotate%=-1:A$(ARG%)="":ARG%-=1
8360IFFNuc(A$(ARG%))="-VFLIP" vflip%=TRUE:A$(ARG%)="":ARG%-=1
8370IFFNuc(A$(ARG%))="-HFLIP" hflip%=TRUE:A$(ARG%)="":ARG%-=1
8380IFFNuc(A$(ARG%))="-NOMODE" fast%=FALSE:A$(ARG%)="":ARG%-=1
8390IFFNuc(LEFT$(A$(ARG%),6))="-BLACK" THEN
8400black%=32:IFLENA$(ARG%)>6 black%=VALMID$(A$(ARG%),7):IFblack%>128 black%=128
8410A$(ARG%)="":ARG%-=1
8420ENDIF
8430IFFNuc(LEFT$(A$(ARG%),6))="-GAMMA" THEN
8440gamma=2.2:IFLENA$(ARG%)>6 gamma=VALMID$(A$(ARG%),7)
8450A$(ARG%)="":ARG%-=1
8460ENDIF
8470IFFNuc(LEFT$(A$(ARG%),8))="-SHARPEN" THEN
8480sharpen%=24:IFLENA$(ARG%)>8 sharpen%=VALMID$(A$(ARG%),9)
8490A$(ARG%)="":ARG%-=1
8500ENDIF
8510IFFNuc(LEFT$(A$(ARG%),7))="-SMOOTH" THEN
8520sharpen%=-1:IFLENA$(ARG%)>7 sharpen%=-VALMID$(A$(ARG%),8)
8530A$(ARG%)="":ARG%-=1:IFsharpen%<-23 sharpen%=-23
8540ENDIF
8550IFFNuc(LEFT$(A$(ARG%),4))="-RED" rwt=VALMID$(A$(ARG%),5):A$(ARG%)="":ARG%-=1
8560IFFNuc(LEFT$(A$(ARG%),6))="-GREEN" gwt=VALMID$(A$(ARG%),7):A$(ARG%)="":ARG%-=1
8570IFFNuc(LEFT$(A$(ARG%),5))="-BLUE" bwt=VALMID$(A$(ARG%),6):A$(ARG%)="":ARG%-=1
8580IFFNuc(LEFT$(A$(ARG%),4))="-MAX" THEN
8590max%=VALMID$(A$(ARG%),5):IFINSTR(A$(ARG%),"K")ORINSTR(A$(ARG%),"k") max%=max%*1024
8600A$(ARG%)="":ARG%-=1
8610ENDIF
8620UNTILA%=ARG%
8630s$=A$(1):f$=A$(2):m$=A$(3):xs$=A$(4):ys$=A$(5)
8640ENDIF
8650IFokinfo% ELSEinfo%=FALSE
8660IFworkspace%>=0 THEN
8670flex%=FALSE
8680ELSE
8690IFworklimit%=0 THENflex%=FALSE ELSEflex%=TRUE:nextlocation%=worklimit%
8700ENDIF
8710pnm$=FNuc(m$):CASE LEFT$(pnm$+",",3) OF
8720WHEN"AIM":m=-1:m$=""
8730WHEN"P1,","P4,":m=-2:m$="":spm=18
8740WHEN"P2,","P5,":m=-2:m$="T":spm=20
8750WHEN"P3,","P6,":m=-4:pnm$=LEFT$(pnm$,2):p6bits=8:I%=VALMID$(m$,4):m$=""
8760IFI%>0IFI%<8 p6bits=I%
8770WHEN"P15":m=-3:m$=""
8780WHEN"C15":m=-5:m$=""
8790WHEN"IRL":m=-4:m$="":p6bits=8
8800WHEN"S16":m=-6:m$=""
8810WHEN"S24":m=-7:m$="":p6bits=8
8820WHEN"S32":m=-8:m$="":p6bits=8
8830WHEN"JPE":m$="":p6bits=8:IFLEFT$(pnm$,8)="JPEGMONO" m=-9:jpegquality%=VALMID$(pnm$,9) ELSEm=-10:jpegquality%=VALMID$(pnm$,5)
8840OTHERWISE:m=VALm$:spm=m:m$=FNuc(RIGHT$(m$,1)):IFINSTR("CDRT",m$)=0 m$=""
8850ENDCASE
8860IFxs$="" OR LEFT$(xs$,1)="-" THEN
8870xmul%=1:xdiv%=1:ymul%=1:ydiv%=1
8880ELSE
8890IFys$="" ys$=xs$
8900xmul%=VALxs$:xdiv%=VALMID$(xs$,INSTR(xs$,":")+1)
8910ymul%=VALys$:ydiv%=VALMID$(ys$,INSTR(ys$,":")+1)
8920ENDIF
8930flag=-1:SYS8,5,s$ TO r0,,r2:dir=r0=2
8940IFdir THEN
8950panic=TRUE:SYS8,5,s$+".raw" TO r0,,r2:IFr0=1 s$+=".raw":dir=FALSE:panic=FALSE
8960IFpanic SYS8,5,s$+".red" TO r0,,r2:IFr0=1 panic=FALSE
8970IFpanic ERROR 42,"Directory given"
8980ENDIF
8990ftype=r2>>8 AND &FFF:bits=28:F=2^bits:c%=0:cc%=0:ccc%=0:o%=0
9000IFdir THEN
9010c%=OPENIN(s$+".red"):IFc%=0 ERROR 42,"Red file "+s$+".red not found"
9020cc%=OPENIN(s$+".green"):IFcc%=0 ERROR42,"Green file "+s$+".green not found"
9030ccc%=OPENIN(s$+".blue"):IFccc%=0 ERROR42,"Blue file "+s$+".blue not found"
9040ELSE
9050c%=OPENINs$:IFc%=0 ERROR 42,"File "+s$+" not found"
9060ENDIF
9070LOCAL ERROR
9080ON ERROR LOCAL RESTORE ERROR:TRACE OFF:PROCclose:ERROR ERR,REPORT$
9110colourindex=255
9120SYS&66f4d TO;pcd%
9130CASE ftype OF
9140WHEN &FF9:flag=0
9150IFINSTR("."+FNuc(s$),".HIP.")ORINSTR(FNuc(s$),":HIP.") THEN
9160flag=300:I%=INSTR(FNuc(s$),"HIP.")
9170MID$(s$,I%)="LOP.":cc%=OPENINs$:IFcc%=0 ERROR42,"Can't find Lop file "+s$
9180ENDIF
9190WHEN &FF0:PTR#c%=0:S$="":FORI%=1TO4:S$+=CHR$BGET#c%:NEXT
9200IFS$="II*"+CHR$0 flag=1500:bigendian=FALSE
9210IFS$="MM"+CHR$0+"*" flag=1500:bigendian=TRUE
9220WHEN &DFA:flag=800:IFdir flag=801
9230WHEN &DE2:flag=1000
9240WHEN &CBE:flag=3800
9250WHEN &BE8:IF(pcd%AND1)=0 flag=3600
9260WHEN &7A0:flag=1200
9270WHEN &69d:flag=2000
9280WHEN &699:flag=700
9290WHEN &698:flag=100
9300WHEN &697:flag=1900
9310WHEN &691:flag=2600
9320WHEN &690:flag=2500
9330WHEN &666:flag=666
9340WHEN &601:flag=3000
9350WHEN &371:flag=3100
9360WHEN &300:flag=1300:IFdir flag=1301
9370WHEN 4:flag=900:IFdir flag=901
9380WHEN 6:flag=950
9390ENDCASE
9400IFflag=-1 THEN
9410PTR#c%=0:S$="":FORI%=1TO22:S$+=CHR$BGET#c%:NEXT
9420IFLEFT$(S$,7)="FSIfile" flag=2100
9430IFflag=-1 IFLEFT$(S$,8)="SIMPLE " flag=2800
9440IFflag=-1 IFFNuc(LEFT$(S$,8))="MERCSOFT"ORFNuc(LEFT$(S$,8))="SNAPSHOT"flag=902
9450IFflag=-1 IFFNuc(LEFT$(S$,8))="MERCSOF1" flag=903
9460IFflag=-1 IFFNuc(LEFT$(S$,13))="IRLAM YUV 411" flag=2250
9470IFflag=-1 IFLEFT$(S$,5)="Irlam" flag=2200
9480IFflag=-1 IFLEFT$(S$,2)="BM" flag=2400:riffoff%=0
9490IFflag=-1 IFLEFT$(S$,4)="RIFF" AND MID$(S$,9,8)="RDIBdata" AND MID$(S$,21,2)="BM" flag=2400:riffoff%=20
9500IFflag=-1 IFLEFT$(S$,4)="GIF8" flag=500
9510IFflag=-1 IFLEFT$(S$,5)="AV_VO" flag=600
9520IFflag=-1 IFLEFT$(S$,4)=CHR$&59+CHR$&A6+CHR$&6A+CHR$&95 flag=1100
9530IFflag=-1 IFLEFT$(S$,4)=CHR$0+CHR$1+CHR$0+CHR$8 flag=1400
9540IFflag=-1 IFLEFT$(S$,4)=CHR$0+CHR$1+CHR$0+CHR$1 flag=2900
9550IFflag=-1 IFLEFT$(S$,4)="RIX3" flag=2700
9560IFflag=-1 IFLEFT$(S$,4)="II*"+CHR$0 flag=1500:bigendian=FALSE
9570IFflag=-1 IFLEFT$(S$,4)="MM"+CHR$0+"*" flag=1500:bigendian=TRUE
9580IFflag=-1 IFLEFT$(S$,2)=CHR$&52+CHR$&CC flag=2300
9590IFflag=-1 IFLEFT$(S$,2)="P4"ORLEFT$(S$,2)="P5"ORLEFT$(S$,2)="P6" flag=3300:info$=""
9600IFflag=-1 IFLEFT$(S$,3)="P15" flag=3400
9610IFflag=-1 IFLEFT$(S$,3)="PIC" flag=3500
9620IFflag=-1 IFLEFT$(S$,3)="T-I" flag=3800
9630IFflag=-1 IFFNuc(LEFT$(S$,3))="P13" flag=3450
9640IFflag=-1 IFLEFT$(S$,4)="FORM" IFMID$(S$,9,4)="ILBM" flag=1600
9650IFflag=-1 IFLEFT$(S$,8)="ALPIAR12" flag=3900:colourindex=4095
9660IFflag=-1 IFLEFT$(S$,8)="ALPIAR16" flag=3905:colourindex=65535
9670IFflag=-1 THEN
9680IFMID$(S$,7,4)="JFIF" OR ftype=&C85 THEN
9690jpegblk%=FNdim(20):PROCcachesize(jpegblk%)
9700IFcache%<EXT#c% THEN
9710CLOSE#c%:c%=0:X%=OPENIN"Run:djpeg"
9720IFX% THEN
9730CLOSE#X%:PROCsubtask("djpeg "+s$+" <Wimp$Scrap>")
9740ELSE
9750SYS"XOS_CLI","djpeg "+s$+" <Wimp$Scrap>" TO ;V
9760IFV AND1 THEN
9770PROCsubtask("<ChangeFSI$Dir>.djpeg "+s$+" <Wimp$Scrap>")
9780ENDIF
9790ENDIF
9800c%=OPENIN"<Wimp$Scrap>":IFc%=0 THEN=100
9810scrapf%=TRUE:flag=3300:info$="JPEG (JFIF) file converted to "
9820ELSE
9830flag=3700
9840ENDIF
9850ENDIF
9860ENDIF
9870IFflag=-1 THEN
9880IFLEFT$(S$,5)="btpc " THEN
9890CLOSE#c%:c%=0:PROCsubtask("<ChangeFSI$Dir>.btpc "+s$+" <Wimp$Scrap>")
9900c%=OPENIN"<Wimp$Scrap>":IFc%=0 THEN=100
9910scrapf%=TRUE:flag=3300:info$="BTPC file converted to "
9920ENDIF
9930ENDIF
9940IFflag=-1 THEN
9950PTR#c%=&10:S$="":FORI%=1TO9:S$+=CHR$BGET#c%:NEXT
9960IFS$="MILLIPEDE" flag=200
9970ENDIF
9980IFflag=-1 THEN
9990PTR#c%=&41:S$="":FORI%=1TO8:S$+=CHR$BGET#c%:NEXT
10000IFLEFT$(S$,4)="PNTG" flag=1800:st%=&280
10010ENDIF
10020IFflag=-1 THEN
10030PTR#c%=196:S$="":FORI%=1TO8:S$+=CHR$BGET#c%:NEXT
10040IFLEFT$(S$,4)="PNTG" flag=1800:st%=&2e2
10050ENDIF
10060IFflag=-1 THEN
10070PTR#c%=522:S$="":FORI%=1TO8:S$+=CHR$BGET#c%:NEXT
10080IFS$=CHR$0+CHR$&11+CHR$2+CHR$&ff+CHR$&c+CHR$0+CHR$&ff+CHR$&fe flag=1850
10090ENDIF
10100IFflag=-1 THEN
10110PTR#c%=0:IFBGET#c%=10 THEN
10120C%=BGET#c%:IFC%<6 AND C%<>1 ANDBGET#c%=1 flag=1900
10130ENDIF
10140ENDIF
10150IFflag=-1 IFINSTR("."+FNuc(s$),".PCX.")ORINSTR(FNuc(s$),":PCX.")ORRIGHT$(s$,4)="/PCX" flag=1900
10160IFflag=-1 IFINSTR("."+FNuc(s$),".IMAGE.")ORINSTR(FNuc(s$),":IMAGE.") flag=400
10170IFflag=-1 IFFNuc(RIGHT$(s$,4))=".RAW" flag=100
10180IFflag=-1 IFFNuc(RIGHT$(s$,3))="TGA" flag=2000
10190IFflag=-1 IFFNuc(RIGHT$(s$,3))="VDA" flag=2000
10200IFflag=-1 IFINSTR("."+FNuc(s$),".PIC.")ORINSTR(FNuc(s$),":PIC.") flag=700
10210IFflag=-1 IFINSTR("."+FNuc(s$),".IMG.")ORINSTR(FNuc(s$),":IMG.")ORRIGHT$(s$,4)="/IMG" flag=1400
10220IFflag=-1 IFINSTR("."+FNuc(s$),".DSP.")ORINSTR(FNuc(s$),":DSP.")ORRIGHT$(s$,4)="/DSP" flag=1700
10230IFflag=-1 IFFNuc(RIGHT$(s$,4))="/RGB" flag=3200
10240IFflag=-1 AND(FNuc(RIGHT$(s$,4))="/PCD"ORftype=&be8)AND((pcd%AND1)=1) THEN
10250CLOSE#c%:c%=0:PROCsubtask("<ChangeFSI$Dir>.hpcdtoppm -3 -a "+s$+" <Wimp$Scrap> { > <ChangeFSI$Dir>.pcdtemp }")
10260c%=OPENIN"<Wimp$Scrap>":scrapf%=TRUE:flag=3300:info$="PhotoCD file converted to "
10270ENDIF
10280ENDIF
10290IFflag=-1 PROCclose:ERROR 42,"Sorry: format not recognised - please try again or contact your supplier"
10300step24=1:input=8:ham=0:planar%=0:bigendianbits=FALSE:r$="FN"+STR$flag
10310compression=0:hpredict%=1:striprows%=-1:cachebytes%=FALSE
10320IFxdiv%=0 AND ydiv%=0 scale%=FALSE
10330DIM r%(colourindex)
10340DIM g%(colourindex),b%(colourindex)
10350CASE flag OF
10360WHEN 0
10370quant%=4:PTR#c%=4:F%=FNW+&1C:PTR#c%=F%:st%=FNW+F%-&20:K%=FNW+F%-&20
10380sm=FNW:IFsm<256 THEN
10390SYS53,sm,3 TO ,,I%
10400CASE I% OF
10410WHEN 1:IFst%=F%+12 PROCdefpal2 ELSEPROCipal(2)
10420PTR#c%=F%-16:sx%=(FNW+1)*32:rowbytes%=sx%>>3:input=1
10430sy%=FNW+1:I%=FNW:sx%-=31-FNW
10440WHEN 3:IFst%=F%+12 PROCdefpal4 ELSEPROCipal(4)
10450PTR#c%=F%-16:sx%=(FNW+1)*16:rowbytes%=sx%>>2:input=2
10460sy%=FNW+1:I%=FNW:sx%-=(31-FNW)DIV2
10470WHEN 15:IFst%=F%+12 PROCdefpal16 ELSEPROCipal(16)
10480PTR#c%=F%-16:sx%=(FNW+1)*8:rowbytes%=sx%>>1:input=4
10490sy%=FNW+1:I%=FNW:sx%-=(31-FNW)DIV4
10500WHEN 63,255:IFst%=F%+12 THEN
10510PROCdefpal
10520ELSE
10530IFK%>st% K%=st%
10540IFK%-12-F%=2048 ORI%=255 THEN
10550PTR#c%=&38
10560FORC%=0TO255:D%=BGET#c%
10570r%(C%)=BGET#c%/255*F:g%(C%)=BGET#c%/255*F:b%(C%)=BGET#c%/255*F
10580D%=FNW:NEXT
10590ELSE
10600PROCipal63
10610ENDIF
10620ENDIF
10630PTR#c%=F%-16:sx%=(FNW+1)*4:rowbytes%=sx%:sy%=FNW+1:I%=FNW:sx%-=(31-FNW)DIV8
10640OTHERWISE ERROR42,"Not understood RISC OS sprite"
10650ENDCASE
10660r$="FN8":SYS53,sm,4 TO ,,nx:SYS53,sm,5 TO ,,ny:nx=1<<nx:ny=1<<ny
10670IFscale% xmul%=xmul%*nx/2:ymul%=ymul%*ny/2
10680info$="RISC OS sprite, mode "+STR$sm+" "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
10690ELSE
10700bpp%=sm>>>27:CASEbpp% OF
10710WHEN 1:bpp%=1:r$="FN8":IFst%=F%+12 PROCdefpal2 ELSEPROCnewropal(2)
10720WHEN 2:bpp%=2:r$="FN8":IFst%=F%+12 PROCdefpal4 ELSEPROCnewropal(4)
10730WHEN 3:bpp%=4:r$="FN8":IFst%=F%+12 PROCdefpal16 ELSEPROCnewropal(16)
10740WHEN 4:bpp%=8:r$="FN8":IFst%=F%+12 PROCdefpal ELSEPROCnewropal(256)
10750WHEN 5:bpp%=16:r$="FN16":IFst%=F%+12 ELSE
10760DIM rpal%(255),gpal%(255):step24=2
10770FORC%=0TO255
10780gpal%(C%)=(C%>>5)<<8 OR (C%AND31)
10790rpal%(C%)=((C%>>2)AND31)<<16 OR (C%AND3)<<11
10800NEXT
10810FORC%=0TO31:r%(C%)=C%/31*F:NEXT:g%()=r%():b%()=r%()
10820WHEN 6:bpp%=32:r$="FN24":IFst%=F%+12 PROCnopal ELSE
10830rbo%=0:gbo%=1:bbo%=2:step24=4
10840WHEN 8:bpp%=24:r$="FN24":IFst%=F%+12 PROCnopal ELSE
10850rbo%=0:gbo%=1:bbo%=2
10860OTHERWISE ERROR42,"Not understood new format RISC OS sprite bpp"
10870ENDCASE
10880nx=(sm>>1) AND&1fff:ny=(sm>>14) AND&1fff
10890IFscale% xdiv%=xdiv%*nx:ydiv%=ydiv%*ny:xmul%=xmul%*90:ymul%=ymul%*90
10900PTR#c%=F%-16:rowbytes%=(FNW+1)*4:sy%=FNW+1:I%=FNW:sx%=(rowbytes%*8-(31-FNW))/bpp%:input=bpp%
10910info$="New RISC OS sprite, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
10920IFbpp%=32 input=24
10930ENDIF
10940PTR#c%=st%:cache%=TRUE
10950WHEN 100
10960quant%=8:PTR#c%=0:sx%=FNHW:sy%=FNHW:PROCnopal:input=24:rowbytes%=sx%*3+2
10970rbo%=2:gbo%=2+sx%:bbo%=2+2*sx%:r$="FN24":cache%=TRUE
10980info$="QRT .raw image, "+STR$sx%+" by "+STR$sy%+" pixels, 24 bits per pixel"
10990WHEN 200
11000quant%=8:PTR#c%=5:sx%=FNHW:sy%=FNHW:sx%=(FNHW-sx%+2)/2:sy%=(FNHW-sy%+2)/2
11010PTR#c%=&1a:cadsoft%=BGET#c%:PTR#c%=&200
11020FORC%=0TO255:r%(C%)=BGET#c%/255*F:NEXT:FORC%=0TO255:g%(C%)=BGET#c%/255*F:NEXT
11030FORC%=0TO255:b%(C%)=BGET#c%/255*F:NEXT
11040PTR#c%=&600:st%=&600:cache%=TRUE:IFcadsoft%=2 THEN
11050rep%=0:r$="FN1100":plbuff%=FNdim(sx%):plbytes%=sx%:cachebytes%=TRUE
11060ELSE
11070r$="FN8":rowbytes%=sx%
11080ENDIF
11090info$="Cadsoft type "+STR$cadsoft%+" image, "+STR$sx%+" by "+STR$sy%+" pixels, 8 bits per pixel"
11100WHEN 300
11110quant%=5:PTR#c%=&2c:st%=FNW+(&38-&2c):PTR#cc%=&2c:stcc%=FNW1(cc%)+(&38-&2c)
11120PTR#c%=&1c:sx%=(FNW+1)*4:sy%=FNW+1:PTR#c%=st%:PTR#cc%=stcc%
11130DIM rpal%(255),gpal%(255):input=16:cache%=TRUE:rowbytes%=sx%
11140FORC%=0TO255
11150rpal%(C%)=C%AND7 OR (C%AND64)<<2 OR (C%AND&38)<<13
11160gpal%(C%)=(C%AND4)<<1ORC%AND16 OR ((C%AND3)<<1OR(C%AND&60)>>2)<<8 OR (C%AND8OR(C%AND128)>>3)<<16
11170NEXT
11180FORC%=0TO31:r%(C%)=C%/31*F:NEXT:g%()=r%():b%()=r%()
11190pbuff%=FNdim(sx%):IFscale% ymul%=ymul%*2
11200info$="ArVis image, "+STR$sx%+" by "+STR$sy%+" pixels, 15 bits per pixel"
11210WHEN 400
11220quant%=8:PTR#c%=0:sx%=FNbeHW:sy%=FNbeHW:X%=FNbeHW:st%=PTR#c%+X%:PTR#c%=st%
11230plbuff%=FNdim(sx%*3):plbytes%=sx%*3:rb%=plbuff%:gb%=plbuff%+1:bb%=plbuff%+2:rbo%=-1
11240PROCnopal:input=24:rep%=0:cachebytes%=TRUE:cache%=TRUE:step24=3
11250info$="RT image. run length encoded image, "+STR$sx%+" by "+STR$sy%+" pixels, 24 bits per pixel"
11260WHEN 500
11270compression=5:PTR#c%=6:GIFsx=FNHW:GIFsy=FNHW
11280GIF=BGET#c%:GIFback=BGET#c%:GIFext=BGET#c%:quant%=(GIF AND 7)+1
11290IFGIF AND &80 THEN
11300FORC%=0TO(1<<quant%)-1
11310r%(C%)=BGET#c%/255*F:g%(C%)=BGET#c%/255*F:b%(C%)=BGET#c%/255*F
11320NEXT
11330ENDIF
11340I%=BGET#c%:WHILE I%=ASC"!"
11360IF BGET#c%
11370REPEAT
11380GIFgcesz=BGET#c%:PTR#c%=PTR#c%+GIFgcesz
11410UNTIL GIFgcesz=0:I%=BGET#c%
11420ENDWHILE
11430IFI%<>ASC"," ERROR 42,"GIF file without , in right place"
11450IFGIFext<>0 AND GIFext<>49 THEN
11460IFGIFext>49 THEN
11480xdiv%=xdiv%*64:xmul%=xmul%*(GIFext+15)
11490ELSE
11500ydiv%=ydiv%*(GIFext+15):ymul%=ymul%*64
11510ENDIF
11520ENDIF
11530GIFleft=FNHW:GIFright=FNHW:sx%=FNHW:sy%=FNHW
11540IFGIFsx<sx% OR GIFsy<sy% THEN
11550IFinfo% THEN
11560PRINT"GIF file with bigger image inside:"
11570PRINT"Screen ";GIFsx"x by "GIFsy"y; image "sx%"x by "sy%"y"
11580INPUT"Continue with monitor's size [Y or y]?"A$
11590IFA$="Y"ORA$="y" sx%=GIFsx:sy%=GIFsy
11600PRINT"Continuing with ";sx%"x by "sy%"y"
11610ENDIF
11620ENDIF
11630GIF=BGET#c%:IFGIF AND &40 flag=501:r$="FN8"
11640setcodes%=BGET#c%:clearcode%=1<<setcodes%:st%=PTR#c%:cache%=TRUE:cachebytes%=TRUE
11650DIM table%(1<<12):stk%=FNdim(1<<13):buf%=FNdim(280):plbuff%=FNdim(sx%)
11660FORI%=0TOclearcode%-1:table%(I%)=I%:NEXT
11670info$="GIF file, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(quant%)
11680WHEN 600
11690quant%=8:PTR#c%=&5c:FORC%=0TO255
11700r%(C%)=BGET#c%/255*F:g%(C%)=BGET#c%/255*F:b%(C%)=BGET#c%/255*F
11710NEXT
11720PTR#c%=&36e:sy%=FNHW:sx%=FNHW
11730st%=&380:PTR#c%=st%:rowbytes%=sx%:r$="FN8":cache%=TRUE
11740info$=".PIC image, "+STR$sx%+" by "+STR$sy%+" pixels, 8 bits per pixel"
11750WHEN 700
11760quant%=8:PTR#c%=0:a$=GET$#c%:st%=PTR#c%
11770sx%=VALa$:sy%=VAL(MID$(a$,INSTR(a$," ")))
11780PROCnopal:input=24:step24=3:rowbytes%=sx%*3:r$="FN24"
11790rbo%=0:gbo%=1:bbo%=2:cache%=TRUE
11800info$="MTV .pic image, "+STR$sx%+" by "+STR$sy%+" pixels, 24 bits per pixel"
11810WHEN 800
11820sx%=512:sy%=256:IFscale% ymul%=ymul%*2
11830plbuff%=FNdim(sx%):rep%=0:wt%=0:wtsx%=plbuff%+sx%
11840cache%=TRUE:cachebytes%=TRUE
11850FORC%=0TO255:r%(C%)=(C%AND63)/63*F:NEXT:g%()=r%():b%()=r%():quant%=6
11860info$="Watford digitiser picture, 512 by 256 pixels, 6 bits per pixel"
11870WHEN 801
11880sx%=512:sy%=256:input=24:quant%=6:IFscale% ymul%=ymul%*2
11890rep1%=0:wt1%=0:rep2%=0:wt2%=0:rep3%=0:wt3%=0
11900buff%=FNdim(sx%*3):rb%=buff%:gb%=buff%+sx%:bb%=buff%+2*sx%
11910wtsx1%=buff%+sx%:wtsx2%=buff%+2*sx%:wtsx3%=buff%+3*sx%
11920FORC%=0TO255:r%(C%)=(C%AND63)/63*F:NEXT:g%()=r%():b%()=r%()
11930info$="Triple Watford digitiser picture, 512 by 256 pixels, 18 bits per pixel"
11940WHEN 900
11950quant%=8:st%=0:PTR#c%=0:IFEXT#c%=65536 THEN
11960sx%=256:sy%=256:IFscale% ymul%=ymul%*2:xmul%=xmul%*2
11970ELSE
11980sx%=512:sy%=512
11990ENDIF
12000FORC%=0TO255:r%(C%)=C%/255*F:NEXT:g%()=r%():b%()=r%():rowbytes%=sx%:r$="FN8":cache%=TRUE
12010info$="AIM .raw image, 256 by 256 pixels, 8 bits per pixel"
12020WHEN 901
12030quant%=4:IFEXT#c%=65536 THEN
12040sx%=256:sy%=256:IFscale% ymul%=ymul%*2:xmul%=xmul%*2
12050ELSE
12060sx%=512:sy%=512
12070ENDIF
12080buff%=FNdim(sx%*3):rb%=buff%:gb%=buff%+sx%:bb%=buff%+sx%*2
12090FORC%=0TO255:r%(C%)=C%/255*F:NEXT:g%()=r%():b%()=r%()
12100input=24:info$="Hawk V9 Triple image, 256 by 256 pixels, 24 bits per pixel"
12110WHEN 902
12120quant%=4:PTR#c%=8:sx%=FNW:rowbytes%=sx%*3/2:sy%=FNW:st%=20:PTR#c%=20
12130IFscale% ymul%=ymul%*2
12140plbuff%=FNdim(sx%*3):rb%=plbuff%:gb%=plbuff%+sx%:bb%=plbuff%+sx%*2:rbo%=-1
12150FORC%=0TO255:r%(C%)=(C%AND&F)/&F*F:NEXT:g%()=r%():b%()=r%():cache%=TRUE
12160input=24:info$="Hawk V9/Snapshot Colour image, "+STR$sx%+" by "+STR$sy%+" pixels, 12 bits per pixel"
12170WHEN 903
12180quant%=5:PTR#c%=8:sx%=FNW:rowbytes%=sx%*2:sy%=FNW:st%=20:PTR#c%=20:cache%=TRUE:r$="FN16":flag=700
12190DIM rpal%(255),gpal%(255):input=16:step24=2
12200FORC%=0TO255
12210gpal%(C%)=(C%>>5)<<8 OR (C%AND31)
12220rpal%(C%)=((C%>>2)AND31)<<16 OR (C%AND3)<<11
12230NEXT
12240FORC%=0TO31:r%(C%)=C%/31*F:NEXT:g%()=r%():b%()=r%()
12250input=16:info$="Hawk V9 mk II Colour image, "+STR$sx%+" by "+STR$sy%+" pixels, 16 bits per pixel"
12260WHEN 950
12270quant%=8:PTR#c%=0:sx%=512:rowbytes%=512:sy%=512:st%=0:flag=900
12280FORC%=0TO255:r%(C%)=C%/255*F:NEXT:g%()=r%():b%()=r%():r$="FN8":cache%=TRUE
12290info$="Wild Vision V12 image, 512 by 512 pixels, 8 bits per pixel"
12300WHEN 1000
12310quant%=4:sx%=640:sy%=256:PROCdefpal:st%=FNW:r$="FN"+STR$(1000+FNW):IFscale% ymul%=ymul%*2
12330buff%=FNdim(sx%):ctable%=FNdim(st%)
12340SYS12,4,c%,ctable%,st%:st%=PTR#c%
12350pa%=ctable%:rep%=0:rep2%=0:pasx%=buff%+sx%
12360info$="ProArtisan image, 640 by 256 pixels, 8 bits per pixel"
12370WHEN 1100
12380quant%=1:PTR#c%=4:sx%=FNbeW:sy%=FNbeW:input=FNbeW:bigendianbits=TRUE
12390S%=FNbeW:S%=FNbeW
12400cache%=TRUE:IFS%=2 cachebytes%=TRUE:info$="Byte Encoded " ELSEinfo$="":r$="FN8"
12410C%=FNbeW
12420D%=FNbeW
12430CASE C% OF
12440WHEN 1,2
12450FORI%=0TOD%/3-1:r%(I%)=BGET#c%/255*F:NEXT
12460FORI%=0TOD%/3-1:g%(I%)=BGET#c%/255*F:NEXT
12470FORI%=0TOD%/3-1:b%(I%)=BGET#c%/255*F:NEXT
12480OTHERWISE
12490CASE input OF
12500WHEN 1:r%(0)=F:g%(0)=F:b%(0)=F
12510WHEN 4,8:PROCnopal
12520WHEN 24:PROCnopal
12530ENDCASE
12540ENDCASE
12550CASE input OF
12560WHEN 1:rowbytes%=(sx%+15>>4)<<1
12570WHEN 4:rowbytes%=(sx%+3>>2)<<1
12580WHEN 8:rowbytes%=(sx%+1>>1)<<1
12590WHEN 24:rowbytes%=(3*sx%+1>>1)<<1:r$="FN24":rbo%=0:gbo%=1:bbo%=2:step24=3
12600IFS%=1 bbo%=0:rbo%=2
12610OTHERWISE:ERROR 42,"Can't do this Sun pixrect"
12620ENDCASE
12630st%=D%+&20:rep%=0:IFcachebytes% plbuff%=FNdim(rowbytes%):plbytes%=rowbytes%
12640info$+="Sun image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
12650WHEN 1200
12660quant%=8:sx%=800:sy%=800:st%=1600:PTR#c%=st%:vflip%=NOT vflip%
12670PROCnopal:r$="FN8":rowbytes%=sx%:cache%=TRUE
12680info$="TimeStep satellite image, 800 by 800 pixels, 8 bits per pixel"
12690WHEN 1300
12700quant%=8:sx%=128:sy%=256:st%=0:PTR#c%=0:IFscale% xmul%=xmul%*2
12710PROCnopal:r$="FN8":rowbytes%=sx%:cache%=TRUE
12720info$="satellite image, 128 by 256 pixels, 8 bits per pixel"
12730WHEN 1301
12740input=24:quant%=8:sx%=128:sy%=256:IFscale% xmul%=xmul%*2
12750buff%=FNdim(sx%*3):rb%=buff%:gb%=buff%+sx%:bb%=buff%+2*sx%:PROCnopal:r$="FN901"
12760info$="Triple satellite image, 128 by 256 pixels, 24 bits per pixel"
12770WHEN 1400
12780planar%=TRUE:PTR#c%=0:Z%=FNHW:IFZ%>255 THEN
12790st%=FNbeHW*2:planes%=FNbeHW:patlen%=FNbeHW
12800pw%=FNbeHW:ph%=FNbeHW:sx%=FNbeHW:sy%=FNbeHW
12810ELSE
12820st%=FNHW*2:input=FNHW:patlen%=FNHW:pw%=FNHW:ph%=FNHW:sx%=FNHW:sy%=FNHW
12830ENDIF
12840IFscale% THEN
12850xmul%=xmul%*pw%:xdiv%=xdiv%*282
12860ymul%=ymul%*ph%:ydiv%=ydiv%*282
12870ENDIF
12880rowbytes%=sx%+7>>3:pbuff%=FNdim(sx%):plbytes%=rowbytes%*planes%:buff%=FNdim(plbytes%)
12890PTR#c%=st%:vrep%=0
12900FORC%=0TO(1<<planes%)-1:r%(C%)=F-C%/((1<<planes%)-1)*F:NEXT:g%()=r%():b%()=r%()
12910info$="IMG file, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(planes%)
12920WHEN 1500
12930PTR#c%=4:dir%=FNtiff(4):PTR#c%=dir%
12940rgb=FALSE:greyunit=100:planar%=1:fillorder=1:resunit=2
12950xnum%=90:xdenom%=1:ynum%=90:ydenom%=1
12960E%=FNtiff(3):FORZ%=1TOE%
12970T%=FNtiff(3):D%=FNtiff(3):C%=FNtiff(4)
12980IFC%>1 V%=FNtiff(4) ELSEIFD%=2 PTR#c%=dir%+2+Z%*12 ELSEIFD%<4 V%=FNtiff(D%):PTR#c%=dir%+2+Z%*12 ELSEV%=FNtiff(4)
12990PRINT"Read tag ";T%" datatype "D%" count "C%" value/pointer "V%
13000CASE T% OF
13010WHEN 256:sx%=V%
13020WHEN 257:sy%=V%
13030WHEN 258:IFC%>1 THEN
13040IFD%*C%>6 THEN
13050PTR#c%=V%:quant%=FNtiff(D%)
13060input=quant%:FORI%=1TOC%-1:V%=FNtiff(D%)
13070IFV%<>quant% ERROR42,"Can't do RGB TIFF with different numbers of bits per pixel"
13080input+=V%
13090NEXT:PROCnopal
13100ELSE
13110quant%=V% AND &FF:input=quant%
13120FORI%=0TO(1<<quant%)-1:r%(I%)=I%/((1<<quant%)-1)*F:NEXT
13130g%()=r%():b%()=r%()
13140ENDIF
13150PTR#c%=dir%+2+Z%*12
13160ELSE
13170quant%=V%:input=quant%
13180FORI%=0TO(1<<quant%)-1:r%(I%)=I%/((1<<quant%)-1)*F:NEXT
13190g%()=r%():b%()=r%()
13200ENDIF
13210WHEN 259:compression=V%
13220WHEN 262:photometric=V%:IFV%=0 invert%=NOTinvert%
13230WHEN 266:fillorder=V%
13240WHEN 273:stc%=C%:stv%=V%:std%=D%
13250WHEN 277:sampperpix%=V%:input=quant%*V%:rgb=V%=3
13260WHEN 278:striprows%=V%
13270WHEN 279:stcbyte%=C%:stvbyte%=V%:stdbyte%=D%
13280WHEN 282:PTR#c%=V%:xnum%=FNtiff(4):xdenom%=FNtiff(4)
13290PTR#c%=dir%+2+Z%*12
13300WHEN 283:PTR#c%=V%:ynum%=FNtiff(4):ydenom%=FNtiff(4)
13310PTR#c%=dir%+2+Z%*12
13320WHEN 284:planar%=V%:IFplanar%=2 input=quant%
13330WHEN 290:greyunit=10^V%
13340WHEN 291:PTR#c%=V%:FORI%=0TOC%-1:r%(I%)=FNtiff(D%)/greyunit/2*F:NEXT
13350g%()=r%():b%()=r%()
13360PTR#c%=dir%+2+Z%*12
13370WHEN 296:resunit=V%
13380WHEN 317:hpredict%=V%
13390WHEN 320:PTR#c%=V%:FORI%=0TOC%/3-1:r%(I%)=FNtiff(3)/65535*F:NEXT
13400FORI%=0TOC%/3-1:g%(I%)=FNtiff(3)/65535*F:NEXT
13410FORI%=0TOC%/3-1:b%(I%)=FNtiff(3)/65535*F:NEXT
13420PTR#c%=dir%+2+Z%*12
13430OTHERWISE
13440IFinfo% PRINT"Ignoring tag ";T%" datatype "D%" count "C%" value/pointer "V%
13450ENDCASE
13460NEXT
13470DIM st%(stc%):IFstc%>1 THEN
13480PTR#c%=stv%:FORI%=0TOstc%-1:st%(I%)=FNtiff(std%):NEXT
13500ELSE
13510st%(0)=stv%
13520ENDIF
13530CASE compression OF
13540WHEN 0,1:info$=""
13550WHEN 2:info$="CCITT Group 3 compressed "
13560WHEN 5:info$="LZW compressed ":r$="FN1505"
13570IFhpredict%=2 THENinfo$+="horizontal differenced " ELSEIFhpredict%>2 info$+=" unknown predictor ("+STR$hpredict%+") "
13580setcodes%=8:clearcode%=1<<setcodes%
13590DIM table%(1<<12):stk%=FNdim(1<<13):buf%=FNdim(280)
13600FORI%=0TOclearcode%-1:table%(I%)=I%:NEXT
13610WHEN 32773:info$="PackBits compressed ":r$="FN1501"
13620WHEN 6:info$="JPEG compressed "
13630OTHERWISE info$="Compress "+STR$compression+" - unknown "
13640ENDCASE
13650info$+="TIFF file, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
13660bigendianbits=fillorder=1:PTR#c%=st%(0):stripptr=0:IFstriprows%>=sy% striprows%=-1
13670CASE input OF
13680WHEN 1:rowbytes%=sx%+7>>3
13690WHEN 2:rowbytes%=sx%+3>>2
13700WHEN 4:rowbytes%=sx%+1>>1
13710WHEN 8:rowbytes%=sx%
13720WHEN 24:rowbytes%=3*sx%
13730WHEN 32:rowbytes%=4*sx%:IFphotometric<>5 ERROR 42,"32 bpp TIFF but not CMYK"
13740OTHERWISE ERROR 42,"Can't do "+FNbits(input)+" TIFF"
13750ENDCASE
13760IFplanar%=2 rowbytes%=rowbytes%*sampperpix%
13770IFplanar%<>1 AND rgb<>0 ERROR42,"Can't do this style of TIFF yet" ELSEplanar%=FALSE
13780IF compression<2 THEN
13790cache%=TRUE:stripptr=-1:r$="FN8":IFinput=24 rbo%=0:gbo%=1:bbo%=2:step24=3:r$="FN24"
13800IFinput=32 rbo%=0:gbo%=1:bbo%=2:step24=4:r$="FN24":r%()=F-r%():g%()=F-g%():b%()=F-b%():input=24
13810ELSE
13820IFcompression=5 ORcompression=32773 THEN
13830cache%=TRUE:cachebytes%=rowbytes%*striprows%
13840plbuff%=FNdim(rowbytes%):rowstogo%=striprows%
13850IFinput=24 rb%=plbuff%:gb%=plbuff%+1:bb%=plbuff%+2:r$="FN"+STR$(VALMID$(r$,3)+10):step24=3:rbo%=-1
13860ELSE
13870buff%=FNdim(rowbytes%):rowstogo%=striprows%
13880IFinput=24 rb%=buff%:gb%=buff%+1:bb%=buff%+2:r$="FN"+STR$(VALMID$(r$,3)+10):step24=3
13890ENDIF
13900ENDIF
13910IFscale% THEN
13920S%=resunit:IFS%=2 S%=90
13930IFS%=3 S%=35
13940xdiv%=xdiv%*xnum%:xmul%=xmul%*xdenom%*S%
13950ydiv%=ydiv%*ynum%:ymul%=ymul%*ydenom%*S%
13960ENDIF
13970IFr$="FN1500" r$="FN8"
13980WHEN 1600
13990PTR#c%=12:camg=0:planar%=TRUE:REPEAT
14000S$=CHR$BGET#c%+CHR$BGET#c%+CHR$BGET#c%+CHR$BGET#c%:S%=FNbeW
14010CASE S$ OF
14020WHEN "BMHD":sx%=FNbeHW:sy%=FNbeHW:S%=FNW:planes%=BGET#c%:masking%=BGET#c%=1
14030compression=BGET#c%:S%=BGET#c%+FNHW:U%=BGET#c%:V%=BGET#c%:S%=FNW
14040IFscale% ymul%=ymul%*V%:ydiv%=ydiv%*U%
14050FORI%=0TO(1<<planes%)-1:r%(I%)=I%/((1<<planes%)-1)*F:NEXT:g%()=r%():b%()=r%()
14060WHEN "CMAP":S%=PTR#c%+S%:FORI%=0TO(1<<planes%)-1:r%(I%)=(BGET#c%>>4)/15*F
14070g%(I%)=(BGET#c%>>4)/15*F:b%(I%)=(BGET#c%>>4)/15*F:NEXT
14080PTR#c%=S%:IFinfo% PRINT"Warning: truncated IFF CMAP information to 4 bits"
14090WHEN "CAMG":camg=FNbeW:IFinfo% PRINT"Amiga viewport mode ";~camg
14100WHEN "BODY":st%=PTR#c%
14110OTHERWISE IF info% PRINT"Ignoring IFF property "S$" size ";S%
14120PTR#c%=PTR#c%+S%
14130ENDCASE
14140UNTILS$="BODY":IFcompression info$="Compressed " ELSEinfo$=""
14160ham=(camg AND &800)<>0:IFham info$+="HAM "
14170half=(camg AND &80)<>0:IFhalf info$+="half-bright "
14180IFhalf half%=1<<planes%-1:FORI%=0TOhalf%-1:r%(I%+half%)=r%(I%)/2:g%(I%+half%)=g%(I%)/2:b%(I%+half%)=b%(I%)/2:NEXT
14190info$+="IFF file, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(planes%)
14200IFmasking% info$+=" with mask (ignored)"
14210rowbytes%=(sx%+15>>4)<<1:plbytes%=rowbytes%*planes%
14220pbuff%=FNdim(sx%):r$="FN"+STR$(1600+compression):cache%=TRUE
14230IFcompression THEN
14240cachebytes%=TRUE:plbuff%=FNdim(plbytes%)
14250ELSE
14260realrowbytes%=rowbytes%:rowbytes%=plbytes%:IFmasking% rowbytes%+=realrowbytes%
14270ENDIF
14280PTR#c%=st%
14290WHEN 1700
14300sx%=640:rowbytes%=80:sy%=350:planes%=4:plbytes%=4*80:planar%=TRUE
14310buff%=FNdim(80*4):pbuff%=FNdim(640):G=F/3:H=F*2/3
14320r%()=0,0,0,0,F,F,F,H,G,G,G,G,F,F,F,F
14330g%()=0,0,F,F,0,0,F,H,G,G,F,F,G,G,F,F
14340b%()=0,F,0,F,0,F,0,H,G,F,G,F,G,F,G,F
14350masking%=FALSE:r$="FN1600":st%=16:PTR#c%=16:cache%=TRUE:realrowbytes%=80:rowbytes%=plbytes%
14360info$="PC EGA '.dsp' file, 640 by 350 pixels, 4 bits per pixel (fixed palette)"
14370WHEN 1800
14380sx%=72*8:sy%=720:quant%=1:input=1:PTR#c%=st%:plbuff%=FNdim(72)
14390cache%=TRUE:cachebytes%=TRUE
14400r%(0)=F:g%(0)=F:b%(0)=F:bigendianbits=TRUE:rowbytes%=72:r$="FN1501":rowstogo%=-1
14410IFscale% xmul%=xmul%*90:xdiv%=xdiv%*72:ymul%=ymul%*90:ydiv%=ydiv%*72
14420info$="MacPaint file, 576 by 720 bits, creator id "+RIGHT$(S$,4)
14430WHEN 1850
14440PTR#c%=552
14450done%=FALSE
14460REPEAT
14470code%=FNbeHW:CASE code% OF
14480WHEN &01:PTR#c%=PTR#c%+FNbeHW
14490WHEN &1E
14500WHEN &98
14510rowbytes%=FNbeHW:IF(rowbytes% AND&8000)=0 ERROR42,"PICT without Pixmap"
14520sy%=FNbeHW:sx%=FNbeHW:sy%=FNbeHW-sy%:sx%=FNbeHW-sx%
14530junk%=FNHW:packtype%=FNbeHW:junk%=FNW:resx%=FNbeW:resy%=FNbeW
14540IFFNbeHW<>0 CLOSE#c%:ERROR42,"ChangeFSI expected Mac PICT2 pixeltype=Chunky"
14550bpp%=FNbeHW:junk%=FNbeHW:junk%=FNbeHW
14560junk%=FNbeW:junk%=FNbeW:junk%=FNbeW
14570junk%=FNbeW:junk%=FNbeHW
14580C%=FNbeHW:FORI%=0TOC%:J%=FNbeHW:r%(J%)=FNbeHW/65535*F:g%(J%)=FNbeHW/65535*F:b%(J%)=FNbeHW/65535*F:NEXT
14590done%=TRUE
14600WHEN &9A:junk%=FNW:rowbytes%=FNbeHW:IF(rowbytes% AND&8000)=0 ERROR42,"PICT without Pixmap"
14610sy%=FNbeHW:sx%=FNbeHW:sy%=FNbeHW-sy%:sx%=FNbeHW-sx%
14620junk%=FNHW:packtype%=FNbeHW:junk%=FNW:resx%=FNbeW:resy%=FNbeW
14630IFFNbeHW<>16 CLOSE#c%:ERROR42,"ChangeFSI expected Mac PICT2 pixeltype=RGBDirect"
14640bpp%=FNbeHW:comps%=FNbeHW:junk%=FNbeHW
14650junk%=FNbeW:junk%=FNbeW
14660junk%=FNbeHW:junk%=FNbeHW
14670IFbpp%>16 PROCnopal ELSEJ%=2^(bpp%DIV3):FORI%=0TOJ%-1:r%(I%)=I%/(J%-1)*F:NEXT:g%()=r%():b%()=r%()
14680IFbpp%=32 AND comps%=3 bpp%=24:rowbytes%=3*sx%
14690done%=TRUE
14700OTHERWISE:CLOSE#c%:ERROR42,"ChangeFSI can't understand Mac PICT2 code "+STR$~code%
14710ENDCASE
14720UNTIL done%
14730junk%=FNbeHW:junk%=FNbeHW:junk%=FNbeHW:junk%=FNbeHW
14740junk%=FNbeHW:junk%=FNbeHW:junk%=FNbeHW:junk%=FNbeHW
14750junk%=FNbeHW
14760cache%=TRUE:cachebytes%=TRUE:bigendianbits=TRUE:st%=PTR#c%:rowbytes%=rowbytes%ANDNOT&8000
14770IFscale% xmul%=xmul%*90*65536:xdiv%=xdiv%*resx%:ymul%=ymul%*90*65536:ydiv%=ydiv%*resy%
14780info$="Mac PICT2, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(bpp%)
14790plbuff%=FNdim(rowbytes%):IFbpp%>8 THEN
14800rbo%=-1:rb%=plbuff%+sx%:gb%=plbuff%+sx%*2:bb%=plbuff%+sx%*3:r$="FN1851":input=24
14810IFcomps%=3 rb%=plbuff%:gb%=plbuff%+sx%:bb%=plbuff%+sx%*2
14820ENDIF
14830WHEN 1900
14840PTR#c%=1:C%=BGET#c%
14850E%=BGET#c%:IFE%<>1 ERROR 42,"ZSoft .PCX file with unknown encoding"
14860E%=BGET#c%:sx%=FNHW:sy%=FNHW:sx%=FNHW+1-sx%:sy%=FNHW+1-sy%
14870IFscale% xmul%=xmul%*90:xdiv%=xdiv%*FNHW:ymul%=ymul%*90:ydiv%=ydiv%*FNHW ELSEIFFNW
14880PTR#c%=65:planes%=BGET#c%:planar%=planes%>1:rowbytes%=FNHW:bpp%=E%*planes%
14890pcxpal=16:IFbpp%>4 AND C%=5 THEN
14900PTR#c%=EXT#c%-769:IFBGET#c%=12 pcxpal=EXT#c%-768
14910ENDIF
14920PTR#c%=pcxpal:E%=0:FORC%=0TO(1<<bpp%)*3-1:E%=E%ORBGET#c%:NEXT
14930IFinfo% PRINT".PCX palette mask established at ";~E%
14940IFE%=0 THEN
14950FORC%=0TO(1<<bpp%)-1:r%(C%)=C%/((1<<bpp%)-1)*F:NEXT:g%()=r%():b%()=r%()
14960ELSE
14970PTR#c%=pcxpal:FORC%=0TO(1<<bpp%)-1
14980r%(C%)=(BGET#c%ANDE%)/E%*F:g%(C%)=(BGET#c%ANDE%)/E%*F:b%(C%)=(BGET#c%ANDE%)/E%*F
14990NEXT
15000ENDIF
15010PROCrewind
15020plbytes%=rowbytes%*planes%:plbuff%=FNdim(plbytes%):cache%=TRUE:cachebytes%=TRUE
15030IFplanar% pbuff%=FNdim(sx%) ELSEinput=bpp%:bigendianbits=TRUE:r$="FN1100"
15040info$="ZSoft .PCX file, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(bpp%)
15050WHEN 2000
15060PTR#c%=0:L%=BGET#c%:C%=BGET#c%:I%=BGET#c%:J%=FNHW:K%=FNHW:M%=BGET#c%
15070sx%=FNW:sx%=FNHW:sy%=FNHW:B%=BGET#c%:ID%=BGET#c%:IFID%AND&10 hflip%=NOThflip%
15080IF(ID% AND&20)=0 vflip%=NOTvflip%
15090PTR#c%=PTR#c%+L%:CASE C% OF
15100WHEN 1:IFM%=&18 THEN
15110FORC%=J%TOK%-1
15120b%(C%)=BGET#c%/255*F:g%(C%)=BGET#c%/255*F:r%(C%)=BGET#c%/255*F
15130NEXT
15140ELSE
15150ENDIF
15160OTHERWISE PROCnopal
15170ENDCASE
15180st%=PTR#c%
15190CASE I% OF
15200WHEN 1,2,3:cache%=TRUE:IFB%>8 THEN
15210IFB%>16 THEN
15220input=24:bbo%=0:gbo%=1:rbo%=2:step24=B%DIV8:r$="FN24":rowbytes%=step24*sx%
15230ELSE
15240rowbytes%=sx%*2
15250DIM rpal%(255),gpal%(255):input=16:step24=2:r$="FN16"
15260FORC%=0TO255
15270gpal%(C%)=(C%>>5)<<8 OR (C%AND31)<<16
15280rpal%(C%)=(C%>>2)AND31 OR (C%AND3)<<11
15290NEXT
15300FORC%=0TO31:r%(C%)=C%/31*F:NEXT:g%()=r%():b%()=r%()
15310ENDIF
15320ELSE
15330r$="FN8":rowbytes%=sx%
15340ENDIF
15350info$="Truevision TGA image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(B%)
15360WHEN 9,10,11:step24=B%DIV8:rowbytes%=step24*sx%:buff%=FNdim(rowbytes%)
15370IFB%>8 THEN
15380IFB%>16 THEN
15390input=24:bb%=buff%:gb%=buff%+1:rb%=buff%+2:r$="FN2002"
15400ELSE
15410DIM rpal%(255),gpal%(255):input=16:step24=2:r$="FN2001"
15420FORC%=0TO255
15430gpal%(C%)=(C%>>5)<<8 OR (C%AND31)<<16
15440rpal%(C%)=(C%>>2)AND31 OR (C%AND3)<<11
15450NEXT
15460FORC%=0TO31:r%(C%)=C%/31*F:NEXT:g%()=r%():b%()=r%()
15470ENDIF
15480ENDIF
15490info$="Truevision TGA RLE image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(B%)
15500ENDCASE
15510WHEN 2100
15520quant%=6:sx%=512:rowbytes%=2*sx%:sy%=256:cache%=TRUE:r$="FN16"
15530DIM rpal%(255),gpal%(255):input=16:step24=2
15540FORC%=0TO255
15550gpal%(C%)=C%>>3 OR (C%AND7)<<11
15560rpal%(C%)=(C%AND7)<<8 OR (C%>>3)<<16
15570NEXT
15580FORC%=0TO31:r%(C%)=C%/31*F:NEXT:b%()=r%()
15590FORC%=0TO63:g%(C%)=C%/63*F:NEXT
15600IFscale% ymul%=ymul%*2
15610info$="Pineapple image, 512 by 256 pixels, 16 bits per pixel":PTR#c%=7
15620WHEN 2200
15630quant%=8:step24=1:PTR#c%=0:s$=GET$#c%:E%=INSTR(s$,":"):st%=PTR#c%
15640sx%=VALMID$(s$,E%+1):sy%=VALMID$(s$,E%+2+LENSTR$sx%):PROCnopal:input=24
15650rowbytes%=sx%*3:rbo%=0:gbo%=sx%:bbo%=2*sx%:cache%=TRUE:r$="FN24"
15660info$="Irlam image, "+STR$sx%+" by "+STR$sy%+" pixels, 24 bits per pixel"
15670WHEN 2250
15680PTR#c%=16:sx%=FNW:sy%=FNW:DIM rpal%(255),gpal%(255),bpal%(255),table%(255)
15690FORC%=0TO255:D%=C%OR1
15700table%(C%)=(D%-16)/219*F
15710IFD%AND128 D%-=256
15720r%(C%)=INT(D%/160*F):b%(C%)=INT(D%/126*F)
15730g%(C%)=INT(-D%/160*rwt/gwt*F):gpal%(C%)=INT(-D%/126*bwt/gwt*F)
15740NEXT
15750table%()=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
15760st%=32:PTR#c%=32:cache%=TRUE:rowbytes%=2*sx%:input=411
15770info$="Irlam YUV 4:1:1 file "+STR$sx%+" by "+STR$sy%+" pixels"
15780WHEN 2300
15790PTR#c%=6:sx%=FNHW:sy%=FNHW:D%=BGET#c%:ncolors%=BGET#c%:input=24
15800vflip%=NOTvflip%:quant%=BGET#c%:ncmap%=BGET#c%:cmaplen%=1<<BGET#c%
15810PROCnopal:back%=FNdim(4):!back%=0
15820clrfirst%=D%AND1
15830IF(D%AND2)=0 THEN
15840FORI%=0TOncolors%-1:back%?I%=BGET#c%:NEXT
15850IF(ncolors%AND1)=0 IFBGET#c%
15860ENDIF
15870IFD%AND4 alpha%=FNdim(sx%)
15880IFncmap%>0 THEN
15890FORI%=0TOcmaplen%-1:r%(I%)=FNHW/&FF00*F:NEXT
15900FORI%=0TOcmaplen%-1:g%(I%)=FNHW/&FF00*F:NEXT
15910FORI%=0TOcmaplen%-1:b%(I%)=FNHW/&FF00*F:NEXT
15920ENDIF
15930IFD%AND8 THEN
15940PTR#c%=FNHW+PTR#c%:IFPTR#c%AND1 PTR#c%=PTR#c%+1
15950ENDIF
15960st%=PTR#c%:buff%=FNdim(sx%*3):rb%=buff%:gb%=buff%+1*sx%:bb%=buff%+2*sx%
15970PROCrewind
15980info$="Utah rle image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(ncolors%*quant%)
15990WHEN 2400
16000PTR#c%=riffoff%+&0a:st%=FNW:pal%=FNW:sx%=FNW:sy%=FNW
16010CASE pal% OF
16020WHEN 12
16030PTR#c%=riffoff%+&18:input=FNHW:compression=0
16040WHEN 40
16050PTR#c%=riffoff%+&1c:input=FNHW:compression=FNW
16060PTR#c%=riffoff%+&26:xppm=FNW:yppm=FNW
16070IF xppm<>0 AND yppm<>0 AND scale%<>0 THEN
16080xdiv%=xdiv%*xppm:xmul%=xmul%*3543
16090ydiv%=ydiv%*yppm:ymul%=ymul%*3543
16100ENDIF
16110OTHERWISE
16120ERROR 42,"Unknown .BMP variant ("+STR$pal%+")"
16130ENDCASE
16140bigendianbits=TRUE:vflip%=NOTvflip%
16150CASE input OF
16160WHEN 1:rowbytes%=sx%+7>>3
16170WHEN 4:rowbytes%=sx%+1>>1
16180WHEN 8:rowbytes%=sx%
16190WHEN 16:rowbytes%=sx%*2:r$="FN16":step24=2
16200DIM rpal%(255),gpal%(255)
16210rmask%=&7c00:gmask%=42:bmask%=-42
16220IFcompression=3 PTR#c%=riffoff%+14+pal%:rmask%=FNW:gmask%=FNW:bmask%=FNW:compression=0
16230IFrmask%=&7c00 THEN
16240FORC%=0TO255
16250gpal%(C%)=(C%>>5)<<8 OR (C%AND31)<<16
16260rpal%(C%)=(C%>>2)AND31 OR (C%AND3)<<11
16270NEXT
16280FORC%=0TO31:r%(C%)=C%/31*F:NEXT:g%()=r%():b%()=r%()
16290ENDIF
16300IFrmask%=&f800 THEN
16310FORC%=0TO255
16320gpal%(C%)=(C%>>5)<<8 OR (C%AND31)<<16
16330rpal%(C%)=(C%>>3)AND31 OR (C%AND7)<<11
16340NEXT
16350FORC%=0TO31:r%(C%)=C%/31*F:NEXT:b%()=r%()
16360FORC%=0TO63:g%(C%)=C%/63*F:NEXT
16370ENDIF
16380WHEN 24,32
16390rbo%=2:gbo%=1:bbo%=0:r$="FN24"
16400FORC%=0TO255:r%(C%)=C%/255*F:NEXT:g%()=r%():b%()=r%()
16410r$="FN24":step24=input/8:rowbytes%=sx%*step24
16420rmask%=-1:gmask%=42:bmask%=-42
16430IFcompression=3 PTR#c%=riffoff%+14+pal%:rmask%=FNW:gmask%=FNW:bmask%=FNW:compression=0
16440IFrmask%=&FF THENrbo%=0:gbo%=1:bbo%=2
16450IFgmask%=&FF THENgbo%=0:bbo%=1:rbo%=2
16460IFbmask%=&FF THENbbo%=0:gbo%=1:rbo%=2
16470input=24
16480OTHERWISE ERROR 42,".BMP file of unusual depth ("+STR$input+")"
16490ENDCASE
16500IFinput<=8 THEN
16510PTR#c%=riffoff%+14+pal%:r$="FN8"
16520FORC%=0TO2^input-1
16530b%(C%)=BGET#c%/255*F:g%(C%)=BGET#c%/255*F:r%(C%)=BGET#c%/255*F:IFBGET#c%
16540NEXT
16550ENDIF
16560CASE compression OF
16570WHEN 0:info$="Uncompressed "
16580WHEN 1:info$="RLE8 compressed ":r$="FN2401"
16590WHEN 2:info$="RLE4 compressed ":r$="FN2402"
16600OTHERWISE ERROR 42,".BMP compression type not supported ("+STR$compression+")"
16610ENDCASE
16620rowbytes%=rowbytes%+3ANDNOT3
16630IF compression<>0 cachebytes%=TRUE:plbuff%=FNdim(rowbytes%)
16640cache%=TRUE:PTR#c%=riffoff%+st%
16650info$+="Windows 3.0 .BMP image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
16660WHEN 2500
16670PTR#c%=0:s$="":C%=BGET#c%:WHILEC%<>0 s$+=CHR$C%:C%=BGET#c%:ENDWHILE
16680s$+=" version "+STR$FNW:sx%=FNW:sy%=FNW:input=FNW:cache%=TRUE
16690info$="!Translator Clear format made by "+s$+", "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
16700IFinput>8 THEN
16710PROCnopal:input=24:step24=3:rowbytes%=3*sx%:rbo%=0:gbo%=1:bbo%=2:r$="FN24"
16720ELSE
16730FORC%=0TO2^input-1
16740r%(C%)=BGET#c%/255*F:g%(C%)=BGET#c%/255*F:b%(C%)=BGET#c%/255*F
16750NEXT
16760input=8:r$="FN8":rowbytes%=sx%
16770ENDIF
16780st%=PTR#c%
16790WHEN 2600
16800PTR#c%=0:C%=BGET#c%
16810D%=BGET#c%:CASE D% OF
16820WHEN 0:sx%=320:sy%=200:planes%=4
16830WHEN 1:sx%=640:sy%=200:planes%=2
16840WHEN 2:sx%=640:sy%=400:planes%=1
16850OTHERWISE ERROR42,"ChangeFSI knows nothing of "+STR$C%+" type Degas files"
16860ENDCASE
16870FORI%=0TO(1<<input)-1:D%=FNbeHW:r%(I%)=(D%>>8AND7)/7*F:g%(I%)=(D%>>4AND7)/7*F:b%(I%)=(D%AND7)/7*F:NEXT
16880cache%=TRUE:planar%=TRUE:masking%=FALSE:st%=34:PTR#c%=34:r$="FN1600"
16890rowbytes%=(sx%+15>>4)<<1:plbytes%=rowbytes%*planes%:pbuff%=FNdim(sx%)
16900IFC%AND128 r$="FN1601":flag=1600:cachebytes%=TRUE:plbuff%=FNdim(plbytes%) ELSErealrowbytes%=2:rowbytes%=plbytes%
16910info$="Degas file "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(planes%)
16920WHEN 2700
16930PTR#c%=4:sx%=FNHW:sy%=FNHW
16940CASE FNHW OF
16950WHEN &AF:rowbytes%=sx%:cache%=TRUE:r$="FN8":st%=&30A
16960OTHERWISE CLOSE#c%:ERROR 42,"Panic in ColoRIX reading - ChangeFSI largely ignorant of format!"
16970ENDCASE
16980FORC%=0TO2^input-1
16990r%(C%)=BGET#c%/63*F:g%(C%)=BGET#c%/63*F:b%(C%)=BGET#c%/63*F
17000NEXT
17010PTR#c%=st%
17020info$="ColoRIX file "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
17030WHEN 2800
17040PTR#c%=0:REPEAT s$=FNfits:CASE LEFT$(s$,8) OF
17050WHEN "SIMPLE ":IFMID$(s$,30,1)<>"T" ERROR42,"ChangeFSI can only read Simple FITS format"
17060WHEN "BITPIX ":input=VALMID$(s$,10)
17070WHEN "NAXIS ":IFVALMID$(s$,10)<>2 ERROR42,"ChangeFSI can only read 2d FITS images"
17080WHEN "NAXIS1 ":sx%=VALMID$(s$,10)
17090WHEN "NAXIS2 ":sy%=VALMID$(s$,10)
17100WHEN "END "
17110OTHERWISE IFinfo% PRINT"Ignoring FITS record "s$
17120ENDCASE
17130UNTILLEFT$(s$,8)="END "
17140st%=(PTR#c%DIV2880 + 1)*2880:cache%=TRUE:PTR#c%=st%
17150CASE input OF
17160WHEN 8:r$="FN8":rowbytes%=sx%:PROCnopal
17170WHEN 16:rowbytes%=2*sx%:DIM rpal%(255),gpal%(255):step24=2:r$="FN16"
17180FORC%=0TO255
17190gpal%(C%)=C%<<8
17200rpal%(C%)=C%
17210NEXT:cheat%=0:IFinvert% cheat%=F
17220FORC%=0TO255:r%(C%)=cheat%+C%/65535*F:g%(C%)=((C%EOR&80)<<8)/65535*F:b%(C%)=cheat%:NEXT:rwt=1:gwt=1:bwt=1
17230OTHERWISE ERROR 42,"ChangeFSI can't read a FITS image with this number of bits per pixel"
17240ENDCASE
17250info$="FITS file "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
17260WHEN 2900
17270PTR#c%=4:sx%=FNbeHW:sy%=FNbeHW:PTR#c%=&42:input=FNbeHW:C%=FNbeHW
17280rowbytes%=FNbeHW:C%=FNbeW:st%=FNbeW:PTR#c%=st%:r$="FN8":PROCnopal
17290DIM rpal%(15),gpal%(15),bpal%(15)
17300rpal%()=&e6,&23,&e6,&7f,&17,&00,&a1,&45,&e6,&4a,&e6,&73,&6e,&47,&8a,0
17310gpal%()=&e6,&78,&00,&23,&a1,&73,&2e,&2e,&c8,&a6,&75,&40,&b8,&78,&55,0
17320bpal%()=&b8,&e6,&00,&a1,&17,&2e,&0c,&2e,&00,&c6,&00,&e6,&00,&00,&00,0
17330FORC%=&80TO&8F:r%(C%)=rpal%(C%-&80)/255*F:g%(C%)=gpal%(C%-&80)/255*F:b%(C%)=bpal%(C%-&80)/255*F:NEXT:cache%=TRUE
17340info$="Apollo GPR file "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
17350WHEN 3000
17360sx%=720:sy%=EXT#c%/1440:DIM rpal%(255),gpal%(255),bpal%(255),table%(255)
17380IFFALSE THEN
17390FORC%=0TO255
17400table%(C%)=(C%-16)/219*F
17410r%(C%)=(C%-128)/186*0.624*F:rpal%(C%)=(C%-128)/160*0.952*F
17420g%(C%)=-(C%-128)/186*0.64*F:gpal%(C%)=-(C%-128)/160*0.277*F
17430b%(C%)=(C%-128)/186*1.73*F:bpal%(C%)=-(C%-128)/160*1.11*F
17440NEXT
17450ELSE
17470FORC%=0TO255
17480table%(C%)=(C%-16)/219*F
17490r%(C%)=INT((C%-128)/160*F):b%(C%)=INT((C%-128)/126*F)
17500g%(C%)=INT(-(C%-128)/160*rwt/gwt*F):gpal%(C%)=INT(-(C%-128)/126*bwt/gwt*F)
17510NEXT
17520ENDIF
17530table%()=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
17540st%=0:PTR#c%=0:cache%=TRUE:rowbytes%=1440:input=422:gamma=1
17550IFscale% ymul%=ymul%*2
17560info$="CCIR601 4:2:2 file "+STR$sx%+" by "+STR$sy%+" pixels"
17570WHEN 3100
17580quant%=8:PTR#c%=0:a$=GET$#c%:st%=PTR#c%
17590sx%=VALa$:sy%=VAL(MID$(a$,INSTR(a$," ")))
17600PROCnopal:input=24:step24=3:rowbytes%=sx%*3
17610rbo%=0:gbo%=1:bbo%=2:cache%=TRUE:flag=700:r$="FN24"
17620info$="!RayShade 'RGB' image, "+STR$sx%+" by "+STR$sy%+" pixels, 24 bits per pixel"
17630WHEN 3200
17640quant%=8:PTR#c%=0:st%=0
17650sx%=VALMID$(s$,INSTR(s$,"_")+1,1)
17660CASE sx% OF
17670WHEN 5:sx%=768:sy%=512
17680WHEN 2:sx%=3072:sy%=2048
17690WHEN 1:sx%=1536:sy%=1024
17700ENDCASE
17710PROCnopal:input=24:step24=3:rowbytes%=sx%*3
17720rbo%=0:gbo%=1:bbo%=2:cache%=TRUE:flag=700:r$="FN24"
17730info$="Kodak /RGB image, "+STR$sx%+" by "+STR$sy%+" pixels, 24 bits per pixel"
17740WHEN 3300
17750PTR#c%=0:input=VALMID$(FNGET,2)
17760s$=FNGET:sx%=VALs$:sy%=VALMID$(s$,INSTR(s$," ")):IFsy%=0 sy%=VALFNGET
17770cache%=TRUE:CASE input OF
17780WHEN 4:input=1:r$="FN8":r%(0)=F:g%()=r%():b%()=r%():bigendianbits=TRUE
17790rowbytes%=(sx%+7)DIV8
17800WHEN 5:input=8:r$="FN8":E%=VALFNGET
17810FORC%=0TOE%:r%(C%)=C%/E%*F:NEXT:g%()=r%():b%()=r%()
17820rowbytes%=sx%
17830WHEN 6:input=24:r$="FN24":E%=VALFNGET:step24=3:rbo%=0:gbo%=1:bbo%=2
17840FORC%=0TOE%:r%(C%)=C%/E%*F:NEXT:g%()=r%():b%()=r%()
17850rowbytes%=sx%*3
17860ENDCASE
17870st%=PTR#c%:flag=700
17880info$+="pbm image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
17890DEF FNGET REPEATs$=GET$#c%:UNTILLEFT$(s$,1)<>"#":=s$
17900WHEN 3400
17910PTR#c%=0:s$=FNGET:input=16:quant%=5
17920s$=FNGET:sx%=VALs$:sy%=VALMID$(s$,INSTR(s$," ")):s$=FNGET
17930DIM rpal%(255),gpal%(255):input=16:step24=2
17940FORC%=0TO255
17950gpal%(C%)=(C%>>5)<<8 OR (C%AND31)
17960rpal%(C%)=((C%>>2)AND31)<<16 OR (C%AND3)<<11
17970NEXT
17980cache%=TRUE:r$="FN16"
17990FORC%=0TO31:r%(C%)=C%/31*F:NEXT:g%()=r%():b%()=r%()
18000rowbytes%=sx%*2:st%=PTR#c%:flag=700
18010info$="p15 image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
18020WHEN 3450
18030PTR#c%=0:info$=FNGET
18040ybits%=VALMID$(info$,INSTR(info$," ")):ymax%=(1<<ybits%)-1
18050ubits%=VALMID$(info$,INSTR(info$,"Y ")+1):umax%=(1<<(ubits%-1))-1
18060vbits%=VALMID$(info$,INSTR(info$,"U ")+1):vmax%=(1<<(vbits%-1))-1
18070s$=FNGET:sx%=VALs$:sy%=VALMID$(s$,INSTR(s$," "))
18080DIM rpal%(255),gpal%(255),bpal%(255),table%(255)
18090FORC%=0TOymax%:table%(C%)=C%/ymax%*F:NEXT
18100D%=(1<<ubits%)-1
18110FORC%=0TOD%:d=C%/umax%:IFd>1 d=-(D%-C%)/umax%
18120b%(C%)=INT(d*(1-bwt)*F):gpal%(C%)=INT(-d*(1-bwt)*bwt/gwt*F)
18130NEXT
18140D%=(1<<vbits%)-1
18150FORC%=0TOD%:d=C%/vmax%:IFd>1 d=-(D%-C%)/vmax%
18160r%(C%)=INT(d*(1-rwt)*F):g%(C%)=INT(-d*(1-rwt)*rwt/gwt*F)
18170NEXT
18180rowbytes%=sx%*2:st%=PTR#c%:cache%=TRUE:r$="FN2250":input=555
18190info$+=", "+STR$sx%+" by "+STR$sy%+" pixels"
18200WHEN 3500
18210quant%=1:PTR#c%=6:E%=FNHW:sx%=FNHW:sx%=FNHW:sy%=FNHW:st%=FNHW:st%=FNW
18220rowbytes%=sx%/8+1ANDNOT1:cache%=TRUE:st%+=PTR#c%:PTR#c%=st%
18230CASE E% OF
18240WHEN 1
18250r$="FN8":input=1:r%(0)=F:g%(0)=F:b%(0)=F
18260info$="Pocketbook bitmap, "+STR$sx%+" by "+STR$sy%+" pixels, 1 bit per pixel"
18270WHEN 2
18280planar%=TRUE:planes%=2:r$="FN1600":input=8:cachebytes%=TRUE
18290r%(0)=F:r%(1)=(F/3)*2:r%(2)=F/3:r%(3)=0:g%()=r%():b%()=r%()
18300plbytes%=rowbytes%*planes%:buff%=FNdim(plbytes%*sy%):pbuff%=FNdim(sx%)
18310realrowbytes%=rowbytes%*sy%
18320info$="PocketbookII bitmap, "+STR$sx%+" by "+STR$sy%+" pixels, 2 bits per pixel"
18330OTHERWISE
18340ERROR 42,"Unknown Pocketbook PIC format"
18350ENDCASE
18360WHEN 3600
18370pcdblk%=FNdim(40):SYS&20023,"ChangeFSI$PCDindex",pcdblk%,20 TO,,Z
18380IFZ THENpcdblk%?Z=13:pcdindex%=VAL$pcdblk% ELSEpcdindex%=3
18390SYS"PhotoCD_Open",1,c%,1 TO pcdh%:SYS"PhotoCD_GetCount",pcdh% TO,Z
18400IF(Z>>pcdindex%)=0 CLOSE#c%:ERROR42,"Desired resolution unavailable"
18410SYS"PhotoCD_GetRotation",pcdh% TO,,pcdtr%
18420SYS"PhotoCD_GetSize",pcdh%,,pcdindex% TO,,,,sx%,sy%
18430pcdblk%!0=0:pcdblk%!8=sx%:pcdblk%!4=0
18440pcdblk%!16=0:pcdblk%!20=2:pcdblk%!24=1:pcdblk%!28=3
18460CASE pcdtr% OF
18470WHEN 0
18480WHEN &80000000:hflip%=NOThflip%
18490WHEN 90
18500CASE rotate% OF
18510WHEN 0:rotate%=1
18520WHEN -1:rotate%=0
18530WHEN 1:rotate%=0:vflip%=NOTvflip%:hflip%=NOThflip%
18540ENDCASE
18550WHEN &8000005A
18560CASE rotate% OF
18570WHEN 0:rotate%=1:vflip%=NOTvflip%
18580WHEN -1:rotate%=0:vflip%=NOTvflip%
18590WHEN 1:rotate%=0:hflip%=NOThflip%
18600ENDCASE
18610WHEN 180:hflip%=NOThflip%:vflip%=NOTvflip%
18620WHEN &800000B4:vflip%=NOTvflip%
18630WHEN 270
18640CASE rotate% OF
18650WHEN 0:rotate%=-1
18660WHEN 1:rotate%=0
18670WHEN -1:rotate%=0:vflip%=NOTvflip%:hflip%=NOThflip%
18680ENDCASE
18690WHEN &8000010E
18700CASE rotate% OF
18710WHEN 0:rotate%=-1:vflip%=NOTvflip%
18720WHEN 1:rotate%=0:vflip%=NOTvflip%
18730WHEN -1:rotate%=0:hflip%=NOThflip%
18740ENDCASE
18750OTHERWISE PANIC
18760ENDCASE
18780input=24:step24=3:rbo%=0:gbo%=1:bbo%=2:pcdcachesize%=32*1024
18790rowbytes%=sx%*3:PROCnopal:cache%=TRUE:pcdcache%=FNdim(pcdcachesize%)
18800info$="PhotoCD image, "+STR$sx%+" by "+STR$sy%+" pixels, 24 bits per pixel"
18810WHEN 3700
18820A%=OPENIN"<ChangeFSI$Dir>.CFSIjpeg":jpeg%=FNdim(EXT#A%)
18830SYS12,4,A%,jpeg%,EXT#A%:CLOSE#A%
18840datacache%=FNcachedim(EXT#c%):IFdatacache%=-1 datacache%=FNdim(EXT#c%)
18850PTR#c%=0:SYS12,4,c%,datacache%,EXT#c%
18860A%=datacache%:B%=jpegblk%:C%=jpegblk%+4:D%=jpegblk%+8:E%=jpegblk%+12:CALLjpeg%+8
18870B%=jpegblk%!12:jpegspace%=FNdim(B%)
18880C%=datacache%:A%=jpegspace%:D%=EXT#c%
18890CALLjpeg%:cache%=FALSE:IF!A% ERROR42,"JPEG code error: "+STR$!A%
18900sx%=A%!20:sy%=A%!24:input=8*A%?28:PROCnopal:step24=4
18910info$="JFIF image, "+STR$sx%+" by "+STR$sy%+" pixels, "+FNbits(input)
18920jpegy%=sy%:r$="FN"+STR$INT(3700+input)
18930WHEN 3800
18940PTR#c%=24:sx%=FNW:sy%=FNW
18950IFscale% ymul%=ymul%*2
18960DIM rpal%(255),gpal%(255),bpal%(255),table%(255)
18970FORC%=0TO255
18980IFC%<128 table%(C%)=C%/127*F
18990D%=C%:IFD%AND128 D%-=256
19000r%(C%)=INT(D%/160*F):b%(C%)=INT(D%/126*F)
19010g%(C%)=INT(-D%/160*rwt/gwt*F):gpal%(C%)=INT(-D%/126*bwt/gwt*F)
19020NEXT
19040PTR#c%=52:st%=FNW:PTR#c%=64:cache%=TRUE:rowbytes%=2*sx%:input=411
19050info$="Uncompressed Techno-I YUV file "+STR$sx%+" by "+STR$sy%+" pixels"
19060WHEN 3900
19070PTR#c%=8:sx%=FNW:sy%=FNW:st%=16:quant%=12:step24=6
19080FORC%=0TO4095:r%(C%)=C%/4095*F:NEXT:g%()=r%():b%()=r%()
19090input=48:rowbytes%=sx%*6:cache%=TRUE:r$="FN24":rbo%=0:gbo%=2:bbo%=4
19100info$="Ronald Alpiar format, "+STR$sx%+" by "+STR$sy%+" pixels, 36 bits per pixel"
19110WHEN 3905
19120PTR#c%=8:sx%=FNW:sy%=FNW:st%=16:quant%=16:step24=6
19130FORC%=0TO65535:r%(C%)=C%/65535*F:NEXT:g%()=r%():b%()=r%()
19140input=48:rowbytes%=sx%*6:cache%=TRUE:r$="FN24":rbo%=0:gbo%=2:bbo%=4
19150info$="Ronald Alpiar format, "+STR$sx%+" by "+STR$sy%+" pixels, 48 bits per pixel"
19160WHEN 666
19270st%=0:PTR#c%=0:sx%=160:sy%=128:input=8:cache%=TRUE:rowbytes%=sx%
19280FORC%=0TO255:r%(C%)=C%/255*F:NEXT:g%()=r%():b%()=r%():r$="FN8"
19290info$="The number of the beast, 160 by "+STR$sy%+" pixels, 8 bits per pixel"
19300ENDCASE
19310IFinfo% PRINTinfo$
19320SYS"Hourglass_On",1:hour%=&406c4
19330IFm=-9 OR m=-10 THEN
19340SYS"XOS_CLI","rmensure CompressJPEG 0 rmload System:Modules.jcompmod"
19350SYS"XOS_CLI","rmensure CompressJPEG 0 IF ""<ChangeFSI$Dir>"" <> """" THEN rmload <ChangeFSI$Dir>.jcompmod"
19360*rmensure CompressJPEG 0 ERROR Can't find CompressJPEG module.
19370ENDIF
19380IFinvert% r%()=F-r%():g%()=F-g%():b%()=F-b%()
19390IFxdiv% PROCreduce(xmul%,xdiv%)
19400IFydiv% PROCreduce(ymul%,ydiv%)
19410CASE m OF
19420WHEN -1:x%=256:y%=256:ncol=256:IFscaleo% xdiv%=xdiv%*2:ydiv%=ydiv%*2
19430WHEN -2:x%=sx%:y%=sy%:IFspm=18 ncol=1 ELSEncol=15
19440WHEN -3,-5,-6:x%=sx%:y%=sy%:ncol=2^15-1
19450WHEN -4,-7,-8:x%=sx%:y%=sy%:ncol=2^24-1
19460WHEN -9,-10:x%=sx%:y%=sy%:ncol=2^24-1:IFm=-9 ncol=256
19470OTHERWISE
19480SYS53,m,4 TO ,,nx:SYS53,m,5 TO ,,ny:nx=1<<nx:ny=1<<ny
19490SYS53,m,11 TO ,,x%:SYS53,m,12 TO ,,y%:x%+=1:y%+=1
19500SYS53,m,3 TO ,,ncol:IFscaleo% THEN
19510IFrotate% THEN
19520xdiv%=xdiv%*ny:ydiv%=ydiv%*nx
19530IFxdiv% ymul%=ymul%*2
19540IFydiv% xmul%=xmul%*2
19550ELSE
19560xdiv%=xdiv%*nx:ydiv%=ydiv%*ny
19570IFxdiv% xmul%=xmul%*2
19580IFydiv% ymul%=ymul%*2
19590ENDIF
19600ENDIF
19610SYS&62A51,m TO r0;V:IF(V AND1)=0 THEN
19630IFr0=1 THEN
19640ncol=255:IFm$<>"D" m$="R"
19650ENDIF
19660ENDIF
19670ENDCASE
19680IFm=-6 OR m=-7 OR m=-8 THEN
19690nx=VALMID$(pnm$,5):ny=VALMID$(pnm$,INSTR(pnm$,",",5)+1)
19700IFscaleo% THEN
19710IFrotate% THEN
19720IFxdiv% ymul%=ymul%*nx
19730IFydiv% xmul%=xmul%*ny
19740ELSE
19750IFxdiv% xmul%=xmul%*nx
19760IFydiv% ymul%=ymul%*ny
19770ENDIF
19780xdiv%=xdiv%*90:ydiv%=ydiv%*90
19790ENDIF
19800ENDIF
19810IFrotate% SWAP x%,y%
19830IFxdiv%=0 xdiv%=sx%
19840IFydiv%=0 ydiv%=sy%
19850IFxs$="=" xmul%=x%:xdiv%=sx%
19860IFys$="=" ymul%=y%:ydiv%=sy%
19870IFlock% THEN
19880IFxmul%/xdiv%>ymul%/ydiv% xmul%=ymul%:xdiv%=ydiv% ELSEymul%=xmul%:ydiv%=xdiv%
19890ENDIF
19900IFncol=1 THEN
19910CASE m$ OF
19920WHEN"C":xdiv%=xdiv%*4:ydiv%=ydiv%*4
19930DIM A%(16),B%(16)
19940A%()=0,&00000001,&08000001,&08000101,&08080101,&08080103,&0C080103,&0C080303,&0C0C0303,&0C0E0303,&0C0E0703,&0E0E0703,&0E0E0707,&0E0F0707,&0E0F0F07,&0F0F0F07,&0F0F0F0F
19950B%()=0,&00000008,&01000008,&01000808,&01010808,&0101080C,&0301080C,&03010C0C,&03030C0C,&03070C0C,&03070E0C,&07070E0C,&07070E0E,&070F0E0E,&070F0F0E,&0F0F0F0E,&0F0F0F0F
19960even_gard=FNdim(17*32*4):odd_gard=FNdim(17*32*4)
19970FORI%=0TO16:FORJ%=0TO16:even_gard!(J%*32*4+I%*4)=A%(I%)ORB%(J%)<<4:NEXT:NEXT
19980FORI%=0TO16:FORJ%=0TO16:odd_gard!(I%*32*4+J%*4)=B%(I%)ORA%(J%)<<4:NEXT:NEXT
19990WHEN"T":xdiv%=xdiv%*3:ydiv%=ydiv%*3
20000DIM A%(9),B%(9)
20010A%()=0,&0001,&4001,&4041,&4043,&40C3,&60C3,&61C3,&71C3,&71C7
20020B%()=0,&0004,&1004,&1104,&1106,&1186,&3186,&31C6,&71C6,&71C7
20030even_gard=FNdim(10*16*4):odd_gard=FNdim(10*16*4)
20040FORI%=0TO9:FORJ%=0TO9:even_gard!(J%*16*4+I%*4)=A%(I%)ORB%(J%)<<3:NEXT:NEXT
20050FORI%=0TO9:FORJ%=0TO9:odd_gard!(I%*16*4+J%*4)=B%(I%)ORA%(J%)<<3:NEXT:NEXT
20060WHEN"D":xdiv%=xdiv%*2:ydiv%=ydiv%*2
20070DIM A%(4),B%(4)
20080A%()=0,&1,&21,&31,&33
20090B%()=0,&2,&12,&32,&33
20100even_gard=FNdim(5*8):odd_gard=FNdim(5*8)
20110FORI%=0TO4:FORJ%=0TO4:even_gard?(J%*8+I%)=A%(I%)ORB%(J%)<<2:NEXT:NEXT
20120FORI%=0TO4:FORJ%=0TO4:odd_gard?(I%*8+J%)=B%(I%)ORA%(J%)<<2:NEXT:NEXT
20130ENDCASE
20140ENDIF
20150REPEAT
20160PROCreduce(xmul%,xdiv%):PROCreduce(ymul%,ydiv%)
20170IFxdiv%*ydiv%*255>2^32 xdiv%=xdiv%ANDNOT1:ydiv%=ydiv%ANDNOT1:xmul%=xmul%ANDNOT1:ymul%=ymul%ANDNOT1
20180UNTILxdiv%*ydiv%*255<2^32
20190IFinfo% PRINT"Size ratios are x ";xmul%":"xdiv%" y "ymul%":"ydiv%
20200x%=sx%*xmul%/xdiv%+.9999:y%=sy%*ymul%/ydiv%+.9999:rows%=sy%
20210order%=x%*y%>sx%*sy%
20220code%=FNdim(8192):SP=13
20230IFcache% THEN
20240PROCcachesize(code%)
20250IFcachebytes% THEN
20260filesize%=EXT#c%-PTR#c%:IFcache%>filesize% cache%=filesize%
20270IFcachebytes%>0 IFcache%>cachebytes% cache%=cachebytes%
20280cacherows%=cache%
20290ELSE
20300filesize%=sy%*rowbytes%:IFcache%<rowbytes% cache%=rowbytes%
20310IFcache%>filesize% cache%=filesize%
20320cacherows%=striprows%:IFcacherows%<1 cacherows%=cache%DIVrowbytes%
20330cache%=cacherows%*rowbytes%
20340ENDIF
20350datacache%=FNcachedim(cache%):IFdatacache%=-1 datacache%=FNdim(cache%)
20360ENDIF
20370IFncol=255 IFm$<>"D" m$="R"
20380IFm$="R" OR(ncol=63 ANDm$="") THEN
20390SYS53,-1,3 TO,,J%:IFncol=255 AND MODE=m J%=ncol
20400IFncol=63 AND(m$=""ORm$="R") J%=ncol
20410IFJ%<>ncol PROCclose:ERROR42,"You must be in a "+STR$(ncol+1)+" colour mode to do this"
20420J%=ncol:IFJ%=63 J%=255
20430palette%=FNdim((J%+1)*4)
20440IFncol=255 THEN
20450SYS"ColourTrans_ReadPalette",-1,-1,palette%,256*4
20460FORI%=0TO255:palette%!(I%<<2)=palette%!(I%<<2)>>>8:NEXT
20470ELSE
20480IFncol=63 THEN
20490FORI%=0TO255
20500palette%!(I%<<2)=(I%AND7 OR (I%AND16)>>1)*17
20510palette%?(I%<<2 OR1)=(I%AND3 OR (I%AND&60)>>3)*17
20520palette%?(I%<<2 OR2)=(I%AND3 OR (I%AND8)>>1 OR (I%AND128)>>4)*17
20530NEXT
20540ELSE
20550FORI%=0TOncol:SYS"OS_ReadPalette",I%,16 TO ,,i%:palette%!(I%<<2)=i%>>>8:NEXT
20560ENDIF
20570ENDIF
20580t%=TRUE:k%=palette%+1:nk%=palette%+2
20590FORI%=0TOncol*4STEP4
20600IFpalette%?I%<>k%?I% OR palette%?I%<>nk%?I% t%=FALSE
20610NEXT
20620IFncol>16 IFt% m$="D"
20630IFncol=15 IFt% m$="T"
20640IFm$="R" THEN
20650IF sx%*xmul%/xdiv%*sy%*ymul%/ydiv%<200000 k%=3 ELSEk%=4
20660nk%=8-k%
20670t%=1<<nk%
20680mask%=t%-1
20690td2%=1<<nk%-1
20700step%=1<<(8-k%)
20710ncol%=ncol+1:IFncol%=64 ncol%=256
20720ict%=FNdim(2^(k%*3)*4-1)
20730IFcache%<8192*6 scratch%=FNdim(8192*6):scratchsz%=8192*6 ELSEscratch%=datacache%:scratchsz%=cache%
20740IFinfo% PRINT"Begin table generation with ";scratchsz%" bytes."
20750FORZ%=0TO2STEP2
20760P%=code%
20770[OPT Z%
20780.make%
20790STMFD r13!,{r14}
20800LDR r4,ict
20810MOV r2,#step%/2
20820.blueloop
20830MOV r1,#step%/2
20840.greenloop
20850MOV r0,#step%/2
20860.redloop
20880MOV r3,r0,LSR #nk%
20890MOV r14,r1,LSR #nk%
20900MOV r5,r2,LSR #nk%
20910ORR r3,r3,r14,LSL #k%
20920ORR r3,r3,r5,LSL #k%*2
20930BL devious
20940ADD r0,r0,#step%*2
20950CMP r0,#256
20960BCC redloop
20970ADD r1,r1,#step%
20980CMP r1,#256
20990BCC greenloop
21000ADD r2,r2,#step%
21010CMP r2,#256
21020BCC blueloop
21030LDMFD r13!,{pc}^
21040.ct DCD palette%
21050.min DCD code%+8192-256*2*4
21060.ict DCD ict%
21070.fsaad DCD scratch%
21080.fsalim DCD scratch%+scratchsz%
21090.devious
21100STMFD r13!,{r0,r1,r2,r3,r4,r8,r14}
21110BIC r0,r0,#(mask%<<1)+1
21120BIC r1,r1,#mask%
21130BIC r2,r2,#mask%
21160MOV r5,#0
21170LDR r6,ct
21180MOV r9,#&ff0000
21190MOV r14,#&ff0000
21200LDR r12,min
21210.devloop
21220LDR r7,[r6,r5,LSL #2]
21230MOV r8,r7,lsr #16
21240BIC r10,r8,#mask%
21250ADD r11,r2,#t%
21260CMP r10,r2
21270BEQ blueequal
21280SUBCC r10,r2,r8
21290SUBCC r11,r11,r8
21300SUBCS r10,r8,r11
21310SUBCS r11,r8,r2
21320MUL r3,r10,r10
21330.doneblue
21340MUL r4,r11,r11
21350MOV r8,r7,lsr #8
21360AND r8,r8,#255
21370BIC r10,r8,#mask%
21380ADD r11,r1,#t%
21390CMP r10,r1
21400BEQ greenequal
21410SUBCC r10,r1,r8
21420SUBCC r11,r11,r8
21430SUBCS r10,r8,r11
21440SUBCS r11,r8,r1
21460MUL r8,r10,r10
21470ADD r8,r8,r8,LSL #2
21480ADD r3,r3,r8,LSL #1
21490.donegreen
21500MUL r8,r11,r11
21510ADD r8,r8,r8,LSL #2
21520ADD r4,r4,r8,LSL #1
21540AND r8,r7,#255
21560BIC r10,r8,#mask%
21570ADD r11,r0,#t%
21580CMP r10,r0
21590BEQ redequal0
21600SUBCC r10,r0,r8
21610SUBCC r11,r11,r8
21620SUBCS r10,r8,r11
21630SUBCS r11,r8,r0
21650MUL r7,r10,r10
21660ADD r7,r7,r7,LSL #1
21670ADD r7,r3,r7
21680STR r7,[r12,r5,LSL #2]
21690.donered0
21700MUL r7,r11,r11
21710ADD r7,r7,r7,LSL #1
21720ADD r7,r4,r7
21740CMP r7,r9
21750MOVCC r9,r7
21770ADD r7,r0,#t%
21780BIC r10,r8,#mask%
21790ADD r11,r7,#t%
21800CMP r10,r7
21810BEQ redequal1
21820SUBCC r10,r7,r8
21830SUBCC r11,r11,r8
21840SUBCS r10,r8,r11
21850SUBCS r11,r8,r7
21860MUL r7,r10,r10
21870ADD r7,r7,r7,LSL #1
21880ADD r3,r3,r7
21900.donered1
21910ADD r7,r5,#ncol%
21920STR r3,[r12,r7,LSL #2]
21930MUL r7,r11,r11
21940ADD r7,r7,r7,LSL #1
21950ADD r7,r4,r7
21970CMP r7,r14
21980MOVCC r14,r7
21990ADD r5,r5,#1
22000CMP r5,#ncol%
22010BCC devloop
22020LDMFD r13!,{r0,r1,r2,r3,r4}
22040LDR r5,fsaad
22050MOV r7,r5
22060MOV r10,#0
22070.calcnum0
22080LDMIA r12!,{r8,r11}
22090CMP r8,r9
22100STRLEB r10,[r7],#1
22110ADD r10,r10,#1
22120CMP r11,r9
22130STRLEB r10,[r7],#1
22140ADD r10,r10,#1
22150LDMIA r12!,{r8,r11}
22160CMP r8,r9
22170STRLEB r10,[r7],#1
22180ADD r10,r10,#1
22190CMP r11,r9
22200STRLEB r10,[r7],#1
22210ADD r10,r10,#1
22220CMP r10,#ncol%
22230BCC calcnum0
22240SUBS r10,r7,r5
22250SWIEQ 256+ASC"A"
22260CMP r10,#4 ;if<4 then
22270MOVCC r7,r5 ;reset list pointer
22280LDRCCB r5,[r7] ;first possible
22290LDRCCB r8,[r7,#1] ;second possible
22300ORRCC r5,r5,r8,lsl #8
22310LDRCCB r8,[r7,#2] ;third possible
22320ORRCC r5,r5,r8,lsl #16
22330ADD r5,r5,r10,lsl #24
22340BIC r10,r3,#1
22350STR r5,[r4,r10,LSL #2]
22360MOV r5,r7
22370MOV r10,#0
22380.calcnum1
22390LDMIA r12!,{r8,r11}
22400CMP r8,r14
22410STRLEB r10,[r7],#1
22420ADD r10,r10,#1
22430CMP r11,r14
22440STRLEB r10,[r7],#1
22450ADD r10,r10,#1
22460LDMIA r12!,{r8,r11}
22470CMP r8,r14
22480STRLEB r10,[r7],#1
22490ADD r10,r10,#1
22500CMP r11,r14
22510STRLEB r10,[r7],#1
22520ADD r10,r10,#1
22530CMP r10,#ncol%
22540BCC calcnum1
22550SUBS r10,r7,r5
22560SWIEQ 256+ASC"B"
22570CMP r10,#4 ;if<4 then
22580MOVCC r7,r5
22590LDRCCB r5,[r7]
22600LDRCCB r8,[r7,#1]
22610ORRCC r5,r5,r8,lsl #8
22620LDRCCB r8,[r7,#2]
22630ORRCC r5,r5,r8,lsl #16
22640ADD r5,r5,r10,lsl #24
22650ORR r10,r3,#1
22660STR r5,[r4,r10,LSL #2]
22670STR r7,fsaad
22680LDR r8,fsalim
22690CMP r7,r8
22700SWICS 256+ASC"!"
22710LDMFD r13!,{r8,pc}^
22720.redequal0
22730STR r3,[r12,r5,LSL #2]
22740TST r8,#td2%
22750SUBNE r11,r8,r0
22760SUBEQ r11,r11,r8
22770B donered0
22780.redequal1
22790TST r8,#td2%
22800SUBNE r11,r8,r7
22810SUBEQ r11,r11,r8
22820B donered1
22830.greenequal
22840TST r8,#td2%
22850SUBNE r11,r8,r1
22860SUBEQ r11,r11,r8
22870B donegreen
22880.blueequal
22890MOV r3,#0
22900TST r8,#td2%
22910SUBNE r11,r8,r2
22920SUBEQ r11,r11,r8
22930B doneblue
22940]
22950NEXT
22960I%=TIME:CALLmake%
22970IFinfo% PRINT"Generated 'r'";k%" tables for ";ncol%" colours using ";!fsaad-scratch%" bytes, taking "TIME-I%" cS"
22980safesubict%=FNdim(!fsaad-scratch%)
22990FORI%=0TO!fsaad-scratch%+4STEP4:safesubict%!I%=scratch%!I%:NEXT
23000FORI%=0TO2^(k%*3)*4-1STEP4:IF(ict%!I%>>>24)>3 ict%!I%=ict%!I%-scratch%+safesubict%
23010NEXT
23020ENDIF
23030ENDIF
23040IFfast% IFMODE<>0 MODE0
23060CASE m OF
23070WHEN -1,-9:col=0
23080WHEN -3,-4,-5,-6,-7,-8,-10:col=2
23090OTHERWISE
23100IFm$="D" IFncol=3 m$=""
23110col=0:IFncol>15 ORm$="C" ORm$="D" ORm$="R" col=2
23120IFncol=63 OR ncol=255 IFm$="D" col=0:ncol=256
23130ENDCASE
23140IFncol=1 THEN
23150CASE m$ OF
23160WHEN"C":col=0:x%=x%+1ANDNOT1
23170WHEN"D":col=0:x%=x%+3ANDNOT3
23180WHEN"T":col=0:x%=x%+1ANDNOT1
23190ENDCASE
23200ENDIF
23210DIM cl%(x%+7,col)
23220DIM xl%(x%+7,col),xp%(sx%+7,col)
23230DIM xl2%(x%+7,col)
23240IFsharpen% THEN
23250IForder% THEN
23260DIM rm%(sx%+7,col),rm1%(sx%+7,col),rm2%(sx%+7,col)
23270ELSE
23280DIM rm%(x%+7,col),rm1%(x%+7,col),rm2%(x%+7,col)
23290ENDIF
23300ENDIF
23310IFhist%ORequal% DIM vals%(256,col)
23320DIM nl%(x%+7,col)
23330totvals%=x%*(col+1)
23340totvals2%=sx%*(col+1)
23350FORZ=0TO2STEP2:P%=code%
23360CASE ncol OF
23370WHEN 2^24-1
23380[OPT Z
23390.div255
23400]
23410FORI%=0TO2^p6bits-1
23420[OPT Z
23430EQUD I%/(2^p6bits-1)*F
23440]
23450NEXT
23460[OPT Z
23470.fs%
23480STMFD SP !,{R14}
23490LDR R1,[R9,#5*8]:LDR R1,[R1]
23500LDR R10,[R9,#4*8]
23510LDR R11,[R9,#3*8]
23520LDR R12,[R9,#2*8]:LDR R12,[R12]
23530LDR R8,[R9,#8]:LDR R8,[R8]
23540LDR R9,[R9]:LDR R9,[R9]
23550LDR R4,[R10]
23560LDR R5,[R10,#4]
23570LDR R6,[R10,#8]
23580ADR R7,div255
23590.fsloop
23600ADD R10,R10,R8
23610CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
23620SUB R0,R4,R4,LSR #p6bits:ADD R0,R0,#1<<(bits-p6bits-1):MOV R0,R0,LSR #(bits-p6bits)
23630LDR R2,[R7,R0,LSL #2]:SUB R4,R4,R2
23640CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
23650SUB R3,R5,R5,LSR #p6bits:ADD R3,R3,#1<<(bits-p6bits-1):MOV R3,R3,LSR #(bits-p6bits):ORR R0,R0,R3,LSL #8
23660LDR R2,[R7,R3,LSL #2]:SUB R5,R5,R2
23670CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
23680SUB R3,R6,R6,LSR #p6bits:ADD R3,R3,#1<<(bits-p6bits-1):MOV R3,R3,LSR #(bits-p6bits):ORR R0,R0,R3,LSL #16
23690LDR R2,[R7,R3,LSL #2]:SUB R6,R6,R2
23700STRB R0,[R12]:MOV R0,R0,LSR #8:STRB R0,[R12,#1]:MOV R0,R0,LSR #8
23710STRB R0,[R12,#2]
23720]
23730IFm=-8 THEN
23740[OPT Z
23750ADD R12,R12,R1,LSL #2
23760]
23770ELSE
23780[OPT Z
23790ADD R12,R12,R1,LSL #1:ADD R12,R12,R1
23800]
23810ENDIF
23820IFdither% THEN
23830[OPT Z
23840ADD R0,R11,#4
23850ADD R2,R4,R4,LSL #1
23860LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
23870STR R3,[R11,-R8]
23880ADD R2,R4,R4,LSL #2
23890LDR R3,[R11]:ADD R3,R3,R2,ASR #4
23900STR R3,[R11]
23910MOV R3,R4,ASR #4
23920STR R3,[R11,R8]!
23930RSB R2,R4,R4,LSL #3
23940LDR R4,[R10]
23950ADD R4,R4,R2,ASR #4
23960ADD R2,R5,R5,LSL #1
23970LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
23980STR R3,[R0,-R8]
23990MOV R3,R5,ASR #4
24000STR R3,[R0,R8]
24010ADD R2,R5,R5,LSL #2
24020LDR R3,[R0]:ADD R3,R3,R2,ASR #4
24030STR R3,[R0],#4
24040RSB R2,R5,R5,LSL #3
24050LDR R5,[R10,#4]
24060ADD R5,R5,R2,ASR #4
24070ADD R2,R6,R6,LSL #1
24080LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
24090STR R3,[R0,-R8]
24100ADD R2,R6,R6,LSL #2
24110LDR R3,[R0]:ADD R3,R3,R2,ASR #4
24120STR R3,[R0]
24130MOV R3,R6,ASR #4
24140STR R3,[R0,R8]
24150RSB R2,R6,R6,LSL #3
24160LDR R6,[R10,#8]
24170ADD R6,R6,R2,ASR #4
24180]
24190ELSE
24200[OPT Z
24210LDMIA R10,{R4,R5,R6}
24220]
24230ENDIF
24240[OPT Z
24250SUBS R9,R9,#1:BNE fsloop
24260LDMFD SP !,{PC}^
24270]
24280WHEN 2^15-1
24290[OPT Z
24300.div31
24310]
24320FORI%=0TO31
24330[OPT Z
24340EQUD I%/31*F
24350]
24360NEXT
24370[OPT Z
24380.fs%
24390STMFD SP !,{R14}
24400LDR R1,[R9,#5*8]:LDR R1,[R1]
24410LDR R10,[R9,#4*8]
24420LDR R11,[R9,#3*8]
24430LDR R12,[R9,#2*8]:LDR R12,[R12]
24440LDR R8,[R9,#8]:LDR R8,[R8]
24450LDR R9,[R9]:LDR R9,[R9]
24460LDR R4,[R10]
24470LDR R5,[R10,#4]
24480LDR R6,[R10,#8]
24490ADR R7,div31
24500.fsloop
24510ADD R10,R10,R8
24520CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
24530SUB R0,R4,R4,LSR #5:ADD R0,R0,#1<<(bits-6):MOV R0,R0,LSR #(bits-5)
24540LDR R2,[R7,R0,LSL #2]:SUB R4,R4,R2
24550CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
24560SUB R3,R5,R5,LSR #5:ADD R3,R3,#1<<(bits-6):MOV R3,R3,LSR #(bits-5):ORR R0,R0,R3,LSL #5
24570LDR R2,[R7,R3,LSL #2]:SUB R5,R5,R2
24580CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
24590SUB R3,R6,R6,LSR #5:ADD R3,R3,#1<<(bits-6):MOV R3,R3,LSR #(bits-5):ORR R0,R0,R3,LSL #10
24600LDR R2,[R7,R3,LSL #2]:SUB R6,R6,R2
24610STRB R0,[R12]:MOV R0,R0,LSR #8:STRB R0,[R12,#1]:ADD R12,R12,R1,LSL #1
24620]
24630IFdither% THEN
24640[OPT Z
24650ADD R0,R11,#4
24660ADD R2,R4,R4,LSL #1
24670LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
24680STR R3,[R11,-R8]
24690ADD R2,R4,R4,LSL #2
24700LDR R3,[R11]:ADD R3,R3,R2,ASR #4
24710STR R3,[R11]
24720MOV R3,R4,ASR #4
24730STR R3,[R11,R8]!
24740RSB R2,R4,R4,LSL #3
24750LDR R4,[R10]
24760ADD R4,R4,R2,ASR #4
24770ADD R2,R5,R5,LSL #1
24780LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
24790STR R3,[R0,-R8]
24800MOV R3,R5,ASR #4
24810STR R3,[R0,R8]
24820ADD R2,R5,R5,LSL #2
24830LDR R3,[R0]:ADD R3,R3,R2,ASR #4
24840STR R3,[R0],#4
24850RSB R2,R5,R5,LSL #3
24860LDR R5,[R10,#4]
24870ADD R5,R5,R2,ASR #4
24880ADD R2,R6,R6,LSL #1
24890LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
24900STR R3,[R0,-R8]
24910ADD R2,R6,R6,LSL #2
24920LDR R3,[R0]:ADD R3,R3,R2,ASR #4
24930STR R3,[R0]
24940MOV R3,R6,ASR #4
24950STR R3,[R0,R8]
24960RSB R2,R6,R6,LSL #3
24970LDR R6,[R10,#8]
24980ADD R6,R6,R2,ASR #4
24990]
25000ELSE
25010[OPT Z
25020LDMIA R10,{R4,R5,R6}
25030]
25040ENDIF
25050[OPT Z
25060SUBS R9,R9,#1:BNE fsloop
25070LDMFD SP !,{PC}^
25080]
25090WHEN 256
25100[OPT Z
25110.div255
25120]
25130FORI%=0TO255
25140[OPT Z
25150EQUD I%/255*F
25160]
25170NEXT
25180[OPT Z
25200.fs%
25210STMFD SP !,{R14}
25220LDR R10,[R9,#4*8]
25230ADR R7,div255
25240LDR R1,[R9,#5*8]:LDR R1,[R1]
25250LDR R11,[R9,#3*8]
25260LDR R12,[R9,#2*8]:LDR R12,[R12]
25270LDR R8,[R9,#8]:LDR R8,[R8]
25280LDR R9,[R9]:LDR R9,[R9]
25290LDR R4,[R10],R8
25300.fsloop
25310CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
25320SUB R0,R4,R4,LSR #8:ADD R0,R0,#1<<(bits-9):MOV R0,R0,LSR #(bits-8):STRB R0,[R12],R1
25330LDR R2,[R7,R0,LSL #2]
25340]
25350IFdither% THEN
25360[OPT Z
25370SUB R4,R4,R2
25380MOVCS R4,#0
25390ADD R2,R4,R4,LSL #1
25400LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
25410STR R3,[R11,-R8]
25420ADD R2,R4,R4,LSL #2
25430LDR R3,[R11]:ADD R3,R3,R2,ASR #4
25440STR R3,[R11]
25450MOV R3,R4,ASR #4
25460STR R3,[R11,R8]!
25470RSB R2,R4,R4,LSL #3
25480LDR R4,[R10],R8
25490ADD R4,R4,R2,ASR #4
25500]
25510ELSE
25520[OPT Z
25530LDR R4,[R10],R8
25540]
25550ENDIF
25560[OPT Z
25570SUBS R9,R9,#1:BNE fsloop
25580LDMFD SP !,{PC}^
25590]
25600WHEN 63,255
25610div15=P%:FORI%=0TO255*4STEP4
25620[OPT Z
25630EQUD (palette%!I%AND&FF)/255*F
25640EQUD (palette%!I%>>8AND&FF)/255*F
25650EQUD (palette%!I%>>16AND&FF)/255*F
25660]
25670NEXT
25680IFm$="R" THEN
25690[OPT Z
25700.ictloc EQUD ict%
25710]
25720ENDIF
25730[OPT Z
25740EQUD div15
25750.fs%
25760STMFD SP !,{R14}
25770LDR R1,[R9,#5*8]:LDR R1,[R1]
25780LDR R10,[R9,#4*8]
25790LDR R11,[R9,#3*8]
25800LDR R12,[R9,#2*8]:LDR R12,[R12]
25810LDR R8,[R9,#8]:LDR R8,[R8]
25820LDR R9,[R9]:LDR R9,[R9]
25830LDR R4,[R10]
25840LDR R5,[R10,#4]
25850LDR R6,[R10,#8]
25860LDR R7,fs%-4
25870.fsloop
25880ADD R10,R10,R8
25890]
25900CASE m$ OF
25910WHEN"T"
25920[OPT Z
25930CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
25940MOV R0,R4,LSR #(bits-4):CMP R0,#15:MOVCS R0,#15
25950CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
25960MOV R3,R5,LSR #(bits-4):CMP R3,#15:MOVCS R3,#15:ORR R0,R0,R3,LSL #4
25970CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
25980MOV R3,R6,LSR #(bits-4):CMP R3,#15:MOVCS R3,#15:ORR R0,R0,R3,LSL #8
25990LDR R3,colmatchloc
26000LDRB R0,[R3,R0]
26010ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
26020LDR R2,[R3],#4:SUB R4,R4,R2
26030LDMIA R3,{R2,R3}:SUB R5,R5,R2:SUB R6,R6,R3
26040]
26050WHEN"R"
26060PROCsrchdevlist
26070OTHERWISE
26080[OPT Z
26090CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
26100CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
26110CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
26120STMFD SP !,{R7,R8,R9}
26130MVN R2,#0
26140MOV R3,#&30<<23
26150.srch RSB R7,R3,#&20<<23
26160MOV R8,R6,LSR #bits-8
26170SUB R8,R8,R8,LSR #4
26180ADDS R7,R7,R8,LSL #23
26190MOVVSS R7,#&7F000000
26200MOVMI R7,#0
26210AND R7,R7,#&60000000
26220ADD R7,R7,R3
26230ADD R14,R7,R7,LSR #4
26240ADD R7,R14,R14,LSR #8
26250ADD R7,R7,R7,LSR #16
26260SUBS R8,R6,R7,LSR #31-bits
26270RSBLT R8,R8,#0
26280MOV R8,R8,LSR #bits/2
26290MUL R9,R8,R8
26300RSB R7,R3,#&20<<23
26310MOV R8,R5,LSR #bits-8
26320SUB R8,R8,R8,LSR #4
26330ADDS R7,R7,R8,LSL #23
26340MOVVSS R7,#&7F000000
26350MOVMI R7,#0
26360AND R7,R7,#&60000000
26370ADD R7,R3,R7
26380ADD R7,R7,R7,LSR #4
26390ORR R14,R14,R7,LSR #8
26400ADD R7,R7,R7,LSR #8
26410ADD R7,R7,R7,LSR #16
26420SUBS R8,R5,R7,LSR #31-bits
26430RSBLT R8,R8,#0
26440MOV R8,R8,LSR #bits/2
26450MUL R7,R8,R8
26460ADD R7,R7,R7,LSL #2
26470ADD R9,R9,R7,LSL #1
26480RSB R7,R3,#&20<<23
26490MOV R8,R4,LSR #bits-8
26500SUB R8,R8,R8,LSR #4
26510ADDS R7,R7,R8,LSL #23
26520MOVVSS R7,#&7F000000
26530MOVMI R7,#0
26540AND R7,R7,#&60000000
26550ADD R7,R3,R7
26560ADD R7,R7,R7,LSR #4
26570ORR R14,R14,R7,LSR #16
26580ADD R7,R7,R7,LSR #8
26590ADD R7,R7,R7,LSR #16
26600SUBS R8,R4,R7,LSR #31-bits
26610RSBLT R8,R8,#0
26620MOV R8,R8,LSR #bits/2
26630MUL R7,R8,R8
26640ADD R7,R7,R7,LSL #1
26650ADD R9,R9,R7
26660CMP R9,R2
26670MOVLS R2,R9
26680MOVLS R0,R14
26690SUBS R3,R3,#&10<<23
26700BGE srch
26710AND R7,R0,#&40000000
26720MOV R8,R7,LSR #23
26730AND R7,R0,#&600000
26740ORR R8,R8,R7,LSR #16
26750AND R7,R0,#&4000
26760ORR R8,R8,R7,LSR #10
26770AND R7,R0,#&20000000
26780ORR R8,R8,R7,LSR #26
26790AND R7,R0,#&3800
26800ORR R0,R8,R7,LSR #11
26810LDMFD SP !,{R7,R8,R9}
26820ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
26830LDR R2,[R3],#4:SUB R4,R4,R2
26840LDMIA R3,{R2,R3}:SUB R5,R5,R2:SUB R6,R6,R3
26850]
26860ENDCASE
26870[OPT Z
26880STRB R0,[R12],R1
26890]
26900IFdither% THEN
26910[OPT Z
26920ADD R0,R11,#4
26930ADD R2,R4,R4,LSL #1
26940LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
26950STR R3,[R11,-R8]
26960ADD R2,R4,R4,LSL #2
26970LDR R3,[R11]:ADD R3,R3,R2,ASR #4
26980STR R3,[R11]
26990MOV R3,R4,ASR #4
27000STR R3,[R11,R8]!
27010RSB R2,R4,R4,LSL #3
27020LDR R4,[R10]
27030ADD R4,R4,R2,ASR #4
27040ADD R2,R5,R5,LSL #1
27050LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
27060STR R3,[R0,-R8]
27070MOV R3,R5,ASR #4
27080STR R3,[R0,R8]
27090ADD R2,R5,R5,LSL #2
27100LDR R3,[R0]:ADD R3,R3,R2,ASR #4
27110STR R3,[R0],#4
27120RSB R2,R5,R5,LSL #3
27130LDR R5,[R10,#4]
27140ADD R5,R5,R2,ASR #4
27150ADD R2,R6,R6,LSL #1
27160LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
27170STR R3,[R0,-R8]
27180ADD R2,R6,R6,LSL #2
27190LDR R3,[R0]:ADD R3,R3,R2,ASR #4
27200STR R3,[R0]
27210MOV R3,R6,ASR #4
27220STR R3,[R0,R8]
27230RSB R2,R6,R6,LSL #3
27240LDR R6,[R10,#8]
27250ADD R6,R6,R2,ASR #4
27260]
27270ELSE
27280[OPT Z
27290LDMIA R10,{R4,R5,R6}
27300]
27310ENDIF
27320[OPT Z
27330SUBS R9,R9,#1:BNE fsloop
27340LDMFD SP !,{PC}^
27350]
27360WHEN 15
27370divtable=P%:CASE m$ OF
27380WHEN "D"
27390WHEN "R"
27400FORI%=0TO15*4STEP4
27410[OPT Z
27420EQUD (palette%!I%>>4AND&F)/bright%*F
27430EQUD (palette%!I%>>12AND&F)/bright%*F
27440EQUD (palette%!I%>>20AND&F)/bright%*F
27450]
27460NEXT
27470[OPT Z
27480.ictloc EQUD ict%
27490]
27500WHEN "T"
27510FORI%=0TO15
27520[OPT Z
27530EQUD I%/bright%*F
27540]
27550NEXT
27560OTHERWISE
27570FORI%=0TO7
27580[OPT Z
27590EQUD I%/(bright%DIV2)*F
27600]
27610NEXT
27620ENDCASE
27630[OPT Z
27640.fs%
27650STMFD SP !,{R14}
27660LDR R1,[R9,#5*8]:LDR R1,[R1]
27670LDR R10,[R9,#4*8]
27680LDR R11,[R9,#3*8]
27690LDR R12,[R9,#2*8]:LDR R12,[R12]
27700LDR R8,[R9,#8]:LDR R8,[R8]
27710LDR R9,[R9]:LDR R9,[R9]
27720]
27730IFm$="D" ORm$="R" THEN
27740[OPT Z
27750LDR R4,[R10]
27760LDR R5,[R10,#4]
27770LDR R6,[R10,#8]
27780]
27790ELSE
27800[OPT Z
27810LDR R4,[R10],R8
27820]
27830ENDIF
27840IFm$<>"D" THEN
27850[OPT Z
27860ADR R7,divtable
27870]
27880ENDIF
27890[OPT Z
27900.fsloop
27910]
27920CASE m$ OF
27930WHEN"R"
27940[OPT Z
27950ADD R10,R10,R8
27960]
27970PROCsrchdevlist
27980[OPT Z
27990MOV r3,r0
28000]
28010WHEN "D"
28020[OPT Z
28030ADD R10,R10,R8
28040MOV R3,#0
28050CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
28060CMP R4,#F>>1
28070SUBCS R4,R4,#F:ORRCS R3,R3,#1
28080CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
28090CMP R5,#F>>1
28100SUBCS R5,R5,#F:ORRCS R3,R3,#2
28110CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
28120CMP R6,#F>>1
28130SUBCS R6,R6,#F:ORRCS R3,R3,#4
28140]
28150WHEN "T"
28160[OPT Z
28170CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
28180RSB R3,R4,R4,LSL #4:ADD R3,R3,#F>>1:MOV R3,R3,LSR #bits
28190LDR R2,[R7,R3,LSL #2]
28200SUB R4,R4,R2
28210]
28220OTHERWISE
28230[OPT Z
28240CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
28250RSB R3,R4,R4,LSL #3:ADD R3,R3,#F>>1:MOV R3,R3,LSR #bits
28260LDR R2,[R7,R3,LSL #2]
28270SUB R4,R4,R2
28280]
28290ENDCASE
28300[OPT Z
28310MOV R2,R12,LSR #1
28320TST R12,#1
28330LDRB R0,[R2]
28340ANDEQ R0,R0,#&F0:ORREQ R0,R0,R3
28350ANDNE R0,R0,#&0F:ORRNE R0,R0,R3,LSL #4
28360STRB R0,[R2]
28370ADD R12,R12,R1
28380]
28390IFm$="D" ORm$="R" THEN
28400IFdither% THEN
28410[OPT Z
28420ADD R0,R11,#4
28430ADD R2,R4,R4,LSL #1
28440LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
28450STR R3,[R11,-R8]
28460ADD R2,R4,R4,LSL #2
28470LDR R3,[R11]:ADD R3,R3,R2,ASR #4
28480STR R3,[R11]
28490MOV R3,R4,ASR #4
28500STR R3,[R11,R8]!
28510RSB R2,R4,R4,LSL #3
28520LDR R4,[R10]
28530ADD R4,R4,R2,ASR #4
28540ADD R2,R5,R5,LSL #1
28550LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
28560STR R3,[R0,-R8]
28570MOV R3,R5,ASR #4
28580STR R3,[R0,R8]
28590ADD R2,R5,R5,LSL #2
28600LDR R3,[R0]:ADD R3,R3,R2,ASR #4
28610STR R3,[R0],#4
28620RSB R2,R5,R5,LSL #3
28630LDR R5,[R10,#4]
28640ADD R5,R5,R2,ASR #4
28650ADD R2,R6,R6,LSL #1
28660LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
28670STR R3,[R0,-R8]
28680ADD R2,R6,R6,LSL #2
28690LDR R3,[R0]:ADD R3,R3,R2,ASR #4
28700STR R3,[R0]
28710MOV R3,R6,ASR #4
28720STR R3,[R0,R8]
28730RSB R2,R6,R6,LSL #3
28740LDR R6,[R10,#8]
28750ADD R6,R6,R2,ASR #4
28760]
28770ELSE
28780[OPT Z
28790LDMIA R10,{R4,R5,R6}
28800]
28810ENDIF
28820ELSE
28830IFdither% THEN
28840[OPT Z
28850ADD R2,R4,R4,LSL #1
28860LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
28870STR R3,[R11,-R8]
28880ADD R2,R4,R4,LSL #2
28890LDR R3,[R11]:ADD R3,R3,R2,ASR #4
28900STR R3,[R11]
28910MOV R3,R4,ASR #4
28920STR R3,[R11,R8]!
28930RSB R2,R4,R4,LSL #3
28940LDR R4,[R10],R8
28950ADD R4,R4,R2,ASR #4
28960]
28970ELSE
28980[OPT Z
28990LDR R4,[R10],R8
29000]
29010ENDIF
29020ENDIF
29030[OPT Z
29040SUBS R9,R9,#1:BNE fsloop
29050LDMFD SP !,{PC}^
29060]
29070WHEN 3
29080divtable=P%:CASE m$ OF
29090WHEN "C"
29100WHEN "R"
29110FORI%=0TO3*4STEP4
29120[OPT Z
29130EQUD (palette%!I%>>4AND&F)/bright%*F
29140EQUD (palette%!I%>>12AND&F)/bright%*F
29150EQUD (palette%!I%>>20AND&F)/bright%*F
29160]
29170NEXT
29180OTHERWISE
29190[OPT Z
29200EQUD 0
29210EQUD 1/(bright%DIV4)*F
29220EQUD 2/(bright%DIV4)*F
29230EQUD F
29240]
29250ENDCASE
29260[OPT Z
29270.fs%
29280STMFD SP !,{R14}
29290LDR R1,[R9,#5*8]:LDR R1,[R1]
29300LDR R10,[R9,#4*8]
29310LDR R11,[R9,#3*8]
29320LDR R12,[R9,#2*8]
29330LDR R12,[R12]
29340LDR R8,[R9,#8]
29350LDR R8,[R8]
29360LDR R9,[R9]
29370LDR R9,[R9]
29380]
29390IFm$="C" ORm$="R" THEN
29400[OPT Z
29410LDR R4,[R10]
29420LDR R5,[R10,#4]
29430LDR R6,[R10,#8]
29440]
29450ELSE
29460[OPT Z
29470LDR R4,[R10],R8
29480]
29490ENDIF
29500[OPT Z
29510.fsloop
29520]
29530IFm$<>"C"THEN
29540[OPT Z
29550ADR R7,divtable
29560]
29570ENDIF
29580CASE m$ OF
29590WHEN"C"
29600[OPT Z
29610ADD R10,R10,R8
29620CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
29630CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
29640CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
29650MOV R3,#0
29660CMP R4,#F>>1:ORRCS R3,R3,#1
29670CMP R5,#F>>1:ORRCS R3,R3,#2
29680CMP R6,#F>>1:ORRCS R3,R3,#4
29690CMP R3,#6:MOVEQ R3,#1:BEQ octcyan
29700BCS octwhite
29710CMP R3,#4:BEQ octblue
29720MOVCS R3,#2:BCS octmagenta
29730CMP R3,#2:BEQ octgreen
29740BCS octyellow
29750CMP R3,#0:BEQ octblack
29760.octred
29770RSB R0,R4,#F
29780CMP R5,R0
29790BLT octred1
29800CMP R5,R6
29810MOVGE R3,#3
29820MOVLT R3,#2
29830B octconvert
29840.octred1
29850CMP R0,R6
29860MOVGE R3,#0
29870MOVLT R3,#2
29880B octconvert
29890.octgreen
29900RSB R0,R5,#F
29910CMP R0,R4
29920BLT octgreen1
29930CMP R0,R6
29940MOVGE R3,#0
29950MOVLT R3,#1
29960B octconvert
29970.octgreen1
29980CMP R4,R6
29990MOVGE R3,#3
30000MOVLT R3,#1
30010B octconvert
30020.octblue
30030RSB R0,R6,#F
30040CMP R0,R4
30050BLT octblue1
30060CMP R0,R5
30070MOVGE R3,#0
30080MOVLT R3,#1
30090B octconvert
30100.octblue1
30110CMP R4,R5
30120MOVGE R3,#2
30130MOVLT R3,#1
30140B octconvert
30150.octwhite
30160CMP R4,R5
30170BLT octwhite1
30180CMP R5,R6
30190MOVGE R3,#3
30200MOVLT R3,#2
30210B octconvert
30220.octwhite1
30230CMP R4,R6
30240MOVGE R3,#3
30250MOVLT R3,#1
30260.octconvert
30270CMP R3,#1
30280.octcyan
30290SUBEQ R5,R5,#F
30300SUBEQ R6,R6,#F
30310.octmagenta
30320CMP R3,#2
30330SUBEQ R4,R4,#F
30340SUBEQ R6,R6,#F
30350.octyellow
30360CMP R3,#3
30370SUBEQ R4,R4,#F
30380SUBEQ R5,R5,#F
30390.octblack
30400MOV R2,R12,LSR #2
30410AND R7,R12,#3:MOV R7,R7,LSL #1
30420MOV R14,#3
30430LDRB R0,[R2]:BIC R0,R0,R14,LSL R7:ORR R0,R0,R3,LSL R7:STRB R0,[R2]
30440ADD R12,R12,R1
30450]
30460WHEN"R"
30470[OPT Z
30480ADD R10,R10,R8
30490CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
30500CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
30510CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
30520STMFD SP !,{R8,R9,R10}
30530MVN R2,#0
30540MOV R3,#3
30550.srch ADD R14,R3,R3,LSL #1
30560ADD R14,R7,R14,LSL #2
30570LDMIA R14,{R8,R9,R10}
30580SUBS R8,R4,R8
30590RSBMI R8,R8,#0
30600SUBS R9,R5,R9
30610RSBMI R9,R9,#0
30620SUBS R10,R6,R10
30630RSBMI R10,R10,#0
30640MOV R14,R8,LSR #bits/2
30650MUL R8,R14,R14
30660MOV R14,R9,LSR #bits/2
30670MUL R9,R14,R14
30680MOV R14,R10,LSR #bits/2
30690MUL R10,R14,R14
30700ADD R9,R9,R9,LSL #2
30710ADD R8,R8,R8,LSL #1
30720ADD R14,R8,R9,LSL #1
30730ADD R14,R14,R10
30740CMP R14,R2
30750MOVCC R2,R14
30760MOVCC R0,R3
30770SUBS R3,R3,#1
30780BPL srch
30790LDMFD SP !,{R8,R9,R10}
30800ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
30810LDR R2,[R3],#4:SUB R4,R4,R2
30820LDMIA R3,{R2,R3}:SUB R5,R5,R2:SUB R6,R6,R3
30830MOV R3,R0
30840MOV R2,R12,LSR #2
30850AND R7,R12,#3:MOV R7,R7,LSL #1
30860MOV R14,#3
30870LDRB R0,[R2]:BIC R0,R0,R14,LSL R7:ORR R0,R0,R3,LSL R7:STRB R0,[R2]
30880ADD R12,R12,R1
30890]
30900OTHERWISE
30910[OPT Z
30920CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
30930RSB R3,R4,R4,LSL #2:ADD R3,R3,#F>>1:MOV R3,R3,LSR#bits
30940LDR R2,[R7,R3,LSL #2]
30950SUB R4,R4,R2
30960MOV R2,R12,LSR #2
30970AND R5,R12,#3:MOV R5,R5,LSL #1
30980MOV R6,#3
30990LDRB R0,[R2]:BIC R0,R0,R6,LSL R5:ORR R0,R0,R3,LSL R5:STRB R0,[R2]
31000ADD R12,R12,R1
31010]
31020ENDCASE
31030IFm$="C" ORm$="R" THEN
31040IFdither% THEN
31050[OPT Z
31060ADD R0,R11,#4
31070ADD R2,R4,R4,LSL #1
31080LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
31090STR R3,[R11,-R8]
31100ADD R2,R4,R4,LSL #2
31110LDR R3,[R11]:ADD R3,R3,R2,ASR #4
31120STR R3,[R11]
31130MOV R3,R4,ASR #4
31140STR R3,[R11,R8]!
31150RSB R2,R4,R4,LSL #3
31160LDR R4,[R10]
31170ADD R4,R4,R2,ASR #4
31180ADD R2,R5,R5,LSL #1
31190LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
31200STR R3,[R0,-R8]
31210MOV R3,R5,ASR #4
31220STR R3,[R0,R8]
31230ADD R2,R5,R5,LSL #2
31240LDR R3,[R0]:ADD R3,R3,R2,ASR #4
31250STR R3,[R0],#4
31260RSB R2,R5,R5,LSL #3
31270LDR R5,[R10,#4]
31280ADD R5,R5,R2,ASR #4
31290ADD R2,R6,R6,LSL #1
31300LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
31310STR R3,[R0,-R8]
31320ADD R2,R6,R6,LSL #2
31330LDR R3,[R0]:ADD R3,R3,R2,ASR #4
31340STR R3,[R0]
31350MOV R3,R6,ASR #4
31360STR R3,[R0,R8]
31370RSB R2,R6,R6,LSL #3
31380LDR R6,[R10,#8]
31390ADD R6,R6,R2,ASR #4
31400]
31410ELSE
31420[OPT Z
31430LDMIA R10,{R4,R5,R6}
31440]
31450ENDIF
31460ELSE
31470IFdither% THEN
31480[OPT Z
31490ADD R2,R4,R4,LSL #1
31500LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
31510STR R3,[R11,-R8]
31520ADD R2,R4,R4,LSL #2
31530LDR R3,[R11]:ADD R3,R3,R2,ASR #4
31540STR R3,[R11]
31550MOV R3,R4,ASR #4
31560STR R3,[R11,R8]!
31570RSB R2,R4,R4,LSL #3
31580LDR R4,[R10],R8
31590ADD R4,R4,R2,ASR #4
31600]
31610ELSE
31620[OPT Z
31630LDR R4,[R10],R8
31640]
31650ENDIF
31660ENDIF
31670[OPT Z
31680SUBS R9,R9,#1:BNE fsloop
31690LDMFD SP !,{PC}^
31700]
31710WHEN 1
31720CASE m$ OF
31730WHEN"C"
31740[OPT Z
31750.divtable EQUD 0
31760EQUD (1-black%/256*2)/16*F
31770EQUD (2-black%/256*4)/16*F
31780EQUD (3-black%/256*5)/16*F
31790EQUD (4-black%/256*6)/16*F
31800EQUD (5-black%/256*7)/16*F
31810EQUD (6-black%/256*8)/16*F
31820EQUD (7-black%/256*8)/16*F
31830EQUD (8-black%/256*8)/16*F
31840EQUD (9-black%/256*8)/16*F
31850EQUD (10-black%/256*8)/16*F
31860EQUD (11-black%/256*7)/16*F
31870EQUD (12-black%/256*6)/16*F
31880EQUD (13-black%/256*5)/16*F
31890EQUD (14-black%/256*4)/16*F
31900EQUD (15-black%/256*2)/16*F
31910EQUD F
31920.evenrow_gard DCD even_gard
31930.oddrow_gard DCD odd_gard
31940.rowinc DCD 0
31950.fs%
31960STMFD SP !,{R14}
31970LDR R1,[R9,#5*8]:LDR R1,[R1]
31980LDR R10,[R9,#4*8]
31990LDR R11,[R9,#3*8]
32000LDR R12,[R9,#2*8]
32010LDR R12,[R12]
32020LDR R8,[R9,#8]
32030LDR R8,[R8]
32040LDR R9,[R9]
32050LDR R9,[R9]
32060LDR R4,[R10],R8
32070TEQ R8,#0
32080LDRPL R6,evenrow_gard
32090LDRMI R6,oddrow_gard
32100MOV R1,R1,LSL #1
32110LDR R7,rowinc
32120ADR R14,divtable
32130.fsloop
32140CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
32150ADD R5,R4,#F>>5
32160MOVS R5,R5,LSR #bits-4
32170LDRNE R0,[R14,R5,LSL #2]
32180SUBNE R4,R4,R0
32190]
32200IFdither% THEN
32210[OPT Z
32220ADD R2,R4,R4,LSL #1
32230LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
32240STR R3,[R11,-R8]
32250ADD R2,R4,R4,LSL #2
32260LDR R3,[R11]:ADD R3,R3,R2,ASR #4
32270STR R3,[R11]
32280MOV R3,R4,ASR #4
32290STR R3,[R11,R8]!
32300RSB R2,R4,R4,LSL #3
32310LDR R4,[R10],R8
32320ADDS R4,R4,R2,ASR #4
32330]
32340ELSE
32350[OPT Z
32360LDR R4,[R10],R8
32370]
32380ENDIF
32390[OPT Z
32400CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
32410ADD R3,R4,#F>>5
32420MOVS R3,R3,LSR #bits-4
32430LDRNE R0,[R14,R3,LSL #2]
32440SUBNE R4,R4,R0
32450ORR R5,R5,R3,LSL #5:LDR R3,[R6,R5,LSL #2]
32460MOV R2,R12,LSR #1:STRB R3,[R2],R7:MOV R3,R3,LSR #8:STRB R3,[R2],R7
32470MOV R3,R3,LSR #8:STRB R3,[R2],R7:MOV R3,R3,LSR #8:STRB R3,[R2]
32480ADD R12,R12,R1
32490]
32500IFdither% THEN
32510[OPT Z
32520ADD R2,R4,R4,LSL #1
32530LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
32540STR R3,[R11,-R8]
32550ADD R2,R4,R4,LSL #2
32560LDR R3,[R11]:ADD R3,R3,R2,ASR #4
32570STR R3,[R11]
32580MOV R3,R4,ASR #4
32590STR R3,[R11,R8]!
32600RSB R2,R4,R4,LSL #3
32610LDR R4,[R10],R8
32620ADD R4,R4,R2,ASR #4
32630]
32640ELSE
32650[OPT Z
32660LDR R4,[R10],R8
32670]
32680ENDIF
32690[OPT Z
32700SUBS R9,R9,#2:BNE fsloop
32710LDMFD SP !,{PC}^
32720]
32730WHEN"T"
32740[OPT Z
32750.divtable EQUD 0
32760EQUD (1-black%/256*2)/9*F
32770EQUD (2-black%/256*4)/9*F
32780EQUD (3-black%/256*5)/9*F
32790EQUD (4-black%/256*6)/9*F
32800EQUD (5-black%/256*6)/9*F
32810EQUD (6-black%/256*5)/9*F
32820EQUD (7-black%/256*4)/9*F
32830EQUD (8-black%/256*2)/9*F
32840EQUD F
32850.evenrow_gard DCD even_gard
32860.oddrow_gard DCD odd_gard
32870.rowinc DCD 0
32880.fs%
32890STMFD SP !,{R14}
32900LDR R1,[R9,#5*8]:LDR R1,[R1]
32910LDR R10,[R9,#4*8]
32920LDR R11,[R9,#3*8]
32930LDR R12,[R9,#2*8]
32940LDR R12,[R12]
32950LDR R8,[R9,#8]
32960LDR R8,[R8]
32970LDR R9,[R9]
32980LDR R9,[R9]
32990LDR R4,[R10],R8
33000TEQ R8,#0
33010LDRPL R6,evenrow_gard
33020LDRMI R6,oddrow_gard
33030MOV R1,R1,LSL #1
33040LDR R7,rowinc
33050ADR R14,divtable
33060.fsloop
33070CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
33080ADD R5,R4,#F>>4
33090ADD R5,R5,R5,LSL #3
33100MOVS R5,R5,LSR #bits
33110LDRNE R0,[R14,R5,LSL #2]
33120SUBNE R4,R4,R0
33130]
33140IFdither% THEN
33150[OPT Z
33160ADD R2,R4,R4,LSL #1
33170LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
33180STR R3,[R11,-R8]
33190ADD R2,R4,R4,LSL #2
33200LDR R3,[R11]:ADD R3,R3,R2,ASR #4
33210STR R3,[R11]
33220MOV R3,R4,ASR #4
33230STR R3,[R11,R8]!
33240RSB R2,R4,R4,LSL #3
33250LDR R4,[R10],R8
33260ADDS R4,R4,R2,ASR #4
33270]
33280ELSE
33290[OPT Z
33300LDR R4,[R10],R8
33310]
33320ENDIF
33330[OPT Z
33340CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
33350ADD R3,R4,#F>>4
33360ADD R3,R3,R3,LSL #3
33370MOVS R3,R3,LSR #bits
33380LDRNE R0,[R14,R3,LSL #2]
33390SUBNE R4,R4,R0
33400ORR R5,R5,R3,LSL #4:LDR R5,[R6,R5,LSL #2]
33410MOV R2,R12,LSR #1
33420AND R3,R5,#&3F
33430STRB R3,[R2],R7
33440MOV R3,R5,LSR #6:AND R3,R3,#&3F
33450STRB R3,[R2],R7
33460MOV R3,R5,LSR #12:STRB R3,[R2]
33470ADD R12,R12,R1
33480]
33490IFdither% THEN
33500[OPT Z
33510ADD R2,R4,R4,LSL #1
33520LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
33530STR R3,[R11,-R8]
33540ADD R2,R4,R4,LSL #2
33550LDR R3,[R11]:ADD R3,R3,R2,ASR #4
33560STR R3,[R11]
33570MOV R3,R4,ASR #4
33580STR R3,[R11,R8]!
33590RSB R2,R4,R4,LSL #3
33600LDR R4,[R10],R8
33610ADD R4,R4,R2,ASR #4
33620]
33630ELSE
33640[OPT Z
33650LDR R4,[R10],R8
33660]
33670ENDIF
33680[OPT Z
33690SUBS R9,R9,#2:BNE fsloop
33700LDMFD SP !,{PC}^
33710]
33720WHEN"D"
33730[OPT Z
33740.divtable EQUD 0
33750EQUD (1-black%/256*2)/4*F
33760EQUD (2-black%/256*4)/4*F
33770EQUD (3-black%/256*2)/4*F
33780EQUD F
33790.evenrow_gard DCD even_gard
33800.oddrow_gard DCD odd_gard
33810.rowinc DCD 0
33820.fs%
33830STMFD SP !,{R14}
33840LDR R1,[R9,#5*8]:LDR R1,[R1]
33850LDR R10,[R9,#4*8]
33860LDR R11,[R9,#3*8]
33870LDR R12,[R9,#2*8]
33880LDR R12,[R12]
33890LDR R8,[R9,#8]
33900LDR R8,[R8]
33910LDR R9,[R9]
33920LDR R9,[R9]
33930LDR R4,[R10],R8
33940TEQ R8,#0
33950LDRPL R6,evenrow_gard
33960LDRMI R6,oddrow_gard
33970MOV R1,R1,LSL #1
33980LDR R7,rowinc
33990ADR R14,divtable
34000.fsloop
34010CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
34020ADD R5,R4,#F>>3
34030MOVS R5,R5,LSR #bits-2
34040LDRNE R0,[R14,R5,LSL #2]
34050SUBNE R4,R4,R0
34060]
34070IFdither% THEN
34080[OPT Z
34090ADD R2,R4,R4,LSL #1
34100LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
34110STR R3,[R11,-R8]
34120ADD R2,R4,R4,LSL #2
34130LDR R3,[R11]:ADD R3,R3,R2,ASR #4
34140STR R3,[R11]
34150MOV R3,R4,ASR #4
34160STR R3,[R11,R8]!
34170RSB R2,R4,R4,LSL #3
34180LDR R4,[R10],R8
34190ADDS R4,R4,R2,ASR #4
34200]
34210ELSE
34220[OPT Z
34230LDR R4,[R10],R8
34240]
34250ENDIF
34260[OPT Z
34270CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
34280ADD R3,R4,#F>>3
34290MOVS R3,R3,LSR #bits-2
34300LDRNE R0,[R14,R3,LSL #2]
34310SUBNE R4,R4,R0
34320ORR R5,R5,R3,LSL #3:LDRB R5,[R6,R5]
34330MOV R2,R12,LSR #2
34340TST R12,#2
34350AND R3,R5,#&F:LDRB R0,[R2]
34360ANDEQ R0,R0,#&F0:ORREQ R0,R0,R3
34370ANDNE R0,R0,#&0F:ORRNE R0,R0,R3,LSL #4
34380STRB R0,[R2],R7
34390MOV R3,R5,LSR #4:LDRB R0,[R2]
34400ANDEQ R0,R0,#&F0:ORREQ R0,R0,R3
34410ANDNE R0,R0,#&0F:ORRNE R0,R0,R3,LSL #4
34420STRB R0,[R2]
34430ADD R12,R12,R1
34440]
34450IFdither% THEN
34460[OPT Z
34470ADD R2,R4,R4,LSL #1
34480LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
34490STR R3,[R11,-R8]
34500ADD R2,R4,R4,LSL #2
34510LDR R3,[R11]:ADD R3,R3,R2,ASR #4
34520STR R3,[R11]
34530MOV R3,R4,ASR #4
34540STR R3,[R11,R8]!
34550RSB R2,R4,R4,LSL #3
34560LDR R4,[R10],R8
34570ADD R4,R4,R2,ASR #4
34580]
34590ELSE
34600[OPT Z
34610LDR R4,[R10],R8
34620]
34630ENDIF
34640[OPT Z
34650SUBS R9,R9,#2:BNE fsloop
34660LDMFD SP !,{PC}^
34670]
34680OTHERWISE
34690[OPT Z
34700.fs%
34710STMFD SP !,{R14}
34720LDR R1,[R9,#5*8]:LDR R1,[R1]
34730LDR R10,[R9,#4*8]
34740LDR R11,[R9,#3*8]
34750LDR R12,[R9,#2*8]
34760LDR R12,[R12]
34770LDR R8,[R9,#8]
34780LDR R8,[R8]
34790LDR R9,[R9]
34800LDR R9,[R9]
34810LDR R4,[R10],R8
34820MOV R7,#1
34830.fsloop
34840CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
34850]
34860IFblack% THEN
34870[OPT Z
34880MOV R2,R12,LSR #3
34890AND R5,R12,#7:MOV R6,#1
34900LDRB R0,[R2,#-(x%+7>>3)]
34910SUB R3,R4,#F
34920CMP R7,#0
34930ADDNE R4,R4,#black%<<(bits-8)
34940ADDEQ R3,R3,#black%<<(bits-8)
34950TST R0,R6,LSL R5
34960ADDNE R4,R4,#black%<<(bits-8)
34970ADDEQ R3,R3,#black%<<(bits-8)
34980MOVS R0,R3:RSBMI R0,R3,#0
34990CMP R4,R0
35000MOVCC R3,#0
35010MOVCS R4,R3:MOVCS R3,#1
35020MOV R7,R3
35030]
35040ELSE
35050[OPT Z
35060ADD R3,R4,#F>>1:MOV R3,R3,LSR #bits
35070SUB R4,R4,R3,LSL #bits
35080MOV R2,R12,LSR #3
35090AND R5,R12,#7:MOV R6,#1
35100]
35110ENDIF
35120[OPT Z
35130LDRB R0,[R2]:BIC R0,R0,R6,LSL R5:ORR R0,R0,R3,LSL R5
35140STRB R0,[R2]
35150ADD R12,R12,R1
35160]
35170IFdither% THEN
35180[OPT Z
35190ADD R2,R4,R4,LSL #1
35200LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
35210STR R3,[R11,-R8]
35220ADD R2,R4,R4,LSL #2
35230LDR R3,[R11]:ADD R3,R3,R2,ASR #4
35240STR R3,[R11]
35250MOV R3,R4,ASR #4
35260STR R3,[R11,R8]!
35270RSB R2,R4,R4,LSL #3
35280LDR R4,[R10],R8
35290ADD R4,R4,R2,ASR #4
35300]
35310ELSE
35320[OPT Z
35330LDR R4,[R10],R8
35340]
35350ENDIF
35360[OPT Z
35370SUBS R9,R9,#1:BNE fsloop
35380LDMFD SP !,{PC}^
35390]
35400ENDCASE
35410ENDCASE
35420[OPT Z
35430.sxloc DCD sx%
35440]
35450CASE col OF
35460WHEN 0
35470IFinput<=8 THEN
35480[OPT Z
35490.mappix%
35500LDR R0,sxloc
35510LDR R1,[R9]:LDR R1,[R1]
35520LDR R2,[R9,#3*8]
35530LDR R5,[R9,#4*8]
35540MOV R8,#0
35550.mappixlp
35560LDRB R6,[R1],#step24
35570]
35580ENDIF
35590CASE input OF
35600WHEN 8
35610IFham THEN
35620[OPT Z
35630ADR R9,ltable
35640MOVS R7,R6,LSR #4:AND R6,R6,#15
35650LDREQ R10,[R2,R6,LSL #2]:MOVEQ R11,R10:MOVEQ R12,R10
35660CMP R7,#1:LDREQ R12,[R9,R6,LSL #2]
35670CMP R7,#2:LDREQ R10,[R9,R6,LSL #2]
35680CMP R7,#3:LDREQ R11,[R9,R6,LSL #2]
35690ADD R3,R10,R11
35700ADD R3,R3,R12
35710MOV R3,R3,LSR #2
35720STMIA R5!,{R3}
35730SUBS R0,R0,#1:BNE mappixlp
35740MOVS PC,R14
35750.ltable
35760]
35770FORI%=0TO15
35780[OPT Z
35790EQUD I%/15*F
35800]
35810NEXT
35820ELSE
35830IFhpredict%=2 THEN
35840[OPT Z
35850ADD R6,R6,R8
35860AND R6,R6,#255
35870MOV R8,R6
35880]
35890ENDIF
35900[OPT Z
35910LDR R7,[R2,R6,LSL #2]:STR R7,[R5],#4
35920SUBS R0,R0,#1:BNE mappixlp
35930MOVS PC,R14
35940]
35950ENDIF
35960WHEN 4
35970IFbigendianbits THEN
35980[OPT Z
35990MOV R10,R6,LSR #4
36000LDR R7,[R2,R10,LSL #2]
36010AND R10,R6,#&F
36020]
36030ELSE
36040[OPT Z
36050AND R10,R6,#&F
36060LDR R7,[R2,R10,LSL #2]
36070MOV R10,R6,LSR #4
36080]
36090ENDIF
36100[OPT Z
36110LDR R8,[R2,R10,LSL #2]:STMIA R5!,{R7,R8}
36120SUBS R0,R0,#2:BHI mappixlp
36130MOVS PC,R14
36140]
36150WHEN 2
36160IFbigendianbits THEN
36170[OPT Z
36180MOV R10,R6,LSR #6
36190LDR R7,[R2,R10,LSL #2]
36200AND R10,R6,#&30
36210LDR R8,[R2,R10,LSR #2]
36220AND R10,R6,#&C
36230LDR R9,[R2,R10]
36240AND R10,R6,#&3
36250]
36260ELSE
36270[OPT Z
36280AND R10,R6,#&3
36290LDR R7,[R2,R10,LSL #2]
36300AND R10,R6,#&C
36310LDR R8,[R2,R10]
36320AND R10,R6,#&30
36330LDR R9,[R2,R10,LSR #2]
36340MOV R10,R6,LSR #6
36350]
36360ENDIF
36370[OPT Z
36380LDR R10,[R2,R10,LSL #2]:STMIA R5!,{R7,R8,R9,R10}
36390SUBS R0,R0,#4:BHI mappixlp
36400MOVS PC,R14
36410]
36420WHEN 1
36430IFbigendianbits THEN
36440[OPT Z
36450AND R10,R6,#&80
36460LDR R7,[R2,R10,LSR #5]
36470AND R10,R6,#&40
36480LDR R8,[R2,R10,LSR #4]
36490AND R10,R6,#&20
36500LDR R9,[R2,R10,LSR #3]
36510AND R10,R6,#&10
36520LDR R10,[R2,R10,LSR #2]:STMIA R5!,{R7,R8,R9,R10}
36530AND R10,R6,#&8
36540LDR R7,[R2,R10,LSR #1]
36550AND R10,R6,#&4
36560LDR R8,[R2,R10]
36570AND R10,R6,#&2
36580LDR R9,[R2,R10,LSL #1]
36590AND R10,R6,#&1
36600]
36610ELSE
36620[OPT Z
36630AND R10,R6,#&1
36640LDR R7,[R2,R10,LSL #2]
36650AND R10,R6,#&2
36660LDR R8,[R2,R10,LSL #1]
36670AND R10,R6,#&4
36680LDR R9,[R2,R10]
36690AND R10,R6,#&8
36700LDR R10,[R2,R10,LSR #1]:STMIA R5!,{R7,R8,R9,R10}
36710AND R10,R6,#&10
36720LDR R7,[R2,R10,LSR #2]
36730AND R10,R6,#&20
36740LDR R8,[R2,R10,LSR #3]
36750AND R10,R6,#&40
36760LDR R9,[R2,R10,LSR #4]
36770MOV R10,R6,LSR #7
36780]
36790ENDIF
36800[OPT Z
36810LDR R10,[R2,R10,LSL #2]:STMIA R5!,{R7,R8,R9,R10}
36820SUBS R0,R0,#8:BHI mappixlp
36830MOVS PC,R14
36840]
36850WHEN 16
36860[OPT Z
36870.mappix%
36880LDR R0,sxloc
36890LDR R1,[R9]:LDR R1,[R1]
36900LDR R2,[R9,#8]:LDR R2,[R2]
36910LDR R3,[R9,#4*8]
36920LDR R4,[R9,#3*8]
36930LDR R5,[R9,#2*8]
36940LDR R6,[R9,#5*8]
36950LDR R7,[R9,#6*8]
36960LDR R8,[R9,#7*8]
36970CMP R1,R2
36980ADDEQ R2,R2,#1
36990.mappixlp
37000LDRB R9,[R1],#step24:LDRB R10,[R2],#step24
37010LDR R9,[R6,R9,LSL #2]:LDR R10,[R7,R10,LSL #2]:ORR R9,R9,R10
37020AND R10,R9,#255:LDR R10,[R3,R10,LSL #2]
37030MOV R11,R9,LSR #8:AND R11,R11,#255:LDR R11,[R4,R11,LSL #2]
37040MOV R12,R9,LSR #16:LDR R12,[R5,R12,LSL #2]
37050ADD R10,R10,R11:ADD R10,R10,R12:STMIA R8!,{R10}
37060SUBS R0,R0,#1:BNE mappixlp
37070MOVS PC,R14
37080]
37090WHEN 24
37100[OPT Z
37110.mappix%
37120LDR R0,sxloc
37130LDR R1,[R9,#2*8]:LDR R1,[R1]
37140LDR R2,[R9,#8]:LDR R2,[R2]
37150LDR R3,[R9]:LDR R3,[R3]
37160LDR R4,[R9,#5*8]
37170LDR R5,[R9,#4*8]
37180LDR R6,[R9,#3*8]
37190LDR R7,[R9,#6*8]
37200STMFD SP !,{R14}
37210MOV r11,#0:MOV R12,#0:MOV R14,#0
37220.mappixlp
37230LDRB R8,[R1],#step24:LDRB R9,[R2],#step24:LDRB R10,[R3],#step24
37240]
37250IFhpredict%=2 THEN
37260[OPT Z
37270ADD r8,r8,r11
37280AND r8,r8,#255
37290MOV r11,r8
37300ADD r9,r9,r12
37310AND r9,r9,#255
37320MOV r12,r9
37330ADD r10,r10,r14
37340AND r10,r10,#255
37350MOV r14,r10
37360]
37370ENDIF
37380[OPT Z
37390LDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
37400ADD R8,R8,R9:ADD R8,R8,R10:STR R8,[R7],#4
37410SUBS R0,R0,#1:BNE mappixlp
37420LDMFD SP !,{PC}^
37430]
37440WHEN 48
37450[OPT Z
37460.mappix%
37470LDR R0,sxloc
37480LDR R1,[R9,#2*8]:LDR R1,[R1]
37490LDR R2,[R9,#8]:LDR R2,[R2]
37500LDR R3,[R9]:LDR R3,[R3]
37510LDR R4,[R9,#5*8]
37520LDR R5,[R9,#4*8]
37530LDR R6,[R9,#3*8]
37540LDR R7,[R9,#6*8]
37550STMFD SP !,{R14}
37560MOV r11,#colourindex AND 255:ADD r11,r11,#colourindex AND &ff00
37570.mappixlp
37580LDR R8,[R1],#step24:LDR R9,[R2],#step24:LDR R10,[R3],#step24
37590AND r8,r8,r11:AND r9,r9,r11:AND r10,r10,r11
37600LDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
37610ADD R8,R8,R9:ADD R8,R8,R10:STR R8,[R7],#4
37620SUBS R0,R0,#1:BNE mappixlp
37630LDMFD SP !,{PC}^
37640]
37650WHEN 411
37660[OPT Z
37670.mappix%
37680LDR R0,sxloc
37690LDR R1,[R9]:LDR R1,[R1]
37700LDR R4,[R9,#1*8]
37710LDR R7,[R9,#8*8]
37720.mappixlp
37730LDRB R8,[R1],#2
37740LDR R8,[R4,R8,LSL #2]:CMP R8,#F:MOVCS R8,#F:STR R8,[R7],#4
37750SUBS R0,R0,#1:BNE mappixlp
37760MOVS PC,R14
37770]
37780WHEN 422
37790[OPT Z
37800.mappix%
37810LDR R0,sxloc
37820LDR R1,[R9]:LDR R1,[R1]
37830ADD R1,R1,#1
37840LDR R4,[R9,#1*8]
37850LDR R7,[R9,#8*8]
37860.mappixlp
37870LDRB R8,[R1],#2
37880LDR R8,[R4,R8,LSL #2]:CMP R8,#F:MOVCS R8,#F:STR R8,[R7],#4
37890SUBS R0,R0,#1:BNE mappixlp
37900MOVS PC,R14
37910]
37920WHEN 555
37930[OPT Z
37940.mappix%
37950LDR R0,sxloc
37960LDR R1,[R9]:LDR R1,[R1]
37970ADD R1,R1,#1
37980LDR R4,[R9,#1*8]
37990LDR R7,[R9,#8*8]
38000.mappixlp
38010LDRB R8,[R1],#2
38020AND R8,R8,#ymax%
38030LDR R8,[R4,R8,LSL #2]:CMP R8,#F:MOVCS R8,#F:STR R8,[R7],#4
38040SUBS R0,R0,#1:BNE mappixlp
38050MOVS PC,R14
38060]
38070ENDCASE
38080IFxmul%=2 AND xdiv%=1 THEN
38090[OPT Z
38110.xsample%
38120LDR R0,[R9]:LDR R0,[R0]
38130LDR R1,[R9,#8]
38140LDR R2,[R9,#2*8]
38150SUBS R0,R0,#2
38160BEQ xdonediv
38170BMI xdonediv
38180.xsamplelp
38190LDMIA R1,{R5,R6}
38200ADD R6,R6,R5
38210MOV R6,R6,LSR #1
38220STMIA R2!,{R5,R6}
38230ADD R1,R1,#4
38240SUBS R0,R0,#2:BGT xsamplelp
38250.xdonediv
38260LDMIA R1,{R5}
38270MOV R6,R5
38280STMIA R2!,{R5,R6}
38290MOVS PC,R14
38300]
38310ELSE
38320[OPT Z
38340.xsample%
38350LDR R0,[R9]:LDR R0,[R0]
38360LDR R1,[R9,#8]
38370LDR R2,[R9,#2*8]
38380LDR R3,[R9,#3*8]:LDR R3,[R3]
38390LDR R4,[R9,#4*8]:LDR R4,[R4]
38400MOV R11,R4
38410.xsamplelp
38420LDMIA R1,{R5}
38430SUBS R11,R11,#1:MOVEQ R11,R4:ADDEQ R1,R1,#4
38440SUBS R12,R3,#1
38450BEQ xdonediv
38460.xdivlp
38470CMP R12,R11
38480BCC xdivlp2
38490LDMIA R1!,{R8}:MLA R5,R8,R11,R5
38500SUBS R12,R12,R11:MOV R11,R4
38510BNE xdivlp
38520B xdonediv
38530.xdivlp2
38540LDMIA R1,{R8}
38550SUBS R11,R11,#1:MOVEQ R11,R4:ADDEQ R1,R1,#4
38560ADD R5,R5,R8
38570SUBS R12,R12,#1:BNE xdivlp
38580.xdonediv
38590STMIA R2!,{R5}
38600SUBS R0,R0,#1:BPL xsamplelp
38610MOVS PC,R14
38620]
38630ENDIF
38640WHEN 2
38650IFinput<=8 THEN
38660[OPT Z
38670.mappix%
38680LDR R0,sxloc
38690LDR R1,[R9]:LDR R1,[R1]
38700LDR R2,[R9,#3*8]
38710LDR R3,[R9,#2*8]
38720LDR R4,[R9,#8]
38730LDR R5,[R9,#4*8]
38740MOV R10,#0
38750.mappixlp
38760LDRB R6,[R1],#step24
38770]
38780ENDIF
38790CASE input OF
38800WHEN 8
38810IFham THEN
38820[OPT Z
38830ADR R9,ltable
38840MOVS R7,R6,LSR #4:AND R6,R6,#15
38850LDREQ R10,[R2,R6,LSL #2]:LDREQ R11,[R3,R6,LSL #2]:LDREQ R12,[R4,R6,LSL #2]
38860CMP R7,#1:LDREQ R12,[R9,R6,LSL #2]
38870CMP R7,#2:LDREQ R10,[R9,R6,LSL #2]
38880CMP R7,#3:LDREQ R11,[R9,R6,LSL #2]
38890STMIA R5!,{R10,R11,R12}
38900SUBS R0,R0,#1:BNE mappixlp
38910MOVS PC,R14
38920.ltable
38930]
38940FORI%=0TO15
38950[OPT Z
38960EQUD I%/15*F
38970]
38980NEXT
38990ELSE
39000IFhpredict%=2 THEN
39010[OPT Z
39020ADD R6,R6,R10
39030AND R6,R6,#255
39040MOV R10,R6
39050]
39060ENDIF
39070[OPT Z
39080LDR R7,[R2,R6,LSL #2]:LDR R8,[R3,R6,LSL #2]:LDR R9,[R4,R6,LSL #2]
39090STMIA R5!,{R7,R8,R9}
39100SUBS R0,R0,#1:BNE mappixlp
39110MOVS PC,R14
39120]
39130ENDIF
39140WHEN 4
39150IFbigendianbits THEN
39160[OPT Z
39170MOV R10,R6,LSR #4
39180LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
39190STMIA R5!,{R7,R8,R9}
39200AND R10,R6,#&F
39210]
39220ELSE
39230[OPT Z
39240AND R10,R6,#&F
39250LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
39260STMIA R5!,{R7,R8,R9}
39270MOV R10,R6,LSR #4
39280]
39290ENDIF
39300[OPT Z
39310LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
39320STMIA R5!,{R7,R8,R9}
39330SUBS R0,R0,#2:BHI mappixlp
39340MOVS PC,R14
39350]
39360WHEN 2
39370IFbigendianbits THEN
39380[OPT Z
39390MOV R10,R6,LSR #6
39400LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
39410STMIA R5!,{R7,R8,R9}
39420AND R10,R6,#&30
39430LDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
39440STMIA R5!,{R7,R8,R9}
39450AND R10,R6,#&C
39460LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
39470STMIA R5!,{R7,R8,R9}
39480AND R10,R6,#&3
39490]
39500ELSE
39510[OPT Z
39520AND R10,R6,#&3
39530LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
39540STMIA R5!,{R7,R8,R9}
39550AND R10,R6,#&C
39560LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
39570STMIA R5!,{R7,R8,R9}
39580AND R10,R6,#&30
39590LDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
39600STMIA R5!,{R7,R8,R9}
39610MOV R10,R6,LSR #6
39620]
39630ENDIF
39640[OPT Z
39650LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
39660STMIA R5!,{R7,R8,R9}
39670SUBS R0,R0,#4:BHI mappixlp
39680MOVS PC,R14
39690]
39700WHEN 1
39710IFbigendianbits THEN
39720[OPT Z
39730AND R10,R6,#&80
39740LDR R7,[R2,R10,LSR #5]:LDR R8,[R3,R10,LSR #5]:LDR R9,[R4,R10,LSR #5]
39750STMIA R5!,{R7,R8,R9}
39760AND R10,R6,#&40
39770LDR R7,[R2,R10,LSR #4]:LDR R8,[R3,R10,LSR #4]:LDR R9,[R4,R10,LSR #4]
39780STMIA R5!,{R7,R8,R9}
39790AND R10,R6,#&20
39800LDR R7,[R2,R10,LSR #3]:LDR R8,[R3,R10,LSR #3]:LDR R9,[R4,R10,LSR #3]
39810STMIA R5!,{R7,R8,R9}
39820AND R10,R6,#&10
39830LDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
39840STMIA R5!,{R7,R8,R9}
39850AND R10,R6,#&8
39860LDR R7,[R2,R10,LSR #1]:LDR R8,[R3,R10,LSR #1]:LDR R9,[R4,R10,LSR #1]
39870STMIA R5!,{R7,R8,R9}
39880AND R10,R6,#&4
39890LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
39900STMIA R5!,{R7,R8,R9}
39910AND R10,R6,#&2
39920LDR R7,[R2,R10,LSL #1]:LDR R8,[R3,R10,LSL #1]:LDR R9,[R4,R10,LSL #1]
39930STMIA R5!,{R7,R8,R9}
39940AND R10,R6,#&1
39950]
39960ELSE
39970[OPT Z
39980AND R10,R6,#&1
39990LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
40000STMIA R5!,{R7,R8,R9}
40010AND R10,R6,#&2
40020LDR R7,[R2,R10,LSL #1]:LDR R8,[R3,R10,LSL #1]:LDR R9,[R4,R10,LSL #1]
40030STMIA R5!,{R7,R8,R9}
40040AND R10,R6,#&4
40050LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
40060STMIA R5!,{R7,R8,R9}
40070AND R10,R6,#&8
40080LDR R7,[R2,R10,LSR #1]:LDR R8,[R3,R10,LSR #1]:LDR R9,[R4,R10,LSR #1]
40090STMIA R5!,{R7,R8,R9}
40100AND R10,R6,#&10
40110LDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
40120STMIA R5!,{R7,R8,R9}
40130AND R10,R6,#&20
40140LDR R7,[R2,R10,LSR #3]:LDR R8,[R3,R10,LSR #3]:LDR R9,[R4,R10,LSR #3]
40150STMIA R5!,{R7,R8,R9}
40160AND R10,R6,#&40
40170LDR R7,[R2,R10,LSR #4]:LDR R8,[R3,R10,LSR #4]:LDR R9,[R4,R10,LSR #4]
40180STMIA R5!,{R7,R8,R9}
40190MOV R10,R6,LSR #7
40200]
40210ENDIF
40220[OPT Z
40230LDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
40240STMIA R5!,{R7,R8,R9}
40250SUBS R0,R0,#8:BHI mappixlp
40260MOVS PC,R14
40270]
40280WHEN 16
40290[OPT Z
40300.mappix%
40310LDR R0,sxloc
40320LDR R1,[R9]:LDR R1,[R1]
40330LDR R2,[R9,#8]:LDR R2,[R2]
40340LDR R3,[R9,#4*8]
40350LDR R4,[R9,#3*8]
40360LDR R5,[R9,#2*8]
40370LDR R6,[R9,#5*8]
40380LDR R7,[R9,#6*8]
40390LDR R8,[R9,#7*8]
40400CMP R1,R2
40410ADDEQ R2,R2,#1
40420.mappixlp
40430LDRB R9,[R1],#step24:LDRB R10,[R2],#step24
40440LDR R9,[R6,R9,LSL #2]:LDR R10,[R7,R10,LSL #2]:ORR R9,R9,R10
40450AND R10,R9,#255:LDR R10,[R3,R10,LSL #2]
40460MOV R11,R9,LSR #8:AND R11,R11,#255:LDR R11,[R4,R11,LSL #2]
40470MOV R12,R9,LSR #16:LDR R12,[R5,R12,LSL #2]
40480STMIA R8!,{R10,R11,R12}
40490SUBS R0,R0,#1:BNE mappixlp
40500MOVS PC,R14
40510]
40520WHEN 24
40530[OPT Z
40540.mappix%
40550LDR R0,sxloc
40560LDR R1,[R9,#2*8]:LDR R1,[R1]
40570LDR R2,[R9,#8]:LDR R2,[R2]
40580LDR R3,[R9]:LDR R3,[R3]
40590LDR R4,[R9,#5*8]
40600LDR R5,[R9,#4*8]
40610LDR R6,[R9,#3*8]
40620LDR R7,[R9,#6*8]
40630STMFD SP !,{R14}
40640MOV r11,#0:MOV R12,#0:MOV R14,#0
40650.mappixlp
40660LDRB R8,[R1],#step24:LDRB R9,[R2],#step24:LDRB R10,[R3],#step24
40670]
40680IFhpredict%=2 THEN
40690[OPT Z
40700ADD r8,r8,r11
40710AND r8,r8,#255
40720MOV r11,r8
40730ADD r9,r9,r12
40740AND r9,r9,#255
40750MOV r12,r9
40760ADD r10,r10,r14
40770AND r10,r10,#255
40780MOV r14,r10
40790]
40800ENDIF
40810[OPT Z
40820LDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
40830STMIA R7!,{R8,R9,R10}
40840SUBS R0,R0,#1:BNE mappixlp
40850LDMFD SP !,{PC}^
40860]
40870WHEN 48
40880[OPT Z
40890.mappix%
40900LDR R0,sxloc
40910LDR R1,[R9,#2*8]:LDR R1,[R1]
40920LDR R2,[R9,#8]:LDR R2,[R2]
40930LDR R3,[R9]:LDR R3,[R3]
40940LDR R4,[R9,#5*8]
40950LDR R5,[R9,#4*8]
40960LDR R6,[R9,#3*8]
40970LDR R7,[R9,#6*8]
40980STMFD SP !,{R14}
40990MOV r11,#colourindex AND 255:ADD r11,r11,#colourindex AND &ff00
41000.mappixlp
41010LDR R8,[R1],#step24:LDR R9,[R2],#step24:LDR R10,[R3],#step24
41020AND r8,r8,r11:AND r9,r9,r11:AND r10,r10,r11
41030LDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
41040STMIA R7!,{R8,R9,R10}
41050SUBS R0,R0,#1:BNE mappixlp
41060LDMFD SP !,{PC}^
41070]
41080WHEN 411
41100[OPT Z
41110.mappix%
41120LDR R0,sxloc
41130LDR R1,[R9]:LDR R1,[R1]
41140LDR R2,[R9,#1*8]
41150LDR R3,[R9,#2*8]
41160LDR R5,[R9,#4*8]
41170LDR R6,[R9,#5*8]
41180LDR R7,[R9,#6*8]
41190LDR R9,[R9,#8*8]
41200STMFD SP !,{R14}
41210.mappixlp
41220LDMIA R1!,{R4,R10}
41230AND R8,R4,#&C000
41240MOV R8,R8,LSR #8
41250AND R14,R4,#&C0000000
41260ORR R8,R8,R14,LSR #16+8+2
41270AND R14,R10,#&C000
41280ORR R8,R8,R14,LSR #8+4
41290ORR R8,R8,R10,LSR #16+8+6
41300AND R11,R4,#&3000
41310MOV R11,R11,LSR #6
41320AND R14,R4,#&30000000
41330ORR R11,R11,R14,LSR #16+6+2
41340AND R14,R10,#&3000
41350ORR R11,R11,R14,LSR #6+4
41360AND R14,R10,#&30000000
41370ORR R11,R11,R14,LSR #16+6+6
41390AND R12,R4,#&FF
41400LDR R12,[R2,R12,LSL #2]
41410LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
41420MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41430LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
41440LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
41450MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41460AND R12,R4,#&FF
41470LDR R12,[R2,R12,LSL #2]
41480LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
41490MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41510MOV R4,R4,LSR #16
41520AND R12,R4,#&FF
41530LDR R12,[R2,R12,LSL #2]
41540LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
41550MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41560LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
41570LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
41580MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41590AND R12,R4,#&FF
41600LDR R12,[R2,R12,LSL #2]
41610LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
41620MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41640AND R12,R10,#&FF
41650LDR R12,[R2,R12,LSL #2]
41660LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
41670MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41680LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
41690LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
41700MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41710AND R12,R10,#&FF
41720LDR R12,[R2,R12,LSL #2]
41730LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
41740MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41760MOV R10,R10,LSR #16
41770AND R12,R10,#&FF
41780LDR R12,[R2,R12,LSL #2]
41790LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
41800MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41810LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
41820LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
41830MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41840AND R12,R10,#&FF
41850LDR R12,[R2,R12,LSL #2]
41860LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
41870MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
41890SUBS R0,R0,#4:BNE mappixlp
41900LDMFD SP !,{PC}^
41910]
41920WHEN 423
41930[OPT Z
41940.mappix%
41950LDR R0,sxloc
41960LDR R1,[R9]:LDR R1,[R1]
41970LDR R2,[R9,#1*8]
41980LDR R3,[R9,#2*8]
41990LDR R4,[R9,#3*8]
42000LDR R5,[R9,#4*8]
42010LDR R6,[R9,#5*8]
42020LDR R7,[R9,#6*8]
42030LDR R8,[R9,#7*8]
42040LDR R9,[R9,#8*8]
42050STMFD SP !,{R14}
42060.mappixlp
42070LDR R10,[R1],#4
42080AND R11,R10,#&FF00
42090LDR R11,[R2,R11,LSR #6]
42100AND R12,R10,#&FF:LDR R12,[R7,R12,LSL #2]:ADD R14,R12,R11
42110AND R12,R10,#&FF0000:LDR R12,[R8,R12,LSR #14]:ADDS R14,R14,R12
42120MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42130AND R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
42140AND R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
42150MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42160AND R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADD R14,R12,R11
42170AND R12,R10,#&FF0000:LDR R12,[R4,R12,LSR #14]:ADDS R14,R14,R12
42180MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42190AND R11,R10,#&FF000000
42200LDR R11,[R2,R11,LSR #22]
42210AND R12,R10,#&FF:LDR R12,[R7,R12,LSL #2]:ADD R14,R12,R11
42220AND R12,R10,#&FF0000:LDR R12,[R8,R12,LSR #14]:ADDS R14,R14,R12
42230MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42240AND R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
42250AND R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
42260MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42270AND R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADD R14,R12,R11
42280AND R12,R10,#&FF0000:LDR R12,[R4,R12,LSR #14]:ADDS R14,R14,R12
42290MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42300SUBS R0,R0,#2:BNE mappixlp
42310LDMFD SP !,{PC}^
42320]
42330WHEN 422
42340[OPT Z
42350.mappix%
42360LDR R0,sxloc
42370LDR R1,[R9]:LDR R1,[R1]
42380LDR R2,[R9,#1*8]
42390LDR R3,[R9,#2*8]
42400LDR R5,[R9,#4*8]
42410LDR R6,[R9,#5*8]
42420LDR R7,[R9,#6*8]
42430LDR R9,[R9,#8*8]
42440STMFD SP !,{R14}
42450.mappixlp
42460LDR R10,[R1],#4
42470AND R11,R10,#&FF00
42480LDR R11,[R2,R11,LSR #6]
42490AND R12,R10,#&FF0000:LDR R12,[R7,R12,LSR #14]:ADDS R14,R12,R11
42500MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42510AND R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
42520AND R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
42530MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42540AND R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADDS R14,R12,R11
42550MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42560AND R11,R10,#&FF000000
42570LDR R11,[R2,R11,LSR #22]
42580AND R12,R10,#&FF0000:LDR R12,[R7,R12,LSR #14]:ADDS R14,R12,R11
42590MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42600AND R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
42610AND R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
42620MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42630AND R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADDS R14,R12,R11
42640MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42650SUBS R0,R0,#2:BNE mappixlp
42660LDMFD SP !,{PC}^
42670]
42680WHEN 555
42700[OPT Z
42710.mappix%
42720LDR R0,sxloc
42730LDR R1,[R9]:LDR R1,[R1]
42740LDR R2,[R9,#1*8]
42750LDR R3,[R9,#2*8]
42760LDR R5,[R9,#4*8]
42770LDR R6,[R9,#5*8]
42780LDR R7,[R9,#6*8]
42790LDR R9,[R9,#8*8]
42800STMFD SP !,{R14}
42810.mappixlp
42820LDR R10,[R1],#2
42830AND R11,R10,#ymax%
42840LDR R11,[R2,R11,LSL #2]
42850AND R8,R10,#((1<<vbits%)-1)<<(ybits%+ubits%)
42860AND R10,R10,#((1<<ubits%)-1)<<ybits%
42880LDR R12,[R7,R8,LSR #ybits%+ubits%-2]:ADDS R14,R12,R11
42890MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42900LDR R12,[R5,R8,LSR #ybits%+ubits%-2]:ADD R14,R12,R11
42910LDR R12,[R6,R10,LSR #ybits%-2]:ADDS R14,R14,R12
42920MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42930LDR R12,[R3,R10,LSR #ybits%-2]:ADDS R14,R12,R11
42940MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
42950SUBS R0,R0,#1:BNE mappixlp
42960LDMFD SP !,{PC}^
42970]
42980ENDCASE
42990IFxmul%=2 AND xdiv%=1 THEN
43000[OPT Z
43020.xsample%
43030LDR R0,[R9]:LDR R0,[R0]
43040LDR R1,[R9,#8]
43050LDR R2,[R9,#2*8]
43060SUBS R0,R0,#2
43070BEQ xdonediv
43080BMI xdonediv
43090.xsamplelp
43100LDMIA R1,{R5,R6,R7,R8,R9,R10}
43110ADD R8,R8,R5
43120MOV R8,R8,LSR #1
43130ADD R9,R9,R6
43140MOV R9,R9,LSR #1
43150ADD R10,R10,R7
43160MOV R10,R10,LSR #1
43170STMIA R2!,{R5,R6,R7,R8,R9,R10}
43180ADD R1,R1,#12
43190SUBS R0,R0,#2:BGT xsamplelp
43200.xdonediv
43210LDMIA R1,{R5,R6,R7}
43220MOV R8,R5
43230MOV R9,R6
43240MOV R10,R7
43250STMIA R2!,{R5,R6,R7,R8,R9,R10}
43260MOVS PC,R14
43270]
43280ELSE
43290[OPT Z
43310.xsample%
43320LDR R0,[R9]:LDR R0,[R0]
43330LDR R1,[R9,#8]
43340LDR R2,[R9,#2*8]
43350LDR R3,[R9,#3*8]:LDR R3,[R3]
43360LDR R4,[R9,#4*8]:LDR R4,[R4]
43370MOV R11,R4
43380.xsamplelp
43390LDMIA R1,{R5,R6,R7}
43400SUBS R11,R11,#1:MOVEQ R11,R4:ADDEQ R1,R1,#12
43410SUBS R12,R3,#1
43420BEQ xdonediv
43430.xdivlp
43440CMP R12,R11
43450BCC xdivlp2
43460LDMIA R1!,{R8,R9,R10}:MLA R5,R8,R11,R5:MLA R6,R9,R11,R6:MLA R7,R10,R11,R7
43470SUBS R12,R12,R11:MOV R11,R4
43480BNE xdivlp
43490B xdonediv
43500.xdivlp2
43510LDMIA R1,{R8,R9,R10}
43520SUBS R11,R11,#1:MOVEQ R11,R4:ADDEQ R1,R1,#12
43530ADD R5,R5,R8:ADD R6,R6,R9:ADD R7,R7,R10
43540SUBS R12,R12,#1:BNE xdivlp
43550.xdonediv
43560STMIA R2!,{R5,R6,R7}
43570SUBS R0,R0,#1:BPL xsamplelp
43580MOVS PC,R14
43590]
43600ENDIF
43610ENDCASE
43620IFcompression=5 THEN
43630[OPT Z
43650.firstcode DCD 0
43660.oldcode DCD 0
43670.codesize DCD setcodes%+1
43680.stack DCD stk%
43690.sp DCD stk%
43700.maxcode DCD clearcode%+2
43710.maxcodesize DCD 2*clearcode%
43720.LZWdecode%
43730LDR R2,firstcode:LDR R3,oldcode:LDR R4,stack:LDR R5,codesize
43740LDR R6,sp:LDR R7,maxcode:LDR R8,maxcodesize
43750LDR R10,[R9]:LDR R10,[R10]
43760LDR R11,[R9,#8]:LDR R11,[R11]
43770LDR R12,[R9,#24]
43780STMFD SP !,{R14}
43790.lzwloop
43800CMP R6,R4
43810BHI lzwunstack
43820.lzwengine
43830BL getcode
43840CMP R0,#clearcode%
43850BEQ lzwclear
43870MOV R1,R0
43880CMP R0,R7
43890STRCSB R2,[R6],#1
43900MOVCS R0,R3
43910CMP R0,#clearcode%
43920BCC lzwdonepush
43930.lzwpushtable
43940LDR R14,[R12,R0,LSL #2]
43950STRB R14,[R6],#1
43960MOV R0,R14,LSR #16
43970CMP R0,#clearcode%
43980BCS lzwpushtable
43990.lzwdonepush
44000LDR R2,[R12,R0,LSL #2]
44010BIC R2,R2,#&FF0000
44020BIC R2,R2,#&FF000000
44030STRB R2,[R6],#1
44040CMP R7,#4096
44050BCS lzwnocode
44060ORR R0,R2,R3,LSL #16
44070STR R0,[R12,R7,LSL #2]
44080ADD R7,R7,#1
44090CMP R7,R8
44100BCC lzwnocode
44110CMP R8,#4096
44120ADDCC R5,R5,#1
44130MOVCC R8,R8,LSL #1
44140]
44150IFflag=1500 THEN
44160[OPT Z
44170ORRCC R8,R8,#1
44180]
44190ENDIF
44200[OPT Z
44210.lzwnocode
44220MOV R3,R1
44230CMP R6,R4
44240BLS lzwengine
44250.lzwunstack
44260LDRB R0,[R6,#-1]!
44270.lzwloopend
44280STRB R0,[R11],#1
44290SUBS R10,R10,#1
44300BNE lzwloop
44310STR R2,firstcode:STR R3,oldcode:STR R5,codesize
44320STR R6,sp:STR R7,maxcode:STR R8,maxcodesize
44330LDMFD SP !,{PC}^
44340.lzwclear
44350MOV R0,#0
44360MOV R3,R12
44370.lzwdefaulttable
44380STR R0,[R3],#4
44390ADD R0,R0,#1:CMP R0,#clearcode%
44400BCC lzwdefaulttable
44410MOV R5,#setcodes%+1
44420MOV R7,#clearcode%
44430MOV R8,R7,LSL #1
44440]
44450IFflag=1500 THEN
44460[OPT Z
44470SUB R8,R8,#1
44480]
44490ENDIF
44500[OPT Z
44510ADD R7,R7,#2
44520BL getcode
44530MOV R2,R0
44540MOV R3,R0
44550MOV R6,R4
44560B lzwloopend
44580.curbit DCD 0
44590.lastbit DCD 0
44600.buf DCD buf%
44610.getcode
44620STMFD SP !,{R6,R7,R8}
44630ADR R6,curbit
44640LDMIA R6,{R6,R7,R8}
44650ADD R1,R5,R6
44660CMP R1,R7
44670BCS needmoredata
44680.simplecode
44690ADD R7,R8,R6,LSR #3
44700BIC R7,R7,#3
44710LDMIA R7,{R0,R7}
44720]
44730IFflag=1500 THEN
44740[OPT Z
44750EOR R1,R0,R0,ROR #16
44760BIC R1,R1,#&FF0000
44770MOV R0,R0,ROR #8
44780EOR R0,R0,R1,LSR #8
44790EOR R1,R7,R7,ROR #16
44800BIC R1,R1,#&FF0000
44810MOV R7,R7,ROR #8
44820EOR R7,R7,R1,LSR #8
44830ANDS R1,R6,#31:MOVNE R0,R0,LSL R1:RSBNE R1,R1,#32:ORRNE R0,R0,R7,LSR R1
44840RSB R1,R5,#32
44850MOV R0,R0,LSR R1
44860]
44870ELSE
44880[OPT Z
44890ANDS R1,R6,#31:MOVNE R0,R0,LSR R1:RSBNE R1,R1,#32:ORRNE R0,R0,R7,LSL R1
44900MVN R1,#0:BIC R0,R0,R1,LSL R5
44910]
44920ENDIF
44930[OPT Z
44940ADD R6,R6,R5
44950STR R6,curbit
44960LDMFD SP !,{R6,R7,R8}
44970MOV PC,R14
44980.needmoredata
44990STMFD SP !,{R2,R3,R4,R14}
45000MOV R3,R7,LSR #3
45010SUB R0,R3,#2
45020LDRB R0,[R8,R0]
45030STRB R0,[R8]
45040SUB R0,R3,#1
45050LDRB R0,[R8,R0]
45060STRB R0,[R8,#1]
45070LDR R1,[R9,#16]
45080LDR R1,[R1]
45090]
45100IFflag=1500 THEN
45110[OPT Z
45120MOV R0,#256
45130MOV R3,#256
45140]
45150ELSE
45160[OPT Z
45170BL bytefromcache%
45180MOVS R3,R0
45190BEQ simplecode1
45200]
45210ENDIF
45220[OPT Z
45230SUB R6,R6,R7
45240ADD R6,R6,#16
45250ADD R0,R0,#2
45260MOV R7,R0,LSL #3
45270STR R7,lastbit
45280ADD R2,R8,#2
45290BL multibytefromcache%
45300.simplecode1
45310LDMFD SP !,{R2,R3,R4,R14}
45320B simplecode
45330]
45340ENDIF
45350IFrange% THEN
45360[OPT Z
45380.maxmin%
45390LDR R0,[R9]:LDR R0,[R0]
45400LDR R1,[R9,#8]
45410LDR R2,min
45420LDR R3,max
45430.maxminlp
45440LDR R4,[R1],#4
45450CMP R4,R3:MOVCS R3,R4
45460CMP R4,R2:MOVCC R2,R4
45470SUBS R0,R0,#1:BNE maxminlp
45480STR R2,min
45490STR R3,max
45500MOVS PC,R14
45510.min DCD F
45520.max DCD 0
45530]
45540ENDIF
45550IFsharpen% THEN
45560sharp=(col+1)*4:IFsharpen%>0 THEN
45570IF sharpen%<>8 sharpmul%=F/(sharpen%-8)
45580ELSE
45590sharpmul%=F/(8-sharpen%)
45600ENDIF
45610[OPT Z
45630.sharp%
45640LDR R0,[R9]:LDR R0,[R0]
45650LDR R1,[R9,#8]
45660LDR R2,[R9,#16]
45670LDR R3,[R9,#24]
45680LDR R4,[R9,#32]
45690]
45700CASE sharpen% OF
45710WHEN -8
45720WHEN 8,9,12,16,24
45730OTHERWISE
45740[OPT Z
45750MOV R8,#sharpmul% AND &FF
45760ORR R8,R8,#sharpmul% AND &FF00
45770MOV R9,#(sharpmul% >> 16) AND &FF
45780ORR R9,R9,#(sharpmul% >> 16) AND &FF00
45790]
45800ENDCASE
45810[OPT Z
45820.sharplp
45830LDR R5,[R1,#-sharp]
45840LDR R6,[R1,#sharp]:ADD R5,R5,R6
45850LDR R6,[R1],#4:ADD R5,R5,R6
45860LDR R6,[R3,#-sharp]:ADD R5,R5,R6
45870LDR R6,[R3,#sharp]:ADD R5,R5,R6
45880LDR R6,[R3],#4:ADD R5,R5,R6
45890LDR R6,[R2,#-sharp]:ADD R5,R5,R6
45900LDR R6,[R2,#sharp]:ADD R5,R5,R6
45910LDR R6,[R2],#4
45920MOV R6,R6,LSR #1
45930MOV R7,#ABSsharpen%
45940MUL R7,R6,R7
45950]
45960IFsharpen%>0 THEN
45970[OPT Z
45980SUBS R5,R7,R5,LSR #1
45990MOVCC R5,#0
46000]
46010ELSE
46020[OPT Z
46030ADD R5,R7,R5,LSR #1
46040]
46050ENDIF
46060CASE sharpen% OF
46070WHEN 8,9
46080[OPT Z
46090MOV R6,R5,LSL #1
46100]
46110WHEN 10
46120[OPT Z
46130MOV R6,R5
46140]
46150WHEN 12
46160[OPT Z
46170MOV R6,R5,LSR #1
46180]
46190WHEN 16
46200[OPT Z
46210MOV R6,R5,LSR #2
46220]
46230WHEN -8,24
46240[OPT Z
46250MOV R6,R5,LSR #3
46260]
46270OTHERWISE
46280[OPT Z
46290MOV R6,R5,LSR #16
46300EOR R5,R5,R6,LSL #16
46310MUL R7,R8,R5
46320MUL R5,R9,R5
46330MUL R10,R6,R8
46340MUL R6,R9,R6
46350ADDS R10,R5,R10
46360ADDCS R6,R6,#&10000
46370ADDS R7,R7,R10,LSL #16
46380ADC R6,R6,R10,LSR #16
46390MOV R6,R6,LSL #(32-27)
46400ORRS R6,R6,R7,LSR #27
46410ADDCS R6,R6,#1
46420]
46430ENDCASE
46440IFsharpen%>0 THEN
46450[OPT Z
46460CMP R6,#F:MOVCS R6,#F
46470]
46480ENDIF
46490[OPT Z
46500STR R6,[R4],#4
46510SUBS R0,R0,#1
46520BNE sharplp
46530MOVS PC,R14
46540]
46550ENDIF
46560IFhist%ORequal% THEN
46570[OPT Z
46590.histo%
46600LDR R0,[R9]:LDR R0,[R0]
46610LDR R1,[R9,#8]
46620LDR R2,[R9,#16]
46630.histlp
46640LDR R3,[R2],#4:CMP R3,#F:MOVCS R3,#F
46650MOV R3,R3,LSR #bits-8
46660]
46670IFcol=2 THEN
46680[OPT Z
46690ADD R3,R3,R3,LSL #1
46700LDR R4,[R1,R3,LSL #2]:ADD R4,R4,#1:STR R4,[R1,R3,LSL #2]
46710LDR R3,[R2],#4:CMP R3,#F:MOVCS R3,#F
46720MOV R3,R3,LSR #bits-8
46730ADD R3,R3,R3,LSL #1:ADD R3,R3,#1
46740LDR R4,[R1,R3,LSL #2]:ADD R4,R4,#1:STR R4,[R1,R3,LSL #2]
46750LDR R3,[R2],#4:CMP R3,#F:MOVCS R3,#F
46760MOV R3,R3,LSR #bits-8
46770ADD R3,R3,R3,LSL #1:ADD R3,R3,#2
46780]
46790ENDIF
46800[OPT Z
46810LDR R4,[R1,R3,LSL #2]:ADD R4,R4,#1:STR R4,[R1,R3,LSL #2]
46820SUBS R0,R0,#1
46830BNE histlp
46840MOVS PC,R14
46850]
46860ENDIF
46870IFequal% THEN
46880[OPT Z
46900.histequal%
46910LDR R0,[R9]:LDR R0,[R0]
46920LDR R1,[R9,#8]
46930LDR R2,[R9,#16]
46940.equallp
46950LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
46960MOV R3,R3,LSR #bits-8
46970]
46980IFcol=2 THEN
46990[OPT Z
47000LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
47010MOV R3,R3,LSR #bits-8
47020ADD R3,R3,R3,LSL #1
47030LDR R4,[R1,R3,LSL #2]:STR R4,[R2],#4
47040LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
47050MOV R3,R3,LSR #bits-8
47060ADD R3,R3,R3,LSL #1:ADD R3,R3,#1
47070LDR R4,[R1,R3,LSL #2]:STR R4,[R2],#4
47080LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
47090MOV R3,R3,LSR #bits-8
47100ADD R3,R3,R3,LSL #1:ADD R3,R3,#2
47110]
47120ENDIF
47130[OPT Z
47140LDR R4,[R1,R3,LSL #2]:STR R4,[R2],#4
47150SUBS R0,R0,#1
47160BNE equallp
47170MOVS PC,R14
47180]
47190ENDIF
47200CASE r$ OF
47210WHEN "FN800","FN801","FN1000","FN1001"
47220[OPT Z
47250.rlexpand%
47260LDR R0,[R9]
47270LDR R1,[R0]
47280LDR R2,[R9,#8]:LDR R2,[R2]
47290LDR R3,[R9,#16]
47300LDR R4,[R3]
47310CMP R4,#1:MOVLTS PC,R14
47320LDR R5,[R9,#24]:LDR R5,[R5]
47330.rle
47340STRB R2,[R1],#1
47350SUB R4,R4,#1
47360CMP R1,R5
47370TEQNE R4,#0
47380BNE rle
47390.rlexit
47400STR R1,[R0]
47410STR R4,[R3]
47420MOVS PC,R14
47430]
47440WHEN "FN902"
47450[OPT Z
47460.unpack%
47470LDR R0,[R9]
47480LDR R0,[R0]
47490LDR R1,plbuff
47500ADD R2,R0,#768
47510.unpackloop
47520LDR R3,[R0],#4
47530MOV R5,#0
47540.bitloop
47550MOV R6,R3,LSR R5
47560AND R6,R6,#15
47570ADD R5,R5,#4
47580MOV R7,R3,LSR R5
47590AND R7,R7,#15
47600ADD R5,R5,#4
47610STRB R7,[R1],#1
47620STRB R6,[R1],#1
47630CMP R5,#32
47640BNE bitloop
47650CMP R2,R0
47660BNE unpackloop
47670MOV PC,R14
47680.plbuff EQUD plbuff%
47690]
47700WHEN "FN1601","FN1501","FN1850","FN1851"
47710[OPT Z
47730.readiff%
47740MOV R1,#c%
47750LDR R8,[R9]:LDR R8,[R8]
47760LDR R7,[R9,#8]:LDR R7,[R7]:ADD R7,R7,R8
47770STMFD SP !,{R14}
47780]
47790IFr$="FN1850" OR r$="FN1851" THEN
47800[OPT Z
47810BL bytefromcache%
47820]
47830IFsy%>250 THEN
47840[OPT Z
47850BL bytefromcache%
47860]
47870ENDIF
47880ENDIF
47890[OPT Z
47900.rle
47910BL bytefromcache%
47920CMP R0,#128
47930BCC rle1
47940RSB R2,R0,#256
47950BL bytefromcache%
47960.rle0 STRB R0,[R8],#1
47970SUBS R2,R2,#1
47980BPL rle0
47990B rle2
48000.rle1
48010ADD R3,R0,#1
48020MOV R2,R8
48030ADD R8,R8,R3
48040BL multibytefromcache%
48050.rle2
48060CMP R8,R7
48070BCC rle
48080LDMFD SP !,{R14}
48090MOVS PC,R14
48100]
48110WHEN "FN1900","FN1100","FN400"
48120[OPT Z
48140.readline%
48150LDR R2,[R9]:LDR R2,[R2]
48160LDR R3,[R9,#8]
48170LDR R0,[R3]
48180LDR R4,[R9,#16]
48190LDR R5,[R4]
48200LDR R6,[R9,#24]:LDR R6,[R6]:ADD R6,R6,R2
48210STMFD SP !,{R14}
48220.rle
48230CMP R5,#1
48240BGE rle1
48250BL bytefromcache%
48260MOV R5,#1
48270]
48280IFflag=1900 THEN
48290[OPT Z
48300CMP R0,#192
48310ANDCS R5,R0,#63:BLCS bytefromcache%
48320]
48330ENDIF
48340IFflag=1100 THEN
48350[OPT Z
48360CMP R0,#128
48370BNE rle1
48380BL bytefromcache%
48390TEQ R0,#0
48400MOVEQ R0,#128
48410BEQ rle1
48420ADD R5,R0,#1
48430BL bytefromcache%
48440]
48450ENDIF
48460IFflag=400 THEN
48470[OPT Z
48480MOV R1,R0
48490BL bytefromcache%
48500ORR R1,R1,R0,LSL #8
48510BL bytefromcache%
48520ORR R1,R1,R0,LSL #16
48530BL bytefromcache%
48540ADD R5,R0,#1
48550MOV R0,R1
48560]
48570ENDIF
48580IFflag=200 THEN
48590[OPT Z
48600ADD R5,R0,#1
48610BL bytefromcache%
48620]
48630ENDIF
48640[OPT Z
48650.rle1
48660STRB R0,[R2],#1
48670]
48680IFflag=400 THEN
48690[OPT Z
48700MOV R1,R0,LSR #8
48710STRB R1,[R2],#1
48720MOV R1,R0,LSR #16
48730STRB R1,[R2],#1
48740]
48750ENDIF
48760[OPT Z
48770SUB R5,R5,#1
48780TEQ R2,R6
48790BNE rle
48800.rlexit
48810STR R0,[R3]:STR R5,[R4]
48820LDMFD SP !,{PC}^
48830]
48840WHEN "FN2401"
48850[OPT Z
48860.bm_rle8
48870MOV R1,#c%
48880LDR R8,[R9]:LDR R8,[R8]
48890LDR R7,[R9,#8]:LDR R7,[R7]:ADD R7,R7,R8
48900STMFD SP !,{R14}
48910.rle
48920BL bytefromcache%
48930TEQ r0,#0
48940BEQ rlecopy
48960MOV r4,r0
48970BL bytefromcache%
48980.rle1
48990STRB r0,[r8],#1
49000SUBS r4,r4,#1
49010BGT rle1
49020B rle
49030.rlecopy
49050BL bytefromcache%
49060CMP r0,#3
49070BLT rlespecial
49080MOV r4,r0
49090.rle2
49110BL bytefromcache%
49120STRB r0,[r8],#1
49130BL bytefromcache%
49140SUBS r4,r4,#1
49150STRGTB r0,[r8],#1
49160SUBGTS r4,r4,#1
49170BGT rle2
49180B rle
49190.rlespecial
49300LDMFD SP !,{R14}
49310MOVS PC,R14
49320]
49330WHEN "FN2402"
49340[OPT Z
49350.bm_rle4
49360MOV R1,#c%
49370LDR R8,[R9]:LDR R8,[R8]
49380LDR R7,[R9,#8]:LDR R7,[R7]:ADD R7,R7,R8
49390STMFD SP !,{R14}
49400MOV r2,#0
49410MOV r3,#0
49420.rle
49430BL bytefromcache%
49440TEQ r0,#0
49450BEQ rlecopy
49470MOV r4,r0
49480BL bytefromcache%
49490.rle1
49500BL bmrle4_insert
49510CMP r3,#8
49520MOVGE r5,r2,LSR#24
49530STRGEB r5,[r8],#1
49540MOVGE r2,r2,LSL#8
49550SUBGE r3,r3,#8
49560CMP r4,#0
49570BGT rle1
49580B rle
49590.rlecopy
49610BL bytefromcache%
49620CMP r0,#3
49630BLT rlespecial
49640MOV r4,r0
49650.rle2
49670BL bytefromcache%
49680BL bmrle4_insert
49690BL bytefromcache%
49700CMP r4,#0
49710BLGT bmrle4_insert
49720B rle4
49730.rle3
49740MOV r5,r2,LSR#24
49750STRB r5,[r8],#1
49760MOV r2,r2,LSL#8
49770SUB r3,r3,#8
49780.rle4
49790CMP r3,#8
49800BGE rle3
49810CMP r4,#0
49820BGT rle2
49830B rle
49840.rlespecial
49940CMP r3,#0
49950MOVGT r5,r2,LSR#24
49960STRGTB r5,[r8],#1
49980LDMFD SP !,{R14}
49990MOVS PC,R14
50000.bmrle4_insert
50010RSB r5,r3,#32
50020MOV r2,r2,LSR r5
50030MOV r2,r2,LSL r5
50040SUB r5,r5,#8
50050ORR r2,r2,r0,LSL r5
50060SUBS r4,r4,#2
50070ADDMI r3,r3,#4
50080ADDPL r3,r3,#8
50090MOVS PC,R14
50100]
50110ENDCASE
50120IFcachebytes% THEN
50130[OPT Z
50140.bytefromcache%
50150STMFD SP !,{R1,R2}
50160LDR R1,incacheptr
50170LDR R2,numlefttogo
50180LDRB R0,[R1],#1
50190SUBS R2,R2,#1
50200STRNE R1,incacheptr
50210STRNE R2,numlefttogo
50220LDMFD SP !,{R1,R2}
50230MOVNE PC,R14
50240STMFD SP !,{R0,R1,R2,R3,R4}
50250LDR R2,valdatacache
50260STR R2,incacheptr
50270LDR R3,valcache
50280STR R3,numlefttogo
50290MOV R0,#4
50300MOV R1,#c%
50310SWI "OS_GBPB"
50320LDMFD SP !,{R0,R1,R2,R3,R4}
50330MOV PC,R14
50340.valdatacache DCD datacache%
50350.valcache DCD cache%
50360.incacheptr DCD datacache%
50370.numlefttogo DCD cache%
50380.multibytefromcache%
50390CMP R3,#0
50400MOVEQ PC,R14
50410STMFD SP !,{R0,R14}
50420.multibytefromcachel
50430BL bytefromcache%
50440STRB R0,[R2],#1
50450SUBS R3,R3,#1
50460BNE multibytefromcachel
50470LDMFD SP !,{R0,R14}
50480MOV PC,R14
50490]
50500ENDIF
50510IFplanar%<0 THEN
50520C%=7:IFflag=2600 C%=15
50530[OPT Z
50540.plancnv%
50550LDR R0,sxloc
50560LDR R1,[R9]:LDR R1,[R1]
50570LDR R3,[R9,#8]:LDR R3,[R3]
50580LDR R4,[R9,#16]:LDR R4,[R4]
50590]
50600IFflag=3500 THEN
50610[OPT Z
50620MOV R9,#0
50630]
50640ELSE
50650[OPT Z
50660MOV R9,#C%
50670]
50680ENDIF
50690[OPT Z
50700.planelp
50710MOV R7,#0
50720MOV R5,R3
50730]
50740FORN%=1TOplanes%
50750[OPT Z
50760LDR R6,[R5],R4
50770]
50780IFflag=2600 THEN
50790[OPT Z
50800MOV R6,R6,LSL #8
50810BIC R6,R6,#&FF000000
50820ORR R6,R6,R6,LSR #16
50830]
50840ENDIF
50850IFflag=3500 THEN
50860[OPT Z
50870MOV R6,R6,LSR R9
50880ANDS R6,R6,#1
50890ORR R7,R7,R6,LSL #(planes%-N%)
50900ORRNE R7,R7,#(planes%-1)
50910]
50920ELSE
50930[OPT Z
50940MOV R6,R6,LSR R9
50950AND R6,R6,#1
50960ORR R7,R7,R6,LSL #(N%-1)
50970]
50980ENDIF
50990NEXT
51000[OPT Z
51010STRB R7,[R1],#1
51020]
51030IFflag=3500 THEN
51040[OPT Z
51050ADD R9,R9,#1
51060CMP R9,#C%+1
51070MOVEQ R9,#0
51080]
51090ELSE
51100[OPT Z
51110SUBS R9,R9,#1:MOVMI R9,#C%
51120]
51130ENDIF
51140CASE flag OF
51150WHEN 2600
51160[OPT Z
51170MOVMI R3,R5
51180]
51190WHEN 3500
51200[OPT Z
51210ADDEQ R3,R3,#1
51220]
51230OTHERWISE
51240[OPT Z
51250ADDMI R3,R3,#1
51260]
51270ENDCASE
51280[OPT Z
51290SUBS R0,R0,#1:BNE planelp
51300MOVS PC,R14
51310]
51320ENDIF
51330NEXT
51340cputime%=TIME
51350IFcache% THEN
51360IFflag=3600 THEN
51370pcdblk%!12=cacherows%:PROCrefillpcd:IFcache%>=filesize% rowstogo%=-1
51380ELSE
51390IFstriprows%>0ANDcompression>1 THEN
51410SYS12,4,c%,datacache%,cache%
51420IFcachebytes% !incacheptr=datacache%:!numlefttogo=cache%
51430ELSE
51440PROCrefill:IFcache%>=filesize% rowstogo%=-1
51450ENDIF
51460ENDIF
51470ENDIF
51480sizeshft%=0:CASE ncol OF
51490WHEN 2^24-1:size%=1
51500WHEN 2^15-1:size%=1
51510WHEN 63,255,256:size%=1
51520WHEN 15:size%=2:sizeshft%=1
51530WHEN 3:size%=4:sizeshft%=2
51540WHEN 1:size%=8:sizeshft%=3:IFm$="C" size%=2:sizeshft%=1
51550IFm$="D" size%=4:sizeshft%=2
51560IFm$="T" size%=2:sizeshft%=1
51570ENDCASE
51590CASE flag OF
51600WHEN 501:IFinfo% PRINT"Reading interlaced GIF"
51610sz%=sx%*sy%:plbuff%=FNdim(sz%+100)
51620FORY%=0TOsy%-1STEP8:X%=plbuff%+Y%*sx%:CALL LZWdecode%,table%(0),c%,X%,sx%:NEXT
51630FORY%=4TOsy%-1STEP8:X%=plbuff%+Y%*sx%:CALL LZWdecode%,table%(0),c%,X%,sx%:NEXT
51640FORY%=2TOsy%-1STEP4:X%=plbuff%+Y%*sx%:CALL LZWdecode%,table%(0),c%,X%,sx%:NEXT
51650FORY%=1TOsy%-1STEP2:X%=plbuff%+Y%*sx%:CALL LZWdecode%,table%(0),c%,X%,sx%:NEXT
51660datacache%=plbuff%:buff%=plbuff%:rowbytes%=sx%:rowstogo%=-1
51670ENDCASE
51680IFgamma<>1 AND gamma<>0 THEN
51690k=1/gamma:FORC%=0TOcolourindex
51700IFr%(C%) r%(C%)=((r%(C%)/F)^k)*F
51710IFg%(C%) g%(C%)=((g%(C%)/F)^k)*F
51720IFb%(C%) b%(C%)=((b%(C%)/F)^k)*F
51730NEXT
51740ENDIF
51750rmax=F:gmax=F:bmax=F
51760IFcol=0 THEN
51770IFinput<9 THEN
51780FORC%=0TO255:r%(C%)=r%(C%)*rwt+g%(C%)*gwt+b%(C%)*bwt:NEXT
51790ELSE
51800IFinput<400 THEN
51810rmax=F*rwt:gmax=F*gwt:bmax=F*bwt
51820FORC%=0TOcolourindex:r%(C%)=r%(C%)*rwt:g%(C%)=g%(C%)*gwt:b%(C%)=b%(C%)*bwt:NEXT
51830ENDIF
51840ENDIF
51850ENDIF
51860IFNOTorder% PROCadjustpalette(1/ydiv%/xdiv%,0)
51880IFrange% THEN
51890IFinfo% PRINT"Scanning data to compute parameters for '-range'"
51900IForder% THEN
51910Y%=0:REPEAT SYShour%,Y%*100DIVsy%
51920W%=EVAL(r$+"(xp%())"):CALLmaxmin%,xp%(1,0),totvals2%:Y%+=1
51930UNTILY%=sy% OR!min<255 AND!max+255>=F
51940ELSE
51950Y%=0:ysamp%=1:REPEAT SYShour%,Y%*100DIVy%
51960PROCscaledpixelrow(cl%()):CALLmaxmin%,cl%(1,0),totvals%:Y%+=1
51970UNTILY%=y% OR !min<255 AND !max+255>=F
51980ENDIF
51990IF!max+255>=F AND!min<255 range%=FALSE:range$="No point in '-range' on this image"
52000IFrange% PROCadjustpalette(F/(!max-!min),!min/ydiv%/xdiv%):range$="Input image maximum "+STR$(!max/F*100)+"% minimum "+STR$(!min/F*100)+"%"
52010PROCrewind:IFinfo% PRINTrange$
52020ENDIF
52030IFhist% ORequal% THEN
52040IFequal% IFinfo% PRINT"Scanning data to compute parameters for '-equal'"
52050IForder% THEN
52060FORyr%=0TOsy%-1:SYShour%,yr%*100DIVsy%
52070W%=EVAL(r$+"(xp%())"):CALLhisto%,xp%(1,0),vals%(0,0),sx%
52080NEXT
52090ELSE
52100ysamp%=1:FORyr%=0TOy%-1:SYShour%,yr%*100DIVy%
52110PROCscaledpixelrow(cl%()):CALLhisto%,cl%(1,0),vals%(0,0),x%
52120NEXT
52130ENDIF
52140IFinfo% PRINT"Done. Now processing the picture"
52150ENDIF
52160IFinput<400 THEN
52170FORC%=0TOcolourindex
52180IFr%(C%)<0 r%(C%)=0
52190IFg%(C%)<0 g%(C%)=0
52200IFb%(C%)<0 b%(C%)=0
52210IFr%(C%)>rmax r%(C%)=rmax
52220IFg%(C%)>gmax g%(C%)=gmax
52230IFb%(C%)>bmax b%(C%)=bmax
52240NEXT
52250ENDIF
52260IFhist% THEN
52270M%=0:ZM%=-1:FORC%=0TOcol
52280FORZ%=0TO256:IFvals%(Z%,C%)>M% M%=vals%(Z%,C%):ZM%=Z%
52290NEXT:NEXT
52300IFZM%=-1 OR okinfo%=0 THEN=100
52310IF col>0 THEN
52320MODE66:ht=500
52330IFMODE<>66 MODE16:ht=400
52340LINE0,6,2000,6
52350ELSE
52360MODE18:ht=400:LINE0,6,1024,6
52370ENDIF
52380M=M%/(ht*2-8):FORC%=0TOcol:CASE C% OF
52390WHEN 0:GCOL1
52400WHEN 1:GCOL2
52410WHEN 2:GCOL4
52420ENDCASE
52430IF col>0 THEN
52440FORZ%=0TO256:IFvals%(Z%,C%) X%=Z%*3+C%<<1:LINEX%,8,X%,vals%(Z%,C%)/M+8
52450NEXT
52460ELSE
52470FORZ%=0TO256:IFvals%(Z%,C%) X%=Z%<<2:RECTANGLE FILLX%,8,2,vals%(Z%,C%)/M
52480NEXT
52490ENDIF
52500NEXT
52510PROCclose:SYS"Hourglass_Off"
52520=100
52530ENDIF
52540IFm>=0 oname$="p"+STR$m+m$ ELSEoname$=m$
52550IFm=-6 ORm=-7 ORm=-8 oname$=pnm$
52560IFrange% oname$+="r"
52570IFequal% oname$+="e"
52580IFsharpen% oname$+="s"+STR$sharpen%
52590IFblack% oname$+="b"+STR$black%
52600IFgamma<>1 A%=@%:@%=&1020100:oname$+="g"+STR$gamma:@%=A%
52610IFbright%=16 oname$+="b"
52620xsp%=x%:ysp%=y%:IFrotate% SWAP xsp%,ysp%
52630IF rotate% OR hflip% OR vflip% IFm=-9 OR m=-10 THENm-=2
52640IFm=-9ORm=-10 THEN
52650DIM jpq%(20)
52660jpq%()=60,75,90,105,120,135,150,160,170,180,190,205,215,235,255,280,320,380,500,750,850
52670ENDIF
52680CASE m OF
52690WHEN -1:xwords%=xsp%:sz%=xwords%*ysp%:Y%=ysp%
52700PROCgetoutput(sz%,0,xwords%,Y%):base%=ram%
52710WHEN -3,-5:xwords%=xsp%*2:sz%=xwords%*ysp%:Y%=ysp%
52720PROCgetoutput(sz%,0,xwords%,Y%):base%=ram%
52730WHEN -4:xwords%=xsp%*3:sz%=xwords%*ysp%:Y%=ysp%
52740PROCgetoutput(sz%,0,xwords%,Y%):base%=ram%
52750WHEN -6:xwords%=xsp%*2+3ANDNOT3:sz%=xwords%*ysp%:Y%=ysp%
52760A%=Y%:PROCgetoutput(sz%,64,xwords%,Y%)
52770ram%!4=0:ram%!8=16:ram%!12=16:SYS&2e,&109,ram%
52780SYS&2e,&10f,ram%,oname$,0,xsp%*2,Y%,28
52790base%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
52800ram%!12=ram%!12-Y%*xwords%+A%*xwords%
52810base%!(10*4)=5<<27 OR nx<<1 OR ny<<14 OR 1:base%+=base%!(8*4)
52820WHEN -7:xwords%=xsp%*3+3ANDNOT3:sz%=xwords%*ysp%:Y%=ysp%
52830A%=Y%:PROCgetoutput(sz%,64,xwords%,Y%)
52840ram%!4=0:ram%!8=16:ram%!12=16:SYS&2e,&109,ram%
52850SYS&2e,&10f,ram%,oname$,0,xsp%*3,Y%,28
52860base%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
52870ram%!12=ram%!12-Y%*xwords%+A%*xwords%
52880base%!(10*4)=panic<<27 OR nx<<1 OR ny<<14 OR 1:base%+=base%!(8*4)
52890no magic number yet for new format 24bpp sprites
52900WHEN -8:xwords%=xsp%*4:sz%=xwords%*ysp%:Y%=ysp%
52910A%=Y%:PROCgetoutput(sz%,64,xwords%,Y%)
52920ram%!4=0:ram%!8=16:ram%!12=16:SYS&2e,&109,ram%
52930SYS&2e,&10f,ram%,oname$,0,xsp%*4,Y%,28
52940base%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
52950ram%!12=ram%!12-Y%*xwords%+A%*xwords%
52960base%!(10*4)=6<<27 OR nx<<1 OR ny<<14 OR 1:base%+=base%!(8*4)
52970WHEN -9:xwords%=xsp%+3ANDNOT3:sz%=(xsp%+7ANDNOT7)*(ysp%+7ANDNOT7):Y%=ysp%
52980sz%=sz%*jpq%(jpegquality%DIV5)/588+1024
52990jpegwrk%=FNdim((xsp%+7ANDNOT7)*9+20000)
53000base%=FNdim(xwords%)
53010PROCgetoutputjp(sz%)
53020!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=1:ram%!16=90:ram%!20=90
53030SYS"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+7ANDNOT7)*9+20000 TO jpegtag%
53040WHEN -10:xwords%=xsp%*3+3ANDNOT3:sz%=(xsp%+15ANDNOT15)*(ysp%+15ANDNOT15)*12/8:Y%=ysp%
53050sz%=sz%*jpq%(jpegquality%DIV5)/588+1024
53060jpegwrk%=FNdim((xsp%+15ANDNOT15)*30+20000)
53070base%=FNdim(xwords%)
53080PROCgetoutputjp(sz%)
53090!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=3:ram%!16=90:ram%!20=90
53100SYS"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+15ANDNOT15)*30+20000 TO jpegtag%
53110WHEN -11:xwords%=xsp%:sz%=xwords%*ysp%+20000:Y%=ysp%
53120jpegwrk%=FNdim((xsp%+7ANDNOT7)*9+20000)
53130PROCgetoutput(sz%,0,xwords%,Y%):base%=ram%+20000
53140WHEN -12:xwords%=xsp%*3:sz%=xwords%*ysp%+20000:Y%=ysp%
53150jpegwrk%=FNdim((xsp%+15ANDNOT15)*30+20000)
53160PROCgetoutput(sz%,0,xwords%,Y%):base%=ram%+20000
53170OTHERWISE:xwords%=xsp%/size%+3.9999ANDNOT3:sz%=xwords%*ysp%:X%=xsp%:Y%=ysp%
53180IFncol=1 THEN
53190CASE m$ OF
53200WHEN"C":!rowinc=xwords%:xwords%=xwords%*4:sz%=xwords%*ysp%:X%=xsp%*4:Y%=ysp%*4
53210WHEN"T":!rowinc=xwords%:xwords%=xwords%*3:sz%=xwords%*ysp%:X%=xsp%*4:Y%=ysp%*3
53220WHEN"D":!rowinc=xwords%:xwords%=xwords%*2:sz%=xwords%*ysp%:X%=xsp%*2:Y%=ysp%*2
53230ENDCASE
53240ENDIF
53250A%=Y%:PROCgetoutput(sz%,2048+64,xwords%,Y%)
53260ram%!4=0:ram%!8=16:ram%!12=16:SYS&2e,&109,ram%
53270SYS&2e,&10f,ram%,oname$,(ncol<63)AND1,X%,Y%,spm
53280base%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
53290ram%!12=ram%!12-Y%*xwords%+A%*xwords%
53300pal%=base%+11*4:base%+=base%!(8*4)
53310CASE ncol OF
53320WHEN 256
53330!(pal%-8)+=2048:!(pal%-12)+=2048:base%+=2048:!(ram%+12)+=2048:!(pal%-44)+=2048
53340FORZ%=0TO255:B%=Z%ORZ%<<8ORZ%<<16:B%=B%<<8
53350pal%!(Z%*8)=B%:pal%!(Z%*8+4)=B%:NEXT
53360WHEN 255
53370!(pal%-8)+=2048:!(pal%-12)+=2048:base%+=2048:!(ram%+12)+=2048:!(pal%-44)+=2048
53380FORZ%=0TO255:B%=palette%!(Z%<<2)<<8
53390pal%!(Z%*8)=B%:pal%!(Z%*8+4)=B%:NEXT
53400WHEN 15
53410CASE m$ OF
53420WHEN "R"
53430FORZ%=0TO15:PROCcol(Z%,palette%!(Z%<<2)AND&F0F0F0):NEXT
53440WHEN "D"
53450FORZ%=0TO7:A%=0:IFZ%AND1 A%+=&F0
53460IFZ%AND2 A%+=&F000
53470IFZ%AND4 A%+=&F00000
53480PROCcol(Z%,A%):NEXT
53490WHEN "T"
53500FORZ%=0TO15:A%=Z%<<4:PROCcol(Z%,A%ORA%<<8ORA%<<16):NEXT
53510OTHERWISE
53520FORZ%=0TO15:A%=(Z%AND7)/7*15+.2<<4:PROCcol(Z%,A%ORA%<<8ORA%<<16):NEXT
53530ENDCASE
53540WHEN 3
53550CASEm$ OF
53560WHEN "C"
53570PROCcol(0,0):PROCcol(1,&F0F000):PROCcol(2,&F000F0):PROCcol(3,&F0F0)
53580WHEN "R"
53590FORZ%=0TO3:PROCcol(Z%,palette%!(Z%<<2)AND&F0F0F0):NEXT
53600OTHERWISE
53610FORZ%=0TO3:A%=Z%*5<<4:PROCcol(Z%,A%ORA%<<8ORA%<<16):NEXT
53620ENDCASE
53630WHEN 1:PROCcol(0,0):PROCcol(1,&F0F0F0)
53640ENDCASE
53650ENDCASE
53670IFflex% THEN
53690ELSE
53700IFworkspace%<0 THEN
53710P%=END:[OPT 0:STR r13,P%+16:MOVS Pc,r14:]:CALLEND
53720END=END+32*1024+HIMEM-!(END+16)
53730ELSE
53750ENDIF
53760ENDIF
53770IFbase%*size%>2^32 ERROR 42,"base%*size% product too large"
53780LOCAL ERROR
53790ON ERROR LOCAL:RESTORE ERROR:PROCSave:ERROR ERR,REPORT$+" internal ("+STR$ERL+")"
53800SYS"Hourglass_LEDs",3
53810ysamp%=1:nl%()=0:step%=4*(col+1)
53820addr%=base%<<sizeshft%:rowstep%=xwords%*size%:colstep%=1:dist%=xsp%-1
53830IFm=-3ORm=-5ORm=-6 dist%=dist%*2
53840IFm=-4ORm=-7ORm=-10ORm=-12 dist%=dist%*3
53850IFm=-8 dist%=dist%*4
53860IFrotate% THEN
53870odist%=dist%:SWAP colstep%,rowstep%:SWAP hflip%,vflip%
53880IFrotate%=1 THEN
53890addr%+=(ysp%-1)*colstep%:colstep%=-colstep%:dist%=(ysp%-1)*colstep%
53900ELSE
53910addr%+=dist%:rowstep%=-rowstep%:dist%=(ysp%-1)*colstep%
53920ENDIF
53930IFm=-3ORm=-5ORm=-6 colstep%=colstep%/2:rowstep%=rowstep%*2
53940IFm=-4ORm=-7ORm=-10ORm=-12 colstep%=colstep%/3:rowstep%=rowstep%*3
53950IFm=-8 colstep%=colstep%/4:rowstep%=rowstep%*4
53960ENDIF
53970IFhflip% THEN
53980addr%+=dist%:dist%=-dist%:colstep%=-colstep%
53990ENDIF
54000IFvflip% THEN
54010IFrotate% THEN
54020addr%+=odist%*rotate%:rowstep%=-rowstep%
54030ELSE
54040addr%+=(ysp%-1)*rowstep%:rowstep%=-rowstep%
54050ENDIF
54060ENDIF
54070outlim%=((base%+xwords%*Y%)<<sizeshft%)-1:oddcolstep%=-colstep%:oddstep%=-step%
54080IForder% PROCadjustpalette(1/ydiv%/xdiv%,0)
54090IFm=-9ORm=-10 THEN
54100SYS "OS_SWINumberFromString",,"CompressJPEG_WriteLine" TO wl%
54110IFsy%=y% AND sx%=x% AND range%=FALSE AND sharpen%=FALSE AND equal%=FALSE THEN
54120IFdither% THEN
54130FORyr%=0 TO y%-1:SYShour%,yr%*100DIVy%
54140W%=EVAL(r$+"(cl%())"):cl%()=cl%()+nl%():nl%()=0:B%=x%
54150IFyr%AND1 THEN
54160CALLfs%,colstep%,cl%(1,0),nl%(1,0),addr%,step%,B%
54170ELSE
54180A%=addr%+dist%:CALLfs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
54190ENDIF
54200SYSwl%,jpegtag%,addr%
54210NEXT
54220ELSE
54230I%=step%:FORyr%=0TOy%-1:SYShour%,yr%*100DIVy%:IFaddr%>outlim% PROCflushoutput
54240W%=EVAL(r$+"(cl%())"):B%=x%:CALLfs%,colstep%,cl%(1,0),I%,addr%,I%,B%
54250SYSwl%,jpegtag%,addr%
54260NEXT
54270ENDIF
54280ELSE
54290IFequal% THEN
54300PROCrewind:Havg%=SUM(vals%())/256/(col+1):DIM new%(256,col)
54310FORB%=0TOcol:R%=0:Hint%=0:FORZ%=0TO256:L%=R%:Hint%+=vals%(Z%,B%)
54320WHILEHint%>Havg%:Hint%-=Havg%:R%+=1:ENDWHILE
54330new%(Z%,B%)=(L%+R%)/2*F/256
54340NEXT:NEXT
54350ENDIF
54360IFsharpen% THEN
54370IForder% THEN
54380yread%=sy%-1:W%=EVAL(r$+"(rm1%())"):IFequal% PROCfit2(rm1%())
54390FORB%=0TOcol:rm1%(0,B%)=rm1%(1,B%):rm1%(sx%+1,B%)=rm1%(sx%,B%):NEXT
54400ELSE
54410yread%=y%-1:PROCscaledpixelrow(rm1%()):IFequal% PROCfit(rm1%())
54420FORB%=0TOcol:rm1%(0,B%)=rm1%(1,B%):rm1%(x%+1,B%)=rm1%(x%,B%):NEXT
54430ENDIF
54440rm2%()=rm1%()
54450ENDIF
54460IForder% THEN
54470FORyr%=0 TO y%-1
54480SYShour%,yr%*100DIVy%:IFaddr%>outlim% PROCflushoutput
54490IFsy%=y% THEN
54500PROCsharppixelrow(cl%())
54510ELSE
54520ysamp%-=1:IFysamp%=0 PROCsharppixelrow(xl%()):ysamp%=ymul%
54530IFydiv%=1 THEN
54540cl%()=xl%()
54550ELSE
54560IFysamp%>=ydiv% THEN
54570ysamp%-=ydiv%:cl%()=xl%()*ydiv%
54580ELSE
54590cl%()=xl%()*ysamp%:Y%=ydiv%-ysamp%:ysamp%=0
54600REPEAT
54610IFysamp%=0 PROCsharppixelrow(xl%()):ysamp%=ymul%
54620IFysamp%>Y% THEN
54630ysamp%-=Y%:xl2%()=xl%()*Y%:cl%()=cl%()+xl2%():Y%=0
54640ELSE
54650Y%-=ysamp%:xl2%()=xl%()*ysamp%:cl%()=cl%()+xl2%():ysamp%=0
54660ENDIF
54670UNTIL Y%=0
54680ENDIF
54690ysamp%+=1
54700ENDIF
54710ENDIF
54720cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%+dist%
54730IFyr%AND1 THEN
54740CALLfs%,colstep%,cl%(1,0),nl%(1,0),addr%,step%,B%
54750ELSE
54760CALLfs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
54770ENDIF
54780SYSwl%,jpegtag%,addr%
54790NEXT
54800ELSE
54810FORyr%=0 TO y%-1
54820SYShour%,yr%*100DIVy%:IFaddr%>outlim% PROCflushoutput
54830IFsharpen% THEN
54840IFyread% yread%-=1:PROCscaledpixelrow(rm%()):IFequal% PROCfit(rm%())
54850FORB%=0TOcol:rm%(0,B%)=rm%(1,B%):rm%(x%+1,B%)=rm%(x%,B%):NEXT
54860CALL sharp%,cl%(1,0),rm%(1,0),rm1%(1,0),rm2%(1,0),totvals%
54870SWAP rm2%(),rm1%():rm1%()=rm%()
54880ELSE
54890PROCscaledpixelrow(cl%()):IFequal% PROCfit(cl%())
54900ENDIF
54910cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%+dist%
54920IFyr%AND1 THEN
54930CALLfs%,colstep%,cl%(1,0),nl%(1,0),addr%,step%,B%
54940ELSE
54950CALLfs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
54960ENDIF
54970SYSwl%,jpegtag%,addr%
54980NEXT
54990ENDIF
55000ENDIF
55010SYS"CompressJPEG_Finish",jpegtag% TO jpegsize%
55020ELSE
55030IFsy%=y% AND sx%=x% AND range%=FALSE AND sharpen%=FALSE AND equal%=FALSE THEN
55040IFdither% THEN
55050FORyr%=0 TO y%-1:SYShour%,yr%*100DIVy%:IFaddr%>outlim% PROCflushoutput
55060W%=EVAL(r$+"(cl%())"):cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%:addr%+=rowstep%
55070IFyr%AND1 THEN
55080CALLfs%,colstep%,cl%(1,0),nl%(1,0),A%,step%,B%
55090ELSE
55100A%+=dist%:CALLfs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
55110ENDIF
55120NEXT
55130ELSE
55140I%=step%:FORyr%=0TOy%-1:SYShour%,yr%*100DIVy%:IFaddr%>outlim% PROCflushoutput
55150W%=EVAL(r$+"(cl%())"):B%=x%:A%=addr%:addr%+=rowstep%:CALLfs%,colstep%,cl%(1,0),I%,A%,I%,B%
55160NEXT
55170ENDIF
55180ELSE
55190IFequal% THEN
55200PROCrewind:Havg%=SUM(vals%())/256/(col+1):DIM new%(256,col)
55210FORB%=0TOcol:R%=0:Hint%=0:FORZ%=0TO256:L%=R%:Hint%+=vals%(Z%,B%)
55220WHILEHint%>Havg%:Hint%-=Havg%:R%+=1:ENDWHILE
55230new%(Z%,B%)=(L%+R%)/2*F/256
55240NEXT:NEXT
55250ENDIF
55260IFsharpen% THEN
55270IForder% THEN
55280yread%=sy%-1:W%=EVAL(r$+"(rm1%())"):IFequal% PROCfit2(rm1%())
55290FORB%=0TOcol:rm1%(0,B%)=rm1%(1,B%):rm1%(sx%+1,B%)=rm1%(sx%,B%):NEXT
55300ELSE
55310yread%=y%-1:PROCscaledpixelrow(rm1%()):IFequal% PROCfit(rm1%())
55320FORB%=0TOcol:rm1%(0,B%)=rm1%(1,B%):rm1%(x%+1,B%)=rm1%(x%,B%):NEXT
55330ENDIF
55340rm2%()=rm1%()
55350ENDIF
55360IForder% THEN
55370FORyr%=0 TO y%-1
55380SYShour%,yr%*100DIVy%:IFaddr%>outlim% PROCflushoutput
55390IFsy%=y% THEN
55400PROCsharppixelrow(cl%())
55410ELSE
55420ysamp%-=1:IFysamp%=0 PROCsharppixelrow(xl%()):ysamp%=ymul%
55430IFydiv%=1 THEN
55440cl%()=xl%()
55450ELSE
55460IFysamp%>=ydiv% THEN
55470ysamp%-=ydiv%:cl%()=xl%()*ydiv%
55480ELSE
55490cl%()=xl%()*ysamp%:Y%=ydiv%-ysamp%:ysamp%=0
55500REPEAT
55510IFysamp%=0 PROCsharppixelrow(xl%()):ysamp%=ymul%
55520IFysamp%>Y% THEN
55530ysamp%-=Y%:xl2%()=xl%()*Y%:cl%()=cl%()+xl2%():Y%=0
55540ELSE
55550Y%-=ysamp%:xl2%()=xl%()*ysamp%:cl%()=cl%()+xl2%():ysamp%=0
55560ENDIF
55570UNTIL Y%=0
55580ENDIF
55590ysamp%+=1
55600ENDIF
55610ENDIF
55620cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%:addr%+=rowstep%
55630IFyr%AND1 THEN
55640CALLfs%,colstep%,cl%(1,0),nl%(1,0),A%,step%,B%
55650ELSE
55660A%+=dist%:CALLfs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
55670ENDIF
55680NEXT
55690ELSE
55700FORyr%=0 TO y%-1
55710SYShour%,yr%*100DIVy%:IFaddr%>outlim% PROCflushoutput
55720IFsharpen% THEN
55730IFyread% yread%-=1:PROCscaledpixelrow(rm%()):IFequal% PROCfit(rm%())
55740FORB%=0TOcol:rm%(0,B%)=rm%(1,B%):rm%(x%+1,B%)=rm%(x%,B%):NEXT
55750CALL sharp%,cl%(1,0),rm%(1,0),rm1%(1,0),rm2%(1,0),totvals%
55760SWAP rm2%(),rm1%():rm1%()=rm%()
55770ELSE
55780PROCscaledpixelrow(cl%()):IFequal% PROCfit(cl%())
55790ENDIF
55800cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%:addr%+=rowstep%
55810IFyr%AND1 THEN
55820CALLfs%,colstep%,cl%(1,0),nl%(1,0),A%,step%,B%
55830ELSE
55840A%+=dist%:CALLfs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
55850ENDIF
55860NEXT
55870ENDIF
55880ENDIF
55890IFm=-11ORm=-12 THEN
55900SYS "OS_SWINumberFromString",,"CompressJPEG_WriteLine" TO wl%
55910IFm=-11 THEN
55920!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=1:ram%!16=90:ram%!20=90
55930SYS"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+7ANDNOT7)*9+20000 TO jpegtag%
55940ELSE
55950!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=3:ram%!16=90:ram%!20=90
55960SYS"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+15ANDNOT15)*30+20000 TO jpegtag%
55970ENDIF
55980addr%=ram%+20000
55990FORyr%=0TOysp%-1
56000SYShour%,yr%*100DIVysp%:SYSwl%,jpegtag%,addr%:addr%+=xwords%
56010NEXT
56020SYS"CompressJPEG_Finish",jpegtag% TO jpegsize%
56030ENDIF
56040ENDIF
56050cputime%=TIME-cputime%
56060PROCSave
56070=0
56080DEF PROCsrchdevlist
56090[OPT Z
56120CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
56130MOV R0,R4,LSR #(bits-k%):CMP R0,#1<<k%:MOVCS R0,#(1<<k%)-1
56140CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
56150MOV R3,R5,LSR #(bits-k%):CMP R3,#1<<k%:MOVCS R3,#(1<<k%)-1:ORR R0,R0,R3,LSL #k%
56160CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
56170MOV R3,R6,LSR #(bits-k%):CMP R3,#1<<k%:MOVCS R3,#(1<<k%)-1:ORR R0,R0,R3,LSL #k%*2
56200STMFD SP !,{R8,R9,R10,R11}
56210LDR r3,ictloc
56220LDR r2,[r3,r0,LSL #2]
56240MOV r14,r2,lsr #24
56250CMP r14,#4
56260ADDCC r2,r3,r0,lsl #2
56270BICCS r2,r2,#&ff000000
56280LDRB r0,[r2],#1
56290SUBS r14,r14,#1
56300BEQ gotit
56320ADD r3,r0,r0,lsl #1
56330ADD r3,r7,r3,lsl #2
56340LDMIA r3,{r8,r9,r10}
56350SUBS r8,r8,r4
56360RSBMI r8,r8,#0
56370MOV r8,r8,lsr #bits/2
56380SUBS r9,r9,r5
56390RSBMI r9,r9,#0
56400MOV r9,r9,lsr #bits/2
56410SUBS r10,r10,r6
56420RSBMI r10,r10,#0
56430MOV r10,r10,lsr #bits/2
56440MUL r3,r8,r8
56450MUL r11,r9,r9
56460ADD r11,r11,r11,LSL #2
56470ADD r3,r3,r3,LSL #1
56480ADD r3,r3,r11,LSL #1
56490MLA r11,r10,r10,r3
56510.srchlist
56520LDRB r3,[r2],#1
56530ADD R8,R3,R3,LSL #1
56540ADD R8,R7,R8,LSL #2
56550LDMIA R8,{R8,R9,R10}
56560SUBS R9,R5,R9
56570RSBMI R9,R9,#0
56580MOV R3,R9,LSR #bits/2
56590MUL R9,R3,R3
56600ADD r9,r9,r9,LSL #2
56610CMP R11,R9,LSL #1
56620BCC srchquick
56630SUBS R8,R4,R8
56640RSBMI R8,R8,#0
56650MOV R3,R8,LSR #bits/2
56660MUL R8,r3,r3
56670ADD r8,r8,r8,LSL #1
56680ADD r8,r8,r9,LSL #1
56690SUBS R10,R6,R10
56700RSBMI R10,R10,#0
56710MOV R3,R10,LSR #bits/2
56720MLA R10,R3,R3,R8
56730CMP R10,R11
56740MOVCC R11,R10
56750LDRCCB R0,[r2,#-1]
56760.srchquick
56770SUBS R14,R14,#1
56780BNE srchlist
56790.gotit
56800ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
56810LDMIA R3,{R8,R9,R10}
56820SUB R4,R4,R8:SUB R5,R5,R9:SUB R6,R6,R10
56830LDMFD r13!,{R8,R9,R10,R11}
56840]
56850ENDPROC
56860DEF PROCgetoutput(A%,E%,B%,RETURN C%)
56870IFA%>max% AND rotate%=FALSE AND vflip%=FALSE THEN
56880C%=max%DIVB%+1:A%=xwords%*C%+E%:first%=TRUE:o%=OPENOUTf$
56890ELSE
56900A%+=E%
56910ENDIF
56920IFspritearea%<0 THEN
56930ram%=FNcreatearea(A%):IFram%=-1 ram%=FNdim(A%)
56940ELSE
56950ram%=spritearea%
56960ENDIF
56970!ram%=A%
56980ENDPROC
57000DEF PROCgetoutputjp(RETURN A%)
57020IFspritearea%<0 THEN
57030ram%=FNcreateareajp(A%):IFram%=-1 ram%=FNdimjp(A%)
57040ELSE
57050ram%=spritearea%
57060ENDIF
57070!ram%=A%
57090ENDPROC
57110DEF FNcreatearea(size%)
57120LOCAL ERROR
57130areanumber%=0
57140ON ERROR LOCAL:=-1
57150SYS &20066,0,-1,size%,-1,%10000000,size%,0,0,"ChangeFSI sprite" TO ,areanumber%,,areabase%;V%
57160IFV%AND1 THENareanumber%=0:=-1
57220SYS "OS_ReadDynamicArea",areanumber% TO ,areasize%
57230IF areasize%<size% PROCremovearea:ERROR 42,"Couldn't create area"
57240=areabase%
57260DEF FNcreateareajp(RETURN size%)
57270LOCAL ERROR
57280areanumber%=0
57290ON ERROR LOCAL:=-1
57300SYS &20066,0,-1,size%,-1,%10000000,size%,0,0,"ChangeFSI JPEG" TO ,areanumber%,,areabase%;V%
57310IFV%AND1 THENareanumber%=0:=-1
57320SYS "OS_ReadDynamicArea",areanumber% TO ,areasize%:size%=areasize%
57330=areabase%
57350DEF PROCremovearea
57360IFareanumber% SYS "OS_DynamicArea",1,areanumber%:areanumber%=0
57370ENDPROC
57390DEF FNcachedim(size%)
57400LOCAL ERROR
57410cacheareanumber%=0
57420ON ERROR LOCAL:=-1
57430SYS &20066,0,-1,size%,-1,%10000000,size%,0,0,"ChangeFSI cache" TO ,cacheareanumber%,,cacheareabase%;V%
57440IFV%AND1 THENcacheareanumber%=0:=-1
57450SYS "OS_ReadDynamicArea",cacheareanumber% TO ,cacheareasize%
57460IF cacheareasize%<size% PROCremovecachearea:ERROR 42,"Couldn't create area"
57470=cacheareabase%
57490DEF PROCremovecachearea
57500IFcacheareanumber% SYS "OS_DynamicArea",1,cacheareanumber%:cacheareanumber%=0
57510ENDPROC
57530DEF PROCflushoutput
57540IFspritearea%<0 ANDoksave% THEN
57550A%=base%:IFfirst% A%=ram%+4:first%=FALSE
57560SYS12,2,o%,A%,addr%DIVsize%-A%
57570ENDIF
57580addr%=base%*size%
57590ENDPROC
57600DEF PROCclose
57610IFc% IFflag=3600 SYS"PhotoCD_Close",pcdh%,1
57620IFc% CLOSE#c%:c%=0:IFscrapf% scrapf%=FALSE:OSCLI"Remove <Wimp$Scrap>"
57630IFcc% CLOSE#cc%:cc%=0
57640IFccc% CLOSE#ccc%:ccc%=0
57650PROCremovecachearea
57660ENDPROC
57670DEF PROCSave
57680PROCclose
57690CASE m OF
57700WHEN -1:IFspritearea%<0 ANDoksave% THEN
57710IFo% PROCflushoutput ELSESYS"OS_File",10,f$,&004,,ram%,ram%+sz%
57720ENDIF
57730WHEN -2:o%=OPENOUTf$:BPUT#o%,pnm$
57740CASE pnm$ OF
57750WHEN "P1"
57760BPUT#o%,"# "+f$+".pbm (options "+oname$+")"
57770BPUT#o%,STR$xsp%+" "+STR$ysp%
57780FORY%=0TOysp%-1:B%=base%+Y%*xwords%
57790FORX%=0TOxsp%-1:IFB%?(X%>>3)AND(1<<(X%AND7)) BPUT#o%,"1"; ELSEBPUT#o%,"0";
57800NEXT
57810BPUT#o%,""
57820NEXT
57830WHEN "P4"
57840BPUT#o%,"# "+f$+".pbm (options "+oname$+") binary encoded"
57850BPUT#o%,STR$xsp%+" "+STR$ysp%
57860FORX%=0TO255:code%?X%=X%<<7 OR X%<<5AND&40 OR X%<<3AND&20 OR X%<<1AND&10 OR X%>>1AND8 OR X%>>3AND4 ORX%>>5AND2 ORX%>>7:NEXT
57870FORY%=0TOysp%-1:B%=base%+Y%*xwords%
57880FORX%=0TOxsp%-1STEP8:BPUT#o%,code%?(B%?(X%>>3)):NEXT
57890NEXT
57900WHEN "P2"
57910BPUT#o%,"# "+f$+".pgm (options "+oname$+")"
57920BPUT#o%,STR$xsp%+" "+STR$ysp%
57930BPUT#o%,"15"
57940FORY%=0TOysp%-1:B%=base%+Y%*xwords%
57950FORX%=0TOxsp%-1:C%=B%?(X%>>1):IFX%AND1 C%=C%>>4 ELSEC%=C%AND15
57960BPUT#o%," "+STR$C%;
57970NEXT
57980BPUT#o%,""
57990NEXT
58000WHEN "P5"
58010BPUT#o%,"# "+f$+".pgm (options "+oname$+") binary encoded"
58020BPUT#o%,STR$xsp%+" "+STR$ysp%
58030BPUT#o%,"15"
58040FORY%=0TOysp%-1:B%=base%+Y%*xwords%
58050FORX%=0TOxsp%-1:C%=B%?(X%>>1):IFX%AND1 C%=C%>>4 ELSEC%=C%AND15
58060BPUT#o%,C%
58070NEXT
58080NEXT
58090ENDCASE
58100CLOSE#o%:o%=0
58110IFpnm$="P2"ORpnm$="P1" OSCLI"Settype "+f$+" &FFF"
58120WHEN -3:o%=OPENOUTf$:BPUT#o%,pnm$
58130BPUT#o%,"# "+f$+".pcm (options "+oname$+") binary encoded 15bpp (5bits r,g,b)"
58140BPUT#o%,STR$xsp%+" "+STR$ysp%
58150BPUT#o%,"31"
58160SYS12,2,o%,ram%,xsp%*ysp%*2
58170CLOSE#o%:o%=0
58180WHEN -4:o%=OPENOUTf$:IFpnm$="IRLAM"THEN
58190BPUT#o%,"Irlam 24: "+STR$xsp%+" "+STR$ysp%
58200FORY%=0TOysp%-1:B%=ram%+Y%*xwords%
58210FORX%=0TOxsp%*3-1STEP3:BPUT#o%,B%?X%:NEXT
58220B%+=1:FORX%=0TOxsp%*3-1STEP3:BPUT#o%,B%?X%:NEXT
58230B%+=1:FORX%=0TOxsp%*3-1STEP3:BPUT#o%,B%?X%:NEXT
58240NEXT
58250ELSE
58260BPUT#o%,pnm$
58270IFpnm$="P6" THEN
58280BPUT#o%,"# "+f$+".ppm (options "+oname$+") binary encoded 24bpp r,g,b"
58290ELSE
58300BPUT#o%,"# "+f$+".ppm (options "+oname$+") "+STR$(p6bits*3)+"bpp r,g,b"
58310ENDIF
58320BPUT#o%,STR$xsp%+" "+STR$ysp%
58330BPUT#o%,STR$(2^p6bits-1)
58340IFpnm$="P6" THEN
58350SYS12,2,o%,ram%,xsp%*ysp%*3
58360ELSE
58370FORY%=0TOysp%-1:B%=ram%+Y%*xwords%
58380FORX%=0TOxsp%-1:C%=B%!(X%*3):BPUT#o%," "+STR$(C%AND255)+" "+STR$((C%>>8)AND&FF)+" "+STR$((C%>>16)AND255);
58390NEXT
58400BPUT#o%,""
58410NEXT
58420ENDIF
58430ENDIF
58440CLOSE#o%:o%=0
58450IFpnm$="P3" OSCLI"Settype "+f$+" &FFF"
58460WHEN -5:o%=OPENOUTf$:BPUT#o%,pnm$
58470BPUT#o%,"# "+f$+".pcm (options "+oname$+") binary encoded 15bpp (5bits y,u,v)"
58480BPUT#o%,STR$xsp%+" "+STR$ysp%
58490BPUT#o%,"31 27 21"
58500SYS12,2,o%,ram%,xsp%*ysp%*2
58510CLOSE#o%:o%=0
58520WHEN -9,-10,-11,-12
58530IFspritearea%<0 ANDoksave% SYS8,10,f$,&c85,,ram%,ram%+jpegsize%
58540OTHERWISE
58550IFncol=1ANDm$="T" THEN
58560FORX%=(xsp%*4-1)DIV8*8+6TO6STEP-8
58570SYS&2e,&12e,ram%,oname$,X%
58580SYS&2e,&12e,ram%,oname$,X%
58590NEXT
58600ENDIF
58610IFspritearea%<0 ANDoksave% THEN
58620IFo% PROCflushoutput ELSESYS&2e,&10c,ram%,f$
58630ENDIF
58640ENDCASE
58650IFo% CLOSE#o%:o%=0:OSCLI"settype "+f$+" &ff9":PROCremovearea
58660SYS"Hourglass_Off"
58670ENDPROC
58680DEFPROCdefpal
58690FORC%=0TO255
58700r%(C%)=(C%AND7 OR (C%AND16)>>1)/15*F
58710g%(C%)=(C%AND3 OR (C%AND&60)>>3)/15*F
58720b%(C%)=(C%AND3 OR (C%AND8)>>1 OR (C%AND128)>>4)/15*F
58730NEXT
58740ENDPROC
58750DEFPROCdefpal2
58760r%(0)=F:g%(0)=F:b%(0)=F
58770ENDPROC
58780DEFPROCdefpal4
58790r%()=15,10,5,0:FORC%=0TO3:r%(C%)=r%(C%)/15*F:NEXT
58800g%()=r%():b%()=r%()
58810ENDPROC
58820DEFPROCdefpal16
58830r%()=15,13,11,9,7,5,3,0,0,14, 0,13,14,5,15, 0
58840g%()=15,13,11,9,7,5,3,0,4,14,12, 0,14,8,11,10
58850b%()=15,13,11,9,7,5,3,0,9, 0, 0, 0,11,0, 0,15
58860FORC%=0TO15:r%(C%)=r%(C%)/15*F:g%(C%)=g%(C%)/15*F:b%(C%)=b%(C%)/15*F:NEXT
58870ENDPROC
58880DEFPROCipal63
58890PTR#c%=&38:DIM rpal%(15),gpal%(15),bpal%(15)
58900FORC%=0TO15:D%=BGET#c%
58910rpal%(C%)=BGET#c%>>4 AND 7
58920gpal%(C%)=BGET#c%>>4 AND 3
58930bpal%(C%)=BGET#c%>>4 AND 7
58940D%=FNW:NEXT
58950FORC%=0TO255
58960r%(C%)=(rpal%(C%AND15)OR(C%AND16)>>1)/15*F
58970g%(C%)=(gpal%(C%AND15)OR(C%AND&60)>>3)/15*F
58980b%(C%)=(bpal%(C%AND15)OR(C%AND128)>>4)/15*F
58990NEXT
59000ENDPROC
59010DEFPROCipal(D%)
59020PTR#c%=&38
59030FORC%=0TOD%-1:D%=BGET#c%
59040r%(C%)=(BGET#c%>>4)/15*F
59050g%(C%)=(BGET#c%>>4)/15*F
59060b%(C%)=(BGET#c%>>4)/15*F
59070D%=FNW:NEXT
59080ENDPROC
59090DEF PROCnewropal(D%)
59100PTR#c%=&38
59110FORC%=0TOD%-1:D%=FNW
59120r%(C%)=(D%AND255)/255*F
59130g%(C%)=(D%>>8AND255)/255*F
59140b%(C%)=(D%>>16AND255)/255*F
59150D%=FNW:NEXT
59160ENDPROC
59170DEF PROCnopal
59180FORC%=0TO255:r%(C%)=C%/255*F:NEXT:g%()=r%():b%()=r%()
59190ENDPROC
59200DEF PROCcol(A%,B%)
59210B%=B%<<8ORB%<<4OR&10:pal%!(A%*8)=B%:pal%!(A%*8+4)=B%
59220ENDPROC
59230DEF FNbits(A%)
59240IFA%=1 THEN="1 bit per pixel" ELSE=STR$A%+" bits per pixel"
59250DEF FNfits
59260LOCALZ%,s$
59270FORZ%=1TO80:s$+=CHR$BGET#c%:NEXT
59280=s$
59290DEF FNuc(a$)
59300LOCALZ%,z$,b$
59310FORZ%=1TOLENa$
59320z$=MID$(a$,Z%,1)
59330IFz$>="a"IFz$<="z" z$=CHR$(ASCz$-32)
59340b$+=z$:NEXT
59350=b$
59360DEF FNdim(A%)
59370LOCAL B%
59380IFflex% THEN
59390B%=nextlocation%:A%=A%+3ANDNOT3:nextlocation%+=A%
59400SYS"Wimp_SlotSize",-1,-1 TO currentslot%
59410IFcurrentslot%+&8000<nextlocation% THEN
59420SYS "Wimp_SlotSize",nextlocation%-&8000,-1 TO currentslot%
59430IFcurrentslot%+&8000<nextlocation% ERROR 42,"Can't get enough memory to process image"
59440ENDIF
59450ELSE
59460IFworkspace%<0 THEN
59470DIM B% A%
59480ELSE
59490B%=workspace%:workspace%+=A%+3ANDNOT3:IFworkspace%>worklimit% ERROR42,"Not enough workspace"
59500ENDIF
59510ENDIF
59520=B%
59530DEF FNdimjp(RETURN A%)
59540LOCAL B%
59550IFflex% THEN
59560B%=nextlocation%:A%=A%+3ANDNOT3:nextlocation%+=A%
59570SYS"Wimp_SlotSize",-1,-1 TO currentslot%
59580IFcurrentslot%+&8000<nextlocation% THEN
59590SYS "Wimp_SlotSize",nextlocation%-&8000,-1 TO currentslot%
59600IFcurrentslot%+&8000<nextlocation% A%=currentslot%+&8000-B%
59610ENDIF
59620ELSE
59630IFworkspace%<0 THEN
59640DIM B% A%
59650ELSE
59660B%=workspace%:workspace%+=A%+3ANDNOT3:IFworkspace%>worklimit% ERROR42,"Not enough workspace"
59670ENDIF
59680ENDIF
59690=B%
59710DEF FNW=FNW1(c%)
59720DEF FNW1(c%)=BGET#c% OR BGET#c%<<8 OR BGET#c%<<16 OR BGET#c%<<24
59740DEF FNHW=BGET#c% OR BGET#c%<<8
59760DEF FNbeHW=BGET#c%<<8 OR BGET#c%
59780DEF FNbeW=BGET#c%<<24 OR BGET#c%<<16 OR BGET#c%<<8 OR BGET#c%
59800DEF FNtiff(T%)
59810CASE T% OF
59820WHEN 1,7:=BGET#c%
59830WHEN 2:LOCALs$,t$:REPEATs$+=t$:t$=CHR$BGET#c%:UNTILt$=CHR$0:=s$
59840WHEN 3:IFbigendian THEN=BGET#c%<<8 OR BGET#c% ELSE=BGET#c% OR BGET#c%<<8
59850WHEN 4,9:IFbigendian THEN=FNbeW ELSE=FNW1(c%)
59860WHEN 6:=(BGET#c%<<24)>>24
59870WHEN 8:=(FNtiff(3)<<16)>>16
59880ENDCASE
59890ERROR 42,"Silly TIFF tag:"+STR$T%
59900DEF PROCnextstrip
59910rowstogo%=striprows%
59920stripptr+=1:PTR#c%=st%(stripptr)
59930IFcompression=5 THEN
59940!firstcode=0:!oldcode=0:!codesize=setcodes%+1:!stack=stk%:!sp=stk%
59950!maxcode=clearcode%+2:!maxcodesize=2*clearcode%:!curbit=0:!lastbit=0
59960ENDIF
59970IFcompression=5 OR compression=32773 THEN
59980!incacheptr=datacache%:!numlefttogo=cache%
59990SYS12,4,c%,datacache%,cache%
60000ENDIF
60010ENDPROC
60020DEF PROCwatford(wtsx%,RETURN rep%,RETURN wt%,X%,c%)
60030CALLrlexpand%,wtsx%,rep%,wt%,X%
60040REPEAT C%=BGET#c%:CASE C%>>6 OF
60050WHEN 0:?X%=C%:X%+=1:wt%=C%
60060WHEN 1:wt%-=1:rep%=C%AND63:CALLrlexpand%,wtsx%,rep%,wt%,X%
60070WHEN 2:rep%=C%AND63:CALLrlexpand%,wtsx%,rep%,wt%,X%
60080WHEN 3:wt%+=1:rep%=C%AND63:CALLrlexpand%,wtsx%,rep%,wt%,X%
60090ENDCASE
60100UNTILX%=wtsx%
60110ENDPROC
60120DEF PROCwatfordcache(wtsx%,RETURN rep%,RETURN wt%,X%)
60130CALLrlexpand%,wtsx%,rep%,wt%,X%
60140REPEAT C%=USRbytefromcache%:CASE C%>>6 OF
60150WHEN 0:?X%=C%:X%+=1:wt%=C%
60160WHEN 1:wt%-=1:rep%=C%AND63:CALLrlexpand%,wtsx%,rep%,wt%,X%
60170WHEN 2:rep%=C%AND63:CALLrlexpand%,wtsx%,rep%,wt%,X%
60180WHEN 3:wt%+=1:rep%=C%AND63:CALLrlexpand%,wtsx%,rep%,wt%,X%
60190ENDCASE
60200UNTILX%=wtsx%
60210ENDPROC
60220DEF PROCreduce(RETURN A%,RETURN B%)
60230LOCAL C%,D%:C%=A%:D%=B%
60240REPEAT IFC%<D% SWAP C%,D%
60250C%=C%MODD%
60260UNTILC%=0
60270A%=A%DIVD%:B%=B%DIVD%
60280ENDPROC
60290DEF PROCreadpixelrow(z%())
60300IFrows% THEN
60310rows%-=1:IFsx%=x% THEN
60320W%=EVAL(r$+"(z%())")
60330ELSE
60340W%=EVAL(r$+"(xp%())"):CALLxsample%,xmul%,xdiv%,z%(1,0),xp%(1,0),x%
60350ENDIF
60360ELSE
60370z%()=0
60380ENDIF
60390ENDPROC
60400DEF PROCsharppixelrow(z%())
60410IFrows% THEN
60420rows%-=1:IFsx%=x% THEN
60430IFsharpen% PROCsharp(z%()) ELSEW%=EVAL(r$+"(z%())"):IFequal% PROCfit2(z%())
60440ELSE
60450IFsharpen% PROCsharp(xp%()) ELSEW%=EVAL(r$+"(xp%())"):IFequal% PROCfit2(xp%())
60460CALLxsample%,xmul%,xdiv%,z%(1,0),xp%(1,0),x%
60470ENDIF
60480ELSE
60490z%()=0
60500ENDIF
60510ENDPROC
60520DEF PROCsharp(z%())
60530yread%-=1:IFyread% W%=EVAL(r$+"(rm%())"):IFequal% PROCfit2(rm%())
60540FORB%=0TOcol:rm%(0,B%)=rm%(1,B%):rm%(sx%+1,B%)=rm%(sx%,B%):NEXT
60550CALL sharp%,z%(1,0),rm%(1,0),rm1%(1,0),rm2%(1,0),totvals2%
60560SWAP rm2%(),rm1%():rm1%()=rm%()
60570ENDPROC
60580DEF PROCscaledpixelrow(z%())
60590IFsy%=y% THEN
60600PROCreadpixelrow(z%())
60610ELSE
60620ysamp%-=1:IFysamp%=0 PROCreadpixelrow(xl%()):ysamp%=ymul%
60630IFydiv%=1 THEN
60640z%()=xl%()
60650ELSE
60660IFysamp%>=ydiv% THEN
60670ysamp%-=ydiv%:z%()=xl%()*ydiv%
60680ELSE
60690LOCALY%:z%()=xl%()*ysamp%:Y%=ydiv%-ysamp%:ysamp%=0
60700REPEAT
60710IFysamp%=0 PROCreadpixelrow(xl%()):ysamp%=ymul%
60720IFysamp%>Y% THEN
60730ysamp%-=Y%:xl2%()=xl%()*Y%:z%()=z%()+xl2%():Y%=0
60740ELSE
60750Y%-=ysamp%:xl2%()=xl%()*ysamp%:z%()=z%()+xl2%():ysamp%=0
60760ENDIF
60770UNTIL Y%=0
60780ENDIF
60790ysamp%+=1
60800ENDIF
60810ENDIF
60820ENDPROC
60830DEF PROCfit(z%())
60840CALLhistequal%,z%(1,0),new%(0,0),x%
60850ENDPROC
60860DEF PROCfit2(z%())
60870CALLhistequal%,z%(1,0),new%(0,0),sx%
60880ENDPROC
60890DEF PROCadjustpalette(mul,sub)
60900IFmul=1 AND sub=0 ENDPROC
60910FORC%=0TOcolourindex
60920r%(C%)=(r%(C%)-sub)*mul+1:g%(C%)=(g%(C%)-sub)*mul+1:b%(C%)=(b%(C%)-sub)*mul+1
60930NEXT
60940IFham THEN
60950FORC%=0TO15*4STEP4:ltable!C%=(ltable!C%-sub)*mul+1:NEXT
60960ENDIF
60970IFinput>400 THEN
60980FORC%=0TOcolourindex
60990rpal%(C%)=(rpal%(C%)-sub)*mul+1:gpal%(C%)=(gpal%(C%)-sub)*mul+1
61000bpal%(C%)=(bpal%(C%)-sub)*mul+1:table%(C%)=(table%(C%)-sub)*mul+1
61010NEXT
61020ENDIF
61030ENDPROC
61040DEF PROCcachesize(A%)
61050SYS&20023,"ChangeFSI$Cache",A%,-1 TO,,Z
61060IFZ<>0 THEN
61070SYS35,"ChangeFSI$Cache",A%,20 TO,,Z:A%?Z=13:cache%=VAL$A%
61080IFINSTR($A%,"K")ORINSTR($A%,"k") cache%=cache%*1024
61090ELSE
61100cache%=128*1024
61110ENDIF
61120ENDPROC
61130DEF PROCrefill
61140IFstriprows%>0 PROCnextstrip
61150SYS12,4,c%,datacache%,cache%:rowstogo%=cacherows%:buff%=datacache%
61160IFinput=24ORinput=48 IFrbo%>=0 rb%=buff%+rbo%:gb%=buff%+gbo%:bb%=buff%+bbo%
61170ENDPROC
61180DEF PROCrefillpcd
61190IFpcdblk%!4>=sy% ENDPROC
61200IFpcdblk%!12>=sy% pcdblk%!12=sy%
61220SYS"PhotoCD_GetBlock",pcdh%,,pcdblk%,datacache%,pcdindex%,,,pcdcache%,pcdcachesize%
61230rowstogo%=cacherows%:buff%=datacache%:pcdblk%!4+=cacherows%:pcdblk%!12+=cacherows%
61240rb%=buff%+rbo%:gb%=buff%+gbo%:bb%=buff%+bbo%
61250ENDPROC
61270DEF FN8(z%())
61280CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),buff%:buff%+=rowbytes%
61290rowstogo%-=1:IFrowstogo%=0 PROCrefill
61300=TRUE
61320DEF FN16(z%())
61330CALLmappix%,z%(1,0),rpal%(0),gpal%(0),r%(0),g%(0),b%(0),buff%,buff%
61340buff%+=rowbytes%:rowstogo%-=1:IFrowstogo%=0 PROCrefill
61350=TRUE
61370DEF FN24(z%())
61380CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
61390rb%+=rowbytes%:gb%+=rowbytes%:bb%+=rowbytes%
61400rowstogo%-=1:IFrowstogo%=0 PROCrefill
61410=TRUE
61430DEF FN300(z%())
61440SYS12,4,cc%,pbuff%,sx%:CALLmappix%,z%(1,0),rpal%(0),gpal%(0),r%(0),g%(0),b%(0),pbuff%,buff%
61450buff%+=rowbytes%:rowstogo%-=1:IFrowstogo%=0 PROCrefill
61460=TRUE
61480DEF FN400(z%())
61490CALLreadline%,plbytes%,rep%,pix%,plbuff%
61500CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
61510=TRUE
61530DEF FN500(z%())
61540CALL LZWdecode%,table%(0),c%,plbuff%,sx%
61550CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
61560=TRUE
61580DEF FN800(z%())
61590PROCwatfordcache(wtsx%,rep%,wt%,plbuff%)
61600CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
61610=TRUE
61630DEF FN801(z%())
61640PROCwatford(wtsx1%,rep1%,wt1%,buff%,c%)
61650PROCwatford(wtsx2%,rep2%,wt2%,wtsx1%,cc%)
61660PROCwatford(wtsx3%,rep3%,wt3%,wtsx2%,ccc%)
61670CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
61680=TRUE
61700DEF FN901(z%())
61710SYS12,4,c%,rb%,sx%:SYS12,4,cc%,gb%,sx%:SYS12,4,ccc%,bb%,sx%
61720CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
61730=TRUE
61750DEF FN902(z%())
61760CALLunpack%,buff%:CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
61770buff%+=rowbytes%:rowstogo%-=1:IFrowstogo%=0 PROCrefill
61780=TRUE
61800DEF FN1000(z%())
61810X%=buff%:IFrep%>0 C%=?pa%:CALLrlexpand%,pasx%,rep%,C%,X%:pa%+=1
61820IFrep2%>0 C%=?pa%:CALLrlexpand%,pasx%,rep2%,C%,X%:pa%+=1
61830REPEAT C%=BGET#c%:IFC%=0 THEN
61840rep%=BGET#c%:C%=?pa%:CALLrlexpand%,pasx%,rep%,C%,X%:IFrep%=0 pa%+=1
61850ELSE
61860rep2%=C%AND15:rep%=C%>>4:IFrep% C%=?pa%:CALLrlexpand%,pasx%,rep%,C%,X%:IFrep%=0 pa%+=1
61870IFX%<pasx% IFrep2% C%=?pa%:CALLrlexpand%,pasx%,rep2%,C%,X%:IFrep2%=0 pa%+=1
61880ENDIF
61890UNTILX%=pasx%
61900CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),buff%
61910=TRUE
61930DEF FN1001(z%())
61940X%=buff%:IFrep%>0 C%=?pa%:CALLrlexpand%,pasx%,rep%,C%,X%:pa%+=1
61950REPEAT rep%=BGET#c%:C%=?pa%:CALLrlexpand%,pasx%,rep%,C%,X%:IFrep%=0 pa%+=1
61960UNTILX%=pasx%:CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),buff%
61970=TRUE
61990DEF FN1100(z%())
62000CALLreadline%,plbytes%,rep%,pix%,plbuff%
62010CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
62020=TRUE
62040DEF FN1400(z%())
62050IFvrep% THEN
62060vrep%-=1
62070ELSE
62080G%=buff%:FORX%=1TOplanes%:G%+=rowbytes%:F%=G%-rowbytes%
62090REPEAT C%=BGET#c%:IFC%=0 THEN
62100C%=BGET#c%:IFC%=0 THEN
62110C%=BGET#c%:vrep%=BGET#c%-1
62120ELSE
62130D%=F%:SYS12,4,c%,F%,patlen%:F%+=patlen%
62140IFC%>1 FORN%=2TOC%:FORE%=0TOpatlen%-1:F%?E%=D%?E%:NEXT:F%+=patlen%:NEXT
62150ENDIF
62160ELSE
62170IFC%=128 THEN
62180C%=BGET#c%:SYS12,4,c%,F%,C%:F%+=C%
62190ELSE
62200?F%=(C%AND&80)<>0:FORE%=F%+1TOF%+(C%AND&7F):?E%=?F%:NEXT:F%+=C%AND&7F
62210ENDIF
62220ENDIF:UNTILF%>=G%:NEXT
62230CALLplancnv%,rowbytes%,buff%,pbuff%
62240ENDIF
62250CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
62260=TRUE
62280DEF FN1501(z%())
62290CALLreadiff%,rowbytes%,plbuff%:rowstogo%-=1:IFrowstogo%=0 PROCnextstrip
62300CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
62310=TRUE
62330DEF FN1505(z%())
62340CALL LZWdecode%,table%(0),c%,plbuff%,rowbytes%
62350rowstogo%-=1:IFrowstogo%=0 PROCnextstrip
62360CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
62370=TRUE
62390DEF FN1515(z%())
62400CALL LZWdecode%,table%(0),c%,plbuff%,rowbytes%
62410rowstogo%-=1:IFrowstogo%=0 PROCnextstrip
62420CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
62430=TRUE
62450DEF FN1600(z%())
62460CALLplancnv%,realrowbytes%,buff%,pbuff%:buff%+=rowbytes%
62470CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
62480rowstogo%-=1:IFrowstogo%=0 PROCrefill
62490=TRUE
62510DEF FN1601(z%())
62520FORX%=0TOplanes%-1:F%=plbuff%+X%*rowbytes%:CALLreadiff%,rowbytes%,F%:NEXT
62530IFmasking% CALLreadiff%,rowbytes%,pbuff%
62540CALLplancnv%,rowbytes%,plbuff%,pbuff%
62550CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
62560=TRUE
62580DEF FN1850(z%())
62590CALLreadiff%,rowbytes%,plbuff%
62600CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
62610=TRUE
62630DEF FN1851(z%())
62640CALLreadiff%,rowbytes%,plbuff%
62650CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
62660=TRUE
62680DEF FN1900(z%())
62690CALLreadline%,plbytes%,rep%,pix%,plbuff%
62700CALLplancnv%,rowbytes%,plbuff%,pbuff%
62710CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
62720=TRUE
62740DEF FN2000(z%())
62750X%=buff%:REPEAT
62760C%=BGET#c%:IFC%<128 THEN
62770C%+=1:SYS12,4,c%,X%,C%:X%+=C%
62780ELSE
62790F%=X%:?F%=BGET#c%:FORC%=C%TO128STEP-1:?X%=?F%:X%+=1:NEXT
62800ENDIF
62810UNTILX%=buff%+rowbytes%
62820CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),buff%
62830=TRUE
62850DEF FN2001(z%())
62860X%=buff%:REPEAT
62870C%=BGET#c%:IFC%<128 THEN
62880C%=(C%+1)*2:SYS12,4,c%,X%,C%:X%+=C%
62890ELSE
62900F%=X%:SYS12,4,c%,X%,2:FORC%=C%TO128STEP-1:!X%=!F%:X%+=2:NEXT
62910ENDIF
62920UNTILX%=buff%+rowbytes%
62930CALLmappix%,z%(1,0),rpal%(0),gpal%(0),r%(0),g%(0),b%(0),buff%,buff%
62940=TRUE
62960DEF FN2002(z%())
62970X%=buff%:REPEAT
62980C%=BGET#c%:IFC%<128 THEN
62990C%=(C%+1)*step24:SYS12,4,c%,X%,C%:X%+=C%
63000ELSE
63010F%=X%:SYS12,4,c%,X%,step24:FORC%=C%TO128STEP-1:!X%=!F%:X%+=step24:NEXT
63020ENDIF
63030UNTILX%=buff%+rowbytes%
63040CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
63050=TRUE
63070DEF FN2250(z%())
63080CALLmappix%,z%(1,0),rpal%(0),r%(0),gpal%(0),g%(0),bpal%(0),b%(0),table%(0),buff%
63090buff%+=rowbytes%:rowstogo%-=1:IFrowstogo%=0 PROCrefill
63100=TRUE
63120DEF FN2300(z%())
63130IFclrfirst% FORX%=0TOsx%-1:rb%?X%=?back%:gb%?X%=back%?1:bb%?X%=back%?2:NEXT
63140IFvrep% THEN
63150vrep%-=1
63160ELSE
63170LOCAL ERROR
63180ON ERROR LOCAL vrep%=-1:CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%:=TRUE
63190E%=FALSE:REPEAT C%=BGET#c%:D%=BGET#c%:IFC%AND&40 D%=FNHW
63200CASE C%AND&3f OF
63210WHEN 1:E%=TRUE:vrep%=D%-1:IFvrep%<0 vrep%=FALSE
63220WHEN 2:ccol%=back%?D%:cbuf%=rb%+sx%*D%:IFD%=255 cbuf%=alpha%
63230WHEN 3:FORX%=0TOD%-1:cbuf%?X%=ccol%:NEXT:cbuf%+=D%
63240WHEN 5:SYS12,4,c%,cbuf%,D%+1:cbuf%+=D%+1:IFD%+1AND1 IFBGET#c%
63250WHEN 6:C%=FNHW:FORX%=0TOD%:cbuf%?X%=C%:NEXT:cbuf%+=D%+1
63260ENDCASE
63270UNTILE%
63280ENDIF
63290CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
63300=TRUE
63320DEF FN2401(z%())
63330CALLbm_rle8,rowbytes%,plbuff%
63340CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
63350=TRUE
63370DEF FN2402(z%())
63380CALLbm_rle4,rowbytes%,plbuff%
63390CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
63400=TRUE
63420DEF FN3000(z%())
63430CALLmappix%,z%(1,0),rpal%(0),r%(0),gpal%(0),g%(0),bpal%(0),b%(0),table%(0),buff%
63440buff%+=rowbytes%:rowstogo%-=1:IFrowstogo%=0 PROCrefill
63450=TRUE
63460DEF FN3500(z%())
63470=TRUE
63480DEF FN3600(z%())
63490CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
63500rb%+=rowbytes%:gb%+=rowbytes%:bb%+=rowbytes%
63510rowstogo%-=1:IFrowstogo%=0 PROCrefillpcd
63520=TRUE
63530DEF FN3708(z%())
63540A%=jpegspace%:jpegy%-=1:B%=jpegy%:rb%=USR(jpeg%+4)
63550CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%
63560=TRUE
63570DEF FN3724(z%())
63580A%=jpegspace%:jpegy%-=1:B%=jpegy%:rb%=USR(jpeg%+4):gb%=rb%+1:bb%=rb%+2
63590CALLmappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
63600=TRUE
63610DEF PROCrewind
63620rows%=sy%:CASE flag OF
63630WHEN 0:PTR#c%=st%
63640WHEN 100:PTR#c%=4
63650WHEN 200:PTR#c%=st%:rep%=0
63660WHEN 300:PTR#c%=st%:PTR#cc%=stcc%
63670WHEN 400:PTR#c%=st%:rep%=0
63680WHEN 500:FORI%=0TOclearcode%-1:table%(I%)=I%:NEXT:PTR#c%=st%
63690!firstcode=0:!oldcode=0:!codesize=setcodes%+1:!stack=stk%:!sp=stk%
63700!maxcode=clearcode%+2:!maxcodesize=2*clearcode%:!curbit=0:!lastbit=0
63710WHEN 501:buff%=datacache%
63720WHEN 600:PTR#c%=&380
63730WHEN 700:PTR#c%=st%
63740WHEN 800:PTR#c%=0:rep%=0:wt%=0
63750WHEN 801:PTR#c%=0:PTR#cc%=0:PTR#ccc%=0:rep1%=0:wt1%=0:rep2%=0:wt2%=0:rep3%=0:wt3%=0
63760WHEN 900:PTR#c%=0
63770WHEN 901:PTR#c%=0:PTR#cc%=0:PTR#ccc%=0
63780WHEN 902:PTR#c%=st%
63790WHEN 1000:PTR#c%=st%:pa%=ctable%:rep%=0:rep2%=0
63800WHEN 1100:PTR#c%=st%:rep%=0
63810WHEN 1200:PTR#c%=1600
63820WHEN 1300:PTR#c%=0
63830WHEN 1301:PTR#c%=0:PTR#cc%=0:PTR#ccc%=0
63840WHEN 1400:PTR#c%=st%:vrep%=0
63850WHEN 1500:PTR#c%=st%(0):rowstogo%=striprows%:stripptr=0
63860IFcompression=5 THEN
63870!firstcode=0:!oldcode=0:!codesize=setcodes%+1:!stack=stk%:!sp=stk%
63880!maxcode=clearcode%+2:!maxcodesize=2*clearcode%:!curbit=0:!lastbit=0
63890ENDIF
63900WHEN 1600:PTR#c%=st%
63910WHEN 1700:PTR#c%=16
63920WHEN 1800,1850:PTR#c%=st%
63930WHEN 1900:PTR#c%=128:rep%=-1
63940WHEN 2000:PTR#c%=st%
63950WHEN 2100:PTR#c%=7
63960WHEN 2200:PTR#c%=st%
63970WHEN 2250:PTR#c%=st%
63980WHEN 2300:PTR#c%=st%:vrep%=0
63990WHEN 2400:PTR#c%=st%
64000WHEN 2500:PTR#c%=st%
64010WHEN 2600:PTR#c%=st%
64020WHEN 2700:PTR#c%=st%
64030WHEN 2800:PTR#c%=st%
64040WHEN 2900:PTR#c%=st%
64050WHEN 3000:PTR#c%=0
64060WHEN 3600:pcdblk%!4=0
64070WHEN 3700:jpegy%=sy%
64080WHEN 3900,3905:PTR#c%=st%
64090ENDCASE
64100IFcache% THEN
64110IFflag=3600 THEN
64120pcdblk%!12=cacherows%:PROCrefillpcd:IFcache%>=filesize% rowstogo%=-1
64130ELSE
64140IFcache%<filesize% SYS12,4,c%,datacache%,cache%:rowstogo%=cacherows%
64150ENDIF
64160buff%=datacache%
64170IFcachebytes% !incacheptr=datacache%:!numlefttogo=cache%
64180IFinput=24ORinput=48 IFrbo%>=0 rb%=buff%+rbo%:gb%=buff%+gbo%:bb%=buff%+bbo%
64190ENDIF
64200IFflag=1500 IFcompression=5 rowstogo%=striprows%
64210ENDPROC
64230DEF PROCAssemble_Shell
64240FORI%=0TO2STEP2
64250P%=code%
64260[ OPT I%
64270.Shell_Call
64280MOV R9,R0
64290MOV R0,#0:MOV R1,#0:MOV R2,#0:MOV R3,#2:MOV R4,#0:MOV R5,#0:MOV R6,#0:MOV R7,#0
64300SWI "OS_SetEnv"
64310STMFD R13!,{R0-R7, R12}
64320MOV R0,#0:MOV R1,#0:MOV R2,#0:MOV R3,#0
64330SWI "OS_Control"
64340STMFD R13!,{R0-R3}
64350MOV R0,#&10:MOV R1,#0:MOV R2,#0
64360SWI "XOS_ChangeEnvironment"
64370STMFD R13!,{R1,R2}
64380LDR R3,[R14,#28]
64390LDR R3,[R8,R3]
64400STMFD R13!,{R3,R9,R14}
64410SUB R9,R13,#1024
64420MOV R5,R9
64430ADR R6,Shell_Job:ADR R4,Shell_Job_End
64440.Shell_Copy
64450LDR R2,[R6],#4
64460STR R2,[R5],#4
64470CMP R6,R4
64480BCC Shell_Copy
64490MOV PC,R9
64500.Shell_Job
64510LDR R2,[R3,#-4]!
64520STR R2,[R9,#-4]!
64530CMP R3,#&8000
64540BHI Shell_Job
64550STMFD R13!,{R9}
64560ADR R0,Shell_Exit
64570MOV R1,R9:MOV R2,#0:MOV R3,#2:MOV R4,#0:MOV R5,#0:MOV R6,#0:MOV R7,#0
64580SWI "OS_SetEnv"
64590ADR R0,Shell_Error
64600ADR R1,Shell_Buffer
64610MOV R2,#0:MOV R3,#0
64620SWI "OS_Control"
64630MOV R0,#&10
64640ADR R1,Shell_UpCall
64650MVN R2,#0
64660SWI "XOS_ChangeEnvironment"
64670STR R13,Shell_Job_End
64680LDR R0,[R13,#4*2]
64690ADD R0,R0,R9
64700SUB R0,R0,#&8000
64710SWI "OS_CLI"
64720.Shell_Exit
64730MOV r0, #0
64740.Shell_Common
64750STR r0, Shell_ErrorWord
64760LDR R13,Shell_Job_End
64770LDMFD R13!,{R8,R9,R10,R14}
64780LDMFD R13!,{R1-R2}
64790MOV R0,#&10
64800SWI "OS_ChangeEnvironment"
64810LDMFD R13!,{R0-R3}
64820SWI "OS_Control"
64830LDMFD R13!,{R0-R7, R12}
64840SWI "OS_SetEnv"
64850MOV R1,#&8000
64860.Shell_Restore
64870LDR R2,[R8],#4
64880STR R2,[R1],#4
64890CMP R1,R9
64900BCC Shell_Restore
64910LDR R0,Shell_ErrorWord
64920TEQ R0,#0
64930BICEQS PC,R14,#&10000000
64940ORRNES PC,R14,#&10000000
64950.Shell_UpCall
64960MOV PC,R14
64970.Shell_Error
64980ADR r0, Shell_Buffer + 4
64990B Shell_Common
65000.Shell_Buffer
65010EQUD 0
65020EQUD &12345678
65030EQUS STRING$(128,CHR$13)
65040EQUS STRING$(128,CHR$13)
65050.Shell_ErrorWord
65060EQUD 0
65070.Shell_Job_End
65080EQUD 0
65090]
65100NEXT
65110A%=Shell_Job_End+4
65120ENDPROC
65140DEF PROCsubtask(a$)
65150IF task% THEN
65160SYS"Wimp_StartTask",a$
65170ELSE
65190DIM code% 1024
65200PROCAssemble_Shell
65210$A%=a$:CALLShell_Call
65220ENDIF
65230ENDPROC
� > ChangeFSI
�areanumber%=0
�ș"OS_GetEnv" � A$
� task%=�A$," -wimp"):�task% �
� � z%(1),p%(3),s%(3),m$(30)
�"A%=�"<ChangeFSI$Dir>.Messages"
�(B%=-1:� B%+=1:m$(B%)=�#A%:��#A%:�#A%
� startfile%=�A$,6)<>"-wimp "
� � taskid%4:$taskid%="TASK"
�7ș "Wimp_Initialise",200,!taskid%,m$(20) � version%
�� version%>=350 �
�3ș"OS_Memory",8+(2<<8) � ,r1,r2:vramsize%=r1*r2
�"� vramsize%>0 vram%=� �vram%=�
�
vram%=�
�
" Wimp = (1<<18) + (3<<6)
,HCreateW = Wimp+1:OpenW = Wimp+5 :CloseW = Wimp+6:RedrawW = Wimp+8
6IUpdateW = Wimp+9:GetR% = Wimp+10:GetW = Wimp+11:SetI = Wimp+13
@IGetI = Wimp+14:GetP = Wimp+15:Drag = Wimp+16:CrMenu = Wimp+20
JDcMenu = Wimp+21
T8ș "OS_SWINumberFromString",,"Wimp_PollIdle" � Poll%
^8ș "OS_SWINumberFromString",,"XOS_SpriteOp" � spopx%
h6ș "OS_SWINumberFromString",,"OS_SpriteOp" � spop%
r?ș "OS_SWINumberFromString",,"OS_ReadMonotonicTime" � Time%
|Jș "OS_SWINumberFromString",,"ColourTrans_ReturnColourNumber" � ctran%
�Dș "OS_SWINumberFromString",,"Wimp_SetCaretPosition" � Caretpos%
�Dș "OS_SWINumberFromString",,"Wimp_GetCaretPosition" � Getcaret%
�Sș "XOS_SWINumberFromString",,"DragASprite_Start" � dstart%;f%:�f%� 1 dstart%=0
�Wș "XOS_SWINumberFromString",,"JPEG_PlotScaled" � jpegpaint%;f%:�f%� 1 jpegpaint%=0
�3ș "OS_Byte",161,&1C � ,,f%:�(f%�2)=0 dstart%=0
�nextlocation%=�
�,ș "Wimp_SlotSize",-1,-1 � originalslot%
��locale_initialise
�� version%>=300 �
�Y� q% 255,ifactors% 15,factors% 15,pixtrans% 255,paltemp% 1023,buffer% 255,idata% 1023
��
�a� z% 1699,q% 255,ifactors% 15,factors% 15,pixtrans% 255,paltemp% 1023,buffer% 255,idata% 2399
eidata%=idata%+2400
�
&2scrap%=�:sprite%=�:sar%=�:saved%=�:z$=�12,�13)
: ș "OS_Byte",161,&8C � ,,f%
D
�f% � 1 �
N7ș"Wimp_OpenTemplate",,"<ChangeFSI$Dir>.3dTemplate"
X�
b6ș"Wimp_OpenTemplate",,"<ChangeFSI$Dir>.Templates"
l�
�� �
�6� � ș"Wimp_CloseTemplate":� 0,�$+" (code "+Þ+")"
��version%>=300 �
� name=q%
�$$name="*":here%=0:largest_tem%=0
�;ș "Wimp_LoadTemplate", ,0,,,,name,0 � ,size%,,,,,here%
� ȕ here%
�+� largest_tem%<size% largest_tem%=size%
�
$name="*"
�?ș "Wimp_LoadTemplate", ,0,,,,name,here% � ,size%,,,,,here%
��
� z% largest_tem%
�
�dotemplate("Info")
*4ș CreateW,,z% � infow%:$!(z%+88+7*32+20)=m$(21)
> �dotemplate("Processing")
Hș CreateW,,z% � proc%
Rap%(0)=!(z%+88+8*32+20):p%(1)=!(z%+88+9*32+20):p%(2)=!(z%+88+10*32+20):p%(3)=!(z%+88+12*32+20)
f�dotemplate("Output")
pkș CreateW,,z% � output%:admode%=!(z%+88+20*32+20):adspcl%=!(z%+88+19*32+20):oldmode%=!(z%+88+34*32+20)
��dotemplate("Scaling")
�6ș CreateW,,z% � scalew%:adscale%=!(z%+88+1*32+20)
�cs%(0)=!(z%+88+10*32+20):s%(1)=!(z%+88+11*32+20):s%(2)=!(z%+88+12*32+20):s%(3)=!(z%+88+13*32+20)
��dotemplate("Save")
�Rș CreateW,,z% � save%:adsave%=!(z%+88+1*32+20):adsavesprite%=!(z%+88+0*32+20)
��dotemplate("Sprite")
�Pș CreateW,,z% � sinfo%:adsname%=!(z%+88+5*32+20):adsbytes%=!(z%+88+8*32+20)
�Hadsx%=!(z%+88+7*32+20):adsy%=!(z%+88+9*32+20):adsm%=!(z%+88+6*32+20)
��dotemplate("Source")
�5ș CreateW,,z% � srcinfo%:adsrc%=!(z%+88+0*32+20)
�dotemplate("Range")
5ș CreateW,,z% � raninfo%:adran%=!(z%+88+0*32+20)
.�dotemplate("Zoom")
8Hș CreateW,,z% � zoom%:z%(0)=!(z%+88+4*32+20):z%(1)=!(z%+88+5*32+20)
L �dotemplate("JPEGOutput")
V5ș CreateW,,z% � jpego%:adjpegq%=!(z%+88+5*32+20)
j�dotemplate("Pic")
t(ș CreateW,,z% � pic%:adtitle%=z%!72
�� �
�ș"Wimp_CloseTemplate"
�@!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=%11000000000010
�:$(q%+24)="!"+m$(20):ș"Wimp_CreateIcon",,q% � iconbar%
�)A%=�"<ChangeFSI$Dir>.Choices":�A%=0 �
�]fast%=�:dest%=1:statescale%=%10000000100:stateproc%=0:stateoutput%=&4052008:statejpeg%=&2
�N$p%(0)="":$p%(1)="2"+decimal_point$+"2":$p%(2)="24":$p%(3)="4":$adspcl%=""
�=$admode%="28":$s%(0)="1":$s%(1)="4":$s%(2)="1":$s%(3)="4"
� $adjpegq%="75":$oldmode%=""
��
�W�#A%,fast%,dest%,statescale%,stateproc%,stateoutput%,statejpeg%,$adjpegq%,$oldmode%
�6�#A%,$p%(0),$p%(1),$p%(2),$p%(3),$admode%,$adspcl%
5$p%(1)=�locale_convert($p%(1),".",decimal_point$)
$�#A%,$s%(0),$s%(1),$s%(2),$s%(3)
�#A%
�
(q%!12=1<<21
2=!q%=scalew%:�I%=0�9:�statescale%>>I%�1 q%!8=1<<21 �q%!8=0
<q%!4=I%:ș SetI,,q%:�
F3�I%=10�13:�statescale%>>I%�1 q%!8=1<<21 �q%!8=0
Pq%!4=I%+6:ș SetI,,q%:�
Z:!q%=proc%:�I%=0�7:�stateproc%>>I%�1 q%!8=1<<21 �q%!8=0
dq%!4=I%:ș SetI,,q%:�
n?!q%=output%:�I%=0�26:�stateoutput%>>I%�1 q%!8=1<<21 �q%!8=0
xq%!4=I%:ș SetI,,q%:�
�;!q%=jpego%:�I%=0�3:�statejpeg%>>I%�1 q%!8=1<<21 �q%!8=0
�q%!4=I%:ș SetI,,q%:�
�*�stateoutput%>>17�1 q%!8=1<<22 �q%!8=0
�i!q%=output%:q%!12=1<<22:q%!4=7:ș SetI,,q%:q%!4=8:ș SetI,,q%:q%!4=13:ș SetI,,q%:q%!4=14:ș SetI,,q%
�)�showscaletofit:$z%(0)="1":$z%(1)="1"
� ș "OS_UpdateMEMC" � oldmemc
�jpegsave%=�
�>� � ș"OS_UpdateMEMC",oldmemc,&700:�errorbox:ș CrMenu,,-1
�ș Drag,,-1
�1�sprite% ș "Wimp_SlotSize",originalslot%,-1
�BF$="":�startfile% startfile%=�:F$=�A$,�A$,"-wimp")+6):�callFSI
��
�ș Poll%,1,q% � A%
Ȏ A% �
%� 1 :�sprite% �redraw_window(!q%)
B� 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
"2� 3 :ș &400c3,,q%:nextlocation%=�:�removearea
,:ș "Wimp_SlotSize",originalslot%,-1:saved%=�:sprite%=�
65� 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
@F� 7 :ș GetP,,q%:dw%=q%!12:di%=q%!16:�dstart% ș"DragASprite_Stop"
JJq%!12=0:q%!16=1:q%!20=dw%:q%!24=di%:q%!28=!q%:q%!32=q%!4:q%!36=!sar%+3
T&�jpegsave% �q%!40=&c85 �q%!40=&ff9
^.temp$=�ZS(adsave%):foo%=�temp$,"."):ȕfoo%
h)temp$=�temp$,foo%+1):foo%=�temp$,".")
r�
|,$(q%+44)=temp$+�0:!q%=44+(�temp$+1+3��3)
�3ș "Wimp_SendMessage",17,q%,dw%,di%:myref%=q%!8
� � 8 :�key(!q%,q%!4,q%!24)
�� 9 :�menuselect(q%)
�� 17,18:�receive(q%)
��
�� �
��
�Q%=�
��=&4000000
�S� � � � �:�"Set ChangeFSI$ReturnCode "+�$+" (code "+Þ+")":�removearea:�:�=Q%:�
�1foo%=0:A%=�ChangeFSI(A$,-1,-1,0,-1,-1,foo%,�)
�+�removearea:*unset ChangeFSI$ReturnCode
�
�:�=Q%
�
�
&� �dotemplate(a$)
0� A%
:�version%>300 �
D5ș "Wimp_LoadTemplate",,0,,,,a$+z$,0 � ,,indsize%
N� A% indsize%
X7ș"Wimp_LoadTemplate",,z%,A%,A%+indsize%,-1,a$+z$,0
b�
lBș"Wimp_LoadTemplate",,z%,idata%,eidata%,-1,a$+z$,0 � ,,idata%
v�
��
�� �locale_initialise
�� p%
�� �
� � � � decimal_point$=".":�
�(ș "Territory_ReadSymbols",-1,0 � p%
�decimal_point$=�?p%
��
� � �locale_convert(n$,f$,t$)
�� f$=t$ �=n$
�� i%
i%=�n$,f$)
$� i%<>0 �=�n$,i%-1)+t$+�n$,i%+1)
=n$
*� �receive(q%)
4Ȏ q%!16 �
>)� 0:�removearea:ș "Wimp_CloseDown":�
H� 1:�q%!20<>save% �
RA!q%=60:q%!12=q%!8:q%!16=2:q%!36=-1:$(q%+44)="<Wimp$Scrap>"+�0
\/ș"Wimp_SendMessage",17,q%,q%!4:scrap%=q%!8
f�
p� 2:�jpegsave% �
z7ș"OS_File",10,�ZS(q%+44),&c85,,sar%,sar%+jpegsize%
��
� șspop%,&10C,sar%,�ZS(q%+44)
��
�$adsave%=�ZS(q%+44)
�7q%!12=q%!8:q%!16=3:ș "Wimp_SendMessage",18,q%,q%!4
�� q%!36<>-1 saved%=�
�ș CrMenu,,-1
�1� 3:F$=�ZS(q%+44):�scrap% scrap%=scrap%=q%!12
�6q%!12=q%!8:q%!16=4:ș"Wimp_SendMessage",17,q%,q%!4
� �callFSI
�� 5:Ȏ q%!40 �
�� &ff0,&c85
�6q%!12=q%!8:q%!16=4:ș"Wimp_SendMessage",17,q%,q%!4
F$=�ZS(q%+44):�callFSI
�
� 8:�saved%��sprite% �
$-!buffer%=�:$(buffer%+4)=m$(2)+F$+m$(3)+�0
.4ș"Wimp_ReportError",buffer%,%10111,m$(20) � ,A%
82q%!12=q%!8:�A%<>1 ș"Wimp_SendMessage",19,q%,0
BB�9,&400C1:�sprite% �getmodeinfo:ș&400d1,pic%,0,-32767,32767,0
L�showscaletofit
VH� 10:ș"XOS_ReadVarVal","ChangeFSI$Dir",paltemp%,256,0,3 �,,bootlen%
`paltemp%?bootlen%=13
j �#q%!20,"Run "+$paltemp%
t�
~�
�� �callFSI
�� �checkvalues ��
�A$=�deducemode:A%=47
�jpegsave%=�:�dest%=0 �
�@jpegsave%=�:A$="JPEG":�geticonstate(jpego%,2) A$="JPEGMONO"
�A$+=$adjpegq%
��
� �geticonstate(output%,15) �
�A$+=$adspcl%
��
� �geticonstate(output%,16) �
?�geticonstate(output%,5)��geticonstate(output%,11) A$+="R"
�
ș53,�A$,3 �,,A%
�A%=63 �
(&�geticonstate(output%,6) A$="27t"
2'�geticonstate(output%,12) A$="12t"
<�
F�A%=255 A$+="d"
P�
Z�
d�
n�
x/A$="garbage "+F$+" <ChangeFSI$Dir>.Foo "+A$
��ChangeFSISuffix
�%info$="":range$=m$(19):cputime%=0
�6�sprite% !q%=pic%:ș &400c3,,q%:saved%=�:sprite%=�
�nextlocation%=�
�3ș "Wimp_SlotSize",originalslot%,-1:�removearea
�1�fast% ș "OS_UpdateMEMC",&300,&700 � oldmemc
�4A%=�ChangeFSI(A$,-1,-1,nextlocation%,0,0,sar%,0)
�*�fast% ș "OS_UpdateMEMC",oldmemc,&700
�%�scrap% scrap%=�:ș"OS_File",6,F$
��A%<2 � sar%<>0 �
�*$adsx%=�xsp%:$adsy%=�ysp%:�jpegsave% �
�"$adsm%="JPEG":$adsname%="JPEG"
�$adsbytes%=�jpegsize%
x=xsp%*2:y=ysp%*2
%ș&35,-1,4 �,,nx:ș&35,-1,5 �,,ny
=!ifactors%=1:ifactors%!4=1:ifactors%!8=nx:ifactors%!12=ny
" $adsavesprite%="file_c85"
,%� �F$,7)="<Wimp$S" F$="JPEGImage"
6�
@'ș spopx%,&10d,sar%,pixtrans%,255,1
J7n$=�ZS(pixtrans%):ș spopx%,&128,sar%,n$ �,,,x,y,,m
T$adsm%=�m:$adsname%=n$
^$adsbytes%=�sar%!12
hș&35,m,4 �,,nx:x=x<<nx
r(ș&35,m,5 �,,ny:y=y<<ny:�getmodeinfo
| $adsavesprite%="file_ff9"
�&� �F$,7)="<Wimp$S" F$="SpriteFile"
��
�/!q%=save%:q%!4=0:q%!8=0:q%!12=0:ș SetI,,q%
�c$adran%=range$:$adsrc%=info$+m$(0)+�(cputime%�100)+decimal_point$+�"0"+�(cputime%�100),2)+m$(1)
�saved%=�:sprite%=�
�'A%=�F$:ȕ�"."+F$,A%,1)<>".":A%-=1:�
�$adsave%=�"."+F$,A%+1)
� pic%=�create_window(x,y,F$)
��popup(pic%,-1)
�
�
&� �checkvalues
0� e,error$,flag%
D � dest%=0 � �$adjpegq%>100 �
N1e=1:error$=m$(22)+m$(25)+m$(23)+m$(27)+m$(24)
X�
l"� �$admode%,1)<"A" � dest%=1 �
v ș &35,�$admode%,0 � ;flag%
�� �$admode%=0 flag%=2
�+� �$admode%>127 � �$admode%<256 flag%=2
�� (flag%�2)>0 �
�1e=2:error$=m$(22)+m$(26)+m$(23)+m$(13)+m$(24)
��
��
� � e �
�1ș Drag,,-1:!buffer%=e:$(buffer%+4)=error$+�0
�2ș "Wimp_ReportError",buffer%,%01,m$(20) � ,A%
�+�A%=2 �removearea:ș "Wimp_CloseDown":�
��
�=e
� �ChangeFSISuffix
safe%=�
F�geticonstate(scalew%,1) A$+=" "+�tofitx+": "+�tofity+":":safe%=�
*0�geticonstate(scalew%,5) A$+=" 1:2":safe%=�
44�geticonstate(scalew%,4) A$+=" 1:2 1:1":safe%=�
>4�geticonstate(scalew%,3) A$+=" 1:1 1:2":safe%=�
H �geticonstate(scalew%,9) �
R safe%=�
\%�$s%(0) A$+=" "+$s%(0) �A$+=" 1"
fA$+=":"+$s%(1)
p%�$s%(2) A$+=" "+$s%(2) �A$+=" 1"
zA$+=":"+$s%(3)
��
�,�geticonstate(scalew%,0) A$+=" -nosize"
�.�geticonstate(scalew%,18) A$+=" -noscale"
�+�geticonstate(scalew%,19) A$+=" -lock"
� �geticonstate(scalew%,6) �
�Fsafe%=�:�geticonstate(scalew%,16) A$+=" -rotate" �A$+=" -rotate-"
��
�3�geticonstate(scalew%,7) A$+=" -hflip":safe%=�
�3�geticonstate(scalew%,8) A$+=" -vflip":safe%=�
�1�geticonstate(proc%,0) A$+=" -range":safe%=�
�1�geticonstate(proc%,1) A$+=" -equal":safe%=�
�,�geticonstate(proc%,2) A$+=" -nodither"
�2�geticonstate(proc%,3) A$+=" -invert":safe%=�
,�geticonstate(proc%,4) A$+=" -brighten"
0�geticonstate(proc%,5) A$+=" -black"+$p%(0)
\�geticonstate(proc%,6) A$+=" -gamma"+�locale_convert($p%(1),decimal_point$,"."):safe%=�
$:�geticonstate(proc%,7) A$+=" -sharpen"+$p%(2):safe%=�
.2�geticonstate(proc%,11) A$+=" -smooth"+$p%(3)
8�
L� �checkandfinish
V7�saved% ��sprite% �removearea:ș "Wimp_CloseDown":�
`-!buffer%=�:$(buffer%+4)=m$(2)+F$+m$(3)+�0
j5ș "Wimp_ReportError",buffer%,%10111,m$(20) � ,A%
t+�A%=1 �removearea:ș "Wimp_CloseDown":�
~�
� � �key(handle%,icon%,key%)
� �key%=&1b ș CrMenu,,-1:�
�Ȏ handle% �
�� zoom%:Ȏ key% �
�C� 13:�dozoom(icon%-4,0):�icon%=4 ș &400d2,zoom%,5,,,-1,�$z%(0)
��icon%=5 ș CrMenu,,-1
��
�"� &18e,&18f:�dozoom(icon%-4,0)
�0ș &400d2,zoom%,icon%�1,,,-1,�$z%(icon%�5):�
��
� � save%
�key%=13 �savesprite:�
� output%
p� icon%=34 � �geticonstate(output%, 24) �$admode% = $oldmode%:!q%=output%:q%!4=20:q%!8=0:q%!12=0:ș SetI,,q%
�showscaletofit
( �key%=13 ș CrMenu,,-1:�
2�key%=&18e �
<Ȏ icon% �
F � 19:icon%=34:key%=oldmode%
P � 34:icon%=22:key%=adjpegq%
Z � 22:icon%=19:key%=adspcl%
d�
n�
x�key%=&18f �
�Ȏ icon% �
� � 22:icon%=34:key%=oldmode%
� � 34:icon%=19:key%=adspcl%
� � 19:icon%=22:key%=adjpegq%
��
��
�4�key%>1024 ș &400d2,output%,icon%,,,-1,�$key%:�
�� proc%:Ȏ key% �
�A� &18e,13:icon%+=1:�icon%>10 icon%=8:�key%=13 ș CrMenu,,-1:�
�.ș &400d2,proc%,icon%,,,-1,�$p%(icon%-8):�
�%� &18f:icon%-=1:�icon%<8 icon%=10
�.ș &400d2,proc%,icon%,,,-1,�$p%(icon%-8):�
��
� scalew%:Ȏ key% �
B� &18e,13:icon%+=1:�icon%>13 icon%=10:�key%=13 ș CrMenu,,-1:�
1ș &400d2,scalew%,icon%,,,-1,�$s%(icon%-10):�
"&� &18f:icon%-=1:�icon%<10 icon%=13
,1ș &400d2,scalew%,icon%,,,-1,�$s%(icon%-10):�
6�
@�
J ș "Wimp_ProcessKey",key%
T�
h� �savesprite
r� F$=$adsave% �
|1ș Drag,,-1:!buffer%=3:$(buffer%+4)=m$(28)+�0
�2ș "Wimp_ReportError",buffer%,%11,m$(20) � ,A%
� �A%=2 �
�ș CrMenu,,-1
��
��
��
��jpegsave% �
�5ș"OS_File",10,$adsave%,&c85,,sar%,sar%+jpegsize%
��
� ș spop%,&10C,sar%,$adsave%
��
�ș CrMenu,,-1
��
7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
� moved%:moved%=�
& �b%�2 �
0Ȏ handle% �
:|� pic%:�domenu(pic%,m$(4)+">sinfo%,"+m$(5)+">srcinfo%,"+m$(6)+">raninfo%,"+m$(7)+">zoom%,"+m$(8)+">save%,"+m$(9),m$(20))
D�� -2:�domenu(101,m$(10)+">infow%,"+m$(11)+">scalew%,"+m$(12)+">proc%,"+m$(13)+">output%:dest%,"+m$(27)+">jpego%:1-dest%,"+m$(9)+","+m$(14)+":fast%AND1,"+m$(15)+","+m$(16),m$(20))
N�
Xrmenuhandle%=handle%
b�
l �b%�4 �
vȎ handle% �
�� zoom%:Ȏ icon% �
�� 0:�dozoom(0,1)
�� 1:�dozoom(0,-1)
�� 2:�dozoom(1,1)
�� 3:�dozoom(1,-1)
��
��
��
� �b%�1 �
�Ȏ handle% �
�� zoom%:Ȏ icon% �
�� 0:�dozoom(0,-1)
�� 1:�dozoom(0,1)
� 2:�dozoom(1,-1)
� 3:�dozoom(1,1)
�
�
*�
4 �b%�5 �
>Ȏ handle% �
H�� output%:� dest%=0 dest%=1:�domenu(101,m$(10)+">infow%,"+m$(11)+">scalew%,"+m$(12)+">proc%,"+m$(13)+">output%:dest%,"+m$(27)+">jpego%:1-dest%,"+m$(9)+","+m$(14)+":fast%AND1,"+m$(15)+","+m$(16),m$(20)):ș Getcaret%,,q%:moved%=�
RȎ icon% �
\n� 3,4,5,6:�killcurrent(�(22+icon%)):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
fh� 7:�killcurrent("S16,90,90"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
ph� 8:�killcurrent("S32,90,90"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
z`� 9:�killcurrent("0"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
�a� 10:�killcurrent("8"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
�b� 11:�killcurrent("12"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
�b� 12:�killcurrent("15"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
�i� 13:�killcurrent("S16,90,45"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
�i� 14:�killcurrent("S32,90,45"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
��� 15:�killcurrent(�deducemode):ș SetI,,q%:ș Caretpos%,output%,19,,,-1,�($adspcl%):!q%=output%:q%!4=7:q%!8=0:q%!12=1<<22:ș SetI,,q%:q%!4=8:ș SetI,,q%:q%!4=13:ș SetI,,q%:q%!4=14:ș SetI,,q%
��� 16:�killcurrent(�deducemode):!q%=output%:q%!4=7:q%!8=0:q%!12=1<<22:ș SetI,,q%:q%!4=8:ș SetI,,q%:q%!4=13:ș SetI,,q%:q%!4=14:ș SetI,,q%
ʓ� 17:�killcurrent(�deducemode):!q%=output%:q%!4=7:q%!8=1<<22:q%!12=1<<22:ș SetI,,q%:q%!4=8:ș SetI,,q%:q%!4=13:ș SetI,,q%:q%!4=14:ș SetI,,q%
�� �$admode%,1) = "S" �
�� �$admode%,2) = "45" �
�]�killcurrent("15"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
��
�]�killcurrent("28"):!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:q%!4=24:ș SetI,,q%
�
�
;� 18:!q%=output%:q%!4=24:q%!8=0:q%!12=1<<21:ș SetI,,q%
$� 24:!q%=output%:q%!4=18:q%!8=0:q%!12=1<<21:ș SetI,,q%:�killcurrent(�deducemode):ș Caretpos%,output%,34,,,-1,�($oldmode%)
.B� 34:� moved% ș Caretpos%,output%,q%!4,q%!8,q%!12,q%!16,q%!20
8B� 19:� moved% ș Caretpos%,output%,q%!4,q%!8,q%!12,q%!16,q%!20
B�
L3�geticonstate(output%,18) $admode%=�deducemode
V2!q%=output%:q%!4=20:q%!8=0:q%!12=0:ș SetI,,q%
`�showscaletofit
j� save%:Ȏ icon% �
t� 2:�savesprite
~�
�M� -2:�sprite% �getw(pic%):�open_window(pic%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
�� jpego%:� dest%=1 �
�ș Getcaret%,,q%
��dest%=0:�domenu(101,m$(10)+">infow%,"+m$(11)+">scalew%,"+m$(12)+">proc%,"+m$(13)+">output%:dest%,"+m$(27)+">jpego%:1-dest%,"+m$(9)+","+m$(14)+":fast%AND1,"+m$(15)+","+m$(16),m$(20))
�=� icon%=5 ș Caretpos%,jpego%,q%!4,q%!8,q%!12,q%!16,q%!20
��
�Ȏ icon% �
�D� 3:� b%�4 �$adjpegq%=�(�$adjpegq%-1) �$adjpegq%=�(�$adjpegq%+1)
� � �$adjpegq%<0 $adjpegq%="0"
�$� �$adjpegq%>100 $adjpegq%="100"
�0!q%=jpego%:q%!4=5:q%!8=0:q%!12=0:ș SetI,,q%
�)ș Caretpos%,jpego%,5,,,-1,�$adjpegq%
D� 4:� b%�4 �$adjpegq%=�(�$adjpegq%+1) �$adjpegq%=�(�$adjpegq%-1)
� �$adjpegq%<0 $adjpegq%="0"
$� �$adjpegq%>100 $adjpegq%="100"
0!q%=jpego%:q%!4=5:q%!8=0:q%!12=0:ș SetI,,q%
()ș Caretpos%,jpego%,5,,,-1,�$adjpegq%
2� 5
<�
F�
P�
Z
�b%�&50 �
dȎ handle% �
n� save%:Ȏ icon% �
x� 0:�getw(save%)
� !q%=save%:q%!4=0:ș GetI,,q%
�?!q%=save%:q%!4=5:q%!8+=bx%:q%!12+=by%:q%!16+=bx%:q%!20+=by%
�3q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
�*t$="file_ff9":�jpegsave% t$="file_c85"
�H�dstart% ș dstart%,%11000101,1,t$,q%+8,q%+24 �ș "Wimp_DragBox",,q%
��
��
��
��
�� �dozoom(s%,a%)
� �s%=0 �
�/$z%(0)=�(�$z%(0)+a%):�$z%(0)="0" $z%(0)="1"
�
/$z%(1)=�(�$z%(1)+a%):�$z%(1)="0" $z%(1)="1"
�
"2!q%=zoom%:q%!4=4+s%:q%!8=0:q%!12=0:ș SetI,,q%
,/!q%=pic%:ș GetW,,q%:f%=q%!28:ș &400c3,,q%
6 pic%=�create_window(x,y,F$)
@�popup(pic%,f%)
J�
^'� �domenu(handle%,menu$,menutitle$)
hmenuhandle%=handle%
r%menuptr%=buffer%:indirect%=idata%
|i%=0
�menuptr%!20=44
�$menuptr%=menutitle$
�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
�!menuptr%!16=200:menuptr%!24=0
�menuptr%+=28
�%� i1%=i%+1:i%=�menu$+",",",",i1%)
�8item$=�menu$,i1%,i%-i1%):�menuitem(item$):� item$=""
�#menuptr%!-24=(menuptr%!-24)�&80
�`�handle%=101 ș CrMenu,,buffer%,mousex%-64,96+9*44 �ș CrMenu,,buffer%,mousex%-32,mousey%+16
��
�� �menuitem(text$)
�� text$="" �
*flg%=0:submenu%=-1:I%=�text$,":"):�I%�
)flg%=��text$,I%+1):text$=�text$,I%-1)
�
&I%=�text$,">"):�I%�
0-submenu%=��text$,I%+1):text$=�text$,I%-1)
:�
Dmenuptr%!0=flg%
Nmenuptr%!4=submenu%
XV�(text$=m$(9)�(F$="" � F$="SpriteFile" � F$="JPEGImage")) � (text$=m$(14)�vram%) �
bmenuptr%!8=&07400021
l�
vmenuptr%!8=&07000021
��
�2�text$*16+8>buffer%!16 buffer%!16=�text$*16+8
��text$>12 �
�Bmenuptr%!8=menuptr%!8 � 256:menuptr%!20=�text$+1:menuptr%!16=0
�>menuptr%!12=indirect%:$indirect%=text$:indirect%+=�text$+2
��
�$(menuptr%+12)=text$
��
�menuptr%+=24
��
�� �menuselect(menus%)
�,ș GetP,,paltemp%:adjust%=paltemp%!8 � 1
-ș DcMenu,,buffer%,menus%,�200," ")�,,,a$
� a$="" ��
Ȏ menuhandle% �
� pic%
* Ȏ a$ �
4� m$(9):�callFSI
>�
H � 101
R Ȏ a$ �
\� m$(14):fast%=�fast%
f� m$(27):dest%=0
p� m$(13):dest%=1
z� m$(9):�callFSI
� � m$(15)
�Fstatescale%=0:�I%=0�9:statescale%+=�geticonstate(scalew%,I%)<<I%:�
�<�I%=10�13:statescale%+=�geticonstate(scalew%,I%+6)<<I%:�
�Bstateproc%=0:�I%=0�7:stateproc%+=�geticonstate(proc%,I%)<<I%:�
�Istateoutput%=0:�I%=0�26:stateoutput%+=�geticonstate(output%,I%)<<I%:�
�Cstatejpeg%=0:�I%=0�3:statejpeg%+=�geticonstate(jpego%,I%)<<I%:�
�!A%=�"<ChangeFSI$Dir>.Choices"
�W�#A%,fast%,dest%,statescale%,stateproc%,stateoutput%,statejpeg%,$adjpegq%,$oldmode%
�Z�#A%,$p%(0),�locale_convert($p%(1),decimal_point$,"."),$p%(2),$p%(3),$admode%,$adspcl%
�$�#A%,$s%(0),$s%(1),$s%(2),$s%(3)
��#A%
� � m$(16):�checkandfinish
��
�
0�adjust% �checkmouse(0,0,2,rmenuhandle%,0,0)
�
. � �create_window(x,y,title$)
8+x=x*�$z%(0)��$z%(1):y=y*�$z%(0)��$z%(1)
B !z%=0:z%!4=-y:z%!8=x:z%!12=0
L$z%!40=0:z%!44=-y:z%!48=x:z%!52=0
V%�x<128 � y<128 z%?35=0 �z%?35=255
`)$adtitle%="":ș CreateW,,z% � handle%
j$adtitle%=title$
t =handle%
�� �popup(handle%,f%)
�1ș "OS_ReadModeVariable",-1,4 � ,,modexshift%
�1ș "OS_ReadModeVariable",-1,5 � ,,modeyshift%
�0ș "OS_ReadModeVariable",-1,11 � ,,rightscr%
�.ș "OS_ReadModeVariable",-1,12 � ,,topscr%
�Arightscr%=rightscr%<<modexshift%:topscr%=topscr%<<modeyshift%
��getw(handle%)
�9xo%=rightscr%/2-(x0%+x1%)/2:yo%=topscr%/2-(y0%+y1%)/2
�F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,f%)
��
�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
�handle%=-1��
q%!0=handle%:q%!28=bhandle%
)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
q%!20=scx%:q%!24=scy%
(ș OpenW,,q%
2�
F� �getw(handle%)
P!q%=handle%:ș GetW,,q%
Z+�info(q%+4):bhandle%=q%!28:flags%=q%!32
d�
x� �info(q%)
�=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
� bx%=x0%-scx%:by%=y1%-scy%
��
� � �redraw_window(handle%)
�� handle%=pic% �
�?!factors%=!ifactors%*�$z%(0):factors%!4=ifactors%!4*�$z%(0)
�Cfactors%!8=ifactors%!8*�$z%(1):factors%!12=ifactors%!12*�$z%(1)
�A�reduce(!factors%,factors%!8):�reduce(factors%!4,factors%!12)
�!q%=handle%
�ș RedrawW,,q% � more%
�,�info(q%+4):by%=by%-�(y*�$z%(0)��$z%(1))
� ȕ more%
�jpegsave% �
Q�jpegpaint% ș jpegpaint%,sar%,bx%,by%,factors%,jpegsize%,1 �;V%:�(V%�1)=0 ��
�
"1ș spopx%,&134,sar%,n$,bx%,by%,,factors%,spx%
,�
6ș GetR%,0,q% � more%
@�
J�
T�
h"� �geticonstate(handle%,icon%)
r&!q%=handle%:q%!4=icon%:ș GetI,,q%
|=q%!24>>21 � 1
�� �getmodeinfo
��jpegsave% �
�%ș&35,-1,4 �,,nx:ș&35,-1,5 �,,ny
�=!ifactors%=1:ifactors%!4=1:ifactors%!8=nx:ifactors%!12=ny
��
��
�>ș"XWimp_ReadPixTrans",&100,sar%,n$,,,,ifactors%,pixtrans%
�$ș spopx%,&118,sar%,n$ � ,,sptr%
�� sptr%!32=44 �
�
palptr%=0
��
�A� grab%=0 � 2048-8 � 8:paltemp%!(grab%>>1)=sptr%!(grab%+44):�
palptr%=paltemp%
�
�Q%=0�255:pixtrans%?Q%=Q%:�
&�sptr%!32=44+2048 �
05�Q%=0�255:șctran%,palptr%!(Q%<<2)�pixtrans%?Q%:�
:�
D:ș "ColourTrans_SelectTable",m,palptr%,-1,-1,pixtrans%
N�
X6spx%=-1:�Q%=0�255:�pixtrans%?Q%<>Q% spx%=pixtrans%
b�
l�
�� �deducemode
� � m,x,y
� �geticonstate(output%,21) �
�3�geticonstate(output%,17) �="JPEG8" �="JPEG24"
��
� �geticonstate(output%,18) �
�ș &6,135 � ,,m
�ș&35,-1,9 �,,m
�
�m>3 �
�#ș&35,-1,4 �,,x:ș&35,-1,5 �,,y
�x=180/(2^x):y=180/(2^y)
� ="S"+�(2^m)+","+�x+","+�y
�
=��
�
�
*!� �geticonstate(output%,24) �
4=$oldmode%
>�
H
=$admode%
R�
\�
f�
z� �showscaletofit
� � m,x,y
�$admode%=�deducemode
�Ȏ ?admode% �
�
� �"S"
�)�$admode%,5)>��$admode%,8) x=6 �x=0
� �$admode%,2)>16 x+=5 �x+=4
�/ș&35,-1,11 �,,tofitx:ș&35,-1,12 �,,tofity
�
� �"J"
�/ș&35,-1,11 �,,tofitx:ș&35,-1,12 �,,tofity
�x=12
�
�m=�$admode%
-ș&35,m,11 �,,tofitx:ș&35,m,12 �,,tofity
/ș&35,m,4 �,,x:ș&35,m,5 �,,y:�y>x x=6 �x=0
ș&35,m,9 �,,y:x+=y
$�
.?tofitx+=1:tofity+=1:$adscale%=m$(17)+�tofitx+m$(18)+�tofity
8=q%!12=1<<21:!q%=output%:�I%=0�11:�I%=x q%!8=1<<21 �q%!8=0
B<q%!4=I%+3:ș SetI,,q%:�:�x=12 q%!8=0:q%!4=24:ș SetI,,q%
L�
`� �killcurrent(m$)
j"q%!12=1<<21:!q%=output%:q%!8=0
tq%!4=20:ș SetI,,q%
~$admode%=m$
��
�+ݤZS(I%)�A$:�A$+=�?I%:I%+=1:�?I%<14:=A$
�� �errorbox
�>ș Drag,,-1:!buffer%=�:$(buffer%+4)=�$+" (code "+Þ+")"+�0
�2ș "Wimp_ReportError",buffer%,%11,m$(20) � ,A%
�+�A%=2 �removearea:ș "Wimp_CloseDown":�
��
�S� �ChangeFSI(A$,spritearea%,workspace%,worklimit%,oksave%,okinfo%,� ram%,fast%)
�M� A$(),r%(),g%(),b%(),rpal%(),gpal%(),bpal%(),table%(),cl%(),xl%(),xl2%()
�M� xp%(),rm%(),rm1%(),rm2%(),vals%(),nl%(),A%(),B%(),new%(),st%(),jpq%(),m
�$ȕ�A$,1)<>" "��A$<>0 A$=�A$,2):�
� ȕ�A$,1)=" " A$=�A$,2):�
�ȕ�A$,1)=" " A$=�A$):�
�uc(�A$,5))="-QUIT" �
.A$=�A$,7):ȕ�A$,1)<>" "��A$<>0 A$=�A$,2):�
ȕ�A$,1)=" " A$=�A$,2):�
"�
, � A$(100):ARG%=0:B%=�A$," ")
6 ȕ B%<>0
@+ARG%+=1:A$(ARG%)=�A$,B%-1):A$=�A$,B%+1)
J ȕ �A$,1)=" ":A$=�A$,2):�
TB%=�A$," ")
^�
h �A$<>"" ARG%+=1:A$(ARG%)=A$
rXinvert%=�:range%=�:sharpen%=�:info%=�:cache%=�:cacheareanumber%=0:dither%=�:black%=�
|Chist%=�:equal%=�:vflip%=�:hflip%=�:scale%=�:scaleo%=�:scrapf%=�
�6gamma=1:rotate%=�:max%=20000000:bright%=15:lock%=�
� rwt=.299:gwt=.587:bwt=.114
�
�ARG%<3 �
�J�"ChangeFSI interactive input (read FSIinfo for command line details)"
�?�"Source file: "s$,"Destination file: "f$,"Output mode: "m$
�/�"(X)Scale (e.g. 2:1): "xs$:�"Y Scale: "ys$
�8�"Info on input picture?"a$:�uc(�a$,1))="Y" info%=�
�;�"Invert picture colours?"a$:�uc(�a$,1))="Y" invert%=�
�=�"Compute histogram of input?"a$:�uc(�a$,1))="Y" hist%=�
�@�"Apply histogram equalisation?"a$:�uc(�a$,1))="Y" equal%=�
�G�"Expand input dynamic range?"a$:�uc(�a$,1))="Y" range%=�:equal%=�
�=�"Sharpen picture by (e.g. 12 for harsh, 24 for soft) "a$
��a$<>"" sharpen%=�a$
+�"Rotate?"a$:�uc(�a$,1))="Y" rotate%=1
scale%=�:scaleo%=�:fast%=�
�
&
� A%=ARG%
06�uc(A$(ARG%))="-INFO" info%=�:A$(ARG%)="":ARG%-=1
:6�uc(A$(ARG%))="-HIST" hist%=�:A$(ARG%)="":ARG%-=1
D6�uc(A$(ARG%))="-LOCK" lock%=�:A$(ARG%)="":ARG%-=1
NA�uc(A$(ARG%))="-EQUAL" equal%=�:range%=�:A$(ARG%)="":ARG%-=1
XA�uc(A$(ARG%))="-RANGE" range%=�:equal%=�:A$(ARG%)="":ARG%-=1
b:�uc(A$(ARG%))="-INVERT" invert%=�:A$(ARG%)="":ARG%-=1
lD�uc(A$(ARG%))="-NOSCALE" scale%=�:scaleo%=�:A$(ARG%)="":ARG%-=1
v9�uc(A$(ARG%))="-NOSIZE" scale%=�:A$(ARG%)="":ARG%-=1
�<�uc(A$(ARG%))="-NODITHER" dither%=�:A$(ARG%)="":ARG%-=1
�=�uc(A$(ARG%))="-BRIGHTEN" bright%=16:A$(ARG%)="":ARG%-=1
�:�uc(A$(ARG%))="-ROTATE" rotate%=1:A$(ARG%)="":ARG%-=1
�<�uc(A$(ARG%))="-ROTATE-" rotate%=-1:A$(ARG%)="":ARG%-=1
�8�uc(A$(ARG%))="-VFLIP" vflip%=�:A$(ARG%)="":ARG%-=1
�8�uc(A$(ARG%))="-HFLIP" hflip%=�:A$(ARG%)="":ARG%-=1
�8�uc(A$(ARG%))="-NOMODE" fast%=�:A$(ARG%)="":ARG%-=1
�!�uc(�A$(ARG%),6))="-BLACK" �
�Fblack%=32:�A$(ARG%)>6 black%=��A$(ARG%),7):�black%>128 black%=128
�A$(ARG%)="":ARG%-=1
��
�!�uc(�A$(ARG%),6))="-GAMMA" �
�.gamma=2.2:�A$(ARG%)>6 gamma=��A$(ARG%),7)
!A$(ARG%)="":ARG%-=1
! �
!#�uc(�A$(ARG%),8))="-SHARPEN" �
! 3sharpen%=24:�A$(ARG%)>8 sharpen%=��A$(ARG%),9)
!*A$(ARG%)="":ARG%-=1
!4�
!>"�uc(�A$(ARG%),7))="-SMOOTH" �
!H4sharpen%=-1:�A$(ARG%)>7 sharpen%=-��A$(ARG%),8)
!R2A$(ARG%)="":ARG%-=1:�sharpen%<-23 sharpen%=-23
!\�
!fC�uc(�A$(ARG%),4))="-RED" rwt=��A$(ARG%),5):A$(ARG%)="":ARG%-=1
!pE�uc(�A$(ARG%),6))="-GREEN" gwt=��A$(ARG%),7):A$(ARG%)="":ARG%-=1
!zD�uc(�A$(ARG%),5))="-BLUE" bwt=��A$(ARG%),6):A$(ARG%)="":ARG%-=1
!� �uc(�A$(ARG%),4))="-MAX" �
!�Dmax%=��A$(ARG%),5):�A$(ARG%),"K")��A$(ARG%),"k") max%=max%*1024
!�A$(ARG%)="":ARG%-=1
!��
!� �A%=ARG%
!�2s$=A$(1):f$=A$(2):m$=A$(3):xs$=A$(4):ys$=A$(5)
!��
!��okinfo% �info%=�
!��workspace%>=0 �
!� flex%=�
!��
!�<�worklimit%=0 �flex%=� �flex%=�:nextlocation%=worklimit%
!��
""pnm$=�uc(m$):Ȏ �pnm$+",",3) �
"�"AIM":m=-1:m$=""
""�"P1,","P4,":m=-2:m$="":spm=18
"$#�"P2,","P5,":m=-2:m$="T":spm=20
".=�"P3,","P6,":m=-4:pnm$=�pnm$,2):p6bits=8:I%=��m$,4):m$=""
"8�I%>0�I%<8 p6bits=I%
"B�"P15":m=-3:m$=""
"L�"C15":m=-5:m$=""
"V �"IRL":m=-4:m$="":p6bits=8
"`�"S16":m=-6:m$=""
"j �"S24":m=-7:m$="":p6bits=8
"t �"S32":m=-8:m$="":p6bits=8
"~h�"JPE":m$="":p6bits=8:�pnm$,8)="JPEGMONO" m=-9:jpegquality%=��pnm$,9) �m=-10:jpegquality%=��pnm$,5)
"�5:m=�m$:spm=m:m$=�uc(�m$,1)):�"CDRT",m$)=0 m$=""
"��
"��xs$="" � �xs$,1)="-" �
"�#xmul%=1:xdiv%=1:ymul%=1:ydiv%=1
"��
"��ys$="" ys$=xs$
"�'xmul%=�xs$:xdiv%=��xs$,�xs$,":")+1)
"�'ymul%=�ys$:ydiv%=��ys$,�ys$,":")+1)
"��
"�&flag=-1:ș8,5,s$ � r0,,r2:dir=r0=2
"�
�dir �
"�Cpanic=�:ș8,5,s$+".raw" � r0,,r2:�r0=1 s$+=".raw":dir=�:panic=�
# 1�panic ș8,5,s$+".red" � r0,,r2:�r0=1 panic=�
#
!�panic � 42,"Directory given"
#�
# >ftype=r2>>8 � &FFF:bits=28:F=2^bits:c%=0:cc%=0:ccc%=0:o%=0
#(
�dir �
#2>c%=�(s$+".red"):�c%=0 � 42,"Red file "+s$+".red not found"
#<Ecc%=�(s$+".green"):�cc%=0 �42,"Green file "+s$+".green not found"
#FDccc%=�(s$+".blue"):�ccc%=0 �42,"Blue file "+s$+".blue not found"
#P�
#Z-c%=�s$:�c%=0 � 42,"File "+s$+" not found"
#d�
#n� �
#x � � � � �:� �:�close:� �,�$
#�colourindex=255
#�ș&66f4d �;pcd%
#�Ȏ ftype �
#�� &FF9:flag=0
#�.�"."+�uc(s$),".HIP.")���uc(s$),":HIP.") �
#� flag=300:I%=��uc(s$),"HIP.")
#�?�s$,I%)="LOP.":cc%=�s$:�cc%=0 �42,"Can't find Lop file "+s$
#��
#�+� &FF0:�#c%=0:S$="":�I%=1�4:S$+=��#c%:�
#�&�S$="II*"+�0 flag=1500:bigendian=�
#�)�S$="MM"+�0+"*" flag=1500:bigendian=�
$!� &DFA:flag=800:�dir flag=801
$� &DE2:flag=1000
$� &CBE:flag=3800
$" � &BE8:�(pcd%�1)=0 flag=3600
$,� &7A0:flag=1200
$6� &69d:flag=2000
$@� &699:flag=700
$J� &698:flag=100
$T� &697:flag=1900
$^� &691:flag=2600
$h� &690:flag=2500
$r� &666:flag=666
$|� &601:flag=3000
$�� &371:flag=3100
$�#� &300:flag=1300:�dir flag=1301
$� � 4:flag=900:�dir flag=901
$�� 6:flag=950
$��
$��flag=-1 �
$�%�#c%=0:S$="":�I%=1�22:S$+=��#c%:�
$� �S$,7)="FSIfile" flag=2100
$�)�flag=-1 �S$,8)="SIMPLE " flag=2800
$�C�flag=-1 �uc(�S$,8))="MERCSOFT"��uc(�S$,8))="SNAPSHOT"flag=902
$�-�flag=-1 �uc(�S$,8))="MERCSOF1" flag=903
$�4�flag=-1 �uc(�S$,13))="IRLAM YUV 411" flag=2250
$�&�flag=-1 �S$,5)="Irlam" flag=2200
%.�flag=-1 �S$,2)="BM" flag=2400:riffoff%=0
%X�flag=-1 �S$,4)="RIFF" � �S$,9,8)="RDIBdata" � �S$,21,2)="BM" flag=2400:riffoff%=20
% $�flag=-1 �S$,4)="GIF8" flag=500
%&%�flag=-1 �S$,5)="AV_VO" flag=600
%02�flag=-1 �S$,4)=�&59+�&A6+�&6A+�&95 flag=1100
%:*�flag=-1 �S$,4)=�0+�1+�0+�8 flag=1400
%D*�flag=-1 �S$,4)=�0+�1+�0+�1 flag=2900
%N%�flag=-1 �S$,4)="RIX3" flag=2700
%X3�flag=-1 �S$,4)="II*"+�0 flag=1500:bigendian=�
%b6�flag=-1 �S$,4)="MM"+�0+"*" flag=1500:bigendian=�
%l(�flag=-1 �S$,2)=�&52+�&CC flag=2300
%vD�flag=-1 �S$,2)="P4"��S$,2)="P5"��S$,2)="P6" flag=3300:info$=""
%�$�flag=-1 �S$,3)="P15" flag=3400
%�$�flag=-1 �S$,3)="PIC" flag=3500
%�$�flag=-1 �S$,3)="T-I" flag=3800
%�)�flag=-1 �uc(�S$,3))="P13" flag=3450
%�6�flag=-1 �S$,4)="FORM" �S$,9,4)="ILBM" flag=1600
%�:�flag=-1 �S$,8)="ALPIAR12" flag=3900:colourindex=4095
%�;�flag=-1 �S$,8)="ALPIAR16" flag=3905:colourindex=65535
%��flag=-1 �
%�#�S$,7,4)="JFIF" � ftype=&C85 �
%�*jpegblk%=�dim(20):�cachesize(jpegblk%)
%��cache%<�#c% �
%� �#c%:c%=0:X%=�"Run:djpeg"
%� �X% �
&.�#X%:�subtask("djpeg "+s$+" <Wimp$Scrap>")
& �
&0ș"XOS_CLI","djpeg "+s$+" <Wimp$Scrap>" � ;V
& �V �1 �
&*9�subtask("<ChangeFSI$Dir>.djpeg "+s$+" <Wimp$Scrap>")
&4�
&>�
&H"c%=�"<Wimp$Scrap>":�c%=0 �=100
&R>scrapf%=�:flag=3300:info$="JPEG (JFIF) file converted to "
&\�
&f
flag=3700
&p�
&z�
&��
&��flag=-1 �
&��S$,5)="btpc " �
&�B�#c%:c%=0:�subtask("<ChangeFSI$Dir>.btpc "+s$+" <Wimp$Scrap>")
&�"c%=�"<Wimp$Scrap>":�c%=0 �=100
&�7scrapf%=�:flag=3300:info$="BTPC file converted to "
&��
&��
&��flag=-1 �
&�&�#c%=&10:S$="":�I%=1�9:S$+=��#c%:�
&� �S$="MILLIPEDE" flag=200
&��
&��flag=-1 �
'&�#c%=&41:S$="":�I%=1�8:S$+=��#c%:�
'%�S$,4)="PNTG" flag=1800:st%=&280
'�
'$�flag=-1 �
'.&�#c%=196:S$="":�I%=1�8:S$+=��#c%:�
'8%�S$,4)="PNTG" flag=1800:st%=&2e2
'B�
'L�flag=-1 �
'V&�#c%=522:S$="":�I%=1�8:S$+=��#c%:�
'`2�S$=�0+�&11+�2+�&ff+�&c+�0+�&ff+�&fe flag=1850
'j�
't�flag=-1 �
'~�#c%=0:�#c%=10 �
'�+C%=�#c%:�C%<6 � C%<>1 ��#c%=1 flag=1900
'��
'��
'�M�flag=-1 �"."+�uc(s$),".PCX.")���uc(s$),":PCX.")��s$,4)="/PCX" flag=1900
'�B�flag=-1 �"."+�uc(s$),".IMAGE.")���uc(s$),":IMAGE.") flag=400
'�)�flag=-1 �uc(�s$,4))=".RAW" flag=100
'�)�flag=-1 �uc(�s$,3))="TGA" flag=2000
'�)�flag=-1 �uc(�s$,3))="VDA" flag=2000
'�>�flag=-1 �"."+�uc(s$),".PIC.")���uc(s$),":PIC.") flag=700
'�M�flag=-1 �"."+�uc(s$),".IMG.")���uc(s$),":IMG.")��s$,4)="/IMG" flag=1400
'�M�flag=-1 �"."+�uc(s$),".DSP.")���uc(s$),":DSP.")��s$,4)="/DSP" flag=1700
'�*�flag=-1 �uc(�s$,4))="/RGB" flag=3200
( <�flag=-1 �(�uc(�s$,4))="/PCD"�ftype=&be8)�((pcd%�1)=1) �
(
k�#c%:c%=0:�subtask("<ChangeFSI$Dir>.hpcdtoppm -3 -a "+s$+" <Wimp$Scrap> { > <ChangeFSI$Dir>.pcdtemp }")
(Mc%=�"<Wimp$Scrap>":scrapf%=�:flag=3300:info$="PhotoCD file converted to "
( �
((�
(2c�flag=-1 �close:� 42,"Sorry: format not recognised - please try again or contact your supplier"
(<Bstep24=1:input=8:ham=0:planar%=0:bigendianbits=�:r$="FN"+�flag
(F9compression=0:hpredict%=1:striprows%=-1:cachebytes%=�
(P �xdiv%=0 � ydiv%=0 scale%=�
(Z� r%(colourindex)
(d%� g%(colourindex),b%(colourindex)
(n
Ȏ flag �
(x� 0
(�@quant%=4:�#c%=4:F%=�W+&1C:�#c%=F%:st%=�W+F%-&20:K%=�W+F%-&20
(�sm=�W:�sm<256 �
(�ș53,sm,3 � ,,I%
(� Ȏ I% �
(�%� 1:�st%=F%+12 �defpal2 ��ipal(2)
(�5�#c%=F%-16:sx%=(�W+1)*32:rowbytes%=sx%>>3:input=1
(� sy%=�W+1:I%=�W:sx%-=31-�W
(�%� 3:�st%=F%+12 �defpal4 ��ipal(4)
(�5�#c%=F%-16:sx%=(�W+1)*16:rowbytes%=sx%>>2:input=2
(�!sy%=�W+1:I%=�W:sx%-=(31-�W)�2
(�(� 15:�st%=F%+12 �defpal16 ��ipal(16)
(�4�#c%=F%-16:sx%=(�W+1)*8:rowbytes%=sx%>>1:input=4
(�!sy%=�W+1:I%=�W:sx%-=(31-�W)�4
)� 63,255:�st%=F%+12 �
) �defpal
)�
)"�K%>st% K%=st%
), �K%-12-F%=2048 �I%=255 �
)6 �#c%=&38
)@�C%=0�255:D%=�#c%
)J9r%(C%)=�#c%/255*F:g%(C%)=�#c%/255*F:b%(C%)=�#c%/255*F
)T D%=�W:�
)^�
)h �ipal63
)r�
)|�
)�G�#c%=F%-16:sx%=(�W+1)*4:rowbytes%=sx%:sy%=�W+1:I%=�W:sx%-=(31-�W)�8
)�) �42,"Not understood RISC OS sprite"
)��
)�@r$="FN8":ș53,sm,4 � ,,nx:ș53,sm,5 � ,,ny:nx=1<<nx:ny=1<<ny
)�-�scale% xmul%=xmul%*nx/2:ymul%=ymul%*ny/2
)�Sinfo$="RISC OS sprite, mode "+�sm+" "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
)��
)�bpp%=sm>>>27:Ȏbpp% �
)�9� 1:bpp%=1:r$="FN8":�st%=F%+12 �defpal2 ��newropal(2)
)�9� 2:bpp%=2:r$="FN8":�st%=F%+12 �defpal4 ��newropal(4)
)�;� 3:bpp%=4:r$="FN8":�st%=F%+12 �defpal16 ��newropal(16)
)�:� 4:bpp%=8:r$="FN8":�st%=F%+12 �defpal ��newropal(256)
)�&� 5:bpp%=16:r$="FN16":�st%=F%+12 �
*$� rpal%(255),gpal%(255):step24=2
*
�C%=0�255
* "gpal%(C%)=(C%>>5)<<8 � (C%�31)
*&+rpal%(C%)=((C%>>2)�31)<<16 � (C%�3)<<11
*0�
*:1�C%=0�31:r%(C%)=C%/31*F:�:g%()=r%():b%()=r%()
*D-� 6:bpp%=32:r$="FN24":�st%=F%+12 �nopal �
*N!rbo%=0:gbo%=1:bbo%=2:step24=4
*X-� 8:bpp%=24:r$="FN24":�st%=F%+12 �nopal �
*brbo%=0:gbo%=1:bbo%=2
*l8 �42,"Not understood new format RISC OS sprite bpp"
*v�
*�(nx=(sm>>1) �&1fff:ny=(sm>>14) �&1fff
*�G�scale% xdiv%=xdiv%*nx:ydiv%=ydiv%*ny:xmul%=xmul%*90:ymul%=ymul%*90
*�Z�#c%=F%-16:rowbytes%=(�W+1)*4:sy%=�W+1:I%=�W:sx%=(rowbytes%*8-(31-�W))/bpp%:input=bpp%
*�Jinfo$="New RISC OS sprite, "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
*��bpp%=32 input=24
*��
*��#c%=st%:cache%=�
*� � 100
*�Equant%=8:�#c%=0:sx%=�HW:sy%=�HW:�nopal:input=24:rowbytes%=sx%*3+2
*�5rbo%=2:gbo%=2+sx%:bbo%=2+2*sx%:r$="FN24":cache%=�
*�Jinfo$="QRT .raw image, "+�sx%+" by "+�sy%+" pixels, 24 bits per pixel"
*� � 200
*�Gquant%=8:�#c%=5:sx%=�HW:sy%=�HW:sx%=(�HW-sx%+2)/2:sy%=(�HW-sy%+2)/2
+$�#c%=&1a:cadsoft%=�#c%:�#c%=&200
+ ?�C%=0�255:r%(C%)=�#c%/255*F:�:�C%=0�255:g%(C%)=�#c%/255*F:�
+!�C%=0�255:b%(C%)=�#c%/255*F:�
+ -�#c%=&600:st%=&600:cache%=�:�cadsoft%=2 �
+*Crep%=0:r$="FN1100":plbuff%=�dim(sx%):plbytes%=sx%:cachebytes%=�
+4�
+>r$="FN8":rowbytes%=sx%
+H�
+R[info$="Cadsoft type "+�cadsoft%+" image, "+�sx%+" by "+�sy%+" pixels, 8 bits per pixel"
+\ � 300
+fIquant%=5:�#c%=&2c:st%=�W+(&38-&2c):�#cc%=&2c:stcc%=�W1(cc%)+(&38-&2c)
+p7�#c%=&1c:sx%=(�W+1)*4:sy%=�W+1:�#c%=st%:�#cc%=stcc%
+z;� rpal%(255),gpal%(255):input=16:cache%=�:rowbytes%=sx%
+�
�C%=0�255
+�.rpal%(C%)=C%�7 � (C%�64)<<2 � (C%�&38)<<13
+�Sgpal%(C%)=(C%�4)<<1�C%�16 � ((C%�3)<<1�(C%�&60)>>2)<<8 � (C%�8�(C%�128)>>3)<<16
+��
+�1�C%=0�31:r%(C%)=C%/31*F:�:g%()=r%():b%()=r%()
+�*pbuff%=�dim(sx%):�scale% ymul%=ymul%*2
+�Ginfo$="ArVis image, "+�sx%+" by "+�sy%+" pixels, 15 bits per pixel"
+� � 400
+�Equant%=8:�#c%=0:sx%=�beHW:sy%=�beHW:X%=�beHW:st%=�#c%+X%:�#c%=st%
+�Vplbuff%=�dim(sx%*3):plbytes%=sx%*3:rb%=plbuff%:gb%=plbuff%+1:bb%=plbuff%+2:rbo%=-1
+�:�nopal:input=24:rep%=0:cachebytes%=�:cache%=�:step24=3
+�^info$="RT image. run length encoded image, "+�sx%+" by "+�sy%+" pixels, 24 bits per pixel"
+� � 500
,,compression=5:�#c%=6:GIFsx=�HW:GIFsy=�HW
,8GIF=�#c%:GIFback=�#c%:GIFext=�#c%:quant%=(GIF � 7)+1
,�GIF � &80 �
,$�C%=0�(1<<quant%)-1
,.9r%(C%)=�#c%/255*F:g%(C%)=�#c%/255*F:b%(C%)=�#c%/255*F
,8�
,B�
,LI%=�#c%:ȕ I%=�"!"
,`
� �#c%
,j�
,t$GIFgcesz=�#c%:�#c%=�#c%+GIFgcesz
,�� GIFgcesz=0:I%=�#c%
,��
,�6�I%<>�"," � 42,"GIF file without , in right place"
,� �GIFext<>0 � GIFext<>49 �
,��GIFext>49 �
,�*xdiv%=xdiv%*64:xmul%=xmul%*(GIFext+15)
,��
,�*ydiv%=ydiv%*(GIFext+15):ymul%=ymul%*64
,��
- �
-
,GIFleft=�HW:GIFright=�HW:sx%=�HW:sy%=�HW
- �GIFsx<sx% � GIFsy<sy% �
- �info% �
-()�"GIF file with bigger image inside:"
-2;�"Screen ";GIFsx"x by "GIFsy"y; image "sx%"x by "sy%"y"
-</�"Continue with monitor's size [Y or y]?"A$
-F&�A$="Y"�A$="y" sx%=GIFsx:sy%=GIFsy
-P(�"Continuing with ";sx%"x by "sy%"y"
-Z�
-d�
-n)GIF=�#c%:�GIF � &40 flag=501:r$="FN8"
-xJsetcodes%=�#c%:clearcode%=1<<setcodes%:st%=�#c%:cache%=�:cachebytes%=�
-�E� table%(1<<12):stk%=�dim(1<<13):buf%=�dim(280):plbuff%=�dim(sx%)
-�&�I%=0�clearcode%-1:table%(I%)=I%:�
-�Ainfo$="GIF file, "+�sx%+" by "+�sy%+" pixels, "+�bits(quant%)
-� � 600
-� quant%=8:�#c%=&5c:�C%=0�255
-�9r%(C%)=�#c%/255*F:g%(C%)=�#c%/255*F:b%(C%)=�#c%/255*F
-��
-� �#c%=&36e:sy%=�HW:sx%=�HW
-�5st%=&380:�#c%=st%:rowbytes%=sx%:r$="FN8":cache%=�
-�Einfo$=".PIC image, "+�sx%+" by "+�sy%+" pixels, 8 bits per pixel"
-� � 700
-�$quant%=8:�#c%=0:a$=�#c%:st%=�#c%
-� sx%=�a$:sy%=�(�a$,�a$," ")))
.6�nopal:input=24:step24=3:rowbytes%=sx%*3:r$="FN24"
.!rbo%=0:gbo%=1:bbo%=2:cache%=�
.Jinfo$="MTV .pic image, "+�sx%+" by "+�sy%+" pixels, 24 bits per pixel"
." � 800
.,)sx%=512:sy%=256:�scale% ymul%=ymul%*2
.64plbuff%=�dim(sx%):rep%=0:wt%=0:wtsx%=plbuff%+sx%
.@cache%=�:cachebytes%=�
.J@�C%=0�255:r%(C%)=(C%�63)/63*F:�:g%()=r%():b%()=r%():quant%=6
.TJinfo$="Watford digitiser picture, 512 by 256 pixels, 6 bits per pixel"
.^ � 801
.h;sx%=512:sy%=256:input=24:quant%=6:�scale% ymul%=ymul%*2
.r0rep1%=0:wt1%=0:rep2%=0:wt2%=0:rep3%=0:wt3%=0
.|=buff%=�dim(sx%*3):rb%=buff%:gb%=buff%+sx%:bb%=buff%+2*sx%
.�:wtsx1%=buff%+sx%:wtsx2%=buff%+2*sx%:wtsx3%=buff%+3*sx%
.�7�C%=0�255:r%(C%)=(C%�63)/63*F:�:g%()=r%():b%()=r%()
.�Rinfo$="Triple Watford digitiser picture, 512 by 256 pixels, 18 bits per pixel"
.� � 900
.�'quant%=8:st%=0:�#c%=0:�#c%=65536 �
.�7sx%=256:sy%=256:�scale% ymul%=ymul%*2:xmul%=xmul%*2
.��
.�sx%=512:sy%=512
.��
.�S�C%=0�255:r%(C%)=C%/255*F:�:g%()=r%():b%()=r%():rowbytes%=sx%:r$="FN8":cache%=�
.�?info$="AIM .raw image, 256 by 256 pixels, 8 bits per pixel"
.� � 901
.�quant%=4:�#c%=65536 �
/7sx%=256:sy%=256:�scale% ymul%=ymul%*2:xmul%=xmul%*2
/�
/ sx%=512:sy%=512
/&�
/0=buff%=�dim(sx%*3):rb%=buff%:gb%=buff%+sx%:bb%=buff%+sx%*2
/:3�C%=0�255:r%(C%)=C%/255*F:�:g%()=r%():b%()=r%()
/DOinput=24:info$="Hawk V9 Triple image, 256 by 256 pixels, 24 bits per pixel"
/N � 902
/XBquant%=4:�#c%=8:sx%=�W:rowbytes%=sx%*3/2:sy%=�W:st%=20:�#c%=20
/b�scale% ymul%=ymul%*2
/lMplbuff%=�dim(sx%*3):rb%=plbuff%:gb%=plbuff%+sx%:bb%=plbuff%+sx%*2:rbo%=-1
/v@�C%=0�255:r%(C%)=(C%�&F)/&F*F:�:g%()=r%():b%()=r%():cache%=�
/�binput=24:info$="Hawk V9/Snapshot Colour image, "+�sx%+" by "+�sy%+" pixels, 12 bits per pixel"
/� � 903
/�\quant%=5:�#c%=8:sx%=�W:rowbytes%=sx%*2:sy%=�W:st%=20:�#c%=20:cache%=�:r$="FN16":flag=700
/�-� rpal%(255),gpal%(255):input=16:step24=2
/�
�C%=0�255
/�"gpal%(C%)=(C%>>5)<<8 � (C%�31)
/�+rpal%(C%)=((C%>>2)�31)<<16 � (C%�3)<<11
/��
/�1�C%=0�31:r%(C%)=C%/31*F:�:g%()=r%():b%()=r%()
/�_input=16:info$="Hawk V9 mk II Colour image, "+�sx%+" by "+�sy%+" pixels, 16 bits per pixel"
/� � 950
/�@quant%=8:�#c%=0:sx%=512:rowbytes%=512:sy%=512:st%=0:flag=900
/�E�C%=0�255:r%(C%)=C%/255*F:�:g%()=r%():b%()=r%():r$="FN8":cache%=�
0Finfo$="Wild Vision V12 image, 512 by 512 pixels, 8 bits per pixel"
0
� 1000
0Tquant%=4:sx%=640:sy%=256:�defpal:st%=�W:r$="FN"+�(1000+�W):�scale% ymul%=ymul%*2
0*%buff%=�dim(sx%):ctable%=�dim(st%)
04"ș12,4,c%,ctable%,st%:st%=�#c%
0>.pa%=ctable%:rep%=0:rep2%=0:pasx%=buff%+sx%
0HAinfo$="ProArtisan image, 640 by 256 pixels, 8 bits per pixel"
0R
� 1100
0\@quant%=1:�#c%=4:sx%=�beW:sy%=�beW:input=�beW:bigendianbits=�
0fS%=�beW:S%=�beW
0pIcache%=�:�S%=2 cachebytes%=�:info$="Byte Encoded " �info$="":r$="FN8"
0z C%=�beW
0� D%=�beW
0� Ȏ C% �
0� � 1,2
0�$�I%=0�D%/3-1:r%(I%)=�#c%/255*F:�
0�$�I%=0�D%/3-1:g%(I%)=�#c%/255*F:�
0�$�I%=0�D%/3-1:b%(I%)=�#c%/255*F:�
0�
0�Ȏ input �
0� � 1:r%(0)=F:g%(0)=F:b%(0)=F
0�� 4,8:�nopal
0�� 24:�nopal
0��
0��
1Ȏ input �
1 � 1:rowbytes%=(sx%+15>>4)<<1
1 � 4:rowbytes%=(sx%+3>>2)<<1
1$ � 8:rowbytes%=(sx%+1>>1)<<1
1.J� 24:rowbytes%=(3*sx%+1>>1)<<1:r$="FN24":rbo%=0:gbo%=1:bbo%=2:step24=3
18�S%=1 bbo%=0:rbo%=2
1B&:� 42,"Can't do this Sun pixrect"
1L�
1VMst%=D%+&20:rep%=0:�cachebytes% plbuff%=�dim(rowbytes%):plbytes%=rowbytes%
1`Binfo$+="Sun image, "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
1j
� 1200
1t>quant%=8:sx%=800:sy%=800:st%=1600:�#c%=st%:vflip%=� vflip%
1~*�nopal:r$="FN8":rowbytes%=sx%:cache%=�
1�Iinfo$="TimeStep satellite image, 800 by 800 pixels, 8 bits per pixel"
1�
� 1300
1�?quant%=8:sx%=128:sy%=256:st%=0:�#c%=0:�scale% xmul%=xmul%*2
1�*�nopal:r$="FN8":rowbytes%=sx%:cache%=�
1�@info$="satellite image, 128 by 256 pixels, 8 bits per pixel"
1�
� 1301
1�;input=24:quant%=8:sx%=128:sy%=256:�scale% xmul%=xmul%*2
1�Obuff%=�dim(sx%*3):rb%=buff%:gb%=buff%+sx%:bb%=buff%+2*sx%:�nopal:r$="FN901"
1�Hinfo$="Triple satellite image, 128 by 256 pixels, 24 bits per pixel"
1�
� 1400
1�%planar%=�:�#c%=0:Z%=�HW:�Z%>255 �
1�+st%=�beHW*2:planes%=�beHW:patlen%=�beHW
2 +pw%=�beHW:ph%=�beHW:sx%=�beHW:sy%=�beHW
2
�
2Cst%=�HW*2:input=�HW:patlen%=�HW:pw%=�HW:ph%=�HW:sx%=�HW:sy%=�HW
2 �
2(
�scale% �
22#xmul%=xmul%*pw%:xdiv%=xdiv%*282
2<#ymul%=ymul%*ph%:ydiv%=ydiv%*282
2F�
2PWrowbytes%=sx%+7>>3:pbuff%=�dim(sx%):plbytes%=rowbytes%*planes%:buff%=�dim(plbytes%)
2Z�#c%=st%:vrep%=0
2dM�C%=0�(1<<planes%)-1:r%(C%)=F-C%/((1<<planes%)-1)*F:�:g%()=r%():b%()=r%()
2nBinfo$="IMG file, "+�sx%+" by "+�sy%+" pixels, "+�bits(planes%)
2x
� 1500
2�"�#c%=4:dir%=�tiff(4):�#c%=dir%
2�6rgb=�:greyunit=100:planar%=1:fillorder=1:resunit=2
2�)xnum%=90:xdenom%=1:ynum%=90:ydenom%=1
2�E%=�tiff(3):�Z%=1�E%
2�'T%=�tiff(3):D%=�tiff(3):C%=�tiff(4)
2�a�C%>1 V%=�tiff(4) ��D%=2 �#c%=dir%+2+Z%*12 ��D%<4 V%=�tiff(D%):�#c%=dir%+2+Z%*12 �V%=�tiff(4)
2�?�"Read tag ";T%" datatype "D%" count "C%" value/pointer "V%
2� Ȏ T% �
2�� 256:sx%=V%
2�� 257:sy%=V%
2�� 258:�C%>1 �
2��D%*C%>6 �
2� �#c%=V%:quant%=�tiff(D%)
3(input=quant%:�I%=1�C%-1:V%=�tiff(D%)
3P�V%<>quant% �42,"Can't do RGB TIFF with different numbers of bits per pixel"
3
input+=V%
3" �:�nopal
3,�
36 quant%=V% � &FF:input=quant%
3@5�I%=0�(1<<quant%)-1:r%(I%)=I%/((1<<quant%)-1)*F:�
3Jg%()=r%():b%()=r%()
3T�
3^�#c%=dir%+2+Z%*12
3h�
3rquant%=V%:input=quant%
3|5�I%=0�(1<<quant%)-1:r%(I%)=I%/((1<<quant%)-1)*F:�
3�g%()=r%():b%()=r%()
3��
3�� 259:compression=V%
3�/� 262:photometric=V%:�V%=0 invert%=�invert%
3�� 266:fillorder=V%
3�!� 273:stc%=C%:stv%=V%:std%=D%
3�1� 277:sampperpix%=V%:input=quant%*V%:rgb=V%=3
3�� 278:striprows%=V%
3�-� 279:stcbyte%=C%:stvbyte%=V%:stdbyte%=D%
3�1� 282:�#c%=V%:xnum%=�tiff(4):xdenom%=�tiff(4)
3��#c%=dir%+2+Z%*12
3�1� 283:�#c%=V%:ynum%=�tiff(4):ydenom%=�tiff(4)
3��#c%=dir%+2+Z%*12
4,� 284:planar%=V%:�planar%=2 input=quant%
4� 290:greyunit=10^V%
4 <� 291:�#c%=V%:�I%=0�C%-1:r%(I%)=�tiff(D%)/greyunit/2*F:�
4&g%()=r%():b%()=r%()
40�#c%=dir%+2+Z%*12
4:� 296:resunit=V%
4D� 317:hpredict%=V%
4N8� 320:�#c%=V%:�I%=0�C%/3-1:r%(I%)=�tiff(3)/65535*F:�
4X*�I%=0�C%/3-1:g%(I%)=�tiff(3)/65535*F:�
4b*�I%=0�C%/3-1:b%(I%)=�tiff(3)/65535*F:�
4l�#c%=dir%+2+Z%*12
4v
4�J�info% �"Ignoring tag ";T%" datatype "D%" count "C%" value/pointer "V%
4��
4��
4�� st%(stc%):�stc%>1 �
4�0�#c%=stv%:�I%=0�stc%-1:st%(I%)=�tiff(std%):�
4��
4�st%(0)=stv%
4��
4�Ȏ compression �
4�� 0,1:info$=""
4�)� 2:info$="CCITT Group 3 compressed "
4�+� 5:info$="LZW compressed ":r$="FN1505"
5n�hpredict%=2 �info$+="horizontal differenced " ��hpredict%>2 info$+=" unknown predictor ("+�hpredict%+") "
5 'setcodes%=8:clearcode%=1<<setcodes%
53� table%(1<<12):stk%=�dim(1<<13):buf%=�dim(280)
5 &�I%=0�clearcode%-1:table%(I%)=I%:�
5*4� 32773:info$="PackBits compressed ":r$="FN1501"
54 � 6:info$="JPEG compressed "
5>2 info$="Compress "+�compression+" - unknown "
5H�
5RBinfo$+="TIFF file, "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
5\Sbigendianbits=fillorder=1:�#c%=st%(0):stripptr=0:�striprows%>=sy% striprows%=-1
5fȎ input �
5p� 1:rowbytes%=sx%+7>>3
5z� 2:rowbytes%=sx%+3>>2
5�� 4:rowbytes%=sx%+1>>1
5�� 8:rowbytes%=sx%
5�� 24:rowbytes%=3*sx%
5�H� 32:rowbytes%=4*sx%:�photometric<>5 � 42,"32 bpp TIFF but not CMYK"
5�+ � 42,"Can't do "+�bits(input)+" TIFF"
5��
5�.�planar%=2 rowbytes%=rowbytes%*sampperpix%
5�I�planar%<>1 � rgb<>0 �42,"Can't do this style of TIFF yet" �planar%=�
5�� compression<2 �
5�Scache%=�:stripptr=-1:r$="FN8":�input=24 rbo%=0:gbo%=1:bbo%=2:step24=3:r$="FN24"
5�b�input=32 rbo%=0:gbo%=1:bbo%=2:step24=4:r$="FN24":r%()=F-r%():g%()=F-g%():b%()=F-b%():input=24
5��
5�'�compression=5 �compression=32773 �
6-cache%=�:cachebytes%=rowbytes%*striprows%
60plbuff%=�dim(rowbytes%):rowstogo%=striprows%
6\�input=24 rb%=plbuff%:gb%=plbuff%+1:bb%=plbuff%+2:r$="FN"+�(��r$,3)+10):step24=3:rbo%=-1
6$�
6..buff%=�dim(rowbytes%):rowstogo%=striprows%
68N�input=24 rb%=buff%:gb%=buff%+1:bb%=buff%+2:r$="FN"+�(��r$,3)+10):step24=3
6B�
6L�
6V
�scale% �
6`S%=resunit:�S%=2 S%=90
6j�S%=3 S%=35
6t,xdiv%=xdiv%*xnum%:xmul%=xmul%*xdenom%*S%
6~,ydiv%=ydiv%*ynum%:ymul%=ymul%*ydenom%*S%
6��
6��r$="FN1500" r$="FN8"
6�
� 1600
6� �#c%=12:camg=0:planar%=�:�
6�&S$=��#c%+��#c%+��#c%+��#c%:S%=�beW
6� Ȏ S$ �
6�C� "BMHD":sx%=�beHW:sy%=�beHW:S%=�W:planes%=�#c%:masking%=�#c%=1
6�6compression=�#c%:S%=�#c%+�HW:U%=�#c%:V%=�#c%:S%=�W
6�)�scale% ymul%=ymul%*V%:ydiv%=ydiv%*U%
6�K�I%=0�(1<<planes%)-1:r%(I%)=I%/((1<<planes%)-1)*F:�:g%()=r%():b%()=r%()
6�B� "CMAP":S%=�#c%+S%:�I%=0�(1<<planes%)-1:r%(I%)=(�#c%>>4)/15*F
6�1g%(I%)=(�#c%>>4)/15*F:b%(I%)=(�#c%>>4)/15*F:�
7 G�#c%=S%:�info% �"Warning: truncated IFF CMAP information to 4 bits"
7
;� "CAMG":camg=�beW:�info% �"Amiga viewport mode ";~camg
7� "BODY":st%=�#c%
7 4 � info% �"Ignoring IFF property "S$" size ";S%
7(�#c%=�#c%+S%
72�
7<9�S$="BODY":�compression info$="Compressed " �info$=""
7P+ham=(camg � &800)<>0:�ham info$+="HAM "
7Z4half=(camg � &80)<>0:�half info$+="half-bright "
7dn�half half%=1<<planes%-1:�I%=0�half%-1:r%(I%+half%)=r%(I%)/2:g%(I%+half%)=g%(I%)/2:b%(I%+half%)=b%(I%)/2:�
7nCinfo$+="IFF file, "+�sx%+" by "+�sy%+" pixels, "+�bits(planes%)
7x+�masking% info$+=" with mask (ignored)"
7�7rowbytes%=(sx%+15>>4)<<1:plbytes%=rowbytes%*planes%
7�9pbuff%=�dim(sx%):r$="FN"+�(1600+compression):cache%=�
7��compression �
7�(cachebytes%=�:plbuff%=�dim(plbytes%)
7��
7�Qrealrowbytes%=rowbytes%:rowbytes%=plbytes%:�masking% rowbytes%+=realrowbytes%
7��
7� �#c%=st%
7�
� 1700
7�Bsx%=640:rowbytes%=80:sy%=350:planes%=4:plbytes%=4*80:planar%=�
7�3buff%=�dim(80*4):pbuff%=�dim(640):G=F/3:H=F*2/3
7�(r%()=0,0,0,0,F,F,F,H,G,G,G,G,F,F,F,F
7�(g%()=0,0,F,F,0,0,F,H,G,G,F,F,G,G,F,F
8(b%()=0,F,0,F,0,F,0,H,G,F,G,F,G,F,G,F
8Vmasking%=�:r$="FN1600":st%=16:�#c%=16:cache%=�:realrowbytes%=80:rowbytes%=plbytes%
8Sinfo$="PC EGA '.dsp' file, 640 by 350 pixels, 4 bits per pixel (fixed palette)"
8"
� 1800
8,?sx%=72*8:sy%=720:quant%=1:input=1:�#c%=st%:plbuff%=�dim(72)
86cache%=�:cachebytes%=�
8@Qr%(0)=F:g%(0)=F:b%(0)=F:bigendianbits=�:rowbytes%=72:r$="FN1501":rowstogo%=-1
8JG�scale% xmul%=xmul%*90:xdiv%=xdiv%*72:ymul%=ymul%*90:ydiv%=ydiv%*72
8T>info$="MacPaint file, 576 by 720 bits, creator id "+�S$,4)
8^
� 1850
8h �#c%=552
8r done%=�
8|�
8�code%=�beHW:Ȏ code% �
8�� &01:�#c%=�#c%+�beHW
8� � &1E
8� � &98
8�Crowbytes%=�beHW:�(rowbytes% �&8000)=0 �42,"PICT without Pixmap"
8�3sy%=�beHW:sx%=�beHW:sy%=�beHW-sy%:sx%=�beHW-sx%
8�<junk%=�HW:packtype%=�beHW:junk%=�W:resx%=�beW:resy%=�beW
8�F�beHW<>0 �#c%:�42,"ChangeFSI expected Mac PICT2 pixeltype=Chunky"
8�&bpp%=�beHW:junk%=�beHW:junk%=�beHW
8�$junk%=�beW:junk%=�beW:junk%=�beW
8�junk%=�beW:junk%=�beHW
8�_C%=�beHW:�I%=0�C%:J%=�beHW:r%(J%)=�beHW/65535*F:g%(J%)=�beHW/65535*F:b%(J%)=�beHW/65535*F:�
8� done%=�
9R� &9A:junk%=�W:rowbytes%=�beHW:�(rowbytes% �&8000)=0 �42,"PICT without Pixmap"
93sy%=�beHW:sx%=�beHW:sy%=�beHW-sy%:sx%=�beHW-sx%
9 <junk%=�HW:packtype%=�beHW:junk%=�W:resx%=�beW:resy%=�beW
9&J�beHW<>16 �#c%:�42,"ChangeFSI expected Mac PICT2 pixeltype=RGBDirect"
90'bpp%=�beHW:comps%=�beHW:junk%=�beHW
9:junk%=�beW:junk%=�beW
9Djunk%=�beHW:junk%=�beHW
9NV�bpp%>16 �nopal �J%=2^(bpp%�3):�I%=0�J%-1:r%(I%)=I%/(J%-1)*F:�:g%()=r%():b%()=r%()
9X/�bpp%=32 � comps%=3 bpp%=24:rowbytes%=3*sx%
9b done%=�
9lC:�#c%:�42,"ChangeFSI can't understand Mac PICT2 code "+�~code%
9v�
9� � done%
9�3junk%=�beHW:junk%=�beHW:junk%=�beHW:junk%=�beHW
9�3junk%=�beHW:junk%=�beHW:junk%=�beHW:junk%=�beHW
9�junk%=�beHW
9�Ncache%=�:cachebytes%=�:bigendianbits=�:st%=�#c%:rowbytes%=rowbytes%��&8000
9�Y�scale% xmul%=xmul%*90*65536:xdiv%=xdiv%*resx%:ymul%=ymul%*90*65536:ydiv%=ydiv%*resy%
9�@info$="Mac PICT2, "+�sx%+" by "+�sy%+" pixels, "+�bits(bpp%)
9�%plbuff%=�dim(rowbytes%):�bpp%>8 �
9�Trbo%=-1:rb%=plbuff%+sx%:gb%=plbuff%+sx%*2:bb%=plbuff%+sx%*3:r$="FN1851":input=24
9�;�comps%=3 rb%=plbuff%:gb%=plbuff%+sx%:bb%=plbuff%+sx%*2
9��
9�
� 1900
9��#c%=1:C%=�#c%
:?E%=�#c%:�E%<>1 � 42,"ZSoft .PCX file with unknown encoding"
: 7E%=�#c%:sx%=�HW:sy%=�HW:sx%=�HW+1-sx%:sy%=�HW+1-sy%
:N�scale% xmul%=xmul%*90:xdiv%=xdiv%*�HW:ymul%=ymul%*90:ydiv%=ydiv%*�HW ��W
: H�#c%=65:planes%=�#c%:planar%=planes%>1:rowbytes%=�HW:bpp%=E%*planes%
:* pcxpal=16:�bpp%>4 � C%=5 �
:4*�#c%=�#c%-769:�#c%=12 pcxpal=�#c%-768
:>�
:H5�#c%=pcxpal:E%=0:�C%=0�(1<<bpp%)*3-1:E%=E%��#c%:�
:R3�info% �".PCX palette mask established at ";~E%
:\ �E%=0 �
:fE�C%=0�(1<<bpp%)-1:r%(C%)=C%/((1<<bpp%)-1)*F:�:g%()=r%():b%()=r%()
:p�
:z!�#c%=pcxpal:�C%=0�(1<<bpp%)-1
:�Er%(C%)=(�#c%�E%)/E%*F:g%(C%)=(�#c%�E%)/E%*F:b%(C%)=(�#c%�E%)/E%*F
:��
:��
:� �rewind
:�Lplbytes%=rowbytes%*planes%:plbuff%=�dim(plbytes%):cache%=�:cachebytes%=�
:�E�planar% pbuff%=�dim(sx%) �input=bpp%:bigendianbits=�:r$="FN1100"
:�Finfo$="ZSoft .PCX file, "+�sx%+" by "+�sy%+" pixels, "+�bits(bpp%)
:�
� 2000
:�8�#c%=0:L%=�#c%:C%=�#c%:I%=�#c%:J%=�HW:K%=�HW:M%=�#c%
:�Csx%=�W:sx%=�HW:sy%=�HW:B%=�#c%:ID%=�#c%:�ID%�&10 hflip%=�hflip%
:� �(ID% �&20)=0 vflip%=�vflip%
:��#c%=�#c%+L%:Ȏ C% �
:�� 1:�M%=&18 �
;�C%=J%�K%-1
;9b%(C%)=�#c%/255*F:g%(C%)=�#c%/255*F:r%(C%)=�#c%/255*F
;�
;$�
;.�
;8 �nopal
;B�
;L st%=�#c%
;V Ȏ I% �
;` � 1,2,3:cache%=�:�B%>8 �
;j �B%>16 �
;tLinput=24:bbo%=0:gbo%=1:rbo%=2:step24=B%�8:r$="FN24":rowbytes%=step24*sx%
;~�
;�rowbytes%=sx%*2
;�7� rpal%(255),gpal%(255):input=16:step24=2:r$="FN16"
;�
�C%=0�255
;�&gpal%(C%)=(C%>>5)<<8 � (C%�31)<<16
;�%rpal%(C%)=(C%>>2)�31 � (C%�3)<<11
;��
;�1�C%=0�31:r%(C%)=C%/31*F:�:g%()=r%():b%()=r%()
;��
;��
;�r$="FN8":rowbytes%=sx%
;��
;�Iinfo$="Truevision TGA image, "+�sx%+" by "+�sy%+" pixels, "+�bits(B%)
< D� 9,10,11:step24=B%�8:rowbytes%=step24*sx%:buff%=�dim(rowbytes%)
<
�B%>8 �
< �B%>16 �
< :input=24:bb%=buff%:gb%=buff%+1:rb%=buff%+2:r$="FN2002"
<(�
<29� rpal%(255),gpal%(255):input=16:step24=2:r$="FN2001"
<<
�C%=0�255
<F&gpal%(C%)=(C%>>5)<<8 � (C%�31)<<16
<P%rpal%(C%)=(C%>>2)�31 � (C%�3)<<11
<Z�
<d1�C%=0�31:r%(C%)=C%/31*F:�:g%()=r%():b%()=r%()
<n�
<x�
<�Minfo$="Truevision TGA RLE image, "+�sx%+" by "+�sy%+" pixels, "+�bits(B%)
<��
<�
� 2100
<�?quant%=6:sx%=512:rowbytes%=2*sx%:sy%=256:cache%=�:r$="FN16"
<�-� rpal%(255),gpal%(255):input=16:step24=2
<�
�C%=0�255
<� gpal%(C%)=C%>>3 � (C%�7)<<11
<�%rpal%(C%)=(C%�7)<<8 � (C%>>3)<<16
<��
<�'�C%=0�31:r%(C%)=C%/31*F:�:b%()=r%()
<� �C%=0�63:g%(C%)=C%/63*F:�
<��scale% ymul%=ymul%*2
<�Hinfo$="Pineapple image, 512 by 256 pixels, 16 bits per pixel":�#c%=7
=
� 2200
=9quant%=8:step24=1:�#c%=0:s$=�#c%:E%=�s$,":"):st%=�#c%
=7sx%=��s$,E%+1):sy%=��s$,E%+2+��sx%):�nopal:input=24
="Arowbytes%=sx%*3:rbo%=0:gbo%=sx%:bbo%=2*sx%:cache%=�:r$="FN24"
=,Ginfo$="Irlam image, "+�sx%+" by "+�sy%+" pixels, 24 bits per pixel"
=6
� 2250
=@H�#c%=16:sx%=�W:sy%=�W:� rpal%(255),gpal%(255),bpal%(255),table%(255)
=J�C%=0�255:D%=C%�1
=T table%(C%)=(D%-16)/219*F
=^�D%�128 D%-=256
=h)r%(C%)=�(D%/160*F):b%(C%)=�(D%/126*F)
=r>g%(C%)=�(-D%/160*rwt/gwt*F):gpal%(C%)=�(-D%/126*bwt/gwt*F)
=|�
=�,table%()=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
=�5st%=32:�#c%=32:cache%=�:rowbytes%=2*sx%:input=411
=�<info$="Irlam YUV 4:1:1 file "+�sx%+" by "+�sy%+" pixels"
=�
� 2300
=�9�#c%=6:sx%=�HW:sy%=�HW:D%=�#c%:ncolors%=�#c%:input=24
=�;vflip%=�vflip%:quant%=�#c%:ncmap%=�#c%:cmaplen%=1<<�#c%
=�!�nopal:back%=�dim(4):!back%=0
=�clrfirst%=D%�1
=��(D%�2)=0 �
=�$�I%=0�ncolors%-1:back%?I%=�#c%:�
=��(ncolors%�1)=0 �#c%
=��
=��D%�4 alpha%=�dim(sx%)
>�ncmap%>0 �
>)�I%=0�cmaplen%-1:r%(I%)=�HW/&FF00*F:�
> )�I%=0�cmaplen%-1:g%(I%)=�HW/&FF00*F:�
>&)�I%=0�cmaplen%-1:b%(I%)=�HW/&FF00*F:�
>0�
>: �D%�8 �
>D%�#c%=�HW+�#c%:�#c%�1 �#c%=�#c%+1
>N�
>XHst%=�#c%:buff%=�dim(sx%*3):rb%=buff%:gb%=buff%+1*sx%:bb%=buff%+2*sx%
>b �rewind
>lPinfo$="Utah rle image, "+�sx%+" by "+�sy%+" pixels, "+�bits(ncolors%*quant%)
>v
� 2400
>�2�#c%=riffoff%+&0a:st%=�W:pal%=�W:sx%=�W:sy%=�W
>�
Ȏ pal% �
>�� 12
>�-�#c%=riffoff%+&18:input=�HW:compression=0
>�� 40
>�.�#c%=riffoff%+&1c:input=�HW:compression=�W
>�%�#c%=riffoff%+&26:xppm=�W:yppm=�W
>�%� xppm<>0 � yppm<>0 � scale%<>0 �
>�%xdiv%=xdiv%*xppm:xmul%=xmul%*3543
>�%ydiv%=ydiv%*yppm:ymul%=ymul%*3543
>��
>�
>�+� 42,"Unknown .BMP variant ("+�pal%+")"
?�
? "bigendianbits=�:vflip%=�vflip%
?Ȏ input �
? � 1:rowbytes%=sx%+7>>3
?*� 4:rowbytes%=sx%+1>>1
?4� 8:rowbytes%=sx%
?>+� 16:rowbytes%=sx%*2:r$="FN16":step24=2
?H� rpal%(255),gpal%(255)
?R%rmask%=&7c00:gmask%=42:bmask%=-42
?\T�compression=3 �#c%=riffoff%+14+pal%:rmask%=�W:gmask%=�W:bmask%=�W:compression=0
?f�rmask%=&7c00 �
?p
�C%=0�255
?z&gpal%(C%)=(C%>>5)<<8 � (C%�31)<<16
?�%rpal%(C%)=(C%>>2)�31 � (C%�3)<<11
?��
?�1�C%=0�31:r%(C%)=C%/31*F:�:g%()=r%():b%()=r%()
?��
?��rmask%=&f800 �
?�
�C%=0�255
?�&gpal%(C%)=(C%>>5)<<8 � (C%�31)<<16
?�%rpal%(C%)=(C%>>3)�31 � (C%�7)<<11
?��
?�'�C%=0�31:r%(C%)=C%/31*F:�:b%()=r%()
?� �C%=0�63:g%(C%)=C%/63*F:�
?��
?� � 24,32
@"rbo%=2:gbo%=1:bbo%=0:r$="FN24"
@3�C%=0�255:r%(C%)=C%/255*F:�:g%()=r%():b%()=r%()
@1r$="FN24":step24=input/8:rowbytes%=sx%*step24
@$"rmask%=-1:gmask%=42:bmask%=-42
@.T�compression=3 �#c%=riffoff%+14+pal%:rmask%=�W:gmask%=�W:bmask%=�W:compression=0
@8%�rmask%=&FF �rbo%=0:gbo%=1:bbo%=2
@B%�gmask%=&FF �gbo%=0:bbo%=1:rbo%=2
@L%�bmask%=&FF �bbo%=0:gbo%=1:rbo%=2
@V input=24
@`4 � 42,".BMP file of unusual depth ("+�input+")"
@j�
@t�input<=8 �
@~"�#c%=riffoff%+14+pal%:r$="FN8"
@��C%=0�2^input-1
@�?b%(C%)=�#c%/255*F:g%(C%)=�#c%/255*F:r%(C%)=�#c%/255*F:�#c%
@��
@��
@�Ȏ compression �
@� � 0:info$="Uncompressed "
@�,� 1:info$="RLE8 compressed ":r$="FN2401"
@�,� 2:info$="RLE4 compressed ":r$="FN2402"
@�C � 42,".BMP compression type not supported ("+�compression+")"
@��
@� rowbytes%=rowbytes%+3��3
@�:� compression<>0 cachebytes%=�:plbuff%=�dim(rowbytes%)
A cache%=�:�#c%=riffoff%+st%
A
Oinfo$+="Windows 3.0 .BMP image, "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
A
� 2500
A 2�#c%=0:s$="":C%=�#c%:ȕC%<>0 s$+=�C%:C%=�#c%:�
A(7s$+=" version "+äW:sx%=�W:sy%=�W:input=�W:cache%=�
A2_info$="!Translator Clear format made by "+s$+", "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
A<�input>8 �
AFK�nopal:input=24:step24=3:rowbytes%=3*sx%:rbo%=0:gbo%=1:bbo%=2:r$="FN24"
AP�
AZ�C%=0�2^input-1
Ad9r%(C%)=�#c%/255*F:g%(C%)=�#c%/255*F:b%(C%)=�#c%/255*F
An�
Ax"input=8:r$="FN8":rowbytes%=sx%
A��
A� st%=�#c%
A�
� 2600
A��#c%=0:C%=�#c%
A�D%=�#c%:Ȏ D% �
A�!� 0:sx%=320:sy%=200:planes%=4
A�!� 1:sx%=640:sy%=200:planes%=2
A�!� 2:sx%=640:sy%=400:planes%=1
A�? �42,"ChangeFSI knows nothing of "+�C%+" type Degas files"
A��
A�]�I%=0�(1<<input)-1:D%=�beHW:r%(I%)=(D%>>8�7)/7*F:g%(I%)=(D%>>4�7)/7*F:b%(I%)=(D%�7)/7*F:�
A�<cache%=�:planar%=�:masking%=�:st%=34:�#c%=34:r$="FN1600"
A�Hrowbytes%=(sx%+15>>4)<<1:plbytes%=rowbytes%*planes%:pbuff%=�dim(sx%)
Bj�C%�128 r$="FN1601":flag=1600:cachebytes%=�:plbuff%=�dim(plbytes%) �realrowbytes%=2:rowbytes%=plbytes%
BCinfo$="Degas file "+�sx%+" by "+�sy%+" pixels, "+�bits(planes%)
B
� 2700
B"�#c%=4:sx%=�HW:sy%=�HW
B, Ȏ �HW �
B62� &AF:rowbytes%=sx%:cache%=�:r$="FN8":st%=&30A
B@R �#c%:� 42,"Panic in ColoRIX reading - ChangeFSI largely ignorant of format!"
BJ�
BT�C%=0�2^input-1
B^6r%(C%)=�#c%/63*F:g%(C%)=�#c%/63*F:b%(C%)=�#c%/63*F
Bh�
Br �#c%=st%
B|Cinfo$="ColoRIX file "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
B�
� 2800
B�!�#c%=0:� s$=�fits:Ȏ �s$,8) �
B�Q� "SIMPLE ":�s$,30,1)<>"T" �42,"ChangeFSI can only read Simple FITS format"
B� � "BITPIX ":input=��s$,10)
B�J� "NAXIS ":�s$,10)<>2 �42,"ChangeFSI can only read 2d FITS images"
B� � "NAXIS1 ":sx%=��s$,10)
B� � "NAXIS2 ":sy%=��s$,10)
B�� "END "
B�' �info% �"Ignoring FITS record "s$
B��
B���s$,8)="END "
B�.st%=(�#c%�2880 + 1)*2880:cache%=�:�#c%=st%
B�Ȏ input �
C%� 8:r$="FN8":rowbytes%=sx%:�nopal
CC� 16:rowbytes%=2*sx%:� rpal%(255),gpal%(255):step24=2:r$="FN16"
C
�C%=0�255
C&gpal%(C%)=C%<<8
C0rpal%(C%)=C%
C: �:cheat%=0:�invert% cheat%=F
CDe�C%=0�255:r%(C%)=cheat%+C%/65535*F:g%(C%)=((C%�&80)<<8)/65535*F:b%(C%)=cheat%:�:rwt=1:gwt=1:bwt=1
CNQ � 42,"ChangeFSI can't read a FITS image with this number of bits per pixel"
CX�
Cb@info$="FITS file "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
Cl
� 2900
Cv<�#c%=4:sx%=�beHW:sy%=�beHW:�#c%=&42:input=�beHW:C%=�beHW
C�=rowbytes%=�beHW:C%=�beW:st%=�beW:�#c%=st%:r$="FN8":�nopal
C�#� rpal%(15),gpal%(15),bpal%(15)
C�Irpal%()=&e6,&23,&e6,&7f,&17,&00,&a1,&45,&e6,&4a,&e6,&73,&6e,&47,&8a,0
C�Igpal%()=&e6,&78,&00,&23,&a1,&73,&2e,&2e,&c8,&a6,&75,&40,&b8,&78,&55,0
C�Ibpal%()=&b8,&e6,&00,&a1,&17,&2e,&0c,&2e,&00,&c6,&00,&e6,&00,&00,&00,0
C�k�C%=&80�&8F:r%(C%)=rpal%(C%-&80)/255*F:g%(C%)=gpal%(C%-&80)/255*F:b%(C%)=bpal%(C%-&80)/255*F:�:cache%=�
C�Finfo$="Apollo GPR file "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
C�
� 3000
C�Hsx%=720:sy%=�#c%/1440:� rpal%(255),gpal%(255),bpal%(255),table%(255)
C�� �
C�
�C%=0�255
C� table%(C%)=(C%-16)/219*F
D>r%(C%)=(C%-128)/186*0.624*F:rpal%(C%)=(C%-128)/160*0.952*F
D ?g%(C%)=-(C%-128)/186*0.64*F:gpal%(C%)=-(C%-128)/160*0.277*F
D=b%(C%)=(C%-128)/186*1.73*F:bpal%(C%)=-(C%-128)/160*1.11*F
D �
D*�
D>
�C%=0�255
DH table%(C%)=(C%-16)/219*F
DR5r%(C%)=�((C%-128)/160*F):b%(C%)=�((C%-128)/126*F)
D\Jg%(C%)=�(-(C%-128)/160*rwt/gwt*F):gpal%(C%)=�(-(C%-128)/126*bwt/gwt*F)
Df�
Dp�
Dz<table%()=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
D�:st%=0:�#c%=0:cache%=�:rowbytes%=1440:input=422:gamma=1
D��scale% ymul%=ymul%*2
D�:info$="CCIR601 4:2:2 file "+�sx%+" by "+�sy%+" pixels"
D�
� 3100
D�$quant%=8:�#c%=0:a$=�#c%:st%=�#c%
D� sx%=�a$:sy%=�(�a$,�a$," ")))
D�,�nopal:input=24:step24=3:rowbytes%=sx%*3
D�4rbo%=0:gbo%=1:bbo%=2:cache%=�:flag=700:r$="FN24"
D�Qinfo$="!RayShade 'RGB' image, "+�sx%+" by "+�sy%+" pixels, 24 bits per pixel"
D�
� 3200
D�quant%=8:�#c%=0:st%=0
D�sx%=��s$,�s$,"_")+1,1)
D� Ȏ sx% �
E� 5:sx%=768:sy%=512
E� 2:sx%=3072:sy%=2048
E� 1:sx%=1536:sy%=1024
E$�
E.,�nopal:input=24:step24=3:rowbytes%=sx%*3
E84rbo%=0:gbo%=1:bbo%=2:cache%=�:flag=700:r$="FN24"
EBLinfo$="Kodak /RGB image, "+�sx%+" by "+�sy%+" pixels, 24 bits per pixel"
EL
� 3300
EV�#c%=0:input=���GET,2)
E`7s$=�GET:sx%=�s$:sy%=��s$,�s$," ")):�sy%=0 sy%=��GET
Ejcache%=�:Ȏ input �
EtD� 4:input=1:r$="FN8":r%(0)=F:g%()=r%():b%()=r%():bigendianbits=�
E~rowbytes%=(sx%+7)�8
E�!� 5:input=8:r$="FN8":E%=��GET
E�1�C%=0�E%:r%(C%)=C%/E%*F:�:g%()=r%():b%()=r%()
E�rowbytes%=sx%
E�A� 6:input=24:r$="FN24":E%=��GET:step24=3:rbo%=0:gbo%=1:bbo%=2
E�1�C%=0�E%:r%(C%)=C%/E%*F:�:g%()=r%():b%()=r%()
E�rowbytes%=sx%*3
E��
E�st%=�#c%:flag=700
E�Binfo$+="pbm image, "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
E�$� �GET �s$=�#c%:��s$,1)<>"#":=s$
E�
� 3400
E�$�#c%=0:s$=�GET:input=16:quant%=5
F .s$=�GET:sx%=�s$:sy%=��s$,�s$," ")):s$=�GET
F
-� rpal%(255),gpal%(255):input=16:step24=2
F
�C%=0�255
F "gpal%(C%)=(C%>>5)<<8 � (C%�31)
F(+rpal%(C%)=((C%>>2)�31)<<16 � (C%�3)<<11
F2�
F<cache%=�:r$="FN16"
FF1�C%=0�31:r%(C%)=C%/31*F:�:g%()=r%():b%()=r%()
FP%rowbytes%=sx%*2:st%=�#c%:flag=700
FZAinfo$="p15 image, "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
Fd
� 3450
Fn�#c%=0:info$=�GET
Fx3ybits%=��info$,�info$," ")):ymax%=(1<<ybits%)-1
F�:ubits%=��info$,�info$,"Y ")+1):umax%=(1<<(ubits%-1))-1
F�:vbits%=��info$,�info$,"U ")+1):vmax%=(1<<(vbits%-1))-1
F�&s$=�GET:sx%=�s$:sy%=��s$,�s$," "))
F�2� rpal%(255),gpal%(255),bpal%(255),table%(255)
F�'�C%=0�ymax%:table%(C%)=C%/ymax%*F:�
F�D%=(1<<ubits%)-1
F�-�C%=0�D%:d=C%/umax%:�d>1 d=-(D%-C%)/umax%
F�;b%(C%)=�(d*(1-bwt)*F):gpal%(C%)=�(-d*(1-bwt)*bwt/gwt*F)
F��
F�D%=(1<<vbits%)-1
F�-�C%=0�D%:d=C%/vmax%:�d>1 d=-(D%-C%)/vmax%
F�8r%(C%)=�(d*(1-rwt)*F):g%(C%)=�(-d*(1-rwt)*rwt/gwt*F)
F��
G;rowbytes%=sx%*2:st%=�#c%:cache%=�:r$="FN2250":input=555
G*info$+=", "+�sx%+" by "+�sy%+" pixels"
G
� 3500
G"Aquant%=1:�#c%=6:E%=�HW:sx%=�HW:sx%=�HW:sy%=�HW:st%=�HW:st%=�W
G,4rowbytes%=sx%/8+1��1:cache%=�:st%+=�#c%:�#c%=st%
G6 Ȏ E% �
G@� 1
GJ,r$="FN8":input=1:r%(0)=F:g%(0)=F:b%(0)=F
GTKinfo$="Pocketbook bitmap, "+�sx%+" by "+�sy%+" pixels, 1 bit per pixel"
G^� 2
Gh9planar%=�:planes%=2:r$="FN1600":input=8:cachebytes%=�
Gr?r%(0)=F:r%(1)=(F/3)*2:r%(2)=F/3:r%(3)=0:g%()=r%():b%()=r%()
G|Hplbytes%=rowbytes%*planes%:buff%=�dim(plbytes%*sy%):pbuff%=�dim(sx%)
G� realrowbytes%=rowbytes%*sy%
G�Ninfo$="PocketbookII bitmap, "+�sx%+" by "+�sy%+" pixels, 2 bits per pixel"
G�
G�(� 42,"Unknown Pocketbook PIC format"
G��
G�
� 3600
G�Bpcdblk%=�dim(40):ș&20023,"ChangeFSI$PCDindex",pcdblk%,20 �,,Z
G�5�Z �pcdblk%?Z=13:pcdindex%=�$pcdblk% �pcdindex%=3
G�Bș"PhotoCD_Open",1,c%,1 � pcdh%:ș"PhotoCD_GetCount",pcdh% �,Z
G�?�(Z>>pcdindex%)=0 �#c%:�42,"Desired resolution unavailable"
G�+ș"PhotoCD_GetRotation",pcdh% �,,pcdtr%
G�5ș"PhotoCD_GetSize",pcdh%,,pcdindex% �,,,,sx%,sy%
G�)pcdblk%!0=0:pcdblk%!8=sx%:pcdblk%!4=0
H7pcdblk%!16=0:pcdblk%!20=2:pcdblk%!24=1:pcdblk%!28=3
H Ȏ pcdtr% �
H&� 0
H0 � &80000000:hflip%=�hflip%
H:� 90
HDȎ rotate% �
HN� 0:rotate%=1
HX� -1:rotate%=0
Hb/� 1:rotate%=0:vflip%=�vflip%:hflip%=�hflip%
Hl�
Hv� &8000005A
H�Ȏ rotate% �
H� � 0:rotate%=1:vflip%=�vflip%
H�!� -1:rotate%=0:vflip%=�vflip%
H� � 1:rotate%=0:hflip%=�hflip%
H��
H�'� 180:hflip%=�hflip%:vflip%=�vflip%
H� � &800000B4:vflip%=�vflip%
H� � 270
H�Ȏ rotate% �
H�� 0:rotate%=-1
H�� 1:rotate%=0
H�0� -1:rotate%=0:vflip%=�vflip%:hflip%=�hflip%
H��
I� &8000010E
I Ȏ rotate% �
I!� 0:rotate%=-1:vflip%=�vflip%
I � 1:rotate%=0:vflip%=�vflip%
I*!� -1:rotate%=0:hflip%=�hflip%
I4�
I> PANIC
IH�
I\@input=24:step24=3:rbo%=0:gbo%=1:bbo%=2:pcdcachesize%=32*1024
IfArowbytes%=sx%*3:�nopal:cache%=�:pcdcache%=�dim(pcdcachesize%)
IpIinfo$="PhotoCD image, "+�sx%+" by "+�sy%+" pixels, 24 bits per pixel"
Iz
� 3700
I�3A%=�"<ChangeFSI$Dir>.CFSIjpeg":jpeg%=�dim(�#A%)
I� ș12,4,A%,jpeg%,�#A%:�#A%
I�Cdatacache%=�cachedim(�#c%):�datacache%=-1 datacache%=�dim(�#c%)
I�$�#c%=0:ș12,4,c%,datacache%,�#c%
I�QA%=datacache%:B%=jpegblk%:C%=jpegblk%+4:D%=jpegblk%+8:E%=jpegblk%+12:�jpeg%+8
I�&B%=jpegblk%!12:jpegspace%=�dim(B%)
I�'C%=datacache%:A%=jpegspace%:D%=�#c%
I�5�jpeg%:cache%=�:�!A% �42,"JPEG code error: "+�!A%
I�5sx%=A%!20:sy%=A%!24:input=8*A%?28:�nopal:step24=4
I�Binfo$="JFIF image, "+�sx%+" by "+�sy%+" pixels, "+�bits(input)
I�%jpegy%=sy%:r$="FN"+è(3700+input)
I�
� 3800
I��#c%=24:sx%=�W:sy%=�W
J�scale% ymul%=ymul%*2
J2� rpal%(255),gpal%(255),bpal%(255),table%(255)
J
�C%=0�255
J$ �C%<128 table%(C%)=C%/127*F
J.D%=C%:�D%�128 D%-=256
J8)r%(C%)=�(D%/160*F):b%(C%)=�(D%/126*F)
JB>g%(C%)=�(-D%/160*rwt/gwt*F):gpal%(C%)=�(-D%/126*bwt/gwt*F)
JL�
J`=�#c%=52:st%=�W:�#c%=64:cache%=�:rowbytes%=2*sx%:input=411
JjFinfo$="Uncompressed Techno-I YUV file "+�sx%+" by "+�sy%+" pixels"
Jt
� 3900
J~2�#c%=8:sx%=�W:sy%=�W:st%=16:quant%=12:step24=6
J�5�C%=0�4095:r%(C%)=C%/4095*F:�:g%()=r%():b%()=r%()
J�Dinput=48:rowbytes%=sx%*6:cache%=�:r$="FN24":rbo%=0:gbo%=2:bbo%=4
J�Pinfo$="Ronald Alpiar format, "+�sx%+" by "+�sy%+" pixels, 36 bits per pixel"
J�
� 3905
J�2�#c%=8:sx%=�W:sy%=�W:st%=16:quant%=16:step24=6
J�7�C%=0�65535:r%(C%)=C%/65535*F:�:g%()=r%():b%()=r%()
J�Dinput=48:rowbytes%=sx%*6:cache%=�:r$="FN24":rbo%=0:gbo%=2:bbo%=4
J�Pinfo$="Ronald Alpiar format, "+�sx%+" by "+�sy%+" pixels, 48 bits per pixel"
J� � 666
KF?st%=0:�#c%=0:sx%=160:sy%=128:input=8:cache%=�:rowbytes%=sx%
KP<�C%=0�255:r%(C%)=C%/255*F:�:g%()=r%():b%()=r%():r$="FN8"
KZMinfo$="The number of the beast, 160 by "+�sy%+" pixels, 8 bits per pixel"
Kd�
Kn�info% �info$
Kx#ș"Hourglass_On",1:hour%=&406c4
K��m=-9 � m=-10 �
K�Hș"XOS_CLI","rmensure CompressJPEG 0 rmload System:Modules.jcompmod"
K�mș"XOS_CLI","rmensure CompressJPEG 0 IF ""<ChangeFSI$Dir>"" <> """" THEN rmload <ChangeFSI$Dir>.jcompmod"
K�B*rmensure CompressJPEG 0 ERROR Can't find CompressJPEG module.
K��
K�0�invert% r%()=F-r%():g%()=F-g%():b%()=F-b%()
K� �xdiv% �reduce(xmul%,xdiv%)
K� �ydiv% �reduce(ymul%,ydiv%)
K�
Ȏ m �
K�D� -1:x%=256:y%=256:ncol=256:�scaleo% xdiv%=xdiv%*2:ydiv%=ydiv%*2
K�.� -2:x%=sx%:y%=sy%:�spm=18 ncol=1 �ncol=15
K�(� -3,-5,-6:x%=sx%:y%=sy%:ncol=2^15-1
K�(� -4,-7,-8:x%=sx%:y%=sy%:ncol=2^24-1
L5� -9,-10:x%=sx%:y%=sy%:ncol=2^24-1:�m=-9 ncol=256
L
L5ș53,m,4 � ,,nx:ș53,m,5 � ,,ny:nx=1<<nx:ny=1<<ny
L"1ș53,m,11 � ,,x%:ș53,m,12 � ,,y%:x%+=1:y%+=1
L, ș53,m,3 � ,,ncol:�scaleo% �
L6�rotate% �
L@!xdiv%=xdiv%*ny:ydiv%=ydiv%*nx
LJ�xdiv% ymul%=ymul%*2
LT�ydiv% xmul%=xmul%*2
L^�
Lh!xdiv%=xdiv%*nx:ydiv%=ydiv%*ny
Lr�xdiv% xmul%=xmul%*2
L|�ydiv% ymul%=ymul%*2
L��
L��
L�!ș&62A51,m � r0;V:�(V �1)=0 �
L� �r0=1 �
L� ncol=255:�m$<>"D" m$="R"
L��
L��
L��
L��m=-6 � m=-7 � m=-8 �
L�*nx=��pnm$,5):ny=��pnm$,�pnm$,",",5)+1)
L��scaleo% �
L��rotate% �
M�xdiv% ymul%=ymul%*nx
M�ydiv% xmul%=xmul%*ny
M �
M&�xdiv% xmul%=xmul%*nx
M0�ydiv% ymul%=ymul%*ny
M:�
MD!xdiv%=xdiv%*90:ydiv%=ydiv%*90
MN�
MX�
Mb�rotate% Ȕ x%,y%
Mv�xdiv%=0 xdiv%=sx%
M��ydiv%=0 ydiv%=sy%
M� �xs$="=" xmul%=x%:xdiv%=sx%
M� �ys$="=" ymul%=y%:ydiv%=sy%
M� �lock% �
M�M�xmul%/xdiv%>ymul%/ydiv% xmul%=ymul%:xdiv%=ydiv% �ymul%=xmul%:ydiv%=xdiv%
M��
M�
�ncol=1 �
M� Ȏ m$ �
M�$�"C":xdiv%=xdiv%*4:ydiv%=ydiv%*4
M�� A%(16),B%(16)
M�A%()=0,&00000001,&08000001,&08000101,&08080101,&08080103,&0C080103,&0C080303,&0C0C0303,&0C0E0303,&0C0E0703,&0E0E0703,&0E0E0707,&0E0F0707,&0E0F0F07,&0F0F0F07,&0F0F0F0F
M�B%()=0,&00000008,&01000008,&01000808,&01010808,&0101080C,&0301080C,&03010C0C,&03030C0C,&03070C0C,&03070E0C,&07070E0C,&07070E0E,&070F0E0E,&070F0F0E,&0F0F0F0E,&0F0F0F0F
M�2even_gard=�dim(17*32*4):odd_gard=�dim(17*32*4)
NC�I%=0�16:�J%=0�16:even_gard!(J%*32*4+I%*4)=A%(I%)�B%(J%)<<4:�:�
N B�I%=0�16:�J%=0�16:odd_gard!(I%*32*4+J%*4)=B%(I%)�A%(J%)<<4:�:�
N$�"T":xdiv%=xdiv%*3:ydiv%=ydiv%*3
N � A%(9),B%(9)
N*@A%()=0,&0001,&4001,&4041,&4043,&40C3,&60C3,&61C3,&71C3,&71C7
N4@B%()=0,&0004,&1004,&1104,&1106,&1186,&3186,&31C6,&71C6,&71C7
N>2even_gard=�dim(10*16*4):odd_gard=�dim(10*16*4)
NHA�I%=0�9:�J%=0�9:even_gard!(J%*16*4+I%*4)=A%(I%)�B%(J%)<<3:�:�
NR@�I%=0�9:�J%=0�9:odd_gard!(I%*16*4+J%*4)=B%(I%)�A%(J%)<<3:�:�
N\$�"D":xdiv%=xdiv%*2:ydiv%=ydiv%*2
Nf� A%(4),B%(4)
NpA%()=0,&1,&21,&31,&33
NzB%()=0,&2,&12,&32,&33
N�*even_gard=�dim(5*8):odd_gard=�dim(5*8)
N�<�I%=0�4:�J%=0�4:even_gard?(J%*8+I%)=A%(I%)�B%(J%)<<2:�:�
N�;�I%=0�4:�J%=0�4:odd_gard?(I%*8+J%)=B%(I%)�A%(J%)<<2:�:�
N��
N��
N��
N�-�reduce(xmul%,xdiv%):�reduce(ymul%,ydiv%)
N�U�xdiv%*ydiv%*255>2^32 xdiv%=xdiv%��1:ydiv%=ydiv%��1:xmul%=xmul%��1:ymul%=ymul%��1
N��xdiv%*ydiv%*255<2^32
N�@�info% �"Size ratios are x ";xmul%":"xdiv%" y "ymul%":"ydiv%
N�?x%=sx%*xmul%/xdiv%+.9999:y%=sy%*ymul%/ydiv%+.9999:rows%=sy%
N�order%=x%*y%>sx%*sy%
N�code%=�dim(8192):SP=13
O
�cache% �
O�cachesize(code%)
O�cachebytes% �
O$:filesize%=�#c%-�#c%:�cache%>filesize% cache%=filesize%
O.9�cachebytes%>0 �cache%>cachebytes% cache%=cachebytes%
O8cacherows%=cache%
OB�
OL>filesize%=sy%*rowbytes%:�cache%<rowbytes% cache%=rowbytes%
OV&�cache%>filesize% cache%=filesize%
O`Ccacherows%=striprows%:�cacherows%<1 cacherows%=cache%�rowbytes%
Oj cache%=cacherows%*rowbytes%
Ot�
O~Gdatacache%=�cachedim(cache%):�datacache%=-1 datacache%=�dim(cache%)
O��
O� �ncol=255 �m$<>"D" m$="R"
O� �m$="R" �(ncol=63 �m$="") �
O�+ș53,-1,3 �,,J%:�ncol=255 � �=m J%=ncol
O�$�ncol=63 �(m$=""�m$="R") J%=ncol
O�P�J%<>ncol �close:�42,"You must be in a "+�(ncol+1)+" colour mode to do this"
O�J%=ncol:�J%=63 J%=255
O�palette%=�dim((J%+1)*4)
O��ncol=255 �
O�4ș"ColourTrans_ReadPalette",-1,-1,palette%,256*4
O�5�I%=0�255:palette%!(I%<<2)=palette%!(I%<<2)>>>8:�
O��
P �ncol=63 �
P
�I%=0�255
P+palette%!(I%<<2)=(I%�7 � (I%�16)>>1)*17
P /palette%?(I%<<2 �1)=(I%�3 � (I%�&60)>>3)*17
P(;palette%?(I%<<2 �2)=(I%�3 � (I%�8)>>1 � (I%�128)>>4)*17
P2�
P<�
PFH�I%=0�ncol:ș"OS_ReadPalette",I%,16 � ,,i%:palette%!(I%<<2)=i%>>>8:�
PP�
PZ�
Pd%t%=�:k%=palette%+1:nk%=palette%+2
Pn�I%=0�ncol*4�4
Px2�palette%?I%<>k%?I% � palette%?I%<>nk%?I% t%=�
P��
P��ncol>16 �t% m$="D"
P��ncol=15 �t% m$="T"
P�
�m$="R" �
P�7� sx%*xmul%/xdiv%*sy%*ymul%/ydiv%<200000 k%=3 �k%=4
P� nk%=8-k%
P�
t%=1<<nk%
P�mask%=t%-1
P�td2%=1<<nk%-1
P�step%=1<<(8-k%)
P�$ncol%=ncol+1:�ncol%=64 ncol%=256
P�ict%=�dim(2^(k%*3)*4-1)
P�a�cache%<8192*6 scratch%=�dim(8192*6):scratchsz%=8192*6 �scratch%=datacache%:scratchsz%=cache%
Q>�info% �"Begin table generation with ";scratchsz%" bytes."
Q
�Z%=0�2�2
Q P%=code%
Q" [OPT Z%
Q,
.make%
Q6STMFD r13!,{r14}
Q@LDR r4,ict
QJMOV r2,#step%/2
QT
.blueloop
Q^MOV r1,#step%/2
Qh.greenloop
QrMOV r0,#step%/2
Q| .redloop
Q�MOV r3,r0,LSR #nk%
Q�MOV r14,r1,LSR #nk%
Q�MOV r5,r2,LSR #nk%
Q��R r3,r3,r14,LSL #k%
Q��R r3,r3,r5,LSL #k%*2
Q�BL devious
Q�ADD r0,r0,#step%*2
Q�CMP r0,#256
Q�BCC redloop
Q�ADD r1,r1,#step%
Q�CMP r1,#256
Q�BCC greenloop
RADD r2,r2,#step%
RCMP r2,#256
R BCC blueloop
R&LDMFD r13!,{pc}^
R0.ct DCD palette%
R: .min DCD code%+8192-256*2*4
RD.ict DCD ict%
RN.fsaad DCD scratch%
RX#.fsalim DCD scratch%+scratchsz%
Rb .devious
Rl&STMFD r13!,{r0,r1,r2,r3,r4,r8,r14}
RvBIC r0,r0,#(mask%<<1)+1
R�BIC r1,r1,#mask%
R�BIC r2,r2,#mask%
R�
MOV r5,#0
R�
LDR r6,ct
R�MOV r9,#&ff0000
R�MOV r14,#&ff0000
R�LDR r12,min
R� .devloop
R�LDR r7,[r6,r5,LSL #2]
R�MOV r8,r7,lsr #16
R�BIC r10,r8,#mask%
SADD r11,r2,#t%
S CMP r10,r2
SBEQ blueequal
S SUBCC r10,r2,r8
S*SUBCC r11,r11,r8
S4SUBCS r10,r8,r11
S>SUBCS r11,r8,r2
SHMUL r3,r10,r10
SR
.doneblue
S\MUL r4,r11,r11
SfMOV r8,r7,lsr #8
Sp� r8,r8,#255
SzBIC r10,r8,#mask%
S�ADD r11,r1,#t%
S�CMP r10,r1
S�BEQ greenequal
S�SUBCC r10,r1,r8
S�SUBCC r11,r11,r8
S�SUBCS r10,r8,r11
S�SUBCS r11,r8,r1
S�MUL r8,r10,r10
S�ADD r8,r8,r8,LSL #2
S�ADD r3,r3,r8,LSL #1
S�.donegreen
S�MUL r8,r11,r11
TADD r8,r8,r8,LSL #2
TADD r4,r4,r8,LSL #1
T$� r8,r7,#255
T8BIC r10,r8,#mask%
TBADD r11,r0,#t%
TLCMP r10,r0
TVBEQ redequal0
T`SUBCC r10,r0,r8
TjSUBCC r11,r11,r8
TtSUBCS r10,r8,r11
T~SUBCS r11,r8,r0
T�MUL r7,r10,r10
T�ADD r7,r7,r7,LSL #1
T�ADD r7,r3,r7
T�STR r7,[r12,r5,LSL #2]
T�
.donered0
T�MUL r7,r11,r11
T�ADD r7,r7,r7,LSL #1
T�ADD r7,r4,r7
T�
CMP r7,r9
T�MOVCC r9,r7
U
ADD r7,r0,#t%
UBIC r10,r8,#mask%
U ADD r11,r7,#t%
U(CMP r10,r7
U2BEQ redequal1
U<SUBCC r10,r7,r8
UFSUBCC r11,r11,r8
UPSUBCS r10,r8,r11
UZSUBCS r11,r8,r7
UdMUL r7,r10,r10
UnADD r7,r7,r7,LSL #1
UxADD r3,r3,r7
U�
.donered1
U�ADD r7,r5,#ncol%
U�STR r3,[r12,r7,LSL #2]
U�MUL r7,r11,r11
U�ADD r7,r7,r7,LSL #1
U�ADD r7,r4,r7
U�CMP r7,r14
U�MOVCC r14,r7
U�ADD r5,r5,#1
U�CMP r5,#ncol%
U�BCC devloop
V LDMFD r13!,{r0,r1,r2,r3,r4}
VLDR r5,fsaad
V"
MOV r7,r5
V,MOV r10,#0
V6
.calcnum0
V@LDMIA r12!,{r8,r11}
VJ
CMP r8,r9
VTSTRLEB r10,[r7],#1
V^ADD r10,r10,#1
VhCMP r11,r9
VrSTRLEB r10,[r7],#1
V|ADD r10,r10,#1
V�LDMIA r12!,{r8,r11}
V�
CMP r8,r9
V�STRLEB r10,[r7],#1
V�ADD r10,r10,#1
V�CMP r11,r9
V�STRLEB r10,[r7],#1
V�ADD r10,r10,#1
V�CMP r10,#ncol%
V�BCC calcnum0
V�SUBS r10,r7,r5
V�SWIEQ 256+�"A"
V�CMP r10,#4 ;if<4 then
V�#MOVCC r7,r5 ;reset list pointer
W"LDRCCB r5,[r7] ;first possible
W&LDRCCB r8,[r7,#1] ;second possible
W �RCC r5,r5,r8,lsl #8
W&%LDRCCB r8,[r7,#2] ;third possible
W0�RCC r5,r5,r8,lsl #16
W:ADD r5,r5,r10,lsl #24
WDBIC r10,r3,#1
WNSTR r5,[r4,r10,LSL #2]
WX
MOV r5,r7
WbMOV r10,#0
Wl
.calcnum1
WvLDMIA r12!,{r8,r11}
W�CMP r8,r14
W�STRLEB r10,[r7],#1
W�ADD r10,r10,#1
W�CMP r11,r14
W�STRLEB r10,[r7],#1
W�ADD r10,r10,#1
W�LDMIA r12!,{r8,r11}
W�CMP r8,r14
W�STRLEB r10,[r7],#1
W�ADD r10,r10,#1
W�CMP r11,r14
W�STRLEB r10,[r7],#1
W�ADD r10,r10,#1
XCMP r10,#ncol%
X BCC calcnum1
XSUBS r10,r7,r5
X SWIEQ 256+�"B"
X*CMP r10,#4 ;if<4 then
X4MOVCC r7,r5
X>LDRCCB r5,[r7]
XHLDRCCB r8,[r7,#1]
XR�RCC r5,r5,r8,lsl #8
X\LDRCCB r8,[r7,#2]
Xf�RCC r5,r5,r8,lsl #16
XpADD r5,r5,r10,lsl #24
Xz�R r10,r3,#1
X�STR r5,[r4,r10,LSL #2]
X�STR r7,fsaad
X�LDR r8,fsalim
X�
CMP r7,r8
X�SWICS 256+�"!"
X�LDMFD r13!,{r8,pc}^
X�.redequal0
X�STR r3,[r12,r5,LSL #2]
X�TST r8,#td2%
X�SUBNE r11,r8,r0
X�SUBEQ r11,r11,r8
X�B donered0
X�.redequal1
YTST r8,#td2%
YSUBNE r11,r8,r7
YSUBEQ r11,r11,r8
Y$B donered1
Y..greenequal
Y8TST r8,#td2%
YBSUBNE r11,r8,r1
YLSUBEQ r11,r11,r8
YVB donegreen
Y`.blueequal
Yj
MOV r3,#0
YtTST r8,#td2%
Y~SUBNE r11,r8,r2
Y�SUBEQ r11,r11,r8
Y�B doneblue
Y�]
Y��
Y�I%=�:�make%
Y�m�info% �"Generated 'r'";k%" tables for ";ncol%" colours using ";!fsaad-scratch%" bytes, taking "�-I%" cS"
Y�%safesubict%=�dim(!fsaad-scratch%)
Y�:�I%=0�!fsaad-scratch%+4�4:safesubict%!I%=scratch%!I%:�
Y�O�I%=0�2^(k%*3)*4-1�4:�(ict%!I%>>>24)>3 ict%!I%=ict%!I%-scratch%+safesubict%
Y��
Y��
Y��
Z �fast% ��<>0 �0
Z
Ȏ m �
Z � -1,-9:col=0
Z(!� -3,-4,-5,-6,-7,-8,-10:col=2
Z2
Z<�m$="D" �ncol=3 m$=""
ZF0col=0:�ncol>15 �m$="C" �m$="D" �m$="R" col=2
ZP.�ncol=63 � ncol=255 �m$="D" col=0:ncol=256
ZZ�
Zd
�ncol=1 �
Zn Ȏ m$ �
Zx�"C":col=0:x%=x%+1��1
Z��"D":col=0:x%=x%+3��3
Z��"T":col=0:x%=x%+1��1
Z��
Z��
Z�� cl%(x%+7,col)
Z�"� xl%(x%+7,col),xp%(sx%+7,col)
Z�� xl2%(x%+7,col)
Z��sharpen% �
Z�
�order% �
Z�4� rm%(sx%+7,col),rm1%(sx%+7,col),rm2%(sx%+7,col)
Z��
Z�1� rm%(x%+7,col),rm1%(x%+7,col),rm2%(x%+7,col)
Z��
[�
["�hist%�equal% � vals%(256,col)
[� nl%(x%+7,col)
["totvals%=x%*(col+1)
[,totvals2%=sx%*(col+1)
[6�Z=0�2�2:P%=code%
[@
Ȏ ncol �
[J � 2^24-1
[T
[OPT Z
[^ .div255
[h]
[r�I%=0�2^p6bits-1
[|
[OPT Z
[�EQUD I%/(2^p6bits-1)*F
[�]
[��
[�
[OPT Z
[�.fs%
[�STMFD SP !,{R14}
[� LDR R1,[R9,#5*8]:LDR R1,[R1]
[�LDR R10,[R9,#4*8]
[�LDR R11,[R9,#3*8]
[�#LDR R12,[R9,#2*8]:LDR R12,[R12]
[� LDR R8,[R9,#8]:LDR R8,[R8]
[�LDR R9,[R9]:LDR R9,[R9]
[�LDR R4,[R10]
\LDR R5,[R10,#4]
\LDR R6,[R10,#8]
\ ADR R7,div255
\& .fsloop
\0ADD R10,R10,R8
\:%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
\DWSUB R0,R4,R4,LSR #p6bits:ADD R0,R0,#1<<(bits-p6bits-1):MOV R0,R0,LSR #(bits-p6bits)
\N&LDR R2,[R7,R0,LSL #2]:SUB R4,R4,R2
\X%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
\bjSUB R3,R5,R5,LSR #p6bits:ADD R3,R3,#1<<(bits-p6bits-1):MOV R3,R3,LSR #(bits-p6bits):�R R0,R0,R3,LSL #8
\l&LDR R2,[R7,R3,LSL #2]:SUB R5,R5,R2
\v%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
\�kSUB R3,R6,R6,LSR #p6bits:ADD R3,R3,#1<<(bits-p6bits-1):MOV R3,R3,LSR #(bits-p6bits):�R R0,R0,R3,LSL #16
\�&LDR R2,[R7,R3,LSL #2]:SUB R6,R6,R2
\�DSTRB R0,[R12]:MOV R0,R0,LSR #8:STRB R0,[R12,#1]:MOV R0,R0,LSR #8
\�STRB R0,[R12,#2]
\�]
\� �m=-8 �
\�
[OPT Z
\�ADD R12,R12,R1,LSL #2
\�]
\��
\�
[OPT Z
\�(ADD R12,R12,R1,LSL #1:ADD R12,R12,R1
\�]
]�
] �dither% �
]
[OPT Z
] ADD R0,R11,#4
]*ADD R2,R4,R4,LSL #1
]4(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
]>STR R3,[R11,-R8]
]HADD R2,R4,R4,LSL #2
]R$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
]\STR R3,[R11]
]fMOV R3,R4,ASR #4
]pSTR R3,[R11,R8]!
]zRSB R2,R4,R4,LSL #3
]�LDR R4,[R10]
]�ADD R4,R4,R2,ASR #4
]�ADD R2,R5,R5,LSL #1
]�'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
]�STR R3,[R0,-R8]
]�MOV R3,R5,ASR #4
]�STR R3,[R0,R8]
]�ADD R2,R5,R5,LSL #2
]�#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
]�STR R3,[R0],#4
]�RSB R2,R5,R5,LSL #3
]�LDR R5,[R10,#4]
]�ADD R5,R5,R2,ASR #4
^ADD R2,R6,R6,LSL #1
^'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
^STR R3,[R0,-R8]
^$ADD R2,R6,R6,LSL #2
^.#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
^8STR R3,[R0]
^BMOV R3,R6,ASR #4
^LSTR R3,[R0,R8]
^VRSB R2,R6,R6,LSL #3
^`LDR R6,[R10,#8]
^jADD R6,R6,R2,ASR #4
^t]
^~�
^�
[OPT Z
^�LDMIA R10,{R4,R5,R6}
^�]
^��
^�
[OPT Z
^� SUBS R9,R9,#1:BNE fsloop
^�LDMFD SP !,{PC}^
^�]
^� � 2^15-1
^�
[OPT Z
^�
.div31
^�]
_ �I%=0�31
_
[OPT Z
_EQUD I%/31*F
_ ]
_(�
_2
[OPT Z
_<.fs%
_FSTMFD SP !,{R14}
_P LDR R1,[R9,#5*8]:LDR R1,[R1]
_ZLDR R10,[R9,#4*8]
_dLDR R11,[R9,#3*8]
_n#LDR R12,[R9,#2*8]:LDR R12,[R12]
_x LDR R8,[R9,#8]:LDR R8,[R8]
_�LDR R9,[R9]:LDR R9,[R9]
_�LDR R4,[R10]
_�LDR R5,[R10,#4]
_�LDR R6,[R10,#8]
_�ADR R7,div31
_� .fsloop
_�ADD R10,R10,R8
_�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
_�FSUB R0,R4,R4,LSR #5:ADD R0,R0,#1<<(bits-6):MOV R0,R0,LSR #(bits-5)
_�&LDR R2,[R7,R0,LSL #2]:SUB R4,R4,R2
_�%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
_�YSUB R3,R5,R5,LSR #5:ADD R3,R3,#1<<(bits-6):MOV R3,R3,LSR #(bits-5):�R R0,R0,R3,LSL #5
_�&LDR R2,[R7,R3,LSL #2]:SUB R5,R5,R2
`%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
`ZSUB R3,R6,R6,LSR #5:ADD R3,R3,#1<<(bits-6):MOV R3,R3,LSR #(bits-5):�R R0,R0,R3,LSL #10
`&LDR R2,[R7,R3,LSL #2]:SUB R6,R6,R2
`"ISTRB R0,[R12]:MOV R0,R0,LSR #8:STRB R0,[R12,#1]:ADD R12,R12,R1,LSL #1
`,]
`6�dither% �
`@
[OPT Z
`JADD R0,R11,#4
`TADD R2,R4,R4,LSL #1
`^(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
`hSTR R3,[R11,-R8]
`rADD R2,R4,R4,LSL #2
`|$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
`�STR R3,[R11]
`�MOV R3,R4,ASR #4
`�STR R3,[R11,R8]!
`�RSB R2,R4,R4,LSL #3
`�LDR R4,[R10]
`�ADD R4,R4,R2,ASR #4
`�ADD R2,R5,R5,LSL #1
`�'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
`�STR R3,[R0,-R8]
`�MOV R3,R5,ASR #4
`�STR R3,[R0,R8]
`�ADD R2,R5,R5,LSL #2
`�#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
aSTR R3,[R0],#4
aRSB R2,R5,R5,LSL #3
a LDR R5,[R10,#4]
a&ADD R5,R5,R2,ASR #4
a0ADD R2,R6,R6,LSL #1
a:'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
aDSTR R3,[R0,-R8]
aNADD R2,R6,R6,LSL #2
aX#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
abSTR R3,[R0]
alMOV R3,R6,ASR #4
avSTR R3,[R0,R8]
a�RSB R2,R6,R6,LSL #3
a�LDR R6,[R10,#8]
a�ADD R6,R6,R2,ASR #4
a�]
a��
a�
[OPT Z
a�LDMIA R10,{R4,R5,R6}
a�]
a��
a�
[OPT Z
a� SUBS R9,R9,#1:BNE fsloop
a�LDMFD SP !,{PC}^
a�]
b � 256
b
[OPT Z
b .div255
b ]
b*
�I%=0�255
b4
[OPT Z
b>EQUD I%/255*F
bH]
bR�
b\
[OPT Z
bp.fs%
bzSTMFD SP !,{R14}
b�LDR R10,[R9,#4*8]
b�ADR R7,div255
b� LDR R1,[R9,#5*8]:LDR R1,[R1]
b�LDR R11,[R9,#3*8]
b�#LDR R12,[R9,#2*8]:LDR R12,[R12]
b� LDR R8,[R9,#8]:LDR R8,[R8]
b�LDR R9,[R9]:LDR R9,[R9]
b�LDR R4,[R10],R8
b� .fsloop
b�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
b�WSUB R0,R4,R4,LSR #8:ADD R0,R0,#1<<(bits-9):MOV R0,R0,LSR #(bits-8):STRB R0,[R12],R1
b�LDR R2,[R7,R0,LSL #2]
b�]
c�dither% �
c
[OPT Z
cSUB R4,R4,R2
c$MOVCS R4,#0
c.ADD R2,R4,R4,LSL #1
c8(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
cBSTR R3,[R11,-R8]
cLADD R2,R4,R4,LSL #2
cV$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
c`STR R3,[R11]
cjMOV R3,R4,ASR #4
ctSTR R3,[R11,R8]!
c~RSB R2,R4,R4,LSL #3
c�LDR R4,[R10],R8
c�ADD R4,R4,R2,ASR #4
c�]
c��
c�
[OPT Z
c�LDR R4,[R10],R8
c�]
c��
c�
[OPT Z
c� SUBS R9,R9,#1:BNE fsloop
c�LDMFD SP !,{PC}^
c�]
d � 63,255
d
div15=P%:�I%=0�255*4�4
d
[OPT Z
d EQUD (palette%!I%�&FF)/255*F
d(#EQUD (palette%!I%>>8�&FF)/255*F
d2$EQUD (palette%!I%>>16�&FF)/255*F
d<]
dF�
dP
�m$="R" �
dZ
[OPT Z
dd.ictloc EQUD ict%
dn]
dx�
d�
[OPT Z
d�EQUD div15
d�.fs%
d�STMFD SP !,{R14}
d� LDR R1,[R9,#5*8]:LDR R1,[R1]
d�LDR R10,[R9,#4*8]
d�LDR R11,[R9,#3*8]
d�#LDR R12,[R9,#2*8]:LDR R12,[R12]
d� LDR R8,[R9,#8]:LDR R8,[R8]
d�LDR R9,[R9]:LDR R9,[R9]
d�LDR R4,[R10]
d�LDR R5,[R10,#4]
d�LDR R6,[R10,#8]
eLDR R7,fs%-4
e .fsloop
eADD R10,R10,R8
e"]
e, Ȏ m$ �
e6�"T"
e@
[OPT Z
eJ%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
eT3MOV R0,R4,LSR #(bits-4):CMP R0,#15:MOVCS R0,#15
e^%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
ehFMOV R3,R5,LSR #(bits-4):CMP R3,#15:MOVCS R3,#15:�R R0,R0,R3,LSL #4
er%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
e|FMOV R3,R6,LSR #(bits-4):CMP R3,#15:MOVCS R3,#15:�R R0,R0,R3,LSL #8
e�LDR R3,colmatchloc
e�LDRB R0,[R3,R0]
e�+ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
e� LDR R2,[R3],#4:SUB R4,R4,R2
e�.LDMIA R3,{R2,R3}:SUB R5,R5,R2:SUB R6,R6,R3
e�]
e��"R"
e��srchdevlist
e�
e�
[OPT Z
e�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
e�%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
e�%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
fSTMFD SP !,{R7,R8,R9}
f
MVN R2,#0
f MOV R3,#&30<<23
f& .srch RSB R7,R3,#&20<<23
f0MOV R8,R6,LSR #bits-8
f:SUB R8,R8,R8,LSR #4
fDADDS R7,R7,R8,LSL #23
fNMOVVSS R7,#&7F000000
fXMOVMI R7,#0
fb� R7,R7,#&60000000
flADD R7,R7,R3
fvADD R14,R7,R7,LSR #4
f�ADD R7,R14,R14,LSR #8
f�ADD R7,R7,R7,LSR #16
f� SUBS R8,R6,R7,LSR #31-bits
f�RSBLT R8,R8,#0
f�MOV R8,R8,LSR #bits/2
f�MUL R9,R8,R8
f�RSB R7,R3,#&20<<23
f�MOV R8,R5,LSR #bits-8
f�SUB R8,R8,R8,LSR #4
f�ADDS R7,R7,R8,LSL #23
f�MOVVSS R7,#&7F000000
f�MOVMI R7,#0
f�� R7,R7,#&60000000
gADD R7,R3,R7
g ADD R7,R7,R7,LSR #4
g�R R14,R14,R7,LSR #8
g ADD R7,R7,R7,LSR #8
g*ADD R7,R7,R7,LSR #16
g4 SUBS R8,R5,R7,LSR #31-bits
g>RSBLT R8,R8,#0
gHMOV R8,R8,LSR #bits/2
gRMUL R7,R8,R8
g\ADD R7,R7,R7,LSL #2
gfADD R9,R9,R7,LSL #1
gpRSB R7,R3,#&20<<23
gzMOV R8,R4,LSR #bits-8
g�SUB R8,R8,R8,LSR #4
g�ADDS R7,R7,R8,LSL #23
g�MOVVSS R7,#&7F000000
g�MOVMI R7,#0
g�� R7,R7,#&60000000
g�ADD R7,R3,R7
g�ADD R7,R7,R7,LSR #4
g��R R14,R14,R7,LSR #16
g�ADD R7,R7,R7,LSR #8
g�ADD R7,R7,R7,LSR #16
g� SUBS R8,R4,R7,LSR #31-bits
g�RSBLT R8,R8,#0
g�MOV R8,R8,LSR #bits/2
hMUL R7,R8,R8
hADD R7,R7,R7,LSL #1
hADD R9,R9,R7
h$
CMP R9,R2
h.MOVLS R2,R9
h8MOVLS R0,R14
hBSUBS R3,R3,#&10<<23
hL BGE srch
hV� R7,R0,#&40000000
h`MOV R8,R7,LSR #23
hj� R7,R0,#&600000
ht�R R8,R8,R7,LSR #16
h~� R7,R0,#&4000
h��R R8,R8,R7,LSR #10
h�� R7,R0,#&20000000
h��R R8,R8,R7,LSR #26
h�� R7,R0,#&3800
h��R R0,R8,R7,LSR #11
h�LDMFD SP !,{R7,R8,R9}
h�+ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
h� LDR R2,[R3],#4:SUB R4,R4,R2
h�.LDMIA R3,{R2,R3}:SUB R5,R5,R2:SUB R6,R6,R3
h�]
h��
h�
[OPT Z
i STRB R0,[R12],R1
i
]
i�dither% �
i
[OPT Z
i(ADD R0,R11,#4
i2ADD R2,R4,R4,LSL #1
i<(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
iFSTR R3,[R11,-R8]
iPADD R2,R4,R4,LSL #2
iZ$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
idSTR R3,[R11]
inMOV R3,R4,ASR #4
ixSTR R3,[R11,R8]!
i�RSB R2,R4,R4,LSL #3
i�LDR R4,[R10]
i�ADD R4,R4,R2,ASR #4
i�ADD R2,R5,R5,LSL #1
i�'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
i�STR R3,[R0,-R8]
i�MOV R3,R5,ASR #4
i�STR R3,[R0,R8]
i�ADD R2,R5,R5,LSL #2
i�#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
i�STR R3,[R0],#4
i�RSB R2,R5,R5,LSL #3
i�LDR R5,[R10,#4]
jADD R5,R5,R2,ASR #4
jADD R2,R6,R6,LSL #1
j'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
j"STR R3,[R0,-R8]
j,ADD R2,R6,R6,LSL #2
j6#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
j@STR R3,[R0]
jJMOV R3,R6,ASR #4
jTSTR R3,[R0,R8]
j^RSB R2,R6,R6,LSL #3
jhLDR R6,[R10,#8]
jrADD R6,R6,R2,ASR #4
j|]
j��
j�
[OPT Z
j�LDMIA R10,{R4,R5,R6}
j�]
j��
j�
[OPT Z
j� SUBS R9,R9,#1:BNE fsloop
j�LDMFD SP !,{PC}^
j�]
j�� 15
j�divtable=P%:Ȏ m$ �
j� � "D"
j� � "R"
k�I%=0�15*4�4
k
[OPT Z
k &EQUD (palette%!I%>>4�&F)/bright%*F
k&'EQUD (palette%!I%>>12�&F)/bright%*F
k0'EQUD (palette%!I%>>20�&F)/bright%*F
k:]
kD�
kN
[OPT Z
kX.ictloc EQUD ict%
kb]
kl � "T"
kv �I%=0�15
k�
[OPT Z
k�EQUD I%/bright%*F
k�]
k��
k�
k� �I%=0�7
k�
[OPT Z
k�EQUD I%/(bright%�2)*F
k�]
k��
k��
k�
[OPT Z
k�.fs%
lSTMFD SP !,{R14}
l LDR R1,[R9,#5*8]:LDR R1,[R1]
lLDR R10,[R9,#4*8]
l LDR R11,[R9,#3*8]
l*#LDR R12,[R9,#2*8]:LDR R12,[R12]
l4 LDR R8,[R9,#8]:LDR R8,[R8]
l>LDR R9,[R9]:LDR R9,[R9]
lH]
lR�m$="D" �m$="R" �
l\
[OPT Z
lfLDR R4,[R10]
lpLDR R5,[R10,#4]
lzLDR R6,[R10,#8]
l�]
l��
l�
[OPT Z
l�LDR R4,[R10],R8
l�]
l��
l��m$<>"D" �
l�
[OPT Z
l�ADR R7,divtable
l�]
l��
l�
[OPT Z
l� .fsloop
m]
m Ȏ m$ �
m�"R"
m$
[OPT Z
m.ADD R10,R10,R8
m8]
mB�srchdevlist
mL
[OPT Z
mV
MOV r3,r0
m`]
mj � "D"
mt
[OPT Z
m~ADD R10,R10,R8
m�
MOV R3,#0
m�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
m�CMP R4,#F>>1
m� SUBCS R4,R4,#F:�RCS R3,R3,#1
m�%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
m�CMP R5,#F>>1
m� SUBCS R5,R5,#F:�RCS R3,R3,#2
m�%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
m�CMP R6,#F>>1
m� SUBCS R6,R6,#F:�RCS R3,R3,#4
m�]
m� � "T"
n
[OPT Z
n
%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
n;RSB R3,R4,R4,LSL #4:ADD R3,R3,#F>>1:MOV R3,R3,LSR #bits
n LDR R2,[R7,R3,LSL #2]
n(SUB R4,R4,R2
n2]
n<
nF
[OPT Z
nP%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
nZ;RSB R3,R4,R4,LSL #3:ADD R3,R3,#F>>1:MOV R3,R3,LSR #bits
ndLDR R2,[R7,R3,LSL #2]
nnSUB R4,R4,R2
nx]
n��
n�
[OPT Z
n�MOV R2,R12,LSR #1
n�TST R12,#1
n�LDRB R0,[R2]
n� �EQ R0,R0,#&F0:�REQ R0,R0,R3
n�'�NE R0,R0,#&0F:�RNE R0,R0,R3,LSL #4
n�STRB R0,[R2]
n�ADD R12,R12,R1
n�]
n��m$="D" �m$="R" �
n��dither% �
n�
[OPT Z
oADD R0,R11,#4
oADD R2,R4,R4,LSL #1
o(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
o"STR R3,[R11,-R8]
o,ADD R2,R4,R4,LSL #2
o6$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
o@STR R3,[R11]
oJMOV R3,R4,ASR #4
oTSTR R3,[R11,R8]!
o^RSB R2,R4,R4,LSL #3
ohLDR R4,[R10]
orADD R4,R4,R2,ASR #4
o|ADD R2,R5,R5,LSL #1
o�'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
o�STR R3,[R0,-R8]
o�MOV R3,R5,ASR #4
o�STR R3,[R0,R8]
o�ADD R2,R5,R5,LSL #2
o�#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
o�STR R3,[R0],#4
o�RSB R2,R5,R5,LSL #3
o�LDR R5,[R10,#4]
o�ADD R5,R5,R2,ASR #4
o�ADD R2,R6,R6,LSL #1
o�'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
o�STR R3,[R0,-R8]
pADD R2,R6,R6,LSL #2
p#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
p STR R3,[R0]
p&MOV R3,R6,ASR #4
p0STR R3,[R0,R8]
p:RSB R2,R6,R6,LSL #3
pDLDR R6,[R10,#8]
pNADD R6,R6,R2,ASR #4
pX]
pb�
pl
[OPT Z
pvLDMIA R10,{R4,R5,R6}
p�]
p��
p��
p��dither% �
p�
[OPT Z
p�ADD R2,R4,R4,LSL #1
p�(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
p�STR R3,[R11,-R8]
p�ADD R2,R4,R4,LSL #2
p�$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
p�STR R3,[R11]
p�MOV R3,R4,ASR #4
p�STR R3,[R11,R8]!
qRSB R2,R4,R4,LSL #3
q LDR R4,[R10],R8
qADD R4,R4,R2,ASR #4
q ]
q*�
q4
[OPT Z
q>LDR R4,[R10],R8
qH]
qR�
q\�
qf
[OPT Z
qp SUBS R9,R9,#1:BNE fsloop
qzLDMFD SP !,{PC}^
q�]
q�� 3
q�divtable=P%:Ȏ m$ �
q� � "C"
q� � "R"
q��I%=0�3*4�4
q�
[OPT Z
q�&EQUD (palette%!I%>>4�&F)/bright%*F
q�'EQUD (palette%!I%>>12�&F)/bright%*F
q�'EQUD (palette%!I%>>20�&F)/bright%*F
q�]
q��
q�
r
[OPT Z
r
EQUD 0
rEQUD 1/(bright%�4)*F
r$EQUD 2/(bright%�4)*F
r.
EQUD F
r8]
rB�
rL
[OPT Z
rV.fs%
r`STMFD SP !,{R14}
rj LDR R1,[R9,#5*8]:LDR R1,[R1]
rtLDR R10,[R9,#4*8]
r~LDR R11,[R9,#3*8]
r�LDR R12,[R9,#2*8]
r�LDR R12,[R12]
r�LDR R8,[R9,#8]
r�LDR R8,[R8]
r�LDR R9,[R9]
r�LDR R9,[R9]
r�]
r��m$="C" �m$="R" �
r�
[OPT Z
r�LDR R4,[R10]
r�LDR R5,[R10,#4]
r�LDR R6,[R10,#8]
s ]
s
�
s
[OPT Z
s LDR R4,[R10],R8
s(]
s2�
s<
[OPT Z
sF .fsloop
sP]
sZ
�m$<>"C"�
sd
[OPT Z
snADR R7,divtable
sx]
s��
s� Ȏ m$ �
s��"C"
s�
[OPT Z
s�ADD R10,R10,R8
s�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
s�%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
s�%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
s�
MOV R3,#0
s� CMP R4,#F>>1:�RCS R3,R3,#1
s� CMP R5,#F>>1:�RCS R3,R3,#2
s� CMP R6,#F>>1:�RCS R3,R3,#4
s�"CMP R3,#6:�Q R3,#1:BEQ octcyan
tBCS octwhite
tCMP R3,#4:BEQ octblue
t MOVCS R3,#2:BCS octmagenta
t"CMP R3,#2:BEQ octgreen
t,BCS octyellow
t6CMP R3,#0:BEQ octblack
t@ .octred
tJRSB R0,R4,#F
tT
CMP R5,R0
t^BLT octred1
th
CMP R5,R6
trMOVGE R3,#3
t|MOVLT R3,#2
t�B octconvert
t� .octred1
t�
CMP R0,R6
t�MOVGE R3,#0
t�MOVLT R3,#2
t�B octconvert
t�
.octgreen
t�RSB R0,R5,#F
t�
CMP R0,R4
t�BLT octgreen1
t�
CMP R0,R6
t�MOVGE R3,#0
t�MOVLT R3,#1
uB octconvert
u.octgreen1
u
CMP R4,R6
u&MOVGE R3,#3
u0MOVLT R3,#1
u:B octconvert
uD .octblue
uNRSB R0,R6,#F
uX
CMP R0,R4
ubBLT octblue1
ul
CMP R0,R5
uvMOVGE R3,#0
u�MOVLT R3,#1
u�B octconvert
u�
.octblue1
u�
CMP R4,R5
u�MOVGE R3,#2
u�MOVLT R3,#1
u�B octconvert
u�
.octwhite
u�
CMP R4,R5
u�BLT octwhite1
u�
CMP R5,R6
u�MOVGE R3,#3
u�MOVLT R3,#2
vB octconvert
v .octwhite1
v
CMP R4,R6
v MOVGE R3,#3
v*MOVLT R3,#1
v4.octconvert
v>
CMP R3,#1
vH .octcyan
vRSUBEQ R5,R5,#F
v\SUBEQ R6,R6,#F
vf.octmagenta
vp
CMP R3,#2
vzSUBEQ R4,R4,#F
v�SUBEQ R6,R6,#F
v�.octyellow
v�
CMP R3,#3
v�SUBEQ R4,R4,#F
v�SUBEQ R5,R5,#F
v�
.octblack
v�MOV R2,R12,LSR #2
v� � R7,R12,#3:MOV R7,R7,LSL #1
v�MOV R14,#3
v�ELDRB R0,[R2]:BIC R0,R0,R14,LSL R7:�R R0,R0,R3,LSL R7:STRB R0,[R2]
v�ADD R12,R12,R1
v�]
v��"R"
w
[OPT Z
wADD R10,R10,R8
w%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
w$%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
w.%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
w8STMFD SP !,{R8,R9,R10}
wB
MVN R2,#0
wL
MOV R3,#3
wV .srch ADD R14,R3,R3,LSL #1
w`ADD R14,R7,R14,LSL #2
wjLDMIA R14,{R8,R9,R10}
wtSUBS R8,R4,R8
w~RSBMI R8,R8,#0
w�SUBS R9,R5,R9
w�RSBMI R9,R9,#0
w�SUBS R10,R6,R10
w�RSBMI R10,R10,#0
w�MOV R14,R8,LSR #bits/2
w�MUL R8,R14,R14
w�MOV R14,R9,LSR #bits/2
w�MUL R9,R14,R14
w�MOV R14,R10,LSR #bits/2
w�MUL R10,R14,R14
w�ADD R9,R9,R9,LSL #2
w�ADD R8,R8,R8,LSL #1
x ADD R14,R8,R9,LSL #1
x
ADD R14,R14,R10
xCMP R14,R2
x MOVCC R2,R14
x(MOVCC R0,R3
x2SUBS R3,R3,#1
x< BPL srch
xFLDMFD SP !,{R8,R9,R10}
xP+ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
xZ LDR R2,[R3],#4:SUB R4,R4,R2
xd.LDMIA R3,{R2,R3}:SUB R5,R5,R2:SUB R6,R6,R3
xn
MOV R3,R0
xxMOV R2,R12,LSR #2
x� � R7,R12,#3:MOV R7,R7,LSL #1
x�MOV R14,#3
x�ELDRB R0,[R2]:BIC R0,R0,R14,LSL R7:�R R0,R0,R3,LSL R7:STRB R0,[R2]
x�ADD R12,R12,R1
x�]
x�
x�
[OPT Z
x�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
x�:RSB R3,R4,R4,LSL #2:ADD R3,R3,#F>>1:MOV R3,R3,LSR#bits
x�LDR R2,[R7,R3,LSL #2]
x�SUB R4,R4,R2
x�MOV R2,R12,LSR #2
x� � R5,R12,#3:MOV R5,R5,LSL #1
y
MOV R6,#3
yDLDRB R0,[R2]:BIC R0,R0,R6,LSL R5:�R R0,R0,R3,LSL R5:STRB R0,[R2]
yADD R12,R12,R1
y"]
y,�
y6�m$="C" �m$="R" �
y@�dither% �
yJ
[OPT Z
yTADD R0,R11,#4
y^ADD R2,R4,R4,LSL #1
yh(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
yrSTR R3,[R11,-R8]
y|ADD R2,R4,R4,LSL #2
y�$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
y�STR R3,[R11]
y�MOV R3,R4,ASR #4
y�STR R3,[R11,R8]!
y�RSB R2,R4,R4,LSL #3
y�LDR R4,[R10]
y�ADD R4,R4,R2,ASR #4
y�ADD R2,R5,R5,LSL #1
y�'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
y�STR R3,[R0,-R8]
y�MOV R3,R5,ASR #4
y�STR R3,[R0,R8]
y�ADD R2,R5,R5,LSL #2
z#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
zSTR R3,[R0],#4
z RSB R2,R5,R5,LSL #3
z&LDR R5,[R10,#4]
z0ADD R5,R5,R2,ASR #4
z:ADD R2,R6,R6,LSL #1
zD'LDR R3,[R0,-R8]:ADD R3,R3,R2,ASR #4
zNSTR R3,[R0,-R8]
zXADD R2,R6,R6,LSL #2
zb#LDR R3,[R0]:ADD R3,R3,R2,ASR #4
zlSTR R3,[R0]
zvMOV R3,R6,ASR #4
z�STR R3,[R0,R8]
z�RSB R2,R6,R6,LSL #3
z�LDR R6,[R10,#8]
z�ADD R6,R6,R2,ASR #4
z�]
z��
z�
[OPT Z
z�LDMIA R10,{R4,R5,R6}
z�]
z��
z��
z��dither% �
z�
[OPT Z
{ADD R2,R4,R4,LSL #1
{ (LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
{STR R3,[R11,-R8]
{ ADD R2,R4,R4,LSL #2
{*$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
{4STR R3,[R11]
{>MOV R3,R4,ASR #4
{HSTR R3,[R11,R8]!
{RRSB R2,R4,R4,LSL #3
{\LDR R4,[R10],R8
{fADD R4,R4,R2,ASR #4
{p]
{z�
{�
[OPT Z
{�LDR R4,[R10],R8
{�]
{��
{��
{�
[OPT Z
{� SUBS R9,R9,#1:BNE fsloop
{�LDMFD SP !,{PC}^
{�]
{�� 1
{� Ȏ m$ �
{��"C"
{�
[OPT Z
|.divtable EQUD 0
| EQUD (1-black%/256*2)/16*F
| EQUD (2-black%/256*4)/16*F
|$ EQUD (3-black%/256*5)/16*F
|. EQUD (4-black%/256*6)/16*F
|8 EQUD (5-black%/256*7)/16*F
|B EQUD (6-black%/256*8)/16*F
|L EQUD (7-black%/256*8)/16*F
|V EQUD (8-black%/256*8)/16*F
|` EQUD (9-black%/256*8)/16*F
|j EQUD (10-black%/256*8)/16*F
|t EQUD (11-black%/256*7)/16*F
|~ EQUD (12-black%/256*6)/16*F
|� EQUD (13-black%/256*5)/16*F
|� EQUD (14-black%/256*4)/16*F
|� EQUD (15-black%/256*2)/16*F
|�
EQUD F
|� .evenrow_gard DCD even_gard
|� .oddrow_gard DCD odd_gard
|�.rowinc DCD 0
|�.fs%
|�STMFD SP !,{R14}
|� LDR R1,[R9,#5*8]:LDR R1,[R1]
|�LDR R10,[R9,#4*8]
|�LDR R11,[R9,#3*8]
} LDR R12,[R9,#2*8]
}
LDR R12,[R12]
}LDR R8,[R9,#8]
} LDR R8,[R8]
}(LDR R9,[R9]
}2LDR R9,[R9]
}<LDR R4,[R10],R8
}F
TEQ R8,#0
}PLDRPL R6,evenrow_gard
}ZLDRMI R6,oddrow_gard
}dMOV R1,R1,LSL #1
}nLDR R7,rowinc
}xADR R14,divtable
}� .fsloop
}�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
}�ADD R5,R4,#F>>5
}�MOVS R5,R5,LSR #bits-4
}� LDRNE R0,[R14,R5,LSL #2]
}�SUBNE R4,R4,R0
}�]
}��dither% �
}�
[OPT Z
}�ADD R2,R4,R4,LSL #1
}�(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
}�STR R3,[R11,-R8]
}�ADD R2,R4,R4,LSL #2
~$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
~STR R3,[R11]
~MOV R3,R4,ASR #4
~"STR R3,[R11,R8]!
~,RSB R2,R4,R4,LSL #3
~6LDR R4,[R10],R8
~@ADDS R4,R4,R2,ASR #4
~J]
~T�
~^
[OPT Z
~hLDR R4,[R10],R8
~r]
~|�
~�
[OPT Z
~�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
~�ADD R3,R4,#F>>5
~�MOVS R3,R3,LSR #bits-4
~� LDRNE R0,[R14,R3,LSL #2]
~�SUBNE R4,R4,R0
~�,�R R5,R5,R3,LSL #5:LDR R3,[R6,R5,LSL #2]
~�FMOV R2,R12,LSR #1:STRB R3,[R2],R7:MOV R3,R3,LSR #8:STRB R3,[R2],R7
~�BMOV R3,R3,LSR #8:STRB R3,[R2],R7:MOV R3,R3,LSR #8:STRB R3,[R2]
~�ADD R12,R12,R1
~�]
~��dither% �
~�
[OPT Z
ADD R2,R4,R4,LSL #1
(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
STR R3,[R11,-R8]
&ADD R2,R4,R4,LSL #2
0$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
:STR R3,[R11]
DMOV R3,R4,ASR #4
NSTR R3,[R11,R8]!
XRSB R2,R4,R4,LSL #3
bLDR R4,[R10],R8
lADD R4,R4,R2,ASR #4
v]
��
�
[OPT Z
�LDR R4,[R10],R8
�]
��
�
[OPT Z
� SUBS R9,R9,#2:BNE fsloop
�LDMFD SP !,{PC}^
�]
��"T"
�
[OPT Z
�.divtable EQUD 0
� EQUD (1-black%/256*2)/9*F
� EQUD (2-black%/256*4)/9*F
� EQUD (3-black%/256*5)/9*F
� EQUD (4-black%/256*6)/9*F
� EQUD (5-black%/256*6)/9*F
�* EQUD (6-black%/256*5)/9*F
�4 EQUD (7-black%/256*4)/9*F
�> EQUD (8-black%/256*2)/9*F
�H
EQUD F
�R .evenrow_gard DCD even_gard
�\ .oddrow_gard DCD odd_gard
�f.rowinc DCD 0
�p.fs%
�zSTMFD SP !,{R14}
�� LDR R1,[R9,#5*8]:LDR R1,[R1]
��LDR R10,[R9,#4*8]
��LDR R11,[R9,#3*8]
��LDR R12,[R9,#2*8]
��LDR R12,[R12]
��LDR R8,[R9,#8]
��LDR R8,[R8]
��LDR R9,[R9]
��LDR R9,[R9]
��LDR R4,[R10],R8
��
TEQ R8,#0
��LDRPL R6,evenrow_gard
��LDRMI R6,oddrow_gard
�MOV R1,R1,LSL #1
�LDR R7,rowinc
�ADR R14,divtable
�$ .fsloop
�.%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
�8ADD R5,R4,#F>>4
�BADD R5,R5,R5,LSL #3
�LMOVS R5,R5,LSR #bits
�V LDRNE R0,[R14,R5,LSL #2]
�`SUBNE R4,R4,R0
�j]
�t�dither% �
�~
[OPT Z
��ADD R2,R4,R4,LSL #1
��(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
��STR R3,[R11,-R8]
��ADD R2,R4,R4,LSL #2
��$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
��STR R3,[R11]
��MOV R3,R4,ASR #4
��STR R3,[R11,R8]!
��RSB R2,R4,R4,LSL #3
��LDR R4,[R10],R8
��ADDS R4,R4,R2,ASR #4
��]
� �
�
[OPT Z
�LDR R4,[R10],R8
� ]
�(�
�2
[OPT Z
�<%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
�FADD R3,R4,#F>>4
�PADD R3,R3,R3,LSL #3
�ZMOVS R3,R3,LSR #bits
�d LDRNE R0,[R14,R3,LSL #2]
�nSUBNE R4,R4,R0
�x,�R R5,R5,R3,LSL #4:LDR R5,[R6,R5,LSL #2]
��MOV R2,R12,LSR #1
��� R3,R5,#&3F
��STRB R3,[R2],R7
��!MOV R3,R5,LSR #6:� R3,R3,#&3F
��STRB R3,[R2],R7
��"MOV R3,R5,LSR #12:STRB R3,[R2]
��ADD R12,R12,R1
��]
���dither% �
��
[OPT Z
��ADD R2,R4,R4,LSL #1
��(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
��STR R3,[R11,-R8]
�ADD R2,R4,R4,LSL #2
�$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
�STR R3,[R11]
�"MOV R3,R4,ASR #4
�,STR R3,[R11,R8]!
�6RSB R2,R4,R4,LSL #3
�@LDR R4,[R10],R8
�JADD R4,R4,R2,ASR #4
�T]
�^�
�h
[OPT Z
�rLDR R4,[R10],R8
�|]
���
��
[OPT Z
�� SUBS R9,R9,#2:BNE fsloop
��LDMFD SP !,{PC}^
��]
���"D"
��
[OPT Z
��.divtable EQUD 0
�� EQUD (1-black%/256*2)/4*F
�� EQUD (2-black%/256*4)/4*F
�� EQUD (3-black%/256*2)/4*F
��
EQUD F
�� .evenrow_gard DCD even_gard
� .oddrow_gard DCD odd_gard
�.rowinc DCD 0
� .fs%
�&STMFD SP !,{R14}
�0 LDR R1,[R9,#5*8]:LDR R1,[R1]
�:LDR R10,[R9,#4*8]
�DLDR R11,[R9,#3*8]
�NLDR R12,[R9,#2*8]
�XLDR R12,[R12]
�bLDR R8,[R9,#8]
�lLDR R8,[R8]
�vLDR R9,[R9]
��LDR R9,[R9]
��LDR R4,[R10],R8
��
TEQ R8,#0
��LDRPL R6,evenrow_gard
��LDRMI R6,oddrow_gard
��MOV R1,R1,LSL #1
��LDR R7,rowinc
��ADR R14,divtable
�� .fsloop
��%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
��ADD R5,R4,#F>>3
��MOVS R5,R5,LSR #bits-2
�� LDRNE R0,[R14,R5,LSL #2]
�SUBNE R4,R4,R0
� ]
��dither% �
�
[OPT Z
�*ADD R2,R4,R4,LSL #1
�4(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
�>STR R3,[R11,-R8]
�HADD R2,R4,R4,LSL #2
�R$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
�\STR R3,[R11]
�fMOV R3,R4,ASR #4
�pSTR R3,[R11,R8]!
�zRSB R2,R4,R4,LSL #3
��LDR R4,[R10],R8
��ADDS R4,R4,R2,ASR #4
��]
���
��
[OPT Z
��LDR R4,[R10],R8
��]
���
��
[OPT Z
��%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
��ADD R3,R4,#F>>3
��MOVS R3,R3,LSR #bits-2
�� LDRNE R0,[R14,R3,LSL #2]
�SUBNE R4,R4,R0
�&�R R5,R5,R3,LSL #3:LDRB R5,[R6,R5]
�MOV R2,R12,LSR #2
�$TST R12,#2
�. � R3,R5,#&F:LDRB R0,[R2]
�8 �EQ R0,R0,#&F0:�REQ R0,R0,R3
�B'�NE R0,R0,#&0F:�RNE R0,R0,R3,LSL #4
�LSTRB R0,[R2],R7
�V!MOV R3,R5,LSR #4:LDRB R0,[R2]
�` �EQ R0,R0,#&F0:�REQ R0,R0,R3
�j'�NE R0,R0,#&0F:�RNE R0,R0,R3,LSL #4
�tSTRB R0,[R2]
�~ADD R12,R12,R1
��]
���dither% �
��
[OPT Z
��ADD R2,R4,R4,LSL #1
��(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
��STR R3,[R11,-R8]
��ADD R2,R4,R4,LSL #2
��$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
��STR R3,[R11]
��MOV R3,R4,ASR #4
��STR R3,[R11,R8]!
��RSB R2,R4,R4,LSL #3
� LDR R4,[R10],R8
�
ADD R4,R4,R2,ASR #4
�]
� �
�(
[OPT Z
�2LDR R4,[R10],R8
�<]
�F�
�P
[OPT Z
�Z SUBS R9,R9,#2:BNE fsloop
�dLDMFD SP !,{PC}^
�n]
�x
��
[OPT Z
��.fs%
��STMFD SP !,{R14}
�� LDR R1,[R9,#5*8]:LDR R1,[R1]
��LDR R10,[R9,#4*8]
��LDR R11,[R9,#3*8]
��LDR R12,[R9,#2*8]
��LDR R12,[R12]
��LDR R8,[R9,#8]
��LDR R8,[R8]
��LDR R9,[R9]
��LDR R9,[R9]
��LDR R4,[R10],R8
�
MOV R7,#1
� .fsloop
�%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
�"]
�,
�black% �
�6
[OPT Z
�@MOV R2,R12,LSR #3
�J� R5,R12,#7:MOV R6,#1
�T LDRB R0,[R2,#-(x%+7>>3)]
�^SUB R3,R4,#F
�h
CMP R7,#0
�r!ADDNE R4,R4,#black%<<(bits-8)
�|!ADDEQ R3,R3,#black%<<(bits-8)
��TST R0,R6,LSL R5
��!ADDNE R4,R4,#black%<<(bits-8)
��!ADDEQ R3,R3,#black%<<(bits-8)
�� MOVS R0,R3:RSBMI R0,R3,#0
��
CMP R4,R0
��MOVCC R3,#0
��MOVCS R4,R3:MOVCS R3,#1
��
MOV R7,R3
��]
���
��
[OPT Z
��'ADD R3,R4,#F>>1:MOV R3,R3,LSR #bits
��SUB R4,R4,R3,LSL #bits
�MOV R2,R12,LSR #3
�� R5,R12,#7:MOV R6,#1
� ]
�&�
�0
[OPT Z
�:7LDRB R0,[R2]:BIC R0,R0,R6,LSL R5:�R R0,R0,R3,LSL R5
�DSTRB R0,[R2]
�NADD R12,R12,R1
�X]
�b�dither% �
�l
[OPT Z
�vADD R2,R4,R4,LSL #1
��(LDR R3,[R11,-R8]:ADD R3,R3,R2,ASR #4
��STR R3,[R11,-R8]
��ADD R2,R4,R4,LSL #2
��$LDR R3,[R11]:ADD R3,R3,R2,ASR #4
��STR R3,[R11]
��MOV R3,R4,ASR #4
��STR R3,[R11,R8]!
��RSB R2,R4,R4,LSL #3
��LDR R4,[R10],R8
��ADD R4,R4,R2,ASR #4
��]
���
��
[OPT Z
�LDR R4,[R10],R8
� ]
��
�
[OPT Z
�* SUBS R9,R9,#1:BNE fsloop
�4LDMFD SP !,{PC}^
�>]
�H�
�R�
�\
[OPT Z
�f.sxloc DCD sx%
�p]
�z Ȏ col �
��� 0
���input<=8 �
��
[OPT Z
�� .mappix%
��LDR R0,sxloc
��LDR R1,[R9]:LDR R1,[R1]
��LDR R2,[R9,#3*8]
��LDR R5,[R9,#4*8]
��
MOV R8,#0
��
.mappixlp
��LDRB R6,[R1],#step24
��]
���
�Ȏ input �
�� 8
�
�ham �
�$
[OPT Z
�.ADR R9,ltable
�8!MOVS R7,R6,LSR #4:� R6,R6,#15
�B2LDREQ R10,[R2,R6,LSL #2]:�Q R11,R10:�Q R12,R10
�L&CMP R7,#1:LDREQ R12,[R9,R6,LSL #2]
�V&CMP R7,#2:LDREQ R10,[R9,R6,LSL #2]
�`&CMP R7,#3:LDREQ R11,[R9,R6,LSL #2]
�jADD R3,R10,R11
�tADD R3,R3,R12
�~MOV R3,R3,LSR #2
��STMIA R5!,{R3}
�� SUBS R0,R0,#1:BNE mappixlp
��MOVS PC,R14
�� .ltable
��]
�� �I%=0�15
��
[OPT Z
��EQUD I%/15*F
��]
���
���
���hpredict%=2 �
�
[OPT Z
�
ADD R6,R6,R8
�� R6,R6,#255
�
MOV R8,R6
�(]
�2�
�<
[OPT Z
�F(LDR R7,[R2,R6,LSL #2]:STR R7,[R5],#4
�P SUBS R0,R0,#1:BNE mappixlp
�ZMOVS PC,R14
�d]
�n�
�x� 4
���bigendianbits �
��
[OPT Z
��MOV R10,R6,LSR #4
��LDR R7,[R2,R10,LSL #2]
��� R10,R6,#&F
��]
���
��
[OPT Z
��� R10,R6,#&F
��LDR R7,[R2,R10,LSL #2]
��MOV R10,R6,LSR #4
��]
���
�
[OPT Z
�,LDR R8,[R2,R10,LSL #2]:STMIA R5!,{R7,R8}
� SUBS R0,R0,#2:BHI mappixlp
�"MOVS PC,R14
�,]
�6� 2
�@�bigendianbits �
�J
[OPT Z
�TMOV R10,R6,LSR #6
�^LDR R7,[R2,R10,LSL #2]
�h� R10,R6,#&30
�rLDR R8,[R2,R10,LSR #2]
�|� R10,R6,#&C
��LDR R9,[R2,R10]
��� R10,R6,#&3
��]
���
��
[OPT Z
��� R10,R6,#&3
��LDR R7,[R2,R10,LSL #2]
��� R10,R6,#&C
��LDR R8,[R2,R10]
��� R10,R6,#&30
��LDR R9,[R2,R10,LSR #2]
��MOV R10,R6,LSR #6
��]
��
�
[OPT Z
� 4LDR R10,[R2,R10,LSL #2]:STMIA R5!,{R7,R8,R9,R10}
�& SUBS R0,R0,#4:BHI mappixlp
�0MOVS PC,R14
�:]
�D� 1
�N�bigendianbits �
�X
[OPT Z
�b� R10,R6,#&80
�lLDR R7,[R2,R10,LSR #5]
�v� R10,R6,#&40
��LDR R8,[R2,R10,LSR #4]
��� R10,R6,#&20
��LDR R9,[R2,R10,LSR #3]
��� R10,R6,#&10
��4LDR R10,[R2,R10,LSR #2]:STMIA R5!,{R7,R8,R9,R10}
��� R10,R6,#&8
��LDR R7,[R2,R10,LSR #1]
��� R10,R6,#&4
��LDR R8,[R2,R10]
��� R10,R6,#&2
��LDR R9,[R2,R10,LSL #1]
��� R10,R6,#&1
��]
��
�
[OPT Z
�� R10,R6,#&1
� LDR R7,[R2,R10,LSL #2]
�*� R10,R6,#&2
�4LDR R8,[R2,R10,LSL #1]
�>� R10,R6,#&4
�HLDR R9,[R2,R10]
�R� R10,R6,#&8
�\4LDR R10,[R2,R10,LSR #1]:STMIA R5!,{R7,R8,R9,R10}
�f� R10,R6,#&10
�pLDR R7,[R2,R10,LSR #2]
�z� R10,R6,#&20
��LDR R8,[R2,R10,LSR #3]
��� R10,R6,#&40
��LDR R9,[R2,R10,LSR #4]
��MOV R10,R6,LSR #7
��]
���
��
[OPT Z
��4LDR R10,[R2,R10,LSL #2]:STMIA R5!,{R7,R8,R9,R10}
�� SUBS R0,R0,#8:BHI mappixlp
��MOVS PC,R14
��]
��� 16
��
[OPT Z
� .mappix%
�LDR R0,sxloc
�LDR R1,[R9]:LDR R1,[R1]
�$ LDR R2,[R9,#8]:LDR R2,[R2]
�.LDR R3,[R9,#4*8]
�8LDR R4,[R9,#3*8]
�BLDR R5,[R9,#2*8]
�LLDR R6,[R9,#5*8]
�VLDR R7,[R9,#6*8]
�`LDR R8,[R9,#7*8]
�j
CMP R1,R2
�tADDEQ R2,R2,#1
�~
.mappixlp
��.LDRB R9,[R1],#step24:LDRB R10,[R2],#step24
��>LDR R9,[R6,R9,LSL #2]:LDR R10,[R7,R10,LSL #2]:�R R9,R9,R10
��)� R10,R9,#255:LDR R10,[R3,R10,LSL #2]
��<MOV R11,R9,LSR #8:� R11,R11,#255:LDR R11,[R4,R11,LSL #2]
��.MOV R12,R9,LSR #16:LDR R12,[R5,R12,LSL #2]
��3ADD R10,R10,R11:ADD R10,R10,R12:STMIA R8!,{R10}
�� SUBS R0,R0,#1:BNE mappixlp
��MOVS PC,R14
��]
��� 24
��
[OPT Z
�� .mappix%
� LDR R0,sxloc
�
LDR R1,[R9,#2*8]:LDR R1,[R1]
� LDR R2,[R9,#8]:LDR R2,[R2]
� LDR R3,[R9]:LDR R3,[R3]
�(LDR R4,[R9,#5*8]
�2LDR R5,[R9,#4*8]
�<LDR R6,[R9,#3*8]
�FLDR R7,[R9,#6*8]
�PSTMFD SP !,{R14}
�Z$MOV r11,#0:MOV R12,#0:MOV R14,#0
�d
.mappixlp
�nCLDRB R8,[R1],#step24:LDRB R9,[R2],#step24:LDRB R10,[R3],#step24
�x]
���hpredict%=2 �
��
[OPT Z
��ADD r8,r8,r11
��� r8,r8,#255
��MOV r11,r8
��ADD r9,r9,r12
��� r9,r9,#255
��MOV r12,r9
��ADD r10,r10,r14
��� r10,r10,#255
��MOV r14,r10
��]
���
�
[OPT Z
�GLDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
�-ADD R8,R8,R9:ADD R8,R8,R10:STR R8,[R7],#4
�" SUBS R0,R0,#1:BNE mappixlp
�,LDMFD SP !,{PC}^
�6]
�@� 48
�J
[OPT Z
�T .mappix%
�^LDR R0,sxloc
�h LDR R1,[R9,#2*8]:LDR R1,[R1]
�r LDR R2,[R9,#8]:LDR R2,[R2]
�|LDR R3,[R9]:LDR R3,[R3]
��LDR R4,[R9,#5*8]
��LDR R5,[R9,#4*8]
��LDR R6,[R9,#3*8]
��LDR R7,[R9,#6*8]
��STMFD SP !,{R14}
��?MOV r11,#colourindex � 255:ADD r11,r11,#colourindex � &ff00
��
.mappixlp
��@LDR R8,[R1],#step24:LDR R9,[R2],#step24:LDR R10,[R3],#step24
��)� r8,r8,r11:� r9,r9,r11:� r10,r10,r11
��GLDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
��-ADD R8,R8,R9:ADD R8,R8,R10:STR R8,[R7],#4
�� SUBS R0,R0,#1:BNE mappixlp
��LDMFD SP !,{PC}^
�]
� � 411
�
[OPT Z
�& .mappix%
�0LDR R0,sxloc
�:LDR R1,[R9]:LDR R1,[R1]
�DLDR R4,[R9,#1*8]
�NLDR R7,[R9,#8*8]
�X
.mappixlp
�bLDRB R8,[R1],#2
�l>LDR R8,[R4,R8,LSL #2]:CMP R8,#F:MOVCS R8,#F:STR R8,[R7],#4
�v SUBS R0,R0,#1:BNE mappixlp
��MOVS PC,R14
��]
�� � 422
��
[OPT Z
�� .mappix%
��LDR R0,sxloc
��LDR R1,[R9]:LDR R1,[R1]
��ADD R1,R1,#1
��LDR R4,[R9,#1*8]
��LDR R7,[R9,#8*8]
��
.mappixlp
��LDRB R8,[R1],#2
��>LDR R8,[R4,R8,LSL #2]:CMP R8,#F:MOVCS R8,#F:STR R8,[R7],#4
� SUBS R0,R0,#1:BNE mappixlp
� MOVS PC,R14
�]
� � 555
�*
[OPT Z
�4 .mappix%
�>LDR R0,sxloc
�HLDR R1,[R9]:LDR R1,[R1]
�RADD R1,R1,#1
�\LDR R4,[R9,#1*8]
�fLDR R7,[R9,#8*8]
�p
.mappixlp
�zLDRB R8,[R1],#2
��� R8,R8,#ymax%
��>LDR R8,[R4,R8,LSL #2]:CMP R8,#F:MOVCS R8,#F:STR R8,[R7],#4
�� SUBS R0,R0,#1:BNE mappixlp
��MOVS PC,R14
��]
���
���xmul%=2 � xdiv%=1 �
��
[OPT Z
��
.xsample%
��LDR R0,[R9]:LDR R0,[R0]
��LDR R1,[R9,#8]
��LDR R2,[R9,#2*8]
�SUBS R0,R0,#2
�BEQ xdonediv
�BMI xdonediv
�$.xsamplelp
�.LDMIA R1,{R5,R6}
�8ADD R6,R6,R5
�BMOV R6,R6,LSR #1
�LSTMIA R2!,{R5,R6}
�VADD R1,R1,#4
�` SUBS R0,R0,#2:BGT xsamplelp
�j
.xdonediv
�tLDMIA R1,{R5}
�~
MOV R6,R5
��STMIA R2!,{R5,R6}
��MOVS PC,R14
��]
���
��
[OPT Z
��
.xsample%
��LDR R0,[R9]:LDR R0,[R0]
��LDR R1,[R9,#8]
��LDR R2,[R9,#2*8]
�� LDR R3,[R9,#3*8]:LDR R3,[R3]
�� LDR R4,[R9,#4*8]:LDR R4,[R4]
� MOV R11,R4
�
.xsamplelp
�LDMIA R1,{R5}
� ,SUBS R11,R11,#1:�Q R11,R4:ADDEQ R1,R1,#4
�(SUBS R12,R3,#1
�2BEQ xdonediv
�< .xdivlp
�FCMP R12,R11
�PBCC xdivlp2
�Z#LDMIA R1!,{R8}:MLA R5,R8,R11,R5
�d SUBS R12,R12,R11:MOV R11,R4
�nBNE xdivlp
�xB xdonediv
�� .xdivlp2
��LDMIA R1,{R8}
��,SUBS R11,R11,#1:�Q R11,R4:ADDEQ R1,R1,#4
��ADD R5,R5,R8
�� SUBS R12,R12,#1:BNE xdivlp
��
.xdonediv
��STMIA R2!,{R5}
�� SUBS R0,R0,#1:BPL xsamplelp
��MOVS PC,R14
��]
���
��� 2
���input<=8 �
�
[OPT Z
� .mappix%
�LDR R0,sxloc
�"LDR R1,[R9]:LDR R1,[R1]
�,LDR R2,[R9,#3*8]
�6LDR R3,[R9,#2*8]
�@LDR R4,[R9,#8]
�JLDR R5,[R9,#4*8]
�TMOV R10,#0
�^
.mappixlp
�hLDRB R6,[R1],#step24
�r]
�|�
��Ȏ input �
��� 8
��
�ham �
��
[OPT Z
��ADR R9,ltable
��!MOVS R7,R6,LSR #4:� R6,R6,#15
��NLDREQ R10,[R2,R6,LSL #2]:LDREQ R11,[R3,R6,LSL #2]:LDREQ R12,[R4,R6,LSL #2]
��&CMP R7,#1:LDREQ R12,[R9,R6,LSL #2]
��&CMP R7,#2:LDREQ R10,[R9,R6,LSL #2]
��&CMP R7,#3:LDREQ R11,[R9,R6,LSL #2]
��STMIA R5!,{R10,R11,R12}
�� SUBS R0,R0,#1:BNE mappixlp
��MOVS PC,R14
� .ltable
�]
� �I%=0�15
�&
[OPT Z
�0EQUD I%/15*F
�:]
�D�
�N�
�X�hpredict%=2 �
�b
[OPT Z
�lADD R6,R6,R10
�v� R6,R6,#255
��MOV R10,R6
��]
���
��
[OPT Z
��ELDR R7,[R2,R6,LSL #2]:LDR R8,[R3,R6,LSL #2]:LDR R9,[R4,R6,LSL #2]
��STMIA R5!,{R7,R8,R9}
�� SUBS R0,R0,#1:BNE mappixlp
��MOVS PC,R14
��]
���
��� 4
���bigendianbits �
��
[OPT Z
�MOV R10,R6,LSR #4
� HLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
�STMIA R5!,{R7,R8,R9}
� � R10,R6,#&F
�*]
�4�
�>
[OPT Z
�H� R10,R6,#&F
�RHLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
�\STMIA R5!,{R7,R8,R9}
�fMOV R10,R6,LSR #4
�p]
�z�
��
[OPT Z
��HLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
��STMIA R5!,{R7,R8,R9}
�� SUBS R0,R0,#2:BHI mappixlp
��MOVS PC,R14
��]
��� 2
���bigendianbits �
��
[OPT Z
��MOV R10,R6,LSR #6
��HLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&30
�HLDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
�STMIA R5!,{R7,R8,R9}
�� R10,R6,#&C
�$3LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
�.STMIA R5!,{R7,R8,R9}
�8� R10,R6,#&3
�B]
�L�
�V
[OPT Z
�`� R10,R6,#&3
�jHLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
�tSTMIA R5!,{R7,R8,R9}
�~� R10,R6,#&C
��3LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&30
��HLDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
��STMIA R5!,{R7,R8,R9}
��MOV R10,R6,LSR #6
��]
���
��
[OPT Z
��HLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
��STMIA R5!,{R7,R8,R9}
�� SUBS R0,R0,#4:BHI mappixlp
� MOVS PC,R14
�
]
�� 1
� �bigendianbits �
�(
[OPT Z
�2� R10,R6,#&80
�<HLDR R7,[R2,R10,LSR #5]:LDR R8,[R3,R10,LSR #5]:LDR R9,[R4,R10,LSR #5]
�FSTMIA R5!,{R7,R8,R9}
�P� R10,R6,#&40
�ZHLDR R7,[R2,R10,LSR #4]:LDR R8,[R3,R10,LSR #4]:LDR R9,[R4,R10,LSR #4]
�dSTMIA R5!,{R7,R8,R9}
�n� R10,R6,#&20
�xHLDR R7,[R2,R10,LSR #3]:LDR R8,[R3,R10,LSR #3]:LDR R9,[R4,R10,LSR #3]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&10
��HLDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&8
��HLDR R7,[R2,R10,LSR #1]:LDR R8,[R3,R10,LSR #1]:LDR R9,[R4,R10,LSR #1]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&4
��3LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&2
��HLDR R7,[R2,R10,LSL #1]:LDR R8,[R3,R10,LSL #1]:LDR R9,[R4,R10,LSL #1]
��STMIA R5!,{R7,R8,R9}
�� R10,R6,#&1
�]
��
�"
[OPT Z
�,� R10,R6,#&1
�6HLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
�@STMIA R5!,{R7,R8,R9}
�J� R10,R6,#&2
�THLDR R7,[R2,R10,LSL #1]:LDR R8,[R3,R10,LSL #1]:LDR R9,[R4,R10,LSL #1]
�^STMIA R5!,{R7,R8,R9}
�h� R10,R6,#&4
�r3LDR R7,[R2,R10]:LDR R8,[R3,R10]:LDR R9,[R4,R10]
�|STMIA R5!,{R7,R8,R9}
��� R10,R6,#&8
��HLDR R7,[R2,R10,LSR #1]:LDR R8,[R3,R10,LSR #1]:LDR R9,[R4,R10,LSR #1]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&10
��HLDR R7,[R2,R10,LSR #2]:LDR R8,[R3,R10,LSR #2]:LDR R9,[R4,R10,LSR #2]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&20
��HLDR R7,[R2,R10,LSR #3]:LDR R8,[R3,R10,LSR #3]:LDR R9,[R4,R10,LSR #3]
��STMIA R5!,{R7,R8,R9}
��� R10,R6,#&40
��HLDR R7,[R2,R10,LSR #4]:LDR R8,[R3,R10,LSR #4]:LDR R9,[R4,R10,LSR #4]
��STMIA R5!,{R7,R8,R9}
��MOV R10,R6,LSR #7
�]
��
�
[OPT Z
�&HLDR R7,[R2,R10,LSL #2]:LDR R8,[R3,R10,LSL #2]:LDR R9,[R4,R10,LSL #2]
�0STMIA R5!,{R7,R8,R9}
�: SUBS R0,R0,#8:BHI mappixlp
�DMOVS PC,R14
�N]
�X� 16
�b
[OPT Z
�l .mappix%
�vLDR R0,sxloc
��LDR R1,[R9]:LDR R1,[R1]
�� LDR R2,[R9,#8]:LDR R2,[R2]
��LDR R3,[R9,#4*8]
��LDR R4,[R9,#3*8]
��LDR R5,[R9,#2*8]
��LDR R6,[R9,#5*8]
��LDR R7,[R9,#6*8]
��LDR R8,[R9,#7*8]
��
CMP R1,R2
��ADDEQ R2,R2,#1
��
.mappixlp
��.LDRB R9,[R1],#step24:LDRB R10,[R2],#step24
��>LDR R9,[R6,R9,LSL #2]:LDR R10,[R7,R10,LSL #2]:�R R9,R9,R10
�)� R10,R9,#255:LDR R10,[R3,R10,LSL #2]
� <MOV R11,R9,LSR #8:� R11,R11,#255:LDR R11,[R4,R11,LSL #2]
�.MOV R12,R9,LSR #16:LDR R12,[R5,R12,LSL #2]
� STMIA R8!,{R10,R11,R12}
�* SUBS R0,R0,#1:BNE mappixlp
�4MOVS PC,R14
�>]
�H� 24
�R
[OPT Z
�\ .mappix%
�fLDR R0,sxloc
�p LDR R1,[R9,#2*8]:LDR R1,[R1]
�z LDR R2,[R9,#8]:LDR R2,[R2]
��LDR R3,[R9]:LDR R3,[R3]
��LDR R4,[R9,#5*8]
��LDR R5,[R9,#4*8]
��LDR R6,[R9,#3*8]
��LDR R7,[R9,#6*8]
��STMFD SP !,{R14}
��$MOV r11,#0:MOV R12,#0:MOV R14,#0
��
.mappixlp
��CLDRB R8,[R1],#step24:LDRB R9,[R2],#step24:LDRB R10,[R3],#step24
��]
���hpredict%=2 �
��
[OPT Z
��ADD r8,r8,r11
�� r8,r8,#255
�MOV r11,r8
�ADD r9,r9,r12
�$� r9,r9,#255
�.MOV r12,r9
�8ADD r10,r10,r14
�B� r10,r10,#255
�LMOV r14,r10
�V]
�`�
�j
[OPT Z
�tGLDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
�~STMIA R7!,{R8,R9,R10}
�� SUBS R0,R0,#1:BNE mappixlp
��LDMFD SP !,{PC}^
��]
��� 48
��
[OPT Z
�� .mappix%
��LDR R0,sxloc
�� LDR R1,[R9,#2*8]:LDR R1,[R1]
�� LDR R2,[R9,#8]:LDR R2,[R2]
��LDR R3,[R9]:LDR R3,[R3]
��LDR R4,[R9,#5*8]
��LDR R5,[R9,#4*8]
� LDR R6,[R9,#3*8]
�
LDR R7,[R9,#6*8]
�STMFD SP !,{R14}
� ?MOV r11,#colourindex � 255:ADD r11,r11,#colourindex � &ff00
�(
.mappixlp
�2@LDR R8,[R1],#step24:LDR R9,[R2],#step24:LDR R10,[R3],#step24
�<)� r8,r8,r11:� r9,r9,r11:� r10,r10,r11
�FGLDR R8,[R4,R8,LSL #2]:LDR R9,[R5,R9,LSL #2]:LDR R10,[R6,R10,LSL #2]
�PSTMIA R7!,{R8,R9,R10}
�Z SUBS R0,R0,#1:BNE mappixlp
�dLDMFD SP !,{PC}^
�n]
�x � 411
��
[OPT Z
�� .mappix%
��LDR R0,sxloc
��LDR R1,[R9]:LDR R1,[R1]
��LDR R2,[R9,#1*8]
��LDR R3,[R9,#2*8]
��LDR R5,[R9,#4*8]
��LDR R6,[R9,#5*8]
��LDR R7,[R9,#6*8]
��LDR R9,[R9,#8*8]
��STMFD SP !,{R14}
��
.mappixlp
�LDMIA R1!,{R4,R10}
�� R8,R4,#&C000
�MOV R8,R8,LSR #8
�"� R14,R4,#&C0000000
�, �R R8,R8,R14,LSR #16+8+2
�6� R14,R10,#&C000
�@�R R8,R8,R14,LSR #8+4
�J �R R8,R8,R10,LSR #16+8+6
�T� R11,R4,#&3000
�^MOV R11,R11,LSR #6
�h� R14,R4,#&30000000
�r �R R11,R11,R14,LSR #16+6+2
�|� R14,R10,#&3000
���R R11,R11,R14,LSR #6+4
��� R14,R10,#&30000000
�� �R R11,R11,R14,LSR #16+6+6
��� R12,R4,#&FF
��LDR R12,[R2,R12,LSL #2]
��,LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��*LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
��,LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��� R12,R4,#&FF
��LDR R12,[R2,R12,LSL #2]
�+LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
�8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�&MOV R4,R4,LSR #16
�0� R12,R4,#&FF
�:LDR R12,[R2,R12,LSL #2]
�D,LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
�N8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�X*LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
�b,LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
�l8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�v� R12,R4,#&FF
��LDR R12,[R2,R12,LSL #2]
��+LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��� R12,R10,#&FF
��LDR R12,[R2,R12,LSL #2]
��,LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��*LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
��,LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��� R12,R10,#&FF
��LDR R12,[R2,R12,LSL #2]
�+LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
� 8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
� MOV R10,R10,LSR #16
�*� R12,R10,#&FF
�4LDR R12,[R2,R12,LSL #2]
�>,LDR R14,[R7,R11,LSL #2]:ADDS R14,R14,R12
�H8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�R*LDR R14,[R6,R8,LSL #2]:ADD R14,R14,R12
�\,LDR R12,[R5,R11,LSL #2]:ADDS R14,R14,R12
�f8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�p� R12,R10,#&FF
�zLDR R12,[R2,R12,LSL #2]
��+LDR R14,[R3,R8,LSL #2]:ADDS R14,R12,R14
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�� SUBS R0,R0,#4:BNE mappixlp
��LDMFD SP !,{PC}^
��]
�� � 423
��
[OPT Z
�� .mappix%
��LDR R0,sxloc
��LDR R1,[R9]:LDR R1,[R1]
��LDR R2,[R9,#1*8]
��LDR R3,[R9,#2*8]
�LDR R4,[R9,#3*8]
�LDR R5,[R9,#4*8]
�LDR R6,[R9,#5*8]
�$LDR R7,[R9,#6*8]
�.LDR R8,[R9,#7*8]
�8LDR R9,[R9,#8*8]
�BSTMFD SP !,{R14}
�L
.mappixlp
�VLDR R10,[R1],#4
�`� R11,R10,#&FF00
�jLDR R11,[R2,R11,LSR #6]
�t:� R12,R10,#&FF:LDR R12,[R7,R12,LSL #2]:ADD R14,R12,R11
�~@� R12,R10,#&FF0000:LDR R12,[R8,R12,LSR #14]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��:� R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
��@� R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��:� R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADD R14,R12,R11
��@� R12,R10,#&FF0000:LDR R12,[R4,R12,LSR #14]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��� R11,R10,#&FF000000
�� LDR R11,[R2,R11,LSR #22]
��:� R12,R10,#&FF:LDR R12,[R7,R12,LSL #2]:ADD R14,R12,R11
��@� R12,R10,#&FF0000:LDR R12,[R8,R12,LSR #14]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
� :� R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
�
@� R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
�8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
� :� R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADD R14,R12,R11
�(@� R12,R10,#&FF0000:LDR R12,[R4,R12,LSR #14]:ADDS R14,R14,R12
�28MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�< SUBS R0,R0,#2:BNE mappixlp
�FLDMFD SP !,{PC}^
�P]
�Z � 422
�d
[OPT Z
�n .mappix%
�xLDR R0,sxloc
��LDR R1,[R9]:LDR R1,[R1]
��LDR R2,[R9,#1*8]
��LDR R3,[R9,#2*8]
��LDR R5,[R9,#4*8]
��LDR R6,[R9,#5*8]
��LDR R7,[R9,#6*8]
��LDR R9,[R9,#8*8]
��STMFD SP !,{R14}
��
.mappixlp
��LDR R10,[R1],#4
��� R11,R10,#&FF00
��LDR R11,[R2,R11,LSR #6]
��@� R12,R10,#&FF0000:LDR R12,[R7,R12,LSR #14]:ADDS R14,R12,R11
�8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�:� R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
�@� R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
�"8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�,;� R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADDS R14,R12,R11
�68MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�@� R11,R10,#&FF000000
�J LDR R11,[R2,R11,LSR #22]
�T@� R12,R10,#&FF0000:LDR R12,[R7,R12,LSR #14]:ADDS R14,R12,R11
�^8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�h:� R12,R10,#&FF:LDR R12,[R5,R12,LSL #2]:ADD R14,R12,R11
�r@� R12,R10,#&FF0000:LDR R12,[R6,R12,LSR #14]:ADDS R14,R14,R12
�|8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��;� R12,R10,#&FF:LDR R12,[R3,R12,LSL #2]:ADDS R14,R12,R11
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�� SUBS R0,R0,#2:BNE mappixlp
��LDMFD SP !,{PC}^
��]
�� � 555
��
[OPT Z
�� .mappix%
��LDR R0,sxloc
��LDR R1,[R9]:LDR R1,[R1]
��LDR R2,[R9,#1*8]
��LDR R3,[R9,#2*8]
�LDR R5,[R9,#4*8]
�LDR R6,[R9,#5*8]
� LDR R7,[R9,#6*8]
�&LDR R9,[R9,#8*8]
�0STMFD SP !,{R14}
�:
.mappixlp
�DLDR R10,[R1],#2
�N� R11,R10,#ymax%
�XLDR R11,[R2,R11,LSL #2]
�b.� R8,R10,#((1<<vbits%)-1)<<(ybits%+ubits%)
�l&� R10,R10,#((1<<ubits%)-1)<<ybits%
��9LDR R12,[R7,R8,LSR #ybits%+ubits%-2]:ADDS R14,R12,R11
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��8LDR R12,[R5,R8,LSR #ybits%+ubits%-2]:ADD R14,R12,R11
��3LDR R12,[R6,R10,LSR #ybits%-2]:ADDS R14,R14,R12
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
��3LDR R12,[R3,R10,LSR #ybits%-2]:ADDS R14,R12,R11
��8MOVMI R14,#0:CMP R14,#F:MOVCS R14,#F:STR R14,[R9],#4
�� SUBS R0,R0,#1:BNE mappixlp
��LDMFD SP !,{PC}^
��]
���
���xmul%=2 � xdiv%=1 �
��
[OPT Z
�
.xsample%
�LDR R0,[R9]:LDR R0,[R0]
� LDR R1,[R9,#8]
�*LDR R2,[R9,#2*8]
�4SUBS R0,R0,#2
�>BEQ xdonediv
�HBMI xdonediv
�R.xsamplelp
�\!LDMIA R1,{R5,R6,R7,R8,R9,R10}
�fADD R8,R8,R5
�pMOV R8,R8,LSR #1
�zADD R9,R9,R6
��MOV R9,R9,LSR #1
��ADD R10,R10,R7
��MOV R10,R10,LSR #1
��"STMIA R2!,{R5,R6,R7,R8,R9,R10}
��ADD R1,R1,#12
�� SUBS R0,R0,#2:BGT xsamplelp
��
.xdonediv
��LDMIA R1,{R5,R6,R7}
��
MOV R8,R5
��
MOV R9,R6
��MOV R10,R7
��"STMIA R2!,{R5,R6,R7,R8,R9,R10}
��MOVS PC,R14
�]
��
�
[OPT Z
�.
.xsample%
�8LDR R0,[R9]:LDR R0,[R0]
�BLDR R1,[R9,#8]
�LLDR R2,[R9,#2*8]
�V LDR R3,[R9,#3*8]:LDR R3,[R3]
�` LDR R4,[R9,#4*8]:LDR R4,[R4]
�jMOV R11,R4
�t.xsamplelp
�~LDMIA R1,{R5,R6,R7}
��-SUBS R11,R11,#1:�Q R11,R4:ADDEQ R1,R1,#12
��SUBS R12,R3,#1
��BEQ xdonediv
�� .xdivlp
��CMP R12,R11
��BCC xdivlp2
��MLDMIA R1!,{R8,R9,R10}:MLA R5,R8,R11,R5:MLA R6,R9,R11,R6:MLA R7,R10,R11,R7
�� SUBS R12,R12,R11:MOV R11,R4
��BNE xdivlp
��B xdonediv
�� .xdivlp2
��LDMIA R1,{R8,R9,R10}
� -SUBS R11,R11,#1:�Q R11,R4:ADDEQ R1,R1,#12
�
+ADD R5,R5,R8:ADD R6,R6,R9:ADD R7,R7,R10
� SUBS R12,R12,#1:BNE xdivlp
�
.xdonediv
�(STMIA R2!,{R5,R6,R7}
�2 SUBS R0,R0,#1:BPL xsamplelp
�<MOVS PC,R14
�F]
�P�
�Z�
�d�compression=5 �
�n
[OPT Z
��.firstcode DCD 0
��.oldcode DCD 0
�� .codesize DCD setcodes%+1
��.stack DCD stk%
��.sp DCD stk%
�� .maxcode DCD clearcode%+2
��!.maxcodesize DCD 2*clearcode%
��.LZWdecode%
��@LDR R2,firstcode:LDR R3,oldcode:LDR R4,stack:LDR R5,codesize
��/LDR R6,sp:LDR R7,maxcode:LDR R8,maxcodesize
�� LDR R10,[R9]:LDR R10,[R10]
��!LDR R11,[R9,#8]:LDR R11,[R11]
��LDR R12,[R9,#24]
�STMFD SP !,{R14}
� .lzwloop
�
CMP R6,R4
�"BHI lzwunstack
�,.lzwengine
�6BL getcode
�@CMP R0,#clearcode%
�JBEQ lzwclear
�^
MOV R1,R0
�h
CMP R0,R7
�rSTRCSB R2,[R6],#1
�|MOVCS R0,R3
��CMP R0,#clearcode%
��BCC lzwdonepush
��.lzwpushtable
��LDR R14,[R12,R0,LSL #2]
��STRB R14,[R6],#1
��MOV R0,R14,LSR #16
��CMP R0,#clearcode%
��BCS lzwpushtable
��.lzwdonepush
��LDR R2,[R12,R0,LSL #2]
��BIC R2,R2,#&FF0000
��BIC R2,R2,#&FF000000
��STRB R2,[R6],#1
�CMP R7,#4096
�BCS lzwnocode
� �R R0,R2,R3,LSL #16
�&STR R0,[R12,R7,LSL #2]
�0ADD R7,R7,#1
�:
CMP R7,R8
�DBCC lzwnocode
�NCMP R8,#4096
�XADDCC R5,R5,#1
�bMOVCC R8,R8,LSL #1
�l]
�v�flag=1500 �
��
[OPT Z
���RCC R8,R8,#1
��]
���
��
[OPT Z
��.lzwnocode
��
MOV R3,R1
��
CMP R6,R4
��BLS lzwengine
��.lzwunstack
��LDRB R0,[R6,#-1]!
��.lzwloopend
��STRB R0,[R11],#1
�SUBS R10,R10,#1
� BNE lzwloop
�3STR R2,firstcode:STR R3,oldcode:STR R5,codesize
� /STR R6,sp:STR R7,maxcode:STR R8,maxcodesize
�*LDMFD SP !,{PC}^
�4
.lzwclear
�>
MOV R0,#0
�HMOV R3,R12
�R.lzwdefaulttable
�\STR R0,[R3],#4
�f#ADD R0,R0,#1:CMP R0,#clearcode%
�pBCC lzwdefaulttable
�zMOV R5,#setcodes%+1
��MOV R7,#clearcode%
��MOV R8,R7,LSL #1
��]
���flag=1500 �
��
[OPT Z
��SUB R8,R8,#1
��]
���
��
[OPT Z
��ADD R7,R7,#2
��BL getcode
��
MOV R2,R0
��
MOV R3,R0
�
MOV R6,R4
�B lzwloopend
�$.curbit DCD 0
�..lastbit DCD 0
�8.buf DCD buf%
�B .getcode
�LSTMFD SP !,{R6,R7,R8}
�VADR R6,curbit
�`LDMIA R6,{R6,R7,R8}
�jADD R1,R5,R6
�t
CMP R1,R7
�~BCS needmoredata
��.simplecode
��ADD R7,R8,R6,LSR #3
��BIC R7,R7,#3
��LDMIA R7,{R0,R7}
��]
���flag=1500 �
��
[OPT Z
��� R1,R0,R0,ROR #16
��BIC R1,R1,#&FF0000
��MOV R0,R0,ROR #8
��� R0,R0,R1,LSR #8
��� R1,R7,R7,ROR #16
� BIC R1,R1,#&FF0000
�
MOV R7,R7,ROR #8
�� R7,R7,R1,LSR #8
� H�S R1,R6,#31:MOVNE R0,R0,LSL R1:RSBNE R1,R1,#32:�RNE R0,R0,R7,LSR R1
�(RSB R1,R5,#32
�2MOV R0,R0,LSR R1
�<]
�F�
�P
[OPT Z
�ZH�S R1,R6,#31:MOVNE R0,R0,LSR R1:RSBNE R1,R1,#32:�RNE R0,R0,R7,LSL R1
�d!MVN R1,#0:BIC R0,R0,R1,LSL R5
�n]
�x�
��
[OPT Z
��ADD R6,R6,R5
��STR R6,curbit
��LDMFD SP !,{R6,R7,R8}
��MOV PC,R14
��.needmoredata
�� STMFD SP !,{R2,R3,R4,R14}
��MOV R3,R7,LSR #3
��SUB R0,R3,#2
��LDRB R0,[R8,R0]
��STRB R0,[R8]
��SUB R0,R3,#1
��LDRB R0,[R8,R0]
�STRB R0,[R8,#1]
�LDR R1,[R9,#16]
�LDR R1,[R1]
�"]
�,�flag=1500 �
�6
[OPT Z
�@MOV R0,#256
�JMOV R3,#256
�T]
�^�
�h
[OPT Z
�rBL bytefromcache%
�|MOVS R3,R0
��BEQ simplecode1
��]
���
��
[OPT Z
��SUB R6,R6,R7
��ADD R6,R6,#16
��ADD R0,R0,#2
��MOV R7,R0,LSL #3
��STR R7,lastbit
��ADD R2,R8,#2
��BL multibytefromcache%
��.simplecode1
�� LDMFD SP !,{R2,R3,R4,R14}
�B simplecode
�]
� �
�&
�range% �
�0
[OPT Z
�D .maxmin%
�NLDR R0,[R9]:LDR R0,[R0]
�XLDR R1,[R9,#8]
�bLDR R2,min
�lLDR R3,max
�v
.maxminlp
��LDR R4,[R1],#4
��CMP R4,R3:MOVCS R3,R4
��CMP R4,R2:MOVCC R2,R4
�� SUBS R0,R0,#1:BNE maxminlp
��STR R2,min
��STR R3,max
��MOVS PC,R14
��.min DCD F
��.max DCD 0
��]
���
���sharpen% �
��!sharp=(col+1)*4:�sharpen%>0 �
�*� sharpen%<>8 sharpmul%=F/(sharpen%-8)
� �
� sharpmul%=F/(8-sharpen%)
� �
�*
[OPT Z
�> .sharp%
�HLDR R0,[R9]:LDR R0,[R0]
�RLDR R1,[R9,#8]
�\LDR R2,[R9,#16]
�fLDR R3,[R9,#24]
�pLDR R4,[R9,#32]
�z]
��Ȏ sharpen% �
��� -8
��� 8,9,12,16,24
��
��
[OPT Z
��MOV R8,#sharpmul% � &FF
�� �R R8,R8,#sharpmul% � &FF00
��#MOV R9,#(sharpmul% >> 16) � &FF
��'�R R9,R9,#(sharpmul% >> 16) � &FF00
��]
���
��
[OPT Z
�� .sharplp
�LDR R5,[R1,#-sharp]
�#LDR R6,[R1,#sharp]:ADD R5,R5,R6
� LDR R6,[R1],#4:ADD R5,R5,R6
�$$LDR R6,[R3,#-sharp]:ADD R5,R5,R6
�.#LDR R6,[R3,#sharp]:ADD R5,R5,R6
�8 LDR R6,[R3],#4:ADD R5,R5,R6
�B$LDR R6,[R2,#-sharp]:ADD R5,R5,R6
�L#LDR R6,[R2,#sharp]:ADD R5,R5,R6
�VLDR R6,[R2],#4
�`MOV R6,R6,LSR #1
�jMOV R7,#�sharpen%
�tMUL R7,R6,R7
�~]
���sharpen%>0 �
��
[OPT Z
��SUBS R5,R7,R5,LSR #1
��MOVCC R5,#0
��]
���
��
[OPT Z
��ADD R5,R7,R5,LSR #1
��]
���
��Ȏ sharpen% �
�� � 8,9
�
[OPT Z
�
MOV R6,R5,LSL #1
�]
� � 10
�(
[OPT Z
�2
MOV R6,R5
�<]
�F� 12
�P
[OPT Z
�ZMOV R6,R5,LSR #1
�d]
�n� 16
�x
[OPT Z
��MOV R6,R5,LSR #2
��]
�� � -8,24
��
[OPT Z
��MOV R6,R5,LSR #3
��]
��
��
[OPT Z
��MOV R6,R5,LSR #16
��� R5,R5,R6,LSL #16
��MUL R7,R8,R5
��MUL R5,R9,R5
��MUL R10,R6,R8
�MUL R6,R9,R6
�ADDS R10,R5,R10
�ADDCS R6,R6,#&10000
�"ADDS R7,R7,R10,LSL #16
�,ADC R6,R6,R10,LSR #16
�6MOV R6,R6,LSL #(32-27)
�@�RS R6,R6,R7,LSR #27
�JADDCS R6,R6,#1
�T]
�^�
�h�sharpen%>0 �
�r
[OPT Z
�|CMP R6,#F:MOVCS R6,#F
��]
���
��
[OPT Z
��STR R6,[R4],#4
��SUBS R0,R0,#1
��BNE sharplp
��MOVS PC,R14
��]
���
���hist%�equal% �
��
[OPT Z
�� .histo%
�LDR R0,[R9]:LDR R0,[R0]
�LDR R1,[R9,#8]
� LDR R2,[R9,#16]
�& .histlp
�0(LDR R3,[R2],#4:CMP R3,#F:MOVCS R3,#F
�:MOV R3,R3,LSR #bits-8
�D]
�N �col=2 �
�X
[OPT Z
�bADD R3,R3,R3,LSL #1
�l<LDR R4,[R1,R3,LSL #2]:ADD R4,R4,#1:STR R4,[R1,R3,LSL #2]
�v(LDR R3,[R2],#4:CMP R3,#F:MOVCS R3,#F
��MOV R3,R3,LSR #bits-8
��$ADD R3,R3,R3,LSL #1:ADD R3,R3,#1
��<LDR R4,[R1,R3,LSL #2]:ADD R4,R4,#1:STR R4,[R1,R3,LSL #2]
��(LDR R3,[R2],#4:CMP R3,#F:MOVCS R3,#F
��MOV R3,R3,LSR #bits-8
��$ADD R3,R3,R3,LSL #1:ADD R3,R3,#2
��]
���
��
[OPT Z
��<LDR R4,[R1,R3,LSL #2]:ADD R4,R4,#1:STR R4,[R1,R3,LSL #2]
��SUBS R0,R0,#1
��BNE histlp
��MOVS PC,R14
�]
� �
�
�equal% �
�
[OPT Z
�4.histequal%
�>LDR R0,[R9]:LDR R0,[R0]
�HLDR R1,[R9,#8]
�RLDR R2,[R9,#16]
�\ .equallp
�f%LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
�pMOV R3,R3,LSR #bits-8
�z]
�� �col=2 �
��
[OPT Z
��%LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
��MOV R3,R3,LSR #bits-8
��ADD R3,R3,R3,LSL #1
��(LDR R4,[R1,R3,LSL #2]:STR R4,[R2],#4
��%LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
��MOV R3,R3,LSR #bits-8
��$ADD R3,R3,R3,LSL #1:ADD R3,R3,#1
��(LDR R4,[R1,R3,LSL #2]:STR R4,[R2],#4
��%LDR R3,[R2]:CMP R3,#F:MOVCS R3,#F
��MOV R3,R3,LSR #bits-8
��$ADD R3,R3,R3,LSL #1:ADD R3,R3,#2
�]
��
�
[OPT Z
�$(LDR R4,[R1,R3,LSL #2]:STR R4,[R2],#4
�.SUBS R0,R0,#1
�8BNE equallp
�BMOVS PC,R14
�L]
�V�
�` Ȏ r$ �
�j'� "FN800","FN801","FN1000","FN1001"
�t
[OPT Z
��.rlexpand%
��LDR R0,[R9]
��LDR R1,[R0]
�� LDR R2,[R9,#8]:LDR R2,[R2]
��LDR R3,[R9,#16]
��LDR R4,[R3]
��CMP R4,#1:MOVLTS PC,R14
�� LDR R5,[R9,#24]:LDR R5,[R5]
��.rle
��STRB R2,[R1],#1
��SUB R4,R4,#1
�
CMP R1,R5
�
TEQNE R4,#0
� BNE rle
� .rlexit
�(STR R1,[R0]
�2STR R4,[R3]
�<MOVS PC,R14
�F]
�P
� "FN902"
�Z
[OPT Z
�d .unpack%
�nLDR R0,[R9]
�xLDR R0,[R0]
��LDR R1,plbuff
��ADD R2,R0,#768
��.unpackloop
��LDR R3,[R0],#4
��
MOV R5,#0
�� .bitloop
��MOV R6,R3,LSR R5
��� R6,R6,#15
��ADD R5,R5,#4
��MOV R7,R3,LSR R5
��� R7,R7,#15
��ADD R5,R5,#4
��STRB R7,[R1],#1
�STRB R6,[R1],#1
�CMP R5,#32
�BNE bitloop
�"
CMP R2,R0
�,BNE unpackloop
�6MOV PC,R14
�@.plbuff EQUD plbuff%
�J]
�T)� "FN1601","FN1501","FN1850","FN1851"
�^
[OPT Z
�r
.readiff%
�|MOV R1,#c%
��LDR R8,[R9]:LDR R8,[R8]
��+LDR R7,[R9,#8]:LDR R7,[R7]:ADD R7,R7,R8
��STMFD SP !,{R14}
��]
�� �r$="FN1850" � r$="FN1851" �
��
[OPT Z
��BL bytefromcache%
��]
���sy%>250 �
��
[OPT Z
��BL bytefromcache%
��]
���
��
�
[OPT Z
� .rle
�&BL bytefromcache%
�0CMP R0,#128
�: BCC rle1
�DRSB R2,R0,#256
�NBL bytefromcache%
�X.rle0 STRB R0,[R8],#1
�bSUBS R2,R2,#1
�l BPL rle0
�v
B rle2
�� .rle1
��ADD R3,R0,#1
��
MOV R2,R8
��ADD R8,R8,R3
��BL multibytefromcache%
�� .rle2
��
CMP R8,R7
�� BCC rle
��LDMFD SP !,{R14}
��MOVS PC,R14
��]
�� � "FN1900","FN1100","FN400"
��
[OPT Z
� .readline%
�LDR R2,[R9]:LDR R2,[R2]
� LDR R3,[R9,#8]
�*LDR R0,[R3]
�4LDR R4,[R9,#16]
�>LDR R5,[R4]
�H,LDR R6,[R9,#24]:LDR R6,[R6]:ADD R6,R6,R2
�RSTMFD SP !,{R14}
�\.rle
�f
CMP R5,#1
�p BGE rle1
�zBL bytefromcache%
��
MOV R5,#1
��]
���flag=1900 �
��
[OPT Z
��CMP R0,#192
��%�CS R5,R0,#63:BLCS bytefromcache%
��]
���
���flag=1100 �
��
[OPT Z
��CMP R0,#128
�� BNE rle1
��BL bytefromcache%
�
TEQ R0,#0
��Q R0,#128
� BEQ rle1
�$ADD R5,R0,#1
�.BL bytefromcache%
�8]
�B�
�L�flag=400 �
�V
[OPT Z
�`
MOV R1,R0
�jBL bytefromcache%
�t�R R1,R1,R0,LSL #8
�~BL bytefromcache%
���R R1,R1,R0,LSL #16
��BL bytefromcache%
��ADD R5,R0,#1
��
MOV R0,R1
��]
���
���flag=200 �
��
[OPT Z
��ADD R5,R0,#1
��BL bytefromcache%
��]
���
�
[OPT Z
�
.rle1
�STRB R0,[R2],#1
� ]
�(�flag=400 �
�2
[OPT Z
�<MOV R1,R0,LSR #8
�FSTRB R1,[R2],#1
�PMOV R1,R0,LSR #16
�ZSTRB R1,[R2],#1
�d]
�n�
�x
[OPT Z
��SUB R5,R5,#1
��
TEQ R2,R6
�� BNE rle
�� .rlexit
��STR R0,[R3]:STR R5,[R4]
��LDMFD SP !,{PC}^
��]
��� "FN2401"
��
[OPT Z
�� .bm_rle8
��MOV R1,#c%
��LDR R8,[R9]:LDR R8,[R8]
��+LDR R7,[R9,#8]:LDR R7,[R7]:ADD R7,R7,R8
�STMFD SP !,{R14}
�.rle
�BL bytefromcache%
�"
TEQ r0,#0
�,BEQ rlecopy
�@
MOV r4,r0
�JBL bytefromcache%
�T .rle1
�^STRB r0,[r8],#1
�hSUBS r4,r4,#1
�r BGT rle1
�| B rle
�� .rlecopy
��BL bytefromcache%
��
CMP r0,#3
��BLT rlespecial
��
MOV r4,r0
�� .rle2
��BL bytefromcache%
��STRB r0,[r8],#1
��BL bytefromcache%
��SUBS r4,r4,#1
��STRGTB r0,[r8],#1
�SUBGTS r4,r4,#1
� BGT rle2
� B rle
�&.rlespecial
��LDMFD SP !,{R14}
��MOVS PC,R14
��]
��� "FN2402"
��
[OPT Z
�� .bm_rle4
��MOV R1,#c%
��LDR R8,[R9]:LDR R8,[R8]
��+LDR R7,[R9,#8]:LDR R7,[R7]:ADD R7,R7,R8
��STMFD SP !,{R14}
��
MOV r2,#0
�
MOV r3,#0
� .rle
�BL bytefromcache%
�
TEQ r0,#0
�*BEQ rlecopy
�>
MOV r4,r0
�HBL bytefromcache%
�R .rle1
�\BL bmrle4_insert
�f
CMP r3,#8
�pMOVGE r5,r2,LSR#24
�zSTRGEB r5,[r8],#1
��MOVGE r2,r2,LSL#8
��SUBGE r3,r3,#8
��
CMP r4,#0
�� BGT rle1
�� B rle
�� .rlecopy
��BL bytefromcache%
��
CMP r0,#3
��BLT rlespecial
��
MOV r4,r0
�� .rle2
�BL bytefromcache%
�BL bmrle4_insert
�BL bytefromcache%
�$
CMP r4,#0
�.BLGT bmrle4_insert
�8
B rle4
�B .rle3
�LMOV r5,r2,LSR#24
�VSTRB r5,[r8],#1
�`MOV r2,r2,LSL#8
�jSUB r3,r3,#8
�t .rle4
�~
CMP r3,#8
BGE rle3
CMP r4,#0
BGT rle2
¦ B rle
°.rlespecial
�
CMP r3,#0
� MOVGT r5,r2,LSR#24
�(STRGTB r5,[r8],#1
�<LDMFD SP !,{R14}
�FMOVS PC,R14
�P.bmrle4_insert
�ZRSB r5,r3,#32
�dMOV r2,r2,LSR r5
�nMOV r2,r2,LSL r5
�xSUB r5,r5,#8
�R r2,r2,r0,LSL r5
ÌSUBS r4,r4,#2
ÖADDMI r3,r3,#4
àADDPL r3,r3,#8
êMOVS PC,R14
ô]
þ�
���cachebytes% �
��
[OPT Z
��.bytefromcache%
��STMFD SP !,{R1,R2}
��LDR R1,incacheptr
�LDR R2,numlefttogo
�LDRB R0,[R1],#1
�SUBS R2,R2,#1
�STRNE R1,incacheptr
�"STRNE R2,numlefttogo
�,LDMFD SP !,{R1,R2}
�6MOVNE PC,R14
�@ STMFD SP !,{R0,R1,R2,R3,R4}
�JLDR R2,valdatacache
�TSTR R2,incacheptr
�^LDR R3,valcache
�hSTR R3,numlefttogo
�r
MOV R0,#4
�|MOV R1,#c%
ĆSWI "OS_GBPB"
Đ LDMFD SP !,{R0,R1,R2,R3,R4}
ĚMOV PC,R14
Ĥ .valdatacache DCD datacache%
Į.valcache DCD cache%
ĸ .incacheptr DCD datacache%
��.numlefttogo DCD cache%
��.multibytefromcache%
��
CMP R3,#0
��
�Q PC,R14
��STMFD SP !,{R0,R14}
��.multibytefromcachel
�BL bytefromcache%
�STRB R0,[R2],#1
�SUBS R3,R3,#1
� BNE multibytefromcachel
�&LDMFD SP !,{R0,R14}
�0MOV PC,R14
�:]
�D�
�N�planar%<0 �
�XC%=7:�flag=2600 C%=15
�b
[OPT Z
�l
.plancnv%
�vLDR R0,sxloc
ŀLDR R1,[R9]:LDR R1,[R1]
Ŋ LDR R3,[R9,#8]:LDR R3,[R3]
Ŕ LDR R4,[R9,#16]:LDR R4,[R4]
Ş]
Ũ�flag=3500 �
Ų
[OPT Z
ż
MOV R9,#0
��]
���
��
[OPT Z
��MOV R9,#C%
��]
��
�
[OPT Z
� .planelp
�
MOV R7,#0
�
MOV R5,R3
�*]
�4�N%=1�planes%
�>
[OPT Z
�HLDR R6,[R5],R4
�R]
�\�flag=2600 �
�f
[OPT Z
�pMOV R6,R6,LSL #8
�zBIC R6,R6,#&FF000000
Ƅ�R R6,R6,R6,LSR #16
Ǝ]
Ƙ�
Ƣ�flag=3500 �
Ƭ
[OPT Z
ƶMOV R6,R6,LSR R9
��S R6,R6,#1
��!�R R7,R7,R6,LSL #(planes%-N%)
���RNE R7,R7,#(planes%-1)
��]
���
��
[OPT Z
�MOV R6,R6,LSR R9
�� R6,R6,#1
��R R7,R7,R6,LSL #(N%-1)
�]
�$�
�.�
�8
[OPT Z
�BSTRB R7,[R1],#1
�L]
�V�flag=3500 �
�`
[OPT Z
�jADD R9,R9,#1
�tCMP R9,#C%+1
�~ �Q R9,#0
Lj]
ǒ�
ǜ
[OPT Z
Ǧ SUBS R9,R9,#1:MOVMI R9,#C%
ǰ]
Ǻ�
��
Ȏ flag �
��
� 2600
��
[OPT Z
��MOVMI R3,R5
��]
�
� 3500
�
[OPT Z
�
ADDEQ R3,R3,#1
�]
�
�(
[OPT Z
�2ADDMI R3,R3,#1
�<]
�F�
�P
[OPT Z
�Z SUBS R0,R0,#1:BNE planelp
�dMOVS PC,R14
�n]
�x�
Ȃ�
Ȍcputime%=�
Ȗ
�cache% �
Ƞ�flag=3600 �
ȪDpcdblk%!12=cacherows%:�refillpcd:�cache%>=filesize% rowstogo%=-1
ȴ�
Ⱦ!�striprows%>0�compression>1 �
�� ș12,4,c%,datacache%,cache%
��;�cachebytes% !incacheptr=datacache%:!numlefttogo=cache%
���
��+�refill:�cache%>=filesize% rowstogo%=-1
��
��
��
�sizeshft%=0:Ȏ ncol �
�"� 2^24-1:size%=1
�,� 2^15-1:size%=1
�6� 63,255,256:size%=1
�@ � 15:size%=2:sizeshft%=1
�J� 3:size%=4:sizeshft%=2
�T7� 1:size%=8:sizeshft%=3:�m$="C" size%=2:sizeshft%=1
�^ �m$="D" size%=4:sizeshft%=2
�h �m$="T" size%=2:sizeshft%=1
�r�
Ɇ
Ȏ flag �
ɐ*� 501:�info% �"Reading interlaced GIF"
ɚ%sz%=sx%*sy%:plbuff%=�dim(sz%+100)
ɤF�Y%=0�sy%-1�8:X%=plbuff%+Y%*sx%:� LZWdecode%,table%(0),c%,X%,sx%:�
ɮF�Y%=4�sy%-1�8:X%=plbuff%+Y%*sx%:� LZWdecode%,table%(0),c%,X%,sx%:�
ɸF�Y%=2�sy%-1�4:X%=plbuff%+Y%*sx%:� LZWdecode%,table%(0),c%,X%,sx%:�
��F�Y%=1�sy%-1�2:X%=plbuff%+Y%*sx%:� LZWdecode%,table%(0),c%,X%,sx%:�
��?datacache%=plbuff%:buff%=plbuff%:rowbytes%=sx%:rowstogo%=-1
���
���gamma<>1 � gamma<>0 �
�� k=1/gamma:�C%=0�colourindex
��#�r%(C%) r%(C%)=((r%(C%)/F)^k)*F
�#�g%(C%) g%(C%)=((g%(C%)/F)^k)*F
�#�b%(C%) b%(C%)=((b%(C%)/F)^k)*F
��
� �
�&rmax=F:gmax=F:bmax=F
�0 �col=0 �
�:�input<9 �
�D7�C%=0�255:r%(C%)=r%(C%)*rwt+g%(C%)*gwt+b%(C%)*bwt:�
�N�
�X�input<400 �
�b$rmax=F*rwt:gmax=F*gwt:bmax=F*bwt
�lM�C%=0�colourindex:r%(C%)=r%(C%)*rwt:g%(C%)=g%(C%)*gwt:b%(C%)=b%(C%)*bwt:�
�v�
ʀ�
ʊ�
ʔ,�order% �adjustpalette(1/ydiv%/xdiv%,0)
ʨ
�range% �
ʲ>�info% �"Scanning data to compute parameters for '-range'"
ʼ
�order% �
�� Y%=0:� șhour%,Y%*100�sy%
��8W%=�(r$+"(xp%())"):�maxmin%,xp%(1,0),totvals2%:Y%+=1
��"�Y%=sy% �!min<255 �!max+255>=F
���
��%Y%=0:ysamp%=1:� șhour%,Y%*100�y%
�;�scaledpixelrow(cl%()):�maxmin%,cl%(1,0),totvals%:Y%+=1
�#�Y%=y% � !min<255 � !max+255>=F
� �
�O�!max+255>=F �!min<255 range%=�:range$="No point in '-range' on this image"
� ��range% �adjustpalette(F/(!max-!min),!min/ydiv%/xdiv%):range$="Input image maximum "+�(!max/F*100)+"% minimum "+�(!min/F*100)+"%"
�*�rewind:�info% �range$
�4�
�>�hist% �equal% �
�HF�equal% �info% �"Scanning data to compute parameters for '-equal'"
�R
�order% �
�\$�yr%=0�sy%-1:șhour%,yr%*100�sy%
�f6W%=�(r$+"(xp%())"):�histo%,xp%(1,0),vals%(0,0),sx%
�p�
�z�
˄+ysamp%=1:�yr%=0�y%-1:șhour%,yr%*100�y%
ˎ9�scaledpixelrow(cl%()):�histo%,cl%(1,0),vals%(0,0),x%
˘�
ˢ�
ˬ.�info% �"Done. Now processing the picture"
˶�
��input<400 �
���C%=0�colourindex
���r%(C%)<0 r%(C%)=0
���g%(C%)<0 g%(C%)=0
���b%(C%)<0 b%(C%)=0
�� �r%(C%)>rmax r%(C%)=rmax
� �g%(C%)>gmax g%(C%)=gmax
� �b%(C%)>bmax b%(C%)=bmax
��
��
�$ �hist% �
�.M%=0:ZM%=-1:�C%=0�col
�85�Z%=0�256:�vals%(Z%,C%)>M% M%=vals%(Z%,C%):ZM%=Z%
�B�:�
�L �ZM%=-1 � okinfo%=0 �=100
�V
� col>0 �
�`�66:ht=500
�j��<>66 �16:ht=400
�t�0,6,2000,6
�~�
̈�18:ht=400:�0,6,1024,6
̒�
̜#M=M%/(ht*2-8):�C%=0�col:Ȏ C% �
̦
� 0:�1
̰
� 1:�2
̺
� 2:�4
���
��
� col>0 �
��C�Z%=0�256:�vals%(Z%,C%) X%=Z%*3+C%<<1:�X%,8,X%,vals%(Z%,C%)/M+8
���
���
�?�Z%=0�256:�vals%(Z%,C%) X%=Z%<<2:ȓ ȐX%,8,2,vals%(Z%,C%)/M
� �
�
�
��
� �close:ș"Hourglass_Off"
�(=100
�2�
�<%�m>=0 oname$="p"+�m+m$ �oname$=m$
�F!�m=-6 �m=-7 �m=-8 oname$=pnm$
�P�range% oname$+="r"
�Z�equal% oname$+="e"
�d#�sharpen% oname$+="s"+�sharpen%
�n �black% oname$+="b"+�black%
�x8�gamma<>1 A%=@%:@%=&1020100:oname$+="g"+�gamma:@%=A%
͂�bright%=16 oname$+="b"
͌)xsp%=x%:ysp%=y%:�rotate% Ȕ xsp%,ysp%
͖3� rotate% � hflip% � vflip% �m=-9 � m=-10 �m-=2
͠�m=-9�m=-10 �
ͪ� jpq%(20)
ʹ[jpq%()=60,75,90,105,120,135,150,160,170,180,190,205,215,235,255,280,320,380,500,750,850
;�
��
Ȏ m �
��.� -1:xwords%=xsp%:sz%=xwords%*ysp%:Y%=ysp%
��+�getoutput(sz%,0,xwords%,Y%):base%=ram%
��3� -3,-5:xwords%=xsp%*2:sz%=xwords%*ysp%:Y%=ysp%
��+�getoutput(sz%,0,xwords%,Y%):base%=ram%
�0� -4:xwords%=xsp%*3:sz%=xwords%*ysp%:Y%=ysp%
�+�getoutput(sz%,0,xwords%,Y%):base%=ram%
�5� -6:xwords%=xsp%*2+3��3:sz%=xwords%*ysp%:Y%=ysp%
�'A%=Y%:�getoutput(sz%,64,xwords%,Y%)
�"1ram%!4=0:ram%!8=16:ram%!12=16:ș&2e,&109,ram%
�,)ș&2e,&10f,ram%,oname$,0,xsp%*2,Y%,28
�6Jbase%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
�@)ram%!12=ram%!12-Y%*xwords%+A%*xwords%
�J>base%!(10*4)=5<<27 � nx<<1 � ny<<14 � 1:base%+=base%!(8*4)
�T5� -7:xwords%=xsp%*3+3��3:sz%=xwords%*ysp%:Y%=ysp%
�^'A%=Y%:�getoutput(sz%,64,xwords%,Y%)
�h1ram%!4=0:ram%!8=16:ram%!12=16:ș&2e,&109,ram%
�r)ș&2e,&10f,ram%,oname$,0,xsp%*3,Y%,28
�|Jbase%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
Ά)ram%!12=ram%!12-Y%*xwords%+A%*xwords%
ΐBbase%!(10*4)=panic<<27 � nx<<1 � ny<<14 � 1:base%+=base%!(8*4)
Κ4no magic number yet for new format 24bpp sprites
Τ0� -8:xwords%=xsp%*4:sz%=xwords%*ysp%:Y%=ysp%
ή'A%=Y%:�getoutput(sz%,64,xwords%,Y%)
θ1ram%!4=0:ram%!8=16:ram%!12=16:ș&2e,&109,ram%
��)ș&2e,&10f,ram%,oname$,0,xsp%*4,Y%,28
��Jbase%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
��)ram%!12=ram%!12-Y%*xwords%+A%*xwords%
��>base%!(10*4)=6<<27 � nx<<1 � ny<<14 � 1:base%+=base%!(8*4)
��>� -9:xwords%=xsp%+3��3:sz%=(xsp%+7��7)*(ysp%+7��7):Y%=ysp%
��)sz%=sz%*jpq%(jpegquality%�5)/588+1024
�&jpegwrk%=�dim((xsp%+7��7)*9+20000)
�base%=�dim(xwords%)
��getoutputjp(sz%)
� N!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=1:ram%!16=90:ram%!20=90
�&Pș"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+7��7)*9+20000 � jpegtag%
�0J� -10:xwords%=xsp%*3+3��3:sz%=(xsp%+15��15)*(ysp%+15��15)*12/8:Y%=ysp%
�:)sz%=sz%*jpq%(jpegquality%�5)/588+1024
�D)jpegwrk%=�dim((xsp%+15��15)*30+20000)
�Nbase%=�dim(xwords%)
�X�getoutputjp(sz%)
�bN!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=3:ram%!16=90:ram%!20=90
�lSș"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+15��15)*30+20000 � jpegtag%
�v5� -11:xwords%=xsp%:sz%=xwords%*ysp%+20000:Y%=ysp%
π&jpegwrk%=�dim((xsp%+7��7)*9+20000)
ϊ1�getoutput(sz%,0,xwords%,Y%):base%=ram%+20000
ϔ7� -12:xwords%=xsp%*3:sz%=xwords%*ysp%+20000:Y%=ysp%
Ϟ)jpegwrk%=�dim((xsp%+15��15)*30+20000)
Ϩ1�getoutput(sz%,0,xwords%,Y%):base%=ram%+20000
ϲC:xwords%=xsp%/size%+3.9999��3:sz%=xwords%*ysp%:X%=xsp%:Y%=ysp%
ϼ
�ncol=1 �
�� Ȏ m$ �
��O�"C":!rowinc=xwords%:xwords%=xwords%*4:sz%=xwords%*ysp%:X%=xsp%*4:Y%=ysp%*4
��O�"T":!rowinc=xwords%:xwords%=xwords%*3:sz%=xwords%*ysp%:X%=xsp%*4:Y%=ysp%*3
��O�"D":!rowinc=xwords%:xwords%=xwords%*2:sz%=xwords%*ysp%:X%=xsp%*2:Y%=ysp%*2
���
��
�,A%=Y%:�getoutput(sz%,2048+64,xwords%,Y%)
� 1ram%!4=0:ram%!8=16:ram%!12=16:ș&2e,&109,ram%
�0ș&2e,&10f,ram%,oname$,(ncol<63)�1,X%,Y%,spm
� Jbase%=ram%+ram%!8:base%!(5*4)=A%-1:!base%=!base%-Y%*xwords%+A%*xwords%
�*)ram%!12=ram%!12-Y%*xwords%+A%*xwords%
�4&pal%=base%+11*4:base%+=base%!(8*4)
�>
Ȏ ncol �
�H � 256
�RR!(pal%-8)+=2048:!(pal%-12)+=2048:base%+=2048:!(ram%+12)+=2048:!(pal%-44)+=2048
�\)�Z%=0�255:B%=Z%�Z%<<8�Z%<<16:B%=B%<<8
�f%pal%!(Z%*8)=B%:pal%!(Z%*8+4)=B%:�
�p � 255
�zR!(pal%-8)+=2048:!(pal%-12)+=2048:base%+=2048:!(ram%+12)+=2048:!(pal%-44)+=2048
Є$�Z%=0�255:B%=palette%!(Z%<<2)<<8
Ў%pal%!(Z%*8)=B%:pal%!(Z%*8+4)=B%:�
И� 15
Т Ȏ m$ �
Ь � "R"
ж0�Z%=0�15:�col(Z%,palette%!(Z%<<2)�&F0F0F0):�
� � "D"
�� �Z%=0�7:A%=0:�Z%�1 A%+=&F0
���Z%�2 A%+=&F000
���Z%�4 A%+=&F00000
���col(Z%,A%):�
�� � "T"
�0�Z%=0�15:A%=Z%<<4:�col(Z%,A%�A%<<8�A%<<16):�
�
�<�Z%=0�15:A%=(Z%�7)/7*15+.2<<4:�col(Z%,A%�A%<<8�A%<<16):�
��
�$� 3
�.
Ȏm$ �
�8 � "C"
�B;�col(0,0):�col(1,&F0F000):�col(2,&F000F0):�col(3,&F0F0)
�L � "R"
�V/�Z%=0�3:�col(Z%,palette%!(Z%<<2)�&F0F0F0):�
�`
�j1�Z%=0�3:A%=Z%*5<<4:�col(Z%,A%�A%<<8�A%<<16):�
�t�
�~!� 1:�col(0,0):�col(1,&F0F0F0)
ш�
ђ�
Ѧ �flex% �
Ѻ�
���workspace%<0 �
��.P%=�:[OPT 0:STR r13,P%+16:MOVS Pc,r14:]:��
���=�+32*1024+�-!(�+16)
���
��
� �
�
:�base%*size%>2^32 � 42,"base%*size% product too large"
�� �
� /� � �:� �:�Save:� �,�$+" internal ("+Þ+")"
�(ș"Hourglass_LEDs",3
�2$ysamp%=1:nl%()=0:step%=4*(col+1)
�<Iaddr%=base%<<sizeshft%:rowstep%=xwords%*size%:colstep%=1:dist%=xsp%-1
�F!�m=-3�m=-5�m=-6 dist%=dist%*2
�P(�m=-4�m=-7�m=-10�m=-12 dist%=dist%*3
�Z�m=-8 dist%=dist%*4
�d�rotate% �
�n6odist%=dist%:Ȕ colstep%,rowstep%:Ȕ hflip%,vflip%
�x�rotate%=1 �
҂Gaddr%+=(ysp%-1)*colstep%:colstep%=-colstep%:dist%=(ysp%-1)*colstep%
Ҍ�
Җ;addr%+=dist%:rowstep%=-rowstep%:dist%=(ysp%-1)*colstep%
Ҡ�
Ҫ;�m=-3�m=-5�m=-6 colstep%=colstep%/2:rowstep%=rowstep%*2
ҴB�m=-4�m=-7�m=-10�m=-12 colstep%=colstep%/3:rowstep%=rowstep%*3
Ҿ1�m=-8 colstep%=colstep%/4:rowstep%=rowstep%*4
���
��
�hflip% �
��0addr%+=dist%:dist%=-dist%:colstep%=-colstep%
���
��
�vflip% �
��rotate% �
�,addr%+=odist%*rotate%:rowstep%=-rowstep%
��
�/addr%+=(ysp%-1)*rowstep%:rowstep%=-rowstep%
�"�
�,�
�6Soutlim%=((base%+xwords%*Y%)<<sizeshft%)-1:oddcolstep%=-colstep%:oddstep%=-step%
�@+�order% �adjustpalette(1/ydiv%/xdiv%,0)
�J�m=-9�m=-10 �
�T?ș "OS_SWINumberFromString",,"CompressJPEG_WriteLine" � wl%
�^9�sy%=y% � sx%=x% � range%=� � sharpen%=� � equal%=� �
�h�dither% �
�r$�yr%=0 � y%-1:șhour%,yr%*100�y%
�|6W%=�(r$+"(cl%())"):cl%()=cl%()+nl%():nl%()=0:B%=x%
ӆ �yr%�1 �
Ӑ2�fs%,colstep%,cl%(1,0),nl%(1,0),addr%,step%,B%
Ӛ�
ӤFA%=addr%+dist%:�fs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
Ӯ�
Ӹșwl%,jpegtag%,addr%
���
���
��GI%=step%:�yr%=0�y%-1:șhour%,yr%*100�y%:�addr%>outlim% �flushoutput
��BW%=�(r$+"(cl%())"):B%=x%:�fs%,colstep%,cl%(1,0),I%,addr%,I%,B%
��șwl%,jpegtag%,addr%
���
��
��
�
�equal% �
� 9�rewind:Havg%=Ǝ(vals%())/256/(col+1):� new%(256,col)
�&>�B%=0�col:R%=0:Hint%=0:�Z%=0�256:L%=R%:Hint%+=vals%(Z%,B%)
�0&ȕHint%>Havg%:Hint%-=Havg%:R%+=1:�
�: new%(Z%,B%)=(L%+R%)/2*F/256
�D�:�
�N�
�X�sharpen% �
�b
�order% �
�l:yread%=sy%-1:W%=�(r$+"(rm1%())"):�equal% �fit2(rm1%())
�vA�B%=0�col:rm1%(0,B%)=rm1%(1,B%):rm1%(sx%+1,B%)=rm1%(sx%,B%):�
Ԁ�
Ԋ<yread%=y%-1:�scaledpixelrow(rm1%()):�equal% �fit(rm1%())
Ԕ?�B%=0�col:rm1%(0,B%)=rm1%(1,B%):rm1%(x%+1,B%)=rm1%(x%,B%):�
Ԟ�
Ԩrm2%()=rm1%()
Բ�
Լ
�order% �
���yr%=0 � y%-1
��2șhour%,yr%*100�y%:�addr%>outlim% �flushoutput
��
�sy%=y% �
���sharppixelrow(cl%())
���
�:ysamp%-=1:�ysamp%=0 �sharppixelrow(xl%()):ysamp%=ymul%
��ydiv%=1 �
� cl%()=xl%()
��
� �ysamp%>=ydiv% �
�*#ysamp%-=ydiv%:cl%()=xl%()*ydiv%
�4�
�>/cl%()=xl%()*ysamp%:Y%=ydiv%-ysamp%:ysamp%=0
�H�
�R0�ysamp%=0 �sharppixelrow(xl%()):ysamp%=ymul%
�\�ysamp%>Y% �
�f6ysamp%-=Y%:xl2%()=xl%()*Y%:cl%()=cl%()+xl2%():Y%=0
�p�
�z>Y%-=ysamp%:xl2%()=xl%()*ysamp%:cl%()=cl%()+xl2%():ysamp%=0
Մ�
Վ
� Y%=0
�
բ
ysamp%+=1
լ�
ն�
�2cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%+dist%
�� �yr%�1 �
��2�fs%,colstep%,cl%(1,0),nl%(1,0),addr%,step%,B%
���
��7�fs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
���
�șwl%,jpegtag%,addr%
��
��
��yr%=0 � y%-1
�$2șhour%,yr%*100�y%:�addr%>outlim% �flushoutput
�.�sharpen% �
�8@�yread% yread%-=1:�scaledpixelrow(rm%()):�equal% �fit(rm%())
�B;�B%=0�col:rm%(0,B%)=rm%(1,B%):rm%(x%+1,B%)=rm%(x%,B%):�
�L;� sharp%,cl%(1,0),rm%(1,0),rm1%(1,0),rm2%(1,0),totvals%
�V!Ȕ rm2%(),rm1%():rm1%()=rm%()
�`�
�j.�scaledpixelrow(cl%()):�equal% �fit(cl%())
�t�
�~2cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%+dist%
ֈ �yr%�1 �
֒2�fs%,colstep%,cl%(1,0),nl%(1,0),addr%,step%,B%
֜�
֦7�fs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
ְ�
ֺșwl%,jpegtag%,addr%
���
���
���
��0ș"CompressJPEG_Finish",jpegtag% � jpegsize%
���
�9�sy%=y% � sx%=x% � range%=� � sharpen%=� � equal%=� �
� �dither% �
�
@�yr%=0 � y%-1:șhour%,yr%*100�y%:�addr%>outlim% �flushoutput
�OW%=�(r$+"(cl%())"):cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%:addr%+=rowstep%
� �yr%�1 �
�(/�fs%,colstep%,cl%(1,0),nl%(1,0),A%,step%,B%
�2�
�<AA%+=dist%:�fs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
�F�
�P�
�Z�
�dGI%=step%:�yr%=0�y%-1:șhour%,yr%*100�y%:�addr%>outlim% �flushoutput
�nXW%=�(r$+"(cl%())"):B%=x%:A%=addr%:addr%+=rowstep%:�fs%,colstep%,cl%(1,0),I%,A%,I%,B%
�x�
ׂ�
�
ז
�equal% �
נ9�rewind:Havg%=Ǝ(vals%())/256/(col+1):� new%(256,col)
ת>�B%=0�col:R%=0:Hint%=0:�Z%=0�256:L%=R%:Hint%+=vals%(Z%,B%)
״&ȕHint%>Havg%:Hint%-=Havg%:R%+=1:�
new%(Z%,B%)=(L%+R%)/2*F/256
���:�
���
���sharpen% �
��
�order% �
��:yread%=sy%-1:W%=�(r$+"(rm1%())"):�equal% �fit2(rm1%())
�A�B%=0�col:rm1%(0,B%)=rm1%(1,B%):rm1%(sx%+1,B%)=rm1%(sx%,B%):�
��
�<yread%=y%-1:�scaledpixelrow(rm1%()):�equal% �fit(rm1%())
�?�B%=0�col:rm1%(0,B%)=rm1%(1,B%):rm1%(x%+1,B%)=rm1%(x%,B%):�
�"�
�,rm2%()=rm1%()
�6�
�@
�order% �
�J�yr%=0 � y%-1
�T2șhour%,yr%*100�y%:�addr%>outlim% �flushoutput
�^
�sy%=y% �
�h�sharppixelrow(cl%())
�r�
�|:ysamp%-=1:�ysamp%=0 �sharppixelrow(xl%()):ysamp%=ymul%
؆�ydiv%=1 �
ؐcl%()=xl%()
ؚ�
ؤ�ysamp%>=ydiv% �
خ#ysamp%-=ydiv%:cl%()=xl%()*ydiv%
ظ�
��/cl%()=xl%()*ysamp%:Y%=ydiv%-ysamp%:ysamp%=0
���
��0�ysamp%=0 �sharppixelrow(xl%()):ysamp%=ymul%
���ysamp%>Y% �
��6ysamp%-=Y%:xl2%()=xl%()*Y%:cl%()=cl%()+xl2%():Y%=0
���
�>Y%-=ysamp%:xl2%()=xl%()*ysamp%:cl%()=cl%()+xl2%():ysamp%=0
��
�
� Y%=0
� �
�&
ysamp%+=1
�0�
�:�
�D<cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%:addr%+=rowstep%
�N �yr%�1 �
�X/�fs%,colstep%,cl%(1,0),nl%(1,0),A%,step%,B%
�b�
�lAA%+=dist%:�fs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
�v�
ـ�
ي�
ٔ�yr%=0 � y%-1
ٞ2șhour%,yr%*100�y%:�addr%>outlim% �flushoutput
٨�sharpen% �
ٲ@�yread% yread%-=1:�scaledpixelrow(rm%()):�equal% �fit(rm%())
ټ;�B%=0�col:rm%(0,B%)=rm%(1,B%):rm%(x%+1,B%)=rm%(x%,B%):�
��;� sharp%,cl%(1,0),rm%(1,0),rm1%(1,0),rm2%(1,0),totvals%
��!Ȕ rm2%(),rm1%():rm1%()=rm%()
���
��.�scaledpixelrow(cl%()):�equal% �fit(cl%())
���
�<cl%()=cl%()+nl%():nl%()=0:B%=x%:A%=addr%:addr%+=rowstep%
� �yr%�1 �
� /�fs%,colstep%,cl%(1,0),nl%(1,0),A%,step%,B%
��
� AA%+=dist%:�fs%,oddcolstep%,cl%(x%,0),nl%(x%,0),A%,oddstep%,B%
�*�
�4�
�>�
�H�
�R�m=-11�m=-12 �
�\?ș "OS_SWINumberFromString",,"CompressJPEG_WriteLine" � wl%
�f �m=-11 �
�pN!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=1:ram%!16=90:ram%!20=90
�zPș"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+7��7)*9+20000 � jpegtag%
ڄ�
ڎN!ram%=xsp%:ram%!4=ysp%:ram%!8=jpegquality%:ram%!12=3:ram%!16=90:ram%!20=90
ژSș"CompressJPEG_Start",ram%,sz%,ram%,jpegwrk%,(xsp%+15��15)*30+20000 � jpegtag%
ڢ�
ڬaddr%=ram%+20000
ڶ�yr%=0�ysp%-1
�<șhour%,yr%*100�ysp%:șwl%,jpegtag%,addr%:addr%+=xwords%
���
��0ș"CompressJPEG_Finish",jpegtag% � jpegsize%
���
���
��cputime%=�-cputime%
� �Save
�=0
�� �srchdevlist
�
[OPT Z
�8%CMP R4,#F:MOVCS R4,#0:MOVGE R4,#F
�B>MOV R0,R4,LSR #(bits-k%):CMP R0,#1<<k%:MOVCS R0,#(1<<k%)-1
�L%CMP R5,#F:MOVCS R5,#0:MOVGE R5,#F
�VRMOV R3,R5,LSR #(bits-k%):CMP R3,#1<<k%:MOVCS R3,#(1<<k%)-1:�R R0,R0,R3,LSL #k%
�`%CMP R6,#F:MOVCS R6,#0:MOVGE R6,#F
�jTMOV R3,R6,LSR #(bits-k%):CMP R3,#1<<k%:MOVCS R3,#(1<<k%)-1:�R R0,R0,R3,LSL #k%*2
ۈ STMFD SP !,{R8,R9,R10,R11}
ےLDR r3,ictloc
ۜLDR r2,[r3,r0,LSL #2]
۰MOV r14,r2,lsr #24
ۺCMP r14,#4
��ADDCC r2,r3,r0,lsl #2
��BICCS r2,r2,#&ff000000
��LDRB r0,[r2],#1
��SUBS r14,r14,#1
��
BEQ gotit
� ADD r3,r0,r0,lsl #1
�
ADD r3,r7,r3,lsl #2
�LDMIA r3,{r8,r9,r10}
� SUBS r8,r8,r4
�(RSBMI r8,r8,#0
�2MOV r8,r8,lsr #bits/2
�<SUBS r9,r9,r5
�FRSBMI r9,r9,#0
�PMOV r9,r9,lsr #bits/2
�ZSUBS r10,r10,r6
�dRSBMI r10,r10,#0
�nMOV r10,r10,lsr #bits/2
�xMUL r3,r8,r8
܂MUL r11,r9,r9
܌ADD r11,r11,r11,LSL #2
ܖADD r3,r3,r3,LSL #1
ܠADD r3,r3,r11,LSL #1
ܪMLA r11,r10,r10,r3
ܾ
.srchlist
��LDRB r3,[r2],#1
��ADD R8,R3,R3,LSL #1
��ADD R8,R7,R8,LSL #2
��LDMIA R8,{R8,R9,R10}
��SUBS R9,R5,R9
�RSBMI R9,R9,#0
�MOV R3,R9,LSR #bits/2
�MUL R9,R3,R3
�ADD r9,r9,r9,LSL #2
�"CMP R11,R9,LSL #1
�,BCC srchquick
�6SUBS R8,R4,R8
�@RSBMI R8,R8,#0
�JMOV R3,R8,LSR #bits/2
�TMUL R8,r3,r3
�^ADD r8,r8,r8,LSL #1
�hADD r8,r8,r9,LSL #1
�rSUBS R10,R6,R10
�|RSBMI R10,R10,#0
݆MOV R3,R10,LSR #bits/2
ݐMLA R10,R3,R3,R8
ݚCMP R10,R11
ݤMOVCC R11,R10
ݮLDRCCB R0,[r2,#-1]
ݸ.srchquick
��SUBS R14,R14,#1
��BNE srchlist
��
.gotit
��+ADD R3,R0,R0,LSL #1:ADD R3,R7,R3,LSL #2
��LDMIA R3,{R8,R9,R10}
��+SUB R4,R4,R8:SUB R5,R5,R9:SUB R6,R6,R10
� LDMFD r13!,{R8,R9,R10,R11}
�]
��
� � �getoutput(A%,E%,B%,� C%)
�&%�A%>max% � rotate%=� � vflip%=� �
�01C%=max%�B%+1:A%=xwords%*C%+E%:first%=�:o%=�f$
�:�
�D
A%+=E%
�N�
�X�spritearea%<0 �
�b/ram%=�createarea(A%):�ram%=-1 ram%=�dim(A%)
�l�
�vram%=spritearea%
ހ�
ފ !ram%=A%
ޔ�
ި� �getoutputjp(� A%)
�spritearea%<0 �
��3ram%=�createareajp(A%):�ram%=-1 ram%=�dimjp(A%)
���
��ram%=spritearea%
���
�� !ram%=A%
��
�� �createarea(size%)
� � �
�*areanumber%=0
�4
� � �:=-1
�>_ș &20066,0,-1,size%,-1,%10000000,size%,0,0,"ChangeFSI sprite" � ,areanumber%,,areabase%;V%
�H �V%�1 �areanumber%=0:=-1
߄4ș "OS_ReadDynamicArea",areanumber% � ,areasize%
ߎ=� areasize%<size% �removearea:� 42,"Couldn't create area"
ߘ=areabase%
߬ � �createareajp(� size%)
߶� �
�areanumber%=0
��
� � �:=-1
��]ș &20066,0,-1,size%,-1,%10000000,size%,0,0,"ChangeFSI JPEG" � ,areanumber%,,areabase%;V%
�� �V%�1 �areanumber%=0:=-1
��Dș "OS_ReadDynamicArea",areanumber% � ,areasize%:size%=areasize%
��=areabase%
�� �removearea
�@�areanumber% ș "OS_DynamicArea",1,areanumber%:areanumber%=0
��
�.� �cachedim(size%)
�8� �
�Bcacheareanumber%=0
�L
� � �:=-1
�Vhș &20066,0,-1,size%,-1,%10000000,size%,0,0,"ChangeFSI cache" � ,cacheareanumber%,,cacheareabase%;V%
�`!�V%�1 �cacheareanumber%=0:=-1
�j>ș "OS_ReadDynamicArea",cacheareanumber% � ,cacheareasize%
�tG� cacheareasize%<size% �removecachearea:� 42,"Couldn't create area"
�~=cacheareabase%
�� �removecachearea
�O�cacheareanumber% ș "OS_DynamicArea",1,cacheareanumber%:cacheareanumber%=0
��
�� �flushoutput
�� �spritearea%<0 �oksave% �
��'A%=base%:�first% A%=ram%+4:first%=�
�� ș12,2,o%,A%,addr%�size%-A%
���
��addr%=base%*size%
��
� � �close
�
,�c% �flag=3600 ș"PhotoCD_Close",pcdh%,1
�;�c% �#c%:c%=0:�scrapf% scrapf%=�:�"Remove <Wimp$Scrap>"
� �cc% �#cc%:cc%=0
�(�ccc% �#ccc%:ccc%=0
�2�removecachearea
�<�
�F � �Save
�P
�close
�Z
Ȏ m �
�d"� -1:�spritearea%<0 �oksave% �
�n;�o% �flushoutput �ș"OS_File",10,f$,&004,,ram%,ram%+sz%
�x�
�� -2:o%=�f$:�#o%,pnm$
�
Ȏ pnm$ �
�
� "P1"
�,�#o%,"# "+f$+".pbm (options "+oname$+")"
��#o%,�xsp%+" "+�ysp%
�$�Y%=0�ysp%-1:B%=base%+Y%*xwords%
�=�X%=0�xsp%-1:�B%?(X%>>3)�(1<<(X%�7)) �#o%,"1"; ��#o%,"0";
���
�� �#o%,""
���
��
� "P4"
��;�#o%,"# "+f$+".pbm (options "+oname$+") binary encoded"
��#o%,�xsp%+" "+�ysp%
�f�X%=0�255:code%?X%=X%<<7 � X%<<5�&40 � X%<<3�&20 � X%<<1�&10 � X%>>1�8 � X%>>3�4 �X%>>5�2 �X%>>7:�
�$�Y%=0�ysp%-1:B%=base%+Y%*xwords%
�,�X%=0�xsp%-1�8:�#o%,code%?(B%?(X%>>3)):�
�"�
�,
� "P2"
�6,�#o%,"# "+f$+".pgm (options "+oname$+")"
�@�#o%,�xsp%+" "+�ysp%
�J
�#o%,"15"
�T$�Y%=0�ysp%-1:B%=base%+Y%*xwords%
�^7�X%=0�xsp%-1:C%=B%?(X%>>1):�X%�1 C%=C%>>4 �C%=C%�15
�h�#o%," "+�C%;
�r�
�| �#o%,""
��
�
� "P5"
�;�#o%,"# "+f$+".pgm (options "+oname$+") binary encoded"
��#o%,�xsp%+" "+�ysp%
�
�#o%,"15"
�$�Y%=0�ysp%-1:B%=base%+Y%*xwords%
��7�X%=0�xsp%-1:C%=B%?(X%>>1):�X%�1 C%=C%>>4 �C%=C%�15
�� �#o%,C%
���
���
���
��
�#o%:o%=0
�/�pnm$="P2"�pnm$="P1" �"Settype "+f$+" &FFF"
�� -3:o%=�f$:�#o%,pnm$
�O�#o%,"# "+f$+".pcm (options "+oname$+") binary encoded 15bpp (5bits r,g,b)"
� �#o%,�xsp%+" "+�ysp%
�&
�#o%,"31"
�0 ș12,2,o%,ram%,xsp%*ysp%*2
�:
�#o%:o%=0
�D � -4:o%=�f$:�pnm$="IRLAM"�
�N%�#o%,"Irlam 24: "+�xsp%+" "+�ysp%
�X#�Y%=0�ysp%-1:B%=ram%+Y%*xwords%
�b!�X%=0�xsp%*3-1�3:�#o%,B%?X%:�
�l'B%+=1:�X%=0�xsp%*3-1�3:�#o%,B%?X%:�
�v'B%+=1:�X%=0�xsp%*3-1�3:�#o%,B%?X%:�
��
��
�
�#o%,pnm$
��pnm$="P6" �
�G�#o%,"# "+f$+".ppm (options "+oname$+") binary encoded 24bpp r,g,b"
��
�E�#o%,"# "+f$+".ppm (options "+oname$+") "+�(p6bits*3)+"bpp r,g,b"
���
���#o%,�xsp%+" "+�ysp%
���#o%,�(2^p6bits-1)
���pnm$="P6" �
�� ș12,2,o%,ram%,xsp%*ysp%*3
��
�#�Y%=0�ysp%-1:B%=ram%+Y%*xwords%
� X�X%=0�xsp%-1:C%=B%!(X%*3):�#o%," "+�(C%�255)+" "+�((C%>>8)�&FF)+" "+�((C%>>16)�255);
��
� �#o%,""
�*�
�4�
�>�
�H
�#o%:o%=0
�R%�pnm$="P3" �"Settype "+f$+" &FFF"
�\� -5:o%=�f$:�#o%,pnm$
�fO�#o%,"# "+f$+".pcm (options "+oname$+") binary encoded 15bpp (5bits y,u,v)"
�p�#o%,�xsp%+" "+�ysp%
�z�#o%,"31 27 21"
� ș12,2,o%,ram%,xsp%*ysp%*2
�
�#o%:o%=0
�� -9,-10,-11,-12
�?�spritearea%<0 �oksave% ș8,10,f$,&c85,,ram%,ram%+jpegsize%
�
��ncol=1�m$="T" �
� �X%=(xsp%*4-1)�8*8+6�6�-8
�� ș&2e,&12e,ram%,oname$,X%
�� ș&2e,&12e,ram%,oname$,X%
���
���
�� �spritearea%<0 �oksave% �
�(�o% �flushoutput �ș&2e,&10c,ram%,f$
��
��
�4�o% �#o%:o%=0:�"settype "+f$+" &ff9":�removearea
�$ș"Hourglass_Off"
�.�
�8 ��defpal
�B
�C%=0�255
�L#r%(C%)=(C%�7 � (C%�16)>>1)/15*F
�V$g%(C%)=(C%�3 � (C%�&60)>>3)/15*F
�`0b%(C%)=(C%�3 � (C%�8)>>1 � (C%�128)>>4)/15*F
�j�
�t�
�~
��defpal2
�r%(0)=F:g%(0)=F:b%(0)=F
��
�
��defpal4
�/r%()=15,10,5,0:�C%=0�3:r%(C%)=r%(C%)/15*F:�
�g%()=r%():b%()=r%()
��
����defpal16
��1r%()=15,13,11,9,7,5,3,0,0,14, 0,13,14,5,15, 0
��1g%()=15,13,11,9,7,5,3,0,4,14,12, 0,14,8,11,10
��1b%()=15,13,11,9,7,5,3,0,9, 0, 0, 0,11,0, 0,15
��G�C%=0�15:r%(C%)=r%(C%)/15*F:g%(C%)=g%(C%)/15*F:b%(C%)=b%(C%)/15*F:�
��
� ��ipal63
�
,�#c%=&38:� rpal%(15),gpal%(15),bpal%(15)
��C%=0�15:D%=�#c%
� rpal%(C%)=�#c%>>4 � 7
�(gpal%(C%)=�#c%>>4 � 3
�2bpal%(C%)=�#c%>>4 � 7
�< D%=�W:�
�F
�C%=0�255
�P)r%(C%)=(rpal%(C%�15)�(C%�16)>>1)/15*F
�Z*g%(C%)=(gpal%(C%�15)�(C%�&60)>>3)/15*F
�d*b%(C%)=(bpal%(C%�15)�(C%�128)>>4)/15*F
�n�
�x�
���ipal(D%)
� �#c%=&38
��C%=0�D%-1:D%=�#c%
�r%(C%)=(�#c%>>4)/15*F
�g%(C%)=(�#c%>>4)/15*F
�b%(C%)=(�#c%>>4)/15*F
� D%=�W:�
���
��� �newropal(D%)
�� �#c%=&38
���C%=0�D%-1:D%=�W
��r%(C%)=(D%�255)/255*F
� g%(C%)=(D%>>8�255)/255*F
� b%(C%)=(D%>>16�255)/255*F
� D%=�W:�
��
�" � �nopal
�,3�C%=0�255:r%(C%)=C%/255*F:�:g%()=r%():b%()=r%()
�6�
�@� �col(A%,B%)
�J6B%=B%<<8�B%<<4�&10:pal%!(A%*8)=B%:pal%!(A%*8+4)=B%
�T�
�^� �bits(A%)
�h5�A%=1 �="1 bit per pixel" �=�A%+" bits per pixel"
�r � �fits
�|
�Z%,s$
��Z%=1�80:s$+=��#c%:�
�=s$
�
� �uc(a$)
�
�Z%,z$,b$
�
�Z%=1��a$
�z$=�a$,Z%,1)
��!�z$>="a"�z$<="z" z$=�(�z$-32)
�� b$+=z$:�
��=b$
��� �dim(A%)
��� B%
�� �flex% �
�1B%=nextlocation%:A%=A%+3��3:nextlocation%+=A%
�*ș"Wimp_SlotSize",-1,-1 � currentslot%
�'�currentslot%+&8000<nextlocation% �
� <ș "Wimp_SlotSize",nextlocation%-&8000,-1 � currentslot%
�&U�currentslot%+&8000<nextlocation% � 42,"Can't get enough memory to process image"
�0�
�:�
�D�workspace%<0 �
�N � B% A%
�X�
�bWB%=workspace%:workspace%+=A%+3��3:�workspace%>worklimit% �42,"Not enough workspace"
�l�
�v�
�=B%
�� �dimjp(� A%)
�� B%
� �flex% �
�1B%=nextlocation%:A%=A%+3��3:nextlocation%+=A%
�*ș"Wimp_SlotSize",-1,-1 � currentslot%
�'�currentslot%+&8000<nextlocation% �
��<ș "Wimp_SlotSize",nextlocation%-&8000,-1 � currentslot%
��>�currentslot%+&8000<nextlocation% A%=currentslot%+&8000-B%
���
���
���workspace%<0 �
� � B% A%
��
� WB%=workspace%:workspace%+=A%+3��3:�workspace%>worklimit% �42,"Not enough workspace"
��
� �
�*=B%
�>� �W=�W1(c%)
�H2� �W1(c%)=�#c% � �#c%<<8 � �#c%<<16 � �#c%<<24
�\� �HW=�#c% � �#c%<<8
�p� �beHW=�#c%<<8 � �#c%
�/� �beW=�#c%<<24 � �#c%<<16 � �#c%<<8 � �#c%
�� �tiff(T%)
� Ȏ T% �
�� 1,7:=�#c%
�*� 2:�s$,t$:�s$+=t$:t$=��#c%:�t$=�0:=s$
�4� 3:�bigendian �=�#c%<<8 � �#c% �=�#c% � �#c%<<8
��%� 4,9:�bigendian �=�beW �=�W1(c%)
��� 6:=(�#c%<<24)>>24
��� 8:=(�tiff(3)<<16)>>16
���
�� � 42,"Silly TIFF tag:"+�T%
�� �nextstrip
�rowstogo%=striprows%
�"stripptr+=1:�#c%=st%(stripptr)
��compression=5 �
�$F!firstcode=0:!oldcode=0:!codesize=setcodes%+1:!stack=stk%:!sp=stk%
�.H!maxcode=clearcode%+2:!maxcodesize=2*clearcode%:!curbit=0:!lastbit=0
�8�
�B(�compression=5 � compression=32773 �
�L.!incacheptr=datacache%:!numlefttogo=cache%
�V ș12,4,c%,datacache%,cache%
�`�
�j�
�t(� �watford(wtsx%,� rep%,� wt%,X%,c%)
�~ �rlexpand%,wtsx%,rep%,wt%,X%
�� C%=�#c%:Ȏ C%>>6 �
�� 0:?X%=C%:X%+=1:wt%=C%
�6� 1:wt%-=1:rep%=C%�63:�rlexpand%,wtsx%,rep%,wt%,X%
�/� 2:rep%=C%�63:�rlexpand%,wtsx%,rep%,wt%,X%
�6� 3:wt%+=1:rep%=C%�63:�rlexpand%,wtsx%,rep%,wt%,X%
��
��
�X%=wtsx%
���
��*� �watfordcache(wtsx%,� rep%,� wt%,X%)
�� �rlexpand%,wtsx%,rep%,wt%,X%
��#� C%=�bytefromcache%:Ȏ C%>>6 �
�� 0:?X%=C%:X%+=1:wt%=C%
� 6� 1:wt%-=1:rep%=C%�63:�rlexpand%,wtsx%,rep%,wt%,X%
�
/� 2:rep%=C%�63:�rlexpand%,wtsx%,rep%,wt%,X%
�6� 3:wt%+=1:rep%=C%�63:�rlexpand%,wtsx%,rep%,wt%,X%
� �
�(
�X%=wtsx%
�2�
�<� �reduce(� A%,� B%)
�F� C%,D%:C%=A%:D%=B%
�P� �C%<D% Ȕ C%,D%
�Z C%=C%�D%
�d �C%=0
�nA%=A%�D%:B%=B%�D%
�x�
�� �readpixelrow(z%())
� �rows% �
�rows%-=1:�sx%=x% �
�W%=�(r$+"(z%())")
��
�@W%=�(r$+"(xp%())"):�xsample%,xmul%,xdiv%,z%(1,0),xp%(1,0),x%
��
���
��
z%()=0
���
���
��� �sharppixelrow(z%())
� �rows% �
�rows%-=1:�sx%=x% �
�A�sharpen% �sharp(z%()) �W%=�(r$+"(z%())"):�equal% �fit2(z%())
��
�"D�sharpen% �sharp(xp%()) �W%=�(r$+"(xp%())"):�equal% �fit2(xp%())
�,-�xsample%,xmul%,xdiv%,z%(1,0),xp%(1,0),x%
�6�
�@�
�J
z%()=0
�T�
�^�
�h� �sharp(z%())
�r=yread%-=1:�yread% W%=�(r$+"(rm%())"):�equal% �fit2(rm%())
�|=�B%=0�col:rm%(0,B%)=rm%(1,B%):rm%(sx%+1,B%)=rm%(sx%,B%):�
�;� sharp%,z%(1,0),rm%(1,0),rm1%(1,0),rm2%(1,0),totvals2%
�!Ȕ rm2%(),rm1%():rm1%()=rm%()
��
�� �scaledpixelrow(z%())
�
�sy%=y% �
��readpixelrow(z%())
���
��9ysamp%-=1:�ysamp%=0 �readpixelrow(xl%()):ysamp%=ymul%
���ydiv%=1 �
��z%()=xl%()
���
���ysamp%>=ydiv% �
�"ysamp%-=ydiv%:z%()=xl%()*ydiv%
��
�2�Y%:z%()=xl%()*ysamp%:Y%=ydiv%-ysamp%:ysamp%=0
� �
�&/�ysamp%=0 �readpixelrow(xl%()):ysamp%=ymul%
�0�ysamp%>Y% �
�:4ysamp%-=Y%:xl2%()=xl%()*Y%:z%()=z%()+xl2%():Y%=0
�D�
�N<Y%-=ysamp%:xl2%()=xl%()*ysamp%:z%()=z%()+xl2%():ysamp%=0
�X�
�b
� Y%=0
�l�
�v
ysamp%+=1
��
��
��
�� �fit(z%())
�$�histequal%,z%(1,0),new%(0,0),x%
��
�� �fit2(z%())
��%�histequal%,z%(1,0),new%(0,0),sx%
���
�� � �adjustpalette(mul,sub)
���mul=1 � sub=0 �
���C%=0�colourindex
�Qr%(C%)=(r%(C%)-sub)*mul+1:g%(C%)=(g%(C%)-sub)*mul+1:b%(C%)=(b%(C%)-sub)*mul+1
��
�
�ham �
�2�C%=0�15*4�4:ltable!C%=(ltable!C%-sub)*mul+1:�
� �
�*�input>400 �
�4�C%=0�colourindex
�>Crpal%(C%)=(rpal%(C%)-sub)*mul+1:gpal%(C%)=(gpal%(C%)-sub)*mul+1
�HEbpal%(C%)=(bpal%(C%)-sub)*mul+1:table%(C%)=(table%(C%)-sub)*mul+1
�R�
�\�
�f�
�p� �cachesize(A%)
�z)ș&20023,"ChangeFSI$Cache",A%,-1 �,,Z
� �Z<>0 �
�9ș35,"ChangeFSI$Cache",A%,20 �,,Z:A%?Z=13:cache%=�$A%
�+�$A%,"K")��$A%,"k") cache%=cache%*1024
��
�cache%=128*1024
��
��
��
� �refill
�� �striprows%>0 �nextstrip
��Eș12,4,c%,datacache%,cache%:rowstogo%=cacherows%:buff%=datacache%
��L�input=24�input=48 �rbo%>=0 rb%=buff%+rbo%:gb%=buff%+gbo%:bb%=buff%+bbo%
���
�� �refillpcd
��pcdblk%!4>=sy% �
�#�pcdblk%!12>=sy% pcdblk%!12=sy%
�$Vș"PhotoCD_GetBlock",pcdh%,,pcdblk%,datacache%,pcdindex%,,,pcdcache%,pcdcachesize%
�.Vrowstogo%=cacherows%:buff%=datacache%:pcdblk%!4+=cacherows%:pcdblk%!12+=cacherows%
�80rb%=buff%+rbo%:gb%=buff%+gbo%:bb%=buff%+bbo%
�B�
�V� �8(z%())
�`=�mappix%,z%(1,0),r%(0),g%(0),b%(0),buff%:buff%+=rowbytes%
�j%rowstogo%-=1:�rowstogo%=0 �refill
�t=�
�� �16(z%())
�D�mappix%,z%(1,0),rpal%(0),gpal%(0),r%(0),g%(0),b%(0),buff%,buff%
�6buff%+=rowbytes%:rowstogo%-=1:�rowstogo%=0 �refill
�=�
�� �24(z%())
��2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
��0rb%+=rowbytes%:gb%+=rowbytes%:bb%+=rowbytes%
��%rowstogo%-=1:�rowstogo%=0 �refill
��=�
�� �300(z%())
� [ș12,4,cc%,pbuff%,sx%:�mappix%,z%(1,0),rpal%(0),gpal%(0),r%(0),g%(0),b%(0),pbuff%,buff%
�
6buff%+=rowbytes%:rowstogo%-=1:�rowstogo%=0 �refill
�=�
�(� �400(z%())
�2)�readline%,plbytes%,rep%,pix%,plbuff%
�<2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
�F=�
�Z� �500(z%())
�d)� LZWdecode%,table%(0),c%,plbuff%,sx%
�n.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
�x=�
�� �800(z%())
�)�watfordcache(wtsx%,rep%,wt%,plbuff%)
�.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
�=�
�� �801(z%())
��(�watford(wtsx1%,rep1%,wt1%,buff%,c%)
��*�watford(wtsx2%,rep2%,wt2%,wtsx1%,cc%)
��+�watford(wtsx3%,rep3%,wt3%,wtsx2%,ccc%)
��2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
��=�
�� �901(z%())
�<ș12,4,c%,rb%,sx%:ș12,4,cc%,gb%,sx%:ș12,4,ccc%,bb%,sx%
�2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
�"=�
�6� �902(z%())
�@A�unpack%,buff%:�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
�J6buff%+=rowbytes%:rowstogo%-=1:�rowstogo%=0 �refill
�T=�
�h� �1000(z%())
�r?X%=buff%:�rep%>0 C%=?pa%:�rlexpand%,pasx%,rep%,C%,X%:pa%+=1
�|8�rep2%>0 C%=?pa%:�rlexpand%,pasx%,rep2%,C%,X%:pa%+=1
�� C%=�#c%:�C%=0 �
�@rep%=�#c%:C%=?pa%:�rlexpand%,pasx%,rep%,C%,X%:�rep%=0 pa%+=1
��
�Srep2%=C%�15:rep%=C%>>4:�rep% C%=?pa%:�rlexpand%,pasx%,rep%,C%,X%:�rep%=0 pa%+=1
�I�X%<pasx% �rep2% C%=?pa%:�rlexpand%,pasx%,rep2%,C%,X%:�rep2%=0 pa%+=1
��
��
�X%=pasx%
��,�mappix%,z%(1,0),r%(0),g%(0),b%(0),buff%
��=�
��� �1001(z%())
��?X%=buff%:�rep%>0 C%=?pa%:�rlexpand%,pasx%,rep%,C%,X%:pa%+=1
�B� rep%=�#c%:C%=?pa%:�rlexpand%,pasx%,rep%,C%,X%:�rep%=0 pa%+=1
�6�X%=pasx%:�mappix%,z%(1,0),r%(0),g%(0),b%(0),buff%
�=�
�&� �1100(z%())
�0)�readline%,plbytes%,rep%,pix%,plbuff%
�:.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
�D=�
�X� �1400(z%())
�b �vrep% �
�l vrep%-=1
�v�
�8G%=buff%:�X%=1�planes%:G%+=rowbytes%:F%=G%-rowbytes%
�� C%=�#c%:�C%=0 �
�C%=�#c%:�C%=0 �
�C%=�#c%:vrep%=�#c%-1
��
�*D%=F%:ș12,4,c%,F%,patlen%:F%+=patlen%
�>�C%>1 �N%=2�C%:�E%=0�patlen%-1:F%?E%=D%?E%:�:F%+=patlen%:�
���
���
��
�C%=128 �
��"C%=�#c%:ș12,4,c%,F%,C%:F%+=C%
���
�=?F%=(C%�&80)<>0:�E%=F%+1�F%+(C%�&7F):?E%=?F%:�:F%+=C%�&7F
��
� �:�F%>=G%:�
�$�plancnv%,rowbytes%,buff%,pbuff%
� �
�*-�mappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
�4=�
�H� �1501(z%())
�RD�readiff%,rowbytes%,plbuff%:rowstogo%-=1:�rowstogo%=0 �nextstrip
�\.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
�f=�
�z� �1505(z%())
�/� LZWdecode%,table%(0),c%,plbuff%,rowbytes%
�(rowstogo%-=1:�rowstogo%=0 �nextstrip
�.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
�=�
�� �1515(z%())
�/� LZWdecode%,table%(0),c%,plbuff%,rowbytes%
��(rowstogo%-=1:�rowstogo%=0 �nextstrip
��2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
��=�
��� �1600(z%())
�9�plancnv%,realrowbytes%,buff%,pbuff%:buff%+=rowbytes%
�-�mappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
�%rowstogo%-=1:�rowstogo%=0 �refill
�=�
�.� �1601(z%())
�8D�X%=0�planes%-1:F%=plbuff%+X%*rowbytes%:�readiff%,rowbytes%,F%:�
�B(�masking% �readiff%,rowbytes%,pbuff%
�L&�plancnv%,rowbytes%,plbuff%,pbuff%
�V-�mappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
�`=�
�t� �1850(z%())
�~ �readiff%,rowbytes%,plbuff%
�.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
�=�
�� �1851(z%())
� �readiff%,rowbytes%,plbuff%
�2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
��=�
��� �1900(z%())
��)�readline%,plbytes%,rep%,pix%,plbuff%
��&�plancnv%,rowbytes%,plbuff%,pbuff%
�-�mappix%,z%(1,0),r%(0),g%(0),b%(0),pbuff%
� =�
�� �2000(z%())
� X%=buff%:�
�(C%=�#c%:�C%<128 �
�2 C%+=1:ș12,4,c%,X%,C%:X%+=C%
�<�
�F0F%=X%:?F%=�#c%:�C%=C%�128�-1:?X%=?F%:X%+=1:�
�P�
�Z�X%=buff%+rowbytes%
�d,�mappix%,z%(1,0),r%(0),g%(0),b%(0),buff%
�n=�
��� �2001(z%())
��X%=buff%:�
��C%=�#c%:�C%<128 �
��&C%=(C%+1)*2:ș12,4,c%,X%,C%:X%+=C%
���
��6F%=X%:ș12,4,c%,X%,2:�C%=C%�128�-1:!X%=!F%:X%+=2:�
���
���X%=buff%+rowbytes%
��D�mappix%,z%(1,0),rpal%(0),gpal%(0),r%(0),g%(0),b%(0),buff%,buff%
��=�
��� �2002(z%())
��X%=buff%:�
�C%=�#c%:�C%<128 �
�+C%=(C%+1)*step24:ș12,4,c%,X%,C%:X%+=C%
��
�"@F%=X%:ș12,4,c%,X%,step24:�C%=C%�128�-1:!X%=!F%:X%+=step24:�
�,�
�6�X%=buff%+rowbytes%
�@2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
�J=�
�^� �2250(z%())
�hQ�mappix%,z%(1,0),rpal%(0),r%(0),gpal%(0),g%(0),bpal%(0),b%(0),table%(0),buff%
�r6buff%+=rowbytes%:rowstogo%-=1:�rowstogo%=0 �refill
�|=�
��� �2300(z%())
��H�clrfirst% �X%=0�sx%-1:rb%?X%=?back%:gb%?X%=back%?1:bb%?X%=back%?2:�
�� �vrep% �
�� vrep%-=1
���
��� �
��D� � � vrep%=-1:�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%:=�
��)E%=�:� C%=�#c%:D%=�#c%:�C%�&40 D%=�HW
��Ȏ C%�&3f �
��(� 1:E%=�:vrep%=D%-1:�vrep%<0 vrep%=�
��<� 2:ccol%=back%?D%:cbuf%=rb%+sx%*D%:�D%=255 cbuf%=alpha%
��-� 3:�X%=0�D%-1:cbuf%?X%=ccol%:�:cbuf%+=D%
�6� 5:ș12,4,c%,cbuf%,D%+1:cbuf%+=D%+1:�D%+1�1 �#c%
�1� 6:C%=�HW:�X%=0�D%:cbuf%?X%=C%:�:cbuf%+=D%+1
� �
�&�E%
�0�
�:2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
�D=�
�X� �2401(z%())
�b �bm_rle8,rowbytes%,plbuff%
�l.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
�v=�
��� �2402(z%())
�� �bm_rle4,rowbytes%,plbuff%
��.�mappix%,z%(1,0),r%(0),g%(0),b%(0),plbuff%
��=�
��� �3000(z%())
��Q�mappix%,z%(1,0),rpal%(0),r%(0),gpal%(0),g%(0),bpal%(0),b%(0),table%(0),buff%
��6buff%+=rowbytes%:rowstogo%-=1:�rowstogo%=0 �refill
��=�
��� �3500(z%())
��=�
��� �3600(z%())
�2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
� 0rb%+=rowbytes%:gb%+=rowbytes%:bb%+=rowbytes%
�(rowstogo%-=1:�rowstogo%=0 �refillpcd
� =�
�*� �3708(z%())
�44A%=jpegspace%:jpegy%-=1:B%=jpegy%:rb%=�(jpeg%+4)
�>*�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%
�H=�
�R� �3724(z%())
�\HA%=jpegspace%:jpegy%-=1:B%=jpegy%:rb%=�(jpeg%+4):gb%=rb%+1:bb%=rb%+2
�f2�mappix%,z%(1,0),r%(0),g%(0),b%(0),rb%,gb%,bb%
�p=�
�z
� �rewind
��rows%=sy%:Ȏ flag �
��� 0:�#c%=st%
��� 100:�#c%=4
��� 200:�#c%=st%:rep%=0
�� � 300:�#c%=st%:�#cc%=stcc%
��� 400:�#c%=st%:rep%=0
��5� 500:�I%=0�clearcode%-1:table%(I%)=I%:�:�#c%=st%
��F!firstcode=0:!oldcode=0:!codesize=setcodes%+1:!stack=stk%:!sp=stk%
��H!maxcode=clearcode%+2:!maxcodesize=2*clearcode%:!curbit=0:!lastbit=0
��� 501:buff%=datacache%
��� 600:�#c%=&380
��� 700:�#c%=st%
�� � 800:�#c%=0:rep%=0:wt%=0
�N� 801:�#c%=0:�#cc%=0:�#ccc%=0:rep1%=0:wt1%=0:rep2%=0:wt2%=0:rep3%=0:wt3%=0
�� 900:�#c%=0
�!� 901:�#c%=0:�#cc%=0:�#ccc%=0
�$� 902:�#c%=st%
�..� 1000:�#c%=st%:pa%=ctable%:rep%=0:rep2%=0
�8� 1100:�#c%=st%:rep%=0
�B� 1200:�#c%=1600
�L� 1300:�#c%=0
�V"� 1301:�#c%=0:�#cc%=0:�#ccc%=0
�`� 1400:�#c%=st%:vrep%=0
�j6� 1500:�#c%=st%(0):rowstogo%=striprows%:stripptr=0
�t�compression=5 �
�~F!firstcode=0:!oldcode=0:!codesize=setcodes%+1:!stack=stk%:!sp=stk%
��H!maxcode=clearcode%+2:!maxcodesize=2*clearcode%:!curbit=0:!lastbit=0
���
��� 1600:�#c%=st%
��� 1700:�#c%=16
��� 1800,1850:�#c%=st%
��� 1900:�#c%=128:rep%=-1
��� 2000:�#c%=st%
��� 2100:�#c%=7
��� 2200:�#c%=st%
��� 2250:�#c%=st%
��� 2300:�#c%=st%:vrep%=0
��� 2400:�#c%=st%
� � 2500:�#c%=st%
�
� 2600:�#c%=st%
�� 2700:�#c%=st%
� � 2800:�#c%=st%
�(� 2900:�#c%=st%
�2� 3000:�#c%=0
�<� 3600:pcdblk%!4=0
�F� 3700:jpegy%=sy%
�P� 3900,3905:�#c%=st%
�Z�
�d
�cache% �
�n�flag=3600 �
�xDpcdblk%!12=cacherows%:�refillpcd:�cache%>=filesize% rowstogo%=-1
���
��F�cache%<filesize% ș12,4,c%,datacache%,cache%:rowstogo%=cacherows%
���
��buff%=datacache%
��;�cachebytes% !incacheptr=datacache%:!numlefttogo=cache%
��L�input=24�input=48 �rbo%>=0 rb%=buff%+rbo%:gb%=buff%+gbo%:bb%=buff%+bbo%
���
��2�flag=1500 �compression=5 rowstogo%=striprows%
���
��� �Assemble_Shell
��
�I%=0�2�2
�� P%=code%
� [ OPT I%
�.Shell_Call
�MOV R9,R0
�"SMOV R0,#0:MOV R1,#0:MOV R2,#0:MOV R3,#2:MOV R4,#0:MOV R5,#0:MOV R6,#0:MOV R7,#0
�,SWI "OS_SetEnv"
�6STMFD R13!,{R0-R7, R12}
�@-MOV R0,#0:MOV R1,#0:MOV R2,#0:MOV R3,#0
�JSWI "OS_Control"
�TSTMFD R13!,{R0-R3}
�^%MOV R0,#&10:MOV R1,#0:MOV R2,#0
�h!SWI "XOS_ChangeEnvironment"
�rSTMFD R13!,{R1,R2}
�|LDR R3,[R14,#28]
��LDR R3,[R8,R3]
��STMFD R13!,{R3,R9,R14}
��SUB R9,R13,#1024
��MOV R5,R9
��-ADR R6,Shell_Job:ADR R4,Shell_Job_End
��.Shell_Copy
��LDR R2,[R6],#4
��STR R2,[R5],#4
��CMP R6,R4
��BCC Shell_Copy
��MOV PC,R9
��.Shell_Job
��LDR R2,[R3,#-4]!
�STR R2,[R9,#-4]!
�CMP R3,#&8000
� BHI Shell_Job
�&STMFD R13!,{R9}
�0ADR R0,Shell_Exit
�:KMOV R1,R9:MOV R2,#0:MOV R3,#2:MOV R4,#0:MOV R5,#0:MOV R6,#0:MOV R7,#0
�DSWI "OS_SetEnv"
�NADR R0,Shell_Error
�XADR R1,Shell_Buffer
�bMOV R2,#0:MOV R3,#0
�lSWI "OS_Control"
�vMOV R0,#&10
��ADR R1,Shell_UpCall
��MVN R2,#0
��!SWI "XOS_ChangeEnvironment"
��STR R13,Shell_Job_End
��LDR R0,[R13,#4*2]
��ADD R0,R0,R9
��SUB R0,R0,#&8000
��SWI "OS_CLI"
��.Shell_Exit
��MOV r0, #0
��.Shell_Common
�� STR r0, Shell_ErrorWord
��LDR R13,Shell_Job_End
� LDMFD R13!,{R8,R9,R10,R14}
� LDMFD R13!,{R1-R2}
�MOV R0,#&10
� SWI "OS_ChangeEnvironment"
�*LDMFD R13!,{R0-R3}
�4SWI "OS_Control"
�>LDMFD R13!,{R0-R7, R12}
�HSWI "OS_SetEnv"
�RMOV R1,#&8000
�\.Shell_Restore
�fLDR R2,[R8],#4
�pSTR R2,[R1],#4
�zCMP R1,R9
��BCC Shell_Restore
�� LDR R0,Shell_ErrorWord
��TEQ R0,#0
�� BICEQS PC,R14,#&10000000
���RNES PC,R14,#&10000000
��.Shell_UpCall
��MOV PC,R14
��.Shell_Error
�� ADR r0, Shell_Buffer + 4
��B Shell_Common
��.Shell_Buffer
��
EQUD 0
��EQUD &12345678
�EQUS �128,�13)
�EQUS �128,�13)
�.Shell_ErrorWord
�$
EQUD 0
�..Shell_Job_End
�8
EQUD 0
�B]
�L�
�VA%=Shell_Job_End+4
�`�
�t� �subtask(a$)
�~
� task% �
��ș"Wimp_StartTask",a$
���
��� code% 1024
���Assemble_Shell
��$A%=a$:�Shell_Call
���
���
� 00000000 0d 00 0a 11 f4 20 3e 20 43 68 61 6e 67 65 46 53 |..... > ChangeFS|
00000010 49 0d 00 8c 11 61 72 65 61 6e 75 6d 62 65 72 25 |I....areanumber%|
00000020 3d 30 0d 00 96 16 c8 99 22 4f 53 5f 47 65 74 45 |=0......"OS_GetE|
00000030 6e 76 22 20 b8 20 41 24 0d 00 a0 20 74 61 73 6b |nv" . A$... task|
00000040 25 3d a7 41 24 2c 22 20 2d 77 69 6d 70 22 29 3a |%=.A$," -wimp"):|
00000050 e7 74 61 73 6b 25 20 8c 0d 00 aa 1e de 20 7a 25 |.task% ...... z%|
00000060 28 31 29 2c 70 25 28 33 29 2c 73 25 28 33 29 2c |(1),p%(3),s%(3),|
00000070 6d 24 28 33 30 29 0d 00 b4 22 41 25 3d 8e 22 3c |m$(30)..."A%=."<|
00000080 43 68 61 6e 67 65 46 53 49 24 44 69 72 3e 2e 4d |ChangeFSI$Dir>.M|
00000090 65 73 73 61 67 65 73 22 0d 00 be 28 42 25 3d 2d |essages"...(B%=-|
000000a0 31 3a f5 20 42 25 2b 3d 31 3a 6d 24 28 42 25 29 |1:. B%+=1:m$(B%)|
000000b0 3d be 23 41 25 3a fd c5 23 41 25 3a d9 23 41 25 |=.#A%:..#A%:.#A%|
000000c0 0d 00 c8 1f 73 74 61 72 74 66 69 6c 65 25 3d c2 |....startfile%=.|
000000d0 41 24 2c 36 29 3c 3e 22 2d 77 69 6d 70 20 22 0d |A$,6)<>"-wimp ".|
000000e0 00 d2 1e de 20 74 61 73 6b 69 64 25 34 3a 24 74 |.... taskid%4:$t|
000000f0 61 73 6b 69 64 25 3d 22 54 41 53 4b 22 0d 00 dc |askid%="TASK"...|
00000100 37 c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 |7.. "Wimp_Initia|
00000110 6c 69 73 65 22 2c 32 30 30 2c 21 74 61 73 6b 69 |lise",200,!taski|
00000120 64 25 2c 6d 24 28 32 30 29 20 b8 20 76 65 72 73 |d%,m$(20) . vers|
00000130 69 6f 6e 25 0d 00 e6 15 e7 20 76 65 72 73 69 6f |ion%..... versio|
00000140 6e 25 3e 3d 33 35 30 20 8c 0d 00 f0 33 c8 99 22 |n%>=350 ....3.."|
00000150 4f 53 5f 4d 65 6d 6f 72 79 22 2c 38 2b 28 32 3c |OS_Memory",8+(2<|
00000160 3c 38 29 20 b8 20 2c 72 31 2c 72 32 3a 76 72 61 |<8) . ,r1,r2:vra|
00000170 6d 73 69 7a 65 25 3d 72 31 2a 72 32 0d 00 fa 22 |msize%=r1*r2..."|
00000180 e7 20 76 72 61 6d 73 69 7a 65 25 3e 30 20 76 72 |. vramsize%>0 vr|
00000190 61 6d 25 3d b9 20 8b 76 72 61 6d 25 3d a3 0d 01 |am%=. .vram%=...|
000001a0 04 05 cc 0d 01 0e 0b 76 72 61 6d 25 3d a3 0d 01 |.......vram%=...|
000001b0 18 05 cd 0d 01 22 1e 57 69 6d 70 20 20 20 20 3d |.....".Wimp =|
000001c0 20 28 31 3c 3c 31 38 29 20 2b 20 28 33 3c 3c 36 | (1<<18) + (3<<6|
000001d0 29 0d 01 2c 48 43 72 65 61 74 65 57 20 3d 20 57 |)..,HCreateW = W|
000001e0 69 6d 70 2b 31 3a 4f 70 65 6e 57 20 20 20 3d 20 |imp+1:OpenW = |
000001f0 57 69 6d 70 2b 35 20 3a 43 6c 6f 73 65 57 20 20 |Wimp+5 :CloseW |
00000200 3d 20 57 69 6d 70 2b 36 3a 52 65 64 72 61 77 57 |= Wimp+6:RedrawW|
00000210 20 3d 20 57 69 6d 70 2b 38 0d 01 36 49 55 70 64 | = Wimp+8..6IUpd|
00000220 61 74 65 57 20 3d 20 57 69 6d 70 2b 39 3a 47 65 |ateW = Wimp+9:Ge|
00000230 74 52 25 20 20 20 3d 20 57 69 6d 70 2b 31 30 3a |tR% = Wimp+10:|
00000240 47 65 74 57 20 20 20 20 3d 20 57 69 6d 70 2b 31 |GetW = Wimp+1|
00000250 31 3a 53 65 74 49 20 20 20 3d 20 57 69 6d 70 2b |1:SetI = Wimp+|
00000260 31 33 0d 01 40 49 47 65 74 49 20 20 20 20 3d 20 |13..@IGetI = |
00000270 57 69 6d 70 2b 31 34 3a 47 65 74 50 20 20 20 3d |Wimp+14:GetP =|
00000280 20 57 69 6d 70 2b 31 35 3a 44 72 61 67 20 20 20 | Wimp+15:Drag |
00000290 20 3d 20 57 69 6d 70 2b 31 36 3a 43 72 4d 65 6e | = Wimp+16:CrMen|
000002a0 75 20 3d 20 57 69 6d 70 2b 32 30 0d 01 4a 15 44 |u = Wimp+20..J.D|
000002b0 63 4d 65 6e 75 20 20 3d 20 57 69 6d 70 2b 32 31 |cMenu = Wimp+21|
000002c0 0d 01 54 38 c8 99 20 22 4f 53 5f 53 57 49 4e 75 |..T8.. "OS_SWINu|
000002d0 6d 62 65 72 46 72 6f 6d 53 74 72 69 6e 67 22 2c |mberFromString",|
000002e0 2c 22 57 69 6d 70 5f 50 6f 6c 6c 49 64 6c 65 22 |,"Wimp_PollIdle"|
000002f0 20 b8 20 50 6f 6c 6c 25 0d 01 5e 38 c8 99 20 22 | . Poll%..^8.. "|
00000300 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d |OS_SWINumberFrom|
00000310 53 74 72 69 6e 67 22 2c 2c 22 58 4f 53 5f 53 70 |String",,"XOS_Sp|
00000320 72 69 74 65 4f 70 22 20 b8 20 73 70 6f 70 78 25 |riteOp" . spopx%|
00000330 0d 01 68 36 c8 99 20 22 4f 53 5f 53 57 49 4e 75 |..h6.. "OS_SWINu|
00000340 6d 62 65 72 46 72 6f 6d 53 74 72 69 6e 67 22 2c |mberFromString",|
00000350 2c 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 20 b8 |,"OS_SpriteOp" .|
00000360 20 73 70 6f 70 25 0d 01 72 3f c8 99 20 22 4f 53 | spop%..r?.. "OS|
00000370 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 |_SWINumberFromSt|
00000380 72 69 6e 67 22 2c 2c 22 4f 53 5f 52 65 61 64 4d |ring",,"OS_ReadM|
00000390 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 22 20 b8 20 |onotonicTime" . |
000003a0 54 69 6d 65 25 0d 01 7c 4a c8 99 20 22 4f 53 5f |Time%..|J.. "OS_|
000003b0 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 |SWINumberFromStr|
000003c0 69 6e 67 22 2c 2c 22 43 6f 6c 6f 75 72 54 72 61 |ing",,"ColourTra|
000003d0 6e 73 5f 52 65 74 75 72 6e 43 6f 6c 6f 75 72 4e |ns_ReturnColourN|
000003e0 75 6d 62 65 72 22 20 b8 20 63 74 72 61 6e 25 0d |umber" . ctran%.|
000003f0 01 86 44 c8 99 20 22 4f 53 5f 53 57 49 4e 75 6d |..D.. "OS_SWINum|
00000400 62 65 72 46 72 6f 6d 53 74 72 69 6e 67 22 2c 2c |berFromString",,|
00000410 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f |"Wimp_SetCaretPo|
00000420 73 69 74 69 6f 6e 22 20 b8 20 43 61 72 65 74 70 |sition" . Caretp|
00000430 6f 73 25 0d 01 90 44 c8 99 20 22 4f 53 5f 53 57 |os%...D.. "OS_SW|
00000440 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 6e |INumberFromStrin|
00000450 67 22 2c 2c 22 57 69 6d 70 5f 47 65 74 43 61 72 |g",,"Wimp_GetCar|
00000460 65 74 50 6f 73 69 74 69 6f 6e 22 20 b8 20 47 65 |etPosition" . Ge|
00000470 74 63 61 72 65 74 25 0d 01 9a 53 c8 99 20 22 58 |tcaret%...S.. "X|
00000480 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d |OS_SWINumberFrom|
00000490 53 74 72 69 6e 67 22 2c 2c 22 44 72 61 67 41 53 |String",,"DragAS|
000004a0 70 72 69 74 65 5f 53 74 61 72 74 22 20 b8 20 64 |prite_Start" . d|
000004b0 73 74 61 72 74 25 3b 66 25 3a e7 66 25 80 20 31 |start%;f%:.f%. 1|
000004c0 20 64 73 74 61 72 74 25 3d 30 0d 01 a4 57 c8 99 | dstart%=0...W..|
000004d0 20 22 58 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 | "XOS_SWINumberF|
000004e0 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 4a 50 45 |romString",,"JPE|
000004f0 47 5f 50 6c 6f 74 53 63 61 6c 65 64 22 20 b8 20 |G_PlotScaled" . |
00000500 6a 70 65 67 70 61 69 6e 74 25 3b 66 25 3a e7 66 |jpegpaint%;f%:.f|
00000510 25 80 20 31 20 6a 70 65 67 70 61 69 6e 74 25 3d |%. 1 jpegpaint%=|
00000520 30 0d 01 ae 33 c8 99 20 22 4f 53 5f 42 79 74 65 |0...3.. "OS_Byte|
00000530 22 2c 31 36 31 2c 26 31 43 20 b8 20 2c 2c 66 25 |",161,&1C . ,,f%|
00000540 3a e7 28 66 25 80 32 29 3d 30 20 64 73 74 61 72 |:.(f%.2)=0 dstar|
00000550 74 25 3d 30 0d 01 b8 13 6e 65 78 74 6c 6f 63 61 |t%=0....nextloca|
00000560 74 69 6f 6e 25 3d 93 0d 01 c2 2c c8 99 20 22 57 |tion%=....,.. "W|
00000570 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 |imp_SlotSize",-1|
00000580 2c 2d 31 20 b8 20 6f 72 69 67 69 6e 61 6c 73 6c |,-1 . originalsl|
00000590 6f 74 25 0d 01 cc 16 f2 6c 6f 63 61 6c 65 5f 69 |ot%.....locale_i|
000005a0 6e 69 74 69 61 6c 69 73 65 0d 01 e0 15 e7 20 76 |nitialise..... v|
000005b0 65 72 73 69 6f 6e 25 3e 3d 33 30 30 20 8c 0d 01 |ersion%>=300 ...|
000005c0 ea 59 de 20 71 25 20 32 35 35 2c 69 66 61 63 74 |.Y. q% 255,ifact|
000005d0 6f 72 73 25 20 31 35 2c 66 61 63 74 6f 72 73 25 |ors% 15,factors%|
000005e0 20 31 35 2c 70 69 78 74 72 61 6e 73 25 20 32 35 | 15,pixtrans% 25|
000005f0 35 2c 70 61 6c 74 65 6d 70 25 20 31 30 32 33 2c |5,paltemp% 1023,|
00000600 62 75 66 66 65 72 25 20 32 35 35 2c 69 64 61 74 |buffer% 255,idat|
00000610 61 25 20 31 30 32 33 0d 01 f4 05 cc 0d 01 fe 61 |a% 1023........a|
00000620 de 20 7a 25 20 31 36 39 39 2c 71 25 20 32 35 35 |. z% 1699,q% 255|
00000630 2c 69 66 61 63 74 6f 72 73 25 20 31 35 2c 66 61 |,ifactors% 15,fa|
00000640 63 74 6f 72 73 25 20 31 35 2c 70 69 78 74 72 61 |ctors% 15,pixtra|
00000650 6e 73 25 20 32 35 35 2c 70 61 6c 74 65 6d 70 25 |ns% 255,paltemp%|
00000660 20 31 30 32 33 2c 62 75 66 66 65 72 25 20 32 35 | 1023,buffer% 25|
00000670 35 2c 69 64 61 74 61 25 20 32 33 39 39 0d 02 08 |5,idata% 2399...|
00000680 17 65 69 64 61 74 61 25 3d 69 64 61 74 61 25 2b |.eidata%=idata%+|
00000690 32 34 30 30 0d 02 12 05 cd 0d 02 26 32 73 63 72 |2400.......&2scr|
000006a0 61 70 25 3d a3 3a 73 70 72 69 74 65 25 3d a3 3a |ap%=.:sprite%=.:|
000006b0 73 61 72 25 3d a3 3a 73 61 76 65 64 25 3d b9 3a |sar%=.:saved%=.:|
000006c0 7a 24 3d c4 31 32 2c bd 31 33 29 0d 02 3a 1f c8 |z$=.12,.13)..:..|
000006d0 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 36 31 2c |. "OS_Byte",161,|
000006e0 26 38 43 20 b8 20 2c 2c 66 25 0d 02 44 0d e7 66 |&8C . ,,f%..D..f|
000006f0 25 20 80 20 31 20 8c 0d 02 4e 37 c8 99 22 57 69 |% . 1 ...N7.."Wi|
00000700 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 |mp_OpenTemplate"|
00000710 2c 2c 22 3c 43 68 61 6e 67 65 46 53 49 24 44 69 |,,"<ChangeFSI$Di|
00000720 72 3e 2e 33 64 54 65 6d 70 6c 61 74 65 22 0d 02 |r>.3dTemplate"..|
00000730 58 05 cc 0d 02 62 36 c8 99 22 57 69 6d 70 5f 4f |X....b6.."Wimp_O|
00000740 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c |penTemplate",,"<|
00000750 43 68 61 6e 67 65 46 53 49 24 44 69 72 3e 2e 54 |ChangeFSI$Dir>.T|
00000760 65 6d 70 6c 61 74 65 73 22 0d 02 6c 05 cd 0d 02 |emplates"..l....|
00000770 80 07 ea 20 85 0d 02 8a 36 ee 20 85 20 c8 99 22 |... ....6. . .."|
00000780 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 |Wimp_CloseTempla|
00000790 74 65 22 3a 85 20 30 2c f6 24 2b 22 20 28 63 6f |te":. 0,.$+" (co|
000007a0 64 65 20 22 2b c3 9e 2b 22 29 22 0d 02 9e 14 e7 |de "+..+")".....|
000007b0 76 65 72 73 69 6f 6e 25 3e 3d 33 30 30 20 8c 0d |version%>=300 ..|
000007c0 02 b2 0b 6e 61 6d 65 3d 71 25 0d 02 bc 24 24 6e |...name=q%...$$n|
000007d0 61 6d 65 3d 22 2a 22 3a 68 65 72 65 25 3d 30 3a |ame="*":here%=0:|
000007e0 6c 61 72 67 65 73 74 5f 74 65 6d 25 3d 30 0d 02 |largest_tem%=0..|
000007f0 c6 3b c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 |.;.. "Wimp_LoadT|
00000800 65 6d 70 6c 61 74 65 22 2c 20 2c 30 2c 2c 2c 2c |emplate", ,0,,,,|
00000810 6e 61 6d 65 2c 30 20 b8 20 2c 73 69 7a 65 25 2c |name,0 . ,size%,|
00000820 2c 2c 2c 2c 68 65 72 65 25 0d 02 d0 0c c8 95 20 |,,,,here%...... |
00000830 68 65 72 65 25 0d 02 da 2b e7 20 6c 61 72 67 65 |here%...+. large|
00000840 73 74 5f 74 65 6d 25 3c 73 69 7a 65 25 20 6c 61 |st_tem%<size% la|
00000850 72 67 65 73 74 5f 74 65 6d 25 3d 73 69 7a 65 25 |rgest_tem%=size%|
00000860 0d 02 e4 0d 24 6e 61 6d 65 3d 22 2a 22 0d 02 ee |....$name="*"...|
00000870 3f c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 |?.. "Wimp_LoadTe|
00000880 6d 70 6c 61 74 65 22 2c 20 2c 30 2c 2c 2c 2c 6e |mplate", ,0,,,,n|
00000890 61 6d 65 2c 68 65 72 65 25 20 b8 20 2c 73 69 7a |ame,here% . ,siz|
000008a0 65 25 2c 2c 2c 2c 2c 68 65 72 65 25 0d 02 f8 05 |e%,,,,,here%....|
000008b0 ce 0d 03 02 15 de 20 7a 25 20 6c 61 72 67 65 73 |...... z% larges|
000008c0 74 5f 74 65 6d 25 0d 03 0c 05 cd 0d 03 20 17 f2 |t_tem%....... ..|
000008d0 64 6f 74 65 6d 70 6c 61 74 65 28 22 49 6e 66 6f |dotemplate("Info|
000008e0 22 29 0d 03 2a 34 c8 99 20 43 72 65 61 74 65 57 |")..*4.. CreateW|
000008f0 2c 2c 7a 25 20 b8 20 69 6e 66 6f 77 25 3a 24 21 |,,z% . infow%:$!|
00000900 28 7a 25 2b 38 38 2b 37 2a 33 32 2b 32 30 29 3d |(z%+88+7*32+20)=|
00000910 6d 24 28 32 31 29 0d 03 3e 1d f2 64 6f 74 65 6d |m$(21)..>..dotem|
00000920 70 6c 61 74 65 28 22 50 72 6f 63 65 73 73 69 6e |plate("Processin|
00000930 67 22 29 0d 03 48 1a c8 99 20 43 72 65 61 74 65 |g")..H... Create|
00000940 57 2c 2c 7a 25 20 b8 20 70 72 6f 63 25 0d 03 52 |W,,z% . proc%..R|
00000950 61 70 25 28 30 29 3d 21 28 7a 25 2b 38 38 2b 38 |ap%(0)=!(z%+88+8|
00000960 2a 33 32 2b 32 30 29 3a 70 25 28 31 29 3d 21 28 |*32+20):p%(1)=!(|
00000970 7a 25 2b 38 38 2b 39 2a 33 32 2b 32 30 29 3a 70 |z%+88+9*32+20):p|
00000980 25 28 32 29 3d 21 28 7a 25 2b 38 38 2b 31 30 2a |%(2)=!(z%+88+10*|
00000990 33 32 2b 32 30 29 3a 70 25 28 33 29 3d 21 28 7a |32+20):p%(3)=!(z|
000009a0 25 2b 38 38 2b 31 32 2a 33 32 2b 32 30 29 0d 03 |%+88+12*32+20)..|
000009b0 66 19 f2 64 6f 74 65 6d 70 6c 61 74 65 28 22 4f |f..dotemplate("O|
000009c0 75 74 70 75 74 22 29 0d 03 70 6b c8 99 20 43 72 |utput")..pk.. Cr|
000009d0 65 61 74 65 57 2c 2c 7a 25 20 b8 20 6f 75 74 70 |eateW,,z% . outp|
000009e0 75 74 25 3a 61 64 6d 6f 64 65 25 3d 21 28 7a 25 |ut%:admode%=!(z%|
000009f0 2b 38 38 2b 32 30 2a 33 32 2b 32 30 29 3a 61 64 |+88+20*32+20):ad|
00000a00 73 70 63 6c 25 3d 21 28 7a 25 2b 38 38 2b 31 39 |spcl%=!(z%+88+19|
00000a10 2a 33 32 2b 32 30 29 3a 6f 6c 64 6d 6f 64 65 25 |*32+20):oldmode%|
00000a20 3d 21 28 7a 25 2b 38 38 2b 33 34 2a 33 32 2b 32 |=!(z%+88+34*32+2|
00000a30 30 29 0d 03 84 1a f2 64 6f 74 65 6d 70 6c 61 74 |0).....dotemplat|
00000a40 65 28 22 53 63 61 6c 69 6e 67 22 29 0d 03 8e 36 |e("Scaling")...6|
00000a50 c8 99 20 43 72 65 61 74 65 57 2c 2c 7a 25 20 b8 |.. CreateW,,z% .|
00000a60 20 73 63 61 6c 65 77 25 3a 61 64 73 63 61 6c 65 | scalew%:adscale|
00000a70 25 3d 21 28 7a 25 2b 38 38 2b 31 2a 33 32 2b 32 |%=!(z%+88+1*32+2|
00000a80 30 29 0d 03 98 63 73 25 28 30 29 3d 21 28 7a 25 |0)...cs%(0)=!(z%|
00000a90 2b 38 38 2b 31 30 2a 33 32 2b 32 30 29 3a 73 25 |+88+10*32+20):s%|
00000aa0 28 31 29 3d 21 28 7a 25 2b 38 38 2b 31 31 2a 33 |(1)=!(z%+88+11*3|
00000ab0 32 2b 32 30 29 3a 73 25 28 32 29 3d 21 28 7a 25 |2+20):s%(2)=!(z%|
00000ac0 2b 38 38 2b 31 32 2a 33 32 2b 32 30 29 3a 73 25 |+88+12*32+20):s%|
00000ad0 28 33 29 3d 21 28 7a 25 2b 38 38 2b 31 33 2a 33 |(3)=!(z%+88+13*3|
00000ae0 32 2b 32 30 29 0d 03 ac 17 f2 64 6f 74 65 6d 70 |2+20).....dotemp|
00000af0 6c 61 74 65 28 22 53 61 76 65 22 29 0d 03 b6 52 |late("Save")...R|
00000b00 c8 99 20 43 72 65 61 74 65 57 2c 2c 7a 25 20 b8 |.. CreateW,,z% .|
00000b10 20 73 61 76 65 25 3a 61 64 73 61 76 65 25 3d 21 | save%:adsave%=!|
00000b20 28 7a 25 2b 38 38 2b 31 2a 33 32 2b 32 30 29 3a |(z%+88+1*32+20):|
00000b30 61 64 73 61 76 65 73 70 72 69 74 65 25 3d 21 28 |adsavesprite%=!(|
00000b40 7a 25 2b 38 38 2b 30 2a 33 32 2b 32 30 29 0d 03 |z%+88+0*32+20)..|
00000b50 ca 19 f2 64 6f 74 65 6d 70 6c 61 74 65 28 22 53 |...dotemplate("S|
00000b60 70 72 69 74 65 22 29 0d 03 d4 50 c8 99 20 43 72 |prite")...P.. Cr|
00000b70 65 61 74 65 57 2c 2c 7a 25 20 b8 20 73 69 6e 66 |eateW,,z% . sinf|
00000b80 6f 25 3a 61 64 73 6e 61 6d 65 25 3d 21 28 7a 25 |o%:adsname%=!(z%|
00000b90 2b 38 38 2b 35 2a 33 32 2b 32 30 29 3a 61 64 73 |+88+5*32+20):ads|
00000ba0 62 79 74 65 73 25 3d 21 28 7a 25 2b 38 38 2b 38 |bytes%=!(z%+88+8|
00000bb0 2a 33 32 2b 32 30 29 0d 03 de 48 61 64 73 78 25 |*32+20)...Hadsx%|
00000bc0 3d 21 28 7a 25 2b 38 38 2b 37 2a 33 32 2b 32 30 |=!(z%+88+7*32+20|
00000bd0 29 3a 61 64 73 79 25 3d 21 28 7a 25 2b 38 38 2b |):adsy%=!(z%+88+|
00000be0 39 2a 33 32 2b 32 30 29 3a 61 64 73 6d 25 3d 21 |9*32+20):adsm%=!|
00000bf0 28 7a 25 2b 38 38 2b 36 2a 33 32 2b 32 30 29 0d |(z%+88+6*32+20).|
00000c00 03 f2 19 f2 64 6f 74 65 6d 70 6c 61 74 65 28 22 |....dotemplate("|
00000c10 53 6f 75 72 63 65 22 29 0d 03 fc 35 c8 99 20 43 |Source")...5.. C|
00000c20 72 65 61 74 65 57 2c 2c 7a 25 20 b8 20 73 72 63 |reateW,,z% . src|
00000c30 69 6e 66 6f 25 3a 61 64 73 72 63 25 3d 21 28 7a |info%:adsrc%=!(z|
00000c40 25 2b 38 38 2b 30 2a 33 32 2b 32 30 29 0d 04 10 |%+88+0*32+20)...|
00000c50 18 f2 64 6f 74 65 6d 70 6c 61 74 65 28 22 52 61 |..dotemplate("Ra|
00000c60 6e 67 65 22 29 0d 04 1a 35 c8 99 20 43 72 65 61 |nge")...5.. Crea|
00000c70 74 65 57 2c 2c 7a 25 20 b8 20 72 61 6e 69 6e 66 |teW,,z% . raninf|
00000c80 6f 25 3a 61 64 72 61 6e 25 3d 21 28 7a 25 2b 38 |o%:adran%=!(z%+8|
00000c90 38 2b 30 2a 33 32 2b 32 30 29 0d 04 2e 17 f2 64 |8+0*32+20).....d|
00000ca0 6f 74 65 6d 70 6c 61 74 65 28 22 5a 6f 6f 6d 22 |otemplate("Zoom"|
00000cb0 29 0d 04 38 48 c8 99 20 43 72 65 61 74 65 57 2c |)..8H.. CreateW,|
00000cc0 2c 7a 25 20 b8 20 7a 6f 6f 6d 25 3a 7a 25 28 30 |,z% . zoom%:z%(0|
00000cd0 29 3d 21 28 7a 25 2b 38 38 2b 34 2a 33 32 2b 32 |)=!(z%+88+4*32+2|
00000ce0 30 29 3a 7a 25 28 31 29 3d 21 28 7a 25 2b 38 38 |0):z%(1)=!(z%+88|
00000cf0 2b 35 2a 33 32 2b 32 30 29 0d 04 4c 1d f2 64 6f |+5*32+20)..L..do|
00000d00 74 65 6d 70 6c 61 74 65 28 22 4a 50 45 47 4f 75 |template("JPEGOu|
00000d10 74 70 75 74 22 29 0d 04 56 35 c8 99 20 43 72 65 |tput")..V5.. Cre|
00000d20 61 74 65 57 2c 2c 7a 25 20 b8 20 6a 70 65 67 6f |ateW,,z% . jpego|
00000d30 25 3a 61 64 6a 70 65 67 71 25 3d 21 28 7a 25 2b |%:adjpegq%=!(z%+|
00000d40 38 38 2b 35 2a 33 32 2b 32 30 29 0d 04 6a 16 f2 |88+5*32+20)..j..|
00000d50 64 6f 74 65 6d 70 6c 61 74 65 28 22 50 69 63 22 |dotemplate("Pic"|
00000d60 29 0d 04 74 28 c8 99 20 43 72 65 61 74 65 57 2c |)..t(.. CreateW,|
00000d70 2c 7a 25 20 b8 20 70 69 63 25 3a 61 64 74 69 74 |,z% . pic%:adtit|
00000d80 6c 65 25 3d 7a 25 21 37 32 0d 04 88 07 f7 20 85 |le%=z%!72..... .|
00000d90 0d 04 92 1a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 |......"Wimp_Clos|
00000da0 65 54 65 6d 70 6c 61 74 65 22 0d 04 9c 40 21 71 |eTemplate"...@!q|
00000db0 25 3d 2d 31 3a 71 25 21 34 3d 30 3a 71 25 21 38 |%=-1:q%!4=0:q%!8|
00000dc0 3d 30 3a 71 25 21 31 32 3d 36 38 3a 71 25 21 31 |=0:q%!12=68:q%!1|
00000dd0 36 3d 36 38 3a 71 25 21 32 30 3d 25 31 31 30 30 |6=68:q%!20=%1100|
00000de0 30 30 30 30 30 30 30 30 31 30 0d 04 a6 3a 24 28 |0000000010...:$(|
00000df0 71 25 2b 32 34 29 3d 22 21 22 2b 6d 24 28 32 30 |q%+24)="!"+m$(20|
00000e00 29 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 |):.."Wimp_Create|
00000e10 49 63 6f 6e 22 2c 2c 71 25 20 b8 20 69 63 6f 6e |Icon",,q% . icon|
00000e20 62 61 72 25 0d 04 b0 29 41 25 3d 8e 22 3c 43 68 |bar%...)A%=."<Ch|
00000e30 61 6e 67 65 46 53 49 24 44 69 72 3e 2e 43 68 6f |angeFSI$Dir>.Cho|
00000e40 69 63 65 73 22 3a e7 41 25 3d 30 20 8c 0d 04 ba |ices":.A%=0 ....|
00000e50 5d 66 61 73 74 25 3d a3 3a 64 65 73 74 25 3d 31 |]fast%=.:dest%=1|
00000e60 3a 73 74 61 74 65 73 63 61 6c 65 25 3d 25 31 30 |:statescale%=%10|
00000e70 30 30 30 30 30 30 31 30 30 3a 73 74 61 74 65 70 |000000100:statep|
00000e80 72 6f 63 25 3d 30 3a 73 74 61 74 65 6f 75 74 70 |roc%=0:stateoutp|
00000e90 75 74 25 3d 26 34 30 35 32 30 30 38 3a 73 74 61 |ut%=&4052008:sta|
00000ea0 74 65 6a 70 65 67 25 3d 26 32 0d 04 c4 4e 24 70 |tejpeg%=&2...N$p|
00000eb0 25 28 30 29 3d 22 22 3a 24 70 25 28 31 29 3d 22 |%(0)="":$p%(1)="|
00000ec0 32 22 2b 64 65 63 69 6d 61 6c 5f 70 6f 69 6e 74 |2"+decimal_point|
00000ed0 24 2b 22 32 22 3a 24 70 25 28 32 29 3d 22 32 34 |$+"2":$p%(2)="24|
00000ee0 22 3a 24 70 25 28 33 29 3d 22 34 22 3a 24 61 64 |":$p%(3)="4":$ad|
00000ef0 73 70 63 6c 25 3d 22 22 0d 04 ce 3d 24 61 64 6d |spcl%=""...=$adm|
00000f00 6f 64 65 25 3d 22 32 38 22 3a 24 73 25 28 30 29 |ode%="28":$s%(0)|
00000f10 3d 22 31 22 3a 24 73 25 28 31 29 3d 22 34 22 3a |="1":$s%(1)="4":|
00000f20 24 73 25 28 32 29 3d 22 31 22 3a 24 73 25 28 33 |$s%(2)="1":$s%(3|
00000f30 29 3d 22 34 22 0d 04 d8 1f 24 61 64 6a 70 65 67 |)="4"....$adjpeg|
00000f40 71 25 3d 22 37 35 22 3a 24 6f 6c 64 6d 6f 64 65 |q%="75":$oldmode|
00000f50 25 3d 22 22 0d 04 e2 05 cc 0d 04 ec 57 e8 23 41 |%=""........W.#A|
00000f60 25 2c 66 61 73 74 25 2c 64 65 73 74 25 2c 73 74 |%,fast%,dest%,st|
00000f70 61 74 65 73 63 61 6c 65 25 2c 73 74 61 74 65 70 |atescale%,statep|
00000f80 72 6f 63 25 2c 73 74 61 74 65 6f 75 74 70 75 74 |roc%,stateoutput|
00000f90 25 2c 73 74 61 74 65 6a 70 65 67 25 2c 24 61 64 |%,statejpeg%,$ad|
00000fa0 6a 70 65 67 71 25 2c 24 6f 6c 64 6d 6f 64 65 25 |jpegq%,$oldmode%|
00000fb0 0d 04 f6 36 e8 23 41 25 2c 24 70 25 28 30 29 2c |...6.#A%,$p%(0),|
00000fc0 24 70 25 28 31 29 2c 24 70 25 28 32 29 2c 24 70 |$p%(1),$p%(2),$p|
00000fd0 25 28 33 29 2c 24 61 64 6d 6f 64 65 25 2c 24 61 |%(3),$admode%,$a|
00000fe0 64 73 70 63 6c 25 0d 05 00 35 24 70 25 28 31 29 |dspcl%...5$p%(1)|
00000ff0 3d a4 6c 6f 63 61 6c 65 5f 63 6f 6e 76 65 72 74 |=.locale_convert|
00001000 28 24 70 25 28 31 29 2c 22 2e 22 2c 64 65 63 69 |($p%(1),".",deci|
00001010 6d 61 6c 5f 70 6f 69 6e 74 24 29 0d 05 0a 24 e8 |mal_point$)...$.|
00001020 23 41 25 2c 24 73 25 28 30 29 2c 24 73 25 28 31 |#A%,$s%(0),$s%(1|
00001030 29 2c 24 73 25 28 32 29 2c 24 73 25 28 33 29 0d |),$s%(2),$s%(3).|
00001040 05 14 08 d9 23 41 25 0d 05 1e 05 cd 0d 05 28 0f |....#A%.......(.|
00001050 71 25 21 31 32 3d 31 3c 3c 32 31 0d 05 32 3d 21 |q%!12=1<<21..2=!|
00001060 71 25 3d 73 63 61 6c 65 77 25 3a e3 49 25 3d 30 |q%=scalew%:.I%=0|
00001070 b8 39 3a e7 73 74 61 74 65 73 63 61 6c 65 25 3e |.9:.statescale%>|
00001080 3e 49 25 80 31 20 71 25 21 38 3d 31 3c 3c 32 31 |>I%.1 q%!8=1<<21|
00001090 20 8b 71 25 21 38 3d 30 0d 05 3c 19 71 25 21 34 | .q%!8=0..<.q%!4|
000010a0 3d 49 25 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a |=I%:.. SetI,,q%:|
000010b0 ed 0d 05 46 33 e3 49 25 3d 31 30 b8 31 33 3a e7 |...F3.I%=10.13:.|
000010c0 73 74 61 74 65 73 63 61 6c 65 25 3e 3e 49 25 80 |statescale%>>I%.|
000010d0 31 20 71 25 21 38 3d 31 3c 3c 32 31 20 8b 71 25 |1 q%!8=1<<21 .q%|
000010e0 21 38 3d 30 0d 05 50 1b 71 25 21 34 3d 49 25 2b |!8=0..P.q%!4=I%+|
000010f0 36 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a ed 0d |6:.. SetI,,q%:..|
00001100 05 5a 3a 21 71 25 3d 70 72 6f 63 25 3a e3 49 25 |.Z:!q%=proc%:.I%|
00001110 3d 30 b8 37 3a e7 73 74 61 74 65 70 72 6f 63 25 |=0.7:.stateproc%|
00001120 3e 3e 49 25 80 31 20 71 25 21 38 3d 31 3c 3c 32 |>>I%.1 q%!8=1<<2|
00001130 31 20 8b 71 25 21 38 3d 30 0d 05 64 19 71 25 21 |1 .q%!8=0..d.q%!|
00001140 34 3d 49 25 3a c8 99 20 53 65 74 49 2c 2c 71 25 |4=I%:.. SetI,,q%|
00001150 3a ed 0d 05 6e 3f 21 71 25 3d 6f 75 74 70 75 74 |:...n?!q%=output|
00001160 25 3a e3 49 25 3d 30 b8 32 36 3a e7 73 74 61 74 |%:.I%=0.26:.stat|
00001170 65 6f 75 74 70 75 74 25 3e 3e 49 25 80 31 20 71 |eoutput%>>I%.1 q|
00001180 25 21 38 3d 31 3c 3c 32 31 20 8b 71 25 21 38 3d |%!8=1<<21 .q%!8=|
00001190 30 0d 05 78 19 71 25 21 34 3d 49 25 3a c8 99 20 |0..x.q%!4=I%:.. |
000011a0 53 65 74 49 2c 2c 71 25 3a ed 0d 05 82 3b 21 71 |SetI,,q%:....;!q|
000011b0 25 3d 6a 70 65 67 6f 25 3a e3 49 25 3d 30 b8 33 |%=jpego%:.I%=0.3|
000011c0 3a e7 73 74 61 74 65 6a 70 65 67 25 3e 3e 49 25 |:.statejpeg%>>I%|
000011d0 80 31 20 71 25 21 38 3d 31 3c 3c 32 31 20 8b 71 |.1 q%!8=1<<21 .q|
000011e0 25 21 38 3d 30 0d 05 8c 19 71 25 21 34 3d 49 25 |%!8=0....q%!4=I%|
000011f0 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a ed 0d 05 |:.. SetI,,q%:...|
00001200 96 2a e7 73 74 61 74 65 6f 75 74 70 75 74 25 3e |.*.stateoutput%>|
00001210 3e 31 37 80 31 20 71 25 21 38 3d 31 3c 3c 32 32 |>17.1 q%!8=1<<22|
00001220 20 8b 71 25 21 38 3d 30 0d 05 a0 69 21 71 25 3d | .q%!8=0...i!q%=|
00001230 6f 75 74 70 75 74 25 3a 71 25 21 31 32 3d 31 3c |output%:q%!12=1<|
00001240 3c 32 32 3a 71 25 21 34 3d 37 3a c8 99 20 53 65 |<22:q%!4=7:.. Se|
00001250 74 49 2c 2c 71 25 3a 71 25 21 34 3d 38 3a c8 99 |tI,,q%:q%!4=8:..|
00001260 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 34 3d 31 | SetI,,q%:q%!4=1|
00001270 33 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 25 |3:.. SetI,,q%:q%|
00001280 21 34 3d 31 34 3a c8 99 20 53 65 74 49 2c 2c 71 |!4=14:.. SetI,,q|
00001290 25 0d 05 aa 29 f2 73 68 6f 77 73 63 61 6c 65 74 |%...).showscalet|
000012a0 6f 66 69 74 3a 24 7a 25 28 30 29 3d 22 31 22 3a |ofit:$z%(0)="1":|
000012b0 24 7a 25 28 31 29 3d 22 31 22 0d 05 b4 20 c8 99 |$z%(1)="1"... ..|
000012c0 20 22 4f 53 5f 55 70 64 61 74 65 4d 45 4d 43 22 | "OS_UpdateMEMC"|
000012d0 20 b8 20 6f 6c 64 6d 65 6d 63 0d 05 be 0f 6a 70 | . oldmemc....jp|
000012e0 65 67 73 61 76 65 25 3d a3 0d 05 c8 3e ee 20 85 |egsave%=....>. .|
000012f0 20 c8 99 22 4f 53 5f 55 70 64 61 74 65 4d 45 4d | .."OS_UpdateMEM|
00001300 43 22 2c 6f 6c 64 6d 65 6d 63 2c 26 37 30 30 3a |C",oldmemc,&700:|
00001310 f2 65 72 72 6f 72 62 6f 78 3a c8 99 20 43 72 4d |.errorbox:.. CrM|
00001320 65 6e 75 2c 2c 2d 31 0d 05 d2 0f c8 99 20 44 72 |enu,,-1...... Dr|
00001330 61 67 2c 2c 2d 31 0d 05 dc 31 e7 ac 73 70 72 69 |ag,,-1...1..spri|
00001340 74 65 25 20 c8 99 20 22 57 69 6d 70 5f 53 6c 6f |te% .. "Wimp_Slo|
00001350 74 53 69 7a 65 22 2c 6f 72 69 67 69 6e 61 6c 73 |tSize",originals|
00001360 6c 6f 74 25 2c 2d 31 0d 05 e6 42 46 24 3d 22 22 |lot%,-1...BF$=""|
00001370 3a e7 73 74 61 72 74 66 69 6c 65 25 20 73 74 61 |:.startfile% sta|
00001380 72 74 66 69 6c 65 25 3d a3 3a 46 24 3d c1 41 24 |rtfile%=.:F$=.A$|
00001390 2c a7 41 24 2c 22 2d 77 69 6d 70 22 29 2b 36 29 |,.A$,"-wimp")+6)|
000013a0 3a f2 63 61 6c 6c 46 53 49 0d 05 f0 05 f5 0d 05 |:.callFSI.......|
000013b0 fa 16 c8 99 20 50 6f 6c 6c 25 2c 31 2c 71 25 20 |.... Poll%,1,q% |
000013c0 b8 20 41 25 0d 06 04 0b c8 8e 20 41 25 20 ca 0d |. A%...... A% ..|
000013d0 06 0e 25 c9 20 31 20 3a e7 73 70 72 69 74 65 25 |..%. 1 :.sprite%|
000013e0 20 f2 72 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 | .redraw_window(|
000013f0 21 71 25 29 0d 06 18 42 c9 20 32 20 3a f2 6f 70 |!q%)...B. 2 :.op|
00001400 65 6e 5f 77 69 6e 64 6f 77 28 21 71 25 2c 71 25 |en_window(!q%,q%|
00001410 21 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 |!4,q%!8,q%!12,q%|
00001420 21 31 36 2c 71 25 21 32 30 2c 71 25 21 32 34 2c |!16,q%!20,q%!24,|
00001430 71 25 21 32 38 29 0d 06 22 32 c9 20 33 20 3a c8 |q%!28).."2. 3 :.|
00001440 99 20 26 34 30 30 63 33 2c 2c 71 25 3a 6e 65 78 |. &400c3,,q%:nex|
00001450 74 6c 6f 63 61 74 69 6f 6e 25 3d 93 3a f2 72 65 |tlocation%=.:.re|
00001460 6d 6f 76 65 61 72 65 61 0d 06 2c 3a c8 99 20 22 |movearea..,:.. "|
00001470 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 6f |Wimp_SlotSize",o|
00001480 72 69 67 69 6e 61 6c 73 6c 6f 74 25 2c 2d 31 3a |riginalslot%,-1:|
00001490 73 61 76 65 64 25 3d b9 3a 73 70 72 69 74 65 25 |saved%=.:sprite%|
000014a0 3d a3 0d 06 36 35 c9 20 36 20 3a f2 63 68 65 63 |=...65. 6 :.chec|
000014b0 6b 6d 6f 75 73 65 28 21 71 25 2c 71 25 21 34 2c |kmouse(!q%,q%!4,|
000014c0 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 31 36 |q%!8,q%!12,q%!16|
000014d0 2c 71 25 21 32 30 29 0d 06 40 46 c9 20 37 20 3a |,q%!20)..@F. 7 :|
000014e0 c8 99 20 47 65 74 50 2c 2c 71 25 3a 64 77 25 3d |.. GetP,,q%:dw%=|
000014f0 71 25 21 31 32 3a 64 69 25 3d 71 25 21 31 36 3a |q%!12:di%=q%!16:|
00001500 e7 64 73 74 61 72 74 25 20 c8 99 22 44 72 61 67 |.dstart% .."Drag|
00001510 41 53 70 72 69 74 65 5f 53 74 6f 70 22 0d 06 4a |ASprite_Stop"..J|
00001520 4a 71 25 21 31 32 3d 30 3a 71 25 21 31 36 3d 31 |Jq%!12=0:q%!16=1|
00001530 3a 71 25 21 32 30 3d 64 77 25 3a 71 25 21 32 34 |:q%!20=dw%:q%!24|
00001540 3d 64 69 25 3a 71 25 21 32 38 3d 21 71 25 3a 71 |=di%:q%!28=!q%:q|
00001550 25 21 33 32 3d 71 25 21 34 3a 71 25 21 33 36 3d |%!32=q%!4:q%!36=|
00001560 21 73 61 72 25 2b 33 0d 06 54 26 e7 6a 70 65 67 |!sar%+3..T&.jpeg|
00001570 73 61 76 65 25 20 8c 71 25 21 34 30 3d 26 63 38 |save% .q%!40=&c8|
00001580 35 20 8b 71 25 21 34 30 3d 26 66 66 39 0d 06 5e |5 .q%!40=&ff9..^|
00001590 2e 74 65 6d 70 24 3d a4 5a 53 28 61 64 73 61 76 |.temp$=.ZS(adsav|
000015a0 65 25 29 3a 66 6f 6f 25 3d a7 74 65 6d 70 24 2c |e%):foo%=.temp$,|
000015b0 22 2e 22 29 3a c8 95 66 6f 6f 25 0d 06 68 29 74 |"."):..foo%..h)t|
000015c0 65 6d 70 24 3d c1 74 65 6d 70 24 2c 66 6f 6f 25 |emp$=.temp$,foo%|
000015d0 2b 31 29 3a 66 6f 6f 25 3d a7 74 65 6d 70 24 2c |+1):foo%=.temp$,|
000015e0 22 2e 22 29 0d 06 72 05 ce 0d 06 7c 2c 24 28 71 |".")..r....|,$(q|
000015f0 25 2b 34 34 29 3d 74 65 6d 70 24 2b bd 30 3a 21 |%+44)=temp$+.0:!|
00001600 71 25 3d 34 34 2b 28 a9 74 65 6d 70 24 2b 31 2b |q%=44+(.temp$+1+|
00001610 33 80 ac 33 29 0d 06 86 33 c8 99 20 22 57 69 6d |3..3)...3.. "Wim|
00001620 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
00001630 37 2c 71 25 2c 64 77 25 2c 64 69 25 3a 6d 79 72 |7,q%,dw%,di%:myr|
00001640 65 66 25 3d 71 25 21 38 0d 06 90 1d c9 20 38 20 |ef%=q%!8..... 8 |
00001650 3a f2 6b 65 79 28 21 71 25 2c 71 25 21 34 2c 71 |:.key(!q%,q%!4,q|
00001660 25 21 32 34 29 0d 06 9a 18 c9 20 39 20 3a f2 6d |%!24)..... 9 :.m|
00001670 65 6e 75 73 65 6c 65 63 74 28 71 25 29 0d 06 a4 |enuselect(q%)...|
00001680 18 c9 20 31 37 2c 31 38 3a f2 72 65 63 65 69 76 |.. 17,18:.receiv|
00001690 65 28 71 25 29 0d 06 ae 05 cb 0d 06 b8 07 fd 20 |e(q%).......... |
000016a0 a3 0d 06 c2 05 cc 0d 06 cc 08 51 25 3d 93 0d 06 |..........Q%=...|
000016b0 d6 0e e0 3d 26 34 30 30 30 30 30 30 0d 06 e0 53 |...=&4000000...S|
000016c0 ee 20 85 20 ee 20 85 20 87 3a ff 22 53 65 74 20 |. . . . .:."Set |
000016d0 43 68 61 6e 67 65 46 53 49 24 52 65 74 75 72 6e |ChangeFSI$Return|
000016e0 43 6f 64 65 20 22 2b f6 24 2b 22 20 28 63 6f 64 |Code "+.$+" (cod|
000016f0 65 20 22 2b c3 9e 2b 22 29 22 3a f2 72 65 6d 6f |e "+..+")":.remo|
00001700 76 65 61 72 65 61 3a d8 3a e0 3d 51 25 3a e0 0d |vearea:.:.=Q%:..|
00001710 06 ea 31 66 6f 6f 25 3d 30 3a 41 25 3d a4 43 68 |..1foo%=0:A%=.Ch|
00001720 61 6e 67 65 46 53 49 28 41 24 2c 2d 31 2c 2d 31 |angeFSI(A$,-1,-1|
00001730 2c 30 2c 2d 31 2c 2d 31 2c 66 6f 6f 25 2c b9 29 |,0,-1,-1,foo%,.)|
00001740 0d 06 f4 2b f2 72 65 6d 6f 76 65 61 72 65 61 3a |...+.removearea:|
00001750 2a 75 6e 73 65 74 20 43 68 61 6e 67 65 46 53 49 |*unset ChangeFSI|
00001760 24 52 65 74 75 72 6e 43 6f 64 65 0d 06 fe 0a d8 |$ReturnCode.....|
00001770 3a e0 3d 51 25 0d 07 08 05 cd 0d 07 12 05 e0 0d |:.=Q%...........|
00001780 07 26 15 dd 20 f2 64 6f 74 65 6d 70 6c 61 74 65 |.&.. .dotemplate|
00001790 28 61 24 29 0d 07 30 08 ea 20 41 25 0d 07 3a 13 |(a$)..0.. A%..:.|
000017a0 e7 76 65 72 73 69 6f 6e 25 3e 33 30 30 20 8c 0d |.version%>300 ..|
000017b0 07 44 35 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 |.D5.. "Wimp_Load|
000017c0 54 65 6d 70 6c 61 74 65 22 2c 2c 30 2c 2c 2c 2c |Template",,0,,,,|
000017d0 61 24 2b 7a 24 2c 30 20 b8 20 2c 2c 69 6e 64 73 |a$+z$,0 . ,,inds|
000017e0 69 7a 65 25 0d 07 4e 11 de 20 41 25 20 69 6e 64 |ize%..N.. A% ind|
000017f0 73 69 7a 65 25 0d 07 58 37 c8 99 22 57 69 6d 70 |size%..X7.."Wimp|
00001800 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c |_LoadTemplate",,|
00001810 7a 25 2c 41 25 2c 41 25 2b 69 6e 64 73 69 7a 65 |z%,A%,A%+indsize|
00001820 25 2c 2d 31 2c 61 24 2b 7a 24 2c 30 0d 07 62 05 |%,-1,a$+z$,0..b.|
00001830 cc 0d 07 6c 42 c8 99 22 57 69 6d 70 5f 4c 6f 61 |...lB.."Wimp_Loa|
00001840 64 54 65 6d 70 6c 61 74 65 22 2c 2c 7a 25 2c 69 |dTemplate",,z%,i|
00001850 64 61 74 61 25 2c 65 69 64 61 74 61 25 2c 2d 31 |data%,eidata%,-1|
00001860 2c 61 24 2b 7a 24 2c 30 20 b8 20 2c 2c 69 64 61 |,a$+z$,0 . ,,ida|
00001870 74 61 25 0d 07 76 05 cd 0d 07 80 05 e1 0d 07 94 |ta%..v..........|
00001880 18 dd 20 f2 6c 6f 63 61 6c 65 5f 69 6e 69 74 69 |.. .locale_initi|
00001890 61 6c 69 73 65 0d 07 9e 08 ea 20 70 25 0d 07 a8 |alise..... p%...|
000018a0 07 ea 20 85 0d 07 b2 1e ee 20 85 20 ea 20 64 65 |.. ...... . . de|
000018b0 63 69 6d 61 6c 5f 70 6f 69 6e 74 24 3d 22 2e 22 |cimal_point$="."|
000018c0 3a e1 0d 07 bc 28 c8 99 20 22 54 65 72 72 69 74 |:....(.. "Territ|
000018d0 6f 72 79 5f 52 65 61 64 53 79 6d 62 6f 6c 73 22 |ory_ReadSymbols"|
000018e0 2c 2d 31 2c 30 20 b8 20 70 25 0d 07 c6 17 64 65 |,-1,0 . p%....de|
000018f0 63 69 6d 61 6c 5f 70 6f 69 6e 74 24 3d bd 3f 70 |cimal_point$=.?p|
00001900 25 0d 07 d0 05 e1 0d 07 e4 1f dd 20 a4 6c 6f 63 |%.......... .loc|
00001910 61 6c 65 5f 63 6f 6e 76 65 72 74 28 6e 24 2c 66 |ale_convert(n$,f|
00001920 24 2c 74 24 29 0d 07 ee 10 e7 20 66 24 3d 74 24 |$,t$)..... f$=t$|
00001930 20 8c 3d 6e 24 0d 07 f8 08 ea 20 69 25 0d 08 02 | .=n$..... i%...|
00001940 0e 69 25 3d a7 6e 24 2c 66 24 29 0d 08 0c 24 e7 |.i%=.n$,f$)...$.|
00001950 20 69 25 3c 3e 30 20 8c 3d c0 6e 24 2c 69 25 2d | i%<>0 .=.n$,i%-|
00001960 31 29 2b 74 24 2b c1 6e 24 2c 69 25 2b 31 29 0d |1)+t$+.n$,i%+1).|
00001970 08 16 07 3d 6e 24 0d 08 2a 12 dd 20 f2 72 65 63 |...=n$..*.. .rec|
00001980 65 69 76 65 28 71 25 29 0d 08 34 0e c8 8e 20 71 |eive(q%)..4... q|
00001990 25 21 31 36 20 ca 0d 08 3e 29 c9 20 30 3a f2 72 |%!16 ...>). 0:.r|
000019a0 65 6d 6f 76 65 61 72 65 61 3a c8 99 20 22 57 69 |emovearea:.. "Wi|
000019b0 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d |mp_CloseDown":..|
000019c0 08 48 17 c9 20 31 3a e7 71 25 21 32 30 3c 3e 73 |.H.. 1:.q%!20<>s|
000019d0 61 76 65 25 20 8c 0d 08 52 41 21 71 25 3d 36 30 |ave% ...RA!q%=60|
000019e0 3a 71 25 21 31 32 3d 71 25 21 38 3a 71 25 21 31 |:q%!12=q%!8:q%!1|
000019f0 36 3d 32 3a 71 25 21 33 36 3d 2d 31 3a 24 28 71 |6=2:q%!36=-1:$(q|
00001a00 25 2b 34 34 29 3d 22 3c 57 69 6d 70 24 53 63 72 |%+44)="<Wimp$Scr|
00001a10 61 70 3e 22 2b bd 30 0d 08 5c 2f c8 99 22 57 69 |ap>"+.0..\/.."Wi|
00001a20 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
00001a30 31 37 2c 71 25 2c 71 25 21 34 3a 73 63 72 61 70 |17,q%,q%!4:scrap|
00001a40 25 3d 71 25 21 38 0d 08 66 05 cd 0d 08 70 14 c9 |%=q%!8..f....p..|
00001a50 20 32 3a e7 6a 70 65 67 73 61 76 65 25 20 8c 0d | 2:.jpegsave% ..|
00001a60 08 7a 37 c8 99 22 4f 53 5f 46 69 6c 65 22 2c 31 |.z7.."OS_File",1|
00001a70 30 2c a4 5a 53 28 71 25 2b 34 34 29 2c 26 63 38 |0,.ZS(q%+44),&c8|
00001a80 35 2c 2c 73 61 72 25 2c 73 61 72 25 2b 6a 70 65 |5,,sar%,sar%+jpe|
00001a90 67 73 69 7a 65 25 0d 08 84 05 cc 0d 08 8e 20 c8 |gsize%........ .|
00001aa0 99 73 70 6f 70 25 2c 26 31 30 43 2c 73 61 72 25 |.spop%,&10C,sar%|
00001ab0 2c a4 5a 53 28 71 25 2b 34 34 29 0d 08 98 05 cd |,.ZS(q%+44).....|
00001ac0 0d 08 a2 17 24 61 64 73 61 76 65 25 3d a4 5a 53 |....$adsave%=.ZS|
00001ad0 28 71 25 2b 34 34 29 0d 08 ac 37 71 25 21 31 32 |(q%+44)...7q%!12|
00001ae0 3d 71 25 21 38 3a 71 25 21 31 36 3d 33 3a c8 99 |=q%!8:q%!16=3:..|
00001af0 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa|
00001b00 67 65 22 2c 31 38 2c 71 25 2c 71 25 21 34 0d 08 |ge",18,q%,q%!4..|
00001b10 b6 18 e7 20 71 25 21 33 36 3c 3e 2d 31 20 73 61 |... q%!36<>-1 sa|
00001b20 76 65 64 25 3d b9 0d 08 c0 11 c8 99 20 43 72 4d |ved%=....... CrM|
00001b30 65 6e 75 2c 2c 2d 31 0d 08 ca 31 c9 20 33 3a 46 |enu,,-1...1. 3:F|
00001b40 24 3d a4 5a 53 28 71 25 2b 34 34 29 3a e7 73 63 |$=.ZS(q%+44):.sc|
00001b50 72 61 70 25 20 73 63 72 61 70 25 3d 73 63 72 61 |rap% scrap%=scra|
00001b60 70 25 3d 71 25 21 31 32 0d 08 d4 36 71 25 21 31 |p%=q%!12...6q%!1|
00001b70 32 3d 71 25 21 38 3a 71 25 21 31 36 3d 34 3a c8 |2=q%!8:q%!16=4:.|
00001b80 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 |."Wimp_SendMessa|
00001b90 67 65 22 2c 31 37 2c 71 25 2c 71 25 21 34 0d 08 |ge",17,q%,q%!4..|
00001ba0 de 0c f2 63 61 6c 6c 46 53 49 0d 08 e8 12 c9 20 |...callFSI..... |
00001bb0 35 3a c8 8e 20 71 25 21 34 30 20 ca 0d 08 f2 0f |5:.. q%!40 .....|
00001bc0 c9 20 26 66 66 30 2c 26 63 38 35 0d 08 fc 36 71 |. &ff0,&c85...6q|
00001bd0 25 21 31 32 3d 71 25 21 38 3a 71 25 21 31 36 3d |%!12=q%!8:q%!16=|
00001be0 34 3a c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 |4:.."Wimp_SendMe|
00001bf0 73 73 61 67 65 22 2c 31 37 2c 71 25 2c 71 25 21 |ssage",17,q%,q%!|
00001c00 34 0d 09 06 1a 46 24 3d a4 5a 53 28 71 25 2b 34 |4....F$=.ZS(q%+4|
00001c10 34 29 3a f2 63 61 6c 6c 46 53 49 0d 09 10 05 cb |4):.callFSI.....|
00001c20 0d 09 1a 1a c9 20 38 3a e7 73 61 76 65 64 25 84 |..... 8:.saved%.|
00001c30 ac 73 70 72 69 74 65 25 20 e1 0d 09 24 2d 21 62 |.sprite% ...$-!b|
00001c40 75 66 66 65 72 25 3d 9f 3a 24 28 62 75 66 66 65 |uffer%=.:$(buffe|
00001c50 72 25 2b 34 29 3d 6d 24 28 32 29 2b 46 24 2b 6d |r%+4)=m$(2)+F$+m|
00001c60 24 28 33 29 2b bd 30 0d 09 2e 34 c8 99 22 57 69 |$(3)+.0...4.."Wi|
00001c70 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c |mp_ReportError",|
00001c80 62 75 66 66 65 72 25 2c 25 31 30 31 31 31 2c 6d |buffer%,%10111,m|
00001c90 24 28 32 30 29 20 b8 20 2c 41 25 0d 09 38 32 71 |$(20) . ,A%..82q|
00001ca0 25 21 31 32 3d 71 25 21 38 3a e7 41 25 3c 3e 31 |%!12=q%!8:.A%<>1|
00001cb0 20 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 | .."Wimp_SendMes|
00001cc0 73 61 67 65 22 2c 31 39 2c 71 25 2c 30 0d 09 42 |sage",19,q%,0..B|
00001cd0 42 c9 39 2c 26 34 30 30 43 31 3a e7 73 70 72 69 |B.9,&400C1:.spri|
00001ce0 74 65 25 20 f2 67 65 74 6d 6f 64 65 69 6e 66 6f |te% .getmodeinfo|
00001cf0 3a c8 99 26 34 30 30 64 31 2c 70 69 63 25 2c 30 |:..&400d1,pic%,0|
00001d00 2c 2d 33 32 37 36 37 2c 33 32 37 36 37 2c 30 0d |,-32767,32767,0.|
00001d10 09 4c 13 f2 73 68 6f 77 73 63 61 6c 65 74 6f 66 |.L..showscaletof|
00001d20 69 74 0d 09 56 48 c9 20 31 30 3a c8 99 22 58 4f |it..VH. 10:.."XO|
00001d30 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c 22 43 |S_ReadVarVal","C|
00001d40 68 61 6e 67 65 46 53 49 24 44 69 72 22 2c 70 61 |hangeFSI$Dir",pa|
00001d50 6c 74 65 6d 70 25 2c 32 35 36 2c 30 2c 33 20 b8 |ltemp%,256,0,3 .|
00001d60 2c 2c 62 6f 6f 74 6c 65 6e 25 0d 09 60 18 70 61 |,,bootlen%..`.pa|
00001d70 6c 74 65 6d 70 25 3f 62 6f 6f 74 6c 65 6e 25 3d |ltemp%?bootlen%=|
00001d80 31 33 0d 09 6a 1c d5 23 71 25 21 32 30 2c 22 52 |13..j..#q%!20,"R|
00001d90 75 6e 20 22 2b 24 70 61 6c 74 65 6d 70 25 0d 09 |un "+$paltemp%..|
00001da0 74 05 cb 0d 09 7e 05 e1 0d 09 92 0e dd 20 f2 63 |t....~....... .c|
00001db0 61 6c 6c 46 53 49 0d 09 9c 15 e7 20 a4 63 68 65 |allFSI..... .che|
00001dc0 63 6b 76 61 6c 75 65 73 20 8c e1 0d 09 a6 18 41 |ckvalues ......A|
00001dd0 24 3d a4 64 65 64 75 63 65 6d 6f 64 65 3a 41 25 |$=.deducemode:A%|
00001de0 3d 34 37 0d 09 b0 1a 6a 70 65 67 73 61 76 65 25 |=47....jpegsave%|
00001df0 3d a3 3a e7 64 65 73 74 25 3d 30 20 8c 0d 09 ba |=.:.dest%=0 ....|
00001e00 40 6a 70 65 67 73 61 76 65 25 3d b9 3a 41 24 3d |@jpegsave%=.:A$=|
00001e10 22 4a 50 45 47 22 3a e7 a4 67 65 74 69 63 6f 6e |"JPEG":..geticon|
00001e20 73 74 61 74 65 28 6a 70 65 67 6f 25 2c 32 29 20 |state(jpego%,2) |
00001e30 41 24 3d 22 4a 50 45 47 4d 4f 4e 4f 22 0d 09 c4 |A$="JPEGMONO"...|
00001e40 11 41 24 2b 3d 24 61 64 6a 70 65 67 71 25 0d 09 |.A$+=$adjpegq%..|
00001e50 ce 05 cc 0d 09 d8 20 e7 a4 67 65 74 69 63 6f 6e |...... ..geticon|
00001e60 73 74 61 74 65 28 6f 75 74 70 75 74 25 2c 31 35 |state(output%,15|
00001e70 29 20 8c 0d 09 e2 10 41 24 2b 3d 24 61 64 73 70 |) .....A$+=$adsp|
00001e80 63 6c 25 0d 09 ec 05 cc 0d 09 f6 20 e7 a4 67 65 |cl%........ ..ge|
00001e90 74 69 63 6f 6e 73 74 61 74 65 28 6f 75 74 70 75 |ticonstate(outpu|
00001ea0 74 25 2c 31 36 29 20 8c 0d 0a 00 3f e7 a4 67 65 |t%,16) ....?..ge|
00001eb0 74 69 63 6f 6e 73 74 61 74 65 28 6f 75 74 70 75 |ticonstate(outpu|
00001ec0 74 25 2c 35 29 84 a4 67 65 74 69 63 6f 6e 73 74 |t%,5)..geticonst|
00001ed0 61 74 65 28 6f 75 74 70 75 74 25 2c 31 31 29 20 |ate(output%,11) |
00001ee0 41 24 2b 3d 22 52 22 0d 0a 0a 05 cc 0d 0a 14 14 |A$+="R".........|
00001ef0 c8 99 35 33 2c bb 41 24 2c 33 20 b8 2c 2c 41 25 |..53,.A$,3 .,,A%|
00001f00 0d 0a 1e 0c e7 41 25 3d 36 33 20 8c 0d 0a 28 26 |.....A%=63 ...(&|
00001f10 e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 6f |..geticonstate(o|
00001f20 75 74 70 75 74 25 2c 36 29 20 41 24 3d 22 32 37 |utput%,6) A$="27|
00001f30 74 22 0d 0a 32 27 e7 a4 67 65 74 69 63 6f 6e 73 |t"..2'..geticons|
00001f40 74 61 74 65 28 6f 75 74 70 75 74 25 2c 31 32 29 |tate(output%,12)|
00001f50 20 41 24 3d 22 31 32 74 22 0d 0a 3c 05 cc 0d 0a | A$="12t"..<....|
00001f60 46 13 e7 41 25 3d 32 35 35 20 41 24 2b 3d 22 64 |F..A%=255 A$+="d|
00001f70 22 0d 0a 50 05 cd 0d 0a 5a 05 cd 0d 0a 64 05 cd |"..P....Z....d..|
00001f80 0d 0a 6e 05 cd 0d 0a 78 2f 41 24 3d 22 67 61 72 |..n....x/A$="gar|
00001f90 62 61 67 65 20 22 2b 46 24 2b 22 20 3c 43 68 61 |bage "+F$+" <Cha|
00001fa0 6e 67 65 46 53 49 24 44 69 72 3e 2e 46 6f 6f 20 |ngeFSI$Dir>.Foo |
00001fb0 22 2b 41 24 0d 0a 82 14 f2 43 68 61 6e 67 65 46 |"+A$.....ChangeF|
00001fc0 53 49 53 75 66 66 69 78 0d 0a 8c 25 69 6e 66 6f |SISuffix...%info|
00001fd0 24 3d 22 22 3a 72 61 6e 67 65 24 3d 6d 24 28 31 |$="":range$=m$(1|
00001fe0 39 29 3a 63 70 75 74 69 6d 65 25 3d 30 0d 0a 96 |9):cputime%=0...|
00001ff0 36 e7 73 70 72 69 74 65 25 20 21 71 25 3d 70 69 |6.sprite% !q%=pi|
00002000 63 25 3a c8 99 20 26 34 30 30 63 33 2c 2c 71 25 |c%:.. &400c3,,q%|
00002010 3a 73 61 76 65 64 25 3d b9 3a 73 70 72 69 74 65 |:saved%=.:sprite|
00002020 25 3d a3 0d 0a a0 13 6e 65 78 74 6c 6f 63 61 74 |%=.....nextlocat|
00002030 69 6f 6e 25 3d 93 0d 0a aa 33 c8 99 20 22 57 69 |ion%=....3.. "Wi|
00002040 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 6f 72 69 |mp_SlotSize",ori|
00002050 67 69 6e 61 6c 73 6c 6f 74 25 2c 2d 31 3a f2 72 |ginalslot%,-1:.r|
00002060 65 6d 6f 76 65 61 72 65 61 0d 0a b4 31 e7 66 61 |emovearea...1.fa|
00002070 73 74 25 20 c8 99 20 22 4f 53 5f 55 70 64 61 74 |st% .. "OS_Updat|
00002080 65 4d 45 4d 43 22 2c 26 33 30 30 2c 26 37 30 30 |eMEMC",&300,&700|
00002090 20 b8 20 6f 6c 64 6d 65 6d 63 0d 0a be 34 41 25 | . oldmemc...4A%|
000020a0 3d a4 43 68 61 6e 67 65 46 53 49 28 41 24 2c 2d |=.ChangeFSI(A$,-|
000020b0 31 2c 2d 31 2c 6e 65 78 74 6c 6f 63 61 74 69 6f |1,-1,nextlocatio|
000020c0 6e 25 2c 30 2c 30 2c 73 61 72 25 2c 30 29 0d 0a |n%,0,0,sar%,0)..|
000020d0 c8 2a e7 66 61 73 74 25 20 c8 99 20 22 4f 53 5f |.*.fast% .. "OS_|
000020e0 55 70 64 61 74 65 4d 45 4d 43 22 2c 6f 6c 64 6d |UpdateMEMC",oldm|
000020f0 65 6d 63 2c 26 37 30 30 0d 0a d2 25 e7 73 63 72 |emc,&700...%.scr|
00002100 61 70 25 20 73 63 72 61 70 25 3d a3 3a c8 99 22 |ap% scrap%=.:.."|
00002110 4f 53 5f 46 69 6c 65 22 2c 36 2c 46 24 0d 0a dc |OS_File",6,F$...|
00002120 15 e7 41 25 3c 32 20 80 20 73 61 72 25 3c 3e 30 |..A%<2 . sar%<>0|
00002130 20 8c 0d 0a e6 2a 24 61 64 73 78 25 3d c3 78 73 | ....*$adsx%=.xs|
00002140 70 25 3a 24 61 64 73 79 25 3d c3 79 73 70 25 3a |p%:$adsy%=.ysp%:|
00002150 e7 6a 70 65 67 73 61 76 65 25 20 8c 0d 0a f0 22 |.jpegsave% ...."|
00002160 24 61 64 73 6d 25 3d 22 4a 50 45 47 22 3a 24 61 |$adsm%="JPEG":$a|
00002170 64 73 6e 61 6d 65 25 3d 22 4a 50 45 47 22 0d 0a |dsname%="JPEG"..|
00002180 fa 19 24 61 64 73 62 79 74 65 73 25 3d c3 6a 70 |..$adsbytes%=.jp|
00002190 65 67 73 69 7a 65 25 0d 0b 04 15 78 3d 78 73 70 |egsize%....x=xsp|
000021a0 25 2a 32 3a 79 3d 79 73 70 25 2a 32 0d 0b 0e 25 |%*2:y=ysp%*2...%|
000021b0 c8 99 26 33 35 2c 2d 31 2c 34 20 b8 2c 2c 6e 78 |..&35,-1,4 .,,nx|
000021c0 3a c8 99 26 33 35 2c 2d 31 2c 35 20 b8 2c 2c 6e |:..&35,-1,5 .,,n|
000021d0 79 0d 0b 18 3d 21 69 66 61 63 74 6f 72 73 25 3d |y...=!ifactors%=|
000021e0 31 3a 69 66 61 63 74 6f 72 73 25 21 34 3d 31 3a |1:ifactors%!4=1:|
000021f0 69 66 61 63 74 6f 72 73 25 21 38 3d 6e 78 3a 69 |ifactors%!8=nx:i|
00002200 66 61 63 74 6f 72 73 25 21 31 32 3d 6e 79 0d 0b |factors%!12=ny..|
00002210 22 1d 24 61 64 73 61 76 65 73 70 72 69 74 65 25 |".$adsavesprite%|
00002220 3d 22 66 69 6c 65 5f 63 38 35 22 0d 0b 2c 25 e7 |="file_c85"..,%.|
00002230 20 c0 46 24 2c 37 29 3d 22 3c 57 69 6d 70 24 53 | .F$,7)="<Wimp$S|
00002240 22 20 46 24 3d 22 4a 50 45 47 49 6d 61 67 65 22 |" F$="JPEGImage"|
00002250 0d 0b 36 05 cc 0d 0b 40 27 c8 99 20 73 70 6f 70 |..6....@'.. spop|
00002260 78 25 2c 26 31 30 64 2c 73 61 72 25 2c 70 69 78 |x%,&10d,sar%,pix|
00002270 74 72 61 6e 73 25 2c 32 35 35 2c 31 0d 0b 4a 37 |trans%,255,1..J7|
00002280 6e 24 3d a4 5a 53 28 70 69 78 74 72 61 6e 73 25 |n$=.ZS(pixtrans%|
00002290 29 3a c8 99 20 73 70 6f 70 78 25 2c 26 31 32 38 |):.. spopx%,&128|
000022a0 2c 73 61 72 25 2c 6e 24 20 b8 2c 2c 2c 78 2c 79 |,sar%,n$ .,,,x,y|
000022b0 2c 2c 6d 0d 0b 54 1a 24 61 64 73 6d 25 3d c3 6d |,,m..T.$adsm%=.m|
000022c0 3a 24 61 64 73 6e 61 6d 65 25 3d 6e 24 0d 0b 5e |:$adsname%=n$..^|
000022d0 17 24 61 64 73 62 79 74 65 73 25 3d c3 73 61 72 |.$adsbytes%=.sar|
000022e0 25 21 31 32 0d 0b 68 1b c8 99 26 33 35 2c 6d 2c |%!12..h...&35,m,|
000022f0 34 20 b8 2c 2c 6e 78 3a 78 3d 78 3c 3c 6e 78 0d |4 .,,nx:x=x<<nx.|
00002300 0b 72 28 c8 99 26 33 35 2c 6d 2c 35 20 b8 2c 2c |.r(..&35,m,5 .,,|
00002310 6e 79 3a 79 3d 79 3c 3c 6e 79 3a f2 67 65 74 6d |ny:y=y<<ny:.getm|
00002320 6f 64 65 69 6e 66 6f 0d 0b 7c 1d 24 61 64 73 61 |odeinfo..|.$adsa|
00002330 76 65 73 70 72 69 74 65 25 3d 22 66 69 6c 65 5f |vesprite%="file_|
00002340 66 66 39 22 0d 0b 86 26 e7 20 c0 46 24 2c 37 29 |ff9"...&. .F$,7)|
00002350 3d 22 3c 57 69 6d 70 24 53 22 20 46 24 3d 22 53 |="<Wimp$S" F$="S|
00002360 70 72 69 74 65 46 69 6c 65 22 0d 0b 90 05 cd 0d |priteFile"......|
00002370 0b 9a 2f 21 71 25 3d 73 61 76 65 25 3a 71 25 21 |../!q%=save%:q%!|
00002380 34 3d 30 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 |4=0:q%!8=0:q%!12|
00002390 3d 30 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d 0b |=0:.. SetI,,q%..|
000023a0 a4 63 24 61 64 72 61 6e 25 3d 72 61 6e 67 65 24 |.c$adran%=range$|
000023b0 3a 24 61 64 73 72 63 25 3d 69 6e 66 6f 24 2b 6d |:$adsrc%=info$+m|
000023c0 24 28 30 29 2b c3 28 63 70 75 74 69 6d 65 25 81 |$(0)+.(cputime%.|
000023d0 31 30 30 29 2b 64 65 63 69 6d 61 6c 5f 70 6f 69 |100)+decimal_poi|
000023e0 6e 74 24 2b c2 22 30 22 2b c3 28 63 70 75 74 69 |nt$+."0"+.(cputi|
000023f0 6d 65 25 83 31 30 30 29 2c 32 29 2b 6d 24 28 31 |me%.100),2)+m$(1|
00002400 29 0d 0b ae 16 73 61 76 65 64 25 3d a3 3a 73 70 |)....saved%=.:sp|
00002410 72 69 74 65 25 3d b9 0d 0b d6 27 41 25 3d a9 46 |rite%=....'A%=.F|
00002420 24 3a c8 95 c1 22 2e 22 2b 46 24 2c 41 25 2c 31 |$:..."."+F$,A%,1|
00002430 29 3c 3e 22 2e 22 3a 41 25 2d 3d 31 3a ce 0d 0b |)<>".":A%-=1:...|
00002440 e0 1a 24 61 64 73 61 76 65 25 3d c1 22 2e 22 2b |..$adsave%=."."+|
00002450 46 24 2c 41 25 2b 31 29 0d 0b f4 1f 70 69 63 25 |F$,A%+1)....pic%|
00002460 3d a4 63 72 65 61 74 65 5f 77 69 6e 64 6f 77 28 |=.create_window(|
00002470 78 2c 79 2c 46 24 29 0d 0b fe 13 f2 70 6f 70 75 |x,y,F$).....popu|
00002480 70 28 70 69 63 25 2c 2d 31 29 0d 0c 08 05 cd 0d |p(pic%,-1)......|
00002490 0c 12 05 e1 0d 0c 26 12 dd 20 a4 63 68 65 63 6b |......&.. .check|
000024a0 76 61 6c 75 65 73 0d 0c 30 14 ea 20 65 2c 65 72 |values..0.. e,er|
000024b0 72 6f 72 24 2c 66 6c 61 67 25 0d 0c 44 20 e7 20 |ror$,flag%..D . |
000024c0 64 65 73 74 25 3d 30 20 80 20 bb 24 61 64 6a 70 |dest%=0 . .$adjp|
000024d0 65 67 71 25 3e 31 30 30 20 8c 0d 0c 4e 31 65 3d |egq%>100 ...N1e=|
000024e0 31 3a 65 72 72 6f 72 24 3d 6d 24 28 32 32 29 2b |1:error$=m$(22)+|
000024f0 6d 24 28 32 35 29 2b 6d 24 28 32 33 29 2b 6d 24 |m$(25)+m$(23)+m$|
00002500 28 32 37 29 2b 6d 24 28 32 34 29 0d 0c 58 05 cd |(27)+m$(24)..X..|
00002510 0d 0c 6c 22 e7 20 c0 24 61 64 6d 6f 64 65 25 2c |..l". .$admode%,|
00002520 31 29 3c 22 41 22 20 80 20 64 65 73 74 25 3d 31 |1)<"A" . dest%=1|
00002530 20 8c 0d 0c 76 1f c8 99 20 26 33 35 2c bb 24 61 | ...v... &35,.$a|
00002540 64 6d 6f 64 65 25 2c 30 20 b8 20 3b 66 6c 61 67 |dmode%,0 . ;flag|
00002550 25 0d 0c 8a 19 e7 20 a9 24 61 64 6d 6f 64 65 25 |%..... .$admode%|
00002560 3d 30 20 66 6c 61 67 25 3d 32 0d 0c 94 2b e7 20 |=0 flag%=2...+. |
00002570 bb 24 61 64 6d 6f 64 65 25 3e 31 32 37 20 80 20 |.$admode%>127 . |
00002580 bb 24 61 64 6d 6f 64 65 25 3c 32 35 36 20 66 6c |.$admode%<256 fl|
00002590 61 67 25 3d 32 0d 0c 9e 13 e7 20 28 66 6c 61 67 |ag%=2..... (flag|
000025a0 25 80 32 29 3e 30 20 8c 0d 0c a8 31 65 3d 32 3a |%.2)>0 ....1e=2:|
000025b0 65 72 72 6f 72 24 3d 6d 24 28 32 32 29 2b 6d 24 |error$=m$(22)+m$|
000025c0 28 32 36 29 2b 6d 24 28 32 33 29 2b 6d 24 28 31 |(26)+m$(23)+m$(1|
000025d0 33 29 2b 6d 24 28 32 34 29 0d 0c b2 05 cd 0d 0c |3)+m$(24).......|
000025e0 bc 05 cd 0d 0c c6 09 e7 20 65 20 8c 0d 0c d0 31 |........ e ....1|
000025f0 c8 99 20 44 72 61 67 2c 2c 2d 31 3a 21 62 75 66 |.. Drag,,-1:!buf|
00002600 66 65 72 25 3d 65 3a 24 28 62 75 66 66 65 72 25 |fer%=e:$(buffer%|
00002610 2b 34 29 3d 65 72 72 6f 72 24 2b bd 30 0d 0c da |+4)=error$+.0...|
00002620 32 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 |2.. "Wimp_Report|
00002630 45 72 72 6f 72 22 2c 62 75 66 66 65 72 25 2c 25 |Error",buffer%,%|
00002640 30 31 2c 6d 24 28 32 30 29 20 b8 20 2c 41 25 0d |01,m$(20) . ,A%.|
00002650 0c e4 2b e7 41 25 3d 32 20 f2 72 65 6d 6f 76 65 |..+.A%=2 .remove|
00002660 61 72 65 61 3a c8 99 20 22 57 69 6d 70 5f 43 6c |area:.. "Wimp_Cl|
00002670 6f 73 65 44 6f 77 6e 22 3a e0 0d 0c ee 05 cd 0d |oseDown":.......|
00002680 0c f8 06 3d 65 0d 0d 0c 16 dd 20 f2 43 68 61 6e |...=e..... .Chan|
00002690 67 65 46 53 49 53 75 66 66 69 78 0d 0d 16 0b 73 |geFSISuffix....s|
000026a0 61 66 65 25 3d b9 0d 0d 20 46 e7 a4 67 65 74 69 |afe%=... F..geti|
000026b0 63 6f 6e 73 74 61 74 65 28 73 63 61 6c 65 77 25 |constate(scalew%|
000026c0 2c 31 29 20 41 24 2b 3d 22 20 22 2b c3 74 6f 66 |,1) A$+=" "+.tof|
000026d0 69 74 78 2b 22 3a 20 22 2b c3 74 6f 66 69 74 79 |itx+": "+.tofity|
000026e0 2b 22 3a 22 3a 73 61 66 65 25 3d a3 0d 0d 2a 30 |+":":safe%=...*0|
000026f0 e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 73 |..geticonstate(s|
00002700 63 61 6c 65 77 25 2c 35 29 20 41 24 2b 3d 22 20 |calew%,5) A$+=" |
00002710 31 3a 32 22 3a 73 61 66 65 25 3d a3 0d 0d 34 34 |1:2":safe%=...44|
00002720 e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 73 |..geticonstate(s|
00002730 63 61 6c 65 77 25 2c 34 29 20 41 24 2b 3d 22 20 |calew%,4) A$+=" |
00002740 31 3a 32 20 31 3a 31 22 3a 73 61 66 65 25 3d a3 |1:2 1:1":safe%=.|
00002750 0d 0d 3e 34 e7 a4 67 65 74 69 63 6f 6e 73 74 61 |..>4..geticonsta|
00002760 74 65 28 73 63 61 6c 65 77 25 2c 33 29 20 41 24 |te(scalew%,3) A$|
00002770 2b 3d 22 20 31 3a 31 20 31 3a 32 22 3a 73 61 66 |+=" 1:1 1:2":saf|
00002780 65 25 3d a3 0d 0d 48 1f e7 a4 67 65 74 69 63 6f |e%=...H...getico|
00002790 6e 73 74 61 74 65 28 73 63 61 6c 65 77 25 2c 39 |nstate(scalew%,9|
000027a0 29 20 8c 0d 0d 52 0b 73 61 66 65 25 3d a3 0d 0d |) ...R.safe%=...|
000027b0 5c 25 e7 bb 24 73 25 28 30 29 20 41 24 2b 3d 22 |\%..$s%(0) A$+="|
000027c0 20 22 2b 24 73 25 28 30 29 20 8b 41 24 2b 3d 22 | "+$s%(0) .A$+="|
000027d0 20 31 22 0d 0d 66 12 41 24 2b 3d 22 3a 22 2b 24 | 1"..f.A$+=":"+$|
000027e0 73 25 28 31 29 0d 0d 70 25 e7 bb 24 73 25 28 32 |s%(1)..p%..$s%(2|
000027f0 29 20 41 24 2b 3d 22 20 22 2b 24 73 25 28 32 29 |) A$+=" "+$s%(2)|
00002800 20 8b 41 24 2b 3d 22 20 31 22 0d 0d 7a 12 41 24 | .A$+=" 1"..z.A$|
00002810 2b 3d 22 3a 22 2b 24 73 25 28 33 29 0d 0d 84 05 |+=":"+$s%(3)....|
00002820 cd 0d 0d 8e 2c e7 a4 67 65 74 69 63 6f 6e 73 74 |....,..geticonst|
00002830 61 74 65 28 73 63 61 6c 65 77 25 2c 30 29 20 41 |ate(scalew%,0) A|
00002840 24 2b 3d 22 20 2d 6e 6f 73 69 7a 65 22 0d 0d 98 |$+=" -nosize"...|
00002850 2e e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 |...geticonstate(|
00002860 73 63 61 6c 65 77 25 2c 31 38 29 20 41 24 2b 3d |scalew%,18) A$+=|
00002870 22 20 2d 6e 6f 73 63 61 6c 65 22 0d 0d a2 2b e7 |" -noscale"...+.|
00002880 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 73 63 |.geticonstate(sc|
00002890 61 6c 65 77 25 2c 31 39 29 20 41 24 2b 3d 22 20 |alew%,19) A$+=" |
000028a0 2d 6c 6f 63 6b 22 0d 0d ac 1f e7 a4 67 65 74 69 |-lock"......geti|
000028b0 63 6f 6e 73 74 61 74 65 28 73 63 61 6c 65 77 25 |constate(scalew%|
000028c0 2c 36 29 20 8c 0d 0d b6 46 73 61 66 65 25 3d a3 |,6) ....Fsafe%=.|
000028d0 3a e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 |:..geticonstate(|
000028e0 73 63 61 6c 65 77 25 2c 31 36 29 20 41 24 2b 3d |scalew%,16) A$+=|
000028f0 22 20 2d 72 6f 74 61 74 65 22 20 8b 41 24 2b 3d |" -rotate" .A$+=|
00002900 22 20 2d 72 6f 74 61 74 65 2d 22 0d 0d c0 05 cd |" -rotate-".....|
00002910 0d 0d ca 33 e7 a4 67 65 74 69 63 6f 6e 73 74 61 |...3..geticonsta|
00002920 74 65 28 73 63 61 6c 65 77 25 2c 37 29 20 41 24 |te(scalew%,7) A$|
00002930 2b 3d 22 20 2d 68 66 6c 69 70 22 3a 73 61 66 65 |+=" -hflip":safe|
00002940 25 3d a3 0d 0d d4 33 e7 a4 67 65 74 69 63 6f 6e |%=....3..geticon|
00002950 73 74 61 74 65 28 73 63 61 6c 65 77 25 2c 38 29 |state(scalew%,8)|
00002960 20 41 24 2b 3d 22 20 2d 76 66 6c 69 70 22 3a 73 | A$+=" -vflip":s|
00002970 61 66 65 25 3d a3 0d 0d de 31 e7 a4 67 65 74 69 |afe%=....1..geti|
00002980 63 6f 6e 73 74 61 74 65 28 70 72 6f 63 25 2c 30 |constate(proc%,0|
00002990 29 20 41 24 2b 3d 22 20 2d 72 61 6e 67 65 22 3a |) A$+=" -range":|
000029a0 73 61 66 65 25 3d a3 0d 0d e8 31 e7 a4 67 65 74 |safe%=....1..get|
000029b0 69 63 6f 6e 73 74 61 74 65 28 70 72 6f 63 25 2c |iconstate(proc%,|
000029c0 31 29 20 41 24 2b 3d 22 20 2d 65 71 75 61 6c 22 |1) A$+=" -equal"|
000029d0 3a 73 61 66 65 25 3d a3 0d 0d f2 2c e7 a4 67 65 |:safe%=....,..ge|
000029e0 74 69 63 6f 6e 73 74 61 74 65 28 70 72 6f 63 25 |ticonstate(proc%|
000029f0 2c 32 29 20 41 24 2b 3d 22 20 2d 6e 6f 64 69 74 |,2) A$+=" -nodit|
00002a00 68 65 72 22 0d 0d fc 32 e7 a4 67 65 74 69 63 6f |her"...2..getico|
00002a10 6e 73 74 61 74 65 28 70 72 6f 63 25 2c 33 29 20 |nstate(proc%,3) |
00002a20 41 24 2b 3d 22 20 2d 69 6e 76 65 72 74 22 3a 73 |A$+=" -invert":s|
00002a30 61 66 65 25 3d a3 0d 0e 06 2c e7 a4 67 65 74 69 |afe%=....,..geti|
00002a40 63 6f 6e 73 74 61 74 65 28 70 72 6f 63 25 2c 34 |constate(proc%,4|
00002a50 29 20 41 24 2b 3d 22 20 2d 62 72 69 67 68 74 65 |) A$+=" -brighte|
00002a60 6e 22 0d 0e 10 30 e7 a4 67 65 74 69 63 6f 6e 73 |n"...0..geticons|
00002a70 74 61 74 65 28 70 72 6f 63 25 2c 35 29 20 41 24 |tate(proc%,5) A$|
00002a80 2b 3d 22 20 2d 62 6c 61 63 6b 22 2b 24 70 25 28 |+=" -black"+$p%(|
00002a90 30 29 0d 0e 1a 5c e7 a4 67 65 74 69 63 6f 6e 73 |0)...\..geticons|
00002aa0 74 61 74 65 28 70 72 6f 63 25 2c 36 29 20 41 24 |tate(proc%,6) A$|
00002ab0 2b 3d 22 20 2d 67 61 6d 6d 61 22 2b a4 6c 6f 63 |+=" -gamma"+.loc|
00002ac0 61 6c 65 5f 63 6f 6e 76 65 72 74 28 24 70 25 28 |ale_convert($p%(|
00002ad0 31 29 2c 64 65 63 69 6d 61 6c 5f 70 6f 69 6e 74 |1),decimal_point|
00002ae0 24 2c 22 2e 22 29 3a 73 61 66 65 25 3d a3 0d 0e |$,"."):safe%=...|
00002af0 24 3a e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 |$:..geticonstate|
00002b00 28 70 72 6f 63 25 2c 37 29 20 41 24 2b 3d 22 20 |(proc%,7) A$+=" |
00002b10 2d 73 68 61 72 70 65 6e 22 2b 24 70 25 28 32 29 |-sharpen"+$p%(2)|
00002b20 3a 73 61 66 65 25 3d a3 0d 0e 2e 32 e7 a4 67 65 |:safe%=....2..ge|
00002b30 74 69 63 6f 6e 73 74 61 74 65 28 70 72 6f 63 25 |ticonstate(proc%|
00002b40 2c 31 31 29 20 41 24 2b 3d 22 20 2d 73 6d 6f 6f |,11) A$+=" -smoo|
00002b50 74 68 22 2b 24 70 25 28 33 29 0d 0e 38 05 e1 0d |th"+$p%(3)..8...|
00002b60 0e 4c 15 dd 20 f2 63 68 65 63 6b 61 6e 64 66 69 |.L.. .checkandfi|
00002b70 6e 69 73 68 0d 0e 56 37 e7 73 61 76 65 64 25 20 |nish..V7.saved% |
00002b80 84 ac 73 70 72 69 74 65 25 20 f2 72 65 6d 6f 76 |..sprite% .remov|
00002b90 65 61 72 65 61 3a c8 99 20 22 57 69 6d 70 5f 43 |earea:.. "Wimp_C|
00002ba0 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 0e 60 2d 21 |loseDown":...`-!|
00002bb0 62 75 66 66 65 72 25 3d 9f 3a 24 28 62 75 66 66 |buffer%=.:$(buff|
00002bc0 65 72 25 2b 34 29 3d 6d 24 28 32 29 2b 46 24 2b |er%+4)=m$(2)+F$+|
00002bd0 6d 24 28 33 29 2b bd 30 0d 0e 6a 35 c8 99 20 22 |m$(3)+.0..j5.. "|
00002be0 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 |Wimp_ReportError|
00002bf0 22 2c 62 75 66 66 65 72 25 2c 25 31 30 31 31 31 |",buffer%,%10111|
00002c00 2c 6d 24 28 32 30 29 20 b8 20 2c 41 25 0d 0e 74 |,m$(20) . ,A%..t|
00002c10 2b e7 41 25 3d 31 20 f2 72 65 6d 6f 76 65 61 72 |+.A%=1 .removear|
00002c20 65 61 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |ea:.. "Wimp_Clos|
00002c30 65 44 6f 77 6e 22 3a e0 0d 0e 7e 05 e1 0d 0e 92 |eDown":...~.....|
00002c40 1e dd 20 f2 6b 65 79 28 68 61 6e 64 6c 65 25 2c |.. .key(handle%,|
00002c50 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 0e 9c 1d e7 |icon%,key%).....|
00002c60 6b 65 79 25 3d 26 31 62 20 c8 99 20 43 72 4d 65 |key%=&1b .. CrMe|
00002c70 6e 75 2c 2c 2d 31 3a e1 0d 0e a6 10 c8 8e 20 68 |nu,,-1:....... h|
00002c80 61 6e 64 6c 65 25 20 ca 0d 0e b0 15 c9 20 7a 6f |andle% ...... zo|
00002c90 6f 6d 25 3a c8 8e 20 6b 65 79 25 20 ca 0d 0e ba |om%:.. key% ....|
00002ca0 43 c9 20 31 33 3a f2 64 6f 7a 6f 6f 6d 28 69 63 |C. 13:.dozoom(ic|
00002cb0 6f 6e 25 2d 34 2c 30 29 3a e7 69 63 6f 6e 25 3d |on%-4,0):.icon%=|
00002cc0 34 20 c8 99 20 26 34 30 30 64 32 2c 7a 6f 6f 6d |4 .. &400d2,zoom|
00002cd0 25 2c 35 2c 2c 2c 2d 31 2c a9 24 7a 25 28 30 29 |%,5,,,-1,.$z%(0)|
00002ce0 0d 0e c4 1a e7 69 63 6f 6e 25 3d 35 20 c8 99 20 |.....icon%=5 .. |
00002cf0 43 72 4d 65 6e 75 2c 2c 2d 31 0d 0e ce 05 e1 0d |CrMenu,,-1......|
00002d00 0e d8 22 c9 20 26 31 38 65 2c 26 31 38 66 3a f2 |..". &18e,&18f:.|
00002d10 64 6f 7a 6f 6f 6d 28 69 63 6f 6e 25 2d 34 2c 30 |dozoom(icon%-4,0|
00002d20 29 0d 0e e2 30 c8 99 20 26 34 30 30 64 32 2c 7a |)...0.. &400d2,z|
00002d30 6f 6f 6d 25 2c 69 63 6f 6e 25 82 31 2c 2c 2c 2d |oom%,icon%.1,,,-|
00002d40 31 2c a9 24 7a 25 28 69 63 6f 6e 25 82 35 29 3a |1,.$z%(icon%.5):|
00002d50 e1 0d 0e ec 05 cb 0d 0e f6 0b c9 20 73 61 76 65 |........... save|
00002d60 25 0d 0f 00 1a e7 6b 65 79 25 3d 31 33 20 f2 73 |%.....key%=13 .s|
00002d70 61 76 65 73 70 72 69 74 65 3a e1 0d 0f 0a 0d c9 |avesprite:......|
00002d80 20 6f 75 74 70 75 74 25 0d 0f 14 70 e7 20 69 63 | output%...p. ic|
00002d90 6f 6e 25 3d 33 34 20 80 20 a4 67 65 74 69 63 6f |on%=34 . .getico|
00002da0 6e 73 74 61 74 65 28 6f 75 74 70 75 74 25 2c 20 |nstate(output%, |
00002db0 32 34 29 20 8c 24 61 64 6d 6f 64 65 25 20 3d 20 |24) .$admode% = |
00002dc0 24 6f 6c 64 6d 6f 64 65 25 3a 21 71 25 3d 6f 75 |$oldmode%:!q%=ou|
00002dd0 74 70 75 74 25 3a 71 25 21 34 3d 32 30 3a 71 25 |tput%:q%!4=20:q%|
00002de0 21 38 3d 30 3a 71 25 21 31 32 3d 30 3a c8 99 20 |!8=0:q%!12=0:.. |
00002df0 53 65 74 49 2c 2c 71 25 0d 0f 1e 13 f2 73 68 6f |SetI,,q%.....sho|
00002e00 77 73 63 61 6c 65 74 6f 66 69 74 0d 0f 28 1c e7 |wscaletofit..(..|
00002e10 6b 65 79 25 3d 31 33 20 c8 99 20 43 72 4d 65 6e |key%=13 .. CrMen|
00002e20 75 2c 2c 2d 31 3a e1 0d 0f 32 10 e7 6b 65 79 25 |u,,-1:...2..key%|
00002e30 3d 26 31 38 65 20 8c 0d 0f 3c 0e c8 8e 20 69 63 |=&18e ...<... ic|
00002e40 6f 6e 25 20 ca 0d 0f 46 1f c9 20 31 39 3a 69 63 |on% ...F.. 19:ic|
00002e50 6f 6e 25 3d 33 34 3a 6b 65 79 25 3d 6f 6c 64 6d |on%=34:key%=oldm|
00002e60 6f 64 65 25 0d 0f 50 1f c9 20 33 34 3a 69 63 6f |ode%..P.. 34:ico|
00002e70 6e 25 3d 32 32 3a 6b 65 79 25 3d 61 64 6a 70 65 |n%=22:key%=adjpe|
00002e80 67 71 25 0d 0f 5a 1e c9 20 32 32 3a 69 63 6f 6e |gq%..Z.. 22:icon|
00002e90 25 3d 31 39 3a 6b 65 79 25 3d 61 64 73 70 63 6c |%=19:key%=adspcl|
00002ea0 25 0d 0f 64 05 cb 0d 0f 6e 05 cd 0d 0f 78 10 e7 |%..d....n....x..|
00002eb0 6b 65 79 25 3d 26 31 38 66 20 8c 0d 0f 82 0e c8 |key%=&18f ......|
00002ec0 8e 20 69 63 6f 6e 25 20 ca 0d 0f 8c 1f c9 20 32 |. icon% ...... 2|
00002ed0 32 3a 69 63 6f 6e 25 3d 33 34 3a 6b 65 79 25 3d |2:icon%=34:key%=|
00002ee0 6f 6c 64 6d 6f 64 65 25 0d 0f 96 1e c9 20 33 34 |oldmode%..... 34|
00002ef0 3a 69 63 6f 6e 25 3d 31 39 3a 6b 65 79 25 3d 61 |:icon%=19:key%=a|
00002f00 64 73 70 63 6c 25 0d 0f a0 1f c9 20 31 39 3a 69 |dspcl%..... 19:i|
00002f10 63 6f 6e 25 3d 32 32 3a 6b 65 79 25 3d 61 64 6a |con%=22:key%=adj|
00002f20 70 65 67 71 25 0d 0f aa 05 cb 0d 0f b4 05 cd 0d |pegq%...........|
00002f30 0f be 34 e7 6b 65 79 25 3e 31 30 32 34 20 c8 99 |..4.key%>1024 ..|
00002f40 20 26 34 30 30 64 32 2c 6f 75 74 70 75 74 25 2c | &400d2,output%,|
00002f50 69 63 6f 6e 25 2c 2c 2c 2d 31 2c a9 24 6b 65 79 |icon%,,,-1,.$key|
00002f60 25 3a e1 0d 0f c8 15 c9 20 70 72 6f 63 25 3a c8 |%:...... proc%:.|
00002f70 8e 20 6b 65 79 25 20 ca 0d 0f d2 41 c9 20 26 31 |. key% ....A. &1|
00002f80 38 65 2c 31 33 3a 69 63 6f 6e 25 2b 3d 31 3a e7 |8e,13:icon%+=1:.|
00002f90 69 63 6f 6e 25 3e 31 30 20 69 63 6f 6e 25 3d 38 |icon%>10 icon%=8|
00002fa0 3a e7 6b 65 79 25 3d 31 33 20 c8 99 20 43 72 4d |:.key%=13 .. CrM|
00002fb0 65 6e 75 2c 2c 2d 31 3a e1 0d 0f dc 2e c8 99 20 |enu,,-1:....... |
00002fc0 26 34 30 30 64 32 2c 70 72 6f 63 25 2c 69 63 6f |&400d2,proc%,ico|
00002fd0 6e 25 2c 2c 2c 2d 31 2c a9 24 70 25 28 69 63 6f |n%,,,-1,.$p%(ico|
00002fe0 6e 25 2d 38 29 3a e1 0d 0f e6 25 c9 20 26 31 38 |n%-8):....%. &18|
00002ff0 66 3a 69 63 6f 6e 25 2d 3d 31 3a e7 69 63 6f 6e |f:icon%-=1:.icon|
00003000 25 3c 38 20 69 63 6f 6e 25 3d 31 30 0d 0f f0 2e |%<8 icon%=10....|
00003010 c8 99 20 26 34 30 30 64 32 2c 70 72 6f 63 25 2c |.. &400d2,proc%,|
00003020 69 63 6f 6e 25 2c 2c 2c 2d 31 2c a9 24 70 25 28 |icon%,,,-1,.$p%(|
00003030 69 63 6f 6e 25 2d 38 29 3a e1 0d 0f fa 05 cb 0d |icon%-8):.......|
00003040 10 04 17 c9 20 73 63 61 6c 65 77 25 3a c8 8e 20 |.... scalew%:.. |
00003050 6b 65 79 25 20 ca 0d 10 0e 42 c9 20 26 31 38 65 |key% ....B. &18e|
00003060 2c 31 33 3a 69 63 6f 6e 25 2b 3d 31 3a e7 69 63 |,13:icon%+=1:.ic|
00003070 6f 6e 25 3e 31 33 20 69 63 6f 6e 25 3d 31 30 3a |on%>13 icon%=10:|
00003080 e7 6b 65 79 25 3d 31 33 20 c8 99 20 43 72 4d 65 |.key%=13 .. CrMe|
00003090 6e 75 2c 2c 2d 31 3a e1 0d 10 18 31 c8 99 20 26 |nu,,-1:....1.. &|
000030a0 34 30 30 64 32 2c 73 63 61 6c 65 77 25 2c 69 63 |400d2,scalew%,ic|
000030b0 6f 6e 25 2c 2c 2c 2d 31 2c a9 24 73 25 28 69 63 |on%,,,-1,.$s%(ic|
000030c0 6f 6e 25 2d 31 30 29 3a e1 0d 10 22 26 c9 20 26 |on%-10):..."&. &|
000030d0 31 38 66 3a 69 63 6f 6e 25 2d 3d 31 3a e7 69 63 |18f:icon%-=1:.ic|
000030e0 6f 6e 25 3c 31 30 20 69 63 6f 6e 25 3d 31 33 0d |on%<10 icon%=13.|
000030f0 10 2c 31 c8 99 20 26 34 30 30 64 32 2c 73 63 61 |.,1.. &400d2,sca|
00003100 6c 65 77 25 2c 69 63 6f 6e 25 2c 2c 2c 2d 31 2c |lew%,icon%,,,-1,|
00003110 a9 24 73 25 28 69 63 6f 6e 25 2d 31 30 29 3a e1 |.$s%(icon%-10):.|
00003120 0d 10 36 05 cb 0d 10 40 05 cb 0d 10 4a 1d c8 99 |..6....@....J...|
00003130 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
00003140 79 22 2c 6b 65 79 25 0d 10 54 05 e1 0d 10 68 11 |y",key%..T....h.|
00003150 dd 20 f2 73 61 76 65 73 70 72 69 74 65 0d 10 72 |. .savesprite..r|
00003160 13 e7 20 46 24 3d 24 61 64 73 61 76 65 25 20 8c |.. F$=$adsave% .|
00003170 0d 10 7c 31 c8 99 20 44 72 61 67 2c 2c 2d 31 3a |..|1.. Drag,,-1:|
00003180 21 62 75 66 66 65 72 25 3d 33 3a 24 28 62 75 66 |!buffer%=3:$(buf|
00003190 66 65 72 25 2b 34 29 3d 6d 24 28 32 38 29 2b bd |fer%+4)=m$(28)+.|
000031a0 30 0d 10 86 32 c8 99 20 22 57 69 6d 70 5f 52 65 |0...2.. "Wimp_Re|
000031b0 70 6f 72 74 45 72 72 6f 72 22 2c 62 75 66 66 65 |portError",buffe|
000031c0 72 25 2c 25 31 31 2c 6d 24 28 32 30 29 20 b8 20 |r%,%11,m$(20) . |
000031d0 2c 41 25 0d 10 90 0b e7 41 25 3d 32 20 8c 0d 10 |,A%.....A%=2 ...|
000031e0 9a 11 c8 99 20 43 72 4d 65 6e 75 2c 2c 2d 31 0d |.... CrMenu,,-1.|
000031f0 10 a4 05 e1 0d 10 ae 05 cd 0d 10 b8 05 cd 0d 10 |................|
00003200 c2 10 e7 6a 70 65 67 73 61 76 65 25 20 8c 0d 10 |...jpegsave% ...|
00003210 cc 35 c8 99 22 4f 53 5f 46 69 6c 65 22 2c 31 30 |.5.."OS_File",10|
00003220 2c 24 61 64 73 61 76 65 25 2c 26 63 38 35 2c 2c |,$adsave%,&c85,,|
00003230 73 61 72 25 2c 73 61 72 25 2b 6a 70 65 67 73 69 |sar%,sar%+jpegsi|
00003240 7a 65 25 0d 10 d6 05 cc 0d 10 e0 1f c8 99 20 73 |ze%........... s|
00003250 70 6f 70 25 2c 26 31 30 43 2c 73 61 72 25 2c 24 |pop%,&10C,sar%,$|
00003260 61 64 73 61 76 65 25 0d 10 ea 05 cd 0d 10 f4 11 |adsave%.........|
00003270 c8 99 20 43 72 4d 65 6e 75 2c 2c 2d 31 0d 10 fe |.. CrMenu,,-1...|
00003280 05 e1 0d 11 12 37 dd 20 f2 63 68 65 63 6b 6d 6f |.....7. .checkmo|
00003290 75 73 65 28 6d 6f 75 73 65 78 25 2c 6d 6f 75 73 |use(mousex%,mous|
000032a0 65 79 25 2c 62 25 2c 68 61 6e 64 6c 65 25 2c 69 |ey%,b%,handle%,i|
000032b0 63 6f 6e 25 2c 6f 62 25 29 0d 11 1c 15 ea 20 6d |con%,ob%)..... m|
000032c0 6f 76 65 64 25 3a 6d 6f 76 65 64 25 3d a3 0d 11 |oved%:moved%=...|
000032d0 26 0b e7 62 25 80 32 20 8c 0d 11 30 10 c8 8e 20 |&..b%.2 ...0... |
000032e0 68 61 6e 64 6c 65 25 20 ca 0d 11 3a 7c c9 20 70 |handle% ...:|. p|
000032f0 69 63 25 3a f2 64 6f 6d 65 6e 75 28 70 69 63 25 |ic%:.domenu(pic%|
00003300 2c 6d 24 28 34 29 2b 22 3e 73 69 6e 66 6f 25 2c |,m$(4)+">sinfo%,|
00003310 22 2b 6d 24 28 35 29 2b 22 3e 73 72 63 69 6e 66 |"+m$(5)+">srcinf|
00003320 6f 25 2c 22 2b 6d 24 28 36 29 2b 22 3e 72 61 6e |o%,"+m$(6)+">ran|
00003330 69 6e 66 6f 25 2c 22 2b 6d 24 28 37 29 2b 22 3e |info%,"+m$(7)+">|
00003340 7a 6f 6f 6d 25 2c 22 2b 6d 24 28 38 29 2b 22 3e |zoom%,"+m$(8)+">|
00003350 73 61 76 65 25 2c 22 2b 6d 24 28 39 29 2c 6d 24 |save%,"+m$(9),m$|
00003360 28 32 30 29 29 0d 11 44 b6 c9 20 2d 32 3a f2 64 |(20))..D.. -2:.d|
00003370 6f 6d 65 6e 75 28 31 30 31 2c 6d 24 28 31 30 29 |omenu(101,m$(10)|
00003380 2b 22 3e 69 6e 66 6f 77 25 2c 22 2b 6d 24 28 31 |+">infow%,"+m$(1|
00003390 31 29 2b 22 3e 73 63 61 6c 65 77 25 2c 22 2b 6d |1)+">scalew%,"+m|
000033a0 24 28 31 32 29 2b 22 3e 70 72 6f 63 25 2c 22 2b |$(12)+">proc%,"+|
000033b0 6d 24 28 31 33 29 2b 22 3e 6f 75 74 70 75 74 25 |m$(13)+">output%|
000033c0 3a 64 65 73 74 25 2c 22 2b 6d 24 28 32 37 29 2b |:dest%,"+m$(27)+|
000033d0 22 3e 6a 70 65 67 6f 25 3a 31 2d 64 65 73 74 25 |">jpego%:1-dest%|
000033e0 2c 22 2b 6d 24 28 39 29 2b 22 2c 22 2b 6d 24 28 |,"+m$(9)+","+m$(|
000033f0 31 34 29 2b 22 3a 66 61 73 74 25 41 4e 44 31 2c |14)+":fast%AND1,|
00003400 22 2b 6d 24 28 31 35 29 2b 22 2c 22 2b 6d 24 28 |"+m$(15)+","+m$(|
00003410 31 36 29 2c 6d 24 28 32 30 29 29 0d 11 4e 05 cb |16),m$(20))..N..|
00003420 0d 11 58 18 72 6d 65 6e 75 68 61 6e 64 6c 65 25 |..X.rmenuhandle%|
00003430 3d 68 61 6e 64 6c 65 25 0d 11 62 05 cd 0d 11 6c |=handle%..b....l|
00003440 0b e7 62 25 80 34 20 8c 0d 11 76 10 c8 8e 20 68 |..b%.4 ...v... h|
00003450 61 6e 64 6c 65 25 20 ca 0d 11 80 16 c9 20 7a 6f |andle% ...... zo|
00003460 6f 6d 25 3a c8 8e 20 69 63 6f 6e 25 20 ca 0d 11 |om%:.. icon% ...|
00003470 8a 14 c9 20 30 3a f2 64 6f 7a 6f 6f 6d 28 30 2c |... 0:.dozoom(0,|
00003480 31 29 0d 11 94 15 c9 20 31 3a f2 64 6f 7a 6f 6f |1)..... 1:.dozoo|
00003490 6d 28 30 2c 2d 31 29 0d 11 9e 14 c9 20 32 3a f2 |m(0,-1)..... 2:.|
000034a0 64 6f 7a 6f 6f 6d 28 31 2c 31 29 0d 11 a8 15 c9 |dozoom(1,1).....|
000034b0 20 33 3a f2 64 6f 7a 6f 6f 6d 28 31 2c 2d 31 29 | 3:.dozoom(1,-1)|
000034c0 0d 11 b2 05 cb 0d 11 bc 05 cb 0d 11 c6 05 cd 0d |................|
000034d0 11 d0 0b e7 62 25 80 31 20 8c 0d 11 da 10 c8 8e |....b%.1 .......|
000034e0 20 68 61 6e 64 6c 65 25 20 ca 0d 11 e4 16 c9 20 | handle% ...... |
000034f0 7a 6f 6f 6d 25 3a c8 8e 20 69 63 6f 6e 25 20 ca |zoom%:.. icon% .|
00003500 0d 11 ee 15 c9 20 30 3a f2 64 6f 7a 6f 6f 6d 28 |..... 0:.dozoom(|
00003510 30 2c 2d 31 29 0d 11 f8 14 c9 20 31 3a f2 64 6f |0,-1)..... 1:.do|
00003520 7a 6f 6f 6d 28 30 2c 31 29 0d 12 02 15 c9 20 32 |zoom(0,1)..... 2|
00003530 3a f2 64 6f 7a 6f 6f 6d 28 31 2c 2d 31 29 0d 12 |:.dozoom(1,-1)..|
00003540 0c 14 c9 20 33 3a f2 64 6f 7a 6f 6f 6d 28 31 2c |... 3:.dozoom(1,|
00003550 31 29 0d 12 16 05 cb 0d 12 20 05 cb 0d 12 2a 05 |1)....... ....*.|
00003560 cd 0d 12 34 0b e7 62 25 80 35 20 8c 0d 12 3e 10 |...4..b%.5 ...>.|
00003570 c8 8e 20 68 61 6e 64 6c 65 25 20 ca 0d 12 48 e7 |.. handle% ...H.|
00003580 c9 20 6f 75 74 70 75 74 25 3a e7 20 64 65 73 74 |. output%:. dest|
00003590 25 3d 30 20 64 65 73 74 25 3d 31 3a f2 64 6f 6d |%=0 dest%=1:.dom|
000035a0 65 6e 75 28 31 30 31 2c 6d 24 28 31 30 29 2b 22 |enu(101,m$(10)+"|
000035b0 3e 69 6e 66 6f 77 25 2c 22 2b 6d 24 28 31 31 29 |>infow%,"+m$(11)|
000035c0 2b 22 3e 73 63 61 6c 65 77 25 2c 22 2b 6d 24 28 |+">scalew%,"+m$(|
000035d0 31 32 29 2b 22 3e 70 72 6f 63 25 2c 22 2b 6d 24 |12)+">proc%,"+m$|
000035e0 28 31 33 29 2b 22 3e 6f 75 74 70 75 74 25 3a 64 |(13)+">output%:d|
000035f0 65 73 74 25 2c 22 2b 6d 24 28 32 37 29 2b 22 3e |est%,"+m$(27)+">|
00003600 6a 70 65 67 6f 25 3a 31 2d 64 65 73 74 25 2c 22 |jpego%:1-dest%,"|
00003610 2b 6d 24 28 39 29 2b 22 2c 22 2b 6d 24 28 31 34 |+m$(9)+","+m$(14|
00003620 29 2b 22 3a 66 61 73 74 25 41 4e 44 31 2c 22 2b |)+":fast%AND1,"+|
00003630 6d 24 28 31 35 29 2b 22 2c 22 2b 6d 24 28 31 36 |m$(15)+","+m$(16|
00003640 29 2c 6d 24 28 32 30 29 29 3a c8 99 20 47 65 74 |),m$(20)):.. Get|
00003650 63 61 72 65 74 25 2c 2c 71 25 3a 6d 6f 76 65 64 |caret%,,q%:moved|
00003660 25 3d b9 0d 12 52 0e c8 8e 20 69 63 6f 6e 25 20 |%=...R... icon% |
00003670 ca 0d 12 5c 6e c9 20 33 2c 34 2c 35 2c 36 3a f2 |...\n. 3,4,5,6:.|
00003680 6b 69 6c 6c 63 75 72 72 65 6e 74 28 c3 28 32 32 |killcurrent(.(22|
00003690 2b 69 63 6f 6e 25 29 29 3a 21 71 25 3d 6f 75 74 |+icon%)):!q%=out|
000036a0 70 75 74 25 3a 71 25 21 34 3d 31 38 3a 71 25 21 |put%:q%!4=18:q%!|
000036b0 38 3d 30 3a 71 25 21 31 32 3d 31 3c 3c 32 31 3a |8=0:q%!12=1<<21:|
000036c0 c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 34 |.. SetI,,q%:q%!4|
000036d0 3d 32 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d |=24:.. SetI,,q%.|
000036e0 12 66 68 c9 20 37 3a f2 6b 69 6c 6c 63 75 72 72 |.fh. 7:.killcurr|
000036f0 65 6e 74 28 22 53 31 36 2c 39 30 2c 39 30 22 29 |ent("S16,90,90")|
00003700 3a 21 71 25 3d 6f 75 74 70 75 74 25 3a 71 25 21 |:!q%=output%:q%!|
00003710 34 3d 31 38 3a 71 25 21 38 3d 30 3a 71 25 21 31 |4=18:q%!8=0:q%!1|
00003720 32 3d 31 3c 3c 32 31 3a c8 99 20 53 65 74 49 2c |2=1<<21:.. SetI,|
00003730 2c 71 25 3a 71 25 21 34 3d 32 34 3a c8 99 20 53 |,q%:q%!4=24:.. S|
00003740 65 74 49 2c 2c 71 25 0d 12 70 68 c9 20 38 3a f2 |etI,,q%..ph. 8:.|
00003750 6b 69 6c 6c 63 75 72 72 65 6e 74 28 22 53 33 32 |killcurrent("S32|
00003760 2c 39 30 2c 39 30 22 29 3a 21 71 25 3d 6f 75 74 |,90,90"):!q%=out|
00003770 70 75 74 25 3a 71 25 21 34 3d 31 38 3a 71 25 21 |put%:q%!4=18:q%!|
00003780 38 3d 30 3a 71 25 21 31 32 3d 31 3c 3c 32 31 3a |8=0:q%!12=1<<21:|
00003790 c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 34 |.. SetI,,q%:q%!4|
000037a0 3d 32 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d |=24:.. SetI,,q%.|
000037b0 12 7a 60 c9 20 39 3a f2 6b 69 6c 6c 63 75 72 72 |.z`. 9:.killcurr|
000037c0 65 6e 74 28 22 30 22 29 3a 21 71 25 3d 6f 75 74 |ent("0"):!q%=out|
000037d0 70 75 74 25 3a 71 25 21 34 3d 31 38 3a 71 25 21 |put%:q%!4=18:q%!|
000037e0 38 3d 30 3a 71 25 21 31 32 3d 31 3c 3c 32 31 3a |8=0:q%!12=1<<21:|
000037f0 c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 34 |.. SetI,,q%:q%!4|
00003800 3d 32 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d |=24:.. SetI,,q%.|
00003810 12 84 61 c9 20 31 30 3a f2 6b 69 6c 6c 63 75 72 |..a. 10:.killcur|
00003820 72 65 6e 74 28 22 38 22 29 3a 21 71 25 3d 6f 75 |rent("8"):!q%=ou|
00003830 74 70 75 74 25 3a 71 25 21 34 3d 31 38 3a 71 25 |tput%:q%!4=18:q%|
00003840 21 38 3d 30 3a 71 25 21 31 32 3d 31 3c 3c 32 31 |!8=0:q%!12=1<<21|
00003850 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 |:.. SetI,,q%:q%!|
00003860 34 3d 32 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 |4=24:.. SetI,,q%|
00003870 0d 12 8e 62 c9 20 31 31 3a f2 6b 69 6c 6c 63 75 |...b. 11:.killcu|
00003880 72 72 65 6e 74 28 22 31 32 22 29 3a 21 71 25 3d |rrent("12"):!q%=|
00003890 6f 75 74 70 75 74 25 3a 71 25 21 34 3d 31 38 3a |output%:q%!4=18:|
000038a0 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 31 3c 3c |q%!8=0:q%!12=1<<|
000038b0 32 31 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 |21:.. SetI,,q%:q|
000038c0 25 21 34 3d 32 34 3a c8 99 20 53 65 74 49 2c 2c |%!4=24:.. SetI,,|
000038d0 71 25 0d 12 98 62 c9 20 31 32 3a f2 6b 69 6c 6c |q%...b. 12:.kill|
000038e0 63 75 72 72 65 6e 74 28 22 31 35 22 29 3a 21 71 |current("15"):!q|
000038f0 25 3d 6f 75 74 70 75 74 25 3a 71 25 21 34 3d 31 |%=output%:q%!4=1|
00003900 38 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 31 |8:q%!8=0:q%!12=1|
00003910 3c 3c 32 31 3a c8 99 20 53 65 74 49 2c 2c 71 25 |<<21:.. SetI,,q%|
00003920 3a 71 25 21 34 3d 32 34 3a c8 99 20 53 65 74 49 |:q%!4=24:.. SetI|
00003930 2c 2c 71 25 0d 12 a2 69 c9 20 31 33 3a f2 6b 69 |,,q%...i. 13:.ki|
00003940 6c 6c 63 75 72 72 65 6e 74 28 22 53 31 36 2c 39 |llcurrent("S16,9|
00003950 30 2c 34 35 22 29 3a 21 71 25 3d 6f 75 74 70 75 |0,45"):!q%=outpu|
00003960 74 25 3a 71 25 21 34 3d 31 38 3a 71 25 21 38 3d |t%:q%!4=18:q%!8=|
00003970 30 3a 71 25 21 31 32 3d 31 3c 3c 32 31 3a c8 99 |0:q%!12=1<<21:..|
00003980 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 34 3d 32 | SetI,,q%:q%!4=2|
00003990 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d 12 ac |4:.. SetI,,q%...|
000039a0 69 c9 20 31 34 3a f2 6b 69 6c 6c 63 75 72 72 65 |i. 14:.killcurre|
000039b0 6e 74 28 22 53 33 32 2c 39 30 2c 34 35 22 29 3a |nt("S32,90,45"):|
000039c0 21 71 25 3d 6f 75 74 70 75 74 25 3a 71 25 21 34 |!q%=output%:q%!4|
000039d0 3d 31 38 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 |=18:q%!8=0:q%!12|
000039e0 3d 31 3c 3c 32 31 3a c8 99 20 53 65 74 49 2c 2c |=1<<21:.. SetI,,|
000039f0 71 25 3a 71 25 21 34 3d 32 34 3a c8 99 20 53 65 |q%:q%!4=24:.. Se|
00003a00 74 49 2c 2c 71 25 0d 12 b6 c4 c9 20 31 35 3a f2 |tI,,q%..... 15:.|
00003a10 6b 69 6c 6c 63 75 72 72 65 6e 74 28 a4 64 65 64 |killcurrent(.ded|
00003a20 75 63 65 6d 6f 64 65 29 3a c8 99 20 53 65 74 49 |ucemode):.. SetI|
00003a30 2c 2c 71 25 3a c8 99 20 43 61 72 65 74 70 6f 73 |,,q%:.. Caretpos|
00003a40 25 2c 6f 75 74 70 75 74 25 2c 31 39 2c 2c 2c 2d |%,output%,19,,,-|
00003a50 31 2c a9 28 24 61 64 73 70 63 6c 25 29 3a 21 71 |1,.($adspcl%):!q|
00003a60 25 3d 6f 75 74 70 75 74 25 3a 71 25 21 34 3d 37 |%=output%:q%!4=7|
00003a70 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 31 3c |:q%!8=0:q%!12=1<|
00003a80 3c 32 32 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a |<22:.. SetI,,q%:|
00003a90 71 25 21 34 3d 38 3a c8 99 20 53 65 74 49 2c 2c |q%!4=8:.. SetI,,|
00003aa0 71 25 3a 71 25 21 34 3d 31 33 3a c8 99 20 53 65 |q%:q%!4=13:.. Se|
00003ab0 74 49 2c 2c 71 25 3a 71 25 21 34 3d 31 34 3a c8 |tI,,q%:q%!4=14:.|
00003ac0 99 20 53 65 74 49 2c 2c 71 25 0d 12 c0 8f c9 20 |. SetI,,q%..... |
00003ad0 31 36 3a f2 6b 69 6c 6c 63 75 72 72 65 6e 74 28 |16:.killcurrent(|
00003ae0 a4 64 65 64 75 63 65 6d 6f 64 65 29 3a 21 71 25 |.deducemode):!q%|
00003af0 3d 6f 75 74 70 75 74 25 3a 71 25 21 34 3d 37 3a |=output%:q%!4=7:|
00003b00 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 31 3c 3c |q%!8=0:q%!12=1<<|
00003b10 32 32 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 |22:.. SetI,,q%:q|
00003b20 25 21 34 3d 38 3a c8 99 20 53 65 74 49 2c 2c 71 |%!4=8:.. SetI,,q|
00003b30 25 3a 71 25 21 34 3d 31 33 3a c8 99 20 53 65 74 |%:q%!4=13:.. Set|
00003b40 49 2c 2c 71 25 3a 71 25 21 34 3d 31 34 3a c8 99 |I,,q%:q%!4=14:..|
00003b50 20 53 65 74 49 2c 2c 71 25 0d 12 ca 93 c9 20 31 | SetI,,q%..... 1|
00003b60 37 3a f2 6b 69 6c 6c 63 75 72 72 65 6e 74 28 a4 |7:.killcurrent(.|
00003b70 64 65 64 75 63 65 6d 6f 64 65 29 3a 21 71 25 3d |deducemode):!q%=|
00003b80 6f 75 74 70 75 74 25 3a 71 25 21 34 3d 37 3a 71 |output%:q%!4=7:q|
00003b90 25 21 38 3d 31 3c 3c 32 32 3a 71 25 21 31 32 3d |%!8=1<<22:q%!12=|
00003ba0 31 3c 3c 32 32 3a c8 99 20 53 65 74 49 2c 2c 71 |1<<22:.. SetI,,q|
00003bb0 25 3a 71 25 21 34 3d 38 3a c8 99 20 53 65 74 49 |%:q%!4=8:.. SetI|
00003bc0 2c 2c 71 25 3a 71 25 21 34 3d 31 33 3a c8 99 20 |,,q%:q%!4=13:.. |
00003bd0 53 65 74 49 2c 2c 71 25 3a 71 25 21 34 3d 31 34 |SetI,,q%:q%!4=14|
00003be0 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d 12 d4 1a |:.. SetI,,q%....|
00003bf0 e7 20 c0 24 61 64 6d 6f 64 65 25 2c 31 29 20 3d |. .$admode%,1) =|
00003c00 20 22 53 22 20 8c 0d 12 de 1b e7 20 c2 24 61 64 | "S" ...... .$ad|
00003c10 6d 6f 64 65 25 2c 32 29 20 3d 20 22 34 35 22 20 |mode%,2) = "45" |
00003c20 8c 0d 12 e8 5d f2 6b 69 6c 6c 63 75 72 72 65 6e |....].killcurren|
00003c30 74 28 22 31 35 22 29 3a 21 71 25 3d 6f 75 74 70 |t("15"):!q%=outp|
00003c40 75 74 25 3a 71 25 21 34 3d 31 38 3a 71 25 21 38 |ut%:q%!4=18:q%!8|
00003c50 3d 30 3a 71 25 21 31 32 3d 31 3c 3c 32 31 3a c8 |=0:q%!12=1<<21:.|
00003c60 99 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 34 3d |. SetI,,q%:q%!4=|
00003c70 32 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d 12 |24:.. SetI,,q%..|
00003c80 f2 05 cc 0d 12 fc 5d f2 6b 69 6c 6c 63 75 72 72 |......].killcurr|
00003c90 65 6e 74 28 22 32 38 22 29 3a 21 71 25 3d 6f 75 |ent("28"):!q%=ou|
00003ca0 74 70 75 74 25 3a 71 25 21 34 3d 31 38 3a 71 25 |tput%:q%!4=18:q%|
00003cb0 21 38 3d 30 3a 71 25 21 31 32 3d 31 3c 3c 32 31 |!8=0:q%!12=1<<21|
00003cc0 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a 71 25 21 |:.. SetI,,q%:q%!|
00003cd0 34 3d 32 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 |4=24:.. SetI,,q%|
00003ce0 0d 13 06 05 cd 0d 13 10 05 cd 0d 13 1a 3b c9 20 |.............;. |
00003cf0 31 38 3a 21 71 25 3d 6f 75 74 70 75 74 25 3a 71 |18:!q%=output%:q|
00003d00 25 21 34 3d 32 34 3a 71 25 21 38 3d 30 3a 71 25 |%!4=24:q%!8=0:q%|
00003d10 21 31 32 3d 31 3c 3c 32 31 3a c8 99 20 53 65 74 |!12=1<<21:.. Set|
00003d20 49 2c 2c 71 25 0d 13 24 7f c9 20 32 34 3a 21 71 |I,,q%..$.. 24:!q|
00003d30 25 3d 6f 75 74 70 75 74 25 3a 71 25 21 34 3d 31 |%=output%:q%!4=1|
00003d40 38 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 31 |8:q%!8=0:q%!12=1|
00003d50 3c 3c 32 31 3a c8 99 20 53 65 74 49 2c 2c 71 25 |<<21:.. SetI,,q%|
00003d60 3a f2 6b 69 6c 6c 63 75 72 72 65 6e 74 28 a4 64 |:.killcurrent(.d|
00003d70 65 64 75 63 65 6d 6f 64 65 29 3a c8 99 20 43 61 |educemode):.. Ca|
00003d80 72 65 74 70 6f 73 25 2c 6f 75 74 70 75 74 25 2c |retpos%,output%,|
00003d90 33 34 2c 2c 2c 2d 31 2c a9 28 24 6f 6c 64 6d 6f |34,,,-1,.($oldmo|
00003da0 64 65 25 29 0d 13 2e 42 c9 20 33 34 3a e7 20 6d |de%)...B. 34:. m|
00003db0 6f 76 65 64 25 20 c8 99 20 43 61 72 65 74 70 6f |oved% .. Caretpo|
00003dc0 73 25 2c 6f 75 74 70 75 74 25 2c 71 25 21 34 2c |s%,output%,q%!4,|
00003dd0 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 31 36 |q%!8,q%!12,q%!16|
00003de0 2c 71 25 21 32 30 0d 13 38 42 c9 20 31 39 3a e7 |,q%!20..8B. 19:.|
00003df0 20 6d 6f 76 65 64 25 20 c8 99 20 43 61 72 65 74 | moved% .. Caret|
00003e00 70 6f 73 25 2c 6f 75 74 70 75 74 25 2c 71 25 21 |pos%,output%,q%!|
00003e10 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 |4,q%!8,q%!12,q%!|
00003e20 31 36 2c 71 25 21 32 30 0d 13 42 05 cb 0d 13 4c |16,q%!20..B....L|
00003e30 33 e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 |3..geticonstate(|
00003e40 6f 75 74 70 75 74 25 2c 31 38 29 20 24 61 64 6d |output%,18) $adm|
00003e50 6f 64 65 25 3d a4 64 65 64 75 63 65 6d 6f 64 65 |ode%=.deducemode|
00003e60 0d 13 56 32 21 71 25 3d 6f 75 74 70 75 74 25 3a |..V2!q%=output%:|
00003e70 71 25 21 34 3d 32 30 3a 71 25 21 38 3d 30 3a 71 |q%!4=20:q%!8=0:q|
00003e80 25 21 31 32 3d 30 3a c8 99 20 53 65 74 49 2c 2c |%!12=0:.. SetI,,|
00003e90 71 25 0d 13 60 13 f2 73 68 6f 77 73 63 61 6c 65 |q%..`..showscale|
00003ea0 74 6f 66 69 74 0d 13 6a 16 c9 20 73 61 76 65 25 |tofit..j.. save%|
00003eb0 3a c8 8e 20 69 63 6f 6e 25 20 ca 0d 13 74 13 c9 |:.. icon% ...t..|
00003ec0 20 32 3a f2 73 61 76 65 73 70 72 69 74 65 0d 13 | 2:.savesprite..|
00003ed0 7e 05 cb 0d 13 88 4d c9 20 2d 32 3a e7 73 70 72 |~.....M. -2:.spr|
00003ee0 69 74 65 25 20 f2 67 65 74 77 28 70 69 63 25 29 |ite% .getw(pic%)|
00003ef0 3a f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 70 69 |:.open_window(pi|
00003f00 63 25 2c 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 |c%,x0%,y0%,x1%,y|
00003f10 31 25 2c 73 63 78 25 2c 73 63 79 25 2c 2d 31 29 |1%,scx%,scy%,-1)|
00003f20 0d 13 92 18 c9 20 6a 70 65 67 6f 25 3a e7 20 64 |..... jpego%:. d|
00003f30 65 73 74 25 3d 31 20 8c 0d 13 9c 14 c8 99 20 47 |est%=1 ....... G|
00003f40 65 74 63 61 72 65 74 25 2c 2c 71 25 0d 13 a6 b9 |etcaret%,,q%....|
00003f50 64 65 73 74 25 3d 30 3a f2 64 6f 6d 65 6e 75 28 |dest%=0:.domenu(|
00003f60 31 30 31 2c 6d 24 28 31 30 29 2b 22 3e 69 6e 66 |101,m$(10)+">inf|
00003f70 6f 77 25 2c 22 2b 6d 24 28 31 31 29 2b 22 3e 73 |ow%,"+m$(11)+">s|
00003f80 63 61 6c 65 77 25 2c 22 2b 6d 24 28 31 32 29 2b |calew%,"+m$(12)+|
00003f90 22 3e 70 72 6f 63 25 2c 22 2b 6d 24 28 31 33 29 |">proc%,"+m$(13)|
00003fa0 2b 22 3e 6f 75 74 70 75 74 25 3a 64 65 73 74 25 |+">output%:dest%|
00003fb0 2c 22 2b 6d 24 28 32 37 29 2b 22 3e 6a 70 65 67 |,"+m$(27)+">jpeg|
00003fc0 6f 25 3a 31 2d 64 65 73 74 25 2c 22 2b 6d 24 28 |o%:1-dest%,"+m$(|
00003fd0 39 29 2b 22 2c 22 2b 6d 24 28 31 34 29 2b 22 3a |9)+","+m$(14)+":|
00003fe0 66 61 73 74 25 41 4e 44 31 2c 22 2b 6d 24 28 31 |fast%AND1,"+m$(1|
00003ff0 35 29 2b 22 2c 22 2b 6d 24 28 31 36 29 2c 6d 24 |5)+","+m$(16),m$|
00004000 28 32 30 29 29 0d 13 b0 3d e7 20 69 63 6f 6e 25 |(20))...=. icon%|
00004010 3d 35 20 c8 99 20 43 61 72 65 74 70 6f 73 25 2c |=5 .. Caretpos%,|
00004020 6a 70 65 67 6f 25 2c 71 25 21 34 2c 71 25 21 38 |jpego%,q%!4,q%!8|
00004030 2c 71 25 21 31 32 2c 71 25 21 31 36 2c 71 25 21 |,q%!12,q%!16,q%!|
00004040 32 30 0d 13 ba 05 cd 0d 13 c4 0e c8 8e 20 69 63 |20........... ic|
00004050 6f 6e 25 20 ca 0d 13 ce 44 c9 20 33 3a e7 20 62 |on% ....D. 3:. b|
00004060 25 80 34 20 8c 24 61 64 6a 70 65 67 71 25 3d c3 |%.4 .$adjpegq%=.|
00004070 28 bb 24 61 64 6a 70 65 67 71 25 2d 31 29 20 8b |(.$adjpegq%-1) .|
00004080 24 61 64 6a 70 65 67 71 25 3d c3 28 bb 24 61 64 |$adjpegq%=.(.$ad|
00004090 6a 70 65 67 71 25 2b 31 29 0d 13 d8 20 e7 20 bb |jpegq%+1)... . .|
000040a0 24 61 64 6a 70 65 67 71 25 3c 30 20 24 61 64 6a |$adjpegq%<0 $adj|
000040b0 70 65 67 71 25 3d 22 30 22 0d 13 e2 24 e7 20 bb |pegq%="0"...$. .|
000040c0 24 61 64 6a 70 65 67 71 25 3e 31 30 30 20 24 61 |$adjpegq%>100 $a|
000040d0 64 6a 70 65 67 71 25 3d 22 31 30 30 22 0d 13 ec |djpegq%="100"...|
000040e0 30 21 71 25 3d 6a 70 65 67 6f 25 3a 71 25 21 34 |0!q%=jpego%:q%!4|
000040f0 3d 35 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 3d |=5:q%!8=0:q%!12=|
00004100 30 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d 13 f6 |0:.. SetI,,q%...|
00004110 29 c8 99 20 43 61 72 65 74 70 6f 73 25 2c 6a 70 |).. Caretpos%,jp|
00004120 65 67 6f 25 2c 35 2c 2c 2c 2d 31 2c a9 24 61 64 |ego%,5,,,-1,.$ad|
00004130 6a 70 65 67 71 25 0d 14 00 44 c9 20 34 3a e7 20 |jpegq%...D. 4:. |
00004140 62 25 80 34 20 8c 24 61 64 6a 70 65 67 71 25 3d |b%.4 .$adjpegq%=|
00004150 c3 28 bb 24 61 64 6a 70 65 67 71 25 2b 31 29 20 |.(.$adjpegq%+1) |
00004160 8b 24 61 64 6a 70 65 67 71 25 3d c3 28 bb 24 61 |.$adjpegq%=.(.$a|
00004170 64 6a 70 65 67 71 25 2d 31 29 0d 14 0a 20 e7 20 |djpegq%-1)... . |
00004180 bb 24 61 64 6a 70 65 67 71 25 3c 30 20 24 61 64 |.$adjpegq%<0 $ad|
00004190 6a 70 65 67 71 25 3d 22 30 22 0d 14 14 24 e7 20 |jpegq%="0"...$. |
000041a0 bb 24 61 64 6a 70 65 67 71 25 3e 31 30 30 20 24 |.$adjpegq%>100 $|
000041b0 61 64 6a 70 65 67 71 25 3d 22 31 30 30 22 0d 14 |adjpegq%="100"..|
000041c0 1e 30 21 71 25 3d 6a 70 65 67 6f 25 3a 71 25 21 |.0!q%=jpego%:q%!|
000041d0 34 3d 35 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 |4=5:q%!8=0:q%!12|
000041e0 3d 30 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d 14 |=0:.. SetI,,q%..|
000041f0 28 29 c8 99 20 43 61 72 65 74 70 6f 73 25 2c 6a |().. Caretpos%,j|
00004200 70 65 67 6f 25 2c 35 2c 2c 2c 2d 31 2c a9 24 61 |pego%,5,,,-1,.$a|
00004210 64 6a 70 65 67 71 25 0d 14 32 07 c9 20 35 0d 14 |djpegq%..2.. 5..|
00004220 3c 05 cb 0d 14 46 05 cb 0d 14 50 05 cd 0d 14 5a |<....F....P....Z|
00004230 0d e7 62 25 80 26 35 30 20 8c 0d 14 64 10 c8 8e |..b%.&50 ...d...|
00004240 20 68 61 6e 64 6c 65 25 20 ca 0d 14 6e 16 c9 20 | handle% ...n.. |
00004250 73 61 76 65 25 3a c8 8e 20 69 63 6f 6e 25 20 ca |save%:.. icon% .|
00004260 0d 14 78 14 c9 20 30 3a f2 67 65 74 77 28 73 61 |..x.. 0:.getw(sa|
00004270 76 65 25 29 0d 14 82 20 21 71 25 3d 73 61 76 65 |ve%)... !q%=save|
00004280 25 3a 71 25 21 34 3d 30 3a c8 99 20 47 65 74 49 |%:q%!4=0:.. GetI|
00004290 2c 2c 71 25 0d 14 8c 3f 21 71 25 3d 73 61 76 65 |,,q%...?!q%=save|
000042a0 25 3a 71 25 21 34 3d 35 3a 71 25 21 38 2b 3d 62 |%:q%!4=5:q%!8+=b|
000042b0 78 25 3a 71 25 21 31 32 2b 3d 62 79 25 3a 71 25 |x%:q%!12+=by%:q%|
000042c0 21 31 36 2b 3d 62 78 25 3a 71 25 21 32 30 2b 3d |!16+=bx%:q%!20+=|
000042d0 62 79 25 0d 14 96 33 71 25 21 32 34 3d 30 3a 71 |by%...3q%!24=0:q|
000042e0 25 21 32 38 3d 30 3a 71 25 21 33 32 3d 26 37 46 |%!28=0:q%!32=&7F|
000042f0 46 46 46 46 46 46 3a 71 25 21 33 36 3d 26 37 46 |FFFFFF:q%!36=&7F|
00004300 46 46 46 46 46 46 0d 14 a0 2a 74 24 3d 22 66 69 |FFFFFF...*t$="fi|
00004310 6c 65 5f 66 66 39 22 3a e7 6a 70 65 67 73 61 76 |le_ff9":.jpegsav|
00004320 65 25 20 74 24 3d 22 66 69 6c 65 5f 63 38 35 22 |e% t$="file_c85"|
00004330 0d 14 aa 48 e7 64 73 74 61 72 74 25 20 c8 99 20 |...H.dstart% .. |
00004340 64 73 74 61 72 74 25 2c 25 31 31 30 30 30 31 30 |dstart%,%1100010|
00004350 31 2c 31 2c 74 24 2c 71 25 2b 38 2c 71 25 2b 32 |1,1,t$,q%+8,q%+2|
00004360 34 20 8b c8 99 20 22 57 69 6d 70 5f 44 72 61 67 |4 ... "Wimp_Drag|
00004370 42 6f 78 22 2c 2c 71 25 0d 14 b4 05 cb 0d 14 be |Box",,q%........|
00004380 05 cb 0d 14 c8 05 cd 0d 14 d2 05 e1 0d 14 e6 14 |................|
00004390 dd 20 f2 64 6f 7a 6f 6f 6d 28 73 25 2c 61 25 29 |. .dozoom(s%,a%)|
000043a0 0d 14 f0 0b e7 73 25 3d 30 20 8c 0d 14 fa 2f 24 |.....s%=0 ..../$|
000043b0 7a 25 28 30 29 3d c3 28 bb 24 7a 25 28 30 29 2b |z%(0)=.(.$z%(0)+|
000043c0 61 25 29 3a e7 24 7a 25 28 30 29 3d 22 30 22 20 |a%):.$z%(0)="0" |
000043d0 24 7a 25 28 30 29 3d 22 31 22 0d 15 04 05 cc 0d |$z%(0)="1"......|
000043e0 15 0e 2f 24 7a 25 28 31 29 3d c3 28 bb 24 7a 25 |../$z%(1)=.(.$z%|
000043f0 28 31 29 2b 61 25 29 3a e7 24 7a 25 28 31 29 3d |(1)+a%):.$z%(1)=|
00004400 22 30 22 20 24 7a 25 28 31 29 3d 22 31 22 0d 15 |"0" $z%(1)="1"..|
00004410 18 05 cd 0d 15 22 32 21 71 25 3d 7a 6f 6f 6d 25 |....."2!q%=zoom%|
00004420 3a 71 25 21 34 3d 34 2b 73 25 3a 71 25 21 38 3d |:q%!4=4+s%:q%!8=|
00004430 30 3a 71 25 21 31 32 3d 30 3a c8 99 20 53 65 74 |0:q%!12=0:.. Set|
00004440 49 2c 2c 71 25 0d 15 2c 2f 21 71 25 3d 70 69 63 |I,,q%..,/!q%=pic|
00004450 25 3a c8 99 20 47 65 74 57 2c 2c 71 25 3a 66 25 |%:.. GetW,,q%:f%|
00004460 3d 71 25 21 32 38 3a c8 99 20 26 34 30 30 63 33 |=q%!28:.. &400c3|
00004470 2c 2c 71 25 0d 15 36 1f 70 69 63 25 3d a4 63 72 |,,q%..6.pic%=.cr|
00004480 65 61 74 65 5f 77 69 6e 64 6f 77 28 78 2c 79 2c |eate_window(x,y,|
00004490 46 24 29 0d 15 40 13 f2 70 6f 70 75 70 28 70 69 |F$)..@..popup(pi|
000044a0 63 25 2c 66 25 29 0d 15 4a 05 e1 0d 15 5e 27 dd |c%,f%)..J....^'.|
000044b0 20 f2 64 6f 6d 65 6e 75 28 68 61 6e 64 6c 65 25 | .domenu(handle%|
000044c0 2c 6d 65 6e 75 24 2c 6d 65 6e 75 74 69 74 6c 65 |,menu$,menutitle|
000044d0 24 29 0d 15 68 17 6d 65 6e 75 68 61 6e 64 6c 65 |$)..h.menuhandle|
000044e0 25 3d 68 61 6e 64 6c 65 25 0d 15 72 25 6d 65 6e |%=handle%..r%men|
000044f0 75 70 74 72 25 3d 62 75 66 66 65 72 25 3a 69 6e |uptr%=buffer%:in|
00004500 64 69 72 65 63 74 25 3d 69 64 61 74 61 25 0d 15 |direct%=idata%..|
00004510 7c 08 69 25 3d 30 0d 15 86 12 6d 65 6e 75 70 74 ||.i%=0....menupt|
00004520 72 25 21 32 30 3d 34 34 0d 15 90 18 24 6d 65 6e |r%!20=44....$men|
00004530 75 70 74 72 25 3d 6d 65 6e 75 74 69 74 6c 65 24 |uptr%=menutitle$|
00004540 0d 15 9a 3b 6d 65 6e 75 70 74 72 25 3f 31 32 3d |...;menuptr%?12=|
00004550 37 3a 6d 65 6e 75 70 74 72 25 3f 31 33 3d 32 3a |7:menuptr%?13=2:|
00004560 6d 65 6e 75 70 74 72 25 3f 31 34 3d 37 3a 6d 65 |menuptr%?14=7:me|
00004570 6e 75 70 74 72 25 3f 31 35 3d 30 0d 15 a4 21 6d |nuptr%?15=0...!m|
00004580 65 6e 75 70 74 72 25 21 31 36 3d 32 30 30 3a 6d |enuptr%!16=200:m|
00004590 65 6e 75 70 74 72 25 21 32 34 3d 30 0d 15 ae 10 |enuptr%!24=0....|
000045a0 6d 65 6e 75 70 74 72 25 2b 3d 32 38 0d 15 b8 25 |menuptr%+=28...%|
000045b0 f5 20 69 31 25 3d 69 25 2b 31 3a 69 25 3d a7 6d |. i1%=i%+1:i%=.m|
000045c0 65 6e 75 24 2b 22 2c 22 2c 22 2c 22 2c 69 31 25 |enu$+",",",",i1%|
000045d0 29 0d 15 c2 38 69 74 65 6d 24 3d c1 6d 65 6e 75 |)...8item$=.menu|
000045e0 24 2c 69 31 25 2c 69 25 2d 69 31 25 29 3a f2 6d |$,i1%,i%-i1%):.m|
000045f0 65 6e 75 69 74 65 6d 28 69 74 65 6d 24 29 3a fd |enuitem(item$):.|
00004600 20 69 74 65 6d 24 3d 22 22 0d 15 cc 23 6d 65 6e | item$=""...#men|
00004610 75 70 74 72 25 21 2d 32 34 3d 28 6d 65 6e 75 70 |uptr%!-24=(menup|
00004620 74 72 25 21 2d 32 34 29 84 26 38 30 0d 15 d6 60 |tr%!-24).&80...`|
00004630 e7 68 61 6e 64 6c 65 25 3d 31 30 31 20 c8 99 20 |.handle%=101 .. |
00004640 43 72 4d 65 6e 75 2c 2c 62 75 66 66 65 72 25 2c |CrMenu,,buffer%,|
00004650 6d 6f 75 73 65 78 25 2d 36 34 2c 39 36 2b 39 2a |mousex%-64,96+9*|
00004660 34 34 20 8b c8 99 20 43 72 4d 65 6e 75 2c 2c 62 |44 ... CrMenu,,b|
00004670 75 66 66 65 72 25 2c 6d 6f 75 73 65 78 25 2d 33 |uffer%,mousex%-3|
00004680 32 2c 6d 6f 75 73 65 79 25 2b 31 36 0d 15 e0 05 |2,mousey%+16....|
00004690 e1 0d 15 f4 16 dd 20 f2 6d 65 6e 75 69 74 65 6d |...... .menuitem|
000046a0 28 74 65 78 74 24 29 0d 15 fe 10 e7 20 74 65 78 |(text$)..... tex|
000046b0 74 24 3d 22 22 20 e1 0d 16 08 2a 66 6c 67 25 3d |t$="" ....*flg%=|
000046c0 30 3a 73 75 62 6d 65 6e 75 25 3d 2d 31 3a 49 25 |0:submenu%=-1:I%|
000046d0 3d a7 74 65 78 74 24 2c 22 3a 22 29 3a e7 49 25 |=.text$,":"):.I%|
000046e0 8c 0d 16 12 29 66 6c 67 25 3d a0 c1 74 65 78 74 |....)flg%=..text|
000046f0 24 2c 49 25 2b 31 29 3a 74 65 78 74 24 3d c0 74 |$,I%+1):text$=.t|
00004700 65 78 74 24 2c 49 25 2d 31 29 0d 16 1c 05 cd 0d |ext$,I%-1)......|
00004710 16 26 17 49 25 3d a7 74 65 78 74 24 2c 22 3e 22 |.&.I%=.text$,">"|
00004720 29 3a e7 49 25 8c 0d 16 30 2d 73 75 62 6d 65 6e |):.I%...0-submen|
00004730 75 25 3d a0 c1 74 65 78 74 24 2c 49 25 2b 31 29 |u%=..text$,I%+1)|
00004740 3a 74 65 78 74 24 3d c0 74 65 78 74 24 2c 49 25 |:text$=.text$,I%|
00004750 2d 31 29 0d 16 3a 05 cd 0d 16 44 13 6d 65 6e 75 |-1)..:....D.menu|
00004760 70 74 72 25 21 30 3d 66 6c 67 25 0d 16 4e 17 6d |ptr%!0=flg%..N.m|
00004770 65 6e 75 70 74 72 25 21 34 3d 73 75 62 6d 65 6e |enuptr%!4=submen|
00004780 75 25 0d 16 58 56 e7 28 74 65 78 74 24 3d 6d 24 |u%..XV.(text$=m$|
00004790 28 39 29 80 28 46 24 3d 22 22 20 84 20 46 24 3d |(9).(F$="" . F$=|
000047a0 22 53 70 72 69 74 65 46 69 6c 65 22 20 84 20 46 |"SpriteFile" . F|
000047b0 24 3d 22 4a 50 45 47 49 6d 61 67 65 22 29 29 20 |$="JPEGImage")) |
000047c0 84 20 28 74 65 78 74 24 3d 6d 24 28 31 34 29 80 |. (text$=m$(14).|
000047d0 76 72 61 6d 25 29 20 8c 0d 16 62 18 6d 65 6e 75 |vram%) ...b.menu|
000047e0 70 74 72 25 21 38 3d 26 30 37 34 30 30 30 32 31 |ptr%!8=&07400021|
000047f0 0d 16 6c 05 cc 0d 16 76 18 6d 65 6e 75 70 74 72 |..l....v.menuptr|
00004800 25 21 38 3d 26 30 37 30 30 30 30 32 31 0d 16 80 |%!8=&07000021...|
00004810 05 cd 0d 16 8a 32 e7 a9 74 65 78 74 24 2a 31 36 |.....2..text$*16|
00004820 2b 38 3e 62 75 66 66 65 72 25 21 31 36 20 62 75 |+8>buffer%!16 bu|
00004830 66 66 65 72 25 21 31 36 3d a9 74 65 78 74 24 2a |ffer%!16=.text$*|
00004840 31 36 2b 38 0d 16 94 10 e7 a9 74 65 78 74 24 3e |16+8......text$>|
00004850 31 32 20 8c 0d 16 9e 42 6d 65 6e 75 70 74 72 25 |12 ....Bmenuptr%|
00004860 21 38 3d 6d 65 6e 75 70 74 72 25 21 38 20 84 20 |!8=menuptr%!8 . |
00004870 32 35 36 3a 6d 65 6e 75 70 74 72 25 21 32 30 3d |256:menuptr%!20=|
00004880 a9 74 65 78 74 24 2b 31 3a 6d 65 6e 75 70 74 72 |.text$+1:menuptr|
00004890 25 21 31 36 3d 30 0d 16 a8 3e 6d 65 6e 75 70 74 |%!16=0...>menupt|
000048a0 72 25 21 31 32 3d 69 6e 64 69 72 65 63 74 25 3a |r%!12=indirect%:|
000048b0 24 69 6e 64 69 72 65 63 74 25 3d 74 65 78 74 24 |$indirect%=text$|
000048c0 3a 69 6e 64 69 72 65 63 74 25 2b 3d a9 74 65 78 |:indirect%+=.tex|
000048d0 74 24 2b 32 0d 16 b2 05 cc 0d 16 bc 18 24 28 6d |t$+2.........$(m|
000048e0 65 6e 75 70 74 72 25 2b 31 32 29 3d 74 65 78 74 |enuptr%+12)=text|
000048f0 24 0d 16 c6 05 cd 0d 16 d0 10 6d 65 6e 75 70 74 |$.........menupt|
00004900 72 25 2b 3d 32 34 0d 16 da 05 e1 0d 16 ee 19 dd |r%+=24..........|
00004910 20 f2 6d 65 6e 75 73 65 6c 65 63 74 28 6d 65 6e | .menuselect(men|
00004920 75 73 25 29 0d 16 f8 2c c8 99 20 47 65 74 50 2c |us%)...,.. GetP,|
00004930 2c 70 61 6c 74 65 6d 70 25 3a 61 64 6a 75 73 74 |,paltemp%:adjust|
00004940 25 3d 70 61 6c 74 65 6d 70 25 21 38 20 80 20 31 |%=paltemp%!8 . 1|
00004950 0d 17 02 2d c8 99 20 44 63 4d 65 6e 75 2c 2c 62 |...-.. DcMenu,,b|
00004960 75 66 66 65 72 25 2c 6d 65 6e 75 73 25 2c c4 32 |uffer%,menus%,.2|
00004970 30 30 2c 22 20 22 29 b8 2c 2c 2c 61 24 0d 17 0c |00," ").,,,a$...|
00004980 0e e7 20 61 24 3d 22 22 20 8c e1 0d 17 16 14 c8 |.. a$="" .......|
00004990 8e 20 6d 65 6e 75 68 61 6e 64 6c 65 25 20 ca 0d |. menuhandle% ..|
000049a0 17 20 0a c9 20 70 69 63 25 0d 17 2a 0b c8 8e 20 |. .. pic%..*... |
000049b0 61 24 20 ca 0d 17 34 14 c9 20 6d 24 28 39 29 3a |a$ ...4.. m$(9):|
000049c0 f2 63 61 6c 6c 46 53 49 0d 17 3e 05 cb 0d 17 48 |.callFSI..>....H|
000049d0 09 c9 20 31 30 31 0d 17 52 0b c8 8e 20 61 24 20 |.. 101..R... a$ |
000049e0 ca 0d 17 5c 19 c9 20 6d 24 28 31 34 29 3a 66 61 |...\.. m$(14):fa|
000049f0 73 74 25 3d ac 66 61 73 74 25 0d 17 66 14 c9 20 |st%=.fast%..f.. |
00004a00 6d 24 28 32 37 29 3a 64 65 73 74 25 3d 30 0d 17 |m$(27):dest%=0..|
00004a10 70 14 c9 20 6d 24 28 31 33 29 3a 64 65 73 74 25 |p.. m$(13):dest%|
00004a20 3d 31 0d 17 7a 14 c9 20 6d 24 28 39 29 3a f2 63 |=1..z.. m$(9):.c|
00004a30 61 6c 6c 46 53 49 0d 17 84 0c c9 20 6d 24 28 31 |allFSI..... m$(1|
00004a40 35 29 0d 17 8e 46 73 74 61 74 65 73 63 61 6c 65 |5)...Fstatescale|
00004a50 25 3d 30 3a e3 49 25 3d 30 b8 39 3a 73 74 61 74 |%=0:.I%=0.9:stat|
00004a60 65 73 63 61 6c 65 25 2b 3d a4 67 65 74 69 63 6f |escale%+=.getico|
00004a70 6e 73 74 61 74 65 28 73 63 61 6c 65 77 25 2c 49 |nstate(scalew%,I|
00004a80 25 29 3c 3c 49 25 3a ed 0d 17 98 3c e3 49 25 3d |%)<<I%:....<.I%=|
00004a90 31 30 b8 31 33 3a 73 74 61 74 65 73 63 61 6c 65 |10.13:statescale|
00004aa0 25 2b 3d a4 67 65 74 69 63 6f 6e 73 74 61 74 65 |%+=.geticonstate|
00004ab0 28 73 63 61 6c 65 77 25 2c 49 25 2b 36 29 3c 3c |(scalew%,I%+6)<<|
00004ac0 49 25 3a ed 0d 17 a2 42 73 74 61 74 65 70 72 6f |I%:....Bstatepro|
00004ad0 63 25 3d 30 3a e3 49 25 3d 30 b8 37 3a 73 74 61 |c%=0:.I%=0.7:sta|
00004ae0 74 65 70 72 6f 63 25 2b 3d a4 67 65 74 69 63 6f |teproc%+=.getico|
00004af0 6e 73 74 61 74 65 28 70 72 6f 63 25 2c 49 25 29 |nstate(proc%,I%)|
00004b00 3c 3c 49 25 3a ed 0d 17 ac 49 73 74 61 74 65 6f |<<I%:....Istateo|
00004b10 75 74 70 75 74 25 3d 30 3a e3 49 25 3d 30 b8 32 |utput%=0:.I%=0.2|
00004b20 36 3a 73 74 61 74 65 6f 75 74 70 75 74 25 2b 3d |6:stateoutput%+=|
00004b30 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 28 6f 75 |.geticonstate(ou|
00004b40 74 70 75 74 25 2c 49 25 29 3c 3c 49 25 3a ed 0d |tput%,I%)<<I%:..|
00004b50 17 b6 43 73 74 61 74 65 6a 70 65 67 25 3d 30 3a |..Cstatejpeg%=0:|
00004b60 e3 49 25 3d 30 b8 33 3a 73 74 61 74 65 6a 70 65 |.I%=0.3:statejpe|
00004b70 67 25 2b 3d a4 67 65 74 69 63 6f 6e 73 74 61 74 |g%+=.geticonstat|
00004b80 65 28 6a 70 65 67 6f 25 2c 49 25 29 3c 3c 49 25 |e(jpego%,I%)<<I%|
00004b90 3a ed 0d 17 c0 21 41 25 3d ae 22 3c 43 68 61 6e |:....!A%=."<Chan|
00004ba0 67 65 46 53 49 24 44 69 72 3e 2e 43 68 6f 69 63 |geFSI$Dir>.Choic|
00004bb0 65 73 22 0d 17 ca 57 f1 23 41 25 2c 66 61 73 74 |es"...W.#A%,fast|
00004bc0 25 2c 64 65 73 74 25 2c 73 74 61 74 65 73 63 61 |%,dest%,statesca|
00004bd0 6c 65 25 2c 73 74 61 74 65 70 72 6f 63 25 2c 73 |le%,stateproc%,s|
00004be0 74 61 74 65 6f 75 74 70 75 74 25 2c 73 74 61 74 |tateoutput%,stat|
00004bf0 65 6a 70 65 67 25 2c 24 61 64 6a 70 65 67 71 25 |ejpeg%,$adjpegq%|
00004c00 2c 24 6f 6c 64 6d 6f 64 65 25 0d 17 d4 5a f1 23 |,$oldmode%...Z.#|
00004c10 41 25 2c 24 70 25 28 30 29 2c a4 6c 6f 63 61 6c |A%,$p%(0),.local|
00004c20 65 5f 63 6f 6e 76 65 72 74 28 24 70 25 28 31 29 |e_convert($p%(1)|
00004c30 2c 64 65 63 69 6d 61 6c 5f 70 6f 69 6e 74 24 2c |,decimal_point$,|
00004c40 22 2e 22 29 2c 24 70 25 28 32 29 2c 24 70 25 28 |"."),$p%(2),$p%(|
00004c50 33 29 2c 24 61 64 6d 6f 64 65 25 2c 24 61 64 73 |3),$admode%,$ads|
00004c60 70 63 6c 25 0d 17 de 24 f1 23 41 25 2c 24 73 25 |pcl%...$.#A%,$s%|
00004c70 28 30 29 2c 24 73 25 28 31 29 2c 24 73 25 28 32 |(0),$s%(1),$s%(2|
00004c80 29 2c 24 73 25 28 33 29 0d 17 e8 08 d9 23 41 25 |),$s%(3).....#A%|
00004c90 0d 17 f2 1c c9 20 6d 24 28 31 36 29 3a f2 63 68 |..... m$(16):.ch|
00004ca0 65 63 6b 61 6e 64 66 69 6e 69 73 68 0d 17 fc 05 |eckandfinish....|
00004cb0 cb 0d 18 06 05 cb 0d 18 10 30 e7 61 64 6a 75 73 |.........0.adjus|
00004cc0 74 25 20 f2 63 68 65 63 6b 6d 6f 75 73 65 28 30 |t% .checkmouse(0|
00004cd0 2c 30 2c 32 2c 72 6d 65 6e 75 68 61 6e 64 6c 65 |,0,2,rmenuhandle|
00004ce0 25 2c 30 2c 30 29 0d 18 1a 05 e1 0d 18 2e 20 dd |%,0,0)........ .|
00004cf0 20 a4 63 72 65 61 74 65 5f 77 69 6e 64 6f 77 28 | .create_window(|
00004d00 78 2c 79 2c 74 69 74 6c 65 24 29 0d 18 38 2b 78 |x,y,title$)..8+x|
00004d10 3d 78 2a bb 24 7a 25 28 30 29 81 bb 24 7a 25 28 |=x*.$z%(0)..$z%(|
00004d20 31 29 3a 79 3d 79 2a bb 24 7a 25 28 30 29 81 bb |1):y=y*.$z%(0)..|
00004d30 24 7a 25 28 31 29 0d 18 42 20 21 7a 25 3d 30 3a |$z%(1)..B !z%=0:|
00004d40 7a 25 21 34 3d 2d 79 3a 7a 25 21 38 3d 78 3a 7a |z%!4=-y:z%!8=x:z|
00004d50 25 21 31 32 3d 30 0d 18 4c 24 7a 25 21 34 30 3d |%!12=0..L$z%!40=|
00004d60 30 3a 7a 25 21 34 34 3d 2d 79 3a 7a 25 21 34 38 |0:z%!44=-y:z%!48|
00004d70 3d 78 3a 7a 25 21 35 32 3d 30 0d 18 56 25 e7 78 |=x:z%!52=0..V%.x|
00004d80 3c 31 32 38 20 84 20 79 3c 31 32 38 20 7a 25 3f |<128 . y<128 z%?|
00004d90 33 35 3d 30 20 8b 7a 25 3f 33 35 3d 32 35 35 0d |35=0 .z%?35=255.|
00004da0 18 60 29 24 61 64 74 69 74 6c 65 25 3d 22 22 3a |.`)$adtitle%="":|
00004db0 c8 99 20 43 72 65 61 74 65 57 2c 2c 7a 25 20 b8 |.. CreateW,,z% .|
00004dc0 20 68 61 6e 64 6c 65 25 0d 18 6a 14 24 61 64 74 | handle%..j.$adt|
00004dd0 69 74 6c 65 25 3d 74 69 74 6c 65 24 0d 18 74 0c |itle%=title$..t.|
00004de0 3d 68 61 6e 64 6c 65 25 0d 18 88 18 dd 20 f2 70 |=handle%..... .p|
00004df0 6f 70 75 70 28 68 61 6e 64 6c 65 25 2c 66 25 29 |opup(handle%,f%)|
00004e00 0d 18 92 31 c8 99 20 22 4f 53 5f 52 65 61 64 4d |...1.. "OS_ReadM|
00004e10 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c |odeVariable",-1,|
00004e20 34 20 b8 20 2c 2c 6d 6f 64 65 78 73 68 69 66 74 |4 . ,,modexshift|
00004e30 25 0d 18 9c 31 c8 99 20 22 4f 53 5f 52 65 61 64 |%...1.. "OS_Read|
00004e40 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 |ModeVariable",-1|
00004e50 2c 35 20 b8 20 2c 2c 6d 6f 64 65 79 73 68 69 66 |,5 . ,,modeyshif|
00004e60 74 25 0d 18 a6 30 c8 99 20 22 4f 53 5f 52 65 61 |t%...0.. "OS_Rea|
00004e70 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d |dModeVariable",-|
00004e80 31 2c 31 31 20 b8 20 2c 2c 72 69 67 68 74 73 63 |1,11 . ,,rightsc|
00004e90 72 25 0d 18 b0 2e c8 99 20 22 4f 53 5f 52 65 61 |r%...... "OS_Rea|
00004ea0 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d |dModeVariable",-|
00004eb0 31 2c 31 32 20 b8 20 2c 2c 74 6f 70 73 63 72 25 |1,12 . ,,topscr%|
00004ec0 0d 18 ba 41 72 69 67 68 74 73 63 72 25 3d 72 69 |...Arightscr%=ri|
00004ed0 67 68 74 73 63 72 25 3c 3c 6d 6f 64 65 78 73 68 |ghtscr%<<modexsh|
00004ee0 69 66 74 25 3a 74 6f 70 73 63 72 25 3d 74 6f 70 |ift%:topscr%=top|
00004ef0 73 63 72 25 3c 3c 6d 6f 64 65 79 73 68 69 66 74 |scr%<<modeyshift|
00004f00 25 0d 18 c4 12 f2 67 65 74 77 28 68 61 6e 64 6c |%.....getw(handl|
00004f10 65 25 29 0d 18 ce 39 78 6f 25 3d 72 69 67 68 74 |e%)...9xo%=right|
00004f20 73 63 72 25 2f 32 2d 28 78 30 25 2b 78 31 25 29 |scr%/2-(x0%+x1%)|
00004f30 2f 32 3a 79 6f 25 3d 74 6f 70 73 63 72 25 2f 32 |/2:yo%=topscr%/2|
00004f40 2d 28 79 30 25 2b 79 31 25 29 2f 32 0d 18 d8 46 |-(y0%+y1%)/2...F|
00004f50 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 68 61 6e |.open_window(han|
00004f60 64 6c 65 25 2c 78 30 25 2b 78 6f 25 2c 79 30 25 |dle%,x0%+xo%,y0%|
00004f70 2b 79 6f 25 2c 78 31 25 2b 78 6f 25 2c 79 31 25 |+yo%,x1%+xo%,y1%|
00004f80 2b 79 6f 25 2c 73 63 78 25 2c 73 63 79 25 2c 66 |+yo%,scx%,scy%,f|
00004f90 25 29 0d 18 e2 05 e1 0d 18 f6 3e dd 20 f2 6f 70 |%)........>. .op|
00004fa0 65 6e 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 |en_window(handle|
00004fb0 25 2c 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 |%,x0%,y0%,x1%,y1|
00004fc0 25 2c 73 63 78 25 2c 73 63 79 25 2c 62 68 61 6e |%,scx%,scy%,bhan|
00004fd0 64 6c 65 25 29 0d 19 00 11 e7 68 61 6e 64 6c 65 |dle%).....handle|
00004fe0 25 3d 2d 31 8c e1 0d 19 0a 1f 71 25 21 30 3d 68 |%=-1......q%!0=h|
00004ff0 61 6e 64 6c 65 25 3a 71 25 21 32 38 3d 62 68 61 |andle%:q%!28=bha|
00005000 6e 64 6c 65 25 0d 19 14 29 71 25 21 34 3d 78 30 |ndle%...)q%!4=x0|
00005010 25 3a 71 25 21 38 3d 79 30 25 3a 71 25 21 31 32 |%:q%!8=y0%:q%!12|
00005020 3d 78 31 25 3a 71 25 21 31 36 3d 79 31 25 0d 19 |=x1%:q%!16=y1%..|
00005030 1e 19 71 25 21 32 30 3d 73 63 78 25 3a 71 25 21 |..q%!20=scx%:q%!|
00005040 32 34 3d 73 63 79 25 0d 19 28 10 c8 99 20 4f 70 |24=scy%..(... Op|
00005050 65 6e 57 2c 2c 71 25 0d 19 32 05 e1 0d 19 46 14 |enW,,q%..2....F.|
00005060 dd 20 f2 67 65 74 77 28 68 61 6e 64 6c 65 25 29 |. .getw(handle%)|
00005070 0d 19 50 1b 21 71 25 3d 68 61 6e 64 6c 65 25 3a |..P.!q%=handle%:|
00005080 c8 99 20 47 65 74 57 2c 2c 71 25 0d 19 5a 2b f2 |.. GetW,,q%..Z+.|
00005090 69 6e 66 6f 28 71 25 2b 34 29 3a 62 68 61 6e 64 |info(q%+4):bhand|
000050a0 6c 65 25 3d 71 25 21 32 38 3a 66 6c 61 67 73 25 |le%=q%!28:flags%|
000050b0 3d 71 25 21 33 32 0d 19 64 05 e1 0d 19 78 0f dd |=q%!32..d....x..|
000050c0 20 f2 69 6e 66 6f 28 71 25 29 0d 19 82 3d 78 30 | .info(q%)...=x0|
000050d0 25 3d 21 71 25 3a 79 30 25 3d 71 25 21 34 3a 78 |%=!q%:y0%=q%!4:x|
000050e0 31 25 3d 71 25 21 38 3a 79 31 25 3d 71 25 21 31 |1%=q%!8:y1%=q%!1|
000050f0 32 3a 73 63 78 25 3d 71 25 21 31 36 3a 73 63 79 |2:scx%=q%!16:scy|
00005100 25 3d 71 25 21 32 30 0d 19 8c 1d 62 78 25 3d 78 |%=q%!20....bx%=x|
00005110 30 25 2d 73 63 78 25 3a 62 79 25 3d 79 31 25 2d |0%-scx%:by%=y1%-|
00005120 73 63 79 25 0d 19 96 05 e1 0d 19 aa 1d dd 20 f2 |scy%.......... .|
00005130 72 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 68 61 |redraw_window(ha|
00005140 6e 64 6c 65 25 29 0d 19 b4 14 e7 20 68 61 6e 64 |ndle%)..... hand|
00005150 6c 65 25 3d 70 69 63 25 20 8c 0d 19 be 3f 21 66 |le%=pic% ....?!f|
00005160 61 63 74 6f 72 73 25 3d 21 69 66 61 63 74 6f 72 |actors%=!ifactor|
00005170 73 25 2a bb 24 7a 25 28 30 29 3a 66 61 63 74 6f |s%*.$z%(0):facto|
00005180 72 73 25 21 34 3d 69 66 61 63 74 6f 72 73 25 21 |rs%!4=ifactors%!|
00005190 34 2a bb 24 7a 25 28 30 29 0d 19 c8 43 66 61 63 |4*.$z%(0)...Cfac|
000051a0 74 6f 72 73 25 21 38 3d 69 66 61 63 74 6f 72 73 |tors%!8=ifactors|
000051b0 25 21 38 2a bb 24 7a 25 28 31 29 3a 66 61 63 74 |%!8*.$z%(1):fact|
000051c0 6f 72 73 25 21 31 32 3d 69 66 61 63 74 6f 72 73 |ors%!12=ifactors|
000051d0 25 21 31 32 2a bb 24 7a 25 28 31 29 0d 19 d2 41 |%!12*.$z%(1)...A|
000051e0 f2 72 65 64 75 63 65 28 21 66 61 63 74 6f 72 73 |.reduce(!factors|
000051f0 25 2c 66 61 63 74 6f 72 73 25 21 38 29 3a f2 72 |%,factors%!8):.r|
00005200 65 64 75 63 65 28 66 61 63 74 6f 72 73 25 21 34 |educe(factors%!4|
00005210 2c 66 61 63 74 6f 72 73 25 21 31 32 29 0d 19 dc |,factors%!12)...|
00005220 0f 21 71 25 3d 68 61 6e 64 6c 65 25 0d 19 e6 1a |.!q%=handle%....|
00005230 c8 99 20 52 65 64 72 61 77 57 2c 2c 71 25 20 b8 |.. RedrawW,,q% .|
00005240 20 6d 6f 72 65 25 0d 19 f0 2c f2 69 6e 66 6f 28 | more%...,.info(|
00005250 71 25 2b 34 29 3a 62 79 25 3d 62 79 25 2d a8 28 |q%+4):by%=by%-.(|
00005260 79 2a bb 24 7a 25 28 30 29 81 bb 24 7a 25 28 31 |y*.$z%(0)..$z%(1|
00005270 29 29 0d 19 fa 0c c8 95 20 6d 6f 72 65 25 0d 1a |))...... more%..|
00005280 04 10 e7 6a 70 65 67 73 61 76 65 25 20 8c 0d 1a |...jpegsave% ...|
00005290 0e 51 e7 6a 70 65 67 70 61 69 6e 74 25 20 c8 99 |.Q.jpegpaint% ..|
000052a0 20 6a 70 65 67 70 61 69 6e 74 25 2c 73 61 72 25 | jpegpaint%,sar%|
000052b0 2c 62 78 25 2c 62 79 25 2c 66 61 63 74 6f 72 73 |,bx%,by%,factors|
000052c0 25 2c 6a 70 65 67 73 69 7a 65 25 2c 31 20 b8 3b |%,jpegsize%,1 .;|
000052d0 56 25 3a e7 28 56 25 80 31 29 3d 30 20 8b da 0d |V%:.(V%.1)=0 ...|
000052e0 1a 18 05 cc 0d 1a 22 31 c8 99 20 73 70 6f 70 78 |......"1.. spopx|
000052f0 25 2c 26 31 33 34 2c 73 61 72 25 2c 6e 24 2c 62 |%,&134,sar%,n$,b|
00005300 78 25 2c 62 79 25 2c 2c 66 61 63 74 6f 72 73 25 |x%,by%,,factors%|
00005310 2c 73 70 78 25 0d 1a 2c 05 cd 0d 1a 36 19 c8 99 |,spx%..,....6...|
00005320 20 47 65 74 52 25 2c 30 2c 71 25 20 b8 20 6d 6f | GetR%,0,q% . mo|
00005330 72 65 25 0d 1a 40 05 ce 0d 1a 4a 05 cd 0d 1a 54 |re%..@....J....T|
00005340 05 e1 0d 1a 68 22 dd 20 a4 67 65 74 69 63 6f 6e |....h". .geticon|
00005350 73 74 61 74 65 28 68 61 6e 64 6c 65 25 2c 69 63 |state(handle%,ic|
00005360 6f 6e 25 29 0d 1a 72 26 21 71 25 3d 68 61 6e 64 |on%)..r&!q%=hand|
00005370 6c 65 25 3a 71 25 21 34 3d 69 63 6f 6e 25 3a c8 |le%:q%!4=icon%:.|
00005380 99 20 47 65 74 49 2c 2c 71 25 0d 1a 7c 12 3d 71 |. GetI,,q%..|.=q|
00005390 25 21 32 34 3e 3e 32 31 20 80 20 31 0d 1a 90 12 |%!24>>21 . 1....|
000053a0 dd 20 f2 67 65 74 6d 6f 64 65 69 6e 66 6f 0d 1a |. .getmodeinfo..|
000053b0 9a 10 e7 6a 70 65 67 73 61 76 65 25 20 8c 0d 1a |...jpegsave% ...|
000053c0 a4 25 c8 99 26 33 35 2c 2d 31 2c 34 20 b8 2c 2c |.%..&35,-1,4 .,,|
000053d0 6e 78 3a c8 99 26 33 35 2c 2d 31 2c 35 20 b8 2c |nx:..&35,-1,5 .,|
000053e0 2c 6e 79 0d 1a ae 3d 21 69 66 61 63 74 6f 72 73 |,ny...=!ifactors|
000053f0 25 3d 31 3a 69 66 61 63 74 6f 72 73 25 21 34 3d |%=1:ifactors%!4=|
00005400 31 3a 69 66 61 63 74 6f 72 73 25 21 38 3d 6e 78 |1:ifactors%!8=nx|
00005410 3a 69 66 61 63 74 6f 72 73 25 21 31 32 3d 6e 79 |:ifactors%!12=ny|
00005420 0d 1a b8 05 e1 0d 1a c2 05 cd 0d 1a cc 3e c8 99 |.............>..|
00005430 22 58 57 69 6d 70 5f 52 65 61 64 50 69 78 54 72 |"XWimp_ReadPixTr|
00005440 61 6e 73 22 2c 26 31 30 30 2c 73 61 72 25 2c 6e |ans",&100,sar%,n|
00005450 24 2c 2c 2c 2c 69 66 61 63 74 6f 72 73 25 2c 70 |$,,,,ifactors%,p|
00005460 69 78 74 72 61 6e 73 25 0d 1a d6 24 c8 99 20 73 |ixtrans%...$.. s|
00005470 70 6f 70 78 25 2c 26 31 31 38 2c 73 61 72 25 2c |popx%,&118,sar%,|
00005480 6e 24 20 b8 20 2c 2c 73 70 74 72 25 0d 1a e0 13 |n$ . ,,sptr%....|
00005490 e7 20 73 70 74 72 25 21 33 32 3d 34 34 20 8c 0d |. sptr%!32=44 ..|
000054a0 1a ea 0d 70 61 6c 70 74 72 25 3d 30 0d 1a f4 05 |...palptr%=0....|
000054b0 cc 0d 1a fe 41 e3 20 67 72 61 62 25 3d 30 20 b8 |....A. grab%=0 .|
000054c0 20 32 30 34 38 2d 38 20 88 20 38 3a 70 61 6c 74 | 2048-8 . 8:palt|
000054d0 65 6d 70 25 21 28 67 72 61 62 25 3e 3e 31 29 3d |emp%!(grab%>>1)=|
000054e0 73 70 74 72 25 21 28 67 72 61 62 25 2b 34 34 29 |sptr%!(grab%+44)|
000054f0 3a ed 0d 1b 08 14 70 61 6c 70 74 72 25 3d 70 61 |:.....palptr%=pa|
00005500 6c 74 65 6d 70 25 0d 1b 12 05 cd 0d 1b 1c 1f e3 |ltemp%..........|
00005510 51 25 3d 30 b8 32 35 35 3a 70 69 78 74 72 61 6e |Q%=0.255:pixtran|
00005520 73 25 3f 51 25 3d 51 25 3a ed 0d 1b 26 17 e7 73 |s%?Q%=Q%:...&..s|
00005530 70 74 72 25 21 33 32 3d 34 34 2b 32 30 34 38 20 |ptr%!32=44+2048 |
00005540 8c 0d 1b 30 35 e3 51 25 3d 30 b8 32 35 35 3a c8 |...05.Q%=0.255:.|
00005550 99 63 74 72 61 6e 25 2c 70 61 6c 70 74 72 25 21 |.ctran%,palptr%!|
00005560 28 51 25 3c 3c 32 29 b8 70 69 78 74 72 61 6e 73 |(Q%<<2).pixtrans|
00005570 25 3f 51 25 3a ed 0d 1b 3a 05 cc 0d 1b 44 3a c8 |%?Q%:...:....D:.|
00005580 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 |. "ColourTrans_S|
00005590 65 6c 65 63 74 54 61 62 6c 65 22 2c 6d 2c 70 61 |electTable",m,pa|
000055a0 6c 70 74 72 25 2c 2d 31 2c 2d 31 2c 70 69 78 74 |lptr%,-1,-1,pixt|
000055b0 72 61 6e 73 25 0d 1b 4e 05 cd 0d 1b 58 36 73 70 |rans%..N....X6sp|
000055c0 78 25 3d 2d 31 3a e3 51 25 3d 30 b8 32 35 35 3a |x%=-1:.Q%=0.255:|
000055d0 e7 70 69 78 74 72 61 6e 73 25 3f 51 25 3c 3e 51 |.pixtrans%?Q%<>Q|
000055e0 25 20 73 70 78 25 3d 70 69 78 74 72 61 6e 73 25 |% spx%=pixtrans%|
000055f0 0d 1b 62 05 ed 0d 1b 6c 05 e1 0d 1b 80 11 dd 20 |..b....l....... |
00005600 a4 64 65 64 75 63 65 6d 6f 64 65 0d 1b 8a 0b ea |.deducemode.....|
00005610 20 6d 2c 78 2c 79 0d 1b 94 20 e7 a4 67 65 74 69 | m,x,y... ..geti|
00005620 63 6f 6e 73 74 61 74 65 28 6f 75 74 70 75 74 25 |constate(output%|
00005630 2c 32 31 29 20 8c 0d 1b 9e 33 e7 a4 67 65 74 69 |,21) ....3..geti|
00005640 63 6f 6e 73 74 61 74 65 28 6f 75 74 70 75 74 25 |constate(output%|
00005650 2c 31 37 29 20 8c 3d 22 4a 50 45 47 38 22 20 8b |,17) .="JPEG8" .|
00005660 3d 22 4a 50 45 47 32 34 22 0d 1b a8 05 cc 0d 1b |="JPEG24".......|
00005670 b2 20 e7 a4 67 65 74 69 63 6f 6e 73 74 61 74 65 |. ..geticonstate|
00005680 28 6f 75 74 70 75 74 25 2c 31 38 29 20 8c 0d 1b |(output%,18) ...|
00005690 bc 13 c8 99 20 26 36 2c 31 33 35 20 b8 20 2c 2c |.... &6,135 . ,,|
000056a0 6d 0d 1b d0 13 c8 99 26 33 35 2c 2d 31 2c 39 20 |m......&35,-1,9 |
000056b0 b8 2c 2c 6d 0d 1b da 0a e7 6d 3e 33 20 8c 0d 1b |.,,m.....m>3 ...|
000056c0 e4 23 c8 99 26 33 35 2c 2d 31 2c 34 20 b8 2c 2c |.#..&35,-1,4 .,,|
000056d0 78 3a c8 99 26 33 35 2c 2d 31 2c 35 20 b8 2c 2c |x:..&35,-1,5 .,,|
000056e0 79 0d 1b ee 1b 78 3d 31 38 30 2f 28 32 5e 78 29 |y....x=180/(2^x)|
000056f0 3a 79 3d 31 38 30 2f 28 32 5e 79 29 0d 1b f8 1d |:y=180/(2^y)....|
00005700 3d 22 53 22 2b c3 28 32 5e 6d 29 2b 22 2c 22 2b |="S"+.(2^m)+","+|
00005710 c3 78 2b 22 2c 22 2b c3 79 0d 1c 02 05 cc 0d 1c |.x+","+.y.......|
00005720 0c 07 3d c3 eb 0d 1c 16 05 cd 0d 1c 20 05 cc 0d |..=......... ...|
00005730 1c 2a 21 e7 20 a4 67 65 74 69 63 6f 6e 73 74 61 |.*!. .geticonsta|
00005740 74 65 28 6f 75 74 70 75 74 25 2c 32 34 29 20 8c |te(output%,24) .|
00005750 0d 1c 34 0e 3d 24 6f 6c 64 6d 6f 64 65 25 0d 1c |..4.=$oldmode%..|
00005760 3e 05 cc 0d 1c 48 0d 3d 24 61 64 6d 6f 64 65 25 |>....H.=$admode%|
00005770 0d 1c 52 05 cd 0d 1c 5c 05 cd 0d 1c 66 05 cd 0d |..R....\....f...|
00005780 1c 7a 15 dd 20 f2 73 68 6f 77 73 63 61 6c 65 74 |.z.. .showscalet|
00005790 6f 66 69 74 0d 1c 84 0b ea 20 6d 2c 78 2c 79 0d |ofit..... m,x,y.|
000057a0 1c 8e 18 24 61 64 6d 6f 64 65 25 3d a4 64 65 64 |...$admode%=.ded|
000057b0 75 63 65 6d 6f 64 65 0d 1c 98 11 c8 8e 20 3f 61 |ucemode...... ?a|
000057c0 64 6d 6f 64 65 25 20 ca 0d 1c a2 0a c9 20 97 22 |dmode% ...... ."|
000057d0 53 22 0d 1c ac 29 e7 bb c1 24 61 64 6d 6f 64 65 |S"...)...$admode|
000057e0 25 2c 35 29 3e bb c1 24 61 64 6d 6f 64 65 25 2c |%,5)>..$admode%,|
000057f0 38 29 20 78 3d 36 20 8b 78 3d 30 0d 1c b6 20 e7 |8) x=6 .x=0... .|
00005800 bb c1 24 61 64 6d 6f 64 65 25 2c 32 29 3e 31 36 |..$admode%,2)>16|
00005810 20 78 2b 3d 35 20 8b 78 2b 3d 34 0d 1c c0 2f c8 | x+=5 .x+=4.../.|
00005820 99 26 33 35 2c 2d 31 2c 31 31 20 b8 2c 2c 74 6f |.&35,-1,11 .,,to|
00005830 66 69 74 78 3a c8 99 26 33 35 2c 2d 31 2c 31 32 |fitx:..&35,-1,12|
00005840 20 b8 2c 2c 74 6f 66 69 74 79 0d 1c ca 0a c9 20 | .,,tofity..... |
00005850 97 22 4a 22 0d 1c d4 2f c8 99 26 33 35 2c 2d 31 |."J".../..&35,-1|
00005860 2c 31 31 20 b8 2c 2c 74 6f 66 69 74 78 3a c8 99 |,11 .,,tofitx:..|
00005870 26 33 35 2c 2d 31 2c 31 32 20 b8 2c 2c 74 6f 66 |&35,-1,12 .,,tof|
00005880 69 74 79 0d 1c e8 08 78 3d 31 32 0d 1c f2 05 7f |ity....x=12.....|
00005890 0d 1c fc 0f 6d 3d bb 24 61 64 6d 6f 64 65 25 0d |....m=.$admode%.|
000058a0 1d 06 2d c8 99 26 33 35 2c 6d 2c 31 31 20 b8 2c |..-..&35,m,11 .,|
000058b0 2c 74 6f 66 69 74 78 3a c8 99 26 33 35 2c 6d 2c |,tofitx:..&35,m,|
000058c0 31 32 20 b8 2c 2c 74 6f 66 69 74 79 0d 1d 10 2f |12 .,,tofity.../|
000058d0 c8 99 26 33 35 2c 6d 2c 34 20 b8 2c 2c 78 3a c8 |..&35,m,4 .,,x:.|
000058e0 99 26 33 35 2c 6d 2c 35 20 b8 2c 2c 79 3a e7 79 |.&35,m,5 .,,y:.y|
000058f0 3e 78 20 78 3d 36 20 8b 78 3d 30 0d 1d 1a 17 c8 |>x x=6 .x=0.....|
00005900 99 26 33 35 2c 6d 2c 39 20 b8 2c 2c 79 3a 78 2b |.&35,m,9 .,,y:x+|
00005910 3d 79 0d 1d 24 05 cb 0d 1d 2e 3f 74 6f 66 69 74 |=y..$.....?tofit|
00005920 78 2b 3d 31 3a 74 6f 66 69 74 79 2b 3d 31 3a 24 |x+=1:tofity+=1:$|
00005930 61 64 73 63 61 6c 65 25 3d 6d 24 28 31 37 29 2b |adscale%=m$(17)+|
00005940 c3 74 6f 66 69 74 78 2b 6d 24 28 31 38 29 2b c3 |.tofitx+m$(18)+.|
00005950 74 6f 66 69 74 79 0d 1d 38 3d 71 25 21 31 32 3d |tofity..8=q%!12=|
00005960 31 3c 3c 32 31 3a 21 71 25 3d 6f 75 74 70 75 74 |1<<21:!q%=output|
00005970 25 3a e3 49 25 3d 30 b8 31 31 3a e7 49 25 3d 78 |%:.I%=0.11:.I%=x|
00005980 20 71 25 21 38 3d 31 3c 3c 32 31 20 8b 71 25 21 | q%!8=1<<21 .q%!|
00005990 38 3d 30 0d 1d 42 3c 71 25 21 34 3d 49 25 2b 33 |8=0..B<q%!4=I%+3|
000059a0 3a c8 99 20 53 65 74 49 2c 2c 71 25 3a ed 3a e7 |:.. SetI,,q%:.:.|
000059b0 78 3d 31 32 20 71 25 21 38 3d 30 3a 71 25 21 34 |x=12 q%!8=0:q%!4|
000059c0 3d 32 34 3a c8 99 20 53 65 74 49 2c 2c 71 25 0d |=24:.. SetI,,q%.|
000059d0 1d 4c 05 e1 0d 1d 60 16 dd 20 f2 6b 69 6c 6c 63 |.L....`.. .killc|
000059e0 75 72 72 65 6e 74 28 6d 24 29 0d 1d 6a 22 71 25 |urrent(m$)..j"q%|
000059f0 21 31 32 3d 31 3c 3c 32 31 3a 21 71 25 3d 6f 75 |!12=1<<21:!q%=ou|
00005a00 74 70 75 74 25 3a 71 25 21 38 3d 30 0d 1d 74 17 |tput%:q%!8=0..t.|
00005a10 71 25 21 34 3d 32 30 3a c8 99 20 53 65 74 49 2c |q%!4=20:.. SetI,|
00005a20 2c 71 25 0d 1d 7e 0f 24 61 64 6d 6f 64 65 25 3d |,q%..~.$admode%=|
00005a30 6d 24 0d 1d 92 05 e1 0d 1d a6 2b dd a4 5a 53 28 |m$........+..ZS(|
00005a40 49 25 29 ea 41 24 3a f5 41 24 2b 3d bd 3f 49 25 |I%).A$:.A$+=.?I%|
00005a50 3a 49 25 2b 3d 31 3a fd 3f 49 25 3c 31 34 3a 3d |:I%+=1:.?I%<14:=|
00005a60 41 24 0d 1d ba 0f dd 20 f2 65 72 72 6f 72 62 6f |A$..... .errorbo|
00005a70 78 0d 1d c4 3e c8 99 20 44 72 61 67 2c 2c 2d 31 |x...>.. Drag,,-1|
00005a80 3a 21 62 75 66 66 65 72 25 3d 9f 3a 24 28 62 75 |:!buffer%=.:$(bu|
00005a90 66 66 65 72 25 2b 34 29 3d f6 24 2b 22 20 28 63 |ffer%+4)=.$+" (c|
00005aa0 6f 64 65 20 22 2b c3 9e 2b 22 29 22 2b bd 30 0d |ode "+..+")"+.0.|
00005ab0 1d ce 32 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f |..2.. "Wimp_Repo|
00005ac0 72 74 45 72 72 6f 72 22 2c 62 75 66 66 65 72 25 |rtError",buffer%|
00005ad0 2c 25 31 31 2c 6d 24 28 32 30 29 20 b8 20 2c 41 |,%11,m$(20) . ,A|
00005ae0 25 0d 1d d8 2b e7 41 25 3d 32 20 f2 72 65 6d 6f |%...+.A%=2 .remo|
00005af0 76 65 61 72 65 61 3a c8 99 20 22 57 69 6d 70 5f |vearea:.. "Wimp_|
00005b00 43 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 1d e2 05 |CloseDown":.....|
00005b10 e1 0d 1e c8 53 dd 20 a4 43 68 61 6e 67 65 46 53 |....S. .ChangeFS|
00005b20 49 28 41 24 2c 73 70 72 69 74 65 61 72 65 61 25 |I(A$,spritearea%|
00005b30 2c 77 6f 72 6b 73 70 61 63 65 25 2c 77 6f 72 6b |,workspace%,work|
00005b40 6c 69 6d 69 74 25 2c 6f 6b 73 61 76 65 25 2c 6f |limit%,oksave%,o|
00005b50 6b 69 6e 66 6f 25 2c f8 20 72 61 6d 25 2c 66 61 |kinfo%,. ram%,fa|
00005b60 73 74 25 29 0d 1e d2 4d ea 20 41 24 28 29 2c 72 |st%)...M. A$(),r|
00005b70 25 28 29 2c 67 25 28 29 2c 62 25 28 29 2c 72 70 |%(),g%(),b%(),rp|
00005b80 61 6c 25 28 29 2c 67 70 61 6c 25 28 29 2c 62 70 |al%(),gpal%(),bp|
00005b90 61 6c 25 28 29 2c 74 61 62 6c 65 25 28 29 2c 63 |al%(),table%(),c|
00005ba0 6c 25 28 29 2c 78 6c 25 28 29 2c 78 6c 32 25 28 |l%(),xl%(),xl2%(|
00005bb0 29 0d 1e dc 4d ea 20 78 70 25 28 29 2c 72 6d 25 |)...M. xp%(),rm%|
00005bc0 28 29 2c 72 6d 31 25 28 29 2c 72 6d 32 25 28 29 |(),rm1%(),rm2%()|
00005bd0 2c 76 61 6c 73 25 28 29 2c 6e 6c 25 28 29 2c 41 |,vals%(),nl%(),A|
00005be0 25 28 29 2c 42 25 28 29 2c 6e 65 77 25 28 29 2c |%(),B%(),new%(),|
00005bf0 73 74 25 28 29 2c 6a 70 71 25 28 29 2c 6d 0d 1e |st%(),jpq%(),m..|
00005c00 e6 24 c8 95 c0 41 24 2c 31 29 3c 3e 22 20 22 80 |.$...A$,1)<>" ".|
00005c10 a9 41 24 3c 3e 30 20 41 24 3d c1 41 24 2c 32 29 |.A$<>0 A$=.A$,2)|
00005c20 3a ce 0d 1e f0 1c c8 95 c0 41 24 2c 31 29 3d 22 |:........A$,1)="|
00005c30 20 22 20 41 24 3d c1 41 24 2c 32 29 3a ce 0d 1e | " A$=.A$,2):...|
00005c40 fa 1a c8 95 c2 41 24 2c 31 29 3d 22 20 22 20 41 |.....A$,1)=" " A|
00005c50 24 3d c0 41 24 29 3a ce 0d 1f 04 1a e7 a4 75 63 |$=.A$):.......uc|
00005c60 28 c0 41 24 2c 35 29 29 3d 22 2d 51 55 49 54 22 |(.A$,5))="-QUIT"|
00005c70 20 8c 0d 1f 0e 2e 41 24 3d c1 41 24 2c 37 29 3a | .....A$=.A$,7):|
00005c80 c8 95 c0 41 24 2c 31 29 3c 3e 22 20 22 80 a9 41 |...A$,1)<>" "..A|
00005c90 24 3c 3e 30 20 41 24 3d c1 41 24 2c 32 29 3a ce |$<>0 A$=.A$,2):.|
00005ca0 0d 1f 18 1c c8 95 c0 41 24 2c 31 29 3d 22 20 22 |.......A$,1)=" "|
00005cb0 20 41 24 3d c1 41 24 2c 32 29 3a ce 0d 1f 22 05 | A$=.A$,2):...".|
00005cc0 cd 0d 1f 2c 20 de 20 41 24 28 31 30 30 29 3a 41 |..., . A$(100):A|
00005cd0 52 47 25 3d 30 3a 42 25 3d a7 41 24 2c 22 20 22 |RG%=0:B%=.A$," "|
00005ce0 29 0d 1f 36 0c c8 95 20 42 25 3c 3e 30 0d 1f 40 |)..6... B%<>0..@|
00005cf0 2b 41 52 47 25 2b 3d 31 3a 41 24 28 41 52 47 25 |+ARG%+=1:A$(ARG%|
00005d00 29 3d c0 41 24 2c 42 25 2d 31 29 3a 41 24 3d c1 |)=.A$,B%-1):A$=.|
00005d10 41 24 2c 42 25 2b 31 29 0d 1f 4a 1d c8 95 20 c0 |A$,B%+1)..J... .|
00005d20 41 24 2c 31 29 3d 22 20 22 3a 41 24 3d c1 41 24 |A$,1)=" ":A$=.A$|
00005d30 2c 32 29 3a ce 0d 1f 54 0f 42 25 3d a7 41 24 2c |,2):...T.B%=.A$,|
00005d40 22 20 22 29 0d 1f 5e 05 ce 0d 1f 68 1f e7 41 24 |" ")..^....h..A$|
00005d50 3c 3e 22 22 20 41 52 47 25 2b 3d 31 3a 41 24 28 |<>"" ARG%+=1:A$(|
00005d60 41 52 47 25 29 3d 41 24 0d 1f 72 58 69 6e 76 65 |ARG%)=A$..rXinve|
00005d70 72 74 25 3d a3 3a 72 61 6e 67 65 25 3d a3 3a 73 |rt%=.:range%=.:s|
00005d80 68 61 72 70 65 6e 25 3d a3 3a 69 6e 66 6f 25 3d |harpen%=.:info%=|
00005d90 a3 3a 63 61 63 68 65 25 3d a3 3a 63 61 63 68 65 |.:cache%=.:cache|
00005da0 61 72 65 61 6e 75 6d 62 65 72 25 3d 30 3a 64 69 |areanumber%=0:di|
00005db0 74 68 65 72 25 3d b9 3a 62 6c 61 63 6b 25 3d a3 |ther%=.:black%=.|
00005dc0 0d 1f 7c 43 68 69 73 74 25 3d a3 3a 65 71 75 61 |..|Chist%=.:equa|
00005dd0 6c 25 3d a3 3a 76 66 6c 69 70 25 3d a3 3a 68 66 |l%=.:vflip%=.:hf|
00005de0 6c 69 70 25 3d a3 3a 73 63 61 6c 65 25 3d b9 3a |lip%=.:scale%=.:|
00005df0 73 63 61 6c 65 6f 25 3d b9 3a 73 63 72 61 70 66 |scaleo%=.:scrapf|
00005e00 25 3d a3 0d 1f 86 36 67 61 6d 6d 61 3d 31 3a 72 |%=....6gamma=1:r|
00005e10 6f 74 61 74 65 25 3d a3 3a 6d 61 78 25 3d 32 30 |otate%=.:max%=20|
00005e20 30 30 30 30 30 30 3a 62 72 69 67 68 74 25 3d 31 |000000:bright%=1|
00005e30 35 3a 6c 6f 63 6b 25 3d a3 0d 1f 90 1e 72 77 74 |5:lock%=.....rwt|
00005e40 3d 2e 32 39 39 3a 67 77 74 3d 2e 35 38 37 3a 62 |=.299:gwt=.587:b|
00005e50 77 74 3d 2e 31 31 34 0d 1f 9a 0d e7 41 52 47 25 |wt=.114.....ARG%|
00005e60 3c 33 20 8c 0d 1f a4 4a f1 22 43 68 61 6e 67 65 |<3 ....J."Change|
00005e70 46 53 49 20 69 6e 74 65 72 61 63 74 69 76 65 20 |FSI interactive |
00005e80 69 6e 70 75 74 20 28 72 65 61 64 20 46 53 49 69 |input (read FSIi|
00005e90 6e 66 6f 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 20 |nfo for command |
00005ea0 6c 69 6e 65 20 64 65 74 61 69 6c 73 29 22 0d 1f |line details)"..|
00005eb0 ae 3f e8 22 53 6f 75 72 63 65 20 66 69 6c 65 3a |.?."Source file:|
00005ec0 20 22 73 24 2c 22 44 65 73 74 69 6e 61 74 69 6f | "s$,"Destinatio|
00005ed0 6e 20 66 69 6c 65 3a 20 22 66 24 2c 22 4f 75 74 |n file: "f$,"Out|
00005ee0 70 75 74 20 6d 6f 64 65 3a 20 22 6d 24 0d 1f b8 |put mode: "m$...|
00005ef0 2f e8 22 28 58 29 53 63 61 6c 65 20 28 65 2e 67 |/."(X)Scale (e.g|
00005f00 2e 20 32 3a 31 29 3a 20 22 78 73 24 3a e8 22 59 |. 2:1): "xs$:."Y|
00005f10 20 53 63 61 6c 65 3a 20 22 79 73 24 0d 1f c2 38 | Scale: "ys$...8|
00005f20 e8 22 49 6e 66 6f 20 6f 6e 20 69 6e 70 75 74 20 |."Info on input |
00005f30 70 69 63 74 75 72 65 3f 22 61 24 3a e7 a4 75 63 |picture?"a$:..uc|
00005f40 28 c0 61 24 2c 31 29 29 3d 22 59 22 20 69 6e 66 |(.a$,1))="Y" inf|
00005f50 6f 25 3d b9 0d 1f cc 3b e8 22 49 6e 76 65 72 74 |o%=....;."Invert|
00005f60 20 70 69 63 74 75 72 65 20 63 6f 6c 6f 75 72 73 | picture colours|
00005f70 3f 22 61 24 3a e7 a4 75 63 28 c0 61 24 2c 31 29 |?"a$:..uc(.a$,1)|
00005f80 29 3d 22 59 22 20 69 6e 76 65 72 74 25 3d b9 0d |)="Y" invert%=..|
00005f90 1f d6 3d e8 22 43 6f 6d 70 75 74 65 20 68 69 73 |..=."Compute his|
00005fa0 74 6f 67 72 61 6d 20 6f 66 20 69 6e 70 75 74 3f |togram of input?|
00005fb0 22 61 24 3a e7 a4 75 63 28 c0 61 24 2c 31 29 29 |"a$:..uc(.a$,1))|
00005fc0 3d 22 59 22 20 68 69 73 74 25 3d b9 0d 1f e0 40 |="Y" hist%=....@|
00005fd0 e8 22 41 70 70 6c 79 20 68 69 73 74 6f 67 72 61 |."Apply histogra|
00005fe0 6d 20 65 71 75 61 6c 69 73 61 74 69 6f 6e 3f 22 |m equalisation?"|
00005ff0 61 24 3a e7 a4 75 63 28 c0 61 24 2c 31 29 29 3d |a$:..uc(.a$,1))=|
00006000 22 59 22 20 65 71 75 61 6c 25 3d b9 0d 1f ea 47 |"Y" equal%=....G|
00006010 e8 22 45 78 70 61 6e 64 20 69 6e 70 75 74 20 64 |."Expand input d|
00006020 79 6e 61 6d 69 63 20 72 61 6e 67 65 3f 22 61 24 |ynamic range?"a$|
00006030 3a e7 a4 75 63 28 c0 61 24 2c 31 29 29 3d 22 59 |:..uc(.a$,1))="Y|
00006040 22 20 72 61 6e 67 65 25 3d b9 3a 65 71 75 61 6c |" range%=.:equal|
00006050 25 3d a3 0d 1f f4 3d e8 22 53 68 61 72 70 65 6e |%=....=."Sharpen|
00006060 20 70 69 63 74 75 72 65 20 62 79 20 28 65 2e 67 | picture by (e.g|
00006070 2e 20 31 32 20 66 6f 72 20 68 61 72 73 68 2c 20 |. 12 for harsh, |
00006080 32 34 20 66 6f 72 20 73 6f 66 74 29 20 22 61 24 |24 for soft) "a$|
00006090 0d 1f fe 18 e7 61 24 3c 3e 22 22 20 73 68 61 72 |.....a$<>"" shar|
000060a0 70 65 6e 25 3d bb 61 24 0d 20 08 2b e8 22 52 6f |pen%=.a$. .+."Ro|
000060b0 74 61 74 65 3f 22 61 24 3a e7 a4 75 63 28 c0 61 |tate?"a$:..uc(.a|
000060c0 24 2c 31 29 29 3d 22 59 22 20 72 6f 74 61 74 65 |$,1))="Y" rotate|
000060d0 25 3d 31 0d 20 12 1e 73 63 61 6c 65 25 3d a3 3a |%=1. ..scale%=.:|
000060e0 73 63 61 6c 65 6f 25 3d a3 3a 66 61 73 74 25 3d |scaleo%=.:fast%=|
000060f0 a3 0d 20 1c 05 cc 0d 20 26 0d f5 20 41 25 3d 41 |.. .... &.. A%=A|
00006100 52 47 25 0d 20 30 36 e7 a4 75 63 28 41 24 28 41 |RG%. 06..uc(A$(A|
00006110 52 47 25 29 29 3d 22 2d 49 4e 46 4f 22 20 69 6e |RG%))="-INFO" in|
00006120 66 6f 25 3d b9 3a 41 24 28 41 52 47 25 29 3d 22 |fo%=.:A$(ARG%)="|
00006130 22 3a 41 52 47 25 2d 3d 31 0d 20 3a 36 e7 a4 75 |":ARG%-=1. :6..u|
00006140 63 28 41 24 28 41 52 47 25 29 29 3d 22 2d 48 49 |c(A$(ARG%))="-HI|
00006150 53 54 22 20 68 69 73 74 25 3d b9 3a 41 24 28 41 |ST" hist%=.:A$(A|
00006160 52 47 25 29 3d 22 22 3a 41 52 47 25 2d 3d 31 0d |RG%)="":ARG%-=1.|
00006170 20 44 36 e7 a4 75 63 28 41 24 28 41 52 47 25 29 | D6..uc(A$(ARG%)|
00006180 29 3d 22 2d 4c 4f 43 4b 22 20 6c 6f 63 6b 25 3d |)="-LOCK" lock%=|
00006190 b9 3a 41 24 28 41 52 47 25 29 3d 22 22 3a 41 52 |.:A$(ARG%)="":AR|
000061a0 47 25 2d 3d 31 0d 20 4e 41 e7 a4 75 63 28 41 24 |G%-=1. NA..uc(A$|
000061b0 28 41 52 47 25 29 29 3d 22 2d 45 51 55 41 4c 22 |(ARG%))="-EQUAL"|
000061c0 20 65 71 75 61 6c 25 3d b9 3a 72 61 6e 67 65 25 | equal%=.:range%|
000061d0 3d a3 3a 41 24 28 41 52 47 25 29 3d 22 22 3a 41 |=.:A$(ARG%)="":A|
000061e0 52 47 25 2d 3d 31 0d 20 58 41 e7 a4 75 63 28 41 |RG%-=1. XA..uc(A|
000061f0 24 28 41 52 47 25 29 29 3d 22 2d 52 41 4e 47 45 |$(ARG%))="-RANGE|
00006200 22 20 72 61 6e 67 65 25 3d b9 3a 65 71 75 61 6c |" range%=.:equal|
00006210 25 3d a3 3a 41 24 28 41 52 47 25 29 3d 22 22 3a |%=.:A$(ARG%)="":|
00006220 41 52 47 25 2d 3d 31 0d 20 62 3a e7 a4 75 63 28 |ARG%-=1. b:..uc(|
00006230 41 24 28 41 52 47 25 29 29 3d 22 2d 49 4e 56 45 |A$(ARG%))="-INVE|
00006240 52 54 22 20 69 6e 76 65 72 74 25 3d b9 3a 41 24 |RT" invert%=.:A$|
00006250 28 41 52 47 25 29 3d 22 22 3a 41 52 47 25 2d 3d |(ARG%)="":ARG%-=|
00006260 31 0d 20 6c 44 e7 a4 75 63 28 41 24 28 41 52 47 |1. lD..uc(A$(ARG|
00006270 25 29 29 3d 22 2d 4e 4f 53 43 41 4c 45 22 20 73 |%))="-NOSCALE" s|
00006280 63 61 6c 65 25 3d a3 3a 73 63 61 6c 65 6f 25 3d |cale%=.:scaleo%=|
00006290 a3 3a 41 24 28 41 52 47 25 29 3d 22 22 3a 41 52 |.:A$(ARG%)="":AR|
000062a0 47 25 2d 3d 31 0d 20 76 39 e7 a4 75 63 28 41 24 |G%-=1. v9..uc(A$|
000062b0 28 41 52 47 25 29 29 3d 22 2d 4e 4f 53 49 5a 45 |(ARG%))="-NOSIZE|
000062c0 22 20 73 63 61 6c 65 25 3d a3 3a 41 24 28 41 52 |" scale%=.:A$(AR|
000062d0 47 25 29 3d 22 22 3a 41 52 47 25 2d 3d 31 0d 20 |G%)="":ARG%-=1. |
000062e0 80 3c e7 a4 75 63 28 41 24 28 41 52 47 25 29 29 |.<..uc(A$(ARG%))|
000062f0 3d 22 2d 4e 4f 44 49 54 48 45 52 22 20 64 69 74 |="-NODITHER" dit|
00006300 68 65 72 25 3d a3 3a 41 24 28 41 52 47 25 29 3d |her%=.:A$(ARG%)=|
00006310 22 22 3a 41 52 47 25 2d 3d 31 0d 20 8a 3d e7 a4 |"":ARG%-=1. .=..|
00006320 75 63 28 41 24 28 41 52 47 25 29 29 3d 22 2d 42 |uc(A$(ARG%))="-B|
00006330 52 49 47 48 54 45 4e 22 20 62 72 69 67 68 74 25 |RIGHTEN" bright%|
00006340 3d 31 36 3a 41 24 28 41 52 47 25 29 3d 22 22 3a |=16:A$(ARG%)="":|
00006350 41 52 47 25 2d 3d 31 0d 20 94 3a e7 a4 75 63 28 |ARG%-=1. .:..uc(|
00006360 41 24 28 41 52 47 25 29 29 3d 22 2d 52 4f 54 41 |A$(ARG%))="-ROTA|
00006370 54 45 22 20 72 6f 74 61 74 65 25 3d 31 3a 41 24 |TE" rotate%=1:A$|
00006380 28 41 52 47 25 29 3d 22 22 3a 41 52 47 25 2d 3d |(ARG%)="":ARG%-=|
00006390 31 0d 20 9e 3c e7 a4 75 63 28 41 24 28 41 52 47 |1. .<..uc(A$(ARG|
000063a0 25 29 29 3d 22 2d 52 4f 54 41 54 45 2d 22 20 72 |%))="-ROTATE-" r|
000063b0 6f 74 61 74 65 25 3d 2d 31 3a 41 24 28 41 52 47 |otate%=-1:A$(ARG|
000063c0 25 29 3d 22 22 3a 41 52 47 25 2d 3d 31 0d 20 a8 |%)="":ARG%-=1. .|
000063d0 38 e7 a4 75 63 28 41 24 28 41 52 47 25 29 29 3d |8..uc(A$(ARG%))=|
000063e0 22 2d 56 46 4c 49 50 22 20 76 66 6c 69 70 25 3d |"-VFLIP" vflip%=|
000063f0 b9 3a 41 24 28 41 52 47 25 29 3d 22 22 3a 41 52 |.:A$(ARG%)="":AR|
00006400 47 25 2d 3d 31 0d 20 b2 38 e7 a4 75 63 28 41 24 |G%-=1. .8..uc(A$|
00006410 28 41 52 47 25 29 29 3d 22 2d 48 46 4c 49 50 22 |(ARG%))="-HFLIP"|
00006420 20 68 66 6c 69 70 25 3d b9 3a 41 24 28 41 52 47 | hflip%=.:A$(ARG|
00006430 25 29 3d 22 22 3a 41 52 47 25 2d 3d 31 0d 20 bc |%)="":ARG%-=1. .|
00006440 38 e7 a4 75 63 28 41 24 28 41 52 47 25 29 29 3d |8..uc(A$(ARG%))=|
00006450 22 2d 4e 4f 4d 4f 44 45 22 20 66 61 73 74 25 3d |"-NOMODE" fast%=|
00006460 a3 3a 41 24 28 41 52 47 25 29 3d 22 22 3a 41 52 |.:A$(ARG%)="":AR|
00006470 47 25 2d 3d 31 0d 20 c6 21 e7 a4 75 63 28 c0 41 |G%-=1. .!..uc(.A|
00006480 24 28 41 52 47 25 29 2c 36 29 29 3d 22 2d 42 4c |$(ARG%),6))="-BL|
00006490 41 43 4b 22 20 8c 0d 20 d0 46 62 6c 61 63 6b 25 |ACK" .. .Fblack%|
000064a0 3d 33 32 3a e7 a9 41 24 28 41 52 47 25 29 3e 36 |=32:..A$(ARG%)>6|
000064b0 20 62 6c 61 63 6b 25 3d bb c1 41 24 28 41 52 47 | black%=..A$(ARG|
000064c0 25 29 2c 37 29 3a e7 62 6c 61 63 6b 25 3e 31 32 |%),7):.black%>12|
000064d0 38 20 62 6c 61 63 6b 25 3d 31 32 38 0d 20 da 17 |8 black%=128. ..|
000064e0 41 24 28 41 52 47 25 29 3d 22 22 3a 41 52 47 25 |A$(ARG%)="":ARG%|
000064f0 2d 3d 31 0d 20 e4 05 cd 0d 20 ee 21 e7 a4 75 63 |-=1. .... .!..uc|
00006500 28 c0 41 24 28 41 52 47 25 29 2c 36 29 29 3d 22 |(.A$(ARG%),6))="|
00006510 2d 47 41 4d 4d 41 22 20 8c 0d 20 f8 2e 67 61 6d |-GAMMA" .. ..gam|
00006520 6d 61 3d 32 2e 32 3a e7 a9 41 24 28 41 52 47 25 |ma=2.2:..A$(ARG%|
00006530 29 3e 36 20 67 61 6d 6d 61 3d bb c1 41 24 28 41 |)>6 gamma=..A$(A|
00006540 52 47 25 29 2c 37 29 0d 21 02 17 41 24 28 41 52 |RG%),7).!..A$(AR|
00006550 47 25 29 3d 22 22 3a 41 52 47 25 2d 3d 31 0d 21 |G%)="":ARG%-=1.!|
00006560 0c 05 cd 0d 21 16 23 e7 a4 75 63 28 c0 41 24 28 |....!.#..uc(.A$(|
00006570 41 52 47 25 29 2c 38 29 29 3d 22 2d 53 48 41 52 |ARG%),8))="-SHAR|
00006580 50 45 4e 22 20 8c 0d 21 20 33 73 68 61 72 70 65 |PEN" ..! 3sharpe|
00006590 6e 25 3d 32 34 3a e7 a9 41 24 28 41 52 47 25 29 |n%=24:..A$(ARG%)|
000065a0 3e 38 20 73 68 61 72 70 65 6e 25 3d bb c1 41 24 |>8 sharpen%=..A$|
000065b0 28 41 52 47 25 29 2c 39 29 0d 21 2a 17 41 24 28 |(ARG%),9).!*.A$(|
000065c0 41 52 47 25 29 3d 22 22 3a 41 52 47 25 2d 3d 31 |ARG%)="":ARG%-=1|
000065d0 0d 21 34 05 cd 0d 21 3e 22 e7 a4 75 63 28 c0 41 |.!4...!>"..uc(.A|
000065e0 24 28 41 52 47 25 29 2c 37 29 29 3d 22 2d 53 4d |$(ARG%),7))="-SM|
000065f0 4f 4f 54 48 22 20 8c 0d 21 48 34 73 68 61 72 70 |OOTH" ..!H4sharp|
00006600 65 6e 25 3d 2d 31 3a e7 a9 41 24 28 41 52 47 25 |en%=-1:..A$(ARG%|
00006610 29 3e 37 20 73 68 61 72 70 65 6e 25 3d 2d bb c1 |)>7 sharpen%=-..|
00006620 41 24 28 41 52 47 25 29 2c 38 29 0d 21 52 32 41 |A$(ARG%),8).!R2A|
00006630 24 28 41 52 47 25 29 3d 22 22 3a 41 52 47 25 2d |$(ARG%)="":ARG%-|
00006640 3d 31 3a e7 73 68 61 72 70 65 6e 25 3c 2d 32 33 |=1:.sharpen%<-23|
00006650 20 73 68 61 72 70 65 6e 25 3d 2d 32 33 0d 21 5c | sharpen%=-23.!\|
00006660 05 cd 0d 21 66 43 e7 a4 75 63 28 c0 41 24 28 41 |...!fC..uc(.A$(A|
00006670 52 47 25 29 2c 34 29 29 3d 22 2d 52 45 44 22 20 |RG%),4))="-RED" |
00006680 72 77 74 3d bb c1 41 24 28 41 52 47 25 29 2c 35 |rwt=..A$(ARG%),5|
00006690 29 3a 41 24 28 41 52 47 25 29 3d 22 22 3a 41 52 |):A$(ARG%)="":AR|
000066a0 47 25 2d 3d 31 0d 21 70 45 e7 a4 75 63 28 c0 41 |G%-=1.!pE..uc(.A|
000066b0 24 28 41 52 47 25 29 2c 36 29 29 3d 22 2d 47 52 |$(ARG%),6))="-GR|
000066c0 45 45 4e 22 20 67 77 74 3d bb c1 41 24 28 41 52 |EEN" gwt=..A$(AR|
000066d0 47 25 29 2c 37 29 3a 41 24 28 41 52 47 25 29 3d |G%),7):A$(ARG%)=|
000066e0 22 22 3a 41 52 47 25 2d 3d 31 0d 21 7a 44 e7 a4 |"":ARG%-=1.!zD..|
000066f0 75 63 28 c0 41 24 28 41 52 47 25 29 2c 35 29 29 |uc(.A$(ARG%),5))|
00006700 3d 22 2d 42 4c 55 45 22 20 62 77 74 3d bb c1 41 |="-BLUE" bwt=..A|
00006710 24 28 41 52 47 25 29 2c 36 29 3a 41 24 28 41 52 |$(ARG%),6):A$(AR|
00006720 47 25 29 3d 22 22 3a 41 52 47 25 2d 3d 31 0d 21 |G%)="":ARG%-=1.!|
00006730 84 1f e7 a4 75 63 28 c0 41 24 28 41 52 47 25 29 |....uc(.A$(ARG%)|
00006740 2c 34 29 29 3d 22 2d 4d 41 58 22 20 8c 0d 21 8e |,4))="-MAX" ..!.|
00006750 44 6d 61 78 25 3d bb c1 41 24 28 41 52 47 25 29 |Dmax%=..A$(ARG%)|
00006760 2c 35 29 3a e7 a7 41 24 28 41 52 47 25 29 2c 22 |,5):..A$(ARG%),"|
00006770 4b 22 29 84 a7 41 24 28 41 52 47 25 29 2c 22 6b |K")..A$(ARG%),"k|
00006780 22 29 20 6d 61 78 25 3d 6d 61 78 25 2a 31 30 32 |") max%=max%*102|
00006790 34 0d 21 98 17 41 24 28 41 52 47 25 29 3d 22 22 |4.!..A$(ARG%)=""|
000067a0 3a 41 52 47 25 2d 3d 31 0d 21 a2 05 cd 0d 21 ac |:ARG%-=1.!....!.|
000067b0 0c fd 41 25 3d 41 52 47 25 0d 21 b6 32 73 24 3d |..A%=ARG%.!.2s$=|
000067c0 41 24 28 31 29 3a 66 24 3d 41 24 28 32 29 3a 6d |A$(1):f$=A$(2):m|
000067d0 24 3d 41 24 28 33 29 3a 78 73 24 3d 41 24 28 34 |$=A$(3):xs$=A$(4|
000067e0 29 3a 79 73 24 3d 41 24 28 35 29 0d 21 c0 05 cd |):ys$=A$(5).!...|
000067f0 0d 21 ca 15 e7 6f 6b 69 6e 66 6f 25 20 8b 69 6e |.!...okinfo% .in|
00006800 66 6f 25 3d a3 0d 21 d4 14 e7 77 6f 72 6b 73 70 |fo%=..!...worksp|
00006810 61 63 65 25 3e 3d 30 20 8c 0d 21 de 0b 66 6c 65 |ace%>=0 ..!..fle|
00006820 78 25 3d a3 0d 21 e8 05 cc 0d 21 f2 3c e7 77 6f |x%=..!....!.<.wo|
00006830 72 6b 6c 69 6d 69 74 25 3d 30 20 8c 66 6c 65 78 |rklimit%=0 .flex|
00006840 25 3d a3 20 8b 66 6c 65 78 25 3d b9 3a 6e 65 78 |%=. .flex%=.:nex|
00006850 74 6c 6f 63 61 74 69 6f 6e 25 3d 77 6f 72 6b 6c |tlocation%=workl|
00006860 69 6d 69 74 25 0d 21 fc 05 cd 0d 22 06 22 70 6e |imit%.!...."."pn|
00006870 6d 24 3d a4 75 63 28 6d 24 29 3a c8 8e 20 c0 70 |m$=.uc(m$):.. .p|
00006880 6e 6d 24 2b 22 2c 22 2c 33 29 20 ca 0d 22 10 15 |nm$+",",3) .."..|
00006890 c9 22 41 49 4d 22 3a 6d 3d 2d 31 3a 6d 24 3d 22 |."AIM":m=-1:m$="|
000068a0 22 0d 22 1a 22 c9 22 50 31 2c 22 2c 22 50 34 2c |"."."."P1,","P4,|
000068b0 22 3a 6d 3d 2d 32 3a 6d 24 3d 22 22 3a 73 70 6d |":m=-2:m$="":spm|
000068c0 3d 31 38 0d 22 24 23 c9 22 50 32 2c 22 2c 22 50 |=18."$#."P2,","P|
000068d0 35 2c 22 3a 6d 3d 2d 32 3a 6d 24 3d 22 54 22 3a |5,":m=-2:m$="T":|
000068e0 73 70 6d 3d 32 30 0d 22 2e 3d c9 22 50 33 2c 22 |spm=20.".=."P3,"|
000068f0 2c 22 50 36 2c 22 3a 6d 3d 2d 34 3a 70 6e 6d 24 |,"P6,":m=-4:pnm$|
00006900 3d c0 70 6e 6d 24 2c 32 29 3a 70 36 62 69 74 73 |=.pnm$,2):p6bits|
00006910 3d 38 3a 49 25 3d bb c1 6d 24 2c 34 29 3a 6d 24 |=8:I%=..m$,4):m$|
00006920 3d 22 22 0d 22 38 18 e7 49 25 3e 30 e7 49 25 3c |=""."8..I%>0.I%<|
00006930 38 20 70 36 62 69 74 73 3d 49 25 0d 22 42 15 c9 |8 p6bits=I%."B..|
00006940 22 50 31 35 22 3a 6d 3d 2d 33 3a 6d 24 3d 22 22 |"P15":m=-3:m$=""|
00006950 0d 22 4c 15 c9 22 43 31 35 22 3a 6d 3d 2d 35 3a |."L.."C15":m=-5:|
00006960 6d 24 3d 22 22 0d 22 56 1e c9 22 49 52 4c 22 3a |m$=""."V.."IRL":|
00006970 6d 3d 2d 34 3a 6d 24 3d 22 22 3a 70 36 62 69 74 |m=-4:m$="":p6bit|
00006980 73 3d 38 0d 22 60 15 c9 22 53 31 36 22 3a 6d 3d |s=8."`.."S16":m=|
00006990 2d 36 3a 6d 24 3d 22 22 0d 22 6a 1e c9 22 53 32 |-6:m$=""."j.."S2|
000069a0 34 22 3a 6d 3d 2d 37 3a 6d 24 3d 22 22 3a 70 36 |4":m=-7:m$="":p6|
000069b0 62 69 74 73 3d 38 0d 22 74 1e c9 22 53 33 32 22 |bits=8."t.."S32"|
000069c0 3a 6d 3d 2d 38 3a 6d 24 3d 22 22 3a 70 36 62 69 |:m=-8:m$="":p6bi|
000069d0 74 73 3d 38 0d 22 7e 68 c9 22 4a 50 45 22 3a 6d |ts=8."~h."JPE":m|
000069e0 24 3d 22 22 3a 70 36 62 69 74 73 3d 38 3a e7 c0 |$="":p6bits=8:..|
000069f0 70 6e 6d 24 2c 38 29 3d 22 4a 50 45 47 4d 4f 4e |pnm$,8)="JPEGMON|
00006a00 4f 22 20 6d 3d 2d 39 3a 6a 70 65 67 71 75 61 6c |O" m=-9:jpegqual|
00006a10 69 74 79 25 3d bb c1 70 6e 6d 24 2c 39 29 20 8b |ity%=..pnm$,9) .|
00006a20 6d 3d 2d 31 30 3a 6a 70 65 67 71 75 61 6c 69 74 |m=-10:jpegqualit|
00006a30 79 25 3d bb c1 70 6e 6d 24 2c 35 29 0d 22 88 35 |y%=..pnm$,5).".5|
00006a40 7f 3a 6d 3d bb 6d 24 3a 73 70 6d 3d 6d 3a 6d 24 |.:m=.m$:spm=m:m$|
00006a50 3d a4 75 63 28 c2 6d 24 2c 31 29 29 3a e7 a7 22 |=.uc(.m$,1)):.."|
00006a60 43 44 52 54 22 2c 6d 24 29 3d 30 20 6d 24 3d 22 |CDRT",m$)=0 m$="|
00006a70 22 0d 22 92 05 cb 0d 22 9c 1b e7 78 73 24 3d 22 |"."...."...xs$="|
00006a80 22 20 84 20 c0 78 73 24 2c 31 29 3d 22 2d 22 20 |" . .xs$,1)="-" |
00006a90 8c 0d 22 a6 23 78 6d 75 6c 25 3d 31 3a 78 64 69 |..".#xmul%=1:xdi|
00006aa0 76 25 3d 31 3a 79 6d 75 6c 25 3d 31 3a 79 64 69 |v%=1:ymul%=1:ydi|
00006ab0 76 25 3d 31 0d 22 b0 05 cc 0d 22 ba 13 e7 79 73 |v%=1."...."...ys|
00006ac0 24 3d 22 22 20 79 73 24 3d 78 73 24 0d 22 c4 27 |$="" ys$=xs$.".'|
00006ad0 78 6d 75 6c 25 3d bb 78 73 24 3a 78 64 69 76 25 |xmul%=.xs$:xdiv%|
00006ae0 3d bb c1 78 73 24 2c a7 78 73 24 2c 22 3a 22 29 |=..xs$,.xs$,":")|
00006af0 2b 31 29 0d 22 ce 27 79 6d 75 6c 25 3d bb 79 73 |+1).".'ymul%=.ys|
00006b00 24 3a 79 64 69 76 25 3d bb c1 79 73 24 2c a7 79 |$:ydiv%=..ys$,.y|
00006b10 73 24 2c 22 3a 22 29 2b 31 29 0d 22 d8 05 cd 0d |s$,":")+1)."....|
00006b20 22 e2 26 66 6c 61 67 3d 2d 31 3a c8 99 38 2c 35 |".&flag=-1:..8,5|
00006b30 2c 73 24 20 b8 20 72 30 2c 2c 72 32 3a 64 69 72 |,s$ . r0,,r2:dir|
00006b40 3d 72 30 3d 32 0d 22 ec 0a e7 64 69 72 20 8c 0d |=r0=2."...dir ..|
00006b50 22 f6 43 70 61 6e 69 63 3d b9 3a c8 99 38 2c 35 |".Cpanic=.:..8,5|
00006b60 2c 73 24 2b 22 2e 72 61 77 22 20 b8 20 72 30 2c |,s$+".raw" . r0,|
00006b70 2c 72 32 3a e7 72 30 3d 31 20 73 24 2b 3d 22 2e |,r2:.r0=1 s$+=".|
00006b80 72 61 77 22 3a 64 69 72 3d a3 3a 70 61 6e 69 63 |raw":dir=.:panic|
00006b90 3d a3 0d 23 00 31 e7 70 61 6e 69 63 20 c8 99 38 |=..#.1.panic ..8|
00006ba0 2c 35 2c 73 24 2b 22 2e 72 65 64 22 20 b8 20 72 |,5,s$+".red" . r|
00006bb0 30 2c 2c 72 32 3a e7 72 30 3d 31 20 70 61 6e 69 |0,,r2:.r0=1 pani|
00006bc0 63 3d a3 0d 23 0a 21 e7 70 61 6e 69 63 20 85 20 |c=..#.!.panic . |
00006bd0 34 32 2c 22 44 69 72 65 63 74 6f 72 79 20 67 69 |42,"Directory gi|
00006be0 76 65 6e 22 0d 23 14 05 cd 0d 23 1e 3e 66 74 79 |ven".#....#.>fty|
00006bf0 70 65 3d 72 32 3e 3e 38 20 80 20 26 46 46 46 3a |pe=r2>>8 . &FFF:|
00006c00 62 69 74 73 3d 32 38 3a 46 3d 32 5e 62 69 74 73 |bits=28:F=2^bits|
00006c10 3a 63 25 3d 30 3a 63 63 25 3d 30 3a 63 63 63 25 |:c%=0:cc%=0:ccc%|
00006c20 3d 30 3a 6f 25 3d 30 0d 23 28 0a e7 64 69 72 20 |=0:o%=0.#(..dir |
00006c30 8c 0d 23 32 3e 63 25 3d 8e 28 73 24 2b 22 2e 72 |..#2>c%=.(s$+".r|
00006c40 65 64 22 29 3a e7 63 25 3d 30 20 85 20 34 32 2c |ed"):.c%=0 . 42,|
00006c50 22 52 65 64 20 66 69 6c 65 20 22 2b 73 24 2b 22 |"Red file "+s$+"|
00006c60 2e 72 65 64 20 6e 6f 74 20 66 6f 75 6e 64 22 0d |.red not found".|
00006c70 23 3c 45 63 63 25 3d 8e 28 73 24 2b 22 2e 67 72 |#<Ecc%=.(s$+".gr|
00006c80 65 65 6e 22 29 3a e7 63 63 25 3d 30 20 85 34 32 |een"):.cc%=0 .42|
00006c90 2c 22 47 72 65 65 6e 20 66 69 6c 65 20 22 2b 73 |,"Green file "+s|
00006ca0 24 2b 22 2e 67 72 65 65 6e 20 6e 6f 74 20 66 6f |$+".green not fo|
00006cb0 75 6e 64 22 0d 23 46 44 63 63 63 25 3d 8e 28 73 |und".#FDccc%=.(s|
00006cc0 24 2b 22 2e 62 6c 75 65 22 29 3a e7 63 63 63 25 |$+".blue"):.ccc%|
00006cd0 3d 30 20 85 34 32 2c 22 42 6c 75 65 20 66 69 6c |=0 .42,"Blue fil|
00006ce0 65 20 22 2b 73 24 2b 22 2e 62 6c 75 65 20 6e 6f |e "+s$+".blue no|
00006cf0 74 20 66 6f 75 6e 64 22 0d 23 50 05 cc 0d 23 5a |t found".#P...#Z|
00006d00 2d 63 25 3d 8e 73 24 3a e7 63 25 3d 30 20 85 20 |-c%=.s$:.c%=0 . |
00006d10 34 32 2c 22 46 69 6c 65 20 22 2b 73 24 2b 22 20 |42,"File "+s$+" |
00006d20 6e 6f 74 20 66 6f 75 6e 64 22 0d 23 64 05 cd 0d |not found".#d...|
00006d30 23 6e 07 ea 20 85 0d 23 78 1f ee 20 85 20 ea 20 |#n.. ..#x.. . . |
00006d40 f7 20 85 3a fc 20 87 3a f2 63 6c 6f 73 65 3a 85 |. .:. .:.close:.|
00006d50 20 9f 2c f6 24 0d 23 96 13 63 6f 6c 6f 75 72 69 | .,.$.#..colouri|
00006d60 6e 64 65 78 3d 32 35 35 0d 23 a0 13 c8 99 26 36 |ndex=255.#....&6|
00006d70 36 66 34 64 20 b8 3b 70 63 64 25 0d 23 aa 0e c8 |6f4d .;pcd%.#...|
00006d80 8e 20 66 74 79 70 65 20 ca 0d 23 b4 11 c9 20 26 |. ftype ..#... &|
00006d90 46 46 39 3a 66 6c 61 67 3d 30 0d 23 be 2e e7 a7 |FF9:flag=0.#....|
00006da0 22 2e 22 2b a4 75 63 28 73 24 29 2c 22 2e 48 49 |"."+.uc(s$),".HI|
00006db0 50 2e 22 29 84 a7 a4 75 63 28 73 24 29 2c 22 3a |P.")...uc(s$),":|
00006dc0 48 49 50 2e 22 29 20 8c 0d 23 c8 20 66 6c 61 67 |HIP.") ..#. flag|
00006dd0 3d 33 30 30 3a 49 25 3d a7 a4 75 63 28 73 24 29 |=300:I%=..uc(s$)|
00006de0 2c 22 48 49 50 2e 22 29 0d 23 d2 3f c1 73 24 2c |,"HIP.").#.?.s$,|
00006df0 49 25 29 3d 22 4c 4f 50 2e 22 3a 63 63 25 3d 8e |I%)="LOP.":cc%=.|
00006e00 73 24 3a e7 63 63 25 3d 30 20 85 34 32 2c 22 43 |s$:.cc%=0 .42,"C|
00006e10 61 6e 27 74 20 66 69 6e 64 20 4c 6f 70 20 66 69 |an't find Lop fi|
00006e20 6c 65 20 22 2b 73 24 0d 23 dc 05 cd 0d 23 e6 2b |le "+s$.#....#.+|
00006e30 c9 20 26 46 46 30 3a cf 23 63 25 3d 30 3a 53 24 |. &FF0:.#c%=0:S$|
00006e40 3d 22 22 3a e3 49 25 3d 31 b8 34 3a 53 24 2b 3d |="":.I%=1.4:S$+=|
00006e50 bd 9a 23 63 25 3a ed 0d 23 f0 26 e7 53 24 3d 22 |..#c%:..#.&.S$="|
00006e60 49 49 2a 22 2b bd 30 20 66 6c 61 67 3d 31 35 30 |II*"+.0 flag=150|
00006e70 30 3a 62 69 67 65 6e 64 69 61 6e 3d a3 0d 23 fa |0:bigendian=..#.|
00006e80 29 e7 53 24 3d 22 4d 4d 22 2b bd 30 2b 22 2a 22 |).S$="MM"+.0+"*"|
00006e90 20 66 6c 61 67 3d 31 35 30 30 3a 62 69 67 65 6e | flag=1500:bigen|
00006ea0 64 69 61 6e 3d b9 0d 24 04 21 c9 20 26 44 46 41 |dian=..$.!. &DFA|
00006eb0 3a 66 6c 61 67 3d 38 30 30 3a e7 64 69 72 20 66 |:flag=800:.dir f|
00006ec0 6c 61 67 3d 38 30 31 0d 24 0e 14 c9 20 26 44 45 |lag=801.$... &DE|
00006ed0 32 3a 66 6c 61 67 3d 31 30 30 30 0d 24 18 14 c9 |2:flag=1000.$...|
00006ee0 20 26 43 42 45 3a 66 6c 61 67 3d 33 38 30 30 0d | &CBE:flag=3800.|
00006ef0 24 22 20 c9 20 26 42 45 38 3a e7 28 70 63 64 25 |$" . &BE8:.(pcd%|
00006f00 80 31 29 3d 30 20 66 6c 61 67 3d 33 36 30 30 0d |.1)=0 flag=3600.|
00006f10 24 2c 14 c9 20 26 37 41 30 3a 66 6c 61 67 3d 31 |$,.. &7A0:flag=1|
00006f20 32 30 30 0d 24 36 14 c9 20 26 36 39 64 3a 66 6c |200.$6.. &69d:fl|
00006f30 61 67 3d 32 30 30 30 0d 24 40 13 c9 20 26 36 39 |ag=2000.$@.. &69|
00006f40 39 3a 66 6c 61 67 3d 37 30 30 0d 24 4a 13 c9 20 |9:flag=700.$J.. |
00006f50 26 36 39 38 3a 66 6c 61 67 3d 31 30 30 0d 24 54 |&698:flag=100.$T|
00006f60 14 c9 20 26 36 39 37 3a 66 6c 61 67 3d 31 39 30 |.. &697:flag=190|
00006f70 30 0d 24 5e 14 c9 20 26 36 39 31 3a 66 6c 61 67 |0.$^.. &691:flag|
00006f80 3d 32 36 30 30 0d 24 68 14 c9 20 26 36 39 30 3a |=2600.$h.. &690:|
00006f90 66 6c 61 67 3d 32 35 30 30 0d 24 72 13 c9 20 26 |flag=2500.$r.. &|
00006fa0 36 36 36 3a 66 6c 61 67 3d 36 36 36 0d 24 7c 14 |666:flag=666.$|.|
00006fb0 c9 20 26 36 30 31 3a 66 6c 61 67 3d 33 30 30 30 |. &601:flag=3000|
00006fc0 0d 24 86 14 c9 20 26 33 37 31 3a 66 6c 61 67 3d |.$... &371:flag=|
00006fd0 33 31 30 30 0d 24 90 23 c9 20 26 33 30 30 3a 66 |3100.$.#. &300:f|
00006fe0 6c 61 67 3d 31 33 30 30 3a e7 64 69 72 20 66 6c |lag=1300:.dir fl|
00006ff0 61 67 3d 31 33 30 31 0d 24 9a 1e c9 20 34 3a 66 |ag=1301.$... 4:f|
00007000 6c 61 67 3d 39 30 30 3a e7 64 69 72 20 66 6c 61 |lag=900:.dir fla|
00007010 67 3d 39 30 31 0d 24 a4 10 c9 20 36 3a 66 6c 61 |g=901.$... 6:fla|
00007020 67 3d 39 35 30 0d 24 ae 05 cb 0d 24 b8 0e e7 66 |g=950.$....$...f|
00007030 6c 61 67 3d 2d 31 20 8c 0d 24 c2 25 cf 23 63 25 |lag=-1 ..$.%.#c%|
00007040 3d 30 3a 53 24 3d 22 22 3a e3 49 25 3d 31 b8 32 |=0:S$="":.I%=1.2|
00007050 32 3a 53 24 2b 3d bd 9a 23 63 25 3a ed 0d 24 cc |2:S$+=..#c%:..$.|
00007060 1f e7 c0 53 24 2c 37 29 3d 22 46 53 49 66 69 6c |...S$,7)="FSIfil|
00007070 65 22 20 66 6c 61 67 3d 32 31 30 30 0d 24 d6 29 |e" flag=2100.$.)|
00007080 e7 66 6c 61 67 3d 2d 31 20 e7 c0 53 24 2c 38 29 |.flag=-1 ..S$,8)|
00007090 3d 22 53 49 4d 50 4c 45 20 20 22 20 66 6c 61 67 |="SIMPLE " flag|
000070a0 3d 32 38 30 30 0d 24 e0 43 e7 66 6c 61 67 3d 2d |=2800.$.C.flag=-|
000070b0 31 20 e7 a4 75 63 28 c0 53 24 2c 38 29 29 3d 22 |1 ..uc(.S$,8))="|
000070c0 4d 45 52 43 53 4f 46 54 22 84 a4 75 63 28 c0 53 |MERCSOFT"..uc(.S|
000070d0 24 2c 38 29 29 3d 22 53 4e 41 50 53 48 4f 54 22 |$,8))="SNAPSHOT"|
000070e0 66 6c 61 67 3d 39 30 32 0d 24 ea 2d e7 66 6c 61 |flag=902.$.-.fla|
000070f0 67 3d 2d 31 20 e7 a4 75 63 28 c0 53 24 2c 38 29 |g=-1 ..uc(.S$,8)|
00007100 29 3d 22 4d 45 52 43 53 4f 46 31 22 20 66 6c 61 |)="MERCSOF1" fla|
00007110 67 3d 39 30 33 0d 24 f4 34 e7 66 6c 61 67 3d 2d |g=903.$.4.flag=-|
00007120 31 20 e7 a4 75 63 28 c0 53 24 2c 31 33 29 29 3d |1 ..uc(.S$,13))=|
00007130 22 49 52 4c 41 4d 20 59 55 56 20 34 31 31 22 20 |"IRLAM YUV 411" |
00007140 66 6c 61 67 3d 32 32 35 30 0d 24 fe 26 e7 66 6c |flag=2250.$.&.fl|
00007150 61 67 3d 2d 31 20 e7 c0 53 24 2c 35 29 3d 22 49 |ag=-1 ..S$,5)="I|
00007160 72 6c 61 6d 22 20 66 6c 61 67 3d 32 32 30 30 0d |rlam" flag=2200.|
00007170 25 08 2e e7 66 6c 61 67 3d 2d 31 20 e7 c0 53 24 |%...flag=-1 ..S$|
00007180 2c 32 29 3d 22 42 4d 22 20 66 6c 61 67 3d 32 34 |,2)="BM" flag=24|
00007190 30 30 3a 72 69 66 66 6f 66 66 25 3d 30 0d 25 12 |00:riffoff%=0.%.|
000071a0 58 e7 66 6c 61 67 3d 2d 31 20 e7 c0 53 24 2c 34 |X.flag=-1 ..S$,4|
000071b0 29 3d 22 52 49 46 46 22 20 80 20 c1 53 24 2c 39 |)="RIFF" . .S$,9|
000071c0 2c 38 29 3d 22 52 44 49 42 64 61 74 61 22 20 80 |,8)="RDIBdata" .|
000071d0 20 c1 53 24 2c 32 31 2c 32 29 3d 22 42 4d 22 20 | .S$,21,2)="BM" |
000071e0 66 6c 61 67 3d 32 34 30 30 3a 72 69 66 66 6f 66 |flag=2400:riffof|
000071f0 66 25 3d 32 30 0d 25 1c 24 e7 66 6c 61 67 3d 2d |f%=20.%.$.flag=-|
00007200 31 20 e7 c0 53 24 2c 34 29 3d 22 47 49 46 38 22 |1 ..S$,4)="GIF8"|
00007210 20 66 6c 61 67 3d 35 30 30 0d 25 26 25 e7 66 6c | flag=500.%&%.fl|
00007220 61 67 3d 2d 31 20 e7 c0 53 24 2c 35 29 3d 22 41 |ag=-1 ..S$,5)="A|
00007230 56 5f 56 4f 22 20 66 6c 61 67 3d 36 30 30 0d 25 |V_VO" flag=600.%|
00007240 30 32 e7 66 6c 61 67 3d 2d 31 20 e7 c0 53 24 2c |02.flag=-1 ..S$,|
00007250 34 29 3d bd 26 35 39 2b bd 26 41 36 2b bd 26 36 |4)=.&59+.&A6+.&6|
00007260 41 2b bd 26 39 35 20 66 6c 61 67 3d 31 31 30 30 |A+.&95 flag=1100|
00007270 0d 25 3a 2a e7 66 6c 61 67 3d 2d 31 20 e7 c0 53 |.%:*.flag=-1 ..S|
00007280 24 2c 34 29 3d bd 30 2b bd 31 2b bd 30 2b bd 38 |$,4)=.0+.1+.0+.8|
00007290 20 66 6c 61 67 3d 31 34 30 30 0d 25 44 2a e7 66 | flag=1400.%D*.f|
000072a0 6c 61 67 3d 2d 31 20 e7 c0 53 24 2c 34 29 3d bd |lag=-1 ..S$,4)=.|
000072b0 30 2b bd 31 2b bd 30 2b bd 31 20 66 6c 61 67 3d |0+.1+.0+.1 flag=|
000072c0 32 39 30 30 0d 25 4e 25 e7 66 6c 61 67 3d 2d 31 |2900.%N%.flag=-1|
000072d0 20 e7 c0 53 24 2c 34 29 3d 22 52 49 58 33 22 20 | ..S$,4)="RIX3" |
000072e0 66 6c 61 67 3d 32 37 30 30 0d 25 58 33 e7 66 6c |flag=2700.%X3.fl|
000072f0 61 67 3d 2d 31 20 e7 c0 53 24 2c 34 29 3d 22 49 |ag=-1 ..S$,4)="I|
00007300 49 2a 22 2b bd 30 20 66 6c 61 67 3d 31 35 30 30 |I*"+.0 flag=1500|
00007310 3a 62 69 67 65 6e 64 69 61 6e 3d a3 0d 25 62 36 |:bigendian=..%b6|
00007320 e7 66 6c 61 67 3d 2d 31 20 e7 c0 53 24 2c 34 29 |.flag=-1 ..S$,4)|
00007330 3d 22 4d 4d 22 2b bd 30 2b 22 2a 22 20 66 6c 61 |="MM"+.0+"*" fla|
00007340 67 3d 31 35 30 30 3a 62 69 67 65 6e 64 69 61 6e |g=1500:bigendian|
00007350 3d b9 0d 25 6c 28 e7 66 6c 61 67 3d 2d 31 20 e7 |=..%l(.flag=-1 .|
00007360 c0 53 24 2c 32 29 3d bd 26 35 32 2b bd 26 43 43 |.S$,2)=.&52+.&CC|
00007370 20 66 6c 61 67 3d 32 33 30 30 0d 25 76 44 e7 66 | flag=2300.%vD.f|
00007380 6c 61 67 3d 2d 31 20 e7 c0 53 24 2c 32 29 3d 22 |lag=-1 ..S$,2)="|
00007390 50 34 22 84 c0 53 24 2c 32 29 3d 22 50 35 22 84 |P4"..S$,2)="P5".|
000073a0 c0 53 24 2c 32 29 3d 22 50 36 22 20 66 6c 61 67 |.S$,2)="P6" flag|
000073b0 3d 33 33 30 30 3a 69 6e 66 6f 24 3d 22 22 0d 25 |=3300:info$="".%|
000073c0 80 24 e7 66 6c 61 67 3d 2d 31 20 e7 c0 53 24 2c |.$.flag=-1 ..S$,|
000073d0 33 29 3d 22 50 31 35 22 20 66 6c 61 67 3d 33 34 |3)="P15" flag=34|
000073e0 30 30 0d 25 8a 24 e7 66 6c 61 67 3d 2d 31 20 e7 |00.%.$.flag=-1 .|
000073f0 c0 53 24 2c 33 29 3d 22 50 49 43 22 20 66 6c 61 |.S$,3)="PIC" fla|
00007400 67 3d 33 35 30 30 0d 25 94 24 e7 66 6c 61 67 3d |g=3500.%.$.flag=|
00007410 2d 31 20 e7 c0 53 24 2c 33 29 3d 22 54 2d 49 22 |-1 ..S$,3)="T-I"|
00007420 20 66 6c 61 67 3d 33 38 30 30 0d 25 9e 29 e7 66 | flag=3800.%.).f|
00007430 6c 61 67 3d 2d 31 20 e7 a4 75 63 28 c0 53 24 2c |lag=-1 ..uc(.S$,|
00007440 33 29 29 3d 22 50 31 33 22 20 66 6c 61 67 3d 33 |3))="P13" flag=3|
00007450 34 35 30 0d 25 a8 36 e7 66 6c 61 67 3d 2d 31 20 |450.%.6.flag=-1 |
00007460 e7 c0 53 24 2c 34 29 3d 22 46 4f 52 4d 22 20 e7 |..S$,4)="FORM" .|
00007470 c1 53 24 2c 39 2c 34 29 3d 22 49 4c 42 4d 22 20 |.S$,9,4)="ILBM" |
00007480 66 6c 61 67 3d 31 36 30 30 0d 25 b2 3a e7 66 6c |flag=1600.%.:.fl|
00007490 61 67 3d 2d 31 20 e7 c0 53 24 2c 38 29 3d 22 41 |ag=-1 ..S$,8)="A|
000074a0 4c 50 49 41 52 31 32 22 20 66 6c 61 67 3d 33 39 |LPIAR12" flag=39|
000074b0 30 30 3a 63 6f 6c 6f 75 72 69 6e 64 65 78 3d 34 |00:colourindex=4|
000074c0 30 39 35 0d 25 bc 3b e7 66 6c 61 67 3d 2d 31 20 |095.%.;.flag=-1 |
000074d0 e7 c0 53 24 2c 38 29 3d 22 41 4c 50 49 41 52 31 |..S$,8)="ALPIAR1|
000074e0 36 22 20 66 6c 61 67 3d 33 39 30 35 3a 63 6f 6c |6" flag=3905:col|
000074f0 6f 75 72 69 6e 64 65 78 3d 36 35 35 33 35 0d 25 |ourindex=65535.%|
00007500 c6 0e e7 66 6c 61 67 3d 2d 31 20 8c 0d 25 d0 23 |...flag=-1 ..%.#|
00007510 e7 c1 53 24 2c 37 2c 34 29 3d 22 4a 46 49 46 22 |..S$,7,4)="JFIF"|
00007520 20 84 20 66 74 79 70 65 3d 26 43 38 35 20 8c 0d | . ftype=&C85 ..|
00007530 25 da 2a 6a 70 65 67 62 6c 6b 25 3d a4 64 69 6d |%.*jpegblk%=.dim|
00007540 28 32 30 29 3a f2 63 61 63 68 65 73 69 7a 65 28 |(20):.cachesize(|
00007550 6a 70 65 67 62 6c 6b 25 29 0d 25 e4 12 e7 63 61 |jpegblk%).%...ca|
00007560 63 68 65 25 3c a2 23 63 25 20 8c 0d 25 ee 1d d9 |che%<.#c% ..%...|
00007570 23 63 25 3a 63 25 3d 30 3a 58 25 3d 8e 22 52 75 |#c%:c%=0:X%=."Ru|
00007580 6e 3a 64 6a 70 65 67 22 0d 25 f8 09 e7 58 25 20 |n:djpeg".%...X% |
00007590 8c 0d 26 02 2e d9 23 58 25 3a f2 73 75 62 74 61 |..&...#X%:.subta|
000075a0 73 6b 28 22 64 6a 70 65 67 20 22 2b 73 24 2b 22 |sk("djpeg "+s$+"|
000075b0 20 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 29 0d | <Wimp$Scrap>").|
000075c0 26 0c 05 cc 0d 26 16 30 c8 99 22 58 4f 53 5f 43 |&....&.0.."XOS_C|
000075d0 4c 49 22 2c 22 64 6a 70 65 67 20 22 2b 73 24 2b |LI","djpeg "+s$+|
000075e0 22 20 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 20 |" <Wimp$Scrap>" |
000075f0 b8 20 3b 56 0d 26 20 0b e7 56 20 80 31 20 8c 0d |. ;V.& ..V .1 ..|
00007600 26 2a 39 f2 73 75 62 74 61 73 6b 28 22 3c 43 68 |&*9.subtask("<Ch|
00007610 61 6e 67 65 46 53 49 24 44 69 72 3e 2e 64 6a 70 |angeFSI$Dir>.djp|
00007620 65 67 20 22 2b 73 24 2b 22 20 3c 57 69 6d 70 24 |eg "+s$+" <Wimp$|
00007630 53 63 72 61 70 3e 22 29 0d 26 34 05 cd 0d 26 3e |Scrap>").&4...&>|
00007640 05 cd 0d 26 48 22 63 25 3d 8e 22 3c 57 69 6d 70 |...&H"c%=."<Wimp|
00007650 24 53 63 72 61 70 3e 22 3a e7 63 25 3d 30 20 8c |$Scrap>":.c%=0 .|
00007660 3d 31 30 30 0d 26 52 3e 73 63 72 61 70 66 25 3d |=100.&R>scrapf%=|
00007670 b9 3a 66 6c 61 67 3d 33 33 30 30 3a 69 6e 66 6f |.:flag=3300:info|
00007680 24 3d 22 4a 50 45 47 20 28 4a 46 49 46 29 20 66 |$="JPEG (JFIF) f|
00007690 69 6c 65 20 63 6f 6e 76 65 72 74 65 64 20 74 6f |ile converted to|
000076a0 20 22 0d 26 5c 05 cc 0d 26 66 0d 66 6c 61 67 3d | ".&\...&f.flag=|
000076b0 33 37 30 30 0d 26 70 05 cd 0d 26 7a 05 cd 0d 26 |3700.&p...&z...&|
000076c0 84 05 cd 0d 26 8e 0e e7 66 6c 61 67 3d 2d 31 20 |....&...flag=-1 |
000076d0 8c 0d 26 98 15 e7 c0 53 24 2c 35 29 3d 22 62 74 |..&....S$,5)="bt|
000076e0 70 63 20 22 20 8c 0d 26 a2 42 d9 23 63 25 3a 63 |pc " ..&.B.#c%:c|
000076f0 25 3d 30 3a f2 73 75 62 74 61 73 6b 28 22 3c 43 |%=0:.subtask("<C|
00007700 68 61 6e 67 65 46 53 49 24 44 69 72 3e 2e 62 74 |hangeFSI$Dir>.bt|
00007710 70 63 20 22 2b 73 24 2b 22 20 3c 57 69 6d 70 24 |pc "+s$+" <Wimp$|
00007720 53 63 72 61 70 3e 22 29 0d 26 ac 22 63 25 3d 8e |Scrap>").&."c%=.|
00007730 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 3a e7 |"<Wimp$Scrap>":.|
00007740 63 25 3d 30 20 8c 3d 31 30 30 0d 26 b6 37 73 63 |c%=0 .=100.&.7sc|
00007750 72 61 70 66 25 3d b9 3a 66 6c 61 67 3d 33 33 30 |rapf%=.:flag=330|
00007760 30 3a 69 6e 66 6f 24 3d 22 42 54 50 43 20 66 69 |0:info$="BTPC fi|
00007770 6c 65 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 |le converted to |
00007780 22 0d 26 c0 05 cd 0d 26 ca 05 cd 0d 26 d4 0e e7 |".&....&....&...|
00007790 66 6c 61 67 3d 2d 31 20 8c 0d 26 de 26 cf 23 63 |flag=-1 ..&.&.#c|
000077a0 25 3d 26 31 30 3a 53 24 3d 22 22 3a e3 49 25 3d |%=&10:S$="":.I%=|
000077b0 31 b8 39 3a 53 24 2b 3d bd 9a 23 63 25 3a ed 0d |1.9:S$+=..#c%:..|
000077c0 26 e8 1c e7 53 24 3d 22 4d 49 4c 4c 49 50 45 44 |&...S$="MILLIPED|
000077d0 45 22 20 66 6c 61 67 3d 32 30 30 0d 26 f2 05 cd |E" flag=200.&...|
000077e0 0d 26 fc 0e e7 66 6c 61 67 3d 2d 31 20 8c 0d 27 |.&...flag=-1 ..'|
000077f0 06 26 cf 23 63 25 3d 26 34 31 3a 53 24 3d 22 22 |.&.#c%=&41:S$=""|
00007800 3a e3 49 25 3d 31 b8 38 3a 53 24 2b 3d bd 9a 23 |:.I%=1.8:S$+=..#|
00007810 63 25 3a ed 0d 27 10 25 e7 c0 53 24 2c 34 29 3d |c%:..'.%..S$,4)=|
00007820 22 50 4e 54 47 22 20 66 6c 61 67 3d 31 38 30 30 |"PNTG" flag=1800|
00007830 3a 73 74 25 3d 26 32 38 30 0d 27 1a 05 cd 0d 27 |:st%=&280.'....'|
00007840 24 0e e7 66 6c 61 67 3d 2d 31 20 8c 0d 27 2e 26 |$..flag=-1 ..'.&|
00007850 cf 23 63 25 3d 31 39 36 3a 53 24 3d 22 22 3a e3 |.#c%=196:S$="":.|
00007860 49 25 3d 31 b8 38 3a 53 24 2b 3d bd 9a 23 63 25 |I%=1.8:S$+=..#c%|
00007870 3a ed 0d 27 38 25 e7 c0 53 24 2c 34 29 3d 22 50 |:..'8%..S$,4)="P|
00007880 4e 54 47 22 20 66 6c 61 67 3d 31 38 30 30 3a 73 |NTG" flag=1800:s|
00007890 74 25 3d 26 32 65 32 0d 27 42 05 cd 0d 27 4c 0e |t%=&2e2.'B...'L.|
000078a0 e7 66 6c 61 67 3d 2d 31 20 8c 0d 27 56 26 cf 23 |.flag=-1 ..'V&.#|
000078b0 63 25 3d 35 32 32 3a 53 24 3d 22 22 3a e3 49 25 |c%=522:S$="":.I%|
000078c0 3d 31 b8 38 3a 53 24 2b 3d bd 9a 23 63 25 3a ed |=1.8:S$+=..#c%:.|
000078d0 0d 27 60 32 e7 53 24 3d bd 30 2b bd 26 31 31 2b |.'`2.S$=.0+.&11+|
000078e0 bd 32 2b bd 26 66 66 2b bd 26 63 2b bd 30 2b bd |.2+.&ff+.&c+.0+.|
000078f0 26 66 66 2b bd 26 66 65 20 66 6c 61 67 3d 31 38 |&ff+.&fe flag=18|
00007900 35 30 0d 27 6a 05 cd 0d 27 74 0e e7 66 6c 61 67 |50.'j...'t..flag|
00007910 3d 2d 31 20 8c 0d 27 7e 15 cf 23 63 25 3d 30 3a |=-1 ..'~..#c%=0:|
00007920 e7 9a 23 63 25 3d 31 30 20 8c 0d 27 88 2b 43 25 |..#c%=10 ..'.+C%|
00007930 3d 9a 23 63 25 3a e7 43 25 3c 36 20 80 20 43 25 |=.#c%:.C%<6 . C%|
00007940 3c 3e 31 20 80 9a 23 63 25 3d 31 20 66 6c 61 67 |<>1 ..#c%=1 flag|
00007950 3d 31 39 30 30 0d 27 92 05 cd 0d 27 9c 05 cd 0d |=1900.'....'....|
00007960 27 a6 4d e7 66 6c 61 67 3d 2d 31 20 e7 a7 22 2e |'.M.flag=-1 ..".|
00007970 22 2b a4 75 63 28 73 24 29 2c 22 2e 50 43 58 2e |"+.uc(s$),".PCX.|
00007980 22 29 84 a7 a4 75 63 28 73 24 29 2c 22 3a 50 43 |")...uc(s$),":PC|
00007990 58 2e 22 29 84 c2 73 24 2c 34 29 3d 22 2f 50 43 |X.")..s$,4)="/PC|
000079a0 58 22 20 66 6c 61 67 3d 31 39 30 30 0d 27 b0 42 |X" flag=1900.'.B|
000079b0 e7 66 6c 61 67 3d 2d 31 20 e7 a7 22 2e 22 2b a4 |.flag=-1 .."."+.|
000079c0 75 63 28 73 24 29 2c 22 2e 49 4d 41 47 45 2e 22 |uc(s$),".IMAGE."|
000079d0 29 84 a7 a4 75 63 28 73 24 29 2c 22 3a 49 4d 41 |)...uc(s$),":IMA|
000079e0 47 45 2e 22 29 20 66 6c 61 67 3d 34 30 30 0d 27 |GE.") flag=400.'|
000079f0 ba 29 e7 66 6c 61 67 3d 2d 31 20 e7 a4 75 63 28 |.).flag=-1 ..uc(|
00007a00 c2 73 24 2c 34 29 29 3d 22 2e 52 41 57 22 20 66 |.s$,4))=".RAW" f|
00007a10 6c 61 67 3d 31 30 30 0d 27 c4 29 e7 66 6c 61 67 |lag=100.'.).flag|
00007a20 3d 2d 31 20 e7 a4 75 63 28 c2 73 24 2c 33 29 29 |=-1 ..uc(.s$,3))|
00007a30 3d 22 54 47 41 22 20 66 6c 61 67 3d 32 30 30 30 |="TGA" flag=2000|
00007a40 0d 27 ce 29 e7 66 6c 61 67 3d 2d 31 20 e7 a4 75 |.'.).flag=-1 ..u|
00007a50 63 28 c2 73 24 2c 33 29 29 3d 22 56 44 41 22 20 |c(.s$,3))="VDA" |
00007a60 66 6c 61 67 3d 32 30 30 30 0d 27 d8 3e e7 66 6c |flag=2000.'.>.fl|
00007a70 61 67 3d 2d 31 20 e7 a7 22 2e 22 2b a4 75 63 28 |ag=-1 .."."+.uc(|
00007a80 73 24 29 2c 22 2e 50 49 43 2e 22 29 84 a7 a4 75 |s$),".PIC.")...u|
00007a90 63 28 73 24 29 2c 22 3a 50 49 43 2e 22 29 20 66 |c(s$),":PIC.") f|
00007aa0 6c 61 67 3d 37 30 30 0d 27 e2 4d e7 66 6c 61 67 |lag=700.'.M.flag|
00007ab0 3d 2d 31 20 e7 a7 22 2e 22 2b a4 75 63 28 73 24 |=-1 .."."+.uc(s$|
00007ac0 29 2c 22 2e 49 4d 47 2e 22 29 84 a7 a4 75 63 28 |),".IMG.")...uc(|
00007ad0 73 24 29 2c 22 3a 49 4d 47 2e 22 29 84 c2 73 24 |s$),":IMG.")..s$|
00007ae0 2c 34 29 3d 22 2f 49 4d 47 22 20 66 6c 61 67 3d |,4)="/IMG" flag=|
00007af0 31 34 30 30 0d 27 ec 4d e7 66 6c 61 67 3d 2d 31 |1400.'.M.flag=-1|
00007b00 20 e7 a7 22 2e 22 2b a4 75 63 28 73 24 29 2c 22 | .."."+.uc(s$),"|
00007b10 2e 44 53 50 2e 22 29 84 a7 a4 75 63 28 73 24 29 |.DSP.")...uc(s$)|
00007b20 2c 22 3a 44 53 50 2e 22 29 84 c2 73 24 2c 34 29 |,":DSP.")..s$,4)|
00007b30 3d 22 2f 44 53 50 22 20 66 6c 61 67 3d 31 37 30 |="/DSP" flag=170|
00007b40 30 0d 27 f6 2a e7 66 6c 61 67 3d 2d 31 20 e7 a4 |0.'.*.flag=-1 ..|
00007b50 75 63 28 c2 73 24 2c 34 29 29 3d 22 2f 52 47 42 |uc(.s$,4))="/RGB|
00007b60 22 20 66 6c 61 67 3d 33 32 30 30 0d 28 00 3c e7 |" flag=3200.(.<.|
00007b70 66 6c 61 67 3d 2d 31 20 80 28 a4 75 63 28 c2 73 |flag=-1 .(.uc(.s|
00007b80 24 2c 34 29 29 3d 22 2f 50 43 44 22 84 66 74 79 |$,4))="/PCD".fty|
00007b90 70 65 3d 26 62 65 38 29 80 28 28 70 63 64 25 80 |pe=&be8).((pcd%.|
00007ba0 31 29 3d 31 29 20 8c 0d 28 0a 6b d9 23 63 25 3a |1)=1) ..(.k.#c%:|
00007bb0 63 25 3d 30 3a f2 73 75 62 74 61 73 6b 28 22 3c |c%=0:.subtask("<|
00007bc0 43 68 61 6e 67 65 46 53 49 24 44 69 72 3e 2e 68 |ChangeFSI$Dir>.h|
00007bd0 70 63 64 74 6f 70 70 6d 20 2d 33 20 2d 61 20 22 |pcdtoppm -3 -a "|
00007be0 2b 73 24 2b 22 20 3c 57 69 6d 70 24 53 63 72 61 |+s$+" <Wimp$Scra|
00007bf0 70 3e 20 7b 20 3e 20 3c 43 68 61 6e 67 65 46 53 |p> { > <ChangeFS|
00007c00 49 24 44 69 72 3e 2e 70 63 64 74 65 6d 70 20 7d |I$Dir>.pcdtemp }|
00007c10 22 29 0d 28 14 4d 63 25 3d 8e 22 3c 57 69 6d 70 |").(.Mc%=."<Wimp|
00007c20 24 53 63 72 61 70 3e 22 3a 73 63 72 61 70 66 25 |$Scrap>":scrapf%|
00007c30 3d b9 3a 66 6c 61 67 3d 33 33 30 30 3a 69 6e 66 |=.:flag=3300:inf|
00007c40 6f 24 3d 22 50 68 6f 74 6f 43 44 20 66 69 6c 65 |o$="PhotoCD file|
00007c50 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 22 0d | converted to ".|
00007c60 28 1e 05 cd 0d 28 28 05 cd 0d 28 32 63 e7 66 6c |(....((...(2c.fl|
00007c70 61 67 3d 2d 31 20 f2 63 6c 6f 73 65 3a 85 20 34 |ag=-1 .close:. 4|
00007c80 32 2c 22 53 6f 72 72 79 3a 20 66 6f 72 6d 61 74 |2,"Sorry: format|
00007c90 20 6e 6f 74 20 72 65 63 6f 67 6e 69 73 65 64 20 | not recognised |
00007ca0 2d 20 70 6c 65 61 73 65 20 74 72 79 20 61 67 61 |- please try aga|
00007cb0 69 6e 20 6f 72 20 63 6f 6e 74 61 63 74 20 79 6f |in or contact yo|
00007cc0 75 72 20 73 75 70 70 6c 69 65 72 22 0d 28 3c 42 |ur supplier".(<B|
00007cd0 73 74 65 70 32 34 3d 31 3a 69 6e 70 75 74 3d 38 |step24=1:input=8|
00007ce0 3a 68 61 6d 3d 30 3a 70 6c 61 6e 61 72 25 3d 30 |:ham=0:planar%=0|
00007cf0 3a 62 69 67 65 6e 64 69 61 6e 62 69 74 73 3d a3 |:bigendianbits=.|
00007d00 3a 72 24 3d 22 46 4e 22 2b c3 66 6c 61 67 0d 28 |:r$="FN"+.flag.(|
00007d10 46 39 63 6f 6d 70 72 65 73 73 69 6f 6e 3d 30 3a |F9compression=0:|
00007d20 68 70 72 65 64 69 63 74 25 3d 31 3a 73 74 72 69 |hpredict%=1:stri|
00007d30 70 72 6f 77 73 25 3d 2d 31 3a 63 61 63 68 65 62 |prows%=-1:cacheb|
00007d40 79 74 65 73 25 3d a3 0d 28 50 1f e7 78 64 69 76 |ytes%=..(P..xdiv|
00007d50 25 3d 30 20 80 20 79 64 69 76 25 3d 30 20 73 63 |%=0 . ydiv%=0 sc|
00007d60 61 6c 65 25 3d a3 0d 28 5a 15 de 20 72 25 28 63 |ale%=..(Z.. r%(c|
00007d70 6f 6c 6f 75 72 69 6e 64 65 78 29 0d 28 64 25 de |olourindex).(d%.|
00007d80 20 67 25 28 63 6f 6c 6f 75 72 69 6e 64 65 78 29 | g%(colourindex)|
00007d90 2c 62 25 28 63 6f 6c 6f 75 72 69 6e 64 65 78 29 |,b%(colourindex)|
00007da0 0d 28 6e 0d c8 8e 20 66 6c 61 67 20 ca 0d 28 78 |.(n... flag ..(x|
00007db0 07 c9 20 30 0d 28 82 40 71 75 61 6e 74 25 3d 34 |.. 0.(.@quant%=4|
00007dc0 3a cf 23 63 25 3d 34 3a 46 25 3d a4 57 2b 26 31 |:.#c%=4:F%=.W+&1|
00007dd0 43 3a cf 23 63 25 3d 46 25 3a 73 74 25 3d a4 57 |C:.#c%=F%:st%=.W|
00007de0 2b 46 25 2d 26 32 30 3a 4b 25 3d a4 57 2b 46 25 |+F%-&20:K%=.W+F%|
00007df0 2d 26 32 30 0d 28 8c 13 73 6d 3d a4 57 3a e7 73 |-&20.(..sm=.W:.s|
00007e00 6d 3c 32 35 36 20 8c 0d 28 96 14 c8 99 35 33 2c |m<256 ..(....53,|
00007e10 73 6d 2c 33 20 b8 20 2c 2c 49 25 0d 28 a0 0b c8 |sm,3 . ,,I%.(...|
00007e20 8e 20 49 25 20 ca 0d 28 aa 25 c9 20 31 3a e7 73 |. I% ..(.%. 1:.s|
00007e30 74 25 3d 46 25 2b 31 32 20 f2 64 65 66 70 61 6c |t%=F%+12 .defpal|
00007e40 32 20 8b f2 69 70 61 6c 28 32 29 0d 28 b4 35 cf |2 ..ipal(2).(.5.|
00007e50 23 63 25 3d 46 25 2d 31 36 3a 73 78 25 3d 28 a4 |#c%=F%-16:sx%=(.|
00007e60 57 2b 31 29 2a 33 32 3a 72 6f 77 62 79 74 65 73 |W+1)*32:rowbytes|
00007e70 25 3d 73 78 25 3e 3e 33 3a 69 6e 70 75 74 3d 31 |%=sx%>>3:input=1|
00007e80 0d 28 be 1d 73 79 25 3d a4 57 2b 31 3a 49 25 3d |.(..sy%=.W+1:I%=|
00007e90 a4 57 3a 73 78 25 2d 3d 33 31 2d a4 57 0d 28 c8 |.W:sx%-=31-.W.(.|
00007ea0 25 c9 20 33 3a e7 73 74 25 3d 46 25 2b 31 32 20 |%. 3:.st%=F%+12 |
00007eb0 f2 64 65 66 70 61 6c 34 20 8b f2 69 70 61 6c 28 |.defpal4 ..ipal(|
00007ec0 34 29 0d 28 d2 35 cf 23 63 25 3d 46 25 2d 31 36 |4).(.5.#c%=F%-16|
00007ed0 3a 73 78 25 3d 28 a4 57 2b 31 29 2a 31 36 3a 72 |:sx%=(.W+1)*16:r|
00007ee0 6f 77 62 79 74 65 73 25 3d 73 78 25 3e 3e 32 3a |owbytes%=sx%>>2:|
00007ef0 69 6e 70 75 74 3d 32 0d 28 dc 21 73 79 25 3d a4 |input=2.(.!sy%=.|
00007f00 57 2b 31 3a 49 25 3d a4 57 3a 73 78 25 2d 3d 28 |W+1:I%=.W:sx%-=(|
00007f10 33 31 2d a4 57 29 81 32 0d 28 e6 28 c9 20 31 35 |31-.W).2.(.(. 15|
00007f20 3a e7 73 74 25 3d 46 25 2b 31 32 20 f2 64 65 66 |:.st%=F%+12 .def|
00007f30 70 61 6c 31 36 20 8b f2 69 70 61 6c 28 31 36 29 |pal16 ..ipal(16)|
00007f40 0d 28 f0 34 cf 23 63 25 3d 46 25 2d 31 36 3a 73 |.(.4.#c%=F%-16:s|
00007f50 78 25 3d 28 a4 57 2b 31 29 2a 38 3a 72 6f 77 62 |x%=(.W+1)*8:rowb|
00007f60 79 74 65 73 25 3d 73 78 25 3e 3e 31 3a 69 6e 70 |ytes%=sx%>>1:inp|
00007f70 75 74 3d 34 0d 28 fa 21 73 79 25 3d a4 57 2b 31 |ut=4.(.!sy%=.W+1|
00007f80 3a 49 25 3d a4 57 3a 73 78 25 2d 3d 28 33 31 2d |:I%=.W:sx%-=(31-|
00007f90 a4 57 29 81 34 0d 29 04 19 c9 20 36 33 2c 32 35 |.W).4.)... 63,25|
00007fa0 35 3a e7 73 74 25 3d 46 25 2b 31 32 20 8c 0d 29 |5:.st%=F%+12 ..)|
00007fb0 0e 0b f2 64 65 66 70 61 6c 0d 29 18 05 cc 0d 29 |...defpal.)....)|
00007fc0 22 12 e7 4b 25 3e 73 74 25 20 4b 25 3d 73 74 25 |"..K%>st% K%=st%|
00007fd0 0d 29 2c 1c e7 4b 25 2d 31 32 2d 46 25 3d 32 30 |.),..K%-12-F%=20|
00007fe0 34 38 20 84 49 25 3d 32 35 35 20 8c 0d 29 36 0c |48 .I%=255 ..)6.|
00007ff0 cf 23 63 25 3d 26 33 38 0d 29 40 15 e3 43 25 3d |.#c%=&38.)@..C%=|
00008000 30 b8 32 35 35 3a 44 25 3d 9a 23 63 25 0d 29 4a |0.255:D%=.#c%.)J|
00008010 39 72 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 |9r%(C%)=.#c%/255|
00008020 2a 46 3a 67 25 28 43 25 29 3d 9a 23 63 25 2f 32 |*F:g%(C%)=.#c%/2|
00008030 35 35 2a 46 3a 62 25 28 43 25 29 3d 9a 23 63 25 |55*F:b%(C%)=.#c%|
00008040 2f 32 35 35 2a 46 0d 29 54 0b 44 25 3d a4 57 3a |/255*F.)T.D%=.W:|
00008050 ed 0d 29 5e 05 cc 0d 29 68 0b f2 69 70 61 6c 36 |..)^...)h..ipal6|
00008060 33 0d 29 72 05 cd 0d 29 7c 05 cd 0d 29 86 47 cf |3.)r...)|...).G.|
00008070 23 63 25 3d 46 25 2d 31 36 3a 73 78 25 3d 28 a4 |#c%=F%-16:sx%=(.|
00008080 57 2b 31 29 2a 34 3a 72 6f 77 62 79 74 65 73 25 |W+1)*4:rowbytes%|
00008090 3d 73 78 25 3a 73 79 25 3d a4 57 2b 31 3a 49 25 |=sx%:sy%=.W+1:I%|
000080a0 3d a4 57 3a 73 78 25 2d 3d 28 33 31 2d a4 57 29 |=.W:sx%-=(31-.W)|
000080b0 81 38 0d 29 90 29 7f 20 85 34 32 2c 22 4e 6f 74 |.8.).). .42,"Not|
000080c0 20 75 6e 64 65 72 73 74 6f 6f 64 20 52 49 53 43 | understood RISC|
000080d0 20 4f 53 20 73 70 72 69 74 65 22 0d 29 9a 05 cb | OS sprite".)...|
000080e0 0d 29 a4 40 72 24 3d 22 46 4e 38 22 3a c8 99 35 |.).@r$="FN8":..5|
000080f0 33 2c 73 6d 2c 34 20 b8 20 2c 2c 6e 78 3a c8 99 |3,sm,4 . ,,nx:..|
00008100 35 33 2c 73 6d 2c 35 20 b8 20 2c 2c 6e 79 3a 6e |53,sm,5 . ,,ny:n|
00008110 78 3d 31 3c 3c 6e 78 3a 6e 79 3d 31 3c 3c 6e 79 |x=1<<nx:ny=1<<ny|
00008120 0d 29 ae 2d e7 73 63 61 6c 65 25 20 78 6d 75 6c |.).-.scale% xmul|
00008130 25 3d 78 6d 75 6c 25 2a 6e 78 2f 32 3a 79 6d 75 |%=xmul%*nx/2:ymu|
00008140 6c 25 3d 79 6d 75 6c 25 2a 6e 79 2f 32 0d 29 b8 |l%=ymul%*ny/2.).|
00008150 53 69 6e 66 6f 24 3d 22 52 49 53 43 20 4f 53 20 |Sinfo$="RISC OS |
00008160 73 70 72 69 74 65 2c 20 6d 6f 64 65 20 22 2b c3 |sprite, mode "+.|
00008170 73 6d 2b 22 20 22 2b c3 73 78 25 2b 22 20 62 79 |sm+" "+.sx%+" by|
00008180 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 | "+.sy%+" pixels|
00008190 2c 20 22 2b a4 62 69 74 73 28 69 6e 70 75 74 29 |, "+.bits(input)|
000081a0 0d 29 c2 05 cc 0d 29 cc 19 62 70 70 25 3d 73 6d |.)....)..bpp%=sm|
000081b0 3e 3e 3e 32 37 3a c8 8e 62 70 70 25 20 ca 0d 29 |>>>27:..bpp% ..)|
000081c0 d6 39 c9 20 31 3a 62 70 70 25 3d 31 3a 72 24 3d |.9. 1:bpp%=1:r$=|
000081d0 22 46 4e 38 22 3a e7 73 74 25 3d 46 25 2b 31 32 |"FN8":.st%=F%+12|
000081e0 20 f2 64 65 66 70 61 6c 32 20 8b f2 6e 65 77 72 | .defpal2 ..newr|
000081f0 6f 70 61 6c 28 32 29 0d 29 e0 39 c9 20 32 3a 62 |opal(2).).9. 2:b|
00008200 70 70 25 3d 32 3a 72 24 3d 22 46 4e 38 22 3a e7 |pp%=2:r$="FN8":.|
00008210 73 74 25 3d 46 25 2b 31 32 20 f2 64 65 66 70 61 |st%=F%+12 .defpa|
00008220 6c 34 20 8b f2 6e 65 77 72 6f 70 61 6c 28 34 29 |l4 ..newropal(4)|
00008230 0d 29 ea 3b c9 20 33 3a 62 70 70 25 3d 34 3a 72 |.).;. 3:bpp%=4:r|
00008240 24 3d 22 46 4e 38 22 3a e7 73 74 25 3d 46 25 2b |$="FN8":.st%=F%+|
00008250 31 32 20 f2 64 65 66 70 61 6c 31 36 20 8b f2 6e |12 .defpal16 ..n|
00008260 65 77 72 6f 70 61 6c 28 31 36 29 0d 29 f4 3a c9 |ewropal(16).).:.|
00008270 20 34 3a 62 70 70 25 3d 38 3a 72 24 3d 22 46 4e | 4:bpp%=8:r$="FN|
00008280 38 22 3a e7 73 74 25 3d 46 25 2b 31 32 20 f2 64 |8":.st%=F%+12 .d|
00008290 65 66 70 61 6c 20 8b f2 6e 65 77 72 6f 70 61 6c |efpal ..newropal|
000082a0 28 32 35 36 29 0d 29 fe 26 c9 20 35 3a 62 70 70 |(256).).&. 5:bpp|
000082b0 25 3d 31 36 3a 72 24 3d 22 46 4e 31 36 22 3a e7 |%=16:r$="FN16":.|
000082c0 73 74 25 3d 46 25 2b 31 32 20 8b 0d 2a 08 24 de |st%=F%+12 ..*.$.|
000082d0 20 72 70 61 6c 25 28 32 35 35 29 2c 67 70 61 6c | rpal%(255),gpal|
000082e0 25 28 32 35 35 29 3a 73 74 65 70 32 34 3d 32 0d |%(255):step24=2.|
000082f0 2a 12 0d e3 43 25 3d 30 b8 32 35 35 0d 2a 1c 22 |*...C%=0.255.*."|
00008300 67 70 61 6c 25 28 43 25 29 3d 28 43 25 3e 3e 35 |gpal%(C%)=(C%>>5|
00008310 29 3c 3c 38 20 84 20 28 43 25 80 33 31 29 0d 2a |)<<8 . (C%.31).*|
00008320 26 2b 72 70 61 6c 25 28 43 25 29 3d 28 28 43 25 |&+rpal%(C%)=((C%|
00008330 3e 3e 32 29 80 33 31 29 3c 3c 31 36 20 84 20 28 |>>2).31)<<16 . (|
00008340 43 25 80 33 29 3c 3c 31 31 0d 2a 30 05 ed 0d 2a |C%.3)<<11.*0...*|
00008350 3a 31 e3 43 25 3d 30 b8 33 31 3a 72 25 28 43 25 |:1.C%=0.31:r%(C%|
00008360 29 3d 43 25 2f 33 31 2a 46 3a ed 3a 67 25 28 29 |)=C%/31*F:.:g%()|
00008370 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d |=r%():b%()=r%().|
00008380 2a 44 2d c9 20 36 3a 62 70 70 25 3d 33 32 3a 72 |*D-. 6:bpp%=32:r|
00008390 24 3d 22 46 4e 32 34 22 3a e7 73 74 25 3d 46 25 |$="FN24":.st%=F%|
000083a0 2b 31 32 20 f2 6e 6f 70 61 6c 20 8b 0d 2a 4e 21 |+12 .nopal ..*N!|
000083b0 72 62 6f 25 3d 30 3a 67 62 6f 25 3d 31 3a 62 62 |rbo%=0:gbo%=1:bb|
000083c0 6f 25 3d 32 3a 73 74 65 70 32 34 3d 34 0d 2a 58 |o%=2:step24=4.*X|
000083d0 2d c9 20 38 3a 62 70 70 25 3d 32 34 3a 72 24 3d |-. 8:bpp%=24:r$=|
000083e0 22 46 4e 32 34 22 3a e7 73 74 25 3d 46 25 2b 31 |"FN24":.st%=F%+1|
000083f0 32 20 f2 6e 6f 70 61 6c 20 8b 0d 2a 62 18 72 62 |2 .nopal ..*b.rb|
00008400 6f 25 3d 30 3a 67 62 6f 25 3d 31 3a 62 62 6f 25 |o%=0:gbo%=1:bbo%|
00008410 3d 32 0d 2a 6c 38 7f 20 85 34 32 2c 22 4e 6f 74 |=2.*l8. .42,"Not|
00008420 20 75 6e 64 65 72 73 74 6f 6f 64 20 6e 65 77 20 | understood new |
00008430 66 6f 72 6d 61 74 20 52 49 53 43 20 4f 53 20 73 |format RISC OS s|
00008440 70 72 69 74 65 20 62 70 70 22 0d 2a 76 05 cb 0d |prite bpp".*v...|
00008450 2a 80 28 6e 78 3d 28 73 6d 3e 3e 31 29 20 80 26 |*.(nx=(sm>>1) .&|
00008460 31 66 66 66 3a 6e 79 3d 28 73 6d 3e 3e 31 34 29 |1fff:ny=(sm>>14)|
00008470 20 80 26 31 66 66 66 0d 2a 8a 47 e7 73 63 61 6c | .&1fff.*.G.scal|
00008480 65 25 20 78 64 69 76 25 3d 78 64 69 76 25 2a 6e |e% xdiv%=xdiv%*n|
00008490 78 3a 79 64 69 76 25 3d 79 64 69 76 25 2a 6e 79 |x:ydiv%=ydiv%*ny|
000084a0 3a 78 6d 75 6c 25 3d 78 6d 75 6c 25 2a 39 30 3a |:xmul%=xmul%*90:|
000084b0 79 6d 75 6c 25 3d 79 6d 75 6c 25 2a 39 30 0d 2a |ymul%=ymul%*90.*|
000084c0 94 5a cf 23 63 25 3d 46 25 2d 31 36 3a 72 6f 77 |.Z.#c%=F%-16:row|
000084d0 62 79 74 65 73 25 3d 28 a4 57 2b 31 29 2a 34 3a |bytes%=(.W+1)*4:|
000084e0 73 79 25 3d a4 57 2b 31 3a 49 25 3d a4 57 3a 73 |sy%=.W+1:I%=.W:s|
000084f0 78 25 3d 28 72 6f 77 62 79 74 65 73 25 2a 38 2d |x%=(rowbytes%*8-|
00008500 28 33 31 2d a4 57 29 29 2f 62 70 70 25 3a 69 6e |(31-.W))/bpp%:in|
00008510 70 75 74 3d 62 70 70 25 0d 2a 9e 4a 69 6e 66 6f |put=bpp%.*.Jinfo|
00008520 24 3d 22 4e 65 77 20 52 49 53 43 20 4f 53 20 73 |$="New RISC OS s|
00008530 70 72 69 74 65 2c 20 22 2b c3 73 78 25 2b 22 20 |prite, "+.sx%+" |
00008540 62 79 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 |by "+.sy%+" pixe|
00008550 6c 73 2c 20 22 2b a4 62 69 74 73 28 69 6e 70 75 |ls, "+.bits(inpu|
00008560 74 29 0d 2a a8 15 e7 62 70 70 25 3d 33 32 20 69 |t).*...bpp%=32 i|
00008570 6e 70 75 74 3d 32 34 0d 2a b2 05 cd 0d 2a bc 15 |nput=24.*....*..|
00008580 cf 23 63 25 3d 73 74 25 3a 63 61 63 68 65 25 3d |.#c%=st%:cache%=|
00008590 b9 0d 2a c6 09 c9 20 31 30 30 0d 2a d0 45 71 75 |..*... 100.*.Equ|
000085a0 61 6e 74 25 3d 38 3a cf 23 63 25 3d 30 3a 73 78 |ant%=8:.#c%=0:sx|
000085b0 25 3d a4 48 57 3a 73 79 25 3d a4 48 57 3a f2 6e |%=.HW:sy%=.HW:.n|
000085c0 6f 70 61 6c 3a 69 6e 70 75 74 3d 32 34 3a 72 6f |opal:input=24:ro|
000085d0 77 62 79 74 65 73 25 3d 73 78 25 2a 33 2b 32 0d |wbytes%=sx%*3+2.|
000085e0 2a da 35 72 62 6f 25 3d 32 3a 67 62 6f 25 3d 32 |*.5rbo%=2:gbo%=2|
000085f0 2b 73 78 25 3a 62 62 6f 25 3d 32 2b 32 2a 73 78 |+sx%:bbo%=2+2*sx|
00008600 25 3a 72 24 3d 22 46 4e 32 34 22 3a 63 61 63 68 |%:r$="FN24":cach|
00008610 65 25 3d b9 0d 2a e4 4a 69 6e 66 6f 24 3d 22 51 |e%=..*.Jinfo$="Q|
00008620 52 54 20 2e 72 61 77 20 69 6d 61 67 65 2c 20 22 |RT .raw image, "|
00008630 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 |+.sx%+" by "+.sy|
00008640 25 2b 22 20 70 69 78 65 6c 73 2c 20 32 34 20 62 |%+" pixels, 24 b|
00008650 69 74 73 20 70 65 72 20 70 69 78 65 6c 22 0d 2a |its per pixel".*|
00008660 ee 09 c9 20 32 30 30 0d 2a f8 47 71 75 61 6e 74 |... 200.*.Gquant|
00008670 25 3d 38 3a cf 23 63 25 3d 35 3a 73 78 25 3d a4 |%=8:.#c%=5:sx%=.|
00008680 48 57 3a 73 79 25 3d a4 48 57 3a 73 78 25 3d 28 |HW:sy%=.HW:sx%=(|
00008690 a4 48 57 2d 73 78 25 2b 32 29 2f 32 3a 73 79 25 |.HW-sx%+2)/2:sy%|
000086a0 3d 28 a4 48 57 2d 73 79 25 2b 32 29 2f 32 0d 2b |=(.HW-sy%+2)/2.+|
000086b0 02 24 cf 23 63 25 3d 26 31 61 3a 63 61 64 73 6f |.$.#c%=&1a:cadso|
000086c0 66 74 25 3d 9a 23 63 25 3a cf 23 63 25 3d 26 32 |ft%=.#c%:.#c%=&2|
000086d0 30 30 0d 2b 0c 3f e3 43 25 3d 30 b8 32 35 35 3a |00.+.?.C%=0.255:|
000086e0 72 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 2a |r%(C%)=.#c%/255*|
000086f0 46 3a ed 3a e3 43 25 3d 30 b8 32 35 35 3a 67 25 |F:.:.C%=0.255:g%|
00008700 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 2a 46 3a |(C%)=.#c%/255*F:|
00008710 ed 0d 2b 16 21 e3 43 25 3d 30 b8 32 35 35 3a 62 |..+.!.C%=0.255:b|
00008720 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 2a 46 |%(C%)=.#c%/255*F|
00008730 3a ed 0d 2b 20 2d cf 23 63 25 3d 26 36 30 30 3a |:..+ -.#c%=&600:|
00008740 73 74 25 3d 26 36 30 30 3a 63 61 63 68 65 25 3d |st%=&600:cache%=|
00008750 b9 3a e7 63 61 64 73 6f 66 74 25 3d 32 20 8c 0d |.:.cadsoft%=2 ..|
00008760 2b 2a 43 72 65 70 25 3d 30 3a 72 24 3d 22 46 4e |+*Crep%=0:r$="FN|
00008770 31 31 30 30 22 3a 70 6c 62 75 66 66 25 3d a4 64 |1100":plbuff%=.d|
00008780 69 6d 28 73 78 25 29 3a 70 6c 62 79 74 65 73 25 |im(sx%):plbytes%|
00008790 3d 73 78 25 3a 63 61 63 68 65 62 79 74 65 73 25 |=sx%:cachebytes%|
000087a0 3d b9 0d 2b 34 05 cc 0d 2b 3e 1a 72 24 3d 22 46 |=..+4...+>.r$="F|
000087b0 4e 38 22 3a 72 6f 77 62 79 74 65 73 25 3d 73 78 |N8":rowbytes%=sx|
000087c0 25 0d 2b 48 05 cd 0d 2b 52 5b 69 6e 66 6f 24 3d |%.+H...+R[info$=|
000087d0 22 43 61 64 73 6f 66 74 20 74 79 70 65 20 22 2b |"Cadsoft type "+|
000087e0 c3 63 61 64 73 6f 66 74 25 2b 22 20 69 6d 61 67 |.cadsoft%+" imag|
000087f0 65 2c 20 22 2b c3 73 78 25 2b 22 20 62 79 20 22 |e, "+.sx%+" by "|
00008800 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 |+.sy%+" pixels, |
00008810 38 20 62 69 74 73 20 70 65 72 20 70 69 78 65 6c |8 bits per pixel|
00008820 22 0d 2b 5c 09 c9 20 33 30 30 0d 2b 66 49 71 75 |".+\.. 300.+fIqu|
00008830 61 6e 74 25 3d 35 3a cf 23 63 25 3d 26 32 63 3a |ant%=5:.#c%=&2c:|
00008840 73 74 25 3d a4 57 2b 28 26 33 38 2d 26 32 63 29 |st%=.W+(&38-&2c)|
00008850 3a cf 23 63 63 25 3d 26 32 63 3a 73 74 63 63 25 |:.#cc%=&2c:stcc%|
00008860 3d a4 57 31 28 63 63 25 29 2b 28 26 33 38 2d 26 |=.W1(cc%)+(&38-&|
00008870 32 63 29 0d 2b 70 37 cf 23 63 25 3d 26 31 63 3a |2c).+p7.#c%=&1c:|
00008880 73 78 25 3d 28 a4 57 2b 31 29 2a 34 3a 73 79 25 |sx%=(.W+1)*4:sy%|
00008890 3d a4 57 2b 31 3a cf 23 63 25 3d 73 74 25 3a cf |=.W+1:.#c%=st%:.|
000088a0 23 63 63 25 3d 73 74 63 63 25 0d 2b 7a 3b de 20 |#cc%=stcc%.+z;. |
000088b0 72 70 61 6c 25 28 32 35 35 29 2c 67 70 61 6c 25 |rpal%(255),gpal%|
000088c0 28 32 35 35 29 3a 69 6e 70 75 74 3d 31 36 3a 63 |(255):input=16:c|
000088d0 61 63 68 65 25 3d b9 3a 72 6f 77 62 79 74 65 73 |ache%=.:rowbytes|
000088e0 25 3d 73 78 25 0d 2b 84 0d e3 43 25 3d 30 b8 32 |%=sx%.+...C%=0.2|
000088f0 35 35 0d 2b 8e 2e 72 70 61 6c 25 28 43 25 29 3d |55.+..rpal%(C%)=|
00008900 43 25 80 37 20 84 20 28 43 25 80 36 34 29 3c 3c |C%.7 . (C%.64)<<|
00008910 32 20 84 20 28 43 25 80 26 33 38 29 3c 3c 31 33 |2 . (C%.&38)<<13|
00008920 0d 2b 98 53 67 70 61 6c 25 28 43 25 29 3d 28 43 |.+.Sgpal%(C%)=(C|
00008930 25 80 34 29 3c 3c 31 84 43 25 80 31 36 20 84 20 |%.4)<<1.C%.16 . |
00008940 28 28 43 25 80 33 29 3c 3c 31 84 28 43 25 80 26 |((C%.3)<<1.(C%.&|
00008950 36 30 29 3e 3e 32 29 3c 3c 38 20 84 20 28 43 25 |60)>>2)<<8 . (C%|
00008960 80 38 84 28 43 25 80 31 32 38 29 3e 3e 33 29 3c |.8.(C%.128)>>3)<|
00008970 3c 31 36 0d 2b a2 05 ed 0d 2b ac 31 e3 43 25 3d |<16.+....+.1.C%=|
00008980 30 b8 33 31 3a 72 25 28 43 25 29 3d 43 25 2f 33 |0.31:r%(C%)=C%/3|
00008990 31 2a 46 3a ed 3a 67 25 28 29 3d 72 25 28 29 3a |1*F:.:g%()=r%():|
000089a0 62 25 28 29 3d 72 25 28 29 0d 2b b6 2a 70 62 75 |b%()=r%().+.*pbu|
000089b0 66 66 25 3d a4 64 69 6d 28 73 78 25 29 3a e7 73 |ff%=.dim(sx%):.s|
000089c0 63 61 6c 65 25 20 79 6d 75 6c 25 3d 79 6d 75 6c |cale% ymul%=ymul|
000089d0 25 2a 32 0d 2b c0 47 69 6e 66 6f 24 3d 22 41 72 |%*2.+.Ginfo$="Ar|
000089e0 56 69 73 20 69 6d 61 67 65 2c 20 22 2b c3 73 78 |Vis image, "+.sx|
000089f0 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 |%+" by "+.sy%+" |
00008a00 70 69 78 65 6c 73 2c 20 31 35 20 62 69 74 73 20 |pixels, 15 bits |
00008a10 70 65 72 20 70 69 78 65 6c 22 0d 2b ca 09 c9 20 |per pixel".+... |
00008a20 34 30 30 0d 2b d4 45 71 75 61 6e 74 25 3d 38 3a |400.+.Equant%=8:|
00008a30 cf 23 63 25 3d 30 3a 73 78 25 3d a4 62 65 48 57 |.#c%=0:sx%=.beHW|
00008a40 3a 73 79 25 3d a4 62 65 48 57 3a 58 25 3d a4 62 |:sy%=.beHW:X%=.b|
00008a50 65 48 57 3a 73 74 25 3d 8f 23 63 25 2b 58 25 3a |eHW:st%=.#c%+X%:|
00008a60 cf 23 63 25 3d 73 74 25 0d 2b de 56 70 6c 62 75 |.#c%=st%.+.Vplbu|
00008a70 66 66 25 3d a4 64 69 6d 28 73 78 25 2a 33 29 3a |ff%=.dim(sx%*3):|
00008a80 70 6c 62 79 74 65 73 25 3d 73 78 25 2a 33 3a 72 |plbytes%=sx%*3:r|
00008a90 62 25 3d 70 6c 62 75 66 66 25 3a 67 62 25 3d 70 |b%=plbuff%:gb%=p|
00008aa0 6c 62 75 66 66 25 2b 31 3a 62 62 25 3d 70 6c 62 |lbuff%+1:bb%=plb|
00008ab0 75 66 66 25 2b 32 3a 72 62 6f 25 3d 2d 31 0d 2b |uff%+2:rbo%=-1.+|
00008ac0 e8 3a f2 6e 6f 70 61 6c 3a 69 6e 70 75 74 3d 32 |.:.nopal:input=2|
00008ad0 34 3a 72 65 70 25 3d 30 3a 63 61 63 68 65 62 79 |4:rep%=0:cacheby|
00008ae0 74 65 73 25 3d b9 3a 63 61 63 68 65 25 3d b9 3a |tes%=.:cache%=.:|
00008af0 73 74 65 70 32 34 3d 33 0d 2b f2 5e 69 6e 66 6f |step24=3.+.^info|
00008b00 24 3d 22 52 54 20 69 6d 61 67 65 2e 20 72 75 6e |$="RT image. run|
00008b10 20 6c 65 6e 67 74 68 20 65 6e 63 6f 64 65 64 20 | length encoded |
00008b20 69 6d 61 67 65 2c 20 22 2b c3 73 78 25 2b 22 20 |image, "+.sx%+" |
00008b30 62 79 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 |by "+.sy%+" pixe|
00008b40 6c 73 2c 20 32 34 20 62 69 74 73 20 70 65 72 20 |ls, 24 bits per |
00008b50 70 69 78 65 6c 22 0d 2b fc 09 c9 20 35 30 30 0d |pixel".+... 500.|
00008b60 2c 06 2c 63 6f 6d 70 72 65 73 73 69 6f 6e 3d 35 |,.,compression=5|
00008b70 3a cf 23 63 25 3d 36 3a 47 49 46 73 78 3d a4 48 |:.#c%=6:GIFsx=.H|
00008b80 57 3a 47 49 46 73 79 3d a4 48 57 0d 2c 10 38 47 |W:GIFsy=.HW.,.8G|
00008b90 49 46 3d 9a 23 63 25 3a 47 49 46 62 61 63 6b 3d |IF=.#c%:GIFback=|
00008ba0 9a 23 63 25 3a 47 49 46 65 78 74 3d 9a 23 63 25 |.#c%:GIFext=.#c%|
00008bb0 3a 71 75 61 6e 74 25 3d 28 47 49 46 20 80 20 37 |:quant%=(GIF . 7|
00008bc0 29 2b 31 0d 2c 1a 10 e7 47 49 46 20 80 20 26 38 |)+1.,...GIF . &8|
00008bd0 30 20 8c 0d 2c 24 17 e3 43 25 3d 30 b8 28 31 3c |0 ..,$..C%=0.(1<|
00008be0 3c 71 75 61 6e 74 25 29 2d 31 0d 2c 2e 39 72 25 |<quant%)-1.,.9r%|
00008bf0 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 2a 46 3a |(C%)=.#c%/255*F:|
00008c00 67 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 2a |g%(C%)=.#c%/255*|
00008c10 46 3a 62 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 |F:b%(C%)=.#c%/25|
00008c20 35 2a 46 0d 2c 38 05 ed 0d 2c 42 05 cd 0d 2c 4c |5*F.,8...,B...,L|
00008c30 16 49 25 3d 9a 23 63 25 3a c8 95 20 49 25 3d 97 |.I%=.#c%:.. I%=.|
00008c40 22 21 22 0d 2c 60 0a e7 20 9a 23 63 25 0d 2c 6a |"!".,`.. .#c%.,j|
00008c50 05 f5 0d 2c 74 24 47 49 46 67 63 65 73 7a 3d 9a |...,t$GIFgcesz=.|
00008c60 23 63 25 3a cf 23 63 25 3d 8f 23 63 25 2b 47 49 |#c%:.#c%=.#c%+GI|
00008c70 46 67 63 65 73 7a 0d 2c 92 18 fd 20 47 49 46 67 |Fgcesz.,... GIFg|
00008c80 63 65 73 7a 3d 30 3a 49 25 3d 9a 23 63 25 0d 2c |cesz=0:I%=.#c%.,|
00008c90 9c 05 ce 0d 2c a6 36 e7 49 25 3c 3e 97 22 2c 22 |....,.6.I%<>.","|
00008ca0 20 85 20 34 32 2c 22 47 49 46 20 66 69 6c 65 20 | . 42,"GIF file |
00008cb0 77 69 74 68 6f 75 74 20 2c 20 69 6e 20 72 69 67 |without , in rig|
00008cc0 68 74 20 70 6c 61 63 65 22 0d 2c ba 1d e7 47 49 |ht place".,...GI|
00008cd0 46 65 78 74 3c 3e 30 20 80 20 47 49 46 65 78 74 |Fext<>0 . GIFext|
00008ce0 3c 3e 34 39 20 8c 0d 2c c4 10 e7 47 49 46 65 78 |<>49 ..,...GIFex|
00008cf0 74 3e 34 39 20 8c 0d 2c d8 2a 78 64 69 76 25 3d |t>49 ..,.*xdiv%=|
00008d00 78 64 69 76 25 2a 36 34 3a 78 6d 75 6c 25 3d 78 |xdiv%*64:xmul%=x|
00008d10 6d 75 6c 25 2a 28 47 49 46 65 78 74 2b 31 35 29 |mul%*(GIFext+15)|
00008d20 0d 2c e2 05 cc 0d 2c ec 2a 79 64 69 76 25 3d 79 |.,....,.*ydiv%=y|
00008d30 64 69 76 25 2a 28 47 49 46 65 78 74 2b 31 35 29 |div%*(GIFext+15)|
00008d40 3a 79 6d 75 6c 25 3d 79 6d 75 6c 25 2a 36 34 0d |:ymul%=ymul%*64.|
00008d50 2c f6 05 cd 0d 2d 00 05 cd 0d 2d 0a 2c 47 49 46 |,....-....-.,GIF|
00008d60 6c 65 66 74 3d a4 48 57 3a 47 49 46 72 69 67 68 |left=.HW:GIFrigh|
00008d70 74 3d a4 48 57 3a 73 78 25 3d a4 48 57 3a 73 79 |t=.HW:sx%=.HW:sy|
00008d80 25 3d a4 48 57 0d 2d 14 1c e7 47 49 46 73 78 3c |%=.HW.-...GIFsx<|
00008d90 73 78 25 20 84 20 47 49 46 73 79 3c 73 79 25 20 |sx% . GIFsy<sy% |
00008da0 8c 0d 2d 1e 0c e7 69 6e 66 6f 25 20 8c 0d 2d 28 |..-...info% ..-(|
00008db0 29 f1 22 47 49 46 20 66 69 6c 65 20 77 69 74 68 |)."GIF file with|
00008dc0 20 62 69 67 67 65 72 20 69 6d 61 67 65 20 69 6e | bigger image in|
00008dd0 73 69 64 65 3a 22 0d 2d 32 3b f1 22 53 63 72 65 |side:".-2;."Scre|
00008de0 65 6e 20 22 3b 47 49 46 73 78 22 78 20 62 79 20 |en ";GIFsx"x by |
00008df0 22 47 49 46 73 79 22 79 3b 20 69 6d 61 67 65 20 |"GIFsy"y; image |
00008e00 22 73 78 25 22 78 20 62 79 20 22 73 79 25 22 79 |"sx%"x by "sy%"y|
00008e10 22 0d 2d 3c 2f e8 22 43 6f 6e 74 69 6e 75 65 20 |".-</."Continue |
00008e20 77 69 74 68 20 6d 6f 6e 69 74 6f 72 27 73 20 73 |with monitor's s|
00008e30 69 7a 65 20 5b 59 20 6f 72 20 79 5d 3f 22 41 24 |ize [Y or y]?"A$|
00008e40 0d 2d 46 26 e7 41 24 3d 22 59 22 84 41 24 3d 22 |.-F&.A$="Y".A$="|
00008e50 79 22 20 73 78 25 3d 47 49 46 73 78 3a 73 79 25 |y" sx%=GIFsx:sy%|
00008e60 3d 47 49 46 73 79 0d 2d 50 28 f1 22 43 6f 6e 74 |=GIFsy.-P(."Cont|
00008e70 69 6e 75 69 6e 67 20 77 69 74 68 20 22 3b 73 78 |inuing with ";sx|
00008e80 25 22 78 20 62 79 20 22 73 79 25 22 79 22 0d 2d |%"x by "sy%"y".-|
00008e90 5a 05 cd 0d 2d 64 05 cd 0d 2d 6e 29 47 49 46 3d |Z...-d...-n)GIF=|
00008ea0 9a 23 63 25 3a e7 47 49 46 20 80 20 26 34 30 20 |.#c%:.GIF . &40 |
00008eb0 66 6c 61 67 3d 35 30 31 3a 72 24 3d 22 46 4e 38 |flag=501:r$="FN8|
00008ec0 22 0d 2d 78 4a 73 65 74 63 6f 64 65 73 25 3d 9a |".-xJsetcodes%=.|
00008ed0 23 63 25 3a 63 6c 65 61 72 63 6f 64 65 25 3d 31 |#c%:clearcode%=1|
00008ee0 3c 3c 73 65 74 63 6f 64 65 73 25 3a 73 74 25 3d |<<setcodes%:st%=|
00008ef0 8f 23 63 25 3a 63 61 63 68 65 25 3d b9 3a 63 61 |.#c%:cache%=.:ca|
00008f00 63 68 65 62 79 74 65 73 25 3d b9 0d 2d 82 45 de |chebytes%=..-.E.|
00008f10 20 74 61 62 6c 65 25 28 31 3c 3c 31 32 29 3a 73 | table%(1<<12):s|
00008f20 74 6b 25 3d a4 64 69 6d 28 31 3c 3c 31 33 29 3a |tk%=.dim(1<<13):|
00008f30 62 75 66 25 3d a4 64 69 6d 28 32 38 30 29 3a 70 |buf%=.dim(280):p|
00008f40 6c 62 75 66 66 25 3d a4 64 69 6d 28 73 78 25 29 |lbuff%=.dim(sx%)|
00008f50 0d 2d 8c 26 e3 49 25 3d 30 b8 63 6c 65 61 72 63 |.-.&.I%=0.clearc|
00008f60 6f 64 65 25 2d 31 3a 74 61 62 6c 65 25 28 49 25 |ode%-1:table%(I%|
00008f70 29 3d 49 25 3a ed 0d 2d 96 41 69 6e 66 6f 24 3d |)=I%:..-.Ainfo$=|
00008f80 22 47 49 46 20 66 69 6c 65 2c 20 22 2b c3 73 78 |"GIF file, "+.sx|
00008f90 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 |%+" by "+.sy%+" |
00008fa0 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 28 |pixels, "+.bits(|
00008fb0 71 75 61 6e 74 25 29 0d 2d a0 09 c9 20 36 30 30 |quant%).-... 600|
00008fc0 0d 2d aa 1f 71 75 61 6e 74 25 3d 38 3a cf 23 63 |.-..quant%=8:.#c|
00008fd0 25 3d 26 35 63 3a e3 43 25 3d 30 b8 32 35 35 0d |%=&5c:.C%=0.255.|
00008fe0 2d b4 39 72 25 28 43 25 29 3d 9a 23 63 25 2f 32 |-.9r%(C%)=.#c%/2|
00008ff0 35 35 2a 46 3a 67 25 28 43 25 29 3d 9a 23 63 25 |55*F:g%(C%)=.#c%|
00009000 2f 32 35 35 2a 46 3a 62 25 28 43 25 29 3d 9a 23 |/255*F:b%(C%)=.#|
00009010 63 25 2f 32 35 35 2a 46 0d 2d be 05 ed 0d 2d c8 |c%/255*F.-....-.|
00009020 1d cf 23 63 25 3d 26 33 36 65 3a 73 79 25 3d a4 |..#c%=&36e:sy%=.|
00009030 48 57 3a 73 78 25 3d a4 48 57 0d 2d d2 35 73 74 |HW:sx%=.HW.-.5st|
00009040 25 3d 26 33 38 30 3a cf 23 63 25 3d 73 74 25 3a |%=&380:.#c%=st%:|
00009050 72 6f 77 62 79 74 65 73 25 3d 73 78 25 3a 72 24 |rowbytes%=sx%:r$|
00009060 3d 22 46 4e 38 22 3a 63 61 63 68 65 25 3d b9 0d |="FN8":cache%=..|
00009070 2d dc 45 69 6e 66 6f 24 3d 22 2e 50 49 43 20 69 |-.Einfo$=".PIC i|
00009080 6d 61 67 65 2c 20 22 2b c3 73 78 25 2b 22 20 62 |mage, "+.sx%+" b|
00009090 79 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 6c |y "+.sy%+" pixel|
000090a0 73 2c 20 38 20 62 69 74 73 20 70 65 72 20 70 69 |s, 8 bits per pi|
000090b0 78 65 6c 22 0d 2d e6 09 c9 20 37 30 30 0d 2d f0 |xel".-... 700.-.|
000090c0 24 71 75 61 6e 74 25 3d 38 3a cf 23 63 25 3d 30 |$quant%=8:.#c%=0|
000090d0 3a 61 24 3d be 23 63 25 3a 73 74 25 3d 8f 23 63 |:a$=.#c%:st%=.#c|
000090e0 25 0d 2d fa 20 73 78 25 3d bb 61 24 3a 73 79 25 |%.-. sx%=.a$:sy%|
000090f0 3d bb 28 c1 61 24 2c a7 61 24 2c 22 20 22 29 29 |=.(.a$,.a$," "))|
00009100 29 0d 2e 04 36 f2 6e 6f 70 61 6c 3a 69 6e 70 75 |)...6.nopal:inpu|
00009110 74 3d 32 34 3a 73 74 65 70 32 34 3d 33 3a 72 6f |t=24:step24=3:ro|
00009120 77 62 79 74 65 73 25 3d 73 78 25 2a 33 3a 72 24 |wbytes%=sx%*3:r$|
00009130 3d 22 46 4e 32 34 22 0d 2e 0e 21 72 62 6f 25 3d |="FN24"...!rbo%=|
00009140 30 3a 67 62 6f 25 3d 31 3a 62 62 6f 25 3d 32 3a |0:gbo%=1:bbo%=2:|
00009150 63 61 63 68 65 25 3d b9 0d 2e 18 4a 69 6e 66 6f |cache%=....Jinfo|
00009160 24 3d 22 4d 54 56 20 2e 70 69 63 20 69 6d 61 67 |$="MTV .pic imag|
00009170 65 2c 20 22 2b c3 73 78 25 2b 22 20 62 79 20 22 |e, "+.sx%+" by "|
00009180 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 |+.sy%+" pixels, |
00009190 32 34 20 62 69 74 73 20 70 65 72 20 70 69 78 65 |24 bits per pixe|
000091a0 6c 22 0d 2e 22 09 c9 20 38 30 30 0d 2e 2c 29 73 |l"..".. 800..,)s|
000091b0 78 25 3d 35 31 32 3a 73 79 25 3d 32 35 36 3a e7 |x%=512:sy%=256:.|
000091c0 73 63 61 6c 65 25 20 79 6d 75 6c 25 3d 79 6d 75 |scale% ymul%=ymu|
000091d0 6c 25 2a 32 0d 2e 36 34 70 6c 62 75 66 66 25 3d |l%*2..64plbuff%=|
000091e0 a4 64 69 6d 28 73 78 25 29 3a 72 65 70 25 3d 30 |.dim(sx%):rep%=0|
000091f0 3a 77 74 25 3d 30 3a 77 74 73 78 25 3d 70 6c 62 |:wt%=0:wtsx%=plb|
00009200 75 66 66 25 2b 73 78 25 0d 2e 40 1a 63 61 63 68 |uff%+sx%..@.cach|
00009210 65 25 3d b9 3a 63 61 63 68 65 62 79 74 65 73 25 |e%=.:cachebytes%|
00009220 3d b9 0d 2e 4a 40 e3 43 25 3d 30 b8 32 35 35 3a |=...J@.C%=0.255:|
00009230 72 25 28 43 25 29 3d 28 43 25 80 36 33 29 2f 36 |r%(C%)=(C%.63)/6|
00009240 33 2a 46 3a ed 3a 67 25 28 29 3d 72 25 28 29 3a |3*F:.:g%()=r%():|
00009250 62 25 28 29 3d 72 25 28 29 3a 71 75 61 6e 74 25 |b%()=r%():quant%|
00009260 3d 36 0d 2e 54 4a 69 6e 66 6f 24 3d 22 57 61 74 |=6..TJinfo$="Wat|
00009270 66 6f 72 64 20 64 69 67 69 74 69 73 65 72 20 70 |ford digitiser p|
00009280 69 63 74 75 72 65 2c 20 35 31 32 20 62 79 20 32 |icture, 512 by 2|
00009290 35 36 20 70 69 78 65 6c 73 2c 20 36 20 62 69 74 |56 pixels, 6 bit|
000092a0 73 20 70 65 72 20 70 69 78 65 6c 22 0d 2e 5e 09 |s per pixel"..^.|
000092b0 c9 20 38 30 31 0d 2e 68 3b 73 78 25 3d 35 31 32 |. 801..h;sx%=512|
000092c0 3a 73 79 25 3d 32 35 36 3a 69 6e 70 75 74 3d 32 |:sy%=256:input=2|
000092d0 34 3a 71 75 61 6e 74 25 3d 36 3a e7 73 63 61 6c |4:quant%=6:.scal|
000092e0 65 25 20 79 6d 75 6c 25 3d 79 6d 75 6c 25 2a 32 |e% ymul%=ymul%*2|
000092f0 0d 2e 72 30 72 65 70 31 25 3d 30 3a 77 74 31 25 |..r0rep1%=0:wt1%|
00009300 3d 30 3a 72 65 70 32 25 3d 30 3a 77 74 32 25 3d |=0:rep2%=0:wt2%=|
00009310 30 3a 72 65 70 33 25 3d 30 3a 77 74 33 25 3d 30 |0:rep3%=0:wt3%=0|
00009320 0d 2e 7c 3d 62 75 66 66 25 3d a4 64 69 6d 28 73 |..|=buff%=.dim(s|
00009330 78 25 2a 33 29 3a 72 62 25 3d 62 75 66 66 25 3a |x%*3):rb%=buff%:|
00009340 67 62 25 3d 62 75 66 66 25 2b 73 78 25 3a 62 62 |gb%=buff%+sx%:bb|
00009350 25 3d 62 75 66 66 25 2b 32 2a 73 78 25 0d 2e 86 |%=buff%+2*sx%...|
00009360 3a 77 74 73 78 31 25 3d 62 75 66 66 25 2b 73 78 |:wtsx1%=buff%+sx|
00009370 25 3a 77 74 73 78 32 25 3d 62 75 66 66 25 2b 32 |%:wtsx2%=buff%+2|
00009380 2a 73 78 25 3a 77 74 73 78 33 25 3d 62 75 66 66 |*sx%:wtsx3%=buff|
00009390 25 2b 33 2a 73 78 25 0d 2e 90 37 e3 43 25 3d 30 |%+3*sx%...7.C%=0|
000093a0 b8 32 35 35 3a 72 25 28 43 25 29 3d 28 43 25 80 |.255:r%(C%)=(C%.|
000093b0 36 33 29 2f 36 33 2a 46 3a ed 3a 67 25 28 29 3d |63)/63*F:.:g%()=|
000093c0 72 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d 2e |r%():b%()=r%()..|
000093d0 9a 52 69 6e 66 6f 24 3d 22 54 72 69 70 6c 65 20 |.Rinfo$="Triple |
000093e0 57 61 74 66 6f 72 64 20 64 69 67 69 74 69 73 65 |Watford digitise|
000093f0 72 20 70 69 63 74 75 72 65 2c 20 35 31 32 20 62 |r picture, 512 b|
00009400 79 20 32 35 36 20 70 69 78 65 6c 73 2c 20 31 38 |y 256 pixels, 18|
00009410 20 62 69 74 73 20 70 65 72 20 70 69 78 65 6c 22 | bits per pixel"|
00009420 0d 2e a4 09 c9 20 39 30 30 0d 2e ae 27 71 75 61 |..... 900...'qua|
00009430 6e 74 25 3d 38 3a 73 74 25 3d 30 3a cf 23 63 25 |nt%=8:st%=0:.#c%|
00009440 3d 30 3a e7 a2 23 63 25 3d 36 35 35 33 36 20 8c |=0:..#c%=65536 .|
00009450 0d 2e b8 37 73 78 25 3d 32 35 36 3a 73 79 25 3d |...7sx%=256:sy%=|
00009460 32 35 36 3a e7 73 63 61 6c 65 25 20 79 6d 75 6c |256:.scale% ymul|
00009470 25 3d 79 6d 75 6c 25 2a 32 3a 78 6d 75 6c 25 3d |%=ymul%*2:xmul%=|
00009480 78 6d 75 6c 25 2a 32 0d 2e c2 05 cc 0d 2e cc 13 |xmul%*2.........|
00009490 73 78 25 3d 35 31 32 3a 73 79 25 3d 35 31 32 0d |sx%=512:sy%=512.|
000094a0 2e d6 05 cd 0d 2e e0 53 e3 43 25 3d 30 b8 32 35 |.......S.C%=0.25|
000094b0 35 3a 72 25 28 43 25 29 3d 43 25 2f 32 35 35 2a |5:r%(C%)=C%/255*|
000094c0 46 3a ed 3a 67 25 28 29 3d 72 25 28 29 3a 62 25 |F:.:g%()=r%():b%|
000094d0 28 29 3d 72 25 28 29 3a 72 6f 77 62 79 74 65 73 |()=r%():rowbytes|
000094e0 25 3d 73 78 25 3a 72 24 3d 22 46 4e 38 22 3a 63 |%=sx%:r$="FN8":c|
000094f0 61 63 68 65 25 3d b9 0d 2e ea 3f 69 6e 66 6f 24 |ache%=....?info$|
00009500 3d 22 41 49 4d 20 2e 72 61 77 20 69 6d 61 67 65 |="AIM .raw image|
00009510 2c 20 32 35 36 20 62 79 20 32 35 36 20 70 69 78 |, 256 by 256 pix|
00009520 65 6c 73 2c 20 38 20 62 69 74 73 20 70 65 72 20 |els, 8 bits per |
00009530 70 69 78 65 6c 22 0d 2e f4 09 c9 20 39 30 31 0d |pixel"..... 901.|
00009540 2e fe 1a 71 75 61 6e 74 25 3d 34 3a e7 a2 23 63 |...quant%=4:..#c|
00009550 25 3d 36 35 35 33 36 20 8c 0d 2f 08 37 73 78 25 |%=65536 ../.7sx%|
00009560 3d 32 35 36 3a 73 79 25 3d 32 35 36 3a e7 73 63 |=256:sy%=256:.sc|
00009570 61 6c 65 25 20 79 6d 75 6c 25 3d 79 6d 75 6c 25 |ale% ymul%=ymul%|
00009580 2a 32 3a 78 6d 75 6c 25 3d 78 6d 75 6c 25 2a 32 |*2:xmul%=xmul%*2|
00009590 0d 2f 12 05 cc 0d 2f 1c 13 73 78 25 3d 35 31 32 |./..../..sx%=512|
000095a0 3a 73 79 25 3d 35 31 32 0d 2f 26 05 cd 0d 2f 30 |:sy%=512./&.../0|
000095b0 3d 62 75 66 66 25 3d a4 64 69 6d 28 73 78 25 2a |=buff%=.dim(sx%*|
000095c0 33 29 3a 72 62 25 3d 62 75 66 66 25 3a 67 62 25 |3):rb%=buff%:gb%|
000095d0 3d 62 75 66 66 25 2b 73 78 25 3a 62 62 25 3d 62 |=buff%+sx%:bb%=b|
000095e0 75 66 66 25 2b 73 78 25 2a 32 0d 2f 3a 33 e3 43 |uff%+sx%*2./:3.C|
000095f0 25 3d 30 b8 32 35 35 3a 72 25 28 43 25 29 3d 43 |%=0.255:r%(C%)=C|
00009600 25 2f 32 35 35 2a 46 3a ed 3a 67 25 28 29 3d 72 |%/255*F:.:g%()=r|
00009610 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d 2f 44 |%():b%()=r%()./D|
00009620 4f 69 6e 70 75 74 3d 32 34 3a 69 6e 66 6f 24 3d |Oinput=24:info$=|
00009630 22 48 61 77 6b 20 56 39 20 54 72 69 70 6c 65 20 |"Hawk V9 Triple |
00009640 69 6d 61 67 65 2c 20 32 35 36 20 62 79 20 32 35 |image, 256 by 25|
00009650 36 20 70 69 78 65 6c 73 2c 20 32 34 20 62 69 74 |6 pixels, 24 bit|
00009660 73 20 70 65 72 20 70 69 78 65 6c 22 0d 2f 4e 09 |s per pixel"./N.|
00009670 c9 20 39 30 32 0d 2f 58 42 71 75 61 6e 74 25 3d |. 902./XBquant%=|
00009680 34 3a cf 23 63 25 3d 38 3a 73 78 25 3d a4 57 3a |4:.#c%=8:sx%=.W:|
00009690 72 6f 77 62 79 74 65 73 25 3d 73 78 25 2a 33 2f |rowbytes%=sx%*3/|
000096a0 32 3a 73 79 25 3d a4 57 3a 73 74 25 3d 32 30 3a |2:sy%=.W:st%=20:|
000096b0 cf 23 63 25 3d 32 30 0d 2f 62 19 e7 73 63 61 6c |.#c%=20./b..scal|
000096c0 65 25 20 79 6d 75 6c 25 3d 79 6d 75 6c 25 2a 32 |e% ymul%=ymul%*2|
000096d0 0d 2f 6c 4d 70 6c 62 75 66 66 25 3d a4 64 69 6d |./lMplbuff%=.dim|
000096e0 28 73 78 25 2a 33 29 3a 72 62 25 3d 70 6c 62 75 |(sx%*3):rb%=plbu|
000096f0 66 66 25 3a 67 62 25 3d 70 6c 62 75 66 66 25 2b |ff%:gb%=plbuff%+|
00009700 73 78 25 3a 62 62 25 3d 70 6c 62 75 66 66 25 2b |sx%:bb%=plbuff%+|
00009710 73 78 25 2a 32 3a 72 62 6f 25 3d 2d 31 0d 2f 76 |sx%*2:rbo%=-1./v|
00009720 40 e3 43 25 3d 30 b8 32 35 35 3a 72 25 28 43 25 |@.C%=0.255:r%(C%|
00009730 29 3d 28 43 25 80 26 46 29 2f 26 46 2a 46 3a ed |)=(C%.&F)/&F*F:.|
00009740 3a 67 25 28 29 3d 72 25 28 29 3a 62 25 28 29 3d |:g%()=r%():b%()=|
00009750 72 25 28 29 3a 63 61 63 68 65 25 3d b9 0d 2f 80 |r%():cache%=../.|
00009760 62 69 6e 70 75 74 3d 32 34 3a 69 6e 66 6f 24 3d |binput=24:info$=|
00009770 22 48 61 77 6b 20 56 39 2f 53 6e 61 70 73 68 6f |"Hawk V9/Snapsho|
00009780 74 20 43 6f 6c 6f 75 72 20 69 6d 61 67 65 2c 20 |t Colour image, |
00009790 22 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 |"+.sx%+" by "+.s|
000097a0 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 31 32 20 |y%+" pixels, 12 |
000097b0 62 69 74 73 20 70 65 72 20 70 69 78 65 6c 22 0d |bits per pixel".|
000097c0 2f 8a 09 c9 20 39 30 33 0d 2f 94 5c 71 75 61 6e |/... 903./.\quan|
000097d0 74 25 3d 35 3a cf 23 63 25 3d 38 3a 73 78 25 3d |t%=5:.#c%=8:sx%=|
000097e0 a4 57 3a 72 6f 77 62 79 74 65 73 25 3d 73 78 25 |.W:rowbytes%=sx%|
000097f0 2a 32 3a 73 79 25 3d a4 57 3a 73 74 25 3d 32 30 |*2:sy%=.W:st%=20|
00009800 3a cf 23 63 25 3d 32 30 3a 63 61 63 68 65 25 3d |:.#c%=20:cache%=|
00009810 b9 3a 72 24 3d 22 46 4e 31 36 22 3a 66 6c 61 67 |.:r$="FN16":flag|
00009820 3d 37 30 30 0d 2f 9e 2d de 20 72 70 61 6c 25 28 |=700./.-. rpal%(|
00009830 32 35 35 29 2c 67 70 61 6c 25 28 32 35 35 29 3a |255),gpal%(255):|
00009840 69 6e 70 75 74 3d 31 36 3a 73 74 65 70 32 34 3d |input=16:step24=|
00009850 32 0d 2f a8 0d e3 43 25 3d 30 b8 32 35 35 0d 2f |2./...C%=0.255./|
00009860 b2 22 67 70 61 6c 25 28 43 25 29 3d 28 43 25 3e |."gpal%(C%)=(C%>|
00009870 3e 35 29 3c 3c 38 20 84 20 28 43 25 80 33 31 29 |>5)<<8 . (C%.31)|
00009880 0d 2f bc 2b 72 70 61 6c 25 28 43 25 29 3d 28 28 |./.+rpal%(C%)=((|
00009890 43 25 3e 3e 32 29 80 33 31 29 3c 3c 31 36 20 84 |C%>>2).31)<<16 .|
000098a0 20 28 43 25 80 33 29 3c 3c 31 31 0d 2f c6 05 ed | (C%.3)<<11./...|
000098b0 0d 2f d0 31 e3 43 25 3d 30 b8 33 31 3a 72 25 28 |./.1.C%=0.31:r%(|
000098c0 43 25 29 3d 43 25 2f 33 31 2a 46 3a ed 3a 67 25 |C%)=C%/31*F:.:g%|
000098d0 28 29 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 |()=r%():b%()=r%(|
000098e0 29 0d 2f da 5f 69 6e 70 75 74 3d 31 36 3a 69 6e |)./._input=16:in|
000098f0 66 6f 24 3d 22 48 61 77 6b 20 56 39 20 6d 6b 20 |fo$="Hawk V9 mk |
00009900 49 49 20 43 6f 6c 6f 75 72 20 69 6d 61 67 65 2c |II Colour image,|
00009910 20 22 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 | "+.sx%+" by "+.|
00009920 73 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 31 36 |sy%+" pixels, 16|
00009930 20 62 69 74 73 20 70 65 72 20 70 69 78 65 6c 22 | bits per pixel"|
00009940 0d 2f e4 09 c9 20 39 35 30 0d 2f ee 40 71 75 61 |./... 950./.@qua|
00009950 6e 74 25 3d 38 3a cf 23 63 25 3d 30 3a 73 78 25 |nt%=8:.#c%=0:sx%|
00009960 3d 35 31 32 3a 72 6f 77 62 79 74 65 73 25 3d 35 |=512:rowbytes%=5|
00009970 31 32 3a 73 79 25 3d 35 31 32 3a 73 74 25 3d 30 |12:sy%=512:st%=0|
00009980 3a 66 6c 61 67 3d 39 30 30 0d 2f f8 45 e3 43 25 |:flag=900./.E.C%|
00009990 3d 30 b8 32 35 35 3a 72 25 28 43 25 29 3d 43 25 |=0.255:r%(C%)=C%|
000099a0 2f 32 35 35 2a 46 3a ed 3a 67 25 28 29 3d 72 25 |/255*F:.:g%()=r%|
000099b0 28 29 3a 62 25 28 29 3d 72 25 28 29 3a 72 24 3d |():b%()=r%():r$=|
000099c0 22 46 4e 38 22 3a 63 61 63 68 65 25 3d b9 0d 30 |"FN8":cache%=..0|
000099d0 02 46 69 6e 66 6f 24 3d 22 57 69 6c 64 20 56 69 |.Finfo$="Wild Vi|
000099e0 73 69 6f 6e 20 56 31 32 20 69 6d 61 67 65 2c 20 |sion V12 image, |
000099f0 35 31 32 20 62 79 20 35 31 32 20 70 69 78 65 6c |512 by 512 pixel|
00009a00 73 2c 20 38 20 62 69 74 73 20 70 65 72 20 70 69 |s, 8 bits per pi|
00009a10 78 65 6c 22 0d 30 0c 0a c9 20 31 30 30 30 0d 30 |xel".0... 1000.0|
00009a20 16 54 71 75 61 6e 74 25 3d 34 3a 73 78 25 3d 36 |.Tquant%=4:sx%=6|
00009a30 34 30 3a 73 79 25 3d 32 35 36 3a f2 64 65 66 70 |40:sy%=256:.defp|
00009a40 61 6c 3a 73 74 25 3d a4 57 3a 72 24 3d 22 46 4e |al:st%=.W:r$="FN|
00009a50 22 2b c3 28 31 30 30 30 2b a4 57 29 3a e7 73 63 |"+.(1000+.W):.sc|
00009a60 61 6c 65 25 20 79 6d 75 6c 25 3d 79 6d 75 6c 25 |ale% ymul%=ymul%|
00009a70 2a 32 0d 30 2a 25 62 75 66 66 25 3d a4 64 69 6d |*2.0*%buff%=.dim|
00009a80 28 73 78 25 29 3a 63 74 61 62 6c 65 25 3d a4 64 |(sx%):ctable%=.d|
00009a90 69 6d 28 73 74 25 29 0d 30 34 22 c8 99 31 32 2c |im(st%).04"..12,|
00009aa0 34 2c 63 25 2c 63 74 61 62 6c 65 25 2c 73 74 25 |4,c%,ctable%,st%|
00009ab0 3a 73 74 25 3d 8f 23 63 25 0d 30 3e 2e 70 61 25 |:st%=.#c%.0>.pa%|
00009ac0 3d 63 74 61 62 6c 65 25 3a 72 65 70 25 3d 30 3a |=ctable%:rep%=0:|
00009ad0 72 65 70 32 25 3d 30 3a 70 61 73 78 25 3d 62 75 |rep2%=0:pasx%=bu|
00009ae0 66 66 25 2b 73 78 25 0d 30 48 41 69 6e 66 6f 24 |ff%+sx%.0HAinfo$|
00009af0 3d 22 50 72 6f 41 72 74 69 73 61 6e 20 69 6d 61 |="ProArtisan ima|
00009b00 67 65 2c 20 36 34 30 20 62 79 20 32 35 36 20 70 |ge, 640 by 256 p|
00009b10 69 78 65 6c 73 2c 20 38 20 62 69 74 73 20 70 65 |ixels, 8 bits pe|
00009b20 72 20 70 69 78 65 6c 22 0d 30 52 0a c9 20 31 31 |r pixel".0R.. 11|
00009b30 30 30 0d 30 5c 40 71 75 61 6e 74 25 3d 31 3a cf |00.0\@quant%=1:.|
00009b40 23 63 25 3d 34 3a 73 78 25 3d a4 62 65 57 3a 73 |#c%=4:sx%=.beW:s|
00009b50 79 25 3d a4 62 65 57 3a 69 6e 70 75 74 3d a4 62 |y%=.beW:input=.b|
00009b60 65 57 3a 62 69 67 65 6e 64 69 61 6e 62 69 74 73 |eW:bigendianbits|
00009b70 3d b9 0d 30 66 13 53 25 3d a4 62 65 57 3a 53 25 |=..0f.S%=.beW:S%|
00009b80 3d a4 62 65 57 0d 30 70 49 63 61 63 68 65 25 3d |=.beW.0pIcache%=|
00009b90 b9 3a e7 53 25 3d 32 20 63 61 63 68 65 62 79 74 |.:.S%=2 cachebyt|
00009ba0 65 73 25 3d b9 3a 69 6e 66 6f 24 3d 22 42 79 74 |es%=.:info$="Byt|
00009bb0 65 20 45 6e 63 6f 64 65 64 20 22 20 8b 69 6e 66 |e Encoded " .inf|
00009bc0 6f 24 3d 22 22 3a 72 24 3d 22 46 4e 38 22 0d 30 |o$="":r$="FN8".0|
00009bd0 7a 0b 43 25 3d a4 62 65 57 0d 30 84 0b 44 25 3d |z.C%=.beW.0..D%=|
00009be0 a4 62 65 57 0d 30 8e 0b c8 8e 20 43 25 20 ca 0d |.beW.0.... C% ..|
00009bf0 30 98 09 c9 20 31 2c 32 0d 30 a2 24 e3 49 25 3d |0... 1,2.0.$.I%=|
00009c00 30 b8 44 25 2f 33 2d 31 3a 72 25 28 49 25 29 3d |0.D%/3-1:r%(I%)=|
00009c10 9a 23 63 25 2f 32 35 35 2a 46 3a ed 0d 30 ac 24 |.#c%/255*F:..0.$|
00009c20 e3 49 25 3d 30 b8 44 25 2f 33 2d 31 3a 67 25 28 |.I%=0.D%/3-1:g%(|
00009c30 49 25 29 3d 9a 23 63 25 2f 32 35 35 2a 46 3a ed |I%)=.#c%/255*F:.|
00009c40 0d 30 b6 24 e3 49 25 3d 30 b8 44 25 2f 33 2d 31 |.0.$.I%=0.D%/3-1|
00009c50 3a 62 25 28 49 25 29 3d 9a 23 63 25 2f 32 35 35 |:b%(I%)=.#c%/255|
00009c60 2a 46 3a ed 0d 30 c0 05 7f 0d 30 ca 0e c8 8e 20 |*F:..0....0.... |
00009c70 69 6e 70 75 74 20 ca 0d 30 d4 1f c9 20 31 3a 72 |input ..0... 1:r|
00009c80 25 28 30 29 3d 46 3a 67 25 28 30 29 3d 46 3a 62 |%(0)=F:g%(0)=F:b|
00009c90 25 28 30 29 3d 46 0d 30 de 10 c9 20 34 2c 38 3a |%(0)=F.0... 4,8:|
00009ca0 f2 6e 6f 70 61 6c 0d 30 e8 0f c9 20 32 34 3a f2 |.nopal.0... 24:.|
00009cb0 6e 6f 70 61 6c 0d 30 f2 05 cb 0d 30 fc 05 cb 0d |nopal.0....0....|
00009cc0 31 06 0e c8 8e 20 69 6e 70 75 74 20 ca 0d 31 10 |1.... input ..1.|
00009cd0 20 c9 20 31 3a 72 6f 77 62 79 74 65 73 25 3d 28 | . 1:rowbytes%=(|
00009ce0 73 78 25 2b 31 35 3e 3e 34 29 3c 3c 31 0d 31 1a |sx%+15>>4)<<1.1.|
00009cf0 1f c9 20 34 3a 72 6f 77 62 79 74 65 73 25 3d 28 |.. 4:rowbytes%=(|
00009d00 73 78 25 2b 33 3e 3e 32 29 3c 3c 31 0d 31 24 1f |sx%+3>>2)<<1.1$.|
00009d10 c9 20 38 3a 72 6f 77 62 79 74 65 73 25 3d 28 73 |. 8:rowbytes%=(s|
00009d20 78 25 2b 31 3e 3e 31 29 3c 3c 31 0d 31 2e 4a c9 |x%+1>>1)<<1.1.J.|
00009d30 20 32 34 3a 72 6f 77 62 79 74 65 73 25 3d 28 33 | 24:rowbytes%=(3|
00009d40 2a 73 78 25 2b 31 3e 3e 31 29 3c 3c 31 3a 72 24 |*sx%+1>>1)<<1:r$|
00009d50 3d 22 46 4e 32 34 22 3a 72 62 6f 25 3d 30 3a 67 |="FN24":rbo%=0:g|
00009d60 62 6f 25 3d 31 3a 62 62 6f 25 3d 32 3a 73 74 65 |bo%=1:bbo%=2:ste|
00009d70 70 32 34 3d 33 0d 31 38 17 e7 53 25 3d 31 20 62 |p24=3.18..S%=1 b|
00009d80 62 6f 25 3d 30 3a 72 62 6f 25 3d 32 0d 31 42 26 |bo%=0:rbo%=2.1B&|
00009d90 7f 3a 85 20 34 32 2c 22 43 61 6e 27 74 20 64 6f |.:. 42,"Can't do|
00009da0 20 74 68 69 73 20 53 75 6e 20 70 69 78 72 65 63 | this Sun pixrec|
00009db0 74 22 0d 31 4c 05 cb 0d 31 56 4d 73 74 25 3d 44 |t".1L...1VMst%=D|
00009dc0 25 2b 26 32 30 3a 72 65 70 25 3d 30 3a e7 63 61 |%+&20:rep%=0:.ca|
00009dd0 63 68 65 62 79 74 65 73 25 20 70 6c 62 75 66 66 |chebytes% plbuff|
00009de0 25 3d a4 64 69 6d 28 72 6f 77 62 79 74 65 73 25 |%=.dim(rowbytes%|
00009df0 29 3a 70 6c 62 79 74 65 73 25 3d 72 6f 77 62 79 |):plbytes%=rowby|
00009e00 74 65 73 25 0d 31 60 42 69 6e 66 6f 24 2b 3d 22 |tes%.1`Binfo$+="|
00009e10 53 75 6e 20 69 6d 61 67 65 2c 20 22 2b c3 73 78 |Sun image, "+.sx|
00009e20 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 |%+" by "+.sy%+" |
00009e30 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 28 |pixels, "+.bits(|
00009e40 69 6e 70 75 74 29 0d 31 6a 0a c9 20 31 32 30 30 |input).1j.. 1200|
00009e50 0d 31 74 3e 71 75 61 6e 74 25 3d 38 3a 73 78 25 |.1t>quant%=8:sx%|
00009e60 3d 38 30 30 3a 73 79 25 3d 38 30 30 3a 73 74 25 |=800:sy%=800:st%|
00009e70 3d 31 36 30 30 3a cf 23 63 25 3d 73 74 25 3a 76 |=1600:.#c%=st%:v|
00009e80 66 6c 69 70 25 3d ac 20 76 66 6c 69 70 25 0d 31 |flip%=. vflip%.1|
00009e90 7e 2a f2 6e 6f 70 61 6c 3a 72 24 3d 22 46 4e 38 |~*.nopal:r$="FN8|
00009ea0 22 3a 72 6f 77 62 79 74 65 73 25 3d 73 78 25 3a |":rowbytes%=sx%:|
00009eb0 63 61 63 68 65 25 3d b9 0d 31 88 49 69 6e 66 6f |cache%=..1.Iinfo|
00009ec0 24 3d 22 54 69 6d 65 53 74 65 70 20 73 61 74 65 |$="TimeStep sate|
00009ed0 6c 6c 69 74 65 20 69 6d 61 67 65 2c 20 38 30 30 |llite image, 800|
00009ee0 20 62 79 20 38 30 30 20 70 69 78 65 6c 73 2c 20 | by 800 pixels, |
00009ef0 38 20 62 69 74 73 20 70 65 72 20 70 69 78 65 6c |8 bits per pixel|
00009f00 22 0d 31 92 0a c9 20 31 33 30 30 0d 31 9c 3f 71 |".1... 1300.1.?q|
00009f10 75 61 6e 74 25 3d 38 3a 73 78 25 3d 31 32 38 3a |uant%=8:sx%=128:|
00009f20 73 79 25 3d 32 35 36 3a 73 74 25 3d 30 3a cf 23 |sy%=256:st%=0:.#|
00009f30 63 25 3d 30 3a e7 73 63 61 6c 65 25 20 78 6d 75 |c%=0:.scale% xmu|
00009f40 6c 25 3d 78 6d 75 6c 25 2a 32 0d 31 a6 2a f2 6e |l%=xmul%*2.1.*.n|
00009f50 6f 70 61 6c 3a 72 24 3d 22 46 4e 38 22 3a 72 6f |opal:r$="FN8":ro|
00009f60 77 62 79 74 65 73 25 3d 73 78 25 3a 63 61 63 68 |wbytes%=sx%:cach|
00009f70 65 25 3d b9 0d 31 b0 40 69 6e 66 6f 24 3d 22 73 |e%=..1.@info$="s|
00009f80 61 74 65 6c 6c 69 74 65 20 69 6d 61 67 65 2c 20 |atellite image, |
00009f90 31 32 38 20 62 79 20 32 35 36 20 70 69 78 65 6c |128 by 256 pixel|
00009fa0 73 2c 20 38 20 62 69 74 73 20 70 65 72 20 70 69 |s, 8 bits per pi|
00009fb0 78 65 6c 22 0d 31 ba 0a c9 20 31 33 30 31 0d 31 |xel".1... 1301.1|
00009fc0 c4 3b 69 6e 70 75 74 3d 32 34 3a 71 75 61 6e 74 |.;input=24:quant|
00009fd0 25 3d 38 3a 73 78 25 3d 31 32 38 3a 73 79 25 3d |%=8:sx%=128:sy%=|
00009fe0 32 35 36 3a e7 73 63 61 6c 65 25 20 78 6d 75 6c |256:.scale% xmul|
00009ff0 25 3d 78 6d 75 6c 25 2a 32 0d 31 ce 4f 62 75 66 |%=xmul%*2.1.Obuf|
0000a000 66 25 3d a4 64 69 6d 28 73 78 25 2a 33 29 3a 72 |f%=.dim(sx%*3):r|
0000a010 62 25 3d 62 75 66 66 25 3a 67 62 25 3d 62 75 66 |b%=buff%:gb%=buf|
0000a020 66 25 2b 73 78 25 3a 62 62 25 3d 62 75 66 66 25 |f%+sx%:bb%=buff%|
0000a030 2b 32 2a 73 78 25 3a f2 6e 6f 70 61 6c 3a 72 24 |+2*sx%:.nopal:r$|
0000a040 3d 22 46 4e 39 30 31 22 0d 31 d8 48 69 6e 66 6f |="FN901".1.Hinfo|
0000a050 24 3d 22 54 72 69 70 6c 65 20 73 61 74 65 6c 6c |$="Triple satell|
0000a060 69 74 65 20 69 6d 61 67 65 2c 20 31 32 38 20 62 |ite image, 128 b|
0000a070 79 20 32 35 36 20 70 69 78 65 6c 73 2c 20 32 34 |y 256 pixels, 24|
0000a080 20 62 69 74 73 20 70 65 72 20 70 69 78 65 6c 22 | bits per pixel"|
0000a090 0d 31 e2 0a c9 20 31 34 30 30 0d 31 ec 25 70 6c |.1... 1400.1.%pl|
0000a0a0 61 6e 61 72 25 3d b9 3a cf 23 63 25 3d 30 3a 5a |anar%=.:.#c%=0:Z|
0000a0b0 25 3d a4 48 57 3a e7 5a 25 3e 32 35 35 20 8c 0d |%=.HW:.Z%>255 ..|
0000a0c0 31 f6 2b 73 74 25 3d a4 62 65 48 57 2a 32 3a 70 |1.+st%=.beHW*2:p|
0000a0d0 6c 61 6e 65 73 25 3d a4 62 65 48 57 3a 70 61 74 |lanes%=.beHW:pat|
0000a0e0 6c 65 6e 25 3d a4 62 65 48 57 0d 32 00 2b 70 77 |len%=.beHW.2.+pw|
0000a0f0 25 3d a4 62 65 48 57 3a 70 68 25 3d a4 62 65 48 |%=.beHW:ph%=.beH|
0000a100 57 3a 73 78 25 3d a4 62 65 48 57 3a 73 79 25 3d |W:sx%=.beHW:sy%=|
0000a110 a4 62 65 48 57 0d 32 0a 05 cc 0d 32 14 43 73 74 |.beHW.2....2.Cst|
0000a120 25 3d a4 48 57 2a 32 3a 69 6e 70 75 74 3d a4 48 |%=.HW*2:input=.H|
0000a130 57 3a 70 61 74 6c 65 6e 25 3d a4 48 57 3a 70 77 |W:patlen%=.HW:pw|
0000a140 25 3d a4 48 57 3a 70 68 25 3d a4 48 57 3a 73 78 |%=.HW:ph%=.HW:sx|
0000a150 25 3d a4 48 57 3a 73 79 25 3d a4 48 57 0d 32 1e |%=.HW:sy%=.HW.2.|
0000a160 05 cd 0d 32 28 0d e7 73 63 61 6c 65 25 20 8c 0d |...2(..scale% ..|
0000a170 32 32 23 78 6d 75 6c 25 3d 78 6d 75 6c 25 2a 70 |22#xmul%=xmul%*p|
0000a180 77 25 3a 78 64 69 76 25 3d 78 64 69 76 25 2a 32 |w%:xdiv%=xdiv%*2|
0000a190 38 32 0d 32 3c 23 79 6d 75 6c 25 3d 79 6d 75 6c |82.2<#ymul%=ymul|
0000a1a0 25 2a 70 68 25 3a 79 64 69 76 25 3d 79 64 69 76 |%*ph%:ydiv%=ydiv|
0000a1b0 25 2a 32 38 32 0d 32 46 05 cd 0d 32 50 57 72 6f |%*282.2F...2PWro|
0000a1c0 77 62 79 74 65 73 25 3d 73 78 25 2b 37 3e 3e 33 |wbytes%=sx%+7>>3|
0000a1d0 3a 70 62 75 66 66 25 3d a4 64 69 6d 28 73 78 25 |:pbuff%=.dim(sx%|
0000a1e0 29 3a 70 6c 62 79 74 65 73 25 3d 72 6f 77 62 79 |):plbytes%=rowby|
0000a1f0 74 65 73 25 2a 70 6c 61 6e 65 73 25 3a 62 75 66 |tes%*planes%:buf|
0000a200 66 25 3d a4 64 69 6d 28 70 6c 62 79 74 65 73 25 |f%=.dim(plbytes%|
0000a210 29 0d 32 5a 14 cf 23 63 25 3d 73 74 25 3a 76 72 |).2Z..#c%=st%:vr|
0000a220 65 70 25 3d 30 0d 32 64 4d e3 43 25 3d 30 b8 28 |ep%=0.2dM.C%=0.(|
0000a230 31 3c 3c 70 6c 61 6e 65 73 25 29 2d 31 3a 72 25 |1<<planes%)-1:r%|
0000a240 28 43 25 29 3d 46 2d 43 25 2f 28 28 31 3c 3c 70 |(C%)=F-C%/((1<<p|
0000a250 6c 61 6e 65 73 25 29 2d 31 29 2a 46 3a ed 3a 67 |lanes%)-1)*F:.:g|
0000a260 25 28 29 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 |%()=r%():b%()=r%|
0000a270 28 29 0d 32 6e 42 69 6e 66 6f 24 3d 22 49 4d 47 |().2nBinfo$="IMG|
0000a280 20 66 69 6c 65 2c 20 22 2b c3 73 78 25 2b 22 20 | file, "+.sx%+" |
0000a290 62 79 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 |by "+.sy%+" pixe|
0000a2a0 6c 73 2c 20 22 2b a4 62 69 74 73 28 70 6c 61 6e |ls, "+.bits(plan|
0000a2b0 65 73 25 29 0d 32 78 0a c9 20 31 35 30 30 0d 32 |es%).2x.. 1500.2|
0000a2c0 82 22 cf 23 63 25 3d 34 3a 64 69 72 25 3d a4 74 |.".#c%=4:dir%=.t|
0000a2d0 69 66 66 28 34 29 3a cf 23 63 25 3d 64 69 72 25 |iff(4):.#c%=dir%|
0000a2e0 0d 32 8c 36 72 67 62 3d a3 3a 67 72 65 79 75 6e |.2.6rgb=.:greyun|
0000a2f0 69 74 3d 31 30 30 3a 70 6c 61 6e 61 72 25 3d 31 |it=100:planar%=1|
0000a300 3a 66 69 6c 6c 6f 72 64 65 72 3d 31 3a 72 65 73 |:fillorder=1:res|
0000a310 75 6e 69 74 3d 32 0d 32 96 29 78 6e 75 6d 25 3d |unit=2.2.)xnum%=|
0000a320 39 30 3a 78 64 65 6e 6f 6d 25 3d 31 3a 79 6e 75 |90:xdenom%=1:ynu|
0000a330 6d 25 3d 39 30 3a 79 64 65 6e 6f 6d 25 3d 31 0d |m%=90:ydenom%=1.|
0000a340 32 a0 18 45 25 3d a4 74 69 66 66 28 33 29 3a e3 |2..E%=.tiff(3):.|
0000a350 5a 25 3d 31 b8 45 25 0d 32 aa 27 54 25 3d a4 74 |Z%=1.E%.2.'T%=.t|
0000a360 69 66 66 28 33 29 3a 44 25 3d a4 74 69 66 66 28 |iff(3):D%=.tiff(|
0000a370 33 29 3a 43 25 3d a4 74 69 66 66 28 34 29 0d 32 |3):C%=.tiff(4).2|
0000a380 b4 61 e7 43 25 3e 31 20 56 25 3d a4 74 69 66 66 |.a.C%>1 V%=.tiff|
0000a390 28 34 29 20 8b e7 44 25 3d 32 20 8f 23 63 25 3d |(4) ..D%=2 .#c%=|
0000a3a0 64 69 72 25 2b 32 2b 5a 25 2a 31 32 20 8b e7 44 |dir%+2+Z%*12 ..D|
0000a3b0 25 3c 34 20 56 25 3d a4 74 69 66 66 28 44 25 29 |%<4 V%=.tiff(D%)|
0000a3c0 3a cf 23 63 25 3d 64 69 72 25 2b 32 2b 5a 25 2a |:.#c%=dir%+2+Z%*|
0000a3d0 31 32 20 8b 56 25 3d a4 74 69 66 66 28 34 29 0d |12 .V%=.tiff(4).|
0000a3e0 32 be 3f f1 22 52 65 61 64 20 74 61 67 20 22 3b |2.?."Read tag ";|
0000a3f0 54 25 22 20 64 61 74 61 74 79 70 65 20 22 44 25 |T%" datatype "D%|
0000a400 22 20 63 6f 75 6e 74 20 22 43 25 22 20 76 61 6c |" count "C%" val|
0000a410 75 65 2f 70 6f 69 6e 74 65 72 20 22 56 25 0d 32 |ue/pointer "V%.2|
0000a420 c8 0b c8 8e 20 54 25 20 ca 0d 32 d2 10 c9 20 32 |.... T% ..2... 2|
0000a430 35 36 3a 73 78 25 3d 56 25 0d 32 dc 10 c9 20 32 |56:sx%=V%.2... 2|
0000a440 35 37 3a 73 79 25 3d 56 25 0d 32 e6 11 c9 20 32 |57:sy%=V%.2... 2|
0000a450 35 38 3a e7 43 25 3e 31 20 8c 0d 32 f0 0e e7 44 |58:.C%>1 ..2...D|
0000a460 25 2a 43 25 3e 36 20 8c 0d 32 fa 1c cf 23 63 25 |%*C%>6 ..2...#c%|
0000a470 3d 56 25 3a 71 75 61 6e 74 25 3d a4 74 69 66 66 |=V%:quant%=.tiff|
0000a480 28 44 25 29 0d 33 04 28 69 6e 70 75 74 3d 71 75 |(D%).3.(input=qu|
0000a490 61 6e 74 25 3a e3 49 25 3d 31 b8 43 25 2d 31 3a |ant%:.I%=1.C%-1:|
0000a4a0 56 25 3d a4 74 69 66 66 28 44 25 29 0d 33 0e 50 |V%=.tiff(D%).3.P|
0000a4b0 e7 56 25 3c 3e 71 75 61 6e 74 25 20 85 34 32 2c |.V%<>quant% .42,|
0000a4c0 22 43 61 6e 27 74 20 64 6f 20 52 47 42 20 54 49 |"Can't do RGB TI|
0000a4d0 46 46 20 77 69 74 68 20 64 69 66 66 65 72 65 6e |FF with differen|
0000a4e0 74 20 6e 75 6d 62 65 72 73 20 6f 66 20 62 69 74 |t numbers of bit|
0000a4f0 73 20 70 65 72 20 70 69 78 65 6c 22 0d 33 18 0d |s per pixel".3..|
0000a500 69 6e 70 75 74 2b 3d 56 25 0d 33 22 0c ed 3a f2 |input+=V%.3"..:.|
0000a510 6e 6f 70 61 6c 0d 33 2c 05 cc 0d 33 36 20 71 75 |nopal.3,...36 qu|
0000a520 61 6e 74 25 3d 56 25 20 80 20 26 46 46 3a 69 6e |ant%=V% . &FF:in|
0000a530 70 75 74 3d 71 75 61 6e 74 25 0d 33 40 35 e3 49 |put=quant%.3@5.I|
0000a540 25 3d 30 b8 28 31 3c 3c 71 75 61 6e 74 25 29 2d |%=0.(1<<quant%)-|
0000a550 31 3a 72 25 28 49 25 29 3d 49 25 2f 28 28 31 3c |1:r%(I%)=I%/((1<|
0000a560 3c 71 75 61 6e 74 25 29 2d 31 29 2a 46 3a ed 0d |<quant%)-1)*F:..|
0000a570 33 4a 17 67 25 28 29 3d 72 25 28 29 3a 62 25 28 |3J.g%()=r%():b%(|
0000a580 29 3d 72 25 28 29 0d 33 54 05 cd 0d 33 5e 15 cf |)=r%().3T...3^..|
0000a590 23 63 25 3d 64 69 72 25 2b 32 2b 5a 25 2a 31 32 |#c%=dir%+2+Z%*12|
0000a5a0 0d 33 68 05 cc 0d 33 72 1a 71 75 61 6e 74 25 3d |.3h...3r.quant%=|
0000a5b0 56 25 3a 69 6e 70 75 74 3d 71 75 61 6e 74 25 0d |V%:input=quant%.|
0000a5c0 33 7c 35 e3 49 25 3d 30 b8 28 31 3c 3c 71 75 61 |3|5.I%=0.(1<<qua|
0000a5d0 6e 74 25 29 2d 31 3a 72 25 28 49 25 29 3d 49 25 |nt%)-1:r%(I%)=I%|
0000a5e0 2f 28 28 31 3c 3c 71 75 61 6e 74 25 29 2d 31 29 |/((1<<quant%)-1)|
0000a5f0 2a 46 3a ed 0d 33 86 17 67 25 28 29 3d 72 25 28 |*F:..3..g%()=r%(|
0000a600 29 3a 62 25 28 29 3d 72 25 28 29 0d 33 90 05 cd |):b%()=r%().3...|
0000a610 0d 33 9a 18 c9 20 32 35 39 3a 63 6f 6d 70 72 65 |.3... 259:compre|
0000a620 73 73 69 6f 6e 3d 56 25 0d 33 a4 2f c9 20 32 36 |ssion=V%.3./. 26|
0000a630 32 3a 70 68 6f 74 6f 6d 65 74 72 69 63 3d 56 25 |2:photometric=V%|
0000a640 3a e7 56 25 3d 30 20 69 6e 76 65 72 74 25 3d ac |:.V%=0 invert%=.|
0000a650 69 6e 76 65 72 74 25 0d 33 ae 16 c9 20 32 36 36 |invert%.3... 266|
0000a660 3a 66 69 6c 6c 6f 72 64 65 72 3d 56 25 0d 33 b8 |:fillorder=V%.3.|
0000a670 21 c9 20 32 37 33 3a 73 74 63 25 3d 43 25 3a 73 |!. 273:stc%=C%:s|
0000a680 74 76 25 3d 56 25 3a 73 74 64 25 3d 44 25 0d 33 |tv%=V%:std%=D%.3|
0000a690 c2 31 c9 20 32 37 37 3a 73 61 6d 70 70 65 72 70 |.1. 277:sampperp|
0000a6a0 69 78 25 3d 56 25 3a 69 6e 70 75 74 3d 71 75 61 |ix%=V%:input=qua|
0000a6b0 6e 74 25 2a 56 25 3a 72 67 62 3d 56 25 3d 33 0d |nt%*V%:rgb=V%=3.|
0000a6c0 33 cc 17 c9 20 32 37 38 3a 73 74 72 69 70 72 6f |3... 278:stripro|
0000a6d0 77 73 25 3d 56 25 0d 33 d6 2d c9 20 32 37 39 3a |ws%=V%.3.-. 279:|
0000a6e0 73 74 63 62 79 74 65 25 3d 43 25 3a 73 74 76 62 |stcbyte%=C%:stvb|
0000a6f0 79 74 65 25 3d 56 25 3a 73 74 64 62 79 74 65 25 |yte%=V%:stdbyte%|
0000a700 3d 44 25 0d 33 e0 31 c9 20 32 38 32 3a cf 23 63 |=D%.3.1. 282:.#c|
0000a710 25 3d 56 25 3a 78 6e 75 6d 25 3d a4 74 69 66 66 |%=V%:xnum%=.tiff|
0000a720 28 34 29 3a 78 64 65 6e 6f 6d 25 3d a4 74 69 66 |(4):xdenom%=.tif|
0000a730 66 28 34 29 0d 33 ea 15 cf 23 63 25 3d 64 69 72 |f(4).3...#c%=dir|
0000a740 25 2b 32 2b 5a 25 2a 31 32 0d 33 f4 31 c9 20 32 |%+2+Z%*12.3.1. 2|
0000a750 38 33 3a cf 23 63 25 3d 56 25 3a 79 6e 75 6d 25 |83:.#c%=V%:ynum%|
0000a760 3d a4 74 69 66 66 28 34 29 3a 79 64 65 6e 6f 6d |=.tiff(4):ydenom|
0000a770 25 3d a4 74 69 66 66 28 34 29 0d 33 fe 15 cf 23 |%=.tiff(4).3...#|
0000a780 63 25 3d 64 69 72 25 2b 32 2b 5a 25 2a 31 32 0d |c%=dir%+2+Z%*12.|
0000a790 34 08 2c c9 20 32 38 34 3a 70 6c 61 6e 61 72 25 |4.,. 284:planar%|
0000a7a0 3d 56 25 3a e7 70 6c 61 6e 61 72 25 3d 32 20 69 |=V%:.planar%=2 i|
0000a7b0 6e 70 75 74 3d 71 75 61 6e 74 25 0d 34 12 18 c9 |nput=quant%.4...|
0000a7c0 20 32 39 30 3a 67 72 65 79 75 6e 69 74 3d 31 30 | 290:greyunit=10|
0000a7d0 5e 56 25 0d 34 1c 3c c9 20 32 39 31 3a cf 23 63 |^V%.4.<. 291:.#c|
0000a7e0 25 3d 56 25 3a e3 49 25 3d 30 b8 43 25 2d 31 3a |%=V%:.I%=0.C%-1:|
0000a7f0 72 25 28 49 25 29 3d a4 74 69 66 66 28 44 25 29 |r%(I%)=.tiff(D%)|
0000a800 2f 67 72 65 79 75 6e 69 74 2f 32 2a 46 3a ed 0d |/greyunit/2*F:..|
0000a810 34 26 17 67 25 28 29 3d 72 25 28 29 3a 62 25 28 |4&.g%()=r%():b%(|
0000a820 29 3d 72 25 28 29 0d 34 30 15 cf 23 63 25 3d 64 |)=r%().40..#c%=d|
0000a830 69 72 25 2b 32 2b 5a 25 2a 31 32 0d 34 3a 14 c9 |ir%+2+Z%*12.4:..|
0000a840 20 32 39 36 3a 72 65 73 75 6e 69 74 3d 56 25 0d | 296:resunit=V%.|
0000a850 34 44 16 c9 20 33 31 37 3a 68 70 72 65 64 69 63 |4D.. 317:hpredic|
0000a860 74 25 3d 56 25 0d 34 4e 38 c9 20 33 32 30 3a cf |t%=V%.4N8. 320:.|
0000a870 23 63 25 3d 56 25 3a e3 49 25 3d 30 b8 43 25 2f |#c%=V%:.I%=0.C%/|
0000a880 33 2d 31 3a 72 25 28 49 25 29 3d a4 74 69 66 66 |3-1:r%(I%)=.tiff|
0000a890 28 33 29 2f 36 35 35 33 35 2a 46 3a ed 0d 34 58 |(3)/65535*F:..4X|
0000a8a0 2a e3 49 25 3d 30 b8 43 25 2f 33 2d 31 3a 67 25 |*.I%=0.C%/3-1:g%|
0000a8b0 28 49 25 29 3d a4 74 69 66 66 28 33 29 2f 36 35 |(I%)=.tiff(3)/65|
0000a8c0 35 33 35 2a 46 3a ed 0d 34 62 2a e3 49 25 3d 30 |535*F:..4b*.I%=0|
0000a8d0 b8 43 25 2f 33 2d 31 3a 62 25 28 49 25 29 3d a4 |.C%/3-1:b%(I%)=.|
0000a8e0 74 69 66 66 28 33 29 2f 36 35 35 33 35 2a 46 3a |tiff(3)/65535*F:|
0000a8f0 ed 0d 34 6c 15 cf 23 63 25 3d 64 69 72 25 2b 32 |..4l..#c%=dir%+2|
0000a900 2b 5a 25 2a 31 32 0d 34 76 05 7f 0d 34 80 4a e7 |+Z%*12.4v...4.J.|
0000a910 69 6e 66 6f 25 20 f1 22 49 67 6e 6f 72 69 6e 67 |info% ."Ignoring|
0000a920 20 74 61 67 20 22 3b 54 25 22 20 64 61 74 61 74 | tag ";T%" datat|
0000a930 79 70 65 20 22 44 25 22 20 63 6f 75 6e 74 20 22 |ype "D%" count "|
0000a940 43 25 22 20 76 61 6c 75 65 2f 70 6f 69 6e 74 65 |C%" value/pointe|
0000a950 72 20 22 56 25 0d 34 8a 05 cb 0d 34 94 05 ed 0d |r "V%.4....4....|
0000a960 34 9e 19 de 20 73 74 25 28 73 74 63 25 29 3a e7 |4... st%(stc%):.|
0000a970 73 74 63 25 3e 31 20 8c 0d 34 a8 30 cf 23 63 25 |stc%>1 ..4.0.#c%|
0000a980 3d 73 74 76 25 3a e3 49 25 3d 30 b8 73 74 63 25 |=stv%:.I%=0.stc%|
0000a990 2d 31 3a 73 74 25 28 49 25 29 3d a4 74 69 66 66 |-1:st%(I%)=.tiff|
0000a9a0 28 73 74 64 25 29 3a ed 0d 34 bc 05 cc 0d 34 c6 |(std%):..4....4.|
0000a9b0 0f 73 74 25 28 30 29 3d 73 74 76 25 0d 34 d0 05 |.st%(0)=stv%.4..|
0000a9c0 cd 0d 34 da 14 c8 8e 20 63 6f 6d 70 72 65 73 73 |..4.... compress|
0000a9d0 69 6f 6e 20 ca 0d 34 e4 12 c9 20 30 2c 31 3a 69 |ion ..4... 0,1:i|
0000a9e0 6e 66 6f 24 3d 22 22 0d 34 ee 29 c9 20 32 3a 69 |nfo$="".4.). 2:i|
0000a9f0 6e 66 6f 24 3d 22 43 43 49 54 54 20 47 72 6f 75 |nfo$="CCITT Grou|
0000aa00 70 20 33 20 63 6f 6d 70 72 65 73 73 65 64 20 22 |p 3 compressed "|
0000aa10 0d 34 f8 2b c9 20 35 3a 69 6e 66 6f 24 3d 22 4c |.4.+. 5:info$="L|
0000aa20 5a 57 20 63 6f 6d 70 72 65 73 73 65 64 20 22 3a |ZW compressed ":|
0000aa30 72 24 3d 22 46 4e 31 35 30 35 22 0d 35 02 6e e7 |r$="FN1505".5.n.|
0000aa40 68 70 72 65 64 69 63 74 25 3d 32 20 8c 69 6e 66 |hpredict%=2 .inf|
0000aa50 6f 24 2b 3d 22 68 6f 72 69 7a 6f 6e 74 61 6c 20 |o$+="horizontal |
0000aa60 64 69 66 66 65 72 65 6e 63 65 64 20 22 20 8b e7 |differenced " ..|
0000aa70 68 70 72 65 64 69 63 74 25 3e 32 20 69 6e 66 6f |hpredict%>2 info|
0000aa80 24 2b 3d 22 20 75 6e 6b 6e 6f 77 6e 20 70 72 65 |$+=" unknown pre|
0000aa90 64 69 63 74 6f 72 20 28 22 2b c3 68 70 72 65 64 |dictor ("+.hpred|
0000aaa0 69 63 74 25 2b 22 29 20 22 0d 35 0c 27 73 65 74 |ict%+") ".5.'set|
0000aab0 63 6f 64 65 73 25 3d 38 3a 63 6c 65 61 72 63 6f |codes%=8:clearco|
0000aac0 64 65 25 3d 31 3c 3c 73 65 74 63 6f 64 65 73 25 |de%=1<<setcodes%|
0000aad0 0d 35 16 33 de 20 74 61 62 6c 65 25 28 31 3c 3c |.5.3. table%(1<<|
0000aae0 31 32 29 3a 73 74 6b 25 3d a4 64 69 6d 28 31 3c |12):stk%=.dim(1<|
0000aaf0 3c 31 33 29 3a 62 75 66 25 3d a4 64 69 6d 28 32 |<13):buf%=.dim(2|
0000ab00 38 30 29 0d 35 20 26 e3 49 25 3d 30 b8 63 6c 65 |80).5 &.I%=0.cle|
0000ab10 61 72 63 6f 64 65 25 2d 31 3a 74 61 62 6c 65 25 |arcode%-1:table%|
0000ab20 28 49 25 29 3d 49 25 3a ed 0d 35 2a 34 c9 20 33 |(I%)=I%:..5*4. 3|
0000ab30 32 37 37 33 3a 69 6e 66 6f 24 3d 22 50 61 63 6b |2773:info$="Pack|
0000ab40 42 69 74 73 20 63 6f 6d 70 72 65 73 73 65 64 20 |Bits compressed |
0000ab50 22 3a 72 24 3d 22 46 4e 31 35 30 31 22 0d 35 34 |":r$="FN1501".54|
0000ab60 20 c9 20 36 3a 69 6e 66 6f 24 3d 22 4a 50 45 47 | . 6:info$="JPEG|
0000ab70 20 63 6f 6d 70 72 65 73 73 65 64 20 22 0d 35 3e | compressed ".5>|
0000ab80 32 7f 20 69 6e 66 6f 24 3d 22 43 6f 6d 70 72 65 |2. info$="Compre|
0000ab90 73 73 20 22 2b c3 63 6f 6d 70 72 65 73 73 69 6f |ss "+.compressio|
0000aba0 6e 2b 22 20 2d 20 75 6e 6b 6e 6f 77 6e 20 22 0d |n+" - unknown ".|
0000abb0 35 48 05 cb 0d 35 52 42 69 6e 66 6f 24 2b 3d 22 |5H...5RBinfo$+="|
0000abc0 54 49 46 46 20 66 69 6c 65 2c 20 22 2b c3 73 78 |TIFF file, "+.sx|
0000abd0 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 |%+" by "+.sy%+" |
0000abe0 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 28 |pixels, "+.bits(|
0000abf0 69 6e 70 75 74 29 0d 35 5c 53 62 69 67 65 6e 64 |input).5\Sbigend|
0000ac00 69 61 6e 62 69 74 73 3d 66 69 6c 6c 6f 72 64 65 |ianbits=fillorde|
0000ac10 72 3d 31 3a cf 23 63 25 3d 73 74 25 28 30 29 3a |r=1:.#c%=st%(0):|
0000ac20 73 74 72 69 70 70 74 72 3d 30 3a e7 73 74 72 69 |stripptr=0:.stri|
0000ac30 70 72 6f 77 73 25 3e 3d 73 79 25 20 73 74 72 69 |prows%>=sy% stri|
0000ac40 70 72 6f 77 73 25 3d 2d 31 0d 35 66 0e c8 8e 20 |prows%=-1.5f... |
0000ac50 69 6e 70 75 74 20 ca 0d 35 70 1a c9 20 31 3a 72 |input ..5p.. 1:r|
0000ac60 6f 77 62 79 74 65 73 25 3d 73 78 25 2b 37 3e 3e |owbytes%=sx%+7>>|
0000ac70 33 0d 35 7a 1a c9 20 32 3a 72 6f 77 62 79 74 65 |3.5z.. 2:rowbyte|
0000ac80 73 25 3d 73 78 25 2b 33 3e 3e 32 0d 35 84 1a c9 |s%=sx%+3>>2.5...|
0000ac90 20 34 3a 72 6f 77 62 79 74 65 73 25 3d 73 78 25 | 4:rowbytes%=sx%|
0000aca0 2b 31 3e 3e 31 0d 35 8e 15 c9 20 38 3a 72 6f 77 |+1>>1.5... 8:row|
0000acb0 62 79 74 65 73 25 3d 73 78 25 0d 35 98 18 c9 20 |bytes%=sx%.5... |
0000acc0 32 34 3a 72 6f 77 62 79 74 65 73 25 3d 33 2a 73 |24:rowbytes%=3*s|
0000acd0 78 25 0d 35 a2 48 c9 20 33 32 3a 72 6f 77 62 79 |x%.5.H. 32:rowby|
0000ace0 74 65 73 25 3d 34 2a 73 78 25 3a e7 70 68 6f 74 |tes%=4*sx%:.phot|
0000acf0 6f 6d 65 74 72 69 63 3c 3e 35 20 85 20 34 32 2c |ometric<>5 . 42,|
0000ad00 22 33 32 20 62 70 70 20 54 49 46 46 20 62 75 74 |"32 bpp TIFF but|
0000ad10 20 6e 6f 74 20 43 4d 59 4b 22 0d 35 ac 2b 7f 20 | not CMYK".5.+. |
0000ad20 85 20 34 32 2c 22 43 61 6e 27 74 20 64 6f 20 22 |. 42,"Can't do "|
0000ad30 2b a4 62 69 74 73 28 69 6e 70 75 74 29 2b 22 20 |+.bits(input)+" |
0000ad40 54 49 46 46 22 0d 35 b6 05 cb 0d 35 c0 2e e7 70 |TIFF".5....5...p|
0000ad50 6c 61 6e 61 72 25 3d 32 20 72 6f 77 62 79 74 65 |lanar%=2 rowbyte|
0000ad60 73 25 3d 72 6f 77 62 79 74 65 73 25 2a 73 61 6d |s%=rowbytes%*sam|
0000ad70 70 70 65 72 70 69 78 25 0d 35 ca 49 e7 70 6c 61 |pperpix%.5.I.pla|
0000ad80 6e 61 72 25 3c 3e 31 20 80 20 72 67 62 3c 3e 30 |nar%<>1 . rgb<>0|
0000ad90 20 85 34 32 2c 22 43 61 6e 27 74 20 64 6f 20 74 | .42,"Can't do t|
0000ada0 68 69 73 20 73 74 79 6c 65 20 6f 66 20 54 49 46 |his style of TIF|
0000adb0 46 20 79 65 74 22 20 8b 70 6c 61 6e 61 72 25 3d |F yet" .planar%=|
0000adc0 a3 0d 35 d4 15 e7 20 63 6f 6d 70 72 65 73 73 69 |..5... compressi|
0000add0 6f 6e 3c 32 20 8c 0d 35 de 53 63 61 63 68 65 25 |on<2 ..5.Scache%|
0000ade0 3d b9 3a 73 74 72 69 70 70 74 72 3d 2d 31 3a 72 |=.:stripptr=-1:r|
0000adf0 24 3d 22 46 4e 38 22 3a e7 69 6e 70 75 74 3d 32 |$="FN8":.input=2|
0000ae00 34 20 72 62 6f 25 3d 30 3a 67 62 6f 25 3d 31 3a |4 rbo%=0:gbo%=1:|
0000ae10 62 62 6f 25 3d 32 3a 73 74 65 70 32 34 3d 33 3a |bbo%=2:step24=3:|
0000ae20 72 24 3d 22 46 4e 32 34 22 0d 35 e8 62 e7 69 6e |r$="FN24".5.b.in|
0000ae30 70 75 74 3d 33 32 20 72 62 6f 25 3d 30 3a 67 62 |put=32 rbo%=0:gb|
0000ae40 6f 25 3d 31 3a 62 62 6f 25 3d 32 3a 73 74 65 70 |o%=1:bbo%=2:step|
0000ae50 32 34 3d 34 3a 72 24 3d 22 46 4e 32 34 22 3a 72 |24=4:r$="FN24":r|
0000ae60 25 28 29 3d 46 2d 72 25 28 29 3a 67 25 28 29 3d |%()=F-r%():g%()=|
0000ae70 46 2d 67 25 28 29 3a 62 25 28 29 3d 46 2d 62 25 |F-g%():b%()=F-b%|
0000ae80 28 29 3a 69 6e 70 75 74 3d 32 34 0d 35 f2 05 cc |():input=24.5...|
0000ae90 0d 35 fc 27 e7 63 6f 6d 70 72 65 73 73 69 6f 6e |.5.'.compression|
0000aea0 3d 35 20 84 63 6f 6d 70 72 65 73 73 69 6f 6e 3d |=5 .compression=|
0000aeb0 33 32 37 37 33 20 8c 0d 36 06 2d 63 61 63 68 65 |32773 ..6.-cache|
0000aec0 25 3d b9 3a 63 61 63 68 65 62 79 74 65 73 25 3d |%=.:cachebytes%=|
0000aed0 72 6f 77 62 79 74 65 73 25 2a 73 74 72 69 70 72 |rowbytes%*stripr|
0000aee0 6f 77 73 25 0d 36 10 30 70 6c 62 75 66 66 25 3d |ows%.6.0plbuff%=|
0000aef0 a4 64 69 6d 28 72 6f 77 62 79 74 65 73 25 29 3a |.dim(rowbytes%):|
0000af00 72 6f 77 73 74 6f 67 6f 25 3d 73 74 72 69 70 72 |rowstogo%=stripr|
0000af10 6f 77 73 25 0d 36 1a 5c e7 69 6e 70 75 74 3d 32 |ows%.6.\.input=2|
0000af20 34 20 72 62 25 3d 70 6c 62 75 66 66 25 3a 67 62 |4 rb%=plbuff%:gb|
0000af30 25 3d 70 6c 62 75 66 66 25 2b 31 3a 62 62 25 3d |%=plbuff%+1:bb%=|
0000af40 70 6c 62 75 66 66 25 2b 32 3a 72 24 3d 22 46 4e |plbuff%+2:r$="FN|
0000af50 22 2b c3 28 bb c1 72 24 2c 33 29 2b 31 30 29 3a |"+.(..r$,3)+10):|
0000af60 73 74 65 70 32 34 3d 33 3a 72 62 6f 25 3d 2d 31 |step24=3:rbo%=-1|
0000af70 0d 36 24 05 cc 0d 36 2e 2e 62 75 66 66 25 3d a4 |.6$...6..buff%=.|
0000af80 64 69 6d 28 72 6f 77 62 79 74 65 73 25 29 3a 72 |dim(rowbytes%):r|
0000af90 6f 77 73 74 6f 67 6f 25 3d 73 74 72 69 70 72 6f |owstogo%=stripro|
0000afa0 77 73 25 0d 36 38 4e e7 69 6e 70 75 74 3d 32 34 |ws%.68N.input=24|
0000afb0 20 72 62 25 3d 62 75 66 66 25 3a 67 62 25 3d 62 | rb%=buff%:gb%=b|
0000afc0 75 66 66 25 2b 31 3a 62 62 25 3d 62 75 66 66 25 |uff%+1:bb%=buff%|
0000afd0 2b 32 3a 72 24 3d 22 46 4e 22 2b c3 28 bb c1 72 |+2:r$="FN"+.(..r|
0000afe0 24 2c 33 29 2b 31 30 29 3a 73 74 65 70 32 34 3d |$,3)+10):step24=|
0000aff0 33 0d 36 42 05 cd 0d 36 4c 05 cd 0d 36 56 0d e7 |3.6B...6L...6V..|
0000b000 73 63 61 6c 65 25 20 8c 0d 36 60 1a 53 25 3d 72 |scale% ..6`.S%=r|
0000b010 65 73 75 6e 69 74 3a e7 53 25 3d 32 20 53 25 3d |esunit:.S%=2 S%=|
0000b020 39 30 0d 36 6a 0f e7 53 25 3d 33 20 53 25 3d 33 |90.6j..S%=3 S%=3|
0000b030 35 0d 36 74 2c 78 64 69 76 25 3d 78 64 69 76 25 |5.6t,xdiv%=xdiv%|
0000b040 2a 78 6e 75 6d 25 3a 78 6d 75 6c 25 3d 78 6d 75 |*xnum%:xmul%=xmu|
0000b050 6c 25 2a 78 64 65 6e 6f 6d 25 2a 53 25 0d 36 7e |l%*xdenom%*S%.6~|
0000b060 2c 79 64 69 76 25 3d 79 64 69 76 25 2a 79 6e 75 |,ydiv%=ydiv%*ynu|
0000b070 6d 25 3a 79 6d 75 6c 25 3d 79 6d 75 6c 25 2a 79 |m%:ymul%=ymul%*y|
0000b080 64 65 6e 6f 6d 25 2a 53 25 0d 36 88 05 cd 0d 36 |denom%*S%.6....6|
0000b090 92 19 e7 72 24 3d 22 46 4e 31 35 30 30 22 20 72 |...r$="FN1500" r|
0000b0a0 24 3d 22 46 4e 38 22 0d 36 9c 0a c9 20 31 36 30 |$="FN8".6... 160|
0000b0b0 30 0d 36 a6 1e cf 23 63 25 3d 31 32 3a 63 61 6d |0.6...#c%=12:cam|
0000b0c0 67 3d 30 3a 70 6c 61 6e 61 72 25 3d b9 3a f5 0d |g=0:planar%=.:..|
0000b0d0 36 b0 26 53 24 3d bd 9a 23 63 25 2b bd 9a 23 63 |6.&S$=..#c%+..#c|
0000b0e0 25 2b bd 9a 23 63 25 2b bd 9a 23 63 25 3a 53 25 |%+..#c%+..#c%:S%|
0000b0f0 3d a4 62 65 57 0d 36 ba 0b c8 8e 20 53 24 20 ca |=.beW.6.... S$ .|
0000b100 0d 36 c4 43 c9 20 22 42 4d 48 44 22 3a 73 78 25 |.6.C. "BMHD":sx%|
0000b110 3d a4 62 65 48 57 3a 73 79 25 3d a4 62 65 48 57 |=.beHW:sy%=.beHW|
0000b120 3a 53 25 3d a4 57 3a 70 6c 61 6e 65 73 25 3d 9a |:S%=.W:planes%=.|
0000b130 23 63 25 3a 6d 61 73 6b 69 6e 67 25 3d 9a 23 63 |#c%:masking%=.#c|
0000b140 25 3d 31 0d 36 ce 36 63 6f 6d 70 72 65 73 73 69 |%=1.6.6compressi|
0000b150 6f 6e 3d 9a 23 63 25 3a 53 25 3d 9a 23 63 25 2b |on=.#c%:S%=.#c%+|
0000b160 a4 48 57 3a 55 25 3d 9a 23 63 25 3a 56 25 3d 9a |.HW:U%=.#c%:V%=.|
0000b170 23 63 25 3a 53 25 3d a4 57 0d 36 d8 29 e7 73 63 |#c%:S%=.W.6.).sc|
0000b180 61 6c 65 25 20 79 6d 75 6c 25 3d 79 6d 75 6c 25 |ale% ymul%=ymul%|
0000b190 2a 56 25 3a 79 64 69 76 25 3d 79 64 69 76 25 2a |*V%:ydiv%=ydiv%*|
0000b1a0 55 25 0d 36 e2 4b e3 49 25 3d 30 b8 28 31 3c 3c |U%.6.K.I%=0.(1<<|
0000b1b0 70 6c 61 6e 65 73 25 29 2d 31 3a 72 25 28 49 25 |planes%)-1:r%(I%|
0000b1c0 29 3d 49 25 2f 28 28 31 3c 3c 70 6c 61 6e 65 73 |)=I%/((1<<planes|
0000b1d0 25 29 2d 31 29 2a 46 3a ed 3a 67 25 28 29 3d 72 |%)-1)*F:.:g%()=r|
0000b1e0 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d 36 ec |%():b%()=r%().6.|
0000b1f0 42 c9 20 22 43 4d 41 50 22 3a 53 25 3d 8f 23 63 |B. "CMAP":S%=.#c|
0000b200 25 2b 53 25 3a e3 49 25 3d 30 b8 28 31 3c 3c 70 |%+S%:.I%=0.(1<<p|
0000b210 6c 61 6e 65 73 25 29 2d 31 3a 72 25 28 49 25 29 |lanes%)-1:r%(I%)|
0000b220 3d 28 9a 23 63 25 3e 3e 34 29 2f 31 35 2a 46 0d |=(.#c%>>4)/15*F.|
0000b230 36 f6 31 67 25 28 49 25 29 3d 28 9a 23 63 25 3e |6.1g%(I%)=(.#c%>|
0000b240 3e 34 29 2f 31 35 2a 46 3a 62 25 28 49 25 29 3d |>4)/15*F:b%(I%)=|
0000b250 28 9a 23 63 25 3e 3e 34 29 2f 31 35 2a 46 3a ed |(.#c%>>4)/15*F:.|
0000b260 0d 37 00 47 cf 23 63 25 3d 53 25 3a e7 69 6e 66 |.7.G.#c%=S%:.inf|
0000b270 6f 25 20 f1 22 57 61 72 6e 69 6e 67 3a 20 74 72 |o% ."Warning: tr|
0000b280 75 6e 63 61 74 65 64 20 49 46 46 20 43 4d 41 50 |uncated IFF CMAP|
0000b290 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 | information to |
0000b2a0 34 20 62 69 74 73 22 0d 37 0a 3b c9 20 22 43 41 |4 bits".7.;. "CA|
0000b2b0 4d 47 22 3a 63 61 6d 67 3d a4 62 65 57 3a e7 69 |MG":camg=.beW:.i|
0000b2c0 6e 66 6f 25 20 f1 22 41 6d 69 67 61 20 76 69 65 |nfo% ."Amiga vie|
0000b2d0 77 70 6f 72 74 20 6d 6f 64 65 20 22 3b 7e 63 61 |wport mode ";~ca|
0000b2e0 6d 67 0d 37 14 15 c9 20 22 42 4f 44 59 22 3a 73 |mg.7... "BODY":s|
0000b2f0 74 25 3d 8f 23 63 25 0d 37 1e 34 7f 20 e7 20 69 |t%=.#c%.7.4. . i|
0000b300 6e 66 6f 25 20 f1 22 49 67 6e 6f 72 69 6e 67 20 |nfo% ."Ignoring |
0000b310 49 46 46 20 70 72 6f 70 65 72 74 79 20 22 53 24 |IFF property "S$|
0000b320 22 20 73 69 7a 65 20 22 3b 53 25 0d 37 28 10 cf |" size ";S%.7(..|
0000b330 23 63 25 3d 8f 23 63 25 2b 53 25 0d 37 32 05 cb |#c%=.#c%+S%.72..|
0000b340 0d 37 3c 39 fd 53 24 3d 22 42 4f 44 59 22 3a e7 |.7<9.S$="BODY":.|
0000b350 63 6f 6d 70 72 65 73 73 69 6f 6e 20 69 6e 66 6f |compression info|
0000b360 24 3d 22 43 6f 6d 70 72 65 73 73 65 64 20 22 20 |$="Compressed " |
0000b370 8b 69 6e 66 6f 24 3d 22 22 0d 37 50 2b 68 61 6d |.info$="".7P+ham|
0000b380 3d 28 63 61 6d 67 20 80 20 26 38 30 30 29 3c 3e |=(camg . &800)<>|
0000b390 30 3a e7 68 61 6d 20 69 6e 66 6f 24 2b 3d 22 48 |0:.ham info$+="H|
0000b3a0 41 4d 20 22 0d 37 5a 34 68 61 6c 66 3d 28 63 61 |AM ".7Z4half=(ca|
0000b3b0 6d 67 20 80 20 26 38 30 29 3c 3e 30 3a e7 68 61 |mg . &80)<>0:.ha|
0000b3c0 6c 66 20 69 6e 66 6f 24 2b 3d 22 68 61 6c 66 2d |lf info$+="half-|
0000b3d0 62 72 69 67 68 74 20 22 0d 37 64 6e e7 68 61 6c |bright ".7dn.hal|
0000b3e0 66 20 68 61 6c 66 25 3d 31 3c 3c 70 6c 61 6e 65 |f half%=1<<plane|
0000b3f0 73 25 2d 31 3a e3 49 25 3d 30 b8 68 61 6c 66 25 |s%-1:.I%=0.half%|
0000b400 2d 31 3a 72 25 28 49 25 2b 68 61 6c 66 25 29 3d |-1:r%(I%+half%)=|
0000b410 72 25 28 49 25 29 2f 32 3a 67 25 28 49 25 2b 68 |r%(I%)/2:g%(I%+h|
0000b420 61 6c 66 25 29 3d 67 25 28 49 25 29 2f 32 3a 62 |alf%)=g%(I%)/2:b|
0000b430 25 28 49 25 2b 68 61 6c 66 25 29 3d 62 25 28 49 |%(I%+half%)=b%(I|
0000b440 25 29 2f 32 3a ed 0d 37 6e 43 69 6e 66 6f 24 2b |%)/2:..7nCinfo$+|
0000b450 3d 22 49 46 46 20 66 69 6c 65 2c 20 22 2b c3 73 |="IFF file, "+.s|
0000b460 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 |x%+" by "+.sy%+"|
0000b470 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 | pixels, "+.bits|
0000b480 28 70 6c 61 6e 65 73 25 29 0d 37 78 2b e7 6d 61 |(planes%).7x+.ma|
0000b490 73 6b 69 6e 67 25 20 69 6e 66 6f 24 2b 3d 22 20 |sking% info$+=" |
0000b4a0 77 69 74 68 20 6d 61 73 6b 20 28 69 67 6e 6f 72 |with mask (ignor|
0000b4b0 65 64 29 22 0d 37 82 37 72 6f 77 62 79 74 65 73 |ed)".7.7rowbytes|
0000b4c0 25 3d 28 73 78 25 2b 31 35 3e 3e 34 29 3c 3c 31 |%=(sx%+15>>4)<<1|
0000b4d0 3a 70 6c 62 79 74 65 73 25 3d 72 6f 77 62 79 74 |:plbytes%=rowbyt|
0000b4e0 65 73 25 2a 70 6c 61 6e 65 73 25 0d 37 8c 39 70 |es%*planes%.7.9p|
0000b4f0 62 75 66 66 25 3d a4 64 69 6d 28 73 78 25 29 3a |buff%=.dim(sx%):|
0000b500 72 24 3d 22 46 4e 22 2b c3 28 31 36 30 30 2b 63 |r$="FN"+.(1600+c|
0000b510 6f 6d 70 72 65 73 73 69 6f 6e 29 3a 63 61 63 68 |ompression):cach|
0000b520 65 25 3d b9 0d 37 96 12 e7 63 6f 6d 70 72 65 73 |e%=..7...compres|
0000b530 73 69 6f 6e 20 8c 0d 37 a0 28 63 61 63 68 65 62 |sion ..7.(cacheb|
0000b540 79 74 65 73 25 3d b9 3a 70 6c 62 75 66 66 25 3d |ytes%=.:plbuff%=|
0000b550 a4 64 69 6d 28 70 6c 62 79 74 65 73 25 29 0d 37 |.dim(plbytes%).7|
0000b560 aa 05 cc 0d 37 b4 51 72 65 61 6c 72 6f 77 62 79 |....7.Qrealrowby|
0000b570 74 65 73 25 3d 72 6f 77 62 79 74 65 73 25 3a 72 |tes%=rowbytes%:r|
0000b580 6f 77 62 79 74 65 73 25 3d 70 6c 62 79 74 65 73 |owbytes%=plbytes|
0000b590 25 3a e7 6d 61 73 6b 69 6e 67 25 20 72 6f 77 62 |%:.masking% rowb|
0000b5a0 79 74 65 73 25 2b 3d 72 65 61 6c 72 6f 77 62 79 |ytes%+=realrowby|
0000b5b0 74 65 73 25 0d 37 be 05 cd 0d 37 c8 0c cf 23 63 |tes%.7....7...#c|
0000b5c0 25 3d 73 74 25 0d 37 d2 0a c9 20 31 37 30 30 0d |%=st%.7... 1700.|
0000b5d0 37 dc 42 73 78 25 3d 36 34 30 3a 72 6f 77 62 79 |7.Bsx%=640:rowby|
0000b5e0 74 65 73 25 3d 38 30 3a 73 79 25 3d 33 35 30 3a |tes%=80:sy%=350:|
0000b5f0 70 6c 61 6e 65 73 25 3d 34 3a 70 6c 62 79 74 65 |planes%=4:plbyte|
0000b600 73 25 3d 34 2a 38 30 3a 70 6c 61 6e 61 72 25 3d |s%=4*80:planar%=|
0000b610 b9 0d 37 e6 33 62 75 66 66 25 3d a4 64 69 6d 28 |..7.3buff%=.dim(|
0000b620 38 30 2a 34 29 3a 70 62 75 66 66 25 3d a4 64 69 |80*4):pbuff%=.di|
0000b630 6d 28 36 34 30 29 3a 47 3d 46 2f 33 3a 48 3d 46 |m(640):G=F/3:H=F|
0000b640 2a 32 2f 33 0d 37 f0 28 72 25 28 29 3d 30 2c 30 |*2/3.7.(r%()=0,0|
0000b650 2c 30 2c 30 2c 46 2c 46 2c 46 2c 48 2c 47 2c 47 |,0,0,F,F,F,H,G,G|
0000b660 2c 47 2c 47 2c 46 2c 46 2c 46 2c 46 0d 37 fa 28 |,G,G,F,F,F,F.7.(|
0000b670 67 25 28 29 3d 30 2c 30 2c 46 2c 46 2c 30 2c 30 |g%()=0,0,F,F,0,0|
0000b680 2c 46 2c 48 2c 47 2c 47 2c 46 2c 46 2c 47 2c 47 |,F,H,G,G,F,F,G,G|
0000b690 2c 46 2c 46 0d 38 04 28 62 25 28 29 3d 30 2c 46 |,F,F.8.(b%()=0,F|
0000b6a0 2c 30 2c 46 2c 30 2c 46 2c 30 2c 48 2c 47 2c 46 |,0,F,0,F,0,H,G,F|
0000b6b0 2c 47 2c 46 2c 47 2c 46 2c 47 2c 46 0d 38 0e 56 |,G,F,G,F,G,F.8.V|
0000b6c0 6d 61 73 6b 69 6e 67 25 3d a3 3a 72 24 3d 22 46 |masking%=.:r$="F|
0000b6d0 4e 31 36 30 30 22 3a 73 74 25 3d 31 36 3a cf 23 |N1600":st%=16:.#|
0000b6e0 63 25 3d 31 36 3a 63 61 63 68 65 25 3d b9 3a 72 |c%=16:cache%=.:r|
0000b6f0 65 61 6c 72 6f 77 62 79 74 65 73 25 3d 38 30 3a |ealrowbytes%=80:|
0000b700 72 6f 77 62 79 74 65 73 25 3d 70 6c 62 79 74 65 |rowbytes%=plbyte|
0000b710 73 25 0d 38 18 53 69 6e 66 6f 24 3d 22 50 43 20 |s%.8.Sinfo$="PC |
0000b720 45 47 41 20 27 2e 64 73 70 27 20 66 69 6c 65 2c |EGA '.dsp' file,|
0000b730 20 36 34 30 20 62 79 20 33 35 30 20 70 69 78 65 | 640 by 350 pixe|
0000b740 6c 73 2c 20 34 20 62 69 74 73 20 70 65 72 20 70 |ls, 4 bits per p|
0000b750 69 78 65 6c 20 28 66 69 78 65 64 20 70 61 6c 65 |ixel (fixed pale|
0000b760 74 74 65 29 22 0d 38 22 0a c9 20 31 38 30 30 0d |tte)".8".. 1800.|
0000b770 38 2c 3f 73 78 25 3d 37 32 2a 38 3a 73 79 25 3d |8,?sx%=72*8:sy%=|
0000b780 37 32 30 3a 71 75 61 6e 74 25 3d 31 3a 69 6e 70 |720:quant%=1:inp|
0000b790 75 74 3d 31 3a cf 23 63 25 3d 73 74 25 3a 70 6c |ut=1:.#c%=st%:pl|
0000b7a0 62 75 66 66 25 3d a4 64 69 6d 28 37 32 29 0d 38 |buff%=.dim(72).8|
0000b7b0 36 1a 63 61 63 68 65 25 3d b9 3a 63 61 63 68 65 |6.cache%=.:cache|
0000b7c0 62 79 74 65 73 25 3d b9 0d 38 40 51 72 25 28 30 |bytes%=..8@Qr%(0|
0000b7d0 29 3d 46 3a 67 25 28 30 29 3d 46 3a 62 25 28 30 |)=F:g%(0)=F:b%(0|
0000b7e0 29 3d 46 3a 62 69 67 65 6e 64 69 61 6e 62 69 74 |)=F:bigendianbit|
0000b7f0 73 3d b9 3a 72 6f 77 62 79 74 65 73 25 3d 37 32 |s=.:rowbytes%=72|
0000b800 3a 72 24 3d 22 46 4e 31 35 30 31 22 3a 72 6f 77 |:r$="FN1501":row|
0000b810 73 74 6f 67 6f 25 3d 2d 31 0d 38 4a 47 e7 73 63 |stogo%=-1.8JG.sc|
0000b820 61 6c 65 25 20 78 6d 75 6c 25 3d 78 6d 75 6c 25 |ale% xmul%=xmul%|
0000b830 2a 39 30 3a 78 64 69 76 25 3d 78 64 69 76 25 2a |*90:xdiv%=xdiv%*|
0000b840 37 32 3a 79 6d 75 6c 25 3d 79 6d 75 6c 25 2a 39 |72:ymul%=ymul%*9|
0000b850 30 3a 79 64 69 76 25 3d 79 64 69 76 25 2a 37 32 |0:ydiv%=ydiv%*72|
0000b860 0d 38 54 3e 69 6e 66 6f 24 3d 22 4d 61 63 50 61 |.8T>info$="MacPa|
0000b870 69 6e 74 20 66 69 6c 65 2c 20 35 37 36 20 62 79 |int file, 576 by|
0000b880 20 37 32 30 20 62 69 74 73 2c 20 63 72 65 61 74 | 720 bits, creat|
0000b890 6f 72 20 69 64 20 22 2b c2 53 24 2c 34 29 0d 38 |or id "+.S$,4).8|
0000b8a0 5e 0a c9 20 31 38 35 30 0d 38 68 0c cf 23 63 25 |^.. 1850.8h..#c%|
0000b8b0 3d 35 35 32 0d 38 72 0b 64 6f 6e 65 25 3d a3 0d |=552.8r.done%=..|
0000b8c0 38 7c 05 f5 0d 38 86 1a 63 6f 64 65 25 3d a4 62 |8|...8..code%=.b|
0000b8d0 65 48 57 3a c8 8e 20 63 6f 64 65 25 20 ca 0d 38 |eHW:.. code% ..8|
0000b8e0 90 19 c9 20 26 30 31 3a cf 23 63 25 3d 8f 23 63 |... &01:.#c%=.#c|
0000b8f0 25 2b a4 62 65 48 57 0d 38 9a 09 c9 20 26 31 45 |%+.beHW.8... &1E|
0000b900 0d 38 a4 09 c9 20 26 39 38 0d 38 ae 43 72 6f 77 |.8... &98.8.Crow|
0000b910 62 79 74 65 73 25 3d a4 62 65 48 57 3a e7 28 72 |bytes%=.beHW:.(r|
0000b920 6f 77 62 79 74 65 73 25 20 80 26 38 30 30 30 29 |owbytes% .&8000)|
0000b930 3d 30 20 85 34 32 2c 22 50 49 43 54 20 77 69 74 |=0 .42,"PICT wit|
0000b940 68 6f 75 74 20 50 69 78 6d 61 70 22 0d 38 b8 33 |hout Pixmap".8.3|
0000b950 73 79 25 3d a4 62 65 48 57 3a 73 78 25 3d a4 62 |sy%=.beHW:sx%=.b|
0000b960 65 48 57 3a 73 79 25 3d a4 62 65 48 57 2d 73 79 |eHW:sy%=.beHW-sy|
0000b970 25 3a 73 78 25 3d a4 62 65 48 57 2d 73 78 25 0d |%:sx%=.beHW-sx%.|
0000b980 38 c2 3c 6a 75 6e 6b 25 3d a4 48 57 3a 70 61 63 |8.<junk%=.HW:pac|
0000b990 6b 74 79 70 65 25 3d a4 62 65 48 57 3a 6a 75 6e |ktype%=.beHW:jun|
0000b9a0 6b 25 3d a4 57 3a 72 65 73 78 25 3d a4 62 65 57 |k%=.W:resx%=.beW|
0000b9b0 3a 72 65 73 79 25 3d a4 62 65 57 0d 38 cc 46 e7 |:resy%=.beW.8.F.|
0000b9c0 a4 62 65 48 57 3c 3e 30 20 d9 23 63 25 3a 85 34 |.beHW<>0 .#c%:.4|
0000b9d0 32 2c 22 43 68 61 6e 67 65 46 53 49 20 65 78 70 |2,"ChangeFSI exp|
0000b9e0 65 63 74 65 64 20 4d 61 63 20 50 49 43 54 32 20 |ected Mac PICT2 |
0000b9f0 70 69 78 65 6c 74 79 70 65 3d 43 68 75 6e 6b 79 |pixeltype=Chunky|
0000ba00 22 0d 38 d6 26 62 70 70 25 3d a4 62 65 48 57 3a |".8.&bpp%=.beHW:|
0000ba10 6a 75 6e 6b 25 3d a4 62 65 48 57 3a 6a 75 6e 6b |junk%=.beHW:junk|
0000ba20 25 3d a4 62 65 48 57 0d 38 e0 24 6a 75 6e 6b 25 |%=.beHW.8.$junk%|
0000ba30 3d a4 62 65 57 3a 6a 75 6e 6b 25 3d a4 62 65 57 |=.beW:junk%=.beW|
0000ba40 3a 6a 75 6e 6b 25 3d a4 62 65 57 0d 38 ea 1a 6a |:junk%=.beW.8..j|
0000ba50 75 6e 6b 25 3d a4 62 65 57 3a 6a 75 6e 6b 25 3d |unk%=.beW:junk%=|
0000ba60 a4 62 65 48 57 0d 38 f4 5f 43 25 3d a4 62 65 48 |.beHW.8._C%=.beH|
0000ba70 57 3a e3 49 25 3d 30 b8 43 25 3a 4a 25 3d a4 62 |W:.I%=0.C%:J%=.b|
0000ba80 65 48 57 3a 72 25 28 4a 25 29 3d a4 62 65 48 57 |eHW:r%(J%)=.beHW|
0000ba90 2f 36 35 35 33 35 2a 46 3a 67 25 28 4a 25 29 3d |/65535*F:g%(J%)=|
0000baa0 a4 62 65 48 57 2f 36 35 35 33 35 2a 46 3a 62 25 |.beHW/65535*F:b%|
0000bab0 28 4a 25 29 3d a4 62 65 48 57 2f 36 35 35 33 35 |(J%)=.beHW/65535|
0000bac0 2a 46 3a ed 0d 38 fe 0b 64 6f 6e 65 25 3d b9 0d |*F:..8..done%=..|
0000bad0 39 08 52 c9 20 26 39 41 3a 6a 75 6e 6b 25 3d a4 |9.R. &9A:junk%=.|
0000bae0 57 3a 72 6f 77 62 79 74 65 73 25 3d a4 62 65 48 |W:rowbytes%=.beH|
0000baf0 57 3a e7 28 72 6f 77 62 79 74 65 73 25 20 80 26 |W:.(rowbytes% .&|
0000bb00 38 30 30 30 29 3d 30 20 85 34 32 2c 22 50 49 43 |8000)=0 .42,"PIC|
0000bb10 54 20 77 69 74 68 6f 75 74 20 50 69 78 6d 61 70 |T without Pixmap|
0000bb20 22 0d 39 12 33 73 79 25 3d a4 62 65 48 57 3a 73 |".9.3sy%=.beHW:s|
0000bb30 78 25 3d a4 62 65 48 57 3a 73 79 25 3d a4 62 65 |x%=.beHW:sy%=.be|
0000bb40 48 57 2d 73 79 25 3a 73 78 25 3d a4 62 65 48 57 |HW-sy%:sx%=.beHW|
0000bb50 2d 73 78 25 0d 39 1c 3c 6a 75 6e 6b 25 3d a4 48 |-sx%.9.<junk%=.H|
0000bb60 57 3a 70 61 63 6b 74 79 70 65 25 3d a4 62 65 48 |W:packtype%=.beH|
0000bb70 57 3a 6a 75 6e 6b 25 3d a4 57 3a 72 65 73 78 25 |W:junk%=.W:resx%|
0000bb80 3d a4 62 65 57 3a 72 65 73 79 25 3d a4 62 65 57 |=.beW:resy%=.beW|
0000bb90 0d 39 26 4a e7 a4 62 65 48 57 3c 3e 31 36 20 d9 |.9&J..beHW<>16 .|
0000bba0 23 63 25 3a 85 34 32 2c 22 43 68 61 6e 67 65 46 |#c%:.42,"ChangeF|
0000bbb0 53 49 20 65 78 70 65 63 74 65 64 20 4d 61 63 20 |SI expected Mac |
0000bbc0 50 49 43 54 32 20 70 69 78 65 6c 74 79 70 65 3d |PICT2 pixeltype=|
0000bbd0 52 47 42 44 69 72 65 63 74 22 0d 39 30 27 62 70 |RGBDirect".90'bp|
0000bbe0 70 25 3d a4 62 65 48 57 3a 63 6f 6d 70 73 25 3d |p%=.beHW:comps%=|
0000bbf0 a4 62 65 48 57 3a 6a 75 6e 6b 25 3d a4 62 65 48 |.beHW:junk%=.beH|
0000bc00 57 0d 39 3a 19 6a 75 6e 6b 25 3d a4 62 65 57 3a |W.9:.junk%=.beW:|
0000bc10 6a 75 6e 6b 25 3d a4 62 65 57 0d 39 44 1b 6a 75 |junk%=.beW.9D.ju|
0000bc20 6e 6b 25 3d a4 62 65 48 57 3a 6a 75 6e 6b 25 3d |nk%=.beHW:junk%=|
0000bc30 a4 62 65 48 57 0d 39 4e 56 e7 62 70 70 25 3e 31 |.beHW.9NV.bpp%>1|
0000bc40 36 20 f2 6e 6f 70 61 6c 20 8b 4a 25 3d 32 5e 28 |6 .nopal .J%=2^(|
0000bc50 62 70 70 25 81 33 29 3a e3 49 25 3d 30 b8 4a 25 |bpp%.3):.I%=0.J%|
0000bc60 2d 31 3a 72 25 28 49 25 29 3d 49 25 2f 28 4a 25 |-1:r%(I%)=I%/(J%|
0000bc70 2d 31 29 2a 46 3a ed 3a 67 25 28 29 3d 72 25 28 |-1)*F:.:g%()=r%(|
0000bc80 29 3a 62 25 28 29 3d 72 25 28 29 0d 39 58 2f e7 |):b%()=r%().9X/.|
0000bc90 62 70 70 25 3d 33 32 20 80 20 63 6f 6d 70 73 25 |bpp%=32 . comps%|
0000bca0 3d 33 20 62 70 70 25 3d 32 34 3a 72 6f 77 62 79 |=3 bpp%=24:rowby|
0000bcb0 74 65 73 25 3d 33 2a 73 78 25 0d 39 62 0b 64 6f |tes%=3*sx%.9b.do|
0000bcc0 6e 65 25 3d b9 0d 39 6c 43 7f 3a d9 23 63 25 3a |ne%=..9lC.:.#c%:|
0000bcd0 85 34 32 2c 22 43 68 61 6e 67 65 46 53 49 20 63 |.42,"ChangeFSI c|
0000bce0 61 6e 27 74 20 75 6e 64 65 72 73 74 61 6e 64 20 |an't understand |
0000bcf0 4d 61 63 20 50 49 43 54 32 20 63 6f 64 65 20 22 |Mac PICT2 code "|
0000bd00 2b c3 7e 63 6f 64 65 25 0d 39 76 05 cb 0d 39 80 |+.~code%.9v...9.|
0000bd10 0b fd 20 64 6f 6e 65 25 0d 39 8a 33 6a 75 6e 6b |.. done%.9.3junk|
0000bd20 25 3d a4 62 65 48 57 3a 6a 75 6e 6b 25 3d a4 62 |%=.beHW:junk%=.b|
0000bd30 65 48 57 3a 6a 75 6e 6b 25 3d a4 62 65 48 57 3a |eHW:junk%=.beHW:|
0000bd40 6a 75 6e 6b 25 3d a4 62 65 48 57 0d 39 94 33 6a |junk%=.beHW.9.3j|
0000bd50 75 6e 6b 25 3d a4 62 65 48 57 3a 6a 75 6e 6b 25 |unk%=.beHW:junk%|
0000bd60 3d a4 62 65 48 57 3a 6a 75 6e 6b 25 3d a4 62 65 |=.beHW:junk%=.be|
0000bd70 48 57 3a 6a 75 6e 6b 25 3d a4 62 65 48 57 0d 39 |HW:junk%=.beHW.9|
0000bd80 9e 0f 6a 75 6e 6b 25 3d a4 62 65 48 57 0d 39 a8 |..junk%=.beHW.9.|
0000bd90 4e 63 61 63 68 65 25 3d b9 3a 63 61 63 68 65 62 |Ncache%=.:cacheb|
0000bda0 79 74 65 73 25 3d b9 3a 62 69 67 65 6e 64 69 61 |ytes%=.:bigendia|
0000bdb0 6e 62 69 74 73 3d b9 3a 73 74 25 3d 8f 23 63 25 |nbits=.:st%=.#c%|
0000bdc0 3a 72 6f 77 62 79 74 65 73 25 3d 72 6f 77 62 79 |:rowbytes%=rowby|
0000bdd0 74 65 73 25 80 ac 26 38 30 30 30 0d 39 b2 59 e7 |tes%..&8000.9.Y.|
0000bde0 73 63 61 6c 65 25 20 78 6d 75 6c 25 3d 78 6d 75 |scale% xmul%=xmu|
0000bdf0 6c 25 2a 39 30 2a 36 35 35 33 36 3a 78 64 69 76 |l%*90*65536:xdiv|
0000be00 25 3d 78 64 69 76 25 2a 72 65 73 78 25 3a 79 6d |%=xdiv%*resx%:ym|
0000be10 75 6c 25 3d 79 6d 75 6c 25 2a 39 30 2a 36 35 35 |ul%=ymul%*90*655|
0000be20 33 36 3a 79 64 69 76 25 3d 79 64 69 76 25 2a 72 |36:ydiv%=ydiv%*r|
0000be30 65 73 79 25 0d 39 bc 40 69 6e 66 6f 24 3d 22 4d |esy%.9.@info$="M|
0000be40 61 63 20 50 49 43 54 32 2c 20 22 2b c3 73 78 25 |ac PICT2, "+.sx%|
0000be50 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 70 |+" by "+.sy%+" p|
0000be60 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 28 62 |ixels, "+.bits(b|
0000be70 70 70 25 29 0d 39 c6 25 70 6c 62 75 66 66 25 3d |pp%).9.%plbuff%=|
0000be80 a4 64 69 6d 28 72 6f 77 62 79 74 65 73 25 29 3a |.dim(rowbytes%):|
0000be90 e7 62 70 70 25 3e 38 20 8c 0d 39 d0 54 72 62 6f |.bpp%>8 ..9.Trbo|
0000bea0 25 3d 2d 31 3a 72 62 25 3d 70 6c 62 75 66 66 25 |%=-1:rb%=plbuff%|
0000beb0 2b 73 78 25 3a 67 62 25 3d 70 6c 62 75 66 66 25 |+sx%:gb%=plbuff%|
0000bec0 2b 73 78 25 2a 32 3a 62 62 25 3d 70 6c 62 75 66 |+sx%*2:bb%=plbuf|
0000bed0 66 25 2b 73 78 25 2a 33 3a 72 24 3d 22 46 4e 31 |f%+sx%*3:r$="FN1|
0000bee0 38 35 31 22 3a 69 6e 70 75 74 3d 32 34 0d 39 da |851":input=24.9.|
0000bef0 3b e7 63 6f 6d 70 73 25 3d 33 20 72 62 25 3d 70 |;.comps%=3 rb%=p|
0000bf00 6c 62 75 66 66 25 3a 67 62 25 3d 70 6c 62 75 66 |lbuff%:gb%=plbuf|
0000bf10 66 25 2b 73 78 25 3a 62 62 25 3d 70 6c 62 75 66 |f%+sx%:bb%=plbuf|
0000bf20 66 25 2b 73 78 25 2a 32 0d 39 e4 05 cd 0d 39 ee |f%+sx%*2.9....9.|
0000bf30 0a c9 20 31 39 30 30 0d 39 f8 12 cf 23 63 25 3d |.. 1900.9...#c%=|
0000bf40 31 3a 43 25 3d 9a 23 63 25 0d 3a 02 3f 45 25 3d |1:C%=.#c%.:.?E%=|
0000bf50 9a 23 63 25 3a e7 45 25 3c 3e 31 20 85 20 34 32 |.#c%:.E%<>1 . 42|
0000bf60 2c 22 5a 53 6f 66 74 20 2e 50 43 58 20 66 69 6c |,"ZSoft .PCX fil|
0000bf70 65 20 77 69 74 68 20 75 6e 6b 6e 6f 77 6e 20 65 |e with unknown e|
0000bf80 6e 63 6f 64 69 6e 67 22 0d 3a 0c 37 45 25 3d 9a |ncoding".:.7E%=.|
0000bf90 23 63 25 3a 73 78 25 3d a4 48 57 3a 73 79 25 3d |#c%:sx%=.HW:sy%=|
0000bfa0 a4 48 57 3a 73 78 25 3d a4 48 57 2b 31 2d 73 78 |.HW:sx%=.HW+1-sx|
0000bfb0 25 3a 73 79 25 3d a4 48 57 2b 31 2d 73 79 25 0d |%:sy%=.HW+1-sy%.|
0000bfc0 3a 16 4e e7 73 63 61 6c 65 25 20 78 6d 75 6c 25 |:.N.scale% xmul%|
0000bfd0 3d 78 6d 75 6c 25 2a 39 30 3a 78 64 69 76 25 3d |=xmul%*90:xdiv%=|
0000bfe0 78 64 69 76 25 2a a4 48 57 3a 79 6d 75 6c 25 3d |xdiv%*.HW:ymul%=|
0000bff0 79 6d 75 6c 25 2a 39 30 3a 79 64 69 76 25 3d 79 |ymul%*90:ydiv%=y|
0000c000 64 69 76 25 2a a4 48 57 20 8b e7 a4 57 0d 3a 20 |div%*.HW ...W.: |
0000c010 48 cf 23 63 25 3d 36 35 3a 70 6c 61 6e 65 73 25 |H.#c%=65:planes%|
0000c020 3d 9a 23 63 25 3a 70 6c 61 6e 61 72 25 3d 70 6c |=.#c%:planar%=pl|
0000c030 61 6e 65 73 25 3e 31 3a 72 6f 77 62 79 74 65 73 |anes%>1:rowbytes|
0000c040 25 3d a4 48 57 3a 62 70 70 25 3d 45 25 2a 70 6c |%=.HW:bpp%=E%*pl|
0000c050 61 6e 65 73 25 0d 3a 2a 1e 70 63 78 70 61 6c 3d |anes%.:*.pcxpal=|
0000c060 31 36 3a e7 62 70 70 25 3e 34 20 80 20 43 25 3d |16:.bpp%>4 . C%=|
0000c070 35 20 8c 0d 3a 34 2a cf 23 63 25 3d a2 23 63 25 |5 ..:4*.#c%=.#c%|
0000c080 2d 37 36 39 3a e7 9a 23 63 25 3d 31 32 20 70 63 |-769:..#c%=12 pc|
0000c090 78 70 61 6c 3d a2 23 63 25 2d 37 36 38 0d 3a 3e |xpal=.#c%-768.:>|
0000c0a0 05 cd 0d 3a 48 35 cf 23 63 25 3d 70 63 78 70 61 |...:H5.#c%=pcxpa|
0000c0b0 6c 3a 45 25 3d 30 3a e3 43 25 3d 30 b8 28 31 3c |l:E%=0:.C%=0.(1<|
0000c0c0 3c 62 70 70 25 29 2a 33 2d 31 3a 45 25 3d 45 25 |<bpp%)*3-1:E%=E%|
0000c0d0 84 9a 23 63 25 3a ed 0d 3a 52 33 e7 69 6e 66 6f |..#c%:..:R3.info|
0000c0e0 25 20 f1 22 2e 50 43 58 20 70 61 6c 65 74 74 65 |% .".PCX palette|
0000c0f0 20 6d 61 73 6b 20 65 73 74 61 62 6c 69 73 68 65 | mask establishe|
0000c100 64 20 61 74 20 22 3b 7e 45 25 0d 3a 5c 0b e7 45 |d at ";~E%.:\..E|
0000c110 25 3d 30 20 8c 0d 3a 66 45 e3 43 25 3d 30 b8 28 |%=0 ..:fE.C%=0.(|
0000c120 31 3c 3c 62 70 70 25 29 2d 31 3a 72 25 28 43 25 |1<<bpp%)-1:r%(C%|
0000c130 29 3d 43 25 2f 28 28 31 3c 3c 62 70 70 25 29 2d |)=C%/((1<<bpp%)-|
0000c140 31 29 2a 46 3a ed 3a 67 25 28 29 3d 72 25 28 29 |1)*F:.:g%()=r%()|
0000c150 3a 62 25 28 29 3d 72 25 28 29 0d 3a 70 05 cc 0d |:b%()=r%().:p...|
0000c160 3a 7a 21 cf 23 63 25 3d 70 63 78 70 61 6c 3a e3 |:z!.#c%=pcxpal:.|
0000c170 43 25 3d 30 b8 28 31 3c 3c 62 70 70 25 29 2d 31 |C%=0.(1<<bpp%)-1|
0000c180 0d 3a 84 45 72 25 28 43 25 29 3d 28 9a 23 63 25 |.:.Er%(C%)=(.#c%|
0000c190 80 45 25 29 2f 45 25 2a 46 3a 67 25 28 43 25 29 |.E%)/E%*F:g%(C%)|
0000c1a0 3d 28 9a 23 63 25 80 45 25 29 2f 45 25 2a 46 3a |=(.#c%.E%)/E%*F:|
0000c1b0 62 25 28 43 25 29 3d 28 9a 23 63 25 80 45 25 29 |b%(C%)=(.#c%.E%)|
0000c1c0 2f 45 25 2a 46 0d 3a 8e 05 ed 0d 3a 98 05 cd 0d |/E%*F.:....:....|
0000c1d0 3a a2 0b f2 72 65 77 69 6e 64 0d 3a ac 4c 70 6c |:...rewind.:.Lpl|
0000c1e0 62 79 74 65 73 25 3d 72 6f 77 62 79 74 65 73 25 |bytes%=rowbytes%|
0000c1f0 2a 70 6c 61 6e 65 73 25 3a 70 6c 62 75 66 66 25 |*planes%:plbuff%|
0000c200 3d a4 64 69 6d 28 70 6c 62 79 74 65 73 25 29 3a |=.dim(plbytes%):|
0000c210 63 61 63 68 65 25 3d b9 3a 63 61 63 68 65 62 79 |cache%=.:cacheby|
0000c220 74 65 73 25 3d b9 0d 3a b6 45 e7 70 6c 61 6e 61 |tes%=..:.E.plana|
0000c230 72 25 20 70 62 75 66 66 25 3d a4 64 69 6d 28 73 |r% pbuff%=.dim(s|
0000c240 78 25 29 20 8b 69 6e 70 75 74 3d 62 70 70 25 3a |x%) .input=bpp%:|
0000c250 62 69 67 65 6e 64 69 61 6e 62 69 74 73 3d b9 3a |bigendianbits=.:|
0000c260 72 24 3d 22 46 4e 31 31 30 30 22 0d 3a c0 46 69 |r$="FN1100".:.Fi|
0000c270 6e 66 6f 24 3d 22 5a 53 6f 66 74 20 2e 50 43 58 |nfo$="ZSoft .PCX|
0000c280 20 66 69 6c 65 2c 20 22 2b c3 73 78 25 2b 22 20 | file, "+.sx%+" |
0000c290 62 79 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 |by "+.sy%+" pixe|
0000c2a0 6c 73 2c 20 22 2b a4 62 69 74 73 28 62 70 70 25 |ls, "+.bits(bpp%|
0000c2b0 29 0d 3a ca 0a c9 20 32 30 30 30 0d 3a d4 38 cf |).:... 2000.:.8.|
0000c2c0 23 63 25 3d 30 3a 4c 25 3d 9a 23 63 25 3a 43 25 |#c%=0:L%=.#c%:C%|
0000c2d0 3d 9a 23 63 25 3a 49 25 3d 9a 23 63 25 3a 4a 25 |=.#c%:I%=.#c%:J%|
0000c2e0 3d a4 48 57 3a 4b 25 3d a4 48 57 3a 4d 25 3d 9a |=.HW:K%=.HW:M%=.|
0000c2f0 23 63 25 0d 3a de 43 73 78 25 3d a4 57 3a 73 78 |#c%.:.Csx%=.W:sx|
0000c300 25 3d a4 48 57 3a 73 79 25 3d a4 48 57 3a 42 25 |%=.HW:sy%=.HW:B%|
0000c310 3d 9a 23 63 25 3a 49 44 25 3d 9a 23 63 25 3a e7 |=.#c%:ID%=.#c%:.|
0000c320 49 44 25 80 26 31 30 20 68 66 6c 69 70 25 3d ac |ID%.&10 hflip%=.|
0000c330 68 66 6c 69 70 25 0d 3a e8 20 e7 28 49 44 25 20 |hflip%.:. .(ID% |
0000c340 80 26 32 30 29 3d 30 20 76 66 6c 69 70 25 3d ac |.&20)=0 vflip%=.|
0000c350 76 66 6c 69 70 25 0d 3a f2 18 cf 23 63 25 3d 8f |vflip%.:...#c%=.|
0000c360 23 63 25 2b 4c 25 3a c8 8e 20 43 25 20 ca 0d 3a |#c%+L%:.. C% ..:|
0000c370 fc 11 c9 20 31 3a e7 4d 25 3d 26 31 38 20 8c 0d |... 1:.M%=&18 ..|
0000c380 3b 06 0f e3 43 25 3d 4a 25 b8 4b 25 2d 31 0d 3b |;...C%=J%.K%-1.;|
0000c390 10 39 62 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 |.9b%(C%)=.#c%/25|
0000c3a0 35 2a 46 3a 67 25 28 43 25 29 3d 9a 23 63 25 2f |5*F:g%(C%)=.#c%/|
0000c3b0 32 35 35 2a 46 3a 72 25 28 43 25 29 3d 9a 23 63 |255*F:r%(C%)=.#c|
0000c3c0 25 2f 32 35 35 2a 46 0d 3b 1a 05 ed 0d 3b 24 05 |%/255*F.;....;$.|
0000c3d0 cc 0d 3b 2e 05 cd 0d 3b 38 0c 7f 20 f2 6e 6f 70 |..;....;8.. .nop|
0000c3e0 61 6c 0d 3b 42 05 cb 0d 3b 4c 0c 73 74 25 3d 8f |al.;B...;L.st%=.|
0000c3f0 23 63 25 0d 3b 56 0b c8 8e 20 49 25 20 ca 0d 3b |#c%.;V... I% ..;|
0000c400 60 1c c9 20 31 2c 32 2c 33 3a 63 61 63 68 65 25 |`.. 1,2,3:cache%|
0000c410 3d b9 3a e7 42 25 3e 38 20 8c 0d 3b 6a 0c e7 42 |=.:.B%>8 ..;j..B|
0000c420 25 3e 31 36 20 8c 0d 3b 74 4c 69 6e 70 75 74 3d |%>16 ..;tLinput=|
0000c430 32 34 3a 62 62 6f 25 3d 30 3a 67 62 6f 25 3d 31 |24:bbo%=0:gbo%=1|
0000c440 3a 72 62 6f 25 3d 32 3a 73 74 65 70 32 34 3d 42 |:rbo%=2:step24=B|
0000c450 25 81 38 3a 72 24 3d 22 46 4e 32 34 22 3a 72 6f |%.8:r$="FN24":ro|
0000c460 77 62 79 74 65 73 25 3d 73 74 65 70 32 34 2a 73 |wbytes%=step24*s|
0000c470 78 25 0d 3b 7e 05 cc 0d 3b 88 13 72 6f 77 62 79 |x%.;~...;..rowby|
0000c480 74 65 73 25 3d 73 78 25 2a 32 0d 3b 92 37 de 20 |tes%=sx%*2.;.7. |
0000c490 72 70 61 6c 25 28 32 35 35 29 2c 67 70 61 6c 25 |rpal%(255),gpal%|
0000c4a0 28 32 35 35 29 3a 69 6e 70 75 74 3d 31 36 3a 73 |(255):input=16:s|
0000c4b0 74 65 70 32 34 3d 32 3a 72 24 3d 22 46 4e 31 36 |tep24=2:r$="FN16|
0000c4c0 22 0d 3b 9c 0d e3 43 25 3d 30 b8 32 35 35 0d 3b |".;...C%=0.255.;|
0000c4d0 a6 26 67 70 61 6c 25 28 43 25 29 3d 28 43 25 3e |.&gpal%(C%)=(C%>|
0000c4e0 3e 35 29 3c 3c 38 20 84 20 28 43 25 80 33 31 29 |>5)<<8 . (C%.31)|
0000c4f0 3c 3c 31 36 0d 3b b0 25 72 70 61 6c 25 28 43 25 |<<16.;.%rpal%(C%|
0000c500 29 3d 28 43 25 3e 3e 32 29 80 33 31 20 84 20 28 |)=(C%>>2).31 . (|
0000c510 43 25 80 33 29 3c 3c 31 31 0d 3b ba 05 ed 0d 3b |C%.3)<<11.;....;|
0000c520 c4 31 e3 43 25 3d 30 b8 33 31 3a 72 25 28 43 25 |.1.C%=0.31:r%(C%|
0000c530 29 3d 43 25 2f 33 31 2a 46 3a ed 3a 67 25 28 29 |)=C%/31*F:.:g%()|
0000c540 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d |=r%():b%()=r%().|
0000c550 3b ce 05 cd 0d 3b d8 05 cc 0d 3b e2 1a 72 24 3d |;....;....;..r$=|
0000c560 22 46 4e 38 22 3a 72 6f 77 62 79 74 65 73 25 3d |"FN8":rowbytes%=|
0000c570 73 78 25 0d 3b ec 05 cd 0d 3b f6 49 69 6e 66 6f |sx%.;....;.Iinfo|
0000c580 24 3d 22 54 72 75 65 76 69 73 69 6f 6e 20 54 47 |$="Truevision TG|
0000c590 41 20 69 6d 61 67 65 2c 20 22 2b c3 73 78 25 2b |A image, "+.sx%+|
0000c5a0 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 70 69 |" by "+.sy%+" pi|
0000c5b0 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 28 42 25 |xels, "+.bits(B%|
0000c5c0 29 0d 3c 00 44 c9 20 39 2c 31 30 2c 31 31 3a 73 |).<.D. 9,10,11:s|
0000c5d0 74 65 70 32 34 3d 42 25 81 38 3a 72 6f 77 62 79 |tep24=B%.8:rowby|
0000c5e0 74 65 73 25 3d 73 74 65 70 32 34 2a 73 78 25 3a |tes%=step24*sx%:|
0000c5f0 62 75 66 66 25 3d a4 64 69 6d 28 72 6f 77 62 79 |buff%=.dim(rowby|
0000c600 74 65 73 25 29 0d 3c 0a 0b e7 42 25 3e 38 20 8c |tes%).<...B%>8 .|
0000c610 0d 3c 14 0c e7 42 25 3e 31 36 20 8c 0d 3c 1e 3a |.<...B%>16 ..<.:|
0000c620 69 6e 70 75 74 3d 32 34 3a 62 62 25 3d 62 75 66 |input=24:bb%=buf|
0000c630 66 25 3a 67 62 25 3d 62 75 66 66 25 2b 31 3a 72 |f%:gb%=buff%+1:r|
0000c640 62 25 3d 62 75 66 66 25 2b 32 3a 72 24 3d 22 46 |b%=buff%+2:r$="F|
0000c650 4e 32 30 30 32 22 0d 3c 28 05 cc 0d 3c 32 39 de |N2002".<(...<29.|
0000c660 20 72 70 61 6c 25 28 32 35 35 29 2c 67 70 61 6c | rpal%(255),gpal|
0000c670 25 28 32 35 35 29 3a 69 6e 70 75 74 3d 31 36 3a |%(255):input=16:|
0000c680 73 74 65 70 32 34 3d 32 3a 72 24 3d 22 46 4e 32 |step24=2:r$="FN2|
0000c690 30 30 31 22 0d 3c 3c 0d e3 43 25 3d 30 b8 32 35 |001".<<..C%=0.25|
0000c6a0 35 0d 3c 46 26 67 70 61 6c 25 28 43 25 29 3d 28 |5.<F&gpal%(C%)=(|
0000c6b0 43 25 3e 3e 35 29 3c 3c 38 20 84 20 28 43 25 80 |C%>>5)<<8 . (C%.|
0000c6c0 33 31 29 3c 3c 31 36 0d 3c 50 25 72 70 61 6c 25 |31)<<16.<P%rpal%|
0000c6d0 28 43 25 29 3d 28 43 25 3e 3e 32 29 80 33 31 20 |(C%)=(C%>>2).31 |
0000c6e0 84 20 28 43 25 80 33 29 3c 3c 31 31 0d 3c 5a 05 |. (C%.3)<<11.<Z.|
0000c6f0 ed 0d 3c 64 31 e3 43 25 3d 30 b8 33 31 3a 72 25 |..<d1.C%=0.31:r%|
0000c700 28 43 25 29 3d 43 25 2f 33 31 2a 46 3a ed 3a 67 |(C%)=C%/31*F:.:g|
0000c710 25 28 29 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 |%()=r%():b%()=r%|
0000c720 28 29 0d 3c 6e 05 cd 0d 3c 78 05 cd 0d 3c 82 4d |().<n...<x...<.M|
0000c730 69 6e 66 6f 24 3d 22 54 72 75 65 76 69 73 69 6f |info$="Truevisio|
0000c740 6e 20 54 47 41 20 52 4c 45 20 69 6d 61 67 65 2c |n TGA RLE image,|
0000c750 20 22 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 | "+.sx%+" by "+.|
0000c760 73 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 22 2b |sy%+" pixels, "+|
0000c770 a4 62 69 74 73 28 42 25 29 0d 3c 8c 05 cb 0d 3c |.bits(B%).<....<|
0000c780 96 0a c9 20 32 31 30 30 0d 3c a0 3f 71 75 61 6e |... 2100.<.?quan|
0000c790 74 25 3d 36 3a 73 78 25 3d 35 31 32 3a 72 6f 77 |t%=6:sx%=512:row|
0000c7a0 62 79 74 65 73 25 3d 32 2a 73 78 25 3a 73 79 25 |bytes%=2*sx%:sy%|
0000c7b0 3d 32 35 36 3a 63 61 63 68 65 25 3d b9 3a 72 24 |=256:cache%=.:r$|
0000c7c0 3d 22 46 4e 31 36 22 0d 3c aa 2d de 20 72 70 61 |="FN16".<.-. rpa|
0000c7d0 6c 25 28 32 35 35 29 2c 67 70 61 6c 25 28 32 35 |l%(255),gpal%(25|
0000c7e0 35 29 3a 69 6e 70 75 74 3d 31 36 3a 73 74 65 70 |5):input=16:step|
0000c7f0 32 34 3d 32 0d 3c b4 0d e3 43 25 3d 30 b8 32 35 |24=2.<...C%=0.25|
0000c800 35 0d 3c be 20 67 70 61 6c 25 28 43 25 29 3d 43 |5.<. gpal%(C%)=C|
0000c810 25 3e 3e 33 20 84 20 28 43 25 80 37 29 3c 3c 31 |%>>3 . (C%.7)<<1|
0000c820 31 0d 3c c8 25 72 70 61 6c 25 28 43 25 29 3d 28 |1.<.%rpal%(C%)=(|
0000c830 43 25 80 37 29 3c 3c 38 20 84 20 28 43 25 3e 3e |C%.7)<<8 . (C%>>|
0000c840 33 29 3c 3c 31 36 0d 3c d2 05 ed 0d 3c dc 27 e3 |3)<<16.<....<.'.|
0000c850 43 25 3d 30 b8 33 31 3a 72 25 28 43 25 29 3d 43 |C%=0.31:r%(C%)=C|
0000c860 25 2f 33 31 2a 46 3a ed 3a 62 25 28 29 3d 72 25 |%/31*F:.:b%()=r%|
0000c870 28 29 0d 3c e6 1d e3 43 25 3d 30 b8 36 33 3a 67 |().<...C%=0.63:g|
0000c880 25 28 43 25 29 3d 43 25 2f 36 33 2a 46 3a ed 0d |%(C%)=C%/63*F:..|
0000c890 3c f0 19 e7 73 63 61 6c 65 25 20 79 6d 75 6c 25 |<...scale% ymul%|
0000c8a0 3d 79 6d 75 6c 25 2a 32 0d 3c fa 48 69 6e 66 6f |=ymul%*2.<.Hinfo|
0000c8b0 24 3d 22 50 69 6e 65 61 70 70 6c 65 20 69 6d 61 |$="Pineapple ima|
0000c8c0 67 65 2c 20 35 31 32 20 62 79 20 32 35 36 20 70 |ge, 512 by 256 p|
0000c8d0 69 78 65 6c 73 2c 20 31 36 20 62 69 74 73 20 70 |ixels, 16 bits p|
0000c8e0 65 72 20 70 69 78 65 6c 22 3a cf 23 63 25 3d 37 |er pixel":.#c%=7|
0000c8f0 0d 3d 04 0a c9 20 32 32 30 30 0d 3d 0e 39 71 75 |.=... 2200.=.9qu|
0000c900 61 6e 74 25 3d 38 3a 73 74 65 70 32 34 3d 31 3a |ant%=8:step24=1:|
0000c910 cf 23 63 25 3d 30 3a 73 24 3d be 23 63 25 3a 45 |.#c%=0:s$=.#c%:E|
0000c920 25 3d a7 73 24 2c 22 3a 22 29 3a 73 74 25 3d 8f |%=.s$,":"):st%=.|
0000c930 23 63 25 0d 3d 18 37 73 78 25 3d bb c1 73 24 2c |#c%.=.7sx%=..s$,|
0000c940 45 25 2b 31 29 3a 73 79 25 3d bb c1 73 24 2c 45 |E%+1):sy%=..s$,E|
0000c950 25 2b 32 2b a9 c3 73 78 25 29 3a f2 6e 6f 70 61 |%+2+..sx%):.nopa|
0000c960 6c 3a 69 6e 70 75 74 3d 32 34 0d 3d 22 41 72 6f |l:input=24.="Aro|
0000c970 77 62 79 74 65 73 25 3d 73 78 25 2a 33 3a 72 62 |wbytes%=sx%*3:rb|
0000c980 6f 25 3d 30 3a 67 62 6f 25 3d 73 78 25 3a 62 62 |o%=0:gbo%=sx%:bb|
0000c990 6f 25 3d 32 2a 73 78 25 3a 63 61 63 68 65 25 3d |o%=2*sx%:cache%=|
0000c9a0 b9 3a 72 24 3d 22 46 4e 32 34 22 0d 3d 2c 47 69 |.:r$="FN24".=,Gi|
0000c9b0 6e 66 6f 24 3d 22 49 72 6c 61 6d 20 69 6d 61 67 |nfo$="Irlam imag|
0000c9c0 65 2c 20 22 2b c3 73 78 25 2b 22 20 62 79 20 22 |e, "+.sx%+" by "|
0000c9d0 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 |+.sy%+" pixels, |
0000c9e0 32 34 20 62 69 74 73 20 70 65 72 20 70 69 78 65 |24 bits per pixe|
0000c9f0 6c 22 0d 3d 36 0a c9 20 32 32 35 30 0d 3d 40 48 |l".=6.. 2250.=@H|
0000ca00 cf 23 63 25 3d 31 36 3a 73 78 25 3d a4 57 3a 73 |.#c%=16:sx%=.W:s|
0000ca10 79 25 3d a4 57 3a de 20 72 70 61 6c 25 28 32 35 |y%=.W:. rpal%(25|
0000ca20 35 29 2c 67 70 61 6c 25 28 32 35 35 29 2c 62 70 |5),gpal%(255),bp|
0000ca30 61 6c 25 28 32 35 35 29 2c 74 61 62 6c 65 25 28 |al%(255),table%(|
0000ca40 32 35 35 29 0d 3d 4a 15 e3 43 25 3d 30 b8 32 35 |255).=J..C%=0.25|
0000ca50 35 3a 44 25 3d 43 25 84 31 0d 3d 54 1c 74 61 62 |5:D%=C%.1.=T.tab|
0000ca60 6c 65 25 28 43 25 29 3d 28 44 25 2d 31 36 29 2f |le%(C%)=(D%-16)/|
0000ca70 32 31 39 2a 46 0d 3d 5e 13 e7 44 25 80 31 32 38 |219*F.=^..D%.128|
0000ca80 20 44 25 2d 3d 32 35 36 0d 3d 68 29 72 25 28 43 | D%-=256.=h)r%(C|
0000ca90 25 29 3d a8 28 44 25 2f 31 36 30 2a 46 29 3a 62 |%)=.(D%/160*F):b|
0000caa0 25 28 43 25 29 3d a8 28 44 25 2f 31 32 36 2a 46 |%(C%)=.(D%/126*F|
0000cab0 29 0d 3d 72 3e 67 25 28 43 25 29 3d a8 28 2d 44 |).=r>g%(C%)=.(-D|
0000cac0 25 2f 31 36 30 2a 72 77 74 2f 67 77 74 2a 46 29 |%/160*rwt/gwt*F)|
0000cad0 3a 67 70 61 6c 25 28 43 25 29 3d a8 28 2d 44 25 |:gpal%(C%)=.(-D%|
0000cae0 2f 31 32 36 2a 62 77 74 2f 67 77 74 2a 46 29 0d |/126*bwt/gwt*F).|
0000caf0 3d 7c 05 ed 0d 3d 86 2c 74 61 62 6c 65 25 28 29 |=|...=.,table%()|
0000cb00 3d 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |=0,0,0,0,0,0,0,0|
0000cb10 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0,0,0,0,0|
0000cb20 0d 3d 90 35 73 74 25 3d 33 32 3a cf 23 63 25 3d |.=.5st%=32:.#c%=|
0000cb30 33 32 3a 63 61 63 68 65 25 3d b9 3a 72 6f 77 62 |32:cache%=.:rowb|
0000cb40 79 74 65 73 25 3d 32 2a 73 78 25 3a 69 6e 70 75 |ytes%=2*sx%:inpu|
0000cb50 74 3d 34 31 31 0d 3d 9a 3c 69 6e 66 6f 24 3d 22 |t=411.=.<info$="|
0000cb60 49 72 6c 61 6d 20 59 55 56 20 34 3a 31 3a 31 20 |Irlam YUV 4:1:1 |
0000cb70 66 69 6c 65 20 22 2b c3 73 78 25 2b 22 20 62 79 |file "+.sx%+" by|
0000cb80 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 | "+.sy%+" pixels|
0000cb90 22 0d 3d a4 0a c9 20 32 33 30 30 0d 3d ae 39 cf |".=... 2300.=.9.|
0000cba0 23 63 25 3d 36 3a 73 78 25 3d a4 48 57 3a 73 79 |#c%=6:sx%=.HW:sy|
0000cbb0 25 3d a4 48 57 3a 44 25 3d 9a 23 63 25 3a 6e 63 |%=.HW:D%=.#c%:nc|
0000cbc0 6f 6c 6f 72 73 25 3d 9a 23 63 25 3a 69 6e 70 75 |olors%=.#c%:inpu|
0000cbd0 74 3d 32 34 0d 3d b8 3b 76 66 6c 69 70 25 3d ac |t=24.=.;vflip%=.|
0000cbe0 76 66 6c 69 70 25 3a 71 75 61 6e 74 25 3d 9a 23 |vflip%:quant%=.#|
0000cbf0 63 25 3a 6e 63 6d 61 70 25 3d 9a 23 63 25 3a 63 |c%:ncmap%=.#c%:c|
0000cc00 6d 61 70 6c 65 6e 25 3d 31 3c 3c 9a 23 63 25 0d |maplen%=1<<.#c%.|
0000cc10 3d c2 21 f2 6e 6f 70 61 6c 3a 62 61 63 6b 25 3d |=.!.nopal:back%=|
0000cc20 a4 64 69 6d 28 34 29 3a 21 62 61 63 6b 25 3d 30 |.dim(4):!back%=0|
0000cc30 0d 3d cc 12 63 6c 72 66 69 72 73 74 25 3d 44 25 |.=..clrfirst%=D%|
0000cc40 80 31 0d 3d d6 0f e7 28 44 25 80 32 29 3d 30 20 |.1.=...(D%.2)=0 |
0000cc50 8c 0d 3d e0 24 e3 49 25 3d 30 b8 6e 63 6f 6c 6f |..=.$.I%=0.ncolo|
0000cc60 72 73 25 2d 31 3a 62 61 63 6b 25 3f 49 25 3d 9a |rs%-1:back%?I%=.|
0000cc70 23 63 25 3a ed 0d 3d ea 19 e7 28 6e 63 6f 6c 6f |#c%:..=...(ncolo|
0000cc80 72 73 25 80 31 29 3d 30 20 e7 9a 23 63 25 0d 3d |rs%.1)=0 ..#c%.=|
0000cc90 f4 05 cd 0d 3d fe 1a e7 44 25 80 34 20 61 6c 70 |....=...D%.4 alp|
0000cca0 68 61 25 3d a4 64 69 6d 28 73 78 25 29 0d 3e 08 |ha%=.dim(sx%).>.|
0000ccb0 0f e7 6e 63 6d 61 70 25 3e 30 20 8c 0d 3e 12 29 |..ncmap%>0 ..>.)|
0000ccc0 e3 49 25 3d 30 b8 63 6d 61 70 6c 65 6e 25 2d 31 |.I%=0.cmaplen%-1|
0000ccd0 3a 72 25 28 49 25 29 3d a4 48 57 2f 26 46 46 30 |:r%(I%)=.HW/&FF0|
0000cce0 30 2a 46 3a ed 0d 3e 1c 29 e3 49 25 3d 30 b8 63 |0*F:..>.).I%=0.c|
0000ccf0 6d 61 70 6c 65 6e 25 2d 31 3a 67 25 28 49 25 29 |maplen%-1:g%(I%)|
0000cd00 3d a4 48 57 2f 26 46 46 30 30 2a 46 3a ed 0d 3e |=.HW/&FF00*F:..>|
0000cd10 26 29 e3 49 25 3d 30 b8 63 6d 61 70 6c 65 6e 25 |&).I%=0.cmaplen%|
0000cd20 2d 31 3a 62 25 28 49 25 29 3d a4 48 57 2f 26 46 |-1:b%(I%)=.HW/&F|
0000cd30 46 30 30 2a 46 3a ed 0d 3e 30 05 cd 0d 3e 3a 0b |F00*F:..>0...>:.|
0000cd40 e7 44 25 80 38 20 8c 0d 3e 44 25 cf 23 63 25 3d |.D%.8 ..>D%.#c%=|
0000cd50 a4 48 57 2b 8f 23 63 25 3a e7 8f 23 63 25 80 31 |.HW+.#c%:..#c%.1|
0000cd60 20 8f 23 63 25 3d 8f 23 63 25 2b 31 0d 3e 4e 05 | .#c%=.#c%+1.>N.|
0000cd70 cd 0d 3e 58 48 73 74 25 3d 8f 23 63 25 3a 62 75 |..>XHst%=.#c%:bu|
0000cd80 66 66 25 3d a4 64 69 6d 28 73 78 25 2a 33 29 3a |ff%=.dim(sx%*3):|
0000cd90 72 62 25 3d 62 75 66 66 25 3a 67 62 25 3d 62 75 |rb%=buff%:gb%=bu|
0000cda0 66 66 25 2b 31 2a 73 78 25 3a 62 62 25 3d 62 75 |ff%+1*sx%:bb%=bu|
0000cdb0 66 66 25 2b 32 2a 73 78 25 0d 3e 62 0b f2 72 65 |ff%+2*sx%.>b..re|
0000cdc0 77 69 6e 64 0d 3e 6c 50 69 6e 66 6f 24 3d 22 55 |wind.>lPinfo$="U|
0000cdd0 74 61 68 20 72 6c 65 20 69 6d 61 67 65 2c 20 22 |tah rle image, "|
0000cde0 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 |+.sx%+" by "+.sy|
0000cdf0 25 2b 22 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 |%+" pixels, "+.b|
0000ce00 69 74 73 28 6e 63 6f 6c 6f 72 73 25 2a 71 75 61 |its(ncolors%*qua|
0000ce10 6e 74 25 29 0d 3e 76 0a c9 20 32 34 30 30 0d 3e |nt%).>v.. 2400.>|
0000ce20 80 32 cf 23 63 25 3d 72 69 66 66 6f 66 66 25 2b |.2.#c%=riffoff%+|
0000ce30 26 30 61 3a 73 74 25 3d a4 57 3a 70 61 6c 25 3d |&0a:st%=.W:pal%=|
0000ce40 a4 57 3a 73 78 25 3d a4 57 3a 73 79 25 3d a4 57 |.W:sx%=.W:sy%=.W|
0000ce50 0d 3e 8a 0d c8 8e 20 70 61 6c 25 20 ca 0d 3e 94 |.>.... pal% ..>.|
0000ce60 08 c9 20 31 32 0d 3e 9e 2d cf 23 63 25 3d 72 69 |.. 12.>.-.#c%=ri|
0000ce70 66 66 6f 66 66 25 2b 26 31 38 3a 69 6e 70 75 74 |ffoff%+&18:input|
0000ce80 3d a4 48 57 3a 63 6f 6d 70 72 65 73 73 69 6f 6e |=.HW:compression|
0000ce90 3d 30 0d 3e a8 08 c9 20 34 30 0d 3e b2 2e cf 23 |=0.>... 40.>...#|
0000cea0 63 25 3d 72 69 66 66 6f 66 66 25 2b 26 31 63 3a |c%=riffoff%+&1c:|
0000ceb0 69 6e 70 75 74 3d a4 48 57 3a 63 6f 6d 70 72 65 |input=.HW:compre|
0000cec0 73 73 69 6f 6e 3d a4 57 0d 3e bc 25 cf 23 63 25 |ssion=.W.>.%.#c%|
0000ced0 3d 72 69 66 66 6f 66 66 25 2b 26 32 36 3a 78 70 |=riffoff%+&26:xp|
0000cee0 70 6d 3d a4 57 3a 79 70 70 6d 3d a4 57 0d 3e c6 |pm=.W:yppm=.W.>.|
0000cef0 25 e7 20 78 70 70 6d 3c 3e 30 20 80 20 79 70 70 |%. xppm<>0 . ypp|
0000cf00 6d 3c 3e 30 20 80 20 73 63 61 6c 65 25 3c 3e 30 |m<>0 . scale%<>0|
0000cf10 20 8c 0d 3e d0 25 78 64 69 76 25 3d 78 64 69 76 | ..>.%xdiv%=xdiv|
0000cf20 25 2a 78 70 70 6d 3a 78 6d 75 6c 25 3d 78 6d 75 |%*xppm:xmul%=xmu|
0000cf30 6c 25 2a 33 35 34 33 0d 3e da 25 79 64 69 76 25 |l%*3543.>.%ydiv%|
0000cf40 3d 79 64 69 76 25 2a 79 70 70 6d 3a 79 6d 75 6c |=ydiv%*yppm:ymul|
0000cf50 25 3d 79 6d 75 6c 25 2a 33 35 34 33 0d 3e e4 05 |%=ymul%*3543.>..|
0000cf60 cd 0d 3e ee 05 7f 0d 3e f8 2b 85 20 34 32 2c 22 |..>....>.+. 42,"|
0000cf70 55 6e 6b 6e 6f 77 6e 20 2e 42 4d 50 20 76 61 72 |Unknown .BMP var|
0000cf80 69 61 6e 74 20 28 22 2b c3 70 61 6c 25 2b 22 29 |iant ("+.pal%+")|
0000cf90 22 0d 3f 02 05 cb 0d 3f 0c 22 62 69 67 65 6e 64 |".?....?."bigend|
0000cfa0 69 61 6e 62 69 74 73 3d b9 3a 76 66 6c 69 70 25 |ianbits=.:vflip%|
0000cfb0 3d ac 76 66 6c 69 70 25 0d 3f 16 0e c8 8e 20 69 |=.vflip%.?.... i|
0000cfc0 6e 70 75 74 20 ca 0d 3f 20 1a c9 20 31 3a 72 6f |nput ..? .. 1:ro|
0000cfd0 77 62 79 74 65 73 25 3d 73 78 25 2b 37 3e 3e 33 |wbytes%=sx%+7>>3|
0000cfe0 0d 3f 2a 1a c9 20 34 3a 72 6f 77 62 79 74 65 73 |.?*.. 4:rowbytes|
0000cff0 25 3d 73 78 25 2b 31 3e 3e 31 0d 3f 34 15 c9 20 |%=sx%+1>>1.?4.. |
0000d000 38 3a 72 6f 77 62 79 74 65 73 25 3d 73 78 25 0d |8:rowbytes%=sx%.|
0000d010 3f 3e 2b c9 20 31 36 3a 72 6f 77 62 79 74 65 73 |?>+. 16:rowbytes|
0000d020 25 3d 73 78 25 2a 32 3a 72 24 3d 22 46 4e 31 36 |%=sx%*2:r$="FN16|
0000d030 22 3a 73 74 65 70 32 34 3d 32 0d 3f 48 1b de 20 |":step24=2.?H.. |
0000d040 72 70 61 6c 25 28 32 35 35 29 2c 67 70 61 6c 25 |rpal%(255),gpal%|
0000d050 28 32 35 35 29 0d 3f 52 25 72 6d 61 73 6b 25 3d |(255).?R%rmask%=|
0000d060 26 37 63 30 30 3a 67 6d 61 73 6b 25 3d 34 32 3a |&7c00:gmask%=42:|
0000d070 62 6d 61 73 6b 25 3d 2d 34 32 0d 3f 5c 54 e7 63 |bmask%=-42.?\T.c|
0000d080 6f 6d 70 72 65 73 73 69 6f 6e 3d 33 20 8f 23 63 |ompression=3 .#c|
0000d090 25 3d 72 69 66 66 6f 66 66 25 2b 31 34 2b 70 61 |%=riffoff%+14+pa|
0000d0a0 6c 25 3a 72 6d 61 73 6b 25 3d a4 57 3a 67 6d 61 |l%:rmask%=.W:gma|
0000d0b0 73 6b 25 3d a4 57 3a 62 6d 61 73 6b 25 3d a4 57 |sk%=.W:bmask%=.W|
0000d0c0 3a 63 6f 6d 70 72 65 73 73 69 6f 6e 3d 30 0d 3f |:compression=0.?|
0000d0d0 66 13 e7 72 6d 61 73 6b 25 3d 26 37 63 30 30 20 |f..rmask%=&7c00 |
0000d0e0 8c 0d 3f 70 0d e3 43 25 3d 30 b8 32 35 35 0d 3f |..?p..C%=0.255.?|
0000d0f0 7a 26 67 70 61 6c 25 28 43 25 29 3d 28 43 25 3e |z&gpal%(C%)=(C%>|
0000d100 3e 35 29 3c 3c 38 20 84 20 28 43 25 80 33 31 29 |>5)<<8 . (C%.31)|
0000d110 3c 3c 31 36 0d 3f 84 25 72 70 61 6c 25 28 43 25 |<<16.?.%rpal%(C%|
0000d120 29 3d 28 43 25 3e 3e 32 29 80 33 31 20 84 20 28 |)=(C%>>2).31 . (|
0000d130 43 25 80 33 29 3c 3c 31 31 0d 3f 8e 05 ed 0d 3f |C%.3)<<11.?....?|
0000d140 98 31 e3 43 25 3d 30 b8 33 31 3a 72 25 28 43 25 |.1.C%=0.31:r%(C%|
0000d150 29 3d 43 25 2f 33 31 2a 46 3a ed 3a 67 25 28 29 |)=C%/31*F:.:g%()|
0000d160 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d |=r%():b%()=r%().|
0000d170 3f a2 05 cd 0d 3f ac 13 e7 72 6d 61 73 6b 25 3d |?....?...rmask%=|
0000d180 26 66 38 30 30 20 8c 0d 3f b6 0d e3 43 25 3d 30 |&f800 ..?...C%=0|
0000d190 b8 32 35 35 0d 3f c0 26 67 70 61 6c 25 28 43 25 |.255.?.&gpal%(C%|
0000d1a0 29 3d 28 43 25 3e 3e 35 29 3c 3c 38 20 84 20 28 |)=(C%>>5)<<8 . (|
0000d1b0 43 25 80 33 31 29 3c 3c 31 36 0d 3f ca 25 72 70 |C%.31)<<16.?.%rp|
0000d1c0 61 6c 25 28 43 25 29 3d 28 43 25 3e 3e 33 29 80 |al%(C%)=(C%>>3).|
0000d1d0 33 31 20 84 20 28 43 25 80 37 29 3c 3c 31 31 0d |31 . (C%.7)<<11.|
0000d1e0 3f d4 05 ed 0d 3f de 27 e3 43 25 3d 30 b8 33 31 |?....?.'.C%=0.31|
0000d1f0 3a 72 25 28 43 25 29 3d 43 25 2f 33 31 2a 46 3a |:r%(C%)=C%/31*F:|
0000d200 ed 3a 62 25 28 29 3d 72 25 28 29 0d 3f e8 1d e3 |.:b%()=r%().?...|
0000d210 43 25 3d 30 b8 36 33 3a 67 25 28 43 25 29 3d 43 |C%=0.63:g%(C%)=C|
0000d220 25 2f 36 33 2a 46 3a ed 0d 3f f2 05 cd 0d 3f fc |%/63*F:..?....?.|
0000d230 0b c9 20 32 34 2c 33 32 0d 40 06 22 72 62 6f 25 |.. 24,32.@."rbo%|
0000d240 3d 32 3a 67 62 6f 25 3d 31 3a 62 62 6f 25 3d 30 |=2:gbo%=1:bbo%=0|
0000d250 3a 72 24 3d 22 46 4e 32 34 22 0d 40 10 33 e3 43 |:r$="FN24".@.3.C|
0000d260 25 3d 30 b8 32 35 35 3a 72 25 28 43 25 29 3d 43 |%=0.255:r%(C%)=C|
0000d270 25 2f 32 35 35 2a 46 3a ed 3a 67 25 28 29 3d 72 |%/255*F:.:g%()=r|
0000d280 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d 40 1a |%():b%()=r%().@.|
0000d290 31 72 24 3d 22 46 4e 32 34 22 3a 73 74 65 70 32 |1r$="FN24":step2|
0000d2a0 34 3d 69 6e 70 75 74 2f 38 3a 72 6f 77 62 79 74 |4=input/8:rowbyt|
0000d2b0 65 73 25 3d 73 78 25 2a 73 74 65 70 32 34 0d 40 |es%=sx%*step24.@|
0000d2c0 24 22 72 6d 61 73 6b 25 3d 2d 31 3a 67 6d 61 73 |$"rmask%=-1:gmas|
0000d2d0 6b 25 3d 34 32 3a 62 6d 61 73 6b 25 3d 2d 34 32 |k%=42:bmask%=-42|
0000d2e0 0d 40 2e 54 e7 63 6f 6d 70 72 65 73 73 69 6f 6e |.@.T.compression|
0000d2f0 3d 33 20 8f 23 63 25 3d 72 69 66 66 6f 66 66 25 |=3 .#c%=riffoff%|
0000d300 2b 31 34 2b 70 61 6c 25 3a 72 6d 61 73 6b 25 3d |+14+pal%:rmask%=|
0000d310 a4 57 3a 67 6d 61 73 6b 25 3d a4 57 3a 62 6d 61 |.W:gmask%=.W:bma|
0000d320 73 6b 25 3d a4 57 3a 63 6f 6d 70 72 65 73 73 69 |sk%=.W:compressi|
0000d330 6f 6e 3d 30 0d 40 38 25 e7 72 6d 61 73 6b 25 3d |on=0.@8%.rmask%=|
0000d340 26 46 46 20 8c 72 62 6f 25 3d 30 3a 67 62 6f 25 |&FF .rbo%=0:gbo%|
0000d350 3d 31 3a 62 62 6f 25 3d 32 0d 40 42 25 e7 67 6d |=1:bbo%=2.@B%.gm|
0000d360 61 73 6b 25 3d 26 46 46 20 8c 67 62 6f 25 3d 30 |ask%=&FF .gbo%=0|
0000d370 3a 62 62 6f 25 3d 31 3a 72 62 6f 25 3d 32 0d 40 |:bbo%=1:rbo%=2.@|
0000d380 4c 25 e7 62 6d 61 73 6b 25 3d 26 46 46 20 8c 62 |L%.bmask%=&FF .b|
0000d390 62 6f 25 3d 30 3a 67 62 6f 25 3d 31 3a 72 62 6f |bo%=0:gbo%=1:rbo|
0000d3a0 25 3d 32 0d 40 56 0c 69 6e 70 75 74 3d 32 34 0d |%=2.@V.input=24.|
0000d3b0 40 60 34 7f 20 85 20 34 32 2c 22 2e 42 4d 50 20 |@`4. . 42,".BMP |
0000d3c0 66 69 6c 65 20 6f 66 20 75 6e 75 73 75 61 6c 20 |file of unusual |
0000d3d0 64 65 70 74 68 20 28 22 2b c3 69 6e 70 75 74 2b |depth ("+.input+|
0000d3e0 22 29 22 0d 40 6a 05 cb 0d 40 74 0f e7 69 6e 70 |")".@j...@t..inp|
0000d3f0 75 74 3c 3d 38 20 8c 0d 40 7e 22 cf 23 63 25 3d |ut<=8 ..@~".#c%=|
0000d400 72 69 66 66 6f 66 66 25 2b 31 34 2b 70 61 6c 25 |riffoff%+14+pal%|
0000d410 3a 72 24 3d 22 46 4e 38 22 0d 40 88 13 e3 43 25 |:r$="FN8".@...C%|
0000d420 3d 30 b8 32 5e 69 6e 70 75 74 2d 31 0d 40 92 3f |=0.2^input-1.@.?|
0000d430 62 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 2a |b%(C%)=.#c%/255*|
0000d440 46 3a 67 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 |F:g%(C%)=.#c%/25|
0000d450 35 2a 46 3a 72 25 28 43 25 29 3d 9a 23 63 25 2f |5*F:r%(C%)=.#c%/|
0000d460 32 35 35 2a 46 3a e7 9a 23 63 25 0d 40 9c 05 ed |255*F:..#c%.@...|
0000d470 0d 40 a6 05 cd 0d 40 b0 14 c8 8e 20 63 6f 6d 70 |.@....@.... comp|
0000d480 72 65 73 73 69 6f 6e 20 ca 0d 40 ba 1d c9 20 30 |ression ..@... 0|
0000d490 3a 69 6e 66 6f 24 3d 22 55 6e 63 6f 6d 70 72 65 |:info$="Uncompre|
0000d4a0 73 73 65 64 20 22 0d 40 c4 2c c9 20 31 3a 69 6e |ssed ".@.,. 1:in|
0000d4b0 66 6f 24 3d 22 52 4c 45 38 20 63 6f 6d 70 72 65 |fo$="RLE8 compre|
0000d4c0 73 73 65 64 20 22 3a 72 24 3d 22 46 4e 32 34 30 |ssed ":r$="FN240|
0000d4d0 31 22 0d 40 ce 2c c9 20 32 3a 69 6e 66 6f 24 3d |1".@.,. 2:info$=|
0000d4e0 22 52 4c 45 34 20 63 6f 6d 70 72 65 73 73 65 64 |"RLE4 compressed|
0000d4f0 20 22 3a 72 24 3d 22 46 4e 32 34 30 32 22 0d 40 | ":r$="FN2402".@|
0000d500 d8 43 7f 20 85 20 34 32 2c 22 2e 42 4d 50 20 63 |.C. . 42,".BMP c|
0000d510 6f 6d 70 72 65 73 73 69 6f 6e 20 74 79 70 65 20 |ompression type |
0000d520 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 28 22 |not supported ("|
0000d530 2b c3 63 6f 6d 70 72 65 73 73 69 6f 6e 2b 22 29 |+.compression+")|
0000d540 22 0d 40 e2 05 cb 0d 40 ec 1c 72 6f 77 62 79 74 |".@....@..rowbyt|
0000d550 65 73 25 3d 72 6f 77 62 79 74 65 73 25 2b 33 80 |es%=rowbytes%+3.|
0000d560 ac 33 0d 40 f6 3a e7 20 63 6f 6d 70 72 65 73 73 |.3.@.:. compress|
0000d570 69 6f 6e 3c 3e 30 20 63 61 63 68 65 62 79 74 65 |ion<>0 cachebyte|
0000d580 73 25 3d b9 3a 70 6c 62 75 66 66 25 3d a4 64 69 |s%=.:plbuff%=.di|
0000d590 6d 28 72 6f 77 62 79 74 65 73 25 29 0d 41 00 1e |m(rowbytes%).A..|
0000d5a0 63 61 63 68 65 25 3d b9 3a cf 23 63 25 3d 72 69 |cache%=.:.#c%=ri|
0000d5b0 66 66 6f 66 66 25 2b 73 74 25 0d 41 0a 4f 69 6e |ffoff%+st%.A.Oin|
0000d5c0 66 6f 24 2b 3d 22 57 69 6e 64 6f 77 73 20 33 2e |fo$+="Windows 3.|
0000d5d0 30 20 2e 42 4d 50 20 69 6d 61 67 65 2c 20 22 2b |0 .BMP image, "+|
0000d5e0 c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 |.sx%+" by "+.sy%|
0000d5f0 2b 22 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 |+" pixels, "+.bi|
0000d600 74 73 28 69 6e 70 75 74 29 0d 41 14 0a c9 20 32 |ts(input).A... 2|
0000d610 35 30 30 0d 41 1e 32 cf 23 63 25 3d 30 3a 73 24 |500.A.2.#c%=0:s$|
0000d620 3d 22 22 3a 43 25 3d 9a 23 63 25 3a c8 95 43 25 |="":C%=.#c%:..C%|
0000d630 3c 3e 30 20 73 24 2b 3d bd 43 25 3a 43 25 3d 9a |<>0 s$+=.C%:C%=.|
0000d640 23 63 25 3a ce 0d 41 28 37 73 24 2b 3d 22 20 76 |#c%:..A(7s$+=" v|
0000d650 65 72 73 69 6f 6e 20 22 2b c3 a4 57 3a 73 78 25 |ersion "+..W:sx%|
0000d660 3d a4 57 3a 73 79 25 3d a4 57 3a 69 6e 70 75 74 |=.W:sy%=.W:input|
0000d670 3d a4 57 3a 63 61 63 68 65 25 3d b9 0d 41 32 5f |=.W:cache%=..A2_|
0000d680 69 6e 66 6f 24 3d 22 21 54 72 61 6e 73 6c 61 74 |info$="!Translat|
0000d690 6f 72 20 43 6c 65 61 72 20 66 6f 72 6d 61 74 20 |or Clear format |
0000d6a0 6d 61 64 65 20 62 79 20 22 2b 73 24 2b 22 2c 20 |made by "+s$+", |
0000d6b0 22 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 |"+.sx%+" by "+.s|
0000d6c0 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 22 2b a4 |y%+" pixels, "+.|
0000d6d0 62 69 74 73 28 69 6e 70 75 74 29 0d 41 3c 0e e7 |bits(input).A<..|
0000d6e0 69 6e 70 75 74 3e 38 20 8c 0d 41 46 4b f2 6e 6f |input>8 ..AFK.no|
0000d6f0 70 61 6c 3a 69 6e 70 75 74 3d 32 34 3a 73 74 65 |pal:input=24:ste|
0000d700 70 32 34 3d 33 3a 72 6f 77 62 79 74 65 73 25 3d |p24=3:rowbytes%=|
0000d710 33 2a 73 78 25 3a 72 62 6f 25 3d 30 3a 67 62 6f |3*sx%:rbo%=0:gbo|
0000d720 25 3d 31 3a 62 62 6f 25 3d 32 3a 72 24 3d 22 46 |%=1:bbo%=2:r$="F|
0000d730 4e 32 34 22 0d 41 50 05 cc 0d 41 5a 13 e3 43 25 |N24".AP...AZ..C%|
0000d740 3d 30 b8 32 5e 69 6e 70 75 74 2d 31 0d 41 64 39 |=0.2^input-1.Ad9|
0000d750 72 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 35 2a |r%(C%)=.#c%/255*|
0000d760 46 3a 67 25 28 43 25 29 3d 9a 23 63 25 2f 32 35 |F:g%(C%)=.#c%/25|
0000d770 35 2a 46 3a 62 25 28 43 25 29 3d 9a 23 63 25 2f |5*F:b%(C%)=.#c%/|
0000d780 32 35 35 2a 46 0d 41 6e 05 ed 0d 41 78 22 69 6e |255*F.An...Ax"in|
0000d790 70 75 74 3d 38 3a 72 24 3d 22 46 4e 38 22 3a 72 |put=8:r$="FN8":r|
0000d7a0 6f 77 62 79 74 65 73 25 3d 73 78 25 0d 41 82 05 |owbytes%=sx%.A..|
0000d7b0 cd 0d 41 8c 0c 73 74 25 3d 8f 23 63 25 0d 41 96 |..A..st%=.#c%.A.|
0000d7c0 0a c9 20 32 36 30 30 0d 41 a0 12 cf 23 63 25 3d |.. 2600.A...#c%=|
0000d7d0 30 3a 43 25 3d 9a 23 63 25 0d 41 aa 13 44 25 3d |0:C%=.#c%.A..D%=|
0000d7e0 9a 23 63 25 3a c8 8e 20 44 25 20 ca 0d 41 b4 21 |.#c%:.. D% ..A.!|
0000d7f0 c9 20 30 3a 73 78 25 3d 33 32 30 3a 73 79 25 3d |. 0:sx%=320:sy%=|
0000d800 32 30 30 3a 70 6c 61 6e 65 73 25 3d 34 0d 41 be |200:planes%=4.A.|
0000d810 21 c9 20 31 3a 73 78 25 3d 36 34 30 3a 73 79 25 |!. 1:sx%=640:sy%|
0000d820 3d 32 30 30 3a 70 6c 61 6e 65 73 25 3d 32 0d 41 |=200:planes%=2.A|
0000d830 c8 21 c9 20 32 3a 73 78 25 3d 36 34 30 3a 73 79 |.!. 2:sx%=640:sy|
0000d840 25 3d 34 30 30 3a 70 6c 61 6e 65 73 25 3d 31 0d |%=400:planes%=1.|
0000d850 41 d2 3f 7f 20 85 34 32 2c 22 43 68 61 6e 67 65 |A.?. .42,"Change|
0000d860 46 53 49 20 6b 6e 6f 77 73 20 6e 6f 74 68 69 6e |FSI knows nothin|
0000d870 67 20 6f 66 20 22 2b c3 43 25 2b 22 20 74 79 70 |g of "+.C%+" typ|
0000d880 65 20 44 65 67 61 73 20 66 69 6c 65 73 22 0d 41 |e Degas files".A|
0000d890 dc 05 cb 0d 41 e6 5d e3 49 25 3d 30 b8 28 31 3c |....A.].I%=0.(1<|
0000d8a0 3c 69 6e 70 75 74 29 2d 31 3a 44 25 3d a4 62 65 |<input)-1:D%=.be|
0000d8b0 48 57 3a 72 25 28 49 25 29 3d 28 44 25 3e 3e 38 |HW:r%(I%)=(D%>>8|
0000d8c0 80 37 29 2f 37 2a 46 3a 67 25 28 49 25 29 3d 28 |.7)/7*F:g%(I%)=(|
0000d8d0 44 25 3e 3e 34 80 37 29 2f 37 2a 46 3a 62 25 28 |D%>>4.7)/7*F:b%(|
0000d8e0 49 25 29 3d 28 44 25 80 37 29 2f 37 2a 46 3a ed |I%)=(D%.7)/7*F:.|
0000d8f0 0d 41 f0 3c 63 61 63 68 65 25 3d b9 3a 70 6c 61 |.A.<cache%=.:pla|
0000d900 6e 61 72 25 3d b9 3a 6d 61 73 6b 69 6e 67 25 3d |nar%=.:masking%=|
0000d910 a3 3a 73 74 25 3d 33 34 3a cf 23 63 25 3d 33 34 |.:st%=34:.#c%=34|
0000d920 3a 72 24 3d 22 46 4e 31 36 30 30 22 0d 41 fa 48 |:r$="FN1600".A.H|
0000d930 72 6f 77 62 79 74 65 73 25 3d 28 73 78 25 2b 31 |rowbytes%=(sx%+1|
0000d940 35 3e 3e 34 29 3c 3c 31 3a 70 6c 62 79 74 65 73 |5>>4)<<1:plbytes|
0000d950 25 3d 72 6f 77 62 79 74 65 73 25 2a 70 6c 61 6e |%=rowbytes%*plan|
0000d960 65 73 25 3a 70 62 75 66 66 25 3d a4 64 69 6d 28 |es%:pbuff%=.dim(|
0000d970 73 78 25 29 0d 42 04 6a e7 43 25 80 31 32 38 20 |sx%).B.j.C%.128 |
0000d980 72 24 3d 22 46 4e 31 36 30 31 22 3a 66 6c 61 67 |r$="FN1601":flag|
0000d990 3d 31 36 30 30 3a 63 61 63 68 65 62 79 74 65 73 |=1600:cachebytes|
0000d9a0 25 3d b9 3a 70 6c 62 75 66 66 25 3d a4 64 69 6d |%=.:plbuff%=.dim|
0000d9b0 28 70 6c 62 79 74 65 73 25 29 20 8b 72 65 61 6c |(plbytes%) .real|
0000d9c0 72 6f 77 62 79 74 65 73 25 3d 32 3a 72 6f 77 62 |rowbytes%=2:rowb|
0000d9d0 79 74 65 73 25 3d 70 6c 62 79 74 65 73 25 0d 42 |ytes%=plbytes%.B|
0000d9e0 0e 43 69 6e 66 6f 24 3d 22 44 65 67 61 73 20 66 |.Cinfo$="Degas f|
0000d9f0 69 6c 65 20 22 2b c3 73 78 25 2b 22 20 62 79 20 |ile "+.sx%+" by |
0000da00 22 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 2c |"+.sy%+" pixels,|
0000da10 20 22 2b a4 62 69 74 73 28 70 6c 61 6e 65 73 25 | "+.bits(planes%|
0000da20 29 0d 42 18 0a c9 20 32 37 30 30 0d 42 22 1a cf |).B... 2700.B"..|
0000da30 23 63 25 3d 34 3a 73 78 25 3d a4 48 57 3a 73 79 |#c%=4:sx%=.HW:sy|
0000da40 25 3d a4 48 57 0d 42 2c 0c c8 8e 20 a4 48 57 20 |%=.HW.B,... .HW |
0000da50 ca 0d 42 36 32 c9 20 26 41 46 3a 72 6f 77 62 79 |..B62. &AF:rowby|
0000da60 74 65 73 25 3d 73 78 25 3a 63 61 63 68 65 25 3d |tes%=sx%:cache%=|
0000da70 b9 3a 72 24 3d 22 46 4e 38 22 3a 73 74 25 3d 26 |.:r$="FN8":st%=&|
0000da80 33 30 41 0d 42 40 52 7f 20 d9 23 63 25 3a 85 20 |30A.B@R. .#c%:. |
0000da90 34 32 2c 22 50 61 6e 69 63 20 69 6e 20 43 6f 6c |42,"Panic in Col|
0000daa0 6f 52 49 58 20 72 65 61 64 69 6e 67 20 2d 20 43 |oRIX reading - C|
0000dab0 68 61 6e 67 65 46 53 49 20 6c 61 72 67 65 6c 79 |hangeFSI largely|
0000dac0 20 69 67 6e 6f 72 61 6e 74 20 6f 66 20 66 6f 72 | ignorant of for|
0000dad0 6d 61 74 21 22 0d 42 4a 05 cb 0d 42 54 13 e3 43 |mat!".BJ...BT..C|
0000dae0 25 3d 30 b8 32 5e 69 6e 70 75 74 2d 31 0d 42 5e |%=0.2^input-1.B^|
0000daf0 36 72 25 28 43 25 29 3d 9a 23 63 25 2f 36 33 2a |6r%(C%)=.#c%/63*|
0000db00 46 3a 67 25 28 43 25 29 3d 9a 23 63 25 2f 36 33 |F:g%(C%)=.#c%/63|
0000db10 2a 46 3a 62 25 28 43 25 29 3d 9a 23 63 25 2f 36 |*F:b%(C%)=.#c%/6|
0000db20 33 2a 46 0d 42 68 05 ed 0d 42 72 0c cf 23 63 25 |3*F.Bh...Br..#c%|
0000db30 3d 73 74 25 0d 42 7c 43 69 6e 66 6f 24 3d 22 43 |=st%.B|Cinfo$="C|
0000db40 6f 6c 6f 52 49 58 20 66 69 6c 65 20 22 2b c3 73 |oloRIX file "+.s|
0000db50 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 |x%+" by "+.sy%+"|
0000db60 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 | pixels, "+.bits|
0000db70 28 69 6e 70 75 74 29 0d 42 86 0a c9 20 32 38 30 |(input).B... 280|
0000db80 30 0d 42 90 21 cf 23 63 25 3d 30 3a f5 20 73 24 |0.B.!.#c%=0:. s$|
0000db90 3d a4 66 69 74 73 3a c8 8e 20 c0 73 24 2c 38 29 |=.fits:.. .s$,8)|
0000dba0 20 ca 0d 42 9a 51 c9 20 22 53 49 4d 50 4c 45 20 | ..B.Q. "SIMPLE |
0000dbb0 20 22 3a e7 c1 73 24 2c 33 30 2c 31 29 3c 3e 22 | ":..s$,30,1)<>"|
0000dbc0 54 22 20 85 34 32 2c 22 43 68 61 6e 67 65 46 53 |T" .42,"ChangeFS|
0000dbd0 49 20 63 61 6e 20 6f 6e 6c 79 20 72 65 61 64 20 |I can only read |
0000dbe0 53 69 6d 70 6c 65 20 46 49 54 53 20 66 6f 72 6d |Simple FITS form|
0000dbf0 61 74 22 0d 42 a4 1f c9 20 22 42 49 54 50 49 58 |at".B... "BITPIX|
0000dc00 20 20 22 3a 69 6e 70 75 74 3d bb c1 73 24 2c 31 | ":input=..s$,1|
0000dc10 30 29 0d 42 ae 4a c9 20 22 4e 41 58 49 53 20 20 |0).B.J. "NAXIS |
0000dc20 20 22 3a e7 bb c1 73 24 2c 31 30 29 3c 3e 32 20 | ":...s$,10)<>2 |
0000dc30 85 34 32 2c 22 43 68 61 6e 67 65 46 53 49 20 63 |.42,"ChangeFSI c|
0000dc40 61 6e 20 6f 6e 6c 79 20 72 65 61 64 20 32 64 20 |an only read 2d |
0000dc50 46 49 54 53 20 69 6d 61 67 65 73 22 0d 42 b8 1d |FITS images".B..|
0000dc60 c9 20 22 4e 41 58 49 53 31 20 20 22 3a 73 78 25 |. "NAXIS1 ":sx%|
0000dc70 3d bb c1 73 24 2c 31 30 29 0d 42 c2 1d c9 20 22 |=..s$,10).B... "|
0000dc80 4e 41 58 49 53 32 20 20 22 3a 73 79 25 3d bb c1 |NAXIS2 ":sy%=..|
0000dc90 73 24 2c 31 30 29 0d 42 cc 10 c9 20 22 45 4e 44 |s$,10).B... "END|
0000dca0 20 20 20 20 20 22 0d 42 d6 27 7f 20 e7 69 6e 66 | ".B.'. .inf|
0000dcb0 6f 25 20 f1 22 49 67 6e 6f 72 69 6e 67 20 46 49 |o% ."Ignoring FI|
0000dcc0 54 53 20 72 65 63 6f 72 64 20 22 73 24 0d 42 e0 |TS record "s$.B.|
0000dcd0 05 cb 0d 42 ea 16 fd c0 73 24 2c 38 29 3d 22 45 |...B....s$,8)="E|
0000dce0 4e 44 20 20 20 20 20 22 0d 42 f4 2e 73 74 25 3d |ND ".B..st%=|
0000dcf0 28 8f 23 63 25 81 32 38 38 30 20 2b 20 31 29 2a |(.#c%.2880 + 1)*|
0000dd00 32 38 38 30 3a 63 61 63 68 65 25 3d b9 3a cf 23 |2880:cache%=.:.#|
0000dd10 63 25 3d 73 74 25 0d 42 fe 0e c8 8e 20 69 6e 70 |c%=st%.B.... inp|
0000dd20 75 74 20 ca 0d 43 08 25 c9 20 38 3a 72 24 3d 22 |ut ..C.%. 8:r$="|
0000dd30 46 4e 38 22 3a 72 6f 77 62 79 74 65 73 25 3d 73 |FN8":rowbytes%=s|
0000dd40 78 25 3a f2 6e 6f 70 61 6c 0d 43 12 43 c9 20 31 |x%:.nopal.C.C. 1|
0000dd50 36 3a 72 6f 77 62 79 74 65 73 25 3d 32 2a 73 78 |6:rowbytes%=2*sx|
0000dd60 25 3a de 20 72 70 61 6c 25 28 32 35 35 29 2c 67 |%:. rpal%(255),g|
0000dd70 70 61 6c 25 28 32 35 35 29 3a 73 74 65 70 32 34 |pal%(255):step24|
0000dd80 3d 32 3a 72 24 3d 22 46 4e 31 36 22 0d 43 1c 0d |=2:r$="FN16".C..|
0000dd90 e3 43 25 3d 30 b8 32 35 35 0d 43 26 13 67 70 61 |.C%=0.255.C&.gpa|
0000dda0 6c 25 28 43 25 29 3d 43 25 3c 3c 38 0d 43 30 10 |l%(C%)=C%<<8.C0.|
0000ddb0 72 70 61 6c 25 28 43 25 29 3d 43 25 0d 43 3a 20 |rpal%(C%)=C%.C: |
0000ddc0 ed 3a 63 68 65 61 74 25 3d 30 3a e7 69 6e 76 65 |.:cheat%=0:.inve|
0000ddd0 72 74 25 20 63 68 65 61 74 25 3d 46 0d 43 44 65 |rt% cheat%=F.CDe|
0000dde0 e3 43 25 3d 30 b8 32 35 35 3a 72 25 28 43 25 29 |.C%=0.255:r%(C%)|
0000ddf0 3d 63 68 65 61 74 25 2b 43 25 2f 36 35 35 33 35 |=cheat%+C%/65535|
0000de00 2a 46 3a 67 25 28 43 25 29 3d 28 28 43 25 82 26 |*F:g%(C%)=((C%.&|
0000de10 38 30 29 3c 3c 38 29 2f 36 35 35 33 35 2a 46 3a |80)<<8)/65535*F:|
0000de20 62 25 28 43 25 29 3d 63 68 65 61 74 25 3a ed 3a |b%(C%)=cheat%:.:|
0000de30 72 77 74 3d 31 3a 67 77 74 3d 31 3a 62 77 74 3d |rwt=1:gwt=1:bwt=|
0000de40 31 0d 43 4e 51 7f 20 85 20 34 32 2c 22 43 68 61 |1.CNQ. . 42,"Cha|
0000de50 6e 67 65 46 53 49 20 63 61 6e 27 74 20 72 65 61 |ngeFSI can't rea|
0000de60 64 20 61 20 46 49 54 53 20 69 6d 61 67 65 20 77 |d a FITS image w|
0000de70 69 74 68 20 74 68 69 73 20 6e 75 6d 62 65 72 20 |ith this number |
0000de80 6f 66 20 62 69 74 73 20 70 65 72 20 70 69 78 65 |of bits per pixe|
0000de90 6c 22 0d 43 58 05 cb 0d 43 62 40 69 6e 66 6f 24 |l".CX...Cb@info$|
0000dea0 3d 22 46 49 54 53 20 66 69 6c 65 20 22 2b c3 73 |="FITS file "+.s|
0000deb0 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 |x%+" by "+.sy%+"|
0000dec0 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 | pixels, "+.bits|
0000ded0 28 69 6e 70 75 74 29 0d 43 6c 0a c9 20 32 39 30 |(input).Cl.. 290|
0000dee0 30 0d 43 76 3c cf 23 63 25 3d 34 3a 73 78 25 3d |0.Cv<.#c%=4:sx%=|
0000def0 a4 62 65 48 57 3a 73 79 25 3d a4 62 65 48 57 3a |.beHW:sy%=.beHW:|
0000df00 cf 23 63 25 3d 26 34 32 3a 69 6e 70 75 74 3d a4 |.#c%=&42:input=.|
0000df10 62 65 48 57 3a 43 25 3d a4 62 65 48 57 0d 43 80 |beHW:C%=.beHW.C.|
0000df20 3d 72 6f 77 62 79 74 65 73 25 3d a4 62 65 48 57 |=rowbytes%=.beHW|
0000df30 3a 43 25 3d a4 62 65 57 3a 73 74 25 3d a4 62 65 |:C%=.beW:st%=.be|
0000df40 57 3a cf 23 63 25 3d 73 74 25 3a 72 24 3d 22 46 |W:.#c%=st%:r$="F|
0000df50 4e 38 22 3a f2 6e 6f 70 61 6c 0d 43 8a 23 de 20 |N8":.nopal.C.#. |
0000df60 72 70 61 6c 25 28 31 35 29 2c 67 70 61 6c 25 28 |rpal%(15),gpal%(|
0000df70 31 35 29 2c 62 70 61 6c 25 28 31 35 29 0d 43 94 |15),bpal%(15).C.|
0000df80 49 72 70 61 6c 25 28 29 3d 26 65 36 2c 26 32 33 |Irpal%()=&e6,&23|
0000df90 2c 26 65 36 2c 26 37 66 2c 26 31 37 2c 26 30 30 |,&e6,&7f,&17,&00|
0000dfa0 2c 26 61 31 2c 26 34 35 2c 26 65 36 2c 26 34 61 |,&a1,&45,&e6,&4a|
0000dfb0 2c 26 65 36 2c 26 37 33 2c 26 36 65 2c 26 34 37 |,&e6,&73,&6e,&47|
0000dfc0 2c 26 38 61 2c 30 0d 43 9e 49 67 70 61 6c 25 28 |,&8a,0.C.Igpal%(|
0000dfd0 29 3d 26 65 36 2c 26 37 38 2c 26 30 30 2c 26 32 |)=&e6,&78,&00,&2|
0000dfe0 33 2c 26 61 31 2c 26 37 33 2c 26 32 65 2c 26 32 |3,&a1,&73,&2e,&2|
0000dff0 65 2c 26 63 38 2c 26 61 36 2c 26 37 35 2c 26 34 |e,&c8,&a6,&75,&4|
0000e000 30 2c 26 62 38 2c 26 37 38 2c 26 35 35 2c 30 0d |0,&b8,&78,&55,0.|
0000e010 43 a8 49 62 70 61 6c 25 28 29 3d 26 62 38 2c 26 |C.Ibpal%()=&b8,&|
0000e020 65 36 2c 26 30 30 2c 26 61 31 2c 26 31 37 2c 26 |e6,&00,&a1,&17,&|
0000e030 32 65 2c 26 30 63 2c 26 32 65 2c 26 30 30 2c 26 |2e,&0c,&2e,&00,&|
0000e040 63 36 2c 26 30 30 2c 26 65 36 2c 26 30 30 2c 26 |c6,&00,&e6,&00,&|
0000e050 30 30 2c 26 30 30 2c 30 0d 43 b2 6b e3 43 25 3d |00,&00,0.C.k.C%=|
0000e060 26 38 30 b8 26 38 46 3a 72 25 28 43 25 29 3d 72 |&80.&8F:r%(C%)=r|
0000e070 70 61 6c 25 28 43 25 2d 26 38 30 29 2f 32 35 35 |pal%(C%-&80)/255|
0000e080 2a 46 3a 67 25 28 43 25 29 3d 67 70 61 6c 25 28 |*F:g%(C%)=gpal%(|
0000e090 43 25 2d 26 38 30 29 2f 32 35 35 2a 46 3a 62 25 |C%-&80)/255*F:b%|
0000e0a0 28 43 25 29 3d 62 70 61 6c 25 28 43 25 2d 26 38 |(C%)=bpal%(C%-&8|
0000e0b0 30 29 2f 32 35 35 2a 46 3a ed 3a 63 61 63 68 65 |0)/255*F:.:cache|
0000e0c0 25 3d b9 0d 43 bc 46 69 6e 66 6f 24 3d 22 41 70 |%=..C.Finfo$="Ap|
0000e0d0 6f 6c 6c 6f 20 47 50 52 20 66 69 6c 65 20 22 2b |ollo GPR file "+|
0000e0e0 c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 |.sx%+" by "+.sy%|
0000e0f0 2b 22 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 |+" pixels, "+.bi|
0000e100 74 73 28 69 6e 70 75 74 29 0d 43 c6 0a c9 20 33 |ts(input).C... 3|
0000e110 30 30 30 0d 43 d0 48 73 78 25 3d 37 32 30 3a 73 |000.C.Hsx%=720:s|
0000e120 79 25 3d a2 23 63 25 2f 31 34 34 30 3a de 20 72 |y%=.#c%/1440:. r|
0000e130 70 61 6c 25 28 32 35 35 29 2c 67 70 61 6c 25 28 |pal%(255),gpal%(|
0000e140 32 35 35 29 2c 62 70 61 6c 25 28 32 35 35 29 2c |255),bpal%(255),|
0000e150 74 61 62 6c 65 25 28 32 35 35 29 0d 43 e4 08 e7 |table%(255).C...|
0000e160 a3 20 8c 0d 43 ee 0d e3 43 25 3d 30 b8 32 35 35 |. ..C...C%=0.255|
0000e170 0d 43 f8 1c 74 61 62 6c 65 25 28 43 25 29 3d 28 |.C..table%(C%)=(|
0000e180 43 25 2d 31 36 29 2f 32 31 39 2a 46 0d 44 02 3e |C%-16)/219*F.D.>|
0000e190 72 25 28 43 25 29 3d 28 43 25 2d 31 32 38 29 2f |r%(C%)=(C%-128)/|
0000e1a0 31 38 36 2a 30 2e 36 32 34 2a 46 3a 72 70 61 6c |186*0.624*F:rpal|
0000e1b0 25 28 43 25 29 3d 28 43 25 2d 31 32 38 29 2f 31 |%(C%)=(C%-128)/1|
0000e1c0 36 30 2a 30 2e 39 35 32 2a 46 0d 44 0c 3f 67 25 |60*0.952*F.D.?g%|
0000e1d0 28 43 25 29 3d 2d 28 43 25 2d 31 32 38 29 2f 31 |(C%)=-(C%-128)/1|
0000e1e0 38 36 2a 30 2e 36 34 2a 46 3a 67 70 61 6c 25 28 |86*0.64*F:gpal%(|
0000e1f0 43 25 29 3d 2d 28 43 25 2d 31 32 38 29 2f 31 36 |C%)=-(C%-128)/16|
0000e200 30 2a 30 2e 32 37 37 2a 46 0d 44 16 3d 62 25 28 |0*0.277*F.D.=b%(|
0000e210 43 25 29 3d 28 43 25 2d 31 32 38 29 2f 31 38 36 |C%)=(C%-128)/186|
0000e220 2a 31 2e 37 33 2a 46 3a 62 70 61 6c 25 28 43 25 |*1.73*F:bpal%(C%|
0000e230 29 3d 2d 28 43 25 2d 31 32 38 29 2f 31 36 30 2a |)=-(C%-128)/160*|
0000e240 31 2e 31 31 2a 46 0d 44 20 05 ed 0d 44 2a 05 cc |1.11*F.D ...D*..|
0000e250 0d 44 3e 0d e3 43 25 3d 30 b8 32 35 35 0d 44 48 |.D>..C%=0.255.DH|
0000e260 1c 74 61 62 6c 65 25 28 43 25 29 3d 28 43 25 2d |.table%(C%)=(C%-|
0000e270 31 36 29 2f 32 31 39 2a 46 0d 44 52 35 72 25 28 |16)/219*F.DR5r%(|
0000e280 43 25 29 3d a8 28 28 43 25 2d 31 32 38 29 2f 31 |C%)=.((C%-128)/1|
0000e290 36 30 2a 46 29 3a 62 25 28 43 25 29 3d a8 28 28 |60*F):b%(C%)=.((|
0000e2a0 43 25 2d 31 32 38 29 2f 31 32 36 2a 46 29 0d 44 |C%-128)/126*F).D|
0000e2b0 5c 4a 67 25 28 43 25 29 3d a8 28 2d 28 43 25 2d |\Jg%(C%)=.(-(C%-|
0000e2c0 31 32 38 29 2f 31 36 30 2a 72 77 74 2f 67 77 74 |128)/160*rwt/gwt|
0000e2d0 2a 46 29 3a 67 70 61 6c 25 28 43 25 29 3d a8 28 |*F):gpal%(C%)=.(|
0000e2e0 2d 28 43 25 2d 31 32 38 29 2f 31 32 36 2a 62 77 |-(C%-128)/126*bw|
0000e2f0 74 2f 67 77 74 2a 46 29 0d 44 66 05 ed 0d 44 70 |t/gwt*F).Df...Dp|
0000e300 05 cd 0d 44 7a 3c 74 61 62 6c 65 25 28 29 3d 2d |...Dz<table%()=-|
0000e310 31 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 |1,-1,-1,-1,-1,-1|
0000e320 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 2c |,-1,-1,-1,-1,-1,|
0000e330 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 0d 44 |-1,-1,-1,-1,-1.D|
0000e340 84 3a 73 74 25 3d 30 3a cf 23 63 25 3d 30 3a 63 |.:st%=0:.#c%=0:c|
0000e350 61 63 68 65 25 3d b9 3a 72 6f 77 62 79 74 65 73 |ache%=.:rowbytes|
0000e360 25 3d 31 34 34 30 3a 69 6e 70 75 74 3d 34 32 32 |%=1440:input=422|
0000e370 3a 67 61 6d 6d 61 3d 31 0d 44 8e 19 e7 73 63 61 |:gamma=1.D...sca|
0000e380 6c 65 25 20 79 6d 75 6c 25 3d 79 6d 75 6c 25 2a |le% ymul%=ymul%*|
0000e390 32 0d 44 98 3a 69 6e 66 6f 24 3d 22 43 43 49 52 |2.D.:info$="CCIR|
0000e3a0 36 30 31 20 34 3a 32 3a 32 20 66 69 6c 65 20 22 |601 4:2:2 file "|
0000e3b0 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 |+.sx%+" by "+.sy|
0000e3c0 25 2b 22 20 70 69 78 65 6c 73 22 0d 44 a2 0a c9 |%+" pixels".D...|
0000e3d0 20 33 31 30 30 0d 44 ac 24 71 75 61 6e 74 25 3d | 3100.D.$quant%=|
0000e3e0 38 3a cf 23 63 25 3d 30 3a 61 24 3d be 23 63 25 |8:.#c%=0:a$=.#c%|
0000e3f0 3a 73 74 25 3d 8f 23 63 25 0d 44 b6 20 73 78 25 |:st%=.#c%.D. sx%|
0000e400 3d bb 61 24 3a 73 79 25 3d bb 28 c1 61 24 2c a7 |=.a$:sy%=.(.a$,.|
0000e410 61 24 2c 22 20 22 29 29 29 0d 44 c0 2c f2 6e 6f |a$," "))).D.,.no|
0000e420 70 61 6c 3a 69 6e 70 75 74 3d 32 34 3a 73 74 65 |pal:input=24:ste|
0000e430 70 32 34 3d 33 3a 72 6f 77 62 79 74 65 73 25 3d |p24=3:rowbytes%=|
0000e440 73 78 25 2a 33 0d 44 ca 34 72 62 6f 25 3d 30 3a |sx%*3.D.4rbo%=0:|
0000e450 67 62 6f 25 3d 31 3a 62 62 6f 25 3d 32 3a 63 61 |gbo%=1:bbo%=2:ca|
0000e460 63 68 65 25 3d b9 3a 66 6c 61 67 3d 37 30 30 3a |che%=.:flag=700:|
0000e470 72 24 3d 22 46 4e 32 34 22 0d 44 d4 51 69 6e 66 |r$="FN24".D.Qinf|
0000e480 6f 24 3d 22 21 52 61 79 53 68 61 64 65 20 27 52 |o$="!RayShade 'R|
0000e490 47 42 27 20 69 6d 61 67 65 2c 20 22 2b c3 73 78 |GB' image, "+.sx|
0000e4a0 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 |%+" by "+.sy%+" |
0000e4b0 70 69 78 65 6c 73 2c 20 32 34 20 62 69 74 73 20 |pixels, 24 bits |
0000e4c0 70 65 72 20 70 69 78 65 6c 22 0d 44 de 0a c9 20 |per pixel".D... |
0000e4d0 33 32 30 30 0d 44 e8 19 71 75 61 6e 74 25 3d 38 |3200.D..quant%=8|
0000e4e0 3a cf 23 63 25 3d 30 3a 73 74 25 3d 30 0d 44 f2 |:.#c%=0:st%=0.D.|
0000e4f0 1a 73 78 25 3d bb c1 73 24 2c a7 73 24 2c 22 5f |.sx%=..s$,.s$,"_|
0000e500 22 29 2b 31 2c 31 29 0d 44 fc 0c c8 8e 20 73 78 |")+1,1).D.... sx|
0000e510 25 20 ca 0d 45 06 17 c9 20 35 3a 73 78 25 3d 37 |% ..E... 5:sx%=7|
0000e520 36 38 3a 73 79 25 3d 35 31 32 0d 45 10 19 c9 20 |68:sy%=512.E... |
0000e530 32 3a 73 78 25 3d 33 30 37 32 3a 73 79 25 3d 32 |2:sx%=3072:sy%=2|
0000e540 30 34 38 0d 45 1a 19 c9 20 31 3a 73 78 25 3d 31 |048.E... 1:sx%=1|
0000e550 35 33 36 3a 73 79 25 3d 31 30 32 34 0d 45 24 05 |536:sy%=1024.E$.|
0000e560 cb 0d 45 2e 2c f2 6e 6f 70 61 6c 3a 69 6e 70 75 |..E.,.nopal:inpu|
0000e570 74 3d 32 34 3a 73 74 65 70 32 34 3d 33 3a 72 6f |t=24:step24=3:ro|
0000e580 77 62 79 74 65 73 25 3d 73 78 25 2a 33 0d 45 38 |wbytes%=sx%*3.E8|
0000e590 34 72 62 6f 25 3d 30 3a 67 62 6f 25 3d 31 3a 62 |4rbo%=0:gbo%=1:b|
0000e5a0 62 6f 25 3d 32 3a 63 61 63 68 65 25 3d b9 3a 66 |bo%=2:cache%=.:f|
0000e5b0 6c 61 67 3d 37 30 30 3a 72 24 3d 22 46 4e 32 34 |lag=700:r$="FN24|
0000e5c0 22 0d 45 42 4c 69 6e 66 6f 24 3d 22 4b 6f 64 61 |".EBLinfo$="Koda|
0000e5d0 6b 20 2f 52 47 42 20 69 6d 61 67 65 2c 20 22 2b |k /RGB image, "+|
0000e5e0 c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 |.sx%+" by "+.sy%|
0000e5f0 2b 22 20 70 69 78 65 6c 73 2c 20 32 34 20 62 69 |+" pixels, 24 bi|
0000e600 74 73 20 70 65 72 20 70 69 78 65 6c 22 0d 45 4c |ts per pixel".EL|
0000e610 0a c9 20 33 33 30 30 0d 45 56 1a cf 23 63 25 3d |.. 3300.EV..#c%=|
0000e620 30 3a 69 6e 70 75 74 3d bb c1 a4 47 45 54 2c 32 |0:input=...GET,2|
0000e630 29 0d 45 60 37 73 24 3d a4 47 45 54 3a 73 78 25 |).E`7s$=.GET:sx%|
0000e640 3d bb 73 24 3a 73 79 25 3d bb c1 73 24 2c a7 73 |=.s$:sy%=..s$,.s|
0000e650 24 2c 22 20 22 29 29 3a e7 73 79 25 3d 30 20 73 |$," ")):.sy%=0 s|
0000e660 79 25 3d bb a4 47 45 54 0d 45 6a 17 63 61 63 68 |y%=..GET.Ej.cach|
0000e670 65 25 3d b9 3a c8 8e 20 69 6e 70 75 74 20 ca 0d |e%=.:.. input ..|
0000e680 45 74 44 c9 20 34 3a 69 6e 70 75 74 3d 31 3a 72 |EtD. 4:input=1:r|
0000e690 24 3d 22 46 4e 38 22 3a 72 25 28 30 29 3d 46 3a |$="FN8":r%(0)=F:|
0000e6a0 67 25 28 29 3d 72 25 28 29 3a 62 25 28 29 3d 72 |g%()=r%():b%()=r|
0000e6b0 25 28 29 3a 62 69 67 65 6e 64 69 61 6e 62 69 74 |%():bigendianbit|
0000e6c0 73 3d b9 0d 45 7e 17 72 6f 77 62 79 74 65 73 25 |s=..E~.rowbytes%|
0000e6d0 3d 28 73 78 25 2b 37 29 81 38 0d 45 88 21 c9 20 |=(sx%+7).8.E.!. |
0000e6e0 35 3a 69 6e 70 75 74 3d 38 3a 72 24 3d 22 46 4e |5:input=8:r$="FN|
0000e6f0 38 22 3a 45 25 3d bb a4 47 45 54 0d 45 92 31 e3 |8":E%=..GET.E.1.|
0000e700 43 25 3d 30 b8 45 25 3a 72 25 28 43 25 29 3d 43 |C%=0.E%:r%(C%)=C|
0000e710 25 2f 45 25 2a 46 3a ed 3a 67 25 28 29 3d 72 25 |%/E%*F:.:g%()=r%|
0000e720 28 29 3a 62 25 28 29 3d 72 25 28 29 0d 45 9c 11 |():b%()=r%().E..|
0000e730 72 6f 77 62 79 74 65 73 25 3d 73 78 25 0d 45 a6 |rowbytes%=sx%.E.|
0000e740 41 c9 20 36 3a 69 6e 70 75 74 3d 32 34 3a 72 24 |A. 6:input=24:r$|
0000e750 3d 22 46 4e 32 34 22 3a 45 25 3d bb a4 47 45 54 |="FN24":E%=..GET|
0000e760 3a 73 74 65 70 32 34 3d 33 3a 72 62 6f 25 3d 30 |:step24=3:rbo%=0|
0000e770 3a 67 62 6f 25 3d 31 3a 62 62 6f 25 3d 32 0d 45 |:gbo%=1:bbo%=2.E|
0000e780 b0 31 e3 43 25 3d 30 b8 45 25 3a 72 25 28 43 25 |.1.C%=0.E%:r%(C%|
0000e790 29 3d 43 25 2f 45 25 2a 46 3a ed 3a 67 25 28 29 |)=C%/E%*F:.:g%()|
0000e7a0 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d |=r%():b%()=r%().|
0000e7b0 45 ba 13 72 6f 77 62 79 74 65 73 25 3d 73 78 25 |E..rowbytes%=sx%|
0000e7c0 2a 33 0d 45 c4 05 cb 0d 45 ce 15 73 74 25 3d 8f |*3.E....E..st%=.|
0000e7d0 23 63 25 3a 66 6c 61 67 3d 37 30 30 0d 45 d8 42 |#c%:flag=700.E.B|
0000e7e0 69 6e 66 6f 24 2b 3d 22 70 62 6d 20 69 6d 61 67 |info$+="pbm imag|
0000e7f0 65 2c 20 22 2b c3 73 78 25 2b 22 20 62 79 20 22 |e, "+.sx%+" by "|
0000e800 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 2c 20 |+.sy%+" pixels, |
0000e810 22 2b a4 62 69 74 73 28 69 6e 70 75 74 29 0d 45 |"+.bits(input).E|
0000e820 e2 24 dd 20 a4 47 45 54 20 f5 73 24 3d be 23 63 |.$. .GET .s$=.#c|
0000e830 25 3a fd c0 73 24 2c 31 29 3c 3e 22 23 22 3a 3d |%:..s$,1)<>"#":=|
0000e840 73 24 0d 45 ec 0a c9 20 33 34 30 30 0d 45 f6 24 |s$.E... 3400.E.$|
0000e850 cf 23 63 25 3d 30 3a 73 24 3d a4 47 45 54 3a 69 |.#c%=0:s$=.GET:i|
0000e860 6e 70 75 74 3d 31 36 3a 71 75 61 6e 74 25 3d 35 |nput=16:quant%=5|
0000e870 0d 46 00 2e 73 24 3d a4 47 45 54 3a 73 78 25 3d |.F..s$=.GET:sx%=|
0000e880 bb 73 24 3a 73 79 25 3d bb c1 73 24 2c a7 73 24 |.s$:sy%=..s$,.s$|
0000e890 2c 22 20 22 29 29 3a 73 24 3d a4 47 45 54 0d 46 |," ")):s$=.GET.F|
0000e8a0 0a 2d de 20 72 70 61 6c 25 28 32 35 35 29 2c 67 |.-. rpal%(255),g|
0000e8b0 70 61 6c 25 28 32 35 35 29 3a 69 6e 70 75 74 3d |pal%(255):input=|
0000e8c0 31 36 3a 73 74 65 70 32 34 3d 32 0d 46 14 0d e3 |16:step24=2.F...|
0000e8d0 43 25 3d 30 b8 32 35 35 0d 46 1e 22 67 70 61 6c |C%=0.255.F."gpal|
0000e8e0 25 28 43 25 29 3d 28 43 25 3e 3e 35 29 3c 3c 38 |%(C%)=(C%>>5)<<8|
0000e8f0 20 84 20 28 43 25 80 33 31 29 0d 46 28 2b 72 70 | . (C%.31).F(+rp|
0000e900 61 6c 25 28 43 25 29 3d 28 28 43 25 3e 3e 32 29 |al%(C%)=((C%>>2)|
0000e910 80 33 31 29 3c 3c 31 36 20 84 20 28 43 25 80 33 |.31)<<16 . (C%.3|
0000e920 29 3c 3c 31 31 0d 46 32 05 ed 0d 46 3c 16 63 61 |)<<11.F2...F<.ca|
0000e930 63 68 65 25 3d b9 3a 72 24 3d 22 46 4e 31 36 22 |che%=.:r$="FN16"|
0000e940 0d 46 46 31 e3 43 25 3d 30 b8 33 31 3a 72 25 28 |.FF1.C%=0.31:r%(|
0000e950 43 25 29 3d 43 25 2f 33 31 2a 46 3a ed 3a 67 25 |C%)=C%/31*F:.:g%|
0000e960 28 29 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 |()=r%():b%()=r%(|
0000e970 29 0d 46 50 25 72 6f 77 62 79 74 65 73 25 3d 73 |).FP%rowbytes%=s|
0000e980 78 25 2a 32 3a 73 74 25 3d 8f 23 63 25 3a 66 6c |x%*2:st%=.#c%:fl|
0000e990 61 67 3d 37 30 30 0d 46 5a 41 69 6e 66 6f 24 3d |ag=700.FZAinfo$=|
0000e9a0 22 70 31 35 20 69 6d 61 67 65 2c 20 22 2b c3 73 |"p15 image, "+.s|
0000e9b0 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 |x%+" by "+.sy%+"|
0000e9c0 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 74 73 | pixels, "+.bits|
0000e9d0 28 69 6e 70 75 74 29 0d 46 64 0a c9 20 33 34 35 |(input).Fd.. 345|
0000e9e0 30 0d 46 6e 15 cf 23 63 25 3d 30 3a 69 6e 66 6f |0.Fn..#c%=0:info|
0000e9f0 24 3d a4 47 45 54 0d 46 78 33 79 62 69 74 73 25 |$=.GET.Fx3ybits%|
0000ea00 3d bb c1 69 6e 66 6f 24 2c a7 69 6e 66 6f 24 2c |=..info$,.info$,|
0000ea10 22 20 22 29 29 3a 79 6d 61 78 25 3d 28 31 3c 3c |" ")):ymax%=(1<<|
0000ea20 79 62 69 74 73 25 29 2d 31 0d 46 82 3a 75 62 69 |ybits%)-1.F.:ubi|
0000ea30 74 73 25 3d bb c1 69 6e 66 6f 24 2c a7 69 6e 66 |ts%=..info$,.inf|
0000ea40 6f 24 2c 22 59 20 22 29 2b 31 29 3a 75 6d 61 78 |o$,"Y ")+1):umax|
0000ea50 25 3d 28 31 3c 3c 28 75 62 69 74 73 25 2d 31 29 |%=(1<<(ubits%-1)|
0000ea60 29 2d 31 0d 46 8c 3a 76 62 69 74 73 25 3d bb c1 |)-1.F.:vbits%=..|
0000ea70 69 6e 66 6f 24 2c a7 69 6e 66 6f 24 2c 22 55 20 |info$,.info$,"U |
0000ea80 22 29 2b 31 29 3a 76 6d 61 78 25 3d 28 31 3c 3c |")+1):vmax%=(1<<|
0000ea90 28 76 62 69 74 73 25 2d 31 29 29 2d 31 0d 46 96 |(vbits%-1))-1.F.|
0000eaa0 26 73 24 3d a4 47 45 54 3a 73 78 25 3d bb 73 24 |&s$=.GET:sx%=.s$|
0000eab0 3a 73 79 25 3d bb c1 73 24 2c a7 73 24 2c 22 20 |:sy%=..s$,.s$," |
0000eac0 22 29 29 0d 46 a0 32 de 20 72 70 61 6c 25 28 32 |")).F.2. rpal%(2|
0000ead0 35 35 29 2c 67 70 61 6c 25 28 32 35 35 29 2c 62 |55),gpal%(255),b|
0000eae0 70 61 6c 25 28 32 35 35 29 2c 74 61 62 6c 65 25 |pal%(255),table%|
0000eaf0 28 32 35 35 29 0d 46 aa 27 e3 43 25 3d 30 b8 79 |(255).F.'.C%=0.y|
0000eb00 6d 61 78 25 3a 74 61 62 6c 65 25 28 43 25 29 3d |max%:table%(C%)=|
0000eb10 43 25 2f 79 6d 61 78 25 2a 46 3a ed 0d 46 b4 14 |C%/ymax%*F:..F..|
0000eb20 44 25 3d 28 31 3c 3c 75 62 69 74 73 25 29 2d 31 |D%=(1<<ubits%)-1|
0000eb30 0d 46 be 2d e3 43 25 3d 30 b8 44 25 3a 64 3d 43 |.F.-.C%=0.D%:d=C|
0000eb40 25 2f 75 6d 61 78 25 3a e7 64 3e 31 20 64 3d 2d |%/umax%:.d>1 d=-|
0000eb50 28 44 25 2d 43 25 29 2f 75 6d 61 78 25 0d 46 c8 |(D%-C%)/umax%.F.|
0000eb60 3b 62 25 28 43 25 29 3d a8 28 64 2a 28 31 2d 62 |;b%(C%)=.(d*(1-b|
0000eb70 77 74 29 2a 46 29 3a 67 70 61 6c 25 28 43 25 29 |wt)*F):gpal%(C%)|
0000eb80 3d a8 28 2d 64 2a 28 31 2d 62 77 74 29 2a 62 77 |=.(-d*(1-bwt)*bw|
0000eb90 74 2f 67 77 74 2a 46 29 0d 46 d2 05 ed 0d 46 dc |t/gwt*F).F....F.|
0000eba0 14 44 25 3d 28 31 3c 3c 76 62 69 74 73 25 29 2d |.D%=(1<<vbits%)-|
0000ebb0 31 0d 46 e6 2d e3 43 25 3d 30 b8 44 25 3a 64 3d |1.F.-.C%=0.D%:d=|
0000ebc0 43 25 2f 76 6d 61 78 25 3a e7 64 3e 31 20 64 3d |C%/vmax%:.d>1 d=|
0000ebd0 2d 28 44 25 2d 43 25 29 2f 76 6d 61 78 25 0d 46 |-(D%-C%)/vmax%.F|
0000ebe0 f0 38 72 25 28 43 25 29 3d a8 28 64 2a 28 31 2d |.8r%(C%)=.(d*(1-|
0000ebf0 72 77 74 29 2a 46 29 3a 67 25 28 43 25 29 3d a8 |rwt)*F):g%(C%)=.|
0000ec00 28 2d 64 2a 28 31 2d 72 77 74 29 2a 72 77 74 2f |(-d*(1-rwt)*rwt/|
0000ec10 67 77 74 2a 46 29 0d 46 fa 05 ed 0d 47 04 3b 72 |gwt*F).F....G.;r|
0000ec20 6f 77 62 79 74 65 73 25 3d 73 78 25 2a 32 3a 73 |owbytes%=sx%*2:s|
0000ec30 74 25 3d 8f 23 63 25 3a 63 61 63 68 65 25 3d b9 |t%=.#c%:cache%=.|
0000ec40 3a 72 24 3d 22 46 4e 32 32 35 30 22 3a 69 6e 70 |:r$="FN2250":inp|
0000ec50 75 74 3d 35 35 35 0d 47 0e 2a 69 6e 66 6f 24 2b |ut=555.G.*info$+|
0000ec60 3d 22 2c 20 22 2b c3 73 78 25 2b 22 20 62 79 20 |=", "+.sx%+" by |
0000ec70 22 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 22 |"+.sy%+" pixels"|
0000ec80 0d 47 18 0a c9 20 33 35 30 30 0d 47 22 41 71 75 |.G... 3500.G"Aqu|
0000ec90 61 6e 74 25 3d 31 3a cf 23 63 25 3d 36 3a 45 25 |ant%=1:.#c%=6:E%|
0000eca0 3d a4 48 57 3a 73 78 25 3d a4 48 57 3a 73 78 25 |=.HW:sx%=.HW:sx%|
0000ecb0 3d a4 48 57 3a 73 79 25 3d a4 48 57 3a 73 74 25 |=.HW:sy%=.HW:st%|
0000ecc0 3d a4 48 57 3a 73 74 25 3d a4 57 0d 47 2c 34 72 |=.HW:st%=.W.G,4r|
0000ecd0 6f 77 62 79 74 65 73 25 3d 73 78 25 2f 38 2b 31 |owbytes%=sx%/8+1|
0000ece0 80 ac 31 3a 63 61 63 68 65 25 3d b9 3a 73 74 25 |..1:cache%=.:st%|
0000ecf0 2b 3d 8f 23 63 25 3a cf 23 63 25 3d 73 74 25 0d |+=.#c%:.#c%=st%.|
0000ed00 47 36 0b c8 8e 20 45 25 20 ca 0d 47 40 07 c9 20 |G6... E% ..G@.. |
0000ed10 31 0d 47 4a 2c 72 24 3d 22 46 4e 38 22 3a 69 6e |1.GJ,r$="FN8":in|
0000ed20 70 75 74 3d 31 3a 72 25 28 30 29 3d 46 3a 67 25 |put=1:r%(0)=F:g%|
0000ed30 28 30 29 3d 46 3a 62 25 28 30 29 3d 46 0d 47 54 |(0)=F:b%(0)=F.GT|
0000ed40 4b 69 6e 66 6f 24 3d 22 50 6f 63 6b 65 74 62 6f |Kinfo$="Pocketbo|
0000ed50 6f 6b 20 62 69 74 6d 61 70 2c 20 22 2b c3 73 78 |ok bitmap, "+.sx|
0000ed60 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b 22 20 |%+" by "+.sy%+" |
0000ed70 70 69 78 65 6c 73 2c 20 31 20 62 69 74 20 70 65 |pixels, 1 bit pe|
0000ed80 72 20 70 69 78 65 6c 22 0d 47 5e 07 c9 20 32 0d |r pixel".G^.. 2.|
0000ed90 47 68 39 70 6c 61 6e 61 72 25 3d b9 3a 70 6c 61 |Gh9planar%=.:pla|
0000eda0 6e 65 73 25 3d 32 3a 72 24 3d 22 46 4e 31 36 30 |nes%=2:r$="FN160|
0000edb0 30 22 3a 69 6e 70 75 74 3d 38 3a 63 61 63 68 65 |0":input=8:cache|
0000edc0 62 79 74 65 73 25 3d b9 0d 47 72 3f 72 25 28 30 |bytes%=..Gr?r%(0|
0000edd0 29 3d 46 3a 72 25 28 31 29 3d 28 46 2f 33 29 2a |)=F:r%(1)=(F/3)*|
0000ede0 32 3a 72 25 28 32 29 3d 46 2f 33 3a 72 25 28 33 |2:r%(2)=F/3:r%(3|
0000edf0 29 3d 30 3a 67 25 28 29 3d 72 25 28 29 3a 62 25 |)=0:g%()=r%():b%|
0000ee00 28 29 3d 72 25 28 29 0d 47 7c 48 70 6c 62 79 74 |()=r%().G|Hplbyt|
0000ee10 65 73 25 3d 72 6f 77 62 79 74 65 73 25 2a 70 6c |es%=rowbytes%*pl|
0000ee20 61 6e 65 73 25 3a 62 75 66 66 25 3d a4 64 69 6d |anes%:buff%=.dim|
0000ee30 28 70 6c 62 79 74 65 73 25 2a 73 79 25 29 3a 70 |(plbytes%*sy%):p|
0000ee40 62 75 66 66 25 3d a4 64 69 6d 28 73 78 25 29 0d |buff%=.dim(sx%).|
0000ee50 47 86 1f 72 65 61 6c 72 6f 77 62 79 74 65 73 25 |G..realrowbytes%|
0000ee60 3d 72 6f 77 62 79 74 65 73 25 2a 73 79 25 0d 47 |=rowbytes%*sy%.G|
0000ee70 90 4e 69 6e 66 6f 24 3d 22 50 6f 63 6b 65 74 62 |.Ninfo$="Pocketb|
0000ee80 6f 6f 6b 49 49 20 62 69 74 6d 61 70 2c 20 22 2b |ookII bitmap, "+|
0000ee90 c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 |.sx%+" by "+.sy%|
0000eea0 2b 22 20 70 69 78 65 6c 73 2c 20 32 20 62 69 74 |+" pixels, 2 bit|
0000eeb0 73 20 70 65 72 20 70 69 78 65 6c 22 0d 47 9a 05 |s per pixel".G..|
0000eec0 7f 0d 47 a4 28 85 20 34 32 2c 22 55 6e 6b 6e 6f |..G.(. 42,"Unkno|
0000eed0 77 6e 20 50 6f 63 6b 65 74 62 6f 6f 6b 20 50 49 |wn Pocketbook PI|
0000eee0 43 20 66 6f 72 6d 61 74 22 0d 47 ae 05 cb 0d 47 |C format".G....G|
0000eef0 b8 0a c9 20 33 36 30 30 0d 47 c2 42 70 63 64 62 |... 3600.G.Bpcdb|
0000ef00 6c 6b 25 3d a4 64 69 6d 28 34 30 29 3a c8 99 26 |lk%=.dim(40):..&|
0000ef10 32 30 30 32 33 2c 22 43 68 61 6e 67 65 46 53 49 |20023,"ChangeFSI|
0000ef20 24 50 43 44 69 6e 64 65 78 22 2c 70 63 64 62 6c |$PCDindex",pcdbl|
0000ef30 6b 25 2c 32 30 20 b8 2c 2c 5a 0d 47 cc 35 e7 5a |k%,20 .,,Z.G.5.Z|
0000ef40 20 8c 70 63 64 62 6c 6b 25 3f 5a 3d 31 33 3a 70 | .pcdblk%?Z=13:p|
0000ef50 63 64 69 6e 64 65 78 25 3d bb 24 70 63 64 62 6c |cdindex%=.$pcdbl|
0000ef60 6b 25 20 8b 70 63 64 69 6e 64 65 78 25 3d 33 0d |k% .pcdindex%=3.|
0000ef70 47 d6 42 c8 99 22 50 68 6f 74 6f 43 44 5f 4f 70 |G.B.."PhotoCD_Op|
0000ef80 65 6e 22 2c 31 2c 63 25 2c 31 20 b8 20 70 63 64 |en",1,c%,1 . pcd|
0000ef90 68 25 3a c8 99 22 50 68 6f 74 6f 43 44 5f 47 65 |h%:.."PhotoCD_Ge|
0000efa0 74 43 6f 75 6e 74 22 2c 70 63 64 68 25 20 b8 2c |tCount",pcdh% .,|
0000efb0 5a 0d 47 e0 3f e7 28 5a 3e 3e 70 63 64 69 6e 64 |Z.G.?.(Z>>pcdind|
0000efc0 65 78 25 29 3d 30 20 d9 23 63 25 3a 85 34 32 2c |ex%)=0 .#c%:.42,|
0000efd0 22 44 65 73 69 72 65 64 20 72 65 73 6f 6c 75 74 |"Desired resolut|
0000efe0 69 6f 6e 20 75 6e 61 76 61 69 6c 61 62 6c 65 22 |ion unavailable"|
0000eff0 0d 47 ea 2b c8 99 22 50 68 6f 74 6f 43 44 5f 47 |.G.+.."PhotoCD_G|
0000f000 65 74 52 6f 74 61 74 69 6f 6e 22 2c 70 63 64 68 |etRotation",pcdh|
0000f010 25 20 b8 2c 2c 70 63 64 74 72 25 0d 47 f4 35 c8 |% .,,pcdtr%.G.5.|
0000f020 99 22 50 68 6f 74 6f 43 44 5f 47 65 74 53 69 7a |."PhotoCD_GetSiz|
0000f030 65 22 2c 70 63 64 68 25 2c 2c 70 63 64 69 6e 64 |e",pcdh%,,pcdind|
0000f040 65 78 25 20 b8 2c 2c 2c 2c 73 78 25 2c 73 79 25 |ex% .,,,,sx%,sy%|
0000f050 0d 47 fe 29 70 63 64 62 6c 6b 25 21 30 3d 30 3a |.G.)pcdblk%!0=0:|
0000f060 70 63 64 62 6c 6b 25 21 38 3d 73 78 25 3a 70 63 |pcdblk%!8=sx%:pc|
0000f070 64 62 6c 6b 25 21 34 3d 30 0d 48 08 37 70 63 64 |dblk%!4=0.H.7pcd|
0000f080 62 6c 6b 25 21 31 36 3d 30 3a 70 63 64 62 6c 6b |blk%!16=0:pcdblk|
0000f090 25 21 32 30 3d 32 3a 70 63 64 62 6c 6b 25 21 32 |%!20=2:pcdblk%!2|
0000f0a0 34 3d 31 3a 70 63 64 62 6c 6b 25 21 32 38 3d 33 |4=1:pcdblk%!28=3|
0000f0b0 0d 48 1c 0f c8 8e 20 70 63 64 74 72 25 20 ca 0d |.H.... pcdtr% ..|
0000f0c0 48 26 07 c9 20 30 0d 48 30 1e c9 20 26 38 30 30 |H&.. 0.H0.. &800|
0000f0d0 30 30 30 30 30 3a 68 66 6c 69 70 25 3d ac 68 66 |00000:hflip%=.hf|
0000f0e0 6c 69 70 25 0d 48 3a 08 c9 20 39 30 0d 48 44 10 |lip%.H:.. 90.HD.|
0000f0f0 c8 8e 20 72 6f 74 61 74 65 25 20 ca 0d 48 4e 11 |.. rotate% ..HN.|
0000f100 c9 20 30 3a 72 6f 74 61 74 65 25 3d 31 0d 48 58 |. 0:rotate%=1.HX|
0000f110 12 c9 20 2d 31 3a 72 6f 74 61 74 65 25 3d 30 0d |.. -1:rotate%=0.|
0000f120 48 62 2f c9 20 31 3a 72 6f 74 61 74 65 25 3d 30 |Hb/. 1:rotate%=0|
0000f130 3a 76 66 6c 69 70 25 3d ac 76 66 6c 69 70 25 3a |:vflip%=.vflip%:|
0000f140 68 66 6c 69 70 25 3d ac 68 66 6c 69 70 25 0d 48 |hflip%=.hflip%.H|
0000f150 6c 05 cb 0d 48 76 0f c9 20 26 38 30 30 30 30 30 |l...Hv.. &800000|
0000f160 35 41 0d 48 80 10 c8 8e 20 72 6f 74 61 74 65 25 |5A.H.... rotate%|
0000f170 20 ca 0d 48 8a 20 c9 20 30 3a 72 6f 74 61 74 65 | ..H. . 0:rotate|
0000f180 25 3d 31 3a 76 66 6c 69 70 25 3d ac 76 66 6c 69 |%=1:vflip%=.vfli|
0000f190 70 25 0d 48 94 21 c9 20 2d 31 3a 72 6f 74 61 74 |p%.H.!. -1:rotat|
0000f1a0 65 25 3d 30 3a 76 66 6c 69 70 25 3d ac 76 66 6c |e%=0:vflip%=.vfl|
0000f1b0 69 70 25 0d 48 9e 20 c9 20 31 3a 72 6f 74 61 74 |ip%.H. . 1:rotat|
0000f1c0 65 25 3d 30 3a 68 66 6c 69 70 25 3d ac 68 66 6c |e%=0:hflip%=.hfl|
0000f1d0 69 70 25 0d 48 a8 05 cb 0d 48 b2 27 c9 20 31 38 |ip%.H....H.'. 18|
0000f1e0 30 3a 68 66 6c 69 70 25 3d ac 68 66 6c 69 70 25 |0:hflip%=.hflip%|
0000f1f0 3a 76 66 6c 69 70 25 3d ac 76 66 6c 69 70 25 0d |:vflip%=.vflip%.|
0000f200 48 bc 1e c9 20 26 38 30 30 30 30 30 42 34 3a 76 |H... &800000B4:v|
0000f210 66 6c 69 70 25 3d ac 76 66 6c 69 70 25 0d 48 c6 |flip%=.vflip%.H.|
0000f220 09 c9 20 32 37 30 0d 48 d0 10 c8 8e 20 72 6f 74 |.. 270.H.... rot|
0000f230 61 74 65 25 20 ca 0d 48 da 12 c9 20 30 3a 72 6f |ate% ..H... 0:ro|
0000f240 74 61 74 65 25 3d 2d 31 0d 48 e4 11 c9 20 31 3a |tate%=-1.H... 1:|
0000f250 72 6f 74 61 74 65 25 3d 30 0d 48 ee 30 c9 20 2d |rotate%=0.H.0. -|
0000f260 31 3a 72 6f 74 61 74 65 25 3d 30 3a 76 66 6c 69 |1:rotate%=0:vfli|
0000f270 70 25 3d ac 76 66 6c 69 70 25 3a 68 66 6c 69 70 |p%=.vflip%:hflip|
0000f280 25 3d ac 68 66 6c 69 70 25 0d 48 f8 05 cb 0d 49 |%=.hflip%.H....I|
0000f290 02 0f c9 20 26 38 30 30 30 30 31 30 45 0d 49 0c |... &8000010E.I.|
0000f2a0 10 c8 8e 20 72 6f 74 61 74 65 25 20 ca 0d 49 16 |... rotate% ..I.|
0000f2b0 21 c9 20 30 3a 72 6f 74 61 74 65 25 3d 2d 31 3a |!. 0:rotate%=-1:|
0000f2c0 76 66 6c 69 70 25 3d ac 76 66 6c 69 70 25 0d 49 |vflip%=.vflip%.I|
0000f2d0 20 20 c9 20 31 3a 72 6f 74 61 74 65 25 3d 30 3a | . 1:rotate%=0:|
0000f2e0 76 66 6c 69 70 25 3d ac 76 66 6c 69 70 25 0d 49 |vflip%=.vflip%.I|
0000f2f0 2a 21 c9 20 2d 31 3a 72 6f 74 61 74 65 25 3d 30 |*!. -1:rotate%=0|
0000f300 3a 68 66 6c 69 70 25 3d ac 68 66 6c 69 70 25 0d |:hflip%=.hflip%.|
0000f310 49 34 05 cb 0d 49 3e 0b 7f 20 50 41 4e 49 43 0d |I4...I>.. PANIC.|
0000f320 49 48 05 cb 0d 49 5c 40 69 6e 70 75 74 3d 32 34 |IH...I\@input=24|
0000f330 3a 73 74 65 70 32 34 3d 33 3a 72 62 6f 25 3d 30 |:step24=3:rbo%=0|
0000f340 3a 67 62 6f 25 3d 31 3a 62 62 6f 25 3d 32 3a 70 |:gbo%=1:bbo%=2:p|
0000f350 63 64 63 61 63 68 65 73 69 7a 65 25 3d 33 32 2a |cdcachesize%=32*|
0000f360 31 30 32 34 0d 49 66 41 72 6f 77 62 79 74 65 73 |1024.IfArowbytes|
0000f370 25 3d 73 78 25 2a 33 3a f2 6e 6f 70 61 6c 3a 63 |%=sx%*3:.nopal:c|
0000f380 61 63 68 65 25 3d b9 3a 70 63 64 63 61 63 68 65 |ache%=.:pcdcache|
0000f390 25 3d a4 64 69 6d 28 70 63 64 63 61 63 68 65 73 |%=.dim(pcdcaches|
0000f3a0 69 7a 65 25 29 0d 49 70 49 69 6e 66 6f 24 3d 22 |ize%).IpIinfo$="|
0000f3b0 50 68 6f 74 6f 43 44 20 69 6d 61 67 65 2c 20 22 |PhotoCD image, "|
0000f3c0 2b c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 |+.sx%+" by "+.sy|
0000f3d0 25 2b 22 20 70 69 78 65 6c 73 2c 20 32 34 20 62 |%+" pixels, 24 b|
0000f3e0 69 74 73 20 70 65 72 20 70 69 78 65 6c 22 0d 49 |its per pixel".I|
0000f3f0 7a 0a c9 20 33 37 30 30 0d 49 84 33 41 25 3d 8e |z.. 3700.I.3A%=.|
0000f400 22 3c 43 68 61 6e 67 65 46 53 49 24 44 69 72 3e |"<ChangeFSI$Dir>|
0000f410 2e 43 46 53 49 6a 70 65 67 22 3a 6a 70 65 67 25 |.CFSIjpeg":jpeg%|
0000f420 3d a4 64 69 6d 28 a2 23 41 25 29 0d 49 8e 1d c8 |=.dim(.#A%).I...|
0000f430 99 31 32 2c 34 2c 41 25 2c 6a 70 65 67 25 2c a2 |.12,4,A%,jpeg%,.|
0000f440 23 41 25 3a d9 23 41 25 0d 49 98 43 64 61 74 61 |#A%:.#A%.I.Cdata|
0000f450 63 61 63 68 65 25 3d a4 63 61 63 68 65 64 69 6d |cache%=.cachedim|
0000f460 28 a2 23 63 25 29 3a e7 64 61 74 61 63 61 63 68 |(.#c%):.datacach|
0000f470 65 25 3d 2d 31 20 64 61 74 61 63 61 63 68 65 25 |e%=-1 datacache%|
0000f480 3d a4 64 69 6d 28 a2 23 63 25 29 0d 49 a2 24 cf |=.dim(.#c%).I.$.|
0000f490 23 63 25 3d 30 3a c8 99 31 32 2c 34 2c 63 25 2c |#c%=0:..12,4,c%,|
0000f4a0 64 61 74 61 63 61 63 68 65 25 2c a2 23 63 25 0d |datacache%,.#c%.|
0000f4b0 49 ac 51 41 25 3d 64 61 74 61 63 61 63 68 65 25 |I.QA%=datacache%|
0000f4c0 3a 42 25 3d 6a 70 65 67 62 6c 6b 25 3a 43 25 3d |:B%=jpegblk%:C%=|
0000f4d0 6a 70 65 67 62 6c 6b 25 2b 34 3a 44 25 3d 6a 70 |jpegblk%+4:D%=jp|
0000f4e0 65 67 62 6c 6b 25 2b 38 3a 45 25 3d 6a 70 65 67 |egblk%+8:E%=jpeg|
0000f4f0 62 6c 6b 25 2b 31 32 3a d6 6a 70 65 67 25 2b 38 |blk%+12:.jpeg%+8|
0000f500 0d 49 b6 26 42 25 3d 6a 70 65 67 62 6c 6b 25 21 |.I.&B%=jpegblk%!|
0000f510 31 32 3a 6a 70 65 67 73 70 61 63 65 25 3d a4 64 |12:jpegspace%=.d|
0000f520 69 6d 28 42 25 29 0d 49 c0 27 43 25 3d 64 61 74 |im(B%).I.'C%=dat|
0000f530 61 63 61 63 68 65 25 3a 41 25 3d 6a 70 65 67 73 |acache%:A%=jpegs|
0000f540 70 61 63 65 25 3a 44 25 3d a2 23 63 25 0d 49 ca |pace%:D%=.#c%.I.|
0000f550 35 d6 6a 70 65 67 25 3a 63 61 63 68 65 25 3d a3 |5.jpeg%:cache%=.|
0000f560 3a e7 21 41 25 20 85 34 32 2c 22 4a 50 45 47 20 |:.!A% .42,"JPEG |
0000f570 63 6f 64 65 20 65 72 72 6f 72 3a 20 22 2b c3 21 |code error: "+.!|
0000f580 41 25 0d 49 d4 35 73 78 25 3d 41 25 21 32 30 3a |A%.I.5sx%=A%!20:|
0000f590 73 79 25 3d 41 25 21 32 34 3a 69 6e 70 75 74 3d |sy%=A%!24:input=|
0000f5a0 38 2a 41 25 3f 32 38 3a f2 6e 6f 70 61 6c 3a 73 |8*A%?28:.nopal:s|
0000f5b0 74 65 70 32 34 3d 34 0d 49 de 42 69 6e 66 6f 24 |tep24=4.I.Binfo$|
0000f5c0 3d 22 4a 46 49 46 20 69 6d 61 67 65 2c 20 22 2b |="JFIF image, "+|
0000f5d0 c3 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 |.sx%+" by "+.sy%|
0000f5e0 2b 22 20 70 69 78 65 6c 73 2c 20 22 2b a4 62 69 |+" pixels, "+.bi|
0000f5f0 74 73 28 69 6e 70 75 74 29 0d 49 e8 25 6a 70 65 |ts(input).I.%jpe|
0000f600 67 79 25 3d 73 79 25 3a 72 24 3d 22 46 4e 22 2b |gy%=sy%:r$="FN"+|
0000f610 c3 a8 28 33 37 30 30 2b 69 6e 70 75 74 29 0d 49 |..(3700+input).I|
0000f620 f2 0a c9 20 33 38 30 30 0d 49 fc 19 cf 23 63 25 |... 3800.I...#c%|
0000f630 3d 32 34 3a 73 78 25 3d a4 57 3a 73 79 25 3d a4 |=24:sx%=.W:sy%=.|
0000f640 57 0d 4a 06 19 e7 73 63 61 6c 65 25 20 79 6d 75 |W.J...scale% ymu|
0000f650 6c 25 3d 79 6d 75 6c 25 2a 32 0d 4a 10 32 de 20 |l%=ymul%*2.J.2. |
0000f660 72 70 61 6c 25 28 32 35 35 29 2c 67 70 61 6c 25 |rpal%(255),gpal%|
0000f670 28 32 35 35 29 2c 62 70 61 6c 25 28 32 35 35 29 |(255),bpal%(255)|
0000f680 2c 74 61 62 6c 65 25 28 32 35 35 29 0d 4a 1a 0d |,table%(255).J..|
0000f690 e3 43 25 3d 30 b8 32 35 35 0d 4a 24 1f e7 43 25 |.C%=0.255.J$..C%|
0000f6a0 3c 31 32 38 20 74 61 62 6c 65 25 28 43 25 29 3d |<128 table%(C%)=|
0000f6b0 43 25 2f 31 32 37 2a 46 0d 4a 2e 19 44 25 3d 43 |C%/127*F.J..D%=C|
0000f6c0 25 3a e7 44 25 80 31 32 38 20 44 25 2d 3d 32 35 |%:.D%.128 D%-=25|
0000f6d0 36 0d 4a 38 29 72 25 28 43 25 29 3d a8 28 44 25 |6.J8)r%(C%)=.(D%|
0000f6e0 2f 31 36 30 2a 46 29 3a 62 25 28 43 25 29 3d a8 |/160*F):b%(C%)=.|
0000f6f0 28 44 25 2f 31 32 36 2a 46 29 0d 4a 42 3e 67 25 |(D%/126*F).JB>g%|
0000f700 28 43 25 29 3d a8 28 2d 44 25 2f 31 36 30 2a 72 |(C%)=.(-D%/160*r|
0000f710 77 74 2f 67 77 74 2a 46 29 3a 67 70 61 6c 25 28 |wt/gwt*F):gpal%(|
0000f720 43 25 29 3d a8 28 2d 44 25 2f 31 32 36 2a 62 77 |C%)=.(-D%/126*bw|
0000f730 74 2f 67 77 74 2a 46 29 0d 4a 4c 05 ed 0d 4a 60 |t/gwt*F).JL...J`|
0000f740 3d cf 23 63 25 3d 35 32 3a 73 74 25 3d a4 57 3a |=.#c%=52:st%=.W:|
0000f750 cf 23 63 25 3d 36 34 3a 63 61 63 68 65 25 3d b9 |.#c%=64:cache%=.|
0000f760 3a 72 6f 77 62 79 74 65 73 25 3d 32 2a 73 78 25 |:rowbytes%=2*sx%|
0000f770 3a 69 6e 70 75 74 3d 34 31 31 0d 4a 6a 46 69 6e |:input=411.JjFin|
0000f780 66 6f 24 3d 22 55 6e 63 6f 6d 70 72 65 73 73 65 |fo$="Uncompresse|
0000f790 64 20 54 65 63 68 6e 6f 2d 49 20 59 55 56 20 66 |d Techno-I YUV f|
0000f7a0 69 6c 65 20 22 2b c3 73 78 25 2b 22 20 62 79 20 |ile "+.sx%+" by |
0000f7b0 22 2b c3 73 79 25 2b 22 20 70 69 78 65 6c 73 22 |"+.sy%+" pixels"|
0000f7c0 0d 4a 74 0a c9 20 33 39 30 30 0d 4a 7e 32 cf 23 |.Jt.. 3900.J~2.#|
0000f7d0 63 25 3d 38 3a 73 78 25 3d a4 57 3a 73 79 25 3d |c%=8:sx%=.W:sy%=|
0000f7e0 a4 57 3a 73 74 25 3d 31 36 3a 71 75 61 6e 74 25 |.W:st%=16:quant%|
0000f7f0 3d 31 32 3a 73 74 65 70 32 34 3d 36 0d 4a 88 35 |=12:step24=6.J.5|
0000f800 e3 43 25 3d 30 b8 34 30 39 35 3a 72 25 28 43 25 |.C%=0.4095:r%(C%|
0000f810 29 3d 43 25 2f 34 30 39 35 2a 46 3a ed 3a 67 25 |)=C%/4095*F:.:g%|
0000f820 28 29 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 |()=r%():b%()=r%(|
0000f830 29 0d 4a 92 44 69 6e 70 75 74 3d 34 38 3a 72 6f |).J.Dinput=48:ro|
0000f840 77 62 79 74 65 73 25 3d 73 78 25 2a 36 3a 63 61 |wbytes%=sx%*6:ca|
0000f850 63 68 65 25 3d b9 3a 72 24 3d 22 46 4e 32 34 22 |che%=.:r$="FN24"|
0000f860 3a 72 62 6f 25 3d 30 3a 67 62 6f 25 3d 32 3a 62 |:rbo%=0:gbo%=2:b|
0000f870 62 6f 25 3d 34 0d 4a 9c 50 69 6e 66 6f 24 3d 22 |bo%=4.J.Pinfo$="|
0000f880 52 6f 6e 61 6c 64 20 41 6c 70 69 61 72 20 66 6f |Ronald Alpiar fo|
0000f890 72 6d 61 74 2c 20 22 2b c3 73 78 25 2b 22 20 62 |rmat, "+.sx%+" b|
0000f8a0 79 20 22 2b c3 73 79 25 2b 22 20 70 69 78 65 6c |y "+.sy%+" pixel|
0000f8b0 73 2c 20 33 36 20 62 69 74 73 20 70 65 72 20 70 |s, 36 bits per p|
0000f8c0 69 78 65 6c 22 0d 4a a6 0a c9 20 33 39 30 35 0d |ixel".J... 3905.|
0000f8d0 4a b0 32 cf 23 63 25 3d 38 3a 73 78 25 3d a4 57 |J.2.#c%=8:sx%=.W|
0000f8e0 3a 73 79 25 3d a4 57 3a 73 74 25 3d 31 36 3a 71 |:sy%=.W:st%=16:q|
0000f8f0 75 61 6e 74 25 3d 31 36 3a 73 74 65 70 32 34 3d |uant%=16:step24=|
0000f900 36 0d 4a ba 37 e3 43 25 3d 30 b8 36 35 35 33 35 |6.J.7.C%=0.65535|
0000f910 3a 72 25 28 43 25 29 3d 43 25 2f 36 35 35 33 35 |:r%(C%)=C%/65535|
0000f920 2a 46 3a ed 3a 67 25 28 29 3d 72 25 28 29 3a 62 |*F:.:g%()=r%():b|
0000f930 25 28 29 3d 72 25 28 29 0d 4a c4 44 69 6e 70 75 |%()=r%().J.Dinpu|
0000f940 74 3d 34 38 3a 72 6f 77 62 79 74 65 73 25 3d 73 |t=48:rowbytes%=s|
0000f950 78 25 2a 36 3a 63 61 63 68 65 25 3d b9 3a 72 24 |x%*6:cache%=.:r$|
0000f960 3d 22 46 4e 32 34 22 3a 72 62 6f 25 3d 30 3a 67 |="FN24":rbo%=0:g|
0000f970 62 6f 25 3d 32 3a 62 62 6f 25 3d 34 0d 4a ce 50 |bo%=2:bbo%=4.J.P|
0000f980 69 6e 66 6f 24 3d 22 52 6f 6e 61 6c 64 20 41 6c |info$="Ronald Al|
0000f990 70 69 61 72 20 66 6f 72 6d 61 74 2c 20 22 2b c3 |piar format, "+.|
0000f9a0 73 78 25 2b 22 20 62 79 20 22 2b c3 73 79 25 2b |sx%+" by "+.sy%+|
0000f9b0 22 20 70 69 78 65 6c 73 2c 20 34 38 20 62 69 74 |" pixels, 48 bit|
0000f9c0 73 20 70 65 72 20 70 69 78 65 6c 22 0d 4a d8 09 |s per pixel".J..|
0000f9d0 c9 20 36 36 36 0d 4b 46 3f 73 74 25 3d 30 3a cf |. 666.KF?st%=0:.|
0000f9e0 23 63 25 3d 30 3a 73 78 25 3d 31 36 30 3a 73 79 |#c%=0:sx%=160:sy|
0000f9f0 25 3d 31 32 38 3a 69 6e 70 75 74 3d 38 3a 63 61 |%=128:input=8:ca|
0000fa00 63 68 65 25 3d b9 3a 72 6f 77 62 79 74 65 73 25 |che%=.:rowbytes%|
0000fa10 3d 73 78 25 0d 4b 50 3c e3 43 25 3d 30 b8 32 35 |=sx%.KP<.C%=0.25|
0000fa20 35 3a 72 25 28 43 25 29 3d 43 25 2f 32 35 35 2a |5:r%(C%)=C%/255*|
0000fa30 46 3a ed 3a 67 25 28 29 3d 72 25 28 29 3a 62 25 |F:.:g%()=r%():b%|
0000fa40 28 29 3d 72 25 28 29 3a 72 24 3d 22 46 4e 38 22 |()=r%():r$="FN8"|
0000fa50 0d 4b 5a 4d 69 6e 66 6f 24 3d 22 54 68 65 20 6e |.KZMinfo$="The n|
0000fa60 75 6d 62 65 72 20 6f 66 20 74 68 65 20 62 65 61 |umber of the bea|
0000fa70 73 74 2c 20 31 36 30 20 62 79 20 22 2b c3 73 79 |st, 160 by "+.sy|
0000fa80 25 2b 22 20 70 69 78 65 6c 73 2c 20 38 20 62 69 |%+" pixels, 8 bi|
0000fa90 74 73 20 70 65 72 20 70 69 78 65 6c 22 0d 4b 64 |ts per pixel".Kd|
0000faa0 05 cb 0d 4b 6e 11 e7 69 6e 66 6f 25 20 f1 69 6e |...Kn..info% .in|
0000fab0 66 6f 24 0d 4b 78 23 c8 99 22 48 6f 75 72 67 6c |fo$.Kx#.."Hourgl|
0000fac0 61 73 73 5f 4f 6e 22 2c 31 3a 68 6f 75 72 25 3d |ass_On",1:hour%=|
0000fad0 26 34 30 36 63 34 0d 4b 82 13 e7 6d 3d 2d 39 20 |&406c4.K...m=-9 |
0000fae0 84 20 6d 3d 2d 31 30 20 8c 0d 4b 8c 48 c8 99 22 |. m=-10 ..K.H.."|
0000faf0 58 4f 53 5f 43 4c 49 22 2c 22 72 6d 65 6e 73 75 |XOS_CLI","rmensu|
0000fb00 72 65 20 43 6f 6d 70 72 65 73 73 4a 50 45 47 20 |re CompressJPEG |
0000fb10 30 20 72 6d 6c 6f 61 64 20 53 79 73 74 65 6d 3a |0 rmload System:|
0000fb20 4d 6f 64 75 6c 65 73 2e 6a 63 6f 6d 70 6d 6f 64 |Modules.jcompmod|
0000fb30 22 0d 4b 96 6d c8 99 22 58 4f 53 5f 43 4c 49 22 |".K.m.."XOS_CLI"|
0000fb40 2c 22 72 6d 65 6e 73 75 72 65 20 43 6f 6d 70 72 |,"rmensure Compr|
0000fb50 65 73 73 4a 50 45 47 20 30 20 49 46 20 22 22 3c |essJPEG 0 IF ""<|
0000fb60 43 68 61 6e 67 65 46 53 49 24 44 69 72 3e 22 22 |ChangeFSI$Dir>""|
0000fb70 20 3c 3e 20 22 22 22 22 20 54 48 45 4e 20 72 6d | <> """" THEN rm|
0000fb80 6c 6f 61 64 20 3c 43 68 61 6e 67 65 46 53 49 24 |load <ChangeFSI$|
0000fb90 44 69 72 3e 2e 6a 63 6f 6d 70 6d 6f 64 22 0d 4b |Dir>.jcompmod".K|
0000fba0 a0 42 2a 72 6d 65 6e 73 75 72 65 20 43 6f 6d 70 |.B*rmensure Comp|
0000fbb0 72 65 73 73 4a 50 45 47 20 30 20 45 52 52 4f 52 |ressJPEG 0 ERROR|
0000fbc0 20 43 61 6e 27 74 20 66 69 6e 64 20 43 6f 6d 70 | Can't find Comp|
0000fbd0 72 65 73 73 4a 50 45 47 20 6d 6f 64 75 6c 65 2e |ressJPEG module.|
0000fbe0 0d 4b aa 05 cd 0d 4b b4 30 e7 69 6e 76 65 72 74 |.K....K.0.invert|
0000fbf0 25 20 72 25 28 29 3d 46 2d 72 25 28 29 3a 67 25 |% r%()=F-r%():g%|
0000fc00 28 29 3d 46 2d 67 25 28 29 3a 62 25 28 29 3d 46 |()=F-g%():b%()=F|
0000fc10 2d 62 25 28 29 0d 4b be 1f e7 78 64 69 76 25 20 |-b%().K...xdiv% |
0000fc20 f2 72 65 64 75 63 65 28 78 6d 75 6c 25 2c 78 64 |.reduce(xmul%,xd|
0000fc30 69 76 25 29 0d 4b c8 1f e7 79 64 69 76 25 20 f2 |iv%).K...ydiv% .|
0000fc40 72 65 64 75 63 65 28 79 6d 75 6c 25 2c 79 64 69 |reduce(ymul%,ydi|
0000fc50 76 25 29 0d 4b d2 0a c8 8e 20 6d 20 ca 0d 4b dc |v%).K.... m ..K.|
0000fc60 44 c9 20 2d 31 3a 78 25 3d 32 35 36 3a 79 25 3d |D. -1:x%=256:y%=|
0000fc70 32 35 36 3a 6e 63 6f 6c 3d 32 35 36 3a e7 73 63 |256:ncol=256:.sc|
0000fc80 61 6c 65 6f 25 20 78 64 69 76 25 3d 78 64 69 76 |aleo% xdiv%=xdiv|
0000fc90 25 2a 32 3a 79 64 69 76 25 3d 79 64 69 76 25 2a |%*2:ydiv%=ydiv%*|
0000fca0 32 0d 4b e6 2e c9 20 2d 32 3a 78 25 3d 73 78 25 |2.K... -2:x%=sx%|
0000fcb0 3a 79 25 3d 73 79 25 3a e7 73 70 6d 3d 31 38 20 |:y%=sy%:.spm=18 |
0000fcc0 6e 63 6f 6c 3d 31 20 8b 6e 63 6f 6c 3d 31 35 0d |ncol=1 .ncol=15.|
0000fcd0 4b f0 28 c9 20 2d 33 2c 2d 35 2c 2d 36 3a 78 25 |K.(. -3,-5,-6:x%|
0000fce0 3d 73 78 25 3a 79 25 3d 73 79 25 3a 6e 63 6f 6c |=sx%:y%=sy%:ncol|
0000fcf0 3d 32 5e 31 35 2d 31 0d 4b fa 28 c9 20 2d 34 2c |=2^15-1.K.(. -4,|
0000fd00 2d 37 2c 2d 38 3a 78 25 3d 73 78 25 3a 79 25 3d |-7,-8:x%=sx%:y%=|
0000fd10 73 79 25 3a 6e 63 6f 6c 3d 32 5e 32 34 2d 31 0d |sy%:ncol=2^24-1.|
0000fd20 4c 04 35 c9 20 2d 39 2c 2d 31 30 3a 78 25 3d 73 |L.5. -9,-10:x%=s|
0000fd30 78 25 3a 79 25 3d 73 79 25 3a 6e 63 6f 6c 3d 32 |x%:y%=sy%:ncol=2|
0000fd40 5e 32 34 2d 31 3a e7 6d 3d 2d 39 20 6e 63 6f 6c |^24-1:.m=-9 ncol|
0000fd50 3d 32 35 36 0d 4c 0e 05 7f 0d 4c 18 35 c8 99 35 |=256.L....L.5..5|
0000fd60 33 2c 6d 2c 34 20 b8 20 2c 2c 6e 78 3a c8 99 35 |3,m,4 . ,,nx:..5|
0000fd70 33 2c 6d 2c 35 20 b8 20 2c 2c 6e 79 3a 6e 78 3d |3,m,5 . ,,ny:nx=|
0000fd80 31 3c 3c 6e 78 3a 6e 79 3d 31 3c 3c 6e 79 0d 4c |1<<nx:ny=1<<ny.L|
0000fd90 22 31 c8 99 35 33 2c 6d 2c 31 31 20 b8 20 2c 2c |"1..53,m,11 . ,,|
0000fda0 78 25 3a c8 99 35 33 2c 6d 2c 31 32 20 b8 20 2c |x%:..53,m,12 . ,|
0000fdb0 2c 79 25 3a 78 25 2b 3d 31 3a 79 25 2b 3d 31 0d |,y%:x%+=1:y%+=1.|
0000fdc0 4c 2c 20 c8 99 35 33 2c 6d 2c 33 20 b8 20 2c 2c |L, ..53,m,3 . ,,|
0000fdd0 6e 63 6f 6c 3a e7 73 63 61 6c 65 6f 25 20 8c 0d |ncol:.scaleo% ..|
0000fde0 4c 36 0e e7 72 6f 74 61 74 65 25 20 8c 0d 4c 40 |L6..rotate% ..L@|
0000fdf0 21 78 64 69 76 25 3d 78 64 69 76 25 2a 6e 79 3a |!xdiv%=xdiv%*ny:|
0000fe00 79 64 69 76 25 3d 79 64 69 76 25 2a 6e 78 0d 4c |ydiv%=ydiv%*nx.L|
0000fe10 4a 18 e7 78 64 69 76 25 20 79 6d 75 6c 25 3d 79 |J..xdiv% ymul%=y|
0000fe20 6d 75 6c 25 2a 32 0d 4c 54 18 e7 79 64 69 76 25 |mul%*2.LT..ydiv%|
0000fe30 20 78 6d 75 6c 25 3d 78 6d 75 6c 25 2a 32 0d 4c | xmul%=xmul%*2.L|
0000fe40 5e 05 cc 0d 4c 68 21 78 64 69 76 25 3d 78 64 69 |^...Lh!xdiv%=xdi|
0000fe50 76 25 2a 6e 78 3a 79 64 69 76 25 3d 79 64 69 76 |v%*nx:ydiv%=ydiv|
0000fe60 25 2a 6e 79 0d 4c 72 18 e7 78 64 69 76 25 20 78 |%*ny.Lr..xdiv% x|
0000fe70 6d 75 6c 25 3d 78 6d 75 6c 25 2a 32 0d 4c 7c 18 |mul%=xmul%*2.L|.|
0000fe80 e7 79 64 69 76 25 20 79 6d 75 6c 25 3d 79 6d 75 |.ydiv% ymul%=ymu|
0000fe90 6c 25 2a 32 0d 4c 86 05 cd 0d 4c 90 05 cd 0d 4c |l%*2.L....L....L|
0000fea0 9a 21 c8 99 26 36 32 41 35 31 2c 6d 20 b8 20 72 |.!..&62A51,m . r|
0000feb0 30 3b 56 3a e7 28 56 20 80 31 29 3d 30 20 8c 0d |0;V:.(V .1)=0 ..|
0000fec0 4c ae 0b e7 72 30 3d 31 20 8c 0d 4c b8 1c 6e 63 |L...r0=1 ..L..nc|
0000fed0 6f 6c 3d 32 35 35 3a e7 6d 24 3c 3e 22 44 22 20 |ol=255:.m$<>"D" |
0000fee0 6d 24 3d 22 52 22 0d 4c c2 05 cd 0d 4c cc 05 cd |m$="R".L....L...|
0000fef0 0d 4c d6 05 cb 0d 4c e0 19 e7 6d 3d 2d 36 20 84 |.L....L...m=-6 .|
0000ff00 20 6d 3d 2d 37 20 84 20 6d 3d 2d 38 20 8c 0d 4c | m=-7 . m=-8 ..L|
0000ff10 ea 2a 6e 78 3d bb c1 70 6e 6d 24 2c 35 29 3a 6e |.*nx=..pnm$,5):n|
0000ff20 79 3d bb c1 70 6e 6d 24 2c a7 70 6e 6d 24 2c 22 |y=..pnm$,.pnm$,"|
0000ff30 2c 22 2c 35 29 2b 31 29 0d 4c f4 0e e7 73 63 61 |,",5)+1).L...sca|
0000ff40 6c 65 6f 25 20 8c 0d 4c fe 0e e7 72 6f 74 61 74 |leo% ..L...rotat|
0000ff50 65 25 20 8c 0d 4d 08 19 e7 78 64 69 76 25 20 79 |e% ..M...xdiv% y|
0000ff60 6d 75 6c 25 3d 79 6d 75 6c 25 2a 6e 78 0d 4d 12 |mul%=ymul%*nx.M.|
0000ff70 19 e7 79 64 69 76 25 20 78 6d 75 6c 25 3d 78 6d |..ydiv% xmul%=xm|
0000ff80 75 6c 25 2a 6e 79 0d 4d 1c 05 cc 0d 4d 26 19 e7 |ul%*ny.M....M&..|
0000ff90 78 64 69 76 25 20 78 6d 75 6c 25 3d 78 6d 75 6c |xdiv% xmul%=xmul|
0000ffa0 25 2a 6e 78 0d 4d 30 19 e7 79 64 69 76 25 20 79 |%*nx.M0..ydiv% y|
0000ffb0 6d 75 6c 25 3d 79 6d 75 6c 25 2a 6e 79 0d 4d 3a |mul%=ymul%*ny.M:|
0000ffc0 05 cd 0d 4d 44 21 78 64 69 76 25 3d 78 64 69 76 |...MD!xdiv%=xdiv|
0000ffd0 25 2a 39 30 3a 79 64 69 76 25 3d 79 64 69 76 25 |%*90:ydiv%=ydiv%|
0000ffe0 2a 39 30 0d 4d 4e 05 cd 0d 4d 58 05 cd 0d 4d 62 |*90.MN...MX...Mb|
0000fff0 15 e7 72 6f 74 61 74 65 25 20 c8 94 20 78 25 2c |..rotate% .. x%,|
00010000 79 25 0d 4d 76 16 e7 78 64 69 76 25 3d 30 20 78 |y%.Mv..xdiv%=0 x|
00010010 64 69 76 25 3d 73 78 25 0d 4d 80 16 e7 79 64 69 |div%=sx%.M...ydi|
00010020 76 25 3d 30 20 79 64 69 76 25 3d 73 79 25 0d 4d |v%=0 ydiv%=sy%.M|
00010030 8a 1f e7 78 73 24 3d 22 3d 22 20 78 6d 75 6c 25 |...xs$="=" xmul%|
00010040 3d 78 25 3a 78 64 69 76 25 3d 73 78 25 0d 4d 94 |=x%:xdiv%=sx%.M.|
00010050 1f e7 79 73 24 3d 22 3d 22 20 79 6d 75 6c 25 3d |..ys$="=" ymul%=|
00010060 79 25 3a 79 64 69 76 25 3d 73 79 25 0d 4d 9e 0c |y%:ydiv%=sy%.M..|
00010070 e7 6c 6f 63 6b 25 20 8c 0d 4d a8 4d e7 78 6d 75 |.lock% ..M.M.xmu|
00010080 6c 25 2f 78 64 69 76 25 3e 79 6d 75 6c 25 2f 79 |l%/xdiv%>ymul%/y|
00010090 64 69 76 25 20 78 6d 75 6c 25 3d 79 6d 75 6c 25 |div% xmul%=ymul%|
000100a0 3a 78 64 69 76 25 3d 79 64 69 76 25 20 8b 79 6d |:xdiv%=ydiv% .ym|
000100b0 75 6c 25 3d 78 6d 75 6c 25 3a 79 64 69 76 25 3d |ul%=xmul%:ydiv%=|
000100c0 78 64 69 76 25 0d 4d b2 05 cd 0d 4d bc 0d e7 6e |xdiv%.M....M...n|
000100d0 63 6f 6c 3d 31 20 8c 0d 4d c6 0b c8 8e 20 6d 24 |col=1 ..M.... m$|
000100e0 20 ca 0d 4d d0 24 c9 22 43 22 3a 78 64 69 76 25 | ..M.$."C":xdiv%|
000100f0 3d 78 64 69 76 25 2a 34 3a 79 64 69 76 25 3d 79 |=xdiv%*4:ydiv%=y|
00010100 64 69 76 25 2a 34 0d 4d da 13 de 20 41 25 28 31 |div%*4.M... A%(1|
00010110 36 29 2c 42 25 28 31 36 29 0d 4d e4 aa 41 25 28 |6),B%(16).M..A%(|
00010120 29 3d 30 2c 26 30 30 30 30 30 30 30 31 2c 26 30 |)=0,&00000001,&0|
00010130 38 30 30 30 30 30 31 2c 26 30 38 30 30 30 31 30 |8000001,&0800010|
00010140 31 2c 26 30 38 30 38 30 31 30 31 2c 26 30 38 30 |1,&08080101,&080|
00010150 38 30 31 30 33 2c 26 30 43 30 38 30 31 30 33 2c |80103,&0C080103,|
00010160 26 30 43 30 38 30 33 30 33 2c 26 30 43 30 43 30 |&0C080303,&0C0C0|
00010170 33 30 33 2c 26 30 43 30 45 30 33 30 33 2c 26 30 |303,&0C0E0303,&0|
00010180 43 30 45 30 37 30 33 2c 26 30 45 30 45 30 37 30 |C0E0703,&0E0E070|
00010190 33 2c 26 30 45 30 45 30 37 30 37 2c 26 30 45 30 |3,&0E0E0707,&0E0|
000101a0 46 30 37 30 37 2c 26 30 45 30 46 30 46 30 37 2c |F0707,&0E0F0F07,|
000101b0 26 30 46 30 46 30 46 30 37 2c 26 30 46 30 46 30 |&0F0F0F07,&0F0F0|
000101c0 46 30 46 0d 4d ee aa 42 25 28 29 3d 30 2c 26 30 |F0F.M..B%()=0,&0|
000101d0 30 30 30 30 30 30 38 2c 26 30 31 30 30 30 30 30 |0000008,&0100000|
000101e0 38 2c 26 30 31 30 30 30 38 30 38 2c 26 30 31 30 |8,&01000808,&010|
000101f0 31 30 38 30 38 2c 26 30 31 30 31 30 38 30 43 2c |10808,&0101080C,|
00010200 26 30 33 30 31 30 38 30 43 2c 26 30 33 30 31 30 |&0301080C,&03010|
00010210 43 30 43 2c 26 30 33 30 33 30 43 30 43 2c 26 30 |C0C,&03030C0C,&0|
00010220 33 30 37 30 43 30 43 2c 26 30 33 30 37 30 45 30 |3070C0C,&03070E0|
00010230 43 2c 26 30 37 30 37 30 45 30 43 2c 26 30 37 30 |C,&07070E0C,&070|
00010240 37 30 45 30 45 2c 26 30 37 30 46 30 45 30 45 2c |70E0E,&070F0E0E,|
00010250 26 30 37 30 46 30 46 30 45 2c 26 30 46 30 46 30 |&070F0F0E,&0F0F0|
00010260 46 30 45 2c 26 30 46 30 46 30 46 30 46 0d 4d f8 |F0E,&0F0F0F0F.M.|
00010270 32 65 76 65 6e 5f 67 61 72 64 3d a4 64 69 6d 28 |2even_gard=.dim(|
00010280 31 37 2a 33 32 2a 34 29 3a 6f 64 64 5f 67 61 72 |17*32*4):odd_gar|
00010290 64 3d a4 64 69 6d 28 31 37 2a 33 32 2a 34 29 0d |d=.dim(17*32*4).|
000102a0 4e 02 43 e3 49 25 3d 30 b8 31 36 3a e3 4a 25 3d |N.C.I%=0.16:.J%=|
000102b0 30 b8 31 36 3a 65 76 65 6e 5f 67 61 72 64 21 28 |0.16:even_gard!(|
000102c0 4a 25 2a 33 32 2a 34 2b 49 25 2a 34 29 3d 41 25 |J%*32*4+I%*4)=A%|
000102d0 28 49 25 29 84 42 25 28 4a 25 29 3c 3c 34 3a ed |(I%).B%(J%)<<4:.|
000102e0 3a ed 0d 4e 0c 42 e3 49 25 3d 30 b8 31 36 3a e3 |:..N.B.I%=0.16:.|
000102f0 4a 25 3d 30 b8 31 36 3a 6f 64 64 5f 67 61 72 64 |J%=0.16:odd_gard|
00010300 21 28 49 25 2a 33 32 2a 34 2b 4a 25 2a 34 29 3d |!(I%*32*4+J%*4)=|
00010310 42 25 28 49 25 29 84 41 25 28 4a 25 29 3c 3c 34 |B%(I%).A%(J%)<<4|
00010320 3a ed 3a ed 0d 4e 16 24 c9 22 54 22 3a 78 64 69 |:.:..N.$."T":xdi|
00010330 76 25 3d 78 64 69 76 25 2a 33 3a 79 64 69 76 25 |v%=xdiv%*3:ydiv%|
00010340 3d 79 64 69 76 25 2a 33 0d 4e 20 11 de 20 41 25 |=ydiv%*3.N .. A%|
00010350 28 39 29 2c 42 25 28 39 29 0d 4e 2a 40 41 25 28 |(9),B%(9).N*@A%(|
00010360 29 3d 30 2c 26 30 30 30 31 2c 26 34 30 30 31 2c |)=0,&0001,&4001,|
00010370 26 34 30 34 31 2c 26 34 30 34 33 2c 26 34 30 43 |&4041,&4043,&40C|
00010380 33 2c 26 36 30 43 33 2c 26 36 31 43 33 2c 26 37 |3,&60C3,&61C3,&7|
00010390 31 43 33 2c 26 37 31 43 37 0d 4e 34 40 42 25 28 |1C3,&71C7.N4@B%(|
000103a0 29 3d 30 2c 26 30 30 30 34 2c 26 31 30 30 34 2c |)=0,&0004,&1004,|
000103b0 26 31 31 30 34 2c 26 31 31 30 36 2c 26 31 31 38 |&1104,&1106,&118|
000103c0 36 2c 26 33 31 38 36 2c 26 33 31 43 36 2c 26 37 |6,&3186,&31C6,&7|
000103d0 31 43 36 2c 26 37 31 43 37 0d 4e 3e 32 65 76 65 |1C6,&71C7.N>2eve|
000103e0 6e 5f 67 61 72 64 3d a4 64 69 6d 28 31 30 2a 31 |n_gard=.dim(10*1|
000103f0 36 2a 34 29 3a 6f 64 64 5f 67 61 72 64 3d a4 64 |6*4):odd_gard=.d|
00010400 69 6d 28 31 30 2a 31 36 2a 34 29 0d 4e 48 41 e3 |im(10*16*4).NHA.|
00010410 49 25 3d 30 b8 39 3a e3 4a 25 3d 30 b8 39 3a 65 |I%=0.9:.J%=0.9:e|
00010420 76 65 6e 5f 67 61 72 64 21 28 4a 25 2a 31 36 2a |ven_gard!(J%*16*|
00010430 34 2b 49 25 2a 34 29 3d 41 25 28 49 25 29 84 42 |4+I%*4)=A%(I%).B|
00010440 25 28 4a 25 29 3c 3c 33 3a ed 3a ed 0d 4e 52 40 |%(J%)<<3:.:..NR@|
00010450 e3 49 25 3d 30 b8 39 3a e3 4a 25 3d 30 b8 39 3a |.I%=0.9:.J%=0.9:|
00010460 6f 64 64 5f 67 61 72 64 21 28 49 25 2a 31 36 2a |odd_gard!(I%*16*|
00010470 34 2b 4a 25 2a 34 29 3d 42 25 28 49 25 29 84 41 |4+J%*4)=B%(I%).A|
00010480 25 28 4a 25 29 3c 3c 33 3a ed 3a ed 0d 4e 5c 24 |%(J%)<<3:.:..N\$|
00010490 c9 22 44 22 3a 78 64 69 76 25 3d 78 64 69 76 25 |."D":xdiv%=xdiv%|
000104a0 2a 32 3a 79 64 69 76 25 3d 79 64 69 76 25 2a 32 |*2:ydiv%=ydiv%*2|
000104b0 0d 4e 66 11 de 20 41 25 28 34 29 2c 42 25 28 34 |.Nf.. A%(4),B%(4|
000104c0 29 0d 4e 70 19 41 25 28 29 3d 30 2c 26 31 2c 26 |).Np.A%()=0,&1,&|
000104d0 32 31 2c 26 33 31 2c 26 33 33 0d 4e 7a 19 42 25 |21,&31,&33.Nz.B%|
000104e0 28 29 3d 30 2c 26 32 2c 26 31 32 2c 26 33 32 2c |()=0,&2,&12,&32,|
000104f0 26 33 33 0d 4e 84 2a 65 76 65 6e 5f 67 61 72 64 |&33.N.*even_gard|
00010500 3d a4 64 69 6d 28 35 2a 38 29 3a 6f 64 64 5f 67 |=.dim(5*8):odd_g|
00010510 61 72 64 3d a4 64 69 6d 28 35 2a 38 29 0d 4e 8e |ard=.dim(5*8).N.|
00010520 3c e3 49 25 3d 30 b8 34 3a e3 4a 25 3d 30 b8 34 |<.I%=0.4:.J%=0.4|
00010530 3a 65 76 65 6e 5f 67 61 72 64 3f 28 4a 25 2a 38 |:even_gard?(J%*8|
00010540 2b 49 25 29 3d 41 25 28 49 25 29 84 42 25 28 4a |+I%)=A%(I%).B%(J|
00010550 25 29 3c 3c 32 3a ed 3a ed 0d 4e 98 3b e3 49 25 |%)<<2:.:..N.;.I%|
00010560 3d 30 b8 34 3a e3 4a 25 3d 30 b8 34 3a 6f 64 64 |=0.4:.J%=0.4:odd|
00010570 5f 67 61 72 64 3f 28 49 25 2a 38 2b 4a 25 29 3d |_gard?(I%*8+J%)=|
00010580 42 25 28 49 25 29 84 41 25 28 4a 25 29 3c 3c 32 |B%(I%).A%(J%)<<2|
00010590 3a ed 3a ed 0d 4e a2 05 cb 0d 4e ac 05 cd 0d 4e |:.:..N....N....N|
000105a0 b6 05 f5 0d 4e c0 2d f2 72 65 64 75 63 65 28 78 |....N.-.reduce(x|
000105b0 6d 75 6c 25 2c 78 64 69 76 25 29 3a f2 72 65 64 |mul%,xdiv%):.red|
000105c0 75 63 65 28 79 6d 75 6c 25 2c 79 64 69 76 25 29 |uce(ymul%,ydiv%)|
000105d0 0d 4e ca 55 e7 78 64 69 76 25 2a 79 64 69 76 25 |.N.U.xdiv%*ydiv%|
000105e0 2a 32 35 35 3e 32 5e 33 32 20 78 64 69 76 25 3d |*255>2^32 xdiv%=|
000105f0 78 64 69 76 25 80 ac 31 3a 79 64 69 76 25 3d 79 |xdiv%..1:ydiv%=y|
00010600 64 69 76 25 80 ac 31 3a 78 6d 75 6c 25 3d 78 6d |div%..1:xmul%=xm|
00010610 75 6c 25 80 ac 31 3a 79 6d 75 6c 25 3d 79 6d 75 |ul%..1:ymul%=ymu|
00010620 6c 25 80 ac 31 0d 4e d4 19 fd 78 64 69 76 25 2a |l%..1.N...xdiv%*|
00010630 79 64 69 76 25 2a 32 35 35 3c 32 5e 33 32 0d 4e |ydiv%*255<2^32.N|
00010640 de 40 e7 69 6e 66 6f 25 20 f1 22 53 69 7a 65 20 |.@.info% ."Size |
00010650 72 61 74 69 6f 73 20 61 72 65 20 78 20 22 3b 78 |ratios are x ";x|
00010660 6d 75 6c 25 22 3a 22 78 64 69 76 25 22 20 79 20 |mul%":"xdiv%" y |
00010670 22 79 6d 75 6c 25 22 3a 22 79 64 69 76 25 0d 4e |"ymul%":"ydiv%.N|
00010680 e8 3f 78 25 3d 73 78 25 2a 78 6d 75 6c 25 2f 78 |.?x%=sx%*xmul%/x|
00010690 64 69 76 25 2b 2e 39 39 39 39 3a 79 25 3d 73 79 |div%+.9999:y%=sy|
000106a0 25 2a 79 6d 75 6c 25 2f 79 64 69 76 25 2b 2e 39 |%*ymul%/ydiv%+.9|
000106b0 39 39 39 3a 72 6f 77 73 25 3d 73 79 25 0d 4e f2 |999:rows%=sy%.N.|
000106c0 18 6f 72 64 65 72 25 3d 78 25 2a 79 25 3e 73 78 |.order%=x%*y%>sx|
000106d0 25 2a 73 79 25 0d 4e fc 1a 63 6f 64 65 25 3d a4 |%*sy%.N..code%=.|
000106e0 64 69 6d 28 38 31 39 32 29 3a 53 50 3d 31 33 0d |dim(8192):SP=13.|
000106f0 4f 06 0d e7 63 61 63 68 65 25 20 8c 0d 4f 10 15 |O...cache% ..O..|
00010700 f2 63 61 63 68 65 73 69 7a 65 28 63 6f 64 65 25 |.cachesize(code%|
00010710 29 0d 4f 1a 12 e7 63 61 63 68 65 62 79 74 65 73 |).O...cachebytes|
00010720 25 20 8c 0d 4f 24 3a 66 69 6c 65 73 69 7a 65 25 |% ..O$:filesize%|
00010730 3d a2 23 63 25 2d 8f 23 63 25 3a e7 63 61 63 68 |=.#c%-.#c%:.cach|
00010740 65 25 3e 66 69 6c 65 73 69 7a 65 25 20 63 61 63 |e%>filesize% cac|
00010750 68 65 25 3d 66 69 6c 65 73 69 7a 65 25 0d 4f 2e |he%=filesize%.O.|
00010760 39 e7 63 61 63 68 65 62 79 74 65 73 25 3e 30 20 |9.cachebytes%>0 |
00010770 e7 63 61 63 68 65 25 3e 63 61 63 68 65 62 79 74 |.cache%>cachebyt|
00010780 65 73 25 20 63 61 63 68 65 25 3d 63 61 63 68 65 |es% cache%=cache|
00010790 62 79 74 65 73 25 0d 4f 38 15 63 61 63 68 65 72 |bytes%.O8.cacher|
000107a0 6f 77 73 25 3d 63 61 63 68 65 25 0d 4f 42 05 cc |ows%=cache%.OB..|
000107b0 0d 4f 4c 3e 66 69 6c 65 73 69 7a 65 25 3d 73 79 |.OL>filesize%=sy|
000107c0 25 2a 72 6f 77 62 79 74 65 73 25 3a e7 63 61 63 |%*rowbytes%:.cac|
000107d0 68 65 25 3c 72 6f 77 62 79 74 65 73 25 20 63 61 |he%<rowbytes% ca|
000107e0 63 68 65 25 3d 72 6f 77 62 79 74 65 73 25 0d 4f |che%=rowbytes%.O|
000107f0 56 26 e7 63 61 63 68 65 25 3e 66 69 6c 65 73 69 |V&.cache%>filesi|
00010800 7a 65 25 20 63 61 63 68 65 25 3d 66 69 6c 65 73 |ze% cache%=files|
00010810 69 7a 65 25 0d 4f 60 43 63 61 63 68 65 72 6f 77 |ize%.O`Ccacherow|
00010820 73 25 3d 73 74 72 69 70 72 6f 77 73 25 3a e7 63 |s%=striprows%:.c|
00010830 61 63 68 65 72 6f 77 73 25 3c 31 20 63 61 63 68 |acherows%<1 cach|
00010840 65 72 6f 77 73 25 3d 63 61 63 68 65 25 81 72 6f |erows%=cache%.ro|
00010850 77 62 79 74 65 73 25 0d 4f 6a 1f 63 61 63 68 65 |wbytes%.Oj.cache|
00010860 25 3d 63 61 63 68 65 72 6f 77 73 25 2a 72 6f 77 |%=cacherows%*row|
00010870 62 79 74 65 73 25 0d 4f 74 05 cd 0d 4f 7e 47 64 |bytes%.Ot...O~Gd|
00010880 61 74 61 63 61 63 68 65 25 3d a4 63 61 63 68 65 |atacache%=.cache|
00010890 64 69 6d 28 63 61 63 68 65 25 29 3a e7 64 61 74 |dim(cache%):.dat|
000108a0 61 63 61 63 68 65 25 3d 2d 31 20 64 61 74 61 63 |acache%=-1 datac|
000108b0 61 63 68 65 25 3d a4 64 69 6d 28 63 61 63 68 65 |ache%=.dim(cache|
000108c0 25 29 0d 4f 88 05 cd 0d 4f 92 1d e7 6e 63 6f 6c |%).O....O...ncol|
000108d0 3d 32 35 35 20 e7 6d 24 3c 3e 22 44 22 20 6d 24 |=255 .m$<>"D" m$|
000108e0 3d 22 52 22 0d 4f 9c 1f e7 6d 24 3d 22 52 22 20 |="R".O...m$="R" |
000108f0 84 28 6e 63 6f 6c 3d 36 33 20 80 6d 24 3d 22 22 |.(ncol=63 .m$=""|
00010900 29 20 8c 0d 4f a6 2b c8 99 35 33 2c 2d 31 2c 33 |) ..O.+..53,-1,3|
00010910 20 b8 2c 2c 4a 25 3a e7 6e 63 6f 6c 3d 32 35 35 | .,,J%:.ncol=255|
00010920 20 80 20 eb 3d 6d 20 4a 25 3d 6e 63 6f 6c 0d 4f | . .=m J%=ncol.O|
00010930 b0 24 e7 6e 63 6f 6c 3d 36 33 20 80 28 6d 24 3d |.$.ncol=63 .(m$=|
00010940 22 22 84 6d 24 3d 22 52 22 29 20 4a 25 3d 6e 63 |"".m$="R") J%=nc|
00010950 6f 6c 0d 4f ba 50 e7 4a 25 3c 3e 6e 63 6f 6c 20 |ol.O.P.J%<>ncol |
00010960 f2 63 6c 6f 73 65 3a 85 34 32 2c 22 59 6f 75 20 |.close:.42,"You |
00010970 6d 75 73 74 20 62 65 20 69 6e 20 61 20 22 2b c3 |must be in a "+.|
00010980 28 6e 63 6f 6c 2b 31 29 2b 22 20 63 6f 6c 6f 75 |(ncol+1)+" colou|
00010990 72 20 6d 6f 64 65 20 74 6f 20 64 6f 20 74 68 69 |r mode to do thi|
000109a0 73 22 0d 4f c4 19 4a 25 3d 6e 63 6f 6c 3a e7 4a |s".O..J%=ncol:.J|
000109b0 25 3d 36 33 20 4a 25 3d 32 35 35 0d 4f ce 1b 70 |%=63 J%=255.O..p|
000109c0 61 6c 65 74 74 65 25 3d a4 64 69 6d 28 28 4a 25 |alette%=.dim((J%|
000109d0 2b 31 29 2a 34 29 0d 4f d8 0f e7 6e 63 6f 6c 3d |+1)*4).O...ncol=|
000109e0 32 35 35 20 8c 0d 4f e2 34 c8 99 22 43 6f 6c 6f |255 ..O.4.."Colo|
000109f0 75 72 54 72 61 6e 73 5f 52 65 61 64 50 61 6c 65 |urTrans_ReadPale|
00010a00 74 74 65 22 2c 2d 31 2c 2d 31 2c 70 61 6c 65 74 |tte",-1,-1,palet|
00010a10 74 65 25 2c 32 35 36 2a 34 0d 4f ec 35 e3 49 25 |te%,256*4.O.5.I%|
00010a20 3d 30 b8 32 35 35 3a 70 61 6c 65 74 74 65 25 21 |=0.255:palette%!|
00010a30 28 49 25 3c 3c 32 29 3d 70 61 6c 65 74 74 65 25 |(I%<<2)=palette%|
00010a40 21 28 49 25 3c 3c 32 29 3e 3e 3e 38 3a ed 0d 4f |!(I%<<2)>>>8:..O|
00010a50 f6 05 cc 0d 50 00 0e e7 6e 63 6f 6c 3d 36 33 20 |....P...ncol=63 |
00010a60 8c 0d 50 0a 0d e3 49 25 3d 30 b8 32 35 35 0d 50 |..P...I%=0.255.P|
00010a70 14 2b 70 61 6c 65 74 74 65 25 21 28 49 25 3c 3c |.+palette%!(I%<<|
00010a80 32 29 3d 28 49 25 80 37 20 84 20 28 49 25 80 31 |2)=(I%.7 . (I%.1|
00010a90 36 29 3e 3e 31 29 2a 31 37 0d 50 1e 2f 70 61 6c |6)>>1)*17.P./pal|
00010aa0 65 74 74 65 25 3f 28 49 25 3c 3c 32 20 84 31 29 |ette%?(I%<<2 .1)|
00010ab0 3d 28 49 25 80 33 20 84 20 28 49 25 80 26 36 30 |=(I%.3 . (I%.&60|
00010ac0 29 3e 3e 33 29 2a 31 37 0d 50 28 3b 70 61 6c 65 |)>>3)*17.P(;pale|
00010ad0 74 74 65 25 3f 28 49 25 3c 3c 32 20 84 32 29 3d |tte%?(I%<<2 .2)=|
00010ae0 28 49 25 80 33 20 84 20 28 49 25 80 38 29 3e 3e |(I%.3 . (I%.8)>>|
00010af0 31 20 84 20 28 49 25 80 31 32 38 29 3e 3e 34 29 |1 . (I%.128)>>4)|
00010b00 2a 31 37 0d 50 32 05 ed 0d 50 3c 05 cc 0d 50 46 |*17.P2...P<...PF|
00010b10 48 e3 49 25 3d 30 b8 6e 63 6f 6c 3a c8 99 22 4f |H.I%=0.ncol:.."O|
00010b20 53 5f 52 65 61 64 50 61 6c 65 74 74 65 22 2c 49 |S_ReadPalette",I|
00010b30 25 2c 31 36 20 b8 20 2c 2c 69 25 3a 70 61 6c 65 |%,16 . ,,i%:pale|
00010b40 74 74 65 25 21 28 49 25 3c 3c 32 29 3d 69 25 3e |tte%!(I%<<2)=i%>|
00010b50 3e 3e 38 3a ed 0d 50 50 05 cd 0d 50 5a 05 cd 0d |>>8:..PP...PZ...|
00010b60 50 64 25 74 25 3d b9 3a 6b 25 3d 70 61 6c 65 74 |Pd%t%=.:k%=palet|
00010b70 74 65 25 2b 31 3a 6e 6b 25 3d 70 61 6c 65 74 74 |te%+1:nk%=palett|
00010b80 65 25 2b 32 0d 50 6e 12 e3 49 25 3d 30 b8 6e 63 |e%+2.Pn..I%=0.nc|
00010b90 6f 6c 2a 34 88 34 0d 50 78 32 e7 70 61 6c 65 74 |ol*4.4.Px2.palet|
00010ba0 74 65 25 3f 49 25 3c 3e 6b 25 3f 49 25 20 84 20 |te%?I%<>k%?I% . |
00010bb0 70 61 6c 65 74 74 65 25 3f 49 25 3c 3e 6e 6b 25 |palette%?I%<>nk%|
00010bc0 3f 49 25 20 74 25 3d a3 0d 50 82 05 ed 0d 50 8c |?I% t%=..P....P.|
00010bd0 17 e7 6e 63 6f 6c 3e 31 36 20 e7 74 25 20 6d 24 |..ncol>16 .t% m$|
00010be0 3d 22 44 22 0d 50 96 17 e7 6e 63 6f 6c 3d 31 35 |="D".P...ncol=15|
00010bf0 20 e7 74 25 20 6d 24 3d 22 54 22 0d 50 a0 0d e7 | .t% m$="T".P...|
00010c00 6d 24 3d 22 52 22 20 8c 0d 50 aa 37 e7 20 73 78 |m$="R" ..P.7. sx|
00010c10 25 2a 78 6d 75 6c 25 2f 78 64 69 76 25 2a 73 79 |%*xmul%/xdiv%*sy|
00010c20 25 2a 79 6d 75 6c 25 2f 79 64 69 76 25 3c 32 30 |%*ymul%/ydiv%<20|
00010c30 30 30 30 30 20 6b 25 3d 33 20 8b 6b 25 3d 34 0d |0000 k%=3 .k%=4.|
00010c40 50 b4 0c 6e 6b 25 3d 38 2d 6b 25 0d 50 be 0d 74 |P..nk%=8-k%.P..t|
00010c50 25 3d 31 3c 3c 6e 6b 25 0d 50 c8 0e 6d 61 73 6b |%=1<<nk%.P..mask|
00010c60 25 3d 74 25 2d 31 0d 50 d2 11 74 64 32 25 3d 31 |%=t%-1.P..td2%=1|
00010c70 3c 3c 6e 6b 25 2d 31 0d 50 dc 13 73 74 65 70 25 |<<nk%-1.P..step%|
00010c80 3d 31 3c 3c 28 38 2d 6b 25 29 0d 50 e6 24 6e 63 |=1<<(8-k%).P.$nc|
00010c90 6f 6c 25 3d 6e 63 6f 6c 2b 31 3a e7 6e 63 6f 6c |ol%=ncol+1:.ncol|
00010ca0 25 3d 36 34 20 6e 63 6f 6c 25 3d 32 35 36 0d 50 |%=64 ncol%=256.P|
00010cb0 f0 1b 69 63 74 25 3d a4 64 69 6d 28 32 5e 28 6b |..ict%=.dim(2^(k|
00010cc0 25 2a 33 29 2a 34 2d 31 29 0d 50 fa 61 e7 63 61 |%*3)*4-1).P.a.ca|
00010cd0 63 68 65 25 3c 38 31 39 32 2a 36 20 73 63 72 61 |che%<8192*6 scra|
00010ce0 74 63 68 25 3d a4 64 69 6d 28 38 31 39 32 2a 36 |tch%=.dim(8192*6|
00010cf0 29 3a 73 63 72 61 74 63 68 73 7a 25 3d 38 31 39 |):scratchsz%=819|
00010d00 32 2a 36 20 8b 73 63 72 61 74 63 68 25 3d 64 61 |2*6 .scratch%=da|
00010d10 74 61 63 61 63 68 65 25 3a 73 63 72 61 74 63 68 |tacache%:scratch|
00010d20 73 7a 25 3d 63 61 63 68 65 25 0d 51 04 3e e7 69 |sz%=cache%.Q.>.i|
00010d30 6e 66 6f 25 20 f1 22 42 65 67 69 6e 20 74 61 62 |nfo% ."Begin tab|
00010d40 6c 65 20 67 65 6e 65 72 61 74 69 6f 6e 20 77 69 |le generation wi|
00010d50 74 68 20 22 3b 73 63 72 61 74 63 68 73 7a 25 22 |th ";scratchsz%"|
00010d60 20 62 79 74 65 73 2e 22 0d 51 0e 0d e3 5a 25 3d | bytes.".Q...Z%=|
00010d70 30 b8 32 88 32 0d 51 18 0c 50 25 3d 63 6f 64 65 |0.2.2.Q..P%=code|
00010d80 25 0d 51 22 0b 5b 4f 50 54 20 5a 25 0d 51 2c 0a |%.Q".[OPT Z%.Q,.|
00010d90 2e 6d 61 6b 65 25 0d 51 36 14 53 54 4d 46 44 20 |.make%.Q6.STMFD |
00010da0 72 31 33 21 2c 7b 72 31 34 7d 0d 51 40 0e 4c 44 |r13!,{r14}.Q@.LD|
00010db0 52 20 72 34 2c 69 63 74 0d 51 4a 13 4d 4f 56 20 |R r4,ict.QJ.MOV |
00010dc0 72 32 2c 23 73 74 65 70 25 2f 32 0d 51 54 0d 2e |r2,#step%/2.QT..|
00010dd0 62 6c 75 65 6c 6f 6f 70 0d 51 5e 13 4d 4f 56 20 |blueloop.Q^.MOV |
00010de0 72 31 2c 23 73 74 65 70 25 2f 32 0d 51 68 0e 2e |r1,#step%/2.Qh..|
00010df0 67 72 65 65 6e 6c 6f 6f 70 0d 51 72 13 4d 4f 56 |greenloop.Qr.MOV|
00010e00 20 72 30 2c 23 73 74 65 70 25 2f 32 0d 51 7c 0c | r0,#step%/2.Q|.|
00010e10 2e 72 65 64 6c 6f 6f 70 0d 51 90 16 4d 4f 56 20 |.redloop.Q..MOV |
00010e20 72 33 2c 72 30 2c 4c 53 52 20 23 6e 6b 25 0d 51 |r3,r0,LSR #nk%.Q|
00010e30 9a 17 4d 4f 56 20 72 31 34 2c 72 31 2c 4c 53 52 |..MOV r14,r1,LSR|
00010e40 20 23 6e 6b 25 0d 51 a4 16 4d 4f 56 20 72 35 2c | #nk%.Q..MOV r5,|
00010e50 72 32 2c 4c 53 52 20 23 6e 6b 25 0d 51 ae 18 84 |r2,LSR #nk%.Q...|
00010e60 52 20 72 33 2c 72 33 2c 72 31 34 2c 4c 53 4c 20 |R r3,r3,r14,LSL |
00010e70 23 6b 25 0d 51 b8 19 84 52 20 72 33 2c 72 33 2c |#k%.Q...R r3,r3,|
00010e80 72 35 2c 4c 53 4c 20 23 6b 25 2a 32 0d 51 c2 0e |r5,LSL #k%*2.Q..|
00010e90 42 4c 20 64 65 76 69 6f 75 73 0d 51 cc 16 41 44 |BL devious.Q..AD|
00010ea0 44 20 72 30 2c 72 30 2c 23 73 74 65 70 25 2a 32 |D r0,r0,#step%*2|
00010eb0 0d 51 d6 0f 43 4d 50 20 72 30 2c 23 32 35 36 0d |.Q..CMP r0,#256.|
00010ec0 51 e0 0f 42 43 43 20 72 65 64 6c 6f 6f 70 0d 51 |Q..BCC redloop.Q|
00010ed0 ea 14 41 44 44 20 72 31 2c 72 31 2c 23 73 74 65 |..ADD r1,r1,#ste|
00010ee0 70 25 0d 51 f4 0f 43 4d 50 20 72 31 2c 23 32 35 |p%.Q..CMP r1,#25|
00010ef0 36 0d 51 fe 11 42 43 43 20 67 72 65 65 6e 6c 6f |6.Q..BCC greenlo|
00010f00 6f 70 0d 52 08 14 41 44 44 20 72 32 2c 72 32 2c |op.R..ADD r2,r2,|
00010f10 23 73 74 65 70 25 0d 52 12 0f 43 4d 50 20 72 32 |#step%.R..CMP r2|
00010f20 2c 23 32 35 36 0d 52 1c 10 42 43 43 20 62 6c 75 |,#256.R..BCC blu|
00010f30 65 6c 6f 6f 70 0d 52 26 14 4c 44 4d 46 44 20 72 |eloop.R&.LDMFD r|
00010f40 31 33 21 2c 7b 70 63 7d 5e 0d 52 30 14 2e 63 74 |13!,{pc}^.R0..ct|
00010f50 20 44 43 44 20 70 61 6c 65 74 74 65 25 0d 52 3a | DCD palette%.R:|
00010f60 1f 2e 6d 69 6e 20 44 43 44 20 63 6f 64 65 25 2b |..min DCD code%+|
00010f70 38 31 39 32 2d 32 35 36 2a 32 2a 34 0d 52 44 11 |8192-256*2*4.RD.|
00010f80 2e 69 63 74 20 44 43 44 20 69 63 74 25 0d 52 4e |.ict DCD ict%.RN|
00010f90 17 2e 66 73 61 61 64 20 44 43 44 20 73 63 72 61 |..fsaad DCD scra|
00010fa0 74 63 68 25 0d 52 58 23 2e 66 73 61 6c 69 6d 20 |tch%.RX#.fsalim |
00010fb0 44 43 44 20 73 63 72 61 74 63 68 25 2b 73 63 72 |DCD scratch%+scr|
00010fc0 61 74 63 68 73 7a 25 0d 52 62 0c 2e 64 65 76 69 |atchsz%.Rb..devi|
00010fd0 6f 75 73 0d 52 6c 26 53 54 4d 46 44 20 72 31 33 |ous.Rl&STMFD r13|
00010fe0 21 2c 7b 72 30 2c 72 31 2c 72 32 2c 72 33 2c 72 |!,{r0,r1,r2,r3,r|
00010ff0 34 2c 72 38 2c 72 31 34 7d 0d 52 76 1b 42 49 43 |4,r8,r14}.Rv.BIC|
00011000 20 72 30 2c 72 30 2c 23 28 6d 61 73 6b 25 3c 3c | r0,r0,#(mask%<<|
00011010 31 29 2b 31 0d 52 80 14 42 49 43 20 72 31 2c 72 |1)+1.R..BIC r1,r|
00011020 31 2c 23 6d 61 73 6b 25 0d 52 8a 14 42 49 43 20 |1,#mask%.R..BIC |
00011030 72 32 2c 72 32 2c 23 6d 61 73 6b 25 0d 52 a8 0d |r2,r2,#mask%.R..|
00011040 4d 4f 56 20 72 35 2c 23 30 0d 52 b2 0d 4c 44 52 |MOV r5,#0.R..LDR|
00011050 20 72 36 2c 63 74 0d 52 bc 13 4d 4f 56 20 72 39 | r6,ct.R..MOV r9|
00011060 2c 23 26 66 66 30 30 30 30 0d 52 c6 14 4d 4f 56 |,#&ff0000.R..MOV|
00011070 20 72 31 34 2c 23 26 66 66 30 30 30 30 0d 52 d0 | r14,#&ff0000.R.|
00011080 0f 4c 44 52 20 72 31 32 2c 6d 69 6e 0d 52 da 0c |.LDR r12,min.R..|
00011090 2e 64 65 76 6c 6f 6f 70 0d 52 e4 19 4c 44 52 20 |.devloop.R..LDR |
000110a0 72 37 2c 5b 72 36 2c 72 35 2c 4c 53 4c 20 23 32 |r7,[r6,r5,LSL #2|
000110b0 5d 0d 52 ee 15 4d 4f 56 20 72 38 2c 72 37 2c 6c |].R..MOV r8,r7,l|
000110c0 73 72 20 23 31 36 0d 52 f8 15 42 49 43 20 72 31 |sr #16.R..BIC r1|
000110d0 30 2c 72 38 2c 23 6d 61 73 6b 25 0d 53 02 12 41 |0,r8,#mask%.S..A|
000110e0 44 44 20 72 31 31 2c 72 32 2c 23 74 25 0d 53 0c |DD r11,r2,#t%.S.|
000110f0 0e 43 4d 50 20 72 31 30 2c 72 32 0d 53 16 11 42 |.CMP r10,r2.S..B|
00011100 45 51 20 62 6c 75 65 65 71 75 61 6c 0d 53 20 13 |EQ blueequal.S .|
00011110 53 55 42 43 43 20 72 31 30 2c 72 32 2c 72 38 0d |SUBCC r10,r2,r8.|
00011120 53 2a 14 53 55 42 43 43 20 72 31 31 2c 72 31 31 |S*.SUBCC r11,r11|
00011130 2c 72 38 0d 53 34 14 53 55 42 43 53 20 72 31 30 |,r8.S4.SUBCS r10|
00011140 2c 72 38 2c 72 31 31 0d 53 3e 13 53 55 42 43 53 |,r8,r11.S>.SUBCS|
00011150 20 72 31 31 2c 72 38 2c 72 32 0d 53 48 12 4d 55 | r11,r8,r2.SH.MU|
00011160 4c 20 72 33 2c 72 31 30 2c 72 31 30 0d 53 52 0d |L r3,r10,r10.SR.|
00011170 2e 64 6f 6e 65 62 6c 75 65 0d 53 5c 12 4d 55 4c |.doneblue.S\.MUL|
00011180 20 72 34 2c 72 31 31 2c 72 31 31 0d 53 66 14 4d | r4,r11,r11.Sf.M|
00011190 4f 56 20 72 38 2c 72 37 2c 6c 73 72 20 23 38 0d |OV r8,r7,lsr #8.|
000111a0 53 70 10 80 20 72 38 2c 72 38 2c 23 32 35 35 0d |Sp.. r8,r8,#255.|
000111b0 53 7a 15 42 49 43 20 72 31 30 2c 72 38 2c 23 6d |Sz.BIC r10,r8,#m|
000111c0 61 73 6b 25 0d 53 84 12 41 44 44 20 72 31 31 2c |ask%.S..ADD r11,|
000111d0 72 31 2c 23 74 25 0d 53 8e 0e 43 4d 50 20 72 31 |r1,#t%.S..CMP r1|
000111e0 30 2c 72 31 0d 53 98 12 42 45 51 20 67 72 65 65 |0,r1.S..BEQ gree|
000111f0 6e 65 71 75 61 6c 0d 53 a2 13 53 55 42 43 43 20 |nequal.S..SUBCC |
00011200 72 31 30 2c 72 31 2c 72 38 0d 53 ac 14 53 55 42 |r10,r1,r8.S..SUB|
00011210 43 43 20 72 31 31 2c 72 31 31 2c 72 38 0d 53 b6 |CC r11,r11,r8.S.|
00011220 14 53 55 42 43 53 20 72 31 30 2c 72 38 2c 72 31 |.SUBCS r10,r8,r1|
00011230 31 0d 53 c0 13 53 55 42 43 53 20 72 31 31 2c 72 |1.S..SUBCS r11,r|
00011240 38 2c 72 31 0d 53 d4 12 4d 55 4c 20 72 38 2c 72 |8,r1.S..MUL r8,r|
00011250 31 30 2c 72 31 30 0d 53 de 17 41 44 44 20 72 38 |10,r10.S..ADD r8|
00011260 2c 72 38 2c 72 38 2c 4c 53 4c 20 23 32 0d 53 e8 |,r8,r8,LSL #2.S.|
00011270 17 41 44 44 20 72 33 2c 72 33 2c 72 38 2c 4c 53 |.ADD r3,r3,r8,LS|
00011280 4c 20 23 31 0d 53 f2 0e 2e 64 6f 6e 65 67 72 65 |L #1.S...donegre|
00011290 65 6e 0d 53 fc 12 4d 55 4c 20 72 38 2c 72 31 31 |en.S..MUL r8,r11|
000112a0 2c 72 31 31 0d 54 06 17 41 44 44 20 72 38 2c 72 |,r11.T..ADD r8,r|
000112b0 38 2c 72 38 2c 4c 53 4c 20 23 32 0d 54 10 17 41 |8,r8,LSL #2.T..A|
000112c0 44 44 20 72 34 2c 72 34 2c 72 38 2c 4c 53 4c 20 |DD r4,r4,r8,LSL |
000112d0 23 31 0d 54 24 10 80 20 72 38 2c 72 37 2c 23 32 |#1.T$.. r8,r7,#2|
000112e0 35 35 0d 54 38 15 42 49 43 20 72 31 30 2c 72 38 |55.T8.BIC r10,r8|
000112f0 2c 23 6d 61 73 6b 25 0d 54 42 12 41 44 44 20 72 |,#mask%.TB.ADD r|
00011300 31 31 2c 72 30 2c 23 74 25 0d 54 4c 0e 43 4d 50 |11,r0,#t%.TL.CMP|
00011310 20 72 31 30 2c 72 30 0d 54 56 11 42 45 51 20 72 | r10,r0.TV.BEQ r|
00011320 65 64 65 71 75 61 6c 30 0d 54 60 13 53 55 42 43 |edequal0.T`.SUBC|
00011330 43 20 72 31 30 2c 72 30 2c 72 38 0d 54 6a 14 53 |C r10,r0,r8.Tj.S|
00011340 55 42 43 43 20 72 31 31 2c 72 31 31 2c 72 38 0d |UBCC r11,r11,r8.|
00011350 54 74 14 53 55 42 43 53 20 72 31 30 2c 72 38 2c |Tt.SUBCS r10,r8,|
00011360 72 31 31 0d 54 7e 13 53 55 42 43 53 20 72 31 31 |r11.T~.SUBCS r11|
00011370 2c 72 38 2c 72 30 0d 54 92 12 4d 55 4c 20 72 37 |,r8,r0.T..MUL r7|
00011380 2c 72 31 30 2c 72 31 30 0d 54 9c 17 41 44 44 20 |,r10,r10.T..ADD |
00011390 72 37 2c 72 37 2c 72 37 2c 4c 53 4c 20 23 31 0d |r7,r7,r7,LSL #1.|
000113a0 54 a6 10 41 44 44 20 72 37 2c 72 33 2c 72 37 0d |T..ADD r7,r3,r7.|
000113b0 54 b0 1a 53 54 52 20 72 37 2c 5b 72 31 32 2c 72 |T..STR r7,[r12,r|
000113c0 35 2c 4c 53 4c 20 23 32 5d 0d 54 ba 0d 2e 64 6f |5,LSL #2].T...do|
000113d0 6e 65 72 65 64 30 0d 54 c4 12 4d 55 4c 20 72 37 |nered0.T..MUL r7|
000113e0 2c 72 31 31 2c 72 31 31 0d 54 ce 17 41 44 44 20 |,r11,r11.T..ADD |
000113f0 72 37 2c 72 37 2c 72 37 2c 4c 53 4c 20 23 31 0d |r7,r7,r7,LSL #1.|
00011400 54 d8 10 41 44 44 20 72 37 2c 72 34 2c 72 37 0d |T..ADD r7,r4,r7.|
00011410 54 ec 0d 43 4d 50 20 72 37 2c 72 39 0d 54 f6 0f |T..CMP r7,r9.T..|
00011420 4d 4f 56 43 43 20 72 39 2c 72 37 0d 55 0a 11 41 |MOVCC r9,r7.U..A|
00011430 44 44 20 72 37 2c 72 30 2c 23 74 25 0d 55 14 15 |DD r7,r0,#t%.U..|
00011440 42 49 43 20 72 31 30 2c 72 38 2c 23 6d 61 73 6b |BIC r10,r8,#mask|
00011450 25 0d 55 1e 12 41 44 44 20 72 31 31 2c 72 37 2c |%.U..ADD r11,r7,|
00011460 23 74 25 0d 55 28 0e 43 4d 50 20 72 31 30 2c 72 |#t%.U(.CMP r10,r|
00011470 37 0d 55 32 11 42 45 51 20 72 65 64 65 71 75 61 |7.U2.BEQ redequa|
00011480 6c 31 0d 55 3c 13 53 55 42 43 43 20 72 31 30 2c |l1.U<.SUBCC r10,|
00011490 72 37 2c 72 38 0d 55 46 14 53 55 42 43 43 20 72 |r7,r8.UF.SUBCC r|
000114a0 31 31 2c 72 31 31 2c 72 38 0d 55 50 14 53 55 42 |11,r11,r8.UP.SUB|
000114b0 43 53 20 72 31 30 2c 72 38 2c 72 31 31 0d 55 5a |CS r10,r8,r11.UZ|
000114c0 13 53 55 42 43 53 20 72 31 31 2c 72 38 2c 72 37 |.SUBCS r11,r8,r7|
000114d0 0d 55 64 12 4d 55 4c 20 72 37 2c 72 31 30 2c 72 |.Ud.MUL r7,r10,r|
000114e0 31 30 0d 55 6e 17 41 44 44 20 72 37 2c 72 37 2c |10.Un.ADD r7,r7,|
000114f0 72 37 2c 4c 53 4c 20 23 31 0d 55 78 10 41 44 44 |r7,LSL #1.Ux.ADD|
00011500 20 72 33 2c 72 33 2c 72 37 0d 55 8c 0d 2e 64 6f | r3,r3,r7.U...do|
00011510 6e 65 72 65 64 31 0d 55 96 14 41 44 44 20 72 37 |nered1.U..ADD r7|
00011520 2c 72 35 2c 23 6e 63 6f 6c 25 0d 55 a0 1a 53 54 |,r5,#ncol%.U..ST|
00011530 52 20 72 33 2c 5b 72 31 32 2c 72 37 2c 4c 53 4c |R r3,[r12,r7,LSL|
00011540 20 23 32 5d 0d 55 aa 12 4d 55 4c 20 72 37 2c 72 | #2].U..MUL r7,r|
00011550 31 31 2c 72 31 31 0d 55 b4 17 41 44 44 20 72 37 |11,r11.U..ADD r7|
00011560 2c 72 37 2c 72 37 2c 4c 53 4c 20 23 31 0d 55 be |,r7,r7,LSL #1.U.|
00011570 10 41 44 44 20 72 37 2c 72 34 2c 72 37 0d 55 d2 |.ADD r7,r4,r7.U.|
00011580 0e 43 4d 50 20 72 37 2c 72 31 34 0d 55 dc 10 4d |.CMP r7,r14.U..M|
00011590 4f 56 43 43 20 72 31 34 2c 72 37 0d 55 e6 10 41 |OVCC r14,r7.U..A|
000115a0 44 44 20 72 35 2c 72 35 2c 23 31 0d 55 f0 11 43 |DD r5,r5,#1.U..C|
000115b0 4d 50 20 72 35 2c 23 6e 63 6f 6c 25 0d 55 fa 0f |MP r5,#ncol%.U..|
000115c0 42 43 43 20 64 65 76 6c 6f 6f 70 0d 56 04 1f 4c |BCC devloop.V..L|
000115d0 44 4d 46 44 20 72 31 33 21 2c 7b 72 30 2c 72 31 |DMFD r13!,{r0,r1|
000115e0 2c 72 32 2c 72 33 2c 72 34 7d 0d 56 18 10 4c 44 |,r2,r3,r4}.V..LD|
000115f0 52 20 72 35 2c 66 73 61 61 64 0d 56 22 0d 4d 4f |R r5,fsaad.V".MO|
00011600 56 20 72 37 2c 72 35 0d 56 2c 0e 4d 4f 56 20 72 |V r7,r5.V,.MOV r|
00011610 31 30 2c 23 30 0d 56 36 0d 2e 63 61 6c 63 6e 75 |10,#0.V6..calcnu|
00011620 6d 30 0d 56 40 17 4c 44 4d 49 41 20 72 31 32 21 |m0.V@.LDMIA r12!|
00011630 2c 7b 72 38 2c 72 31 31 7d 0d 56 4a 0d 43 4d 50 |,{r8,r11}.VJ.CMP|
00011640 20 72 38 2c 72 39 0d 56 54 16 53 54 52 4c 45 42 | r8,r9.VT.STRLEB|
00011650 20 72 31 30 2c 5b 72 37 5d 2c 23 31 0d 56 5e 12 | r10,[r7],#1.V^.|
00011660 41 44 44 20 72 31 30 2c 72 31 30 2c 23 31 0d 56 |ADD r10,r10,#1.V|
00011670 68 0e 43 4d 50 20 72 31 31 2c 72 39 0d 56 72 16 |h.CMP r11,r9.Vr.|
00011680 53 54 52 4c 45 42 20 72 31 30 2c 5b 72 37 5d 2c |STRLEB r10,[r7],|
00011690 23 31 0d 56 7c 12 41 44 44 20 72 31 30 2c 72 31 |#1.V|.ADD r10,r1|
000116a0 30 2c 23 31 0d 56 86 17 4c 44 4d 49 41 20 72 31 |0,#1.V..LDMIA r1|
000116b0 32 21 2c 7b 72 38 2c 72 31 31 7d 0d 56 90 0d 43 |2!,{r8,r11}.V..C|
000116c0 4d 50 20 72 38 2c 72 39 0d 56 9a 16 53 54 52 4c |MP r8,r9.V..STRL|
000116d0 45 42 20 72 31 30 2c 5b 72 37 5d 2c 23 31 0d 56 |EB r10,[r7],#1.V|
000116e0 a4 12 41 44 44 20 72 31 30 2c 72 31 30 2c 23 31 |..ADD r10,r10,#1|
000116f0 0d 56 ae 0e 43 4d 50 20 72 31 31 2c 72 39 0d 56 |.V..CMP r11,r9.V|
00011700 b8 16 53 54 52 4c 45 42 20 72 31 30 2c 5b 72 37 |..STRLEB r10,[r7|
00011710 5d 2c 23 31 0d 56 c2 12 41 44 44 20 72 31 30 2c |],#1.V..ADD r10,|
00011720 72 31 30 2c 23 31 0d 56 cc 12 43 4d 50 20 72 31 |r10,#1.V..CMP r1|
00011730 30 2c 23 6e 63 6f 6c 25 0d 56 d6 10 42 43 43 20 |0,#ncol%.V..BCC |
00011740 63 61 6c 63 6e 75 6d 30 0d 56 e0 12 53 55 42 53 |calcnum0.V..SUBS|
00011750 20 72 31 30 2c 72 37 2c 72 35 0d 56 ea 12 53 57 | r10,r7,r5.V..SW|
00011760 49 45 51 20 32 35 36 2b 97 22 41 22 0d 56 f4 19 |IEQ 256+."A".V..|
00011770 43 4d 50 20 72 31 30 2c 23 34 20 3b 69 66 3c 34 |CMP r10,#4 ;if<4|
00011780 20 74 68 65 6e 0d 56 fe 23 4d 4f 56 43 43 20 72 | then.V.#MOVCC r|
00011790 37 2c 72 35 20 3b 72 65 73 65 74 20 6c 69 73 74 |7,r5 ;reset list|
000117a0 20 70 6f 69 6e 74 65 72 0d 57 08 22 4c 44 52 43 | pointer.W."LDRC|
000117b0 43 42 20 72 35 2c 5b 72 37 5d 20 3b 66 69 72 73 |CB r5,[r7] ;firs|
000117c0 74 20 70 6f 73 73 69 62 6c 65 0d 57 12 26 4c 44 |t possible.W.&LD|
000117d0 52 43 43 42 20 72 38 2c 5b 72 37 2c 23 31 5d 20 |RCCB r8,[r7,#1] |
000117e0 3b 73 65 63 6f 6e 64 20 70 6f 73 73 69 62 6c 65 |;second possible|
000117f0 0d 57 1c 18 84 52 43 43 20 72 35 2c 72 35 2c 72 |.W...RCC r5,r5,r|
00011800 38 2c 6c 73 6c 20 23 38 0d 57 26 25 4c 44 52 43 |8,lsl #8.W&%LDRC|
00011810 43 42 20 72 38 2c 5b 72 37 2c 23 32 5d 20 3b 74 |CB r8,[r7,#2] ;t|
00011820 68 69 72 64 20 70 6f 73 73 69 62 6c 65 0d 57 30 |hird possible.W0|
00011830 19 84 52 43 43 20 72 35 2c 72 35 2c 72 38 2c 6c |..RCC r5,r5,r8,l|
00011840 73 6c 20 23 31 36 0d 57 3a 19 41 44 44 20 72 35 |sl #16.W:.ADD r5|
00011850 2c 72 35 2c 72 31 30 2c 6c 73 6c 20 23 32 34 0d |,r5,r10,lsl #24.|
00011860 57 44 11 42 49 43 20 72 31 30 2c 72 33 2c 23 31 |WD.BIC r10,r3,#1|
00011870 0d 57 4e 1a 53 54 52 20 72 35 2c 5b 72 34 2c 72 |.WN.STR r5,[r4,r|
00011880 31 30 2c 4c 53 4c 20 23 32 5d 0d 57 58 0d 4d 4f |10,LSL #2].WX.MO|
00011890 56 20 72 35 2c 72 37 0d 57 62 0e 4d 4f 56 20 72 |V r5,r7.Wb.MOV r|
000118a0 31 30 2c 23 30 0d 57 6c 0d 2e 63 61 6c 63 6e 75 |10,#0.Wl..calcnu|
000118b0 6d 31 0d 57 76 17 4c 44 4d 49 41 20 72 31 32 21 |m1.Wv.LDMIA r12!|
000118c0 2c 7b 72 38 2c 72 31 31 7d 0d 57 80 0e 43 4d 50 |,{r8,r11}.W..CMP|
000118d0 20 72 38 2c 72 31 34 0d 57 8a 16 53 54 52 4c 45 | r8,r14.W..STRLE|
000118e0 42 20 72 31 30 2c 5b 72 37 5d 2c 23 31 0d 57 94 |B r10,[r7],#1.W.|
000118f0 12 41 44 44 20 72 31 30 2c 72 31 30 2c 23 31 0d |.ADD r10,r10,#1.|
00011900 57 9e 0f 43 4d 50 20 72 31 31 2c 72 31 34 0d 57 |W..CMP r11,r14.W|
00011910 a8 16 53 54 52 4c 45 42 20 72 31 30 2c 5b 72 37 |..STRLEB r10,[r7|
00011920 5d 2c 23 31 0d 57 b2 12 41 44 44 20 72 31 30 2c |],#1.W..ADD r10,|
00011930 72 31 30 2c 23 31 0d 57 bc 17 4c 44 4d 49 41 20 |r10,#1.W..LDMIA |
00011940 72 31 32 21 2c 7b 72 38 2c 72 31 31 7d 0d 57 c6 |r12!,{r8,r11}.W.|
00011950 0e 43 4d 50 20 72 38 2c 72 31 34 0d 57 d0 16 53 |.CMP r8,r14.W..S|
00011960 54 52 4c 45 42 20 72 31 30 2c 5b 72 37 5d 2c 23 |TRLEB r10,[r7],#|
00011970 31 0d 57 da 12 41 44 44 20 72 31 30 2c 72 31 30 |1.W..ADD r10,r10|
00011980 2c 23 31 0d 57 e4 0f 43 4d 50 20 72 31 31 2c 72 |,#1.W..CMP r11,r|
00011990 31 34 0d 57 ee 16 53 54 52 4c 45 42 20 72 31 30 |14.W..STRLEB r10|
000119a0 2c 5b 72 37 5d 2c 23 31 0d 57 f8 12 41 44 44 20 |,[r7],#1.W..ADD |
000119b0 72 31 30 2c 72 31 30 2c 23 31 0d 58 02 12 43 4d |r10,r10,#1.X..CM|
000119c0 50 20 72 31 30 2c 23 6e 63 6f 6c 25 0d 58 0c 10 |P r10,#ncol%.X..|
000119d0 42 43 43 20 63 61 6c 63 6e 75 6d 31 0d 58 16 12 |BCC calcnum1.X..|
000119e0 53 55 42 53 20 72 31 30 2c 72 37 2c 72 35 0d 58 |SUBS r10,r7,r5.X|
000119f0 20 12 53 57 49 45 51 20 32 35 36 2b 97 22 42 22 | .SWIEQ 256+."B"|
00011a00 0d 58 2a 19 43 4d 50 20 72 31 30 2c 23 34 20 3b |.X*.CMP r10,#4 ;|
00011a10 69 66 3c 34 20 74 68 65 6e 0d 58 34 0f 4d 4f 56 |if<4 then.X4.MOV|
00011a20 43 43 20 72 37 2c 72 35 0d 58 3e 12 4c 44 52 43 |CC r7,r5.X>.LDRC|
00011a30 43 42 20 72 35 2c 5b 72 37 5d 0d 58 48 15 4c 44 |CB r5,[r7].XH.LD|
00011a40 52 43 43 42 20 72 38 2c 5b 72 37 2c 23 31 5d 0d |RCCB r8,[r7,#1].|
00011a50 58 52 18 84 52 43 43 20 72 35 2c 72 35 2c 72 38 |XR..RCC r5,r5,r8|
00011a60 2c 6c 73 6c 20 23 38 0d 58 5c 15 4c 44 52 43 43 |,lsl #8.X\.LDRCC|
00011a70 42 20 72 38 2c 5b 72 37 2c 23 32 5d 0d 58 66 19 |B r8,[r7,#2].Xf.|
00011a80 84 52 43 43 20 72 35 2c 72 35 2c 72 38 2c 6c 73 |.RCC r5,r5,r8,ls|
00011a90 6c 20 23 31 36 0d 58 70 19 41 44 44 20 72 35 2c |l #16.Xp.ADD r5,|
00011aa0 72 35 2c 72 31 30 2c 6c 73 6c 20 23 32 34 0d 58 |r5,r10,lsl #24.X|
00011ab0 7a 10 84 52 20 72 31 30 2c 72 33 2c 23 31 0d 58 |z..R r10,r3,#1.X|
00011ac0 84 1a 53 54 52 20 72 35 2c 5b 72 34 2c 72 31 30 |..STR r5,[r4,r10|
00011ad0 2c 4c 53 4c 20 23 32 5d 0d 58 8e 10 53 54 52 20 |,LSL #2].X..STR |
00011ae0 72 37 2c 66 73 61 61 64 0d 58 98 11 4c 44 52 20 |r7,fsaad.X..LDR |
00011af0 72 38 2c 66 73 61 6c 69 6d 0d 58 a2 0d 43 4d 50 |r8,fsalim.X..CMP|
00011b00 20 72 37 2c 72 38 0d 58 ac 12 53 57 49 43 53 20 | r7,r8.X..SWICS |
00011b10 32 35 36 2b 97 22 21 22 0d 58 b6 17 4c 44 4d 46 |256+."!".X..LDMF|
00011b20 44 20 72 31 33 21 2c 7b 72 38 2c 70 63 7d 5e 0d |D r13!,{r8,pc}^.|
00011b30 58 c0 0e 2e 72 65 64 65 71 75 61 6c 30 0d 58 ca |X...redequal0.X.|
00011b40 1a 53 54 52 20 72 33 2c 5b 72 31 32 2c 72 35 2c |.STR r3,[r12,r5,|
00011b50 4c 53 4c 20 23 32 5d 0d 58 d4 10 54 53 54 20 72 |LSL #2].X..TST r|
00011b60 38 2c 23 74 64 32 25 0d 58 de 13 53 55 42 4e 45 |8,#td2%.X..SUBNE|
00011b70 20 72 31 31 2c 72 38 2c 72 30 0d 58 e8 14 53 55 | r11,r8,r0.X..SU|
00011b80 42 45 51 20 72 31 31 2c 72 31 31 2c 72 38 0d 58 |BEQ r11,r11,r8.X|
00011b90 f2 0e 42 20 64 6f 6e 65 72 65 64 30 0d 58 fc 0e |..B donered0.X..|
00011ba0 2e 72 65 64 65 71 75 61 6c 31 0d 59 06 10 54 53 |.redequal1.Y..TS|
00011bb0 54 20 72 38 2c 23 74 64 32 25 0d 59 10 13 53 55 |T r8,#td2%.Y..SU|
00011bc0 42 4e 45 20 72 31 31 2c 72 38 2c 72 37 0d 59 1a |BNE r11,r8,r7.Y.|
00011bd0 14 53 55 42 45 51 20 72 31 31 2c 72 31 31 2c 72 |.SUBEQ r11,r11,r|
00011be0 38 0d 59 24 0e 42 20 64 6f 6e 65 72 65 64 31 0d |8.Y$.B donered1.|
00011bf0 59 2e 0f 2e 67 72 65 65 6e 65 71 75 61 6c 0d 59 |Y...greenequal.Y|
00011c00 38 10 54 53 54 20 72 38 2c 23 74 64 32 25 0d 59 |8.TST r8,#td2%.Y|
00011c10 42 13 53 55 42 4e 45 20 72 31 31 2c 72 38 2c 72 |B.SUBNE r11,r8,r|
00011c20 31 0d 59 4c 14 53 55 42 45 51 20 72 31 31 2c 72 |1.YL.SUBEQ r11,r|
00011c30 31 31 2c 72 38 0d 59 56 0f 42 20 64 6f 6e 65 67 |11,r8.YV.B doneg|
00011c40 72 65 65 6e 0d 59 60 0e 2e 62 6c 75 65 65 71 75 |reen.Y`..blueequ|
00011c50 61 6c 0d 59 6a 0d 4d 4f 56 20 72 33 2c 23 30 0d |al.Yj.MOV r3,#0.|
00011c60 59 74 10 54 53 54 20 72 38 2c 23 74 64 32 25 0d |Yt.TST r8,#td2%.|
00011c70 59 7e 13 53 55 42 4e 45 20 72 31 31 2c 72 38 2c |Y~.SUBNE r11,r8,|
00011c80 72 32 0d 59 88 14 53 55 42 45 51 20 72 31 31 2c |r2.Y..SUBEQ r11,|
00011c90 72 31 31 2c 72 38 0d 59 92 0e 42 20 64 6f 6e 65 |r11,r8.Y..B done|
00011ca0 62 6c 75 65 0d 59 9c 05 5d 0d 59 a6 05 ed 0d 59 |blue.Y..].Y....Y|
00011cb0 b0 0f 49 25 3d 91 3a d6 6d 61 6b 65 25 0d 59 ba |..I%=.:.make%.Y.|
00011cc0 6d e7 69 6e 66 6f 25 20 f1 22 47 65 6e 65 72 61 |m.info% ."Genera|
00011cd0 74 65 64 20 27 72 27 22 3b 6b 25 22 20 74 61 62 |ted 'r'";k%" tab|
00011ce0 6c 65 73 20 66 6f 72 20 22 3b 6e 63 6f 6c 25 22 |les for ";ncol%"|
00011cf0 20 63 6f 6c 6f 75 72 73 20 75 73 69 6e 67 20 22 | colours using "|
00011d00 3b 21 66 73 61 61 64 2d 73 63 72 61 74 63 68 25 |;!fsaad-scratch%|
00011d10 22 20 62 79 74 65 73 2c 20 74 61 6b 69 6e 67 20 |" bytes, taking |
00011d20 22 91 2d 49 25 22 20 63 53 22 0d 59 c4 25 73 61 |".-I%" cS".Y.%sa|
00011d30 66 65 73 75 62 69 63 74 25 3d a4 64 69 6d 28 21 |fesubict%=.dim(!|
00011d40 66 73 61 61 64 2d 73 63 72 61 74 63 68 25 29 0d |fsaad-scratch%).|
00011d50 59 ce 3a e3 49 25 3d 30 b8 21 66 73 61 61 64 2d |Y.:.I%=0.!fsaad-|
00011d60 73 63 72 61 74 63 68 25 2b 34 88 34 3a 73 61 66 |scratch%+4.4:saf|
00011d70 65 73 75 62 69 63 74 25 21 49 25 3d 73 63 72 61 |esubict%!I%=scra|
00011d80 74 63 68 25 21 49 25 3a ed 0d 59 d8 4f e3 49 25 |tch%!I%:..Y.O.I%|
00011d90 3d 30 b8 32 5e 28 6b 25 2a 33 29 2a 34 2d 31 88 |=0.2^(k%*3)*4-1.|
00011da0 34 3a e7 28 69 63 74 25 21 49 25 3e 3e 3e 32 34 |4:.(ict%!I%>>>24|
00011db0 29 3e 33 20 69 63 74 25 21 49 25 3d 69 63 74 25 |)>3 ict%!I%=ict%|
00011dc0 21 49 25 2d 73 63 72 61 74 63 68 25 2b 73 61 66 |!I%-scratch%+saf|
00011dd0 65 73 75 62 69 63 74 25 0d 59 e2 05 ed 0d 59 ec |esubict%.Y....Y.|
00011de0 05 cd 0d 59 f6 05 cd 0d 5a 00 13 e7 66 61 73 74 |...Y....Z...fast|
00011df0 25 20 e7 eb 3c 3e 30 20 eb 30 0d 5a 14 0a c8 8e |% ..<>0 .0.Z....|
00011e00 20 6d 20 ca 0d 5a 1e 11 c9 20 2d 31 2c 2d 39 3a | m ..Z... -1,-9:|
00011e10 63 6f 6c 3d 30 0d 5a 28 21 c9 20 2d 33 2c 2d 34 |col=0.Z(!. -3,-4|
00011e20 2c 2d 35 2c 2d 36 2c 2d 37 2c 2d 38 2c 2d 31 30 |,-5,-6,-7,-8,-10|
00011e30 3a 63 6f 6c 3d 32 0d 5a 32 05 7f 0d 5a 3c 19 e7 |:col=2.Z2...Z<..|
00011e40 6d 24 3d 22 44 22 20 e7 6e 63 6f 6c 3d 33 20 6d |m$="D" .ncol=3 m|
00011e50 24 3d 22 22 0d 5a 46 30 63 6f 6c 3d 30 3a e7 6e |$="".ZF0col=0:.n|
00011e60 63 6f 6c 3e 31 35 20 84 6d 24 3d 22 43 22 20 84 |col>15 .m$="C" .|
00011e70 6d 24 3d 22 44 22 20 84 6d 24 3d 22 52 22 20 63 |m$="D" .m$="R" c|
00011e80 6f 6c 3d 32 0d 5a 50 2e e7 6e 63 6f 6c 3d 36 33 |ol=2.ZP..ncol=63|
00011e90 20 84 20 6e 63 6f 6c 3d 32 35 35 20 e7 6d 24 3d | . ncol=255 .m$=|
00011ea0 22 44 22 20 63 6f 6c 3d 30 3a 6e 63 6f 6c 3d 32 |"D" col=0:ncol=2|
00011eb0 35 36 0d 5a 5a 05 cb 0d 5a 64 0d e7 6e 63 6f 6c |56.ZZ...Zd..ncol|
00011ec0 3d 31 20 8c 0d 5a 6e 0b c8 8e 20 6d 24 20 ca 0d |=1 ..Zn... m$ ..|
00011ed0 5a 78 19 c9 22 43 22 3a 63 6f 6c 3d 30 3a 78 25 |Zx.."C":col=0:x%|
00011ee0 3d 78 25 2b 31 80 ac 31 0d 5a 82 19 c9 22 44 22 |=x%+1..1.Z..."D"|
00011ef0 3a 63 6f 6c 3d 30 3a 78 25 3d 78 25 2b 33 80 ac |:col=0:x%=x%+3..|
00011f00 33 0d 5a 8c 19 c9 22 54 22 3a 63 6f 6c 3d 30 3a |3.Z..."T":col=0:|
00011f10 78 25 3d 78 25 2b 31 80 ac 31 0d 5a 96 05 cb 0d |x%=x%+1..1.Z....|
00011f20 5a a0 05 cd 0d 5a aa 13 de 20 63 6c 25 28 78 25 |Z....Z... cl%(x%|
00011f30 2b 37 2c 63 6f 6c 29 0d 5a b4 22 de 20 78 6c 25 |+7,col).Z.". xl%|
00011f40 28 78 25 2b 37 2c 63 6f 6c 29 2c 78 70 25 28 73 |(x%+7,col),xp%(s|
00011f50 78 25 2b 37 2c 63 6f 6c 29 0d 5a be 14 de 20 78 |x%+7,col).Z... x|
00011f60 6c 32 25 28 78 25 2b 37 2c 63 6f 6c 29 0d 5a c8 |l2%(x%+7,col).Z.|
00011f70 0f e7 73 68 61 72 70 65 6e 25 20 8c 0d 5a d2 0d |..sharpen% ..Z..|
00011f80 e7 6f 72 64 65 72 25 20 8c 0d 5a dc 34 de 20 72 |.order% ..Z.4. r|
00011f90 6d 25 28 73 78 25 2b 37 2c 63 6f 6c 29 2c 72 6d |m%(sx%+7,col),rm|
00011fa0 31 25 28 73 78 25 2b 37 2c 63 6f 6c 29 2c 72 6d |1%(sx%+7,col),rm|
00011fb0 32 25 28 73 78 25 2b 37 2c 63 6f 6c 29 0d 5a e6 |2%(sx%+7,col).Z.|
00011fc0 05 cc 0d 5a f0 31 de 20 72 6d 25 28 78 25 2b 37 |...Z.1. rm%(x%+7|
00011fd0 2c 63 6f 6c 29 2c 72 6d 31 25 28 78 25 2b 37 2c |,col),rm1%(x%+7,|
00011fe0 63 6f 6c 29 2c 72 6d 32 25 28 78 25 2b 37 2c 63 |col),rm2%(x%+7,c|
00011ff0 6f 6c 29 0d 5a fa 05 cd 0d 5b 04 05 cd 0d 5b 0e |ol).Z....[....[.|
00012000 22 e7 68 69 73 74 25 84 65 71 75 61 6c 25 20 de |".hist%.equal% .|
00012010 20 76 61 6c 73 25 28 32 35 36 2c 63 6f 6c 29 0d | vals%(256,col).|
00012020 5b 18 13 de 20 6e 6c 25 28 78 25 2b 37 2c 63 6f |[... nl%(x%+7,co|
00012030 6c 29 0d 5b 22 17 74 6f 74 76 61 6c 73 25 3d 78 |l).[".totvals%=x|
00012040 25 2a 28 63 6f 6c 2b 31 29 0d 5b 2c 19 74 6f 74 |%*(col+1).[,.tot|
00012050 76 61 6c 73 32 25 3d 73 78 25 2a 28 63 6f 6c 2b |vals2%=sx%*(col+|
00012060 31 29 0d 5b 36 15 e3 5a 3d 30 b8 32 88 32 3a 50 |1).[6..Z=0.2.2:P|
00012070 25 3d 63 6f 64 65 25 0d 5b 40 0d c8 8e 20 6e 63 |%=code%.[@... nc|
00012080 6f 6c 20 ca 0d 5b 4a 0c c9 20 32 5e 32 34 2d 31 |ol ..[J.. 2^24-1|
00012090 0d 5b 54 0a 5b 4f 50 54 20 5a 0d 5b 5e 0b 2e 64 |.[T.[OPT Z.[^..d|
000120a0 69 76 32 35 35 0d 5b 68 05 5d 0d 5b 72 14 e3 49 |iv255.[h.].[r..I|
000120b0 25 3d 30 b8 32 5e 70 36 62 69 74 73 2d 31 0d 5b |%=0.2^p6bits-1.[|
000120c0 7c 0a 5b 4f 50 54 20 5a 0d 5b 86 1a 45 51 55 44 ||.[OPT Z.[..EQUD|
000120d0 20 49 25 2f 28 32 5e 70 36 62 69 74 73 2d 31 29 | I%/(2^p6bits-1)|
000120e0 2a 46 0d 5b 90 05 5d 0d 5b 9a 05 ed 0d 5b a4 0a |*F.[..].[....[..|
000120f0 5b 4f 50 54 20 5a 0d 5b ae 08 2e 66 73 25 0d 5b |[OPT Z.[...fs%.[|
00012100 b8 14 53 54 4d 46 44 20 53 50 20 21 2c 7b 52 31 |..STMFD SP !,{R1|
00012110 34 7d 0d 5b c2 20 4c 44 52 20 52 31 2c 5b 52 39 |4}.[. LDR R1,[R9|
00012120 2c 23 35 2a 38 5d 3a 4c 44 52 20 52 31 2c 5b 52 |,#5*8]:LDR R1,[R|
00012130 31 5d 0d 5b cc 15 4c 44 52 20 52 31 30 2c 5b 52 |1].[..LDR R10,[R|
00012140 39 2c 23 34 2a 38 5d 0d 5b d6 15 4c 44 52 20 52 |9,#4*8].[..LDR R|
00012150 31 31 2c 5b 52 39 2c 23 33 2a 38 5d 0d 5b e0 23 |11,[R9,#3*8].[.#|
00012160 4c 44 52 20 52 31 32 2c 5b 52 39 2c 23 32 2a 38 |LDR R12,[R9,#2*8|
00012170 5d 3a 4c 44 52 20 52 31 32 2c 5b 52 31 32 5d 0d |]:LDR R12,[R12].|
00012180 5b ea 1e 4c 44 52 20 52 38 2c 5b 52 39 2c 23 38 |[..LDR R8,[R9,#8|
00012190 5d 3a 4c 44 52 20 52 38 2c 5b 52 38 5d 0d 5b f4 |]:LDR R8,[R8].[.|
000121a0 1b 4c 44 52 20 52 39 2c 5b 52 39 5d 3a 4c 44 52 |.LDR R9,[R9]:LDR|
000121b0 20 52 39 2c 5b 52 39 5d 0d 5b fe 10 4c 44 52 20 | R9,[R9].[..LDR |
000121c0 52 34 2c 5b 52 31 30 5d 0d 5c 08 13 4c 44 52 20 |R4,[R10].\..LDR |
000121d0 52 35 2c 5b 52 31 30 2c 23 34 5d 0d 5c 12 13 4c |R5,[R10,#4].\..L|
000121e0 44 52 20 52 36 2c 5b 52 31 30 2c 23 38 5d 0d 5c |DR R6,[R10,#8].\|
000121f0 1c 11 41 44 52 20 52 37 2c 64 69 76 32 35 35 0d |..ADR R7,div255.|
00012200 5c 26 0b 2e 66 73 6c 6f 6f 70 0d 5c 30 12 41 44 |\&..fsloop.\0.AD|
00012210 44 20 52 31 30 2c 52 31 30 2c 52 38 0d 5c 3a 25 |D R10,R10,R8.\:%|
00012220 43 4d 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 |CMP R4,#F:MOVCS |
00012230 52 34 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 |R4,#0:MOVGE R4,#|
00012240 46 0d 5c 44 57 53 55 42 20 52 30 2c 52 34 2c 52 |F.\DWSUB R0,R4,R|
00012250 34 2c 4c 53 52 20 23 70 36 62 69 74 73 3a 41 44 |4,LSR #p6bits:AD|
00012260 44 20 52 30 2c 52 30 2c 23 31 3c 3c 28 62 69 74 |D R0,R0,#1<<(bit|
00012270 73 2d 70 36 62 69 74 73 2d 31 29 3a 4d 4f 56 20 |s-p6bits-1):MOV |
00012280 52 30 2c 52 30 2c 4c 53 52 20 23 28 62 69 74 73 |R0,R0,LSR #(bits|
00012290 2d 70 36 62 69 74 73 29 0d 5c 4e 26 4c 44 52 20 |-p6bits).\N&LDR |
000122a0 52 32 2c 5b 52 37 2c 52 30 2c 4c 53 4c 20 23 32 |R2,[R7,R0,LSL #2|
000122b0 5d 3a 53 55 42 20 52 34 2c 52 34 2c 52 32 0d 5c |]:SUB R4,R4,R2.\|
000122c0 58 25 43 4d 50 20 52 35 2c 23 46 3a 4d 4f 56 43 |X%CMP R5,#F:MOVC|
000122d0 53 20 52 35 2c 23 30 3a 4d 4f 56 47 45 20 52 35 |S R5,#0:MOVGE R5|
000122e0 2c 23 46 0d 5c 62 6a 53 55 42 20 52 33 2c 52 35 |,#F.\bjSUB R3,R5|
000122f0 2c 52 35 2c 4c 53 52 20 23 70 36 62 69 74 73 3a |,R5,LSR #p6bits:|
00012300 41 44 44 20 52 33 2c 52 33 2c 23 31 3c 3c 28 62 |ADD R3,R3,#1<<(b|
00012310 69 74 73 2d 70 36 62 69 74 73 2d 31 29 3a 4d 4f |its-p6bits-1):MO|
00012320 56 20 52 33 2c 52 33 2c 4c 53 52 20 23 28 62 69 |V R3,R3,LSR #(bi|
00012330 74 73 2d 70 36 62 69 74 73 29 3a 84 52 20 52 30 |ts-p6bits):.R R0|
00012340 2c 52 30 2c 52 33 2c 4c 53 4c 20 23 38 0d 5c 6c |,R0,R3,LSL #8.\l|
00012350 26 4c 44 52 20 52 32 2c 5b 52 37 2c 52 33 2c 4c |&LDR R2,[R7,R3,L|
00012360 53 4c 20 23 32 5d 3a 53 55 42 20 52 35 2c 52 35 |SL #2]:SUB R5,R5|
00012370 2c 52 32 0d 5c 76 25 43 4d 50 20 52 36 2c 23 46 |,R2.\v%CMP R6,#F|
00012380 3a 4d 4f 56 43 53 20 52 36 2c 23 30 3a 4d 4f 56 |:MOVCS R6,#0:MOV|
00012390 47 45 20 52 36 2c 23 46 0d 5c 80 6b 53 55 42 20 |GE R6,#F.\.kSUB |
000123a0 52 33 2c 52 36 2c 52 36 2c 4c 53 52 20 23 70 36 |R3,R6,R6,LSR #p6|
000123b0 62 69 74 73 3a 41 44 44 20 52 33 2c 52 33 2c 23 |bits:ADD R3,R3,#|
000123c0 31 3c 3c 28 62 69 74 73 2d 70 36 62 69 74 73 2d |1<<(bits-p6bits-|
000123d0 31 29 3a 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 |1):MOV R3,R3,LSR|
000123e0 20 23 28 62 69 74 73 2d 70 36 62 69 74 73 29 3a | #(bits-p6bits):|
000123f0 84 52 20 52 30 2c 52 30 2c 52 33 2c 4c 53 4c 20 |.R R0,R0,R3,LSL |
00012400 23 31 36 0d 5c 8a 26 4c 44 52 20 52 32 2c 5b 52 |#16.\.&LDR R2,[R|
00012410 37 2c 52 33 2c 4c 53 4c 20 23 32 5d 3a 53 55 42 |7,R3,LSL #2]:SUB|
00012420 20 52 36 2c 52 36 2c 52 32 0d 5c 94 44 53 54 52 | R6,R6,R2.\.DSTR|
00012430 42 20 52 30 2c 5b 52 31 32 5d 3a 4d 4f 56 20 52 |B R0,[R12]:MOV R|
00012440 30 2c 52 30 2c 4c 53 52 20 23 38 3a 53 54 52 42 |0,R0,LSR #8:STRB|
00012450 20 52 30 2c 5b 52 31 32 2c 23 31 5d 3a 4d 4f 56 | R0,[R12,#1]:MOV|
00012460 20 52 30 2c 52 30 2c 4c 53 52 20 23 38 0d 5c 9e | R0,R0,LSR #8.\.|
00012470 14 53 54 52 42 20 52 30 2c 5b 52 31 32 2c 23 32 |.STRB R0,[R12,#2|
00012480 5d 0d 5c a8 05 5d 0d 5c b2 0b e7 6d 3d 2d 38 20 |].\..].\...m=-8 |
00012490 8c 0d 5c bc 0a 5b 4f 50 54 20 5a 0d 5c c6 19 41 |..\..[OPT Z.\..A|
000124a0 44 44 20 52 31 32 2c 52 31 32 2c 52 31 2c 4c 53 |DD R12,R12,R1,LS|
000124b0 4c 20 23 32 0d 5c d0 05 5d 0d 5c da 05 cc 0d 5c |L #2.\..].\....\|
000124c0 e4 0a 5b 4f 50 54 20 5a 0d 5c ee 28 41 44 44 20 |..[OPT Z.\.(ADD |
000124d0 52 31 32 2c 52 31 32 2c 52 31 2c 4c 53 4c 20 23 |R12,R12,R1,LSL #|
000124e0 31 3a 41 44 44 20 52 31 32 2c 52 31 32 2c 52 31 |1:ADD R12,R12,R1|
000124f0 0d 5c f8 05 5d 0d 5d 02 05 cd 0d 5d 0c 0e e7 64 |.\..].]....]...d|
00012500 69 74 68 65 72 25 20 8c 0d 5d 16 0a 5b 4f 50 54 |ither% ..]..[OPT|
00012510 20 5a 0d 5d 20 11 41 44 44 20 52 30 2c 52 31 31 | Z.] .ADD R0,R11|
00012520 2c 23 34 0d 5d 2a 17 41 44 44 20 52 32 2c 52 34 |,#4.]*.ADD R2,R4|
00012530 2c 52 34 2c 4c 53 4c 20 23 31 0d 5d 34 28 4c 44 |,R4,LSL #1.]4(LD|
00012540 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 5d 3a 41 |R R3,[R11,-R8]:A|
00012550 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 |DD R3,R3,R2,ASR |
00012560 23 34 0d 5d 3e 14 53 54 52 20 52 33 2c 5b 52 31 |#4.]>.STR R3,[R1|
00012570 31 2c 2d 52 38 5d 0d 5d 48 17 41 44 44 20 52 32 |1,-R8].]H.ADD R2|
00012580 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 32 0d 5d 52 |,R4,R4,LSL #2.]R|
00012590 24 4c 44 52 20 52 33 2c 5b 52 31 31 5d 3a 41 44 |$LDR R3,[R11]:AD|
000125a0 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 |D R3,R3,R2,ASR #|
000125b0 34 0d 5d 5c 10 53 54 52 20 52 33 2c 5b 52 31 31 |4.]\.STR R3,[R11|
000125c0 5d 0d 5d 66 14 4d 4f 56 20 52 33 2c 52 34 2c 41 |].]f.MOV R3,R4,A|
000125d0 53 52 20 23 34 0d 5d 70 14 53 54 52 20 52 33 2c |SR #4.]p.STR R3,|
000125e0 5b 52 31 31 2c 52 38 5d 21 0d 5d 7a 17 52 53 42 |[R11,R8]!.]z.RSB|
000125f0 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 33 | R2,R4,R4,LSL #3|
00012600 0d 5d 84 10 4c 44 52 20 52 34 2c 5b 52 31 30 5d |.]..LDR R4,[R10]|
00012610 0d 5d 8e 17 41 44 44 20 52 34 2c 52 34 2c 52 32 |.]..ADD R4,R4,R2|
00012620 2c 41 53 52 20 23 34 0d 5d 98 17 41 44 44 20 52 |,ASR #4.]..ADD R|
00012630 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 23 31 0d 5d |2,R5,R5,LSL #1.]|
00012640 a2 27 4c 44 52 20 52 33 2c 5b 52 30 2c 2d 52 38 |.'LDR R3,[R0,-R8|
00012650 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 |]:ADD R3,R3,R2,A|
00012660 53 52 20 23 34 0d 5d ac 13 53 54 52 20 52 33 2c |SR #4.]..STR R3,|
00012670 5b 52 30 2c 2d 52 38 5d 0d 5d b6 14 4d 4f 56 20 |[R0,-R8].]..MOV |
00012680 52 33 2c 52 35 2c 41 53 52 20 23 34 0d 5d c0 12 |R3,R5,ASR #4.]..|
00012690 53 54 52 20 52 33 2c 5b 52 30 2c 52 38 5d 0d 5d |STR R3,[R0,R8].]|
000126a0 ca 17 41 44 44 20 52 32 2c 52 35 2c 52 35 2c 4c |..ADD R2,R5,R5,L|
000126b0 53 4c 20 23 32 0d 5d d4 23 4c 44 52 20 52 33 2c |SL #2.].#LDR R3,|
000126c0 5b 52 30 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 |[R0]:ADD R3,R3,R|
000126d0 32 2c 41 53 52 20 23 34 0d 5d de 12 53 54 52 20 |2,ASR #4.]..STR |
000126e0 52 33 2c 5b 52 30 5d 2c 23 34 0d 5d e8 17 52 53 |R3,[R0],#4.]..RS|
000126f0 42 20 52 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 23 |B R2,R5,R5,LSL #|
00012700 33 0d 5d f2 13 4c 44 52 20 52 35 2c 5b 52 31 30 |3.]..LDR R5,[R10|
00012710 2c 23 34 5d 0d 5d fc 17 41 44 44 20 52 35 2c 52 |,#4].]..ADD R5,R|
00012720 35 2c 52 32 2c 41 53 52 20 23 34 0d 5e 06 17 41 |5,R2,ASR #4.^..A|
00012730 44 44 20 52 32 2c 52 36 2c 52 36 2c 4c 53 4c 20 |DD R2,R6,R6,LSL |
00012740 23 31 0d 5e 10 27 4c 44 52 20 52 33 2c 5b 52 30 |#1.^.'LDR R3,[R0|
00012750 2c 2d 52 38 5d 3a 41 44 44 20 52 33 2c 52 33 2c |,-R8]:ADD R3,R3,|
00012760 52 32 2c 41 53 52 20 23 34 0d 5e 1a 13 53 54 52 |R2,ASR #4.^..STR|
00012770 20 52 33 2c 5b 52 30 2c 2d 52 38 5d 0d 5e 24 17 | R3,[R0,-R8].^$.|
00012780 41 44 44 20 52 32 2c 52 36 2c 52 36 2c 4c 53 4c |ADD R2,R6,R6,LSL|
00012790 20 23 32 0d 5e 2e 23 4c 44 52 20 52 33 2c 5b 52 | #2.^.#LDR R3,[R|
000127a0 30 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c |0]:ADD R3,R3,R2,|
000127b0 41 53 52 20 23 34 0d 5e 38 0f 53 54 52 20 52 33 |ASR #4.^8.STR R3|
000127c0 2c 5b 52 30 5d 0d 5e 42 14 4d 4f 56 20 52 33 2c |,[R0].^B.MOV R3,|
000127d0 52 36 2c 41 53 52 20 23 34 0d 5e 4c 12 53 54 52 |R6,ASR #4.^L.STR|
000127e0 20 52 33 2c 5b 52 30 2c 52 38 5d 0d 5e 56 17 52 | R3,[R0,R8].^V.R|
000127f0 53 42 20 52 32 2c 52 36 2c 52 36 2c 4c 53 4c 20 |SB R2,R6,R6,LSL |
00012800 23 33 0d 5e 60 13 4c 44 52 20 52 36 2c 5b 52 31 |#3.^`.LDR R6,[R1|
00012810 30 2c 23 38 5d 0d 5e 6a 17 41 44 44 20 52 36 2c |0,#8].^j.ADD R6,|
00012820 52 36 2c 52 32 2c 41 53 52 20 23 34 0d 5e 74 05 |R6,R2,ASR #4.^t.|
00012830 5d 0d 5e 7e 05 cc 0d 5e 88 0a 5b 4f 50 54 20 5a |].^~...^..[OPT Z|
00012840 0d 5e 92 18 4c 44 4d 49 41 20 52 31 30 2c 7b 52 |.^..LDMIA R10,{R|
00012850 34 2c 52 35 2c 52 36 7d 0d 5e 9c 05 5d 0d 5e a6 |4,R5,R6}.^..].^.|
00012860 05 cd 0d 5e b0 0a 5b 4f 50 54 20 5a 0d 5e ba 1c |...^..[OPT Z.^..|
00012870 53 55 42 53 20 52 39 2c 52 39 2c 23 31 3a 42 4e |SUBS R9,R9,#1:BN|
00012880 45 20 66 73 6c 6f 6f 70 0d 5e c4 14 4c 44 4d 46 |E fsloop.^..LDMF|
00012890 44 20 53 50 20 21 2c 7b 50 43 7d 5e 0d 5e ce 05 |D SP !,{PC}^.^..|
000128a0 5d 0d 5e d8 0c c9 20 32 5e 31 35 2d 31 0d 5e e2 |].^... 2^15-1.^.|
000128b0 0a 5b 4f 50 54 20 5a 0d 5e ec 0a 2e 64 69 76 33 |.[OPT Z.^...div3|
000128c0 31 0d 5e f6 05 5d 0d 5f 00 0c e3 49 25 3d 30 b8 |1.^..]._...I%=0.|
000128d0 33 31 0d 5f 0a 0a 5b 4f 50 54 20 5a 0d 5f 14 10 |31._..[OPT Z._..|
000128e0 45 51 55 44 20 49 25 2f 33 31 2a 46 0d 5f 1e 05 |EQUD I%/31*F._..|
000128f0 5d 0d 5f 28 05 ed 0d 5f 32 0a 5b 4f 50 54 20 5a |]._(..._2.[OPT Z|
00012900 0d 5f 3c 08 2e 66 73 25 0d 5f 46 14 53 54 4d 46 |._<..fs%._F.STMF|
00012910 44 20 53 50 20 21 2c 7b 52 31 34 7d 0d 5f 50 20 |D SP !,{R14}._P |
00012920 4c 44 52 20 52 31 2c 5b 52 39 2c 23 35 2a 38 5d |LDR R1,[R9,#5*8]|
00012930 3a 4c 44 52 20 52 31 2c 5b 52 31 5d 0d 5f 5a 15 |:LDR R1,[R1]._Z.|
00012940 4c 44 52 20 52 31 30 2c 5b 52 39 2c 23 34 2a 38 |LDR R10,[R9,#4*8|
00012950 5d 0d 5f 64 15 4c 44 52 20 52 31 31 2c 5b 52 39 |]._d.LDR R11,[R9|
00012960 2c 23 33 2a 38 5d 0d 5f 6e 23 4c 44 52 20 52 31 |,#3*8]._n#LDR R1|
00012970 32 2c 5b 52 39 2c 23 32 2a 38 5d 3a 4c 44 52 20 |2,[R9,#2*8]:LDR |
00012980 52 31 32 2c 5b 52 31 32 5d 0d 5f 78 1e 4c 44 52 |R12,[R12]._x.LDR|
00012990 20 52 38 2c 5b 52 39 2c 23 38 5d 3a 4c 44 52 20 | R8,[R9,#8]:LDR |
000129a0 52 38 2c 5b 52 38 5d 0d 5f 82 1b 4c 44 52 20 52 |R8,[R8]._..LDR R|
000129b0 39 2c 5b 52 39 5d 3a 4c 44 52 20 52 39 2c 5b 52 |9,[R9]:LDR R9,[R|
000129c0 39 5d 0d 5f 8c 10 4c 44 52 20 52 34 2c 5b 52 31 |9]._..LDR R4,[R1|
000129d0 30 5d 0d 5f 96 13 4c 44 52 20 52 35 2c 5b 52 31 |0]._..LDR R5,[R1|
000129e0 30 2c 23 34 5d 0d 5f a0 13 4c 44 52 20 52 36 2c |0,#4]._..LDR R6,|
000129f0 5b 52 31 30 2c 23 38 5d 0d 5f aa 10 41 44 52 20 |[R10,#8]._..ADR |
00012a00 52 37 2c 64 69 76 33 31 0d 5f b4 0b 2e 66 73 6c |R7,div31._...fsl|
00012a10 6f 6f 70 0d 5f be 12 41 44 44 20 52 31 30 2c 52 |oop._..ADD R10,R|
00012a20 31 30 2c 52 38 0d 5f c8 25 43 4d 50 20 52 34 2c |10,R8._.%CMP R4,|
00012a30 23 46 3a 4d 4f 56 43 53 20 52 34 2c 23 30 3a 4d |#F:MOVCS R4,#0:M|
00012a40 4f 56 47 45 20 52 34 2c 23 46 0d 5f d2 46 53 55 |OVGE R4,#F._.FSU|
00012a50 42 20 52 30 2c 52 34 2c 52 34 2c 4c 53 52 20 23 |B R0,R4,R4,LSR #|
00012a60 35 3a 41 44 44 20 52 30 2c 52 30 2c 23 31 3c 3c |5:ADD R0,R0,#1<<|
00012a70 28 62 69 74 73 2d 36 29 3a 4d 4f 56 20 52 30 2c |(bits-6):MOV R0,|
00012a80 52 30 2c 4c 53 52 20 23 28 62 69 74 73 2d 35 29 |R0,LSR #(bits-5)|
00012a90 0d 5f dc 26 4c 44 52 20 52 32 2c 5b 52 37 2c 52 |._.&LDR R2,[R7,R|
00012aa0 30 2c 4c 53 4c 20 23 32 5d 3a 53 55 42 20 52 34 |0,LSL #2]:SUB R4|
00012ab0 2c 52 34 2c 52 32 0d 5f e6 25 43 4d 50 20 52 35 |,R4,R2._.%CMP R5|
00012ac0 2c 23 46 3a 4d 4f 56 43 53 20 52 35 2c 23 30 3a |,#F:MOVCS R5,#0:|
00012ad0 4d 4f 56 47 45 20 52 35 2c 23 46 0d 5f f0 59 53 |MOVGE R5,#F._.YS|
00012ae0 55 42 20 52 33 2c 52 35 2c 52 35 2c 4c 53 52 20 |UB R3,R5,R5,LSR |
00012af0 23 35 3a 41 44 44 20 52 33 2c 52 33 2c 23 31 3c |#5:ADD R3,R3,#1<|
00012b00 3c 28 62 69 74 73 2d 36 29 3a 4d 4f 56 20 52 33 |<(bits-6):MOV R3|
00012b10 2c 52 33 2c 4c 53 52 20 23 28 62 69 74 73 2d 35 |,R3,LSR #(bits-5|
00012b20 29 3a 84 52 20 52 30 2c 52 30 2c 52 33 2c 4c 53 |):.R R0,R0,R3,LS|
00012b30 4c 20 23 35 0d 5f fa 26 4c 44 52 20 52 32 2c 5b |L #5._.&LDR R2,[|
00012b40 52 37 2c 52 33 2c 4c 53 4c 20 23 32 5d 3a 53 55 |R7,R3,LSL #2]:SU|
00012b50 42 20 52 35 2c 52 35 2c 52 32 0d 60 04 25 43 4d |B R5,R5,R2.`.%CM|
00012b60 50 20 52 36 2c 23 46 3a 4d 4f 56 43 53 20 52 36 |P R6,#F:MOVCS R6|
00012b70 2c 23 30 3a 4d 4f 56 47 45 20 52 36 2c 23 46 0d |,#0:MOVGE R6,#F.|
00012b80 60 0e 5a 53 55 42 20 52 33 2c 52 36 2c 52 36 2c |`.ZSUB R3,R6,R6,|
00012b90 4c 53 52 20 23 35 3a 41 44 44 20 52 33 2c 52 33 |LSR #5:ADD R3,R3|
00012ba0 2c 23 31 3c 3c 28 62 69 74 73 2d 36 29 3a 4d 4f |,#1<<(bits-6):MO|
00012bb0 56 20 52 33 2c 52 33 2c 4c 53 52 20 23 28 62 69 |V R3,R3,LSR #(bi|
00012bc0 74 73 2d 35 29 3a 84 52 20 52 30 2c 52 30 2c 52 |ts-5):.R R0,R0,R|
00012bd0 33 2c 4c 53 4c 20 23 31 30 0d 60 18 26 4c 44 52 |3,LSL #10.`.&LDR|
00012be0 20 52 32 2c 5b 52 37 2c 52 33 2c 4c 53 4c 20 23 | R2,[R7,R3,LSL #|
00012bf0 32 5d 3a 53 55 42 20 52 36 2c 52 36 2c 52 32 0d |2]:SUB R6,R6,R2.|
00012c00 60 22 49 53 54 52 42 20 52 30 2c 5b 52 31 32 5d |`"ISTRB R0,[R12]|
00012c10 3a 4d 4f 56 20 52 30 2c 52 30 2c 4c 53 52 20 23 |:MOV R0,R0,LSR #|
00012c20 38 3a 53 54 52 42 20 52 30 2c 5b 52 31 32 2c 23 |8:STRB R0,[R12,#|
00012c30 31 5d 3a 41 44 44 20 52 31 32 2c 52 31 32 2c 52 |1]:ADD R12,R12,R|
00012c40 31 2c 4c 53 4c 20 23 31 0d 60 2c 05 5d 0d 60 36 |1,LSL #1.`,.].`6|
00012c50 0e e7 64 69 74 68 65 72 25 20 8c 0d 60 40 0a 5b |..dither% ..`@.[|
00012c60 4f 50 54 20 5a 0d 60 4a 11 41 44 44 20 52 30 2c |OPT Z.`J.ADD R0,|
00012c70 52 31 31 2c 23 34 0d 60 54 17 41 44 44 20 52 32 |R11,#4.`T.ADD R2|
00012c80 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 31 0d 60 5e |,R4,R4,LSL #1.`^|
00012c90 28 4c 44 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 |(LDR R3,[R11,-R8|
00012ca0 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 |]:ADD R3,R3,R2,A|
00012cb0 53 52 20 23 34 0d 60 68 14 53 54 52 20 52 33 2c |SR #4.`h.STR R3,|
00012cc0 5b 52 31 31 2c 2d 52 38 5d 0d 60 72 17 41 44 44 |[R11,-R8].`r.ADD|
00012cd0 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 32 | R2,R4,R4,LSL #2|
00012ce0 0d 60 7c 24 4c 44 52 20 52 33 2c 5b 52 31 31 5d |.`|$LDR R3,[R11]|
00012cf0 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 |:ADD R3,R3,R2,AS|
00012d00 52 20 23 34 0d 60 86 10 53 54 52 20 52 33 2c 5b |R #4.`..STR R3,[|
00012d10 52 31 31 5d 0d 60 90 14 4d 4f 56 20 52 33 2c 52 |R11].`..MOV R3,R|
00012d20 34 2c 41 53 52 20 23 34 0d 60 9a 14 53 54 52 20 |4,ASR #4.`..STR |
00012d30 52 33 2c 5b 52 31 31 2c 52 38 5d 21 0d 60 a4 17 |R3,[R11,R8]!.`..|
00012d40 52 53 42 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c |RSB R2,R4,R4,LSL|
00012d50 20 23 33 0d 60 ae 10 4c 44 52 20 52 34 2c 5b 52 | #3.`..LDR R4,[R|
00012d60 31 30 5d 0d 60 b8 17 41 44 44 20 52 34 2c 52 34 |10].`..ADD R4,R4|
00012d70 2c 52 32 2c 41 53 52 20 23 34 0d 60 c2 17 41 44 |,R2,ASR #4.`..AD|
00012d80 44 20 52 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 23 |D R2,R5,R5,LSL #|
00012d90 31 0d 60 cc 27 4c 44 52 20 52 33 2c 5b 52 30 2c |1.`.'LDR R3,[R0,|
00012da0 2d 52 38 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 |-R8]:ADD R3,R3,R|
00012db0 32 2c 41 53 52 20 23 34 0d 60 d6 13 53 54 52 20 |2,ASR #4.`..STR |
00012dc0 52 33 2c 5b 52 30 2c 2d 52 38 5d 0d 60 e0 14 4d |R3,[R0,-R8].`..M|
00012dd0 4f 56 20 52 33 2c 52 35 2c 41 53 52 20 23 34 0d |OV R3,R5,ASR #4.|
00012de0 60 ea 12 53 54 52 20 52 33 2c 5b 52 30 2c 52 38 |`..STR R3,[R0,R8|
00012df0 5d 0d 60 f4 17 41 44 44 20 52 32 2c 52 35 2c 52 |].`..ADD R2,R5,R|
00012e00 35 2c 4c 53 4c 20 23 32 0d 60 fe 23 4c 44 52 20 |5,LSL #2.`.#LDR |
00012e10 52 33 2c 5b 52 30 5d 3a 41 44 44 20 52 33 2c 52 |R3,[R0]:ADD R3,R|
00012e20 33 2c 52 32 2c 41 53 52 20 23 34 0d 61 08 12 53 |3,R2,ASR #4.a..S|
00012e30 54 52 20 52 33 2c 5b 52 30 5d 2c 23 34 0d 61 12 |TR R3,[R0],#4.a.|
00012e40 17 52 53 42 20 52 32 2c 52 35 2c 52 35 2c 4c 53 |.RSB R2,R5,R5,LS|
00012e50 4c 20 23 33 0d 61 1c 13 4c 44 52 20 52 35 2c 5b |L #3.a..LDR R5,[|
00012e60 52 31 30 2c 23 34 5d 0d 61 26 17 41 44 44 20 52 |R10,#4].a&.ADD R|
00012e70 35 2c 52 35 2c 52 32 2c 41 53 52 20 23 34 0d 61 |5,R5,R2,ASR #4.a|
00012e80 30 17 41 44 44 20 52 32 2c 52 36 2c 52 36 2c 4c |0.ADD R2,R6,R6,L|
00012e90 53 4c 20 23 31 0d 61 3a 27 4c 44 52 20 52 33 2c |SL #1.a:'LDR R3,|
00012ea0 5b 52 30 2c 2d 52 38 5d 3a 41 44 44 20 52 33 2c |[R0,-R8]:ADD R3,|
00012eb0 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 61 44 13 |R3,R2,ASR #4.aD.|
00012ec0 53 54 52 20 52 33 2c 5b 52 30 2c 2d 52 38 5d 0d |STR R3,[R0,-R8].|
00012ed0 61 4e 17 41 44 44 20 52 32 2c 52 36 2c 52 36 2c |aN.ADD R2,R6,R6,|
00012ee0 4c 53 4c 20 23 32 0d 61 58 23 4c 44 52 20 52 33 |LSL #2.aX#LDR R3|
00012ef0 2c 5b 52 30 5d 3a 41 44 44 20 52 33 2c 52 33 2c |,[R0]:ADD R3,R3,|
00012f00 52 32 2c 41 53 52 20 23 34 0d 61 62 0f 53 54 52 |R2,ASR #4.ab.STR|
00012f10 20 52 33 2c 5b 52 30 5d 0d 61 6c 14 4d 4f 56 20 | R3,[R0].al.MOV |
00012f20 52 33 2c 52 36 2c 41 53 52 20 23 34 0d 61 76 12 |R3,R6,ASR #4.av.|
00012f30 53 54 52 20 52 33 2c 5b 52 30 2c 52 38 5d 0d 61 |STR R3,[R0,R8].a|
00012f40 80 17 52 53 42 20 52 32 2c 52 36 2c 52 36 2c 4c |..RSB R2,R6,R6,L|
00012f50 53 4c 20 23 33 0d 61 8a 13 4c 44 52 20 52 36 2c |SL #3.a..LDR R6,|
00012f60 5b 52 31 30 2c 23 38 5d 0d 61 94 17 41 44 44 20 |[R10,#8].a..ADD |
00012f70 52 36 2c 52 36 2c 52 32 2c 41 53 52 20 23 34 0d |R6,R6,R2,ASR #4.|
00012f80 61 9e 05 5d 0d 61 a8 05 cc 0d 61 b2 0a 5b 4f 50 |a..].a....a..[OP|
00012f90 54 20 5a 0d 61 bc 18 4c 44 4d 49 41 20 52 31 30 |T Z.a..LDMIA R10|
00012fa0 2c 7b 52 34 2c 52 35 2c 52 36 7d 0d 61 c6 05 5d |,{R4,R5,R6}.a..]|
00012fb0 0d 61 d0 05 cd 0d 61 da 0a 5b 4f 50 54 20 5a 0d |.a....a..[OPT Z.|
00012fc0 61 e4 1c 53 55 42 53 20 52 39 2c 52 39 2c 23 31 |a..SUBS R9,R9,#1|
00012fd0 3a 42 4e 45 20 66 73 6c 6f 6f 70 0d 61 ee 14 4c |:BNE fsloop.a..L|
00012fe0 44 4d 46 44 20 53 50 20 21 2c 7b 50 43 7d 5e 0d |DMFD SP !,{PC}^.|
00012ff0 61 f8 05 5d 0d 62 02 09 c9 20 32 35 36 0d 62 0c |a..].b... 256.b.|
00013000 0a 5b 4f 50 54 20 5a 0d 62 16 0b 2e 64 69 76 32 |.[OPT Z.b...div2|
00013010 35 35 0d 62 20 05 5d 0d 62 2a 0d e3 49 25 3d 30 |55.b .].b*..I%=0|
00013020 b8 32 35 35 0d 62 34 0a 5b 4f 50 54 20 5a 0d 62 |.255.b4.[OPT Z.b|
00013030 3e 11 45 51 55 44 20 49 25 2f 32 35 35 2a 46 0d |>.EQUD I%/255*F.|
00013040 62 48 05 5d 0d 62 52 05 ed 0d 62 5c 0a 5b 4f 50 |bH.].bR...b\.[OP|
00013050 54 20 5a 0d 62 70 08 2e 66 73 25 0d 62 7a 14 53 |T Z.bp..fs%.bz.S|
00013060 54 4d 46 44 20 53 50 20 21 2c 7b 52 31 34 7d 0d |TMFD SP !,{R14}.|
00013070 62 84 15 4c 44 52 20 52 31 30 2c 5b 52 39 2c 23 |b..LDR R10,[R9,#|
00013080 34 2a 38 5d 0d 62 8e 11 41 44 52 20 52 37 2c 64 |4*8].b..ADR R7,d|
00013090 69 76 32 35 35 0d 62 98 20 4c 44 52 20 52 31 2c |iv255.b. LDR R1,|
000130a0 5b 52 39 2c 23 35 2a 38 5d 3a 4c 44 52 20 52 31 |[R9,#5*8]:LDR R1|
000130b0 2c 5b 52 31 5d 0d 62 a2 15 4c 44 52 20 52 31 31 |,[R1].b..LDR R11|
000130c0 2c 5b 52 39 2c 23 33 2a 38 5d 0d 62 ac 23 4c 44 |,[R9,#3*8].b.#LD|
000130d0 52 20 52 31 32 2c 5b 52 39 2c 23 32 2a 38 5d 3a |R R12,[R9,#2*8]:|
000130e0 4c 44 52 20 52 31 32 2c 5b 52 31 32 5d 0d 62 b6 |LDR R12,[R12].b.|
000130f0 1e 4c 44 52 20 52 38 2c 5b 52 39 2c 23 38 5d 3a |.LDR R8,[R9,#8]:|
00013100 4c 44 52 20 52 38 2c 5b 52 38 5d 0d 62 c0 1b 4c |LDR R8,[R8].b..L|
00013110 44 52 20 52 39 2c 5b 52 39 5d 3a 4c 44 52 20 52 |DR R9,[R9]:LDR R|
00013120 39 2c 5b 52 39 5d 0d 62 ca 13 4c 44 52 20 52 34 |9,[R9].b..LDR R4|
00013130 2c 5b 52 31 30 5d 2c 52 38 0d 62 d4 0b 2e 66 73 |,[R10],R8.b...fs|
00013140 6c 6f 6f 70 0d 62 de 25 43 4d 50 20 52 34 2c 23 |loop.b.%CMP R4,#|
00013150 46 3a 4d 4f 56 43 53 20 52 34 2c 23 30 3a 4d 4f |F:MOVCS R4,#0:MO|
00013160 56 47 45 20 52 34 2c 23 46 0d 62 e8 57 53 55 42 |VGE R4,#F.b.WSUB|
00013170 20 52 30 2c 52 34 2c 52 34 2c 4c 53 52 20 23 38 | R0,R4,R4,LSR #8|
00013180 3a 41 44 44 20 52 30 2c 52 30 2c 23 31 3c 3c 28 |:ADD R0,R0,#1<<(|
00013190 62 69 74 73 2d 39 29 3a 4d 4f 56 20 52 30 2c 52 |bits-9):MOV R0,R|
000131a0 30 2c 4c 53 52 20 23 28 62 69 74 73 2d 38 29 3a |0,LSR #(bits-8):|
000131b0 53 54 52 42 20 52 30 2c 5b 52 31 32 5d 2c 52 31 |STRB R0,[R12],R1|
000131c0 0d 62 f2 19 4c 44 52 20 52 32 2c 5b 52 37 2c 52 |.b..LDR R2,[R7,R|
000131d0 30 2c 4c 53 4c 20 23 32 5d 0d 62 fc 05 5d 0d 63 |0,LSL #2].b..].c|
000131e0 06 0e e7 64 69 74 68 65 72 25 20 8c 0d 63 10 0a |...dither% ..c..|
000131f0 5b 4f 50 54 20 5a 0d 63 1a 10 53 55 42 20 52 34 |[OPT Z.c..SUB R4|
00013200 2c 52 34 2c 52 32 0d 63 24 0f 4d 4f 56 43 53 20 |,R4,R2.c$.MOVCS |
00013210 52 34 2c 23 30 0d 63 2e 17 41 44 44 20 52 32 2c |R4,#0.c..ADD R2,|
00013220 52 34 2c 52 34 2c 4c 53 4c 20 23 31 0d 63 38 28 |R4,R4,LSL #1.c8(|
00013230 4c 44 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 5d |LDR R3,[R11,-R8]|
00013240 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 |:ADD R3,R3,R2,AS|
00013250 52 20 23 34 0d 63 42 14 53 54 52 20 52 33 2c 5b |R #4.cB.STR R3,[|
00013260 52 31 31 2c 2d 52 38 5d 0d 63 4c 17 41 44 44 20 |R11,-R8].cL.ADD |
00013270 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 32 0d |R2,R4,R4,LSL #2.|
00013280 63 56 24 4c 44 52 20 52 33 2c 5b 52 31 31 5d 3a |cV$LDR R3,[R11]:|
00013290 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 |ADD R3,R3,R2,ASR|
000132a0 20 23 34 0d 63 60 10 53 54 52 20 52 33 2c 5b 52 | #4.c`.STR R3,[R|
000132b0 31 31 5d 0d 63 6a 14 4d 4f 56 20 52 33 2c 52 34 |11].cj.MOV R3,R4|
000132c0 2c 41 53 52 20 23 34 0d 63 74 14 53 54 52 20 52 |,ASR #4.ct.STR R|
000132d0 33 2c 5b 52 31 31 2c 52 38 5d 21 0d 63 7e 17 52 |3,[R11,R8]!.c~.R|
000132e0 53 42 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 |SB R2,R4,R4,LSL |
000132f0 23 33 0d 63 88 13 4c 44 52 20 52 34 2c 5b 52 31 |#3.c..LDR R4,[R1|
00013300 30 5d 2c 52 38 0d 63 92 17 41 44 44 20 52 34 2c |0],R8.c..ADD R4,|
00013310 52 34 2c 52 32 2c 41 53 52 20 23 34 0d 63 9c 05 |R4,R2,ASR #4.c..|
00013320 5d 0d 63 a6 05 cc 0d 63 b0 0a 5b 4f 50 54 20 5a |].c....c..[OPT Z|
00013330 0d 63 ba 13 4c 44 52 20 52 34 2c 5b 52 31 30 5d |.c..LDR R4,[R10]|
00013340 2c 52 38 0d 63 c4 05 5d 0d 63 ce 05 cd 0d 63 d8 |,R8.c..].c....c.|
00013350 0a 5b 4f 50 54 20 5a 0d 63 e2 1c 53 55 42 53 20 |.[OPT Z.c..SUBS |
00013360 52 39 2c 52 39 2c 23 31 3a 42 4e 45 20 66 73 6c |R9,R9,#1:BNE fsl|
00013370 6f 6f 70 0d 63 ec 14 4c 44 4d 46 44 20 53 50 20 |oop.c..LDMFD SP |
00013380 21 2c 7b 50 43 7d 5e 0d 63 f6 05 5d 0d 64 00 0c |!,{PC}^.c..].d..|
00013390 c9 20 36 33 2c 32 35 35 0d 64 0a 1a 64 69 76 31 |. 63,255.d..div1|
000133a0 35 3d 50 25 3a e3 49 25 3d 30 b8 32 35 35 2a 34 |5=P%:.I%=0.255*4|
000133b0 88 34 0d 64 14 0a 5b 4f 50 54 20 5a 0d 64 1e 20 |.4.d..[OPT Z.d. |
000133c0 45 51 55 44 20 28 70 61 6c 65 74 74 65 25 21 49 |EQUD (palette%!I|
000133d0 25 80 26 46 46 29 2f 32 35 35 2a 46 0d 64 28 23 |%.&FF)/255*F.d(#|
000133e0 45 51 55 44 20 28 70 61 6c 65 74 74 65 25 21 49 |EQUD (palette%!I|
000133f0 25 3e 3e 38 80 26 46 46 29 2f 32 35 35 2a 46 0d |%>>8.&FF)/255*F.|
00013400 64 32 24 45 51 55 44 20 28 70 61 6c 65 74 74 65 |d2$EQUD (palette|
00013410 25 21 49 25 3e 3e 31 36 80 26 46 46 29 2f 32 35 |%!I%>>16.&FF)/25|
00013420 35 2a 46 0d 64 3c 05 5d 0d 64 46 05 ed 0d 64 50 |5*F.d<.].dF...dP|
00013430 0d e7 6d 24 3d 22 52 22 20 8c 0d 64 5a 0a 5b 4f |..m$="R" ..dZ.[O|
00013440 50 54 20 5a 0d 64 64 15 2e 69 63 74 6c 6f 63 20 |PT Z.dd..ictloc |
00013450 45 51 55 44 20 69 63 74 25 0d 64 6e 05 5d 0d 64 |EQUD ict%.dn.].d|
00013460 78 05 cd 0d 64 82 0a 5b 4f 50 54 20 5a 0d 64 8c |x...d..[OPT Z.d.|
00013470 0e 45 51 55 44 20 64 69 76 31 35 0d 64 96 08 2e |.EQUD div15.d...|
00013480 66 73 25 0d 64 a0 14 53 54 4d 46 44 20 53 50 20 |fs%.d..STMFD SP |
00013490 21 2c 7b 52 31 34 7d 0d 64 aa 20 4c 44 52 20 52 |!,{R14}.d. LDR R|
000134a0 31 2c 5b 52 39 2c 23 35 2a 38 5d 3a 4c 44 52 20 |1,[R9,#5*8]:LDR |
000134b0 52 31 2c 5b 52 31 5d 0d 64 b4 15 4c 44 52 20 52 |R1,[R1].d..LDR R|
000134c0 31 30 2c 5b 52 39 2c 23 34 2a 38 5d 0d 64 be 15 |10,[R9,#4*8].d..|
000134d0 4c 44 52 20 52 31 31 2c 5b 52 39 2c 23 33 2a 38 |LDR R11,[R9,#3*8|
000134e0 5d 0d 64 c8 23 4c 44 52 20 52 31 32 2c 5b 52 39 |].d.#LDR R12,[R9|
000134f0 2c 23 32 2a 38 5d 3a 4c 44 52 20 52 31 32 2c 5b |,#2*8]:LDR R12,[|
00013500 52 31 32 5d 0d 64 d2 1e 4c 44 52 20 52 38 2c 5b |R12].d..LDR R8,[|
00013510 52 39 2c 23 38 5d 3a 4c 44 52 20 52 38 2c 5b 52 |R9,#8]:LDR R8,[R|
00013520 38 5d 0d 64 dc 1b 4c 44 52 20 52 39 2c 5b 52 39 |8].d..LDR R9,[R9|
00013530 5d 3a 4c 44 52 20 52 39 2c 5b 52 39 5d 0d 64 e6 |]:LDR R9,[R9].d.|
00013540 10 4c 44 52 20 52 34 2c 5b 52 31 30 5d 0d 64 f0 |.LDR R4,[R10].d.|
00013550 13 4c 44 52 20 52 35 2c 5b 52 31 30 2c 23 34 5d |.LDR R5,[R10,#4]|
00013560 0d 64 fa 13 4c 44 52 20 52 36 2c 5b 52 31 30 2c |.d..LDR R6,[R10,|
00013570 23 38 5d 0d 65 04 10 4c 44 52 20 52 37 2c 66 73 |#8].e..LDR R7,fs|
00013580 25 2d 34 0d 65 0e 0b 2e 66 73 6c 6f 6f 70 0d 65 |%-4.e...fsloop.e|
00013590 18 12 41 44 44 20 52 31 30 2c 52 31 30 2c 52 38 |..ADD R10,R10,R8|
000135a0 0d 65 22 05 5d 0d 65 2c 0b c8 8e 20 6d 24 20 ca |.e".].e,... m$ .|
000135b0 0d 65 36 08 c9 22 54 22 0d 65 40 0a 5b 4f 50 54 |.e6.."T".e@.[OPT|
000135c0 20 5a 0d 65 4a 25 43 4d 50 20 52 34 2c 23 46 3a | Z.eJ%CMP R4,#F:|
000135d0 4d 4f 56 43 53 20 52 34 2c 23 30 3a 4d 4f 56 47 |MOVCS R4,#0:MOVG|
000135e0 45 20 52 34 2c 23 46 0d 65 54 33 4d 4f 56 20 52 |E R4,#F.eT3MOV R|
000135f0 30 2c 52 34 2c 4c 53 52 20 23 28 62 69 74 73 2d |0,R4,LSR #(bits-|
00013600 34 29 3a 43 4d 50 20 52 30 2c 23 31 35 3a 4d 4f |4):CMP R0,#15:MO|
00013610 56 43 53 20 52 30 2c 23 31 35 0d 65 5e 25 43 4d |VCS R0,#15.e^%CM|
00013620 50 20 52 35 2c 23 46 3a 4d 4f 56 43 53 20 52 35 |P R5,#F:MOVCS R5|
00013630 2c 23 30 3a 4d 4f 56 47 45 20 52 35 2c 23 46 0d |,#0:MOVGE R5,#F.|
00013640 65 68 46 4d 4f 56 20 52 33 2c 52 35 2c 4c 53 52 |ehFMOV R3,R5,LSR|
00013650 20 23 28 62 69 74 73 2d 34 29 3a 43 4d 50 20 52 | #(bits-4):CMP R|
00013660 33 2c 23 31 35 3a 4d 4f 56 43 53 20 52 33 2c 23 |3,#15:MOVCS R3,#|
00013670 31 35 3a 84 52 20 52 30 2c 52 30 2c 52 33 2c 4c |15:.R R0,R0,R3,L|
00013680 53 4c 20 23 34 0d 65 72 25 43 4d 50 20 52 36 2c |SL #4.er%CMP R6,|
00013690 23 46 3a 4d 4f 56 43 53 20 52 36 2c 23 30 3a 4d |#F:MOVCS R6,#0:M|
000136a0 4f 56 47 45 20 52 36 2c 23 46 0d 65 7c 46 4d 4f |OVGE R6,#F.e|FMO|
000136b0 56 20 52 33 2c 52 36 2c 4c 53 52 20 23 28 62 69 |V R3,R6,LSR #(bi|
000136c0 74 73 2d 34 29 3a 43 4d 50 20 52 33 2c 23 31 35 |ts-4):CMP R3,#15|
000136d0 3a 4d 4f 56 43 53 20 52 33 2c 23 31 35 3a 84 52 |:MOVCS R3,#15:.R|
000136e0 20 52 30 2c 52 30 2c 52 33 2c 4c 53 4c 20 23 38 | R0,R0,R3,LSL #8|
000136f0 0d 65 86 16 4c 44 52 20 52 33 2c 63 6f 6c 6d 61 |.e..LDR R3,colma|
00013700 74 63 68 6c 6f 63 0d 65 90 13 4c 44 52 42 20 52 |tchloc.e..LDRB R|
00013710 30 2c 5b 52 33 2c 52 30 5d 0d 65 9a 2b 41 44 44 |0,[R3,R0].e.+ADD|
00013720 20 52 33 2c 52 30 2c 52 30 2c 4c 53 4c 20 23 31 | R3,R0,R0,LSL #1|
00013730 3a 41 44 44 20 52 33 2c 52 37 2c 52 33 2c 4c 53 |:ADD R3,R7,R3,LS|
00013740 4c 20 23 32 0d 65 a4 1f 4c 44 52 20 52 32 2c 5b |L #2.e..LDR R2,[|
00013750 52 33 5d 2c 23 34 3a 53 55 42 20 52 34 2c 52 34 |R3],#4:SUB R4,R4|
00013760 2c 52 32 0d 65 ae 2e 4c 44 4d 49 41 20 52 33 2c |,R2.e..LDMIA R3,|
00013770 7b 52 32 2c 52 33 7d 3a 53 55 42 20 52 35 2c 52 |{R2,R3}:SUB R5,R|
00013780 35 2c 52 32 3a 53 55 42 20 52 36 2c 52 36 2c 52 |5,R2:SUB R6,R6,R|
00013790 33 0d 65 b8 05 5d 0d 65 c2 08 c9 22 52 22 0d 65 |3.e..].e..."R".e|
000137a0 cc 10 f2 73 72 63 68 64 65 76 6c 69 73 74 0d 65 |...srchdevlist.e|
000137b0 d6 05 7f 0d 65 e0 0a 5b 4f 50 54 20 5a 0d 65 ea |....e..[OPT Z.e.|
000137c0 25 43 4d 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 |%CMP R4,#F:MOVCS|
000137d0 20 52 34 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c | R4,#0:MOVGE R4,|
000137e0 23 46 0d 65 f4 25 43 4d 50 20 52 35 2c 23 46 3a |#F.e.%CMP R5,#F:|
000137f0 4d 4f 56 43 53 20 52 35 2c 23 30 3a 4d 4f 56 47 |MOVCS R5,#0:MOVG|
00013800 45 20 52 35 2c 23 46 0d 65 fe 25 43 4d 50 20 52 |E R5,#F.e.%CMP R|
00013810 36 2c 23 46 3a 4d 4f 56 43 53 20 52 36 2c 23 30 |6,#F:MOVCS R6,#0|
00013820 3a 4d 4f 56 47 45 20 52 36 2c 23 46 0d 66 08 19 |:MOVGE R6,#F.f..|
00013830 53 54 4d 46 44 20 53 50 20 21 2c 7b 52 37 2c 52 |STMFD SP !,{R7,R|
00013840 38 2c 52 39 7d 0d 66 12 0d 4d 56 4e 20 52 32 2c |8,R9}.f..MVN R2,|
00013850 23 30 0d 66 1c 13 4d 4f 56 20 52 33 2c 23 26 33 |#0.f..MOV R3,#&3|
00013860 30 3c 3c 32 33 0d 66 26 1c 2e 73 72 63 68 20 52 |0<<23.f&..srch R|
00013870 53 42 20 52 37 2c 52 33 2c 23 26 32 30 3c 3c 32 |SB R7,R3,#&20<<2|
00013880 33 0d 66 30 19 4d 4f 56 20 52 38 2c 52 36 2c 4c |3.f0.MOV R8,R6,L|
00013890 53 52 20 23 62 69 74 73 2d 38 0d 66 3a 17 53 55 |SR #bits-8.f:.SU|
000138a0 42 20 52 38 2c 52 38 2c 52 38 2c 4c 53 52 20 23 |B R8,R8,R8,LSR #|
000138b0 34 0d 66 44 19 41 44 44 53 20 52 37 2c 52 37 2c |4.fD.ADDS R7,R7,|
000138c0 52 38 2c 4c 53 4c 20 23 32 33 0d 66 4e 18 4d 4f |R8,LSL #23.fN.MO|
000138d0 56 56 53 53 20 52 37 2c 23 26 37 46 30 30 30 30 |VVSS R7,#&7F0000|
000138e0 30 30 0d 66 58 0f 4d 4f 56 4d 49 20 52 37 2c 23 |00.fX.MOVMI R7,#|
000138f0 30 0d 66 62 16 80 20 52 37 2c 52 37 2c 23 26 36 |0.fb.. R7,R7,#&6|
00013900 30 30 30 30 30 30 30 0d 66 6c 10 41 44 44 20 52 |0000000.fl.ADD R|
00013910 37 2c 52 37 2c 52 33 0d 66 76 18 41 44 44 20 52 |7,R7,R3.fv.ADD R|
00013920 31 34 2c 52 37 2c 52 37 2c 4c 53 52 20 23 34 0d |14,R7,R7,LSR #4.|
00013930 66 80 19 41 44 44 20 52 37 2c 52 31 34 2c 52 31 |f..ADD R7,R14,R1|
00013940 34 2c 4c 53 52 20 23 38 0d 66 8a 18 41 44 44 20 |4,LSR #8.f..ADD |
00013950 52 37 2c 52 37 2c 52 37 2c 4c 53 52 20 23 31 36 |R7,R7,R7,LSR #16|
00013960 0d 66 94 1e 53 55 42 53 20 52 38 2c 52 36 2c 52 |.f..SUBS R8,R6,R|
00013970 37 2c 4c 53 52 20 23 33 31 2d 62 69 74 73 0d 66 |7,LSR #31-bits.f|
00013980 9e 12 52 53 42 4c 54 20 52 38 2c 52 38 2c 23 30 |..RSBLT R8,R8,#0|
00013990 0d 66 a8 19 4d 4f 56 20 52 38 2c 52 38 2c 4c 53 |.f..MOV R8,R8,LS|
000139a0 52 20 23 62 69 74 73 2f 32 0d 66 b2 10 4d 55 4c |R #bits/2.f..MUL|
000139b0 20 52 39 2c 52 38 2c 52 38 0d 66 bc 16 52 53 42 | R9,R8,R8.f..RSB|
000139c0 20 52 37 2c 52 33 2c 23 26 32 30 3c 3c 32 33 0d | R7,R3,#&20<<23.|
000139d0 66 c6 19 4d 4f 56 20 52 38 2c 52 35 2c 4c 53 52 |f..MOV R8,R5,LSR|
000139e0 20 23 62 69 74 73 2d 38 0d 66 d0 17 53 55 42 20 | #bits-8.f..SUB |
000139f0 52 38 2c 52 38 2c 52 38 2c 4c 53 52 20 23 34 0d |R8,R8,R8,LSR #4.|
00013a00 66 da 19 41 44 44 53 20 52 37 2c 52 37 2c 52 38 |f..ADDS R7,R7,R8|
00013a10 2c 4c 53 4c 20 23 32 33 0d 66 e4 18 4d 4f 56 56 |,LSL #23.f..MOVV|
00013a20 53 53 20 52 37 2c 23 26 37 46 30 30 30 30 30 30 |SS R7,#&7F000000|
00013a30 0d 66 ee 0f 4d 4f 56 4d 49 20 52 37 2c 23 30 0d |.f..MOVMI R7,#0.|
00013a40 66 f8 16 80 20 52 37 2c 52 37 2c 23 26 36 30 30 |f... R7,R7,#&600|
00013a50 30 30 30 30 30 0d 67 02 10 41 44 44 20 52 37 2c |00000.g..ADD R7,|
00013a60 52 33 2c 52 37 0d 67 0c 17 41 44 44 20 52 37 2c |R3,R7.g..ADD R7,|
00013a70 52 37 2c 52 37 2c 4c 53 52 20 23 34 0d 67 16 18 |R7,R7,LSR #4.g..|
00013a80 84 52 20 52 31 34 2c 52 31 34 2c 52 37 2c 4c 53 |.R R14,R14,R7,LS|
00013a90 52 20 23 38 0d 67 20 17 41 44 44 20 52 37 2c 52 |R #8.g .ADD R7,R|
00013aa0 37 2c 52 37 2c 4c 53 52 20 23 38 0d 67 2a 18 41 |7,R7,LSR #8.g*.A|
00013ab0 44 44 20 52 37 2c 52 37 2c 52 37 2c 4c 53 52 20 |DD R7,R7,R7,LSR |
00013ac0 23 31 36 0d 67 34 1e 53 55 42 53 20 52 38 2c 52 |#16.g4.SUBS R8,R|
00013ad0 35 2c 52 37 2c 4c 53 52 20 23 33 31 2d 62 69 74 |5,R7,LSR #31-bit|
00013ae0 73 0d 67 3e 12 52 53 42 4c 54 20 52 38 2c 52 38 |s.g>.RSBLT R8,R8|
00013af0 2c 23 30 0d 67 48 19 4d 4f 56 20 52 38 2c 52 38 |,#0.gH.MOV R8,R8|
00013b00 2c 4c 53 52 20 23 62 69 74 73 2f 32 0d 67 52 10 |,LSR #bits/2.gR.|
00013b10 4d 55 4c 20 52 37 2c 52 38 2c 52 38 0d 67 5c 17 |MUL R7,R8,R8.g\.|
00013b20 41 44 44 20 52 37 2c 52 37 2c 52 37 2c 4c 53 4c |ADD R7,R7,R7,LSL|
00013b30 20 23 32 0d 67 66 17 41 44 44 20 52 39 2c 52 39 | #2.gf.ADD R9,R9|
00013b40 2c 52 37 2c 4c 53 4c 20 23 31 0d 67 70 16 52 53 |,R7,LSL #1.gp.RS|
00013b50 42 20 52 37 2c 52 33 2c 23 26 32 30 3c 3c 32 33 |B R7,R3,#&20<<23|
00013b60 0d 67 7a 19 4d 4f 56 20 52 38 2c 52 34 2c 4c 53 |.gz.MOV R8,R4,LS|
00013b70 52 20 23 62 69 74 73 2d 38 0d 67 84 17 53 55 42 |R #bits-8.g..SUB|
00013b80 20 52 38 2c 52 38 2c 52 38 2c 4c 53 52 20 23 34 | R8,R8,R8,LSR #4|
00013b90 0d 67 8e 19 41 44 44 53 20 52 37 2c 52 37 2c 52 |.g..ADDS R7,R7,R|
00013ba0 38 2c 4c 53 4c 20 23 32 33 0d 67 98 18 4d 4f 56 |8,LSL #23.g..MOV|
00013bb0 56 53 53 20 52 37 2c 23 26 37 46 30 30 30 30 30 |VSS R7,#&7F00000|
00013bc0 30 0d 67 a2 0f 4d 4f 56 4d 49 20 52 37 2c 23 30 |0.g..MOVMI R7,#0|
00013bd0 0d 67 ac 16 80 20 52 37 2c 52 37 2c 23 26 36 30 |.g... R7,R7,#&60|
00013be0 30 30 30 30 30 30 0d 67 b6 10 41 44 44 20 52 37 |000000.g..ADD R7|
00013bf0 2c 52 33 2c 52 37 0d 67 c0 17 41 44 44 20 52 37 |,R3,R7.g..ADD R7|
00013c00 2c 52 37 2c 52 37 2c 4c 53 52 20 23 34 0d 67 ca |,R7,R7,LSR #4.g.|
00013c10 19 84 52 20 52 31 34 2c 52 31 34 2c 52 37 2c 4c |..R R14,R14,R7,L|
00013c20 53 52 20 23 31 36 0d 67 d4 17 41 44 44 20 52 37 |SR #16.g..ADD R7|
00013c30 2c 52 37 2c 52 37 2c 4c 53 52 20 23 38 0d 67 de |,R7,R7,LSR #8.g.|
00013c40 18 41 44 44 20 52 37 2c 52 37 2c 52 37 2c 4c 53 |.ADD R7,R7,R7,LS|
00013c50 52 20 23 31 36 0d 67 e8 1e 53 55 42 53 20 52 38 |R #16.g..SUBS R8|
00013c60 2c 52 34 2c 52 37 2c 4c 53 52 20 23 33 31 2d 62 |,R4,R7,LSR #31-b|
00013c70 69 74 73 0d 67 f2 12 52 53 42 4c 54 20 52 38 2c |its.g..RSBLT R8,|
00013c80 52 38 2c 23 30 0d 67 fc 19 4d 4f 56 20 52 38 2c |R8,#0.g..MOV R8,|
00013c90 52 38 2c 4c 53 52 20 23 62 69 74 73 2f 32 0d 68 |R8,LSR #bits/2.h|
00013ca0 06 10 4d 55 4c 20 52 37 2c 52 38 2c 52 38 0d 68 |..MUL R7,R8,R8.h|
00013cb0 10 17 41 44 44 20 52 37 2c 52 37 2c 52 37 2c 4c |..ADD R7,R7,R7,L|
00013cc0 53 4c 20 23 31 0d 68 1a 10 41 44 44 20 52 39 2c |SL #1.h..ADD R9,|
00013cd0 52 39 2c 52 37 0d 68 24 0d 43 4d 50 20 52 39 2c |R9,R7.h$.CMP R9,|
00013ce0 52 32 0d 68 2e 0f 4d 4f 56 4c 53 20 52 32 2c 52 |R2.h..MOVLS R2,R|
00013cf0 39 0d 68 38 10 4d 4f 56 4c 53 20 52 30 2c 52 31 |9.h8.MOVLS R0,R1|
00013d00 34 0d 68 42 17 53 55 42 53 20 52 33 2c 52 33 2c |4.hB.SUBS R3,R3,|
00013d10 23 26 31 30 3c 3c 32 33 0d 68 4c 0c 42 47 45 20 |#&10<<23.hL.BGE |
00013d20 73 72 63 68 0d 68 56 16 80 20 52 37 2c 52 30 2c |srch.hV.. R7,R0,|
00013d30 23 26 34 30 30 30 30 30 30 30 0d 68 60 15 4d 4f |#&40000000.h`.MO|
00013d40 56 20 52 38 2c 52 37 2c 4c 53 52 20 23 32 33 0d |V R8,R7,LSR #23.|
00013d50 68 6a 14 80 20 52 37 2c 52 30 2c 23 26 36 30 30 |hj.. R7,R0,#&600|
00013d60 30 30 30 0d 68 74 17 84 52 20 52 38 2c 52 38 2c |000.ht..R R8,R8,|
00013d70 52 37 2c 4c 53 52 20 23 31 36 0d 68 7e 12 80 20 |R7,LSR #16.h~.. |
00013d80 52 37 2c 52 30 2c 23 26 34 30 30 30 0d 68 88 17 |R7,R0,#&4000.h..|
00013d90 84 52 20 52 38 2c 52 38 2c 52 37 2c 4c 53 52 20 |.R R8,R8,R7,LSR |
00013da0 23 31 30 0d 68 92 16 80 20 52 37 2c 52 30 2c 23 |#10.h... R7,R0,#|
00013db0 26 32 30 30 30 30 30 30 30 0d 68 9c 17 84 52 20 |&20000000.h...R |
00013dc0 52 38 2c 52 38 2c 52 37 2c 4c 53 52 20 23 32 36 |R8,R8,R7,LSR #26|
00013dd0 0d 68 a6 12 80 20 52 37 2c 52 30 2c 23 26 33 38 |.h... R7,R0,#&38|
00013de0 30 30 0d 68 b0 17 84 52 20 52 30 2c 52 38 2c 52 |00.h...R R0,R8,R|
00013df0 37 2c 4c 53 52 20 23 31 31 0d 68 ba 19 4c 44 4d |7,LSR #11.h..LDM|
00013e00 46 44 20 53 50 20 21 2c 7b 52 37 2c 52 38 2c 52 |FD SP !,{R7,R8,R|
00013e10 39 7d 0d 68 c4 2b 41 44 44 20 52 33 2c 52 30 2c |9}.h.+ADD R3,R0,|
00013e20 52 30 2c 4c 53 4c 20 23 31 3a 41 44 44 20 52 33 |R0,LSL #1:ADD R3|
00013e30 2c 52 37 2c 52 33 2c 4c 53 4c 20 23 32 0d 68 ce |,R7,R3,LSL #2.h.|
00013e40 1f 4c 44 52 20 52 32 2c 5b 52 33 5d 2c 23 34 3a |.LDR R2,[R3],#4:|
00013e50 53 55 42 20 52 34 2c 52 34 2c 52 32 0d 68 d8 2e |SUB R4,R4,R2.h..|
00013e60 4c 44 4d 49 41 20 52 33 2c 7b 52 32 2c 52 33 7d |LDMIA R3,{R2,R3}|
00013e70 3a 53 55 42 20 52 35 2c 52 35 2c 52 32 3a 53 55 |:SUB R5,R5,R2:SU|
00013e80 42 20 52 36 2c 52 36 2c 52 33 0d 68 e2 05 5d 0d |B R6,R6,R3.h..].|
00013e90 68 ec 05 cb 0d 68 f6 0a 5b 4f 50 54 20 5a 0d 69 |h....h..[OPT Z.i|
00013ea0 00 14 53 54 52 42 20 52 30 2c 5b 52 31 32 5d 2c |..STRB R0,[R12],|
00013eb0 52 31 0d 69 0a 05 5d 0d 69 14 0e e7 64 69 74 68 |R1.i..].i...dith|
00013ec0 65 72 25 20 8c 0d 69 1e 0a 5b 4f 50 54 20 5a 0d |er% ..i..[OPT Z.|
00013ed0 69 28 11 41 44 44 20 52 30 2c 52 31 31 2c 23 34 |i(.ADD R0,R11,#4|
00013ee0 0d 69 32 17 41 44 44 20 52 32 2c 52 34 2c 52 34 |.i2.ADD R2,R4,R4|
00013ef0 2c 4c 53 4c 20 23 31 0d 69 3c 28 4c 44 52 20 52 |,LSL #1.i<(LDR R|
00013f00 33 2c 5b 52 31 31 2c 2d 52 38 5d 3a 41 44 44 20 |3,[R11,-R8]:ADD |
00013f10 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d |R3,R3,R2,ASR #4.|
00013f20 69 46 14 53 54 52 20 52 33 2c 5b 52 31 31 2c 2d |iF.STR R3,[R11,-|
00013f30 52 38 5d 0d 69 50 17 41 44 44 20 52 32 2c 52 34 |R8].iP.ADD R2,R4|
00013f40 2c 52 34 2c 4c 53 4c 20 23 32 0d 69 5a 24 4c 44 |,R4,LSL #2.iZ$LD|
00013f50 52 20 52 33 2c 5b 52 31 31 5d 3a 41 44 44 20 52 |R R3,[R11]:ADD R|
00013f60 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 69 |3,R3,R2,ASR #4.i|
00013f70 64 10 53 54 52 20 52 33 2c 5b 52 31 31 5d 0d 69 |d.STR R3,[R11].i|
00013f80 6e 14 4d 4f 56 20 52 33 2c 52 34 2c 41 53 52 20 |n.MOV R3,R4,ASR |
00013f90 23 34 0d 69 78 14 53 54 52 20 52 33 2c 5b 52 31 |#4.ix.STR R3,[R1|
00013fa0 31 2c 52 38 5d 21 0d 69 82 17 52 53 42 20 52 32 |1,R8]!.i..RSB R2|
00013fb0 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 33 0d 69 8c |,R4,R4,LSL #3.i.|
00013fc0 10 4c 44 52 20 52 34 2c 5b 52 31 30 5d 0d 69 96 |.LDR R4,[R10].i.|
00013fd0 17 41 44 44 20 52 34 2c 52 34 2c 52 32 2c 41 53 |.ADD R4,R4,R2,AS|
00013fe0 52 20 23 34 0d 69 a0 17 41 44 44 20 52 32 2c 52 |R #4.i..ADD R2,R|
00013ff0 35 2c 52 35 2c 4c 53 4c 20 23 31 0d 69 aa 27 4c |5,R5,LSL #1.i.'L|
00014000 44 52 20 52 33 2c 5b 52 30 2c 2d 52 38 5d 3a 41 |DR R3,[R0,-R8]:A|
00014010 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 |DD R3,R3,R2,ASR |
00014020 23 34 0d 69 b4 13 53 54 52 20 52 33 2c 5b 52 30 |#4.i..STR R3,[R0|
00014030 2c 2d 52 38 5d 0d 69 be 14 4d 4f 56 20 52 33 2c |,-R8].i..MOV R3,|
00014040 52 35 2c 41 53 52 20 23 34 0d 69 c8 12 53 54 52 |R5,ASR #4.i..STR|
00014050 20 52 33 2c 5b 52 30 2c 52 38 5d 0d 69 d2 17 41 | R3,[R0,R8].i..A|
00014060 44 44 20 52 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 |DD R2,R5,R5,LSL |
00014070 23 32 0d 69 dc 23 4c 44 52 20 52 33 2c 5b 52 30 |#2.i.#LDR R3,[R0|
00014080 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 |]:ADD R3,R3,R2,A|
00014090 53 52 20 23 34 0d 69 e6 12 53 54 52 20 52 33 2c |SR #4.i..STR R3,|
000140a0 5b 52 30 5d 2c 23 34 0d 69 f0 17 52 53 42 20 52 |[R0],#4.i..RSB R|
000140b0 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 23 33 0d 69 |2,R5,R5,LSL #3.i|
000140c0 fa 13 4c 44 52 20 52 35 2c 5b 52 31 30 2c 23 34 |..LDR R5,[R10,#4|
000140d0 5d 0d 6a 04 17 41 44 44 20 52 35 2c 52 35 2c 52 |].j..ADD R5,R5,R|
000140e0 32 2c 41 53 52 20 23 34 0d 6a 0e 17 41 44 44 20 |2,ASR #4.j..ADD |
000140f0 52 32 2c 52 36 2c 52 36 2c 4c 53 4c 20 23 31 0d |R2,R6,R6,LSL #1.|
00014100 6a 18 27 4c 44 52 20 52 33 2c 5b 52 30 2c 2d 52 |j.'LDR R3,[R0,-R|
00014110 38 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c |8]:ADD R3,R3,R2,|
00014120 41 53 52 20 23 34 0d 6a 22 13 53 54 52 20 52 33 |ASR #4.j".STR R3|
00014130 2c 5b 52 30 2c 2d 52 38 5d 0d 6a 2c 17 41 44 44 |,[R0,-R8].j,.ADD|
00014140 20 52 32 2c 52 36 2c 52 36 2c 4c 53 4c 20 23 32 | R2,R6,R6,LSL #2|
00014150 0d 6a 36 23 4c 44 52 20 52 33 2c 5b 52 30 5d 3a |.j6#LDR R3,[R0]:|
00014160 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 |ADD R3,R3,R2,ASR|
00014170 20 23 34 0d 6a 40 0f 53 54 52 20 52 33 2c 5b 52 | #4.j@.STR R3,[R|
00014180 30 5d 0d 6a 4a 14 4d 4f 56 20 52 33 2c 52 36 2c |0].jJ.MOV R3,R6,|
00014190 41 53 52 20 23 34 0d 6a 54 12 53 54 52 20 52 33 |ASR #4.jT.STR R3|
000141a0 2c 5b 52 30 2c 52 38 5d 0d 6a 5e 17 52 53 42 20 |,[R0,R8].j^.RSB |
000141b0 52 32 2c 52 36 2c 52 36 2c 4c 53 4c 20 23 33 0d |R2,R6,R6,LSL #3.|
000141c0 6a 68 13 4c 44 52 20 52 36 2c 5b 52 31 30 2c 23 |jh.LDR R6,[R10,#|
000141d0 38 5d 0d 6a 72 17 41 44 44 20 52 36 2c 52 36 2c |8].jr.ADD R6,R6,|
000141e0 52 32 2c 41 53 52 20 23 34 0d 6a 7c 05 5d 0d 6a |R2,ASR #4.j|.].j|
000141f0 86 05 cc 0d 6a 90 0a 5b 4f 50 54 20 5a 0d 6a 9a |....j..[OPT Z.j.|
00014200 18 4c 44 4d 49 41 20 52 31 30 2c 7b 52 34 2c 52 |.LDMIA R10,{R4,R|
00014210 35 2c 52 36 7d 0d 6a a4 05 5d 0d 6a ae 05 cd 0d |5,R6}.j..].j....|
00014220 6a b8 0a 5b 4f 50 54 20 5a 0d 6a c2 1c 53 55 42 |j..[OPT Z.j..SUB|
00014230 53 20 52 39 2c 52 39 2c 23 31 3a 42 4e 45 20 66 |S R9,R9,#1:BNE f|
00014240 73 6c 6f 6f 70 0d 6a cc 14 4c 44 4d 46 44 20 53 |sloop.j..LDMFD S|
00014250 50 20 21 2c 7b 50 43 7d 5e 0d 6a d6 05 5d 0d 6a |P !,{PC}^.j..].j|
00014260 e0 08 c9 20 31 35 0d 6a ea 17 64 69 76 74 61 62 |... 15.j..divtab|
00014270 6c 65 3d 50 25 3a c8 8e 20 6d 24 20 ca 0d 6a f4 |le=P%:.. m$ ..j.|
00014280 09 c9 20 22 44 22 0d 6a fe 09 c9 20 22 52 22 0d |.. "D".j... "R".|
00014290 6b 08 10 e3 49 25 3d 30 b8 31 35 2a 34 88 34 0d |k...I%=0.15*4.4.|
000142a0 6b 12 0a 5b 4f 50 54 20 5a 0d 6b 1c 26 45 51 55 |k..[OPT Z.k.&EQU|
000142b0 44 20 28 70 61 6c 65 74 74 65 25 21 49 25 3e 3e |D (palette%!I%>>|
000142c0 34 80 26 46 29 2f 62 72 69 67 68 74 25 2a 46 0d |4.&F)/bright%*F.|
000142d0 6b 26 27 45 51 55 44 20 28 70 61 6c 65 74 74 65 |k&'EQUD (palette|
000142e0 25 21 49 25 3e 3e 31 32 80 26 46 29 2f 62 72 69 |%!I%>>12.&F)/bri|
000142f0 67 68 74 25 2a 46 0d 6b 30 27 45 51 55 44 20 28 |ght%*F.k0'EQUD (|
00014300 70 61 6c 65 74 74 65 25 21 49 25 3e 3e 32 30 80 |palette%!I%>>20.|
00014310 26 46 29 2f 62 72 69 67 68 74 25 2a 46 0d 6b 3a |&F)/bright%*F.k:|
00014320 05 5d 0d 6b 44 05 ed 0d 6b 4e 0a 5b 4f 50 54 20 |.].kD...kN.[OPT |
00014330 5a 0d 6b 58 15 2e 69 63 74 6c 6f 63 20 45 51 55 |Z.kX..ictloc EQU|
00014340 44 20 69 63 74 25 0d 6b 62 05 5d 0d 6b 6c 09 c9 |D ict%.kb.].kl..|
00014350 20 22 54 22 0d 6b 76 0c e3 49 25 3d 30 b8 31 35 | "T".kv..I%=0.15|
00014360 0d 6b 80 0a 5b 4f 50 54 20 5a 0d 6b 8a 15 45 51 |.k..[OPT Z.k..EQ|
00014370 55 44 20 49 25 2f 62 72 69 67 68 74 25 2a 46 0d |UD I%/bright%*F.|
00014380 6b 94 05 5d 0d 6b 9e 05 ed 0d 6b a8 05 7f 0d 6b |k..].k....k....k|
00014390 b2 0b e3 49 25 3d 30 b8 37 0d 6b bc 0a 5b 4f 50 |...I%=0.7.k..[OP|
000143a0 54 20 5a 0d 6b c6 19 45 51 55 44 20 49 25 2f 28 |T Z.k..EQUD I%/(|
000143b0 62 72 69 67 68 74 25 81 32 29 2a 46 0d 6b d0 05 |bright%.2)*F.k..|
000143c0 5d 0d 6b da 05 ed 0d 6b e4 05 cb 0d 6b ee 0a 5b |].k....k....k..[|
000143d0 4f 50 54 20 5a 0d 6b f8 08 2e 66 73 25 0d 6c 02 |OPT Z.k...fs%.l.|
000143e0 14 53 54 4d 46 44 20 53 50 20 21 2c 7b 52 31 34 |.STMFD SP !,{R14|
000143f0 7d 0d 6c 0c 20 4c 44 52 20 52 31 2c 5b 52 39 2c |}.l. LDR R1,[R9,|
00014400 23 35 2a 38 5d 3a 4c 44 52 20 52 31 2c 5b 52 31 |#5*8]:LDR R1,[R1|
00014410 5d 0d 6c 16 15 4c 44 52 20 52 31 30 2c 5b 52 39 |].l..LDR R10,[R9|
00014420 2c 23 34 2a 38 5d 0d 6c 20 15 4c 44 52 20 52 31 |,#4*8].l .LDR R1|
00014430 31 2c 5b 52 39 2c 23 33 2a 38 5d 0d 6c 2a 23 4c |1,[R9,#3*8].l*#L|
00014440 44 52 20 52 31 32 2c 5b 52 39 2c 23 32 2a 38 5d |DR R12,[R9,#2*8]|
00014450 3a 4c 44 52 20 52 31 32 2c 5b 52 31 32 5d 0d 6c |:LDR R12,[R12].l|
00014460 34 1e 4c 44 52 20 52 38 2c 5b 52 39 2c 23 38 5d |4.LDR R8,[R9,#8]|
00014470 3a 4c 44 52 20 52 38 2c 5b 52 38 5d 0d 6c 3e 1b |:LDR R8,[R8].l>.|
00014480 4c 44 52 20 52 39 2c 5b 52 39 5d 3a 4c 44 52 20 |LDR R9,[R9]:LDR |
00014490 52 39 2c 5b 52 39 5d 0d 6c 48 05 5d 0d 6c 52 15 |R9,[R9].lH.].lR.|
000144a0 e7 6d 24 3d 22 44 22 20 84 6d 24 3d 22 52 22 20 |.m$="D" .m$="R" |
000144b0 8c 0d 6c 5c 0a 5b 4f 50 54 20 5a 0d 6c 66 10 4c |..l\.[OPT Z.lf.L|
000144c0 44 52 20 52 34 2c 5b 52 31 30 5d 0d 6c 70 13 4c |DR R4,[R10].lp.L|
000144d0 44 52 20 52 35 2c 5b 52 31 30 2c 23 34 5d 0d 6c |DR R5,[R10,#4].l|
000144e0 7a 13 4c 44 52 20 52 36 2c 5b 52 31 30 2c 23 38 |z.LDR R6,[R10,#8|
000144f0 5d 0d 6c 84 05 5d 0d 6c 8e 05 cc 0d 6c 98 0a 5b |].l..].l....l..[|
00014500 4f 50 54 20 5a 0d 6c a2 13 4c 44 52 20 52 34 2c |OPT Z.l..LDR R4,|
00014510 5b 52 31 30 5d 2c 52 38 0d 6c ac 05 5d 0d 6c b6 |[R10],R8.l..].l.|
00014520 05 cd 0d 6c c0 0e e7 6d 24 3c 3e 22 44 22 20 8c |...l...m$<>"D" .|
00014530 0d 6c ca 0a 5b 4f 50 54 20 5a 0d 6c d4 13 41 44 |.l..[OPT Z.l..AD|
00014540 52 20 52 37 2c 64 69 76 74 61 62 6c 65 0d 6c de |R R7,divtable.l.|
00014550 05 5d 0d 6c e8 05 cd 0d 6c f2 0a 5b 4f 50 54 20 |.].l....l..[OPT |
00014560 5a 0d 6c fc 0b 2e 66 73 6c 6f 6f 70 0d 6d 06 05 |Z.l...fsloop.m..|
00014570 5d 0d 6d 10 0b c8 8e 20 6d 24 20 ca 0d 6d 1a 08 |].m.... m$ ..m..|
00014580 c9 22 52 22 0d 6d 24 0a 5b 4f 50 54 20 5a 0d 6d |."R".m$.[OPT Z.m|
00014590 2e 12 41 44 44 20 52 31 30 2c 52 31 30 2c 52 38 |..ADD R10,R10,R8|
000145a0 0d 6d 38 05 5d 0d 6d 42 10 f2 73 72 63 68 64 65 |.m8.].mB..srchde|
000145b0 76 6c 69 73 74 0d 6d 4c 0a 5b 4f 50 54 20 5a 0d |vlist.mL.[OPT Z.|
000145c0 6d 56 0d 4d 4f 56 20 72 33 2c 72 30 0d 6d 60 05 |mV.MOV r3,r0.m`.|
000145d0 5d 0d 6d 6a 09 c9 20 22 44 22 0d 6d 74 0a 5b 4f |].mj.. "D".mt.[O|
000145e0 50 54 20 5a 0d 6d 7e 12 41 44 44 20 52 31 30 2c |PT Z.m~.ADD R10,|
000145f0 52 31 30 2c 52 38 0d 6d 88 0d 4d 4f 56 20 52 33 |R10,R8.m..MOV R3|
00014600 2c 23 30 0d 6d 92 25 43 4d 50 20 52 34 2c 23 46 |,#0.m.%CMP R4,#F|
00014610 3a 4d 4f 56 43 53 20 52 34 2c 23 30 3a 4d 4f 56 |:MOVCS R4,#0:MOV|
00014620 47 45 20 52 34 2c 23 46 0d 6d 9c 10 43 4d 50 20 |GE R4,#F.m..CMP |
00014630 52 34 2c 23 46 3e 3e 31 0d 6d a6 20 53 55 42 43 |R4,#F>>1.m. SUBC|
00014640 53 20 52 34 2c 52 34 2c 23 46 3a 84 52 43 53 20 |S R4,R4,#F:.RCS |
00014650 52 33 2c 52 33 2c 23 31 0d 6d b0 25 43 4d 50 20 |R3,R3,#1.m.%CMP |
00014660 52 35 2c 23 46 3a 4d 4f 56 43 53 20 52 35 2c 23 |R5,#F:MOVCS R5,#|
00014670 30 3a 4d 4f 56 47 45 20 52 35 2c 23 46 0d 6d ba |0:MOVGE R5,#F.m.|
00014680 10 43 4d 50 20 52 35 2c 23 46 3e 3e 31 0d 6d c4 |.CMP R5,#F>>1.m.|
00014690 20 53 55 42 43 53 20 52 35 2c 52 35 2c 23 46 3a | SUBCS R5,R5,#F:|
000146a0 84 52 43 53 20 52 33 2c 52 33 2c 23 32 0d 6d ce |.RCS R3,R3,#2.m.|
000146b0 25 43 4d 50 20 52 36 2c 23 46 3a 4d 4f 56 43 53 |%CMP R6,#F:MOVCS|
000146c0 20 52 36 2c 23 30 3a 4d 4f 56 47 45 20 52 36 2c | R6,#0:MOVGE R6,|
000146d0 23 46 0d 6d d8 10 43 4d 50 20 52 36 2c 23 46 3e |#F.m..CMP R6,#F>|
000146e0 3e 31 0d 6d e2 20 53 55 42 43 53 20 52 36 2c 52 |>1.m. SUBCS R6,R|
000146f0 36 2c 23 46 3a 84 52 43 53 20 52 33 2c 52 33 2c |6,#F:.RCS R3,R3,|
00014700 23 34 0d 6d ec 05 5d 0d 6d f6 09 c9 20 22 54 22 |#4.m..].m... "T"|
00014710 0d 6e 00 0a 5b 4f 50 54 20 5a 0d 6e 0a 25 43 4d |.n..[OPT Z.n.%CM|
00014720 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 34 |P R4,#F:MOVCS R4|
00014730 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 0d |,#0:MOVGE R4,#F.|
00014740 6e 14 3b 52 53 42 20 52 33 2c 52 34 2c 52 34 2c |n.;RSB R3,R4,R4,|
00014750 4c 53 4c 20 23 34 3a 41 44 44 20 52 33 2c 52 33 |LSL #4:ADD R3,R3|
00014760 2c 23 46 3e 3e 31 3a 4d 4f 56 20 52 33 2c 52 33 |,#F>>1:MOV R3,R3|
00014770 2c 4c 53 52 20 23 62 69 74 73 0d 6e 1e 19 4c 44 |,LSR #bits.n..LD|
00014780 52 20 52 32 2c 5b 52 37 2c 52 33 2c 4c 53 4c 20 |R R2,[R7,R3,LSL |
00014790 23 32 5d 0d 6e 28 10 53 55 42 20 52 34 2c 52 34 |#2].n(.SUB R4,R4|
000147a0 2c 52 32 0d 6e 32 05 5d 0d 6e 3c 05 7f 0d 6e 46 |,R2.n2.].n<...nF|
000147b0 0a 5b 4f 50 54 20 5a 0d 6e 50 25 43 4d 50 20 52 |.[OPT Z.nP%CMP R|
000147c0 34 2c 23 46 3a 4d 4f 56 43 53 20 52 34 2c 23 30 |4,#F:MOVCS R4,#0|
000147d0 3a 4d 4f 56 47 45 20 52 34 2c 23 46 0d 6e 5a 3b |:MOVGE R4,#F.nZ;|
000147e0 52 53 42 20 52 33 2c 52 34 2c 52 34 2c 4c 53 4c |RSB R3,R4,R4,LSL|
000147f0 20 23 33 3a 41 44 44 20 52 33 2c 52 33 2c 23 46 | #3:ADD R3,R3,#F|
00014800 3e 3e 31 3a 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 |>>1:MOV R3,R3,LS|
00014810 52 20 23 62 69 74 73 0d 6e 64 19 4c 44 52 20 52 |R #bits.nd.LDR R|
00014820 32 2c 5b 52 37 2c 52 33 2c 4c 53 4c 20 23 32 5d |2,[R7,R3,LSL #2]|
00014830 0d 6e 6e 10 53 55 42 20 52 34 2c 52 34 2c 52 32 |.nn.SUB R4,R4,R2|
00014840 0d 6e 78 05 5d 0d 6e 82 05 cb 0d 6e 8c 0a 5b 4f |.nx.].n....n..[O|
00014850 50 54 20 5a 0d 6e 96 15 4d 4f 56 20 52 32 2c 52 |PT Z.n..MOV R2,R|
00014860 31 32 2c 4c 53 52 20 23 31 0d 6e a0 0e 54 53 54 |12,LSR #1.n..TST|
00014870 20 52 31 32 2c 23 31 0d 6e aa 10 4c 44 52 42 20 | R12,#1.n..LDRB |
00014880 52 30 2c 5b 52 32 5d 0d 6e b4 20 80 45 51 20 52 |R0,[R2].n. .EQ R|
00014890 30 2c 52 30 2c 23 26 46 30 3a 84 52 45 51 20 52 |0,R0,#&F0:.REQ R|
000148a0 30 2c 52 30 2c 52 33 0d 6e be 27 80 4e 45 20 52 |0,R0,R3.n.'.NE R|
000148b0 30 2c 52 30 2c 23 26 30 46 3a 84 52 4e 45 20 52 |0,R0,#&0F:.RNE R|
000148c0 30 2c 52 30 2c 52 33 2c 4c 53 4c 20 23 34 0d 6e |0,R0,R3,LSL #4.n|
000148d0 c8 10 53 54 52 42 20 52 30 2c 5b 52 32 5d 0d 6e |..STRB R0,[R2].n|
000148e0 d2 12 41 44 44 20 52 31 32 2c 52 31 32 2c 52 31 |..ADD R12,R12,R1|
000148f0 0d 6e dc 05 5d 0d 6e e6 15 e7 6d 24 3d 22 44 22 |.n..].n...m$="D"|
00014900 20 84 6d 24 3d 22 52 22 20 8c 0d 6e f0 0e e7 64 | .m$="R" ..n...d|
00014910 69 74 68 65 72 25 20 8c 0d 6e fa 0a 5b 4f 50 54 |ither% ..n..[OPT|
00014920 20 5a 0d 6f 04 11 41 44 44 20 52 30 2c 52 31 31 | Z.o..ADD R0,R11|
00014930 2c 23 34 0d 6f 0e 17 41 44 44 20 52 32 2c 52 34 |,#4.o..ADD R2,R4|
00014940 2c 52 34 2c 4c 53 4c 20 23 31 0d 6f 18 28 4c 44 |,R4,LSL #1.o.(LD|
00014950 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 5d 3a 41 |R R3,[R11,-R8]:A|
00014960 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 |DD R3,R3,R2,ASR |
00014970 23 34 0d 6f 22 14 53 54 52 20 52 33 2c 5b 52 31 |#4.o".STR R3,[R1|
00014980 31 2c 2d 52 38 5d 0d 6f 2c 17 41 44 44 20 52 32 |1,-R8].o,.ADD R2|
00014990 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 32 0d 6f 36 |,R4,R4,LSL #2.o6|
000149a0 24 4c 44 52 20 52 33 2c 5b 52 31 31 5d 3a 41 44 |$LDR R3,[R11]:AD|
000149b0 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 |D R3,R3,R2,ASR #|
000149c0 34 0d 6f 40 10 53 54 52 20 52 33 2c 5b 52 31 31 |4.o@.STR R3,[R11|
000149d0 5d 0d 6f 4a 14 4d 4f 56 20 52 33 2c 52 34 2c 41 |].oJ.MOV R3,R4,A|
000149e0 53 52 20 23 34 0d 6f 54 14 53 54 52 20 52 33 2c |SR #4.oT.STR R3,|
000149f0 5b 52 31 31 2c 52 38 5d 21 0d 6f 5e 17 52 53 42 |[R11,R8]!.o^.RSB|
00014a00 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 33 | R2,R4,R4,LSL #3|
00014a10 0d 6f 68 10 4c 44 52 20 52 34 2c 5b 52 31 30 5d |.oh.LDR R4,[R10]|
00014a20 0d 6f 72 17 41 44 44 20 52 34 2c 52 34 2c 52 32 |.or.ADD R4,R4,R2|
00014a30 2c 41 53 52 20 23 34 0d 6f 7c 17 41 44 44 20 52 |,ASR #4.o|.ADD R|
00014a40 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 23 31 0d 6f |2,R5,R5,LSL #1.o|
00014a50 86 27 4c 44 52 20 52 33 2c 5b 52 30 2c 2d 52 38 |.'LDR R3,[R0,-R8|
00014a60 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 |]:ADD R3,R3,R2,A|
00014a70 53 52 20 23 34 0d 6f 90 13 53 54 52 20 52 33 2c |SR #4.o..STR R3,|
00014a80 5b 52 30 2c 2d 52 38 5d 0d 6f 9a 14 4d 4f 56 20 |[R0,-R8].o..MOV |
00014a90 52 33 2c 52 35 2c 41 53 52 20 23 34 0d 6f a4 12 |R3,R5,ASR #4.o..|
00014aa0 53 54 52 20 52 33 2c 5b 52 30 2c 52 38 5d 0d 6f |STR R3,[R0,R8].o|
00014ab0 ae 17 41 44 44 20 52 32 2c 52 35 2c 52 35 2c 4c |..ADD R2,R5,R5,L|
00014ac0 53 4c 20 23 32 0d 6f b8 23 4c 44 52 20 52 33 2c |SL #2.o.#LDR R3,|
00014ad0 5b 52 30 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 |[R0]:ADD R3,R3,R|
00014ae0 32 2c 41 53 52 20 23 34 0d 6f c2 12 53 54 52 20 |2,ASR #4.o..STR |
00014af0 52 33 2c 5b 52 30 5d 2c 23 34 0d 6f cc 17 52 53 |R3,[R0],#4.o..RS|
00014b00 42 20 52 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 23 |B R2,R5,R5,LSL #|
00014b10 33 0d 6f d6 13 4c 44 52 20 52 35 2c 5b 52 31 30 |3.o..LDR R5,[R10|
00014b20 2c 23 34 5d 0d 6f e0 17 41 44 44 20 52 35 2c 52 |,#4].o..ADD R5,R|
00014b30 35 2c 52 32 2c 41 53 52 20 23 34 0d 6f ea 17 41 |5,R2,ASR #4.o..A|
00014b40 44 44 20 52 32 2c 52 36 2c 52 36 2c 4c 53 4c 20 |DD R2,R6,R6,LSL |
00014b50 23 31 0d 6f f4 27 4c 44 52 20 52 33 2c 5b 52 30 |#1.o.'LDR R3,[R0|
00014b60 2c 2d 52 38 5d 3a 41 44 44 20 52 33 2c 52 33 2c |,-R8]:ADD R3,R3,|
00014b70 52 32 2c 41 53 52 20 23 34 0d 6f fe 13 53 54 52 |R2,ASR #4.o..STR|
00014b80 20 52 33 2c 5b 52 30 2c 2d 52 38 5d 0d 70 08 17 | R3,[R0,-R8].p..|
00014b90 41 44 44 20 52 32 2c 52 36 2c 52 36 2c 4c 53 4c |ADD R2,R6,R6,LSL|
00014ba0 20 23 32 0d 70 12 23 4c 44 52 20 52 33 2c 5b 52 | #2.p.#LDR R3,[R|
00014bb0 30 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c |0]:ADD R3,R3,R2,|
00014bc0 41 53 52 20 23 34 0d 70 1c 0f 53 54 52 20 52 33 |ASR #4.p..STR R3|
00014bd0 2c 5b 52 30 5d 0d 70 26 14 4d 4f 56 20 52 33 2c |,[R0].p&.MOV R3,|
00014be0 52 36 2c 41 53 52 20 23 34 0d 70 30 12 53 54 52 |R6,ASR #4.p0.STR|
00014bf0 20 52 33 2c 5b 52 30 2c 52 38 5d 0d 70 3a 17 52 | R3,[R0,R8].p:.R|
00014c00 53 42 20 52 32 2c 52 36 2c 52 36 2c 4c 53 4c 20 |SB R2,R6,R6,LSL |
00014c10 23 33 0d 70 44 13 4c 44 52 20 52 36 2c 5b 52 31 |#3.pD.LDR R6,[R1|
00014c20 30 2c 23 38 5d 0d 70 4e 17 41 44 44 20 52 36 2c |0,#8].pN.ADD R6,|
00014c30 52 36 2c 52 32 2c 41 53 52 20 23 34 0d 70 58 05 |R6,R2,ASR #4.pX.|
00014c40 5d 0d 70 62 05 cc 0d 70 6c 0a 5b 4f 50 54 20 5a |].pb...pl.[OPT Z|
00014c50 0d 70 76 18 4c 44 4d 49 41 20 52 31 30 2c 7b 52 |.pv.LDMIA R10,{R|
00014c60 34 2c 52 35 2c 52 36 7d 0d 70 80 05 5d 0d 70 8a |4,R5,R6}.p..].p.|
00014c70 05 cd 0d 70 94 05 cc 0d 70 9e 0e e7 64 69 74 68 |...p....p...dith|
00014c80 65 72 25 20 8c 0d 70 a8 0a 5b 4f 50 54 20 5a 0d |er% ..p..[OPT Z.|
00014c90 70 b2 17 41 44 44 20 52 32 2c 52 34 2c 52 34 2c |p..ADD R2,R4,R4,|
00014ca0 4c 53 4c 20 23 31 0d 70 bc 28 4c 44 52 20 52 33 |LSL #1.p.(LDR R3|
00014cb0 2c 5b 52 31 31 2c 2d 52 38 5d 3a 41 44 44 20 52 |,[R11,-R8]:ADD R|
00014cc0 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 70 |3,R3,R2,ASR #4.p|
00014cd0 c6 14 53 54 52 20 52 33 2c 5b 52 31 31 2c 2d 52 |..STR R3,[R11,-R|
00014ce0 38 5d 0d 70 d0 17 41 44 44 20 52 32 2c 52 34 2c |8].p..ADD R2,R4,|
00014cf0 52 34 2c 4c 53 4c 20 23 32 0d 70 da 24 4c 44 52 |R4,LSL #2.p.$LDR|
00014d00 20 52 33 2c 5b 52 31 31 5d 3a 41 44 44 20 52 33 | R3,[R11]:ADD R3|
00014d10 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 70 e4 |,R3,R2,ASR #4.p.|
00014d20 10 53 54 52 20 52 33 2c 5b 52 31 31 5d 0d 70 ee |.STR R3,[R11].p.|
00014d30 14 4d 4f 56 20 52 33 2c 52 34 2c 41 53 52 20 23 |.MOV R3,R4,ASR #|
00014d40 34 0d 70 f8 14 53 54 52 20 52 33 2c 5b 52 31 31 |4.p..STR R3,[R11|
00014d50 2c 52 38 5d 21 0d 71 02 17 52 53 42 20 52 32 2c |,R8]!.q..RSB R2,|
00014d60 52 34 2c 52 34 2c 4c 53 4c 20 23 33 0d 71 0c 13 |R4,R4,LSL #3.q..|
00014d70 4c 44 52 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d |LDR R4,[R10],R8.|
00014d80 71 16 17 41 44 44 20 52 34 2c 52 34 2c 52 32 2c |q..ADD R4,R4,R2,|
00014d90 41 53 52 20 23 34 0d 71 20 05 5d 0d 71 2a 05 cc |ASR #4.q .].q*..|
00014da0 0d 71 34 0a 5b 4f 50 54 20 5a 0d 71 3e 13 4c 44 |.q4.[OPT Z.q>.LD|
00014db0 52 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 71 48 |R R4,[R10],R8.qH|
00014dc0 05 5d 0d 71 52 05 cd 0d 71 5c 05 cd 0d 71 66 0a |.].qR...q\...qf.|
00014dd0 5b 4f 50 54 20 5a 0d 71 70 1c 53 55 42 53 20 52 |[OPT Z.qp.SUBS R|
00014de0 39 2c 52 39 2c 23 31 3a 42 4e 45 20 66 73 6c 6f |9,R9,#1:BNE fslo|
00014df0 6f 70 0d 71 7a 14 4c 44 4d 46 44 20 53 50 20 21 |op.qz.LDMFD SP !|
00014e00 2c 7b 50 43 7d 5e 0d 71 84 05 5d 0d 71 8e 07 c9 |,{PC}^.q..].q...|
00014e10 20 33 0d 71 98 17 64 69 76 74 61 62 6c 65 3d 50 | 3.q..divtable=P|
00014e20 25 3a c8 8e 20 6d 24 20 ca 0d 71 a2 09 c9 20 22 |%:.. m$ ..q... "|
00014e30 43 22 0d 71 ac 09 c9 20 22 52 22 0d 71 b6 0f e3 |C".q... "R".q...|
00014e40 49 25 3d 30 b8 33 2a 34 88 34 0d 71 c0 0a 5b 4f |I%=0.3*4.4.q..[O|
00014e50 50 54 20 5a 0d 71 ca 26 45 51 55 44 20 28 70 61 |PT Z.q.&EQUD (pa|
00014e60 6c 65 74 74 65 25 21 49 25 3e 3e 34 80 26 46 29 |lette%!I%>>4.&F)|
00014e70 2f 62 72 69 67 68 74 25 2a 46 0d 71 d4 27 45 51 |/bright%*F.q.'EQ|
00014e80 55 44 20 28 70 61 6c 65 74 74 65 25 21 49 25 3e |UD (palette%!I%>|
00014e90 3e 31 32 80 26 46 29 2f 62 72 69 67 68 74 25 2a |>12.&F)/bright%*|
00014ea0 46 0d 71 de 27 45 51 55 44 20 28 70 61 6c 65 74 |F.q.'EQUD (palet|
00014eb0 74 65 25 21 49 25 3e 3e 32 30 80 26 46 29 2f 62 |te%!I%>>20.&F)/b|
00014ec0 72 69 67 68 74 25 2a 46 0d 71 e8 05 5d 0d 71 f2 |right%*F.q..].q.|
00014ed0 05 ed 0d 71 fc 05 7f 0d 72 06 0a 5b 4f 50 54 20 |...q....r..[OPT |
00014ee0 5a 0d 72 10 0a 45 51 55 44 20 30 0d 72 1a 18 45 |Z.r..EQUD 0.r..E|
00014ef0 51 55 44 20 31 2f 28 62 72 69 67 68 74 25 81 34 |QUD 1/(bright%.4|
00014f00 29 2a 46 0d 72 24 18 45 51 55 44 20 32 2f 28 62 |)*F.r$.EQUD 2/(b|
00014f10 72 69 67 68 74 25 81 34 29 2a 46 0d 72 2e 0a 45 |right%.4)*F.r..E|
00014f20 51 55 44 20 46 0d 72 38 05 5d 0d 72 42 05 cb 0d |QUD F.r8.].rB...|
00014f30 72 4c 0a 5b 4f 50 54 20 5a 0d 72 56 08 2e 66 73 |rL.[OPT Z.rV..fs|
00014f40 25 0d 72 60 14 53 54 4d 46 44 20 53 50 20 21 2c |%.r`.STMFD SP !,|
00014f50 7b 52 31 34 7d 0d 72 6a 20 4c 44 52 20 52 31 2c |{R14}.rj LDR R1,|
00014f60 5b 52 39 2c 23 35 2a 38 5d 3a 4c 44 52 20 52 31 |[R9,#5*8]:LDR R1|
00014f70 2c 5b 52 31 5d 0d 72 74 15 4c 44 52 20 52 31 30 |,[R1].rt.LDR R10|
00014f80 2c 5b 52 39 2c 23 34 2a 38 5d 0d 72 7e 15 4c 44 |,[R9,#4*8].r~.LD|
00014f90 52 20 52 31 31 2c 5b 52 39 2c 23 33 2a 38 5d 0d |R R11,[R9,#3*8].|
00014fa0 72 88 15 4c 44 52 20 52 31 32 2c 5b 52 39 2c 23 |r..LDR R12,[R9,#|
00014fb0 32 2a 38 5d 0d 72 92 11 4c 44 52 20 52 31 32 2c |2*8].r..LDR R12,|
00014fc0 5b 52 31 32 5d 0d 72 9c 12 4c 44 52 20 52 38 2c |[R12].r..LDR R8,|
00014fd0 5b 52 39 2c 23 38 5d 0d 72 a6 0f 4c 44 52 20 52 |[R9,#8].r..LDR R|
00014fe0 38 2c 5b 52 38 5d 0d 72 b0 0f 4c 44 52 20 52 39 |8,[R8].r..LDR R9|
00014ff0 2c 5b 52 39 5d 0d 72 ba 0f 4c 44 52 20 52 39 2c |,[R9].r..LDR R9,|
00015000 5b 52 39 5d 0d 72 c4 05 5d 0d 72 ce 15 e7 6d 24 |[R9].r..].r...m$|
00015010 3d 22 43 22 20 84 6d 24 3d 22 52 22 20 8c 0d 72 |="C" .m$="R" ..r|
00015020 d8 0a 5b 4f 50 54 20 5a 0d 72 e2 10 4c 44 52 20 |..[OPT Z.r..LDR |
00015030 52 34 2c 5b 52 31 30 5d 0d 72 ec 13 4c 44 52 20 |R4,[R10].r..LDR |
00015040 52 35 2c 5b 52 31 30 2c 23 34 5d 0d 72 f6 13 4c |R5,[R10,#4].r..L|
00015050 44 52 20 52 36 2c 5b 52 31 30 2c 23 38 5d 0d 73 |DR R6,[R10,#8].s|
00015060 00 05 5d 0d 73 0a 05 cc 0d 73 14 0a 5b 4f 50 54 |..].s....s..[OPT|
00015070 20 5a 0d 73 1e 13 4c 44 52 20 52 34 2c 5b 52 31 | Z.s..LDR R4,[R1|
00015080 30 5d 2c 52 38 0d 73 28 05 5d 0d 73 32 05 cd 0d |0],R8.s(.].s2...|
00015090 73 3c 0a 5b 4f 50 54 20 5a 0d 73 46 0b 2e 66 73 |s<.[OPT Z.sF..fs|
000150a0 6c 6f 6f 70 0d 73 50 05 5d 0d 73 5a 0d e7 6d 24 |loop.sP.].sZ..m$|
000150b0 3c 3e 22 43 22 8c 0d 73 64 0a 5b 4f 50 54 20 5a |<>"C"..sd.[OPT Z|
000150c0 0d 73 6e 13 41 44 52 20 52 37 2c 64 69 76 74 61 |.sn.ADR R7,divta|
000150d0 62 6c 65 0d 73 78 05 5d 0d 73 82 05 cd 0d 73 8c |ble.sx.].s....s.|
000150e0 0b c8 8e 20 6d 24 20 ca 0d 73 96 08 c9 22 43 22 |... m$ ..s..."C"|
000150f0 0d 73 a0 0a 5b 4f 50 54 20 5a 0d 73 aa 12 41 44 |.s..[OPT Z.s..AD|
00015100 44 20 52 31 30 2c 52 31 30 2c 52 38 0d 73 b4 25 |D R10,R10,R8.s.%|
00015110 43 4d 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 |CMP R4,#F:MOVCS |
00015120 52 34 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 |R4,#0:MOVGE R4,#|
00015130 46 0d 73 be 25 43 4d 50 20 52 35 2c 23 46 3a 4d |F.s.%CMP R5,#F:M|
00015140 4f 56 43 53 20 52 35 2c 23 30 3a 4d 4f 56 47 45 |OVCS R5,#0:MOVGE|
00015150 20 52 35 2c 23 46 0d 73 c8 25 43 4d 50 20 52 36 | R5,#F.s.%CMP R6|
00015160 2c 23 46 3a 4d 4f 56 43 53 20 52 36 2c 23 30 3a |,#F:MOVCS R6,#0:|
00015170 4d 4f 56 47 45 20 52 36 2c 23 46 0d 73 d2 0d 4d |MOVGE R6,#F.s..M|
00015180 4f 56 20 52 33 2c 23 30 0d 73 dc 1e 43 4d 50 20 |OV R3,#0.s..CMP |
00015190 52 34 2c 23 46 3e 3e 31 3a 84 52 43 53 20 52 33 |R4,#F>>1:.RCS R3|
000151a0 2c 52 33 2c 23 31 0d 73 e6 1e 43 4d 50 20 52 35 |,R3,#1.s..CMP R5|
000151b0 2c 23 46 3e 3e 31 3a 84 52 43 53 20 52 33 2c 52 |,#F>>1:.RCS R3,R|
000151c0 33 2c 23 32 0d 73 f0 1e 43 4d 50 20 52 36 2c 23 |3,#2.s..CMP R6,#|
000151d0 46 3e 3e 31 3a 84 52 43 53 20 52 33 2c 52 33 2c |F>>1:.RCS R3,R3,|
000151e0 23 34 0d 73 fa 22 43 4d 50 20 52 33 2c 23 36 3a |#4.s."CMP R3,#6:|
000151f0 ec 51 20 52 33 2c 23 31 3a 42 45 51 20 6f 63 74 |.Q R3,#1:BEQ oct|
00015200 63 79 61 6e 0d 74 04 10 42 43 53 20 6f 63 74 77 |cyan.t..BCS octw|
00015210 68 69 74 65 0d 74 0e 19 43 4d 50 20 52 33 2c 23 |hite.t..CMP R3,#|
00015220 34 3a 42 45 51 20 6f 63 74 62 6c 75 65 0d 74 18 |4:BEQ octblue.t.|
00015230 1e 4d 4f 56 43 53 20 52 33 2c 23 32 3a 42 43 53 |.MOVCS R3,#2:BCS|
00015240 20 6f 63 74 6d 61 67 65 6e 74 61 0d 74 22 1a 43 | octmagenta.t".C|
00015250 4d 50 20 52 33 2c 23 32 3a 42 45 51 20 6f 63 74 |MP R3,#2:BEQ oct|
00015260 67 72 65 65 6e 0d 74 2c 11 42 43 53 20 6f 63 74 |green.t,.BCS oct|
00015270 79 65 6c 6c 6f 77 0d 74 36 1a 43 4d 50 20 52 33 |yellow.t6.CMP R3|
00015280 2c 23 30 3a 42 45 51 20 6f 63 74 62 6c 61 63 6b |,#0:BEQ octblack|
00015290 0d 74 40 0b 2e 6f 63 74 72 65 64 0d 74 4a 10 52 |.t@..octred.tJ.R|
000152a0 53 42 20 52 30 2c 52 34 2c 23 46 0d 74 54 0d 43 |SB R0,R4,#F.tT.C|
000152b0 4d 50 20 52 35 2c 52 30 0d 74 5e 0f 42 4c 54 20 |MP R5,R0.t^.BLT |
000152c0 6f 63 74 72 65 64 31 0d 74 68 0d 43 4d 50 20 52 |octred1.th.CMP R|
000152d0 35 2c 52 36 0d 74 72 0f 4d 4f 56 47 45 20 52 33 |5,R6.tr.MOVGE R3|
000152e0 2c 23 33 0d 74 7c 0f 4d 4f 56 4c 54 20 52 33 2c |,#3.t|.MOVLT R3,|
000152f0 23 32 0d 74 86 10 42 20 6f 63 74 63 6f 6e 76 65 |#2.t..B octconve|
00015300 72 74 0d 74 90 0c 2e 6f 63 74 72 65 64 31 0d 74 |rt.t...octred1.t|
00015310 9a 0d 43 4d 50 20 52 30 2c 52 36 0d 74 a4 0f 4d |..CMP R0,R6.t..M|
00015320 4f 56 47 45 20 52 33 2c 23 30 0d 74 ae 0f 4d 4f |OVGE R3,#0.t..MO|
00015330 56 4c 54 20 52 33 2c 23 32 0d 74 b8 10 42 20 6f |VLT R3,#2.t..B o|
00015340 63 74 63 6f 6e 76 65 72 74 0d 74 c2 0d 2e 6f 63 |ctconvert.t...oc|
00015350 74 67 72 65 65 6e 0d 74 cc 10 52 53 42 20 52 30 |tgreen.t..RSB R0|
00015360 2c 52 35 2c 23 46 0d 74 d6 0d 43 4d 50 20 52 30 |,R5,#F.t..CMP R0|
00015370 2c 52 34 0d 74 e0 11 42 4c 54 20 6f 63 74 67 72 |,R4.t..BLT octgr|
00015380 65 65 6e 31 0d 74 ea 0d 43 4d 50 20 52 30 2c 52 |een1.t..CMP R0,R|
00015390 36 0d 74 f4 0f 4d 4f 56 47 45 20 52 33 2c 23 30 |6.t..MOVGE R3,#0|
000153a0 0d 74 fe 0f 4d 4f 56 4c 54 20 52 33 2c 23 31 0d |.t..MOVLT R3,#1.|
000153b0 75 08 10 42 20 6f 63 74 63 6f 6e 76 65 72 74 0d |u..B octconvert.|
000153c0 75 12 0e 2e 6f 63 74 67 72 65 65 6e 31 0d 75 1c |u...octgreen1.u.|
000153d0 0d 43 4d 50 20 52 34 2c 52 36 0d 75 26 0f 4d 4f |.CMP R4,R6.u&.MO|
000153e0 56 47 45 20 52 33 2c 23 33 0d 75 30 0f 4d 4f 56 |VGE R3,#3.u0.MOV|
000153f0 4c 54 20 52 33 2c 23 31 0d 75 3a 10 42 20 6f 63 |LT R3,#1.u:.B oc|
00015400 74 63 6f 6e 76 65 72 74 0d 75 44 0c 2e 6f 63 74 |tconvert.uD..oct|
00015410 62 6c 75 65 0d 75 4e 10 52 53 42 20 52 30 2c 52 |blue.uN.RSB R0,R|
00015420 36 2c 23 46 0d 75 58 0d 43 4d 50 20 52 30 2c 52 |6,#F.uX.CMP R0,R|
00015430 34 0d 75 62 10 42 4c 54 20 6f 63 74 62 6c 75 65 |4.ub.BLT octblue|
00015440 31 0d 75 6c 0d 43 4d 50 20 52 30 2c 52 35 0d 75 |1.ul.CMP R0,R5.u|
00015450 76 0f 4d 4f 56 47 45 20 52 33 2c 23 30 0d 75 80 |v.MOVGE R3,#0.u.|
00015460 0f 4d 4f 56 4c 54 20 52 33 2c 23 31 0d 75 8a 10 |.MOVLT R3,#1.u..|
00015470 42 20 6f 63 74 63 6f 6e 76 65 72 74 0d 75 94 0d |B octconvert.u..|
00015480 2e 6f 63 74 62 6c 75 65 31 0d 75 9e 0d 43 4d 50 |.octblue1.u..CMP|
00015490 20 52 34 2c 52 35 0d 75 a8 0f 4d 4f 56 47 45 20 | R4,R5.u..MOVGE |
000154a0 52 33 2c 23 32 0d 75 b2 0f 4d 4f 56 4c 54 20 52 |R3,#2.u..MOVLT R|
000154b0 33 2c 23 31 0d 75 bc 10 42 20 6f 63 74 63 6f 6e |3,#1.u..B octcon|
000154c0 76 65 72 74 0d 75 c6 0d 2e 6f 63 74 77 68 69 74 |vert.u...octwhit|
000154d0 65 0d 75 d0 0d 43 4d 50 20 52 34 2c 52 35 0d 75 |e.u..CMP R4,R5.u|
000154e0 da 11 42 4c 54 20 6f 63 74 77 68 69 74 65 31 0d |..BLT octwhite1.|
000154f0 75 e4 0d 43 4d 50 20 52 35 2c 52 36 0d 75 ee 0f |u..CMP R5,R6.u..|
00015500 4d 4f 56 47 45 20 52 33 2c 23 33 0d 75 f8 0f 4d |MOVGE R3,#3.u..M|
00015510 4f 56 4c 54 20 52 33 2c 23 32 0d 76 02 10 42 20 |OVLT R3,#2.v..B |
00015520 6f 63 74 63 6f 6e 76 65 72 74 0d 76 0c 0e 2e 6f |octconvert.v...o|
00015530 63 74 77 68 69 74 65 31 0d 76 16 0d 43 4d 50 20 |ctwhite1.v..CMP |
00015540 52 34 2c 52 36 0d 76 20 0f 4d 4f 56 47 45 20 52 |R4,R6.v .MOVGE R|
00015550 33 2c 23 33 0d 76 2a 0f 4d 4f 56 4c 54 20 52 33 |3,#3.v*.MOVLT R3|
00015560 2c 23 31 0d 76 34 0f 2e 6f 63 74 63 6f 6e 76 65 |,#1.v4..octconve|
00015570 72 74 0d 76 3e 0d 43 4d 50 20 52 33 2c 23 31 0d |rt.v>.CMP R3,#1.|
00015580 76 48 0c 2e 6f 63 74 63 79 61 6e 0d 76 52 12 53 |vH..octcyan.vR.S|
00015590 55 42 45 51 20 52 35 2c 52 35 2c 23 46 0d 76 5c |UBEQ R5,R5,#F.v\|
000155a0 12 53 55 42 45 51 20 52 36 2c 52 36 2c 23 46 0d |.SUBEQ R6,R6,#F.|
000155b0 76 66 0f 2e 6f 63 74 6d 61 67 65 6e 74 61 0d 76 |vf..octmagenta.v|
000155c0 70 0d 43 4d 50 20 52 33 2c 23 32 0d 76 7a 12 53 |p.CMP R3,#2.vz.S|
000155d0 55 42 45 51 20 52 34 2c 52 34 2c 23 46 0d 76 84 |UBEQ R4,R4,#F.v.|
000155e0 12 53 55 42 45 51 20 52 36 2c 52 36 2c 23 46 0d |.SUBEQ R6,R6,#F.|
000155f0 76 8e 0e 2e 6f 63 74 79 65 6c 6c 6f 77 0d 76 98 |v...octyellow.v.|
00015600 0d 43 4d 50 20 52 33 2c 23 33 0d 76 a2 12 53 55 |.CMP R3,#3.v..SU|
00015610 42 45 51 20 52 34 2c 52 34 2c 23 46 0d 76 ac 12 |BEQ R4,R4,#F.v..|
00015620 53 55 42 45 51 20 52 35 2c 52 35 2c 23 46 0d 76 |SUBEQ R5,R5,#F.v|
00015630 b6 0d 2e 6f 63 74 62 6c 61 63 6b 0d 76 c0 15 4d |...octblack.v..M|
00015640 4f 56 20 52 32 2c 52 31 32 2c 4c 53 52 20 23 32 |OV R2,R12,LSR #2|
00015650 0d 76 ca 20 80 20 52 37 2c 52 31 32 2c 23 33 3a |.v. . R7,R12,#3:|
00015660 4d 4f 56 20 52 37 2c 52 37 2c 4c 53 4c 20 23 31 |MOV R7,R7,LSL #1|
00015670 0d 76 d4 0e 4d 4f 56 20 52 31 34 2c 23 33 0d 76 |.v..MOV R14,#3.v|
00015680 de 45 4c 44 52 42 20 52 30 2c 5b 52 32 5d 3a 42 |.ELDRB R0,[R2]:B|
00015690 49 43 20 52 30 2c 52 30 2c 52 31 34 2c 4c 53 4c |IC R0,R0,R14,LSL|
000156a0 20 52 37 3a 84 52 20 52 30 2c 52 30 2c 52 33 2c | R7:.R R0,R0,R3,|
000156b0 4c 53 4c 20 52 37 3a 53 54 52 42 20 52 30 2c 5b |LSL R7:STRB R0,[|
000156c0 52 32 5d 0d 76 e8 12 41 44 44 20 52 31 32 2c 52 |R2].v..ADD R12,R|
000156d0 31 32 2c 52 31 0d 76 f2 05 5d 0d 76 fc 08 c9 22 |12,R1.v..].v..."|
000156e0 52 22 0d 77 06 0a 5b 4f 50 54 20 5a 0d 77 10 12 |R".w..[OPT Z.w..|
000156f0 41 44 44 20 52 31 30 2c 52 31 30 2c 52 38 0d 77 |ADD R10,R10,R8.w|
00015700 1a 25 43 4d 50 20 52 34 2c 23 46 3a 4d 4f 56 43 |.%CMP R4,#F:MOVC|
00015710 53 20 52 34 2c 23 30 3a 4d 4f 56 47 45 20 52 34 |S R4,#0:MOVGE R4|
00015720 2c 23 46 0d 77 24 25 43 4d 50 20 52 35 2c 23 46 |,#F.w$%CMP R5,#F|
00015730 3a 4d 4f 56 43 53 20 52 35 2c 23 30 3a 4d 4f 56 |:MOVCS R5,#0:MOV|
00015740 47 45 20 52 35 2c 23 46 0d 77 2e 25 43 4d 50 20 |GE R5,#F.w.%CMP |
00015750 52 36 2c 23 46 3a 4d 4f 56 43 53 20 52 36 2c 23 |R6,#F:MOVCS R6,#|
00015760 30 3a 4d 4f 56 47 45 20 52 36 2c 23 46 0d 77 38 |0:MOVGE R6,#F.w8|
00015770 1a 53 54 4d 46 44 20 53 50 20 21 2c 7b 52 38 2c |.STMFD SP !,{R8,|
00015780 52 39 2c 52 31 30 7d 0d 77 42 0d 4d 56 4e 20 52 |R9,R10}.wB.MVN R|
00015790 32 2c 23 30 0d 77 4c 0d 4d 4f 56 20 52 33 2c 23 |2,#0.wL.MOV R3,#|
000157a0 33 0d 77 56 1e 2e 73 72 63 68 20 41 44 44 20 52 |3.wV..srch ADD R|
000157b0 31 34 2c 52 33 2c 52 33 2c 4c 53 4c 20 23 31 0d |14,R3,R3,LSL #1.|
000157c0 77 60 19 41 44 44 20 52 31 34 2c 52 37 2c 52 31 |w`.ADD R14,R7,R1|
000157d0 34 2c 4c 53 4c 20 23 32 0d 77 6a 19 4c 44 4d 49 |4,LSL #2.wj.LDMI|
000157e0 41 20 52 31 34 2c 7b 52 38 2c 52 39 2c 52 31 30 |A R14,{R8,R9,R10|
000157f0 7d 0d 77 74 11 53 55 42 53 20 52 38 2c 52 34 2c |}.wt.SUBS R8,R4,|
00015800 52 38 0d 77 7e 12 52 53 42 4d 49 20 52 38 2c 52 |R8.w~.RSBMI R8,R|
00015810 38 2c 23 30 0d 77 88 11 53 55 42 53 20 52 39 2c |8,#0.w..SUBS R9,|
00015820 52 35 2c 52 39 0d 77 92 12 52 53 42 4d 49 20 52 |R5,R9.w..RSBMI R|
00015830 39 2c 52 39 2c 23 30 0d 77 9c 13 53 55 42 53 20 |9,R9,#0.w..SUBS |
00015840 52 31 30 2c 52 36 2c 52 31 30 0d 77 a6 14 52 53 |R10,R6,R10.w..RS|
00015850 42 4d 49 20 52 31 30 2c 52 31 30 2c 23 30 0d 77 |BMI R10,R10,#0.w|
00015860 b0 1a 4d 4f 56 20 52 31 34 2c 52 38 2c 4c 53 52 |..MOV R14,R8,LSR|
00015870 20 23 62 69 74 73 2f 32 0d 77 ba 12 4d 55 4c 20 | #bits/2.w..MUL |
00015880 52 38 2c 52 31 34 2c 52 31 34 0d 77 c4 1a 4d 4f |R8,R14,R14.w..MO|
00015890 56 20 52 31 34 2c 52 39 2c 4c 53 52 20 23 62 69 |V R14,R9,LSR #bi|
000158a0 74 73 2f 32 0d 77 ce 12 4d 55 4c 20 52 39 2c 52 |ts/2.w..MUL R9,R|
000158b0 31 34 2c 52 31 34 0d 77 d8 1b 4d 4f 56 20 52 31 |14,R14.w..MOV R1|
000158c0 34 2c 52 31 30 2c 4c 53 52 20 23 62 69 74 73 2f |4,R10,LSR #bits/|
000158d0 32 0d 77 e2 13 4d 55 4c 20 52 31 30 2c 52 31 34 |2.w..MUL R10,R14|
000158e0 2c 52 31 34 0d 77 ec 17 41 44 44 20 52 39 2c 52 |,R14.w..ADD R9,R|
000158f0 39 2c 52 39 2c 4c 53 4c 20 23 32 0d 77 f6 17 41 |9,R9,LSL #2.w..A|
00015900 44 44 20 52 38 2c 52 38 2c 52 38 2c 4c 53 4c 20 |DD R8,R8,R8,LSL |
00015910 23 31 0d 78 00 18 41 44 44 20 52 31 34 2c 52 38 |#1.x..ADD R14,R8|
00015920 2c 52 39 2c 4c 53 4c 20 23 31 0d 78 0a 13 41 44 |,R9,LSL #1.x..AD|
00015930 44 20 52 31 34 2c 52 31 34 2c 52 31 30 0d 78 14 |D R14,R14,R10.x.|
00015940 0e 43 4d 50 20 52 31 34 2c 52 32 0d 78 1e 10 4d |.CMP R14,R2.x..M|
00015950 4f 56 43 43 20 52 32 2c 52 31 34 0d 78 28 0f 4d |OVCC R2,R14.x(.M|
00015960 4f 56 43 43 20 52 30 2c 52 33 0d 78 32 11 53 55 |OVCC R0,R3.x2.SU|
00015970 42 53 20 52 33 2c 52 33 2c 23 31 0d 78 3c 0c 42 |BS R3,R3,#1.x<.B|
00015980 50 4c 20 73 72 63 68 0d 78 46 1a 4c 44 4d 46 44 |PL srch.xF.LDMFD|
00015990 20 53 50 20 21 2c 7b 52 38 2c 52 39 2c 52 31 30 | SP !,{R8,R9,R10|
000159a0 7d 0d 78 50 2b 41 44 44 20 52 33 2c 52 30 2c 52 |}.xP+ADD R3,R0,R|
000159b0 30 2c 4c 53 4c 20 23 31 3a 41 44 44 20 52 33 2c |0,LSL #1:ADD R3,|
000159c0 52 37 2c 52 33 2c 4c 53 4c 20 23 32 0d 78 5a 1f |R7,R3,LSL #2.xZ.|
000159d0 4c 44 52 20 52 32 2c 5b 52 33 5d 2c 23 34 3a 53 |LDR R2,[R3],#4:S|
000159e0 55 42 20 52 34 2c 52 34 2c 52 32 0d 78 64 2e 4c |UB R4,R4,R2.xd.L|
000159f0 44 4d 49 41 20 52 33 2c 7b 52 32 2c 52 33 7d 3a |DMIA R3,{R2,R3}:|
00015a00 53 55 42 20 52 35 2c 52 35 2c 52 32 3a 53 55 42 |SUB R5,R5,R2:SUB|
00015a10 20 52 36 2c 52 36 2c 52 33 0d 78 6e 0d 4d 4f 56 | R6,R6,R3.xn.MOV|
00015a20 20 52 33 2c 52 30 0d 78 78 15 4d 4f 56 20 52 32 | R3,R0.xx.MOV R2|
00015a30 2c 52 31 32 2c 4c 53 52 20 23 32 0d 78 82 20 80 |,R12,LSR #2.x. .|
00015a40 20 52 37 2c 52 31 32 2c 23 33 3a 4d 4f 56 20 52 | R7,R12,#3:MOV R|
00015a50 37 2c 52 37 2c 4c 53 4c 20 23 31 0d 78 8c 0e 4d |7,R7,LSL #1.x..M|
00015a60 4f 56 20 52 31 34 2c 23 33 0d 78 96 45 4c 44 52 |OV R14,#3.x.ELDR|
00015a70 42 20 52 30 2c 5b 52 32 5d 3a 42 49 43 20 52 30 |B R0,[R2]:BIC R0|
00015a80 2c 52 30 2c 52 31 34 2c 4c 53 4c 20 52 37 3a 84 |,R0,R14,LSL R7:.|
00015a90 52 20 52 30 2c 52 30 2c 52 33 2c 4c 53 4c 20 52 |R R0,R0,R3,LSL R|
00015aa0 37 3a 53 54 52 42 20 52 30 2c 5b 52 32 5d 0d 78 |7:STRB R0,[R2].x|
00015ab0 a0 12 41 44 44 20 52 31 32 2c 52 31 32 2c 52 31 |..ADD R12,R12,R1|
00015ac0 0d 78 aa 05 5d 0d 78 b4 05 7f 0d 78 be 0a 5b 4f |.x..].x....x..[O|
00015ad0 50 54 20 5a 0d 78 c8 25 43 4d 50 20 52 34 2c 23 |PT Z.x.%CMP R4,#|
00015ae0 46 3a 4d 4f 56 43 53 20 52 34 2c 23 30 3a 4d 4f |F:MOVCS R4,#0:MO|
00015af0 56 47 45 20 52 34 2c 23 46 0d 78 d2 3a 52 53 42 |VGE R4,#F.x.:RSB|
00015b00 20 52 33 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 32 | R3,R4,R4,LSL #2|
00015b10 3a 41 44 44 20 52 33 2c 52 33 2c 23 46 3e 3e 31 |:ADD R3,R3,#F>>1|
00015b20 3a 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 23 62 |:MOV R3,R3,LSR#b|
00015b30 69 74 73 0d 78 dc 19 4c 44 52 20 52 32 2c 5b 52 |its.x..LDR R2,[R|
00015b40 37 2c 52 33 2c 4c 53 4c 20 23 32 5d 0d 78 e6 10 |7,R3,LSL #2].x..|
00015b50 53 55 42 20 52 34 2c 52 34 2c 52 32 0d 78 f0 15 |SUB R4,R4,R2.x..|
00015b60 4d 4f 56 20 52 32 2c 52 31 32 2c 4c 53 52 20 23 |MOV R2,R12,LSR #|
00015b70 32 0d 78 fa 20 80 20 52 35 2c 52 31 32 2c 23 33 |2.x. . R5,R12,#3|
00015b80 3a 4d 4f 56 20 52 35 2c 52 35 2c 4c 53 4c 20 23 |:MOV R5,R5,LSL #|
00015b90 31 0d 79 04 0d 4d 4f 56 20 52 36 2c 23 33 0d 79 |1.y..MOV R6,#3.y|
00015ba0 0e 44 4c 44 52 42 20 52 30 2c 5b 52 32 5d 3a 42 |.DLDRB R0,[R2]:B|
00015bb0 49 43 20 52 30 2c 52 30 2c 52 36 2c 4c 53 4c 20 |IC R0,R0,R6,LSL |
00015bc0 52 35 3a 84 52 20 52 30 2c 52 30 2c 52 33 2c 4c |R5:.R R0,R0,R3,L|
00015bd0 53 4c 20 52 35 3a 53 54 52 42 20 52 30 2c 5b 52 |SL R5:STRB R0,[R|
00015be0 32 5d 0d 79 18 12 41 44 44 20 52 31 32 2c 52 31 |2].y..ADD R12,R1|
00015bf0 32 2c 52 31 0d 79 22 05 5d 0d 79 2c 05 cb 0d 79 |2,R1.y".].y,...y|
00015c00 36 15 e7 6d 24 3d 22 43 22 20 84 6d 24 3d 22 52 |6..m$="C" .m$="R|
00015c10 22 20 8c 0d 79 40 0e e7 64 69 74 68 65 72 25 20 |" ..y@..dither% |
00015c20 8c 0d 79 4a 0a 5b 4f 50 54 20 5a 0d 79 54 11 41 |..yJ.[OPT Z.yT.A|
00015c30 44 44 20 52 30 2c 52 31 31 2c 23 34 0d 79 5e 17 |DD R0,R11,#4.y^.|
00015c40 41 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c |ADD R2,R4,R4,LSL|
00015c50 20 23 31 0d 79 68 28 4c 44 52 20 52 33 2c 5b 52 | #1.yh(LDR R3,[R|
00015c60 31 31 2c 2d 52 38 5d 3a 41 44 44 20 52 33 2c 52 |11,-R8]:ADD R3,R|
00015c70 33 2c 52 32 2c 41 53 52 20 23 34 0d 79 72 14 53 |3,R2,ASR #4.yr.S|
00015c80 54 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 5d 0d |TR R3,[R11,-R8].|
00015c90 79 7c 17 41 44 44 20 52 32 2c 52 34 2c 52 34 2c |y|.ADD R2,R4,R4,|
00015ca0 4c 53 4c 20 23 32 0d 79 86 24 4c 44 52 20 52 33 |LSL #2.y.$LDR R3|
00015cb0 2c 5b 52 31 31 5d 3a 41 44 44 20 52 33 2c 52 33 |,[R11]:ADD R3,R3|
00015cc0 2c 52 32 2c 41 53 52 20 23 34 0d 79 90 10 53 54 |,R2,ASR #4.y..ST|
00015cd0 52 20 52 33 2c 5b 52 31 31 5d 0d 79 9a 14 4d 4f |R R3,[R11].y..MO|
00015ce0 56 20 52 33 2c 52 34 2c 41 53 52 20 23 34 0d 79 |V R3,R4,ASR #4.y|
00015cf0 a4 14 53 54 52 20 52 33 2c 5b 52 31 31 2c 52 38 |..STR R3,[R11,R8|
00015d00 5d 21 0d 79 ae 17 52 53 42 20 52 32 2c 52 34 2c |]!.y..RSB R2,R4,|
00015d10 52 34 2c 4c 53 4c 20 23 33 0d 79 b8 10 4c 44 52 |R4,LSL #3.y..LDR|
00015d20 20 52 34 2c 5b 52 31 30 5d 0d 79 c2 17 41 44 44 | R4,[R10].y..ADD|
00015d30 20 52 34 2c 52 34 2c 52 32 2c 41 53 52 20 23 34 | R4,R4,R2,ASR #4|
00015d40 0d 79 cc 17 41 44 44 20 52 32 2c 52 35 2c 52 35 |.y..ADD R2,R5,R5|
00015d50 2c 4c 53 4c 20 23 31 0d 79 d6 27 4c 44 52 20 52 |,LSL #1.y.'LDR R|
00015d60 33 2c 5b 52 30 2c 2d 52 38 5d 3a 41 44 44 20 52 |3,[R0,-R8]:ADD R|
00015d70 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 79 |3,R3,R2,ASR #4.y|
00015d80 e0 13 53 54 52 20 52 33 2c 5b 52 30 2c 2d 52 38 |..STR R3,[R0,-R8|
00015d90 5d 0d 79 ea 14 4d 4f 56 20 52 33 2c 52 35 2c 41 |].y..MOV R3,R5,A|
00015da0 53 52 20 23 34 0d 79 f4 12 53 54 52 20 52 33 2c |SR #4.y..STR R3,|
00015db0 5b 52 30 2c 52 38 5d 0d 79 fe 17 41 44 44 20 52 |[R0,R8].y..ADD R|
00015dc0 32 2c 52 35 2c 52 35 2c 4c 53 4c 20 23 32 0d 7a |2,R5,R5,LSL #2.z|
00015dd0 08 23 4c 44 52 20 52 33 2c 5b 52 30 5d 3a 41 44 |.#LDR R3,[R0]:AD|
00015de0 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 |D R3,R3,R2,ASR #|
00015df0 34 0d 7a 12 12 53 54 52 20 52 33 2c 5b 52 30 5d |4.z..STR R3,[R0]|
00015e00 2c 23 34 0d 7a 1c 17 52 53 42 20 52 32 2c 52 35 |,#4.z..RSB R2,R5|
00015e10 2c 52 35 2c 4c 53 4c 20 23 33 0d 7a 26 13 4c 44 |,R5,LSL #3.z&.LD|
00015e20 52 20 52 35 2c 5b 52 31 30 2c 23 34 5d 0d 7a 30 |R R5,[R10,#4].z0|
00015e30 17 41 44 44 20 52 35 2c 52 35 2c 52 32 2c 41 53 |.ADD R5,R5,R2,AS|
00015e40 52 20 23 34 0d 7a 3a 17 41 44 44 20 52 32 2c 52 |R #4.z:.ADD R2,R|
00015e50 36 2c 52 36 2c 4c 53 4c 20 23 31 0d 7a 44 27 4c |6,R6,LSL #1.zD'L|
00015e60 44 52 20 52 33 2c 5b 52 30 2c 2d 52 38 5d 3a 41 |DR R3,[R0,-R8]:A|
00015e70 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 |DD R3,R3,R2,ASR |
00015e80 23 34 0d 7a 4e 13 53 54 52 20 52 33 2c 5b 52 30 |#4.zN.STR R3,[R0|
00015e90 2c 2d 52 38 5d 0d 7a 58 17 41 44 44 20 52 32 2c |,-R8].zX.ADD R2,|
00015ea0 52 36 2c 52 36 2c 4c 53 4c 20 23 32 0d 7a 62 23 |R6,R6,LSL #2.zb#|
00015eb0 4c 44 52 20 52 33 2c 5b 52 30 5d 3a 41 44 44 20 |LDR R3,[R0]:ADD |
00015ec0 52 33 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d |R3,R3,R2,ASR #4.|
00015ed0 7a 6c 0f 53 54 52 20 52 33 2c 5b 52 30 5d 0d 7a |zl.STR R3,[R0].z|
00015ee0 76 14 4d 4f 56 20 52 33 2c 52 36 2c 41 53 52 20 |v.MOV R3,R6,ASR |
00015ef0 23 34 0d 7a 80 12 53 54 52 20 52 33 2c 5b 52 30 |#4.z..STR R3,[R0|
00015f00 2c 52 38 5d 0d 7a 8a 17 52 53 42 20 52 32 2c 52 |,R8].z..RSB R2,R|
00015f10 36 2c 52 36 2c 4c 53 4c 20 23 33 0d 7a 94 13 4c |6,R6,LSL #3.z..L|
00015f20 44 52 20 52 36 2c 5b 52 31 30 2c 23 38 5d 0d 7a |DR R6,[R10,#8].z|
00015f30 9e 17 41 44 44 20 52 36 2c 52 36 2c 52 32 2c 41 |..ADD R6,R6,R2,A|
00015f40 53 52 20 23 34 0d 7a a8 05 5d 0d 7a b2 05 cc 0d |SR #4.z..].z....|
00015f50 7a bc 0a 5b 4f 50 54 20 5a 0d 7a c6 18 4c 44 4d |z..[OPT Z.z..LDM|
00015f60 49 41 20 52 31 30 2c 7b 52 34 2c 52 35 2c 52 36 |IA R10,{R4,R5,R6|
00015f70 7d 0d 7a d0 05 5d 0d 7a da 05 cd 0d 7a e4 05 cc |}.z..].z....z...|
00015f80 0d 7a ee 0e e7 64 69 74 68 65 72 25 20 8c 0d 7a |.z...dither% ..z|
00015f90 f8 0a 5b 4f 50 54 20 5a 0d 7b 02 17 41 44 44 20 |..[OPT Z.{..ADD |
00015fa0 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 31 0d |R2,R4,R4,LSL #1.|
00015fb0 7b 0c 28 4c 44 52 20 52 33 2c 5b 52 31 31 2c 2d |{.(LDR R3,[R11,-|
00015fc0 52 38 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 |R8]:ADD R3,R3,R2|
00015fd0 2c 41 53 52 20 23 34 0d 7b 16 14 53 54 52 20 52 |,ASR #4.{..STR R|
00015fe0 33 2c 5b 52 31 31 2c 2d 52 38 5d 0d 7b 20 17 41 |3,[R11,-R8].{ .A|
00015ff0 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 |DD R2,R4,R4,LSL |
00016000 23 32 0d 7b 2a 24 4c 44 52 20 52 33 2c 5b 52 31 |#2.{*$LDR R3,[R1|
00016010 31 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c |1]:ADD R3,R3,R2,|
00016020 41 53 52 20 23 34 0d 7b 34 10 53 54 52 20 52 33 |ASR #4.{4.STR R3|
00016030 2c 5b 52 31 31 5d 0d 7b 3e 14 4d 4f 56 20 52 33 |,[R11].{>.MOV R3|
00016040 2c 52 34 2c 41 53 52 20 23 34 0d 7b 48 14 53 54 |,R4,ASR #4.{H.ST|
00016050 52 20 52 33 2c 5b 52 31 31 2c 52 38 5d 21 0d 7b |R R3,[R11,R8]!.{|
00016060 52 17 52 53 42 20 52 32 2c 52 34 2c 52 34 2c 4c |R.RSB R2,R4,R4,L|
00016070 53 4c 20 23 33 0d 7b 5c 13 4c 44 52 20 52 34 2c |SL #3.{\.LDR R4,|
00016080 5b 52 31 30 5d 2c 52 38 0d 7b 66 17 41 44 44 20 |[R10],R8.{f.ADD |
00016090 52 34 2c 52 34 2c 52 32 2c 41 53 52 20 23 34 0d |R4,R4,R2,ASR #4.|
000160a0 7b 70 05 5d 0d 7b 7a 05 cc 0d 7b 84 0a 5b 4f 50 |{p.].{z...{..[OP|
000160b0 54 20 5a 0d 7b 8e 13 4c 44 52 20 52 34 2c 5b 52 |T Z.{..LDR R4,[R|
000160c0 31 30 5d 2c 52 38 0d 7b 98 05 5d 0d 7b a2 05 cd |10],R8.{..].{...|
000160d0 0d 7b ac 05 cd 0d 7b b6 0a 5b 4f 50 54 20 5a 0d |.{....{..[OPT Z.|
000160e0 7b c0 1c 53 55 42 53 20 52 39 2c 52 39 2c 23 31 |{..SUBS R9,R9,#1|
000160f0 3a 42 4e 45 20 66 73 6c 6f 6f 70 0d 7b ca 14 4c |:BNE fsloop.{..L|
00016100 44 4d 46 44 20 53 50 20 21 2c 7b 50 43 7d 5e 0d |DMFD SP !,{PC}^.|
00016110 7b d4 05 5d 0d 7b de 07 c9 20 31 0d 7b e8 0b c8 |{..].{... 1.{...|
00016120 8e 20 6d 24 20 ca 0d 7b f2 08 c9 22 43 22 0d 7b |. m$ ..{..."C".{|
00016130 fc 0a 5b 4f 50 54 20 5a 0d 7c 06 14 2e 64 69 76 |..[OPT Z.|...div|
00016140 74 61 62 6c 65 20 45 51 55 44 20 30 0d 7c 10 1e |table EQUD 0.|..|
00016150 45 51 55 44 20 28 31 2d 62 6c 61 63 6b 25 2f 32 |EQUD (1-black%/2|
00016160 35 36 2a 32 29 2f 31 36 2a 46 0d 7c 1a 1e 45 51 |56*2)/16*F.|..EQ|
00016170 55 44 20 28 32 2d 62 6c 61 63 6b 25 2f 32 35 36 |UD (2-black%/256|
00016180 2a 34 29 2f 31 36 2a 46 0d 7c 24 1e 45 51 55 44 |*4)/16*F.|$.EQUD|
00016190 20 28 33 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 35 | (3-black%/256*5|
000161a0 29 2f 31 36 2a 46 0d 7c 2e 1e 45 51 55 44 20 28 |)/16*F.|..EQUD (|
000161b0 34 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 36 29 2f |4-black%/256*6)/|
000161c0 31 36 2a 46 0d 7c 38 1e 45 51 55 44 20 28 35 2d |16*F.|8.EQUD (5-|
000161d0 62 6c 61 63 6b 25 2f 32 35 36 2a 37 29 2f 31 36 |black%/256*7)/16|
000161e0 2a 46 0d 7c 42 1e 45 51 55 44 20 28 36 2d 62 6c |*F.|B.EQUD (6-bl|
000161f0 61 63 6b 25 2f 32 35 36 2a 38 29 2f 31 36 2a 46 |ack%/256*8)/16*F|
00016200 0d 7c 4c 1e 45 51 55 44 20 28 37 2d 62 6c 61 63 |.|L.EQUD (7-blac|
00016210 6b 25 2f 32 35 36 2a 38 29 2f 31 36 2a 46 0d 7c |k%/256*8)/16*F.||
00016220 56 1e 45 51 55 44 20 28 38 2d 62 6c 61 63 6b 25 |V.EQUD (8-black%|
00016230 2f 32 35 36 2a 38 29 2f 31 36 2a 46 0d 7c 60 1e |/256*8)/16*F.|`.|
00016240 45 51 55 44 20 28 39 2d 62 6c 61 63 6b 25 2f 32 |EQUD (9-black%/2|
00016250 35 36 2a 38 29 2f 31 36 2a 46 0d 7c 6a 1f 45 51 |56*8)/16*F.|j.EQ|
00016260 55 44 20 28 31 30 2d 62 6c 61 63 6b 25 2f 32 35 |UD (10-black%/25|
00016270 36 2a 38 29 2f 31 36 2a 46 0d 7c 74 1f 45 51 55 |6*8)/16*F.|t.EQU|
00016280 44 20 28 31 31 2d 62 6c 61 63 6b 25 2f 32 35 36 |D (11-black%/256|
00016290 2a 37 29 2f 31 36 2a 46 0d 7c 7e 1f 45 51 55 44 |*7)/16*F.|~.EQUD|
000162a0 20 28 31 32 2d 62 6c 61 63 6b 25 2f 32 35 36 2a | (12-black%/256*|
000162b0 36 29 2f 31 36 2a 46 0d 7c 88 1f 45 51 55 44 20 |6)/16*F.|..EQUD |
000162c0 28 31 33 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 35 |(13-black%/256*5|
000162d0 29 2f 31 36 2a 46 0d 7c 92 1f 45 51 55 44 20 28 |)/16*F.|..EQUD (|
000162e0 31 34 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 34 29 |14-black%/256*4)|
000162f0 2f 31 36 2a 46 0d 7c 9c 1f 45 51 55 44 20 28 31 |/16*F.|..EQUD (1|
00016300 35 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 32 29 2f |5-black%/256*2)/|
00016310 31 36 2a 46 0d 7c a6 0a 45 51 55 44 20 46 0d 7c |16*F.|..EQUD F.||
00016320 b0 1f 2e 65 76 65 6e 72 6f 77 5f 67 61 72 64 20 |...evenrow_gard |
00016330 44 43 44 20 65 76 65 6e 5f 67 61 72 64 0d 7c ba |DCD even_gard.|.|
00016340 1d 2e 6f 64 64 72 6f 77 5f 67 61 72 64 20 44 43 |..oddrow_gard DC|
00016350 44 20 6f 64 64 5f 67 61 72 64 0d 7c c4 11 2e 72 |D odd_gard.|...r|
00016360 6f 77 69 6e 63 20 44 43 44 20 30 0d 7c ce 08 2e |owinc DCD 0.|...|
00016370 66 73 25 0d 7c d8 14 53 54 4d 46 44 20 53 50 20 |fs%.|..STMFD SP |
00016380 21 2c 7b 52 31 34 7d 0d 7c e2 20 4c 44 52 20 52 |!,{R14}.|. LDR R|
00016390 31 2c 5b 52 39 2c 23 35 2a 38 5d 3a 4c 44 52 20 |1,[R9,#5*8]:LDR |
000163a0 52 31 2c 5b 52 31 5d 0d 7c ec 15 4c 44 52 20 52 |R1,[R1].|..LDR R|
000163b0 31 30 2c 5b 52 39 2c 23 34 2a 38 5d 0d 7c f6 15 |10,[R9,#4*8].|..|
000163c0 4c 44 52 20 52 31 31 2c 5b 52 39 2c 23 33 2a 38 |LDR R11,[R9,#3*8|
000163d0 5d 0d 7d 00 15 4c 44 52 20 52 31 32 2c 5b 52 39 |].}..LDR R12,[R9|
000163e0 2c 23 32 2a 38 5d 0d 7d 0a 11 4c 44 52 20 52 31 |,#2*8].}..LDR R1|
000163f0 32 2c 5b 52 31 32 5d 0d 7d 14 12 4c 44 52 20 52 |2,[R12].}..LDR R|
00016400 38 2c 5b 52 39 2c 23 38 5d 0d 7d 1e 0f 4c 44 52 |8,[R9,#8].}..LDR|
00016410 20 52 38 2c 5b 52 38 5d 0d 7d 28 0f 4c 44 52 20 | R8,[R8].}(.LDR |
00016420 52 39 2c 5b 52 39 5d 0d 7d 32 0f 4c 44 52 20 52 |R9,[R9].}2.LDR R|
00016430 39 2c 5b 52 39 5d 0d 7d 3c 13 4c 44 52 20 52 34 |9,[R9].}<.LDR R4|
00016440 2c 5b 52 31 30 5d 2c 52 38 0d 7d 46 0d 54 45 51 |,[R10],R8.}F.TEQ|
00016450 20 52 38 2c 23 30 0d 7d 50 19 4c 44 52 50 4c 20 | R8,#0.}P.LDRPL |
00016460 52 36 2c 65 76 65 6e 72 6f 77 5f 67 61 72 64 0d |R6,evenrow_gard.|
00016470 7d 5a 18 4c 44 52 4d 49 20 52 36 2c 6f 64 64 72 |}Z.LDRMI R6,oddr|
00016480 6f 77 5f 67 61 72 64 0d 7d 64 14 4d 4f 56 20 52 |ow_gard.}d.MOV R|
00016490 31 2c 52 31 2c 4c 53 4c 20 23 31 0d 7d 6e 11 4c |1,R1,LSL #1.}n.L|
000164a0 44 52 20 52 37 2c 72 6f 77 69 6e 63 0d 7d 78 14 |DR R7,rowinc.}x.|
000164b0 41 44 52 20 52 31 34 2c 64 69 76 74 61 62 6c 65 |ADR R14,divtable|
000164c0 0d 7d 82 0b 2e 66 73 6c 6f 6f 70 0d 7d 8c 25 43 |.}...fsloop.}.%C|
000164d0 4d 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 |MP R4,#F:MOVCS R|
000164e0 34 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 |4,#0:MOVGE R4,#F|
000164f0 0d 7d 96 13 41 44 44 20 52 35 2c 52 34 2c 23 46 |.}..ADD R5,R4,#F|
00016500 3e 3e 35 0d 7d a0 1a 4d 4f 56 53 20 52 35 2c 52 |>>5.}..MOVS R5,R|
00016510 35 2c 4c 53 52 20 23 62 69 74 73 2d 34 0d 7d aa |5,LSR #bits-4.}.|
00016520 1c 4c 44 52 4e 45 20 52 30 2c 5b 52 31 34 2c 52 |.LDRNE R0,[R14,R|
00016530 35 2c 4c 53 4c 20 23 32 5d 0d 7d b4 12 53 55 42 |5,LSL #2].}..SUB|
00016540 4e 45 20 52 34 2c 52 34 2c 52 30 0d 7d be 05 5d |NE R4,R4,R0.}..]|
00016550 0d 7d c8 0e e7 64 69 74 68 65 72 25 20 8c 0d 7d |.}...dither% ..}|
00016560 d2 0a 5b 4f 50 54 20 5a 0d 7d dc 17 41 44 44 20 |..[OPT Z.}..ADD |
00016570 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 31 0d |R2,R4,R4,LSL #1.|
00016580 7d e6 28 4c 44 52 20 52 33 2c 5b 52 31 31 2c 2d |}.(LDR R3,[R11,-|
00016590 52 38 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 |R8]:ADD R3,R3,R2|
000165a0 2c 41 53 52 20 23 34 0d 7d f0 14 53 54 52 20 52 |,ASR #4.}..STR R|
000165b0 33 2c 5b 52 31 31 2c 2d 52 38 5d 0d 7d fa 17 41 |3,[R11,-R8].}..A|
000165c0 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 |DD R2,R4,R4,LSL |
000165d0 23 32 0d 7e 04 24 4c 44 52 20 52 33 2c 5b 52 31 |#2.~.$LDR R3,[R1|
000165e0 31 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c |1]:ADD R3,R3,R2,|
000165f0 41 53 52 20 23 34 0d 7e 0e 10 53 54 52 20 52 33 |ASR #4.~..STR R3|
00016600 2c 5b 52 31 31 5d 0d 7e 18 14 4d 4f 56 20 52 33 |,[R11].~..MOV R3|
00016610 2c 52 34 2c 41 53 52 20 23 34 0d 7e 22 14 53 54 |,R4,ASR #4.~".ST|
00016620 52 20 52 33 2c 5b 52 31 31 2c 52 38 5d 21 0d 7e |R R3,[R11,R8]!.~|
00016630 2c 17 52 53 42 20 52 32 2c 52 34 2c 52 34 2c 4c |,.RSB R2,R4,R4,L|
00016640 53 4c 20 23 33 0d 7e 36 13 4c 44 52 20 52 34 2c |SL #3.~6.LDR R4,|
00016650 5b 52 31 30 5d 2c 52 38 0d 7e 40 18 41 44 44 53 |[R10],R8.~@.ADDS|
00016660 20 52 34 2c 52 34 2c 52 32 2c 41 53 52 20 23 34 | R4,R4,R2,ASR #4|
00016670 0d 7e 4a 05 5d 0d 7e 54 05 cc 0d 7e 5e 0a 5b 4f |.~J.].~T...~^.[O|
00016680 50 54 20 5a 0d 7e 68 13 4c 44 52 20 52 34 2c 5b |PT Z.~h.LDR R4,[|
00016690 52 31 30 5d 2c 52 38 0d 7e 72 05 5d 0d 7e 7c 05 |R10],R8.~r.].~|.|
000166a0 cd 0d 7e 86 0a 5b 4f 50 54 20 5a 0d 7e 90 25 43 |..~..[OPT Z.~.%C|
000166b0 4d 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 |MP R4,#F:MOVCS R|
000166c0 34 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 |4,#0:MOVGE R4,#F|
000166d0 0d 7e 9a 13 41 44 44 20 52 33 2c 52 34 2c 23 46 |.~..ADD R3,R4,#F|
000166e0 3e 3e 35 0d 7e a4 1a 4d 4f 56 53 20 52 33 2c 52 |>>5.~..MOVS R3,R|
000166f0 33 2c 4c 53 52 20 23 62 69 74 73 2d 34 0d 7e ae |3,LSR #bits-4.~.|
00016700 1c 4c 44 52 4e 45 20 52 30 2c 5b 52 31 34 2c 52 |.LDRNE R0,[R14,R|
00016710 33 2c 4c 53 4c 20 23 32 5d 0d 7e b8 12 53 55 42 |3,LSL #2].~..SUB|
00016720 4e 45 20 52 34 2c 52 34 2c 52 30 0d 7e c2 2c 84 |NE R4,R4,R0.~.,.|
00016730 52 20 52 35 2c 52 35 2c 52 33 2c 4c 53 4c 20 23 |R R5,R5,R3,LSL #|
00016740 35 3a 4c 44 52 20 52 33 2c 5b 52 36 2c 52 35 2c |5:LDR R3,[R6,R5,|
00016750 4c 53 4c 20 23 32 5d 0d 7e cc 46 4d 4f 56 20 52 |LSL #2].~.FMOV R|
00016760 32 2c 52 31 32 2c 4c 53 52 20 23 31 3a 53 54 52 |2,R12,LSR #1:STR|
00016770 42 20 52 33 2c 5b 52 32 5d 2c 52 37 3a 4d 4f 56 |B R3,[R2],R7:MOV|
00016780 20 52 33 2c 52 33 2c 4c 53 52 20 23 38 3a 53 54 | R3,R3,LSR #8:ST|
00016790 52 42 20 52 33 2c 5b 52 32 5d 2c 52 37 0d 7e d6 |RB R3,[R2],R7.~.|
000167a0 42 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 20 23 |BMOV R3,R3,LSR #|
000167b0 38 3a 53 54 52 42 20 52 33 2c 5b 52 32 5d 2c 52 |8:STRB R3,[R2],R|
000167c0 37 3a 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 20 |7:MOV R3,R3,LSR |
000167d0 23 38 3a 53 54 52 42 20 52 33 2c 5b 52 32 5d 0d |#8:STRB R3,[R2].|
000167e0 7e e0 12 41 44 44 20 52 31 32 2c 52 31 32 2c 52 |~..ADD R12,R12,R|
000167f0 31 0d 7e ea 05 5d 0d 7e f4 0e e7 64 69 74 68 65 |1.~..].~...dithe|
00016800 72 25 20 8c 0d 7e fe 0a 5b 4f 50 54 20 5a 0d 7f |r% ..~..[OPT Z..|
00016810 08 17 41 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c |..ADD R2,R4,R4,L|
00016820 53 4c 20 23 31 0d 7f 12 28 4c 44 52 20 52 33 2c |SL #1...(LDR R3,|
00016830 5b 52 31 31 2c 2d 52 38 5d 3a 41 44 44 20 52 33 |[R11,-R8]:ADD R3|
00016840 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 7f 1c |,R3,R2,ASR #4...|
00016850 14 53 54 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 |.STR R3,[R11,-R8|
00016860 5d 0d 7f 26 17 41 44 44 20 52 32 2c 52 34 2c 52 |]..&.ADD R2,R4,R|
00016870 34 2c 4c 53 4c 20 23 32 0d 7f 30 24 4c 44 52 20 |4,LSL #2..0$LDR |
00016880 52 33 2c 5b 52 31 31 5d 3a 41 44 44 20 52 33 2c |R3,[R11]:ADD R3,|
00016890 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 7f 3a 10 |R3,R2,ASR #4..:.|
000168a0 53 54 52 20 52 33 2c 5b 52 31 31 5d 0d 7f 44 14 |STR R3,[R11]..D.|
000168b0 4d 4f 56 20 52 33 2c 52 34 2c 41 53 52 20 23 34 |MOV R3,R4,ASR #4|
000168c0 0d 7f 4e 14 53 54 52 20 52 33 2c 5b 52 31 31 2c |..N.STR R3,[R11,|
000168d0 52 38 5d 21 0d 7f 58 17 52 53 42 20 52 32 2c 52 |R8]!..X.RSB R2,R|
000168e0 34 2c 52 34 2c 4c 53 4c 20 23 33 0d 7f 62 13 4c |4,R4,LSL #3..b.L|
000168f0 44 52 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 7f |DR R4,[R10],R8..|
00016900 6c 17 41 44 44 20 52 34 2c 52 34 2c 52 32 2c 41 |l.ADD R4,R4,R2,A|
00016910 53 52 20 23 34 0d 7f 76 05 5d 0d 7f 80 05 cc 0d |SR #4..v.]......|
00016920 7f 8a 0a 5b 4f 50 54 20 5a 0d 7f 94 13 4c 44 52 |...[OPT Z....LDR|
00016930 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 7f 9e 05 | R4,[R10],R8....|
00016940 5d 0d 7f a8 05 cd 0d 7f b2 0a 5b 4f 50 54 20 5a |].........[OPT Z|
00016950 0d 7f bc 1c 53 55 42 53 20 52 39 2c 52 39 2c 23 |....SUBS R9,R9,#|
00016960 32 3a 42 4e 45 20 66 73 6c 6f 6f 70 0d 7f c6 14 |2:BNE fsloop....|
00016970 4c 44 4d 46 44 20 53 50 20 21 2c 7b 50 43 7d 5e |LDMFD SP !,{PC}^|
00016980 0d 7f d0 05 5d 0d 7f da 08 c9 22 54 22 0d 7f e4 |....]....."T"...|
00016990 0a 5b 4f 50 54 20 5a 0d 7f ee 14 2e 64 69 76 74 |.[OPT Z.....divt|
000169a0 61 62 6c 65 20 45 51 55 44 20 30 0d 7f f8 1d 45 |able EQUD 0....E|
000169b0 51 55 44 20 28 31 2d 62 6c 61 63 6b 25 2f 32 35 |QUD (1-black%/25|
000169c0 36 2a 32 29 2f 39 2a 46 0d 80 02 1d 45 51 55 44 |6*2)/9*F....EQUD|
000169d0 20 28 32 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 34 | (2-black%/256*4|
000169e0 29 2f 39 2a 46 0d 80 0c 1d 45 51 55 44 20 28 33 |)/9*F....EQUD (3|
000169f0 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 35 29 2f 39 |-black%/256*5)/9|
00016a00 2a 46 0d 80 16 1d 45 51 55 44 20 28 34 2d 62 6c |*F....EQUD (4-bl|
00016a10 61 63 6b 25 2f 32 35 36 2a 36 29 2f 39 2a 46 0d |ack%/256*6)/9*F.|
00016a20 80 20 1d 45 51 55 44 20 28 35 2d 62 6c 61 63 6b |. .EQUD (5-black|
00016a30 25 2f 32 35 36 2a 36 29 2f 39 2a 46 0d 80 2a 1d |%/256*6)/9*F..*.|
00016a40 45 51 55 44 20 28 36 2d 62 6c 61 63 6b 25 2f 32 |EQUD (6-black%/2|
00016a50 35 36 2a 35 29 2f 39 2a 46 0d 80 34 1d 45 51 55 |56*5)/9*F..4.EQU|
00016a60 44 20 28 37 2d 62 6c 61 63 6b 25 2f 32 35 36 2a |D (7-black%/256*|
00016a70 34 29 2f 39 2a 46 0d 80 3e 1d 45 51 55 44 20 28 |4)/9*F..>.EQUD (|
00016a80 38 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 32 29 2f |8-black%/256*2)/|
00016a90 39 2a 46 0d 80 48 0a 45 51 55 44 20 46 0d 80 52 |9*F..H.EQUD F..R|
00016aa0 1f 2e 65 76 65 6e 72 6f 77 5f 67 61 72 64 20 44 |..evenrow_gard D|
00016ab0 43 44 20 65 76 65 6e 5f 67 61 72 64 0d 80 5c 1d |CD even_gard..\.|
00016ac0 2e 6f 64 64 72 6f 77 5f 67 61 72 64 20 44 43 44 |.oddrow_gard DCD|
00016ad0 20 6f 64 64 5f 67 61 72 64 0d 80 66 11 2e 72 6f | odd_gard..f..ro|
00016ae0 77 69 6e 63 20 44 43 44 20 30 0d 80 70 08 2e 66 |winc DCD 0..p..f|
00016af0 73 25 0d 80 7a 14 53 54 4d 46 44 20 53 50 20 21 |s%..z.STMFD SP !|
00016b00 2c 7b 52 31 34 7d 0d 80 84 20 4c 44 52 20 52 31 |,{R14}... LDR R1|
00016b10 2c 5b 52 39 2c 23 35 2a 38 5d 3a 4c 44 52 20 52 |,[R9,#5*8]:LDR R|
00016b20 31 2c 5b 52 31 5d 0d 80 8e 15 4c 44 52 20 52 31 |1,[R1]....LDR R1|
00016b30 30 2c 5b 52 39 2c 23 34 2a 38 5d 0d 80 98 15 4c |0,[R9,#4*8]....L|
00016b40 44 52 20 52 31 31 2c 5b 52 39 2c 23 33 2a 38 5d |DR R11,[R9,#3*8]|
00016b50 0d 80 a2 15 4c 44 52 20 52 31 32 2c 5b 52 39 2c |....LDR R12,[R9,|
00016b60 23 32 2a 38 5d 0d 80 ac 11 4c 44 52 20 52 31 32 |#2*8]....LDR R12|
00016b70 2c 5b 52 31 32 5d 0d 80 b6 12 4c 44 52 20 52 38 |,[R12]....LDR R8|
00016b80 2c 5b 52 39 2c 23 38 5d 0d 80 c0 0f 4c 44 52 20 |,[R9,#8]....LDR |
00016b90 52 38 2c 5b 52 38 5d 0d 80 ca 0f 4c 44 52 20 52 |R8,[R8]....LDR R|
00016ba0 39 2c 5b 52 39 5d 0d 80 d4 0f 4c 44 52 20 52 39 |9,[R9]....LDR R9|
00016bb0 2c 5b 52 39 5d 0d 80 de 13 4c 44 52 20 52 34 2c |,[R9]....LDR R4,|
00016bc0 5b 52 31 30 5d 2c 52 38 0d 80 e8 0d 54 45 51 20 |[R10],R8....TEQ |
00016bd0 52 38 2c 23 30 0d 80 f2 19 4c 44 52 50 4c 20 52 |R8,#0....LDRPL R|
00016be0 36 2c 65 76 65 6e 72 6f 77 5f 67 61 72 64 0d 80 |6,evenrow_gard..|
00016bf0 fc 18 4c 44 52 4d 49 20 52 36 2c 6f 64 64 72 6f |..LDRMI R6,oddro|
00016c00 77 5f 67 61 72 64 0d 81 06 14 4d 4f 56 20 52 31 |w_gard....MOV R1|
00016c10 2c 52 31 2c 4c 53 4c 20 23 31 0d 81 10 11 4c 44 |,R1,LSL #1....LD|
00016c20 52 20 52 37 2c 72 6f 77 69 6e 63 0d 81 1a 14 41 |R R7,rowinc....A|
00016c30 44 52 20 52 31 34 2c 64 69 76 74 61 62 6c 65 0d |DR R14,divtable.|
00016c40 81 24 0b 2e 66 73 6c 6f 6f 70 0d 81 2e 25 43 4d |.$..fsloop...%CM|
00016c50 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 34 |P R4,#F:MOVCS R4|
00016c60 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 0d |,#0:MOVGE R4,#F.|
00016c70 81 38 13 41 44 44 20 52 35 2c 52 34 2c 23 46 3e |.8.ADD R5,R4,#F>|
00016c80 3e 34 0d 81 42 17 41 44 44 20 52 35 2c 52 35 2c |>4..B.ADD R5,R5,|
00016c90 52 35 2c 4c 53 4c 20 23 33 0d 81 4c 18 4d 4f 56 |R5,LSL #3..L.MOV|
00016ca0 53 20 52 35 2c 52 35 2c 4c 53 52 20 23 62 69 74 |S R5,R5,LSR #bit|
00016cb0 73 0d 81 56 1c 4c 44 52 4e 45 20 52 30 2c 5b 52 |s..V.LDRNE R0,[R|
00016cc0 31 34 2c 52 35 2c 4c 53 4c 20 23 32 5d 0d 81 60 |14,R5,LSL #2]..`|
00016cd0 12 53 55 42 4e 45 20 52 34 2c 52 34 2c 52 30 0d |.SUBNE R4,R4,R0.|
00016ce0 81 6a 05 5d 0d 81 74 0e e7 64 69 74 68 65 72 25 |.j.]..t..dither%|
00016cf0 20 8c 0d 81 7e 0a 5b 4f 50 54 20 5a 0d 81 88 17 | ...~.[OPT Z....|
00016d00 41 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c |ADD R2,R4,R4,LSL|
00016d10 20 23 31 0d 81 92 28 4c 44 52 20 52 33 2c 5b 52 | #1...(LDR R3,[R|
00016d20 31 31 2c 2d 52 38 5d 3a 41 44 44 20 52 33 2c 52 |11,-R8]:ADD R3,R|
00016d30 33 2c 52 32 2c 41 53 52 20 23 34 0d 81 9c 14 53 |3,R2,ASR #4....S|
00016d40 54 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 5d 0d |TR R3,[R11,-R8].|
00016d50 81 a6 17 41 44 44 20 52 32 2c 52 34 2c 52 34 2c |...ADD R2,R4,R4,|
00016d60 4c 53 4c 20 23 32 0d 81 b0 24 4c 44 52 20 52 33 |LSL #2...$LDR R3|
00016d70 2c 5b 52 31 31 5d 3a 41 44 44 20 52 33 2c 52 33 |,[R11]:ADD R3,R3|
00016d80 2c 52 32 2c 41 53 52 20 23 34 0d 81 ba 10 53 54 |,R2,ASR #4....ST|
00016d90 52 20 52 33 2c 5b 52 31 31 5d 0d 81 c4 14 4d 4f |R R3,[R11]....MO|
00016da0 56 20 52 33 2c 52 34 2c 41 53 52 20 23 34 0d 81 |V R3,R4,ASR #4..|
00016db0 ce 14 53 54 52 20 52 33 2c 5b 52 31 31 2c 52 38 |..STR R3,[R11,R8|
00016dc0 5d 21 0d 81 d8 17 52 53 42 20 52 32 2c 52 34 2c |]!....RSB R2,R4,|
00016dd0 52 34 2c 4c 53 4c 20 23 33 0d 81 e2 13 4c 44 52 |R4,LSL #3....LDR|
00016de0 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 81 ec 18 | R4,[R10],R8....|
00016df0 41 44 44 53 20 52 34 2c 52 34 2c 52 32 2c 41 53 |ADDS R4,R4,R2,AS|
00016e00 52 20 23 34 0d 81 f6 05 5d 0d 82 00 05 cc 0d 82 |R #4....].......|
00016e10 0a 0a 5b 4f 50 54 20 5a 0d 82 14 13 4c 44 52 20 |..[OPT Z....LDR |
00016e20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 82 1e 05 5d |R4,[R10],R8....]|
00016e30 0d 82 28 05 cd 0d 82 32 0a 5b 4f 50 54 20 5a 0d |..(....2.[OPT Z.|
00016e40 82 3c 25 43 4d 50 20 52 34 2c 23 46 3a 4d 4f 56 |.<%CMP R4,#F:MOV|
00016e50 43 53 20 52 34 2c 23 30 3a 4d 4f 56 47 45 20 52 |CS R4,#0:MOVGE R|
00016e60 34 2c 23 46 0d 82 46 13 41 44 44 20 52 33 2c 52 |4,#F..F.ADD R3,R|
00016e70 34 2c 23 46 3e 3e 34 0d 82 50 17 41 44 44 20 52 |4,#F>>4..P.ADD R|
00016e80 33 2c 52 33 2c 52 33 2c 4c 53 4c 20 23 33 0d 82 |3,R3,R3,LSL #3..|
00016e90 5a 18 4d 4f 56 53 20 52 33 2c 52 33 2c 4c 53 52 |Z.MOVS R3,R3,LSR|
00016ea0 20 23 62 69 74 73 0d 82 64 1c 4c 44 52 4e 45 20 | #bits..d.LDRNE |
00016eb0 52 30 2c 5b 52 31 34 2c 52 33 2c 4c 53 4c 20 23 |R0,[R14,R3,LSL #|
00016ec0 32 5d 0d 82 6e 12 53 55 42 4e 45 20 52 34 2c 52 |2]..n.SUBNE R4,R|
00016ed0 34 2c 52 30 0d 82 78 2c 84 52 20 52 35 2c 52 35 |4,R0..x,.R R5,R5|
00016ee0 2c 52 33 2c 4c 53 4c 20 23 34 3a 4c 44 52 20 52 |,R3,LSL #4:LDR R|
00016ef0 35 2c 5b 52 36 2c 52 35 2c 4c 53 4c 20 23 32 5d |5,[R6,R5,LSL #2]|
00016f00 0d 82 82 15 4d 4f 56 20 52 32 2c 52 31 32 2c 4c |....MOV R2,R12,L|
00016f10 53 52 20 23 31 0d 82 8c 10 80 20 52 33 2c 52 35 |SR #1..... R3,R5|
00016f20 2c 23 26 33 46 0d 82 96 13 53 54 52 42 20 52 33 |,#&3F....STRB R3|
00016f30 2c 5b 52 32 5d 2c 52 37 0d 82 a0 21 4d 4f 56 20 |,[R2],R7...!MOV |
00016f40 52 33 2c 52 35 2c 4c 53 52 20 23 36 3a 80 20 52 |R3,R5,LSR #6:. R|
00016f50 33 2c 52 33 2c 23 26 33 46 0d 82 aa 13 53 54 52 |3,R3,#&3F....STR|
00016f60 42 20 52 33 2c 5b 52 32 5d 2c 52 37 0d 82 b4 22 |B R3,[R2],R7..."|
00016f70 4d 4f 56 20 52 33 2c 52 35 2c 4c 53 52 20 23 31 |MOV R3,R5,LSR #1|
00016f80 32 3a 53 54 52 42 20 52 33 2c 5b 52 32 5d 0d 82 |2:STRB R3,[R2]..|
00016f90 be 12 41 44 44 20 52 31 32 2c 52 31 32 2c 52 31 |..ADD R12,R12,R1|
00016fa0 0d 82 c8 05 5d 0d 82 d2 0e e7 64 69 74 68 65 72 |....].....dither|
00016fb0 25 20 8c 0d 82 dc 0a 5b 4f 50 54 20 5a 0d 82 e6 |% .....[OPT Z...|
00016fc0 17 41 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c 53 |.ADD R2,R4,R4,LS|
00016fd0 4c 20 23 31 0d 82 f0 28 4c 44 52 20 52 33 2c 5b |L #1...(LDR R3,[|
00016fe0 52 31 31 2c 2d 52 38 5d 3a 41 44 44 20 52 33 2c |R11,-R8]:ADD R3,|
00016ff0 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 82 fa 14 |R3,R2,ASR #4....|
00017000 53 54 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 5d |STR R3,[R11,-R8]|
00017010 0d 83 04 17 41 44 44 20 52 32 2c 52 34 2c 52 34 |....ADD R2,R4,R4|
00017020 2c 4c 53 4c 20 23 32 0d 83 0e 24 4c 44 52 20 52 |,LSL #2...$LDR R|
00017030 33 2c 5b 52 31 31 5d 3a 41 44 44 20 52 33 2c 52 |3,[R11]:ADD R3,R|
00017040 33 2c 52 32 2c 41 53 52 20 23 34 0d 83 18 10 53 |3,R2,ASR #4....S|
00017050 54 52 20 52 33 2c 5b 52 31 31 5d 0d 83 22 14 4d |TR R3,[R11]..".M|
00017060 4f 56 20 52 33 2c 52 34 2c 41 53 52 20 23 34 0d |OV R3,R4,ASR #4.|
00017070 83 2c 14 53 54 52 20 52 33 2c 5b 52 31 31 2c 52 |.,.STR R3,[R11,R|
00017080 38 5d 21 0d 83 36 17 52 53 42 20 52 32 2c 52 34 |8]!..6.RSB R2,R4|
00017090 2c 52 34 2c 4c 53 4c 20 23 33 0d 83 40 13 4c 44 |,R4,LSL #3..@.LD|
000170a0 52 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 83 4a |R R4,[R10],R8..J|
000170b0 17 41 44 44 20 52 34 2c 52 34 2c 52 32 2c 41 53 |.ADD R4,R4,R2,AS|
000170c0 52 20 23 34 0d 83 54 05 5d 0d 83 5e 05 cc 0d 83 |R #4..T.]..^....|
000170d0 68 0a 5b 4f 50 54 20 5a 0d 83 72 13 4c 44 52 20 |h.[OPT Z..r.LDR |
000170e0 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 83 7c 05 5d |R4,[R10],R8..|.]|
000170f0 0d 83 86 05 cd 0d 83 90 0a 5b 4f 50 54 20 5a 0d |.........[OPT Z.|
00017100 83 9a 1c 53 55 42 53 20 52 39 2c 52 39 2c 23 32 |...SUBS R9,R9,#2|
00017110 3a 42 4e 45 20 66 73 6c 6f 6f 70 0d 83 a4 14 4c |:BNE fsloop....L|
00017120 44 4d 46 44 20 53 50 20 21 2c 7b 50 43 7d 5e 0d |DMFD SP !,{PC}^.|
00017130 83 ae 05 5d 0d 83 b8 08 c9 22 44 22 0d 83 c2 0a |...]....."D"....|
00017140 5b 4f 50 54 20 5a 0d 83 cc 14 2e 64 69 76 74 61 |[OPT Z.....divta|
00017150 62 6c 65 20 45 51 55 44 20 30 0d 83 d6 1d 45 51 |ble EQUD 0....EQ|
00017160 55 44 20 28 31 2d 62 6c 61 63 6b 25 2f 32 35 36 |UD (1-black%/256|
00017170 2a 32 29 2f 34 2a 46 0d 83 e0 1d 45 51 55 44 20 |*2)/4*F....EQUD |
00017180 28 32 2d 62 6c 61 63 6b 25 2f 32 35 36 2a 34 29 |(2-black%/256*4)|
00017190 2f 34 2a 46 0d 83 ea 1d 45 51 55 44 20 28 33 2d |/4*F....EQUD (3-|
000171a0 62 6c 61 63 6b 25 2f 32 35 36 2a 32 29 2f 34 2a |black%/256*2)/4*|
000171b0 46 0d 83 f4 0a 45 51 55 44 20 46 0d 83 fe 1f 2e |F....EQUD F.....|
000171c0 65 76 65 6e 72 6f 77 5f 67 61 72 64 20 44 43 44 |evenrow_gard DCD|
000171d0 20 65 76 65 6e 5f 67 61 72 64 0d 84 08 1d 2e 6f | even_gard.....o|
000171e0 64 64 72 6f 77 5f 67 61 72 64 20 44 43 44 20 6f |ddrow_gard DCD o|
000171f0 64 64 5f 67 61 72 64 0d 84 12 11 2e 72 6f 77 69 |dd_gard.....rowi|
00017200 6e 63 20 44 43 44 20 30 0d 84 1c 08 2e 66 73 25 |nc DCD 0.....fs%|
00017210 0d 84 26 14 53 54 4d 46 44 20 53 50 20 21 2c 7b |..&.STMFD SP !,{|
00017220 52 31 34 7d 0d 84 30 20 4c 44 52 20 52 31 2c 5b |R14}..0 LDR R1,[|
00017230 52 39 2c 23 35 2a 38 5d 3a 4c 44 52 20 52 31 2c |R9,#5*8]:LDR R1,|
00017240 5b 52 31 5d 0d 84 3a 15 4c 44 52 20 52 31 30 2c |[R1]..:.LDR R10,|
00017250 5b 52 39 2c 23 34 2a 38 5d 0d 84 44 15 4c 44 52 |[R9,#4*8]..D.LDR|
00017260 20 52 31 31 2c 5b 52 39 2c 23 33 2a 38 5d 0d 84 | R11,[R9,#3*8]..|
00017270 4e 15 4c 44 52 20 52 31 32 2c 5b 52 39 2c 23 32 |N.LDR R12,[R9,#2|
00017280 2a 38 5d 0d 84 58 11 4c 44 52 20 52 31 32 2c 5b |*8]..X.LDR R12,[|
00017290 52 31 32 5d 0d 84 62 12 4c 44 52 20 52 38 2c 5b |R12]..b.LDR R8,[|
000172a0 52 39 2c 23 38 5d 0d 84 6c 0f 4c 44 52 20 52 38 |R9,#8]..l.LDR R8|
000172b0 2c 5b 52 38 5d 0d 84 76 0f 4c 44 52 20 52 39 2c |,[R8]..v.LDR R9,|
000172c0 5b 52 39 5d 0d 84 80 0f 4c 44 52 20 52 39 2c 5b |[R9]....LDR R9,[|
000172d0 52 39 5d 0d 84 8a 13 4c 44 52 20 52 34 2c 5b 52 |R9]....LDR R4,[R|
000172e0 31 30 5d 2c 52 38 0d 84 94 0d 54 45 51 20 52 38 |10],R8....TEQ R8|
000172f0 2c 23 30 0d 84 9e 19 4c 44 52 50 4c 20 52 36 2c |,#0....LDRPL R6,|
00017300 65 76 65 6e 72 6f 77 5f 67 61 72 64 0d 84 a8 18 |evenrow_gard....|
00017310 4c 44 52 4d 49 20 52 36 2c 6f 64 64 72 6f 77 5f |LDRMI R6,oddrow_|
00017320 67 61 72 64 0d 84 b2 14 4d 4f 56 20 52 31 2c 52 |gard....MOV R1,R|
00017330 31 2c 4c 53 4c 20 23 31 0d 84 bc 11 4c 44 52 20 |1,LSL #1....LDR |
00017340 52 37 2c 72 6f 77 69 6e 63 0d 84 c6 14 41 44 52 |R7,rowinc....ADR|
00017350 20 52 31 34 2c 64 69 76 74 61 62 6c 65 0d 84 d0 | R14,divtable...|
00017360 0b 2e 66 73 6c 6f 6f 70 0d 84 da 25 43 4d 50 20 |..fsloop...%CMP |
00017370 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 34 2c 23 |R4,#F:MOVCS R4,#|
00017380 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 0d 84 e4 |0:MOVGE R4,#F...|
00017390 13 41 44 44 20 52 35 2c 52 34 2c 23 46 3e 3e 33 |.ADD R5,R4,#F>>3|
000173a0 0d 84 ee 1a 4d 4f 56 53 20 52 35 2c 52 35 2c 4c |....MOVS R5,R5,L|
000173b0 53 52 20 23 62 69 74 73 2d 32 0d 84 f8 1c 4c 44 |SR #bits-2....LD|
000173c0 52 4e 45 20 52 30 2c 5b 52 31 34 2c 52 35 2c 4c |RNE R0,[R14,R5,L|
000173d0 53 4c 20 23 32 5d 0d 85 02 12 53 55 42 4e 45 20 |SL #2]....SUBNE |
000173e0 52 34 2c 52 34 2c 52 30 0d 85 0c 05 5d 0d 85 16 |R4,R4,R0....]...|
000173f0 0e e7 64 69 74 68 65 72 25 20 8c 0d 85 20 0a 5b |..dither% ... .[|
00017400 4f 50 54 20 5a 0d 85 2a 17 41 44 44 20 52 32 2c |OPT Z..*.ADD R2,|
00017410 52 34 2c 52 34 2c 4c 53 4c 20 23 31 0d 85 34 28 |R4,R4,LSL #1..4(|
00017420 4c 44 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 5d |LDR R3,[R11,-R8]|
00017430 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 |:ADD R3,R3,R2,AS|
00017440 52 20 23 34 0d 85 3e 14 53 54 52 20 52 33 2c 5b |R #4..>.STR R3,[|
00017450 52 31 31 2c 2d 52 38 5d 0d 85 48 17 41 44 44 20 |R11,-R8]..H.ADD |
00017460 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 32 0d |R2,R4,R4,LSL #2.|
00017470 85 52 24 4c 44 52 20 52 33 2c 5b 52 31 31 5d 3a |.R$LDR R3,[R11]:|
00017480 41 44 44 20 52 33 2c 52 33 2c 52 32 2c 41 53 52 |ADD R3,R3,R2,ASR|
00017490 20 23 34 0d 85 5c 10 53 54 52 20 52 33 2c 5b 52 | #4..\.STR R3,[R|
000174a0 31 31 5d 0d 85 66 14 4d 4f 56 20 52 33 2c 52 34 |11]..f.MOV R3,R4|
000174b0 2c 41 53 52 20 23 34 0d 85 70 14 53 54 52 20 52 |,ASR #4..p.STR R|
000174c0 33 2c 5b 52 31 31 2c 52 38 5d 21 0d 85 7a 17 52 |3,[R11,R8]!..z.R|
000174d0 53 42 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 |SB R2,R4,R4,LSL |
000174e0 23 33 0d 85 84 13 4c 44 52 20 52 34 2c 5b 52 31 |#3....LDR R4,[R1|
000174f0 30 5d 2c 52 38 0d 85 8e 18 41 44 44 53 20 52 34 |0],R8....ADDS R4|
00017500 2c 52 34 2c 52 32 2c 41 53 52 20 23 34 0d 85 98 |,R4,R2,ASR #4...|
00017510 05 5d 0d 85 a2 05 cc 0d 85 ac 0a 5b 4f 50 54 20 |.].........[OPT |
00017520 5a 0d 85 b6 13 4c 44 52 20 52 34 2c 5b 52 31 30 |Z....LDR R4,[R10|
00017530 5d 2c 52 38 0d 85 c0 05 5d 0d 85 ca 05 cd 0d 85 |],R8....].......|
00017540 d4 0a 5b 4f 50 54 20 5a 0d 85 de 25 43 4d 50 20 |..[OPT Z...%CMP |
00017550 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 34 2c 23 |R4,#F:MOVCS R4,#|
00017560 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 0d 85 e8 |0:MOVGE R4,#F...|
00017570 13 41 44 44 20 52 33 2c 52 34 2c 23 46 3e 3e 33 |.ADD R3,R4,#F>>3|
00017580 0d 85 f2 1a 4d 4f 56 53 20 52 33 2c 52 33 2c 4c |....MOVS R3,R3,L|
00017590 53 52 20 23 62 69 74 73 2d 32 0d 85 fc 1c 4c 44 |SR #bits-2....LD|
000175a0 52 4e 45 20 52 30 2c 5b 52 31 34 2c 52 33 2c 4c |RNE R0,[R14,R3,L|
000175b0 53 4c 20 23 32 5d 0d 86 06 12 53 55 42 4e 45 20 |SL #2]....SUBNE |
000175c0 52 34 2c 52 34 2c 52 30 0d 86 10 26 84 52 20 52 |R4,R4,R0...&.R R|
000175d0 35 2c 52 35 2c 52 33 2c 4c 53 4c 20 23 33 3a 4c |5,R5,R3,LSL #3:L|
000175e0 44 52 42 20 52 35 2c 5b 52 36 2c 52 35 5d 0d 86 |DRB R5,[R6,R5]..|
000175f0 1a 15 4d 4f 56 20 52 32 2c 52 31 32 2c 4c 53 52 |..MOV R2,R12,LSR|
00017600 20 23 32 0d 86 24 0e 54 53 54 20 52 31 32 2c 23 | #2..$.TST R12,#|
00017610 32 0d 86 2e 1c 80 20 52 33 2c 52 35 2c 23 26 46 |2..... R3,R5,#&F|
00017620 3a 4c 44 52 42 20 52 30 2c 5b 52 32 5d 0d 86 38 |:LDRB R0,[R2]..8|
00017630 20 80 45 51 20 52 30 2c 52 30 2c 23 26 46 30 3a | .EQ R0,R0,#&F0:|
00017640 84 52 45 51 20 52 30 2c 52 30 2c 52 33 0d 86 42 |.REQ R0,R0,R3..B|
00017650 27 80 4e 45 20 52 30 2c 52 30 2c 23 26 30 46 3a |'.NE R0,R0,#&0F:|
00017660 84 52 4e 45 20 52 30 2c 52 30 2c 52 33 2c 4c 53 |.RNE R0,R0,R3,LS|
00017670 4c 20 23 34 0d 86 4c 13 53 54 52 42 20 52 30 2c |L #4..L.STRB R0,|
00017680 5b 52 32 5d 2c 52 37 0d 86 56 21 4d 4f 56 20 52 |[R2],R7..V!MOV R|
00017690 33 2c 52 35 2c 4c 53 52 20 23 34 3a 4c 44 52 42 |3,R5,LSR #4:LDRB|
000176a0 20 52 30 2c 5b 52 32 5d 0d 86 60 20 80 45 51 20 | R0,[R2]..` .EQ |
000176b0 52 30 2c 52 30 2c 23 26 46 30 3a 84 52 45 51 20 |R0,R0,#&F0:.REQ |
000176c0 52 30 2c 52 30 2c 52 33 0d 86 6a 27 80 4e 45 20 |R0,R0,R3..j'.NE |
000176d0 52 30 2c 52 30 2c 23 26 30 46 3a 84 52 4e 45 20 |R0,R0,#&0F:.RNE |
000176e0 52 30 2c 52 30 2c 52 33 2c 4c 53 4c 20 23 34 0d |R0,R0,R3,LSL #4.|
000176f0 86 74 10 53 54 52 42 20 52 30 2c 5b 52 32 5d 0d |.t.STRB R0,[R2].|
00017700 86 7e 12 41 44 44 20 52 31 32 2c 52 31 32 2c 52 |.~.ADD R12,R12,R|
00017710 31 0d 86 88 05 5d 0d 86 92 0e e7 64 69 74 68 65 |1....].....dithe|
00017720 72 25 20 8c 0d 86 9c 0a 5b 4f 50 54 20 5a 0d 86 |r% .....[OPT Z..|
00017730 a6 17 41 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c |..ADD R2,R4,R4,L|
00017740 53 4c 20 23 31 0d 86 b0 28 4c 44 52 20 52 33 2c |SL #1...(LDR R3,|
00017750 5b 52 31 31 2c 2d 52 38 5d 3a 41 44 44 20 52 33 |[R11,-R8]:ADD R3|
00017760 2c 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 86 ba |,R3,R2,ASR #4...|
00017770 14 53 54 52 20 52 33 2c 5b 52 31 31 2c 2d 52 38 |.STR R3,[R11,-R8|
00017780 5d 0d 86 c4 17 41 44 44 20 52 32 2c 52 34 2c 52 |]....ADD R2,R4,R|
00017790 34 2c 4c 53 4c 20 23 32 0d 86 ce 24 4c 44 52 20 |4,LSL #2...$LDR |
000177a0 52 33 2c 5b 52 31 31 5d 3a 41 44 44 20 52 33 2c |R3,[R11]:ADD R3,|
000177b0 52 33 2c 52 32 2c 41 53 52 20 23 34 0d 86 d8 10 |R3,R2,ASR #4....|
000177c0 53 54 52 20 52 33 2c 5b 52 31 31 5d 0d 86 e2 14 |STR R3,[R11]....|
000177d0 4d 4f 56 20 52 33 2c 52 34 2c 41 53 52 20 23 34 |MOV R3,R4,ASR #4|
000177e0 0d 86 ec 14 53 54 52 20 52 33 2c 5b 52 31 31 2c |....STR R3,[R11,|
000177f0 52 38 5d 21 0d 86 f6 17 52 53 42 20 52 32 2c 52 |R8]!....RSB R2,R|
00017800 34 2c 52 34 2c 4c 53 4c 20 23 33 0d 87 00 13 4c |4,R4,LSL #3....L|
00017810 44 52 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 87 |DR R4,[R10],R8..|
00017820 0a 17 41 44 44 20 52 34 2c 52 34 2c 52 32 2c 41 |..ADD R4,R4,R2,A|
00017830 53 52 20 23 34 0d 87 14 05 5d 0d 87 1e 05 cc 0d |SR #4....]......|
00017840 87 28 0a 5b 4f 50 54 20 5a 0d 87 32 13 4c 44 52 |.(.[OPT Z..2.LDR|
00017850 20 52 34 2c 5b 52 31 30 5d 2c 52 38 0d 87 3c 05 | R4,[R10],R8..<.|
00017860 5d 0d 87 46 05 cd 0d 87 50 0a 5b 4f 50 54 20 5a |]..F....P.[OPT Z|
00017870 0d 87 5a 1c 53 55 42 53 20 52 39 2c 52 39 2c 23 |..Z.SUBS R9,R9,#|
00017880 32 3a 42 4e 45 20 66 73 6c 6f 6f 70 0d 87 64 14 |2:BNE fsloop..d.|
00017890 4c 44 4d 46 44 20 53 50 20 21 2c 7b 50 43 7d 5e |LDMFD SP !,{PC}^|
000178a0 0d 87 6e 05 5d 0d 87 78 05 7f 0d 87 82 0a 5b 4f |..n.]..x......[O|
000178b0 50 54 20 5a 0d 87 8c 08 2e 66 73 25 0d 87 96 14 |PT Z.....fs%....|
000178c0 53 54 4d 46 44 20 53 50 20 21 2c 7b 52 31 34 7d |STMFD SP !,{R14}|
000178d0 0d 87 a0 20 4c 44 52 20 52 31 2c 5b 52 39 2c 23 |... LDR R1,[R9,#|
000178e0 35 2a 38 5d 3a 4c 44 52 20 52 31 2c 5b 52 31 5d |5*8]:LDR R1,[R1]|
000178f0 0d 87 aa 15 4c 44 52 20 52 31 30 2c 5b 52 39 2c |....LDR R10,[R9,|
00017900 23 34 2a 38 5d 0d 87 b4 15 4c 44 52 20 52 31 31 |#4*8]....LDR R11|
00017910 2c 5b 52 39 2c 23 33 2a 38 5d 0d 87 be 15 4c 44 |,[R9,#3*8]....LD|
00017920 52 20 52 31 32 2c 5b 52 39 2c 23 32 2a 38 5d 0d |R R12,[R9,#2*8].|
00017930 87 c8 11 4c 44 52 20 52 31 32 2c 5b 52 31 32 5d |...LDR R12,[R12]|
00017940 0d 87 d2 12 4c 44 52 20 52 38 2c 5b 52 39 2c 23 |....LDR R8,[R9,#|
00017950 38 5d 0d 87 dc 0f 4c 44 52 20 52 38 2c 5b 52 38 |8]....LDR R8,[R8|
00017960 5d 0d 87 e6 0f 4c 44 52 20 52 39 2c 5b 52 39 5d |]....LDR R9,[R9]|
00017970 0d 87 f0 0f 4c 44 52 20 52 39 2c 5b 52 39 5d 0d |....LDR R9,[R9].|
00017980 87 fa 13 4c 44 52 20 52 34 2c 5b 52 31 30 5d 2c |...LDR R4,[R10],|
00017990 52 38 0d 88 04 0d 4d 4f 56 20 52 37 2c 23 31 0d |R8....MOV R7,#1.|
000179a0 88 0e 0b 2e 66 73 6c 6f 6f 70 0d 88 18 25 43 4d |....fsloop...%CM|
000179b0 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 34 |P R4,#F:MOVCS R4|
000179c0 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 0d |,#0:MOVGE R4,#F.|
000179d0 88 22 05 5d 0d 88 2c 0d e7 62 6c 61 63 6b 25 20 |.".]..,..black% |
000179e0 8c 0d 88 36 0a 5b 4f 50 54 20 5a 0d 88 40 15 4d |...6.[OPT Z..@.M|
000179f0 4f 56 20 52 32 2c 52 31 32 2c 4c 53 52 20 23 33 |OV R2,R12,LSR #3|
00017a00 0d 88 4a 19 80 20 52 35 2c 52 31 32 2c 23 37 3a |..J.. R5,R12,#7:|
00017a10 4d 4f 56 20 52 36 2c 23 31 0d 88 54 1c 4c 44 52 |MOV R6,#1..T.LDR|
00017a20 42 20 52 30 2c 5b 52 32 2c 23 2d 28 78 25 2b 37 |B R0,[R2,#-(x%+7|
00017a30 3e 3e 33 29 5d 0d 88 5e 10 53 55 42 20 52 33 2c |>>3)]..^.SUB R3,|
00017a40 52 34 2c 23 46 0d 88 68 0d 43 4d 50 20 52 37 2c |R4,#F..h.CMP R7,|
00017a50 23 30 0d 88 72 21 41 44 44 4e 45 20 52 34 2c 52 |#0..r!ADDNE R4,R|
00017a60 34 2c 23 62 6c 61 63 6b 25 3c 3c 28 62 69 74 73 |4,#black%<<(bits|
00017a70 2d 38 29 0d 88 7c 21 41 44 44 45 51 20 52 33 2c |-8)..|!ADDEQ R3,|
00017a80 52 33 2c 23 62 6c 61 63 6b 25 3c 3c 28 62 69 74 |R3,#black%<<(bit|
00017a90 73 2d 38 29 0d 88 86 14 54 53 54 20 52 30 2c 52 |s-8)....TST R0,R|
00017aa0 36 2c 4c 53 4c 20 52 35 0d 88 90 21 41 44 44 4e |6,LSL R5...!ADDN|
00017ab0 45 20 52 34 2c 52 34 2c 23 62 6c 61 63 6b 25 3c |E R4,R4,#black%<|
00017ac0 3c 28 62 69 74 73 2d 38 29 0d 88 9a 21 41 44 44 |<(bits-8)...!ADD|
00017ad0 45 51 20 52 33 2c 52 33 2c 23 62 6c 61 63 6b 25 |EQ R3,R3,#black%|
00017ae0 3c 3c 28 62 69 74 73 2d 38 29 0d 88 a4 1d 4d 4f |<<(bits-8)....MO|
00017af0 56 53 20 52 30 2c 52 33 3a 52 53 42 4d 49 20 52 |VS R0,R3:RSBMI R|
00017b00 30 2c 52 33 2c 23 30 0d 88 ae 0d 43 4d 50 20 52 |0,R3,#0....CMP R|
00017b10 34 2c 52 30 0d 88 b8 0f 4d 4f 56 43 43 20 52 33 |4,R0....MOVCC R3|
00017b20 2c 23 30 0d 88 c2 1b 4d 4f 56 43 53 20 52 34 2c |,#0....MOVCS R4,|
00017b30 52 33 3a 4d 4f 56 43 53 20 52 33 2c 23 31 0d 88 |R3:MOVCS R3,#1..|
00017b40 cc 0d 4d 4f 56 20 52 37 2c 52 33 0d 88 d6 05 5d |..MOV R7,R3....]|
00017b50 0d 88 e0 05 cc 0d 88 ea 0a 5b 4f 50 54 20 5a 0d |.........[OPT Z.|
00017b60 88 f4 27 41 44 44 20 52 33 2c 52 34 2c 23 46 3e |..'ADD R3,R4,#F>|
00017b70 3e 31 3a 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 |>1:MOV R3,R3,LSR|
00017b80 20 23 62 69 74 73 0d 88 fe 1a 53 55 42 20 52 34 | #bits....SUB R4|
00017b90 2c 52 34 2c 52 33 2c 4c 53 4c 20 23 62 69 74 73 |,R4,R3,LSL #bits|
00017ba0 0d 89 08 15 4d 4f 56 20 52 32 2c 52 31 32 2c 4c |....MOV R2,R12,L|
00017bb0 53 52 20 23 33 0d 89 12 19 80 20 52 35 2c 52 31 |SR #3..... R5,R1|
00017bc0 32 2c 23 37 3a 4d 4f 56 20 52 36 2c 23 31 0d 89 |2,#7:MOV R6,#1..|
00017bd0 1c 05 5d 0d 89 26 05 cd 0d 89 30 0a 5b 4f 50 54 |..]..&....0.[OPT|
00017be0 20 5a 0d 89 3a 37 4c 44 52 42 20 52 30 2c 5b 52 | Z..:7LDRB R0,[R|
00017bf0 32 5d 3a 42 49 43 20 52 30 2c 52 30 2c 52 36 2c |2]:BIC R0,R0,R6,|
00017c00 4c 53 4c 20 52 35 3a 84 52 20 52 30 2c 52 30 2c |LSL R5:.R R0,R0,|
00017c10 52 33 2c 4c 53 4c 20 52 35 0d 89 44 10 53 54 52 |R3,LSL R5..D.STR|
00017c20 42 20 52 30 2c 5b 52 32 5d 0d 89 4e 12 41 44 44 |B R0,[R2]..N.ADD|
00017c30 20 52 31 32 2c 52 31 32 2c 52 31 0d 89 58 05 5d | R12,R12,R1..X.]|
00017c40 0d 89 62 0e e7 64 69 74 68 65 72 25 20 8c 0d 89 |..b..dither% ...|
00017c50 6c 0a 5b 4f 50 54 20 5a 0d 89 76 17 41 44 44 20 |l.[OPT Z..v.ADD |
00017c60 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 31 0d |R2,R4,R4,LSL #1.|
00017c70 89 80 28 4c 44 52 20 52 33 2c 5b 52 31 31 2c 2d |..(LDR R3,[R11,-|
00017c80 52 38 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 |R8]:ADD R3,R3,R2|
00017c90 2c 41 53 52 20 23 34 0d 89 8a 14 53 54 52 20 52 |,ASR #4....STR R|
00017ca0 33 2c 5b 52 31 31 2c 2d 52 38 5d 0d 89 94 17 41 |3,[R11,-R8]....A|
00017cb0 44 44 20 52 32 2c 52 34 2c 52 34 2c 4c 53 4c 20 |DD R2,R4,R4,LSL |
00017cc0 23 32 0d 89 9e 24 4c 44 52 20 52 33 2c 5b 52 31 |#2...$LDR R3,[R1|
00017cd0 31 5d 3a 41 44 44 20 52 33 2c 52 33 2c 52 32 2c |1]:ADD R3,R3,R2,|
00017ce0 41 53 52 20 23 34 0d 89 a8 10 53 54 52 20 52 33 |ASR #4....STR R3|
00017cf0 2c 5b 52 31 31 5d 0d 89 b2 14 4d 4f 56 20 52 33 |,[R11]....MOV R3|
00017d00 2c 52 34 2c 41 53 52 20 23 34 0d 89 bc 14 53 54 |,R4,ASR #4....ST|
00017d10 52 20 52 33 2c 5b 52 31 31 2c 52 38 5d 21 0d 89 |R R3,[R11,R8]!..|
00017d20 c6 17 52 53 42 20 52 32 2c 52 34 2c 52 34 2c 4c |..RSB R2,R4,R4,L|
00017d30 53 4c 20 23 33 0d 89 d0 13 4c 44 52 20 52 34 2c |SL #3....LDR R4,|
00017d40 5b 52 31 30 5d 2c 52 38 0d 89 da 17 41 44 44 20 |[R10],R8....ADD |
00017d50 52 34 2c 52 34 2c 52 32 2c 41 53 52 20 23 34 0d |R4,R4,R2,ASR #4.|
00017d60 89 e4 05 5d 0d 89 ee 05 cc 0d 89 f8 0a 5b 4f 50 |...].........[OP|
00017d70 54 20 5a 0d 8a 02 13 4c 44 52 20 52 34 2c 5b 52 |T Z....LDR R4,[R|
00017d80 31 30 5d 2c 52 38 0d 8a 0c 05 5d 0d 8a 16 05 cd |10],R8....].....|
00017d90 0d 8a 20 0a 5b 4f 50 54 20 5a 0d 8a 2a 1c 53 55 |.. .[OPT Z..*.SU|
00017da0 42 53 20 52 39 2c 52 39 2c 23 31 3a 42 4e 45 20 |BS R9,R9,#1:BNE |
00017db0 66 73 6c 6f 6f 70 0d 8a 34 14 4c 44 4d 46 44 20 |fsloop..4.LDMFD |
00017dc0 53 50 20 21 2c 7b 50 43 7d 5e 0d 8a 3e 05 5d 0d |SP !,{PC}^..>.].|
00017dd0 8a 48 05 cb 0d 8a 52 05 cb 0d 8a 5c 0a 5b 4f 50 |.H....R....\.[OP|
00017de0 54 20 5a 0d 8a 66 12 2e 73 78 6c 6f 63 20 44 43 |T Z..f..sxloc DC|
00017df0 44 20 73 78 25 0d 8a 70 05 5d 0d 8a 7a 0c c8 8e |D sx%..p.]..z...|
00017e00 20 63 6f 6c 20 ca 0d 8a 84 07 c9 20 30 0d 8a 8e | col ...... 0...|
00017e10 0f e7 69 6e 70 75 74 3c 3d 38 20 8c 0d 8a 98 0a |..input<=8 .....|
00017e20 5b 4f 50 54 20 5a 0d 8a a2 0c 2e 6d 61 70 70 69 |[OPT Z.....mappi|
00017e30 78 25 0d 8a ac 10 4c 44 52 20 52 30 2c 73 78 6c |x%....LDR R0,sxl|
00017e40 6f 63 0d 8a b6 1b 4c 44 52 20 52 31 2c 5b 52 39 |oc....LDR R1,[R9|
00017e50 5d 3a 4c 44 52 20 52 31 2c 5b 52 31 5d 0d 8a c0 |]:LDR R1,[R1]...|
00017e60 14 4c 44 52 20 52 32 2c 5b 52 39 2c 23 33 2a 38 |.LDR R2,[R9,#3*8|
00017e70 5d 0d 8a ca 14 4c 44 52 20 52 35 2c 5b 52 39 2c |]....LDR R5,[R9,|
00017e80 23 34 2a 38 5d 0d 8a d4 0d 4d 4f 56 20 52 38 2c |#4*8]....MOV R8,|
00017e90 23 30 0d 8a de 0d 2e 6d 61 70 70 69 78 6c 70 0d |#0.....mappixlp.|
00017ea0 8a e8 18 4c 44 52 42 20 52 36 2c 5b 52 31 5d 2c |...LDRB R6,[R1],|
00017eb0 23 73 74 65 70 32 34 0d 8a f2 05 5d 0d 8a fc 05 |#step24....]....|
00017ec0 cd 0d 8b 06 0e c8 8e 20 69 6e 70 75 74 20 ca 0d |....... input ..|
00017ed0 8b 10 07 c9 20 38 0d 8b 1a 0a e7 68 61 6d 20 8c |.... 8.....ham .|
00017ee0 0d 8b 24 0a 5b 4f 50 54 20 5a 0d 8b 2e 11 41 44 |..$.[OPT Z....AD|
00017ef0 52 20 52 39 2c 6c 74 61 62 6c 65 0d 8b 38 21 4d |R R9,ltable..8!M|
00017f00 4f 56 53 20 52 37 2c 52 36 2c 4c 53 52 20 23 34 |OVS R7,R6,LSR #4|
00017f10 3a 80 20 52 36 2c 52 36 2c 23 31 35 0d 8b 42 32 |:. R6,R6,#15..B2|
00017f20 4c 44 52 45 51 20 52 31 30 2c 5b 52 32 2c 52 36 |LDREQ R10,[R2,R6|
00017f30 2c 4c 53 4c 20 23 32 5d 3a ec 51 20 52 31 31 2c |,LSL #2]:.Q R11,|
00017f40 52 31 30 3a ec 51 20 52 31 32 2c 52 31 30 0d 8b |R10:.Q R12,R10..|
00017f50 4c 26 43 4d 50 20 52 37 2c 23 31 3a 4c 44 52 45 |L&CMP R7,#1:LDRE|
00017f60 51 20 52 31 32 2c 5b 52 39 2c 52 36 2c 4c 53 4c |Q R12,[R9,R6,LSL|
00017f70 20 23 32 5d 0d 8b 56 26 43 4d 50 20 52 37 2c 23 | #2]..V&CMP R7,#|
00017f80 32 3a 4c 44 52 45 51 20 52 31 30 2c 5b 52 39 2c |2:LDREQ R10,[R9,|
00017f90 52 36 2c 4c 53 4c 20 23 32 5d 0d 8b 60 26 43 4d |R6,LSL #2]..`&CM|
00017fa0 50 20 52 37 2c 23 33 3a 4c 44 52 45 51 20 52 31 |P R7,#3:LDREQ R1|
00017fb0 31 2c 5b 52 39 2c 52 36 2c 4c 53 4c 20 23 32 5d |1,[R9,R6,LSL #2]|
00017fc0 0d 8b 6a 12 41 44 44 20 52 33 2c 52 31 30 2c 52 |..j.ADD R3,R10,R|
00017fd0 31 31 0d 8b 74 11 41 44 44 20 52 33 2c 52 33 2c |11..t.ADD R3,R3,|
00017fe0 52 31 32 0d 8b 7e 14 4d 4f 56 20 52 33 2c 52 33 |R12..~.MOV R3,R3|
00017ff0 2c 4c 53 52 20 23 32 0d 8b 88 12 53 54 4d 49 41 |,LSR #2....STMIA|
00018000 20 52 35 21 2c 7b 52 33 7d 0d 8b 92 1e 53 55 42 | R5!,{R3}....SUB|
00018010 53 20 52 30 2c 52 30 2c 23 31 3a 42 4e 45 20 6d |S R0,R0,#1:BNE m|
00018020 61 70 70 69 78 6c 70 0d 8b 9c 0f 4d 4f 56 53 20 |appixlp....MOVS |
00018030 50 43 2c 52 31 34 0d 8b a6 0b 2e 6c 74 61 62 6c |PC,R14.....ltabl|
00018040 65 0d 8b b0 05 5d 0d 8b ba 0c e3 49 25 3d 30 b8 |e....].....I%=0.|
00018050 31 35 0d 8b c4 0a 5b 4f 50 54 20 5a 0d 8b ce 10 |15....[OPT Z....|
00018060 45 51 55 44 20 49 25 2f 31 35 2a 46 0d 8b d8 05 |EQUD I%/15*F....|
00018070 5d 0d 8b e2 05 ed 0d 8b ec 05 cc 0d 8b f6 12 e7 |]...............|
00018080 68 70 72 65 64 69 63 74 25 3d 32 20 8c 0d 8c 00 |hpredict%=2 ....|
00018090 0a 5b 4f 50 54 20 5a 0d 8c 0a 10 41 44 44 20 52 |.[OPT Z....ADD R|
000180a0 36 2c 52 36 2c 52 38 0d 8c 14 10 80 20 52 36 2c |6,R6,R8..... R6,|
000180b0 52 36 2c 23 32 35 35 0d 8c 1e 0d 4d 4f 56 20 52 |R6,#255....MOV R|
000180c0 38 2c 52 36 0d 8c 28 05 5d 0d 8c 32 05 cd 0d 8c |8,R6..(.]..2....|
000180d0 3c 0a 5b 4f 50 54 20 5a 0d 8c 46 28 4c 44 52 20 |<.[OPT Z..F(LDR |
000180e0 52 37 2c 5b 52 32 2c 52 36 2c 4c 53 4c 20 23 32 |R7,[R2,R6,LSL #2|
000180f0 5d 3a 53 54 52 20 52 37 2c 5b 52 35 5d 2c 23 34 |]:STR R7,[R5],#4|
00018100 0d 8c 50 1e 53 55 42 53 20 52 30 2c 52 30 2c 23 |..P.SUBS R0,R0,#|
00018110 31 3a 42 4e 45 20 6d 61 70 70 69 78 6c 70 0d 8c |1:BNE mappixlp..|
00018120 5a 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d 8c 64 |Z.MOVS PC,R14..d|
00018130 05 5d 0d 8c 6e 05 cd 0d 8c 78 07 c9 20 34 0d 8c |.]..n....x.. 4..|
00018140 82 14 e7 62 69 67 65 6e 64 69 61 6e 62 69 74 73 |...bigendianbits|
00018150 20 8c 0d 8c 8c 0a 5b 4f 50 54 20 5a 0d 8c 96 15 | .....[OPT Z....|
00018160 4d 4f 56 20 52 31 30 2c 52 36 2c 4c 53 52 20 23 |MOV R10,R6,LSR #|
00018170 34 0d 8c a0 1a 4c 44 52 20 52 37 2c 5b 52 32 2c |4....LDR R7,[R2,|
00018180 52 31 30 2c 4c 53 4c 20 23 32 5d 0d 8c aa 10 80 |R10,LSL #2].....|
00018190 20 52 31 30 2c 52 36 2c 23 26 46 0d 8c b4 05 5d | R10,R6,#&F....]|
000181a0 0d 8c be 05 cc 0d 8c c8 0a 5b 4f 50 54 20 5a 0d |.........[OPT Z.|
000181b0 8c d2 10 80 20 52 31 30 2c 52 36 2c 23 26 46 0d |.... R10,R6,#&F.|
000181c0 8c dc 1a 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 |...LDR R7,[R2,R1|
000181d0 30 2c 4c 53 4c 20 23 32 5d 0d 8c e6 15 4d 4f 56 |0,LSL #2]....MOV|
000181e0 20 52 31 30 2c 52 36 2c 4c 53 52 20 23 34 0d 8c | R10,R6,LSR #4..|
000181f0 f0 05 5d 0d 8c fa 05 cd 0d 8d 04 0a 5b 4f 50 54 |..].........[OPT|
00018200 20 5a 0d 8d 0e 2c 4c 44 52 20 52 38 2c 5b 52 32 | Z...,LDR R8,[R2|
00018210 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 3a 53 54 4d |,R10,LSL #2]:STM|
00018220 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 7d 0d 8d |IA R5!,{R7,R8}..|
00018230 18 1e 53 55 42 53 20 52 30 2c 52 30 2c 23 32 3a |..SUBS R0,R0,#2:|
00018240 42 48 49 20 6d 61 70 70 69 78 6c 70 0d 8d 22 0f |BHI mappixlp..".|
00018250 4d 4f 56 53 20 50 43 2c 52 31 34 0d 8d 2c 05 5d |MOVS PC,R14..,.]|
00018260 0d 8d 36 07 c9 20 32 0d 8d 40 14 e7 62 69 67 65 |..6.. 2..@..bige|
00018270 6e 64 69 61 6e 62 69 74 73 20 8c 0d 8d 4a 0a 5b |ndianbits ...J.[|
00018280 4f 50 54 20 5a 0d 8d 54 15 4d 4f 56 20 52 31 30 |OPT Z..T.MOV R10|
00018290 2c 52 36 2c 4c 53 52 20 23 36 0d 8d 5e 1a 4c 44 |,R6,LSR #6..^.LD|
000182a0 52 20 52 37 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c |R R7,[R2,R10,LSL|
000182b0 20 23 32 5d 0d 8d 68 11 80 20 52 31 30 2c 52 36 | #2]..h.. R10,R6|
000182c0 2c 23 26 33 30 0d 8d 72 1a 4c 44 52 20 52 38 2c |,#&30..r.LDR R8,|
000182d0 5b 52 32 2c 52 31 30 2c 4c 53 52 20 23 32 5d 0d |[R2,R10,LSR #2].|
000182e0 8d 7c 10 80 20 52 31 30 2c 52 36 2c 23 26 43 0d |.|.. R10,R6,#&C.|
000182f0 8d 86 13 4c 44 52 20 52 39 2c 5b 52 32 2c 52 31 |...LDR R9,[R2,R1|
00018300 30 5d 0d 8d 90 10 80 20 52 31 30 2c 52 36 2c 23 |0]..... R10,R6,#|
00018310 26 33 0d 8d 9a 05 5d 0d 8d a4 05 cc 0d 8d ae 0a |&3....].........|
00018320 5b 4f 50 54 20 5a 0d 8d b8 10 80 20 52 31 30 2c |[OPT Z..... R10,|
00018330 52 36 2c 23 26 33 0d 8d c2 1a 4c 44 52 20 52 37 |R6,#&3....LDR R7|
00018340 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 23 32 5d |,[R2,R10,LSL #2]|
00018350 0d 8d cc 10 80 20 52 31 30 2c 52 36 2c 23 26 43 |..... R10,R6,#&C|
00018360 0d 8d d6 13 4c 44 52 20 52 38 2c 5b 52 32 2c 52 |....LDR R8,[R2,R|
00018370 31 30 5d 0d 8d e0 11 80 20 52 31 30 2c 52 36 2c |10]..... R10,R6,|
00018380 23 26 33 30 0d 8d ea 1a 4c 44 52 20 52 39 2c 5b |#&30....LDR R9,[|
00018390 52 32 2c 52 31 30 2c 4c 53 52 20 23 32 5d 0d 8d |R2,R10,LSR #2]..|
000183a0 f4 15 4d 4f 56 20 52 31 30 2c 52 36 2c 4c 53 52 |..MOV R10,R6,LSR|
000183b0 20 23 36 0d 8d fe 05 5d 0d 8e 08 05 cd 0d 8e 12 | #6....]........|
000183c0 0a 5b 4f 50 54 20 5a 0d 8e 1c 34 4c 44 52 20 52 |.[OPT Z...4LDR R|
000183d0 31 30 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 23 |10,[R2,R10,LSL #|
000183e0 32 5d 3a 53 54 4d 49 41 20 52 35 21 2c 7b 52 37 |2]:STMIA R5!,{R7|
000183f0 2c 52 38 2c 52 39 2c 52 31 30 7d 0d 8e 26 1e 53 |,R8,R9,R10}..&.S|
00018400 55 42 53 20 52 30 2c 52 30 2c 23 34 3a 42 48 49 |UBS R0,R0,#4:BHI|
00018410 20 6d 61 70 70 69 78 6c 70 0d 8e 30 0f 4d 4f 56 | mappixlp..0.MOV|
00018420 53 20 50 43 2c 52 31 34 0d 8e 3a 05 5d 0d 8e 44 |S PC,R14..:.]..D|
00018430 07 c9 20 31 0d 8e 4e 14 e7 62 69 67 65 6e 64 69 |.. 1..N..bigendi|
00018440 61 6e 62 69 74 73 20 8c 0d 8e 58 0a 5b 4f 50 54 |anbits ...X.[OPT|
00018450 20 5a 0d 8e 62 11 80 20 52 31 30 2c 52 36 2c 23 | Z..b.. R10,R6,#|
00018460 26 38 30 0d 8e 6c 1a 4c 44 52 20 52 37 2c 5b 52 |&80..l.LDR R7,[R|
00018470 32 2c 52 31 30 2c 4c 53 52 20 23 35 5d 0d 8e 76 |2,R10,LSR #5]..v|
00018480 11 80 20 52 31 30 2c 52 36 2c 23 26 34 30 0d 8e |.. R10,R6,#&40..|
00018490 80 1a 4c 44 52 20 52 38 2c 5b 52 32 2c 52 31 30 |..LDR R8,[R2,R10|
000184a0 2c 4c 53 52 20 23 34 5d 0d 8e 8a 11 80 20 52 31 |,LSR #4]..... R1|
000184b0 30 2c 52 36 2c 23 26 32 30 0d 8e 94 1a 4c 44 52 |0,R6,#&20....LDR|
000184c0 20 52 39 2c 5b 52 32 2c 52 31 30 2c 4c 53 52 20 | R9,[R2,R10,LSR |
000184d0 23 33 5d 0d 8e 9e 11 80 20 52 31 30 2c 52 36 2c |#3]..... R10,R6,|
000184e0 23 26 31 30 0d 8e a8 34 4c 44 52 20 52 31 30 2c |#&10...4LDR R10,|
000184f0 5b 52 32 2c 52 31 30 2c 4c 53 52 20 23 32 5d 3a |[R2,R10,LSR #2]:|
00018500 53 54 4d 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 |STMIA R5!,{R7,R8|
00018510 2c 52 39 2c 52 31 30 7d 0d 8e b2 10 80 20 52 31 |,R9,R10}..... R1|
00018520 30 2c 52 36 2c 23 26 38 0d 8e bc 1a 4c 44 52 20 |0,R6,#&8....LDR |
00018530 52 37 2c 5b 52 32 2c 52 31 30 2c 4c 53 52 20 23 |R7,[R2,R10,LSR #|
00018540 31 5d 0d 8e c6 10 80 20 52 31 30 2c 52 36 2c 23 |1]..... R10,R6,#|
00018550 26 34 0d 8e d0 13 4c 44 52 20 52 38 2c 5b 52 32 |&4....LDR R8,[R2|
00018560 2c 52 31 30 5d 0d 8e da 10 80 20 52 31 30 2c 52 |,R10]..... R10,R|
00018570 36 2c 23 26 32 0d 8e e4 1a 4c 44 52 20 52 39 2c |6,#&2....LDR R9,|
00018580 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 23 31 5d 0d |[R2,R10,LSL #1].|
00018590 8e ee 10 80 20 52 31 30 2c 52 36 2c 23 26 31 0d |.... R10,R6,#&1.|
000185a0 8e f8 05 5d 0d 8f 02 05 cc 0d 8f 0c 0a 5b 4f 50 |...].........[OP|
000185b0 54 20 5a 0d 8f 16 10 80 20 52 31 30 2c 52 36 2c |T Z..... R10,R6,|
000185c0 23 26 31 0d 8f 20 1a 4c 44 52 20 52 37 2c 5b 52 |#&1.. .LDR R7,[R|
000185d0 32 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 0d 8f 2a |2,R10,LSL #2]..*|
000185e0 10 80 20 52 31 30 2c 52 36 2c 23 26 32 0d 8f 34 |.. R10,R6,#&2..4|
000185f0 1a 4c 44 52 20 52 38 2c 5b 52 32 2c 52 31 30 2c |.LDR R8,[R2,R10,|
00018600 4c 53 4c 20 23 31 5d 0d 8f 3e 10 80 20 52 31 30 |LSL #1]..>.. R10|
00018610 2c 52 36 2c 23 26 34 0d 8f 48 13 4c 44 52 20 52 |,R6,#&4..H.LDR R|
00018620 39 2c 5b 52 32 2c 52 31 30 5d 0d 8f 52 10 80 20 |9,[R2,R10]..R.. |
00018630 52 31 30 2c 52 36 2c 23 26 38 0d 8f 5c 34 4c 44 |R10,R6,#&8..\4LD|
00018640 52 20 52 31 30 2c 5b 52 32 2c 52 31 30 2c 4c 53 |R R10,[R2,R10,LS|
00018650 52 20 23 31 5d 3a 53 54 4d 49 41 20 52 35 21 2c |R #1]:STMIA R5!,|
00018660 7b 52 37 2c 52 38 2c 52 39 2c 52 31 30 7d 0d 8f |{R7,R8,R9,R10}..|
00018670 66 11 80 20 52 31 30 2c 52 36 2c 23 26 31 30 0d |f.. R10,R6,#&10.|
00018680 8f 70 1a 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 |.p.LDR R7,[R2,R1|
00018690 30 2c 4c 53 52 20 23 32 5d 0d 8f 7a 11 80 20 52 |0,LSR #2]..z.. R|
000186a0 31 30 2c 52 36 2c 23 26 32 30 0d 8f 84 1a 4c 44 |10,R6,#&20....LD|
000186b0 52 20 52 38 2c 5b 52 32 2c 52 31 30 2c 4c 53 52 |R R8,[R2,R10,LSR|
000186c0 20 23 33 5d 0d 8f 8e 11 80 20 52 31 30 2c 52 36 | #3]..... R10,R6|
000186d0 2c 23 26 34 30 0d 8f 98 1a 4c 44 52 20 52 39 2c |,#&40....LDR R9,|
000186e0 5b 52 32 2c 52 31 30 2c 4c 53 52 20 23 34 5d 0d |[R2,R10,LSR #4].|
000186f0 8f a2 15 4d 4f 56 20 52 31 30 2c 52 36 2c 4c 53 |...MOV R10,R6,LS|
00018700 52 20 23 37 0d 8f ac 05 5d 0d 8f b6 05 cd 0d 8f |R #7....].......|
00018710 c0 0a 5b 4f 50 54 20 5a 0d 8f ca 34 4c 44 52 20 |..[OPT Z...4LDR |
00018720 52 31 30 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 |R10,[R2,R10,LSL |
00018730 23 32 5d 3a 53 54 4d 49 41 20 52 35 21 2c 7b 52 |#2]:STMIA R5!,{R|
00018740 37 2c 52 38 2c 52 39 2c 52 31 30 7d 0d 8f d4 1e |7,R8,R9,R10}....|
00018750 53 55 42 53 20 52 30 2c 52 30 2c 23 38 3a 42 48 |SUBS R0,R0,#8:BH|
00018760 49 20 6d 61 70 70 69 78 6c 70 0d 8f de 0f 4d 4f |I mappixlp....MO|
00018770 56 53 20 50 43 2c 52 31 34 0d 8f e8 05 5d 0d 8f |VS PC,R14....]..|
00018780 f2 08 c9 20 31 36 0d 8f fc 0a 5b 4f 50 54 20 5a |... 16....[OPT Z|
00018790 0d 90 06 0c 2e 6d 61 70 70 69 78 25 0d 90 10 10 |.....mappix%....|
000187a0 4c 44 52 20 52 30 2c 73 78 6c 6f 63 0d 90 1a 1b |LDR R0,sxloc....|
000187b0 4c 44 52 20 52 31 2c 5b 52 39 5d 3a 4c 44 52 20 |LDR R1,[R9]:LDR |
000187c0 52 31 2c 5b 52 31 5d 0d 90 24 1e 4c 44 52 20 52 |R1,[R1]..$.LDR R|
000187d0 32 2c 5b 52 39 2c 23 38 5d 3a 4c 44 52 20 52 32 |2,[R9,#8]:LDR R2|
000187e0 2c 5b 52 32 5d 0d 90 2e 14 4c 44 52 20 52 33 2c |,[R2]....LDR R3,|
000187f0 5b 52 39 2c 23 34 2a 38 5d 0d 90 38 14 4c 44 52 |[R9,#4*8]..8.LDR|
00018800 20 52 34 2c 5b 52 39 2c 23 33 2a 38 5d 0d 90 42 | R4,[R9,#3*8]..B|
00018810 14 4c 44 52 20 52 35 2c 5b 52 39 2c 23 32 2a 38 |.LDR R5,[R9,#2*8|
00018820 5d 0d 90 4c 14 4c 44 52 20 52 36 2c 5b 52 39 2c |]..L.LDR R6,[R9,|
00018830 23 35 2a 38 5d 0d 90 56 14 4c 44 52 20 52 37 2c |#5*8]..V.LDR R7,|
00018840 5b 52 39 2c 23 36 2a 38 5d 0d 90 60 14 4c 44 52 |[R9,#6*8]..`.LDR|
00018850 20 52 38 2c 5b 52 39 2c 23 37 2a 38 5d 0d 90 6a | R8,[R9,#7*8]..j|
00018860 0d 43 4d 50 20 52 31 2c 52 32 0d 90 74 12 41 44 |.CMP R1,R2..t.AD|
00018870 44 45 51 20 52 32 2c 52 32 2c 23 31 0d 90 7e 0d |DEQ R2,R2,#1..~.|
00018880 2e 6d 61 70 70 69 78 6c 70 0d 90 88 2e 4c 44 52 |.mappixlp....LDR|
00018890 42 20 52 39 2c 5b 52 31 5d 2c 23 73 74 65 70 32 |B R9,[R1],#step2|
000188a0 34 3a 4c 44 52 42 20 52 31 30 2c 5b 52 32 5d 2c |4:LDRB R10,[R2],|
000188b0 23 73 74 65 70 32 34 0d 90 92 3e 4c 44 52 20 52 |#step24...>LDR R|
000188c0 39 2c 5b 52 36 2c 52 39 2c 4c 53 4c 20 23 32 5d |9,[R6,R9,LSL #2]|
000188d0 3a 4c 44 52 20 52 31 30 2c 5b 52 37 2c 52 31 30 |:LDR R10,[R7,R10|
000188e0 2c 4c 53 4c 20 23 32 5d 3a 84 52 20 52 39 2c 52 |,LSL #2]:.R R9,R|
000188f0 39 2c 52 31 30 0d 90 9c 29 80 20 52 31 30 2c 52 |9,R10...). R10,R|
00018900 39 2c 23 32 35 35 3a 4c 44 52 20 52 31 30 2c 5b |9,#255:LDR R10,[|
00018910 52 33 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 0d 90 |R3,R10,LSL #2]..|
00018920 a6 3c 4d 4f 56 20 52 31 31 2c 52 39 2c 4c 53 52 |.<MOV R11,R9,LSR|
00018930 20 23 38 3a 80 20 52 31 31 2c 52 31 31 2c 23 32 | #8:. R11,R11,#2|
00018940 35 35 3a 4c 44 52 20 52 31 31 2c 5b 52 34 2c 52 |55:LDR R11,[R4,R|
00018950 31 31 2c 4c 53 4c 20 23 32 5d 0d 90 b0 2e 4d 4f |11,LSL #2]....MO|
00018960 56 20 52 31 32 2c 52 39 2c 4c 53 52 20 23 31 36 |V R12,R9,LSR #16|
00018970 3a 4c 44 52 20 52 31 32 2c 5b 52 35 2c 52 31 32 |:LDR R12,[R5,R12|
00018980 2c 4c 53 4c 20 23 32 5d 0d 90 ba 33 41 44 44 20 |,LSL #2]...3ADD |
00018990 52 31 30 2c 52 31 30 2c 52 31 31 3a 41 44 44 20 |R10,R10,R11:ADD |
000189a0 52 31 30 2c 52 31 30 2c 52 31 32 3a 53 54 4d 49 |R10,R10,R12:STMI|
000189b0 41 20 52 38 21 2c 7b 52 31 30 7d 0d 90 c4 1e 53 |A R8!,{R10}....S|
000189c0 55 42 53 20 52 30 2c 52 30 2c 23 31 3a 42 4e 45 |UBS R0,R0,#1:BNE|
000189d0 20 6d 61 70 70 69 78 6c 70 0d 90 ce 0f 4d 4f 56 | mappixlp....MOV|
000189e0 53 20 50 43 2c 52 31 34 0d 90 d8 05 5d 0d 90 e2 |S PC,R14....]...|
000189f0 08 c9 20 32 34 0d 90 ec 0a 5b 4f 50 54 20 5a 0d |.. 24....[OPT Z.|
00018a00 90 f6 0c 2e 6d 61 70 70 69 78 25 0d 91 00 10 4c |....mappix%....L|
00018a10 44 52 20 52 30 2c 73 78 6c 6f 63 0d 91 0a 20 4c |DR R0,sxloc... L|
00018a20 44 52 20 52 31 2c 5b 52 39 2c 23 32 2a 38 5d 3a |DR R1,[R9,#2*8]:|
00018a30 4c 44 52 20 52 31 2c 5b 52 31 5d 0d 91 14 1e 4c |LDR R1,[R1]....L|
00018a40 44 52 20 52 32 2c 5b 52 39 2c 23 38 5d 3a 4c 44 |DR R2,[R9,#8]:LD|
00018a50 52 20 52 32 2c 5b 52 32 5d 0d 91 1e 1b 4c 44 52 |R R2,[R2]....LDR|
00018a60 20 52 33 2c 5b 52 39 5d 3a 4c 44 52 20 52 33 2c | R3,[R9]:LDR R3,|
00018a70 5b 52 33 5d 0d 91 28 14 4c 44 52 20 52 34 2c 5b |[R3]..(.LDR R4,[|
00018a80 52 39 2c 23 35 2a 38 5d 0d 91 32 14 4c 44 52 20 |R9,#5*8]..2.LDR |
00018a90 52 35 2c 5b 52 39 2c 23 34 2a 38 5d 0d 91 3c 14 |R5,[R9,#4*8]..<.|
00018aa0 4c 44 52 20 52 36 2c 5b 52 39 2c 23 33 2a 38 5d |LDR R6,[R9,#3*8]|
00018ab0 0d 91 46 14 4c 44 52 20 52 37 2c 5b 52 39 2c 23 |..F.LDR R7,[R9,#|
00018ac0 36 2a 38 5d 0d 91 50 14 53 54 4d 46 44 20 53 50 |6*8]..P.STMFD SP|
00018ad0 20 21 2c 7b 52 31 34 7d 0d 91 5a 24 4d 4f 56 20 | !,{R14}..Z$MOV |
00018ae0 72 31 31 2c 23 30 3a 4d 4f 56 20 52 31 32 2c 23 |r11,#0:MOV R12,#|
00018af0 30 3a 4d 4f 56 20 52 31 34 2c 23 30 0d 91 64 0d |0:MOV R14,#0..d.|
00018b00 2e 6d 61 70 70 69 78 6c 70 0d 91 6e 43 4c 44 52 |.mappixlp..nCLDR|
00018b10 42 20 52 38 2c 5b 52 31 5d 2c 23 73 74 65 70 32 |B R8,[R1],#step2|
00018b20 34 3a 4c 44 52 42 20 52 39 2c 5b 52 32 5d 2c 23 |4:LDRB R9,[R2],#|
00018b30 73 74 65 70 32 34 3a 4c 44 52 42 20 52 31 30 2c |step24:LDRB R10,|
00018b40 5b 52 33 5d 2c 23 73 74 65 70 32 34 0d 91 78 05 |[R3],#step24..x.|
00018b50 5d 0d 91 82 12 e7 68 70 72 65 64 69 63 74 25 3d |].....hpredict%=|
00018b60 32 20 8c 0d 91 8c 0a 5b 4f 50 54 20 5a 0d 91 96 |2 .....[OPT Z...|
00018b70 11 41 44 44 20 72 38 2c 72 38 2c 72 31 31 0d 91 |.ADD r8,r8,r11..|
00018b80 a0 10 80 20 72 38 2c 72 38 2c 23 32 35 35 0d 91 |... r8,r8,#255..|
00018b90 aa 0e 4d 4f 56 20 72 31 31 2c 72 38 0d 91 b4 11 |..MOV r11,r8....|
00018ba0 41 44 44 20 72 39 2c 72 39 2c 72 31 32 0d 91 be |ADD r9,r9,r12...|
00018bb0 10 80 20 72 39 2c 72 39 2c 23 32 35 35 0d 91 c8 |.. r9,r9,#255...|
00018bc0 0e 4d 4f 56 20 72 31 32 2c 72 39 0d 91 d2 13 41 |.MOV r12,r9....A|
00018bd0 44 44 20 72 31 30 2c 72 31 30 2c 72 31 34 0d 91 |DD r10,r10,r14..|
00018be0 dc 12 80 20 72 31 30 2c 72 31 30 2c 23 32 35 35 |... r10,r10,#255|
00018bf0 0d 91 e6 0f 4d 4f 56 20 72 31 34 2c 72 31 30 0d |....MOV r14,r10.|
00018c00 91 f0 05 5d 0d 91 fa 05 cd 0d 92 04 0a 5b 4f 50 |...].........[OP|
00018c10 54 20 5a 0d 92 0e 47 4c 44 52 20 52 38 2c 5b 52 |T Z...GLDR R8,[R|
00018c20 34 2c 52 38 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 |4,R8,LSL #2]:LDR|
00018c30 20 52 39 2c 5b 52 35 2c 52 39 2c 4c 53 4c 20 23 | R9,[R5,R9,LSL #|
00018c40 32 5d 3a 4c 44 52 20 52 31 30 2c 5b 52 36 2c 52 |2]:LDR R10,[R6,R|
00018c50 31 30 2c 4c 53 4c 20 23 32 5d 0d 92 18 2d 41 44 |10,LSL #2]...-AD|
00018c60 44 20 52 38 2c 52 38 2c 52 39 3a 41 44 44 20 52 |D R8,R8,R9:ADD R|
00018c70 38 2c 52 38 2c 52 31 30 3a 53 54 52 20 52 38 2c |8,R8,R10:STR R8,|
00018c80 5b 52 37 5d 2c 23 34 0d 92 22 1e 53 55 42 53 20 |[R7],#4..".SUBS |
00018c90 52 30 2c 52 30 2c 23 31 3a 42 4e 45 20 6d 61 70 |R0,R0,#1:BNE map|
00018ca0 70 69 78 6c 70 0d 92 2c 14 4c 44 4d 46 44 20 53 |pixlp..,.LDMFD S|
00018cb0 50 20 21 2c 7b 50 43 7d 5e 0d 92 36 05 5d 0d 92 |P !,{PC}^..6.]..|
00018cc0 40 08 c9 20 34 38 0d 92 4a 0a 5b 4f 50 54 20 5a |@.. 48..J.[OPT Z|
00018cd0 0d 92 54 0c 2e 6d 61 70 70 69 78 25 0d 92 5e 10 |..T..mappix%..^.|
00018ce0 4c 44 52 20 52 30 2c 73 78 6c 6f 63 0d 92 68 20 |LDR R0,sxloc..h |
00018cf0 4c 44 52 20 52 31 2c 5b 52 39 2c 23 32 2a 38 5d |LDR R1,[R9,#2*8]|
00018d00 3a 4c 44 52 20 52 31 2c 5b 52 31 5d 0d 92 72 1e |:LDR R1,[R1]..r.|
00018d10 4c 44 52 20 52 32 2c 5b 52 39 2c 23 38 5d 3a 4c |LDR R2,[R9,#8]:L|
00018d20 44 52 20 52 32 2c 5b 52 32 5d 0d 92 7c 1b 4c 44 |DR R2,[R2]..|.LD|
00018d30 52 20 52 33 2c 5b 52 39 5d 3a 4c 44 52 20 52 33 |R R3,[R9]:LDR R3|
00018d40 2c 5b 52 33 5d 0d 92 86 14 4c 44 52 20 52 34 2c |,[R3]....LDR R4,|
00018d50 5b 52 39 2c 23 35 2a 38 5d 0d 92 90 14 4c 44 52 |[R9,#5*8]....LDR|
00018d60 20 52 35 2c 5b 52 39 2c 23 34 2a 38 5d 0d 92 9a | R5,[R9,#4*8]...|
00018d70 14 4c 44 52 20 52 36 2c 5b 52 39 2c 23 33 2a 38 |.LDR R6,[R9,#3*8|
00018d80 5d 0d 92 a4 14 4c 44 52 20 52 37 2c 5b 52 39 2c |]....LDR R7,[R9,|
00018d90 23 36 2a 38 5d 0d 92 ae 14 53 54 4d 46 44 20 53 |#6*8]....STMFD S|
00018da0 50 20 21 2c 7b 52 31 34 7d 0d 92 b8 3f 4d 4f 56 |P !,{R14}...?MOV|
00018db0 20 72 31 31 2c 23 63 6f 6c 6f 75 72 69 6e 64 65 | r11,#colourinde|
00018dc0 78 20 80 20 32 35 35 3a 41 44 44 20 72 31 31 2c |x . 255:ADD r11,|
00018dd0 72 31 31 2c 23 63 6f 6c 6f 75 72 69 6e 64 65 78 |r11,#colourindex|
00018de0 20 80 20 26 66 66 30 30 0d 92 c2 0d 2e 6d 61 70 | . &ff00.....map|
00018df0 70 69 78 6c 70 0d 92 cc 40 4c 44 52 20 52 38 2c |pixlp...@LDR R8,|
00018e00 5b 52 31 5d 2c 23 73 74 65 70 32 34 3a 4c 44 52 |[R1],#step24:LDR|
00018e10 20 52 39 2c 5b 52 32 5d 2c 23 73 74 65 70 32 34 | R9,[R2],#step24|
00018e20 3a 4c 44 52 20 52 31 30 2c 5b 52 33 5d 2c 23 73 |:LDR R10,[R3],#s|
00018e30 74 65 70 32 34 0d 92 d6 29 80 20 72 38 2c 72 38 |tep24...). r8,r8|
00018e40 2c 72 31 31 3a 80 20 72 39 2c 72 39 2c 72 31 31 |,r11:. r9,r9,r11|
00018e50 3a 80 20 72 31 30 2c 72 31 30 2c 72 31 31 0d 92 |:. r10,r10,r11..|
00018e60 e0 47 4c 44 52 20 52 38 2c 5b 52 34 2c 52 38 2c |.GLDR R8,[R4,R8,|
00018e70 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 39 2c 5b |LSL #2]:LDR R9,[|
00018e80 52 35 2c 52 39 2c 4c 53 4c 20 23 32 5d 3a 4c 44 |R5,R9,LSL #2]:LD|
00018e90 52 20 52 31 30 2c 5b 52 36 2c 52 31 30 2c 4c 53 |R R10,[R6,R10,LS|
00018ea0 4c 20 23 32 5d 0d 92 ea 2d 41 44 44 20 52 38 2c |L #2]...-ADD R8,|
00018eb0 52 38 2c 52 39 3a 41 44 44 20 52 38 2c 52 38 2c |R8,R9:ADD R8,R8,|
00018ec0 52 31 30 3a 53 54 52 20 52 38 2c 5b 52 37 5d 2c |R10:STR R8,[R7],|
00018ed0 23 34 0d 92 f4 1e 53 55 42 53 20 52 30 2c 52 30 |#4....SUBS R0,R0|
00018ee0 2c 23 31 3a 42 4e 45 20 6d 61 70 70 69 78 6c 70 |,#1:BNE mappixlp|
00018ef0 0d 92 fe 14 4c 44 4d 46 44 20 53 50 20 21 2c 7b |....LDMFD SP !,{|
00018f00 50 43 7d 5e 0d 93 08 05 5d 0d 93 12 09 c9 20 34 |PC}^....]..... 4|
00018f10 31 31 0d 93 1c 0a 5b 4f 50 54 20 5a 0d 93 26 0c |11....[OPT Z..&.|
00018f20 2e 6d 61 70 70 69 78 25 0d 93 30 10 4c 44 52 20 |.mappix%..0.LDR |
00018f30 52 30 2c 73 78 6c 6f 63 0d 93 3a 1b 4c 44 52 20 |R0,sxloc..:.LDR |
00018f40 52 31 2c 5b 52 39 5d 3a 4c 44 52 20 52 31 2c 5b |R1,[R9]:LDR R1,[|
00018f50 52 31 5d 0d 93 44 14 4c 44 52 20 52 34 2c 5b 52 |R1]..D.LDR R4,[R|
00018f60 39 2c 23 31 2a 38 5d 0d 93 4e 14 4c 44 52 20 52 |9,#1*8]..N.LDR R|
00018f70 37 2c 5b 52 39 2c 23 38 2a 38 5d 0d 93 58 0d 2e |7,[R9,#8*8]..X..|
00018f80 6d 61 70 70 69 78 6c 70 0d 93 62 13 4c 44 52 42 |mappixlp..b.LDRB|
00018f90 20 52 38 2c 5b 52 31 5d 2c 23 32 0d 93 6c 3e 4c | R8,[R1],#2..l>L|
00018fa0 44 52 20 52 38 2c 5b 52 34 2c 52 38 2c 4c 53 4c |DR R8,[R4,R8,LSL|
00018fb0 20 23 32 5d 3a 43 4d 50 20 52 38 2c 23 46 3a 4d | #2]:CMP R8,#F:M|
00018fc0 4f 56 43 53 20 52 38 2c 23 46 3a 53 54 52 20 52 |OVCS R8,#F:STR R|
00018fd0 38 2c 5b 52 37 5d 2c 23 34 0d 93 76 1e 53 55 42 |8,[R7],#4..v.SUB|
00018fe0 53 20 52 30 2c 52 30 2c 23 31 3a 42 4e 45 20 6d |S R0,R0,#1:BNE m|
00018ff0 61 70 70 69 78 6c 70 0d 93 80 0f 4d 4f 56 53 20 |appixlp....MOVS |
00019000 50 43 2c 52 31 34 0d 93 8a 05 5d 0d 93 94 09 c9 |PC,R14....].....|
00019010 20 34 32 32 0d 93 9e 0a 5b 4f 50 54 20 5a 0d 93 | 422....[OPT Z..|
00019020 a8 0c 2e 6d 61 70 70 69 78 25 0d 93 b2 10 4c 44 |...mappix%....LD|
00019030 52 20 52 30 2c 73 78 6c 6f 63 0d 93 bc 1b 4c 44 |R R0,sxloc....LD|
00019040 52 20 52 31 2c 5b 52 39 5d 3a 4c 44 52 20 52 31 |R R1,[R9]:LDR R1|
00019050 2c 5b 52 31 5d 0d 93 c6 10 41 44 44 20 52 31 2c |,[R1]....ADD R1,|
00019060 52 31 2c 23 31 0d 93 d0 14 4c 44 52 20 52 34 2c |R1,#1....LDR R4,|
00019070 5b 52 39 2c 23 31 2a 38 5d 0d 93 da 14 4c 44 52 |[R9,#1*8]....LDR|
00019080 20 52 37 2c 5b 52 39 2c 23 38 2a 38 5d 0d 93 e4 | R7,[R9,#8*8]...|
00019090 0d 2e 6d 61 70 70 69 78 6c 70 0d 93 ee 13 4c 44 |..mappixlp....LD|
000190a0 52 42 20 52 38 2c 5b 52 31 5d 2c 23 32 0d 93 f8 |RB R8,[R1],#2...|
000190b0 3e 4c 44 52 20 52 38 2c 5b 52 34 2c 52 38 2c 4c |>LDR R8,[R4,R8,L|
000190c0 53 4c 20 23 32 5d 3a 43 4d 50 20 52 38 2c 23 46 |SL #2]:CMP R8,#F|
000190d0 3a 4d 4f 56 43 53 20 52 38 2c 23 46 3a 53 54 52 |:MOVCS R8,#F:STR|
000190e0 20 52 38 2c 5b 52 37 5d 2c 23 34 0d 94 02 1e 53 | R8,[R7],#4....S|
000190f0 55 42 53 20 52 30 2c 52 30 2c 23 31 3a 42 4e 45 |UBS R0,R0,#1:BNE|
00019100 20 6d 61 70 70 69 78 6c 70 0d 94 0c 0f 4d 4f 56 | mappixlp....MOV|
00019110 53 20 50 43 2c 52 31 34 0d 94 16 05 5d 0d 94 20 |S PC,R14....].. |
00019120 09 c9 20 35 35 35 0d 94 2a 0a 5b 4f 50 54 20 5a |.. 555..*.[OPT Z|
00019130 0d 94 34 0c 2e 6d 61 70 70 69 78 25 0d 94 3e 10 |..4..mappix%..>.|
00019140 4c 44 52 20 52 30 2c 73 78 6c 6f 63 0d 94 48 1b |LDR R0,sxloc..H.|
00019150 4c 44 52 20 52 31 2c 5b 52 39 5d 3a 4c 44 52 20 |LDR R1,[R9]:LDR |
00019160 52 31 2c 5b 52 31 5d 0d 94 52 10 41 44 44 20 52 |R1,[R1]..R.ADD R|
00019170 31 2c 52 31 2c 23 31 0d 94 5c 14 4c 44 52 20 52 |1,R1,#1..\.LDR R|
00019180 34 2c 5b 52 39 2c 23 31 2a 38 5d 0d 94 66 14 4c |4,[R9,#1*8]..f.L|
00019190 44 52 20 52 37 2c 5b 52 39 2c 23 38 2a 38 5d 0d |DR R7,[R9,#8*8].|
000191a0 94 70 0d 2e 6d 61 70 70 69 78 6c 70 0d 94 7a 13 |.p..mappixlp..z.|
000191b0 4c 44 52 42 20 52 38 2c 5b 52 31 5d 2c 23 32 0d |LDRB R8,[R1],#2.|
000191c0 94 84 12 80 20 52 38 2c 52 38 2c 23 79 6d 61 78 |.... R8,R8,#ymax|
000191d0 25 0d 94 8e 3e 4c 44 52 20 52 38 2c 5b 52 34 2c |%...>LDR R8,[R4,|
000191e0 52 38 2c 4c 53 4c 20 23 32 5d 3a 43 4d 50 20 52 |R8,LSL #2]:CMP R|
000191f0 38 2c 23 46 3a 4d 4f 56 43 53 20 52 38 2c 23 46 |8,#F:MOVCS R8,#F|
00019200 3a 53 54 52 20 52 38 2c 5b 52 37 5d 2c 23 34 0d |:STR R8,[R7],#4.|
00019210 94 98 1e 53 55 42 53 20 52 30 2c 52 30 2c 23 31 |...SUBS R0,R0,#1|
00019220 3a 42 4e 45 20 6d 61 70 70 69 78 6c 70 0d 94 a2 |:BNE mappixlp...|
00019230 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d 94 ac 05 |.MOVS PC,R14....|
00019240 5d 0d 94 b6 05 cb 0d 94 c0 18 e7 78 6d 75 6c 25 |]..........xmul%|
00019250 3d 32 20 80 20 78 64 69 76 25 3d 31 20 8c 0d 94 |=2 . xdiv%=1 ...|
00019260 ca 0a 5b 4f 50 54 20 5a 0d 94 de 0d 2e 78 73 61 |..[OPT Z.....xsa|
00019270 6d 70 6c 65 25 0d 94 e8 1b 4c 44 52 20 52 30 2c |mple%....LDR R0,|
00019280 5b 52 39 5d 3a 4c 44 52 20 52 30 2c 5b 52 30 5d |[R9]:LDR R0,[R0]|
00019290 0d 94 f2 12 4c 44 52 20 52 31 2c 5b 52 39 2c 23 |....LDR R1,[R9,#|
000192a0 38 5d 0d 94 fc 14 4c 44 52 20 52 32 2c 5b 52 39 |8]....LDR R2,[R9|
000192b0 2c 23 32 2a 38 5d 0d 95 06 11 53 55 42 53 20 52 |,#2*8]....SUBS R|
000192c0 30 2c 52 30 2c 23 32 0d 95 10 10 42 45 51 20 78 |0,R0,#2....BEQ x|
000192d0 64 6f 6e 65 64 69 76 0d 95 1a 10 42 4d 49 20 78 |donediv....BMI x|
000192e0 64 6f 6e 65 64 69 76 0d 95 24 0e 2e 78 73 61 6d |donediv..$..xsam|
000192f0 70 6c 65 6c 70 0d 95 2e 14 4c 44 4d 49 41 20 52 |plelp....LDMIA R|
00019300 31 2c 7b 52 35 2c 52 36 7d 0d 95 38 10 41 44 44 |1,{R5,R6}..8.ADD|
00019310 20 52 36 2c 52 36 2c 52 35 0d 95 42 14 4d 4f 56 | R6,R6,R5..B.MOV|
00019320 20 52 36 2c 52 36 2c 4c 53 52 20 23 31 0d 95 4c | R6,R6,LSR #1..L|
00019330 15 53 54 4d 49 41 20 52 32 21 2c 7b 52 35 2c 52 |.STMIA R2!,{R5,R|
00019340 36 7d 0d 95 56 10 41 44 44 20 52 31 2c 52 31 2c |6}..V.ADD R1,R1,|
00019350 23 34 0d 95 60 1f 53 55 42 53 20 52 30 2c 52 30 |#4..`.SUBS R0,R0|
00019360 2c 23 32 3a 42 47 54 20 78 73 61 6d 70 6c 65 6c |,#2:BGT xsamplel|
00019370 70 0d 95 6a 0d 2e 78 64 6f 6e 65 64 69 76 0d 95 |p..j..xdonediv..|
00019380 74 11 4c 44 4d 49 41 20 52 31 2c 7b 52 35 7d 0d |t.LDMIA R1,{R5}.|
00019390 95 7e 0d 4d 4f 56 20 52 36 2c 52 35 0d 95 88 15 |.~.MOV R6,R5....|
000193a0 53 54 4d 49 41 20 52 32 21 2c 7b 52 35 2c 52 36 |STMIA R2!,{R5,R6|
000193b0 7d 0d 95 92 0f 4d 4f 56 53 20 50 43 2c 52 31 34 |}....MOVS PC,R14|
000193c0 0d 95 9c 05 5d 0d 95 a6 05 cc 0d 95 b0 0a 5b 4f |....].........[O|
000193d0 50 54 20 5a 0d 95 c4 0d 2e 78 73 61 6d 70 6c 65 |PT Z.....xsample|
000193e0 25 0d 95 ce 1b 4c 44 52 20 52 30 2c 5b 52 39 5d |%....LDR R0,[R9]|
000193f0 3a 4c 44 52 20 52 30 2c 5b 52 30 5d 0d 95 d8 12 |:LDR R0,[R0]....|
00019400 4c 44 52 20 52 31 2c 5b 52 39 2c 23 38 5d 0d 95 |LDR R1,[R9,#8]..|
00019410 e2 14 4c 44 52 20 52 32 2c 5b 52 39 2c 23 32 2a |..LDR R2,[R9,#2*|
00019420 38 5d 0d 95 ec 20 4c 44 52 20 52 33 2c 5b 52 39 |8]... LDR R3,[R9|
00019430 2c 23 33 2a 38 5d 3a 4c 44 52 20 52 33 2c 5b 52 |,#3*8]:LDR R3,[R|
00019440 33 5d 0d 95 f6 20 4c 44 52 20 52 34 2c 5b 52 39 |3]... LDR R4,[R9|
00019450 2c 23 34 2a 38 5d 3a 4c 44 52 20 52 34 2c 5b 52 |,#4*8]:LDR R4,[R|
00019460 34 5d 0d 96 00 0e 4d 4f 56 20 52 31 31 2c 52 34 |4]....MOV R11,R4|
00019470 0d 96 0a 0e 2e 78 73 61 6d 70 6c 65 6c 70 0d 96 |.....xsamplelp..|
00019480 14 11 4c 44 4d 49 41 20 52 31 2c 7b 52 35 7d 0d |..LDMIA R1,{R5}.|
00019490 96 1e 2c 53 55 42 53 20 52 31 31 2c 52 31 31 2c |..,SUBS R11,R11,|
000194a0 23 31 3a ec 51 20 52 31 31 2c 52 34 3a 41 44 44 |#1:.Q R11,R4:ADD|
000194b0 45 51 20 52 31 2c 52 31 2c 23 34 0d 96 28 12 53 |EQ R1,R1,#4..(.S|
000194c0 55 42 53 20 52 31 32 2c 52 33 2c 23 31 0d 96 32 |UBS R12,R3,#1..2|
000194d0 10 42 45 51 20 78 64 6f 6e 65 64 69 76 0d 96 3c |.BEQ xdonediv..<|
000194e0 0b 2e 78 64 69 76 6c 70 0d 96 46 0f 43 4d 50 20 |..xdivlp..F.CMP |
000194f0 52 31 32 2c 52 31 31 0d 96 50 0f 42 43 43 20 78 |R12,R11..P.BCC x|
00019500 64 69 76 6c 70 32 0d 96 5a 23 4c 44 4d 49 41 20 |divlp2..Z#LDMIA |
00019510 52 31 21 2c 7b 52 38 7d 3a 4d 4c 41 20 52 35 2c |R1!,{R8}:MLA R5,|
00019520 52 38 2c 52 31 31 2c 52 35 0d 96 64 1f 53 55 42 |R8,R11,R5..d.SUB|
00019530 53 20 52 31 32 2c 52 31 32 2c 52 31 31 3a 4d 4f |S R12,R12,R11:MO|
00019540 56 20 52 31 31 2c 52 34 0d 96 6e 0e 42 4e 45 20 |V R11,R4..n.BNE |
00019550 78 64 69 76 6c 70 0d 96 78 0e 42 20 78 64 6f 6e |xdivlp..x.B xdon|
00019560 65 64 69 76 0d 96 82 0c 2e 78 64 69 76 6c 70 32 |ediv.....xdivlp2|
00019570 0d 96 8c 11 4c 44 4d 49 41 20 52 31 2c 7b 52 38 |....LDMIA R1,{R8|
00019580 7d 0d 96 96 2c 53 55 42 53 20 52 31 31 2c 52 31 |}...,SUBS R11,R1|
00019590 31 2c 23 31 3a ec 51 20 52 31 31 2c 52 34 3a 41 |1,#1:.Q R11,R4:A|
000195a0 44 44 45 51 20 52 31 2c 52 31 2c 23 34 0d 96 a0 |DDEQ R1,R1,#4...|
000195b0 10 41 44 44 20 52 35 2c 52 35 2c 52 38 0d 96 aa |.ADD R5,R5,R8...|
000195c0 1e 53 55 42 53 20 52 31 32 2c 52 31 32 2c 23 31 |.SUBS R12,R12,#1|
000195d0 3a 42 4e 45 20 78 64 69 76 6c 70 0d 96 b4 0d 2e |:BNE xdivlp.....|
000195e0 78 64 6f 6e 65 64 69 76 0d 96 be 12 53 54 4d 49 |xdonediv....STMI|
000195f0 41 20 52 32 21 2c 7b 52 35 7d 0d 96 c8 1f 53 55 |A R2!,{R5}....SU|
00019600 42 53 20 52 30 2c 52 30 2c 23 31 3a 42 50 4c 20 |BS R0,R0,#1:BPL |
00019610 78 73 61 6d 70 6c 65 6c 70 0d 96 d2 0f 4d 4f 56 |xsamplelp....MOV|
00019620 53 20 50 43 2c 52 31 34 0d 96 dc 05 5d 0d 96 e6 |S PC,R14....]...|
00019630 05 cd 0d 96 f0 07 c9 20 32 0d 96 fa 0f e7 69 6e |....... 2.....in|
00019640 70 75 74 3c 3d 38 20 8c 0d 97 04 0a 5b 4f 50 54 |put<=8 .....[OPT|
00019650 20 5a 0d 97 0e 0c 2e 6d 61 70 70 69 78 25 0d 97 | Z.....mappix%..|
00019660 18 10 4c 44 52 20 52 30 2c 73 78 6c 6f 63 0d 97 |..LDR R0,sxloc..|
00019670 22 1b 4c 44 52 20 52 31 2c 5b 52 39 5d 3a 4c 44 |".LDR R1,[R9]:LD|
00019680 52 20 52 31 2c 5b 52 31 5d 0d 97 2c 14 4c 44 52 |R R1,[R1]..,.LDR|
00019690 20 52 32 2c 5b 52 39 2c 23 33 2a 38 5d 0d 97 36 | R2,[R9,#3*8]..6|
000196a0 14 4c 44 52 20 52 33 2c 5b 52 39 2c 23 32 2a 38 |.LDR R3,[R9,#2*8|
000196b0 5d 0d 97 40 12 4c 44 52 20 52 34 2c 5b 52 39 2c |]..@.LDR R4,[R9,|
000196c0 23 38 5d 0d 97 4a 14 4c 44 52 20 52 35 2c 5b 52 |#8]..J.LDR R5,[R|
000196d0 39 2c 23 34 2a 38 5d 0d 97 54 0e 4d 4f 56 20 52 |9,#4*8]..T.MOV R|
000196e0 31 30 2c 23 30 0d 97 5e 0d 2e 6d 61 70 70 69 78 |10,#0..^..mappix|
000196f0 6c 70 0d 97 68 18 4c 44 52 42 20 52 36 2c 5b 52 |lp..h.LDRB R6,[R|
00019700 31 5d 2c 23 73 74 65 70 32 34 0d 97 72 05 5d 0d |1],#step24..r.].|
00019710 97 7c 05 cd 0d 97 86 0e c8 8e 20 69 6e 70 75 74 |.|........ input|
00019720 20 ca 0d 97 90 07 c9 20 38 0d 97 9a 0a e7 68 61 | ...... 8.....ha|
00019730 6d 20 8c 0d 97 a4 0a 5b 4f 50 54 20 5a 0d 97 ae |m .....[OPT Z...|
00019740 11 41 44 52 20 52 39 2c 6c 74 61 62 6c 65 0d 97 |.ADR R9,ltable..|
00019750 b8 21 4d 4f 56 53 20 52 37 2c 52 36 2c 4c 53 52 |.!MOVS R7,R6,LSR|
00019760 20 23 34 3a 80 20 52 36 2c 52 36 2c 23 31 35 0d | #4:. R6,R6,#15.|
00019770 97 c2 4e 4c 44 52 45 51 20 52 31 30 2c 5b 52 32 |..NLDREQ R10,[R2|
00019780 2c 52 36 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 45 |,R6,LSL #2]:LDRE|
00019790 51 20 52 31 31 2c 5b 52 33 2c 52 36 2c 4c 53 4c |Q R11,[R3,R6,LSL|
000197a0 20 23 32 5d 3a 4c 44 52 45 51 20 52 31 32 2c 5b | #2]:LDREQ R12,[|
000197b0 52 34 2c 52 36 2c 4c 53 4c 20 23 32 5d 0d 97 cc |R4,R6,LSL #2]...|
000197c0 26 43 4d 50 20 52 37 2c 23 31 3a 4c 44 52 45 51 |&CMP R7,#1:LDREQ|
000197d0 20 52 31 32 2c 5b 52 39 2c 52 36 2c 4c 53 4c 20 | R12,[R9,R6,LSL |
000197e0 23 32 5d 0d 97 d6 26 43 4d 50 20 52 37 2c 23 32 |#2]...&CMP R7,#2|
000197f0 3a 4c 44 52 45 51 20 52 31 30 2c 5b 52 39 2c 52 |:LDREQ R10,[R9,R|
00019800 36 2c 4c 53 4c 20 23 32 5d 0d 97 e0 26 43 4d 50 |6,LSL #2]...&CMP|
00019810 20 52 37 2c 23 33 3a 4c 44 52 45 51 20 52 31 31 | R7,#3:LDREQ R11|
00019820 2c 5b 52 39 2c 52 36 2c 4c 53 4c 20 23 32 5d 0d |,[R9,R6,LSL #2].|
00019830 97 ea 1b 53 54 4d 49 41 20 52 35 21 2c 7b 52 31 |...STMIA R5!,{R1|
00019840 30 2c 52 31 31 2c 52 31 32 7d 0d 97 f4 1e 53 55 |0,R11,R12}....SU|
00019850 42 53 20 52 30 2c 52 30 2c 23 31 3a 42 4e 45 20 |BS R0,R0,#1:BNE |
00019860 6d 61 70 70 69 78 6c 70 0d 97 fe 0f 4d 4f 56 53 |mappixlp....MOVS|
00019870 20 50 43 2c 52 31 34 0d 98 08 0b 2e 6c 74 61 62 | PC,R14.....ltab|
00019880 6c 65 0d 98 12 05 5d 0d 98 1c 0c e3 49 25 3d 30 |le....].....I%=0|
00019890 b8 31 35 0d 98 26 0a 5b 4f 50 54 20 5a 0d 98 30 |.15..&.[OPT Z..0|
000198a0 10 45 51 55 44 20 49 25 2f 31 35 2a 46 0d 98 3a |.EQUD I%/15*F..:|
000198b0 05 5d 0d 98 44 05 ed 0d 98 4e 05 cc 0d 98 58 12 |.]..D....N....X.|
000198c0 e7 68 70 72 65 64 69 63 74 25 3d 32 20 8c 0d 98 |.hpredict%=2 ...|
000198d0 62 0a 5b 4f 50 54 20 5a 0d 98 6c 11 41 44 44 20 |b.[OPT Z..l.ADD |
000198e0 52 36 2c 52 36 2c 52 31 30 0d 98 76 10 80 20 52 |R6,R6,R10..v.. R|
000198f0 36 2c 52 36 2c 23 32 35 35 0d 98 80 0e 4d 4f 56 |6,R6,#255....MOV|
00019900 20 52 31 30 2c 52 36 0d 98 8a 05 5d 0d 98 94 05 | R10,R6....]....|
00019910 cd 0d 98 9e 0a 5b 4f 50 54 20 5a 0d 98 a8 45 4c |.....[OPT Z...EL|
00019920 44 52 20 52 37 2c 5b 52 32 2c 52 36 2c 4c 53 4c |DR R7,[R2,R6,LSL|
00019930 20 23 32 5d 3a 4c 44 52 20 52 38 2c 5b 52 33 2c | #2]:LDR R8,[R3,|
00019940 52 36 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 |R6,LSL #2]:LDR R|
00019950 39 2c 5b 52 34 2c 52 36 2c 4c 53 4c 20 23 32 5d |9,[R4,R6,LSL #2]|
00019960 0d 98 b2 18 53 54 4d 49 41 20 52 35 21 2c 7b 52 |....STMIA R5!,{R|
00019970 37 2c 52 38 2c 52 39 7d 0d 98 bc 1e 53 55 42 53 |7,R8,R9}....SUBS|
00019980 20 52 30 2c 52 30 2c 23 31 3a 42 4e 45 20 6d 61 | R0,R0,#1:BNE ma|
00019990 70 70 69 78 6c 70 0d 98 c6 0f 4d 4f 56 53 20 50 |ppixlp....MOVS P|
000199a0 43 2c 52 31 34 0d 98 d0 05 5d 0d 98 da 05 cd 0d |C,R14....]......|
000199b0 98 e4 07 c9 20 34 0d 98 ee 14 e7 62 69 67 65 6e |.... 4.....bigen|
000199c0 64 69 61 6e 62 69 74 73 20 8c 0d 98 f8 0a 5b 4f |dianbits .....[O|
000199d0 50 54 20 5a 0d 99 02 15 4d 4f 56 20 52 31 30 2c |PT Z....MOV R10,|
000199e0 52 36 2c 4c 53 52 20 23 34 0d 99 0c 48 4c 44 52 |R6,LSR #4...HLDR|
000199f0 20 52 37 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 | R7,[R2,R10,LSL |
00019a00 23 32 5d 3a 4c 44 52 20 52 38 2c 5b 52 33 2c 52 |#2]:LDR R8,[R3,R|
00019a10 31 30 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 |10,LSL #2]:LDR R|
00019a20 39 2c 5b 52 34 2c 52 31 30 2c 4c 53 4c 20 23 32 |9,[R4,R10,LSL #2|
00019a30 5d 0d 99 16 18 53 54 4d 49 41 20 52 35 21 2c 7b |]....STMIA R5!,{|
00019a40 52 37 2c 52 38 2c 52 39 7d 0d 99 20 10 80 20 52 |R7,R8,R9}.. .. R|
00019a50 31 30 2c 52 36 2c 23 26 46 0d 99 2a 05 5d 0d 99 |10,R6,#&F..*.]..|
00019a60 34 05 cc 0d 99 3e 0a 5b 4f 50 54 20 5a 0d 99 48 |4....>.[OPT Z..H|
00019a70 10 80 20 52 31 30 2c 52 36 2c 23 26 46 0d 99 52 |.. R10,R6,#&F..R|
00019a80 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 30 2c |HLDR R7,[R2,R10,|
00019a90 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 38 2c 5b |LSL #2]:LDR R8,[|
00019aa0 52 33 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 3a 4c |R3,R10,LSL #2]:L|
00019ab0 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c 4c 53 |DR R9,[R4,R10,LS|
00019ac0 4c 20 23 32 5d 0d 99 5c 18 53 54 4d 49 41 20 52 |L #2]..\.STMIA R|
00019ad0 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 99 66 |5!,{R7,R8,R9}..f|
00019ae0 15 4d 4f 56 20 52 31 30 2c 52 36 2c 4c 53 52 20 |.MOV R10,R6,LSR |
00019af0 23 34 0d 99 70 05 5d 0d 99 7a 05 cd 0d 99 84 0a |#4..p.]..z......|
00019b00 5b 4f 50 54 20 5a 0d 99 8e 48 4c 44 52 20 52 37 |[OPT Z...HLDR R7|
00019b10 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 23 32 5d |,[R2,R10,LSL #2]|
00019b20 3a 4c 44 52 20 52 38 2c 5b 52 33 2c 52 31 30 2c |:LDR R8,[R3,R10,|
00019b30 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 39 2c 5b |LSL #2]:LDR R9,[|
00019b40 52 34 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 0d 99 |R4,R10,LSL #2]..|
00019b50 98 18 53 54 4d 49 41 20 52 35 21 2c 7b 52 37 2c |..STMIA R5!,{R7,|
00019b60 52 38 2c 52 39 7d 0d 99 a2 1e 53 55 42 53 20 52 |R8,R9}....SUBS R|
00019b70 30 2c 52 30 2c 23 32 3a 42 48 49 20 6d 61 70 70 |0,R0,#2:BHI mapp|
00019b80 69 78 6c 70 0d 99 ac 0f 4d 4f 56 53 20 50 43 2c |ixlp....MOVS PC,|
00019b90 52 31 34 0d 99 b6 05 5d 0d 99 c0 07 c9 20 32 0d |R14....]..... 2.|
00019ba0 99 ca 14 e7 62 69 67 65 6e 64 69 61 6e 62 69 74 |....bigendianbit|
00019bb0 73 20 8c 0d 99 d4 0a 5b 4f 50 54 20 5a 0d 99 de |s .....[OPT Z...|
00019bc0 15 4d 4f 56 20 52 31 30 2c 52 36 2c 4c 53 52 20 |.MOV R10,R6,LSR |
00019bd0 23 36 0d 99 e8 48 4c 44 52 20 52 37 2c 5b 52 32 |#6...HLDR R7,[R2|
00019be0 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 |,R10,LSL #2]:LDR|
00019bf0 20 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 4c 20 | R8,[R3,R10,LSL |
00019c00 23 32 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 |#2]:LDR R9,[R4,R|
00019c10 31 30 2c 4c 53 4c 20 23 32 5d 0d 99 f2 18 53 54 |10,LSL #2]....ST|
00019c20 4d 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 |MIA R5!,{R7,R8,R|
00019c30 39 7d 0d 99 fc 11 80 20 52 31 30 2c 52 36 2c 23 |9}..... R10,R6,#|
00019c40 26 33 30 0d 9a 06 48 4c 44 52 20 52 37 2c 5b 52 |&30...HLDR R7,[R|
00019c50 32 2c 52 31 30 2c 4c 53 52 20 23 32 5d 3a 4c 44 |2,R10,LSR #2]:LD|
00019c60 52 20 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 |R R8,[R3,R10,LSR|
00019c70 20 23 32 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c | #2]:LDR R9,[R4,|
00019c80 52 31 30 2c 4c 53 52 20 23 32 5d 0d 9a 10 18 53 |R10,LSR #2]....S|
00019c90 54 4d 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c |TMIA R5!,{R7,R8,|
00019ca0 52 39 7d 0d 9a 1a 10 80 20 52 31 30 2c 52 36 2c |R9}..... R10,R6,|
00019cb0 23 26 43 0d 9a 24 33 4c 44 52 20 52 37 2c 5b 52 |#&C..$3LDR R7,[R|
00019cc0 32 2c 52 31 30 5d 3a 4c 44 52 20 52 38 2c 5b 52 |2,R10]:LDR R8,[R|
00019cd0 33 2c 52 31 30 5d 3a 4c 44 52 20 52 39 2c 5b 52 |3,R10]:LDR R9,[R|
00019ce0 34 2c 52 31 30 5d 0d 9a 2e 18 53 54 4d 49 41 20 |4,R10]....STMIA |
00019cf0 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9a |R5!,{R7,R8,R9}..|
00019d00 38 10 80 20 52 31 30 2c 52 36 2c 23 26 33 0d 9a |8.. R10,R6,#&3..|
00019d10 42 05 5d 0d 9a 4c 05 cc 0d 9a 56 0a 5b 4f 50 54 |B.]..L....V.[OPT|
00019d20 20 5a 0d 9a 60 10 80 20 52 31 30 2c 52 36 2c 23 | Z..`.. R10,R6,#|
00019d30 26 33 0d 9a 6a 48 4c 44 52 20 52 37 2c 5b 52 32 |&3..jHLDR R7,[R2|
00019d40 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 |,R10,LSL #2]:LDR|
00019d50 20 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 4c 20 | R8,[R3,R10,LSL |
00019d60 23 32 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 |#2]:LDR R9,[R4,R|
00019d70 31 30 2c 4c 53 4c 20 23 32 5d 0d 9a 74 18 53 54 |10,LSL #2]..t.ST|
00019d80 4d 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 |MIA R5!,{R7,R8,R|
00019d90 39 7d 0d 9a 7e 10 80 20 52 31 30 2c 52 36 2c 23 |9}..~.. R10,R6,#|
00019da0 26 43 0d 9a 88 33 4c 44 52 20 52 37 2c 5b 52 32 |&C...3LDR R7,[R2|
00019db0 2c 52 31 30 5d 3a 4c 44 52 20 52 38 2c 5b 52 33 |,R10]:LDR R8,[R3|
00019dc0 2c 52 31 30 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 |,R10]:LDR R9,[R4|
00019dd0 2c 52 31 30 5d 0d 9a 92 18 53 54 4d 49 41 20 52 |,R10]....STMIA R|
00019de0 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9a 9c |5!,{R7,R8,R9}...|
00019df0 11 80 20 52 31 30 2c 52 36 2c 23 26 33 30 0d 9a |.. R10,R6,#&30..|
00019e00 a6 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 30 |.HLDR R7,[R2,R10|
00019e10 2c 4c 53 52 20 23 32 5d 3a 4c 44 52 20 52 38 2c |,LSR #2]:LDR R8,|
00019e20 5b 52 33 2c 52 31 30 2c 4c 53 52 20 23 32 5d 3a |[R3,R10,LSR #2]:|
00019e30 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c 4c |LDR R9,[R4,R10,L|
00019e40 53 52 20 23 32 5d 0d 9a b0 18 53 54 4d 49 41 20 |SR #2]....STMIA |
00019e50 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9a |R5!,{R7,R8,R9}..|
00019e60 ba 15 4d 4f 56 20 52 31 30 2c 52 36 2c 4c 53 52 |..MOV R10,R6,LSR|
00019e70 20 23 36 0d 9a c4 05 5d 0d 9a ce 05 cd 0d 9a d8 | #6....]........|
00019e80 0a 5b 4f 50 54 20 5a 0d 9a e2 48 4c 44 52 20 52 |.[OPT Z...HLDR R|
00019e90 37 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 23 32 |7,[R2,R10,LSL #2|
00019ea0 5d 3a 4c 44 52 20 52 38 2c 5b 52 33 2c 52 31 30 |]:LDR R8,[R3,R10|
00019eb0 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 39 2c |,LSL #2]:LDR R9,|
00019ec0 5b 52 34 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 0d |[R4,R10,LSL #2].|
00019ed0 9a ec 18 53 54 4d 49 41 20 52 35 21 2c 7b 52 37 |...STMIA R5!,{R7|
00019ee0 2c 52 38 2c 52 39 7d 0d 9a f6 1e 53 55 42 53 20 |,R8,R9}....SUBS |
00019ef0 52 30 2c 52 30 2c 23 34 3a 42 48 49 20 6d 61 70 |R0,R0,#4:BHI map|
00019f00 70 69 78 6c 70 0d 9b 00 0f 4d 4f 56 53 20 50 43 |pixlp....MOVS PC|
00019f10 2c 52 31 34 0d 9b 0a 05 5d 0d 9b 14 07 c9 20 31 |,R14....]..... 1|
00019f20 0d 9b 1e 14 e7 62 69 67 65 6e 64 69 61 6e 62 69 |.....bigendianbi|
00019f30 74 73 20 8c 0d 9b 28 0a 5b 4f 50 54 20 5a 0d 9b |ts ...(.[OPT Z..|
00019f40 32 11 80 20 52 31 30 2c 52 36 2c 23 26 38 30 0d |2.. R10,R6,#&80.|
00019f50 9b 3c 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 |.<HLDR R7,[R2,R1|
00019f60 30 2c 4c 53 52 20 23 35 5d 3a 4c 44 52 20 52 38 |0,LSR #5]:LDR R8|
00019f70 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 20 23 35 5d |,[R3,R10,LSR #5]|
00019f80 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c |:LDR R9,[R4,R10,|
00019f90 4c 53 52 20 23 35 5d 0d 9b 46 18 53 54 4d 49 41 |LSR #5]..F.STMIA|
00019fa0 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d | R5!,{R7,R8,R9}.|
00019fb0 9b 50 11 80 20 52 31 30 2c 52 36 2c 23 26 34 30 |.P.. R10,R6,#&40|
00019fc0 0d 9b 5a 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 |..ZHLDR R7,[R2,R|
00019fd0 31 30 2c 4c 53 52 20 23 34 5d 3a 4c 44 52 20 52 |10,LSR #4]:LDR R|
00019fe0 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 20 23 34 |8,[R3,R10,LSR #4|
00019ff0 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 |]:LDR R9,[R4,R10|
0001a000 2c 4c 53 52 20 23 34 5d 0d 9b 64 18 53 54 4d 49 |,LSR #4]..d.STMI|
0001a010 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d |A R5!,{R7,R8,R9}|
0001a020 0d 9b 6e 11 80 20 52 31 30 2c 52 36 2c 23 26 32 |..n.. R10,R6,#&2|
0001a030 30 0d 9b 78 48 4c 44 52 20 52 37 2c 5b 52 32 2c |0..xHLDR R7,[R2,|
0001a040 52 31 30 2c 4c 53 52 20 23 33 5d 3a 4c 44 52 20 |R10,LSR #3]:LDR |
0001a050 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 20 23 |R8,[R3,R10,LSR #|
0001a060 33 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 |3]:LDR R9,[R4,R1|
0001a070 30 2c 4c 53 52 20 23 33 5d 0d 9b 82 18 53 54 4d |0,LSR #3]....STM|
0001a080 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 |IA R5!,{R7,R8,R9|
0001a090 7d 0d 9b 8c 11 80 20 52 31 30 2c 52 36 2c 23 26 |}..... R10,R6,#&|
0001a0a0 31 30 0d 9b 96 48 4c 44 52 20 52 37 2c 5b 52 32 |10...HLDR R7,[R2|
0001a0b0 2c 52 31 30 2c 4c 53 52 20 23 32 5d 3a 4c 44 52 |,R10,LSR #2]:LDR|
0001a0c0 20 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 20 | R8,[R3,R10,LSR |
0001a0d0 23 32 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 |#2]:LDR R9,[R4,R|
0001a0e0 31 30 2c 4c 53 52 20 23 32 5d 0d 9b a0 18 53 54 |10,LSR #2]....ST|
0001a0f0 4d 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 |MIA R5!,{R7,R8,R|
0001a100 39 7d 0d 9b aa 10 80 20 52 31 30 2c 52 36 2c 23 |9}..... R10,R6,#|
0001a110 26 38 0d 9b b4 48 4c 44 52 20 52 37 2c 5b 52 32 |&8...HLDR R7,[R2|
0001a120 2c 52 31 30 2c 4c 53 52 20 23 31 5d 3a 4c 44 52 |,R10,LSR #1]:LDR|
0001a130 20 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 20 | R8,[R3,R10,LSR |
0001a140 23 31 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 |#1]:LDR R9,[R4,R|
0001a150 31 30 2c 4c 53 52 20 23 31 5d 0d 9b be 18 53 54 |10,LSR #1]....ST|
0001a160 4d 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 |MIA R5!,{R7,R8,R|
0001a170 39 7d 0d 9b c8 10 80 20 52 31 30 2c 52 36 2c 23 |9}..... R10,R6,#|
0001a180 26 34 0d 9b d2 33 4c 44 52 20 52 37 2c 5b 52 32 |&4...3LDR R7,[R2|
0001a190 2c 52 31 30 5d 3a 4c 44 52 20 52 38 2c 5b 52 33 |,R10]:LDR R8,[R3|
0001a1a0 2c 52 31 30 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 |,R10]:LDR R9,[R4|
0001a1b0 2c 52 31 30 5d 0d 9b dc 18 53 54 4d 49 41 20 52 |,R10]....STMIA R|
0001a1c0 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9b e6 |5!,{R7,R8,R9}...|
0001a1d0 10 80 20 52 31 30 2c 52 36 2c 23 26 32 0d 9b f0 |.. R10,R6,#&2...|
0001a1e0 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 30 2c |HLDR R7,[R2,R10,|
0001a1f0 4c 53 4c 20 23 31 5d 3a 4c 44 52 20 52 38 2c 5b |LSL #1]:LDR R8,[|
0001a200 52 33 2c 52 31 30 2c 4c 53 4c 20 23 31 5d 3a 4c |R3,R10,LSL #1]:L|
0001a210 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c 4c 53 |DR R9,[R4,R10,LS|
0001a220 4c 20 23 31 5d 0d 9b fa 18 53 54 4d 49 41 20 52 |L #1]....STMIA R|
0001a230 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9c 04 |5!,{R7,R8,R9}...|
0001a240 10 80 20 52 31 30 2c 52 36 2c 23 26 31 0d 9c 0e |.. R10,R6,#&1...|
0001a250 05 5d 0d 9c 18 05 cc 0d 9c 22 0a 5b 4f 50 54 20 |.].......".[OPT |
0001a260 5a 0d 9c 2c 10 80 20 52 31 30 2c 52 36 2c 23 26 |Z..,.. R10,R6,#&|
0001a270 31 0d 9c 36 48 4c 44 52 20 52 37 2c 5b 52 32 2c |1..6HLDR R7,[R2,|
0001a280 52 31 30 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 |R10,LSL #2]:LDR |
0001a290 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 4c 20 23 |R8,[R3,R10,LSL #|
0001a2a0 32 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 |2]:LDR R9,[R4,R1|
0001a2b0 30 2c 4c 53 4c 20 23 32 5d 0d 9c 40 18 53 54 4d |0,LSL #2]..@.STM|
0001a2c0 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 |IA R5!,{R7,R8,R9|
0001a2d0 7d 0d 9c 4a 10 80 20 52 31 30 2c 52 36 2c 23 26 |}..J.. R10,R6,#&|
0001a2e0 32 0d 9c 54 48 4c 44 52 20 52 37 2c 5b 52 32 2c |2..THLDR R7,[R2,|
0001a2f0 52 31 30 2c 4c 53 4c 20 23 31 5d 3a 4c 44 52 20 |R10,LSL #1]:LDR |
0001a300 52 38 2c 5b 52 33 2c 52 31 30 2c 4c 53 4c 20 23 |R8,[R3,R10,LSL #|
0001a310 31 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 |1]:LDR R9,[R4,R1|
0001a320 30 2c 4c 53 4c 20 23 31 5d 0d 9c 5e 18 53 54 4d |0,LSL #1]..^.STM|
0001a330 49 41 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 |IA R5!,{R7,R8,R9|
0001a340 7d 0d 9c 68 10 80 20 52 31 30 2c 52 36 2c 23 26 |}..h.. R10,R6,#&|
0001a350 34 0d 9c 72 33 4c 44 52 20 52 37 2c 5b 52 32 2c |4..r3LDR R7,[R2,|
0001a360 52 31 30 5d 3a 4c 44 52 20 52 38 2c 5b 52 33 2c |R10]:LDR R8,[R3,|
0001a370 52 31 30 5d 3a 4c 44 52 20 52 39 2c 5b 52 34 2c |R10]:LDR R9,[R4,|
0001a380 52 31 30 5d 0d 9c 7c 18 53 54 4d 49 41 20 52 35 |R10]..|.STMIA R5|
0001a390 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9c 86 10 |!,{R7,R8,R9}....|
0001a3a0 80 20 52 31 30 2c 52 36 2c 23 26 38 0d 9c 90 48 |. R10,R6,#&8...H|
0001a3b0 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 30 2c 4c |LDR R7,[R2,R10,L|
0001a3c0 53 52 20 23 31 5d 3a 4c 44 52 20 52 38 2c 5b 52 |SR #1]:LDR R8,[R|
0001a3d0 33 2c 52 31 30 2c 4c 53 52 20 23 31 5d 3a 4c 44 |3,R10,LSR #1]:LD|
0001a3e0 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c 4c 53 52 |R R9,[R4,R10,LSR|
0001a3f0 20 23 31 5d 0d 9c 9a 18 53 54 4d 49 41 20 52 35 | #1]....STMIA R5|
0001a400 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9c a4 11 |!,{R7,R8,R9}....|
0001a410 80 20 52 31 30 2c 52 36 2c 23 26 31 30 0d 9c ae |. R10,R6,#&10...|
0001a420 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 30 2c |HLDR R7,[R2,R10,|
0001a430 4c 53 52 20 23 32 5d 3a 4c 44 52 20 52 38 2c 5b |LSR #2]:LDR R8,[|
0001a440 52 33 2c 52 31 30 2c 4c 53 52 20 23 32 5d 3a 4c |R3,R10,LSR #2]:L|
0001a450 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c 4c 53 |DR R9,[R4,R10,LS|
0001a460 52 20 23 32 5d 0d 9c b8 18 53 54 4d 49 41 20 52 |R #2]....STMIA R|
0001a470 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9c c2 |5!,{R7,R8,R9}...|
0001a480 11 80 20 52 31 30 2c 52 36 2c 23 26 32 30 0d 9c |.. R10,R6,#&20..|
0001a490 cc 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 30 |.HLDR R7,[R2,R10|
0001a4a0 2c 4c 53 52 20 23 33 5d 3a 4c 44 52 20 52 38 2c |,LSR #3]:LDR R8,|
0001a4b0 5b 52 33 2c 52 31 30 2c 4c 53 52 20 23 33 5d 3a |[R3,R10,LSR #3]:|
0001a4c0 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c 4c |LDR R9,[R4,R10,L|
0001a4d0 53 52 20 23 33 5d 0d 9c d6 18 53 54 4d 49 41 20 |SR #3]....STMIA |
0001a4e0 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d 9c |R5!,{R7,R8,R9}..|
0001a4f0 e0 11 80 20 52 31 30 2c 52 36 2c 23 26 34 30 0d |... R10,R6,#&40.|
0001a500 9c ea 48 4c 44 52 20 52 37 2c 5b 52 32 2c 52 31 |..HLDR R7,[R2,R1|
0001a510 30 2c 4c 53 52 20 23 34 5d 3a 4c 44 52 20 52 38 |0,LSR #4]:LDR R8|
0001a520 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 20 23 34 5d |,[R3,R10,LSR #4]|
0001a530 3a 4c 44 52 20 52 39 2c 5b 52 34 2c 52 31 30 2c |:LDR R9,[R4,R10,|
0001a540 4c 53 52 20 23 34 5d 0d 9c f4 18 53 54 4d 49 41 |LSR #4]....STMIA|
0001a550 20 52 35 21 2c 7b 52 37 2c 52 38 2c 52 39 7d 0d | R5!,{R7,R8,R9}.|
0001a560 9c fe 15 4d 4f 56 20 52 31 30 2c 52 36 2c 4c 53 |...MOV R10,R6,LS|
0001a570 52 20 23 37 0d 9d 08 05 5d 0d 9d 12 05 cd 0d 9d |R #7....].......|
0001a580 1c 0a 5b 4f 50 54 20 5a 0d 9d 26 48 4c 44 52 20 |..[OPT Z..&HLDR |
0001a590 52 37 2c 5b 52 32 2c 52 31 30 2c 4c 53 4c 20 23 |R7,[R2,R10,LSL #|
0001a5a0 32 5d 3a 4c 44 52 20 52 38 2c 5b 52 33 2c 52 31 |2]:LDR R8,[R3,R1|
0001a5b0 30 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 39 |0,LSL #2]:LDR R9|
0001a5c0 2c 5b 52 34 2c 52 31 30 2c 4c 53 4c 20 23 32 5d |,[R4,R10,LSL #2]|
0001a5d0 0d 9d 30 18 53 54 4d 49 41 20 52 35 21 2c 7b 52 |..0.STMIA R5!,{R|
0001a5e0 37 2c 52 38 2c 52 39 7d 0d 9d 3a 1e 53 55 42 53 |7,R8,R9}..:.SUBS|
0001a5f0 20 52 30 2c 52 30 2c 23 38 3a 42 48 49 20 6d 61 | R0,R0,#8:BHI ma|
0001a600 70 70 69 78 6c 70 0d 9d 44 0f 4d 4f 56 53 20 50 |ppixlp..D.MOVS P|
0001a610 43 2c 52 31 34 0d 9d 4e 05 5d 0d 9d 58 08 c9 20 |C,R14..N.]..X.. |
0001a620 31 36 0d 9d 62 0a 5b 4f 50 54 20 5a 0d 9d 6c 0c |16..b.[OPT Z..l.|
0001a630 2e 6d 61 70 70 69 78 25 0d 9d 76 10 4c 44 52 20 |.mappix%..v.LDR |
0001a640 52 30 2c 73 78 6c 6f 63 0d 9d 80 1b 4c 44 52 20 |R0,sxloc....LDR |
0001a650 52 31 2c 5b 52 39 5d 3a 4c 44 52 20 52 31 2c 5b |R1,[R9]:LDR R1,[|
0001a660 52 31 5d 0d 9d 8a 1e 4c 44 52 20 52 32 2c 5b 52 |R1]....LDR R2,[R|
0001a670 39 2c 23 38 5d 3a 4c 44 52 20 52 32 2c 5b 52 32 |9,#8]:LDR R2,[R2|
0001a680 5d 0d 9d 94 14 4c 44 52 20 52 33 2c 5b 52 39 2c |]....LDR R3,[R9,|
0001a690 23 34 2a 38 5d 0d 9d 9e 14 4c 44 52 20 52 34 2c |#4*8]....LDR R4,|
0001a6a0 5b 52 39 2c 23 33 2a 38 5d 0d 9d a8 14 4c 44 52 |[R9,#3*8]....LDR|
0001a6b0 20 52 35 2c 5b 52 39 2c 23 32 2a 38 5d 0d 9d b2 | R5,[R9,#2*8]...|
0001a6c0 14 4c 44 52 20 52 36 2c 5b 52 39 2c 23 35 2a 38 |.LDR R6,[R9,#5*8|
0001a6d0 5d 0d 9d bc 14 4c 44 52 20 52 37 2c 5b 52 39 2c |]....LDR R7,[R9,|
0001a6e0 23 36 2a 38 5d 0d 9d c6 14 4c 44 52 20 52 38 2c |#6*8]....LDR R8,|
0001a6f0 5b 52 39 2c 23 37 2a 38 5d 0d 9d d0 0d 43 4d 50 |[R9,#7*8]....CMP|
0001a700 20 52 31 2c 52 32 0d 9d da 12 41 44 44 45 51 20 | R1,R2....ADDEQ |
0001a710 52 32 2c 52 32 2c 23 31 0d 9d e4 0d 2e 6d 61 70 |R2,R2,#1.....map|
0001a720 70 69 78 6c 70 0d 9d ee 2e 4c 44 52 42 20 52 39 |pixlp....LDRB R9|
0001a730 2c 5b 52 31 5d 2c 23 73 74 65 70 32 34 3a 4c 44 |,[R1],#step24:LD|
0001a740 52 42 20 52 31 30 2c 5b 52 32 5d 2c 23 73 74 65 |RB R10,[R2],#ste|
0001a750 70 32 34 0d 9d f8 3e 4c 44 52 20 52 39 2c 5b 52 |p24...>LDR R9,[R|
0001a760 36 2c 52 39 2c 4c 53 4c 20 23 32 5d 3a 4c 44 52 |6,R9,LSL #2]:LDR|
0001a770 20 52 31 30 2c 5b 52 37 2c 52 31 30 2c 4c 53 4c | R10,[R7,R10,LSL|
0001a780 20 23 32 5d 3a 84 52 20 52 39 2c 52 39 2c 52 31 | #2]:.R R9,R9,R1|
0001a790 30 0d 9e 02 29 80 20 52 31 30 2c 52 39 2c 23 32 |0...). R10,R9,#2|
0001a7a0 35 35 3a 4c 44 52 20 52 31 30 2c 5b 52 33 2c 52 |55:LDR R10,[R3,R|
0001a7b0 31 30 2c 4c 53 4c 20 23 32 5d 0d 9e 0c 3c 4d 4f |10,LSL #2]...<MO|
0001a7c0 56 20 52 31 31 2c 52 39 2c 4c 53 52 20 23 38 3a |V R11,R9,LSR #8:|
0001a7d0 80 20 52 31 31 2c 52 31 31 2c 23 32 35 35 3a 4c |. R11,R11,#255:L|
0001a7e0 44 52 20 52 31 31 2c 5b 52 34 2c 52 31 31 2c 4c |DR R11,[R4,R11,L|
0001a7f0 53 4c 20 23 32 5d 0d 9e 16 2e 4d 4f 56 20 52 31 |SL #2]....MOV R1|
0001a800 32 2c 52 39 2c 4c 53 52 20 23 31 36 3a 4c 44 52 |2,R9,LSR #16:LDR|
0001a810 20 52 31 32 2c 5b 52 35 2c 52 31 32 2c 4c 53 4c | R12,[R5,R12,LSL|
0001a820 20 23 32 5d 0d 9e 20 1b 53 54 4d 49 41 20 52 38 | #2].. .STMIA R8|
0001a830 21 2c 7b 52 31 30 2c 52 31 31 2c 52 31 32 7d 0d |!,{R10,R11,R12}.|
0001a840 9e 2a 1e 53 55 42 53 20 52 30 2c 52 30 2c 23 31 |.*.SUBS R0,R0,#1|
0001a850 3a 42 4e 45 20 6d 61 70 70 69 78 6c 70 0d 9e 34 |:BNE mappixlp..4|
0001a860 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d 9e 3e 05 |.MOVS PC,R14..>.|
0001a870 5d 0d 9e 48 08 c9 20 32 34 0d 9e 52 0a 5b 4f 50 |]..H.. 24..R.[OP|
0001a880 54 20 5a 0d 9e 5c 0c 2e 6d 61 70 70 69 78 25 0d |T Z..\..mappix%.|
0001a890 9e 66 10 4c 44 52 20 52 30 2c 73 78 6c 6f 63 0d |.f.LDR R0,sxloc.|
0001a8a0 9e 70 20 4c 44 52 20 52 31 2c 5b 52 39 2c 23 32 |.p LDR R1,[R9,#2|
0001a8b0 2a 38 5d 3a 4c 44 52 20 52 31 2c 5b 52 31 5d 0d |*8]:LDR R1,[R1].|
0001a8c0 9e 7a 1e 4c 44 52 20 52 32 2c 5b 52 39 2c 23 38 |.z.LDR R2,[R9,#8|
0001a8d0 5d 3a 4c 44 52 20 52 32 2c 5b 52 32 5d 0d 9e 84 |]:LDR R2,[R2]...|
0001a8e0 1b 4c 44 52 20 52 33 2c 5b 52 39 5d 3a 4c 44 52 |.LDR R3,[R9]:LDR|
0001a8f0 20 52 33 2c 5b 52 33 5d 0d 9e 8e 14 4c 44 52 20 | R3,[R3]....LDR |
0001a900 52 34 2c 5b 52 39 2c 23 35 2a 38 5d 0d 9e 98 14 |R4,[R9,#5*8]....|
0001a910 4c 44 52 20 52 35 2c 5b 52 39 2c 23 34 2a 38 5d |LDR R5,[R9,#4*8]|
0001a920 0d 9e a2 14 4c 44 52 20 52 36 2c 5b 52 39 2c 23 |....LDR R6,[R9,#|
0001a930 33 2a 38 5d 0d 9e ac 14 4c 44 52 20 52 37 2c 5b |3*8]....LDR R7,[|
0001a940 52 39 2c 23 36 2a 38 5d 0d 9e b6 14 53 54 4d 46 |R9,#6*8]....STMF|
0001a950 44 20 53 50 20 21 2c 7b 52 31 34 7d 0d 9e c0 24 |D SP !,{R14}...$|
0001a960 4d 4f 56 20 72 31 31 2c 23 30 3a 4d 4f 56 20 52 |MOV r11,#0:MOV R|
0001a970 31 32 2c 23 30 3a 4d 4f 56 20 52 31 34 2c 23 30 |12,#0:MOV R14,#0|
0001a980 0d 9e ca 0d 2e 6d 61 70 70 69 78 6c 70 0d 9e d4 |.....mappixlp...|
0001a990 43 4c 44 52 42 20 52 38 2c 5b 52 31 5d 2c 23 73 |CLDRB R8,[R1],#s|
0001a9a0 74 65 70 32 34 3a 4c 44 52 42 20 52 39 2c 5b 52 |tep24:LDRB R9,[R|
0001a9b0 32 5d 2c 23 73 74 65 70 32 34 3a 4c 44 52 42 20 |2],#step24:LDRB |
0001a9c0 52 31 30 2c 5b 52 33 5d 2c 23 73 74 65 70 32 34 |R10,[R3],#step24|
0001a9d0 0d 9e de 05 5d 0d 9e e8 12 e7 68 70 72 65 64 69 |....].....hpredi|
0001a9e0 63 74 25 3d 32 20 8c 0d 9e f2 0a 5b 4f 50 54 20 |ct%=2 .....[OPT |
0001a9f0 5a 0d 9e fc 11 41 44 44 20 72 38 2c 72 38 2c 72 |Z....ADD r8,r8,r|
0001aa00 31 31 0d 9f 06 10 80 20 72 38 2c 72 38 2c 23 32 |11..... r8,r8,#2|
0001aa10 35 35 0d 9f 10 0e 4d 4f 56 20 72 31 31 2c 72 38 |55....MOV r11,r8|
0001aa20 0d 9f 1a 11 41 44 44 20 72 39 2c 72 39 2c 72 31 |....ADD r9,r9,r1|
0001aa30 32 0d 9f 24 10 80 20 72 39 2c 72 39 2c 23 32 35 |2..$.. r9,r9,#25|
0001aa40 35 0d 9f 2e 0e 4d 4f 56 20 72 31 32 2c 72 39 0d |5....MOV r12,r9.|
0001aa50 9f 38 13 41 44 44 20 72 31 30 2c 72 31 30 2c 72 |.8.ADD r10,r10,r|
0001aa60 31 34 0d 9f 42 12 80 20 72 31 30 2c 72 31 30 2c |14..B.. r10,r10,|
0001aa70 23 32 35 35 0d 9f 4c 0f 4d 4f 56 20 72 31 34 2c |#255..L.MOV r14,|
0001aa80 72 31 30 0d 9f 56 05 5d 0d 9f 60 05 cd 0d 9f 6a |r10..V.]..`....j|
0001aa90 0a 5b 4f 50 54 20 5a 0d 9f 74 47 4c 44 52 20 52 |.[OPT Z..tGLDR R|
0001aaa0 38 2c 5b 52 34 2c 52 38 2c 4c 53 4c 20 23 32 5d |8,[R4,R8,LSL #2]|
0001aab0 3a 4c 44 52 20 52 39 2c 5b 52 35 2c 52 39 2c 4c |:LDR R9,[R5,R9,L|
0001aac0 53 4c 20 23 32 5d 3a 4c 44 52 20 52 31 30 2c 5b |SL #2]:LDR R10,[|
0001aad0 52 36 2c 52 31 30 2c 4c 53 4c 20 23 32 5d 0d 9f |R6,R10,LSL #2]..|
0001aae0 7e 19 53 54 4d 49 41 20 52 37 21 2c 7b 52 38 2c |~.STMIA R7!,{R8,|
0001aaf0 52 39 2c 52 31 30 7d 0d 9f 88 1e 53 55 42 53 20 |R9,R10}....SUBS |
0001ab00 52 30 2c 52 30 2c 23 31 3a 42 4e 45 20 6d 61 70 |R0,R0,#1:BNE map|
0001ab10 70 69 78 6c 70 0d 9f 92 14 4c 44 4d 46 44 20 53 |pixlp....LDMFD S|
0001ab20 50 20 21 2c 7b 50 43 7d 5e 0d 9f 9c 05 5d 0d 9f |P !,{PC}^....]..|
0001ab30 a6 08 c9 20 34 38 0d 9f b0 0a 5b 4f 50 54 20 5a |... 48....[OPT Z|
0001ab40 0d 9f ba 0c 2e 6d 61 70 70 69 78 25 0d 9f c4 10 |.....mappix%....|
0001ab50 4c 44 52 20 52 30 2c 73 78 6c 6f 63 0d 9f ce 20 |LDR R0,sxloc... |
0001ab60 4c 44 52 20 52 31 2c 5b 52 39 2c 23 32 2a 38 5d |LDR R1,[R9,#2*8]|
0001ab70 3a 4c 44 52 20 52 31 2c 5b 52 31 5d 0d 9f d8 1e |:LDR R1,[R1]....|
0001ab80 4c 44 52 20 52 32 2c 5b 52 39 2c 23 38 5d 3a 4c |LDR R2,[R9,#8]:L|
0001ab90 44 52 20 52 32 2c 5b 52 32 5d 0d 9f e2 1b 4c 44 |DR R2,[R2]....LD|
0001aba0 52 20 52 33 2c 5b 52 39 5d 3a 4c 44 52 20 52 33 |R R3,[R9]:LDR R3|
0001abb0 2c 5b 52 33 5d 0d 9f ec 14 4c 44 52 20 52 34 2c |,[R3]....LDR R4,|
0001abc0 5b 52 39 2c 23 35 2a 38 5d 0d 9f f6 14 4c 44 52 |[R9,#5*8]....LDR|
0001abd0 20 52 35 2c 5b 52 39 2c 23 34 2a 38 5d 0d a0 00 | R5,[R9,#4*8]...|
0001abe0 14 4c 44 52 20 52 36 2c 5b 52 39 2c 23 33 2a 38 |.LDR R6,[R9,#3*8|
0001abf0 5d 0d a0 0a 14 4c 44 52 20 52 37 2c 5b 52 39 2c |]....LDR R7,[R9,|
0001ac00 23 36 2a 38 5d 0d a0 14 14 53 54 4d 46 44 20 53 |#6*8]....STMFD S|
0001ac10 50 20 21 2c 7b 52 31 34 7d 0d a0 1e 3f 4d 4f 56 |P !,{R14}...?MOV|
0001ac20 20 72 31 31 2c 23 63 6f 6c 6f 75 72 69 6e 64 65 | r11,#colourinde|
0001ac30 78 20 80 20 32 35 35 3a 41 44 44 20 72 31 31 2c |x . 255:ADD r11,|
0001ac40 72 31 31 2c 23 63 6f 6c 6f 75 72 69 6e 64 65 78 |r11,#colourindex|
0001ac50 20 80 20 26 66 66 30 30 0d a0 28 0d 2e 6d 61 70 | . &ff00..(..map|
0001ac60 70 69 78 6c 70 0d a0 32 40 4c 44 52 20 52 38 2c |pixlp..2@LDR R8,|
0001ac70 5b 52 31 5d 2c 23 73 74 65 70 32 34 3a 4c 44 52 |[R1],#step24:LDR|
0001ac80 20 52 39 2c 5b 52 32 5d 2c 23 73 74 65 70 32 34 | R9,[R2],#step24|
0001ac90 3a 4c 44 52 20 52 31 30 2c 5b 52 33 5d 2c 23 73 |:LDR R10,[R3],#s|
0001aca0 74 65 70 32 34 0d a0 3c 29 80 20 72 38 2c 72 38 |tep24..<). r8,r8|
0001acb0 2c 72 31 31 3a 80 20 72 39 2c 72 39 2c 72 31 31 |,r11:. r9,r9,r11|
0001acc0 3a 80 20 72 31 30 2c 72 31 30 2c 72 31 31 0d a0 |:. r10,r10,r11..|
0001acd0 46 47 4c 44 52 20 52 38 2c 5b 52 34 2c 52 38 2c |FGLDR R8,[R4,R8,|
0001ace0 4c 53 4c 20 23 32 5d 3a 4c 44 52 20 52 39 2c 5b |LSL #2]:LDR R9,[|
0001acf0 52 35 2c 52 39 2c 4c 53 4c 20 23 32 5d 3a 4c 44 |R5,R9,LSL #2]:LD|
0001ad00 52 20 52 31 30 2c 5b 52 36 2c 52 31 30 2c 4c 53 |R R10,[R6,R10,LS|
0001ad10 4c 20 23 32 5d 0d a0 50 19 53 54 4d 49 41 20 52 |L #2]..P.STMIA R|
0001ad20 37 21 2c 7b 52 38 2c 52 39 2c 52 31 30 7d 0d a0 |7!,{R8,R9,R10}..|
0001ad30 5a 1e 53 55 42 53 20 52 30 2c 52 30 2c 23 31 3a |Z.SUBS R0,R0,#1:|
0001ad40 42 4e 45 20 6d 61 70 70 69 78 6c 70 0d a0 64 14 |BNE mappixlp..d.|
0001ad50 4c 44 4d 46 44 20 53 50 20 21 2c 7b 50 43 7d 5e |LDMFD SP !,{PC}^|
0001ad60 0d a0 6e 05 5d 0d a0 78 09 c9 20 34 31 31 0d a0 |..n.]..x.. 411..|
0001ad70 8c 0a 5b 4f 50 54 20 5a 0d a0 96 0c 2e 6d 61 70 |..[OPT Z.....map|
0001ad80 70 69 78 25 0d a0 a0 10 4c 44 52 20 52 30 2c 73 |pix%....LDR R0,s|
0001ad90 78 6c 6f 63 0d a0 aa 1b 4c 44 52 20 52 31 2c 5b |xloc....LDR R1,[|
0001ada0 52 39 5d 3a 4c 44 52 20 52 31 2c 5b 52 31 5d 0d |R9]:LDR R1,[R1].|
0001adb0 a0 b4 14 4c 44 52 20 52 32 2c 5b 52 39 2c 23 31 |...LDR R2,[R9,#1|
0001adc0 2a 38 5d 0d a0 be 14 4c 44 52 20 52 33 2c 5b 52 |*8]....LDR R3,[R|
0001add0 39 2c 23 32 2a 38 5d 0d a0 c8 14 4c 44 52 20 52 |9,#2*8]....LDR R|
0001ade0 35 2c 5b 52 39 2c 23 34 2a 38 5d 0d a0 d2 14 4c |5,[R9,#4*8]....L|
0001adf0 44 52 20 52 36 2c 5b 52 39 2c 23 35 2a 38 5d 0d |DR R6,[R9,#5*8].|
0001ae00 a0 dc 14 4c 44 52 20 52 37 2c 5b 52 39 2c 23 36 |...LDR R7,[R9,#6|
0001ae10 2a 38 5d 0d a0 e6 14 4c 44 52 20 52 39 2c 5b 52 |*8]....LDR R9,[R|
0001ae20 39 2c 23 38 2a 38 5d 0d a0 f0 14 53 54 4d 46 44 |9,#8*8]....STMFD|
0001ae30 20 53 50 20 21 2c 7b 52 31 34 7d 0d a0 fa 0d 2e | SP !,{R14}.....|
0001ae40 6d 61 70 70 69 78 6c 70 0d a1 04 16 4c 44 4d 49 |mappixlp....LDMI|
0001ae50 41 20 52 31 21 2c 7b 52 34 2c 52 31 30 7d 0d a1 |A R1!,{R4,R10}..|
0001ae60 0e 12 80 20 52 38 2c 52 34 2c 23 26 43 30 30 30 |... R8,R4,#&C000|
0001ae70 0d a1 18 14 4d 4f 56 20 52 38 2c 52 38 2c 4c 53 |....MOV R8,R8,LS|
0001ae80 52 20 23 38 0d a1 22 17 80 20 52 31 34 2c 52 34 |R #8..".. R14,R4|
0001ae90 2c 23 26 43 30 30 30 30 30 30 30 0d a1 2c 1c 84 |,#&C0000000..,..|
0001aea0 52 20 52 38 2c 52 38 2c 52 31 34 2c 4c 53 52 20 |R R8,R8,R14,LSR |
0001aeb0 23 31 36 2b 38 2b 32 0d a1 36 14 80 20 52 31 34 |#16+8+2..6.. R14|
0001aec0 2c 52 31 30 2c 23 26 43 30 30 30 0d a1 40 19 84 |,R10,#&C000..@..|
0001aed0 52 20 52 38 2c 52 38 2c 52 31 34 2c 4c 53 52 20 |R R8,R8,R14,LSR |
0001aee0 23 38 2b 34 0d a1 4a 1c 84 52 20 52 38 2c 52 38 |#8+4..J..R R8,R8|
0001aef0 2c 52 31 30 2c 4c 53 52 20 23 31 36 2b 38 2b 36 |,R10,LSR #16+8+6|
0001af00 0d a1 54 13 80 20 52 31 31 2c 52 34 2c 23 26 33 |..T.. R11,R4,#&3|
0001af10 30 30 30 0d a1 5e 16 4d 4f 56 20 52 31 31 2c 52 |000..^.MOV R11,R|
0001af20 31 31 2c 4c 53 52 20 23 36 0d a1 68 17 80 20 52 |11,LSR #6..h.. R|
0001af30 31 34 2c 52 34 2c 23 26 33 30 30 30 30 30 30 30 |14,R4,#&30000000|
0001af40 0d a1 72 1e 84 52 20 52 31 31 2c 52 31 31 2c 52 |..r..R R11,R11,R|
0001af50 31 34 2c 4c 53 52 20 23 31 36 2b 36 2b 32 0d a1 |14,LSR #16+6+2..|
0001af60 7c 14 80 20 52 31 34 2c 52 31 30 2c 23 26 33 30 ||.. R14,R10,#&30|
0001af70 30 30 0d a1 86 1b 84 52 20 52 31 31 2c 52 31 31 |00.....R R11,R11|
0001af80 2c 52 31 34 2c 4c 53 52 20 23 36 2b 34 0d a1 90 |,R14,LSR #6+4...|
0001af90 18 80 20 52 31 34 2c 52 31 30 2c 23 26 33 30 30 |.. R14,R10,#&300|
0001afa0 30 30 30 30 30 0d a1 9a 1e 84 52 20 52 31 31 2c |00000.....R R11,|
0001afb0 52 31 31 2c 52 31 34 2c 4c 53 52 20 23 31 36 2b |R11,R14,LSR #16+|
0001afc0 36 2b 36 0d a1 ae 11 80 20 52 31 32 2c 52 34 2c |6+6..... R12,R4,|
0001afd0 23 26 46 46 0d a1 b8 1b 4c 44 52 20 52 31 32 2c |#&FF....LDR R12,|
0001afe0 5b 52 32 2c 52 31 32 2c 4c 53 4c 20 23 32 5d 0d |[R2,R12,LSL #2].|
0001aff0 a1 c2 2c 4c 44 52 20 52 31 34 2c 5b 52 37 2c 52 |..,LDR R14,[R7,R|
0001b000 31 31 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 |11,LSL #2]:ADDS |
0001b010 52 31 34 2c 52 31 34 2c 52 31 32 0d a1 cc 38 4d |R14,R14,R12...8M|
0001b020 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 |OVMI R14,#0:CMP |
0001b030 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 |R14,#F:MOVCS R14|
0001b040 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d |,#F:STR R14,[R9]|
0001b050 2c 23 34 0d a1 d6 2a 4c 44 52 20 52 31 34 2c 5b |,#4...*LDR R14,[|
0001b060 52 36 2c 52 38 2c 4c 53 4c 20 23 32 5d 3a 41 44 |R6,R8,LSL #2]:AD|
0001b070 44 20 52 31 34 2c 52 31 34 2c 52 31 32 0d a1 e0 |D R14,R14,R12...|
0001b080 2c 4c 44 52 20 52 31 32 2c 5b 52 35 2c 52 31 31 |,LDR R12,[R5,R11|
0001b090 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 52 31 |,LSL #2]:ADDS R1|
0001b0a0 34 2c 52 31 34 2c 52 31 32 0d a1 ea 38 4d 4f 56 |4,R14,R12...8MOV|
0001b0b0 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 |MI R14,#0:CMP R1|
0001b0c0 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 |4,#F:MOVCS R14,#|
0001b0d0 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 |F:STR R14,[R9],#|
0001b0e0 34 0d a1 f4 11 80 20 52 31 32 2c 52 34 2c 23 26 |4..... R12,R4,#&|
0001b0f0 46 46 0d a1 fe 1b 4c 44 52 20 52 31 32 2c 5b 52 |FF....LDR R12,[R|
0001b100 32 2c 52 31 32 2c 4c 53 4c 20 23 32 5d 0d a2 08 |2,R12,LSL #2]...|
0001b110 2b 4c 44 52 20 52 31 34 2c 5b 52 33 2c 52 38 2c |+LDR R14,[R3,R8,|
0001b120 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 52 31 34 |LSL #2]:ADDS R14|
0001b130 2c 52 31 32 2c 52 31 34 0d a2 12 38 4d 4f 56 4d |,R12,R14...8MOVM|
0001b140 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 34 |I R14,#0:CMP R14|
0001b150 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 46 |,#F:MOVCS R14,#F|
0001b160 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 34 |:STR R14,[R9],#4|
0001b170 0d a2 26 15 4d 4f 56 20 52 34 2c 52 34 2c 4c 53 |..&.MOV R4,R4,LS|
0001b180 52 20 23 31 36 0d a2 30 11 80 20 52 31 32 2c 52 |R #16..0.. R12,R|
0001b190 34 2c 23 26 46 46 0d a2 3a 1b 4c 44 52 20 52 31 |4,#&FF..:.LDR R1|
0001b1a0 32 2c 5b 52 32 2c 52 31 32 2c 4c 53 4c 20 23 32 |2,[R2,R12,LSL #2|
0001b1b0 5d 0d a2 44 2c 4c 44 52 20 52 31 34 2c 5b 52 37 |]..D,LDR R14,[R7|
0001b1c0 2c 52 31 31 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 |,R11,LSL #2]:ADD|
0001b1d0 53 20 52 31 34 2c 52 31 34 2c 52 31 32 0d a2 4e |S R14,R14,R12..N|
0001b1e0 38 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d |8MOVMI R14,#0:CM|
0001b1f0 50 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 |P R14,#F:MOVCS R|
0001b200 31 34 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 |14,#F:STR R14,[R|
0001b210 39 5d 2c 23 34 0d a2 58 2a 4c 44 52 20 52 31 34 |9],#4..X*LDR R14|
0001b220 2c 5b 52 36 2c 52 38 2c 4c 53 4c 20 23 32 5d 3a |,[R6,R8,LSL #2]:|
0001b230 41 44 44 20 52 31 34 2c 52 31 34 2c 52 31 32 0d |ADD R14,R14,R12.|
0001b240 a2 62 2c 4c 44 52 20 52 31 32 2c 5b 52 35 2c 52 |.b,LDR R12,[R5,R|
0001b250 31 31 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 |11,LSL #2]:ADDS |
0001b260 52 31 34 2c 52 31 34 2c 52 31 32 0d a2 6c 38 4d |R14,R14,R12..l8M|
0001b270 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 |OVMI R14,#0:CMP |
0001b280 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 |R14,#F:MOVCS R14|
0001b290 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d |,#F:STR R14,[R9]|
0001b2a0 2c 23 34 0d a2 76 11 80 20 52 31 32 2c 52 34 2c |,#4..v.. R12,R4,|
0001b2b0 23 26 46 46 0d a2 80 1b 4c 44 52 20 52 31 32 2c |#&FF....LDR R12,|
0001b2c0 5b 52 32 2c 52 31 32 2c 4c 53 4c 20 23 32 5d 0d |[R2,R12,LSL #2].|
0001b2d0 a2 8a 2b 4c 44 52 20 52 31 34 2c 5b 52 33 2c 52 |..+LDR R14,[R3,R|
0001b2e0 38 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 52 |8,LSL #2]:ADDS R|
0001b2f0 31 34 2c 52 31 32 2c 52 31 34 0d a2 94 38 4d 4f |14,R12,R14...8MO|
0001b300 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 |VMI R14,#0:CMP R|
0001b310 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c |14,#F:MOVCS R14,|
0001b320 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c |#F:STR R14,[R9],|
0001b330 23 34 0d a2 a8 12 80 20 52 31 32 2c 52 31 30 2c |#4..... R12,R10,|
0001b340 23 26 46 46 0d a2 b2 1b 4c 44 52 20 52 31 32 2c |#&FF....LDR R12,|
0001b350 5b 52 32 2c 52 31 32 2c 4c 53 4c 20 23 32 5d 0d |[R2,R12,LSL #2].|
0001b360 a2 bc 2c 4c 44 52 20 52 31 34 2c 5b 52 37 2c 52 |..,LDR R14,[R7,R|
0001b370 31 31 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 |11,LSL #2]:ADDS |
0001b380 52 31 34 2c 52 31 34 2c 52 31 32 0d a2 c6 38 4d |R14,R14,R12...8M|
0001b390 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 |OVMI R14,#0:CMP |
0001b3a0 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 |R14,#F:MOVCS R14|
0001b3b0 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d |,#F:STR R14,[R9]|
0001b3c0 2c 23 34 0d a2 d0 2a 4c 44 52 20 52 31 34 2c 5b |,#4...*LDR R14,[|
0001b3d0 52 36 2c 52 38 2c 4c 53 4c 20 23 32 5d 3a 41 44 |R6,R8,LSL #2]:AD|
0001b3e0 44 20 52 31 34 2c 52 31 34 2c 52 31 32 0d a2 da |D R14,R14,R12...|
0001b3f0 2c 4c 44 52 20 52 31 32 2c 5b 52 35 2c 52 31 31 |,LDR R12,[R5,R11|
0001b400 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 52 31 |,LSL #2]:ADDS R1|
0001b410 34 2c 52 31 34 2c 52 31 32 0d a2 e4 38 4d 4f 56 |4,R14,R12...8MOV|
0001b420 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 |MI R14,#0:CMP R1|
0001b430 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 |4,#F:MOVCS R14,#|
0001b440 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 |F:STR R14,[R9],#|
0001b450 34 0d a2 ee 12 80 20 52 31 32 2c 52 31 30 2c 23 |4..... R12,R10,#|
0001b460 26 46 46 0d a2 f8 1b 4c 44 52 20 52 31 32 2c 5b |&FF....LDR R12,[|
0001b470 52 32 2c 52 31 32 2c 4c 53 4c 20 23 32 5d 0d a3 |R2,R12,LSL #2]..|
0001b480 02 2b 4c 44 52 20 52 31 34 2c 5b 52 33 2c 52 38 |.+LDR R14,[R3,R8|
0001b490 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 20 52 31 |,LSL #2]:ADDS R1|
0001b4a0 34 2c 52 31 32 2c 52 31 34 0d a3 0c 38 4d 4f 56 |4,R12,R14...8MOV|
0001b4b0 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 |MI R14,#0:CMP R1|
0001b4c0 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 |4,#F:MOVCS R14,#|
0001b4d0 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 |F:STR R14,[R9],#|
0001b4e0 34 0d a3 20 17 4d 4f 56 20 52 31 30 2c 52 31 30 |4.. .MOV R10,R10|
0001b4f0 2c 4c 53 52 20 23 31 36 0d a3 2a 12 80 20 52 31 |,LSR #16..*.. R1|
0001b500 32 2c 52 31 30 2c 23 26 46 46 0d a3 34 1b 4c 44 |2,R10,#&FF..4.LD|
0001b510 52 20 52 31 32 2c 5b 52 32 2c 52 31 32 2c 4c 53 |R R12,[R2,R12,LS|
0001b520 4c 20 23 32 5d 0d a3 3e 2c 4c 44 52 20 52 31 34 |L #2]..>,LDR R14|
0001b530 2c 5b 52 37 2c 52 31 31 2c 4c 53 4c 20 23 32 5d |,[R7,R11,LSL #2]|
0001b540 3a 41 44 44 53 20 52 31 34 2c 52 31 34 2c 52 31 |:ADDS R14,R14,R1|
0001b550 32 0d a3 48 38 4d 4f 56 4d 49 20 52 31 34 2c 23 |2..H8MOVMI R14,#|
0001b560 30 3a 43 4d 50 20 52 31 34 2c 23 46 3a 4d 4f 56 |0:CMP R14,#F:MOV|
0001b570 43 53 20 52 31 34 2c 23 46 3a 53 54 52 20 52 31 |CS R14,#F:STR R1|
0001b580 34 2c 5b 52 39 5d 2c 23 34 0d a3 52 2a 4c 44 52 |4,[R9],#4..R*LDR|
0001b590 20 52 31 34 2c 5b 52 36 2c 52 38 2c 4c 53 4c 20 | R14,[R6,R8,LSL |
0001b5a0 23 32 5d 3a 41 44 44 20 52 31 34 2c 52 31 34 2c |#2]:ADD R14,R14,|
0001b5b0 52 31 32 0d a3 5c 2c 4c 44 52 20 52 31 32 2c 5b |R12..\,LDR R12,[|
0001b5c0 52 35 2c 52 31 31 2c 4c 53 4c 20 23 32 5d 3a 41 |R5,R11,LSL #2]:A|
0001b5d0 44 44 53 20 52 31 34 2c 52 31 34 2c 52 31 32 0d |DDS R14,R14,R12.|
0001b5e0 a3 66 38 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a |.f8MOVMI R14,#0:|
0001b5f0 43 4d 50 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 |CMP R14,#F:MOVCS|
0001b600 20 52 31 34 2c 23 46 3a 53 54 52 20 52 31 34 2c | R14,#F:STR R14,|
0001b610 5b 52 39 5d 2c 23 34 0d a3 70 12 80 20 52 31 32 |[R9],#4..p.. R12|
0001b620 2c 52 31 30 2c 23 26 46 46 0d a3 7a 1b 4c 44 52 |,R10,#&FF..z.LDR|
0001b630 20 52 31 32 2c 5b 52 32 2c 52 31 32 2c 4c 53 4c | R12,[R2,R12,LSL|
0001b640 20 23 32 5d 0d a3 84 2b 4c 44 52 20 52 31 34 2c | #2]...+LDR R14,|
0001b650 5b 52 33 2c 52 38 2c 4c 53 4c 20 23 32 5d 3a 41 |[R3,R8,LSL #2]:A|
0001b660 44 44 53 20 52 31 34 2c 52 31 32 2c 52 31 34 0d |DDS R14,R12,R14.|
0001b670 a3 8e 38 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a |..8MOVMI R14,#0:|
0001b680 43 4d 50 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 |CMP R14,#F:MOVCS|
0001b690 20 52 31 34 2c 23 46 3a 53 54 52 20 52 31 34 2c | R14,#F:STR R14,|
0001b6a0 5b 52 39 5d 2c 23 34 0d a3 a2 1e 53 55 42 53 20 |[R9],#4....SUBS |
0001b6b0 52 30 2c 52 30 2c 23 34 3a 42 4e 45 20 6d 61 70 |R0,R0,#4:BNE map|
0001b6c0 70 69 78 6c 70 0d a3 ac 14 4c 44 4d 46 44 20 53 |pixlp....LDMFD S|
0001b6d0 50 20 21 2c 7b 50 43 7d 5e 0d a3 b6 05 5d 0d a3 |P !,{PC}^....]..|
0001b6e0 c0 09 c9 20 34 32 33 0d a3 ca 0a 5b 4f 50 54 20 |... 423....[OPT |
0001b6f0 5a 0d a3 d4 0c 2e 6d 61 70 70 69 78 25 0d a3 de |Z.....mappix%...|
0001b700 10 4c 44 52 20 52 30 2c 73 78 6c 6f 63 0d a3 e8 |.LDR R0,sxloc...|
0001b710 1b 4c 44 52 20 52 31 2c 5b 52 39 5d 3a 4c 44 52 |.LDR R1,[R9]:LDR|
0001b720 20 52 31 2c 5b 52 31 5d 0d a3 f2 14 4c 44 52 20 | R1,[R1]....LDR |
0001b730 52 32 2c 5b 52 39 2c 23 31 2a 38 5d 0d a3 fc 14 |R2,[R9,#1*8]....|
0001b740 4c 44 52 20 52 33 2c 5b 52 39 2c 23 32 2a 38 5d |LDR R3,[R9,#2*8]|
0001b750 0d a4 06 14 4c 44 52 20 52 34 2c 5b 52 39 2c 23 |....LDR R4,[R9,#|
0001b760 33 2a 38 5d 0d a4 10 14 4c 44 52 20 52 35 2c 5b |3*8]....LDR R5,[|
0001b770 52 39 2c 23 34 2a 38 5d 0d a4 1a 14 4c 44 52 20 |R9,#4*8]....LDR |
0001b780 52 36 2c 5b 52 39 2c 23 35 2a 38 5d 0d a4 24 14 |R6,[R9,#5*8]..$.|
0001b790 4c 44 52 20 52 37 2c 5b 52 39 2c 23 36 2a 38 5d |LDR R7,[R9,#6*8]|
0001b7a0 0d a4 2e 14 4c 44 52 20 52 38 2c 5b 52 39 2c 23 |....LDR R8,[R9,#|
0001b7b0 37 2a 38 5d 0d a4 38 14 4c 44 52 20 52 39 2c 5b |7*8]..8.LDR R9,[|
0001b7c0 52 39 2c 23 38 2a 38 5d 0d a4 42 14 53 54 4d 46 |R9,#8*8]..B.STMF|
0001b7d0 44 20 53 50 20 21 2c 7b 52 31 34 7d 0d a4 4c 0d |D SP !,{R14}..L.|
0001b7e0 2e 6d 61 70 70 69 78 6c 70 0d a4 56 13 4c 44 52 |.mappixlp..V.LDR|
0001b7f0 20 52 31 30 2c 5b 52 31 5d 2c 23 34 0d a4 60 14 | R10,[R1],#4..`.|
0001b800 80 20 52 31 31 2c 52 31 30 2c 23 26 46 46 30 30 |. R11,R10,#&FF00|
0001b810 0d a4 6a 1b 4c 44 52 20 52 31 31 2c 5b 52 32 2c |..j.LDR R11,[R2,|
0001b820 52 31 31 2c 4c 53 52 20 23 36 5d 0d a4 74 3a 80 |R11,LSR #6]..t:.|
0001b830 20 52 31 32 2c 52 31 30 2c 23 26 46 46 3a 4c 44 | R12,R10,#&FF:LD|
0001b840 52 20 52 31 32 2c 5b 52 37 2c 52 31 32 2c 4c 53 |R R12,[R7,R12,LS|
0001b850 4c 20 23 32 5d 3a 41 44 44 20 52 31 34 2c 52 31 |L #2]:ADD R14,R1|
0001b860 32 2c 52 31 31 0d a4 7e 40 80 20 52 31 32 2c 52 |2,R11..~@. R12,R|
0001b870 31 30 2c 23 26 46 46 30 30 30 30 3a 4c 44 52 20 |10,#&FF0000:LDR |
0001b880 52 31 32 2c 5b 52 38 2c 52 31 32 2c 4c 53 52 20 |R12,[R8,R12,LSR |
0001b890 23 31 34 5d 3a 41 44 44 53 20 52 31 34 2c 52 31 |#14]:ADDS R14,R1|
0001b8a0 34 2c 52 31 32 0d a4 88 38 4d 4f 56 4d 49 20 52 |4,R12...8MOVMI R|
0001b8b0 31 34 2c 23 30 3a 43 4d 50 20 52 31 34 2c 23 46 |14,#0:CMP R14,#F|
0001b8c0 3a 4d 4f 56 43 53 20 52 31 34 2c 23 46 3a 53 54 |:MOVCS R14,#F:ST|
0001b8d0 52 20 52 31 34 2c 5b 52 39 5d 2c 23 34 0d a4 92 |R R14,[R9],#4...|
0001b8e0 3a 80 20 52 31 32 2c 52 31 30 2c 23 26 46 46 3a |:. R12,R10,#&FF:|
0001b8f0 4c 44 52 20 52 31 32 2c 5b 52 35 2c 52 31 32 2c |LDR R12,[R5,R12,|
0001b900 4c 53 4c 20 23 32 5d 3a 41 44 44 20 52 31 34 2c |LSL #2]:ADD R14,|
0001b910 52 31 32 2c 52 31 31 0d a4 9c 40 80 20 52 31 32 |R12,R11...@. R12|
0001b920 2c 52 31 30 2c 23 26 46 46 30 30 30 30 3a 4c 44 |,R10,#&FF0000:LD|
0001b930 52 20 52 31 32 2c 5b 52 36 2c 52 31 32 2c 4c 53 |R R12,[R6,R12,LS|
0001b940 52 20 23 31 34 5d 3a 41 44 44 53 20 52 31 34 2c |R #14]:ADDS R14,|
0001b950 52 31 34 2c 52 31 32 0d a4 a6 38 4d 4f 56 4d 49 |R14,R12...8MOVMI|
0001b960 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 34 2c | R14,#0:CMP R14,|
0001b970 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 46 3a |#F:MOVCS R14,#F:|
0001b980 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 34 0d |STR R14,[R9],#4.|
0001b990 a4 b0 3a 80 20 52 31 32 2c 52 31 30 2c 23 26 46 |..:. R12,R10,#&F|
0001b9a0 46 3a 4c 44 52 20 52 31 32 2c 5b 52 33 2c 52 31 |F:LDR R12,[R3,R1|
0001b9b0 32 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 20 52 31 |2,LSL #2]:ADD R1|
0001b9c0 34 2c 52 31 32 2c 52 31 31 0d a4 ba 40 80 20 52 |4,R12,R11...@. R|
0001b9d0 31 32 2c 52 31 30 2c 23 26 46 46 30 30 30 30 3a |12,R10,#&FF0000:|
0001b9e0 4c 44 52 20 52 31 32 2c 5b 52 34 2c 52 31 32 2c |LDR R12,[R4,R12,|
0001b9f0 4c 53 52 20 23 31 34 5d 3a 41 44 44 53 20 52 31 |LSR #14]:ADDS R1|
0001ba00 34 2c 52 31 34 2c 52 31 32 0d a4 c4 38 4d 4f 56 |4,R14,R12...8MOV|
0001ba10 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 |MI R14,#0:CMP R1|
0001ba20 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 |4,#F:MOVCS R14,#|
0001ba30 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 |F:STR R14,[R9],#|
0001ba40 34 0d a4 ce 18 80 20 52 31 31 2c 52 31 30 2c 23 |4..... R11,R10,#|
0001ba50 26 46 46 30 30 30 30 30 30 0d a4 d8 1c 4c 44 52 |&FF000000....LDR|
0001ba60 20 52 31 31 2c 5b 52 32 2c 52 31 31 2c 4c 53 52 | R11,[R2,R11,LSR|
0001ba70 20 23 32 32 5d 0d a4 e2 3a 80 20 52 31 32 2c 52 | #22]...:. R12,R|
0001ba80 31 30 2c 23 26 46 46 3a 4c 44 52 20 52 31 32 2c |10,#&FF:LDR R12,|
0001ba90 5b 52 37 2c 52 31 32 2c 4c 53 4c 20 23 32 5d 3a |[R7,R12,LSL #2]:|
0001baa0 41 44 44 20 52 31 34 2c 52 31 32 2c 52 31 31 0d |ADD R14,R12,R11.|
0001bab0 a4 ec 40 80 20 52 31 32 2c 52 31 30 2c 23 26 46 |..@. R12,R10,#&F|
0001bac0 46 30 30 30 30 3a 4c 44 52 20 52 31 32 2c 5b 52 |F0000:LDR R12,[R|
0001bad0 38 2c 52 31 32 2c 4c 53 52 20 23 31 34 5d 3a 41 |8,R12,LSR #14]:A|
0001bae0 44 44 53 20 52 31 34 2c 52 31 34 2c 52 31 32 0d |DDS R14,R14,R12.|
0001baf0 a4 f6 38 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a |..8MOVMI R14,#0:|
0001bb00 43 4d 50 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 |CMP R14,#F:MOVCS|
0001bb10 20 52 31 34 2c 23 46 3a 53 54 52 20 52 31 34 2c | R14,#F:STR R14,|
0001bb20 5b 52 39 5d 2c 23 34 0d a5 00 3a 80 20 52 31 32 |[R9],#4...:. R12|
0001bb30 2c 52 31 30 2c 23 26 46 46 3a 4c 44 52 20 52 31 |,R10,#&FF:LDR R1|
0001bb40 32 2c 5b 52 35 2c 52 31 32 2c 4c 53 4c 20 23 32 |2,[R5,R12,LSL #2|
0001bb50 5d 3a 41 44 44 20 52 31 34 2c 52 31 32 2c 52 31 |]:ADD R14,R12,R1|
0001bb60 31 0d a5 0a 40 80 20 52 31 32 2c 52 31 30 2c 23 |1...@. R12,R10,#|
0001bb70 26 46 46 30 30 30 30 3a 4c 44 52 20 52 31 32 2c |&FF0000:LDR R12,|
0001bb80 5b 52 36 2c 52 31 32 2c 4c 53 52 20 23 31 34 5d |[R6,R12,LSR #14]|
0001bb90 3a 41 44 44 53 20 52 31 34 2c 52 31 34 2c 52 31 |:ADDS R14,R14,R1|
0001bba0 32 0d a5 14 38 4d 4f 56 4d 49 20 52 31 34 2c 23 |2...8MOVMI R14,#|
0001bbb0 30 3a 43 4d 50 20 52 31 34 2c 23 46 3a 4d 4f 56 |0:CMP R14,#F:MOV|
0001bbc0 43 53 20 52 31 34 2c 23 46 3a 53 54 52 20 52 31 |CS R14,#F:STR R1|
0001bbd0 34 2c 5b 52 39 5d 2c 23 34 0d a5 1e 3a 80 20 52 |4,[R9],#4...:. R|
0001bbe0 31 32 2c 52 31 30 2c 23 26 46 46 3a 4c 44 52 20 |12,R10,#&FF:LDR |
0001bbf0 52 31 32 2c 5b 52 33 2c 52 31 32 2c 4c 53 4c 20 |R12,[R3,R12,LSL |
0001bc00 23 32 5d 3a 41 44 44 20 52 31 34 2c 52 31 32 2c |#2]:ADD R14,R12,|
0001bc10 52 31 31 0d a5 28 40 80 20 52 31 32 2c 52 31 30 |R11..(@. R12,R10|
0001bc20 2c 23 26 46 46 30 30 30 30 3a 4c 44 52 20 52 31 |,#&FF0000:LDR R1|
0001bc30 32 2c 5b 52 34 2c 52 31 32 2c 4c 53 52 20 23 31 |2,[R4,R12,LSR #1|
0001bc40 34 5d 3a 41 44 44 53 20 52 31 34 2c 52 31 34 2c |4]:ADDS R14,R14,|
0001bc50 52 31 32 0d a5 32 38 4d 4f 56 4d 49 20 52 31 34 |R12..28MOVMI R14|
0001bc60 2c 23 30 3a 43 4d 50 20 52 31 34 2c 23 46 3a 4d |,#0:CMP R14,#F:M|
0001bc70 4f 56 43 53 20 52 31 34 2c 23 46 3a 53 54 52 20 |OVCS R14,#F:STR |
0001bc80 52 31 34 2c 5b 52 39 5d 2c 23 34 0d a5 3c 1e 53 |R14,[R9],#4..<.S|
0001bc90 55 42 53 20 52 30 2c 52 30 2c 23 32 3a 42 4e 45 |UBS R0,R0,#2:BNE|
0001bca0 20 6d 61 70 70 69 78 6c 70 0d a5 46 14 4c 44 4d | mappixlp..F.LDM|
0001bcb0 46 44 20 53 50 20 21 2c 7b 50 43 7d 5e 0d a5 50 |FD SP !,{PC}^..P|
0001bcc0 05 5d 0d a5 5a 09 c9 20 34 32 32 0d a5 64 0a 5b |.]..Z.. 422..d.[|
0001bcd0 4f 50 54 20 5a 0d a5 6e 0c 2e 6d 61 70 70 69 78 |OPT Z..n..mappix|
0001bce0 25 0d a5 78 10 4c 44 52 20 52 30 2c 73 78 6c 6f |%..x.LDR R0,sxlo|
0001bcf0 63 0d a5 82 1b 4c 44 52 20 52 31 2c 5b 52 39 5d |c....LDR R1,[R9]|
0001bd00 3a 4c 44 52 20 52 31 2c 5b 52 31 5d 0d a5 8c 14 |:LDR R1,[R1]....|
0001bd10 4c 44 52 20 52 32 2c 5b 52 39 2c 23 31 2a 38 5d |LDR R2,[R9,#1*8]|
0001bd20 0d a5 96 14 4c 44 52 20 52 33 2c 5b 52 39 2c 23 |....LDR R3,[R9,#|
0001bd30 32 2a 38 5d 0d a5 a0 14 4c 44 52 20 52 35 2c 5b |2*8]....LDR R5,[|
0001bd40 52 39 2c 23 34 2a 38 5d 0d a5 aa 14 4c 44 52 20 |R9,#4*8]....LDR |
0001bd50 52 36 2c 5b 52 39 2c 23 35 2a 38 5d 0d a5 b4 14 |R6,[R9,#5*8]....|
0001bd60 4c 44 52 20 52 37 2c 5b 52 39 2c 23 36 2a 38 5d |LDR R7,[R9,#6*8]|
0001bd70 0d a5 be 14 4c 44 52 20 52 39 2c 5b 52 39 2c 23 |....LDR R9,[R9,#|
0001bd80 38 2a 38 5d 0d a5 c8 14 53 54 4d 46 44 20 53 50 |8*8]....STMFD SP|
0001bd90 20 21 2c 7b 52 31 34 7d 0d a5 d2 0d 2e 6d 61 70 | !,{R14}.....map|
0001bda0 70 69 78 6c 70 0d a5 dc 13 4c 44 52 20 52 31 30 |pixlp....LDR R10|
0001bdb0 2c 5b 52 31 5d 2c 23 34 0d a5 e6 14 80 20 52 31 |,[R1],#4..... R1|
0001bdc0 31 2c 52 31 30 2c 23 26 46 46 30 30 0d a5 f0 1b |1,R10,#&FF00....|
0001bdd0 4c 44 52 20 52 31 31 2c 5b 52 32 2c 52 31 31 2c |LDR R11,[R2,R11,|
0001bde0 4c 53 52 20 23 36 5d 0d a5 fa 40 80 20 52 31 32 |LSR #6]...@. R12|
0001bdf0 2c 52 31 30 2c 23 26 46 46 30 30 30 30 3a 4c 44 |,R10,#&FF0000:LD|
0001be00 52 20 52 31 32 2c 5b 52 37 2c 52 31 32 2c 4c 53 |R R12,[R7,R12,LS|
0001be10 52 20 23 31 34 5d 3a 41 44 44 53 20 52 31 34 2c |R #14]:ADDS R14,|
0001be20 52 31 32 2c 52 31 31 0d a6 04 38 4d 4f 56 4d 49 |R12,R11...8MOVMI|
0001be30 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 34 2c | R14,#0:CMP R14,|
0001be40 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 46 3a |#F:MOVCS R14,#F:|
0001be50 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 34 0d |STR R14,[R9],#4.|
0001be60 a6 0e 3a 80 20 52 31 32 2c 52 31 30 2c 23 26 46 |..:. R12,R10,#&F|
0001be70 46 3a 4c 44 52 20 52 31 32 2c 5b 52 35 2c 52 31 |F:LDR R12,[R5,R1|
0001be80 32 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 20 52 31 |2,LSL #2]:ADD R1|
0001be90 34 2c 52 31 32 2c 52 31 31 0d a6 18 40 80 20 52 |4,R12,R11...@. R|
0001bea0 31 32 2c 52 31 30 2c 23 26 46 46 30 30 30 30 3a |12,R10,#&FF0000:|
0001beb0 4c 44 52 20 52 31 32 2c 5b 52 36 2c 52 31 32 2c |LDR R12,[R6,R12,|
0001bec0 4c 53 52 20 23 31 34 5d 3a 41 44 44 53 20 52 31 |LSR #14]:ADDS R1|
0001bed0 34 2c 52 31 34 2c 52 31 32 0d a6 22 38 4d 4f 56 |4,R14,R12.."8MOV|
0001bee0 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 |MI R14,#0:CMP R1|
0001bef0 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 |4,#F:MOVCS R14,#|
0001bf00 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 |F:STR R14,[R9],#|
0001bf10 34 0d a6 2c 3b 80 20 52 31 32 2c 52 31 30 2c 23 |4..,;. R12,R10,#|
0001bf20 26 46 46 3a 4c 44 52 20 52 31 32 2c 5b 52 33 2c |&FF:LDR R12,[R3,|
0001bf30 52 31 32 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 53 |R12,LSL #2]:ADDS|
0001bf40 20 52 31 34 2c 52 31 32 2c 52 31 31 0d a6 36 38 | R14,R12,R11..68|
0001bf50 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 |MOVMI R14,#0:CMP|
0001bf60 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 | R14,#F:MOVCS R1|
0001bf70 34 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 |4,#F:STR R14,[R9|
0001bf80 5d 2c 23 34 0d a6 40 18 80 20 52 31 31 2c 52 31 |],#4..@.. R11,R1|
0001bf90 30 2c 23 26 46 46 30 30 30 30 30 30 0d a6 4a 1c |0,#&FF000000..J.|
0001bfa0 4c 44 52 20 52 31 31 2c 5b 52 32 2c 52 31 31 2c |LDR R11,[R2,R11,|
0001bfb0 4c 53 52 20 23 32 32 5d 0d a6 54 40 80 20 52 31 |LSR #22]..T@. R1|
0001bfc0 32 2c 52 31 30 2c 23 26 46 46 30 30 30 30 3a 4c |2,R10,#&FF0000:L|
0001bfd0 44 52 20 52 31 32 2c 5b 52 37 2c 52 31 32 2c 4c |DR R12,[R7,R12,L|
0001bfe0 53 52 20 23 31 34 5d 3a 41 44 44 53 20 52 31 34 |SR #14]:ADDS R14|
0001bff0 2c 52 31 32 2c 52 31 31 0d a6 5e 38 4d 4f 56 4d |,R12,R11..^8MOVM|
0001c000 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 31 34 |I R14,#0:CMP R14|
0001c010 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c 23 46 |,#F:MOVCS R14,#F|
0001c020 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c 23 34 |:STR R14,[R9],#4|
0001c030 0d a6 68 3a 80 20 52 31 32 2c 52 31 30 2c 23 26 |..h:. R12,R10,#&|
0001c040 46 46 3a 4c 44 52 20 52 31 32 2c 5b 52 35 2c 52 |FF:LDR R12,[R5,R|
0001c050 31 32 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 20 52 |12,LSL #2]:ADD R|
0001c060 31 34 2c 52 31 32 2c 52 31 31 0d a6 72 40 80 20 |14,R12,R11..r@. |
0001c070 52 31 32 2c 52 31 30 2c 23 26 46 46 30 30 30 30 |R12,R10,#&FF0000|
0001c080 3a 4c 44 52 20 52 31 32 2c 5b 52 36 2c 52 31 32 |:LDR R12,[R6,R12|
0001c090 2c 4c 53 52 20 23 31 34 5d 3a 41 44 44 53 20 52 |,LSR #14]:ADDS R|
0001c0a0 31 34 2c 52 31 34 2c 52 31 32 0d a6 7c 38 4d 4f |14,R14,R12..|8MO|
0001c0b0 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 20 52 |VMI R14,#0:CMP R|
0001c0c0 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 34 2c |14,#F:MOVCS R14,|
0001c0d0 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 5d 2c |#F:STR R14,[R9],|
0001c0e0 23 34 0d a6 86 3b 80 20 52 31 32 2c 52 31 30 2c |#4...;. R12,R10,|
0001c0f0 23 26 46 46 3a 4c 44 52 20 52 31 32 2c 5b 52 33 |#&FF:LDR R12,[R3|
0001c100 2c 52 31 32 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 |,R12,LSL #2]:ADD|
0001c110 53 20 52 31 34 2c 52 31 32 2c 52 31 31 0d a6 90 |S R14,R12,R11...|
0001c120 38 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d |8MOVMI R14,#0:CM|
0001c130 50 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 |P R14,#F:MOVCS R|
0001c140 31 34 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 |14,#F:STR R14,[R|
0001c150 39 5d 2c 23 34 0d a6 9a 1e 53 55 42 53 20 52 30 |9],#4....SUBS R0|
0001c160 2c 52 30 2c 23 32 3a 42 4e 45 20 6d 61 70 70 69 |,R0,#2:BNE mappi|
0001c170 78 6c 70 0d a6 a4 14 4c 44 4d 46 44 20 53 50 20 |xlp....LDMFD SP |
0001c180 21 2c 7b 50 43 7d 5e 0d a6 ae 05 5d 0d a6 b8 09 |!,{PC}^....]....|
0001c190 c9 20 35 35 35 0d a6 cc 0a 5b 4f 50 54 20 5a 0d |. 555....[OPT Z.|
0001c1a0 a6 d6 0c 2e 6d 61 70 70 69 78 25 0d a6 e0 10 4c |....mappix%....L|
0001c1b0 44 52 20 52 30 2c 73 78 6c 6f 63 0d a6 ea 1b 4c |DR R0,sxloc....L|
0001c1c0 44 52 20 52 31 2c 5b 52 39 5d 3a 4c 44 52 20 52 |DR R1,[R9]:LDR R|
0001c1d0 31 2c 5b 52 31 5d 0d a6 f4 14 4c 44 52 20 52 32 |1,[R1]....LDR R2|
0001c1e0 2c 5b 52 39 2c 23 31 2a 38 5d 0d a6 fe 14 4c 44 |,[R9,#1*8]....LD|
0001c1f0 52 20 52 33 2c 5b 52 39 2c 23 32 2a 38 5d 0d a7 |R R3,[R9,#2*8]..|
0001c200 08 14 4c 44 52 20 52 35 2c 5b 52 39 2c 23 34 2a |..LDR R5,[R9,#4*|
0001c210 38 5d 0d a7 12 14 4c 44 52 20 52 36 2c 5b 52 39 |8]....LDR R6,[R9|
0001c220 2c 23 35 2a 38 5d 0d a7 1c 14 4c 44 52 20 52 37 |,#5*8]....LDR R7|
0001c230 2c 5b 52 39 2c 23 36 2a 38 5d 0d a7 26 14 4c 44 |,[R9,#6*8]..&.LD|
0001c240 52 20 52 39 2c 5b 52 39 2c 23 38 2a 38 5d 0d a7 |R R9,[R9,#8*8]..|
0001c250 30 14 53 54 4d 46 44 20 53 50 20 21 2c 7b 52 31 |0.STMFD SP !,{R1|
0001c260 34 7d 0d a7 3a 0d 2e 6d 61 70 70 69 78 6c 70 0d |4}..:..mappixlp.|
0001c270 a7 44 13 4c 44 52 20 52 31 30 2c 5b 52 31 5d 2c |.D.LDR R10,[R1],|
0001c280 23 32 0d a7 4e 14 80 20 52 31 31 2c 52 31 30 2c |#2..N.. R11,R10,|
0001c290 23 79 6d 61 78 25 0d a7 58 1b 4c 44 52 20 52 31 |#ymax%..X.LDR R1|
0001c2a0 31 2c 5b 52 32 2c 52 31 31 2c 4c 53 4c 20 23 32 |1,[R2,R11,LSL #2|
0001c2b0 5d 0d a7 62 2e 80 20 52 38 2c 52 31 30 2c 23 28 |]..b.. R8,R10,#(|
0001c2c0 28 31 3c 3c 76 62 69 74 73 25 29 2d 31 29 3c 3c |(1<<vbits%)-1)<<|
0001c2d0 28 79 62 69 74 73 25 2b 75 62 69 74 73 25 29 0d |(ybits%+ubits%).|
0001c2e0 a7 6c 26 80 20 52 31 30 2c 52 31 30 2c 23 28 28 |.l&. R10,R10,#((|
0001c2f0 31 3c 3c 75 62 69 74 73 25 29 2d 31 29 3c 3c 79 |1<<ubits%)-1)<<y|
0001c300 62 69 74 73 25 0d a7 80 39 4c 44 52 20 52 31 32 |bits%...9LDR R12|
0001c310 2c 5b 52 37 2c 52 38 2c 4c 53 52 20 23 79 62 69 |,[R7,R8,LSR #ybi|
0001c320 74 73 25 2b 75 62 69 74 73 25 2d 32 5d 3a 41 44 |ts%+ubits%-2]:AD|
0001c330 44 53 20 52 31 34 2c 52 31 32 2c 52 31 31 0d a7 |DS R14,R12,R11..|
0001c340 8a 38 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 |.8MOVMI R14,#0:C|
0001c350 4d 50 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 |MP R14,#F:MOVCS |
0001c360 52 31 34 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b |R14,#F:STR R14,[|
0001c370 52 39 5d 2c 23 34 0d a7 94 38 4c 44 52 20 52 31 |R9],#4...8LDR R1|
0001c380 32 2c 5b 52 35 2c 52 38 2c 4c 53 52 20 23 79 62 |2,[R5,R8,LSR #yb|
0001c390 69 74 73 25 2b 75 62 69 74 73 25 2d 32 5d 3a 41 |its%+ubits%-2]:A|
0001c3a0 44 44 20 52 31 34 2c 52 31 32 2c 52 31 31 0d a7 |DD R14,R12,R11..|
0001c3b0 9e 33 4c 44 52 20 52 31 32 2c 5b 52 36 2c 52 31 |.3LDR R12,[R6,R1|
0001c3c0 30 2c 4c 53 52 20 23 79 62 69 74 73 25 2d 32 5d |0,LSR #ybits%-2]|
0001c3d0 3a 41 44 44 53 20 52 31 34 2c 52 31 34 2c 52 31 |:ADDS R14,R14,R1|
0001c3e0 32 0d a7 a8 38 4d 4f 56 4d 49 20 52 31 34 2c 23 |2...8MOVMI R14,#|
0001c3f0 30 3a 43 4d 50 20 52 31 34 2c 23 46 3a 4d 4f 56 |0:CMP R14,#F:MOV|
0001c400 43 53 20 52 31 34 2c 23 46 3a 53 54 52 20 52 31 |CS R14,#F:STR R1|
0001c410 34 2c 5b 52 39 5d 2c 23 34 0d a7 b2 33 4c 44 52 |4,[R9],#4...3LDR|
0001c420 20 52 31 32 2c 5b 52 33 2c 52 31 30 2c 4c 53 52 | R12,[R3,R10,LSR|
0001c430 20 23 79 62 69 74 73 25 2d 32 5d 3a 41 44 44 53 | #ybits%-2]:ADDS|
0001c440 20 52 31 34 2c 52 31 32 2c 52 31 31 0d a7 bc 38 | R14,R12,R11...8|
0001c450 4d 4f 56 4d 49 20 52 31 34 2c 23 30 3a 43 4d 50 |MOVMI R14,#0:CMP|
0001c460 20 52 31 34 2c 23 46 3a 4d 4f 56 43 53 20 52 31 | R14,#F:MOVCS R1|
0001c470 34 2c 23 46 3a 53 54 52 20 52 31 34 2c 5b 52 39 |4,#F:STR R14,[R9|
0001c480 5d 2c 23 34 0d a7 c6 1e 53 55 42 53 20 52 30 2c |],#4....SUBS R0,|
0001c490 52 30 2c 23 31 3a 42 4e 45 20 6d 61 70 70 69 78 |R0,#1:BNE mappix|
0001c4a0 6c 70 0d a7 d0 14 4c 44 4d 46 44 20 53 50 20 21 |lp....LDMFD SP !|
0001c4b0 2c 7b 50 43 7d 5e 0d a7 da 05 5d 0d a7 e4 05 cb |,{PC}^....].....|
0001c4c0 0d a7 ee 18 e7 78 6d 75 6c 25 3d 32 20 80 20 78 |.....xmul%=2 . x|
0001c4d0 64 69 76 25 3d 31 20 8c 0d a7 f8 0a 5b 4f 50 54 |div%=1 .....[OPT|
0001c4e0 20 5a 0d a8 0c 0d 2e 78 73 61 6d 70 6c 65 25 0d | Z.....xsample%.|
0001c4f0 a8 16 1b 4c 44 52 20 52 30 2c 5b 52 39 5d 3a 4c |...LDR R0,[R9]:L|
0001c500 44 52 20 52 30 2c 5b 52 30 5d 0d a8 20 12 4c 44 |DR R0,[R0].. .LD|
0001c510 52 20 52 31 2c 5b 52 39 2c 23 38 5d 0d a8 2a 14 |R R1,[R9,#8]..*.|
0001c520 4c 44 52 20 52 32 2c 5b 52 39 2c 23 32 2a 38 5d |LDR R2,[R9,#2*8]|
0001c530 0d a8 34 11 53 55 42 53 20 52 30 2c 52 30 2c 23 |..4.SUBS R0,R0,#|
0001c540 32 0d a8 3e 10 42 45 51 20 78 64 6f 6e 65 64 69 |2..>.BEQ xdonedi|
0001c550 76 0d a8 48 10 42 4d 49 20 78 64 6f 6e 65 64 69 |v..H.BMI xdonedi|
0001c560 76 0d a8 52 0e 2e 78 73 61 6d 70 6c 65 6c 70 0d |v..R..xsamplelp.|
0001c570 a8 5c 21 4c 44 4d 49 41 20 52 31 2c 7b 52 35 2c |.\!LDMIA R1,{R5,|
0001c580 52 36 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 7d |R6,R7,R8,R9,R10}|
0001c590 0d a8 66 10 41 44 44 20 52 38 2c 52 38 2c 52 35 |..f.ADD R8,R8,R5|
0001c5a0 0d a8 70 14 4d 4f 56 20 52 38 2c 52 38 2c 4c 53 |..p.MOV R8,R8,LS|
0001c5b0 52 20 23 31 0d a8 7a 10 41 44 44 20 52 39 2c 52 |R #1..z.ADD R9,R|
0001c5c0 39 2c 52 36 0d a8 84 14 4d 4f 56 20 52 39 2c 52 |9,R6....MOV R9,R|
0001c5d0 39 2c 4c 53 52 20 23 31 0d a8 8e 12 41 44 44 20 |9,LSR #1....ADD |
0001c5e0 52 31 30 2c 52 31 30 2c 52 37 0d a8 98 16 4d 4f |R10,R10,R7....MO|
0001c5f0 56 20 52 31 30 2c 52 31 30 2c 4c 53 52 20 23 31 |V R10,R10,LSR #1|
0001c600 0d a8 a2 22 53 54 4d 49 41 20 52 32 21 2c 7b 52 |..."STMIA R2!,{R|
0001c610 35 2c 52 36 2c 52 37 2c 52 38 2c 52 39 2c 52 31 |5,R6,R7,R8,R9,R1|
0001c620 30 7d 0d a8 ac 11 41 44 44 20 52 31 2c 52 31 2c |0}....ADD R1,R1,|
0001c630 23 31 32 0d a8 b6 1f 53 55 42 53 20 52 30 2c 52 |#12....SUBS R0,R|
0001c640 30 2c 23 32 3a 42 47 54 20 78 73 61 6d 70 6c 65 |0,#2:BGT xsample|
0001c650 6c 70 0d a8 c0 0d 2e 78 64 6f 6e 65 64 69 76 0d |lp.....xdonediv.|
0001c660 a8 ca 17 4c 44 4d 49 41 20 52 31 2c 7b 52 35 2c |...LDMIA R1,{R5,|
0001c670 52 36 2c 52 37 7d 0d a8 d4 0d 4d 4f 56 20 52 38 |R6,R7}....MOV R8|
0001c680 2c 52 35 0d a8 de 0d 4d 4f 56 20 52 39 2c 52 36 |,R5....MOV R9,R6|
0001c690 0d a8 e8 0e 4d 4f 56 20 52 31 30 2c 52 37 0d a8 |....MOV R10,R7..|
0001c6a0 f2 22 53 54 4d 49 41 20 52 32 21 2c 7b 52 35 2c |."STMIA R2!,{R5,|
0001c6b0 52 36 2c 52 37 2c 52 38 2c 52 39 2c 52 31 30 7d |R6,R7,R8,R9,R10}|
0001c6c0 0d a8 fc 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d |....MOVS PC,R14.|
0001c6d0 a9 06 05 5d 0d a9 10 05 cc 0d a9 1a 0a 5b 4f 50 |...].........[OP|
0001c6e0 54 20 5a 0d a9 2e 0d 2e 78 73 61 6d 70 6c 65 25 |T Z.....xsample%|
0001c6f0 0d a9 38 1b 4c 44 52 20 52 30 2c 5b 52 39 5d 3a |..8.LDR R0,[R9]:|
0001c700 4c 44 52 20 52 30 2c 5b 52 30 5d 0d a9 42 12 4c |LDR R0,[R0]..B.L|
0001c710 44 52 20 52 31 2c 5b 52 39 2c 23 38 5d 0d a9 4c |DR R1,[R9,#8]..L|
0001c720 14 4c 44 52 20 52 32 2c 5b 52 39 2c 23 32 2a 38 |.LDR R2,[R9,#2*8|
0001c730 5d 0d a9 56 20 4c 44 52 20 52 33 2c 5b 52 39 2c |]..V LDR R3,[R9,|
0001c740 23 33 2a 38 5d 3a 4c 44 52 20 52 33 2c 5b 52 33 |#3*8]:LDR R3,[R3|
0001c750 5d 0d a9 60 20 4c 44 52 20 52 34 2c 5b 52 39 2c |]..` LDR R4,[R9,|
0001c760 23 34 2a 38 5d 3a 4c 44 52 20 52 34 2c 5b 52 34 |#4*8]:LDR R4,[R4|
0001c770 5d 0d a9 6a 0e 4d 4f 56 20 52 31 31 2c 52 34 0d |]..j.MOV R11,R4.|
0001c780 a9 74 0e 2e 78 73 61 6d 70 6c 65 6c 70 0d a9 7e |.t..xsamplelp..~|
0001c790 17 4c 44 4d 49 41 20 52 31 2c 7b 52 35 2c 52 36 |.LDMIA R1,{R5,R6|
0001c7a0 2c 52 37 7d 0d a9 88 2d 53 55 42 53 20 52 31 31 |,R7}...-SUBS R11|
0001c7b0 2c 52 31 31 2c 23 31 3a ec 51 20 52 31 31 2c 52 |,R11,#1:.Q R11,R|
0001c7c0 34 3a 41 44 44 45 51 20 52 31 2c 52 31 2c 23 31 |4:ADDEQ R1,R1,#1|
0001c7d0 32 0d a9 92 12 53 55 42 53 20 52 31 32 2c 52 33 |2....SUBS R12,R3|
0001c7e0 2c 23 31 0d a9 9c 10 42 45 51 20 78 64 6f 6e 65 |,#1....BEQ xdone|
0001c7f0 64 69 76 0d a9 a6 0b 2e 78 64 69 76 6c 70 0d a9 |div.....xdivlp..|
0001c800 b0 0f 43 4d 50 20 52 31 32 2c 52 31 31 0d a9 ba |..CMP R12,R11...|
0001c810 0f 42 43 43 20 78 64 69 76 6c 70 32 0d a9 c4 4d |.BCC xdivlp2...M|
0001c820 4c 44 4d 49 41 20 52 31 21 2c 7b 52 38 2c 52 39 |LDMIA R1!,{R8,R9|
0001c830 2c 52 31 30 7d 3a 4d 4c 41 20 52 35 2c 52 38 2c |,R10}:MLA R5,R8,|
0001c840 52 31 31 2c 52 35 3a 4d 4c 41 20 52 36 2c 52 39 |R11,R5:MLA R6,R9|
0001c850 2c 52 31 31 2c 52 36 3a 4d 4c 41 20 52 37 2c 52 |,R11,R6:MLA R7,R|
0001c860 31 30 2c 52 31 31 2c 52 37 0d a9 ce 1f 53 55 42 |10,R11,R7....SUB|
0001c870 53 20 52 31 32 2c 52 31 32 2c 52 31 31 3a 4d 4f |S R12,R12,R11:MO|
0001c880 56 20 52 31 31 2c 52 34 0d a9 d8 0e 42 4e 45 20 |V R11,R4....BNE |
0001c890 78 64 69 76 6c 70 0d a9 e2 0e 42 20 78 64 6f 6e |xdivlp....B xdon|
0001c8a0 65 64 69 76 0d a9 ec 0c 2e 78 64 69 76 6c 70 32 |ediv.....xdivlp2|
0001c8b0 0d a9 f6 18 4c 44 4d 49 41 20 52 31 2c 7b 52 38 |....LDMIA R1,{R8|
0001c8c0 2c 52 39 2c 52 31 30 7d 0d aa 00 2d 53 55 42 53 |,R9,R10}...-SUBS|
0001c8d0 20 52 31 31 2c 52 31 31 2c 23 31 3a ec 51 20 52 | R11,R11,#1:.Q R|
0001c8e0 31 31 2c 52 34 3a 41 44 44 45 51 20 52 31 2c 52 |11,R4:ADDEQ R1,R|
0001c8f0 31 2c 23 31 32 0d aa 0a 2b 41 44 44 20 52 35 2c |1,#12...+ADD R5,|
0001c900 52 35 2c 52 38 3a 41 44 44 20 52 36 2c 52 36 2c |R5,R8:ADD R6,R6,|
0001c910 52 39 3a 41 44 44 20 52 37 2c 52 37 2c 52 31 30 |R9:ADD R7,R7,R10|
0001c920 0d aa 14 1e 53 55 42 53 20 52 31 32 2c 52 31 32 |....SUBS R12,R12|
0001c930 2c 23 31 3a 42 4e 45 20 78 64 69 76 6c 70 0d aa |,#1:BNE xdivlp..|
0001c940 1e 0d 2e 78 64 6f 6e 65 64 69 76 0d aa 28 18 53 |...xdonediv..(.S|
0001c950 54 4d 49 41 20 52 32 21 2c 7b 52 35 2c 52 36 2c |TMIA R2!,{R5,R6,|
0001c960 52 37 7d 0d aa 32 1f 53 55 42 53 20 52 30 2c 52 |R7}..2.SUBS R0,R|
0001c970 30 2c 23 31 3a 42 50 4c 20 78 73 61 6d 70 6c 65 |0,#1:BPL xsample|
0001c980 6c 70 0d aa 3c 0f 4d 4f 56 53 20 50 43 2c 52 31 |lp..<.MOVS PC,R1|
0001c990 34 0d aa 46 05 5d 0d aa 50 05 cd 0d aa 5a 05 cb |4..F.]..P....Z..|
0001c9a0 0d aa 64 14 e7 63 6f 6d 70 72 65 73 73 69 6f 6e |..d..compression|
0001c9b0 3d 35 20 8c 0d aa 6e 0a 5b 4f 50 54 20 5a 0d aa |=5 ...n.[OPT Z..|
0001c9c0 82 14 2e 66 69 72 73 74 63 6f 64 65 20 44 43 44 |...firstcode DCD|
0001c9d0 20 30 0d aa 8c 12 2e 6f 6c 64 63 6f 64 65 20 44 | 0.....oldcode D|
0001c9e0 43 44 20 30 0d aa 96 1d 2e 63 6f 64 65 73 69 7a |CD 0.....codesiz|
0001c9f0 65 20 44 43 44 20 73 65 74 63 6f 64 65 73 25 2b |e DCD setcodes%+|
0001ca00 31 0d aa a0 13 2e 73 74 61 63 6b 20 44 43 44 20 |1.....stack DCD |
0001ca10 73 74 6b 25 0d aa aa 10 2e 73 70 20 44 43 44 20 |stk%.....sp DCD |
0001ca20 73 74 6b 25 0d aa b4 1d 2e 6d 61 78 63 6f 64 65 |stk%.....maxcode|
0001ca30 20 44 43 44 20 63 6c 65 61 72 63 6f 64 65 25 2b | DCD clearcode%+|
0001ca40 32 0d aa be 21 2e 6d 61 78 63 6f 64 65 73 69 7a |2...!.maxcodesiz|
0001ca50 65 20 44 43 44 20 32 2a 63 6c 65 61 72 63 6f 64 |e DCD 2*clearcod|
0001ca60 65 25 0d aa c8 0f 2e 4c 5a 57 64 65 63 6f 64 65 |e%.....LZWdecode|
0001ca70 25 0d aa d2 40 4c 44 52 20 52 32 2c 66 69 72 73 |%...@LDR R2,firs|
0001ca80 74 63 6f 64 65 3a 4c 44 52 20 52 33 2c 6f 6c 64 |tcode:LDR R3,old|
0001ca90 63 6f 64 65 3a 4c 44 52 20 52 34 2c 73 74 61 63 |code:LDR R4,stac|
0001caa0 6b 3a 4c 44 52 20 52 35 2c 63 6f 64 65 73 69 7a |k:LDR R5,codesiz|
0001cab0 65 0d aa dc 2f 4c 44 52 20 52 36 2c 73 70 3a 4c |e.../LDR R6,sp:L|
0001cac0 44 52 20 52 37 2c 6d 61 78 63 6f 64 65 3a 4c 44 |DR R7,maxcode:LD|
0001cad0 52 20 52 38 2c 6d 61 78 63 6f 64 65 73 69 7a 65 |R R8,maxcodesize|
0001cae0 0d aa e6 1e 4c 44 52 20 52 31 30 2c 5b 52 39 5d |....LDR R10,[R9]|
0001caf0 3a 4c 44 52 20 52 31 30 2c 5b 52 31 30 5d 0d aa |:LDR R10,[R10]..|
0001cb00 f0 21 4c 44 52 20 52 31 31 2c 5b 52 39 2c 23 38 |.!LDR R11,[R9,#8|
0001cb10 5d 3a 4c 44 52 20 52 31 31 2c 5b 52 31 31 5d 0d |]:LDR R11,[R11].|
0001cb20 aa fa 14 4c 44 52 20 52 31 32 2c 5b 52 39 2c 23 |...LDR R12,[R9,#|
0001cb30 32 34 5d 0d ab 04 14 53 54 4d 46 44 20 53 50 20 |24]....STMFD SP |
0001cb40 21 2c 7b 52 31 34 7d 0d ab 0e 0c 2e 6c 7a 77 6c |!,{R14}.....lzwl|
0001cb50 6f 6f 70 0d ab 18 0d 43 4d 50 20 52 36 2c 52 34 |oop....CMP R6,R4|
0001cb60 0d ab 22 12 42 48 49 20 6c 7a 77 75 6e 73 74 61 |..".BHI lzwunsta|
0001cb70 63 6b 0d ab 2c 0e 2e 6c 7a 77 65 6e 67 69 6e 65 |ck..,..lzwengine|
0001cb80 0d ab 36 0e 42 4c 20 67 65 74 63 6f 64 65 0d ab |..6.BL getcode..|
0001cb90 40 16 43 4d 50 20 52 30 2c 23 63 6c 65 61 72 63 |@.CMP R0,#clearc|
0001cba0 6f 64 65 25 0d ab 4a 10 42 45 51 20 6c 7a 77 63 |ode%..J.BEQ lzwc|
0001cbb0 6c 65 61 72 0d ab 5e 0d 4d 4f 56 20 52 31 2c 52 |lear..^.MOV R1,R|
0001cbc0 30 0d ab 68 0d 43 4d 50 20 52 30 2c 52 37 0d ab |0..h.CMP R0,R7..|
0001cbd0 72 15 53 54 52 43 53 42 20 52 32 2c 5b 52 36 5d |r.STRCSB R2,[R6]|
0001cbe0 2c 23 31 0d ab 7c 0f 4d 4f 56 43 53 20 52 30 2c |,#1..|.MOVCS R0,|
0001cbf0 52 33 0d ab 86 16 43 4d 50 20 52 30 2c 23 63 6c |R3....CMP R0,#cl|
0001cc00 65 61 72 63 6f 64 65 25 0d ab 90 13 42 43 43 20 |earcode%....BCC |
0001cc10 6c 7a 77 64 6f 6e 65 70 75 73 68 0d ab 9a 11 2e |lzwdonepush.....|
0001cc20 6c 7a 77 70 75 73 68 74 61 62 6c 65 0d ab a4 1b |lzwpushtable....|
0001cc30 4c 44 52 20 52 31 34 2c 5b 52 31 32 2c 52 30 2c |LDR R14,[R12,R0,|
0001cc40 4c 53 4c 20 23 32 5d 0d ab ae 14 53 54 52 42 20 |LSL #2]....STRB |
0001cc50 52 31 34 2c 5b 52 36 5d 2c 23 31 0d ab b8 16 4d |R14,[R6],#1....M|
0001cc60 4f 56 20 52 30 2c 52 31 34 2c 4c 53 52 20 23 31 |OV R0,R14,LSR #1|
0001cc70 36 0d ab c2 16 43 4d 50 20 52 30 2c 23 63 6c 65 |6....CMP R0,#cle|
0001cc80 61 72 63 6f 64 65 25 0d ab cc 14 42 43 53 20 6c |arcode%....BCS l|
0001cc90 7a 77 70 75 73 68 74 61 62 6c 65 0d ab d6 10 2e |zwpushtable.....|
0001cca0 6c 7a 77 64 6f 6e 65 70 75 73 68 0d ab e0 1a 4c |lzwdonepush....L|
0001ccb0 44 52 20 52 32 2c 5b 52 31 32 2c 52 30 2c 4c 53 |DR R2,[R12,R0,LS|
0001ccc0 4c 20 23 32 5d 0d ab ea 16 42 49 43 20 52 32 2c |L #2]....BIC R2,|
0001ccd0 52 32 2c 23 26 46 46 30 30 30 30 0d ab f4 18 42 |R2,#&FF0000....B|
0001cce0 49 43 20 52 32 2c 52 32 2c 23 26 46 46 30 30 30 |IC R2,R2,#&FF000|
0001ccf0 30 30 30 0d ab fe 13 53 54 52 42 20 52 32 2c 5b |000....STRB R2,[|
0001cd00 52 36 5d 2c 23 31 0d ac 08 10 43 4d 50 20 52 37 |R6],#1....CMP R7|
0001cd10 2c 23 34 30 39 36 0d ac 12 11 42 43 53 20 6c 7a |,#4096....BCS lz|
0001cd20 77 6e 6f 63 6f 64 65 0d ac 1c 17 84 52 20 52 30 |wnocode.....R R0|
0001cd30 2c 52 32 2c 52 33 2c 4c 53 4c 20 23 31 36 0d ac |,R2,R3,LSL #16..|
0001cd40 26 1a 53 54 52 20 52 30 2c 5b 52 31 32 2c 52 37 |&.STR R0,[R12,R7|
0001cd50 2c 4c 53 4c 20 23 32 5d 0d ac 30 10 41 44 44 20 |,LSL #2]..0.ADD |
0001cd60 52 37 2c 52 37 2c 23 31 0d ac 3a 0d 43 4d 50 20 |R7,R7,#1..:.CMP |
0001cd70 52 37 2c 52 38 0d ac 44 11 42 43 43 20 6c 7a 77 |R7,R8..D.BCC lzw|
0001cd80 6e 6f 63 6f 64 65 0d ac 4e 10 43 4d 50 20 52 38 |nocode..N.CMP R8|
0001cd90 2c 23 34 30 39 36 0d ac 58 12 41 44 44 43 43 20 |,#4096..X.ADDCC |
0001cda0 52 35 2c 52 35 2c 23 31 0d ac 62 16 4d 4f 56 43 |R5,R5,#1..b.MOVC|
0001cdb0 43 20 52 38 2c 52 38 2c 4c 53 4c 20 23 31 0d ac |C R8,R8,LSL #1..|
0001cdc0 6c 05 5d 0d ac 76 10 e7 66 6c 61 67 3d 31 35 30 |l.]..v..flag=150|
0001cdd0 30 20 8c 0d ac 80 0a 5b 4f 50 54 20 5a 0d ac 8a |0 .....[OPT Z...|
0001cde0 11 84 52 43 43 20 52 38 2c 52 38 2c 23 31 0d ac |..RCC R8,R8,#1..|
0001cdf0 94 05 5d 0d ac 9e 05 cd 0d ac a8 0a 5b 4f 50 54 |..].........[OPT|
0001ce00 20 5a 0d ac b2 0e 2e 6c 7a 77 6e 6f 63 6f 64 65 | Z.....lzwnocode|
0001ce10 0d ac bc 0d 4d 4f 56 20 52 33 2c 52 31 0d ac c6 |....MOV R3,R1...|
0001ce20 0d 43 4d 50 20 52 36 2c 52 34 0d ac d0 11 42 4c |.CMP R6,R4....BL|
0001ce30 53 20 6c 7a 77 65 6e 67 69 6e 65 0d ac da 0f 2e |S lzwengine.....|
0001ce40 6c 7a 77 75 6e 73 74 61 63 6b 0d ac e4 15 4c 44 |lzwunstack....LD|
0001ce50 52 42 20 52 30 2c 5b 52 36 2c 23 2d 31 5d 21 0d |RB R0,[R6,#-1]!.|
0001ce60 ac ee 0f 2e 6c 7a 77 6c 6f 6f 70 65 6e 64 0d ac |....lzwloopend..|
0001ce70 f8 14 53 54 52 42 20 52 30 2c 5b 52 31 31 5d 2c |..STRB R0,[R11],|
0001ce80 23 31 0d ad 02 13 53 55 42 53 20 52 31 30 2c 52 |#1....SUBS R10,R|
0001ce90 31 30 2c 23 31 0d ad 0c 0f 42 4e 45 20 6c 7a 77 |10,#1....BNE lzw|
0001cea0 6c 6f 6f 70 0d ad 16 33 53 54 52 20 52 32 2c 66 |loop...3STR R2,f|
0001ceb0 69 72 73 74 63 6f 64 65 3a 53 54 52 20 52 33 2c |irstcode:STR R3,|
0001cec0 6f 6c 64 63 6f 64 65 3a 53 54 52 20 52 35 2c 63 |oldcode:STR R5,c|
0001ced0 6f 64 65 73 69 7a 65 0d ad 20 2f 53 54 52 20 52 |odesize.. /STR R|
0001cee0 36 2c 73 70 3a 53 54 52 20 52 37 2c 6d 61 78 63 |6,sp:STR R7,maxc|
0001cef0 6f 64 65 3a 53 54 52 20 52 38 2c 6d 61 78 63 6f |ode:STR R8,maxco|
0001cf00 64 65 73 69 7a 65 0d ad 2a 14 4c 44 4d 46 44 20 |desize..*.LDMFD |
0001cf10 53 50 20 21 2c 7b 50 43 7d 5e 0d ad 34 0d 2e 6c |SP !,{PC}^..4..l|
0001cf20 7a 77 63 6c 65 61 72 0d ad 3e 0d 4d 4f 56 20 52 |zwclear..>.MOV R|
0001cf30 30 2c 23 30 0d ad 48 0e 4d 4f 56 20 52 33 2c 52 |0,#0..H.MOV R3,R|
0001cf40 31 32 0d ad 52 14 2e 6c 7a 77 64 65 66 61 75 6c |12..R..lzwdefaul|
0001cf50 74 74 61 62 6c 65 0d ad 5c 12 53 54 52 20 52 30 |ttable..\.STR R0|
0001cf60 2c 5b 52 33 5d 2c 23 34 0d ad 66 23 41 44 44 20 |,[R3],#4..f#ADD |
0001cf70 52 30 2c 52 30 2c 23 31 3a 43 4d 50 20 52 30 2c |R0,R0,#1:CMP R0,|
0001cf80 23 63 6c 65 61 72 63 6f 64 65 25 0d ad 70 17 42 |#clearcode%..p.B|
0001cf90 43 43 20 6c 7a 77 64 65 66 61 75 6c 74 74 61 62 |CC lzwdefaulttab|
0001cfa0 6c 65 0d ad 7a 17 4d 4f 56 20 52 35 2c 23 73 65 |le..z.MOV R5,#se|
0001cfb0 74 63 6f 64 65 73 25 2b 31 0d ad 84 16 4d 4f 56 |tcodes%+1....MOV|
0001cfc0 20 52 37 2c 23 63 6c 65 61 72 63 6f 64 65 25 0d | R7,#clearcode%.|
0001cfd0 ad 8e 14 4d 4f 56 20 52 38 2c 52 37 2c 4c 53 4c |...MOV R8,R7,LSL|
0001cfe0 20 23 31 0d ad 98 05 5d 0d ad a2 10 e7 66 6c 61 | #1....].....fla|
0001cff0 67 3d 31 35 30 30 20 8c 0d ad ac 0a 5b 4f 50 54 |g=1500 .....[OPT|
0001d000 20 5a 0d ad b6 10 53 55 42 20 52 38 2c 52 38 2c | Z....SUB R8,R8,|
0001d010 23 31 0d ad c0 05 5d 0d ad ca 05 cd 0d ad d4 0a |#1....].........|
0001d020 5b 4f 50 54 20 5a 0d ad de 10 41 44 44 20 52 37 |[OPT Z....ADD R7|
0001d030 2c 52 37 2c 23 32 0d ad e8 0e 42 4c 20 67 65 74 |,R7,#2....BL get|
0001d040 63 6f 64 65 0d ad f2 0d 4d 4f 56 20 52 32 2c 52 |code....MOV R2,R|
0001d050 30 0d ad fc 0d 4d 4f 56 20 52 33 2c 52 30 0d ae |0....MOV R3,R0..|
0001d060 06 0d 4d 4f 56 20 52 36 2c 52 34 0d ae 10 10 42 |..MOV R6,R4....B|
0001d070 20 6c 7a 77 6c 6f 6f 70 65 6e 64 0d ae 24 11 2e | lzwloopend..$..|
0001d080 63 75 72 62 69 74 20 44 43 44 20 30 0d ae 2e 12 |curbit DCD 0....|
0001d090 2e 6c 61 73 74 62 69 74 20 44 43 44 20 30 0d ae |.lastbit DCD 0..|
0001d0a0 38 11 2e 62 75 66 20 44 43 44 20 62 75 66 25 0d |8..buf DCD buf%.|
0001d0b0 ae 42 0c 2e 67 65 74 63 6f 64 65 0d ae 4c 19 53 |.B..getcode..L.S|
0001d0c0 54 4d 46 44 20 53 50 20 21 2c 7b 52 36 2c 52 37 |TMFD SP !,{R6,R7|
0001d0d0 2c 52 38 7d 0d ae 56 11 41 44 52 20 52 36 2c 63 |,R8}..V.ADR R6,c|
0001d0e0 75 72 62 69 74 0d ae 60 17 4c 44 4d 49 41 20 52 |urbit..`.LDMIA R|
0001d0f0 36 2c 7b 52 36 2c 52 37 2c 52 38 7d 0d ae 6a 10 |6,{R6,R7,R8}..j.|
0001d100 41 44 44 20 52 31 2c 52 35 2c 52 36 0d ae 74 0d |ADD R1,R5,R6..t.|
0001d110 43 4d 50 20 52 31 2c 52 37 0d ae 7e 14 42 43 53 |CMP R1,R7..~.BCS|
0001d120 20 6e 65 65 64 6d 6f 72 65 64 61 74 61 0d ae 88 | needmoredata...|
0001d130 0f 2e 73 69 6d 70 6c 65 63 6f 64 65 0d ae 92 17 |..simplecode....|
0001d140 41 44 44 20 52 37 2c 52 38 2c 52 36 2c 4c 53 52 |ADD R7,R8,R6,LSR|
0001d150 20 23 33 0d ae 9c 10 42 49 43 20 52 37 2c 52 37 | #3....BIC R7,R7|
0001d160 2c 23 33 0d ae a6 14 4c 44 4d 49 41 20 52 37 2c |,#3....LDMIA R7,|
0001d170 7b 52 30 2c 52 37 7d 0d ae b0 05 5d 0d ae ba 10 |{R0,R7}....]....|
0001d180 e7 66 6c 61 67 3d 31 35 30 30 20 8c 0d ae c4 0a |.flag=1500 .....|
0001d190 5b 4f 50 54 20 5a 0d ae ce 16 82 20 52 31 2c 52 |[OPT Z..... R1,R|
0001d1a0 30 2c 52 30 2c 52 4f 52 20 23 31 36 0d ae d8 16 |0,R0,ROR #16....|
0001d1b0 42 49 43 20 52 31 2c 52 31 2c 23 26 46 46 30 30 |BIC R1,R1,#&FF00|
0001d1c0 30 30 0d ae e2 14 4d 4f 56 20 52 30 2c 52 30 2c |00....MOV R0,R0,|
0001d1d0 52 4f 52 20 23 38 0d ae ec 15 82 20 52 30 2c 52 |ROR #8..... R0,R|
0001d1e0 30 2c 52 31 2c 4c 53 52 20 23 38 0d ae f6 16 82 |0,R1,LSR #8.....|
0001d1f0 20 52 31 2c 52 37 2c 52 37 2c 52 4f 52 20 23 31 | R1,R7,R7,ROR #1|
0001d200 36 0d af 00 16 42 49 43 20 52 31 2c 52 31 2c 23 |6....BIC R1,R1,#|
0001d210 26 46 46 30 30 30 30 0d af 0a 14 4d 4f 56 20 52 |&FF0000....MOV R|
0001d220 37 2c 52 37 2c 52 4f 52 20 23 38 0d af 14 15 82 |7,R7,ROR #8.....|
0001d230 20 52 37 2c 52 37 2c 52 31 2c 4c 53 52 20 23 38 | R7,R7,R1,LSR #8|
0001d240 0d af 1e 48 80 53 20 52 31 2c 52 36 2c 23 33 31 |...H.S R1,R6,#31|
0001d250 3a 4d 4f 56 4e 45 20 52 30 2c 52 30 2c 4c 53 4c |:MOVNE R0,R0,LSL|
0001d260 20 52 31 3a 52 53 42 4e 45 20 52 31 2c 52 31 2c | R1:RSBNE R1,R1,|
0001d270 23 33 32 3a 84 52 4e 45 20 52 30 2c 52 30 2c 52 |#32:.RNE R0,R0,R|
0001d280 37 2c 4c 53 52 20 52 31 0d af 28 11 52 53 42 20 |7,LSR R1..(.RSB |
0001d290 52 31 2c 52 35 2c 23 33 32 0d af 32 14 4d 4f 56 |R1,R5,#32..2.MOV|
0001d2a0 20 52 30 2c 52 30 2c 4c 53 52 20 52 31 0d af 3c | R0,R0,LSR R1..<|
0001d2b0 05 5d 0d af 46 05 cc 0d af 50 0a 5b 4f 50 54 20 |.]..F....P.[OPT |
0001d2c0 5a 0d af 5a 48 80 53 20 52 31 2c 52 36 2c 23 33 |Z..ZH.S R1,R6,#3|
0001d2d0 31 3a 4d 4f 56 4e 45 20 52 30 2c 52 30 2c 4c 53 |1:MOVNE R0,R0,LS|
0001d2e0 52 20 52 31 3a 52 53 42 4e 45 20 52 31 2c 52 31 |R R1:RSBNE R1,R1|
0001d2f0 2c 23 33 32 3a 84 52 4e 45 20 52 30 2c 52 30 2c |,#32:.RNE R0,R0,|
0001d300 52 37 2c 4c 53 4c 20 52 31 0d af 64 21 4d 56 4e |R7,LSL R1..d!MVN|
0001d310 20 52 31 2c 23 30 3a 42 49 43 20 52 30 2c 52 30 | R1,#0:BIC R0,R0|
0001d320 2c 52 31 2c 4c 53 4c 20 52 35 0d af 6e 05 5d 0d |,R1,LSL R5..n.].|
0001d330 af 78 05 cd 0d af 82 0a 5b 4f 50 54 20 5a 0d af |.x......[OPT Z..|
0001d340 8c 10 41 44 44 20 52 36 2c 52 36 2c 52 35 0d af |..ADD R6,R6,R5..|
0001d350 96 11 53 54 52 20 52 36 2c 63 75 72 62 69 74 0d |..STR R6,curbit.|
0001d360 af a0 19 4c 44 4d 46 44 20 53 50 20 21 2c 7b 52 |...LDMFD SP !,{R|
0001d370 36 2c 52 37 2c 52 38 7d 0d af aa 0e 4d 4f 56 20 |6,R7,R8}....MOV |
0001d380 50 43 2c 52 31 34 0d af b4 11 2e 6e 65 65 64 6d |PC,R14.....needm|
0001d390 6f 72 65 64 61 74 61 0d af be 1d 53 54 4d 46 44 |oredata....STMFD|
0001d3a0 20 53 50 20 21 2c 7b 52 32 2c 52 33 2c 52 34 2c | SP !,{R2,R3,R4,|
0001d3b0 52 31 34 7d 0d af c8 14 4d 4f 56 20 52 33 2c 52 |R14}....MOV R3,R|
0001d3c0 37 2c 4c 53 52 20 23 33 0d af d2 10 53 55 42 20 |7,LSR #3....SUB |
0001d3d0 52 30 2c 52 33 2c 23 32 0d af dc 13 4c 44 52 42 |R0,R3,#2....LDRB|
0001d3e0 20 52 30 2c 5b 52 38 2c 52 30 5d 0d af e6 10 53 | R0,[R8,R0]....S|
0001d3f0 54 52 42 20 52 30 2c 5b 52 38 5d 0d af f0 10 53 |TRB R0,[R8]....S|
0001d400 55 42 20 52 30 2c 52 33 2c 23 31 0d af fa 13 4c |UB R0,R3,#1....L|
0001d410 44 52 42 20 52 30 2c 5b 52 38 2c 52 30 5d 0d b0 |DRB R0,[R8,R0]..|
0001d420 04 13 53 54 52 42 20 52 30 2c 5b 52 38 2c 23 31 |..STRB R0,[R8,#1|
0001d430 5d 0d b0 0e 13 4c 44 52 20 52 31 2c 5b 52 39 2c |]....LDR R1,[R9,|
0001d440 23 31 36 5d 0d b0 18 0f 4c 44 52 20 52 31 2c 5b |#16]....LDR R1,[|
0001d450 52 31 5d 0d b0 22 05 5d 0d b0 2c 10 e7 66 6c 61 |R1]..".]..,..fla|
0001d460 67 3d 31 35 30 30 20 8c 0d b0 36 0a 5b 4f 50 54 |g=1500 ...6.[OPT|
0001d470 20 5a 0d b0 40 0f 4d 4f 56 20 52 30 2c 23 32 35 | Z..@.MOV R0,#25|
0001d480 36 0d b0 4a 0f 4d 4f 56 20 52 33 2c 23 32 35 36 |6..J.MOV R3,#256|
0001d490 0d b0 54 05 5d 0d b0 5e 05 cc 0d b0 68 0a 5b 4f |..T.]..^....h.[O|
0001d4a0 50 54 20 5a 0d b0 72 15 42 4c 20 62 79 74 65 66 |PT Z..r.BL bytef|
0001d4b0 72 6f 6d 63 61 63 68 65 25 0d b0 7c 0e 4d 4f 56 |romcache%..|.MOV|
0001d4c0 53 20 52 33 2c 52 30 0d b0 86 13 42 45 51 20 73 |S R3,R0....BEQ s|
0001d4d0 69 6d 70 6c 65 63 6f 64 65 31 0d b0 90 05 5d 0d |implecode1....].|
0001d4e0 b0 9a 05 cd 0d b0 a4 0a 5b 4f 50 54 20 5a 0d b0 |........[OPT Z..|
0001d4f0 ae 10 53 55 42 20 52 36 2c 52 36 2c 52 37 0d b0 |..SUB R6,R6,R7..|
0001d500 b8 11 41 44 44 20 52 36 2c 52 36 2c 23 31 36 0d |..ADD R6,R6,#16.|
0001d510 b0 c2 10 41 44 44 20 52 30 2c 52 30 2c 23 32 0d |...ADD R0,R0,#2.|
0001d520 b0 cc 14 4d 4f 56 20 52 37 2c 52 30 2c 4c 53 4c |...MOV R7,R0,LSL|
0001d530 20 23 33 0d b0 d6 12 53 54 52 20 52 37 2c 6c 61 | #3....STR R7,la|
0001d540 73 74 62 69 74 0d b0 e0 10 41 44 44 20 52 32 2c |stbit....ADD R2,|
0001d550 52 38 2c 23 32 0d b0 ea 1a 42 4c 20 6d 75 6c 74 |R8,#2....BL mult|
0001d560 69 62 79 74 65 66 72 6f 6d 63 61 63 68 65 25 0d |ibytefromcache%.|
0001d570 b0 f4 10 2e 73 69 6d 70 6c 65 63 6f 64 65 31 0d |....simplecode1.|
0001d580 b0 fe 1d 4c 44 4d 46 44 20 53 50 20 21 2c 7b 52 |...LDMFD SP !,{R|
0001d590 32 2c 52 33 2c 52 34 2c 52 31 34 7d 0d b1 08 10 |2,R3,R4,R14}....|
0001d5a0 42 20 73 69 6d 70 6c 65 63 6f 64 65 0d b1 12 05 |B simplecode....|
0001d5b0 5d 0d b1 1c 05 cd 0d b1 26 0d e7 72 61 6e 67 65 |].......&..range|
0001d5c0 25 20 8c 0d b1 30 0a 5b 4f 50 54 20 5a 0d b1 44 |% ...0.[OPT Z..D|
0001d5d0 0c 2e 6d 61 78 6d 69 6e 25 0d b1 4e 1b 4c 44 52 |..maxmin%..N.LDR|
0001d5e0 20 52 30 2c 5b 52 39 5d 3a 4c 44 52 20 52 30 2c | R0,[R9]:LDR R0,|
0001d5f0 5b 52 30 5d 0d b1 58 12 4c 44 52 20 52 31 2c 5b |[R0]..X.LDR R1,[|
0001d600 52 39 2c 23 38 5d 0d b1 62 0e 4c 44 52 20 52 32 |R9,#8]..b.LDR R2|
0001d610 2c 6d 69 6e 0d b1 6c 0e 4c 44 52 20 52 33 2c 6d |,min..l.LDR R3,m|
0001d620 61 78 0d b1 76 0d 2e 6d 61 78 6d 69 6e 6c 70 0d |ax..v..maxminlp.|
0001d630 b1 80 12 4c 44 52 20 52 34 2c 5b 52 31 5d 2c 23 |...LDR R4,[R1],#|
0001d640 34 0d b1 8a 19 43 4d 50 20 52 34 2c 52 33 3a 4d |4....CMP R4,R3:M|
0001d650 4f 56 43 53 20 52 33 2c 52 34 0d b1 94 19 43 4d |OVCS R3,R4....CM|
0001d660 50 20 52 34 2c 52 32 3a 4d 4f 56 43 43 20 52 32 |P R4,R2:MOVCC R2|
0001d670 2c 52 34 0d b1 9e 1e 53 55 42 53 20 52 30 2c 52 |,R4....SUBS R0,R|
0001d680 30 2c 23 31 3a 42 4e 45 20 6d 61 78 6d 69 6e 6c |0,#1:BNE maxminl|
0001d690 70 0d b1 a8 0e 53 54 52 20 52 32 2c 6d 69 6e 0d |p....STR R2,min.|
0001d6a0 b1 b2 0e 53 54 52 20 52 33 2c 6d 61 78 0d b1 bc |...STR R3,max...|
0001d6b0 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d b1 c6 0e |.MOVS PC,R14....|
0001d6c0 2e 6d 69 6e 20 44 43 44 20 46 0d b1 d0 0e 2e 6d |.min DCD F.....m|
0001d6d0 61 78 20 44 43 44 20 30 0d b1 da 05 5d 0d b1 e4 |ax DCD 0....]...|
0001d6e0 05 cd 0d b1 ee 0f e7 73 68 61 72 70 65 6e 25 20 |.......sharpen% |
0001d6f0 8c 0d b1 f8 21 73 68 61 72 70 3d 28 63 6f 6c 2b |....!sharp=(col+|
0001d700 31 29 2a 34 3a e7 73 68 61 72 70 65 6e 25 3e 30 |1)*4:.sharpen%>0|
0001d710 20 8c 0d b2 02 2a e7 20 73 68 61 72 70 65 6e 25 | ....*. sharpen%|
0001d720 3c 3e 38 20 73 68 61 72 70 6d 75 6c 25 3d 46 2f |<>8 sharpmul%=F/|
0001d730 28 73 68 61 72 70 65 6e 25 2d 38 29 0d b2 0c 05 |(sharpen%-8)....|
0001d740 cc 0d b2 16 1c 73 68 61 72 70 6d 75 6c 25 3d 46 |.....sharpmul%=F|
0001d750 2f 28 38 2d 73 68 61 72 70 65 6e 25 29 0d b2 20 |/(8-sharpen%).. |
0001d760 05 cd 0d b2 2a 0a 5b 4f 50 54 20 5a 0d b2 3e 0b |....*.[OPT Z..>.|
0001d770 2e 73 68 61 72 70 25 0d b2 48 1b 4c 44 52 20 52 |.sharp%..H.LDR R|
0001d780 30 2c 5b 52 39 5d 3a 4c 44 52 20 52 30 2c 5b 52 |0,[R9]:LDR R0,[R|
0001d790 30 5d 0d b2 52 12 4c 44 52 20 52 31 2c 5b 52 39 |0]..R.LDR R1,[R9|
0001d7a0 2c 23 38 5d 0d b2 5c 13 4c 44 52 20 52 32 2c 5b |,#8]..\.LDR R2,[|
0001d7b0 52 39 2c 23 31 36 5d 0d b2 66 13 4c 44 52 20 52 |R9,#16]..f.LDR R|
0001d7c0 33 2c 5b 52 39 2c 23 32 34 5d 0d b2 70 13 4c 44 |3,[R9,#24]..p.LD|
0001d7d0 52 20 52 34 2c 5b 52 39 2c 23 33 32 5d 0d b2 7a |R R4,[R9,#32]..z|
0001d7e0 05 5d 0d b2 84 11 c8 8e 20 73 68 61 72 70 65 6e |.]...... sharpen|
0001d7f0 25 20 ca 0d b2 8e 08 c9 20 2d 38 0d b2 98 12 c9 |% ...... -8.....|
0001d800 20 38 2c 39 2c 31 32 2c 31 36 2c 32 34 0d b2 a2 | 8,9,12,16,24...|
0001d810 05 7f 0d b2 ac 0a 5b 4f 50 54 20 5a 0d b2 b6 1b |......[OPT Z....|
0001d820 4d 4f 56 20 52 38 2c 23 73 68 61 72 70 6d 75 6c |MOV R8,#sharpmul|
0001d830 25 20 80 20 26 46 46 0d b2 c0 1f 84 52 20 52 38 |% . &FF.....R R8|
0001d840 2c 52 38 2c 23 73 68 61 72 70 6d 75 6c 25 20 80 |,R8,#sharpmul% .|
0001d850 20 26 46 46 30 30 0d b2 ca 23 4d 4f 56 20 52 39 | &FF00...#MOV R9|
0001d860 2c 23 28 73 68 61 72 70 6d 75 6c 25 20 3e 3e 20 |,#(sharpmul% >> |
0001d870 31 36 29 20 80 20 26 46 46 0d b2 d4 27 84 52 20 |16) . &FF...'.R |
0001d880 52 39 2c 52 39 2c 23 28 73 68 61 72 70 6d 75 6c |R9,R9,#(sharpmul|
0001d890 25 20 3e 3e 20 31 36 29 20 80 20 26 46 46 30 30 |% >> 16) . &FF00|
0001d8a0 0d b2 de 05 5d 0d b2 e8 05 cb 0d b2 f2 0a 5b 4f |....].........[O|
0001d8b0 50 54 20 5a 0d b2 fc 0c 2e 73 68 61 72 70 6c 70 |PT Z.....sharplp|
0001d8c0 0d b3 06 17 4c 44 52 20 52 35 2c 5b 52 31 2c 23 |....LDR R5,[R1,#|
0001d8d0 2d 73 68 61 72 70 5d 0d b3 10 23 4c 44 52 20 52 |-sharp]...#LDR R|
0001d8e0 36 2c 5b 52 31 2c 23 73 68 61 72 70 5d 3a 41 44 |6,[R1,#sharp]:AD|
0001d8f0 44 20 52 35 2c 52 35 2c 52 36 0d b3 1a 1f 4c 44 |D R5,R5,R6....LD|
0001d900 52 20 52 36 2c 5b 52 31 5d 2c 23 34 3a 41 44 44 |R R6,[R1],#4:ADD|
0001d910 20 52 35 2c 52 35 2c 52 36 0d b3 24 24 4c 44 52 | R5,R5,R6..$$LDR|
0001d920 20 52 36 2c 5b 52 33 2c 23 2d 73 68 61 72 70 5d | R6,[R3,#-sharp]|
0001d930 3a 41 44 44 20 52 35 2c 52 35 2c 52 36 0d b3 2e |:ADD R5,R5,R6...|
0001d940 23 4c 44 52 20 52 36 2c 5b 52 33 2c 23 73 68 61 |#LDR R6,[R3,#sha|
0001d950 72 70 5d 3a 41 44 44 20 52 35 2c 52 35 2c 52 36 |rp]:ADD R5,R5,R6|
0001d960 0d b3 38 1f 4c 44 52 20 52 36 2c 5b 52 33 5d 2c |..8.LDR R6,[R3],|
0001d970 23 34 3a 41 44 44 20 52 35 2c 52 35 2c 52 36 0d |#4:ADD R5,R5,R6.|
0001d980 b3 42 24 4c 44 52 20 52 36 2c 5b 52 32 2c 23 2d |.B$LDR R6,[R2,#-|
0001d990 73 68 61 72 70 5d 3a 41 44 44 20 52 35 2c 52 35 |sharp]:ADD R5,R5|
0001d9a0 2c 52 36 0d b3 4c 23 4c 44 52 20 52 36 2c 5b 52 |,R6..L#LDR R6,[R|
0001d9b0 32 2c 23 73 68 61 72 70 5d 3a 41 44 44 20 52 35 |2,#sharp]:ADD R5|
0001d9c0 2c 52 35 2c 52 36 0d b3 56 12 4c 44 52 20 52 36 |,R5,R6..V.LDR R6|
0001d9d0 2c 5b 52 32 5d 2c 23 34 0d b3 60 14 4d 4f 56 20 |,[R2],#4..`.MOV |
0001d9e0 52 36 2c 52 36 2c 4c 53 52 20 23 31 0d b3 6a 15 |R6,R6,LSR #1..j.|
0001d9f0 4d 4f 56 20 52 37 2c 23 94 73 68 61 72 70 65 6e |MOV R7,#.sharpen|
0001da00 25 0d b3 74 10 4d 55 4c 20 52 37 2c 52 36 2c 52 |%..t.MUL R7,R6,R|
0001da10 37 0d b3 7e 05 5d 0d b3 88 11 e7 73 68 61 72 70 |7..~.].....sharp|
0001da20 65 6e 25 3e 30 20 8c 0d b3 92 0a 5b 4f 50 54 20 |en%>0 .....[OPT |
0001da30 5a 0d b3 9c 18 53 55 42 53 20 52 35 2c 52 37 2c |Z....SUBS R5,R7,|
0001da40 52 35 2c 4c 53 52 20 23 31 0d b3 a6 0f 4d 4f 56 |R5,LSR #1....MOV|
0001da50 43 43 20 52 35 2c 23 30 0d b3 b0 05 5d 0d b3 ba |CC R5,#0....]...|
0001da60 05 cc 0d b3 c4 0a 5b 4f 50 54 20 5a 0d b3 ce 17 |......[OPT Z....|
0001da70 41 44 44 20 52 35 2c 52 37 2c 52 35 2c 4c 53 52 |ADD R5,R7,R5,LSR|
0001da80 20 23 31 0d b3 d8 05 5d 0d b3 e2 05 cd 0d b3 ec | #1....]........|
0001da90 11 c8 8e 20 73 68 61 72 70 65 6e 25 20 ca 0d b3 |... sharpen% ...|
0001daa0 f6 09 c9 20 38 2c 39 0d b4 00 0a 5b 4f 50 54 20 |... 8,9....[OPT |
0001dab0 5a 0d b4 0a 14 4d 4f 56 20 52 36 2c 52 35 2c 4c |Z....MOV R6,R5,L|
0001dac0 53 4c 20 23 31 0d b4 14 05 5d 0d b4 1e 08 c9 20 |SL #1....]..... |
0001dad0 31 30 0d b4 28 0a 5b 4f 50 54 20 5a 0d b4 32 0d |10..(.[OPT Z..2.|
0001dae0 4d 4f 56 20 52 36 2c 52 35 0d b4 3c 05 5d 0d b4 |MOV R6,R5..<.]..|
0001daf0 46 08 c9 20 31 32 0d b4 50 0a 5b 4f 50 54 20 5a |F.. 12..P.[OPT Z|
0001db00 0d b4 5a 14 4d 4f 56 20 52 36 2c 52 35 2c 4c 53 |..Z.MOV R6,R5,LS|
0001db10 52 20 23 31 0d b4 64 05 5d 0d b4 6e 08 c9 20 31 |R #1..d.]..n.. 1|
0001db20 36 0d b4 78 0a 5b 4f 50 54 20 5a 0d b4 82 14 4d |6..x.[OPT Z....M|
0001db30 4f 56 20 52 36 2c 52 35 2c 4c 53 52 20 23 32 0d |OV R6,R5,LSR #2.|
0001db40 b4 8c 05 5d 0d b4 96 0b c9 20 2d 38 2c 32 34 0d |...]..... -8,24.|
0001db50 b4 a0 0a 5b 4f 50 54 20 5a 0d b4 aa 14 4d 4f 56 |...[OPT Z....MOV|
0001db60 20 52 36 2c 52 35 2c 4c 53 52 20 23 33 0d b4 b4 | R6,R5,LSR #3...|
0001db70 05 5d 0d b4 be 05 7f 0d b4 c8 0a 5b 4f 50 54 20 |.].........[OPT |
0001db80 5a 0d b4 d2 15 4d 4f 56 20 52 36 2c 52 35 2c 4c |Z....MOV R6,R5,L|
0001db90 53 52 20 23 31 36 0d b4 dc 16 82 20 52 35 2c 52 |SR #16..... R5,R|
0001dba0 35 2c 52 36 2c 4c 53 4c 20 23 31 36 0d b4 e6 10 |5,R6,LSL #16....|
0001dbb0 4d 55 4c 20 52 37 2c 52 38 2c 52 35 0d b4 f0 10 |MUL R7,R8,R5....|
0001dbc0 4d 55 4c 20 52 35 2c 52 39 2c 52 35 0d b4 fa 11 |MUL R5,R9,R5....|
0001dbd0 4d 55 4c 20 52 31 30 2c 52 36 2c 52 38 0d b5 04 |MUL R10,R6,R8...|
0001dbe0 10 4d 55 4c 20 52 36 2c 52 39 2c 52 36 0d b5 0e |.MUL R6,R9,R6...|
0001dbf0 13 41 44 44 53 20 52 31 30 2c 52 35 2c 52 31 30 |.ADDS R10,R5,R10|
0001dc00 0d b5 18 17 41 44 44 43 53 20 52 36 2c 52 36 2c |....ADDCS R6,R6,|
0001dc10 23 26 31 30 30 30 30 0d b5 22 1a 41 44 44 53 20 |#&10000..".ADDS |
0001dc20 52 37 2c 52 37 2c 52 31 30 2c 4c 53 4c 20 23 31 |R7,R7,R10,LSL #1|
0001dc30 36 0d b5 2c 19 41 44 43 20 52 36 2c 52 36 2c 52 |6..,.ADC R6,R6,R|
0001dc40 31 30 2c 4c 53 52 20 23 31 36 0d b5 36 1a 4d 4f |10,LSR #16..6.MO|
0001dc50 56 20 52 36 2c 52 36 2c 4c 53 4c 20 23 28 33 32 |V R6,R6,LSL #(32|
0001dc60 2d 32 37 29 0d b5 40 18 84 52 53 20 52 36 2c 52 |-27)..@..RS R6,R|
0001dc70 36 2c 52 37 2c 4c 53 52 20 23 32 37 0d b5 4a 12 |6,R7,LSR #27..J.|
0001dc80 41 44 44 43 53 20 52 36 2c 52 36 2c 23 31 0d b5 |ADDCS R6,R6,#1..|
0001dc90 54 05 5d 0d b5 5e 05 cb 0d b5 68 11 e7 73 68 61 |T.]..^....h..sha|
0001dca0 72 70 65 6e 25 3e 30 20 8c 0d b5 72 0a 5b 4f 50 |rpen%>0 ...r.[OP|
0001dcb0 54 20 5a 0d b5 7c 19 43 4d 50 20 52 36 2c 23 46 |T Z..|.CMP R6,#F|
0001dcc0 3a 4d 4f 56 43 53 20 52 36 2c 23 46 0d b5 86 05 |:MOVCS R6,#F....|
0001dcd0 5d 0d b5 90 05 cd 0d b5 9a 0a 5b 4f 50 54 20 5a |].........[OPT Z|
0001dce0 0d b5 a4 12 53 54 52 20 52 36 2c 5b 52 34 5d 2c |....STR R6,[R4],|
0001dcf0 23 34 0d b5 ae 11 53 55 42 53 20 52 30 2c 52 30 |#4....SUBS R0,R0|
0001dd00 2c 23 31 0d b5 b8 0f 42 4e 45 20 73 68 61 72 70 |,#1....BNE sharp|
0001dd10 6c 70 0d b5 c2 0f 4d 4f 56 53 20 50 43 2c 52 31 |lp....MOVS PC,R1|
0001dd20 34 0d b5 cc 05 5d 0d b5 d6 05 cd 0d b5 e0 13 e7 |4....]..........|
0001dd30 68 69 73 74 25 84 65 71 75 61 6c 25 20 8c 0d b5 |hist%.equal% ...|
0001dd40 ea 0a 5b 4f 50 54 20 5a 0d b5 fe 0b 2e 68 69 73 |..[OPT Z.....his|
0001dd50 74 6f 25 0d b6 08 1b 4c 44 52 20 52 30 2c 5b 52 |to%....LDR R0,[R|
0001dd60 39 5d 3a 4c 44 52 20 52 30 2c 5b 52 30 5d 0d b6 |9]:LDR R0,[R0]..|
0001dd70 12 12 4c 44 52 20 52 31 2c 5b 52 39 2c 23 38 5d |..LDR R1,[R9,#8]|
0001dd80 0d b6 1c 13 4c 44 52 20 52 32 2c 5b 52 39 2c 23 |....LDR R2,[R9,#|
0001dd90 31 36 5d 0d b6 26 0b 2e 68 69 73 74 6c 70 0d b6 |16]..&..histlp..|
0001dda0 30 28 4c 44 52 20 52 33 2c 5b 52 32 5d 2c 23 34 |0(LDR R3,[R2],#4|
0001ddb0 3a 43 4d 50 20 52 33 2c 23 46 3a 4d 4f 56 43 53 |:CMP R3,#F:MOVCS|
0001ddc0 20 52 33 2c 23 46 0d b6 3a 19 4d 4f 56 20 52 33 | R3,#F..:.MOV R3|
0001ddd0 2c 52 33 2c 4c 53 52 20 23 62 69 74 73 2d 38 0d |,R3,LSR #bits-8.|
0001dde0 b6 44 05 5d 0d b6 4e 0c e7 63 6f 6c 3d 32 20 8c |.D.]..N..col=2 .|
0001ddf0 0d b6 58 0a 5b 4f 50 54 20 5a 0d b6 62 17 41 44 |..X.[OPT Z..b.AD|
0001de00 44 20 52 33 2c 52 33 2c 52 33 2c 4c 53 4c 20 23 |D R3,R3,R3,LSL #|
0001de10 31 0d b6 6c 3c 4c 44 52 20 52 34 2c 5b 52 31 2c |1..l<LDR R4,[R1,|
0001de20 52 33 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 20 52 |R3,LSL #2]:ADD R|
0001de30 34 2c 52 34 2c 23 31 3a 53 54 52 20 52 34 2c 5b |4,R4,#1:STR R4,[|
0001de40 52 31 2c 52 33 2c 4c 53 4c 20 23 32 5d 0d b6 76 |R1,R3,LSL #2]..v|
0001de50 28 4c 44 52 20 52 33 2c 5b 52 32 5d 2c 23 34 3a |(LDR R3,[R2],#4:|
0001de60 43 4d 50 20 52 33 2c 23 46 3a 4d 4f 56 43 53 20 |CMP R3,#F:MOVCS |
0001de70 52 33 2c 23 46 0d b6 80 19 4d 4f 56 20 52 33 2c |R3,#F....MOV R3,|
0001de80 52 33 2c 4c 53 52 20 23 62 69 74 73 2d 38 0d b6 |R3,LSR #bits-8..|
0001de90 8a 24 41 44 44 20 52 33 2c 52 33 2c 52 33 2c 4c |.$ADD R3,R3,R3,L|
0001dea0 53 4c 20 23 31 3a 41 44 44 20 52 33 2c 52 33 2c |SL #1:ADD R3,R3,|
0001deb0 23 31 0d b6 94 3c 4c 44 52 20 52 34 2c 5b 52 31 |#1...<LDR R4,[R1|
0001dec0 2c 52 33 2c 4c 53 4c 20 23 32 5d 3a 41 44 44 20 |,R3,LSL #2]:ADD |
0001ded0 52 34 2c 52 34 2c 23 31 3a 53 54 52 20 52 34 2c |R4,R4,#1:STR R4,|
0001dee0 5b 52 31 2c 52 33 2c 4c 53 4c 20 23 32 5d 0d b6 |[R1,R3,LSL #2]..|
0001def0 9e 28 4c 44 52 20 52 33 2c 5b 52 32 5d 2c 23 34 |.(LDR R3,[R2],#4|
0001df00 3a 43 4d 50 20 52 33 2c 23 46 3a 4d 4f 56 43 53 |:CMP R3,#F:MOVCS|
0001df10 20 52 33 2c 23 46 0d b6 a8 19 4d 4f 56 20 52 33 | R3,#F....MOV R3|
0001df20 2c 52 33 2c 4c 53 52 20 23 62 69 74 73 2d 38 0d |,R3,LSR #bits-8.|
0001df30 b6 b2 24 41 44 44 20 52 33 2c 52 33 2c 52 33 2c |..$ADD R3,R3,R3,|
0001df40 4c 53 4c 20 23 31 3a 41 44 44 20 52 33 2c 52 33 |LSL #1:ADD R3,R3|
0001df50 2c 23 32 0d b6 bc 05 5d 0d b6 c6 05 cd 0d b6 d0 |,#2....]........|
0001df60 0a 5b 4f 50 54 20 5a 0d b6 da 3c 4c 44 52 20 52 |.[OPT Z...<LDR R|
0001df70 34 2c 5b 52 31 2c 52 33 2c 4c 53 4c 20 23 32 5d |4,[R1,R3,LSL #2]|
0001df80 3a 41 44 44 20 52 34 2c 52 34 2c 23 31 3a 53 54 |:ADD R4,R4,#1:ST|
0001df90 52 20 52 34 2c 5b 52 31 2c 52 33 2c 4c 53 4c 20 |R R4,[R1,R3,LSL |
0001dfa0 23 32 5d 0d b6 e4 11 53 55 42 53 20 52 30 2c 52 |#2]....SUBS R0,R|
0001dfb0 30 2c 23 31 0d b6 ee 0e 42 4e 45 20 68 69 73 74 |0,#1....BNE hist|
0001dfc0 6c 70 0d b6 f8 0f 4d 4f 56 53 20 50 43 2c 52 31 |lp....MOVS PC,R1|
0001dfd0 34 0d b7 02 05 5d 0d b7 0c 05 cd 0d b7 16 0d e7 |4....]..........|
0001dfe0 65 71 75 61 6c 25 20 8c 0d b7 20 0a 5b 4f 50 54 |equal% ... .[OPT|
0001dff0 20 5a 0d b7 34 0f 2e 68 69 73 74 65 71 75 61 6c | Z..4..histequal|
0001e000 25 0d b7 3e 1b 4c 44 52 20 52 30 2c 5b 52 39 5d |%..>.LDR R0,[R9]|
0001e010 3a 4c 44 52 20 52 30 2c 5b 52 30 5d 0d b7 48 12 |:LDR R0,[R0]..H.|
0001e020 4c 44 52 20 52 31 2c 5b 52 39 2c 23 38 5d 0d b7 |LDR R1,[R9,#8]..|
0001e030 52 13 4c 44 52 20 52 32 2c 5b 52 39 2c 23 31 36 |R.LDR R2,[R9,#16|
0001e040 5d 0d b7 5c 0c 2e 65 71 75 61 6c 6c 70 0d b7 66 |]..\..equallp..f|
0001e050 25 4c 44 52 20 52 33 2c 5b 52 32 5d 3a 43 4d 50 |%LDR R3,[R2]:CMP|
0001e060 20 52 33 2c 23 46 3a 4d 4f 56 43 53 20 52 33 2c | R3,#F:MOVCS R3,|
0001e070 23 46 0d b7 70 19 4d 4f 56 20 52 33 2c 52 33 2c |#F..p.MOV R3,R3,|
0001e080 4c 53 52 20 23 62 69 74 73 2d 38 0d b7 7a 05 5d |LSR #bits-8..z.]|
0001e090 0d b7 84 0c e7 63 6f 6c 3d 32 20 8c 0d b7 8e 0a |.....col=2 .....|
0001e0a0 5b 4f 50 54 20 5a 0d b7 98 25 4c 44 52 20 52 33 |[OPT Z...%LDR R3|
0001e0b0 2c 5b 52 32 5d 3a 43 4d 50 20 52 33 2c 23 46 3a |,[R2]:CMP R3,#F:|
0001e0c0 4d 4f 56 43 53 20 52 33 2c 23 46 0d b7 a2 19 4d |MOVCS R3,#F....M|
0001e0d0 4f 56 20 52 33 2c 52 33 2c 4c 53 52 20 23 62 69 |OV R3,R3,LSR #bi|
0001e0e0 74 73 2d 38 0d b7 ac 17 41 44 44 20 52 33 2c 52 |ts-8....ADD R3,R|
0001e0f0 33 2c 52 33 2c 4c 53 4c 20 23 31 0d b7 b6 28 4c |3,R3,LSL #1...(L|
0001e100 44 52 20 52 34 2c 5b 52 31 2c 52 33 2c 4c 53 4c |DR R4,[R1,R3,LSL|
0001e110 20 23 32 5d 3a 53 54 52 20 52 34 2c 5b 52 32 5d | #2]:STR R4,[R2]|
0001e120 2c 23 34 0d b7 c0 25 4c 44 52 20 52 33 2c 5b 52 |,#4...%LDR R3,[R|
0001e130 32 5d 3a 43 4d 50 20 52 33 2c 23 46 3a 4d 4f 56 |2]:CMP R3,#F:MOV|
0001e140 43 53 20 52 33 2c 23 46 0d b7 ca 19 4d 4f 56 20 |CS R3,#F....MOV |
0001e150 52 33 2c 52 33 2c 4c 53 52 20 23 62 69 74 73 2d |R3,R3,LSR #bits-|
0001e160 38 0d b7 d4 24 41 44 44 20 52 33 2c 52 33 2c 52 |8...$ADD R3,R3,R|
0001e170 33 2c 4c 53 4c 20 23 31 3a 41 44 44 20 52 33 2c |3,LSL #1:ADD R3,|
0001e180 52 33 2c 23 31 0d b7 de 28 4c 44 52 20 52 34 2c |R3,#1...(LDR R4,|
0001e190 5b 52 31 2c 52 33 2c 4c 53 4c 20 23 32 5d 3a 53 |[R1,R3,LSL #2]:S|
0001e1a0 54 52 20 52 34 2c 5b 52 32 5d 2c 23 34 0d b7 e8 |TR R4,[R2],#4...|
0001e1b0 25 4c 44 52 20 52 33 2c 5b 52 32 5d 3a 43 4d 50 |%LDR R3,[R2]:CMP|
0001e1c0 20 52 33 2c 23 46 3a 4d 4f 56 43 53 20 52 33 2c | R3,#F:MOVCS R3,|
0001e1d0 23 46 0d b7 f2 19 4d 4f 56 20 52 33 2c 52 33 2c |#F....MOV R3,R3,|
0001e1e0 4c 53 52 20 23 62 69 74 73 2d 38 0d b7 fc 24 41 |LSR #bits-8...$A|
0001e1f0 44 44 20 52 33 2c 52 33 2c 52 33 2c 4c 53 4c 20 |DD R3,R3,R3,LSL |
0001e200 23 31 3a 41 44 44 20 52 33 2c 52 33 2c 23 32 0d |#1:ADD R3,R3,#2.|
0001e210 b8 06 05 5d 0d b8 10 05 cd 0d b8 1a 0a 5b 4f 50 |...].........[OP|
0001e220 54 20 5a 0d b8 24 28 4c 44 52 20 52 34 2c 5b 52 |T Z..$(LDR R4,[R|
0001e230 31 2c 52 33 2c 4c 53 4c 20 23 32 5d 3a 53 54 52 |1,R3,LSL #2]:STR|
0001e240 20 52 34 2c 5b 52 32 5d 2c 23 34 0d b8 2e 11 53 | R4,[R2],#4....S|
0001e250 55 42 53 20 52 30 2c 52 30 2c 23 31 0d b8 38 0f |UBS R0,R0,#1..8.|
0001e260 42 4e 45 20 65 71 75 61 6c 6c 70 0d b8 42 0f 4d |BNE equallp..B.M|
0001e270 4f 56 53 20 50 43 2c 52 31 34 0d b8 4c 05 5d 0d |OVS PC,R14..L.].|
0001e280 b8 56 05 cd 0d b8 60 0b c8 8e 20 72 24 20 ca 0d |.V....`... r$ ..|
0001e290 b8 6a 27 c9 20 22 46 4e 38 30 30 22 2c 22 46 4e |.j'. "FN800","FN|
0001e2a0 38 30 31 22 2c 22 46 4e 31 30 30 30 22 2c 22 46 |801","FN1000","F|
0001e2b0 4e 31 30 30 31 22 0d b8 74 0a 5b 4f 50 54 20 5a |N1001"..t.[OPT Z|
0001e2c0 0d b8 92 0e 2e 72 6c 65 78 70 61 6e 64 25 0d b8 |.....rlexpand%..|
0001e2d0 9c 0f 4c 44 52 20 52 30 2c 5b 52 39 5d 0d b8 a6 |..LDR R0,[R9]...|
0001e2e0 0f 4c 44 52 20 52 31 2c 5b 52 30 5d 0d b8 b0 1e |.LDR R1,[R0]....|
0001e2f0 4c 44 52 20 52 32 2c 5b 52 39 2c 23 38 5d 3a 4c |LDR R2,[R9,#8]:L|
0001e300 44 52 20 52 32 2c 5b 52 32 5d 0d b8 ba 13 4c 44 |DR R2,[R2]....LD|
0001e310 52 20 52 33 2c 5b 52 39 2c 23 31 36 5d 0d b8 c4 |R R3,[R9,#16]...|
0001e320 0f 4c 44 52 20 52 34 2c 5b 52 33 5d 0d b8 ce 1b |.LDR R4,[R3]....|
0001e330 43 4d 50 20 52 34 2c 23 31 3a 4d 4f 56 4c 54 53 |CMP R4,#1:MOVLTS|
0001e340 20 50 43 2c 52 31 34 0d b8 d8 1f 4c 44 52 20 52 | PC,R14....LDR R|
0001e350 35 2c 5b 52 39 2c 23 32 34 5d 3a 4c 44 52 20 52 |5,[R9,#24]:LDR R|
0001e360 35 2c 5b 52 35 5d 0d b8 e2 08 2e 72 6c 65 0d b8 |5,[R5].....rle..|
0001e370 ec 13 53 54 52 42 20 52 32 2c 5b 52 31 5d 2c 23 |..STRB R2,[R1],#|
0001e380 31 0d b8 f6 10 53 55 42 20 52 34 2c 52 34 2c 23 |1....SUB R4,R4,#|
0001e390 31 0d b9 00 0d 43 4d 50 20 52 31 2c 52 35 0d b9 |1....CMP R1,R5..|
0001e3a0 0a 0f 54 45 51 4e 45 20 52 34 2c 23 30 0d b9 14 |..TEQNE R4,#0...|
0001e3b0 0b 42 4e 45 20 72 6c 65 0d b9 1e 0b 2e 72 6c 65 |.BNE rle.....rle|
0001e3c0 78 69 74 0d b9 28 0f 53 54 52 20 52 31 2c 5b 52 |xit..(.STR R1,[R|
0001e3d0 30 5d 0d b9 32 0f 53 54 52 20 52 34 2c 5b 52 33 |0]..2.STR R4,[R3|
0001e3e0 5d 0d b9 3c 0f 4d 4f 56 53 20 50 43 2c 52 31 34 |]..<.MOVS PC,R14|
0001e3f0 0d b9 46 05 5d 0d b9 50 0d c9 20 22 46 4e 39 30 |..F.]..P.. "FN90|
0001e400 32 22 0d b9 5a 0a 5b 4f 50 54 20 5a 0d b9 64 0c |2"..Z.[OPT Z..d.|
0001e410 2e 75 6e 70 61 63 6b 25 0d b9 6e 0f 4c 44 52 20 |.unpack%..n.LDR |
0001e420 52 30 2c 5b 52 39 5d 0d b9 78 0f 4c 44 52 20 52 |R0,[R9]..x.LDR R|
0001e430 30 2c 5b 52 30 5d 0d b9 82 11 4c 44 52 20 52 31 |0,[R0]....LDR R1|
0001e440 2c 70 6c 62 75 66 66 0d b9 8c 12 41 44 44 20 52 |,plbuff....ADD R|
0001e450 32 2c 52 30 2c 23 37 36 38 0d b9 96 0f 2e 75 6e |2,R0,#768.....un|
0001e460 70 61 63 6b 6c 6f 6f 70 0d b9 a0 12 4c 44 52 20 |packloop....LDR |
0001e470 52 33 2c 5b 52 30 5d 2c 23 34 0d b9 aa 0d 4d 4f |R3,[R0],#4....MO|
0001e480 56 20 52 35 2c 23 30 0d b9 b4 0c 2e 62 69 74 6c |V R5,#0.....bitl|
0001e490 6f 6f 70 0d b9 be 14 4d 4f 56 20 52 36 2c 52 33 |oop....MOV R6,R3|
0001e4a0 2c 4c 53 52 20 52 35 0d b9 c8 0f 80 20 52 36 2c |,LSR R5..... R6,|
0001e4b0 52 36 2c 23 31 35 0d b9 d2 10 41 44 44 20 52 35 |R6,#15....ADD R5|
0001e4c0 2c 52 35 2c 23 34 0d b9 dc 14 4d 4f 56 20 52 37 |,R5,#4....MOV R7|
0001e4d0 2c 52 33 2c 4c 53 52 20 52 35 0d b9 e6 0f 80 20 |,R3,LSR R5..... |
0001e4e0 52 37 2c 52 37 2c 23 31 35 0d b9 f0 10 41 44 44 |R7,R7,#15....ADD|
0001e4f0 20 52 35 2c 52 35 2c 23 34 0d b9 fa 13 53 54 52 | R5,R5,#4....STR|
0001e500 42 20 52 37 2c 5b 52 31 5d 2c 23 31 0d ba 04 13 |B R7,[R1],#1....|
0001e510 53 54 52 42 20 52 36 2c 5b 52 31 5d 2c 23 31 0d |STRB R6,[R1],#1.|
0001e520 ba 0e 0e 43 4d 50 20 52 35 2c 23 33 32 0d ba 18 |...CMP R5,#32...|
0001e530 0f 42 4e 45 20 62 69 74 6c 6f 6f 70 0d ba 22 0d |.BNE bitloop..".|
0001e540 43 4d 50 20 52 32 2c 52 30 0d ba 2c 12 42 4e 45 |CMP R2,R0..,.BNE|
0001e550 20 75 6e 70 61 63 6b 6c 6f 6f 70 0d ba 36 0e 4d | unpackloop..6.M|
0001e560 4f 56 20 50 43 2c 52 31 34 0d ba 40 18 2e 70 6c |OV PC,R14..@..pl|
0001e570 62 75 66 66 20 45 51 55 44 20 70 6c 62 75 66 66 |buff EQUD plbuff|
0001e580 25 0d ba 4a 05 5d 0d ba 54 29 c9 20 22 46 4e 31 |%..J.]..T). "FN1|
0001e590 36 30 31 22 2c 22 46 4e 31 35 30 31 22 2c 22 46 |601","FN1501","F|
0001e5a0 4e 31 38 35 30 22 2c 22 46 4e 31 38 35 31 22 0d |N1850","FN1851".|
0001e5b0 ba 5e 0a 5b 4f 50 54 20 5a 0d ba 72 0d 2e 72 65 |.^.[OPT Z..r..re|
0001e5c0 61 64 69 66 66 25 0d ba 7c 0e 4d 4f 56 20 52 31 |adiff%..|.MOV R1|
0001e5d0 2c 23 63 25 0d ba 86 1b 4c 44 52 20 52 38 2c 5b |,#c%....LDR R8,[|
0001e5e0 52 39 5d 3a 4c 44 52 20 52 38 2c 5b 52 38 5d 0d |R9]:LDR R8,[R8].|
0001e5f0 ba 90 2b 4c 44 52 20 52 37 2c 5b 52 39 2c 23 38 |..+LDR R7,[R9,#8|
0001e600 5d 3a 4c 44 52 20 52 37 2c 5b 52 37 5d 3a 41 44 |]:LDR R7,[R7]:AD|
0001e610 44 20 52 37 2c 52 37 2c 52 38 0d ba 9a 14 53 54 |D R7,R7,R8....ST|
0001e620 4d 46 44 20 53 50 20 21 2c 7b 52 31 34 7d 0d ba |MFD SP !,{R14}..|
0001e630 a4 05 5d 0d ba ae 20 e7 72 24 3d 22 46 4e 31 38 |..]... .r$="FN18|
0001e640 35 30 22 20 84 20 72 24 3d 22 46 4e 31 38 35 31 |50" . r$="FN1851|
0001e650 22 20 8c 0d ba b8 0a 5b 4f 50 54 20 5a 0d ba c2 |" .....[OPT Z...|
0001e660 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 68 |.BL bytefromcach|
0001e670 65 25 0d ba cc 05 5d 0d ba d6 0e e7 73 79 25 3e |e%....].....sy%>|
0001e680 32 35 30 20 8c 0d ba e0 0a 5b 4f 50 54 20 5a 0d |250 .....[OPT Z.|
0001e690 ba ea 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 61 |...BL bytefromca|
0001e6a0 63 68 65 25 0d ba f4 05 5d 0d ba fe 05 cd 0d bb |che%....].......|
0001e6b0 08 05 cd 0d bb 12 0a 5b 4f 50 54 20 5a 0d bb 1c |.......[OPT Z...|
0001e6c0 08 2e 72 6c 65 0d bb 26 15 42 4c 20 62 79 74 65 |..rle..&.BL byte|
0001e6d0 66 72 6f 6d 63 61 63 68 65 25 0d bb 30 0f 43 4d |fromcache%..0.CM|
0001e6e0 50 20 52 30 2c 23 31 32 38 0d bb 3a 0c 42 43 43 |P R0,#128..:.BCC|
0001e6f0 20 72 6c 65 31 0d bb 44 12 52 53 42 20 52 32 2c | rle1..D.RSB R2,|
0001e700 52 30 2c 23 32 35 36 0d bb 4e 15 42 4c 20 62 79 |R0,#256..N.BL by|
0001e710 74 65 66 72 6f 6d 63 61 63 68 65 25 0d bb 58 19 |tefromcache%..X.|
0001e720 2e 72 6c 65 30 20 53 54 52 42 20 52 30 2c 5b 52 |.rle0 STRB R0,[R|
0001e730 38 5d 2c 23 31 0d bb 62 11 53 55 42 53 20 52 32 |8],#1..b.SUBS R2|
0001e740 2c 52 32 2c 23 31 0d bb 6c 0c 42 50 4c 20 72 6c |,R2,#1..l.BPL rl|
0001e750 65 30 0d bb 76 0a 42 20 72 6c 65 32 0d bb 80 09 |e0..v.B rle2....|
0001e760 2e 72 6c 65 31 0d bb 8a 10 41 44 44 20 52 33 2c |.rle1....ADD R3,|
0001e770 52 30 2c 23 31 0d bb 94 0d 4d 4f 56 20 52 32 2c |R0,#1....MOV R2,|
0001e780 52 38 0d bb 9e 10 41 44 44 20 52 38 2c 52 38 2c |R8....ADD R8,R8,|
0001e790 52 33 0d bb a8 1a 42 4c 20 6d 75 6c 74 69 62 79 |R3....BL multiby|
0001e7a0 74 65 66 72 6f 6d 63 61 63 68 65 25 0d bb b2 09 |tefromcache%....|
0001e7b0 2e 72 6c 65 32 0d bb bc 0d 43 4d 50 20 52 38 2c |.rle2....CMP R8,|
0001e7c0 52 37 0d bb c6 0b 42 43 43 20 72 6c 65 0d bb d0 |R7....BCC rle...|
0001e7d0 14 4c 44 4d 46 44 20 53 50 20 21 2c 7b 52 31 34 |.LDMFD SP !,{R14|
0001e7e0 7d 0d bb da 0f 4d 4f 56 53 20 50 43 2c 52 31 34 |}....MOVS PC,R14|
0001e7f0 0d bb e4 05 5d 0d bb ee 1f c9 20 22 46 4e 31 39 |....]..... "FN19|
0001e800 30 30 22 2c 22 46 4e 31 31 30 30 22 2c 22 46 4e |00","FN1100","FN|
0001e810 34 30 30 22 0d bb f8 0a 5b 4f 50 54 20 5a 0d bc |400"....[OPT Z..|
0001e820 0c 0e 2e 72 65 61 64 6c 69 6e 65 25 0d bc 16 1b |...readline%....|
0001e830 4c 44 52 20 52 32 2c 5b 52 39 5d 3a 4c 44 52 20 |LDR R2,[R9]:LDR |
0001e840 52 32 2c 5b 52 32 5d 0d bc 20 12 4c 44 52 20 52 |R2,[R2].. .LDR R|
0001e850 33 2c 5b 52 39 2c 23 38 5d 0d bc 2a 0f 4c 44 52 |3,[R9,#8]..*.LDR|
0001e860 20 52 30 2c 5b 52 33 5d 0d bc 34 13 4c 44 52 20 | R0,[R3]..4.LDR |
0001e870 52 34 2c 5b 52 39 2c 23 31 36 5d 0d bc 3e 0f 4c |R4,[R9,#16]..>.L|
0001e880 44 52 20 52 35 2c 5b 52 34 5d 0d bc 48 2c 4c 44 |DR R5,[R4]..H,LD|
0001e890 52 20 52 36 2c 5b 52 39 2c 23 32 34 5d 3a 4c 44 |R R6,[R9,#24]:LD|
0001e8a0 52 20 52 36 2c 5b 52 36 5d 3a 41 44 44 20 52 36 |R R6,[R6]:ADD R6|
0001e8b0 2c 52 36 2c 52 32 0d bc 52 14 53 54 4d 46 44 20 |,R6,R2..R.STMFD |
0001e8c0 53 50 20 21 2c 7b 52 31 34 7d 0d bc 5c 08 2e 72 |SP !,{R14}..\..r|
0001e8d0 6c 65 0d bc 66 0d 43 4d 50 20 52 35 2c 23 31 0d |le..f.CMP R5,#1.|
0001e8e0 bc 70 0c 42 47 45 20 72 6c 65 31 0d bc 7a 15 42 |.p.BGE rle1..z.B|
0001e8f0 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 68 65 25 |L bytefromcache%|
0001e900 0d bc 84 0d 4d 4f 56 20 52 35 2c 23 31 0d bc 8e |....MOV R5,#1...|
0001e910 05 5d 0d bc 98 10 e7 66 6c 61 67 3d 31 39 30 30 |.].....flag=1900|
0001e920 20 8c 0d bc a2 0a 5b 4f 50 54 20 5a 0d bc ac 0f | .....[OPT Z....|
0001e930 43 4d 50 20 52 30 2c 23 31 39 32 0d bc b6 25 80 |CMP R0,#192...%.|
0001e940 43 53 20 52 35 2c 52 30 2c 23 36 33 3a 42 4c 43 |CS R5,R0,#63:BLC|
0001e950 53 20 62 79 74 65 66 72 6f 6d 63 61 63 68 65 25 |S bytefromcache%|
0001e960 0d bc c0 05 5d 0d bc ca 05 cd 0d bc d4 10 e7 66 |....]..........f|
0001e970 6c 61 67 3d 31 31 30 30 20 8c 0d bc de 0a 5b 4f |lag=1100 .....[O|
0001e980 50 54 20 5a 0d bc e8 0f 43 4d 50 20 52 30 2c 23 |PT Z....CMP R0,#|
0001e990 31 32 38 0d bc f2 0c 42 4e 45 20 72 6c 65 31 0d |128....BNE rle1.|
0001e9a0 bc fc 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 61 |...BL bytefromca|
0001e9b0 63 68 65 25 0d bd 06 0d 54 45 51 20 52 30 2c 23 |che%....TEQ R0,#|
0001e9c0 30 0d bd 10 0e ec 51 20 52 30 2c 23 31 32 38 0d |0.....Q R0,#128.|
0001e9d0 bd 1a 0c 42 45 51 20 72 6c 65 31 0d bd 24 10 41 |...BEQ rle1..$.A|
0001e9e0 44 44 20 52 35 2c 52 30 2c 23 31 0d bd 2e 15 42 |DD R5,R0,#1....B|
0001e9f0 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 68 65 25 |L bytefromcache%|
0001ea00 0d bd 38 05 5d 0d bd 42 05 cd 0d bd 4c 0f e7 66 |..8.]..B....L..f|
0001ea10 6c 61 67 3d 34 30 30 20 8c 0d bd 56 0a 5b 4f 50 |lag=400 ...V.[OP|
0001ea20 54 20 5a 0d bd 60 0d 4d 4f 56 20 52 31 2c 52 30 |T Z..`.MOV R1,R0|
0001ea30 0d bd 6a 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 |..j.BL bytefromc|
0001ea40 61 63 68 65 25 0d bd 74 16 84 52 20 52 31 2c 52 |ache%..t..R R1,R|
0001ea50 31 2c 52 30 2c 4c 53 4c 20 23 38 0d bd 7e 15 42 |1,R0,LSL #8..~.B|
0001ea60 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 68 65 25 |L bytefromcache%|
0001ea70 0d bd 88 17 84 52 20 52 31 2c 52 31 2c 52 30 2c |.....R R1,R1,R0,|
0001ea80 4c 53 4c 20 23 31 36 0d bd 92 15 42 4c 20 62 79 |LSL #16....BL by|
0001ea90 74 65 66 72 6f 6d 63 61 63 68 65 25 0d bd 9c 10 |tefromcache%....|
0001eaa0 41 44 44 20 52 35 2c 52 30 2c 23 31 0d bd a6 0d |ADD R5,R0,#1....|
0001eab0 4d 4f 56 20 52 30 2c 52 31 0d bd b0 05 5d 0d bd |MOV R0,R1....]..|
0001eac0 ba 05 cd 0d bd c4 0f e7 66 6c 61 67 3d 32 30 30 |........flag=200|
0001ead0 20 8c 0d bd ce 0a 5b 4f 50 54 20 5a 0d bd d8 10 | .....[OPT Z....|
0001eae0 41 44 44 20 52 35 2c 52 30 2c 23 31 0d bd e2 15 |ADD R5,R0,#1....|
0001eaf0 42 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 68 65 |BL bytefromcache|
0001eb00 25 0d bd ec 05 5d 0d bd f6 05 cd 0d be 00 0a 5b |%....].........[|
0001eb10 4f 50 54 20 5a 0d be 0a 09 2e 72 6c 65 31 0d be |OPT Z.....rle1..|
0001eb20 14 13 53 54 52 42 20 52 30 2c 5b 52 32 5d 2c 23 |..STRB R0,[R2],#|
0001eb30 31 0d be 1e 05 5d 0d be 28 0f e7 66 6c 61 67 3d |1....]..(..flag=|
0001eb40 34 30 30 20 8c 0d be 32 0a 5b 4f 50 54 20 5a 0d |400 ...2.[OPT Z.|
0001eb50 be 3c 14 4d 4f 56 20 52 31 2c 52 30 2c 4c 53 52 |.<.MOV R1,R0,LSR|
0001eb60 20 23 38 0d be 46 13 53 54 52 42 20 52 31 2c 5b | #8..F.STRB R1,[|
0001eb70 52 32 5d 2c 23 31 0d be 50 15 4d 4f 56 20 52 31 |R2],#1..P.MOV R1|
0001eb80 2c 52 30 2c 4c 53 52 20 23 31 36 0d be 5a 13 53 |,R0,LSR #16..Z.S|
0001eb90 54 52 42 20 52 31 2c 5b 52 32 5d 2c 23 31 0d be |TRB R1,[R2],#1..|
0001eba0 64 05 5d 0d be 6e 05 cd 0d be 78 0a 5b 4f 50 54 |d.]..n....x.[OPT|
0001ebb0 20 5a 0d be 82 10 53 55 42 20 52 35 2c 52 35 2c | Z....SUB R5,R5,|
0001ebc0 23 31 0d be 8c 0d 54 45 51 20 52 32 2c 52 36 0d |#1....TEQ R2,R6.|
0001ebd0 be 96 0b 42 4e 45 20 72 6c 65 0d be a0 0b 2e 72 |...BNE rle.....r|
0001ebe0 6c 65 78 69 74 0d be aa 1b 53 54 52 20 52 30 2c |lexit....STR R0,|
0001ebf0 5b 52 33 5d 3a 53 54 52 20 52 35 2c 5b 52 34 5d |[R3]:STR R5,[R4]|
0001ec00 0d be b4 14 4c 44 4d 46 44 20 53 50 20 21 2c 7b |....LDMFD SP !,{|
0001ec10 50 43 7d 5e 0d be be 05 5d 0d be c8 0e c9 20 22 |PC}^....]..... "|
0001ec20 46 4e 32 34 30 31 22 0d be d2 0a 5b 4f 50 54 20 |FN2401"....[OPT |
0001ec30 5a 0d be dc 0c 2e 62 6d 5f 72 6c 65 38 0d be e6 |Z.....bm_rle8...|
0001ec40 0e 4d 4f 56 20 52 31 2c 23 63 25 0d be f0 1b 4c |.MOV R1,#c%....L|
0001ec50 44 52 20 52 38 2c 5b 52 39 5d 3a 4c 44 52 20 52 |DR R8,[R9]:LDR R|
0001ec60 38 2c 5b 52 38 5d 0d be fa 2b 4c 44 52 20 52 37 |8,[R8]...+LDR R7|
0001ec70 2c 5b 52 39 2c 23 38 5d 3a 4c 44 52 20 52 37 2c |,[R9,#8]:LDR R7,|
0001ec80 5b 52 37 5d 3a 41 44 44 20 52 37 2c 52 37 2c 52 |[R7]:ADD R7,R7,R|
0001ec90 38 0d bf 04 14 53 54 4d 46 44 20 53 50 20 21 2c |8....STMFD SP !,|
0001eca0 7b 52 31 34 7d 0d bf 0e 08 2e 72 6c 65 0d bf 18 |{R14}.....rle...|
0001ecb0 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 68 |.BL bytefromcach|
0001ecc0 65 25 0d bf 22 0d 54 45 51 20 72 30 2c 23 30 0d |e%..".TEQ r0,#0.|
0001ecd0 bf 2c 0f 42 45 51 20 72 6c 65 63 6f 70 79 0d bf |.,.BEQ rlecopy..|
0001ece0 40 0d 4d 4f 56 20 72 34 2c 72 30 0d bf 4a 15 42 |@.MOV r4,r0..J.B|
0001ecf0 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 68 65 25 |L bytefromcache%|
0001ed00 0d bf 54 09 2e 72 6c 65 31 0d bf 5e 13 53 54 52 |..T..rle1..^.STR|
0001ed10 42 20 72 30 2c 5b 72 38 5d 2c 23 31 0d bf 68 11 |B r0,[r8],#1..h.|
0001ed20 53 55 42 53 20 72 34 2c 72 34 2c 23 31 0d bf 72 |SUBS r4,r4,#1..r|
0001ed30 0c 42 47 54 20 72 6c 65 31 0d bf 7c 09 42 20 72 |.BGT rle1..|.B r|
0001ed40 6c 65 0d bf 86 0c 2e 72 6c 65 63 6f 70 79 0d bf |le.....rlecopy..|
0001ed50 9a 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 61 63 |..BL bytefromcac|
0001ed60 68 65 25 0d bf a4 0d 43 4d 50 20 72 30 2c 23 33 |he%....CMP r0,#3|
0001ed70 0d bf ae 12 42 4c 54 20 72 6c 65 73 70 65 63 69 |....BLT rlespeci|
0001ed80 61 6c 0d bf b8 0d 4d 4f 56 20 72 34 2c 72 30 0d |al....MOV r4,r0.|
0001ed90 bf c2 09 2e 72 6c 65 32 0d bf d6 15 42 4c 20 62 |....rle2....BL b|
0001eda0 79 74 65 66 72 6f 6d 63 61 63 68 65 25 0d bf e0 |ytefromcache%...|
0001edb0 13 53 54 52 42 20 72 30 2c 5b 72 38 5d 2c 23 31 |.STRB r0,[r8],#1|
0001edc0 0d bf ea 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 |....BL bytefromc|
0001edd0 61 63 68 65 25 0d bf f4 11 53 55 42 53 20 72 34 |ache%....SUBS r4|
0001ede0 2c 72 34 2c 23 31 0d bf fe 15 53 54 52 47 54 42 |,r4,#1....STRGTB|
0001edf0 20 72 30 2c 5b 72 38 5d 2c 23 31 0d c0 08 13 53 | r0,[r8],#1....S|
0001ee00 55 42 47 54 53 20 72 34 2c 72 34 2c 23 31 0d c0 |UBGTS r4,r4,#1..|
0001ee10 12 0c 42 47 54 20 72 6c 65 32 0d c0 1c 09 42 20 |..BGT rle2....B |
0001ee20 72 6c 65 0d c0 26 0f 2e 72 6c 65 73 70 65 63 69 |rle..&..rlespeci|
0001ee30 61 6c 0d c0 94 14 4c 44 4d 46 44 20 53 50 20 21 |al....LDMFD SP !|
0001ee40 2c 7b 52 31 34 7d 0d c0 9e 0f 4d 4f 56 53 20 50 |,{R14}....MOVS P|
0001ee50 43 2c 52 31 34 0d c0 a8 05 5d 0d c0 b2 0e c9 20 |C,R14....]..... |
0001ee60 22 46 4e 32 34 30 32 22 0d c0 bc 0a 5b 4f 50 54 |"FN2402"....[OPT|
0001ee70 20 5a 0d c0 c6 0c 2e 62 6d 5f 72 6c 65 34 0d c0 | Z.....bm_rle4..|
0001ee80 d0 0e 4d 4f 56 20 52 31 2c 23 63 25 0d c0 da 1b |..MOV R1,#c%....|
0001ee90 4c 44 52 20 52 38 2c 5b 52 39 5d 3a 4c 44 52 20 |LDR R8,[R9]:LDR |
0001eea0 52 38 2c 5b 52 38 5d 0d c0 e4 2b 4c 44 52 20 52 |R8,[R8]...+LDR R|
0001eeb0 37 2c 5b 52 39 2c 23 38 5d 3a 4c 44 52 20 52 37 |7,[R9,#8]:LDR R7|
0001eec0 2c 5b 52 37 5d 3a 41 44 44 20 52 37 2c 52 37 2c |,[R7]:ADD R7,R7,|
0001eed0 52 38 0d c0 ee 14 53 54 4d 46 44 20 53 50 20 21 |R8....STMFD SP !|
0001eee0 2c 7b 52 31 34 7d 0d c0 f8 0d 4d 4f 56 20 72 32 |,{R14}....MOV r2|
0001eef0 2c 23 30 0d c1 02 0d 4d 4f 56 20 72 33 2c 23 30 |,#0....MOV r3,#0|
0001ef00 0d c1 0c 08 2e 72 6c 65 0d c1 16 15 42 4c 20 62 |.....rle....BL b|
0001ef10 79 74 65 66 72 6f 6d 63 61 63 68 65 25 0d c1 20 |ytefromcache%.. |
0001ef20 0d 54 45 51 20 72 30 2c 23 30 0d c1 2a 0f 42 45 |.TEQ r0,#0..*.BE|
0001ef30 51 20 72 6c 65 63 6f 70 79 0d c1 3e 0d 4d 4f 56 |Q rlecopy..>.MOV|
0001ef40 20 72 34 2c 72 30 0d c1 48 15 42 4c 20 62 79 74 | r4,r0..H.BL byt|
0001ef50 65 66 72 6f 6d 63 61 63 68 65 25 0d c1 52 09 2e |efromcache%..R..|
0001ef60 72 6c 65 31 0d c1 5c 14 42 4c 20 62 6d 72 6c 65 |rle1..\.BL bmrle|
0001ef70 34 5f 69 6e 73 65 72 74 0d c1 66 0d 43 4d 50 20 |4_insert..f.CMP |
0001ef80 72 33 2c 23 38 0d c1 70 16 4d 4f 56 47 45 20 72 |r3,#8..p.MOVGE r|
0001ef90 35 2c 72 32 2c 4c 53 52 23 32 34 0d c1 7a 15 53 |5,r2,LSR#24..z.S|
0001efa0 54 52 47 45 42 20 72 35 2c 5b 72 38 5d 2c 23 31 |TRGEB r5,[r8],#1|
0001efb0 0d c1 84 15 4d 4f 56 47 45 20 72 32 2c 72 32 2c |....MOVGE r2,r2,|
0001efc0 4c 53 4c 23 38 0d c1 8e 12 53 55 42 47 45 20 72 |LSL#8....SUBGE r|
0001efd0 33 2c 72 33 2c 23 38 0d c1 98 0d 43 4d 50 20 72 |3,r3,#8....CMP r|
0001efe0 34 2c 23 30 0d c1 a2 0c 42 47 54 20 72 6c 65 31 |4,#0....BGT rle1|
0001eff0 0d c1 ac 09 42 20 72 6c 65 0d c1 b6 0c 2e 72 6c |....B rle.....rl|
0001f000 65 63 6f 70 79 0d c1 ca 15 42 4c 20 62 79 74 65 |ecopy....BL byte|
0001f010 66 72 6f 6d 63 61 63 68 65 25 0d c1 d4 0d 43 4d |fromcache%....CM|
0001f020 50 20 72 30 2c 23 33 0d c1 de 12 42 4c 54 20 72 |P r0,#3....BLT r|
0001f030 6c 65 73 70 65 63 69 61 6c 0d c1 e8 0d 4d 4f 56 |lespecial....MOV|
0001f040 20 72 34 2c 72 30 0d c1 f2 09 2e 72 6c 65 32 0d | r4,r0.....rle2.|
0001f050 c2 06 15 42 4c 20 62 79 74 65 66 72 6f 6d 63 61 |...BL bytefromca|
0001f060 63 68 65 25 0d c2 10 14 42 4c 20 62 6d 72 6c 65 |che%....BL bmrle|
0001f070 34 5f 69 6e 73 65 72 74 0d c2 1a 15 42 4c 20 62 |4_insert....BL b|
0001f080 79 74 65 66 72 6f 6d 63 61 63 68 65 25 0d c2 24 |ytefromcache%..$|
0001f090 0d 43 4d 50 20 72 34 2c 23 30 0d c2 2e 16 42 4c |.CMP r4,#0....BL|
0001f0a0 47 54 20 62 6d 72 6c 65 34 5f 69 6e 73 65 72 74 |GT bmrle4_insert|
0001f0b0 0d c2 38 0a 42 20 72 6c 65 34 0d c2 42 09 2e 72 |..8.B rle4..B..r|
0001f0c0 6c 65 33 0d c2 4c 14 4d 4f 56 20 72 35 2c 72 32 |le3..L.MOV r5,r2|
0001f0d0 2c 4c 53 52 23 32 34 0d c2 56 13 53 54 52 42 20 |,LSR#24..V.STRB |
0001f0e0 72 35 2c 5b 72 38 5d 2c 23 31 0d c2 60 13 4d 4f |r5,[r8],#1..`.MO|
0001f0f0 56 20 72 32 2c 72 32 2c 4c 53 4c 23 38 0d c2 6a |V r2,r2,LSL#8..j|
0001f100 10 53 55 42 20 72 33 2c 72 33 2c 23 38 0d c2 74 |.SUB r3,r3,#8..t|
0001f110 09 2e 72 6c 65 34 0d c2 7e 0d 43 4d 50 20 72 33 |..rle4..~.CMP r3|
0001f120 2c 23 38 0d c2 88 0c 42 47 45 20 72 6c 65 33 0d |,#8....BGE rle3.|
0001f130 c2 92 0d 43 4d 50 20 72 34 2c 23 30 0d c2 9c 0c |...CMP r4,#0....|
0001f140 42 47 54 20 72 6c 65 32 0d c2 a6 09 42 20 72 6c |BGT rle2....B rl|
0001f150 65 0d c2 b0 0f 2e 72 6c 65 73 70 65 63 69 61 6c |e.....rlespecial|
0001f160 0d c3 14 0d 43 4d 50 20 72 33 2c 23 30 0d c3 1e |....CMP r3,#0...|
0001f170 16 4d 4f 56 47 54 20 72 35 2c 72 32 2c 4c 53 52 |.MOVGT r5,r2,LSR|
0001f180 23 32 34 0d c3 28 15 53 54 52 47 54 42 20 72 35 |#24..(.STRGTB r5|
0001f190 2c 5b 72 38 5d 2c 23 31 0d c3 3c 14 4c 44 4d 46 |,[r8],#1..<.LDMF|
0001f1a0 44 20 53 50 20 21 2c 7b 52 31 34 7d 0d c3 46 0f |D SP !,{R14}..F.|
0001f1b0 4d 4f 56 53 20 50 43 2c 52 31 34 0d c3 50 12 2e |MOVS PC,R14..P..|
0001f1c0 62 6d 72 6c 65 34 5f 69 6e 73 65 72 74 0d c3 5a |bmrle4_insert..Z|
0001f1d0 11 52 53 42 20 72 35 2c 72 33 2c 23 33 32 0d c3 |.RSB r5,r3,#32..|
0001f1e0 64 14 4d 4f 56 20 72 32 2c 72 32 2c 4c 53 52 20 |d.MOV r2,r2,LSR |
0001f1f0 72 35 0d c3 6e 14 4d 4f 56 20 72 32 2c 72 32 2c |r5..n.MOV r2,r2,|
0001f200 4c 53 4c 20 72 35 0d c3 78 10 53 55 42 20 72 35 |LSL r5..x.SUB r5|
0001f210 2c 72 35 2c 23 38 0d c3 82 16 84 52 20 72 32 2c |,r5,#8.....R r2,|
0001f220 72 32 2c 72 30 2c 4c 53 4c 20 72 35 0d c3 8c 11 |r2,r0,LSL r5....|
0001f230 53 55 42 53 20 72 34 2c 72 34 2c 23 32 0d c3 96 |SUBS r4,r4,#2...|
0001f240 12 41 44 44 4d 49 20 72 33 2c 72 33 2c 23 34 0d |.ADDMI r3,r3,#4.|
0001f250 c3 a0 12 41 44 44 50 4c 20 72 33 2c 72 33 2c 23 |...ADDPL r3,r3,#|
0001f260 38 0d c3 aa 0f 4d 4f 56 53 20 50 43 2c 52 31 34 |8....MOVS PC,R14|
0001f270 0d c3 b4 05 5d 0d c3 be 05 cb 0d c3 c8 12 e7 63 |....]..........c|
0001f280 61 63 68 65 62 79 74 65 73 25 20 8c 0d c3 d2 0a |achebytes% .....|
0001f290 5b 4f 50 54 20 5a 0d c3 dc 13 2e 62 79 74 65 66 |[OPT Z.....bytef|
0001f2a0 72 6f 6d 63 61 63 68 65 25 0d c3 e6 16 53 54 4d |romcache%....STM|
0001f2b0 46 44 20 53 50 20 21 2c 7b 52 31 2c 52 32 7d 0d |FD SP !,{R1,R2}.|
0001f2c0 c3 f0 15 4c 44 52 20 52 31 2c 69 6e 63 61 63 68 |...LDR R1,incach|
0001f2d0 65 70 74 72 0d c3 fa 16 4c 44 52 20 52 32 2c 6e |eptr....LDR R2,n|
0001f2e0 75 6d 6c 65 66 74 74 6f 67 6f 0d c4 04 13 4c 44 |umlefttogo....LD|
0001f2f0 52 42 20 52 30 2c 5b 52 31 5d 2c 23 31 0d c4 0e |RB R0,[R1],#1...|
0001f300 11 53 55 42 53 20 52 32 2c 52 32 2c 23 31 0d c4 |.SUBS R2,R2,#1..|
0001f310 18 17 53 54 52 4e 45 20 52 31 2c 69 6e 63 61 63 |..STRNE R1,incac|
0001f320 68 65 70 74 72 0d c4 22 18 53 54 52 4e 45 20 52 |heptr..".STRNE R|
0001f330 32 2c 6e 75 6d 6c 65 66 74 74 6f 67 6f 0d c4 2c |2,numlefttogo..,|
0001f340 16 4c 44 4d 46 44 20 53 50 20 21 2c 7b 52 31 2c |.LDMFD SP !,{R1,|
0001f350 52 32 7d 0d c4 36 10 4d 4f 56 4e 45 20 50 43 2c |R2}..6.MOVNE PC,|
0001f360 52 31 34 0d c4 40 1f 53 54 4d 46 44 20 53 50 20 |R14..@.STMFD SP |
0001f370 21 2c 7b 52 30 2c 52 31 2c 52 32 2c 52 33 2c 52 |!,{R0,R1,R2,R3,R|
0001f380 34 7d 0d c4 4a 17 4c 44 52 20 52 32 2c 76 61 6c |4}..J.LDR R2,val|
0001f390 64 61 74 61 63 61 63 68 65 0d c4 54 15 53 54 52 |datacache..T.STR|
0001f3a0 20 52 32 2c 69 6e 63 61 63 68 65 70 74 72 0d c4 | R2,incacheptr..|
0001f3b0 5e 13 4c 44 52 20 52 33 2c 76 61 6c 63 61 63 68 |^.LDR R3,valcach|
0001f3c0 65 0d c4 68 16 53 54 52 20 52 33 2c 6e 75 6d 6c |e..h.STR R3,numl|
0001f3d0 65 66 74 74 6f 67 6f 0d c4 72 0d 4d 4f 56 20 52 |efttogo..r.MOV R|
0001f3e0 30 2c 23 34 0d c4 7c 0e 4d 4f 56 20 52 31 2c 23 |0,#4..|.MOV R1,#|
0001f3f0 63 25 0d c4 86 11 53 57 49 20 22 4f 53 5f 47 42 |c%....SWI "OS_GB|
0001f400 50 42 22 0d c4 90 1f 4c 44 4d 46 44 20 53 50 20 |PB"....LDMFD SP |
0001f410 21 2c 7b 52 30 2c 52 31 2c 52 32 2c 52 33 2c 52 |!,{R0,R1,R2,R3,R|
0001f420 34 7d 0d c4 9a 0e 4d 4f 56 20 50 43 2c 52 31 34 |4}....MOV PC,R14|
0001f430 0d c4 a4 20 2e 76 61 6c 64 61 74 61 63 61 63 68 |... .valdatacach|
0001f440 65 20 44 43 44 20 64 61 74 61 63 61 63 68 65 25 |e DCD datacache%|
0001f450 0d c4 ae 18 2e 76 61 6c 63 61 63 68 65 20 44 43 |.....valcache DC|
0001f460 44 20 63 61 63 68 65 25 0d c4 b8 1e 2e 69 6e 63 |D cache%.....inc|
0001f470 61 63 68 65 70 74 72 20 44 43 44 20 64 61 74 61 |acheptr DCD data|
0001f480 63 61 63 68 65 25 0d c4 c2 1b 2e 6e 75 6d 6c 65 |cache%.....numle|
0001f490 66 74 74 6f 67 6f 20 44 43 44 20 63 61 63 68 65 |fttogo DCD cache|
0001f4a0 25 0d c4 cc 18 2e 6d 75 6c 74 69 62 79 74 65 66 |%.....multibytef|
0001f4b0 72 6f 6d 63 61 63 68 65 25 0d c4 d6 0d 43 4d 50 |romcache%....CMP|
0001f4c0 20 52 33 2c 23 30 0d c4 e0 0d ec 51 20 50 43 2c | R3,#0.....Q PC,|
0001f4d0 52 31 34 0d c4 ea 17 53 54 4d 46 44 20 53 50 20 |R14....STMFD SP |
0001f4e0 21 2c 7b 52 30 2c 52 31 34 7d 0d c4 f4 18 2e 6d |!,{R0,R14}.....m|
0001f4f0 75 6c 74 69 62 79 74 65 66 72 6f 6d 63 61 63 68 |ultibytefromcach|
0001f500 65 6c 0d c4 fe 15 42 4c 20 62 79 74 65 66 72 6f |el....BL bytefro|
0001f510 6d 63 61 63 68 65 25 0d c5 08 13 53 54 52 42 20 |mcache%....STRB |
0001f520 52 30 2c 5b 52 32 5d 2c 23 31 0d c5 12 11 53 55 |R0,[R2],#1....SU|
0001f530 42 53 20 52 33 2c 52 33 2c 23 31 0d c5 1c 1b 42 |BS R3,R3,#1....B|
0001f540 4e 45 20 6d 75 6c 74 69 62 79 74 65 66 72 6f 6d |NE multibytefrom|
0001f550 63 61 63 68 65 6c 0d c5 26 17 4c 44 4d 46 44 20 |cachel..&.LDMFD |
0001f560 53 50 20 21 2c 7b 52 30 2c 52 31 34 7d 0d c5 30 |SP !,{R0,R14}..0|
0001f570 0e 4d 4f 56 20 50 43 2c 52 31 34 0d c5 3a 05 5d |.MOV PC,R14..:.]|
0001f580 0d c5 44 05 cd 0d c5 4e 10 e7 70 6c 61 6e 61 72 |..D....N..planar|
0001f590 25 3c 30 20 8c 0d c5 58 19 43 25 3d 37 3a e7 66 |%<0 ...X.C%=7:.f|
0001f5a0 6c 61 67 3d 32 36 30 30 20 43 25 3d 31 35 0d c5 |lag=2600 C%=15..|
0001f5b0 62 0a 5b 4f 50 54 20 5a 0d c5 6c 0d 2e 70 6c 61 |b.[OPT Z..l..pla|
0001f5c0 6e 63 6e 76 25 0d c5 76 10 4c 44 52 20 52 30 2c |ncnv%..v.LDR R0,|
0001f5d0 73 78 6c 6f 63 0d c5 80 1b 4c 44 52 20 52 31 2c |sxloc....LDR R1,|
0001f5e0 5b 52 39 5d 3a 4c 44 52 20 52 31 2c 5b 52 31 5d |[R9]:LDR R1,[R1]|
0001f5f0 0d c5 8a 1e 4c 44 52 20 52 33 2c 5b 52 39 2c 23 |....LDR R3,[R9,#|
0001f600 38 5d 3a 4c 44 52 20 52 33 2c 5b 52 33 5d 0d c5 |8]:LDR R3,[R3]..|
0001f610 94 1f 4c 44 52 20 52 34 2c 5b 52 39 2c 23 31 36 |..LDR R4,[R9,#16|
0001f620 5d 3a 4c 44 52 20 52 34 2c 5b 52 34 5d 0d c5 9e |]:LDR R4,[R4]...|
0001f630 05 5d 0d c5 a8 10 e7 66 6c 61 67 3d 33 35 30 30 |.].....flag=3500|
0001f640 20 8c 0d c5 b2 0a 5b 4f 50 54 20 5a 0d c5 bc 0d | .....[OPT Z....|
0001f650 4d 4f 56 20 52 39 2c 23 30 0d c5 c6 05 5d 0d c5 |MOV R9,#0....]..|
0001f660 d0 05 cc 0d c5 da 0a 5b 4f 50 54 20 5a 0d c5 e4 |.......[OPT Z...|
0001f670 0e 4d 4f 56 20 52 39 2c 23 43 25 0d c5 ee 05 5d |.MOV R9,#C%....]|
0001f680 0d c5 f8 05 cd 0d c6 02 0a 5b 4f 50 54 20 5a 0d |.........[OPT Z.|
0001f690 c6 0c 0c 2e 70 6c 61 6e 65 6c 70 0d c6 16 0d 4d |....planelp....M|
0001f6a0 4f 56 20 52 37 2c 23 30 0d c6 20 0d 4d 4f 56 20 |OV R7,#0.. .MOV |
0001f6b0 52 35 2c 52 33 0d c6 2a 05 5d 0d c6 34 11 e3 4e |R5,R3..*.]..4..N|
0001f6c0 25 3d 31 b8 70 6c 61 6e 65 73 25 0d c6 3e 0a 5b |%=1.planes%..>.[|
0001f6d0 4f 50 54 20 5a 0d c6 48 12 4c 44 52 20 52 36 2c |OPT Z..H.LDR R6,|
0001f6e0 5b 52 35 5d 2c 52 34 0d c6 52 05 5d 0d c6 5c 10 |[R5],R4..R.]..\.|
0001f6f0 e7 66 6c 61 67 3d 32 36 30 30 20 8c 0d c6 66 0a |.flag=2600 ...f.|
0001f700 5b 4f 50 54 20 5a 0d c6 70 14 4d 4f 56 20 52 36 |[OPT Z..p.MOV R6|
0001f710 2c 52 36 2c 4c 53 4c 20 23 38 0d c6 7a 18 42 49 |,R6,LSL #8..z.BI|
0001f720 43 20 52 36 2c 52 36 2c 23 26 46 46 30 30 30 30 |C R6,R6,#&FF0000|
0001f730 30 30 0d c6 84 17 84 52 20 52 36 2c 52 36 2c 52 |00.....R R6,R6,R|
0001f740 36 2c 4c 53 52 20 23 31 36 0d c6 8e 05 5d 0d c6 |6,LSR #16....]..|
0001f750 98 05 cd 0d c6 a2 10 e7 66 6c 61 67 3d 33 35 30 |........flag=350|
0001f760 30 20 8c 0d c6 ac 0a 5b 4f 50 54 20 5a 0d c6 b6 |0 .....[OPT Z...|
0001f770 14 4d 4f 56 20 52 36 2c 52 36 2c 4c 53 52 20 52 |.MOV R6,R6,LSR R|
0001f780 39 0d c6 c0 0f 80 53 20 52 36 2c 52 36 2c 23 31 |9.....S R6,R6,#1|
0001f790 0d c6 ca 21 84 52 20 52 37 2c 52 37 2c 52 36 2c |...!.R R7,R7,R6,|
0001f7a0 4c 53 4c 20 23 28 70 6c 61 6e 65 73 25 2d 4e 25 |LSL #(planes%-N%|
0001f7b0 29 0d c6 d4 1b 84 52 4e 45 20 52 37 2c 52 37 2c |).....RNE R7,R7,|
0001f7c0 23 28 70 6c 61 6e 65 73 25 2d 31 29 0d c6 de 05 |#(planes%-1)....|
0001f7d0 5d 0d c6 e8 05 cc 0d c6 f2 0a 5b 4f 50 54 20 5a |].........[OPT Z|
0001f7e0 0d c6 fc 14 4d 4f 56 20 52 36 2c 52 36 2c 4c 53 |....MOV R6,R6,LS|
0001f7f0 52 20 52 39 0d c7 06 0e 80 20 52 36 2c 52 36 2c |R R9..... R6,R6,|
0001f800 23 31 0d c7 10 1b 84 52 20 52 37 2c 52 37 2c 52 |#1.....R R7,R7,R|
0001f810 36 2c 4c 53 4c 20 23 28 4e 25 2d 31 29 0d c7 1a |6,LSL #(N%-1)...|
0001f820 05 5d 0d c7 24 05 cd 0d c7 2e 05 ed 0d c7 38 0a |.]..$.........8.|
0001f830 5b 4f 50 54 20 5a 0d c7 42 13 53 54 52 42 20 52 |[OPT Z..B.STRB R|
0001f840 37 2c 5b 52 31 5d 2c 23 31 0d c7 4c 05 5d 0d c7 |7,[R1],#1..L.]..|
0001f850 56 10 e7 66 6c 61 67 3d 33 35 30 30 20 8c 0d c7 |V..flag=3500 ...|
0001f860 60 0a 5b 4f 50 54 20 5a 0d c7 6a 10 41 44 44 20 |`.[OPT Z..j.ADD |
0001f870 52 39 2c 52 39 2c 23 31 0d c7 74 10 43 4d 50 20 |R9,R9,#1..t.CMP |
0001f880 52 39 2c 23 43 25 2b 31 0d c7 7e 0c ec 51 20 52 |R9,#C%+1..~..Q R|
0001f890 39 2c 23 30 0d c7 88 05 5d 0d c7 92 05 cc 0d c7 |9,#0....].......|
0001f8a0 9c 0a 5b 4f 50 54 20 5a 0d c7 a6 1e 53 55 42 53 |..[OPT Z....SUBS|
0001f8b0 20 52 39 2c 52 39 2c 23 31 3a 4d 4f 56 4d 49 20 | R9,R9,#1:MOVMI |
0001f8c0 52 39 2c 23 43 25 0d c7 b0 05 5d 0d c7 ba 05 cd |R9,#C%....].....|
0001f8d0 0d c7 c4 0d c8 8e 20 66 6c 61 67 20 ca 0d c7 ce |...... flag ....|
0001f8e0 0a c9 20 32 36 30 30 0d c7 d8 0a 5b 4f 50 54 20 |.. 2600....[OPT |
0001f8f0 5a 0d c7 e2 0f 4d 4f 56 4d 49 20 52 33 2c 52 35 |Z....MOVMI R3,R5|
0001f900 0d c7 ec 05 5d 0d c7 f6 0a c9 20 33 35 30 30 0d |....]..... 3500.|
0001f910 c8 00 0a 5b 4f 50 54 20 5a 0d c8 0a 12 41 44 44 |...[OPT Z....ADD|
0001f920 45 51 20 52 33 2c 52 33 2c 23 31 0d c8 14 05 5d |EQ R3,R3,#1....]|
0001f930 0d c8 1e 05 7f 0d c8 28 0a 5b 4f 50 54 20 5a 0d |.......(.[OPT Z.|
0001f940 c8 32 12 41 44 44 4d 49 20 52 33 2c 52 33 2c 23 |.2.ADDMI R3,R3,#|
0001f950 31 0d c8 3c 05 5d 0d c8 46 05 cb 0d c8 50 0a 5b |1..<.]..F....P.[|
0001f960 4f 50 54 20 5a 0d c8 5a 1d 53 55 42 53 20 52 30 |OPT Z..Z.SUBS R0|
0001f970 2c 52 30 2c 23 31 3a 42 4e 45 20 70 6c 61 6e 65 |,R0,#1:BNE plane|
0001f980 6c 70 0d c8 64 0f 4d 4f 56 53 20 50 43 2c 52 31 |lp..d.MOVS PC,R1|
0001f990 34 0d c8 6e 05 5d 0d c8 78 05 cd 0d c8 82 05 ed |4..n.]..x.......|
0001f9a0 0d c8 8c 0e 63 70 75 74 69 6d 65 25 3d 91 0d c8 |....cputime%=...|
0001f9b0 96 0d e7 63 61 63 68 65 25 20 8c 0d c8 a0 10 e7 |...cache% ......|
0001f9c0 66 6c 61 67 3d 33 36 30 30 20 8c 0d c8 aa 44 70 |flag=3600 ....Dp|
0001f9d0 63 64 62 6c 6b 25 21 31 32 3d 63 61 63 68 65 72 |cdblk%!12=cacher|
0001f9e0 6f 77 73 25 3a f2 72 65 66 69 6c 6c 70 63 64 3a |ows%:.refillpcd:|
0001f9f0 e7 63 61 63 68 65 25 3e 3d 66 69 6c 65 73 69 7a |.cache%>=filesiz|
0001fa00 65 25 20 72 6f 77 73 74 6f 67 6f 25 3d 2d 31 0d |e% rowstogo%=-1.|
0001fa10 c8 b4 05 cc 0d c8 be 21 e7 73 74 72 69 70 72 6f |.......!.stripro|
0001fa20 77 73 25 3e 30 80 63 6f 6d 70 72 65 73 73 69 6f |ws%>0.compressio|
0001fa30 6e 3e 31 20 8c 0d c8 d2 1f c8 99 31 32 2c 34 2c |n>1 .......12,4,|
0001fa40 63 25 2c 64 61 74 61 63 61 63 68 65 25 2c 63 61 |c%,datacache%,ca|
0001fa50 63 68 65 25 0d c8 dc 3b e7 63 61 63 68 65 62 79 |che%...;.cacheby|
0001fa60 74 65 73 25 20 21 69 6e 63 61 63 68 65 70 74 72 |tes% !incacheptr|
0001fa70 3d 64 61 74 61 63 61 63 68 65 25 3a 21 6e 75 6d |=datacache%:!num|
0001fa80 6c 65 66 74 74 6f 67 6f 3d 63 61 63 68 65 25 0d |lefttogo=cache%.|
0001fa90 c8 e6 05 cc 0d c8 f0 2b f2 72 65 66 69 6c 6c 3a |.......+.refill:|
0001faa0 e7 63 61 63 68 65 25 3e 3d 66 69 6c 65 73 69 7a |.cache%>=filesiz|
0001fab0 65 25 20 72 6f 77 73 74 6f 67 6f 25 3d 2d 31 0d |e% rowstogo%=-1.|
0001fac0 c8 fa 05 cd 0d c9 04 05 cd 0d c9 0e 05 cd 0d c9 |................|
0001fad0 18 19 73 69 7a 65 73 68 66 74 25 3d 30 3a c8 8e |..sizeshft%=0:..|
0001fae0 20 6e 63 6f 6c 20 ca 0d c9 22 14 c9 20 32 5e 32 | ncol ...".. 2^2|
0001faf0 34 2d 31 3a 73 69 7a 65 25 3d 31 0d c9 2c 14 c9 |4-1:size%=1..,..|
0001fb00 20 32 5e 31 35 2d 31 3a 73 69 7a 65 25 3d 31 0d | 2^15-1:size%=1.|
0001fb10 c9 36 18 c9 20 36 33 2c 32 35 35 2c 32 35 36 3a |.6.. 63,255,256:|
0001fb20 73 69 7a 65 25 3d 31 0d c9 40 1c c9 20 31 35 3a |size%=1..@.. 15:|
0001fb30 73 69 7a 65 25 3d 32 3a 73 69 7a 65 73 68 66 74 |size%=2:sizeshft|
0001fb40 25 3d 31 0d c9 4a 1b c9 20 33 3a 73 69 7a 65 25 |%=1..J.. 3:size%|
0001fb50 3d 34 3a 73 69 7a 65 73 68 66 74 25 3d 32 0d c9 |=4:sizeshft%=2..|
0001fb60 54 37 c9 20 31 3a 73 69 7a 65 25 3d 38 3a 73 69 |T7. 1:size%=8:si|
0001fb70 7a 65 73 68 66 74 25 3d 33 3a e7 6d 24 3d 22 43 |zeshft%=3:.m$="C|
0001fb80 22 20 73 69 7a 65 25 3d 32 3a 73 69 7a 65 73 68 |" size%=2:sizesh|
0001fb90 66 74 25 3d 31 0d c9 5e 1f e7 6d 24 3d 22 44 22 |ft%=1..^..m$="D"|
0001fba0 20 73 69 7a 65 25 3d 34 3a 73 69 7a 65 73 68 66 | size%=4:sizeshf|
0001fbb0 74 25 3d 32 0d c9 68 1f e7 6d 24 3d 22 54 22 20 |t%=2..h..m$="T" |
0001fbc0 73 69 7a 65 25 3d 32 3a 73 69 7a 65 73 68 66 74 |size%=2:sizeshft|
0001fbd0 25 3d 31 0d c9 72 05 cb 0d c9 86 0d c8 8e 20 66 |%=1..r........ f|
0001fbe0 6c 61 67 20 ca 0d c9 90 2a c9 20 35 30 31 3a e7 |lag ....*. 501:.|
0001fbf0 69 6e 66 6f 25 20 f1 22 52 65 61 64 69 6e 67 20 |info% ."Reading |
0001fc00 69 6e 74 65 72 6c 61 63 65 64 20 47 49 46 22 0d |interlaced GIF".|
0001fc10 c9 9a 25 73 7a 25 3d 73 78 25 2a 73 79 25 3a 70 |..%sz%=sx%*sy%:p|
0001fc20 6c 62 75 66 66 25 3d a4 64 69 6d 28 73 7a 25 2b |lbuff%=.dim(sz%+|
0001fc30 31 30 30 29 0d c9 a4 46 e3 59 25 3d 30 b8 73 79 |100)...F.Y%=0.sy|
0001fc40 25 2d 31 88 38 3a 58 25 3d 70 6c 62 75 66 66 25 |%-1.8:X%=plbuff%|
0001fc50 2b 59 25 2a 73 78 25 3a d6 20 4c 5a 57 64 65 63 |+Y%*sx%:. LZWdec|
0001fc60 6f 64 65 25 2c 74 61 62 6c 65 25 28 30 29 2c 63 |ode%,table%(0),c|
0001fc70 25 2c 58 25 2c 73 78 25 3a ed 0d c9 ae 46 e3 59 |%,X%,sx%:....F.Y|
0001fc80 25 3d 34 b8 73 79 25 2d 31 88 38 3a 58 25 3d 70 |%=4.sy%-1.8:X%=p|
0001fc90 6c 62 75 66 66 25 2b 59 25 2a 73 78 25 3a d6 20 |lbuff%+Y%*sx%:. |
0001fca0 4c 5a 57 64 65 63 6f 64 65 25 2c 74 61 62 6c 65 |LZWdecode%,table|
0001fcb0 25 28 30 29 2c 63 25 2c 58 25 2c 73 78 25 3a ed |%(0),c%,X%,sx%:.|
0001fcc0 0d c9 b8 46 e3 59 25 3d 32 b8 73 79 25 2d 31 88 |...F.Y%=2.sy%-1.|
0001fcd0 34 3a 58 25 3d 70 6c 62 75 66 66 25 2b 59 25 2a |4:X%=plbuff%+Y%*|
0001fce0 73 78 25 3a d6 20 4c 5a 57 64 65 63 6f 64 65 25 |sx%:. LZWdecode%|
0001fcf0 2c 74 61 62 6c 65 25 28 30 29 2c 63 25 2c 58 25 |,table%(0),c%,X%|
0001fd00 2c 73 78 25 3a ed 0d c9 c2 46 e3 59 25 3d 31 b8 |,sx%:....F.Y%=1.|
0001fd10 73 79 25 2d 31 88 32 3a 58 25 3d 70 6c 62 75 66 |sy%-1.2:X%=plbuf|
0001fd20 66 25 2b 59 25 2a 73 78 25 3a d6 20 4c 5a 57 64 |f%+Y%*sx%:. LZWd|
0001fd30 65 63 6f 64 65 25 2c 74 61 62 6c 65 25 28 30 29 |ecode%,table%(0)|
0001fd40 2c 63 25 2c 58 25 2c 73 78 25 3a ed 0d c9 cc 3f |,c%,X%,sx%:....?|
0001fd50 64 61 74 61 63 61 63 68 65 25 3d 70 6c 62 75 66 |datacache%=plbuf|
0001fd60 66 25 3a 62 75 66 66 25 3d 70 6c 62 75 66 66 25 |f%:buff%=plbuff%|
0001fd70 3a 72 6f 77 62 79 74 65 73 25 3d 73 78 25 3a 72 |:rowbytes%=sx%:r|
0001fd80 6f 77 73 74 6f 67 6f 25 3d 2d 31 0d c9 d6 05 cb |owstogo%=-1.....|
0001fd90 0d c9 e0 1a e7 67 61 6d 6d 61 3c 3e 31 20 80 20 |.....gamma<>1 . |
0001fda0 67 61 6d 6d 61 3c 3e 30 20 8c 0d c9 ea 1f 6b 3d |gamma<>0 .....k=|
0001fdb0 31 2f 67 61 6d 6d 61 3a e3 43 25 3d 30 b8 63 6f |1/gamma:.C%=0.co|
0001fdc0 6c 6f 75 72 69 6e 64 65 78 0d c9 f4 23 e7 72 25 |lourindex...#.r%|
0001fdd0 28 43 25 29 20 72 25 28 43 25 29 3d 28 28 72 25 |(C%) r%(C%)=((r%|
0001fde0 28 43 25 29 2f 46 29 5e 6b 29 2a 46 0d c9 fe 23 |(C%)/F)^k)*F...#|
0001fdf0 e7 67 25 28 43 25 29 20 67 25 28 43 25 29 3d 28 |.g%(C%) g%(C%)=(|
0001fe00 28 67 25 28 43 25 29 2f 46 29 5e 6b 29 2a 46 0d |(g%(C%)/F)^k)*F.|
0001fe10 ca 08 23 e7 62 25 28 43 25 29 20 62 25 28 43 25 |..#.b%(C%) b%(C%|
0001fe20 29 3d 28 28 62 25 28 43 25 29 2f 46 29 5e 6b 29 |)=((b%(C%)/F)^k)|
0001fe30 2a 46 0d ca 12 05 ed 0d ca 1c 05 cd 0d ca 26 18 |*F............&.|
0001fe40 72 6d 61 78 3d 46 3a 67 6d 61 78 3d 46 3a 62 6d |rmax=F:gmax=F:bm|
0001fe50 61 78 3d 46 0d ca 30 0c e7 63 6f 6c 3d 30 20 8c |ax=F..0..col=0 .|
0001fe60 0d ca 3a 0e e7 69 6e 70 75 74 3c 39 20 8c 0d ca |..:..input<9 ...|
0001fe70 44 37 e3 43 25 3d 30 b8 32 35 35 3a 72 25 28 43 |D7.C%=0.255:r%(C|
0001fe80 25 29 3d 72 25 28 43 25 29 2a 72 77 74 2b 67 25 |%)=r%(C%)*rwt+g%|
0001fe90 28 43 25 29 2a 67 77 74 2b 62 25 28 43 25 29 2a |(C%)*gwt+b%(C%)*|
0001fea0 62 77 74 3a ed 0d ca 4e 05 cc 0d ca 58 10 e7 69 |bwt:...N....X..i|
0001feb0 6e 70 75 74 3c 34 30 30 20 8c 0d ca 62 24 72 6d |nput<400 ...b$rm|
0001fec0 61 78 3d 46 2a 72 77 74 3a 67 6d 61 78 3d 46 2a |ax=F*rwt:gmax=F*|
0001fed0 67 77 74 3a 62 6d 61 78 3d 46 2a 62 77 74 0d ca |gwt:bmax=F*bwt..|
0001fee0 6c 4d e3 43 25 3d 30 b8 63 6f 6c 6f 75 72 69 6e |lM.C%=0.colourin|
0001fef0 64 65 78 3a 72 25 28 43 25 29 3d 72 25 28 43 25 |dex:r%(C%)=r%(C%|
0001ff00 29 2a 72 77 74 3a 67 25 28 43 25 29 3d 67 25 28 |)*rwt:g%(C%)=g%(|
0001ff10 43 25 29 2a 67 77 74 3a 62 25 28 43 25 29 3d 62 |C%)*gwt:b%(C%)=b|
0001ff20 25 28 43 25 29 2a 62 77 74 3a ed 0d ca 76 05 cd |%(C%)*bwt:...v..|
0001ff30 0d ca 80 05 cd 0d ca 8a 05 cd 0d ca 94 2c e7 ac |.............,..|
0001ff40 6f 72 64 65 72 25 20 f2 61 64 6a 75 73 74 70 61 |order% .adjustpa|
0001ff50 6c 65 74 74 65 28 31 2f 79 64 69 76 25 2f 78 64 |lette(1/ydiv%/xd|
0001ff60 69 76 25 2c 30 29 0d ca a8 0d e7 72 61 6e 67 65 |iv%,0).....range|
0001ff70 25 20 8c 0d ca b2 3e e7 69 6e 66 6f 25 20 f1 22 |% ....>.info% ."|
0001ff80 53 63 61 6e 6e 69 6e 67 20 64 61 74 61 20 74 6f |Scanning data to|
0001ff90 20 63 6f 6d 70 75 74 65 20 70 61 72 61 6d 65 74 | compute paramet|
0001ffa0 65 72 73 20 66 6f 72 20 27 2d 72 61 6e 67 65 27 |ers for '-range'|
0001ffb0 22 0d ca bc 0d e7 6f 72 64 65 72 25 20 8c 0d ca |".....order% ...|
0001ffc0 c6 1d 59 25 3d 30 3a f5 20 c8 99 68 6f 75 72 25 |..Y%=0:. ..hour%|
0001ffd0 2c 59 25 2a 31 30 30 81 73 79 25 0d ca d0 38 57 |,Y%*100.sy%...8W|
0001ffe0 25 3d a0 28 72 24 2b 22 28 78 70 25 28 29 29 22 |%=.(r$+"(xp%())"|
0001fff0 29 3a d6 6d 61 78 6d 69 6e 25 2c 78 70 25 28 31 |):.maxmin%,xp%(1|
00020000 2c 30 29 2c 74 6f 74 76 61 6c 73 32 25 3a 59 25 |,0),totvals2%:Y%|
00020010 2b 3d 31 0d ca da 22 fd 59 25 3d 73 79 25 20 84 |+=1...".Y%=sy% .|
00020020 21 6d 69 6e 3c 32 35 35 20 80 21 6d 61 78 2b 32 |!min<255 .!max+2|
00020030 35 35 3e 3d 46 0d ca e4 05 cc 0d ca ee 25 59 25 |55>=F........%Y%|
00020040 3d 30 3a 79 73 61 6d 70 25 3d 31 3a f5 20 c8 99 |=0:ysamp%=1:. ..|
00020050 68 6f 75 72 25 2c 59 25 2a 31 30 30 81 79 25 0d |hour%,Y%*100.y%.|
00020060 ca f8 3b f2 73 63 61 6c 65 64 70 69 78 65 6c 72 |..;.scaledpixelr|
00020070 6f 77 28 63 6c 25 28 29 29 3a d6 6d 61 78 6d 69 |ow(cl%()):.maxmi|
00020080 6e 25 2c 63 6c 25 28 31 2c 30 29 2c 74 6f 74 76 |n%,cl%(1,0),totv|
00020090 61 6c 73 25 3a 59 25 2b 3d 31 0d cb 02 23 fd 59 |als%:Y%+=1...#.Y|
000200a0 25 3d 79 25 20 84 20 21 6d 69 6e 3c 32 35 35 20 |%=y% . !min<255 |
000200b0 80 20 21 6d 61 78 2b 32 35 35 3e 3d 46 0d cb 0c |. !max+255>=F...|
000200c0 05 cd 0d cb 16 4f e7 21 6d 61 78 2b 32 35 35 3e |.....O.!max+255>|
000200d0 3d 46 20 80 21 6d 69 6e 3c 32 35 35 20 72 61 6e |=F .!min<255 ran|
000200e0 67 65 25 3d a3 3a 72 61 6e 67 65 24 3d 22 4e 6f |ge%=.:range$="No|
000200f0 20 70 6f 69 6e 74 20 69 6e 20 27 2d 72 61 6e 67 | point in '-rang|
00020100 65 27 20 6f 6e 20 74 68 69 73 20 69 6d 61 67 65 |e' on this image|
00020110 22 0d cb 20 85 e7 72 61 6e 67 65 25 20 f2 61 64 |".. ..range% .ad|
00020120 6a 75 73 74 70 61 6c 65 74 74 65 28 46 2f 28 21 |justpalette(F/(!|
00020130 6d 61 78 2d 21 6d 69 6e 29 2c 21 6d 69 6e 2f 79 |max-!min),!min/y|
00020140 64 69 76 25 2f 78 64 69 76 25 29 3a 72 61 6e 67 |div%/xdiv%):rang|
00020150 65 24 3d 22 49 6e 70 75 74 20 69 6d 61 67 65 20 |e$="Input image |
00020160 6d 61 78 69 6d 75 6d 20 22 2b c3 28 21 6d 61 78 |maximum "+.(!max|
00020170 2f 46 2a 31 30 30 29 2b 22 25 20 6d 69 6e 69 6d |/F*100)+"% minim|
00020180 75 6d 20 22 2b c3 28 21 6d 69 6e 2f 46 2a 31 30 |um "+.(!min/F*10|
00020190 30 29 2b 22 25 22 0d cb 2a 1a f2 72 65 77 69 6e |0)+"%"..*..rewin|
000201a0 64 3a e7 69 6e 66 6f 25 20 f1 72 61 6e 67 65 24 |d:.info% .range$|
000201b0 0d cb 34 05 cd 0d cb 3e 14 e7 68 69 73 74 25 20 |..4....>..hist% |
000201c0 84 65 71 75 61 6c 25 20 8c 0d cb 48 46 e7 65 71 |.equal% ...HF.eq|
000201d0 75 61 6c 25 20 e7 69 6e 66 6f 25 20 f1 22 53 63 |ual% .info% ."Sc|
000201e0 61 6e 6e 69 6e 67 20 64 61 74 61 20 74 6f 20 63 |anning data to c|
000201f0 6f 6d 70 75 74 65 20 70 61 72 61 6d 65 74 65 72 |ompute parameter|
00020200 73 20 66 6f 72 20 27 2d 65 71 75 61 6c 27 22 0d |s for '-equal'".|
00020210 cb 52 0d e7 6f 72 64 65 72 25 20 8c 0d cb 5c 24 |.R..order% ...\$|
00020220 e3 79 72 25 3d 30 b8 73 79 25 2d 31 3a c8 99 68 |.yr%=0.sy%-1:..h|
00020230 6f 75 72 25 2c 79 72 25 2a 31 30 30 81 73 79 25 |our%,yr%*100.sy%|
00020240 0d cb 66 36 57 25 3d a0 28 72 24 2b 22 28 78 70 |..f6W%=.(r$+"(xp|
00020250 25 28 29 29 22 29 3a d6 68 69 73 74 6f 25 2c 78 |%())"):.histo%,x|
00020260 70 25 28 31 2c 30 29 2c 76 61 6c 73 25 28 30 2c |p%(1,0),vals%(0,|
00020270 30 29 2c 73 78 25 0d cb 70 05 ed 0d cb 7a 05 cc |0),sx%..p....z..|
00020280 0d cb 84 2b 79 73 61 6d 70 25 3d 31 3a e3 79 72 |...+ysamp%=1:.yr|
00020290 25 3d 30 b8 79 25 2d 31 3a c8 99 68 6f 75 72 25 |%=0.y%-1:..hour%|
000202a0 2c 79 72 25 2a 31 30 30 81 79 25 0d cb 8e 39 f2 |,yr%*100.y%...9.|
000202b0 73 63 61 6c 65 64 70 69 78 65 6c 72 6f 77 28 63 |scaledpixelrow(c|
000202c0 6c 25 28 29 29 3a d6 68 69 73 74 6f 25 2c 63 6c |l%()):.histo%,cl|
000202d0 25 28 31 2c 30 29 2c 76 61 6c 73 25 28 30 2c 30 |%(1,0),vals%(0,0|
000202e0 29 2c 78 25 0d cb 98 05 ed 0d cb a2 05 cd 0d cb |),x%............|
000202f0 ac 2e e7 69 6e 66 6f 25 20 f1 22 44 6f 6e 65 2e |...info% ."Done.|
00020300 20 4e 6f 77 20 70 72 6f 63 65 73 73 69 6e 67 20 | Now processing |
00020310 74 68 65 20 70 69 63 74 75 72 65 22 0d cb b6 05 |the picture"....|
00020320 cd 0d cb c0 10 e7 69 6e 70 75 74 3c 34 30 30 20 |......input<400 |
00020330 8c 0d cb ca 15 e3 43 25 3d 30 b8 63 6f 6c 6f 75 |......C%=0.colou|
00020340 72 69 6e 64 65 78 0d cb d4 16 e7 72 25 28 43 25 |rindex.....r%(C%|
00020350 29 3c 30 20 72 25 28 43 25 29 3d 30 0d cb de 16 |)<0 r%(C%)=0....|
00020360 e7 67 25 28 43 25 29 3c 30 20 67 25 28 43 25 29 |.g%(C%)<0 g%(C%)|
00020370 3d 30 0d cb e8 16 e7 62 25 28 43 25 29 3c 30 20 |=0.....b%(C%)<0 |
00020380 62 25 28 43 25 29 3d 30 0d cb f2 1c e7 72 25 28 |b%(C%)=0.....r%(|
00020390 43 25 29 3e 72 6d 61 78 20 72 25 28 43 25 29 3d |C%)>rmax r%(C%)=|
000203a0 72 6d 61 78 0d cb fc 1c e7 67 25 28 43 25 29 3e |rmax.....g%(C%)>|
000203b0 67 6d 61 78 20 67 25 28 43 25 29 3d 67 6d 61 78 |gmax g%(C%)=gmax|
000203c0 0d cc 06 1c e7 62 25 28 43 25 29 3e 62 6d 61 78 |.....b%(C%)>bmax|
000203d0 20 62 25 28 43 25 29 3d 62 6d 61 78 0d cc 10 05 | b%(C%)=bmax....|
000203e0 ed 0d cc 1a 05 cd 0d cc 24 0c e7 68 69 73 74 25 |........$..hist%|
000203f0 20 8c 0d cc 2e 19 4d 25 3d 30 3a 5a 4d 25 3d 2d | .....M%=0:ZM%=-|
00020400 31 3a e3 43 25 3d 30 b8 63 6f 6c 0d cc 38 35 e3 |1:.C%=0.col..85.|
00020410 5a 25 3d 30 b8 32 35 36 3a e7 76 61 6c 73 25 28 |Z%=0.256:.vals%(|
00020420 5a 25 2c 43 25 29 3e 4d 25 20 4d 25 3d 76 61 6c |Z%,C%)>M% M%=val|
00020430 73 25 28 5a 25 2c 43 25 29 3a 5a 4d 25 3d 5a 25 |s%(Z%,C%):ZM%=Z%|
00020440 0d cc 42 07 ed 3a ed 0d cc 4c 1d e7 5a 4d 25 3d |..B..:...L..ZM%=|
00020450 2d 31 20 84 20 6f 6b 69 6e 66 6f 25 3d 30 20 8c |-1 . okinfo%=0 .|
00020460 3d 31 30 30 0d cc 56 0d e7 20 63 6f 6c 3e 30 20 |=100..V.. col>0 |
00020470 8c 0d cc 60 0e eb 36 36 3a 68 74 3d 35 30 30 0d |...`..66:ht=500.|
00020480 cc 6a 15 e7 eb 3c 3e 36 36 20 eb 31 36 3a 68 74 |.j...<>66 .16:ht|
00020490 3d 34 30 30 0d cc 74 0f 86 30 2c 36 2c 32 30 30 |=400..t..0,6,200|
000204a0 30 2c 36 0d cc 7e 05 cc 0d cc 88 1a eb 31 38 3a |0,6..~.......18:|
000204b0 68 74 3d 34 30 30 3a 86 30 2c 36 2c 31 30 32 34 |ht=400:.0,6,1024|
000204c0 2c 36 0d cc 92 05 cd 0d cc 9c 23 4d 3d 4d 25 2f |,6........#M=M%/|
000204d0 28 68 74 2a 32 2d 38 29 3a e3 43 25 3d 30 b8 63 |(ht*2-8):.C%=0.c|
000204e0 6f 6c 3a c8 8e 20 43 25 20 ca 0d cc a6 0a c9 20 |ol:.. C% ...... |
000204f0 30 3a e6 31 0d cc b0 0a c9 20 31 3a e6 32 0d cc |0:.1..... 1:.2..|
00020500 ba 0a c9 20 32 3a e6 34 0d cc c4 05 cb 0d cc ce |... 2:.4........|
00020510 0d e7 20 63 6f 6c 3e 30 20 8c 0d cc d8 43 e3 5a |.. col>0 ....C.Z|
00020520 25 3d 30 b8 32 35 36 3a e7 76 61 6c 73 25 28 5a |%=0.256:.vals%(Z|
00020530 25 2c 43 25 29 20 58 25 3d 5a 25 2a 33 2b 43 25 |%,C%) X%=Z%*3+C%|
00020540 3c 3c 31 3a 86 58 25 2c 38 2c 58 25 2c 76 61 6c |<<1:.X%,8,X%,val|
00020550 73 25 28 5a 25 2c 43 25 29 2f 4d 2b 38 0d cc e2 |s%(Z%,C%)/M+8...|
00020560 05 ed 0d cc ec 05 cc 0d cc f6 3f e3 5a 25 3d 30 |..........?.Z%=0|
00020570 b8 32 35 36 3a e7 76 61 6c 73 25 28 5a 25 2c 43 |.256:.vals%(Z%,C|
00020580 25 29 20 58 25 3d 5a 25 3c 3c 32 3a c8 93 20 c8 |%) X%=Z%<<2:.. .|
00020590 90 58 25 2c 38 2c 32 2c 76 61 6c 73 25 28 5a 25 |.X%,8,2,vals%(Z%|
000205a0 2c 43 25 29 2f 4d 0d cd 00 05 ed 0d cd 0a 05 cd |,C%)/M..........|
000205b0 0d cd 14 05 ed 0d cd 1e 1c f2 63 6c 6f 73 65 3a |..........close:|
000205c0 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 |.."Hourglass_Off|
000205d0 22 0d cd 28 08 3d 31 30 30 0d cd 32 05 cd 0d cd |"..(.=100..2....|
000205e0 3c 25 e7 6d 3e 3d 30 20 6f 6e 61 6d 65 24 3d 22 |<%.m>=0 oname$="|
000205f0 70 22 2b c3 6d 2b 6d 24 20 8b 6f 6e 61 6d 65 24 |p"+.m+m$ .oname$|
00020600 3d 6d 24 0d cd 46 21 e7 6d 3d 2d 36 20 84 6d 3d |=m$..F!.m=-6 .m=|
00020610 2d 37 20 84 6d 3d 2d 38 20 6f 6e 61 6d 65 24 3d |-7 .m=-8 oname$=|
00020620 70 6e 6d 24 0d cd 50 17 e7 72 61 6e 67 65 25 20 |pnm$..P..range% |
00020630 6f 6e 61 6d 65 24 2b 3d 22 72 22 0d cd 5a 17 e7 |oname$+="r"..Z..|
00020640 65 71 75 61 6c 25 20 6f 6e 61 6d 65 24 2b 3d 22 |equal% oname$+="|
00020650 65 22 0d cd 64 23 e7 73 68 61 72 70 65 6e 25 20 |e"..d#.sharpen% |
00020660 6f 6e 61 6d 65 24 2b 3d 22 73 22 2b c3 73 68 61 |oname$+="s"+.sha|
00020670 72 70 65 6e 25 0d cd 6e 1f e7 62 6c 61 63 6b 25 |rpen%..n..black%|
00020680 20 6f 6e 61 6d 65 24 2b 3d 22 62 22 2b c3 62 6c | oname$+="b"+.bl|
00020690 61 63 6b 25 0d cd 78 38 e7 67 61 6d 6d 61 3c 3e |ack%..x8.gamma<>|
000206a0 31 20 41 25 3d 40 25 3a 40 25 3d 26 31 30 32 30 |1 A%=@%:@%=&1020|
000206b0 31 30 30 3a 6f 6e 61 6d 65 24 2b 3d 22 67 22 2b |100:oname$+="g"+|
000206c0 c3 67 61 6d 6d 61 3a 40 25 3d 41 25 0d cd 82 1b |.gamma:@%=A%....|
000206d0 e7 62 72 69 67 68 74 25 3d 31 36 20 6f 6e 61 6d |.bright%=16 onam|
000206e0 65 24 2b 3d 22 62 22 0d cd 8c 29 78 73 70 25 3d |e$+="b"...)xsp%=|
000206f0 78 25 3a 79 73 70 25 3d 79 25 3a e7 72 6f 74 61 |x%:ysp%=y%:.rota|
00020700 74 65 25 20 c8 94 20 78 73 70 25 2c 79 73 70 25 |te% .. xsp%,ysp%|
00020710 0d cd 96 33 e7 20 72 6f 74 61 74 65 25 20 84 20 |...3. rotate% . |
00020720 68 66 6c 69 70 25 20 84 20 76 66 6c 69 70 25 20 |hflip% . vflip% |
00020730 e7 6d 3d 2d 39 20 84 20 6d 3d 2d 31 30 20 8c 6d |.m=-9 . m=-10 .m|
00020740 2d 3d 32 0d cd a0 11 e7 6d 3d 2d 39 84 6d 3d 2d |-=2.....m=-9.m=-|
00020750 31 30 20 8c 0d cd aa 0e de 20 6a 70 71 25 28 32 |10 ...... jpq%(2|
00020760 30 29 0d cd b4 5b 6a 70 71 25 28 29 3d 36 30 2c |0)...[jpq%()=60,|
00020770 37 35 2c 39 30 2c 31 30 35 2c 31 32 30 2c 31 33 |75,90,105,120,13|
00020780 35 2c 31 35 30 2c 31 36 30 2c 31 37 30 2c 31 38 |5,150,160,170,18|
00020790 30 2c 31 39 30 2c 32 30 35 2c 32 31 35 2c 32 33 |0,190,205,215,23|
000207a0 35 2c 32 35 35 2c 32 38 30 2c 33 32 30 2c 33 38 |5,255,280,320,38|
000207b0 30 2c 35 30 30 2c 37 35 30 2c 38 35 30 0d cd be |0,500,750,850...|
000207c0 05 cd 0d cd c8 0a c8 8e 20 6d 20 ca 0d cd d2 2e |........ m .....|
000207d0 c9 20 2d 31 3a 78 77 6f 72 64 73 25 3d 78 73 70 |. -1:xwords%=xsp|
000207e0 25 3a 73 7a 25 3d 78 77 6f 72 64 73 25 2a 79 73 |%:sz%=xwords%*ys|
000207f0 70 25 3a 59 25 3d 79 73 70 25 0d cd dc 2b f2 67 |p%:Y%=ysp%...+.g|
00020800 65 74 6f 75 74 70 75 74 28 73 7a 25 2c 30 2c 78 |etoutput(sz%,0,x|
00020810 77 6f 72 64 73 25 2c 59 25 29 3a 62 61 73 65 25 |words%,Y%):base%|
00020820 3d 72 61 6d 25 0d cd e6 33 c9 20 2d 33 2c 2d 35 |=ram%...3. -3,-5|
00020830 3a 78 77 6f 72 64 73 25 3d 78 73 70 25 2a 32 3a |:xwords%=xsp%*2:|
00020840 73 7a 25 3d 78 77 6f 72 64 73 25 2a 79 73 70 25 |sz%=xwords%*ysp%|
00020850 3a 59 25 3d 79 73 70 25 0d cd f0 2b f2 67 65 74 |:Y%=ysp%...+.get|
00020860 6f 75 74 70 75 74 28 73 7a 25 2c 30 2c 78 77 6f |output(sz%,0,xwo|
00020870 72 64 73 25 2c 59 25 29 3a 62 61 73 65 25 3d 72 |rds%,Y%):base%=r|
00020880 61 6d 25 0d cd fa 30 c9 20 2d 34 3a 78 77 6f 72 |am%...0. -4:xwor|
00020890 64 73 25 3d 78 73 70 25 2a 33 3a 73 7a 25 3d 78 |ds%=xsp%*3:sz%=x|
000208a0 77 6f 72 64 73 25 2a 79 73 70 25 3a 59 25 3d 79 |words%*ysp%:Y%=y|
000208b0 73 70 25 0d ce 04 2b f2 67 65 74 6f 75 74 70 75 |sp%...+.getoutpu|
000208c0 74 28 73 7a 25 2c 30 2c 78 77 6f 72 64 73 25 2c |t(sz%,0,xwords%,|
000208d0 59 25 29 3a 62 61 73 65 25 3d 72 61 6d 25 0d ce |Y%):base%=ram%..|
000208e0 0e 35 c9 20 2d 36 3a 78 77 6f 72 64 73 25 3d 78 |.5. -6:xwords%=x|
000208f0 73 70 25 2a 32 2b 33 80 ac 33 3a 73 7a 25 3d 78 |sp%*2+3..3:sz%=x|
00020900 77 6f 72 64 73 25 2a 79 73 70 25 3a 59 25 3d 79 |words%*ysp%:Y%=y|
00020910 73 70 25 0d ce 18 27 41 25 3d 59 25 3a f2 67 65 |sp%...'A%=Y%:.ge|
00020920 74 6f 75 74 70 75 74 28 73 7a 25 2c 36 34 2c 78 |toutput(sz%,64,x|
00020930 77 6f 72 64 73 25 2c 59 25 29 0d ce 22 31 72 61 |words%,Y%).."1ra|
00020940 6d 25 21 34 3d 30 3a 72 61 6d 25 21 38 3d 31 36 |m%!4=0:ram%!8=16|
00020950 3a 72 61 6d 25 21 31 32 3d 31 36 3a c8 99 26 32 |:ram%!12=16:..&2|
00020960 65 2c 26 31 30 39 2c 72 61 6d 25 0d ce 2c 29 c8 |e,&109,ram%..,).|
00020970 99 26 32 65 2c 26 31 30 66 2c 72 61 6d 25 2c 6f |.&2e,&10f,ram%,o|
00020980 6e 61 6d 65 24 2c 30 2c 78 73 70 25 2a 32 2c 59 |name$,0,xsp%*2,Y|
00020990 25 2c 32 38 0d ce 36 4a 62 61 73 65 25 3d 72 61 |%,28..6Jbase%=ra|
000209a0 6d 25 2b 72 61 6d 25 21 38 3a 62 61 73 65 25 21 |m%+ram%!8:base%!|
000209b0 28 35 2a 34 29 3d 41 25 2d 31 3a 21 62 61 73 65 |(5*4)=A%-1:!base|
000209c0 25 3d 21 62 61 73 65 25 2d 59 25 2a 78 77 6f 72 |%=!base%-Y%*xwor|
000209d0 64 73 25 2b 41 25 2a 78 77 6f 72 64 73 25 0d ce |ds%+A%*xwords%..|
000209e0 40 29 72 61 6d 25 21 31 32 3d 72 61 6d 25 21 31 |@)ram%!12=ram%!1|
000209f0 32 2d 59 25 2a 78 77 6f 72 64 73 25 2b 41 25 2a |2-Y%*xwords%+A%*|
00020a00 78 77 6f 72 64 73 25 0d ce 4a 3e 62 61 73 65 25 |xwords%..J>base%|
00020a10 21 28 31 30 2a 34 29 3d 35 3c 3c 32 37 20 84 20 |!(10*4)=5<<27 . |
00020a20 6e 78 3c 3c 31 20 84 20 6e 79 3c 3c 31 34 20 84 |nx<<1 . ny<<14 .|
00020a30 20 31 3a 62 61 73 65 25 2b 3d 62 61 73 65 25 21 | 1:base%+=base%!|
00020a40 28 38 2a 34 29 0d ce 54 35 c9 20 2d 37 3a 78 77 |(8*4)..T5. -7:xw|
00020a50 6f 72 64 73 25 3d 78 73 70 25 2a 33 2b 33 80 ac |ords%=xsp%*3+3..|
00020a60 33 3a 73 7a 25 3d 78 77 6f 72 64 73 25 2a 79 73 |3:sz%=xwords%*ys|
00020a70 70 25 3a 59 25 3d 79 73 70 25 0d ce 5e 27 41 25 |p%:Y%=ysp%..^'A%|
00020a80 3d 59 25 3a f2 67 65 74 6f 75 74 70 75 74 28 73 |=Y%:.getoutput(s|
00020a90 7a 25 2c 36 34 2c 78 77 6f 72 64 73 25 2c 59 25 |z%,64,xwords%,Y%|
00020aa0 29 0d ce 68 31 72 61 6d 25 21 34 3d 30 3a 72 61 |)..h1ram%!4=0:ra|
00020ab0 6d 25 21 38 3d 31 36 3a 72 61 6d 25 21 31 32 3d |m%!8=16:ram%!12=|
00020ac0 31 36 3a c8 99 26 32 65 2c 26 31 30 39 2c 72 61 |16:..&2e,&109,ra|
00020ad0 6d 25 0d ce 72 29 c8 99 26 32 65 2c 26 31 30 66 |m%..r)..&2e,&10f|
00020ae0 2c 72 61 6d 25 2c 6f 6e 61 6d 65 24 2c 30 2c 78 |,ram%,oname$,0,x|
00020af0 73 70 25 2a 33 2c 59 25 2c 32 38 0d ce 7c 4a 62 |sp%*3,Y%,28..|Jb|
00020b00 61 73 65 25 3d 72 61 6d 25 2b 72 61 6d 25 21 38 |ase%=ram%+ram%!8|
00020b10 3a 62 61 73 65 25 21 28 35 2a 34 29 3d 41 25 2d |:base%!(5*4)=A%-|
00020b20 31 3a 21 62 61 73 65 25 3d 21 62 61 73 65 25 2d |1:!base%=!base%-|
00020b30 59 25 2a 78 77 6f 72 64 73 25 2b 41 25 2a 78 77 |Y%*xwords%+A%*xw|
00020b40 6f 72 64 73 25 0d ce 86 29 72 61 6d 25 21 31 32 |ords%...)ram%!12|
00020b50 3d 72 61 6d 25 21 31 32 2d 59 25 2a 78 77 6f 72 |=ram%!12-Y%*xwor|
00020b60 64 73 25 2b 41 25 2a 78 77 6f 72 64 73 25 0d ce |ds%+A%*xwords%..|
00020b70 90 42 62 61 73 65 25 21 28 31 30 2a 34 29 3d 70 |.Bbase%!(10*4)=p|
00020b80 61 6e 69 63 3c 3c 32 37 20 84 20 6e 78 3c 3c 31 |anic<<27 . nx<<1|
00020b90 20 84 20 6e 79 3c 3c 31 34 20 84 20 31 3a 62 61 | . ny<<14 . 1:ba|
00020ba0 73 65 25 2b 3d 62 61 73 65 25 21 28 38 2a 34 29 |se%+=base%!(8*4)|
00020bb0 0d ce 9a 34 6e 6f 20 6d 61 67 69 63 20 6e 75 6d |...4no magic num|
00020bc0 62 65 72 20 79 65 74 20 66 6f 72 20 6e 65 77 20 |ber yet for new |
00020bd0 66 6f 72 6d 61 74 20 32 34 62 70 70 20 73 70 72 |format 24bpp spr|
00020be0 69 74 65 73 0d ce a4 30 c9 20 2d 38 3a 78 77 6f |ites...0. -8:xwo|
00020bf0 72 64 73 25 3d 78 73 70 25 2a 34 3a 73 7a 25 3d |rds%=xsp%*4:sz%=|
00020c00 78 77 6f 72 64 73 25 2a 79 73 70 25 3a 59 25 3d |xwords%*ysp%:Y%=|
00020c10 79 73 70 25 0d ce ae 27 41 25 3d 59 25 3a f2 67 |ysp%...'A%=Y%:.g|
00020c20 65 74 6f 75 74 70 75 74 28 73 7a 25 2c 36 34 2c |etoutput(sz%,64,|
00020c30 78 77 6f 72 64 73 25 2c 59 25 29 0d ce b8 31 72 |xwords%,Y%)...1r|
00020c40 61 6d 25 21 34 3d 30 3a 72 61 6d 25 21 38 3d 31 |am%!4=0:ram%!8=1|
00020c50 36 3a 72 61 6d 25 21 31 32 3d 31 36 3a c8 99 26 |6:ram%!12=16:..&|
00020c60 32 65 2c 26 31 30 39 2c 72 61 6d 25 0d ce c2 29 |2e,&109,ram%...)|
00020c70 c8 99 26 32 65 2c 26 31 30 66 2c 72 61 6d 25 2c |..&2e,&10f,ram%,|
00020c80 6f 6e 61 6d 65 24 2c 30 2c 78 73 70 25 2a 34 2c |oname$,0,xsp%*4,|
00020c90 59 25 2c 32 38 0d ce cc 4a 62 61 73 65 25 3d 72 |Y%,28...Jbase%=r|
00020ca0 61 6d 25 2b 72 61 6d 25 21 38 3a 62 61 73 65 25 |am%+ram%!8:base%|
00020cb0 21 28 35 2a 34 29 3d 41 25 2d 31 3a 21 62 61 73 |!(5*4)=A%-1:!bas|
00020cc0 65 25 3d 21 62 61 73 65 25 2d 59 25 2a 78 77 6f |e%=!base%-Y%*xwo|
00020cd0 72 64 73 25 2b 41 25 2a 78 77 6f 72 64 73 25 0d |rds%+A%*xwords%.|
00020ce0 ce d6 29 72 61 6d 25 21 31 32 3d 72 61 6d 25 21 |..)ram%!12=ram%!|
00020cf0 31 32 2d 59 25 2a 78 77 6f 72 64 73 25 2b 41 25 |12-Y%*xwords%+A%|
00020d00 2a 78 77 6f 72 64 73 25 0d ce e0 3e 62 61 73 65 |*xwords%...>base|
00020d10 25 21 28 31 30 2a 34 29 3d 36 3c 3c 32 37 20 84 |%!(10*4)=6<<27 .|
00020d20 20 6e 78 3c 3c 31 20 84 20 6e 79 3c 3c 31 34 20 | nx<<1 . ny<<14 |
00020d30 84 20 31 3a 62 61 73 65 25 2b 3d 62 61 73 65 25 |. 1:base%+=base%|
00020d40 21 28 38 2a 34 29 0d ce ea 3e c9 20 2d 39 3a 78 |!(8*4)...>. -9:x|
00020d50 77 6f 72 64 73 25 3d 78 73 70 25 2b 33 80 ac 33 |words%=xsp%+3..3|
00020d60 3a 73 7a 25 3d 28 78 73 70 25 2b 37 80 ac 37 29 |:sz%=(xsp%+7..7)|
00020d70 2a 28 79 73 70 25 2b 37 80 ac 37 29 3a 59 25 3d |*(ysp%+7..7):Y%=|
00020d80 79 73 70 25 0d ce f4 29 73 7a 25 3d 73 7a 25 2a |ysp%...)sz%=sz%*|
00020d90 6a 70 71 25 28 6a 70 65 67 71 75 61 6c 69 74 79 |jpq%(jpegquality|
00020da0 25 81 35 29 2f 35 38 38 2b 31 30 32 34 0d ce fe |%.5)/588+1024...|
00020db0 26 6a 70 65 67 77 72 6b 25 3d a4 64 69 6d 28 28 |&jpegwrk%=.dim((|
00020dc0 78 73 70 25 2b 37 80 ac 37 29 2a 39 2b 32 30 30 |xsp%+7..7)*9+200|
00020dd0 30 30 29 0d cf 08 17 62 61 73 65 25 3d a4 64 69 |00)....base%=.di|
00020de0 6d 28 78 77 6f 72 64 73 25 29 0d cf 12 15 f2 67 |m(xwords%).....g|
00020df0 65 74 6f 75 74 70 75 74 6a 70 28 73 7a 25 29 0d |etoutputjp(sz%).|
00020e00 cf 1c 4e 21 72 61 6d 25 3d 78 73 70 25 3a 72 61 |..N!ram%=xsp%:ra|
00020e10 6d 25 21 34 3d 79 73 70 25 3a 72 61 6d 25 21 38 |m%!4=ysp%:ram%!8|
00020e20 3d 6a 70 65 67 71 75 61 6c 69 74 79 25 3a 72 61 |=jpegquality%:ra|
00020e30 6d 25 21 31 32 3d 31 3a 72 61 6d 25 21 31 36 3d |m%!12=1:ram%!16=|
00020e40 39 30 3a 72 61 6d 25 21 32 30 3d 39 30 0d cf 26 |90:ram%!20=90..&|
00020e50 50 c8 99 22 43 6f 6d 70 72 65 73 73 4a 50 45 47 |P.."CompressJPEG|
00020e60 5f 53 74 61 72 74 22 2c 72 61 6d 25 2c 73 7a 25 |_Start",ram%,sz%|
00020e70 2c 72 61 6d 25 2c 6a 70 65 67 77 72 6b 25 2c 28 |,ram%,jpegwrk%,(|
00020e80 78 73 70 25 2b 37 80 ac 37 29 2a 39 2b 32 30 30 |xsp%+7..7)*9+200|
00020e90 30 30 20 b8 20 6a 70 65 67 74 61 67 25 0d cf 30 |00 . jpegtag%..0|
00020ea0 4a c9 20 2d 31 30 3a 78 77 6f 72 64 73 25 3d 78 |J. -10:xwords%=x|
00020eb0 73 70 25 2a 33 2b 33 80 ac 33 3a 73 7a 25 3d 28 |sp%*3+3..3:sz%=(|
00020ec0 78 73 70 25 2b 31 35 80 ac 31 35 29 2a 28 79 73 |xsp%+15..15)*(ys|
00020ed0 70 25 2b 31 35 80 ac 31 35 29 2a 31 32 2f 38 3a |p%+15..15)*12/8:|
00020ee0 59 25 3d 79 73 70 25 0d cf 3a 29 73 7a 25 3d 73 |Y%=ysp%..:)sz%=s|
00020ef0 7a 25 2a 6a 70 71 25 28 6a 70 65 67 71 75 61 6c |z%*jpq%(jpegqual|
00020f00 69 74 79 25 81 35 29 2f 35 38 38 2b 31 30 32 34 |ity%.5)/588+1024|
00020f10 0d cf 44 29 6a 70 65 67 77 72 6b 25 3d a4 64 69 |..D)jpegwrk%=.di|
00020f20 6d 28 28 78 73 70 25 2b 31 35 80 ac 31 35 29 2a |m((xsp%+15..15)*|
00020f30 33 30 2b 32 30 30 30 30 29 0d cf 4e 17 62 61 73 |30+20000)..N.bas|
00020f40 65 25 3d a4 64 69 6d 28 78 77 6f 72 64 73 25 29 |e%=.dim(xwords%)|
00020f50 0d cf 58 15 f2 67 65 74 6f 75 74 70 75 74 6a 70 |..X..getoutputjp|
00020f60 28 73 7a 25 29 0d cf 62 4e 21 72 61 6d 25 3d 78 |(sz%)..bN!ram%=x|
00020f70 73 70 25 3a 72 61 6d 25 21 34 3d 79 73 70 25 3a |sp%:ram%!4=ysp%:|
00020f80 72 61 6d 25 21 38 3d 6a 70 65 67 71 75 61 6c 69 |ram%!8=jpegquali|
00020f90 74 79 25 3a 72 61 6d 25 21 31 32 3d 33 3a 72 61 |ty%:ram%!12=3:ra|
00020fa0 6d 25 21 31 36 3d 39 30 3a 72 61 6d 25 21 32 30 |m%!16=90:ram%!20|
00020fb0 3d 39 30 0d cf 6c 53 c8 99 22 43 6f 6d 70 72 65 |=90..lS.."Compre|
00020fc0 73 73 4a 50 45 47 5f 53 74 61 72 74 22 2c 72 61 |ssJPEG_Start",ra|
00020fd0 6d 25 2c 73 7a 25 2c 72 61 6d 25 2c 6a 70 65 67 |m%,sz%,ram%,jpeg|
00020fe0 77 72 6b 25 2c 28 78 73 70 25 2b 31 35 80 ac 31 |wrk%,(xsp%+15..1|
00020ff0 35 29 2a 33 30 2b 32 30 30 30 30 20 b8 20 6a 70 |5)*30+20000 . jp|
00021000 65 67 74 61 67 25 0d cf 76 35 c9 20 2d 31 31 3a |egtag%..v5. -11:|
00021010 78 77 6f 72 64 73 25 3d 78 73 70 25 3a 73 7a 25 |xwords%=xsp%:sz%|
00021020 3d 78 77 6f 72 64 73 25 2a 79 73 70 25 2b 32 30 |=xwords%*ysp%+20|
00021030 30 30 30 3a 59 25 3d 79 73 70 25 0d cf 80 26 6a |000:Y%=ysp%...&j|
00021040 70 65 67 77 72 6b 25 3d a4 64 69 6d 28 28 78 73 |pegwrk%=.dim((xs|
00021050 70 25 2b 37 80 ac 37 29 2a 39 2b 32 30 30 30 30 |p%+7..7)*9+20000|
00021060 29 0d cf 8a 31 f2 67 65 74 6f 75 74 70 75 74 28 |)...1.getoutput(|
00021070 73 7a 25 2c 30 2c 78 77 6f 72 64 73 25 2c 59 25 |sz%,0,xwords%,Y%|
00021080 29 3a 62 61 73 65 25 3d 72 61 6d 25 2b 32 30 30 |):base%=ram%+200|
00021090 30 30 0d cf 94 37 c9 20 2d 31 32 3a 78 77 6f 72 |00...7. -12:xwor|
000210a0 64 73 25 3d 78 73 70 25 2a 33 3a 73 7a 25 3d 78 |ds%=xsp%*3:sz%=x|
000210b0 77 6f 72 64 73 25 2a 79 73 70 25 2b 32 30 30 30 |words%*ysp%+2000|
000210c0 30 3a 59 25 3d 79 73 70 25 0d cf 9e 29 6a 70 65 |0:Y%=ysp%...)jpe|
000210d0 67 77 72 6b 25 3d a4 64 69 6d 28 28 78 73 70 25 |gwrk%=.dim((xsp%|
000210e0 2b 31 35 80 ac 31 35 29 2a 33 30 2b 32 30 30 30 |+15..15)*30+2000|
000210f0 30 29 0d cf a8 31 f2 67 65 74 6f 75 74 70 75 74 |0)...1.getoutput|
00021100 28 73 7a 25 2c 30 2c 78 77 6f 72 64 73 25 2c 59 |(sz%,0,xwords%,Y|
00021110 25 29 3a 62 61 73 65 25 3d 72 61 6d 25 2b 32 30 |%):base%=ram%+20|
00021120 30 30 30 0d cf b2 43 7f 3a 78 77 6f 72 64 73 25 |000...C.:xwords%|
00021130 3d 78 73 70 25 2f 73 69 7a 65 25 2b 33 2e 39 39 |=xsp%/size%+3.99|
00021140 39 39 80 ac 33 3a 73 7a 25 3d 78 77 6f 72 64 73 |99..3:sz%=xwords|
00021150 25 2a 79 73 70 25 3a 58 25 3d 78 73 70 25 3a 59 |%*ysp%:X%=xsp%:Y|
00021160 25 3d 79 73 70 25 0d cf bc 0d e7 6e 63 6f 6c 3d |%=ysp%.....ncol=|
00021170 31 20 8c 0d cf c6 0b c8 8e 20 6d 24 20 ca 0d cf |1 ....... m$ ...|
00021180 d0 4f c9 22 43 22 3a 21 72 6f 77 69 6e 63 3d 78 |.O."C":!rowinc=x|
00021190 77 6f 72 64 73 25 3a 78 77 6f 72 64 73 25 3d 78 |words%:xwords%=x|
000211a0 77 6f 72 64 73 25 2a 34 3a 73 7a 25 3d 78 77 6f |words%*4:sz%=xwo|
000211b0 72 64 73 25 2a 79 73 70 25 3a 58 25 3d 78 73 70 |rds%*ysp%:X%=xsp|
000211c0 25 2a 34 3a 59 25 3d 79 73 70 25 2a 34 0d cf da |%*4:Y%=ysp%*4...|
000211d0 4f c9 22 54 22 3a 21 72 6f 77 69 6e 63 3d 78 77 |O."T":!rowinc=xw|
000211e0 6f 72 64 73 25 3a 78 77 6f 72 64 73 25 3d 78 77 |ords%:xwords%=xw|
000211f0 6f 72 64 73 25 2a 33 3a 73 7a 25 3d 78 77 6f 72 |ords%*3:sz%=xwor|
00021200 64 73 25 2a 79 73 70 25 3a 58 25 3d 78 73 70 25 |ds%*ysp%:X%=xsp%|
00021210 2a 34 3a 59 25 3d 79 73 70 25 2a 33 0d cf e4 4f |*4:Y%=ysp%*3...O|
00021220 c9 22 44 22 3a 21 72 6f 77 69 6e 63 3d 78 77 6f |."D":!rowinc=xwo|
00021230 72 64 73 25 3a 78 77 6f 72 64 73 25 3d 78 77 6f |rds%:xwords%=xwo|
00021240 72 64 73 25 2a 32 3a 73 7a 25 3d 78 77 6f 72 64 |rds%*2:sz%=xword|
00021250 73 25 2a 79 73 70 25 3a 58 25 3d 78 73 70 25 2a |s%*ysp%:X%=xsp%*|
00021260 32 3a 59 25 3d 79 73 70 25 2a 32 0d cf ee 05 cb |2:Y%=ysp%*2.....|
00021270 0d cf f8 05 cd 0d d0 02 2c 41 25 3d 59 25 3a f2 |........,A%=Y%:.|
00021280 67 65 74 6f 75 74 70 75 74 28 73 7a 25 2c 32 30 |getoutput(sz%,20|
00021290 34 38 2b 36 34 2c 78 77 6f 72 64 73 25 2c 59 25 |48+64,xwords%,Y%|
000212a0 29 0d d0 0c 31 72 61 6d 25 21 34 3d 30 3a 72 61 |)...1ram%!4=0:ra|
000212b0 6d 25 21 38 3d 31 36 3a 72 61 6d 25 21 31 32 3d |m%!8=16:ram%!12=|
000212c0 31 36 3a c8 99 26 32 65 2c 26 31 30 39 2c 72 61 |16:..&2e,&109,ra|
000212d0 6d 25 0d d0 16 30 c8 99 26 32 65 2c 26 31 30 66 |m%...0..&2e,&10f|
000212e0 2c 72 61 6d 25 2c 6f 6e 61 6d 65 24 2c 28 6e 63 |,ram%,oname$,(nc|
000212f0 6f 6c 3c 36 33 29 80 31 2c 58 25 2c 59 25 2c 73 |ol<63).1,X%,Y%,s|
00021300 70 6d 0d d0 20 4a 62 61 73 65 25 3d 72 61 6d 25 |pm.. Jbase%=ram%|
00021310 2b 72 61 6d 25 21 38 3a 62 61 73 65 25 21 28 35 |+ram%!8:base%!(5|
00021320 2a 34 29 3d 41 25 2d 31 3a 21 62 61 73 65 25 3d |*4)=A%-1:!base%=|
00021330 21 62 61 73 65 25 2d 59 25 2a 78 77 6f 72 64 73 |!base%-Y%*xwords|
00021340 25 2b 41 25 2a 78 77 6f 72 64 73 25 0d d0 2a 29 |%+A%*xwords%..*)|
00021350 72 61 6d 25 21 31 32 3d 72 61 6d 25 21 31 32 2d |ram%!12=ram%!12-|
00021360 59 25 2a 78 77 6f 72 64 73 25 2b 41 25 2a 78 77 |Y%*xwords%+A%*xw|
00021370 6f 72 64 73 25 0d d0 34 26 70 61 6c 25 3d 62 61 |ords%..4&pal%=ba|
00021380 73 65 25 2b 31 31 2a 34 3a 62 61 73 65 25 2b 3d |se%+11*4:base%+=|
00021390 62 61 73 65 25 21 28 38 2a 34 29 0d d0 3e 0d c8 |base%!(8*4)..>..|
000213a0 8e 20 6e 63 6f 6c 20 ca 0d d0 48 09 c9 20 32 35 |. ncol ...H.. 25|
000213b0 36 0d d0 52 52 21 28 70 61 6c 25 2d 38 29 2b 3d |6..RR!(pal%-8)+=|
000213c0 32 30 34 38 3a 21 28 70 61 6c 25 2d 31 32 29 2b |2048:!(pal%-12)+|
000213d0 3d 32 30 34 38 3a 62 61 73 65 25 2b 3d 32 30 34 |=2048:base%+=204|
000213e0 38 3a 21 28 72 61 6d 25 2b 31 32 29 2b 3d 32 30 |8:!(ram%+12)+=20|
000213f0 34 38 3a 21 28 70 61 6c 25 2d 34 34 29 2b 3d 32 |48:!(pal%-44)+=2|
00021400 30 34 38 0d d0 5c 29 e3 5a 25 3d 30 b8 32 35 35 |048..\).Z%=0.255|
00021410 3a 42 25 3d 5a 25 84 5a 25 3c 3c 38 84 5a 25 3c |:B%=Z%.Z%<<8.Z%<|
00021420 3c 31 36 3a 42 25 3d 42 25 3c 3c 38 0d d0 66 25 |<16:B%=B%<<8..f%|
00021430 70 61 6c 25 21 28 5a 25 2a 38 29 3d 42 25 3a 70 |pal%!(Z%*8)=B%:p|
00021440 61 6c 25 21 28 5a 25 2a 38 2b 34 29 3d 42 25 3a |al%!(Z%*8+4)=B%:|
00021450 ed 0d d0 70 09 c9 20 32 35 35 0d d0 7a 52 21 28 |...p.. 255..zR!(|
00021460 70 61 6c 25 2d 38 29 2b 3d 32 30 34 38 3a 21 28 |pal%-8)+=2048:!(|
00021470 70 61 6c 25 2d 31 32 29 2b 3d 32 30 34 38 3a 62 |pal%-12)+=2048:b|
00021480 61 73 65 25 2b 3d 32 30 34 38 3a 21 28 72 61 6d |ase%+=2048:!(ram|
00021490 25 2b 31 32 29 2b 3d 32 30 34 38 3a 21 28 70 61 |%+12)+=2048:!(pa|
000214a0 6c 25 2d 34 34 29 2b 3d 32 30 34 38 0d d0 84 24 |l%-44)+=2048...$|
000214b0 e3 5a 25 3d 30 b8 32 35 35 3a 42 25 3d 70 61 6c |.Z%=0.255:B%=pal|
000214c0 65 74 74 65 25 21 28 5a 25 3c 3c 32 29 3c 3c 38 |ette%!(Z%<<2)<<8|
000214d0 0d d0 8e 25 70 61 6c 25 21 28 5a 25 2a 38 29 3d |...%pal%!(Z%*8)=|
000214e0 42 25 3a 70 61 6c 25 21 28 5a 25 2a 38 2b 34 29 |B%:pal%!(Z%*8+4)|
000214f0 3d 42 25 3a ed 0d d0 98 08 c9 20 31 35 0d d0 a2 |=B%:...... 15...|
00021500 0b c8 8e 20 6d 24 20 ca 0d d0 ac 09 c9 20 22 52 |... m$ ...... "R|
00021510 22 0d d0 b6 30 e3 5a 25 3d 30 b8 31 35 3a f2 63 |"...0.Z%=0.15:.c|
00021520 6f 6c 28 5a 25 2c 70 61 6c 65 74 74 65 25 21 28 |ol(Z%,palette%!(|
00021530 5a 25 3c 3c 32 29 80 26 46 30 46 30 46 30 29 3a |Z%<<2).&F0F0F0):|
00021540 ed 0d d0 c0 09 c9 20 22 44 22 0d d0 ca 1e e3 5a |...... "D".....Z|
00021550 25 3d 30 b8 37 3a 41 25 3d 30 3a e7 5a 25 80 31 |%=0.7:A%=0:.Z%.1|
00021560 20 41 25 2b 3d 26 46 30 0d d0 d4 13 e7 5a 25 80 | A%+=&F0.....Z%.|
00021570 32 20 41 25 2b 3d 26 46 30 30 30 0d d0 de 15 e7 |2 A%+=&F000.....|
00021580 5a 25 80 34 20 41 25 2b 3d 26 46 30 30 30 30 30 |Z%.4 A%+=&F00000|
00021590 0d d0 e8 11 f2 63 6f 6c 28 5a 25 2c 41 25 29 3a |.....col(Z%,A%):|
000215a0 ed 0d d0 f2 09 c9 20 22 54 22 0d d0 fc 30 e3 5a |...... "T"...0.Z|
000215b0 25 3d 30 b8 31 35 3a 41 25 3d 5a 25 3c 3c 34 3a |%=0.15:A%=Z%<<4:|
000215c0 f2 63 6f 6c 28 5a 25 2c 41 25 84 41 25 3c 3c 38 |.col(Z%,A%.A%<<8|
000215d0 84 41 25 3c 3c 31 36 29 3a ed 0d d1 06 05 7f 0d |.A%<<16):.......|
000215e0 d1 10 3c e3 5a 25 3d 30 b8 31 35 3a 41 25 3d 28 |..<.Z%=0.15:A%=(|
000215f0 5a 25 80 37 29 2f 37 2a 31 35 2b 2e 32 3c 3c 34 |Z%.7)/7*15+.2<<4|
00021600 3a f2 63 6f 6c 28 5a 25 2c 41 25 84 41 25 3c 3c |:.col(Z%,A%.A%<<|
00021610 38 84 41 25 3c 3c 31 36 29 3a ed 0d d1 1a 05 cb |8.A%<<16):......|
00021620 0d d1 24 07 c9 20 33 0d d1 2e 0a c8 8e 6d 24 20 |..$.. 3......m$ |
00021630 ca 0d d1 38 09 c9 20 22 43 22 0d d1 42 3b f2 63 |...8.. "C"..B;.c|
00021640 6f 6c 28 30 2c 30 29 3a f2 63 6f 6c 28 31 2c 26 |ol(0,0):.col(1,&|
00021650 46 30 46 30 30 30 29 3a f2 63 6f 6c 28 32 2c 26 |F0F000):.col(2,&|
00021660 46 30 30 30 46 30 29 3a f2 63 6f 6c 28 33 2c 26 |F000F0):.col(3,&|
00021670 46 30 46 30 29 0d d1 4c 09 c9 20 22 52 22 0d d1 |F0F0)..L.. "R"..|
00021680 56 2f e3 5a 25 3d 30 b8 33 3a f2 63 6f 6c 28 5a |V/.Z%=0.3:.col(Z|
00021690 25 2c 70 61 6c 65 74 74 65 25 21 28 5a 25 3c 3c |%,palette%!(Z%<<|
000216a0 32 29 80 26 46 30 46 30 46 30 29 3a ed 0d d1 60 |2).&F0F0F0):...`|
000216b0 05 7f 0d d1 6a 31 e3 5a 25 3d 30 b8 33 3a 41 25 |....j1.Z%=0.3:A%|
000216c0 3d 5a 25 2a 35 3c 3c 34 3a f2 63 6f 6c 28 5a 25 |=Z%*5<<4:.col(Z%|
000216d0 2c 41 25 84 41 25 3c 3c 38 84 41 25 3c 3c 31 36 |,A%.A%<<8.A%<<16|
000216e0 29 3a ed 0d d1 74 05 cb 0d d1 7e 21 c9 20 31 3a |):...t....~!. 1:|
000216f0 f2 63 6f 6c 28 30 2c 30 29 3a f2 63 6f 6c 28 31 |.col(0,0):.col(1|
00021700 2c 26 46 30 46 30 46 30 29 0d d1 88 05 cb 0d d1 |,&F0F0F0).......|
00021710 92 05 cb 0d d1 a6 0c e7 66 6c 65 78 25 20 8c 0d |........flex% ..|
00021720 d1 ba 05 cc 0d d1 c4 13 e7 77 6f 72 6b 73 70 61 |.........workspa|
00021730 63 65 25 3c 30 20 8c 0d d1 ce 2e 50 25 3d e0 3a |ce%<0 .....P%=.:|
00021740 5b 4f 50 54 20 30 3a 53 54 52 20 72 31 33 2c 50 |[OPT 0:STR r13,P|
00021750 25 2b 31 36 3a 4d 4f 56 53 20 50 63 2c 72 31 34 |%+16:MOVS Pc,r14|
00021760 3a 5d 3a d6 e0 0d d1 d8 19 e0 3d e0 2b 33 32 2a |:]:.......=.+32*|
00021770 31 30 32 34 2b 93 2d 21 28 e0 2b 31 36 29 0d d1 |1024+.-!(.+16)..|
00021780 e2 05 cc 0d d1 f6 05 cd 0d d2 00 05 cd 0d d2 0a |................|
00021790 3a e7 62 61 73 65 25 2a 73 69 7a 65 25 3e 32 5e |:.base%*size%>2^|
000217a0 33 32 20 85 20 34 32 2c 22 62 61 73 65 25 2a 73 |32 . 42,"base%*s|
000217b0 69 7a 65 25 20 70 72 6f 64 75 63 74 20 74 6f 6f |ize% product too|
000217c0 20 6c 61 72 67 65 22 0d d2 14 07 ea 20 85 0d d2 | large"..... ...|
000217d0 1e 2f ee 20 85 20 ea 3a f7 20 85 3a f2 53 61 76 |./. . .:. .:.Sav|
000217e0 65 3a 85 20 9f 2c f6 24 2b 22 20 69 6e 74 65 72 |e:. .,.$+" inter|
000217f0 6e 61 6c 20 28 22 2b c3 9e 2b 22 29 22 0d d2 28 |nal ("+..+")"..(|
00021800 18 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4c 45 |..."Hourglass_LE|
00021810 44 73 22 2c 33 0d d2 32 24 79 73 61 6d 70 25 3d |Ds",3..2$ysamp%=|
00021820 31 3a 6e 6c 25 28 29 3d 30 3a 73 74 65 70 25 3d |1:nl%()=0:step%=|
00021830 34 2a 28 63 6f 6c 2b 31 29 0d d2 3c 49 61 64 64 |4*(col+1)..<Iadd|
00021840 72 25 3d 62 61 73 65 25 3c 3c 73 69 7a 65 73 68 |r%=base%<<sizesh|
00021850 66 74 25 3a 72 6f 77 73 74 65 70 25 3d 78 77 6f |ft%:rowstep%=xwo|
00021860 72 64 73 25 2a 73 69 7a 65 25 3a 63 6f 6c 73 74 |rds%*size%:colst|
00021870 65 70 25 3d 31 3a 64 69 73 74 25 3d 78 73 70 25 |ep%=1:dist%=xsp%|
00021880 2d 31 0d d2 46 21 e7 6d 3d 2d 33 84 6d 3d 2d 35 |-1..F!.m=-3.m=-5|
00021890 84 6d 3d 2d 36 20 64 69 73 74 25 3d 64 69 73 74 |.m=-6 dist%=dist|
000218a0 25 2a 32 0d d2 50 28 e7 6d 3d 2d 34 84 6d 3d 2d |%*2..P(.m=-4.m=-|
000218b0 37 84 6d 3d 2d 31 30 84 6d 3d 2d 31 32 20 64 69 |7.m=-10.m=-12 di|
000218c0 73 74 25 3d 64 69 73 74 25 2a 33 0d d2 5a 17 e7 |st%=dist%*3..Z..|
000218d0 6d 3d 2d 38 20 64 69 73 74 25 3d 64 69 73 74 25 |m=-8 dist%=dist%|
000218e0 2a 34 0d d2 64 0e e7 72 6f 74 61 74 65 25 20 8c |*4..d..rotate% .|
000218f0 0d d2 6e 36 6f 64 69 73 74 25 3d 64 69 73 74 25 |..n6odist%=dist%|
00021900 3a c8 94 20 63 6f 6c 73 74 65 70 25 2c 72 6f 77 |:.. colstep%,row|
00021910 73 74 65 70 25 3a c8 94 20 68 66 6c 69 70 25 2c |step%:.. hflip%,|
00021920 76 66 6c 69 70 25 0d d2 78 10 e7 72 6f 74 61 74 |vflip%..x..rotat|
00021930 65 25 3d 31 20 8c 0d d2 82 47 61 64 64 72 25 2b |e%=1 ....Gaddr%+|
00021940 3d 28 79 73 70 25 2d 31 29 2a 63 6f 6c 73 74 65 |=(ysp%-1)*colste|
00021950 70 25 3a 63 6f 6c 73 74 65 70 25 3d 2d 63 6f 6c |p%:colstep%=-col|
00021960 73 74 65 70 25 3a 64 69 73 74 25 3d 28 79 73 70 |step%:dist%=(ysp|
00021970 25 2d 31 29 2a 63 6f 6c 73 74 65 70 25 0d d2 8c |%-1)*colstep%...|
00021980 05 cc 0d d2 96 3b 61 64 64 72 25 2b 3d 64 69 73 |.....;addr%+=dis|
00021990 74 25 3a 72 6f 77 73 74 65 70 25 3d 2d 72 6f 77 |t%:rowstep%=-row|
000219a0 73 74 65 70 25 3a 64 69 73 74 25 3d 28 79 73 70 |step%:dist%=(ysp|
000219b0 25 2d 31 29 2a 63 6f 6c 73 74 65 70 25 0d d2 a0 |%-1)*colstep%...|
000219c0 05 cd 0d d2 aa 3b e7 6d 3d 2d 33 84 6d 3d 2d 35 |.....;.m=-3.m=-5|
000219d0 84 6d 3d 2d 36 20 63 6f 6c 73 74 65 70 25 3d 63 |.m=-6 colstep%=c|
000219e0 6f 6c 73 74 65 70 25 2f 32 3a 72 6f 77 73 74 65 |olstep%/2:rowste|
000219f0 70 25 3d 72 6f 77 73 74 65 70 25 2a 32 0d d2 b4 |p%=rowstep%*2...|
00021a00 42 e7 6d 3d 2d 34 84 6d 3d 2d 37 84 6d 3d 2d 31 |B.m=-4.m=-7.m=-1|
00021a10 30 84 6d 3d 2d 31 32 20 63 6f 6c 73 74 65 70 25 |0.m=-12 colstep%|
00021a20 3d 63 6f 6c 73 74 65 70 25 2f 33 3a 72 6f 77 73 |=colstep%/3:rows|
00021a30 74 65 70 25 3d 72 6f 77 73 74 65 70 25 2a 33 0d |tep%=rowstep%*3.|
00021a40 d2 be 31 e7 6d 3d 2d 38 20 63 6f 6c 73 74 65 70 |..1.m=-8 colstep|
00021a50 25 3d 63 6f 6c 73 74 65 70 25 2f 34 3a 72 6f 77 |%=colstep%/4:row|
00021a60 73 74 65 70 25 3d 72 6f 77 73 74 65 70 25 2a 34 |step%=rowstep%*4|
00021a70 0d d2 c8 05 cd 0d d2 d2 0d e7 68 66 6c 69 70 25 |..........hflip%|
00021a80 20 8c 0d d2 dc 30 61 64 64 72 25 2b 3d 64 69 73 | ....0addr%+=dis|
00021a90 74 25 3a 64 69 73 74 25 3d 2d 64 69 73 74 25 3a |t%:dist%=-dist%:|
00021aa0 63 6f 6c 73 74 65 70 25 3d 2d 63 6f 6c 73 74 65 |colstep%=-colste|
00021ab0 70 25 0d d2 e6 05 cd 0d d2 f0 0d e7 76 66 6c 69 |p%..........vfli|
00021ac0 70 25 20 8c 0d d2 fa 0e e7 72 6f 74 61 74 65 25 |p% ......rotate%|
00021ad0 20 8c 0d d3 04 2c 61 64 64 72 25 2b 3d 6f 64 69 | ....,addr%+=odi|
00021ae0 73 74 25 2a 72 6f 74 61 74 65 25 3a 72 6f 77 73 |st%*rotate%:rows|
00021af0 74 65 70 25 3d 2d 72 6f 77 73 74 65 70 25 0d d3 |tep%=-rowstep%..|
00021b00 0e 05 cc 0d d3 18 2f 61 64 64 72 25 2b 3d 28 79 |....../addr%+=(y|
00021b10 73 70 25 2d 31 29 2a 72 6f 77 73 74 65 70 25 3a |sp%-1)*rowstep%:|
00021b20 72 6f 77 73 74 65 70 25 3d 2d 72 6f 77 73 74 65 |rowstep%=-rowste|
00021b30 70 25 0d d3 22 05 cd 0d d3 2c 05 cd 0d d3 36 53 |p%.."....,....6S|
00021b40 6f 75 74 6c 69 6d 25 3d 28 28 62 61 73 65 25 2b |outlim%=((base%+|
00021b50 78 77 6f 72 64 73 25 2a 59 25 29 3c 3c 73 69 7a |xwords%*Y%)<<siz|
00021b60 65 73 68 66 74 25 29 2d 31 3a 6f 64 64 63 6f 6c |eshft%)-1:oddcol|
00021b70 73 74 65 70 25 3d 2d 63 6f 6c 73 74 65 70 25 3a |step%=-colstep%:|
00021b80 6f 64 64 73 74 65 70 25 3d 2d 73 74 65 70 25 0d |oddstep%=-step%.|
00021b90 d3 40 2b e7 6f 72 64 65 72 25 20 f2 61 64 6a 75 |.@+.order% .adju|
00021ba0 73 74 70 61 6c 65 74 74 65 28 31 2f 79 64 69 76 |stpalette(1/ydiv|
00021bb0 25 2f 78 64 69 76 25 2c 30 29 0d d3 4a 11 e7 6d |%/xdiv%,0)..J..m|
00021bc0 3d 2d 39 84 6d 3d 2d 31 30 20 8c 0d d3 54 3f c8 |=-9.m=-10 ...T?.|
00021bd0 99 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 |. "OS_SWINumberF|
00021be0 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 43 6f 6d |romString",,"Com|
00021bf0 70 72 65 73 73 4a 50 45 47 5f 57 72 69 74 65 4c |pressJPEG_WriteL|
00021c00 69 6e 65 22 20 b8 20 77 6c 25 0d d3 5e 39 e7 73 |ine" . wl%..^9.s|
00021c10 79 25 3d 79 25 20 80 20 73 78 25 3d 78 25 20 80 |y%=y% . sx%=x% .|
00021c20 20 72 61 6e 67 65 25 3d a3 20 80 20 73 68 61 72 | range%=. . shar|
00021c30 70 65 6e 25 3d a3 20 80 20 65 71 75 61 6c 25 3d |pen%=. . equal%=|
00021c40 a3 20 8c 0d d3 68 0e e7 64 69 74 68 65 72 25 20 |. ...h..dither% |
00021c50 8c 0d d3 72 24 e3 79 72 25 3d 30 20 b8 20 79 25 |...r$.yr%=0 . y%|
00021c60 2d 31 3a c8 99 68 6f 75 72 25 2c 79 72 25 2a 31 |-1:..hour%,yr%*1|
00021c70 30 30 81 79 25 0d d3 7c 36 57 25 3d a0 28 72 24 |00.y%..|6W%=.(r$|
00021c80 2b 22 28 63 6c 25 28 29 29 22 29 3a 63 6c 25 28 |+"(cl%())"):cl%(|
00021c90 29 3d 63 6c 25 28 29 2b 6e 6c 25 28 29 3a 6e 6c |)=cl%()+nl%():nl|
00021ca0 25 28 29 3d 30 3a 42 25 3d 78 25 0d d3 86 0c e7 |%()=0:B%=x%.....|
00021cb0 79 72 25 80 31 20 8c 0d d3 90 32 d6 66 73 25 2c |yr%.1 ....2.fs%,|
00021cc0 63 6f 6c 73 74 65 70 25 2c 63 6c 25 28 31 2c 30 |colstep%,cl%(1,0|
00021cd0 29 2c 6e 6c 25 28 31 2c 30 29 2c 61 64 64 72 25 |),nl%(1,0),addr%|
00021ce0 2c 73 74 65 70 25 2c 42 25 0d d3 9a 05 cc 0d d3 |,step%,B%.......|
00021cf0 a4 46 41 25 3d 61 64 64 72 25 2b 64 69 73 74 25 |.FA%=addr%+dist%|
00021d00 3a d6 66 73 25 2c 6f 64 64 63 6f 6c 73 74 65 70 |:.fs%,oddcolstep|
00021d10 25 2c 63 6c 25 28 78 25 2c 30 29 2c 6e 6c 25 28 |%,cl%(x%,0),nl%(|
00021d20 78 25 2c 30 29 2c 41 25 2c 6f 64 64 73 74 65 70 |x%,0),A%,oddstep|
00021d30 25 2c 42 25 0d d3 ae 05 cd 0d d3 b8 18 c8 99 77 |%,B%...........w|
00021d40 6c 25 2c 6a 70 65 67 74 61 67 25 2c 61 64 64 72 |l%,jpegtag%,addr|
00021d50 25 0d d3 c2 05 ed 0d d3 cc 05 cc 0d d3 d6 47 49 |%.............GI|
00021d60 25 3d 73 74 65 70 25 3a e3 79 72 25 3d 30 b8 79 |%=step%:.yr%=0.y|
00021d70 25 2d 31 3a c8 99 68 6f 75 72 25 2c 79 72 25 2a |%-1:..hour%,yr%*|
00021d80 31 30 30 81 79 25 3a e7 61 64 64 72 25 3e 6f 75 |100.y%:.addr%>ou|
00021d90 74 6c 69 6d 25 20 f2 66 6c 75 73 68 6f 75 74 70 |tlim% .flushoutp|
00021da0 75 74 0d d3 e0 42 57 25 3d a0 28 72 24 2b 22 28 |ut...BW%=.(r$+"(|
00021db0 63 6c 25 28 29 29 22 29 3a 42 25 3d 78 25 3a d6 |cl%())"):B%=x%:.|
00021dc0 66 73 25 2c 63 6f 6c 73 74 65 70 25 2c 63 6c 25 |fs%,colstep%,cl%|
00021dd0 28 31 2c 30 29 2c 49 25 2c 61 64 64 72 25 2c 49 |(1,0),I%,addr%,I|
00021de0 25 2c 42 25 0d d3 ea 18 c8 99 77 6c 25 2c 6a 70 |%,B%......wl%,jp|
00021df0 65 67 74 61 67 25 2c 61 64 64 72 25 0d d3 f4 05 |egtag%,addr%....|
00021e00 ed 0d d3 fe 05 cd 0d d4 08 05 cc 0d d4 12 0d e7 |................|
00021e10 65 71 75 61 6c 25 20 8c 0d d4 1c 39 f2 72 65 77 |equal% ....9.rew|
00021e20 69 6e 64 3a 48 61 76 67 25 3d c6 8e 28 76 61 6c |ind:Havg%=..(val|
00021e30 73 25 28 29 29 2f 32 35 36 2f 28 63 6f 6c 2b 31 |s%())/256/(col+1|
00021e40 29 3a de 20 6e 65 77 25 28 32 35 36 2c 63 6f 6c |):. new%(256,col|
00021e50 29 0d d4 26 3e e3 42 25 3d 30 b8 63 6f 6c 3a 52 |)..&>.B%=0.col:R|
00021e60 25 3d 30 3a 48 69 6e 74 25 3d 30 3a e3 5a 25 3d |%=0:Hint%=0:.Z%=|
00021e70 30 b8 32 35 36 3a 4c 25 3d 52 25 3a 48 69 6e 74 |0.256:L%=R%:Hint|
00021e80 25 2b 3d 76 61 6c 73 25 28 5a 25 2c 42 25 29 0d |%+=vals%(Z%,B%).|
00021e90 d4 30 26 c8 95 48 69 6e 74 25 3e 48 61 76 67 25 |.0&..Hint%>Havg%|
00021ea0 3a 48 69 6e 74 25 2d 3d 48 61 76 67 25 3a 52 25 |:Hint%-=Havg%:R%|
00021eb0 2b 3d 31 3a ce 0d d4 3a 1f 6e 65 77 25 28 5a 25 |+=1:...:.new%(Z%|
00021ec0 2c 42 25 29 3d 28 4c 25 2b 52 25 29 2f 32 2a 46 |,B%)=(L%+R%)/2*F|
00021ed0 2f 32 35 36 0d d4 44 07 ed 3a ed 0d d4 4e 05 cd |/256..D..:...N..|
00021ee0 0d d4 58 0f e7 73 68 61 72 70 65 6e 25 20 8c 0d |..X..sharpen% ..|
00021ef0 d4 62 0d e7 6f 72 64 65 72 25 20 8c 0d d4 6c 3a |.b..order% ...l:|
00021f00 79 72 65 61 64 25 3d 73 79 25 2d 31 3a 57 25 3d |yread%=sy%-1:W%=|
00021f10 a0 28 72 24 2b 22 28 72 6d 31 25 28 29 29 22 29 |.(r$+"(rm1%())")|
00021f20 3a e7 65 71 75 61 6c 25 20 f2 66 69 74 32 28 72 |:.equal% .fit2(r|
00021f30 6d 31 25 28 29 29 0d d4 76 41 e3 42 25 3d 30 b8 |m1%())..vA.B%=0.|
00021f40 63 6f 6c 3a 72 6d 31 25 28 30 2c 42 25 29 3d 72 |col:rm1%(0,B%)=r|
00021f50 6d 31 25 28 31 2c 42 25 29 3a 72 6d 31 25 28 73 |m1%(1,B%):rm1%(s|
00021f60 78 25 2b 31 2c 42 25 29 3d 72 6d 31 25 28 73 78 |x%+1,B%)=rm1%(sx|
00021f70 25 2c 42 25 29 3a ed 0d d4 80 05 cc 0d d4 8a 3c |%,B%):.........<|
00021f80 79 72 65 61 64 25 3d 79 25 2d 31 3a f2 73 63 61 |yread%=y%-1:.sca|
00021f90 6c 65 64 70 69 78 65 6c 72 6f 77 28 72 6d 31 25 |ledpixelrow(rm1%|
00021fa0 28 29 29 3a e7 65 71 75 61 6c 25 20 f2 66 69 74 |()):.equal% .fit|
00021fb0 28 72 6d 31 25 28 29 29 0d d4 94 3f e3 42 25 3d |(rm1%())...?.B%=|
00021fc0 30 b8 63 6f 6c 3a 72 6d 31 25 28 30 2c 42 25 29 |0.col:rm1%(0,B%)|
00021fd0 3d 72 6d 31 25 28 31 2c 42 25 29 3a 72 6d 31 25 |=rm1%(1,B%):rm1%|
00021fe0 28 78 25 2b 31 2c 42 25 29 3d 72 6d 31 25 28 78 |(x%+1,B%)=rm1%(x|
00021ff0 25 2c 42 25 29 3a ed 0d d4 9e 05 cd 0d d4 a8 11 |%,B%):..........|
00022000 72 6d 32 25 28 29 3d 72 6d 31 25 28 29 0d d4 b2 |rm2%()=rm1%()...|
00022010 05 cd 0d d4 bc 0d e7 6f 72 64 65 72 25 20 8c 0d |.......order% ..|
00022020 d4 c6 11 e3 79 72 25 3d 30 20 b8 20 79 25 2d 31 |....yr%=0 . y%-1|
00022030 0d d4 d0 32 c8 99 68 6f 75 72 25 2c 79 72 25 2a |...2..hour%,yr%*|
00022040 31 30 30 81 79 25 3a e7 61 64 64 72 25 3e 6f 75 |100.y%:.addr%>ou|
00022050 74 6c 69 6d 25 20 f2 66 6c 75 73 68 6f 75 74 70 |tlim% .flushoutp|
00022060 75 74 0d d4 da 0d e7 73 79 25 3d 79 25 20 8c 0d |ut.....sy%=y% ..|
00022070 d4 e4 19 f2 73 68 61 72 70 70 69 78 65 6c 72 6f |....sharppixelro|
00022080 77 28 63 6c 25 28 29 29 0d d4 ee 05 cc 0d d4 f8 |w(cl%())........|
00022090 3a 79 73 61 6d 70 25 2d 3d 31 3a e7 79 73 61 6d |:ysamp%-=1:.ysam|
000220a0 70 25 3d 30 20 f2 73 68 61 72 70 70 69 78 65 6c |p%=0 .sharppixel|
000220b0 72 6f 77 28 78 6c 25 28 29 29 3a 79 73 61 6d 70 |row(xl%()):ysamp|
000220c0 25 3d 79 6d 75 6c 25 0d d5 02 0e e7 79 64 69 76 |%=ymul%.....ydiv|
000220d0 25 3d 31 20 8c 0d d5 0c 0f 63 6c 25 28 29 3d 78 |%=1 .....cl%()=x|
000220e0 6c 25 28 29 0d d5 16 05 cc 0d d5 20 14 e7 79 73 |l%()....... ..ys|
000220f0 61 6d 70 25 3e 3d 79 64 69 76 25 20 8c 0d d5 2a |amp%>=ydiv% ...*|
00022100 23 79 73 61 6d 70 25 2d 3d 79 64 69 76 25 3a 63 |#ysamp%-=ydiv%:c|
00022110 6c 25 28 29 3d 78 6c 25 28 29 2a 79 64 69 76 25 |l%()=xl%()*ydiv%|
00022120 0d d5 34 05 cc 0d d5 3e 2f 63 6c 25 28 29 3d 78 |..4....>/cl%()=x|
00022130 6c 25 28 29 2a 79 73 61 6d 70 25 3a 59 25 3d 79 |l%()*ysamp%:Y%=y|
00022140 64 69 76 25 2d 79 73 61 6d 70 25 3a 79 73 61 6d |div%-ysamp%:ysam|
00022150 70 25 3d 30 0d d5 48 05 f5 0d d5 52 30 e7 79 73 |p%=0..H....R0.ys|
00022160 61 6d 70 25 3d 30 20 f2 73 68 61 72 70 70 69 78 |amp%=0 .sharppix|
00022170 65 6c 72 6f 77 28 78 6c 25 28 29 29 3a 79 73 61 |elrow(xl%()):ysa|
00022180 6d 70 25 3d 79 6d 75 6c 25 0d d5 5c 10 e7 79 73 |mp%=ymul%..\..ys|
00022190 61 6d 70 25 3e 59 25 20 8c 0d d5 66 36 79 73 61 |amp%>Y% ...f6ysa|
000221a0 6d 70 25 2d 3d 59 25 3a 78 6c 32 25 28 29 3d 78 |mp%-=Y%:xl2%()=x|
000221b0 6c 25 28 29 2a 59 25 3a 63 6c 25 28 29 3d 63 6c |l%()*Y%:cl%()=cl|
000221c0 25 28 29 2b 78 6c 32 25 28 29 3a 59 25 3d 30 0d |%()+xl2%():Y%=0.|
000221d0 d5 70 05 cc 0d d5 7a 3e 59 25 2d 3d 79 73 61 6d |.p....z>Y%-=ysam|
000221e0 70 25 3a 78 6c 32 25 28 29 3d 78 6c 25 28 29 2a |p%:xl2%()=xl%()*|
000221f0 79 73 61 6d 70 25 3a 63 6c 25 28 29 3d 63 6c 25 |ysamp%:cl%()=cl%|
00022200 28 29 2b 78 6c 32 25 28 29 3a 79 73 61 6d 70 25 |()+xl2%():ysamp%|
00022210 3d 30 0d d5 84 05 cd 0d d5 8e 0a fd 20 59 25 3d |=0.......... Y%=|
00022220 30 0d d5 98 05 cd 0d d5 a2 0d 79 73 61 6d 70 25 |0.........ysamp%|
00022230 2b 3d 31 0d d5 ac 05 cd 0d d5 b6 05 cd 0d d5 c0 |+=1.............|
00022240 32 63 6c 25 28 29 3d 63 6c 25 28 29 2b 6e 6c 25 |2cl%()=cl%()+nl%|
00022250 28 29 3a 6e 6c 25 28 29 3d 30 3a 42 25 3d 78 25 |():nl%()=0:B%=x%|
00022260 3a 41 25 3d 61 64 64 72 25 2b 64 69 73 74 25 0d |:A%=addr%+dist%.|
00022270 d5 ca 0c e7 79 72 25 80 31 20 8c 0d d5 d4 32 d6 |....yr%.1 ....2.|
00022280 66 73 25 2c 63 6f 6c 73 74 65 70 25 2c 63 6c 25 |fs%,colstep%,cl%|
00022290 28 31 2c 30 29 2c 6e 6c 25 28 31 2c 30 29 2c 61 |(1,0),nl%(1,0),a|
000222a0 64 64 72 25 2c 73 74 65 70 25 2c 42 25 0d d5 de |ddr%,step%,B%...|
000222b0 05 cc 0d d5 e8 37 d6 66 73 25 2c 6f 64 64 63 6f |.....7.fs%,oddco|
000222c0 6c 73 74 65 70 25 2c 63 6c 25 28 78 25 2c 30 29 |lstep%,cl%(x%,0)|
000222d0 2c 6e 6c 25 28 78 25 2c 30 29 2c 41 25 2c 6f 64 |,nl%(x%,0),A%,od|
000222e0 64 73 74 65 70 25 2c 42 25 0d d5 f2 05 cd 0d d5 |dstep%,B%.......|
000222f0 fc 18 c8 99 77 6c 25 2c 6a 70 65 67 74 61 67 25 |....wl%,jpegtag%|
00022300 2c 61 64 64 72 25 0d d6 06 05 ed 0d d6 10 05 cc |,addr%..........|
00022310 0d d6 1a 11 e3 79 72 25 3d 30 20 b8 20 79 25 2d |.....yr%=0 . y%-|
00022320 31 0d d6 24 32 c8 99 68 6f 75 72 25 2c 79 72 25 |1..$2..hour%,yr%|
00022330 2a 31 30 30 81 79 25 3a e7 61 64 64 72 25 3e 6f |*100.y%:.addr%>o|
00022340 75 74 6c 69 6d 25 20 f2 66 6c 75 73 68 6f 75 74 |utlim% .flushout|
00022350 70 75 74 0d d6 2e 0f e7 73 68 61 72 70 65 6e 25 |put.....sharpen%|
00022360 20 8c 0d d6 38 40 e7 79 72 65 61 64 25 20 79 72 | ...8@.yread% yr|
00022370 65 61 64 25 2d 3d 31 3a f2 73 63 61 6c 65 64 70 |ead%-=1:.scaledp|
00022380 69 78 65 6c 72 6f 77 28 72 6d 25 28 29 29 3a e7 |ixelrow(rm%()):.|
00022390 65 71 75 61 6c 25 20 f2 66 69 74 28 72 6d 25 28 |equal% .fit(rm%(|
000223a0 29 29 0d d6 42 3b e3 42 25 3d 30 b8 63 6f 6c 3a |))..B;.B%=0.col:|
000223b0 72 6d 25 28 30 2c 42 25 29 3d 72 6d 25 28 31 2c |rm%(0,B%)=rm%(1,|
000223c0 42 25 29 3a 72 6d 25 28 78 25 2b 31 2c 42 25 29 |B%):rm%(x%+1,B%)|
000223d0 3d 72 6d 25 28 78 25 2c 42 25 29 3a ed 0d d6 4c |=rm%(x%,B%):...L|
000223e0 3b d6 20 73 68 61 72 70 25 2c 63 6c 25 28 31 2c |;. sharp%,cl%(1,|
000223f0 30 29 2c 72 6d 25 28 31 2c 30 29 2c 72 6d 31 25 |0),rm%(1,0),rm1%|
00022400 28 31 2c 30 29 2c 72 6d 32 25 28 31 2c 30 29 2c |(1,0),rm2%(1,0),|
00022410 74 6f 74 76 61 6c 73 25 0d d6 56 21 c8 94 20 72 |totvals%..V!.. r|
00022420 6d 32 25 28 29 2c 72 6d 31 25 28 29 3a 72 6d 31 |m2%(),rm1%():rm1|
00022430 25 28 29 3d 72 6d 25 28 29 0d d6 60 05 cc 0d d6 |%()=rm%()..`....|
00022440 6a 2e f2 73 63 61 6c 65 64 70 69 78 65 6c 72 6f |j..scaledpixelro|
00022450 77 28 63 6c 25 28 29 29 3a e7 65 71 75 61 6c 25 |w(cl%()):.equal%|
00022460 20 f2 66 69 74 28 63 6c 25 28 29 29 0d d6 74 05 | .fit(cl%())..t.|
00022470 cd 0d d6 7e 32 63 6c 25 28 29 3d 63 6c 25 28 29 |...~2cl%()=cl%()|
00022480 2b 6e 6c 25 28 29 3a 6e 6c 25 28 29 3d 30 3a 42 |+nl%():nl%()=0:B|
00022490 25 3d 78 25 3a 41 25 3d 61 64 64 72 25 2b 64 69 |%=x%:A%=addr%+di|
000224a0 73 74 25 0d d6 88 0c e7 79 72 25 80 31 20 8c 0d |st%.....yr%.1 ..|
000224b0 d6 92 32 d6 66 73 25 2c 63 6f 6c 73 74 65 70 25 |..2.fs%,colstep%|
000224c0 2c 63 6c 25 28 31 2c 30 29 2c 6e 6c 25 28 31 2c |,cl%(1,0),nl%(1,|
000224d0 30 29 2c 61 64 64 72 25 2c 73 74 65 70 25 2c 42 |0),addr%,step%,B|
000224e0 25 0d d6 9c 05 cc 0d d6 a6 37 d6 66 73 25 2c 6f |%........7.fs%,o|
000224f0 64 64 63 6f 6c 73 74 65 70 25 2c 63 6c 25 28 78 |ddcolstep%,cl%(x|
00022500 25 2c 30 29 2c 6e 6c 25 28 78 25 2c 30 29 2c 41 |%,0),nl%(x%,0),A|
00022510 25 2c 6f 64 64 73 74 65 70 25 2c 42 25 0d d6 b0 |%,oddstep%,B%...|
00022520 05 cd 0d d6 ba 18 c8 99 77 6c 25 2c 6a 70 65 67 |........wl%,jpeg|
00022530 74 61 67 25 2c 61 64 64 72 25 0d d6 c4 05 ed 0d |tag%,addr%......|
00022540 d6 ce 05 cd 0d d6 d8 05 cd 0d d6 e2 30 c8 99 22 |............0.."|
00022550 43 6f 6d 70 72 65 73 73 4a 50 45 47 5f 46 69 6e |CompressJPEG_Fin|
00022560 69 73 68 22 2c 6a 70 65 67 74 61 67 25 20 b8 20 |ish",jpegtag% . |
00022570 6a 70 65 67 73 69 7a 65 25 0d d6 ec 05 cc 0d d6 |jpegsize%.......|
00022580 f6 39 e7 73 79 25 3d 79 25 20 80 20 73 78 25 3d |.9.sy%=y% . sx%=|
00022590 78 25 20 80 20 72 61 6e 67 65 25 3d a3 20 80 20 |x% . range%=. . |
000225a0 73 68 61 72 70 65 6e 25 3d a3 20 80 20 65 71 75 |sharpen%=. . equ|
000225b0 61 6c 25 3d a3 20 8c 0d d7 00 0e e7 64 69 74 68 |al%=. ......dith|
000225c0 65 72 25 20 8c 0d d7 0a 40 e3 79 72 25 3d 30 20 |er% ....@.yr%=0 |
000225d0 b8 20 79 25 2d 31 3a c8 99 68 6f 75 72 25 2c 79 |. y%-1:..hour%,y|
000225e0 72 25 2a 31 30 30 81 79 25 3a e7 61 64 64 72 25 |r%*100.y%:.addr%|
000225f0 3e 6f 75 74 6c 69 6d 25 20 f2 66 6c 75 73 68 6f |>outlim% .flusho|
00022600 75 74 70 75 74 0d d7 14 4f 57 25 3d a0 28 72 24 |utput...OW%=.(r$|
00022610 2b 22 28 63 6c 25 28 29 29 22 29 3a 63 6c 25 28 |+"(cl%())"):cl%(|
00022620 29 3d 63 6c 25 28 29 2b 6e 6c 25 28 29 3a 6e 6c |)=cl%()+nl%():nl|
00022630 25 28 29 3d 30 3a 42 25 3d 78 25 3a 41 25 3d 61 |%()=0:B%=x%:A%=a|
00022640 64 64 72 25 3a 61 64 64 72 25 2b 3d 72 6f 77 73 |ddr%:addr%+=rows|
00022650 74 65 70 25 0d d7 1e 0c e7 79 72 25 80 31 20 8c |tep%.....yr%.1 .|
00022660 0d d7 28 2f d6 66 73 25 2c 63 6f 6c 73 74 65 70 |..(/.fs%,colstep|
00022670 25 2c 63 6c 25 28 31 2c 30 29 2c 6e 6c 25 28 31 |%,cl%(1,0),nl%(1|
00022680 2c 30 29 2c 41 25 2c 73 74 65 70 25 2c 42 25 0d |,0),A%,step%,B%.|
00022690 d7 32 05 cc 0d d7 3c 41 41 25 2b 3d 64 69 73 74 |.2....<AA%+=dist|
000226a0 25 3a d6 66 73 25 2c 6f 64 64 63 6f 6c 73 74 65 |%:.fs%,oddcolste|
000226b0 70 25 2c 63 6c 25 28 78 25 2c 30 29 2c 6e 6c 25 |p%,cl%(x%,0),nl%|
000226c0 28 78 25 2c 30 29 2c 41 25 2c 6f 64 64 73 74 65 |(x%,0),A%,oddste|
000226d0 70 25 2c 42 25 0d d7 46 05 cd 0d d7 50 05 ed 0d |p%,B%..F....P...|
000226e0 d7 5a 05 cc 0d d7 64 47 49 25 3d 73 74 65 70 25 |.Z....dGI%=step%|
000226f0 3a e3 79 72 25 3d 30 b8 79 25 2d 31 3a c8 99 68 |:.yr%=0.y%-1:..h|
00022700 6f 75 72 25 2c 79 72 25 2a 31 30 30 81 79 25 3a |our%,yr%*100.y%:|
00022710 e7 61 64 64 72 25 3e 6f 75 74 6c 69 6d 25 20 f2 |.addr%>outlim% .|
00022720 66 6c 75 73 68 6f 75 74 70 75 74 0d d7 6e 58 57 |flushoutput..nXW|
00022730 25 3d a0 28 72 24 2b 22 28 63 6c 25 28 29 29 22 |%=.(r$+"(cl%())"|
00022740 29 3a 42 25 3d 78 25 3a 41 25 3d 61 64 64 72 25 |):B%=x%:A%=addr%|
00022750 3a 61 64 64 72 25 2b 3d 72 6f 77 73 74 65 70 25 |:addr%+=rowstep%|
00022760 3a d6 66 73 25 2c 63 6f 6c 73 74 65 70 25 2c 63 |:.fs%,colstep%,c|
00022770 6c 25 28 31 2c 30 29 2c 49 25 2c 41 25 2c 49 25 |l%(1,0),I%,A%,I%|
00022780 2c 42 25 0d d7 78 05 ed 0d d7 82 05 cd 0d d7 8c |,B%..x..........|
00022790 05 cc 0d d7 96 0d e7 65 71 75 61 6c 25 20 8c 0d |.......equal% ..|
000227a0 d7 a0 39 f2 72 65 77 69 6e 64 3a 48 61 76 67 25 |..9.rewind:Havg%|
000227b0 3d c6 8e 28 76 61 6c 73 25 28 29 29 2f 32 35 36 |=..(vals%())/256|
000227c0 2f 28 63 6f 6c 2b 31 29 3a de 20 6e 65 77 25 28 |/(col+1):. new%(|
000227d0 32 35 36 2c 63 6f 6c 29 0d d7 aa 3e e3 42 25 3d |256,col)...>.B%=|
000227e0 30 b8 63 6f 6c 3a 52 25 3d 30 3a 48 69 6e 74 25 |0.col:R%=0:Hint%|
000227f0 3d 30 3a e3 5a 25 3d 30 b8 32 35 36 3a 4c 25 3d |=0:.Z%=0.256:L%=|
00022800 52 25 3a 48 69 6e 74 25 2b 3d 76 61 6c 73 25 28 |R%:Hint%+=vals%(|
00022810 5a 25 2c 42 25 29 0d d7 b4 26 c8 95 48 69 6e 74 |Z%,B%)...&..Hint|
00022820 25 3e 48 61 76 67 25 3a 48 69 6e 74 25 2d 3d 48 |%>Havg%:Hint%-=H|
00022830 61 76 67 25 3a 52 25 2b 3d 31 3a ce 0d d7 be 1f |avg%:R%+=1:.....|
00022840 6e 65 77 25 28 5a 25 2c 42 25 29 3d 28 4c 25 2b |new%(Z%,B%)=(L%+|
00022850 52 25 29 2f 32 2a 46 2f 32 35 36 0d d7 c8 07 ed |R%)/2*F/256.....|
00022860 3a ed 0d d7 d2 05 cd 0d d7 dc 0f e7 73 68 61 72 |:...........shar|
00022870 70 65 6e 25 20 8c 0d d7 e6 0d e7 6f 72 64 65 72 |pen% ......order|
00022880 25 20 8c 0d d7 f0 3a 79 72 65 61 64 25 3d 73 79 |% ....:yread%=sy|
00022890 25 2d 31 3a 57 25 3d a0 28 72 24 2b 22 28 72 6d |%-1:W%=.(r$+"(rm|
000228a0 31 25 28 29 29 22 29 3a e7 65 71 75 61 6c 25 20 |1%())"):.equal% |
000228b0 f2 66 69 74 32 28 72 6d 31 25 28 29 29 0d d7 fa |.fit2(rm1%())...|
000228c0 41 e3 42 25 3d 30 b8 63 6f 6c 3a 72 6d 31 25 28 |A.B%=0.col:rm1%(|
000228d0 30 2c 42 25 29 3d 72 6d 31 25 28 31 2c 42 25 29 |0,B%)=rm1%(1,B%)|
000228e0 3a 72 6d 31 25 28 73 78 25 2b 31 2c 42 25 29 3d |:rm1%(sx%+1,B%)=|
000228f0 72 6d 31 25 28 73 78 25 2c 42 25 29 3a ed 0d d8 |rm1%(sx%,B%):...|
00022900 04 05 cc 0d d8 0e 3c 79 72 65 61 64 25 3d 79 25 |......<yread%=y%|
00022910 2d 31 3a f2 73 63 61 6c 65 64 70 69 78 65 6c 72 |-1:.scaledpixelr|
00022920 6f 77 28 72 6d 31 25 28 29 29 3a e7 65 71 75 61 |ow(rm1%()):.equa|
00022930 6c 25 20 f2 66 69 74 28 72 6d 31 25 28 29 29 0d |l% .fit(rm1%()).|
00022940 d8 18 3f e3 42 25 3d 30 b8 63 6f 6c 3a 72 6d 31 |..?.B%=0.col:rm1|
00022950 25 28 30 2c 42 25 29 3d 72 6d 31 25 28 31 2c 42 |%(0,B%)=rm1%(1,B|
00022960 25 29 3a 72 6d 31 25 28 78 25 2b 31 2c 42 25 29 |%):rm1%(x%+1,B%)|
00022970 3d 72 6d 31 25 28 78 25 2c 42 25 29 3a ed 0d d8 |=rm1%(x%,B%):...|
00022980 22 05 cd 0d d8 2c 11 72 6d 32 25 28 29 3d 72 6d |"....,.rm2%()=rm|
00022990 31 25 28 29 0d d8 36 05 cd 0d d8 40 0d e7 6f 72 |1%()..6....@..or|
000229a0 64 65 72 25 20 8c 0d d8 4a 11 e3 79 72 25 3d 30 |der% ...J..yr%=0|
000229b0 20 b8 20 79 25 2d 31 0d d8 54 32 c8 99 68 6f 75 | . y%-1..T2..hou|
000229c0 72 25 2c 79 72 25 2a 31 30 30 81 79 25 3a e7 61 |r%,yr%*100.y%:.a|
000229d0 64 64 72 25 3e 6f 75 74 6c 69 6d 25 20 f2 66 6c |ddr%>outlim% .fl|
000229e0 75 73 68 6f 75 74 70 75 74 0d d8 5e 0d e7 73 79 |ushoutput..^..sy|
000229f0 25 3d 79 25 20 8c 0d d8 68 19 f2 73 68 61 72 70 |%=y% ...h..sharp|
00022a00 70 69 78 65 6c 72 6f 77 28 63 6c 25 28 29 29 0d |pixelrow(cl%()).|
00022a10 d8 72 05 cc 0d d8 7c 3a 79 73 61 6d 70 25 2d 3d |.r....|:ysamp%-=|
00022a20 31 3a e7 79 73 61 6d 70 25 3d 30 20 f2 73 68 61 |1:.ysamp%=0 .sha|
00022a30 72 70 70 69 78 65 6c 72 6f 77 28 78 6c 25 28 29 |rppixelrow(xl%()|
00022a40 29 3a 79 73 61 6d 70 25 3d 79 6d 75 6c 25 0d d8 |):ysamp%=ymul%..|
00022a50 86 0e e7 79 64 69 76 25 3d 31 20 8c 0d d8 90 0f |...ydiv%=1 .....|
00022a60 63 6c 25 28 29 3d 78 6c 25 28 29 0d d8 9a 05 cc |cl%()=xl%().....|
00022a70 0d d8 a4 14 e7 79 73 61 6d 70 25 3e 3d 79 64 69 |.....ysamp%>=ydi|
00022a80 76 25 20 8c 0d d8 ae 23 79 73 61 6d 70 25 2d 3d |v% ....#ysamp%-=|
00022a90 79 64 69 76 25 3a 63 6c 25 28 29 3d 78 6c 25 28 |ydiv%:cl%()=xl%(|
00022aa0 29 2a 79 64 69 76 25 0d d8 b8 05 cc 0d d8 c2 2f |)*ydiv%......../|
00022ab0 63 6c 25 28 29 3d 78 6c 25 28 29 2a 79 73 61 6d |cl%()=xl%()*ysam|
00022ac0 70 25 3a 59 25 3d 79 64 69 76 25 2d 79 73 61 6d |p%:Y%=ydiv%-ysam|
00022ad0 70 25 3a 79 73 61 6d 70 25 3d 30 0d d8 cc 05 f5 |p%:ysamp%=0.....|
00022ae0 0d d8 d6 30 e7 79 73 61 6d 70 25 3d 30 20 f2 73 |...0.ysamp%=0 .s|
00022af0 68 61 72 70 70 69 78 65 6c 72 6f 77 28 78 6c 25 |harppixelrow(xl%|
00022b00 28 29 29 3a 79 73 61 6d 70 25 3d 79 6d 75 6c 25 |()):ysamp%=ymul%|
00022b10 0d d8 e0 10 e7 79 73 61 6d 70 25 3e 59 25 20 8c |.....ysamp%>Y% .|
00022b20 0d d8 ea 36 79 73 61 6d 70 25 2d 3d 59 25 3a 78 |...6ysamp%-=Y%:x|
00022b30 6c 32 25 28 29 3d 78 6c 25 28 29 2a 59 25 3a 63 |l2%()=xl%()*Y%:c|
00022b40 6c 25 28 29 3d 63 6c 25 28 29 2b 78 6c 32 25 28 |l%()=cl%()+xl2%(|
00022b50 29 3a 59 25 3d 30 0d d8 f4 05 cc 0d d8 fe 3e 59 |):Y%=0........>Y|
00022b60 25 2d 3d 79 73 61 6d 70 25 3a 78 6c 32 25 28 29 |%-=ysamp%:xl2%()|
00022b70 3d 78 6c 25 28 29 2a 79 73 61 6d 70 25 3a 63 6c |=xl%()*ysamp%:cl|
00022b80 25 28 29 3d 63 6c 25 28 29 2b 78 6c 32 25 28 29 |%()=cl%()+xl2%()|
00022b90 3a 79 73 61 6d 70 25 3d 30 0d d9 08 05 cd 0d d9 |:ysamp%=0.......|
00022ba0 12 0a fd 20 59 25 3d 30 0d d9 1c 05 cd 0d d9 26 |... Y%=0.......&|
00022bb0 0d 79 73 61 6d 70 25 2b 3d 31 0d d9 30 05 cd 0d |.ysamp%+=1..0...|
00022bc0 d9 3a 05 cd 0d d9 44 3c 63 6c 25 28 29 3d 63 6c |.:....D<cl%()=cl|
00022bd0 25 28 29 2b 6e 6c 25 28 29 3a 6e 6c 25 28 29 3d |%()+nl%():nl%()=|
00022be0 30 3a 42 25 3d 78 25 3a 41 25 3d 61 64 64 72 25 |0:B%=x%:A%=addr%|
00022bf0 3a 61 64 64 72 25 2b 3d 72 6f 77 73 74 65 70 25 |:addr%+=rowstep%|
00022c00 0d d9 4e 0c e7 79 72 25 80 31 20 8c 0d d9 58 2f |..N..yr%.1 ...X/|
00022c10 d6 66 73 25 2c 63 6f 6c 73 74 65 70 25 2c 63 6c |.fs%,colstep%,cl|
00022c20 25 28 31 2c 30 29 2c 6e 6c 25 28 31 2c 30 29 2c |%(1,0),nl%(1,0),|
00022c30 41 25 2c 73 74 65 70 25 2c 42 25 0d d9 62 05 cc |A%,step%,B%..b..|
00022c40 0d d9 6c 41 41 25 2b 3d 64 69 73 74 25 3a d6 66 |..lAA%+=dist%:.f|
00022c50 73 25 2c 6f 64 64 63 6f 6c 73 74 65 70 25 2c 63 |s%,oddcolstep%,c|
00022c60 6c 25 28 78 25 2c 30 29 2c 6e 6c 25 28 78 25 2c |l%(x%,0),nl%(x%,|
00022c70 30 29 2c 41 25 2c 6f 64 64 73 74 65 70 25 2c 42 |0),A%,oddstep%,B|
00022c80 25 0d d9 76 05 cd 0d d9 80 05 ed 0d d9 8a 05 cc |%..v............|
00022c90 0d d9 94 11 e3 79 72 25 3d 30 20 b8 20 79 25 2d |.....yr%=0 . y%-|
00022ca0 31 0d d9 9e 32 c8 99 68 6f 75 72 25 2c 79 72 25 |1...2..hour%,yr%|
00022cb0 2a 31 30 30 81 79 25 3a e7 61 64 64 72 25 3e 6f |*100.y%:.addr%>o|
00022cc0 75 74 6c 69 6d 25 20 f2 66 6c 75 73 68 6f 75 74 |utlim% .flushout|
00022cd0 70 75 74 0d d9 a8 0f e7 73 68 61 72 70 65 6e 25 |put.....sharpen%|
00022ce0 20 8c 0d d9 b2 40 e7 79 72 65 61 64 25 20 79 72 | ....@.yread% yr|
00022cf0 65 61 64 25 2d 3d 31 3a f2 73 63 61 6c 65 64 70 |ead%-=1:.scaledp|
00022d00 69 78 65 6c 72 6f 77 28 72 6d 25 28 29 29 3a e7 |ixelrow(rm%()):.|
00022d10 65 71 75 61 6c 25 20 f2 66 69 74 28 72 6d 25 28 |equal% .fit(rm%(|
00022d20 29 29 0d d9 bc 3b e3 42 25 3d 30 b8 63 6f 6c 3a |))...;.B%=0.col:|
00022d30 72 6d 25 28 30 2c 42 25 29 3d 72 6d 25 28 31 2c |rm%(0,B%)=rm%(1,|
00022d40 42 25 29 3a 72 6d 25 28 78 25 2b 31 2c 42 25 29 |B%):rm%(x%+1,B%)|
00022d50 3d 72 6d 25 28 78 25 2c 42 25 29 3a ed 0d d9 c6 |=rm%(x%,B%):....|
00022d60 3b d6 20 73 68 61 72 70 25 2c 63 6c 25 28 31 2c |;. sharp%,cl%(1,|
00022d70 30 29 2c 72 6d 25 28 31 2c 30 29 2c 72 6d 31 25 |0),rm%(1,0),rm1%|
00022d80 28 31 2c 30 29 2c 72 6d 32 25 28 31 2c 30 29 2c |(1,0),rm2%(1,0),|
00022d90 74 6f 74 76 61 6c 73 25 0d d9 d0 21 c8 94 20 72 |totvals%...!.. r|
00022da0 6d 32 25 28 29 2c 72 6d 31 25 28 29 3a 72 6d 31 |m2%(),rm1%():rm1|
00022db0 25 28 29 3d 72 6d 25 28 29 0d d9 da 05 cc 0d d9 |%()=rm%().......|
00022dc0 e4 2e f2 73 63 61 6c 65 64 70 69 78 65 6c 72 6f |...scaledpixelro|
00022dd0 77 28 63 6c 25 28 29 29 3a e7 65 71 75 61 6c 25 |w(cl%()):.equal%|
00022de0 20 f2 66 69 74 28 63 6c 25 28 29 29 0d d9 ee 05 | .fit(cl%())....|
00022df0 cd 0d d9 f8 3c 63 6c 25 28 29 3d 63 6c 25 28 29 |....<cl%()=cl%()|
00022e00 2b 6e 6c 25 28 29 3a 6e 6c 25 28 29 3d 30 3a 42 |+nl%():nl%()=0:B|
00022e10 25 3d 78 25 3a 41 25 3d 61 64 64 72 25 3a 61 64 |%=x%:A%=addr%:ad|
00022e20 64 72 25 2b 3d 72 6f 77 73 74 65 70 25 0d da 02 |dr%+=rowstep%...|
00022e30 0c e7 79 72 25 80 31 20 8c 0d da 0c 2f d6 66 73 |..yr%.1 ..../.fs|
00022e40 25 2c 63 6f 6c 73 74 65 70 25 2c 63 6c 25 28 31 |%,colstep%,cl%(1|
00022e50 2c 30 29 2c 6e 6c 25 28 31 2c 30 29 2c 41 25 2c |,0),nl%(1,0),A%,|
00022e60 73 74 65 70 25 2c 42 25 0d da 16 05 cc 0d da 20 |step%,B%....... |
00022e70 41 41 25 2b 3d 64 69 73 74 25 3a d6 66 73 25 2c |AA%+=dist%:.fs%,|
00022e80 6f 64 64 63 6f 6c 73 74 65 70 25 2c 63 6c 25 28 |oddcolstep%,cl%(|
00022e90 78 25 2c 30 29 2c 6e 6c 25 28 78 25 2c 30 29 2c |x%,0),nl%(x%,0),|
00022ea0 41 25 2c 6f 64 64 73 74 65 70 25 2c 42 25 0d da |A%,oddstep%,B%..|
00022eb0 2a 05 cd 0d da 34 05 ed 0d da 3e 05 cd 0d da 48 |*....4....>....H|
00022ec0 05 cd 0d da 52 12 e7 6d 3d 2d 31 31 84 6d 3d 2d |....R..m=-11.m=-|
00022ed0 31 32 20 8c 0d da 5c 3f c8 99 20 22 4f 53 5f 53 |12 ...\?.. "OS_S|
00022ee0 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 |WINumberFromStri|
00022ef0 6e 67 22 2c 2c 22 43 6f 6d 70 72 65 73 73 4a 50 |ng",,"CompressJP|
00022f00 45 47 5f 57 72 69 74 65 4c 69 6e 65 22 20 b8 20 |EG_WriteLine" . |
00022f10 77 6c 25 0d da 66 0c e7 6d 3d 2d 31 31 20 8c 0d |wl%..f..m=-11 ..|
00022f20 da 70 4e 21 72 61 6d 25 3d 78 73 70 25 3a 72 61 |.pN!ram%=xsp%:ra|
00022f30 6d 25 21 34 3d 79 73 70 25 3a 72 61 6d 25 21 38 |m%!4=ysp%:ram%!8|
00022f40 3d 6a 70 65 67 71 75 61 6c 69 74 79 25 3a 72 61 |=jpegquality%:ra|
00022f50 6d 25 21 31 32 3d 31 3a 72 61 6d 25 21 31 36 3d |m%!12=1:ram%!16=|
00022f60 39 30 3a 72 61 6d 25 21 32 30 3d 39 30 0d da 7a |90:ram%!20=90..z|
00022f70 50 c8 99 22 43 6f 6d 70 72 65 73 73 4a 50 45 47 |P.."CompressJPEG|
00022f80 5f 53 74 61 72 74 22 2c 72 61 6d 25 2c 73 7a 25 |_Start",ram%,sz%|
00022f90 2c 72 61 6d 25 2c 6a 70 65 67 77 72 6b 25 2c 28 |,ram%,jpegwrk%,(|
00022fa0 78 73 70 25 2b 37 80 ac 37 29 2a 39 2b 32 30 30 |xsp%+7..7)*9+200|
00022fb0 30 30 20 b8 20 6a 70 65 67 74 61 67 25 0d da 84 |00 . jpegtag%...|
00022fc0 05 cc 0d da 8e 4e 21 72 61 6d 25 3d 78 73 70 25 |.....N!ram%=xsp%|
00022fd0 3a 72 61 6d 25 21 34 3d 79 73 70 25 3a 72 61 6d |:ram%!4=ysp%:ram|
00022fe0 25 21 38 3d 6a 70 65 67 71 75 61 6c 69 74 79 25 |%!8=jpegquality%|
00022ff0 3a 72 61 6d 25 21 31 32 3d 33 3a 72 61 6d 25 21 |:ram%!12=3:ram%!|
00023000 31 36 3d 39 30 3a 72 61 6d 25 21 32 30 3d 39 30 |16=90:ram%!20=90|
00023010 0d da 98 53 c8 99 22 43 6f 6d 70 72 65 73 73 4a |...S.."CompressJ|
00023020 50 45 47 5f 53 74 61 72 74 22 2c 72 61 6d 25 2c |PEG_Start",ram%,|
00023030 73 7a 25 2c 72 61 6d 25 2c 6a 70 65 67 77 72 6b |sz%,ram%,jpegwrk|
00023040 25 2c 28 78 73 70 25 2b 31 35 80 ac 31 35 29 2a |%,(xsp%+15..15)*|
00023050 33 30 2b 32 30 30 30 30 20 b8 20 6a 70 65 67 74 |30+20000 . jpegt|
00023060 61 67 25 0d da a2 05 cd 0d da ac 14 61 64 64 72 |ag%.........addr|
00023070 25 3d 72 61 6d 25 2b 32 30 30 30 30 0d da b6 11 |%=ram%+20000....|
00023080 e3 79 72 25 3d 30 b8 79 73 70 25 2d 31 0d da c0 |.yr%=0.ysp%-1...|
00023090 3c c8 99 68 6f 75 72 25 2c 79 72 25 2a 31 30 30 |<..hour%,yr%*100|
000230a0 81 79 73 70 25 3a c8 99 77 6c 25 2c 6a 70 65 67 |.ysp%:..wl%,jpeg|
000230b0 74 61 67 25 2c 61 64 64 72 25 3a 61 64 64 72 25 |tag%,addr%:addr%|
000230c0 2b 3d 78 77 6f 72 64 73 25 0d da ca 05 ed 0d da |+=xwords%.......|
000230d0 d4 30 c8 99 22 43 6f 6d 70 72 65 73 73 4a 50 45 |.0.."CompressJPE|
000230e0 47 5f 46 69 6e 69 73 68 22 2c 6a 70 65 67 74 61 |G_Finish",jpegta|
000230f0 67 25 20 b8 20 6a 70 65 67 73 69 7a 65 25 0d da |g% . jpegsize%..|
00023100 de 05 cd 0d da e8 05 cd 0d da f2 17 63 70 75 74 |............cput|
00023110 69 6d 65 25 3d 91 2d 63 70 75 74 69 6d 65 25 0d |ime%=.-cputime%.|
00023120 da fc 09 f2 53 61 76 65 0d db 06 06 3d 30 0d db |....Save....=0..|
00023130 10 12 dd 20 f2 73 72 63 68 64 65 76 6c 69 73 74 |... .srchdevlist|
00023140 0d db 1a 0a 5b 4f 50 54 20 5a 0d db 38 25 43 4d |....[OPT Z..8%CM|
00023150 50 20 52 34 2c 23 46 3a 4d 4f 56 43 53 20 52 34 |P R4,#F:MOVCS R4|
00023160 2c 23 30 3a 4d 4f 56 47 45 20 52 34 2c 23 46 0d |,#0:MOVGE R4,#F.|
00023170 db 42 3e 4d 4f 56 20 52 30 2c 52 34 2c 4c 53 52 |.B>MOV R0,R4,LSR|
00023180 20 23 28 62 69 74 73 2d 6b 25 29 3a 43 4d 50 20 | #(bits-k%):CMP |
00023190 52 30 2c 23 31 3c 3c 6b 25 3a 4d 4f 56 43 53 20 |R0,#1<<k%:MOVCS |
000231a0 52 30 2c 23 28 31 3c 3c 6b 25 29 2d 31 0d db 4c |R0,#(1<<k%)-1..L|
000231b0 25 43 4d 50 20 52 35 2c 23 46 3a 4d 4f 56 43 53 |%CMP R5,#F:MOVCS|
000231c0 20 52 35 2c 23 30 3a 4d 4f 56 47 45 20 52 35 2c | R5,#0:MOVGE R5,|
000231d0 23 46 0d db 56 52 4d 4f 56 20 52 33 2c 52 35 2c |#F..VRMOV R3,R5,|
000231e0 4c 53 52 20 23 28 62 69 74 73 2d 6b 25 29 3a 43 |LSR #(bits-k%):C|
000231f0 4d 50 20 52 33 2c 23 31 3c 3c 6b 25 3a 4d 4f 56 |MP R3,#1<<k%:MOV|
00023200 43 53 20 52 33 2c 23 28 31 3c 3c 6b 25 29 2d 31 |CS R3,#(1<<k%)-1|
00023210 3a 84 52 20 52 30 2c 52 30 2c 52 33 2c 4c 53 4c |:.R R0,R0,R3,LSL|
00023220 20 23 6b 25 0d db 60 25 43 4d 50 20 52 36 2c 23 | #k%..`%CMP R6,#|
00023230 46 3a 4d 4f 56 43 53 20 52 36 2c 23 30 3a 4d 4f |F:MOVCS R6,#0:MO|
00023240 56 47 45 20 52 36 2c 23 46 0d db 6a 54 4d 4f 56 |VGE R6,#F..jTMOV|
00023250 20 52 33 2c 52 36 2c 4c 53 52 20 23 28 62 69 74 | R3,R6,LSR #(bit|
00023260 73 2d 6b 25 29 3a 43 4d 50 20 52 33 2c 23 31 3c |s-k%):CMP R3,#1<|
00023270 3c 6b 25 3a 4d 4f 56 43 53 20 52 33 2c 23 28 31 |<k%:MOVCS R3,#(1|
00023280 3c 3c 6b 25 29 2d 31 3a 84 52 20 52 30 2c 52 30 |<<k%)-1:.R R0,R0|
00023290 2c 52 33 2c 4c 53 4c 20 23 6b 25 2a 32 0d db 88 |,R3,LSL #k%*2...|
000232a0 1e 53 54 4d 46 44 20 53 50 20 21 2c 7b 52 38 2c |.STMFD SP !,{R8,|
000232b0 52 39 2c 52 31 30 2c 52 31 31 7d 0d db 92 11 4c |R9,R10,R11}....L|
000232c0 44 52 20 72 33 2c 69 63 74 6c 6f 63 0d db 9c 19 |DR r3,ictloc....|
000232d0 4c 44 52 20 72 32 2c 5b 72 33 2c 72 30 2c 4c 53 |LDR r2,[r3,r0,LS|
000232e0 4c 20 23 32 5d 0d db b0 16 4d 4f 56 20 72 31 34 |L #2]....MOV r14|
000232f0 2c 72 32 2c 6c 73 72 20 23 32 34 0d db ba 0e 43 |,r2,lsr #24....C|
00023300 4d 50 20 72 31 34 2c 23 34 0d db c4 19 41 44 44 |MP r14,#4....ADD|
00023310 43 43 20 72 32 2c 72 33 2c 72 30 2c 6c 73 6c 20 |CC r2,r3,r0,lsl |
00023320 23 32 0d db ce 1a 42 49 43 43 53 20 72 32 2c 72 |#2....BICCS r2,r|
00023330 32 2c 23 26 66 66 30 30 30 30 30 30 0d db d8 13 |2,#&ff000000....|
00023340 4c 44 52 42 20 72 30 2c 5b 72 32 5d 2c 23 31 0d |LDRB r0,[r2],#1.|
00023350 db e2 13 53 55 42 53 20 72 31 34 2c 72 31 34 2c |...SUBS r14,r14,|
00023360 23 31 0d db ec 0d 42 45 51 20 67 6f 74 69 74 0d |#1....BEQ gotit.|
00023370 dc 00 17 41 44 44 20 72 33 2c 72 30 2c 72 30 2c |...ADD r3,r0,r0,|
00023380 6c 73 6c 20 23 31 0d dc 0a 17 41 44 44 20 72 33 |lsl #1....ADD r3|
00023390 2c 72 37 2c 72 33 2c 6c 73 6c 20 23 32 0d dc 14 |,r7,r3,lsl #2...|
000233a0 18 4c 44 4d 49 41 20 72 33 2c 7b 72 38 2c 72 39 |.LDMIA r3,{r8,r9|
000233b0 2c 72 31 30 7d 0d dc 1e 11 53 55 42 53 20 72 38 |,r10}....SUBS r8|
000233c0 2c 72 38 2c 72 34 0d dc 28 12 52 53 42 4d 49 20 |,r8,r4..(.RSBMI |
000233d0 72 38 2c 72 38 2c 23 30 0d dc 32 19 4d 4f 56 20 |r8,r8,#0..2.MOV |
000233e0 72 38 2c 72 38 2c 6c 73 72 20 23 62 69 74 73 2f |r8,r8,lsr #bits/|
000233f0 32 0d dc 3c 11 53 55 42 53 20 72 39 2c 72 39 2c |2..<.SUBS r9,r9,|
00023400 72 35 0d dc 46 12 52 53 42 4d 49 20 72 39 2c 72 |r5..F.RSBMI r9,r|
00023410 39 2c 23 30 0d dc 50 19 4d 4f 56 20 72 39 2c 72 |9,#0..P.MOV r9,r|
00023420 39 2c 6c 73 72 20 23 62 69 74 73 2f 32 0d dc 5a |9,lsr #bits/2..Z|
00023430 13 53 55 42 53 20 72 31 30 2c 72 31 30 2c 72 36 |.SUBS r10,r10,r6|
00023440 0d dc 64 14 52 53 42 4d 49 20 72 31 30 2c 72 31 |..d.RSBMI r10,r1|
00023450 30 2c 23 30 0d dc 6e 1b 4d 4f 56 20 72 31 30 2c |0,#0..n.MOV r10,|
00023460 72 31 30 2c 6c 73 72 20 23 62 69 74 73 2f 32 0d |r10,lsr #bits/2.|
00023470 dc 78 10 4d 55 4c 20 72 33 2c 72 38 2c 72 38 0d |.x.MUL r3,r8,r8.|
00023480 dc 82 11 4d 55 4c 20 72 31 31 2c 72 39 2c 72 39 |...MUL r11,r9,r9|
00023490 0d dc 8c 1a 41 44 44 20 72 31 31 2c 72 31 31 2c |....ADD r11,r11,|
000234a0 72 31 31 2c 4c 53 4c 20 23 32 0d dc 96 17 41 44 |r11,LSL #2....AD|
000234b0 44 20 72 33 2c 72 33 2c 72 33 2c 4c 53 4c 20 23 |D r3,r3,r3,LSL #|
000234c0 31 0d dc a0 18 41 44 44 20 72 33 2c 72 33 2c 72 |1....ADD r3,r3,r|
000234d0 31 31 2c 4c 53 4c 20 23 31 0d dc aa 16 4d 4c 41 |11,LSL #1....MLA|
000234e0 20 72 31 31 2c 72 31 30 2c 72 31 30 2c 72 33 0d | r11,r10,r10,r3.|
000234f0 dc be 0d 2e 73 72 63 68 6c 69 73 74 0d dc c8 13 |....srchlist....|
00023500 4c 44 52 42 20 72 33 2c 5b 72 32 5d 2c 23 31 0d |LDRB r3,[r2],#1.|
00023510 dc d2 17 41 44 44 20 52 38 2c 52 33 2c 52 33 2c |...ADD R8,R3,R3,|
00023520 4c 53 4c 20 23 31 0d dc dc 17 41 44 44 20 52 38 |LSL #1....ADD R8|
00023530 2c 52 37 2c 52 38 2c 4c 53 4c 20 23 32 0d dc e6 |,R7,R8,LSL #2...|
00023540 18 4c 44 4d 49 41 20 52 38 2c 7b 52 38 2c 52 39 |.LDMIA R8,{R8,R9|
00023550 2c 52 31 30 7d 0d dc f0 11 53 55 42 53 20 52 39 |,R10}....SUBS R9|
00023560 2c 52 35 2c 52 39 0d dc fa 12 52 53 42 4d 49 20 |,R5,R9....RSBMI |
00023570 52 39 2c 52 39 2c 23 30 0d dd 04 19 4d 4f 56 20 |R9,R9,#0....MOV |
00023580 52 33 2c 52 39 2c 4c 53 52 20 23 62 69 74 73 2f |R3,R9,LSR #bits/|
00023590 32 0d dd 0e 10 4d 55 4c 20 52 39 2c 52 33 2c 52 |2....MUL R9,R3,R|
000235a0 33 0d dd 18 17 41 44 44 20 72 39 2c 72 39 2c 72 |3....ADD r9,r9,r|
000235b0 39 2c 4c 53 4c 20 23 32 0d dd 22 15 43 4d 50 20 |9,LSL #2..".CMP |
000235c0 52 31 31 2c 52 39 2c 4c 53 4c 20 23 31 0d dd 2c |R11,R9,LSL #1..,|
000235d0 11 42 43 43 20 73 72 63 68 71 75 69 63 6b 0d dd |.BCC srchquick..|
000235e0 36 11 53 55 42 53 20 52 38 2c 52 34 2c 52 38 0d |6.SUBS R8,R4,R8.|
000235f0 dd 40 12 52 53 42 4d 49 20 52 38 2c 52 38 2c 23 |.@.RSBMI R8,R8,#|
00023600 30 0d dd 4a 19 4d 4f 56 20 52 33 2c 52 38 2c 4c |0..J.MOV R3,R8,L|
00023610 53 52 20 23 62 69 74 73 2f 32 0d dd 54 10 4d 55 |SR #bits/2..T.MU|
00023620 4c 20 52 38 2c 72 33 2c 72 33 0d dd 5e 17 41 44 |L R8,r3,r3..^.AD|
00023630 44 20 72 38 2c 72 38 2c 72 38 2c 4c 53 4c 20 23 |D r8,r8,r8,LSL #|
00023640 31 0d dd 68 17 41 44 44 20 72 38 2c 72 38 2c 72 |1..h.ADD r8,r8,r|
00023650 39 2c 4c 53 4c 20 23 31 0d dd 72 13 53 55 42 53 |9,LSL #1..r.SUBS|
00023660 20 52 31 30 2c 52 36 2c 52 31 30 0d dd 7c 14 52 | R10,R6,R10..|.R|
00023670 53 42 4d 49 20 52 31 30 2c 52 31 30 2c 23 30 0d |SBMI R10,R10,#0.|
00023680 dd 86 1a 4d 4f 56 20 52 33 2c 52 31 30 2c 4c 53 |...MOV R3,R10,LS|
00023690 52 20 23 62 69 74 73 2f 32 0d dd 90 14 4d 4c 41 |R #bits/2....MLA|
000236a0 20 52 31 30 2c 52 33 2c 52 33 2c 52 38 0d dd 9a | R10,R3,R3,R8...|
000236b0 0f 43 4d 50 20 52 31 30 2c 52 31 31 0d dd a4 11 |.CMP R10,R11....|
000236c0 4d 4f 56 43 43 20 52 31 31 2c 52 31 30 0d dd ae |MOVCC R11,R10...|
000236d0 16 4c 44 52 43 43 42 20 52 30 2c 5b 72 32 2c 23 |.LDRCCB R0,[r2,#|
000236e0 2d 31 5d 0d dd b8 0e 2e 73 72 63 68 71 75 69 63 |-1].....srchquic|
000236f0 6b 0d dd c2 13 53 55 42 53 20 52 31 34 2c 52 31 |k....SUBS R14,R1|
00023700 34 2c 23 31 0d dd cc 10 42 4e 45 20 73 72 63 68 |4,#1....BNE srch|
00023710 6c 69 73 74 0d dd d6 0a 2e 67 6f 74 69 74 0d dd |list.....gotit..|
00023720 e0 2b 41 44 44 20 52 33 2c 52 30 2c 52 30 2c 4c |.+ADD R3,R0,R0,L|
00023730 53 4c 20 23 31 3a 41 44 44 20 52 33 2c 52 37 2c |SL #1:ADD R3,R7,|
00023740 52 33 2c 4c 53 4c 20 23 32 0d dd ea 18 4c 44 4d |R3,LSL #2....LDM|
00023750 49 41 20 52 33 2c 7b 52 38 2c 52 39 2c 52 31 30 |IA R3,{R8,R9,R10|
00023760 7d 0d dd f4 2b 53 55 42 20 52 34 2c 52 34 2c 52 |}...+SUB R4,R4,R|
00023770 38 3a 53 55 42 20 52 35 2c 52 35 2c 52 39 3a 53 |8:SUB R5,R5,R9:S|
00023780 55 42 20 52 36 2c 52 36 2c 52 31 30 0d dd fe 1e |UB R6,R6,R10....|
00023790 4c 44 4d 46 44 20 72 31 33 21 2c 7b 52 38 2c 52 |LDMFD r13!,{R8,R|
000237a0 39 2c 52 31 30 2c 52 31 31 7d 0d de 08 05 5d 0d |9,R10,R11}....].|
000237b0 de 12 05 e1 0d de 1c 1f dd 20 f2 67 65 74 6f 75 |......... .getou|
000237c0 74 70 75 74 28 41 25 2c 45 25 2c 42 25 2c f8 20 |tput(A%,E%,B%,. |
000237d0 43 25 29 0d de 26 25 e7 41 25 3e 6d 61 78 25 20 |C%)..&%.A%>max% |
000237e0 80 20 72 6f 74 61 74 65 25 3d a3 20 80 20 76 66 |. rotate%=. . vf|
000237f0 6c 69 70 25 3d a3 20 8c 0d de 30 31 43 25 3d 6d |lip%=. ...01C%=m|
00023800 61 78 25 81 42 25 2b 31 3a 41 25 3d 78 77 6f 72 |ax%.B%+1:A%=xwor|
00023810 64 73 25 2a 43 25 2b 45 25 3a 66 69 72 73 74 25 |ds%*C%+E%:first%|
00023820 3d b9 3a 6f 25 3d ae 66 24 0d de 3a 05 cc 0d de |=.:o%=.f$..:....|
00023830 44 0a 41 25 2b 3d 45 25 0d de 4e 05 cd 0d de 58 |D.A%+=E%..N....X|
00023840 14 e7 73 70 72 69 74 65 61 72 65 61 25 3c 30 20 |..spritearea%<0 |
00023850 8c 0d de 62 2f 72 61 6d 25 3d a4 63 72 65 61 74 |...b/ram%=.creat|
00023860 65 61 72 65 61 28 41 25 29 3a e7 72 61 6d 25 3d |earea(A%):.ram%=|
00023870 2d 31 20 72 61 6d 25 3d a4 64 69 6d 28 41 25 29 |-1 ram%=.dim(A%)|
00023880 0d de 6c 05 cc 0d de 76 14 72 61 6d 25 3d 73 70 |..l....v.ram%=sp|
00023890 72 69 74 65 61 72 65 61 25 0d de 80 05 cd 0d de |ritearea%.......|
000238a0 8a 0c 21 72 61 6d 25 3d 41 25 0d de 94 05 e1 0d |..!ram%=A%......|
000238b0 de a8 18 dd 20 f2 67 65 74 6f 75 74 70 75 74 6a |.... .getoutputj|
000238c0 70 28 f8 20 41 25 29 0d de bc 14 e7 73 70 72 69 |p(. A%).....spri|
000238d0 74 65 61 72 65 61 25 3c 30 20 8c 0d de c6 33 72 |tearea%<0 ....3r|
000238e0 61 6d 25 3d a4 63 72 65 61 74 65 61 72 65 61 6a |am%=.createareaj|
000238f0 70 28 41 25 29 3a e7 72 61 6d 25 3d 2d 31 20 72 |p(A%):.ram%=-1 r|
00023900 61 6d 25 3d a4 64 69 6d 6a 70 28 41 25 29 0d de |am%=.dimjp(A%)..|
00023910 d0 05 cc 0d de da 14 72 61 6d 25 3d 73 70 72 69 |.......ram%=spri|
00023920 74 65 61 72 65 61 25 0d de e4 05 cd 0d de ee 0c |tearea%.........|
00023930 21 72 61 6d 25 3d 41 25 0d df 02 05 e1 0d df 16 |!ram%=A%........|
00023940 18 dd 20 a4 63 72 65 61 74 65 61 72 65 61 28 73 |.. .createarea(s|
00023950 69 7a 65 25 29 0d df 20 07 ea 20 85 0d df 2a 11 |ize%).. .. ...*.|
00023960 61 72 65 61 6e 75 6d 62 65 72 25 3d 30 0d df 34 |areanumber%=0..4|
00023970 0d ee 20 85 20 ea 3a 3d 2d 31 0d df 3e 5f c8 99 |.. . .:=-1..>_..|
00023980 20 26 32 30 30 36 36 2c 30 2c 2d 31 2c 73 69 7a | &20066,0,-1,siz|
00023990 65 25 2c 2d 31 2c 25 31 30 30 30 30 30 30 30 2c |e%,-1,%10000000,|
000239a0 73 69 7a 65 25 2c 30 2c 30 2c 22 43 68 61 6e 67 |size%,0,0,"Chang|
000239b0 65 46 53 49 20 73 70 72 69 74 65 22 20 b8 20 2c |eFSI sprite" . ,|
000239c0 61 72 65 61 6e 75 6d 62 65 72 25 2c 2c 61 72 65 |areanumber%,,are|
000239d0 61 62 61 73 65 25 3b 56 25 0d df 48 1c e7 56 25 |abase%;V%..H..V%|
000239e0 80 31 20 8c 61 72 65 61 6e 75 6d 62 65 72 25 3d |.1 .areanumber%=|
000239f0 30 3a 3d 2d 31 0d df 84 34 c8 99 20 22 4f 53 5f |0:=-1...4.. "OS_|
00023a00 52 65 61 64 44 79 6e 61 6d 69 63 41 72 65 61 22 |ReadDynamicArea"|
00023a10 2c 61 72 65 61 6e 75 6d 62 65 72 25 20 b8 20 2c |,areanumber% . ,|
00023a20 61 72 65 61 73 69 7a 65 25 0d df 8e 3d e7 20 61 |areasize%...=. a|
00023a30 72 65 61 73 69 7a 65 25 3c 73 69 7a 65 25 20 f2 |reasize%<size% .|
00023a40 72 65 6d 6f 76 65 61 72 65 61 3a 85 20 34 32 2c |removearea:. 42,|
00023a50 22 43 6f 75 6c 64 6e 27 74 20 63 72 65 61 74 65 |"Couldn't create|
00023a60 20 61 72 65 61 22 0d df 98 0e 3d 61 72 65 61 62 | area"....=areab|
00023a70 61 73 65 25 0d df ac 1c dd 20 a4 63 72 65 61 74 |ase%..... .creat|
00023a80 65 61 72 65 61 6a 70 28 f8 20 73 69 7a 65 25 29 |eareajp(. size%)|
00023a90 0d df b6 07 ea 20 85 0d df c0 11 61 72 65 61 6e |..... .....arean|
00023aa0 75 6d 62 65 72 25 3d 30 0d df ca 0d ee 20 85 20 |umber%=0..... . |
00023ab0 ea 3a 3d 2d 31 0d df d4 5d c8 99 20 26 32 30 30 |.:=-1...].. &200|
00023ac0 36 36 2c 30 2c 2d 31 2c 73 69 7a 65 25 2c 2d 31 |66,0,-1,size%,-1|
00023ad0 2c 25 31 30 30 30 30 30 30 30 2c 73 69 7a 65 25 |,%10000000,size%|
00023ae0 2c 30 2c 30 2c 22 43 68 61 6e 67 65 46 53 49 20 |,0,0,"ChangeFSI |
00023af0 4a 50 45 47 22 20 b8 20 2c 61 72 65 61 6e 75 6d |JPEG" . ,areanum|
00023b00 62 65 72 25 2c 2c 61 72 65 61 62 61 73 65 25 3b |ber%,,areabase%;|
00023b10 56 25 0d df de 1c e7 56 25 80 31 20 8c 61 72 65 |V%.....V%.1 .are|
00023b20 61 6e 75 6d 62 65 72 25 3d 30 3a 3d 2d 31 0d df |anumber%=0:=-1..|
00023b30 e8 44 c8 99 20 22 4f 53 5f 52 65 61 64 44 79 6e |.D.. "OS_ReadDyn|
00023b40 61 6d 69 63 41 72 65 61 22 2c 61 72 65 61 6e 75 |amicArea",areanu|
00023b50 6d 62 65 72 25 20 b8 20 2c 61 72 65 61 73 69 7a |mber% . ,areasiz|
00023b60 65 25 3a 73 69 7a 65 25 3d 61 72 65 61 73 69 7a |e%:size%=areasiz|
00023b70 65 25 0d df f2 0e 3d 61 72 65 61 62 61 73 65 25 |e%....=areabase%|
00023b80 0d e0 06 11 dd 20 f2 72 65 6d 6f 76 65 61 72 65 |..... .removeare|
00023b90 61 0d e0 10 40 e7 61 72 65 61 6e 75 6d 62 65 72 |a...@.areanumber|
00023ba0 25 20 c8 99 20 22 4f 53 5f 44 79 6e 61 6d 69 63 |% .. "OS_Dynamic|
00023bb0 41 72 65 61 22 2c 31 2c 61 72 65 61 6e 75 6d 62 |Area",1,areanumb|
00023bc0 65 72 25 3a 61 72 65 61 6e 75 6d 62 65 72 25 3d |er%:areanumber%=|
00023bd0 30 0d e0 1a 05 e1 0d e0 2e 16 dd 20 a4 63 61 63 |0.......... .cac|
00023be0 68 65 64 69 6d 28 73 69 7a 65 25 29 0d e0 38 07 |hedim(size%)..8.|
00023bf0 ea 20 85 0d e0 42 16 63 61 63 68 65 61 72 65 61 |. ...B.cachearea|
00023c00 6e 75 6d 62 65 72 25 3d 30 0d e0 4c 0d ee 20 85 |number%=0..L.. .|
00023c10 20 ea 3a 3d 2d 31 0d e0 56 68 c8 99 20 26 32 30 | .:=-1..Vh.. &20|
00023c20 30 36 36 2c 30 2c 2d 31 2c 73 69 7a 65 25 2c 2d |066,0,-1,size%,-|
00023c30 31 2c 25 31 30 30 30 30 30 30 30 2c 73 69 7a 65 |1,%10000000,size|
00023c40 25 2c 30 2c 30 2c 22 43 68 61 6e 67 65 46 53 49 |%,0,0,"ChangeFSI|
00023c50 20 63 61 63 68 65 22 20 b8 20 2c 63 61 63 68 65 | cache" . ,cache|
00023c60 61 72 65 61 6e 75 6d 62 65 72 25 2c 2c 63 61 63 |areanumber%,,cac|
00023c70 68 65 61 72 65 61 62 61 73 65 25 3b 56 25 0d e0 |heareabase%;V%..|
00023c80 60 21 e7 56 25 80 31 20 8c 63 61 63 68 65 61 72 |`!.V%.1 .cachear|
00023c90 65 61 6e 75 6d 62 65 72 25 3d 30 3a 3d 2d 31 0d |eanumber%=0:=-1.|
00023ca0 e0 6a 3e c8 99 20 22 4f 53 5f 52 65 61 64 44 79 |.j>.. "OS_ReadDy|
00023cb0 6e 61 6d 69 63 41 72 65 61 22 2c 63 61 63 68 65 |namicArea",cache|
00023cc0 61 72 65 61 6e 75 6d 62 65 72 25 20 b8 20 2c 63 |areanumber% . ,c|
00023cd0 61 63 68 65 61 72 65 61 73 69 7a 65 25 0d e0 74 |acheareasize%..t|
00023ce0 47 e7 20 63 61 63 68 65 61 72 65 61 73 69 7a 65 |G. cacheareasize|
00023cf0 25 3c 73 69 7a 65 25 20 f2 72 65 6d 6f 76 65 63 |%<size% .removec|
00023d00 61 63 68 65 61 72 65 61 3a 85 20 34 32 2c 22 43 |achearea:. 42,"C|
00023d10 6f 75 6c 64 6e 27 74 20 63 72 65 61 74 65 20 61 |ouldn't create a|
00023d20 72 65 61 22 0d e0 7e 13 3d 63 61 63 68 65 61 72 |rea"..~.=cachear|
00023d30 65 61 62 61 73 65 25 0d e0 92 16 dd 20 f2 72 65 |eabase%..... .re|
00023d40 6d 6f 76 65 63 61 63 68 65 61 72 65 61 0d e0 9c |movecachearea...|
00023d50 4f e7 63 61 63 68 65 61 72 65 61 6e 75 6d 62 65 |O.cacheareanumbe|
00023d60 72 25 20 c8 99 20 22 4f 53 5f 44 79 6e 61 6d 69 |r% .. "OS_Dynami|
00023d70 63 41 72 65 61 22 2c 31 2c 63 61 63 68 65 61 72 |cArea",1,cachear|
00023d80 65 61 6e 75 6d 62 65 72 25 3a 63 61 63 68 65 61 |eanumber%:cachea|
00023d90 72 65 61 6e 75 6d 62 65 72 25 3d 30 0d e0 a6 05 |reanumber%=0....|
00023da0 e1 0d e0 ba 12 dd 20 f2 66 6c 75 73 68 6f 75 74 |...... .flushout|
00023db0 70 75 74 0d e0 c4 1d e7 73 70 72 69 74 65 61 72 |put.....spritear|
00023dc0 65 61 25 3c 30 20 80 6f 6b 73 61 76 65 25 20 8c |ea%<0 .oksave% .|
00023dd0 0d e0 ce 27 41 25 3d 62 61 73 65 25 3a e7 66 69 |...'A%=base%:.fi|
00023de0 72 73 74 25 20 41 25 3d 72 61 6d 25 2b 34 3a 66 |rst% A%=ram%+4:f|
00023df0 69 72 73 74 25 3d a3 0d e0 d8 1f c8 99 31 32 2c |irst%=.......12,|
00023e00 32 2c 6f 25 2c 41 25 2c 61 64 64 72 25 81 73 69 |2,o%,A%,addr%.si|
00023e10 7a 65 25 2d 41 25 0d e0 e2 05 cd 0d e0 ec 15 61 |ze%-A%.........a|
00023e20 64 64 72 25 3d 62 61 73 65 25 2a 73 69 7a 65 25 |ddr%=base%*size%|
00023e30 0d e0 f6 05 e1 0d e1 00 0c dd 20 f2 63 6c 6f 73 |.......... .clos|
00023e40 65 0d e1 0a 2c e7 63 25 20 e7 66 6c 61 67 3d 33 |e...,.c% .flag=3|
00023e50 36 30 30 20 c8 99 22 50 68 6f 74 6f 43 44 5f 43 |600 .."PhotoCD_C|
00023e60 6c 6f 73 65 22 2c 70 63 64 68 25 2c 31 0d e1 14 |lose",pcdh%,1...|
00023e70 3b e7 63 25 20 d9 23 63 25 3a 63 25 3d 30 3a e7 |;.c% .#c%:c%=0:.|
00023e80 73 63 72 61 70 66 25 20 73 63 72 61 70 66 25 3d |scrapf% scrapf%=|
00023e90 a3 3a ff 22 52 65 6d 6f 76 65 20 3c 57 69 6d 70 |.:."Remove <Wimp|
00023ea0 24 53 63 72 61 70 3e 22 0d e1 1e 14 e7 63 63 25 |$Scrap>".....cc%|
00023eb0 20 d9 23 63 63 25 3a 63 63 25 3d 30 0d e1 28 17 | .#cc%:cc%=0..(.|
00023ec0 e7 63 63 63 25 20 d9 23 63 63 63 25 3a 63 63 63 |.ccc% .#ccc%:ccc|
00023ed0 25 3d 30 0d e1 32 14 f2 72 65 6d 6f 76 65 63 61 |%=0..2..removeca|
00023ee0 63 68 65 61 72 65 61 0d e1 3c 05 e1 0d e1 46 0b |chearea..<....F.|
00023ef0 dd 20 f2 53 61 76 65 0d e1 50 0a f2 63 6c 6f 73 |. .Save..P..clos|
00023f00 65 0d e1 5a 0a c8 8e 20 6d 20 ca 0d e1 64 22 c9 |e..Z... m ...d".|
00023f10 20 2d 31 3a e7 73 70 72 69 74 65 61 72 65 61 25 | -1:.spritearea%|
00023f20 3c 30 20 80 6f 6b 73 61 76 65 25 20 8c 0d e1 6e |<0 .oksave% ...n|
00023f30 3b e7 6f 25 20 f2 66 6c 75 73 68 6f 75 74 70 75 |;.o% .flushoutpu|
00023f40 74 20 8b c8 99 22 4f 53 5f 46 69 6c 65 22 2c 31 |t ..."OS_File",1|
00023f50 30 2c 66 24 2c 26 30 30 34 2c 2c 72 61 6d 25 2c |0,f$,&004,,ram%,|
00023f60 72 61 6d 25 2b 73 7a 25 0d e1 78 05 cd 0d e1 82 |ram%+sz%..x.....|
00023f70 19 c9 20 2d 32 3a 6f 25 3d ae 66 24 3a d5 23 6f |.. -2:o%=.f$:.#o|
00023f80 25 2c 70 6e 6d 24 0d e1 8c 0d c8 8e 20 70 6e 6d |%,pnm$...... pnm|
00023f90 24 20 ca 0d e1 96 0a c9 20 22 50 31 22 0d e1 a0 |$ ...... "P1"...|
00023fa0 2c d5 23 6f 25 2c 22 23 20 22 2b 66 24 2b 22 2e |,.#o%,"# "+f$+".|
00023fb0 70 62 6d 20 28 6f 70 74 69 6f 6e 73 20 22 2b 6f |pbm (options "+o|
00023fc0 6e 61 6d 65 24 2b 22 29 22 0d e1 aa 18 d5 23 6f |name$+")".....#o|
00023fd0 25 2c c3 78 73 70 25 2b 22 20 22 2b c3 79 73 70 |%,.xsp%+" "+.ysp|
00023fe0 25 0d e1 b4 24 e3 59 25 3d 30 b8 79 73 70 25 2d |%...$.Y%=0.ysp%-|
00023ff0 31 3a 42 25 3d 62 61 73 65 25 2b 59 25 2a 78 77 |1:B%=base%+Y%*xw|
00024000 6f 72 64 73 25 0d e1 be 3d e3 58 25 3d 30 b8 78 |ords%...=.X%=0.x|
00024010 73 70 25 2d 31 3a e7 42 25 3f 28 58 25 3e 3e 33 |sp%-1:.B%?(X%>>3|
00024020 29 80 28 31 3c 3c 28 58 25 80 37 29 29 20 d5 23 |).(1<<(X%.7)) .#|
00024030 6f 25 2c 22 31 22 3b 20 8b d5 23 6f 25 2c 22 30 |o%,"1"; ..#o%,"0|
00024040 22 3b 0d e1 c8 05 ed 0d e1 d2 0b d5 23 6f 25 2c |";..........#o%,|
00024050 22 22 0d e1 dc 05 ed 0d e1 e6 0a c9 20 22 50 34 |"".......... "P4|
00024060 22 0d e1 f0 3b d5 23 6f 25 2c 22 23 20 22 2b 66 |"...;.#o%,"# "+f|
00024070 24 2b 22 2e 70 62 6d 20 28 6f 70 74 69 6f 6e 73 |$+".pbm (options|
00024080 20 22 2b 6f 6e 61 6d 65 24 2b 22 29 20 62 69 6e | "+oname$+") bin|
00024090 61 72 79 20 65 6e 63 6f 64 65 64 22 0d e1 fa 18 |ary encoded"....|
000240a0 d5 23 6f 25 2c c3 78 73 70 25 2b 22 20 22 2b c3 |.#o%,.xsp%+" "+.|
000240b0 79 73 70 25 0d e2 04 66 e3 58 25 3d 30 b8 32 35 |ysp%...f.X%=0.25|
000240c0 35 3a 63 6f 64 65 25 3f 58 25 3d 58 25 3c 3c 37 |5:code%?X%=X%<<7|
000240d0 20 84 20 58 25 3c 3c 35 80 26 34 30 20 84 20 58 | . X%<<5.&40 . X|
000240e0 25 3c 3c 33 80 26 32 30 20 84 20 58 25 3c 3c 31 |%<<3.&20 . X%<<1|
000240f0 80 26 31 30 20 84 20 58 25 3e 3e 31 80 38 20 84 |.&10 . X%>>1.8 .|
00024100 20 58 25 3e 3e 33 80 34 20 84 58 25 3e 3e 35 80 | X%>>3.4 .X%>>5.|
00024110 32 20 84 58 25 3e 3e 37 3a ed 0d e2 0e 24 e3 59 |2 .X%>>7:....$.Y|
00024120 25 3d 30 b8 79 73 70 25 2d 31 3a 42 25 3d 62 61 |%=0.ysp%-1:B%=ba|
00024130 73 65 25 2b 59 25 2a 78 77 6f 72 64 73 25 0d e2 |se%+Y%*xwords%..|
00024140 18 2c e3 58 25 3d 30 b8 78 73 70 25 2d 31 88 38 |.,.X%=0.xsp%-1.8|
00024150 3a d5 23 6f 25 2c 63 6f 64 65 25 3f 28 42 25 3f |:.#o%,code%?(B%?|
00024160 28 58 25 3e 3e 33 29 29 3a ed 0d e2 22 05 ed 0d |(X%>>3)):..."...|
00024170 e2 2c 0a c9 20 22 50 32 22 0d e2 36 2c d5 23 6f |.,.. "P2"..6,.#o|
00024180 25 2c 22 23 20 22 2b 66 24 2b 22 2e 70 67 6d 20 |%,"# "+f$+".pgm |
00024190 28 6f 70 74 69 6f 6e 73 20 22 2b 6f 6e 61 6d 65 |(options "+oname|
000241a0 24 2b 22 29 22 0d e2 40 18 d5 23 6f 25 2c c3 78 |$+")"..@..#o%,.x|
000241b0 73 70 25 2b 22 20 22 2b c3 79 73 70 25 0d e2 4a |sp%+" "+.ysp%..J|
000241c0 0d d5 23 6f 25 2c 22 31 35 22 0d e2 54 24 e3 59 |..#o%,"15"..T$.Y|
000241d0 25 3d 30 b8 79 73 70 25 2d 31 3a 42 25 3d 62 61 |%=0.ysp%-1:B%=ba|
000241e0 73 65 25 2b 59 25 2a 78 77 6f 72 64 73 25 0d e2 |se%+Y%*xwords%..|
000241f0 5e 37 e3 58 25 3d 30 b8 78 73 70 25 2d 31 3a 43 |^7.X%=0.xsp%-1:C|
00024200 25 3d 42 25 3f 28 58 25 3e 3e 31 29 3a e7 58 25 |%=B%?(X%>>1):.X%|
00024210 80 31 20 43 25 3d 43 25 3e 3e 34 20 8b 43 25 3d |.1 C%=C%>>4 .C%=|
00024220 43 25 80 31 35 0d e2 68 11 d5 23 6f 25 2c 22 20 |C%.15..h..#o%," |
00024230 22 2b c3 43 25 3b 0d e2 72 05 ed 0d e2 7c 0b d5 |"+.C%;..r....|..|
00024240 23 6f 25 2c 22 22 0d e2 86 05 ed 0d e2 90 0a c9 |#o%,""..........|
00024250 20 22 50 35 22 0d e2 9a 3b d5 23 6f 25 2c 22 23 | "P5"...;.#o%,"#|
00024260 20 22 2b 66 24 2b 22 2e 70 67 6d 20 28 6f 70 74 | "+f$+".pgm (opt|
00024270 69 6f 6e 73 20 22 2b 6f 6e 61 6d 65 24 2b 22 29 |ions "+oname$+")|
00024280 20 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 64 22 | binary encoded"|
00024290 0d e2 a4 18 d5 23 6f 25 2c c3 78 73 70 25 2b 22 |.....#o%,.xsp%+"|
000242a0 20 22 2b c3 79 73 70 25 0d e2 ae 0d d5 23 6f 25 | "+.ysp%.....#o%|
000242b0 2c 22 31 35 22 0d e2 b8 24 e3 59 25 3d 30 b8 79 |,"15"...$.Y%=0.y|
000242c0 73 70 25 2d 31 3a 42 25 3d 62 61 73 65 25 2b 59 |sp%-1:B%=base%+Y|
000242d0 25 2a 78 77 6f 72 64 73 25 0d e2 c2 37 e3 58 25 |%*xwords%...7.X%|
000242e0 3d 30 b8 78 73 70 25 2d 31 3a 43 25 3d 42 25 3f |=0.xsp%-1:C%=B%?|
000242f0 28 58 25 3e 3e 31 29 3a e7 58 25 80 31 20 43 25 |(X%>>1):.X%.1 C%|
00024300 3d 43 25 3e 3e 34 20 8b 43 25 3d 43 25 80 31 35 |=C%>>4 .C%=C%.15|
00024310 0d e2 cc 0b d5 23 6f 25 2c 43 25 0d e2 d6 05 ed |.....#o%,C%.....|
00024320 0d e2 e0 05 ed 0d e2 ea 05 cb 0d e2 f4 0d d9 23 |...............#|
00024330 6f 25 3a 6f 25 3d 30 0d e2 fe 2f e7 70 6e 6d 24 |o%:o%=0.../.pnm$|
00024340 3d 22 50 32 22 84 70 6e 6d 24 3d 22 50 31 22 20 |="P2".pnm$="P1" |
00024350 ff 22 53 65 74 74 79 70 65 20 22 2b 66 24 2b 22 |."Settype "+f$+"|
00024360 20 26 46 46 46 22 0d e3 08 19 c9 20 2d 33 3a 6f | &FFF"..... -3:o|
00024370 25 3d ae 66 24 3a d5 23 6f 25 2c 70 6e 6d 24 0d |%=.f$:.#o%,pnm$.|
00024380 e3 12 4f d5 23 6f 25 2c 22 23 20 22 2b 66 24 2b |..O.#o%,"# "+f$+|
00024390 22 2e 70 63 6d 20 28 6f 70 74 69 6f 6e 73 20 22 |".pcm (options "|
000243a0 2b 6f 6e 61 6d 65 24 2b 22 29 20 62 69 6e 61 72 |+oname$+") binar|
000243b0 79 20 65 6e 63 6f 64 65 64 20 31 35 62 70 70 20 |y encoded 15bpp |
000243c0 28 35 62 69 74 73 20 72 2c 67 2c 62 29 22 0d e3 |(5bits r,g,b)"..|
000243d0 1c 18 d5 23 6f 25 2c c3 78 73 70 25 2b 22 20 22 |...#o%,.xsp%+" "|
000243e0 2b c3 79 73 70 25 0d e3 26 0d d5 23 6f 25 2c 22 |+.ysp%..&..#o%,"|
000243f0 33 31 22 0d e3 30 1e c8 99 31 32 2c 32 2c 6f 25 |31"..0...12,2,o%|
00024400 2c 72 61 6d 25 2c 78 73 70 25 2a 79 73 70 25 2a |,ram%,xsp%*ysp%*|
00024410 32 0d e3 3a 0d d9 23 6f 25 3a 6f 25 3d 30 0d e3 |2..:..#o%:o%=0..|
00024420 44 1e c9 20 2d 34 3a 6f 25 3d ae 66 24 3a e7 70 |D.. -4:o%=.f$:.p|
00024430 6e 6d 24 3d 22 49 52 4c 41 4d 22 8c 0d e3 4e 25 |nm$="IRLAM"...N%|
00024440 d5 23 6f 25 2c 22 49 72 6c 61 6d 20 32 34 3a 20 |.#o%,"Irlam 24: |
00024450 22 2b c3 78 73 70 25 2b 22 20 22 2b c3 79 73 70 |"+.xsp%+" "+.ysp|
00024460 25 0d e3 58 23 e3 59 25 3d 30 b8 79 73 70 25 2d |%..X#.Y%=0.ysp%-|
00024470 31 3a 42 25 3d 72 61 6d 25 2b 59 25 2a 78 77 6f |1:B%=ram%+Y%*xwo|
00024480 72 64 73 25 0d e3 62 21 e3 58 25 3d 30 b8 78 73 |rds%..b!.X%=0.xs|
00024490 70 25 2a 33 2d 31 88 33 3a d5 23 6f 25 2c 42 25 |p%*3-1.3:.#o%,B%|
000244a0 3f 58 25 3a ed 0d e3 6c 27 42 25 2b 3d 31 3a e3 |?X%:...l'B%+=1:.|
000244b0 58 25 3d 30 b8 78 73 70 25 2a 33 2d 31 88 33 3a |X%=0.xsp%*3-1.3:|
000244c0 d5 23 6f 25 2c 42 25 3f 58 25 3a ed 0d e3 76 27 |.#o%,B%?X%:...v'|
000244d0 42 25 2b 3d 31 3a e3 58 25 3d 30 b8 78 73 70 25 |B%+=1:.X%=0.xsp%|
000244e0 2a 33 2d 31 88 33 3a d5 23 6f 25 2c 42 25 3f 58 |*3-1.3:.#o%,B%?X|
000244f0 25 3a ed 0d e3 80 05 ed 0d e3 8a 05 cc 0d e3 94 |%:..............|
00024500 0d d5 23 6f 25 2c 70 6e 6d 24 0d e3 9e 10 e7 70 |..#o%,pnm$.....p|
00024510 6e 6d 24 3d 22 50 36 22 20 8c 0d e3 a8 47 d5 23 |nm$="P6" ....G.#|
00024520 6f 25 2c 22 23 20 22 2b 66 24 2b 22 2e 70 70 6d |o%,"# "+f$+".ppm|
00024530 20 28 6f 70 74 69 6f 6e 73 20 22 2b 6f 6e 61 6d | (options "+onam|
00024540 65 24 2b 22 29 20 62 69 6e 61 72 79 20 65 6e 63 |e$+") binary enc|
00024550 6f 64 65 64 20 32 34 62 70 70 20 72 2c 67 2c 62 |oded 24bpp r,g,b|
00024560 22 0d e3 b2 05 cc 0d e3 bc 45 d5 23 6f 25 2c 22 |"........E.#o%,"|
00024570 23 20 22 2b 66 24 2b 22 2e 70 70 6d 20 28 6f 70 |# "+f$+".ppm (op|
00024580 74 69 6f 6e 73 20 22 2b 6f 6e 61 6d 65 24 2b 22 |tions "+oname$+"|
00024590 29 20 22 2b c3 28 70 36 62 69 74 73 2a 33 29 2b |) "+.(p6bits*3)+|
000245a0 22 62 70 70 20 72 2c 67 2c 62 22 0d e3 c6 05 cd |"bpp r,g,b".....|
000245b0 0d e3 d0 18 d5 23 6f 25 2c c3 78 73 70 25 2b 22 |.....#o%,.xsp%+"|
000245c0 20 22 2b c3 79 73 70 25 0d e3 da 16 d5 23 6f 25 | "+.ysp%.....#o%|
000245d0 2c c3 28 32 5e 70 36 62 69 74 73 2d 31 29 0d e3 |,.(2^p6bits-1)..|
000245e0 e4 10 e7 70 6e 6d 24 3d 22 50 36 22 20 8c 0d e3 |...pnm$="P6" ...|
000245f0 ee 1e c8 99 31 32 2c 32 2c 6f 25 2c 72 61 6d 25 |....12,2,o%,ram%|
00024600 2c 78 73 70 25 2a 79 73 70 25 2a 33 0d e3 f8 05 |,xsp%*ysp%*3....|
00024610 cc 0d e4 02 23 e3 59 25 3d 30 b8 79 73 70 25 2d |....#.Y%=0.ysp%-|
00024620 31 3a 42 25 3d 72 61 6d 25 2b 59 25 2a 78 77 6f |1:B%=ram%+Y%*xwo|
00024630 72 64 73 25 0d e4 0c 58 e3 58 25 3d 30 b8 78 73 |rds%...X.X%=0.xs|
00024640 70 25 2d 31 3a 43 25 3d 42 25 21 28 58 25 2a 33 |p%-1:C%=B%!(X%*3|
00024650 29 3a d5 23 6f 25 2c 22 20 22 2b c3 28 43 25 80 |):.#o%," "+.(C%.|
00024660 32 35 35 29 2b 22 20 22 2b c3 28 28 43 25 3e 3e |255)+" "+.((C%>>|
00024670 38 29 80 26 46 46 29 2b 22 20 22 2b c3 28 28 43 |8).&FF)+" "+.((C|
00024680 25 3e 3e 31 36 29 80 32 35 35 29 3b 0d e4 16 05 |%>>16).255);....|
00024690 ed 0d e4 20 0b d5 23 6f 25 2c 22 22 0d e4 2a 05 |... ..#o%,""..*.|
000246a0 ed 0d e4 34 05 cd 0d e4 3e 05 cd 0d e4 48 0d d9 |...4....>....H..|
000246b0 23 6f 25 3a 6f 25 3d 30 0d e4 52 25 e7 70 6e 6d |#o%:o%=0..R%.pnm|
000246c0 24 3d 22 50 33 22 20 ff 22 53 65 74 74 79 70 65 |$="P3" ."Settype|
000246d0 20 22 2b 66 24 2b 22 20 26 46 46 46 22 0d e4 5c | "+f$+" &FFF"..\|
000246e0 19 c9 20 2d 35 3a 6f 25 3d ae 66 24 3a d5 23 6f |.. -5:o%=.f$:.#o|
000246f0 25 2c 70 6e 6d 24 0d e4 66 4f d5 23 6f 25 2c 22 |%,pnm$..fO.#o%,"|
00024700 23 20 22 2b 66 24 2b 22 2e 70 63 6d 20 28 6f 70 |# "+f$+".pcm (op|
00024710 74 69 6f 6e 73 20 22 2b 6f 6e 61 6d 65 24 2b 22 |tions "+oname$+"|
00024720 29 20 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 64 |) binary encoded|
00024730 20 31 35 62 70 70 20 28 35 62 69 74 73 20 79 2c | 15bpp (5bits y,|
00024740 75 2c 76 29 22 0d e4 70 18 d5 23 6f 25 2c c3 78 |u,v)"..p..#o%,.x|
00024750 73 70 25 2b 22 20 22 2b c3 79 73 70 25 0d e4 7a |sp%+" "+.ysp%..z|
00024760 13 d5 23 6f 25 2c 22 33 31 20 32 37 20 32 31 22 |..#o%,"31 27 21"|
00024770 0d e4 84 1e c8 99 31 32 2c 32 2c 6f 25 2c 72 61 |......12,2,o%,ra|
00024780 6d 25 2c 78 73 70 25 2a 79 73 70 25 2a 32 0d e4 |m%,xsp%*ysp%*2..|
00024790 8e 0d d9 23 6f 25 3a 6f 25 3d 30 0d e4 98 14 c9 |...#o%:o%=0.....|
000247a0 20 2d 39 2c 2d 31 30 2c 2d 31 31 2c 2d 31 32 0d | -9,-10,-11,-12.|
000247b0 e4 a2 3f e7 73 70 72 69 74 65 61 72 65 61 25 3c |..?.spritearea%<|
000247c0 30 20 80 6f 6b 73 61 76 65 25 20 c8 99 38 2c 31 |0 .oksave% ..8,1|
000247d0 30 2c 66 24 2c 26 63 38 35 2c 2c 72 61 6d 25 2c |0,f$,&c85,,ram%,|
000247e0 72 61 6d 25 2b 6a 70 65 67 73 69 7a 65 25 0d e4 |ram%+jpegsize%..|
000247f0 ac 05 7f 0d e4 b6 14 e7 6e 63 6f 6c 3d 31 80 6d |........ncol=1.m|
00024800 24 3d 22 54 22 20 8c 0d e4 c0 1d e3 58 25 3d 28 |$="T" ......X%=(|
00024810 78 73 70 25 2a 34 2d 31 29 81 38 2a 38 2b 36 b8 |xsp%*4-1).8*8+6.|
00024820 36 88 2d 38 0d e4 ca 1d c8 99 26 32 65 2c 26 31 |6.-8......&2e,&1|
00024830 32 65 2c 72 61 6d 25 2c 6f 6e 61 6d 65 24 2c 58 |2e,ram%,oname$,X|
00024840 25 0d e4 d4 1d c8 99 26 32 65 2c 26 31 32 65 2c |%......&2e,&12e,|
00024850 72 61 6d 25 2c 6f 6e 61 6d 65 24 2c 58 25 0d e4 |ram%,oname$,X%..|
00024860 de 05 ed 0d e4 e8 05 cd 0d e4 f2 1d e7 73 70 72 |.............spr|
00024870 69 74 65 61 72 65 61 25 3c 30 20 80 6f 6b 73 61 |itearea%<0 .oksa|
00024880 76 65 25 20 8c 0d e4 fc 28 e7 6f 25 20 f2 66 6c |ve% ....(.o% .fl|
00024890 75 73 68 6f 75 74 70 75 74 20 8b c8 99 26 32 65 |ushoutput ...&2e|
000248a0 2c 26 31 30 63 2c 72 61 6d 25 2c 66 24 0d e5 06 |,&10c,ram%,f$...|
000248b0 05 cd 0d e5 10 05 cb 0d e5 1a 34 e7 6f 25 20 d9 |..........4.o% .|
000248c0 23 6f 25 3a 6f 25 3d 30 3a ff 22 73 65 74 74 79 |#o%:o%=0:."setty|
000248d0 70 65 20 22 2b 66 24 2b 22 20 26 66 66 39 22 3a |pe "+f$+" &ff9":|
000248e0 f2 72 65 6d 6f 76 65 61 72 65 61 0d e5 24 15 c8 |.removearea..$..|
000248f0 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 |."Hourglass_Off"|
00024900 0d e5 2e 05 e1 0d e5 38 0c dd f2 64 65 66 70 61 |.......8...defpa|
00024910 6c 0d e5 42 0d e3 43 25 3d 30 b8 32 35 35 0d e5 |l..B..C%=0.255..|
00024920 4c 23 72 25 28 43 25 29 3d 28 43 25 80 37 20 84 |L#r%(C%)=(C%.7 .|
00024930 20 28 43 25 80 31 36 29 3e 3e 31 29 2f 31 35 2a | (C%.16)>>1)/15*|
00024940 46 0d e5 56 24 67 25 28 43 25 29 3d 28 43 25 80 |F..V$g%(C%)=(C%.|
00024950 33 20 84 20 28 43 25 80 26 36 30 29 3e 3e 33 29 |3 . (C%.&60)>>3)|
00024960 2f 31 35 2a 46 0d e5 60 30 62 25 28 43 25 29 3d |/15*F..`0b%(C%)=|
00024970 28 43 25 80 33 20 84 20 28 43 25 80 38 29 3e 3e |(C%.3 . (C%.8)>>|
00024980 31 20 84 20 28 43 25 80 31 32 38 29 3e 3e 34 29 |1 . (C%.128)>>4)|
00024990 2f 31 35 2a 46 0d e5 6a 05 ed 0d e5 74 05 e1 0d |/15*F..j....t...|
000249a0 e5 7e 0d dd f2 64 65 66 70 61 6c 32 0d e5 88 1b |.~...defpal2....|
000249b0 72 25 28 30 29 3d 46 3a 67 25 28 30 29 3d 46 3a |r%(0)=F:g%(0)=F:|
000249c0 62 25 28 30 29 3d 46 0d e5 92 05 e1 0d e5 9c 0d |b%(0)=F.........|
000249d0 dd f2 64 65 66 70 61 6c 34 0d e5 a6 2f 72 25 28 |..defpal4.../r%(|
000249e0 29 3d 31 35 2c 31 30 2c 35 2c 30 3a e3 43 25 3d |)=15,10,5,0:.C%=|
000249f0 30 b8 33 3a 72 25 28 43 25 29 3d 72 25 28 43 25 |0.3:r%(C%)=r%(C%|
00024a00 29 2f 31 35 2a 46 3a ed 0d e5 b0 17 67 25 28 29 |)/15*F:.....g%()|
00024a10 3d 72 25 28 29 3a 62 25 28 29 3d 72 25 28 29 0d |=r%():b%()=r%().|
00024a20 e5 ba 05 e1 0d e5 c4 0e dd f2 64 65 66 70 61 6c |..........defpal|
00024a30 31 36 0d e5 ce 31 72 25 28 29 3d 31 35 2c 31 33 |16...1r%()=15,13|
00024a40 2c 31 31 2c 39 2c 37 2c 35 2c 33 2c 30 2c 30 2c |,11,9,7,5,3,0,0,|
00024a50 31 34 2c 20 30 2c 31 33 2c 31 34 2c 35 2c 31 35 |14, 0,13,14,5,15|
00024a60 2c 20 30 0d e5 d8 31 67 25 28 29 3d 31 35 2c 31 |, 0...1g%()=15,1|
00024a70 33 2c 31 31 2c 39 2c 37 2c 35 2c 33 2c 30 2c 34 |3,11,9,7,5,3,0,4|
00024a80 2c 31 34 2c 31 32 2c 20 30 2c 31 34 2c 38 2c 31 |,14,12, 0,14,8,1|
00024a90 31 2c 31 30 0d e5 e2 31 62 25 28 29 3d 31 35 2c |1,10...1b%()=15,|
00024aa0 31 33 2c 31 31 2c 39 2c 37 2c 35 2c 33 2c 30 2c |13,11,9,7,5,3,0,|
00024ab0 39 2c 20 30 2c 20 30 2c 20 30 2c 31 31 2c 30 2c |9, 0, 0, 0,11,0,|
00024ac0 20 30 2c 31 35 0d e5 ec 47 e3 43 25 3d 30 b8 31 | 0,15...G.C%=0.1|
00024ad0 35 3a 72 25 28 43 25 29 3d 72 25 28 43 25 29 2f |5:r%(C%)=r%(C%)/|
00024ae0 31 35 2a 46 3a 67 25 28 43 25 29 3d 67 25 28 43 |15*F:g%(C%)=g%(C|
00024af0 25 29 2f 31 35 2a 46 3a 62 25 28 43 25 29 3d 62 |%)/15*F:b%(C%)=b|
00024b00 25 28 43 25 29 2f 31 35 2a 46 3a ed 0d e5 f6 05 |%(C%)/15*F:.....|
00024b10 e1 0d e6 00 0c dd f2 69 70 61 6c 36 33 0d e6 0a |.......ipal63...|
00024b20 2c cf 23 63 25 3d 26 33 38 3a de 20 72 70 61 6c |,.#c%=&38:. rpal|
00024b30 25 28 31 35 29 2c 67 70 61 6c 25 28 31 35 29 2c |%(15),gpal%(15),|
00024b40 62 70 61 6c 25 28 31 35 29 0d e6 14 14 e3 43 25 |bpal%(15).....C%|
00024b50 3d 30 b8 31 35 3a 44 25 3d 9a 23 63 25 0d e6 1e |=0.15:D%=.#c%...|
00024b60 19 72 70 61 6c 25 28 43 25 29 3d 9a 23 63 25 3e |.rpal%(C%)=.#c%>|
00024b70 3e 34 20 80 20 37 0d e6 28 19 67 70 61 6c 25 28 |>4 . 7..(.gpal%(|
00024b80 43 25 29 3d 9a 23 63 25 3e 3e 34 20 80 20 33 0d |C%)=.#c%>>4 . 3.|
00024b90 e6 32 19 62 70 61 6c 25 28 43 25 29 3d 9a 23 63 |.2.bpal%(C%)=.#c|
00024ba0 25 3e 3e 34 20 80 20 37 0d e6 3c 0b 44 25 3d a4 |%>>4 . 7..<.D%=.|
00024bb0 57 3a ed 0d e6 46 0d e3 43 25 3d 30 b8 32 35 35 |W:...F..C%=0.255|
00024bc0 0d e6 50 29 72 25 28 43 25 29 3d 28 72 70 61 6c |..P)r%(C%)=(rpal|
00024bd0 25 28 43 25 80 31 35 29 84 28 43 25 80 31 36 29 |%(C%.15).(C%.16)|
00024be0 3e 3e 31 29 2f 31 35 2a 46 0d e6 5a 2a 67 25 28 |>>1)/15*F..Z*g%(|
00024bf0 43 25 29 3d 28 67 70 61 6c 25 28 43 25 80 31 35 |C%)=(gpal%(C%.15|
00024c00 29 84 28 43 25 80 26 36 30 29 3e 3e 33 29 2f 31 |).(C%.&60)>>3)/1|
00024c10 35 2a 46 0d e6 64 2a 62 25 28 43 25 29 3d 28 62 |5*F..d*b%(C%)=(b|
00024c20 70 61 6c 25 28 43 25 80 31 35 29 84 28 43 25 80 |pal%(C%.15).(C%.|
00024c30 31 32 38 29 3e 3e 34 29 2f 31 35 2a 46 0d e6 6e |128)>>4)/15*F..n|
00024c40 05 ed 0d e6 78 05 e1 0d e6 82 0e dd f2 69 70 61 |....x........ipa|
00024c50 6c 28 44 25 29 0d e6 8c 0c cf 23 63 25 3d 26 33 |l(D%).....#c%=&3|
00024c60 38 0d e6 96 16 e3 43 25 3d 30 b8 44 25 2d 31 3a |8.....C%=0.D%-1:|
00024c70 44 25 3d 9a 23 63 25 0d e6 a0 19 72 25 28 43 25 |D%=.#c%....r%(C%|
00024c80 29 3d 28 9a 23 63 25 3e 3e 34 29 2f 31 35 2a 46 |)=(.#c%>>4)/15*F|
00024c90 0d e6 aa 19 67 25 28 43 25 29 3d 28 9a 23 63 25 |....g%(C%)=(.#c%|
00024ca0 3e 3e 34 29 2f 31 35 2a 46 0d e6 b4 19 62 25 28 |>>4)/15*F....b%(|
00024cb0 43 25 29 3d 28 9a 23 63 25 3e 3e 34 29 2f 31 35 |C%)=(.#c%>>4)/15|
00024cc0 2a 46 0d e6 be 0b 44 25 3d a4 57 3a ed 0d e6 c8 |*F....D%=.W:....|
00024cd0 05 e1 0d e6 d2 13 dd 20 f2 6e 65 77 72 6f 70 61 |....... .newropa|
00024ce0 6c 28 44 25 29 0d e6 dc 0c cf 23 63 25 3d 26 33 |l(D%).....#c%=&3|
00024cf0 38 0d e6 e6 14 e3 43 25 3d 30 b8 44 25 2d 31 3a |8.....C%=0.D%-1:|
00024d00 44 25 3d a4 57 0d e6 f0 19 72 25 28 43 25 29 3d |D%=.W....r%(C%)=|
00024d10 28 44 25 80 32 35 35 29 2f 32 35 35 2a 46 0d e6 |(D%.255)/255*F..|
00024d20 fa 1c 67 25 28 43 25 29 3d 28 44 25 3e 3e 38 80 |..g%(C%)=(D%>>8.|
00024d30 32 35 35 29 2f 32 35 35 2a 46 0d e7 04 1d 62 25 |255)/255*F....b%|
00024d40 28 43 25 29 3d 28 44 25 3e 3e 31 36 80 32 35 35 |(C%)=(D%>>16.255|
00024d50 29 2f 32 35 35 2a 46 0d e7 0e 0b 44 25 3d a4 57 |)/255*F....D%=.W|
00024d60 3a ed 0d e7 18 05 e1 0d e7 22 0c dd 20 f2 6e 6f |:........".. .no|
00024d70 70 61 6c 0d e7 2c 33 e3 43 25 3d 30 b8 32 35 35 |pal..,3.C%=0.255|
00024d80 3a 72 25 28 43 25 29 3d 43 25 2f 32 35 35 2a 46 |:r%(C%)=C%/255*F|
00024d90 3a ed 3a 67 25 28 29 3d 72 25 28 29 3a 62 25 28 |:.:g%()=r%():b%(|
00024da0 29 3d 72 25 28 29 0d e7 36 05 e1 0d e7 40 11 dd |)=r%()..6....@..|
00024db0 20 f2 63 6f 6c 28 41 25 2c 42 25 29 0d e7 4a 36 | .col(A%,B%)..J6|
00024dc0 42 25 3d 42 25 3c 3c 38 84 42 25 3c 3c 34 84 26 |B%=B%<<8.B%<<4.&|
00024dd0 31 30 3a 70 61 6c 25 21 28 41 25 2a 38 29 3d 42 |10:pal%!(A%*8)=B|
00024de0 25 3a 70 61 6c 25 21 28 41 25 2a 38 2b 34 29 3d |%:pal%!(A%*8+4)=|
00024df0 42 25 0d e7 54 05 e1 0d e7 5e 0f dd 20 a4 62 69 |B%..T....^.. .bi|
00024e00 74 73 28 41 25 29 0d e7 68 35 e7 41 25 3d 31 20 |ts(A%)..h5.A%=1 |
00024e10 8c 3d 22 31 20 62 69 74 20 70 65 72 20 70 69 78 |.="1 bit per pix|
00024e20 65 6c 22 20 8b 3d c3 41 25 2b 22 20 62 69 74 73 |el" .=.A%+" bits|
00024e30 20 70 65 72 20 70 69 78 65 6c 22 0d e7 72 0b dd | per pixel"..r..|
00024e40 20 a4 66 69 74 73 0d e7 7c 0a ea 5a 25 2c 73 24 | .fits..|..Z%,s$|
00024e50 0d e7 86 18 e3 5a 25 3d 31 b8 38 30 3a 73 24 2b |.....Z%=1.80:s$+|
00024e60 3d bd 9a 23 63 25 3a ed 0d e7 90 07 3d 73 24 0d |=..#c%:.....=s$.|
00024e70 e7 9a 0d dd 20 a4 75 63 28 61 24 29 0d e7 a4 0d |.... .uc(a$)....|
00024e80 ea 5a 25 2c 7a 24 2c 62 24 0d e7 ae 0d e3 5a 25 |.Z%,z$,b$.....Z%|
00024e90 3d 31 b8 a9 61 24 0d e7 b8 10 7a 24 3d c1 61 24 |=1..a$....z$=.a$|
00024ea0 2c 5a 25 2c 31 29 0d e7 c2 21 e7 7a 24 3e 3d 22 |,Z%,1)...!.z$>="|
00024eb0 61 22 e7 7a 24 3c 3d 22 7a 22 20 7a 24 3d bd 28 |a".z$<="z" z$=.(|
00024ec0 97 7a 24 2d 33 32 29 0d e7 cc 0c 62 24 2b 3d 7a |.z$-32)....b$+=z|
00024ed0 24 3a ed 0d e7 d6 07 3d 62 24 0d e7 e0 0e dd 20 |$:.....=b$..... |
00024ee0 a4 64 69 6d 28 41 25 29 0d e7 ea 08 ea 20 42 25 |.dim(A%)..... B%|
00024ef0 0d e7 f4 0c e7 66 6c 65 78 25 20 8c 0d e7 fe 31 |.....flex% ....1|
00024f00 42 25 3d 6e 65 78 74 6c 6f 63 61 74 69 6f 6e 25 |B%=nextlocation%|
00024f10 3a 41 25 3d 41 25 2b 33 80 ac 33 3a 6e 65 78 74 |:A%=A%+3..3:next|
00024f20 6c 6f 63 61 74 69 6f 6e 25 2b 3d 41 25 0d e8 08 |location%+=A%...|
00024f30 2a c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a |*.."Wimp_SlotSiz|
00024f40 65 22 2c 2d 31 2c 2d 31 20 b8 20 63 75 72 72 65 |e",-1,-1 . curre|
00024f50 6e 74 73 6c 6f 74 25 0d e8 12 27 e7 63 75 72 72 |ntslot%...'.curr|
00024f60 65 6e 74 73 6c 6f 74 25 2b 26 38 30 30 30 3c 6e |entslot%+&8000<n|
00024f70 65 78 74 6c 6f 63 61 74 69 6f 6e 25 20 8c 0d e8 |extlocation% ...|
00024f80 1c 3c c8 99 20 22 57 69 6d 70 5f 53 6c 6f 74 53 |.<.. "Wimp_SlotS|
00024f90 69 7a 65 22 2c 6e 65 78 74 6c 6f 63 61 74 69 6f |ize",nextlocatio|
00024fa0 6e 25 2d 26 38 30 30 30 2c 2d 31 20 b8 20 63 75 |n%-&8000,-1 . cu|
00024fb0 72 72 65 6e 74 73 6c 6f 74 25 0d e8 26 55 e7 63 |rrentslot%..&U.c|
00024fc0 75 72 72 65 6e 74 73 6c 6f 74 25 2b 26 38 30 30 |urrentslot%+&800|
00024fd0 30 3c 6e 65 78 74 6c 6f 63 61 74 69 6f 6e 25 20 |0<nextlocation% |
00024fe0 85 20 34 32 2c 22 43 61 6e 27 74 20 67 65 74 20 |. 42,"Can't get |
00024ff0 65 6e 6f 75 67 68 20 6d 65 6d 6f 72 79 20 74 6f |enough memory to|
00025000 20 70 72 6f 63 65 73 73 20 69 6d 61 67 65 22 0d | process image".|
00025010 e8 30 05 cd 0d e8 3a 05 cc 0d e8 44 13 e7 77 6f |.0....:....D..wo|
00025020 72 6b 73 70 61 63 65 25 3c 30 20 8c 0d e8 4e 0b |rkspace%<0 ...N.|
00025030 de 20 42 25 20 41 25 0d e8 58 05 cc 0d e8 62 57 |. B% A%..X....bW|
00025040 42 25 3d 77 6f 72 6b 73 70 61 63 65 25 3a 77 6f |B%=workspace%:wo|
00025050 72 6b 73 70 61 63 65 25 2b 3d 41 25 2b 33 80 ac |rkspace%+=A%+3..|
00025060 33 3a e7 77 6f 72 6b 73 70 61 63 65 25 3e 77 6f |3:.workspace%>wo|
00025070 72 6b 6c 69 6d 69 74 25 20 85 34 32 2c 22 4e 6f |rklimit% .42,"No|
00025080 74 20 65 6e 6f 75 67 68 20 77 6f 72 6b 73 70 61 |t enough workspa|
00025090 63 65 22 0d e8 6c 05 cd 0d e8 76 05 cd 0d e8 80 |ce"..l....v.....|
000250a0 07 3d 42 25 0d e8 8a 12 dd 20 a4 64 69 6d 6a 70 |.=B%..... .dimjp|
000250b0 28 f8 20 41 25 29 0d e8 94 08 ea 20 42 25 0d e8 |(. A%)..... B%..|
000250c0 9e 0c e7 66 6c 65 78 25 20 8c 0d e8 a8 31 42 25 |...flex% ....1B%|
000250d0 3d 6e 65 78 74 6c 6f 63 61 74 69 6f 6e 25 3a 41 |=nextlocation%:A|
000250e0 25 3d 41 25 2b 33 80 ac 33 3a 6e 65 78 74 6c 6f |%=A%+3..3:nextlo|
000250f0 63 61 74 69 6f 6e 25 2b 3d 41 25 0d e8 b2 2a c8 |cation%+=A%...*.|
00025100 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 |."Wimp_SlotSize"|
00025110 2c 2d 31 2c 2d 31 20 b8 20 63 75 72 72 65 6e 74 |,-1,-1 . current|
00025120 73 6c 6f 74 25 0d e8 bc 27 e7 63 75 72 72 65 6e |slot%...'.curren|
00025130 74 73 6c 6f 74 25 2b 26 38 30 30 30 3c 6e 65 78 |tslot%+&8000<nex|
00025140 74 6c 6f 63 61 74 69 6f 6e 25 20 8c 0d e8 c6 3c |tlocation% ....<|
00025150 c8 99 20 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a |.. "Wimp_SlotSiz|
00025160 65 22 2c 6e 65 78 74 6c 6f 63 61 74 69 6f 6e 25 |e",nextlocation%|
00025170 2d 26 38 30 30 30 2c 2d 31 20 b8 20 63 75 72 72 |-&8000,-1 . curr|
00025180 65 6e 74 73 6c 6f 74 25 0d e8 d0 3e e7 63 75 72 |entslot%...>.cur|
00025190 72 65 6e 74 73 6c 6f 74 25 2b 26 38 30 30 30 3c |rentslot%+&8000<|
000251a0 6e 65 78 74 6c 6f 63 61 74 69 6f 6e 25 20 41 25 |nextlocation% A%|
000251b0 3d 63 75 72 72 65 6e 74 73 6c 6f 74 25 2b 26 38 |=currentslot%+&8|
000251c0 30 30 30 2d 42 25 0d e8 da 05 cd 0d e8 e4 05 cc |000-B%..........|
000251d0 0d e8 ee 13 e7 77 6f 72 6b 73 70 61 63 65 25 3c |.....workspace%<|
000251e0 30 20 8c 0d e8 f8 0b de 20 42 25 20 41 25 0d e9 |0 ...... B% A%..|
000251f0 02 05 cc 0d e9 0c 57 42 25 3d 77 6f 72 6b 73 70 |......WB%=worksp|
00025200 61 63 65 25 3a 77 6f 72 6b 73 70 61 63 65 25 2b |ace%:workspace%+|
00025210 3d 41 25 2b 33 80 ac 33 3a e7 77 6f 72 6b 73 70 |=A%+3..3:.worksp|
00025220 61 63 65 25 3e 77 6f 72 6b 6c 69 6d 69 74 25 20 |ace%>worklimit% |
00025230 85 34 32 2c 22 4e 6f 74 20 65 6e 6f 75 67 68 20 |.42,"Not enough |
00025240 77 6f 72 6b 73 70 61 63 65 22 0d e9 16 05 cd 0d |workspace"......|
00025250 e9 20 05 cd 0d e9 2a 07 3d 42 25 0d e9 3e 10 dd |. ....*.=B%..>..|
00025260 20 a4 57 3d a4 57 31 28 63 25 29 0d e9 48 32 dd | .W=.W1(c%)..H2.|
00025270 20 a4 57 31 28 63 25 29 3d 9a 23 63 25 20 84 20 | .W1(c%)=.#c% . |
00025280 9a 23 63 25 3c 3c 38 20 84 20 9a 23 63 25 3c 3c |.#c%<<8 . .#c%<<|
00025290 31 36 20 84 20 9a 23 63 25 3c 3c 32 34 0d e9 5c |16 . .#c%<<24..\|
000252a0 18 dd 20 a4 48 57 3d 9a 23 63 25 20 84 20 9a 23 |.. .HW=.#c% . .#|
000252b0 63 25 3c 3c 38 0d e9 70 1a dd 20 a4 62 65 48 57 |c%<<8..p.. .beHW|
000252c0 3d 9a 23 63 25 3c 3c 38 20 84 20 9a 23 63 25 0d |=.#c%<<8 . .#c%.|
000252d0 e9 84 2f dd 20 a4 62 65 57 3d 9a 23 63 25 3c 3c |../. .beW=.#c%<<|
000252e0 32 34 20 84 20 9a 23 63 25 3c 3c 31 36 20 84 20 |24 . .#c%<<16 . |
000252f0 9a 23 63 25 3c 3c 38 20 84 20 9a 23 63 25 0d e9 |.#c%<<8 . .#c%..|
00025300 98 0f dd 20 a4 74 69 66 66 28 54 25 29 0d e9 a2 |... .tiff(T%)...|
00025310 0b c8 8e 20 54 25 20 ca 0d e9 ac 0f c9 20 31 2c |... T% ...... 1,|
00025320 37 3a 3d 9a 23 63 25 0d e9 b6 2a c9 20 32 3a ea |7:=.#c%...*. 2:.|
00025330 73 24 2c 74 24 3a f5 73 24 2b 3d 74 24 3a 74 24 |s$,t$:.s$+=t$:t$|
00025340 3d bd 9a 23 63 25 3a fd 74 24 3d bd 30 3a 3d 73 |=..#c%:.t$=.0:=s|
00025350 24 0d e9 c0 34 c9 20 33 3a e7 62 69 67 65 6e 64 |$...4. 3:.bigend|
00025360 69 61 6e 20 8c 3d 9a 23 63 25 3c 3c 38 20 84 20 |ian .=.#c%<<8 . |
00025370 9a 23 63 25 20 8b 3d 9a 23 63 25 20 84 20 9a 23 |.#c% .=.#c% . .#|
00025380 63 25 3c 3c 38 0d e9 ca 25 c9 20 34 2c 39 3a e7 |c%<<8...%. 4,9:.|
00025390 62 69 67 65 6e 64 69 61 6e 20 8c 3d a4 62 65 57 |bigendian .=.beW|
000253a0 20 8b 3d a4 57 31 28 63 25 29 0d e9 d4 17 c9 20 | .=.W1(c%)..... |
000253b0 36 3a 3d 28 9a 23 63 25 3c 3c 32 34 29 3e 3e 32 |6:=(.#c%<<24)>>2|
000253c0 34 0d e9 de 1b c9 20 38 3a 3d 28 a4 74 69 66 66 |4..... 8:=(.tiff|
000253d0 28 33 29 3c 3c 31 36 29 3e 3e 31 36 0d e9 e8 05 |(3)<<16)>>16....|
000253e0 cb 0d e9 f2 1e 85 20 34 32 2c 22 53 69 6c 6c 79 |...... 42,"Silly|
000253f0 20 54 49 46 46 20 74 61 67 3a 22 2b c3 54 25 0d | TIFF tag:"+.T%.|
00025400 e9 fc 10 dd 20 f2 6e 65 78 74 73 74 72 69 70 0d |.... .nextstrip.|
00025410 ea 06 18 72 6f 77 73 74 6f 67 6f 25 3d 73 74 72 |...rowstogo%=str|
00025420 69 70 72 6f 77 73 25 0d ea 10 22 73 74 72 69 70 |iprows%..."strip|
00025430 70 74 72 2b 3d 31 3a cf 23 63 25 3d 73 74 25 28 |ptr+=1:.#c%=st%(|
00025440 73 74 72 69 70 70 74 72 29 0d ea 1a 14 e7 63 6f |stripptr).....co|
00025450 6d 70 72 65 73 73 69 6f 6e 3d 35 20 8c 0d ea 24 |mpression=5 ...$|
00025460 46 21 66 69 72 73 74 63 6f 64 65 3d 30 3a 21 6f |F!firstcode=0:!o|
00025470 6c 64 63 6f 64 65 3d 30 3a 21 63 6f 64 65 73 69 |ldcode=0:!codesi|
00025480 7a 65 3d 73 65 74 63 6f 64 65 73 25 2b 31 3a 21 |ze=setcodes%+1:!|
00025490 73 74 61 63 6b 3d 73 74 6b 25 3a 21 73 70 3d 73 |stack=stk%:!sp=s|
000254a0 74 6b 25 0d ea 2e 48 21 6d 61 78 63 6f 64 65 3d |tk%...H!maxcode=|
000254b0 63 6c 65 61 72 63 6f 64 65 25 2b 32 3a 21 6d 61 |clearcode%+2:!ma|
000254c0 78 63 6f 64 65 73 69 7a 65 3d 32 2a 63 6c 65 61 |xcodesize=2*clea|
000254d0 72 63 6f 64 65 25 3a 21 63 75 72 62 69 74 3d 30 |rcode%:!curbit=0|
000254e0 3a 21 6c 61 73 74 62 69 74 3d 30 0d ea 38 05 cd |:!lastbit=0..8..|
000254f0 0d ea 42 28 e7 63 6f 6d 70 72 65 73 73 69 6f 6e |..B(.compression|
00025500 3d 35 20 84 20 63 6f 6d 70 72 65 73 73 69 6f 6e |=5 . compression|
00025510 3d 33 32 37 37 33 20 8c 0d ea 4c 2e 21 69 6e 63 |=32773 ...L.!inc|
00025520 61 63 68 65 70 74 72 3d 64 61 74 61 63 61 63 68 |acheptr=datacach|
00025530 65 25 3a 21 6e 75 6d 6c 65 66 74 74 6f 67 6f 3d |e%:!numlefttogo=|
00025540 63 61 63 68 65 25 0d ea 56 1f c8 99 31 32 2c 34 |cache%..V...12,4|
00025550 2c 63 25 2c 64 61 74 61 63 61 63 68 65 25 2c 63 |,c%,datacache%,c|
00025560 61 63 68 65 25 0d ea 60 05 cd 0d ea 6a 05 e1 0d |ache%..`....j...|
00025570 ea 74 28 dd 20 f2 77 61 74 66 6f 72 64 28 77 74 |.t(. .watford(wt|
00025580 73 78 25 2c f8 20 72 65 70 25 2c f8 20 77 74 25 |sx%,. rep%,. wt%|
00025590 2c 58 25 2c 63 25 29 0d ea 7e 20 d6 72 6c 65 78 |,X%,c%)..~ .rlex|
000255a0 70 61 6e 64 25 2c 77 74 73 78 25 2c 72 65 70 25 |pand%,wtsx%,rep%|
000255b0 2c 77 74 25 2c 58 25 0d ea 88 18 f5 20 43 25 3d |,wt%,X%..... C%=|
000255c0 9a 23 63 25 3a c8 8e 20 43 25 3e 3e 36 20 ca 0d |.#c%:.. C%>>6 ..|
000255d0 ea 92 1b c9 20 30 3a 3f 58 25 3d 43 25 3a 58 25 |.... 0:?X%=C%:X%|
000255e0 2b 3d 31 3a 77 74 25 3d 43 25 0d ea 9c 36 c9 20 |+=1:wt%=C%...6. |
000255f0 31 3a 77 74 25 2d 3d 31 3a 72 65 70 25 3d 43 25 |1:wt%-=1:rep%=C%|
00025600 80 36 33 3a d6 72 6c 65 78 70 61 6e 64 25 2c 77 |.63:.rlexpand%,w|
00025610 74 73 78 25 2c 72 65 70 25 2c 77 74 25 2c 58 25 |tsx%,rep%,wt%,X%|
00025620 0d ea a6 2f c9 20 32 3a 72 65 70 25 3d 43 25 80 |.../. 2:rep%=C%.|
00025630 36 33 3a d6 72 6c 65 78 70 61 6e 64 25 2c 77 74 |63:.rlexpand%,wt|
00025640 73 78 25 2c 72 65 70 25 2c 77 74 25 2c 58 25 0d |sx%,rep%,wt%,X%.|
00025650 ea b0 36 c9 20 33 3a 77 74 25 2b 3d 31 3a 72 65 |..6. 3:wt%+=1:re|
00025660 70 25 3d 43 25 80 36 33 3a d6 72 6c 65 78 70 61 |p%=C%.63:.rlexpa|
00025670 6e 64 25 2c 77 74 73 78 25 2c 72 65 70 25 2c 77 |nd%,wtsx%,rep%,w|
00025680 74 25 2c 58 25 0d ea ba 05 cb 0d ea c4 0d fd 58 |t%,X%..........X|
00025690 25 3d 77 74 73 78 25 0d ea ce 05 e1 0d ea d8 2a |%=wtsx%........*|
000256a0 dd 20 f2 77 61 74 66 6f 72 64 63 61 63 68 65 28 |. .watfordcache(|
000256b0 77 74 73 78 25 2c f8 20 72 65 70 25 2c f8 20 77 |wtsx%,. rep%,. w|
000256c0 74 25 2c 58 25 29 0d ea e2 20 d6 72 6c 65 78 70 |t%,X%)... .rlexp|
000256d0 61 6e 64 25 2c 77 74 73 78 25 2c 72 65 70 25 2c |and%,wtsx%,rep%,|
000256e0 77 74 25 2c 58 25 0d ea ec 23 f5 20 43 25 3d ba |wt%,X%...#. C%=.|
000256f0 62 79 74 65 66 72 6f 6d 63 61 63 68 65 25 3a c8 |bytefromcache%:.|
00025700 8e 20 43 25 3e 3e 36 20 ca 0d ea f6 1b c9 20 30 |. C%>>6 ...... 0|
00025710 3a 3f 58 25 3d 43 25 3a 58 25 2b 3d 31 3a 77 74 |:?X%=C%:X%+=1:wt|
00025720 25 3d 43 25 0d eb 00 36 c9 20 31 3a 77 74 25 2d |%=C%...6. 1:wt%-|
00025730 3d 31 3a 72 65 70 25 3d 43 25 80 36 33 3a d6 72 |=1:rep%=C%.63:.r|
00025740 6c 65 78 70 61 6e 64 25 2c 77 74 73 78 25 2c 72 |lexpand%,wtsx%,r|
00025750 65 70 25 2c 77 74 25 2c 58 25 0d eb 0a 2f c9 20 |ep%,wt%,X%.../. |
00025760 32 3a 72 65 70 25 3d 43 25 80 36 33 3a d6 72 6c |2:rep%=C%.63:.rl|
00025770 65 78 70 61 6e 64 25 2c 77 74 73 78 25 2c 72 65 |expand%,wtsx%,re|
00025780 70 25 2c 77 74 25 2c 58 25 0d eb 14 36 c9 20 33 |p%,wt%,X%...6. 3|
00025790 3a 77 74 25 2b 3d 31 3a 72 65 70 25 3d 43 25 80 |:wt%+=1:rep%=C%.|
000257a0 36 33 3a d6 72 6c 65 78 70 61 6e 64 25 2c 77 74 |63:.rlexpand%,wt|
000257b0 73 78 25 2c 72 65 70 25 2c 77 74 25 2c 58 25 0d |sx%,rep%,wt%,X%.|
000257c0 eb 1e 05 cb 0d eb 28 0d fd 58 25 3d 77 74 73 78 |......(..X%=wtsx|
000257d0 25 0d eb 32 05 e1 0d eb 3c 18 dd 20 f2 72 65 64 |%..2....<.. .red|
000257e0 75 63 65 28 f8 20 41 25 2c f8 20 42 25 29 0d eb |uce(. A%,. B%)..|
000257f0 46 17 ea 20 43 25 2c 44 25 3a 43 25 3d 41 25 3a |F.. C%,D%:C%=A%:|
00025800 44 25 3d 42 25 0d eb 50 15 f5 20 e7 43 25 3c 44 |D%=B%..P.. .C%<D|
00025810 25 20 c8 94 20 43 25 2c 44 25 0d eb 5a 0c 43 25 |% .. C%,D%..Z.C%|
00025820 3d 43 25 83 44 25 0d eb 64 09 fd 43 25 3d 30 0d |=C%.D%..d..C%=0.|
00025830 eb 6e 15 41 25 3d 41 25 81 44 25 3a 42 25 3d 42 |.n.A%=A%.D%:B%=B|
00025840 25 81 44 25 0d eb 78 05 e1 0d eb 82 19 dd 20 f2 |%.D%..x....... .|
00025850 72 65 61 64 70 69 78 65 6c 72 6f 77 28 7a 25 28 |readpixelrow(z%(|
00025860 29 29 0d eb 8c 0c e7 72 6f 77 73 25 20 8c 0d eb |)).....rows% ...|
00025870 96 16 72 6f 77 73 25 2d 3d 31 3a e7 73 78 25 3d |..rows%-=1:.sx%=|
00025880 78 25 20 8c 0d eb a0 15 57 25 3d a0 28 72 24 2b |x% .....W%=.(r$+|
00025890 22 28 7a 25 28 29 29 22 29 0d eb aa 05 cc 0d eb |"(z%())").......|
000258a0 b4 40 57 25 3d a0 28 72 24 2b 22 28 78 70 25 28 |.@W%=.(r$+"(xp%(|
000258b0 29 29 22 29 3a d6 78 73 61 6d 70 6c 65 25 2c 78 |))"):.xsample%,x|
000258c0 6d 75 6c 25 2c 78 64 69 76 25 2c 7a 25 28 31 2c |mul%,xdiv%,z%(1,|
000258d0 30 29 2c 78 70 25 28 31 2c 30 29 2c 78 25 0d eb |0),xp%(1,0),x%..|
000258e0 be 05 cd 0d eb c8 05 cc 0d eb d2 0a 7a 25 28 29 |............z%()|
000258f0 3d 30 0d eb dc 05 cd 0d eb e6 05 e1 0d eb f0 1a |=0..............|
00025900 dd 20 f2 73 68 61 72 70 70 69 78 65 6c 72 6f 77 |. .sharppixelrow|
00025910 28 7a 25 28 29 29 0d eb fa 0c e7 72 6f 77 73 25 |(z%()).....rows%|
00025920 20 8c 0d ec 04 16 72 6f 77 73 25 2d 3d 31 3a e7 | .....rows%-=1:.|
00025930 73 78 25 3d 78 25 20 8c 0d ec 0e 41 e7 73 68 61 |sx%=x% ....A.sha|
00025940 72 70 65 6e 25 20 f2 73 68 61 72 70 28 7a 25 28 |rpen% .sharp(z%(|
00025950 29 29 20 8b 57 25 3d a0 28 72 24 2b 22 28 7a 25 |)) .W%=.(r$+"(z%|
00025960 28 29 29 22 29 3a e7 65 71 75 61 6c 25 20 f2 66 |())"):.equal% .f|
00025970 69 74 32 28 7a 25 28 29 29 0d ec 18 05 cc 0d ec |it2(z%()).......|
00025980 22 44 e7 73 68 61 72 70 65 6e 25 20 f2 73 68 61 |"D.sharpen% .sha|
00025990 72 70 28 78 70 25 28 29 29 20 8b 57 25 3d a0 28 |rp(xp%()) .W%=.(|
000259a0 72 24 2b 22 28 78 70 25 28 29 29 22 29 3a e7 65 |r$+"(xp%())"):.e|
000259b0 71 75 61 6c 25 20 f2 66 69 74 32 28 78 70 25 28 |qual% .fit2(xp%(|
000259c0 29 29 0d ec 2c 2d d6 78 73 61 6d 70 6c 65 25 2c |))..,-.xsample%,|
000259d0 78 6d 75 6c 25 2c 78 64 69 76 25 2c 7a 25 28 31 |xmul%,xdiv%,z%(1|
000259e0 2c 30 29 2c 78 70 25 28 31 2c 30 29 2c 78 25 0d |,0),xp%(1,0),x%.|
000259f0 ec 36 05 cd 0d ec 40 05 cc 0d ec 4a 0a 7a 25 28 |.6....@....J.z%(|
00025a00 29 3d 30 0d ec 54 05 cd 0d ec 5e 05 e1 0d ec 68 |)=0..T....^....h|
00025a10 12 dd 20 f2 73 68 61 72 70 28 7a 25 28 29 29 0d |.. .sharp(z%()).|
00025a20 ec 72 3d 79 72 65 61 64 25 2d 3d 31 3a e7 79 72 |.r=yread%-=1:.yr|
00025a30 65 61 64 25 20 57 25 3d a0 28 72 24 2b 22 28 72 |ead% W%=.(r$+"(r|
00025a40 6d 25 28 29 29 22 29 3a e7 65 71 75 61 6c 25 20 |m%())"):.equal% |
00025a50 f2 66 69 74 32 28 72 6d 25 28 29 29 0d ec 7c 3d |.fit2(rm%())..|=|
00025a60 e3 42 25 3d 30 b8 63 6f 6c 3a 72 6d 25 28 30 2c |.B%=0.col:rm%(0,|
00025a70 42 25 29 3d 72 6d 25 28 31 2c 42 25 29 3a 72 6d |B%)=rm%(1,B%):rm|
00025a80 25 28 73 78 25 2b 31 2c 42 25 29 3d 72 6d 25 28 |%(sx%+1,B%)=rm%(|
00025a90 73 78 25 2c 42 25 29 3a ed 0d ec 86 3b d6 20 73 |sx%,B%):....;. s|
00025aa0 68 61 72 70 25 2c 7a 25 28 31 2c 30 29 2c 72 6d |harp%,z%(1,0),rm|
00025ab0 25 28 31 2c 30 29 2c 72 6d 31 25 28 31 2c 30 29 |%(1,0),rm1%(1,0)|
00025ac0 2c 72 6d 32 25 28 31 2c 30 29 2c 74 6f 74 76 61 |,rm2%(1,0),totva|
00025ad0 6c 73 32 25 0d ec 90 21 c8 94 20 72 6d 32 25 28 |ls2%...!.. rm2%(|
00025ae0 29 2c 72 6d 31 25 28 29 3a 72 6d 31 25 28 29 3d |),rm1%():rm1%()=|
00025af0 72 6d 25 28 29 0d ec 9a 05 e1 0d ec a4 1b dd 20 |rm%().......... |
00025b00 f2 73 63 61 6c 65 64 70 69 78 65 6c 72 6f 77 28 |.scaledpixelrow(|
00025b10 7a 25 28 29 29 0d ec ae 0d e7 73 79 25 3d 79 25 |z%()).....sy%=y%|
00025b20 20 8c 0d ec b8 17 f2 72 65 61 64 70 69 78 65 6c | ......readpixel|
00025b30 72 6f 77 28 7a 25 28 29 29 0d ec c2 05 cc 0d ec |row(z%()).......|
00025b40 cc 39 79 73 61 6d 70 25 2d 3d 31 3a e7 79 73 61 |.9ysamp%-=1:.ysa|
00025b50 6d 70 25 3d 30 20 f2 72 65 61 64 70 69 78 65 6c |mp%=0 .readpixel|
00025b60 72 6f 77 28 78 6c 25 28 29 29 3a 79 73 61 6d 70 |row(xl%()):ysamp|
00025b70 25 3d 79 6d 75 6c 25 0d ec d6 0e e7 79 64 69 76 |%=ymul%.....ydiv|
00025b80 25 3d 31 20 8c 0d ec e0 0e 7a 25 28 29 3d 78 6c |%=1 .....z%()=xl|
00025b90 25 28 29 0d ec ea 05 cc 0d ec f4 14 e7 79 73 61 |%()..........ysa|
00025ba0 6d 70 25 3e 3d 79 64 69 76 25 20 8c 0d ec fe 22 |mp%>=ydiv% ...."|
00025bb0 79 73 61 6d 70 25 2d 3d 79 64 69 76 25 3a 7a 25 |ysamp%-=ydiv%:z%|
00025bc0 28 29 3d 78 6c 25 28 29 2a 79 64 69 76 25 0d ed |()=xl%()*ydiv%..|
00025bd0 08 05 cc 0d ed 12 32 ea 59 25 3a 7a 25 28 29 3d |......2.Y%:z%()=|
00025be0 78 6c 25 28 29 2a 79 73 61 6d 70 25 3a 59 25 3d |xl%()*ysamp%:Y%=|
00025bf0 79 64 69 76 25 2d 79 73 61 6d 70 25 3a 79 73 61 |ydiv%-ysamp%:ysa|
00025c00 6d 70 25 3d 30 0d ed 1c 05 f5 0d ed 26 2f e7 79 |mp%=0.......&/.y|
00025c10 73 61 6d 70 25 3d 30 20 f2 72 65 61 64 70 69 78 |samp%=0 .readpix|
00025c20 65 6c 72 6f 77 28 78 6c 25 28 29 29 3a 79 73 61 |elrow(xl%()):ysa|
00025c30 6d 70 25 3d 79 6d 75 6c 25 0d ed 30 10 e7 79 73 |mp%=ymul%..0..ys|
00025c40 61 6d 70 25 3e 59 25 20 8c 0d ed 3a 34 79 73 61 |amp%>Y% ...:4ysa|
00025c50 6d 70 25 2d 3d 59 25 3a 78 6c 32 25 28 29 3d 78 |mp%-=Y%:xl2%()=x|
00025c60 6c 25 28 29 2a 59 25 3a 7a 25 28 29 3d 7a 25 28 |l%()*Y%:z%()=z%(|
00025c70 29 2b 78 6c 32 25 28 29 3a 59 25 3d 30 0d ed 44 |)+xl2%():Y%=0..D|
00025c80 05 cc 0d ed 4e 3c 59 25 2d 3d 79 73 61 6d 70 25 |....N<Y%-=ysamp%|
00025c90 3a 78 6c 32 25 28 29 3d 78 6c 25 28 29 2a 79 73 |:xl2%()=xl%()*ys|
00025ca0 61 6d 70 25 3a 7a 25 28 29 3d 7a 25 28 29 2b 78 |amp%:z%()=z%()+x|
00025cb0 6c 32 25 28 29 3a 79 73 61 6d 70 25 3d 30 0d ed |l2%():ysamp%=0..|
00025cc0 58 05 cd 0d ed 62 0a fd 20 59 25 3d 30 0d ed 6c |X....b.. Y%=0..l|
00025cd0 05 cd 0d ed 76 0d 79 73 61 6d 70 25 2b 3d 31 0d |....v.ysamp%+=1.|
00025ce0 ed 80 05 cd 0d ed 8a 05 cd 0d ed 94 05 e1 0d ed |................|
00025cf0 9e 10 dd 20 f2 66 69 74 28 7a 25 28 29 29 0d ed |... .fit(z%())..|
00025d00 a8 24 d6 68 69 73 74 65 71 75 61 6c 25 2c 7a 25 |.$.histequal%,z%|
00025d10 28 31 2c 30 29 2c 6e 65 77 25 28 30 2c 30 29 2c |(1,0),new%(0,0),|
00025d20 78 25 0d ed b2 05 e1 0d ed bc 11 dd 20 f2 66 69 |x%.......... .fi|
00025d30 74 32 28 7a 25 28 29 29 0d ed c6 25 d6 68 69 73 |t2(z%())...%.his|
00025d40 74 65 71 75 61 6c 25 2c 7a 25 28 31 2c 30 29 2c |tequal%,z%(1,0),|
00025d50 6e 65 77 25 28 30 2c 30 29 2c 73 78 25 0d ed d0 |new%(0,0),sx%...|
00025d60 05 e1 0d ed da 1d dd 20 f2 61 64 6a 75 73 74 70 |....... .adjustp|
00025d70 61 6c 65 74 74 65 28 6d 75 6c 2c 73 75 62 29 0d |alette(mul,sub).|
00025d80 ed e4 14 e7 6d 75 6c 3d 31 20 80 20 73 75 62 3d |....mul=1 . sub=|
00025d90 30 20 e1 0d ed ee 15 e3 43 25 3d 30 b8 63 6f 6c |0 ......C%=0.col|
00025da0 6f 75 72 69 6e 64 65 78 0d ed f8 51 72 25 28 43 |ourindex...Qr%(C|
00025db0 25 29 3d 28 72 25 28 43 25 29 2d 73 75 62 29 2a |%)=(r%(C%)-sub)*|
00025dc0 6d 75 6c 2b 31 3a 67 25 28 43 25 29 3d 28 67 25 |mul+1:g%(C%)=(g%|
00025dd0 28 43 25 29 2d 73 75 62 29 2a 6d 75 6c 2b 31 3a |(C%)-sub)*mul+1:|
00025de0 62 25 28 43 25 29 3d 28 62 25 28 43 25 29 2d 73 |b%(C%)=(b%(C%)-s|
00025df0 75 62 29 2a 6d 75 6c 2b 31 0d ee 02 05 ed 0d ee |ub)*mul+1.......|
00025e00 0c 0a e7 68 61 6d 20 8c 0d ee 16 32 e3 43 25 3d |...ham ....2.C%=|
00025e10 30 b8 31 35 2a 34 88 34 3a 6c 74 61 62 6c 65 21 |0.15*4.4:ltable!|
00025e20 43 25 3d 28 6c 74 61 62 6c 65 21 43 25 2d 73 75 |C%=(ltable!C%-su|
00025e30 62 29 2a 6d 75 6c 2b 31 3a ed 0d ee 20 05 cd 0d |b)*mul+1:... ...|
00025e40 ee 2a 10 e7 69 6e 70 75 74 3e 34 30 30 20 8c 0d |.*..input>400 ..|
00025e50 ee 34 15 e3 43 25 3d 30 b8 63 6f 6c 6f 75 72 69 |.4..C%=0.colouri|
00025e60 6e 64 65 78 0d ee 3e 43 72 70 61 6c 25 28 43 25 |ndex..>Crpal%(C%|
00025e70 29 3d 28 72 70 61 6c 25 28 43 25 29 2d 73 75 62 |)=(rpal%(C%)-sub|
00025e80 29 2a 6d 75 6c 2b 31 3a 67 70 61 6c 25 28 43 25 |)*mul+1:gpal%(C%|
00025e90 29 3d 28 67 70 61 6c 25 28 43 25 29 2d 73 75 62 |)=(gpal%(C%)-sub|
00025ea0 29 2a 6d 75 6c 2b 31 0d ee 48 45 62 70 61 6c 25 |)*mul+1..HEbpal%|
00025eb0 28 43 25 29 3d 28 62 70 61 6c 25 28 43 25 29 2d |(C%)=(bpal%(C%)-|
00025ec0 73 75 62 29 2a 6d 75 6c 2b 31 3a 74 61 62 6c 65 |sub)*mul+1:table|
00025ed0 25 28 43 25 29 3d 28 74 61 62 6c 65 25 28 43 25 |%(C%)=(table%(C%|
00025ee0 29 2d 73 75 62 29 2a 6d 75 6c 2b 31 0d ee 52 05 |)-sub)*mul+1..R.|
00025ef0 ed 0d ee 5c 05 cd 0d ee 66 05 e1 0d ee 70 14 dd |...\....f....p..|
00025f00 20 f2 63 61 63 68 65 73 69 7a 65 28 41 25 29 0d | .cachesize(A%).|
00025f10 ee 7a 29 c8 99 26 32 30 30 32 33 2c 22 43 68 61 |.z)..&20023,"Cha|
00025f20 6e 67 65 46 53 49 24 43 61 63 68 65 22 2c 41 25 |ngeFSI$Cache",A%|
00025f30 2c 2d 31 20 b8 2c 2c 5a 0d ee 84 0b e7 5a 3c 3e |,-1 .,,Z.....Z<>|
00025f40 30 20 8c 0d ee 8e 39 c8 99 33 35 2c 22 43 68 61 |0 ....9..35,"Cha|
00025f50 6e 67 65 46 53 49 24 43 61 63 68 65 22 2c 41 25 |ngeFSI$Cache",A%|
00025f60 2c 32 30 20 b8 2c 2c 5a 3a 41 25 3f 5a 3d 31 33 |,20 .,,Z:A%?Z=13|
00025f70 3a 63 61 63 68 65 25 3d bb 24 41 25 0d ee 98 2b |:cache%=.$A%...+|
00025f80 e7 a7 24 41 25 2c 22 4b 22 29 84 a7 24 41 25 2c |..$A%,"K")..$A%,|
00025f90 22 6b 22 29 20 63 61 63 68 65 25 3d 63 61 63 68 |"k") cache%=cach|
00025fa0 65 25 2a 31 30 32 34 0d ee a2 05 cc 0d ee ac 13 |e%*1024.........|
00025fb0 63 61 63 68 65 25 3d 31 32 38 2a 31 30 32 34 0d |cache%=128*1024.|
00025fc0 ee b6 05 cd 0d ee c0 05 e1 0d ee ca 0d dd 20 f2 |.............. .|
00025fd0 72 65 66 69 6c 6c 0d ee d4 1c e7 73 74 72 69 70 |refill.....strip|
00025fe0 72 6f 77 73 25 3e 30 20 f2 6e 65 78 74 73 74 72 |rows%>0 .nextstr|
00025ff0 69 70 0d ee de 45 c8 99 31 32 2c 34 2c 63 25 2c |ip...E..12,4,c%,|
00026000 64 61 74 61 63 61 63 68 65 25 2c 63 61 63 68 65 |datacache%,cache|
00026010 25 3a 72 6f 77 73 74 6f 67 6f 25 3d 63 61 63 68 |%:rowstogo%=cach|
00026020 65 72 6f 77 73 25 3a 62 75 66 66 25 3d 64 61 74 |erows%:buff%=dat|
00026030 61 63 61 63 68 65 25 0d ee e8 4c e7 69 6e 70 75 |acache%...L.inpu|
00026040 74 3d 32 34 84 69 6e 70 75 74 3d 34 38 20 e7 72 |t=24.input=48 .r|
00026050 62 6f 25 3e 3d 30 20 72 62 25 3d 62 75 66 66 25 |bo%>=0 rb%=buff%|
00026060 2b 72 62 6f 25 3a 67 62 25 3d 62 75 66 66 25 2b |+rbo%:gb%=buff%+|
00026070 67 62 6f 25 3a 62 62 25 3d 62 75 66 66 25 2b 62 |gbo%:bb%=buff%+b|
00026080 62 6f 25 0d ee f2 05 e1 0d ee fc 10 dd 20 f2 72 |bo%.......... .r|
00026090 65 66 69 6c 6c 70 63 64 0d ef 06 15 e7 70 63 64 |efillpcd.....pcd|
000260a0 62 6c 6b 25 21 34 3e 3d 73 79 25 20 e1 0d ef 10 |blk%!4>=sy% ....|
000260b0 23 e7 70 63 64 62 6c 6b 25 21 31 32 3e 3d 73 79 |#.pcdblk%!12>=sy|
000260c0 25 20 70 63 64 62 6c 6b 25 21 31 32 3d 73 79 25 |% pcdblk%!12=sy%|
000260d0 0d ef 24 56 c8 99 22 50 68 6f 74 6f 43 44 5f 47 |..$V.."PhotoCD_G|
000260e0 65 74 42 6c 6f 63 6b 22 2c 70 63 64 68 25 2c 2c |etBlock",pcdh%,,|
000260f0 70 63 64 62 6c 6b 25 2c 64 61 74 61 63 61 63 68 |pcdblk%,datacach|
00026100 65 25 2c 70 63 64 69 6e 64 65 78 25 2c 2c 2c 70 |e%,pcdindex%,,,p|
00026110 63 64 63 61 63 68 65 25 2c 70 63 64 63 61 63 68 |cdcache%,pcdcach|
00026120 65 73 69 7a 65 25 0d ef 2e 56 72 6f 77 73 74 6f |esize%...Vrowsto|
00026130 67 6f 25 3d 63 61 63 68 65 72 6f 77 73 25 3a 62 |go%=cacherows%:b|
00026140 75 66 66 25 3d 64 61 74 61 63 61 63 68 65 25 3a |uff%=datacache%:|
00026150 70 63 64 62 6c 6b 25 21 34 2b 3d 63 61 63 68 65 |pcdblk%!4+=cache|
00026160 72 6f 77 73 25 3a 70 63 64 62 6c 6b 25 21 31 32 |rows%:pcdblk%!12|
00026170 2b 3d 63 61 63 68 65 72 6f 77 73 25 0d ef 38 30 |+=cacherows%..80|
00026180 72 62 25 3d 62 75 66 66 25 2b 72 62 6f 25 3a 67 |rb%=buff%+rbo%:g|
00026190 62 25 3d 62 75 66 66 25 2b 67 62 6f 25 3a 62 62 |b%=buff%+gbo%:bb|
000261a0 25 3d 62 75 66 66 25 2b 62 62 6f 25 0d ef 42 05 |%=buff%+bbo%..B.|
000261b0 e1 0d ef 56 0e dd 20 a4 38 28 7a 25 28 29 29 0d |...V.. .8(z%()).|
000261c0 ef 60 3d d6 6d 61 70 70 69 78 25 2c 7a 25 28 31 |.`=.mappix%,z%(1|
000261d0 2c 30 29 2c 72 25 28 30 29 2c 67 25 28 30 29 2c |,0),r%(0),g%(0),|
000261e0 62 25 28 30 29 2c 62 75 66 66 25 3a 62 75 66 66 |b%(0),buff%:buff|
000261f0 25 2b 3d 72 6f 77 62 79 74 65 73 25 0d ef 6a 25 |%+=rowbytes%..j%|
00026200 72 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a e7 72 6f |rowstogo%-=1:.ro|
00026210 77 73 74 6f 67 6f 25 3d 30 20 f2 72 65 66 69 6c |wstogo%=0 .refil|
00026220 6c 0d ef 74 06 3d b9 0d ef 88 0f dd 20 a4 31 36 |l..t.=...... .16|
00026230 28 7a 25 28 29 29 0d ef 92 44 d6 6d 61 70 70 69 |(z%())...D.mappi|
00026240 78 25 2c 7a 25 28 31 2c 30 29 2c 72 70 61 6c 25 |x%,z%(1,0),rpal%|
00026250 28 30 29 2c 67 70 61 6c 25 28 30 29 2c 72 25 28 |(0),gpal%(0),r%(|
00026260 30 29 2c 67 25 28 30 29 2c 62 25 28 30 29 2c 62 |0),g%(0),b%(0),b|
00026270 75 66 66 25 2c 62 75 66 66 25 0d ef 9c 36 62 75 |uff%,buff%...6bu|
00026280 66 66 25 2b 3d 72 6f 77 62 79 74 65 73 25 3a 72 |ff%+=rowbytes%:r|
00026290 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a e7 72 6f 77 |owstogo%-=1:.row|
000262a0 73 74 6f 67 6f 25 3d 30 20 f2 72 65 66 69 6c 6c |stogo%=0 .refill|
000262b0 0d ef a6 06 3d b9 0d ef ba 0f dd 20 a4 32 34 28 |....=...... .24(|
000262c0 7a 25 28 29 29 0d ef c4 32 d6 6d 61 70 70 69 78 |z%())...2.mappix|
000262d0 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c |%,z%(1,0),r%(0),|
000262e0 67 25 28 30 29 2c 62 25 28 30 29 2c 72 62 25 2c |g%(0),b%(0),rb%,|
000262f0 67 62 25 2c 62 62 25 0d ef ce 30 72 62 25 2b 3d |gb%,bb%...0rb%+=|
00026300 72 6f 77 62 79 74 65 73 25 3a 67 62 25 2b 3d 72 |rowbytes%:gb%+=r|
00026310 6f 77 62 79 74 65 73 25 3a 62 62 25 2b 3d 72 6f |owbytes%:bb%+=ro|
00026320 77 62 79 74 65 73 25 0d ef d8 25 72 6f 77 73 74 |wbytes%...%rowst|
00026330 6f 67 6f 25 2d 3d 31 3a e7 72 6f 77 73 74 6f 67 |ogo%-=1:.rowstog|
00026340 6f 25 3d 30 20 f2 72 65 66 69 6c 6c 0d ef e2 06 |o%=0 .refill....|
00026350 3d b9 0d ef f6 10 dd 20 a4 33 30 30 28 7a 25 28 |=...... .300(z%(|
00026360 29 29 0d f0 00 5b c8 99 31 32 2c 34 2c 63 63 25 |))...[..12,4,cc%|
00026370 2c 70 62 75 66 66 25 2c 73 78 25 3a d6 6d 61 70 |,pbuff%,sx%:.map|
00026380 70 69 78 25 2c 7a 25 28 31 2c 30 29 2c 72 70 61 |pix%,z%(1,0),rpa|
00026390 6c 25 28 30 29 2c 67 70 61 6c 25 28 30 29 2c 72 |l%(0),gpal%(0),r|
000263a0 25 28 30 29 2c 67 25 28 30 29 2c 62 25 28 30 29 |%(0),g%(0),b%(0)|
000263b0 2c 70 62 75 66 66 25 2c 62 75 66 66 25 0d f0 0a |,pbuff%,buff%...|
000263c0 36 62 75 66 66 25 2b 3d 72 6f 77 62 79 74 65 73 |6buff%+=rowbytes|
000263d0 25 3a 72 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a e7 |%:rowstogo%-=1:.|
000263e0 72 6f 77 73 74 6f 67 6f 25 3d 30 20 f2 72 65 66 |rowstogo%=0 .ref|
000263f0 69 6c 6c 0d f0 14 06 3d b9 0d f0 28 10 dd 20 a4 |ill....=...(.. .|
00026400 34 30 30 28 7a 25 28 29 29 0d f0 32 29 d6 72 65 |400(z%())..2).re|
00026410 61 64 6c 69 6e 65 25 2c 70 6c 62 79 74 65 73 25 |adline%,plbytes%|
00026420 2c 72 65 70 25 2c 70 69 78 25 2c 70 6c 62 75 66 |,rep%,pix%,plbuf|
00026430 66 25 0d f0 3c 32 d6 6d 61 70 70 69 78 25 2c 7a |f%..<2.mappix%,z|
00026440 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 28 |%(1,0),r%(0),g%(|
00026450 30 29 2c 62 25 28 30 29 2c 72 62 25 2c 67 62 25 |0),b%(0),rb%,gb%|
00026460 2c 62 62 25 0d f0 46 06 3d b9 0d f0 5a 10 dd 20 |,bb%..F.=...Z.. |
00026470 a4 35 30 30 28 7a 25 28 29 29 0d f0 64 29 d6 20 |.500(z%())..d). |
00026480 4c 5a 57 64 65 63 6f 64 65 25 2c 74 61 62 6c 65 |LZWdecode%,table|
00026490 25 28 30 29 2c 63 25 2c 70 6c 62 75 66 66 25 2c |%(0),c%,plbuff%,|
000264a0 73 78 25 0d f0 6e 2e d6 6d 61 70 70 69 78 25 2c |sx%..n..mappix%,|
000264b0 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 |z%(1,0),r%(0),g%|
000264c0 28 30 29 2c 62 25 28 30 29 2c 70 6c 62 75 66 66 |(0),b%(0),plbuff|
000264d0 25 0d f0 78 06 3d b9 0d f0 8c 10 dd 20 a4 38 30 |%..x.=...... .80|
000264e0 30 28 7a 25 28 29 29 0d f0 96 29 f2 77 61 74 66 |0(z%())...).watf|
000264f0 6f 72 64 63 61 63 68 65 28 77 74 73 78 25 2c 72 |ordcache(wtsx%,r|
00026500 65 70 25 2c 77 74 25 2c 70 6c 62 75 66 66 25 29 |ep%,wt%,plbuff%)|
00026510 0d f0 a0 2e d6 6d 61 70 70 69 78 25 2c 7a 25 28 |.....mappix%,z%(|
00026520 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 28 30 29 |1,0),r%(0),g%(0)|
00026530 2c 62 25 28 30 29 2c 70 6c 62 75 66 66 25 0d f0 |,b%(0),plbuff%..|
00026540 aa 06 3d b9 0d f0 be 10 dd 20 a4 38 30 31 28 7a |..=...... .801(z|
00026550 25 28 29 29 0d f0 c8 28 f2 77 61 74 66 6f 72 64 |%())...(.watford|
00026560 28 77 74 73 78 31 25 2c 72 65 70 31 25 2c 77 74 |(wtsx1%,rep1%,wt|
00026570 31 25 2c 62 75 66 66 25 2c 63 25 29 0d f0 d2 2a |1%,buff%,c%)...*|
00026580 f2 77 61 74 66 6f 72 64 28 77 74 73 78 32 25 2c |.watford(wtsx2%,|
00026590 72 65 70 32 25 2c 77 74 32 25 2c 77 74 73 78 31 |rep2%,wt2%,wtsx1|
000265a0 25 2c 63 63 25 29 0d f0 dc 2b f2 77 61 74 66 6f |%,cc%)...+.watfo|
000265b0 72 64 28 77 74 73 78 33 25 2c 72 65 70 33 25 2c |rd(wtsx3%,rep3%,|
000265c0 77 74 33 25 2c 77 74 73 78 32 25 2c 63 63 63 25 |wt3%,wtsx2%,ccc%|
000265d0 29 0d f0 e6 32 d6 6d 61 70 70 69 78 25 2c 7a 25 |)...2.mappix%,z%|
000265e0 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 28 30 |(1,0),r%(0),g%(0|
000265f0 29 2c 62 25 28 30 29 2c 72 62 25 2c 67 62 25 2c |),b%(0),rb%,gb%,|
00026600 62 62 25 0d f0 f0 06 3d b9 0d f1 04 10 dd 20 a4 |bb%....=...... .|
00026610 39 30 31 28 7a 25 28 29 29 0d f1 0e 3c c8 99 31 |901(z%())...<..1|
00026620 32 2c 34 2c 63 25 2c 72 62 25 2c 73 78 25 3a c8 |2,4,c%,rb%,sx%:.|
00026630 99 31 32 2c 34 2c 63 63 25 2c 67 62 25 2c 73 78 |.12,4,cc%,gb%,sx|
00026640 25 3a c8 99 31 32 2c 34 2c 63 63 63 25 2c 62 62 |%:..12,4,ccc%,bb|
00026650 25 2c 73 78 25 0d f1 18 32 d6 6d 61 70 70 69 78 |%,sx%...2.mappix|
00026660 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c |%,z%(1,0),r%(0),|
00026670 67 25 28 30 29 2c 62 25 28 30 29 2c 72 62 25 2c |g%(0),b%(0),rb%,|
00026680 67 62 25 2c 62 62 25 0d f1 22 06 3d b9 0d f1 36 |gb%,bb%..".=...6|
00026690 10 dd 20 a4 39 30 32 28 7a 25 28 29 29 0d f1 40 |.. .902(z%())..@|
000266a0 41 d6 75 6e 70 61 63 6b 25 2c 62 75 66 66 25 3a |A.unpack%,buff%:|
000266b0 d6 6d 61 70 70 69 78 25 2c 7a 25 28 31 2c 30 29 |.mappix%,z%(1,0)|
000266c0 2c 72 25 28 30 29 2c 67 25 28 30 29 2c 62 25 28 |,r%(0),g%(0),b%(|
000266d0 30 29 2c 72 62 25 2c 67 62 25 2c 62 62 25 0d f1 |0),rb%,gb%,bb%..|
000266e0 4a 36 62 75 66 66 25 2b 3d 72 6f 77 62 79 74 65 |J6buff%+=rowbyte|
000266f0 73 25 3a 72 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a |s%:rowstogo%-=1:|
00026700 e7 72 6f 77 73 74 6f 67 6f 25 3d 30 20 f2 72 65 |.rowstogo%=0 .re|
00026710 66 69 6c 6c 0d f1 54 06 3d b9 0d f1 68 11 dd 20 |fill..T.=...h.. |
00026720 a4 31 30 30 30 28 7a 25 28 29 29 0d f1 72 3f 58 |.1000(z%())..r?X|
00026730 25 3d 62 75 66 66 25 3a e7 72 65 70 25 3e 30 20 |%=buff%:.rep%>0 |
00026740 43 25 3d 3f 70 61 25 3a d6 72 6c 65 78 70 61 6e |C%=?pa%:.rlexpan|
00026750 64 25 2c 70 61 73 78 25 2c 72 65 70 25 2c 43 25 |d%,pasx%,rep%,C%|
00026760 2c 58 25 3a 70 61 25 2b 3d 31 0d f1 7c 38 e7 72 |,X%:pa%+=1..|8.r|
00026770 65 70 32 25 3e 30 20 43 25 3d 3f 70 61 25 3a d6 |ep2%>0 C%=?pa%:.|
00026780 72 6c 65 78 70 61 6e 64 25 2c 70 61 73 78 25 2c |rlexpand%,pasx%,|
00026790 72 65 70 32 25 2c 43 25 2c 58 25 3a 70 61 25 2b |rep2%,C%,X%:pa%+|
000267a0 3d 31 0d f1 86 15 f5 20 43 25 3d 9a 23 63 25 3a |=1..... C%=.#c%:|
000267b0 e7 43 25 3d 30 20 8c 0d f1 90 40 72 65 70 25 3d |.C%=0 ....@rep%=|
000267c0 9a 23 63 25 3a 43 25 3d 3f 70 61 25 3a d6 72 6c |.#c%:C%=?pa%:.rl|
000267d0 65 78 70 61 6e 64 25 2c 70 61 73 78 25 2c 72 65 |expand%,pasx%,re|
000267e0 70 25 2c 43 25 2c 58 25 3a e7 72 65 70 25 3d 30 |p%,C%,X%:.rep%=0|
000267f0 20 70 61 25 2b 3d 31 0d f1 9a 05 cc 0d f1 a4 53 | pa%+=1........S|
00026800 72 65 70 32 25 3d 43 25 80 31 35 3a 72 65 70 25 |rep2%=C%.15:rep%|
00026810 3d 43 25 3e 3e 34 3a e7 72 65 70 25 20 43 25 3d |=C%>>4:.rep% C%=|
00026820 3f 70 61 25 3a d6 72 6c 65 78 70 61 6e 64 25 2c |?pa%:.rlexpand%,|
00026830 70 61 73 78 25 2c 72 65 70 25 2c 43 25 2c 58 25 |pasx%,rep%,C%,X%|
00026840 3a e7 72 65 70 25 3d 30 20 70 61 25 2b 3d 31 0d |:.rep%=0 pa%+=1.|
00026850 f1 ae 49 e7 58 25 3c 70 61 73 78 25 20 e7 72 65 |..I.X%<pasx% .re|
00026860 70 32 25 20 43 25 3d 3f 70 61 25 3a d6 72 6c 65 |p2% C%=?pa%:.rle|
00026870 78 70 61 6e 64 25 2c 70 61 73 78 25 2c 72 65 70 |xpand%,pasx%,rep|
00026880 32 25 2c 43 25 2c 58 25 3a e7 72 65 70 32 25 3d |2%,C%,X%:.rep2%=|
00026890 30 20 70 61 25 2b 3d 31 0d f1 b8 05 cd 0d f1 c2 |0 pa%+=1........|
000268a0 0d fd 58 25 3d 70 61 73 78 25 0d f1 cc 2c d6 6d |..X%=pasx%...,.m|
000268b0 61 70 70 69 78 25 2c 7a 25 28 31 2c 30 29 2c 72 |appix%,z%(1,0),r|
000268c0 25 28 30 29 2c 67 25 28 30 29 2c 62 25 28 30 29 |%(0),g%(0),b%(0)|
000268d0 2c 62 75 66 66 25 0d f1 d6 06 3d b9 0d f1 ea 11 |,buff%....=.....|
000268e0 dd 20 a4 31 30 30 31 28 7a 25 28 29 29 0d f1 f4 |. .1001(z%())...|
000268f0 3f 58 25 3d 62 75 66 66 25 3a e7 72 65 70 25 3e |?X%=buff%:.rep%>|
00026900 30 20 43 25 3d 3f 70 61 25 3a d6 72 6c 65 78 70 |0 C%=?pa%:.rlexp|
00026910 61 6e 64 25 2c 70 61 73 78 25 2c 72 65 70 25 2c |and%,pasx%,rep%,|
00026920 43 25 2c 58 25 3a 70 61 25 2b 3d 31 0d f1 fe 42 |C%,X%:pa%+=1...B|
00026930 f5 20 72 65 70 25 3d 9a 23 63 25 3a 43 25 3d 3f |. rep%=.#c%:C%=?|
00026940 70 61 25 3a d6 72 6c 65 78 70 61 6e 64 25 2c 70 |pa%:.rlexpand%,p|
00026950 61 73 78 25 2c 72 65 70 25 2c 43 25 2c 58 25 3a |asx%,rep%,C%,X%:|
00026960 e7 72 65 70 25 3d 30 20 70 61 25 2b 3d 31 0d f2 |.rep%=0 pa%+=1..|
00026970 08 36 fd 58 25 3d 70 61 73 78 25 3a d6 6d 61 70 |.6.X%=pasx%:.map|
00026980 70 69 78 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 |pix%,z%(1,0),r%(|
00026990 30 29 2c 67 25 28 30 29 2c 62 25 28 30 29 2c 62 |0),g%(0),b%(0),b|
000269a0 75 66 66 25 0d f2 12 06 3d b9 0d f2 26 11 dd 20 |uff%....=...&.. |
000269b0 a4 31 31 30 30 28 7a 25 28 29 29 0d f2 30 29 d6 |.1100(z%())..0).|
000269c0 72 65 61 64 6c 69 6e 65 25 2c 70 6c 62 79 74 65 |readline%,plbyte|
000269d0 73 25 2c 72 65 70 25 2c 70 69 78 25 2c 70 6c 62 |s%,rep%,pix%,plb|
000269e0 75 66 66 25 0d f2 3a 2e d6 6d 61 70 70 69 78 25 |uff%..:..mappix%|
000269f0 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 |,z%(1,0),r%(0),g|
00026a00 25 28 30 29 2c 62 25 28 30 29 2c 70 6c 62 75 66 |%(0),b%(0),plbuf|
00026a10 66 25 0d f2 44 06 3d b9 0d f2 58 11 dd 20 a4 31 |f%..D.=...X.. .1|
00026a20 34 30 30 28 7a 25 28 29 29 0d f2 62 0c e7 76 72 |400(z%())..b..vr|
00026a30 65 70 25 20 8c 0d f2 6c 0c 76 72 65 70 25 2d 3d |ep% ...l.vrep%-=|
00026a40 31 0d f2 76 05 cc 0d f2 80 38 47 25 3d 62 75 66 |1..v.....8G%=buf|
00026a50 66 25 3a e3 58 25 3d 31 b8 70 6c 61 6e 65 73 25 |f%:.X%=1.planes%|
00026a60 3a 47 25 2b 3d 72 6f 77 62 79 74 65 73 25 3a 46 |:G%+=rowbytes%:F|
00026a70 25 3d 47 25 2d 72 6f 77 62 79 74 65 73 25 0d f2 |%=G%-rowbytes%..|
00026a80 8a 15 f5 20 43 25 3d 9a 23 63 25 3a e7 43 25 3d |... C%=.#c%:.C%=|
00026a90 30 20 8c 0d f2 94 13 43 25 3d 9a 23 63 25 3a e7 |0 .....C%=.#c%:.|
00026aa0 43 25 3d 30 20 8c 0d f2 9e 18 43 25 3d 9a 23 63 |C%=0 .....C%=.#c|
00026ab0 25 3a 76 72 65 70 25 3d 9a 23 63 25 2d 31 0d f2 |%:vrep%=.#c%-1..|
00026ac0 a8 05 cc 0d f2 b2 2a 44 25 3d 46 25 3a c8 99 31 |......*D%=F%:..1|
00026ad0 32 2c 34 2c 63 25 2c 46 25 2c 70 61 74 6c 65 6e |2,4,c%,F%,patlen|
00026ae0 25 3a 46 25 2b 3d 70 61 74 6c 65 6e 25 0d f2 bc |%:F%+=patlen%...|
00026af0 3e e7 43 25 3e 31 20 e3 4e 25 3d 32 b8 43 25 3a |>.C%>1 .N%=2.C%:|
00026b00 e3 45 25 3d 30 b8 70 61 74 6c 65 6e 25 2d 31 3a |.E%=0.patlen%-1:|
00026b10 46 25 3f 45 25 3d 44 25 3f 45 25 3a ed 3a 46 25 |F%?E%=D%?E%:.:F%|
00026b20 2b 3d 70 61 74 6c 65 6e 25 3a ed 0d f2 c6 05 cd |+=patlen%:......|
00026b30 0d f2 d0 05 cc 0d f2 da 0d e7 43 25 3d 31 32 38 |..........C%=128|
00026b40 20 8c 0d f2 e4 22 43 25 3d 9a 23 63 25 3a c8 99 | ...."C%=.#c%:..|
00026b50 31 32 2c 34 2c 63 25 2c 46 25 2c 43 25 3a 46 25 |12,4,c%,F%,C%:F%|
00026b60 2b 3d 43 25 0d f2 ee 05 cc 0d f2 f8 3d 3f 46 25 |+=C%........=?F%|
00026b70 3d 28 43 25 80 26 38 30 29 3c 3e 30 3a e3 45 25 |=(C%.&80)<>0:.E%|
00026b80 3d 46 25 2b 31 b8 46 25 2b 28 43 25 80 26 37 46 |=F%+1.F%+(C%.&7F|
00026b90 29 3a 3f 45 25 3d 3f 46 25 3a ed 3a 46 25 2b 3d |):?E%=?F%:.:F%+=|
00026ba0 43 25 80 26 37 46 0d f3 02 05 cd 0d f3 0c 0f cd |C%.&7F..........|
00026bb0 3a fd 46 25 3e 3d 47 25 3a ed 0d f3 16 24 d6 70 |:.F%>=G%:....$.p|
00026bc0 6c 61 6e 63 6e 76 25 2c 72 6f 77 62 79 74 65 73 |lancnv%,rowbytes|
00026bd0 25 2c 62 75 66 66 25 2c 70 62 75 66 66 25 0d f3 |%,buff%,pbuff%..|
00026be0 20 05 cd 0d f3 2a 2d d6 6d 61 70 70 69 78 25 2c | ....*-.mappix%,|
00026bf0 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 |z%(1,0),r%(0),g%|
00026c00 28 30 29 2c 62 25 28 30 29 2c 70 62 75 66 66 25 |(0),b%(0),pbuff%|
00026c10 0d f3 34 06 3d b9 0d f3 48 11 dd 20 a4 31 35 30 |..4.=...H.. .150|
00026c20 31 28 7a 25 28 29 29 0d f3 52 44 d6 72 65 61 64 |1(z%())..RD.read|
00026c30 69 66 66 25 2c 72 6f 77 62 79 74 65 73 25 2c 70 |iff%,rowbytes%,p|
00026c40 6c 62 75 66 66 25 3a 72 6f 77 73 74 6f 67 6f 25 |lbuff%:rowstogo%|
00026c50 2d 3d 31 3a e7 72 6f 77 73 74 6f 67 6f 25 3d 30 |-=1:.rowstogo%=0|
00026c60 20 f2 6e 65 78 74 73 74 72 69 70 0d f3 5c 2e d6 | .nextstrip..\..|
00026c70 6d 61 70 70 69 78 25 2c 7a 25 28 31 2c 30 29 2c |mappix%,z%(1,0),|
00026c80 72 25 28 30 29 2c 67 25 28 30 29 2c 62 25 28 30 |r%(0),g%(0),b%(0|
00026c90 29 2c 70 6c 62 75 66 66 25 0d f3 66 06 3d b9 0d |),plbuff%..f.=..|
00026ca0 f3 7a 11 dd 20 a4 31 35 30 35 28 7a 25 28 29 29 |.z.. .1505(z%())|
00026cb0 0d f3 84 2f d6 20 4c 5a 57 64 65 63 6f 64 65 25 |.../. LZWdecode%|
00026cc0 2c 74 61 62 6c 65 25 28 30 29 2c 63 25 2c 70 6c |,table%(0),c%,pl|
00026cd0 62 75 66 66 25 2c 72 6f 77 62 79 74 65 73 25 0d |buff%,rowbytes%.|
00026ce0 f3 8e 28 72 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a |..(rowstogo%-=1:|
00026cf0 e7 72 6f 77 73 74 6f 67 6f 25 3d 30 20 f2 6e 65 |.rowstogo%=0 .ne|
00026d00 78 74 73 74 72 69 70 0d f3 98 2e d6 6d 61 70 70 |xtstrip.....mapp|
00026d10 69 78 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 |ix%,z%(1,0),r%(0|
00026d20 29 2c 67 25 28 30 29 2c 62 25 28 30 29 2c 70 6c |),g%(0),b%(0),pl|
00026d30 62 75 66 66 25 0d f3 a2 06 3d b9 0d f3 b6 11 dd |buff%....=......|
00026d40 20 a4 31 35 31 35 28 7a 25 28 29 29 0d f3 c0 2f | .1515(z%()).../|
00026d50 d6 20 4c 5a 57 64 65 63 6f 64 65 25 2c 74 61 62 |. LZWdecode%,tab|
00026d60 6c 65 25 28 30 29 2c 63 25 2c 70 6c 62 75 66 66 |le%(0),c%,plbuff|
00026d70 25 2c 72 6f 77 62 79 74 65 73 25 0d f3 ca 28 72 |%,rowbytes%...(r|
00026d80 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a e7 72 6f 77 |owstogo%-=1:.row|
00026d90 73 74 6f 67 6f 25 3d 30 20 f2 6e 65 78 74 73 74 |stogo%=0 .nextst|
00026da0 72 69 70 0d f3 d4 32 d6 6d 61 70 70 69 78 25 2c |rip...2.mappix%,|
00026db0 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 |z%(1,0),r%(0),g%|
00026dc0 28 30 29 2c 62 25 28 30 29 2c 72 62 25 2c 67 62 |(0),b%(0),rb%,gb|
00026dd0 25 2c 62 62 25 0d f3 de 06 3d b9 0d f3 f2 11 dd |%,bb%....=......|
00026de0 20 a4 31 36 30 30 28 7a 25 28 29 29 0d f3 fc 39 | .1600(z%())...9|
00026df0 d6 70 6c 61 6e 63 6e 76 25 2c 72 65 61 6c 72 6f |.plancnv%,realro|
00026e00 77 62 79 74 65 73 25 2c 62 75 66 66 25 2c 70 62 |wbytes%,buff%,pb|
00026e10 75 66 66 25 3a 62 75 66 66 25 2b 3d 72 6f 77 62 |uff%:buff%+=rowb|
00026e20 79 74 65 73 25 0d f4 06 2d d6 6d 61 70 70 69 78 |ytes%...-.mappix|
00026e30 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c |%,z%(1,0),r%(0),|
00026e40 67 25 28 30 29 2c 62 25 28 30 29 2c 70 62 75 66 |g%(0),b%(0),pbuf|
00026e50 66 25 0d f4 10 25 72 6f 77 73 74 6f 67 6f 25 2d |f%...%rowstogo%-|
00026e60 3d 31 3a e7 72 6f 77 73 74 6f 67 6f 25 3d 30 20 |=1:.rowstogo%=0 |
00026e70 f2 72 65 66 69 6c 6c 0d f4 1a 06 3d b9 0d f4 2e |.refill....=....|
00026e80 11 dd 20 a4 31 36 30 31 28 7a 25 28 29 29 0d f4 |.. .1601(z%())..|
00026e90 38 44 e3 58 25 3d 30 b8 70 6c 61 6e 65 73 25 2d |8D.X%=0.planes%-|
00026ea0 31 3a 46 25 3d 70 6c 62 75 66 66 25 2b 58 25 2a |1:F%=plbuff%+X%*|
00026eb0 72 6f 77 62 79 74 65 73 25 3a d6 72 65 61 64 69 |rowbytes%:.readi|
00026ec0 66 66 25 2c 72 6f 77 62 79 74 65 73 25 2c 46 25 |ff%,rowbytes%,F%|
00026ed0 3a ed 0d f4 42 28 e7 6d 61 73 6b 69 6e 67 25 20 |:...B(.masking% |
00026ee0 d6 72 65 61 64 69 66 66 25 2c 72 6f 77 62 79 74 |.readiff%,rowbyt|
00026ef0 65 73 25 2c 70 62 75 66 66 25 0d f4 4c 26 d6 70 |es%,pbuff%..L&.p|
00026f00 6c 61 6e 63 6e 76 25 2c 72 6f 77 62 79 74 65 73 |lancnv%,rowbytes|
00026f10 25 2c 70 6c 62 75 66 66 25 2c 70 62 75 66 66 25 |%,plbuff%,pbuff%|
00026f20 0d f4 56 2d d6 6d 61 70 70 69 78 25 2c 7a 25 28 |..V-.mappix%,z%(|
00026f30 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 28 30 29 |1,0),r%(0),g%(0)|
00026f40 2c 62 25 28 30 29 2c 70 62 75 66 66 25 0d f4 60 |,b%(0),pbuff%..`|
00026f50 06 3d b9 0d f4 74 11 dd 20 a4 31 38 35 30 28 7a |.=...t.. .1850(z|
00026f60 25 28 29 29 0d f4 7e 1f d6 72 65 61 64 69 66 66 |%())..~..readiff|
00026f70 25 2c 72 6f 77 62 79 74 65 73 25 2c 70 6c 62 75 |%,rowbytes%,plbu|
00026f80 66 66 25 0d f4 88 2e d6 6d 61 70 70 69 78 25 2c |ff%.....mappix%,|
00026f90 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 |z%(1,0),r%(0),g%|
00026fa0 28 30 29 2c 62 25 28 30 29 2c 70 6c 62 75 66 66 |(0),b%(0),plbuff|
00026fb0 25 0d f4 92 06 3d b9 0d f4 a6 11 dd 20 a4 31 38 |%....=...... .18|
00026fc0 35 31 28 7a 25 28 29 29 0d f4 b0 1f d6 72 65 61 |51(z%()).....rea|
00026fd0 64 69 66 66 25 2c 72 6f 77 62 79 74 65 73 25 2c |diff%,rowbytes%,|
00026fe0 70 6c 62 75 66 66 25 0d f4 ba 32 d6 6d 61 70 70 |plbuff%...2.mapp|
00026ff0 69 78 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 |ix%,z%(1,0),r%(0|
00027000 29 2c 67 25 28 30 29 2c 62 25 28 30 29 2c 72 62 |),g%(0),b%(0),rb|
00027010 25 2c 67 62 25 2c 62 62 25 0d f4 c4 06 3d b9 0d |%,gb%,bb%....=..|
00027020 f4 d8 11 dd 20 a4 31 39 30 30 28 7a 25 28 29 29 |.... .1900(z%())|
00027030 0d f4 e2 29 d6 72 65 61 64 6c 69 6e 65 25 2c 70 |...).readline%,p|
00027040 6c 62 79 74 65 73 25 2c 72 65 70 25 2c 70 69 78 |lbytes%,rep%,pix|
00027050 25 2c 70 6c 62 75 66 66 25 0d f4 ec 26 d6 70 6c |%,plbuff%...&.pl|
00027060 61 6e 63 6e 76 25 2c 72 6f 77 62 79 74 65 73 25 |ancnv%,rowbytes%|
00027070 2c 70 6c 62 75 66 66 25 2c 70 62 75 66 66 25 0d |,plbuff%,pbuff%.|
00027080 f4 f6 2d d6 6d 61 70 70 69 78 25 2c 7a 25 28 31 |..-.mappix%,z%(1|
00027090 2c 30 29 2c 72 25 28 30 29 2c 67 25 28 30 29 2c |,0),r%(0),g%(0),|
000270a0 62 25 28 30 29 2c 70 62 75 66 66 25 0d f5 00 06 |b%(0),pbuff%....|
000270b0 3d b9 0d f5 14 11 dd 20 a4 32 30 30 30 28 7a 25 |=...... .2000(z%|
000270c0 28 29 29 0d f5 1e 0e 58 25 3d 62 75 66 66 25 3a |())....X%=buff%:|
000270d0 f5 0d f5 28 15 43 25 3d 9a 23 63 25 3a e7 43 25 |...(.C%=.#c%:.C%|
000270e0 3c 31 32 38 20 8c 0d f5 32 20 43 25 2b 3d 31 3a |<128 ...2 C%+=1:|
000270f0 c8 99 31 32 2c 34 2c 63 25 2c 58 25 2c 43 25 3a |..12,4,c%,X%,C%:|
00027100 58 25 2b 3d 43 25 0d f5 3c 05 cc 0d f5 46 30 46 |X%+=C%..<....F0F|
00027110 25 3d 58 25 3a 3f 46 25 3d 9a 23 63 25 3a e3 43 |%=X%:?F%=.#c%:.C|
00027120 25 3d 43 25 b8 31 32 38 88 2d 31 3a 3f 58 25 3d |%=C%.128.-1:?X%=|
00027130 3f 46 25 3a 58 25 2b 3d 31 3a ed 0d f5 50 05 cd |?F%:X%+=1:...P..|
00027140 0d f5 5a 17 fd 58 25 3d 62 75 66 66 25 2b 72 6f |..Z..X%=buff%+ro|
00027150 77 62 79 74 65 73 25 0d f5 64 2c d6 6d 61 70 70 |wbytes%..d,.mapp|
00027160 69 78 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 |ix%,z%(1,0),r%(0|
00027170 29 2c 67 25 28 30 29 2c 62 25 28 30 29 2c 62 75 |),g%(0),b%(0),bu|
00027180 66 66 25 0d f5 6e 06 3d b9 0d f5 82 11 dd 20 a4 |ff%..n.=...... .|
00027190 32 30 30 31 28 7a 25 28 29 29 0d f5 8c 0e 58 25 |2001(z%())....X%|
000271a0 3d 62 75 66 66 25 3a f5 0d f5 96 15 43 25 3d 9a |=buff%:.....C%=.|
000271b0 23 63 25 3a e7 43 25 3c 31 32 38 20 8c 0d f5 a0 |#c%:.C%<128 ....|
000271c0 26 43 25 3d 28 43 25 2b 31 29 2a 32 3a c8 99 31 |&C%=(C%+1)*2:..1|
000271d0 32 2c 34 2c 63 25 2c 58 25 2c 43 25 3a 58 25 2b |2,4,c%,X%,C%:X%+|
000271e0 3d 43 25 0d f5 aa 05 cc 0d f5 b4 36 46 25 3d 58 |=C%........6F%=X|
000271f0 25 3a c8 99 31 32 2c 34 2c 63 25 2c 58 25 2c 32 |%:..12,4,c%,X%,2|
00027200 3a e3 43 25 3d 43 25 b8 31 32 38 88 2d 31 3a 21 |:.C%=C%.128.-1:!|
00027210 58 25 3d 21 46 25 3a 58 25 2b 3d 32 3a ed 0d f5 |X%=!F%:X%+=2:...|
00027220 be 05 cd 0d f5 c8 17 fd 58 25 3d 62 75 66 66 25 |........X%=buff%|
00027230 2b 72 6f 77 62 79 74 65 73 25 0d f5 d2 44 d6 6d |+rowbytes%...D.m|
00027240 61 70 70 69 78 25 2c 7a 25 28 31 2c 30 29 2c 72 |appix%,z%(1,0),r|
00027250 70 61 6c 25 28 30 29 2c 67 70 61 6c 25 28 30 29 |pal%(0),gpal%(0)|
00027260 2c 72 25 28 30 29 2c 67 25 28 30 29 2c 62 25 28 |,r%(0),g%(0),b%(|
00027270 30 29 2c 62 75 66 66 25 2c 62 75 66 66 25 0d f5 |0),buff%,buff%..|
00027280 dc 06 3d b9 0d f5 f0 11 dd 20 a4 32 30 30 32 28 |..=...... .2002(|
00027290 7a 25 28 29 29 0d f5 fa 0e 58 25 3d 62 75 66 66 |z%())....X%=buff|
000272a0 25 3a f5 0d f6 04 15 43 25 3d 9a 23 63 25 3a e7 |%:.....C%=.#c%:.|
000272b0 43 25 3c 31 32 38 20 8c 0d f6 0e 2b 43 25 3d 28 |C%<128 ....+C%=(|
000272c0 43 25 2b 31 29 2a 73 74 65 70 32 34 3a c8 99 31 |C%+1)*step24:..1|
000272d0 32 2c 34 2c 63 25 2c 58 25 2c 43 25 3a 58 25 2b |2,4,c%,X%,C%:X%+|
000272e0 3d 43 25 0d f6 18 05 cc 0d f6 22 40 46 25 3d 58 |=C%......."@F%=X|
000272f0 25 3a c8 99 31 32 2c 34 2c 63 25 2c 58 25 2c 73 |%:..12,4,c%,X%,s|
00027300 74 65 70 32 34 3a e3 43 25 3d 43 25 b8 31 32 38 |tep24:.C%=C%.128|
00027310 88 2d 31 3a 21 58 25 3d 21 46 25 3a 58 25 2b 3d |.-1:!X%=!F%:X%+=|
00027320 73 74 65 70 32 34 3a ed 0d f6 2c 05 cd 0d f6 36 |step24:...,....6|
00027330 17 fd 58 25 3d 62 75 66 66 25 2b 72 6f 77 62 79 |..X%=buff%+rowby|
00027340 74 65 73 25 0d f6 40 32 d6 6d 61 70 70 69 78 25 |tes%..@2.mappix%|
00027350 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 |,z%(1,0),r%(0),g|
00027360 25 28 30 29 2c 62 25 28 30 29 2c 72 62 25 2c 67 |%(0),b%(0),rb%,g|
00027370 62 25 2c 62 62 25 0d f6 4a 06 3d b9 0d f6 5e 11 |b%,bb%..J.=...^.|
00027380 dd 20 a4 32 32 35 30 28 7a 25 28 29 29 0d f6 68 |. .2250(z%())..h|
00027390 51 d6 6d 61 70 70 69 78 25 2c 7a 25 28 31 2c 30 |Q.mappix%,z%(1,0|
000273a0 29 2c 72 70 61 6c 25 28 30 29 2c 72 25 28 30 29 |),rpal%(0),r%(0)|
000273b0 2c 67 70 61 6c 25 28 30 29 2c 67 25 28 30 29 2c |,gpal%(0),g%(0),|
000273c0 62 70 61 6c 25 28 30 29 2c 62 25 28 30 29 2c 74 |bpal%(0),b%(0),t|
000273d0 61 62 6c 65 25 28 30 29 2c 62 75 66 66 25 0d f6 |able%(0),buff%..|
000273e0 72 36 62 75 66 66 25 2b 3d 72 6f 77 62 79 74 65 |r6buff%+=rowbyte|
000273f0 73 25 3a 72 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a |s%:rowstogo%-=1:|
00027400 e7 72 6f 77 73 74 6f 67 6f 25 3d 30 20 f2 72 65 |.rowstogo%=0 .re|
00027410 66 69 6c 6c 0d f6 7c 06 3d b9 0d f6 90 11 dd 20 |fill..|.=...... |
00027420 a4 32 33 30 30 28 7a 25 28 29 29 0d f6 9a 48 e7 |.2300(z%())...H.|
00027430 63 6c 72 66 69 72 73 74 25 20 e3 58 25 3d 30 b8 |clrfirst% .X%=0.|
00027440 73 78 25 2d 31 3a 72 62 25 3f 58 25 3d 3f 62 61 |sx%-1:rb%?X%=?ba|
00027450 63 6b 25 3a 67 62 25 3f 58 25 3d 62 61 63 6b 25 |ck%:gb%?X%=back%|
00027460 3f 31 3a 62 62 25 3f 58 25 3d 62 61 63 6b 25 3f |?1:bb%?X%=back%?|
00027470 32 3a ed 0d f6 a4 0c e7 76 72 65 70 25 20 8c 0d |2:......vrep% ..|
00027480 f6 ae 0c 76 72 65 70 25 2d 3d 31 0d f6 b8 05 cc |...vrep%-=1.....|
00027490 0d f6 c2 07 ea 20 85 0d f6 cc 44 ee 20 85 20 ea |..... ....D. . .|
000274a0 20 76 72 65 70 25 3d 2d 31 3a d6 6d 61 70 70 69 | vrep%=-1:.mappi|
000274b0 78 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 |x%,z%(1,0),r%(0)|
000274c0 2c 67 25 28 30 29 2c 62 25 28 30 29 2c 72 62 25 |,g%(0),b%(0),rb%|
000274d0 2c 67 62 25 2c 62 62 25 3a 3d b9 0d f6 d6 29 45 |,gb%,bb%:=....)E|
000274e0 25 3d a3 3a f5 20 43 25 3d 9a 23 63 25 3a 44 25 |%=.:. C%=.#c%:D%|
000274f0 3d 9a 23 63 25 3a e7 43 25 80 26 34 30 20 44 25 |=.#c%:.C%.&40 D%|
00027500 3d a4 48 57 0d f6 e0 0f c8 8e 20 43 25 80 26 33 |=.HW...... C%.&3|
00027510 66 20 ca 0d f6 ea 28 c9 20 31 3a 45 25 3d b9 3a |f ....(. 1:E%=.:|
00027520 76 72 65 70 25 3d 44 25 2d 31 3a e7 76 72 65 70 |vrep%=D%-1:.vrep|
00027530 25 3c 30 20 76 72 65 70 25 3d a3 0d f6 f4 3c c9 |%<0 vrep%=....<.|
00027540 20 32 3a 63 63 6f 6c 25 3d 62 61 63 6b 25 3f 44 | 2:ccol%=back%?D|
00027550 25 3a 63 62 75 66 25 3d 72 62 25 2b 73 78 25 2a |%:cbuf%=rb%+sx%*|
00027560 44 25 3a e7 44 25 3d 32 35 35 20 63 62 75 66 25 |D%:.D%=255 cbuf%|
00027570 3d 61 6c 70 68 61 25 0d f6 fe 2d c9 20 33 3a e3 |=alpha%...-. 3:.|
00027580 58 25 3d 30 b8 44 25 2d 31 3a 63 62 75 66 25 3f |X%=0.D%-1:cbuf%?|
00027590 58 25 3d 63 63 6f 6c 25 3a ed 3a 63 62 75 66 25 |X%=ccol%:.:cbuf%|
000275a0 2b 3d 44 25 0d f7 08 36 c9 20 35 3a c8 99 31 32 |+=D%...6. 5:..12|
000275b0 2c 34 2c 63 25 2c 63 62 75 66 25 2c 44 25 2b 31 |,4,c%,cbuf%,D%+1|
000275c0 3a 63 62 75 66 25 2b 3d 44 25 2b 31 3a e7 44 25 |:cbuf%+=D%+1:.D%|
000275d0 2b 31 80 31 20 e7 9a 23 63 25 0d f7 12 31 c9 20 |+1.1 ..#c%...1. |
000275e0 36 3a 43 25 3d a4 48 57 3a e3 58 25 3d 30 b8 44 |6:C%=.HW:.X%=0.D|
000275f0 25 3a 63 62 75 66 25 3f 58 25 3d 43 25 3a ed 3a |%:cbuf%?X%=C%:.:|
00027600 63 62 75 66 25 2b 3d 44 25 2b 31 0d f7 1c 05 cb |cbuf%+=D%+1.....|
00027610 0d f7 26 07 fd 45 25 0d f7 30 05 cd 0d f7 3a 32 |..&..E%..0....:2|
00027620 d6 6d 61 70 70 69 78 25 2c 7a 25 28 31 2c 30 29 |.mappix%,z%(1,0)|
00027630 2c 72 25 28 30 29 2c 67 25 28 30 29 2c 62 25 28 |,r%(0),g%(0),b%(|
00027640 30 29 2c 72 62 25 2c 67 62 25 2c 62 62 25 0d f7 |0),rb%,gb%,bb%..|
00027650 44 06 3d b9 0d f7 58 11 dd 20 a4 32 34 30 31 28 |D.=...X.. .2401(|
00027660 7a 25 28 29 29 0d f7 62 1e d6 62 6d 5f 72 6c 65 |z%())..b..bm_rle|
00027670 38 2c 72 6f 77 62 79 74 65 73 25 2c 70 6c 62 75 |8,rowbytes%,plbu|
00027680 66 66 25 0d f7 6c 2e d6 6d 61 70 70 69 78 25 2c |ff%..l..mappix%,|
00027690 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 |z%(1,0),r%(0),g%|
000276a0 28 30 29 2c 62 25 28 30 29 2c 70 6c 62 75 66 66 |(0),b%(0),plbuff|
000276b0 25 0d f7 76 06 3d b9 0d f7 8a 11 dd 20 a4 32 34 |%..v.=...... .24|
000276c0 30 32 28 7a 25 28 29 29 0d f7 94 1e d6 62 6d 5f |02(z%()).....bm_|
000276d0 72 6c 65 34 2c 72 6f 77 62 79 74 65 73 25 2c 70 |rle4,rowbytes%,p|
000276e0 6c 62 75 66 66 25 0d f7 9e 2e d6 6d 61 70 70 69 |lbuff%.....mappi|
000276f0 78 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 |x%,z%(1,0),r%(0)|
00027700 2c 67 25 28 30 29 2c 62 25 28 30 29 2c 70 6c 62 |,g%(0),b%(0),plb|
00027710 75 66 66 25 0d f7 a8 06 3d b9 0d f7 bc 11 dd 20 |uff%....=...... |
00027720 a4 33 30 30 30 28 7a 25 28 29 29 0d f7 c6 51 d6 |.3000(z%())...Q.|
00027730 6d 61 70 70 69 78 25 2c 7a 25 28 31 2c 30 29 2c |mappix%,z%(1,0),|
00027740 72 70 61 6c 25 28 30 29 2c 72 25 28 30 29 2c 67 |rpal%(0),r%(0),g|
00027750 70 61 6c 25 28 30 29 2c 67 25 28 30 29 2c 62 70 |pal%(0),g%(0),bp|
00027760 61 6c 25 28 30 29 2c 62 25 28 30 29 2c 74 61 62 |al%(0),b%(0),tab|
00027770 6c 65 25 28 30 29 2c 62 75 66 66 25 0d f7 d0 36 |le%(0),buff%...6|
00027780 62 75 66 66 25 2b 3d 72 6f 77 62 79 74 65 73 25 |buff%+=rowbytes%|
00027790 3a 72 6f 77 73 74 6f 67 6f 25 2d 3d 31 3a e7 72 |:rowstogo%-=1:.r|
000277a0 6f 77 73 74 6f 67 6f 25 3d 30 20 f2 72 65 66 69 |owstogo%=0 .refi|
000277b0 6c 6c 0d f7 da 06 3d b9 0d f7 e4 11 dd 20 a4 33 |ll....=...... .3|
000277c0 35 30 30 28 7a 25 28 29 29 0d f7 ee 06 3d b9 0d |500(z%())....=..|
000277d0 f7 f8 11 dd 20 a4 33 36 30 30 28 7a 25 28 29 29 |.... .3600(z%())|
000277e0 0d f8 02 32 d6 6d 61 70 70 69 78 25 2c 7a 25 28 |...2.mappix%,z%(|
000277f0 31 2c 30 29 2c 72 25 28 30 29 2c 67 25 28 30 29 |1,0),r%(0),g%(0)|
00027800 2c 62 25 28 30 29 2c 72 62 25 2c 67 62 25 2c 62 |,b%(0),rb%,gb%,b|
00027810 62 25 0d f8 0c 30 72 62 25 2b 3d 72 6f 77 62 79 |b%...0rb%+=rowby|
00027820 74 65 73 25 3a 67 62 25 2b 3d 72 6f 77 62 79 74 |tes%:gb%+=rowbyt|
00027830 65 73 25 3a 62 62 25 2b 3d 72 6f 77 62 79 74 65 |es%:bb%+=rowbyte|
00027840 73 25 0d f8 16 28 72 6f 77 73 74 6f 67 6f 25 2d |s%...(rowstogo%-|
00027850 3d 31 3a e7 72 6f 77 73 74 6f 67 6f 25 3d 30 20 |=1:.rowstogo%=0 |
00027860 f2 72 65 66 69 6c 6c 70 63 64 0d f8 20 06 3d b9 |.refillpcd.. .=.|
00027870 0d f8 2a 11 dd 20 a4 33 37 30 38 28 7a 25 28 29 |..*.. .3708(z%()|
00027880 29 0d f8 34 34 41 25 3d 6a 70 65 67 73 70 61 63 |)..44A%=jpegspac|
00027890 65 25 3a 6a 70 65 67 79 25 2d 3d 31 3a 42 25 3d |e%:jpegy%-=1:B%=|
000278a0 6a 70 65 67 79 25 3a 72 62 25 3d ba 28 6a 70 65 |jpegy%:rb%=.(jpe|
000278b0 67 25 2b 34 29 0d f8 3e 2a d6 6d 61 70 70 69 78 |g%+4)..>*.mappix|
000278c0 25 2c 7a 25 28 31 2c 30 29 2c 72 25 28 30 29 2c |%,z%(1,0),r%(0),|
000278d0 67 25 28 30 29 2c 62 25 28 30 29 2c 72 62 25 0d |g%(0),b%(0),rb%.|
000278e0 f8 48 06 3d b9 0d f8 52 11 dd 20 a4 33 37 32 34 |.H.=...R.. .3724|
000278f0 28 7a 25 28 29 29 0d f8 5c 48 41 25 3d 6a 70 65 |(z%())..\HA%=jpe|
00027900 67 73 70 61 63 65 25 3a 6a 70 65 67 79 25 2d 3d |gspace%:jpegy%-=|
00027910 31 3a 42 25 3d 6a 70 65 67 79 25 3a 72 62 25 3d |1:B%=jpegy%:rb%=|
00027920 ba 28 6a 70 65 67 25 2b 34 29 3a 67 62 25 3d 72 |.(jpeg%+4):gb%=r|
00027930 62 25 2b 31 3a 62 62 25 3d 72 62 25 2b 32 0d f8 |b%+1:bb%=rb%+2..|
00027940 66 32 d6 6d 61 70 70 69 78 25 2c 7a 25 28 31 2c |f2.mappix%,z%(1,|
00027950 30 29 2c 72 25 28 30 29 2c 67 25 28 30 29 2c 62 |0),r%(0),g%(0),b|
00027960 25 28 30 29 2c 72 62 25 2c 67 62 25 2c 62 62 25 |%(0),rb%,gb%,bb%|
00027970 0d f8 70 06 3d b9 0d f8 7a 0d dd 20 f2 72 65 77 |..p.=...z.. .rew|
00027980 69 6e 64 0d f8 84 17 72 6f 77 73 25 3d 73 79 25 |ind....rows%=sy%|
00027990 3a c8 8e 20 66 6c 61 67 20 ca 0d f8 8e 10 c9 20 |:.. flag ...... |
000279a0 30 3a cf 23 63 25 3d 73 74 25 0d f8 98 10 c9 20 |0:.#c%=st%..... |
000279b0 31 30 30 3a cf 23 63 25 3d 34 0d f8 a2 19 c9 20 |100:.#c%=4..... |
000279c0 32 30 30 3a cf 23 63 25 3d 73 74 25 3a 72 65 70 |200:.#c%=st%:rep|
000279d0 25 3d 30 0d f8 ac 1e c9 20 33 30 30 3a cf 23 63 |%=0..... 300:.#c|
000279e0 25 3d 73 74 25 3a cf 23 63 63 25 3d 73 74 63 63 |%=st%:.#cc%=stcc|
000279f0 25 0d f8 b6 19 c9 20 34 30 30 3a cf 23 63 25 3d |%..... 400:.#c%=|
00027a00 73 74 25 3a 72 65 70 25 3d 30 0d f8 c0 35 c9 20 |st%:rep%=0...5. |
00027a10 35 30 30 3a e3 49 25 3d 30 b8 63 6c 65 61 72 63 |500:.I%=0.clearc|
00027a20 6f 64 65 25 2d 31 3a 74 61 62 6c 65 25 28 49 25 |ode%-1:table%(I%|
00027a30 29 3d 49 25 3a ed 3a cf 23 63 25 3d 73 74 25 0d |)=I%:.:.#c%=st%.|
00027a40 f8 ca 46 21 66 69 72 73 74 63 6f 64 65 3d 30 3a |..F!firstcode=0:|
00027a50 21 6f 6c 64 63 6f 64 65 3d 30 3a 21 63 6f 64 65 |!oldcode=0:!code|
00027a60 73 69 7a 65 3d 73 65 74 63 6f 64 65 73 25 2b 31 |size=setcodes%+1|
00027a70 3a 21 73 74 61 63 6b 3d 73 74 6b 25 3a 21 73 70 |:!stack=stk%:!sp|
00027a80 3d 73 74 6b 25 0d f8 d4 48 21 6d 61 78 63 6f 64 |=stk%...H!maxcod|
00027a90 65 3d 63 6c 65 61 72 63 6f 64 65 25 2b 32 3a 21 |e=clearcode%+2:!|
00027aa0 6d 61 78 63 6f 64 65 73 69 7a 65 3d 32 2a 63 6c |maxcodesize=2*cl|
00027ab0 65 61 72 63 6f 64 65 25 3a 21 63 75 72 62 69 74 |earcode%:!curbit|
00027ac0 3d 30 3a 21 6c 61 73 74 62 69 74 3d 30 0d f8 de |=0:!lastbit=0...|
00027ad0 1a c9 20 35 30 31 3a 62 75 66 66 25 3d 64 61 74 |.. 501:buff%=dat|
00027ae0 61 63 61 63 68 65 25 0d f8 e8 13 c9 20 36 30 30 |acache%..... 600|
00027af0 3a cf 23 63 25 3d 26 33 38 30 0d f8 f2 12 c9 20 |:.#c%=&380..... |
00027b00 37 30 30 3a cf 23 63 25 3d 73 74 25 0d f8 fc 1d |700:.#c%=st%....|
00027b10 c9 20 38 30 30 3a cf 23 63 25 3d 30 3a 72 65 70 |. 800:.#c%=0:rep|
00027b20 25 3d 30 3a 77 74 25 3d 30 0d f9 06 4e c9 20 38 |%=0:wt%=0...N. 8|
00027b30 30 31 3a cf 23 63 25 3d 30 3a cf 23 63 63 25 3d |01:.#c%=0:.#cc%=|
00027b40 30 3a cf 23 63 63 63 25 3d 30 3a 72 65 70 31 25 |0:.#ccc%=0:rep1%|
00027b50 3d 30 3a 77 74 31 25 3d 30 3a 72 65 70 32 25 3d |=0:wt1%=0:rep2%=|
00027b60 30 3a 77 74 32 25 3d 30 3a 72 65 70 33 25 3d 30 |0:wt2%=0:rep3%=0|
00027b70 3a 77 74 33 25 3d 30 0d f9 10 10 c9 20 39 30 30 |:wt3%=0..... 900|
00027b80 3a cf 23 63 25 3d 30 0d f9 1a 21 c9 20 39 30 31 |:.#c%=0...!. 901|
00027b90 3a cf 23 63 25 3d 30 3a cf 23 63 63 25 3d 30 3a |:.#c%=0:.#cc%=0:|
00027ba0 cf 23 63 63 63 25 3d 30 0d f9 24 12 c9 20 39 30 |.#ccc%=0..$.. 90|
00027bb0 32 3a cf 23 63 25 3d 73 74 25 0d f9 2e 2e c9 20 |2:.#c%=st%..... |
00027bc0 31 30 30 30 3a cf 23 63 25 3d 73 74 25 3a 70 61 |1000:.#c%=st%:pa|
00027bd0 25 3d 63 74 61 62 6c 65 25 3a 72 65 70 25 3d 30 |%=ctable%:rep%=0|
00027be0 3a 72 65 70 32 25 3d 30 0d f9 38 1a c9 20 31 31 |:rep2%=0..8.. 11|
00027bf0 30 30 3a cf 23 63 25 3d 73 74 25 3a 72 65 70 25 |00:.#c%=st%:rep%|
00027c00 3d 30 0d f9 42 14 c9 20 31 32 30 30 3a cf 23 63 |=0..B.. 1200:.#c|
00027c10 25 3d 31 36 30 30 0d f9 4c 11 c9 20 31 33 30 30 |%=1600..L.. 1300|
00027c20 3a cf 23 63 25 3d 30 0d f9 56 22 c9 20 31 33 30 |:.#c%=0..V". 130|
00027c30 31 3a cf 23 63 25 3d 30 3a cf 23 63 63 25 3d 30 |1:.#c%=0:.#cc%=0|
00027c40 3a cf 23 63 63 63 25 3d 30 0d f9 60 1b c9 20 31 |:.#ccc%=0..`.. 1|
00027c50 34 30 30 3a cf 23 63 25 3d 73 74 25 3a 76 72 65 |400:.#c%=st%:vre|
00027c60 70 25 3d 30 0d f9 6a 36 c9 20 31 35 30 30 3a cf |p%=0..j6. 1500:.|
00027c70 23 63 25 3d 73 74 25 28 30 29 3a 72 6f 77 73 74 |#c%=st%(0):rowst|
00027c80 6f 67 6f 25 3d 73 74 72 69 70 72 6f 77 73 25 3a |ogo%=striprows%:|
00027c90 73 74 72 69 70 70 74 72 3d 30 0d f9 74 14 e7 63 |stripptr=0..t..c|
00027ca0 6f 6d 70 72 65 73 73 69 6f 6e 3d 35 20 8c 0d f9 |ompression=5 ...|
00027cb0 7e 46 21 66 69 72 73 74 63 6f 64 65 3d 30 3a 21 |~F!firstcode=0:!|
00027cc0 6f 6c 64 63 6f 64 65 3d 30 3a 21 63 6f 64 65 73 |oldcode=0:!codes|
00027cd0 69 7a 65 3d 73 65 74 63 6f 64 65 73 25 2b 31 3a |ize=setcodes%+1:|
00027ce0 21 73 74 61 63 6b 3d 73 74 6b 25 3a 21 73 70 3d |!stack=stk%:!sp=|
00027cf0 73 74 6b 25 0d f9 88 48 21 6d 61 78 63 6f 64 65 |stk%...H!maxcode|
00027d00 3d 63 6c 65 61 72 63 6f 64 65 25 2b 32 3a 21 6d |=clearcode%+2:!m|
00027d10 61 78 63 6f 64 65 73 69 7a 65 3d 32 2a 63 6c 65 |axcodesize=2*cle|
00027d20 61 72 63 6f 64 65 25 3a 21 63 75 72 62 69 74 3d |arcode%:!curbit=|
00027d30 30 3a 21 6c 61 73 74 62 69 74 3d 30 0d f9 92 05 |0:!lastbit=0....|
00027d40 cd 0d f9 9c 13 c9 20 31 36 30 30 3a cf 23 63 25 |...... 1600:.#c%|
00027d50 3d 73 74 25 0d f9 a6 12 c9 20 31 37 30 30 3a cf |=st%..... 1700:.|
00027d60 23 63 25 3d 31 36 0d f9 b0 18 c9 20 31 38 30 30 |#c%=16..... 1800|
00027d70 2c 31 38 35 30 3a cf 23 63 25 3d 73 74 25 0d f9 |,1850:.#c%=st%..|
00027d80 ba 1b c9 20 31 39 30 30 3a cf 23 63 25 3d 31 32 |... 1900:.#c%=12|
00027d90 38 3a 72 65 70 25 3d 2d 31 0d f9 c4 13 c9 20 32 |8:rep%=-1..... 2|
00027da0 30 30 30 3a cf 23 63 25 3d 73 74 25 0d f9 ce 11 |000:.#c%=st%....|
00027db0 c9 20 32 31 30 30 3a cf 23 63 25 3d 37 0d f9 d8 |. 2100:.#c%=7...|
00027dc0 13 c9 20 32 32 30 30 3a cf 23 63 25 3d 73 74 25 |.. 2200:.#c%=st%|
00027dd0 0d f9 e2 13 c9 20 32 32 35 30 3a cf 23 63 25 3d |..... 2250:.#c%=|
00027de0 73 74 25 0d f9 ec 1b c9 20 32 33 30 30 3a cf 23 |st%..... 2300:.#|
00027df0 63 25 3d 73 74 25 3a 76 72 65 70 25 3d 30 0d f9 |c%=st%:vrep%=0..|
00027e00 f6 13 c9 20 32 34 30 30 3a cf 23 63 25 3d 73 74 |... 2400:.#c%=st|
00027e10 25 0d fa 00 13 c9 20 32 35 30 30 3a cf 23 63 25 |%..... 2500:.#c%|
00027e20 3d 73 74 25 0d fa 0a 13 c9 20 32 36 30 30 3a cf |=st%..... 2600:.|
00027e30 23 63 25 3d 73 74 25 0d fa 14 13 c9 20 32 37 30 |#c%=st%..... 270|
00027e40 30 3a cf 23 63 25 3d 73 74 25 0d fa 1e 13 c9 20 |0:.#c%=st%..... |
00027e50 32 38 30 30 3a cf 23 63 25 3d 73 74 25 0d fa 28 |2800:.#c%=st%..(|
00027e60 13 c9 20 32 39 30 30 3a cf 23 63 25 3d 73 74 25 |.. 2900:.#c%=st%|
00027e70 0d fa 32 11 c9 20 33 30 30 30 3a cf 23 63 25 3d |..2.. 3000:.#c%=|
00027e80 30 0d fa 3c 16 c9 20 33 36 30 30 3a 70 63 64 62 |0..<.. 3600:pcdb|
00027e90 6c 6b 25 21 34 3d 30 0d fa 46 15 c9 20 33 37 30 |lk%!4=0..F.. 370|
00027ea0 30 3a 6a 70 65 67 79 25 3d 73 79 25 0d fa 50 18 |0:jpegy%=sy%..P.|
00027eb0 c9 20 33 39 30 30 2c 33 39 30 35 3a cf 23 63 25 |. 3900,3905:.#c%|
00027ec0 3d 73 74 25 0d fa 5a 05 cb 0d fa 64 0d e7 63 61 |=st%..Z....d..ca|
00027ed0 63 68 65 25 20 8c 0d fa 6e 10 e7 66 6c 61 67 3d |che% ...n..flag=|
00027ee0 33 36 30 30 20 8c 0d fa 78 44 70 63 64 62 6c 6b |3600 ...xDpcdblk|
00027ef0 25 21 31 32 3d 63 61 63 68 65 72 6f 77 73 25 3a |%!12=cacherows%:|
00027f00 f2 72 65 66 69 6c 6c 70 63 64 3a e7 63 61 63 68 |.refillpcd:.cach|
00027f10 65 25 3e 3d 66 69 6c 65 73 69 7a 65 25 20 72 6f |e%>=filesize% ro|
00027f20 77 73 74 6f 67 6f 25 3d 2d 31 0d fa 82 05 cc 0d |wstogo%=-1......|
00027f30 fa 8c 46 e7 63 61 63 68 65 25 3c 66 69 6c 65 73 |..F.cache%<files|
00027f40 69 7a 65 25 20 c8 99 31 32 2c 34 2c 63 25 2c 64 |ize% ..12,4,c%,d|
00027f50 61 74 61 63 61 63 68 65 25 2c 63 61 63 68 65 25 |atacache%,cache%|
00027f60 3a 72 6f 77 73 74 6f 67 6f 25 3d 63 61 63 68 65 |:rowstogo%=cache|
00027f70 72 6f 77 73 25 0d fa 96 05 cd 0d fa a0 14 62 75 |rows%.........bu|
00027f80 66 66 25 3d 64 61 74 61 63 61 63 68 65 25 0d fa |ff%=datacache%..|
00027f90 aa 3b e7 63 61 63 68 65 62 79 74 65 73 25 20 21 |.;.cachebytes% !|
00027fa0 69 6e 63 61 63 68 65 70 74 72 3d 64 61 74 61 63 |incacheptr=datac|
00027fb0 61 63 68 65 25 3a 21 6e 75 6d 6c 65 66 74 74 6f |ache%:!numleftto|
00027fc0 67 6f 3d 63 61 63 68 65 25 0d fa b4 4c e7 69 6e |go=cache%...L.in|
00027fd0 70 75 74 3d 32 34 84 69 6e 70 75 74 3d 34 38 20 |put=24.input=48 |
00027fe0 e7 72 62 6f 25 3e 3d 30 20 72 62 25 3d 62 75 66 |.rbo%>=0 rb%=buf|
00027ff0 66 25 2b 72 62 6f 25 3a 67 62 25 3d 62 75 66 66 |f%+rbo%:gb%=buff|
00028000 25 2b 67 62 6f 25 3a 62 62 25 3d 62 75 66 66 25 |%+gbo%:bb%=buff%|
00028010 2b 62 62 6f 25 0d fa be 05 cd 0d fa c8 32 e7 66 |+bbo%........2.f|
00028020 6c 61 67 3d 31 35 30 30 20 e7 63 6f 6d 70 72 65 |lag=1500 .compre|
00028030 73 73 69 6f 6e 3d 35 20 72 6f 77 73 74 6f 67 6f |ssion=5 rowstogo|
00028040 25 3d 73 74 72 69 70 72 6f 77 73 25 0d fa d2 05 |%=striprows%....|
00028050 e1 0d fa e6 15 dd 20 f2 41 73 73 65 6d 62 6c 65 |...... .Assemble|
00028060 5f 53 68 65 6c 6c 0d fa f0 0d e3 49 25 3d 30 b8 |_Shell.....I%=0.|
00028070 32 88 32 0d fa fa 0c 50 25 3d 63 6f 64 65 25 0d |2.2....P%=code%.|
00028080 fb 04 0c 5b 20 4f 50 54 20 49 25 0d fb 0e 0f 2e |...[ OPT I%.....|
00028090 53 68 65 6c 6c 5f 43 61 6c 6c 0d fb 18 0f 4d 4f |Shell_Call....MO|
000280a0 56 20 20 20 52 39 2c 52 30 0d fb 22 53 4d 4f 56 |V R9,R0.."SMOV|
000280b0 20 52 30 2c 23 30 3a 4d 4f 56 20 52 31 2c 23 30 | R0,#0:MOV R1,#0|
000280c0 3a 4d 4f 56 20 52 32 2c 23 30 3a 4d 4f 56 20 52 |:MOV R2,#0:MOV R|
000280d0 33 2c 23 32 3a 4d 4f 56 20 52 34 2c 23 30 3a 4d |3,#2:MOV R4,#0:M|
000280e0 4f 56 20 52 35 2c 23 30 3a 4d 4f 56 20 52 36 2c |OV R5,#0:MOV R6,|
000280f0 23 30 3a 4d 4f 56 20 52 37 2c 23 30 0d fb 2c 15 |#0:MOV R7,#0..,.|
00028100 53 57 49 20 20 20 22 4f 53 5f 53 65 74 45 6e 76 |SWI "OS_SetEnv|
00028110 22 0d fb 36 1b 53 54 4d 46 44 20 52 31 33 21 2c |"..6.STMFD R13!,|
00028120 7b 52 30 2d 52 37 2c 20 52 31 32 7d 0d fb 40 2d |{R0-R7, R12}..@-|
00028130 4d 4f 56 20 20 20 52 30 2c 23 30 3a 4d 4f 56 20 |MOV R0,#0:MOV |
00028140 52 31 2c 23 30 3a 4d 4f 56 20 52 32 2c 23 30 3a |R1,#0:MOV R2,#0:|
00028150 4d 4f 56 20 52 33 2c 23 30 0d fb 4a 16 53 57 49 |MOV R3,#0..J.SWI|
00028160 20 20 20 22 4f 53 5f 43 6f 6e 74 72 6f 6c 22 0d | "OS_Control".|
00028170 fb 54 16 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 |.T.STMFD R13!,{R|
00028180 30 2d 52 33 7d 0d fb 5e 25 4d 4f 56 20 20 20 52 |0-R3}..^%MOV R|
00028190 30 2c 23 26 31 30 3a 4d 4f 56 20 52 31 2c 23 30 |0,#&10:MOV R1,#0|
000281a0 3a 4d 4f 56 20 52 32 2c 23 30 0d fb 68 21 53 57 |:MOV R2,#0..h!SW|
000281b0 49 20 20 20 22 58 4f 53 5f 43 68 61 6e 67 65 45 |I "XOS_ChangeE|
000281c0 6e 76 69 72 6f 6e 6d 65 6e 74 22 0d fb 72 16 53 |nvironment"..r.S|
000281d0 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2c 52 32 |TMFD R13!,{R1,R2|
000281e0 7d 0d fb 7c 16 4c 44 52 20 20 20 52 33 2c 5b 52 |}..|.LDR R3,[R|
000281f0 31 34 2c 23 32 38 5d 0d fb 86 14 4c 44 52 20 20 |14,#28]....LDR |
00028200 20 52 33 2c 5b 52 38 2c 52 33 5d 0d fb 90 1a 53 | R3,[R8,R3]....S|
00028210 54 4d 46 44 20 52 31 33 21 2c 7b 52 33 2c 52 39 |TMFD R13!,{R3,R9|
00028220 2c 52 31 34 7d 0d fb 9a 16 53 55 42 20 20 20 52 |,R14}....SUB R|
00028230 39 2c 52 31 33 2c 23 31 30 32 34 0d fb a4 0f 4d |9,R13,#1024....M|
00028240 4f 56 20 20 20 52 35 2c 52 39 0d fb ae 2d 41 44 |OV R5,R9...-AD|
00028250 52 20 20 20 52 36 2c 53 68 65 6c 6c 5f 4a 6f 62 |R R6,Shell_Job|
00028260 3a 41 44 52 20 20 20 52 34 2c 53 68 65 6c 6c 5f |:ADR R4,Shell_|
00028270 4a 6f 62 5f 45 6e 64 0d fb b8 0f 2e 53 68 65 6c |Job_End.....Shel|
00028280 6c 5f 43 6f 70 79 0d fb c2 14 4c 44 52 20 20 20 |l_Copy....LDR |
00028290 52 32 2c 5b 52 36 5d 2c 23 34 0d fb cc 14 53 54 |R2,[R6],#4....ST|
000282a0 52 20 20 20 52 32 2c 5b 52 35 5d 2c 23 34 0d fb |R R2,[R5],#4..|
000282b0 d6 0f 43 4d 50 20 20 20 52 36 2c 52 34 0d fb e0 |..CMP R6,R4...|
000282c0 14 42 43 43 20 20 20 53 68 65 6c 6c 5f 43 6f 70 |.BCC Shell_Cop|
000282d0 79 0d fb ea 0f 4d 4f 56 20 20 20 50 43 2c 52 39 |y....MOV PC,R9|
000282e0 0d fb f4 0e 2e 53 68 65 6c 6c 5f 4a 6f 62 0d fb |.....Shell_Job..|
000282f0 fe 16 4c 44 52 20 20 20 52 32 2c 5b 52 33 2c 23 |..LDR R2,[R3,#|
00028300 2d 34 5d 21 0d fc 08 16 53 54 52 20 20 20 52 32 |-4]!....STR R2|
00028310 2c 5b 52 39 2c 23 2d 34 5d 21 0d fc 12 13 43 4d |,[R9,#-4]!....CM|
00028320 50 20 20 20 52 33 2c 23 26 38 30 30 30 0d fc 1c |P R3,#&8000...|
00028330 13 42 48 49 20 20 20 53 68 65 6c 6c 5f 4a 6f 62 |.BHI Shell_Job|
00028340 0d fc 26 13 53 54 4d 46 44 20 52 31 33 21 2c 7b |..&.STMFD R13!,{|
00028350 52 39 7d 0d fc 30 17 41 44 52 20 20 20 52 30 2c |R9}..0.ADR R0,|
00028360 53 68 65 6c 6c 5f 45 78 69 74 0d fc 3a 4b 4d 4f |Shell_Exit..:KMO|
00028370 56 20 20 20 52 31 2c 52 39 3a 4d 4f 56 20 52 32 |V R1,R9:MOV R2|
00028380 2c 23 30 3a 4d 4f 56 20 52 33 2c 23 32 3a 4d 4f |,#0:MOV R3,#2:MO|
00028390 56 20 52 34 2c 23 30 3a 4d 4f 56 20 52 35 2c 23 |V R4,#0:MOV R5,#|
000283a0 30 3a 4d 4f 56 20 52 36 2c 23 30 3a 4d 4f 56 20 |0:MOV R6,#0:MOV |
000283b0 52 37 2c 23 30 0d fc 44 15 53 57 49 20 20 20 22 |R7,#0..D.SWI "|
000283c0 4f 53 5f 53 65 74 45 6e 76 22 0d fc 4e 18 41 44 |OS_SetEnv"..N.AD|
000283d0 52 20 20 20 52 30 2c 53 68 65 6c 6c 5f 45 72 72 |R R0,Shell_Err|
000283e0 6f 72 0d fc 58 19 41 44 52 20 20 20 52 31 2c 53 |or..X.ADR R1,S|
000283f0 68 65 6c 6c 5f 42 75 66 66 65 72 0d fc 62 19 4d |hell_Buffer..b.M|
00028400 4f 56 20 20 20 52 32 2c 23 30 3a 4d 4f 56 20 52 |OV R2,#0:MOV R|
00028410 33 2c 23 30 0d fc 6c 16 53 57 49 20 20 20 22 4f |3,#0..l.SWI "O|
00028420 53 5f 43 6f 6e 74 72 6f 6c 22 0d fc 76 11 4d 4f |S_Control"..v.MO|
00028430 56 20 20 20 52 30 2c 23 26 31 30 0d fc 80 19 41 |V R0,#&10....A|
00028440 44 52 20 20 20 52 31 2c 53 68 65 6c 6c 5f 55 70 |DR R1,Shell_Up|
00028450 43 61 6c 6c 0d fc 8a 0f 4d 56 4e 20 20 20 52 32 |Call....MVN R2|
00028460 2c 23 30 0d fc 94 21 53 57 49 20 20 20 22 58 4f |,#0...!SWI "XO|
00028470 53 5f 43 68 61 6e 67 65 45 6e 76 69 72 6f 6e 6d |S_ChangeEnvironm|
00028480 65 6e 74 22 0d fc 9e 1b 53 54 52 20 20 20 52 31 |ent"....STR R1|
00028490 33 2c 53 68 65 6c 6c 5f 4a 6f 62 5f 45 6e 64 0d |3,Shell_Job_End.|
000284a0 fc a8 17 4c 44 52 20 20 20 52 30 2c 5b 52 31 33 |...LDR R0,[R13|
000284b0 2c 23 34 2a 32 5d 0d fc b2 12 41 44 44 20 20 20 |,#4*2]....ADD |
000284c0 52 30 2c 52 30 2c 52 39 0d fc bc 16 53 55 42 20 |R0,R0,R9....SUB |
000284d0 20 20 52 30 2c 52 30 2c 23 26 38 30 30 30 0d fc | R0,R0,#&8000..|
000284e0 c6 12 53 57 49 20 20 20 22 4f 53 5f 43 4c 49 22 |..SWI "OS_CLI"|
000284f0 0d fc d0 0f 2e 53 68 65 6c 6c 5f 45 78 69 74 0d |.....Shell_Exit.|
00028500 fc da 10 4d 4f 56 20 20 20 72 30 2c 20 23 30 0d |...MOV r0, #0.|
00028510 fc e4 11 2e 53 68 65 6c 6c 5f 43 6f 6d 6d 6f 6e |....Shell_Common|
00028520 0d fc ee 1d 53 54 52 20 20 20 72 30 2c 20 53 68 |....STR r0, Sh|
00028530 65 6c 6c 5f 45 72 72 6f 72 57 6f 72 64 0d fc f8 |ell_ErrorWord...|
00028540 1b 4c 44 52 20 20 20 52 31 33 2c 53 68 65 6c 6c |.LDR R13,Shell|
00028550 5f 4a 6f 62 5f 45 6e 64 0d fd 02 1e 4c 44 4d 46 |_Job_End....LDMF|
00028560 44 20 52 31 33 21 2c 7b 52 38 2c 52 39 2c 52 31 |D R13!,{R8,R9,R1|
00028570 30 2c 52 31 34 7d 0d fd 0c 16 4c 44 4d 46 44 20 |0,R14}....LDMFD |
00028580 52 31 33 21 2c 7b 52 31 2d 52 32 7d 0d fd 16 11 |R13!,{R1-R2}....|
00028590 4d 4f 56 20 20 20 52 30 2c 23 26 31 30 0d fd 20 |MOV R0,#&10.. |
000285a0 20 53 57 49 20 20 20 22 4f 53 5f 43 68 61 6e 67 | SWI "OS_Chang|
000285b0 65 45 6e 76 69 72 6f 6e 6d 65 6e 74 22 0d fd 2a |eEnvironment"..*|
000285c0 16 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d |.LDMFD R13!,{R0-|
000285d0 52 33 7d 0d fd 34 16 53 57 49 20 20 20 22 4f 53 |R3}..4.SWI "OS|
000285e0 5f 43 6f 6e 74 72 6f 6c 22 0d fd 3e 1b 4c 44 4d |_Control"..>.LDM|
000285f0 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 37 2c 20 |FD R13!,{R0-R7, |
00028600 52 31 32 7d 0d fd 48 15 53 57 49 20 20 20 22 4f |R12}..H.SWI "O|
00028610 53 5f 53 65 74 45 6e 76 22 0d fd 52 13 4d 4f 56 |S_SetEnv"..R.MOV|
00028620 20 20 20 52 31 2c 23 26 38 30 30 30 0d fd 5c 12 | R1,#&8000..\.|
00028630 2e 53 68 65 6c 6c 5f 52 65 73 74 6f 72 65 0d fd |.Shell_Restore..|
00028640 66 14 4c 44 52 20 20 20 52 32 2c 5b 52 38 5d 2c |f.LDR R2,[R8],|
00028650 23 34 0d fd 70 14 53 54 52 20 20 20 52 32 2c 5b |#4..p.STR R2,[|
00028660 52 31 5d 2c 23 34 0d fd 7a 0f 43 4d 50 20 20 20 |R1],#4..z.CMP |
00028670 52 31 2c 52 39 0d fd 84 17 42 43 43 20 20 20 53 |R1,R9....BCC S|
00028680 68 65 6c 6c 5f 52 65 73 74 6f 72 65 0d fd 8e 1c |hell_Restore....|
00028690 4c 44 52 20 20 20 52 30 2c 53 68 65 6c 6c 5f 45 |LDR R0,Shell_E|
000286a0 72 72 6f 72 57 6f 72 64 0d fd 98 0f 54 45 51 20 |rrorWord....TEQ |
000286b0 20 20 52 30 2c 23 30 0d fd a2 1c 42 49 43 45 51 | R0,#0....BICEQ|
000286c0 53 20 50 43 2c 52 31 34 2c 23 26 31 30 30 30 30 |S PC,R14,#&10000|
000286d0 30 30 30 0d fd ac 1b 84 52 4e 45 53 20 50 43 2c |000.....RNES PC,|
000286e0 52 31 34 2c 23 26 31 30 30 30 30 30 30 30 0d fd |R14,#&10000000..|
000286f0 b6 11 2e 53 68 65 6c 6c 5f 55 70 43 61 6c 6c 0d |...Shell_UpCall.|
00028700 fd c0 10 4d 4f 56 20 20 20 50 43 2c 52 31 34 0d |...MOV PC,R14.|
00028710 fd ca 10 2e 53 68 65 6c 6c 5f 45 72 72 6f 72 0d |....Shell_Error.|
00028720 fd d4 1e 41 44 52 20 20 20 72 30 2c 20 53 68 65 |...ADR r0, She|
00028730 6c 6c 5f 42 75 66 66 65 72 20 2b 20 34 0d fd de |ll_Buffer + 4...|
00028740 16 42 20 20 20 20 20 53 68 65 6c 6c 5f 43 6f 6d |.B Shell_Com|
00028750 6d 6f 6e 0d fd e8 11 2e 53 68 65 6c 6c 5f 42 75 |mon.....Shell_Bu|
00028760 66 66 65 72 0d fd f2 0a 45 51 55 44 20 30 0d fd |ffer....EQUD 0..|
00028770 fc 12 45 51 55 44 20 26 31 32 33 34 35 36 37 38 |..EQUD &12345678|
00028780 0d fe 06 12 45 51 55 53 20 c4 31 32 38 2c bd 31 |....EQUS .128,.1|
00028790 33 29 0d fe 10 12 45 51 55 53 20 c4 31 32 38 2c |3)....EQUS .128,|
000287a0 bd 31 33 29 0d fe 1a 14 2e 53 68 65 6c 6c 5f 45 |.13).....Shell_E|
000287b0 72 72 6f 72 57 6f 72 64 0d fe 24 0a 45 51 55 44 |rrorWord..$.EQUD|
000287c0 20 30 0d fe 2e 12 2e 53 68 65 6c 6c 5f 4a 6f 62 | 0.....Shell_Job|
000287d0 5f 45 6e 64 0d fe 38 0a 45 51 55 44 20 30 0d fe |_End..8.EQUD 0..|
000287e0 42 05 5d 0d fe 4c 05 ed 0d fe 56 16 41 25 3d 53 |B.]..L....V.A%=S|
000287f0 68 65 6c 6c 5f 4a 6f 62 5f 45 6e 64 2b 34 0d fe |hell_Job_End+4..|
00028800 60 05 e1 0d fe 74 12 dd 20 f2 73 75 62 74 61 73 |`....t.. .subtas|
00028810 6b 28 61 24 29 0d fe 7e 0d e7 20 74 61 73 6b 25 |k(a$)..~.. task%|
00028820 20 8c 0d fe 88 19 c8 99 22 57 69 6d 70 5f 53 74 | ......."Wimp_St|
00028830 61 72 74 54 61 73 6b 22 2c 61 24 0d fe 92 05 cc |artTask",a$.....|
00028840 0d fe a6 10 de 20 63 6f 64 65 25 20 31 30 32 34 |..... code% 1024|
00028850 0d fe b0 13 f2 41 73 73 65 6d 62 6c 65 5f 53 68 |.....Assemble_Sh|
00028860 65 6c 6c 0d fe ba 16 24 41 25 3d 61 24 3a d6 53 |ell....$A%=a$:.S|
00028870 68 65 6c 6c 5f 43 61 6c 6c 0d fe c4 05 cd 0d fe |hell_Call.......|
00028880 ce 05 e1 0d ff |.....|
00028885 
.