Home » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » PD/ArmSi/!ArmSI/!RunImage
PD/ArmSi/!ArmSI/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s |
| Filename: | PD/ArmSi/!ArmSI/!RunImage |
| Read OK: | ✔ |
| File size: | CE2F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !RunImage
20REM ArmSI - Speed Index appliction
30REM Versions <= 3.12 by J.Abbot
40REM Hacked about (postfix H) by Nick Smith, nas20@uk.ac.cam.phx
50
60ON ERROR PROCerror(ERR,REPORT$):PROCpoll:END
70
80DIM block% 1024,window% 10*1024,icon_block% 512,error_blk% 512,block1% 512
90DIM indirected% 10*1024,menu_indirected% 512,menu_block% 1024
100DIM ib_block% 64, tpcode% 1024, C%(35), B%(20)
110DIM ptr1% 256, ptr2% 256
120
130app_name$="ArmSI"
140full_app_name$="ArmSI Speed Index"
150app_version$="3.31H (21-Nov-92)"
160
170PROCInitialise
180PROCcalcsi
190PROCupdateicon(2,FNmachineguess)
200
210PROCpoll
220
230END
240:
250REM ***
260REM *** Wimp routines
270REM ***
280:
290REM Main polling routine
300DEF PROCpoll
310LOCAL poll_mask%, reason%
320poll_mask% = %000110001
330quit% = FALSE
340REPEAT
350 SYS "Wimp_Poll", poll_mask%, block% TO reason%
360 CASE reason% OF
370 WHEN 1 :PROCredraw
380 WHEN 2 :SYS "Wimp_OpenWindow",, block%
390 WHEN 3 :SYS "Wimp_CloseWindow",, block%
400 WHEN 6 :PROCbutton
410 WHEN 7 :PROCdrag_box
420 WHEN 8 :PROCkey_pressed
430 WHEN 9 :PROCmenu_select
440 WHEN 17,18:PROCreceive
450 ENDCASE
460UNTIL (quit%=TRUE)
470SYS "Wimp_CloseDown"
480END
490ENDPROC
500:
510DEF PROCredraw
520LOCAL L%
530SYS "Wimp_RedrawWindow",,block% TO L%
540WHILE L%
550 SYS "Wimp_GetRectangle",,block% TO L%
560ENDWHILE
570ENDPROC
580:
590REM Open Main SI window
600DEF PROCopensi
610!block% = sysinfo%
620SYS "Wimp_GetWindowState",, block%
630block%!28=-1
640SYS "Wimp_OpenWindow",, block%
650ENDPROC
660:
670REM Open Floating-Point results window
680DEF PROCopenfi
690!block% = fpuinfo%
700SYS "Wimp_GetWindowState",, block%
710block%!28=-1
720SYS "Wimp_OpenWindow",, block%
730ENDPROC
740:
750DEF PROCreceive
760LOCAL type%, w%
770w%=block%!20
780type%=block%!40
790CASE block%!16 OF
800 WHEN 0:quit%=TRUE
810 WHEN 2
820 IF my_ref%>0 AND (my_ref%=block%!12) THEN
830 IF type%=our_filetype% THEN PROCsavesi(FNgetname(block%+44))
840 ENDIF
850 WHEN 3
860 full_file$=FNgetname(block%+44)
870 IF (w%=-2 OR w%=sysinfo% OR w%=fpuinfo%) AND type%=our_filetype% THEN
880 PROCloadsi(full_file$)
890 ENDIF
900 WHEN 5
910 IF type%=our_filetype% THEN
920 full_file$=FNgetname(block%+44)
930 block%!12=block%!8
940 SYS "XWimp_SendMessage",17,block%,w%
950 PROCloadsi(full_file$)
960 ENDIF
970 ENDCASE
980ENDPROC
990:
1000DEF PROCsave(A$,B%)
1010SYS "Wimp_CreateMenu",,-1
1020SYS "Wimp_GetPointerInfo",,icon_block%
1030CASE icon_block%!12 OF
1040 WHEN sysinfo%,proginfo%,savesi%
1050 OTHERWISE
1060 block1%!0=(((45+LEN(A$)) DIV4)+1)*4
1070 block1%!12=0
1080 block1%!16=1
1090 block1%!20=icon_block%!12
1100 block1%!24=icon_block%!16
1110 block1%!28=icon_block%!0
1120 block1%!32=icon_block%!4
1130 block1%!36=-1
1140 block1%!40=B%
1150 $(block1%+44)=A$:?(block1%+44+LEN(A$))=0
1160 SYS "Wimp_SendMessage",17,block1%,icon_block%!12,icon_block%!16 TO ,,task_handle%
1170 my_ref%=block1%!8
1180ENDCASE
1190ENDPROC
1200:
1210DEF PROCbutton
1220LOCAL X%,Y%,button_type%
1230IF block%!16=-1 AND block%!12<>sysinfo% AND block%!12<>fpuinfo% ENDPROC
1240X%=block%!0:Y%=block%!4
1250button_type%=0
1260IF (block%!8 AND %101)>0 button_type%=3
1270IF block%!8=4 button_type%=0
1280IF block%!8=2 button_type%=1
1290IF block%!8=1 button_type%=4
1300IF block%!8=64 button_type%=3
1310CASE block%!12 OF
1320 WHEN -2
1330 IF button_type%=1 menu%=0:PROCmenu(X%,400,"")
1340 IF button_type%=0 PROCopensi
1350 IF button_type%=4 THEN PROCopenfi
1360 WHEN sysinfo%
1370 IF button_type%<2 SYS "Wimp_SetCaretPosition",-1,-1
1380 IF button_type%=1 AND block%!16<>36 THEN
1390 SYS "Wimp_GetPointerInfo",,block1%
1400 menu%=0:PROCmenu(block1%!0,block1%!4,"")
1410 ENDIF
1420 WHEN fpuinfo%
1430 IF button_type%=1 THEN
1440 SYS "Wimp_GetPointerInfo",,block1%
1450 menu%=0:PROCmenu(block1%!0,block1%!4,"")
1460 ENDIF
1470 WHEN savesi%
1480 IF block%!16=2 AND button_type%=0 AND block%!12=savesi% PROCsavesi(FNR_String(savesi%,1)):ENDPROC
1490 IF block%!16=0 AND button_type%=3 THEN
1500 IF block%!12=savesi% drag_icon%=-1
1510 block%!0=block%!12
1520 block%!4=block%!16
1530 SYS "Wimp_GetIconState",,block%
1540 icon_block%!0=block%!0:SYS "Wimp_GetWindowInfo",,icon_block%
1550 X%=icon_block%!4
1560 Y%=icon_block%!16
1570 block%!4=5
1580 block%!8=block%!8+X%
1590 block%!16=block%!16+X%
1600 block%!12=block%!12+Y%
1610 block%!20=block%!20+Y%
1620 block%!24=0
1630 block%!28=0
1640 block%!32=XPixels%<<XFactor%
1650 block%!36=YPixels%
1660 SYS "Wimp_DragBox",,block%
1670 ENDIF
1680ENDCASE
1690ENDPROC
1700:
1710DEF PROCmenu_select
1720LOCAL I%
1730SYS "Wimp_GetPointerInfo",,icon_block%
1740I%=-(icon_block%!8 AND 1)
1750CASE menu% OF
1760 WHEN 0
1770 CASE block%!0 OF
1780 WHEN 1:PROCopensi
1790 WHEN 2:PROCopenfi
1800 WHEN 3:PROCcalcsi
1810 WHEN 4
1820 CASE block%!4 OF
1830 REM ROM speed
1840 WHEN 0:HighROMSpeed=1:PROCUpdateMEMC(&C0,&C0)
1850 WHEN 1:HighROMSpeed=2:PROCUpdateMEMC(&80,&C0)
1860 WHEN 2:HighROMSpeed=3:PROCUpdateMEMC(&40,&C0)
1870 WHEN 3:HighROMSpeed=4:PROCUpdateMEMC(&00,&C0)
1880 WHEN 4:VideoDMA%=NOT(VideoDMA%)
1890 WHEN 5:
1900 IF NOT(FasterBASIC%) THEN
1910 SYS "XWimp_StartTask","RMFaster BASIC"
1920 FasterBASIC%=TRUE
1930 ELSE
1940 SYS "XWimp_StartTask","Obey <ArmSI$Dir>.Resources.OldModule BASIC"
1950 FasterBASIC%=FALSE
1960 ENDIF
1970 WHEN 6:
1980 IF NOT(FasterFPE%) THEN
1990 SYS "XWimp_StartTask","RMFaster FPEmulator"
2000 FasterFPE%=TRUE
2010 ELSE
2020 SYS "XWimp_StartTask","Obey <ArmSI$Dir>.Resources.OldModule FPEmulator"
2030 FasterFPE%=FALSE
2040 ENDIF
2050 WHEN 7:
2060 IF Processor%=3 THEN
2070 CALL readreg
2080 IF (!regword% AND 1)=1 THEN
2090 !regword%=!regword% AND %11111110
2100 CALL writereg
2110 CacheON%=FALSE
2120 ELSE
2130 !regword%=!regword% OR %1
2140 CALL writereg
2150 CacheON%=TRUE
2160 ENDIF
2170 ENDIF
2180 ENDCASE
2190 WHEN 5
2200 CASE block%!4 OF
2210 WHEN 0:IF calcMC% THEN calcMC%=FALSE ELSE calcMC%=TRUE
2220 WHEN 1:IF calcBASIC% THEN calcBASIC%=FALSE ELSE calcBASIC%=TRUE
2230 WHEN 2:IF calcFPU% THEN calcFPU%=FALSE ELSE calcFPU%=TRUE
2240 WHEN 3:IF calcDHRY% THEN calcDHRY%=FALSE ELSE calcDHRY%=TRUE
2250 ENDCASE
2260 WHEN 7:quit%=TRUE
2270 ENDCASE
2280 IF I% menu%=0:PROCmenu(X%,360,"")
2290ENDCASE
2300ENDPROC
2310:
2320DEF PROCkey_pressed
2330IF block%!24<>&D THEN SYS "Wimp_ProcessKey",block%!24:ENDPROC
2340CASE block%!0 OF
2350 WHEN savesi%
2360 IF block%!4>0 THEN
2370 PROCsavesi(FNR_String(savesi%,1))
2380 ELSE
2390 SYS "Wimp_ProcessKey",block%!24
2400 ENDIF
2410 WHEN sysinfo%:SYS "Wimp_SetCaretPosition",-1,-1
2420 OTHERWISE SYS "Wimp_ProcessKey", block%!24
2430ENDCASE
2440ENDPROC
2450:
2460DEF PROCdrag_box
2470IF drag_icon%=-1 THEN PROCsave(FNleaf(FNR_String(savesi%,1)),our_filetype%)
2480ENDPROC
2490:
2500REM ***
2510REM *** Calculation/Display routines (the 'real' bits of code)
2520REM ***
2530:
2540DEF PROCcalcsi
2550LOCAL temp$, ver%, J%, temp%, flags%, paddr%, pr12%, pbuf%, E%, E1%, A%
2560LOCAL Z%, V%, size%, chunk%
2570
2580IF calcDHRY%=TRUE THEN
2590 SYS "XOS_Module",18,"SharedCLibrary" TO ,,,temp%;flags%
2600 IF (flags% AND 1)=1 THEN PROCerror(0, "You require version 3.75 or above of the SharedCLibrary to run the Dhrystones test"):ENDPROC
2610 temp$=FNgetname(!(temp%+&14)+temp%)
2620 temp$=RIGHT$(temp$,18)
2630 ver%=VAL(RIGHT$(temp$,18))*100
2640 IF ver%<375 THEN PROCerror(0, "You require version 3.75 or above of the SharedCLibrary to run the Dhrystones test"):ENDPROC
2650 J%=OPENIN("<ArmSI$Dir>.Resources.Dhrystones")
2660 CLOSE#J%
2670ENDIF
2680
2690REM ** Operating system bits
2700OSver%=OurOSver% : REM Read at Wimp_Initialise (unlikely to change!)
2710OSstr$=FNosver : REM Cunning (!) routine to get OS string
2720mode%=MODE
2730SYS "OS_ReadModeVariable",mode%,7 TO ,,ScreenSize%
2740
2750REM ** Chip Set information
2760IOCType%=1
2770VIDCType%=1
2780
2790IF OSver%<300 THEN
2800 IOEBType%=0
2810 PeriphType%=0
2820 LCDType%=0
2830 UniqueIDa%=0
2840 UniqueIDb%=0
2850ELSE
2860 SYS "OS_ReadSysInfo",2 TO IOEBType%,PeriphType%,LCDType%,UniqueIDa%,UniqueIDb%
2870 IF (OSver%>=301) AND (PeriphType%=1) THEN
2880 SYS "OS_ReadSysInfo",3 TO temp%
2890 CASE ((temp% >> 20) AND %1111) OF
2900 WHEN 1:PeriphType%=1
2910 WHEN 2:PeriphType%=2
2920 OTHERWISE
2930 PerhipType=-1
2940 ENDCASE
2950 ENDIF
2960ENDIF
2970
2980REM ** Call main code, setting up illegal instruction handler code
2990SYS "OS_ChangeEnvironment",1,retcd1,0,0 TO ,paddr%,pr12%,pbuf%
3000CALL assm_main
3010SYS "OS_ChangeEnvironment",1,retcd2,0,0
3020
3030FPstr$="Unknown"
3040temp%=(!fputype% >> 24) MOD 256
3050CASE temp% OF
3060 WHEN 0
3070 FPAType%=0
3080 FPstr$="Old FPEmulator, v"
3090 SYS "XOS_Module",18,"FPEmulator" TO ,,,temp%
3100 temp$=FNgetname(!(temp%+&14)+temp%)
3110 FPstr$+=RIGHT$(temp$,18)
3120 WHEN 1
3130 FPAType%=0
3140 FPstr$="New FPEmulator, v"
3150 SYS "XOS_Module",18,"FPEmulator" TO ,,,temp%
3160 temp$=FNgetname(!(temp%+&14)+temp%)
3170 FPstr$+=RIGHT$(temp$,18)
3180 WHEN &80:FPAType%=1:FPstr$="FP Protocol Convertor card (WE2206)"
3190 WHEN &81:FPAType%=2:FPstr$="ARM FP Accelerator chip"
3200 OTHERWISE FPAType%=-1:FasterFPE%=FALSE
3210ENDCASE
3220
3230IF calcFPU% AND (FPstr$="Unknown" OR FPAType%=-1) THEN
3240 PROCerror(0, "You require a version of the FPEmulator to run the FP tests"):ENDPROC
3250ENDIF
3260
3270Processor%=!tpres%
3280ProcessorType%=!protype%
3290MEMCType%=!memctype%
3300IF !tpres%=3 THEN
3310 temp%=(ProcessorType% >> 8) AND 255
3320 CASE temp% OF
3330 WHEN 3:Processor%=3
3340 WHEN 6
3350 IF ((ProcessorType% >> 4) AND 255)=&61 THEN Processor%=610 ELSE Processor%=600
3360 WHEN 7:Processor%=700
3370 WHEN 8:Processor%=800
3380 OTHERWISE Processor%=3
3390 ENDCASE
3400ENDIF
3410
3420REM Can't have an 'ARM250' id and no IOEB chip, so either ARM61 or ARM2as
3430IF (!tpres%=250) AND (IOEBType%<=0) THEN Processor%=61
3440
3450TimeTaken1=1<<27 :TimeTaken1L=1<<27
3460TimeTaken1a=1<<27:TimeTaken1aL=1<<27
3470TimeTaken2=1<<27 :TimeTaken2L=1<<27
3480TimeTaken3=1<<27 :TimeTaken3L=1<<27
3490TimeTaken4=1<<27 :TimeTaken4L=1<<27
3500
3510SYS "OS_ReadPalette",0,16 TO ,,C%
3520REM ** Disable Video & Sound DMA (turn DRAM refresh on continuously)
3530IF VideoDMA%=FALSE THEN
3540 VDU 19,0,0|
3550 oldmemc%=FNReadMEMC
3560 WAIT:PROCUpdateMEMC(%0011<<8,%1111<<8)
3570ELSE
3580 SYS "Hourglass_On"
3590ENDIF
3600
3610CALL readclock
3620FOR A%=1 TO 4
3630CALL calcARM:CALL calcARML
3640IF !ARMcount1<TimeTaken1 TimeTaken1=!ARMcount1
3650IF !ARMcount1a<TimeTaken1a TimeTaken1a=!ARMcount1a
3660IF !ARMcount2<TimeTaken2 TimeTaken2=!ARMcount2
3670IF !ARMcount3<TimeTaken3 TimeTaken3=!ARMcount3
3680IF !ARMcount4<TimeTaken4 TimeTaken4=!ARMcount4
3690IF !ARMcount1L<TimeTaken1L TimeTaken1L=!ARMcount1L
3700IF !ARMcount1aL<TimeTaken1aL TimeTaken1aL=!ARMcount1aL
3710IF !ARMcount2L<TimeTaken2L TimeTaken2L=!ARMcount2L
3720IF !ARMcount3L<TimeTaken3L TimeTaken3L=!ARMcount3L
3730IF !ARMcount4L<TimeTaken4L TimeTaken4L=!ARMcount4L
3740NEXT
3750
3760OneClockTick=(1/100)/!timer0
3770
3780REM ** RAM/ROM Speeds
3790RAMSpeed=10E8/((&FFFF AND (!ramspeed%))*1000)
3800MemoryBandwidth=(1/(RAMSpeed*10E-10))*3.2 : REM one N-cycle + 3 S-cycles
3810MEMCState%=FNReadMEMC
3820CASE (MEMCState%>>6) AND %11 OF
3830 WHEN %00:HighROMSpeed=4
3840 WHEN %01:HighROMSpeed=3
3850 WHEN %10:HighROMSpeed=2
3860 WHEN %11:HighROMSpeed=1
3870ENDCASE
3880CASE (MEMCState%>>4) AND %11 OF
3890 WHEN %00:LowROMSpeed=4
3900 WHEN %01:LowROMSpeed=3
3910 WHEN %10:LowROMSpeed=2
3920 WHEN %11:LowROMSpeed=1
3930ENDCASE
3940
3950DRAMRefresh%=(MEMCState%>>8) AND %11
3960CASE DRAMRefresh% OF
3970 WHEN %00:DRAMBandwidth=0
3980 WHEN %01:DRAMBandwidth=(((1/4E-6)/50)*4)*100/MemoryBandwidth
3990 WHEN %10:DRAMBandwidth=0
4000 WHEN %11:DRAMBandwidth=((1/4E-6)*4)*100/MemoryBandwidth
4010ENDCASE
4020
4030E%=FALSE:E1%=FALSE
4040
4050REM ** Calculate FP stuff
4060!FPUtimer=!timer0
4070Z%=0:WHILE FPUresults!(Z%*12)<>-1:FPUresults!(Z%*12)=0:Z%+=1:ENDWHILE
4080IF calcFPU% AND FNfpufound THEN
4090 FOR A%=1 TO 2
4100 CALL calcFPU
4110 NEXT
4120ELSE
4130 IF calcFPU% E1%=TRUE:calcFPU%=FALSE
4140ENDIF
4150SYS "OS_ChangeEnvironment",1,paddr%,pr12%,pbuf%
4160
4170REM ** i,s & n-cycles (for *base* machine)
4180i=125:s=125:n=250
4190
4200!MCcount=0
4210BASICcount=0
4220DHRYmsec=0
4230DHRYvalue=0
4240
4250REM ** MC calc
4260IF calcMC% CALL calcMC
4270
4280REM ** BASIC calc (a bit simple!!)
4290IF calcBASIC% WAIT:TIME=0:FORA%=0TO100000:NEXT:BASICcount=TIME
4300
4310REM ** Video refresh rate, etc
4320SYS "OS_ReadModeVariable",-1,11 TO ,,x%:x%+=1
4330SYS "OS_ReadModeVariable",-1,12 TO ,,y%:y%+=1
4340SYS "OS_ReadModeVariable",-1,3 TO ,,bpp%:IF bpp%=63 THEN bpp%=255
4350bpp%+=1:bpp%=LOG(bpp%)/LOG(2)
4360TIME=0:WAIT:FOR l%=1 TO 20:WAIT:WAIT:WAIT:WAIT:NEXT:hz%=(80/TIME)*1000
4370SYS "OS_ReadModeVariable",-1,7 TO ,,size%
4380band%=(size%*(hz%/10))/104857.6
4390VIDEOstr$="Mode "+STR$(mode%)+" ("+STR$x%+"x"+STR$y%+", "+STR$bpp%+" bpp, "+STR$(hz% DIV 10)+"."+STR$(hz% MOD 10)+" Hz, "+STR$(band% DIV 10)+"."+STR$(band% MOD 10)+" Mb/S)"
4400
4410REM Recalc DRAMBandwidth using screen refresh rate
4420CASE DRAMRefresh% OF
4430 WHEN %00:DRAMBandwidth=0
4440 WHEN %01:DRAMBandwidth=(((1/4E-6)/(hz%/10))*4)*100/MemoryBandwidth
4450 WHEN %10:DRAMBandwidth=0
4460 WHEN %11:DRAMBandwidth=((1/4E-6)*4)*100/MemoryBandwidth
4470ENDCASE
4480
4490REM ** Dhrystone calc
4500IF calcDHRY% THEN
4510 OSCLI "UnSet ArmSI$Dhrystone"
4520 SYS "XWimp_StartTask", "<ArmSI$Dir>.Resources.Dhrystones"
4530 SYS "XOS_ReadVarVal","ArmSI$Dhrystone",ptr1%,32+(1<<31),0,0 TO ,,exist%
4540 IF exist%=0 THEN
4550 DHRYmsec=-1
4560 DHRYvalue=-1
4570 ELSE
4580 SYS "OS_ReadVarVal","ArmSI$Dhrystone",ptr1%,32,0,0
4590 temp$=FNgetname(ptr1%)
4600 DHRYmsec=VAL(temp$)
4610 temp$=MID$(temp$,INSTR(temp$," "))
4620 DHRYvalue=VAL(temp$)
4630 ENDIF
4640ENDIF
4650
4660REM ** Turn back on Video/sound DMA
4670IF VideoDMA%=FALSE THEN
4680 WAIT
4690 PROCUpdateMEMC(oldmemc%,%1111<<8)
4700 VDU19,0,C% AND &FF,(C%>>8 AND &FF),(C%>>16 AND &FF),(C%>>24 AND &FF);
4710ELSE
4720 SYS "Hourglass_Off"
4730ENDIF
4740
4750InstructionTime1=(s*Instructions)*10E-10
4760InstructionTime1a=((s+16*i)*Instructions)*10E-10
4770InstructionTime2=((s+n+i+2*n)*(Instructions/2))*10E-10
4780InstructionTime3=((7*s+n+i+s*6+2*n)*(Instructions/2))*10E-10
4790InstructionTime4=((2*s+n)*Instructions)*10E-10
4800InstructionTime1L=((4*s+n)*Instructions)*10E-10
4810InstructionTime1aL=((4*s+n+16*i)*Instructions)*10E-10
4820InstructionTime2L=((4*s+4*n+i)*(Instructions/2))*10E-10
4830InstructionTime3L=((16*s+4*n+i)*(Instructions/2))*10E-10
4840InstructionTime4L=((5*s+2*n)*Instructions)*10E-10
4850
4860TimeTaken1=(!timer0-TimeTaken1)*OneClockTick
4870TimeTaken1a=(!timer0-TimeTaken1a)*OneClockTick
4880TimeTaken2=(!timer0-TimeTaken2)*OneClockTick
4890TimeTaken3=(!timer0-TimeTaken3)*OneClockTick
4900TimeTaken4=(!timer0-TimeTaken4)*OneClockTick
4910TimeTaken1L=(!timer0-TimeTaken1L)*OneClockTick
4920TimeTaken1aL=(!timer0-TimeTaken1aL)*OneClockTick
4930TimeTaken2L=(!timer0-TimeTaken2L)*OneClockTick
4940TimeTaken3L=(!timer0-TimeTaken3L)*OneClockTick
4950TimeTaken4L=(!timer0-TimeTaken4L)*OneClockTick
4960
4970MIPS1=INT((Instructions/TimeTaken1)/10000)/100
4980MIPS1a=INT((Instructions/TimeTaken1a)/10000)/100
4990MIPS2=INT((Instructions/TimeTaken2)/10000)/100
5000MIPS3=INT((Instructions/TimeTaken3)/10000)/100
5010MIPS4=INT((Instructions/TimeTaken4)/10000)/100
5020
5030Index1=INT(InstructionTime1/TimeTaken1*100)/100
5040Index1a=INT(InstructionTime1a/TimeTaken1a*100)/100
5050Index2=INT(InstructionTime2/TimeTaken2*100)/100
5060Index3=INT(InstructionTime3/TimeTaken3*100)/100
5070Index4=INT(InstructionTime4/TimeTaken4*100)/100
5080Index1L=INT(InstructionTime1L/TimeTaken1L*100)/100
5090Index1aL=INT(InstructionTime1aL/TimeTaken1aL*100)/100
5100Index2L=INT(InstructionTime2L/TimeTaken2L*100)/100
5110Index3L=INT(InstructionTime3L/TimeTaken3L*100)/100
5120Index4L=INT(InstructionTime4L/TimeTaken4L*100)/100
5130
5140MIPS1L=INT(MIPS1/Index1*Index1L*100)/100
5150MIPS1aL=INT(MIPS1a/Index1a*Index1aL*100)/100
5160MIPS2L=INT(MIPS2/Index2*Index2L*100)/100
5170MIPS3L=INT(MIPS3/Index3*Index3L*100)/100
5180MIPS4L=INT(MIPS4/Index4*Index4L*100)/100
5190
5200Index1=Index1/.75 : REM Re-calibrate to 300 series
5210Index1a=Index1a/.49
5220Index2=Index2/.81
5230Index3=Index3/.77
5240Index4=Index4/.83
5250Index1L=Index1L/.80
5260Index1aL=Index1aL/.53
5270Index2L=Index2L/.81
5280Index3L=Index3L/.78
5290Index4L=Index4L/.84
5300
5310CASE Processor% OF
5320
5330 WHEN 1
5340 Index1a=0:Index1aL=0:MIPS1a=0:MIPS1aL=0:TimeTaken1a=0:TimeTaken1aL=0
5350 Z=(MIPS1*686+MIPS2*290+MIPS3*9+MIPS4*15+MIPS1L*686+MIPS2L*290+MIPS3L*9+MIPS4L*15)/2
5360 TotalMIPS=INT(Z/1000*100)/100
5370 TotalIndex=INT((Index1+.49+Index2+Index3+Index4+Index1L+.53+Index2L+Index3L+Index4L)/10*100)/100
5380
5390OTHERWISE
5400
5410 Z=(MIPS1*685+MIPS1a+MIPS2*290+MIPS3*9+MIPS4*15+MIPS1L*685+MIPS1aL+MIPS2L*290+MIPS3L*9+MIPS4L*15)/2
5420 TotalMIPS=INT(Z/1000*100)/100
5430 TotalIndex=INT((Index1+Index1a+Index2+Index3+Index4+Index1L+Index1aL+Index2L+Index3L+Index4L)/10*100)/100
5440ENDCASE
5450
5460MCIndex=0:BASICIndex=0:DHRYIndex=0
5470IF calcMC% MCIndex=INT(161/(!MCcount)*1000)/1000
5480IF calcBASIC% BASICIndex=INT(143/BASICcount*1000)/1000
5490IF calcDHRY% DHRYIndex=DHRYvalue/5920.7
5500
5510REM ** RAM/ROM Sizes
5520SYS "OS_ReadMemMapInfo" TO A%,B%:RAMSize%=(A%*B%) DIV 1024:RAMPageSize%=A%
5530IF OSver%<300 THEN
5540 REM No extension ROMs possible
5550 ROMsize%=512*1024:ROMsize5th%=0:ROMnum5th%=0
5560ELSE
5570 SYS "XPodule_ReturnNumber" TO ,ROMnum5th%;flags%
5580 IF (flags% AND 1)=1 THEN
5590 REM Can't read number of extension ROMs, so mark as 'Unknown', -1
5600 ROMsize%=2048*1024:ROMsize5th%=0:ROMnum5th%=-1
5610 ELSE
5620 ROMsize%=2048*1024
5630 ROMsize5th%=0
5640 IF ROMnum5th%>0 THEN
5650 FOR loop%=-2 TO -(ROMnum5th%+1) STEP -1
5660 chunk%=0
5670 REPEAT
5680 SYS "XPodule_EnumerateChunksWithInfo",chunk%,,,loop% TO chunk%,size%;flags%
5690 V%=flags% AND 1
5700 IF (chunk%<>0) AND (V%=0) THEN ROMsize5th%+=size%
5710 UNTIL (chunk%=0) OR (V%=1)
5720 NEXT
5730 ENDIF
5740 ENDIF
5750ENDIF
5760
5770ScreenBandwidth=(ScreenSize%*(hz%/10))*100/MemoryBandwidth
5780ProcessorBandwidth=100-ScreenBandwidth-DRAMBandwidth
5790CASE Processor% OF
5800 WHEN 2:REM ARM2 takes all remaining bandwidth
5810 WHEN 3:IF ProcessorBandwidth>14 ProcessorBandwidth=14
5820 CALL readreg
5830 IF (!regword% AND 1) = 1 THEN CacheON%=TRUE ELSE CacheON%=FALSE
5840ENDCASE
5850
5860SYS "XOS_Module",18,"BASIC",,0 TO ,,,temp%
5870IF temp%<&03800000 THEN FasterBASIC%=TRUE ELSE FasterBASIC%=FALSE
5880IF temp%<=0 THEN FasterBASIC%=-99
5890SYS "XOS_Module",18,"FPEmulator",,0 TO ,,,temp%
5900IF temp%<&03800000 THEN FasterFPE%=TRUE ELSE FasterFPE%=FALSE
5910IF temp%<=0 THEN FasterFPE%=FALSE
5920
5930REM ** A500 ID (looks at keyboard type)
5940SYS "OS_InstallKeyHandler",1 TO keyid%
5950IF keyid%=0 THEN
5960 REM Looks like we've found ourselves a genuine A500 folks !
5970 VIDCType%=3
5980ENDIF
5990
6000REM *** Test for PCATS enhancer card (SWI Enhancer_HardwarePresent)
6010SYS &62A4D TO ;flags%
6020IF (flags% AND 1) = 0 THEN VIDCType%+=128
6030
6040PROCdisplaysi
6050ENDPROC
6060:
6070DEF FNosver
6080LOCAL ERROR
6090ON ERROR LOCAL:=REPORT$
6100SYS "OS_Byte",0,0
6110="Unknown"
6120:
6130REM A fun little routine that makes a fair guess of machine type
6140REM Please correct/improve and return to me! Nick.
6150REM Possible improvments - distinguish machines based on sizes/types
6160REM of HD. eg, A4x0/1 series had built in ST506 controller, A540 has
6170REM a SCSI podule as standard, etc. Hack, hack, hack !
6180:
6190DEF FNmachineguess
6200LOCAL name$
6210
6220IF VIDCType%=3 THEN name$="A500 prototype, "+LEFT$(OSstr$,12):=name$
6230CASE Processor% OF
6240 WHEN 1:name$="Unknown ARM1 machine"
6250 WHEN 2:
6260 CASE MEMCType% OF
6270 WHEN 0
6280 CASE RAMSize% OF
6290 WHEN 512:name$="Original A305"
6300 WHEN 1024:name$="Original A310"
6310 WHEN 2048:name$="Expanded A305/310"
6320 WHEN 4096:name$="Original A440"
6330 OTHERWISE name$="Unknown ARM2+MEMC1 machine"
6340 ENDCASE
6350 WHEN 1
6360 CASE RAMSize% OF
6370 WHEN 512:name$="Expanded A305, MEMC1a"
6380 WHEN 1024:name$="Original A410/1 or A3000"
6390 WHEN 2048:name$="Original A420/1"
6400 WHEN 4096:name$="Original A440/1"
6410 OTHERWISE name$="Unknown ARM2+MEMC1a"
6420 ENDCASE
6430 OTHERWISE name$="Unknown ARM2 machine"
6440 ENDCASE
6450
6460 WHEN 3:
6470 CASE IOEBType% OF
6480 WHEN 0
6490 IF RAMSpeed<120 THEN
6500 CASE RAMSize% OF
6510 WHEN 4096:name$="Original A540"
6520 WHEN 8192:name$="Expanded A540, 8MB"
6530 WHEN 12288:name$="Expanded A540, 12MB"
6540 WHEN 16384:name$="Expanded A540, 16MB"
6550 OTHERWISE name$="Unknown fast-RAM ARM3 machine"
6560 ENDCASE
6570 ELSE
6580 CASE RAMSize% OF
6590 WHEN 512:name$="Expanded A305, ARM3"
6600 WHEN 1024:name$="Expanded A410/1, ARM3"
6610 WHEN 2048:name$="Expanded A420/1, ARM3"
6620 WHEN 4096:name$="Expanded A440/1, ARM3"
6630 WHEN 8192:name$="Expanded A440/1, 8MB"
6640 OTHERWISE name$="Unknown ARM3 machine"
6650 ENDCASE
6660 ENDIF
6670 WHEN 1
6680 CASE RAMSize% OF
6690 WHEN 2048
6700 CASE LCDType% OF
6710 WHEN 0:name$="Original A5000"
6720 WHEN 1:name$="Original A4 portable"
6730 OTHERWISE name$="Unknown 2MB ARM3+IOEB machine"
6740 ENDCASE
6750 WHEN 4096
6760 CASE LCDType% OF
6770 WHEN 0:name$="A5000, 4MB"
6780 WHEN 1:name$="Expanded A4 portable, 4MB"
6790 OTHERWISE name$="Unknown 4MB ARM3+IOEB machine"
6800 ENDCASE
6810 WHEN 8192:name$="Expanded A5000, 8MB"
6820 OTHERWISE name$="Unknown ARM3+IOEB machine"
6830 ENDCASE
6840 OTHERWISE name$="Unknown IOEB machine"
6850 ENDCASE
6860
6870 WHEN 250:
6880 CASE RAMSize% OF
6890 WHEN 1024:name$="Original A3010"
6900 WHEN 2048:name$="Original A3020/A4000"
6910 WHEN 4096:name$="Expanded A3010/3020/4000, 4MB"
6920 OTHERWISE name$="Unknown ARM250 machine"
6930 ENDCASE
6940
6950 OTHERWISE name$="Machine Unknown"
6960ENDCASE
6970=name$+", "+LEFT$(OSstr$,12)
6980:
6990DEF PROCdisplaysi
7000LOCAL temp
7010SYS "Hourglass_On"
7020
7030block1%!0=sysinfo%
7040SYS "Wimp_GetWindowState",,block1%
7050SH%=block1%!28
7060WO%=(block1%!32>>16) AND %1
7070SYS "Wimp_CloseWindow",,block1%
7080block1%!0=fpuinfo%
7090SYS "Wimp_GetWindowState",,block1%
7100FH%=block1%!28
7110WO%+=(block1%!32>>15) AND %10
7120SYS "Wimp_CloseWindow",,block1%
7130
7140REM ** RAM/ROM Sizes
7150IF RAMPageSize%<=0 THEN
7160 PROCupdateicon(4,STR$(RAMSize%)+" K")
7170ELSE
7180 PROCupdateicon(4,STR$(RAMSize%)+" K ("+STR$(RAMPageSize% DIV 1024)+"K x "+STR$(RAMSize%/(RAMPageSize%/1024))+")")
7190ENDIF
7200IF ROMsize%<=0 THEN
7210 PROCupdateicon(6,"Unknown")
7220ELSE
7230 CASE ROMnum5th% OF
7240 WHEN -1:PROCupdateicon(6,STR$(INT(ROMsize%/1024))+" K (? extension ROMs)")
7250 WHEN 0:PROCupdateicon(6,STR$(INT(ROMsize%/1024))+" K")
7260 OTHERWISE
7270 PROCupdateicon(6,STR$(INT(ROMsize%/1024))+" K (+"+STR$(INT(ROMsize5th%/1024))+"K in "+STR$(ROMnum5th%)+" extension ROMs)")
7280 ENDCASE
7290ENDIF
7300
7310REM ** RAM/ROM Speeds
7320IF INT(RAMSpeed)=125 THEN
7330 CASE INT(HighROMSpeed) OF
7340 WHEN 1:PROCupdateicon(8,"125 nS (Paged mode)")
7350 WHEN 2:PROCupdateicon(8,"200 nS (2 n-cycles)")
7360 WHEN 3:PROCupdateicon(8,"325 nS (3 n-cycles)")
7370 WHEN 4:PROCupdateicon(8,"450 nS (4 n-cycles)")
7380 ENDCASE
7390 CASE INT(LowROMSpeed) OF
7400 WHEN 1:PROCupdateicon(1,"125 nS (Paged mode)")
7410 WHEN 2:PROCupdateicon(1,"200 nS (2 n-cycles)")
7420 WHEN 3:PROCupdateicon(1,"325 nS (3 n-cycles)")
7430 WHEN 4:PROCupdateicon(1,"450 nS (4 n-cycles)")
7440 ENDCASE
7450ELSE
7460 IF HighROMSpeed-INT(HighROMSpeed)>=0.1 THEN
7470 PROCupdateicon(8,STR$(INT(HighROMSpeed*RAMSpeed))+" nS ("+STR$(INT(HighROMSpeed)+1)+" n-cycles)")
7480 ELSE
7490 PROCupdateicon(8,STR$(INT(HighROMSpeed*RAMSpeed))+" nS ("+STR$(HighROMSpeed)+" n-cycles)")
7500 ENDIF
7510 IF LowROMSpeed-INT(LowROMSpeed)>=0.1 THEN
7520 PROCupdateicon(1,STR$(INT(LowROMSpeed*RAMSpeed))+" nS ("+STR$(INT(LowROMSpeed)+1)+" n-cycles)")
7530 ELSE
7540 PROCupdateicon(1,STR$(INT(LowROMSpeed*RAMSpeed))+" nS ("+STR$(LowROMSpeed)+" n-cycles)")
7550 ENDIF
7560ENDIF
7570
7580temp=(INT((1/RAMSpeed)*100000))/100
7590PROCupdateicon(12,STR$(INT(RAMSpeed))+" nS ("+STR$(temp)+" MHz)")
7600
7610CASE DRAMRefresh% OF
7620 WHEN %00:PROCupdateicon(14,"None")
7630 WHEN %01:PROCupdateicon(14,"During Video Flyback only")
7640 WHEN %10:PROCupdateicon(14,"None")
7650 WHEN %11:PROCupdateicon(14,"Continuous")
7660ENDCASE
7670
7680PROCupdateicon(17,STR$(INT(MemoryBandwidth))+" bytes/sec")
7690PROCupdateicon(21,FNstrpad(ScreenBandwidth,4)+"%")
7700B%(1)=FNbar(B%(1),10.28*ScreenBandwidth)
7710PROCupdateicon(24,FNstrpad(DRAMBandwidth,4)+"%")
7720B%(2)=FNbar(B%(2),10.28*DRAMBandwidth)
7730PROCupdateicon(27,FNstrpad(ProcessorBandwidth,4)+"%")
7740B%(3)=FNbar(B%(3),10.28*ProcessorBandwidth)
7750PROCupdateicon(30,FNstrpad(100-ScreenBandwidth-DRAMBandwidth-ProcessorBandwidth,4)+"%")
7760B%(4)=FNbar(B%(4),10.28*(100-ScreenBandwidth-DRAMBandwidth-ProcessorBandwidth))
7770PROCupdateicon(34,FNstrpad(TotalMIPS,2)+" MIPS")
7780PROCupdateicon(37,FNstrpad(TotalIndex,2))
7790B%(5)=FNbar(B%(5),154*TotalIndex)
7800
7810PROCupdateicon(42,FNstrpad(Index1,2))
7820B%(6)=FNbar(B%(6),154*Index1)
7830IF Processor%=1 PROCupdateicon(45,"N/A") ELSE PROCupdateicon(45,FNstrpad(Index1a,2))
7840B%(7)=FNbar(B%(7),154*Index1a)
7850PROCupdateicon(48,FNstrpad(Index2,2))
7860B%(8)=FNbar(B%(8),154*Index2)
7870PROCupdateicon(51,FNstrpad(Index3,2))
7880B%(9)=FNbar(B%(9),154*Index3)
7890PROCupdateicon(54,FNstrpad(Index4,2))
7900B%(14)=FNbar(B%(14),154*Index4)
7910PROCupdateicon(58,FNstrpad(Index1L,2))
7920B%(15)=FNbar(B%(15),154*Index1L)
7930IF Processor%=1 PROCupdateicon(61,"N/A") ELSE PROCupdateicon(61,FNstrpad(Index1aL,2))
7940B%(16)=FNbar(B%(16),154*Index1aL)
7950PROCupdateicon(64,FNstrpad(Index2L,2))
7960B%(17)=FNbar(B%(17),154*Index2L)
7970PROCupdateicon(67,FNstrpad(Index3L,2))
7980B%(18)=FNbar(B%(18),154*Index3L)
7990PROCupdateicon(70,FNstrpad(Index4L,2))
8000B%(19)=FNbar(B%(19),154*Index4L)
8010PROCupdateicon(28,FNstrpad(TotalIndex,3))
8020B%(10)=FNbar(B%(10),154*(TotalIndex))
8030Z=TotalIndex:D%=1
8040
8050IF calcMC% THEN
8060 Z+=MCIndex:D%+=1
8070 PROCupdateicon(46,FNstrpad(MCIndex,3))
8080 B%(11)=FNbar(B%(11),154*MCIndex)
8090ELSE
8100 PROCupdateicon(46,"Not computed")
8110 B%(11)=FNbar(B%(11),0)
8120ENDIF
8130
8140IF calcBASIC% THEN
8150 Z+=BASICIndex:D%+=1
8160 PROCupdateicon(55,FNstrpad(BASICIndex,3))
8170 B%(12)=FNbar(B%(12),154*BASICIndex)
8180ELSE
8190 PROCupdateicon(55,"Not computed")
8200 B%(12)=FNbar(B%(12),0)
8210ENDIF
8220
8230IF calcDHRY% THEN
8240 IF DHRYmsec=-1 THEN
8250 PROCupdateicon(65,"Not computed")
8260 B%(20)=FNbar(B%(20),0)
8270 ELSE
8280 Z+=DHRYIndex:D%+=1
8290 PROCupdateicon(65,FNstrpad(DHRYIndex,3))
8300 B%(20)=FNbar(B%(20),154*DHRYIndex)
8310 ENDIF
8320ELSE
8330 PROCupdateicon(65,"Not computed")
8340 B%(20)=FNbar(B%(20),0)
8350ENDIF
8360
8370PROCupdateicon(31,FNstrpad(Z/D%,3))
8380B%(13)=FNbar(B%(13),154*(Z/D%))
8390
8400REM ** Chip set
8410CASE MEMCType% OF
8420 WHEN 0:PROCupdateicon(74,"MEMC1 - VL86C110")
8430 WHEN 1:PROCupdateicon(74,"MEMC1a - VL86C110")
8440OTHERWISE
8450 PROCupdateicon(74,"Unknown")
8460ENDCASE
8470
8480CASE IOCType% OF
8490 WHEN 1:PROCupdateicon(76,"IOC1 - VL86C410")
8500 WHEN 2:PROCupdateicon(76,"IOC2")
8510OTHERWISE
8520 PROCupdateicon(76,"Unknown")
8530ENDCASE
8540
8550PROCupdateicon(78,"Unknown")
8560
8570CASE VIDCType% OF
8580 WHEN 1:PROCupdateicon(80,"VIDC1a - VL86C310")
8590 WHEN 2:PROCupdateicon(80,"VIDC1a plus VIDC Enhancer")
8600 WHEN 3:PROCupdateicon(80,"VIDC1")
8610 WHEN 20:PROCupdateicon(80,"VIDC20")
8620 WHEN 129:PROCupdateicon(80,"VIDC1a - VL86C310 (+PCATS Graphics card)")
8630 WHEN 131:PROCupdateicon(80,"VIDC1 (+PCATS Graphics card)")
8640OTHERWISE
8650 PROCupdateicon(80,"Unknown")
8660ENDCASE
8670
8680CASE Processor% OF
8690 WHEN 1:PROCupdateicon(82,"ARM1")
8700 WHEN 2:PROCupdateicon(82,"ARM2 - VL86C010")
8710 WHEN 3
8720 CASE (ProcessorType%>>8) AND &FF OF
8730 WHEN &03:A$="- VL86C020"
8740 OTHERWISE
8750 A$="- VL86C0??"
8760 ENDCASE
8770 A$+=" rev. "+STR$(ProcessorType% AND &FF)
8780 PROCupdateicon(82,"ARM3 "+A$)
8790 WHEN 61:PROCupdateicon(82,"ARM2as/ARM61")
8800 WHEN 250:PROCupdateicon(82,"ARM250 (ARM2as macrocell)")
8810 WHEN 600
8820 CASE (ProcessorType%>>8) AND &FF OF
8830 WHEN &06:A$="- VL86C0??"
8840 OTHERWISE
8850 A$="- VL86C0??"
8860 ENDCASE
8870 A$+=" rev. "+STR$(ProcessorType% AND &0F)
8880 PROCupdateicon(82,"ARM600 "+A$)
8890 WHEN 610
8900 CASE (ProcessorType%>>8) AND &FF OF
8910 WHEN &06:A$="- VL86C0??"
8920 OTHERWISE
8930 A$="- VL86C0??"
8940 ENDCASE
8950 A$+=" rev. "+STR$(ProcessorType% AND &0F)
8960 PROCupdateicon(82,"ARM610 "+A$)
8970 WHEN 700
8980 CASE (ProcessorType%>>8) AND &FF OF
8990 WHEN &07:A$="- VL86C0??"
9000 OTHERWISE
9010 A$="- VL86C0??"
9020 ENDCASE
9030 A$+=" rev. "+STR$(ProcessorType% AND &FF)
9040 PROCupdateicon(82,"ARM700 "+A$)
9050 WHEN 800
9060 CASE (ProcessorType%>>8) AND &FF OF
9070 WHEN &08:A$="- VL86C0??"
9080 OTHERWISE
9090 A$="- VL86C0??"
9100 ENDCASE
9110 A$+=" rev. "+STR$(ProcessorType% AND &FF)
9120 PROCupdateicon(82,"ARM800 "+A$)
9130 OTHERWISE
9140 PROCupdateicon(82,"Unknown")
9150ENDCASE
9160
9170CASE IOEBType% OF
9180 WHEN -1:PROCupdateicon(78,"Unknown")
9190 WHEN 0:PROCupdateicon(78,"Not present")
9200OTHERWISE
9210 PROCupdateicon(78,"IOEB type "+STR$(INT(IOEBType%)))
9220ENDCASE
9230
9240CASE FPAType% OF
9250 WHEN -1:PROCupdateicon(84,"Unknown")
9260 WHEN 0:PROCupdateicon(84,"Not fitted")
9270 WHEN 1:PROCupdateicon(84,"FP Protocol Convertor card (WE2206)")
9280 WHEN 2:PROCupdateicon(84,"ARM FP Accelerator chip")
9290OTHERWISE
9300 PROCupdateicon(84,"Unknown")
9310ENDCASE
9320
9330CASE PeriphType% OF
9340 WHEN -1:PROCupdateicon(68,"Unknown")
9350 WHEN 0:PROCupdateicon(68,"Not fitted")
9360 WHEN 1:PROCupdateicon(68,"82C710")
9370 WHEN 2:PROCupdateicon(68,"82C711")
9380OTHERWISE
9390 PROCupdateicon(68,"Unknown")
9400ENDCASE
9410
9420CASE LCDType% OF
9430 WHEN -1:PROCupdateicon(39,"Unknown")
9440 WHEN 0:PROCupdateicon(39,"Not fitted")
9450OTHERWISE
9460 PROCupdateicon(39,"LCD type "+STR$(INT(LCDType%)))
9470ENDCASE
9480
9490REM ** OS info
9500PROCupdateicon(87,OSstr$)
9510PROCupdateicon(89,VIDEOstr$)
9520CASE UniqueIDa% OF
9530 WHEN -1:PROCupdateicon(91,"Unknown")
9540 WHEN 0:PROCupdateicon(91,"Not available")
9550 OTHERWISE
9560 PROCupdateicon(91,"&"+FNdec_to_hex(UniqueIDa%)+" "+FNdec_to_hex(UniqueIDb%))
9570ENDCASE
9580PROCupdateicon(93,FPstr$)
9590IF DHRYmsec<=0 THEN
9600 PROCupdateicon(95,"Not computed")
9610 PROCupdateicon(96,"Not computed")
9620ELSE
9630 PROCupdateicon(95,STR$(DHRYmsec)+" �S/loop")
9640 PROCupdateicon(96,STR$(DHRYvalue)+" dhrystones/S")
9650ENDIF
9660PROCupdateicon(99,STR$(mode%))
9670
9680REM ** FP info
9690FPUtime=0:FPUins=0
9700FPUindex=0
9710A%=0
9720WHILE FPUresults!(12*A%)<>-1
9730 index=INT(((FPUresults!(12*A%+8)/(!FPUtimer-FPUresults!(12*A%)))+0.01)*50)/50
9740 IF FPUresults!(12*A%)>0 THEN
9750 PROCupdateicon2(47+A%,FNstrpad(index,2))
9760 C%(A%+1)=FNbar2(C%(A%+1),154*index)
9770 FPUindex+=index
9780 FPUtime+=!FPUtimer-FPUresults!(12*A%)
9790 ELSE
9800 PROCupdateicon2(47+A%,"N/A")
9810 C%(A%+1)=FNbar2(C%(A%+1),0)
9820 ENDIF
9830 FPUins+=FPUresults!(12*A%+4)*2
9840 A%+=1
9850ENDWHILE
9860
9870FPUindex=FPUindex/A%
9880IF FPUindex>0 THEN PROCupdateicon2(46,FNstrpad(FPUindex+.005,2)) ELSE PROCupdateicon2(46,"N/A")
9890C%(0)=FNbar2(C%(0),154*FPUindex)
9900IF FPUindex>0 THEN PROCupdateicon2(45,STR$(INT(FPUins/(FPUtime*OneClockTick)))+" FLOPS") ELSE PROCupdateicon2(45,"Not calculated")
9910
9920IF (WO% AND %1) AND SH%<>fpuinfo% THEN
9930 block1%!0=sysinfo%:SYS "Wimp_GetWindowState",,block1%
9940 block1%!28=SH%:SYS "Wimp_OpenWindow",,block1%
9950ENDIF
9960IF WO% AND %10 THEN
9970 block1%!0=fpuinfo%:SYS "Wimp_GetWindowState",,block1%
9980 block1%!28=FH%:SYS "Wimp_OpenWindow",,block1%
9990ENDIF
10000IF (WO% AND %1) AND SH%=fpuinfo% THEN
10010 block1%!0=sysinfo%:SYS "Wimp_GetWindowState",,block1%
10020 block1%!28=SH%:SYS "Wimp_OpenWindow",,block1%
10030ENDIF
10040
10050SYS "Hourglass_Off"
10060IF E% PROCerror(0,"Unable to compute MC/BASIC/FPU/Dhrystone indexes without DRAM refresh"):E%=FALSE
10070IF E1% PROCerror(0,"No Floating Point Unit/Emulator/Chip present"):E1%=FALSE
10080ENDPROC
10090:
10100REM ***
10110REM *** Load/Save code
10120REM ***
10130:
10140REM Save off ArmSI file
10150DEF PROCsavesi(file_name$)
10160LOCAL name$, F%, Z%
10170LOCAL ERROR
10180ON ERROR LOCAL:PROCerror(0, "Couldn't save file - "+REPORT$):CLOSE#F%:ENDPROC
10190PROCU_String(savesi%,1,file_name$)
10200F%=OPENOUT(file_name$)
10210PRINT#F%,330:REM Version 330 (3.30 * 100)
10220name$=FNR_String(sysinfo%,2)
10230PRINT#F%,name$
10240PRINT#F%,mode%,ScreenSize%,MEMCState%,OneClockTick
10250PRINT#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
10260PRINT#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
10270PRINT#F%,!MCcount,BASICcount
10280PRINT#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
10290PRINT#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
10300PRINT#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
10310PRINT#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
10320PRINT#F%,Processor%,ProcessorType%,IOCType%,MEMCType%,VIDCType%
10330PRINT#F%,RAMSize%,HighROMSpeed,LowROMSpeed,RAMSpeed,DRAMRefresh%
10340PRINT#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
10350PRINT#F%,TotalMIPS,TotalIndex,MCIndex
10360PRINT#F%,Index1,Index1a,Index2,Index3,Index4
10370PRINT#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
10380PRINT#F%,BASICIndex,calcMC%,calcBASIC%,DRAMCheck%
10390PRINT#F%,DHRYIndex,DHRYmsec,DHRYvalue,calcDHRY%
10400PRINT#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
10410Z%=0
10420WHILE FPUresults!(Z%*12)<>-1
10430 PRINT#F%,FPUresults!(Z%*12)
10440 Z%+=1
10450ENDWHILE
10460PRINT#F%,OSver%,ROMsize%,ROMsize5th%,ROMnum5th%
10470PRINT#F%,OSstr$
10480PRINT#F%,UniqueIDa%,UniqueIDb%
10490PRINT#F%,FPstr$
10500PRINT#F%,IOEBType%,FPAType%,PeriphType%,LCDType%
10510PRINT#F%,VIDEOstr$
10520PRINT#F%,FasterBASIC%,FasterFPE%,CacheON%
10530PRINT#F%,VideoDMA%,RAMPageSize%
10540CLOSE#F%
10550OSCLI "SetType "+file_name$+" "+STR$our_filetype%
10560SYS "Wimp_CreateMenu",-1
10570ENDPROC
10580:
10590DEF PROCloadsi(file_name$)
10600LOCAL Z%,F%,V%
10610LOCAL ERROR
10620ON ERROR LOCAL:PROCerror(0, "Couldn't load file '"+file_name$+"' - "+REPORT$):CLOSE#F%:ENDPROC
10630PROCU_String(savesi%,1,file_name$)
10640Z%=0
10650WHILE FPUresults!(Z%*12)<>-1
10660 FPUresults!(Z%*12)=0
10670 Z%+=1
10680ENDWHILE
10690calcFPU%=FALSE
10700E%=FALSE
10710E1%=FALSE
10720
10730F%=OPENIN(file_name$)
10740INPUT#F%,V%
10750CASE V% OF
10760WHEN 1
10770
10780REM Version 1
10790INPUT#F%,A$:PROCupdateicon(2,A$)
10800INPUT#F%,mode%,S,M,OneClockTick
10810ScreenSize%=S:MEMCState%=M
10820INPUT#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3
10830INPUT#F%,!MCcount,BASICcount
10840INPUT#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3
10850INPUT#F%,MIPS1,MIPS1a,MIPS2,MIPS3,P,ProcessorType%,I,M,V
10860Processor%=P:IOCType%=I:MEMCType%=M:VIDCType=V
10870INPUT#F%,R,HighROMSpeed,LowROMSpeed,RAMSpeed,D
10880RAMSize%=R
10890INPUT#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
10900INPUT#F%,TotalMIPS,TotalIndex,Index1,Index1a,Index2,Index3,MCIndex
10910INPUT#F%,BASICIndex,calcMC%,calcBASIC%,D%
10920IF INT(HighROMSpeed)=150 THEN HighROMSpeed=200
10930HighROMSpeed=HighROMSpeed/RAMSpeed
10940LowROMSpeed=LowROMSpeed/RAMSpeed
10950Index4=0
10960Index1L=0:Index1aL=0:Index2L=0:Index3L=0:Index4L=0
10970Index1=Index1/.75 : REM Re-calibrate to 300 series
10980Index1a=Index1a/.49
10990Index2=Index2/.81
11000Index3=Index3/.77
11010TotalIndex=TotalIndex/.74
11020OSver%=-1:ROMsize%=-1:ROMsize5th%=0:ROMnum5th%=-1
11030DHRYIndex=-1:DHRYmsec=-1:DHRYvalue=-1:calcDHRY%=FALSE
11040OSstr$="Unknown"
11050UniqueIDa%=-1:UniqueIDb%=-1
11060FPstr$="Unknown"
11070IOEBType%=-1:FPAType%=-1:PeriphType%=-1:LCDType%=-1
11080VIDEOstr$="Unknown"
11090FasterBASIC%=FALSE:FasterFPE%=FALSE
11100CacheON%=FALSE:VideoDMA%=FALSE:RAMPageSize%=-1
11110PROCdisplaysi
11120
11130WHEN 2,3
11140REM Version 2,3
11150INPUT#F%,A$:PROCupdateicon(2,A$)
11160INPUT#F%,mode%,S,M,OneClockTick
11170ScreenSize%=S:MEMCState%=M
11180INPUT#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
11190INPUT#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
11200INPUT#F%,!MCcount,BASICcount
11210INPUT#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
11220INPUT#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
11230INPUT#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
11240INPUT#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
11250INPUT#F%,P,ProcessorType%,I,M,V
11260Processor%=P:IOCType%=I:MEMCType%=M:VIDCType=V
11270INPUT#F%,R,HighROMSpeed,LowROMSpeed,RAMSpeed,D
11280RAMSize%=R
11290INPUT#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
11300INPUT#F%,TotalMIPS,TotalIndex,MCIndex
11310INPUT#F%,Index1,Index1a,Index2,Index3,Index4
11320INPUT#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
11330INPUT#F%,BASICIndex,calcMC%,calcBASIC%,D%
11340IF INT(HighROMSpeed)=150 THEN HighROMSpeed=200
11350HighROMSpeed=HighROMSpeed/RAMSpeed
11360LowROMSpeed=LowROMSpeed/RAMSpeed
11370IF V%=3 THEN
11380 INPUT#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
11390 Z%=0
11400 WHILE FPUresults!(Z%*12)<>-1
11410 INPUT#F%,FPUresults!(Z%*12)
11420 Z%+=1
11430 ENDWHILE
11440ENDIF
11450Index1=Index1/.75 : REM Re-calibrate to 300 series
11460Index1a=Index1a/.49
11470Index2=Index2/.81
11480Index3=Index3/.77
11490Index4=Index4/.83
11500Index1L=Index1L/.80
11510Index1aL=Index1aL/.53
11520Index2L=Index2L/.81
11530Index3L=Index3L/.78
11540Index4L=Index4L/.84
11550TotalIndex=TotalIndex/.74
11560OSver%=-1:ROMsize%=-1:ROMsize5th%=0:ROMnum5th%=-1
11570DHRYIndex=-1:DHRYmsec=-1:DHRYvalue=-1:calcDHRY%=FALSE
11580OSstr$="Unknown"
11590UniqueIDa%=-1:UniqueIDb%=-1
11600FPstr$="Unknown"
11610IOEBType%=-1:FPAType%=-1:PeriphType%=-1:LCDType%=-1
11620VIDEOstr$="Unknown"
11630FasterBASIC%=FALSE:FasterFPE%=FALSE
11640CacheON%=FALSE:VideoDMA%=FALSE:RAMPageSize%=-1
11650PROCdisplaysi
11660
11670OTHERWISE
11680 IF V%<100 THEN CLOSE#F%:PROCerror(0, "You require version "+STR$V%+".00 or above to read "+file_name$):ENDPROC
11690 IF V%<330 THEN
11700 INPUT#F%,A$
11710 PROCupdateicon(2,A$)
11720 INPUT#F%,mode%,S,M,OneClockTick
11730 ScreenSize%=S:MEMCState%=M
11740 INPUT#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
11750 INPUT#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
11760 INPUT#F%,!MCcount,BASICcount
11770 INPUT#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
11780 INPUT#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
11790 INPUT#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
11800 INPUT#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
11810 INPUT#F%,P,ProcessorType%,I,M,V
11820 Processor%=P:IOCType%=I:MEMCType%=M:VIDCType=V
11830 INPUT#F%,R,HighROMSpeed,LowROMSpeed,RAMSpeed,D
11840 RAMSize%=R
11850 INPUT#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
11860 INPUT#F%,TotalMIPS,TotalIndex,MCIndex
11870 INPUT#F%,Index1,Index1a,Index2,Index3,Index4
11880 INPUT#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
11890 INPUT#F%,BASICIndex,calcMC%,calcBASIC%,DRAMCheck%
11900 INPUT#F%,DHRYIndex,DHRYmsec,DHRYvalue,calcDHRY%
11910 INPUT#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
11920 Z%=0
11930 WHILE FPUresults!(Z%*12)<>-1
11940 INPUT#F%,FPUresults!(Z%*12)
11950 Z%+=1
11960 ENDWHILE
11970 INPUT#F%,OSver%,ROMsize%,ROMsize5th%,ROMnum5th%
11980 INPUT#F%,OSstr$
11990 INPUT#F%,UniqueIDa%,UniqueIDb%
12000 INPUT#F%,FPstr$
12010 INPUT#F%,IOEBType%,FPAType%,PeriphType%,LCDType%
12020 INPUT#F%,VIDEOstr$
12030 IF V%<=324 THEN
12040 FasterBASIC%=FALSE:FasterFPE%=FALSE
12050 CacheON%=FALSE
12060 ELSE
12070 INPUT#F%,FasterBASIC%,FasterFPE%,CacheON%
12080 ENDIF
12090 VideoDMA%=FALSE:RAMPageSize%=-1
12100 PROCdisplaysi
12110 ENDIF
12120
12130 IF V%>326 AND V%<=330 THEN
12140 REM Version 3.30H
12150 INPUT#F%,A$
12160 PROCupdateicon(2,A$)
12170 INPUT#F%,mode%,ScreenSize%,MEMCState%,OneClockTick
12180 INPUT#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
12190 INPUT#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
12200 INPUT#F%,!MCcount,BASICcount
12210 INPUT#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
12220 INPUT#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
12230 INPUT#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
12240 INPUT#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
12250 INPUT#F%,Processor%,ProcessorType%,IOCType%,MEMCType%,VIDCType%
12260 INPUT#F%,RAMSize%,HighROMSpeed,LowROMSpeed,RAMSpeed,DRAMRefresh%
12270 INPUT#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
12280 INPUT#F%,TotalMIPS,TotalIndex,MCIndex
12290 INPUT#F%,Index1,Index1a,Index2,Index3,Index4
12300 INPUT#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
12310 INPUT#F%,BASICIndex,calcMC%,calcBASIC%,DRAMCheck%
12320 INPUT#F%,DHRYIndex,DHRYmsec,DHRYvalue,calcDHRY%
12330 INPUT#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
12340 Z%=0
12350 WHILE FPUresults!(Z%*12)<>-1
12360 INPUT#F%,FPUresults!(Z%*12)
12370 Z%+=1
12380 ENDWHILE
12390 INPUT#F%,OSver%,ROMsize%,ROMsize5th%,ROMnum5th%
12400 INPUT#F%,OSstr$
12410 INPUT#F%,UniqueIDa%,UniqueIDb%
12420 INPUT#F%,FPstr$
12430 INPUT#F%,IOEBType%,FPAType%,PeriphType%,LCDType%
12440 INPUT#F%,VIDEOstr$
12450 INPUT#F%,FasterBASIC%,FasterFPE%,CacheON%
12460 IF V%>=330 THEN
12470 INPUT#F%,VideoDMA%,RAMPageSize%
12480 ELSE
12490 VideoDMA%=FALSE:RAMPageSize%=-1
12500 ENDIF
12510 PROCdisplaysi
12520 ENDIF
12530 IF V%>330 THEN
12540 PROCerror(0, "You require version "+STR$(V%/100)+" or above to read "+file_name$)
12550 ENDIF
12560
12570ENDCASE
12580CLOSE#F%
12590PROCopensi
12600ENDPROC
12610:
12620REM ***
12630REM *** Shared SI routines
12640REM ***
12650:
12660DEF PROCmenu(X%,Y%,T$)
12670LOCAL pointer%,A%,L%, A$,F%,I%
12680pointer%=menu_block%
12690$pointer%=app_name$
12700RESTORE +10
12710READ pointer%?12,pointer%?13,pointer%?14,pointer%?15,pointer%!16,pointer%!20,pointer%!24,number%
12720A%=menu_indirected%
12730FOR L%=1 TO number%
12740 IF L%>1 THEN
12750 READ A$,pointer%?12,pointer%?13,pointer%?14,pointer%?15,pointer%!16,pointer%!20,pointer%!24:IF A$="fi$" $pointer%=fi$ ELSE $pointer%=A$
12760 ENDIF
12770 pointer%+=28
12780 REPEAT
12790 READ F%,I%,A$:IF (F% AND &200)>0 A$+=T$
12800 $A%=A$
12810 pointer%!0=F% AND &FF
12820 IF (F% AND &100)=0 pointer%!4=-1 ELSE READ pointer%!4
12830 IF A$="Paged ROM access" THEN
12840 REM No *way* can we get ROMs this fast - it will just crash the machine!
12850 IF RAMSpeed<100 OR OSver%>=300 THEN I%+=(1<<22)
12860 ENDIF
12870 IF A$="RMFaster BASIC" THEN IF FasterBASIC%=-99 THEN I%+=(1<<22)
12880 IF A$="RMFaster FPEmulator" THEN IF OSver%<300 THEN I%+=(1<<22)
12890 IF A$="ARM3 cache on" THEN
12900 CASE INT(Processor%) OF
12910 WHEN 3:REM OK
12920 OTHERWISE I%+=(1<<22)
12930 ENDCASE
12940 ENDIF
12950 IF A$="Write buffer on" THEN
12960 CASE INT(Processor%) OF
12970 WHEN 600,610,700,800:REM OK
12980 OTHERWISE I%+=(1<<22)
12990 ENDCASE
13000 ENDIF
13010 pointer%!8=I%
13020 pointer%!12=A%
13030 pointer%!16=-1
13040 pointer%!20=LENA$
13050 pointer%+=24:A%+=LEN(A$)+1
13060 UNTIL (F% AND &80)>0
13070NEXT
13080SYS "Wimp_CreateMenu",,menu_block%,X%-(menu_block%!16/2),Y%+16
13090ENDPROC
13100:
13110REM Menu definition statements (ug!)
13120DATA 7,2,7,0,(13*8+12)<<XFactor%,10*4,0,3
13130DATA &100,&7000111,"Info",proginfo%
13140DATA 0,&7000111,"System Info"
13150DATA 0,&7000111,"FP Info"
13160DATA 0,&7000111,"Re-calculate"
13170DATA &100,&7000111,"Improvements",pointer%+24*8+28
13180DATA &100,&7000111,"Speed Indexes",pointer%+24*3
13190DATA &100,&7000111,"Save",savesi%
13200DATA &80,&7000111,"Quit"
13210
13220DATA "S'Indexes",7,2,7,0,(18*8+12)<<XFactor%,10*4,0
13230DATA 0-calcMC%,&7000111,"Machine Code"
13240DATA 0-calcBASIC%,&7000111,"BASIC"
13250DATA 0-calcFPU%,&7000111,"FP index"
13260DATA &80-calcDHRY%,&7000111,"Dhrystone"
13270
13280DATA "Improvement",7,2,7,0,(18*8+16)<<XFactor%,10*4,0
13290DATA 0-(HighROMSpeed=1),&7000111,"Paged ROM access"
13300DATA 0-(HighROMSpeed=2),&7000111,"ROM (2 n-cycles)"
13310DATA 0-(HighROMSpeed=3),&7000111,"ROM (3 n-cycles)"
13320DATA 0-(HighROMSpeed=4),&7000111,"ROM (4 n-cycles)"
13330DATA 2-(VideoDMA%=0),&7000111,"No Video DMA"
13340DATA 0-FasterBASIC%,&7000111,"RMFaster BASIC"
13350DATA 0-FasterFPE%,&7000111,"RMFaster FPEmulator"
13360DATA &80-CacheON%,&7000111,"ARM3 cache on"
13370:
13380DEF PROCerror(err%, report$)
13390IF err%<>0 THEN ERROR 0,report$+" internal error ("+STR$(ERL)+")"
13400!error_blk% = err%
13410$(error_blk%+4)=report$
13420?(error_blk%+4+LENreport$)=0
13430SYS "XWimp_ReportError", error_blk%, %1, full_app_name$
13440ENDPROC
13450:
13460REM Update a main SI window icon
13470DEF PROCupdateicon(I%,A$)
13480!icon_block%=sysinfo%
13490icon_block%!4=I%
13500SYS "Wimp_GetIconState",,icon_block%
13510IF icon_block%!24 AND 1<<8 THEN
13520 $(icon_block%!28)=A$
13530ENDIF
13540!block%=sysinfo%
13550block%!4=I%
13560block%!8=0
13570block%!12=0
13580SYS "Wimp_SetIconState",,block%
13590ENDPROC
13600:
13610REM Update the bar in the main SI window
13620DEF FNbar(I%,W%)
13630IF W%=0 W%=2
13640!icon_block%=sysinfo%
13650icon_block%!4=I%
13660SYS "Wimp_GetIconState",,icon_block%
13670icon_block%!16=icon_block%!8+W%
13680icon_block%!4=sysinfo%
13690SYS "Wimp_CreateIcon",,icon_block%+4 TO W%
13700icon_block%!4=I%
13710icon_block%!8=&11<<24
13720icon_block%!12=&FF<<24
13730SYS "Wimp_SetIconState",,icon_block%
13740!block%=sysinfo%
13750block%!4=I%
13760SYS "Wimp_DeleteIcon",,block%
13770!block%=sysinfo%
13780block%!4=W%
13790block%!8=0
13800block%!12=0
13810SYS "Wimp_SetIconState",,block%
13820=W%
13830:
13840REM Update icon in the FP window
13850DEF PROCupdateicon2(I%,A$)
13860!icon_block%=fpuinfo%
13870icon_block%!4=I%
13880SYS "Wimp_GetIconState",,icon_block%
13890IF icon_block%!24 AND 1<<8 THEN
13900 $(icon_block%!28)=A$
13910ENDIF
13920!block%=fpuinfo%
13930block%!4=I%
13940block%!8=0
13950block%!12=0
13960SYS "Wimp_SetIconState",,block%
13970ENDPROC
13980:
13990REM Update a bar in the FP window
14000DEF FNbar2(I%,W%)
14010IF W%=0 W%=2
14020!icon_block%=fpuinfo%
14030icon_block%!4=I%
14040SYS "Wimp_GetIconState",,icon_block%
14050icon_block%!16=icon_block%!8+W%
14060icon_block%!4=fpuinfo%
14070SYS "Wimp_CreateIcon",,icon_block%+4 TO W%
14080icon_block%!4=I%
14090icon_block%!8=&11<<24
14100icon_block%!12=&FF<<24
14110SYS "Wimp_SetIconState",,icon_block%
14120!block%=fpuinfo%
14130block%!4=I%
14140SYS "Wimp_DeleteIcon",,block%
14150!block%=fpuinfo%
14160block%!4=W%
14170block%!8=0
14180block%!12=0
14190SYS "Wimp_SetIconState",,block%
14200=W%
14210:
14220REM Check for an FPU/FPA present
14230DEF FNfpufound
14240SYS "OS_ChangeEnvironment",1,retcd3,0,0
14250!nofpu%=0
14260CALL testfpu
14270=(!nofpu%=0)
14280:
14290DEF PROCUpdateMEMC(new%,mask%)
14300SYS "XOS_UpdateMEMC",new%,mask%
14310ENDPROC
14320:
14330DEF FNReadMEMC
14340LOCAL res%
14350SYS "XOS_UpdateMEMC",0,0 TO res%
14360=res%
14370:
14380REM ***
14390REM *** Initialisation routines
14400REM ***
14410:
14420DEF PROCInitialise
14430indirected_pointer%=indirected%
14440ib_block%!0=131
14450ib_block%!4=-1
14460SYS"OS_ReadVduVariables",ib_block%,ib_block%
14470$block% = "TASK"
14480SYS "Wimp_Initialise",200,!block%,full_app_name$ TO OurOSver%,ourtask%
14490SYS "OS_ReadModeVariable",MODE,4 TO ,,XFactor%
14500PROC_load_templates
14510PROC_icon_bar
14520PROC_load_assm
14530PROC_assm_code
14540PROCU_String(savesi%,1,"SI")
14550PROCReset_vars
14560SYS "OS_ReadModeVariable",MODE,4 TO ,,XFactor%
14570SYS "OS_ReadModeVariable",MODE,11 TO ,,XPixels%
14580YPixels%=(!ib_block%)*4+4
14590XPixels%+=1
14600ENDPROC
14610:
14620REM Reset SI variables
14630DEF PROCReset_vars
14640LOCAL loop%
14650
14660REM Display bar icon handles
14670RESTORE +10
14680FOR loop%=1 TO 20
14690 READ B%(loop%)
14700NEXT loop%
14710FOR loop%=0 TO 35
14720 C%(loop%)=82+loop%
14730NEXT loop%
14740
14750our_filetype%=3
14760my_ref%=0
14770DRAMCheck%=FALSE
14780VideoDMA%=TRUE
14790calcMC%=FALSE
14800calcBASIC%=FALSE
14810calcFPU%=FALSE
14820mode%=0:ScreenSize%=0:MEMCState%=0
14830Processor%=0:ProcessorType%=0:IOCType%=0:MEMCType%=0:VIDCType%=0
14840RAMSize%=0:HighROMSpeed=0:LowROMSpeed=0:RAMSpeed=0:DRAMRefresh%=0
14850MemoryBandwidth=0:ScreenBandwidth=0:DRAMBandwidth=0:ProcessorBandwidth=0
14860BASICIndex=0
14870DHRYIndex=0:DHRYmsec=0:DHRYvalue=0
14880FPUindex=0:FPUtime=0
14890OSver%=0:ROMsize%=0:ROMsize5th%=0:ROMnum5th%=0
14900OSstr$=""
14910UniqueIDa%=-1:UniqueIDb%=-1
14920FPstr$=""
14930IOEBType%=-1:FPAType%=-1:PeriphType%=-1:LCDType%=-1
14940VIDEOstr$=""
14950FasterBASIC%=FALSE
14960FasterFPE%=FALSE
14970CacheON%=FALSE
14980calcDHRY%=FALSE
14990RAMPageSize%=-1
15000
15010ENDPROC
15020:
15030REM Display bar icon handles
15040DATA 100,101,102,103,104
15050DATA 105,106,107,108,115
15060DATA 116,117,119,109,110
15070DATA 111,112,113,114,118
15080:
15090REM Load templates into workspace
15100DEF PROC_load_templates
15110SYS "Wimp_OpenTemplate",,"<ArmSI$Dir>.Resources.Templates"
15120PROCload_template("fpuInfo")
15130SYS "Wimp_CreateWindow",, window% TO fpuinfo%
15140PROCload_template("sysInfo")
15150SYS "Wimp_CreateWindow",, window% TO sysinfo%
15160PROCload_template("progInfo")
15170SYS "Wimp_CreateWindow",, window% TO proginfo%
15180PROCU_String(proginfo%, 4, app_version$)
15190PROCload_template("xfersend")
15200SYS "Wimp_CreateWindow",, window% TO savesi%
15210SYS "Wimp_CloseTemplate"
15220ENDPROC
15230:
15240DEF PROCload_template(A$)
15250$block1%=A$
15260SYS "Wimp_LoadTemplate",, window%, indirected_pointer%, indirected%+(1024*8), -1, block1%, 0 TO ,,indirected_pointer%,,,,A%
15270IF A%=0 ERROR 0,"Unable to find template definition ("+A$+")"
15280ENDPROC
15290:
15300REM Place an icon on the iconbar
15310DEF PROC_icon_bar
15320LOCAL width%,height%
15330SYS "XWimp_SpriteOp",40,1,"!"+app_name$ TO ,,,width%,height%
15340width%=width%<<XFactor%
15350icon_block%!0=-1
15360icon_block%!4=0
15370icon_block%!8=0
15380icon_block%!12=width%+4
15390icon_block%!16=48+height%
15400icon_block%!20=%000000010 OR (3<<12) OR (7<<24) OR (1<<28)
15410$(icon_block%+24)="!"+app_name$
15420SYS "Wimp_CreateIcon",,icon_block% TO ib_handle%
15430ENDPROC
15440:
15450REM Load separately assembled code
15460DEF PROC_load_assm
15470$block%="<ArmSI$Dir>.Resources.Code"
15480SYS "OS_File",5,block% TO ,,,,CodeLength%
15490DIM code CodeLength%+&C
15500IF (code AND &F)<>0 code+=4
15510IF (code AND &F)<>0 code+=4
15520IF (code AND &F)<>0 code+=4
15530SYS "OS_File",&FF,block%,code,0
15540
15550$block%="<ArmSI$Dir>.Resources.Code2"
15560SYS "OS_File",5,block% TO ,,,,CodeLength2%
15570DIM code2 CodeLength2%+&C
15580IF (code2 AND &F)<>0 code2+=4
15590IF (code2 AND &F)<>0 code2+=4
15600IF (code2 AND &F)<>0 code2+=4
15610SYS "OS_File",&FF,block%,code2,0
15620
15630Instructions=!code
15640readclock=code+4
15650calcARM=code+8
15660calcARML=code+32
15670calcMC=code+12
15680timer0=code+16
15690ARMcount1=code+20
15700ARMcount1a=code+24
15710ARMcount2=code+28
15720ARMcount3=code+CodeLength%-8
15730ARMcount4=code+CodeLength%-12
15740ARMcount1L=code+CodeLength%-16
15750ARMcount1aL=code+CodeLength%-20
15760ARMcount2L=code+CodeLength%-24
15770ARMcount3L=code+CodeLength%-28
15780ARMcount4L=code+CodeLength%-32
15790MCcount=code+CodeLength%-4
15800calcFPU=code2
15810FPUtimer=code2+4
15820FPUresults=code2+8
15830
15840ENDPROC
15850:
15860REM Some assembler for finding out various things ...
15870DEF PROC_assm_code
15880LOCAL pass%,P%
15890FOR pass%=0 TO 2 STEP 2
15900P%=tpcode%
15910[OPT pass%
15920
15930.assm_main
15940 STMFD R13!, {R0-R12, R14}
15950 SWI "OS_EnterOS" ; Enter SVC mode
15960 MOV R0,PC
15970 ORR R0,R0,#&0C000000
15980 TEQP R0,#0
15990 MOV R0,R0 ; Mustn't use MOVNV !
16000
16010; Reads from zero page memory
16020
16030 MOV R0, #&100 ; Read MEMC type (in case of protected zero page)
16040 LDRB R1, [R0,#&12]
16050 AND R1, R1, #1
16060 STR R1, memctype%
16070 LDR R1, [R0,#&10] ; Read RAMSpeed
16080 STR R1, ramspeed%
16090
16100; Determine processor type
16110
16120 MOV R1,#0
16130 ADR R2,protype%
16140 MOV R0,#1 ; if no results ARM1
16150 EQUD &E0000091 ; MUL R0,R1,R0
16160 MOV R0,#2 ; ARM 2
16170 EQUD &E1021091 ; SWP R1,R1,[R2]
16180 MOV R0,#250 ; ARM 250
16190
16200; To a coprocessor->register transfer instruction. This will read the processor
16210; id (if available) for ARM3, ARM600, etc.
16220;
16230; R1 = 32 bit processor identity field
16240; bit 31-24 | Designer (41h = Acorn 'A')
16250; bit 23-16 | Manufacturer (56h = vlsi 'V')
16260; bit 15-8 | Part type (03h = arm3, 06h = arm6x0)
16270; bit 7-0 | Revision (0 = revision 0)
16280
16290; ARM6x0 processors ;
16300; bit 15-4 | Part type (060h = arm600, 061h = arm610)
16310; bit 3-0 | Revision (0 = revision 0)
16320
16330
16340 EQUD &EE101F10 ; MRCEQ CP15,0,R1,C0,C0 - request processor type
16350 MOV R0,#3
16360 STR R0,tpres% ; Store type found
16370 STR R1,protype%
16380 MVN R0, #0
16390 EQUD &EE300110 ; RFS R0 - Read FP status register
16400 MOV R0, R0
16410 STR R0, fputype%
16420 TSTP PC,#&F0000000
16430 MOV R0,R0 ; Return to user mode
16440 LDMFD R13!,{R0-R12,PC}
16450
16460; Return-from-exception 'handlers'
16470
16480.retcd1 ADDS PC,R14,#4
16490.retcd2 MOVS PC,R14
16500.retcd3 STR R14,nofpu%
16510 MOVS PC,R14
16520
16530; Test for FPU present
16540
16550.testfpu
16560 EQUD &EE098101 ; MVFE F0,F1 - test for FPU
16570 MOV PC,R14
16580
16590; Read/write ARM3 status registers (for cache on or off)
16600; Yes, I know there is an SWI to do this, but it may not be the same across
16610; different ARM3 upgrades, etc
16620
16630.readreg
16640 STMFD R13!, {R0-R1, R14}
16650 SWI "OS_EnterOS"
16660 MOV R0,PC
16670 ORR R0,R0,#&0C000000
16680 TEQP R0,#0
16690 MOV R0,R0 ; Mustn't use MOVNV !
16700 EQUD &EE121F10 ; MRCEQ CP15,0,R1,C2,C0 - request status register
16710 STR R1, regword%
16720 TSTP PC,#&F0000000
16730 MOV R0,R0 ; Return to user mode
16740 LDMFD R13!,{R0-R1,PC}
16750
16760.writereg
16770 STMFD R13!, {R0-R1, R14}
16780 SWI "OS_EnterOS"
16790 MOV R0,PC
16800 ORR R0,R0,#&0C000000
16810 TEQP R0,#0
16820 MOV R0,R0 ; Mustn't use MOVNV !
16830 LDR R1, regword%
16840 EQUD &EE021F10 ; MCREQ CP15,0,R1,C2,C0 - write status register
16850 STR R1, regword%
16860 TSTP PC,#&F0000000
16870 MOV R0,R0 ; Return to user mode
16880 LDMFD R13!,{R0-R1,PC}
16890
16900; Results block
16910
16920.tpres% EQUD 0
16930.protype% EQUD 0
16940.nofpu% EQUD 0
16950.fputype% EQUD 0
16960.memctype% EQUD 0
16970.ramspeed% EQUD 0
16980.regword% EQUD 0
16990
17000]
17010NEXT pass%
17020ENDPROC
17030:
17040REM ***
17050REM *** Nick's Common BASIC library (or at least bits of ... )
17060REM ***
17070:
17080DEF PROCU_String(window%, icon%, s$)
17090ptr1%!0=window%
17100ptr1%!4=icon%
17110SYS "Wimp_GetIconState",,ptr1%
17120$(ptr1%!28)=s$
17130ptr2%!0=window%
17140ptr2%!4=icon%
17150ptr2%!8=0
17160ptr2%!12=0
17170SYS "Wimp_SetIconState",,ptr2%
17180ENDPROC
17190:
17200DEF PROCU_Icon(window%, icon%, bit%, eor%, clear%)
17210ptr2%!0=window%
17220ptr2%!4=icon%
17230ptr2%!8=(eor%<<bit%)
17240ptr2%!12=(clear%<<bit%)
17250SYS "Wimp_SetIconState",,ptr2%
17260ENDPROC
17270:
17280DEF PROCU_Sprite(window%, icon%, s$)
17290REM Indirected sprite+text
17300ptr1%!0=window%
17310ptr1%!4=icon%
17320SYS "Wimp_GetIconState",,ptr1%
17330$(ptr1%!32)="S"+s$
17340ptr2%!0=window%
17350ptr2%!4=icon%
17360ptr2%!8=0
17370ptr2%!12=0
17380SYS "Wimp_SetIconState",,ptr2%
17390ENDPROC
17400:
17410DEF PROCUI_Sprite(window%, icon%, s$)
17420REM Indirected sprite
17430ptr1%!0=window%
17440ptr1%!4=icon%
17450SYS "Wimp_GetIconState",,ptr1%
17460$(ptr1%!28)=s$
17470ptr2%!0=window%
17480ptr2%!4=icon%
17490ptr2%!8=0
17500ptr2%!12=0
17510SYS "Wimp_SetIconState",,ptr2%
17520ENDPROC
17530:
17540DEF FNgetname(p1%)
17550LOCAL p$
17560p$=""
17570WHILE ((?p1%>31) OR (?p1%=9))
17580p$+=CHR$(?p1%):p1%+=1
17590ENDWHILE
17600=p$
17610:
17620DEF FNR_IconState(window%, icon%)
17630LOCAL state%
17640ptr1%!0=window%
17650ptr1%!4=icon%
17660SYS "Wimp_GetIconState",,ptr1%
17670IF ABS((ptr1%!24)>>21) MOD 2 = 1 THEN state%=TRUE ELSE state%=FALSE
17680=state%
17690:
17700DEF FNleaf(f$)
17710WHILE INSTR(f$,".")
17720 f$=MID$(f$,INSTR(f$,".")+1)
17730ENDWHILE
17740=f$
17750:
17760DEF FNhex_to_dec(s$)
17770LOCAL s%
17780SYS "XOS_ReadUnsigned",16,s$ TO ,,s%
17790=s%
17800:
17810DEF FNdec_to_hex(s%)
17820SYS "OS_ConvertHex8",s%,ptr2%,10
17830=FNgetname(ptr2%)
17840:
17850DEF FNsubleaf(f$)
17860REM Strips off filename string. ie, returns the path string
17870LOCAL p$
17880WHILE INSTR(f$,".")
17890 p$=p$+LEFT$(f$,1)
17900 f$=RIGHT$(f$,LEN(f$)-1)
17910ENDWHILE
17920=LEFT$(p$,LEN(p$)-1)
17930:
17940DEF FNR_String(window%, icon%)
17950LOCAL s$
17960ptr1%!0=window%
17970ptr1%!4=icon%
17980SYS "Wimp_GetIconState",,ptr1%
17990s$=FNgetname(ptr1%!28)
18000=s$
18010:
18020REM Outputs padding (aligned) strings
18030DEF FNstrpad(A, padding%)
18040LOCAL res$, A$
18050IF padding%=0 THEN
18060 res$=STR$(INT(A))
18070ELSE
18080 A$=STR$(A)
18090 IF INSTR(A$,".")>0 THEN
18100 res$=LEFT$(A$+STRING$(padding%,"0"), INSTR(A$,".")+padding%)
18110 ELSE
18120 res$=A$+"."+STRING$(padding%,"0")
18130 ENDIF
18140ENDIF
18150=res$
� > !RunImage
$� ArmSI - Speed Index appliction
!� Versions <= 3.12 by J.Abbot
(A� Hacked about (postfix H) by Nick Smith, nas20@uk.ac.cam.phx
2
< � � �error(�,�$):�poll:�
F
PL� block% 1024,window% 10*1024,icon_block% 512,error_blk% 512,block1% 512
Z?� indirected% 10*1024,menu_indirected% 512,menu_block% 1024
d0� ib_block% 64, tpcode% 1024, C%(35), B%(20)
n� ptr1% 256, ptr2% 256
x
�app_name$="ArmSI"
�&full_app_name$="ArmSI Speed Index"
�$app_version$="3.31H (21-Nov-92)"
�
��Initialise
� �calcsi
� �updateicon(2,�machineguess)
�
� �poll
�
��
�:
� � ***
� *** Wimp routines
� ***
:
"� Main polling routine
, � �poll
6� poll_mask%, reason%
@poll_mask% = %000110001
J
quit% = �
T�
^2 ș "Wimp_Poll", poll_mask%, block% � reason%
h Ȏ reason% �
r � 1 :�redraw
|- � 2 :ș "Wimp_OpenWindow",, block%
�. � 3 :ș "Wimp_CloseWindow",, block%
� � 6 :�button
� � 7 :�drag_box
� � 8 :�key_pressed
� � 9 :�menu_select
� � 17,18:�receive
� �
�� (quit%=�)
�ș "Wimp_CloseDown"
��
��
�:
�
� �redraw
� L%
'ș "Wimp_RedrawWindow",,block% � L%
ȕ L%
&) ș "Wimp_GetRectangle",,block% � L%
0�
:�
D:
N� Open Main SI window
X
� �opensi
b!block% = sysinfo%
l%ș "Wimp_GetWindowState",, block%
vblock%!28=-1
�!ș "Wimp_OpenWindow",, block%
��
�:
�(� Open Floating-Point results window
�
� �openfi
�!block% = fpuinfo%
�%ș "Wimp_GetWindowState",, block%
�block%!28=-1
�!ș "Wimp_OpenWindow",, block%
��
�:
�� �receive
�� type%, w%
w%=block%!20
type%=block%!40
Ȏ block%!16 �
� 0:quit%=�
* � 2
4+ � my_ref%>0 � (my_ref%=block%!12) �
>> � type%=our_filetype% � �savesi(�getname(block%+44))
H �
R � 3
\& full_file$=�getname(block%+44)
fE � (w%=-2 � w%=sysinfo% � w%=fpuinfo%) � type%=our_filetype% �
p �loadsi(full_file$)
z �
� � 5
� � type%=our_filetype% �
�( full_file$=�getname(block%+44)
� block%!12=block%!8
�- ș "XWimp_SendMessage",17,block%,w%
� �loadsi(full_file$)
� �
� �
��
�:
�� �save(A$,B%)
� ș "Wimp_CreateMenu",,-1
�)ș "Wimp_GetPointerInfo",,icon_block%
Ȏ icon_block%!12 �
" � sysinfo%,proginfo%,savesi%
$' block1%!0=(((45+�(A$)) �4)+1)*4
. block1%!12=0
8 block1%!16=1
B! block1%!20=icon_block%!12
L! block1%!24=icon_block%!16
V block1%!28=icon_block%!0
` block1%!32=icon_block%!4
j block1%!36=-1
t block1%!40=B%
~. $(block1%+44)=A$:?(block1%+44+�(A$))=0
�W ș "Wimp_SendMessage",17,block1%,icon_block%!12,icon_block%!16 � ,,task_handle%
� my_ref%=block1%!8
��
��
�:
�
� �button
�� X%,Y%,button_type%
�@� block%!16=-1 � block%!12<>sysinfo% � block%!12<>fpuinfo% �
�X%=block%!0:Y%=block%!4
�button_type%=0
�(� (block%!8 � %101)>0 button_type%=3
� � block%!8=4 button_type%=0
� block%!8=2 button_type%=1
� block%!8=1 button_type%=4
� block%!8=64 button_type%=3
Ȏ block%!12 �
(
� -2
21 � button_type%=1 menu%=0:�menu(X%,400,"")
< � button_type%=0 �opensi
F" � button_type%=4 � �openfi
P � sysinfo%
Z9 � button_type%<2 ș "Wimp_SetCaretPosition",-1,-1
d* � button_type%=1 � block%!16<>36 �
n+ ș "Wimp_GetPointerInfo",,block1%
x/ menu%=0:�menu(block1%!0,block1%!4,"")
� �
� � fpuinfo%
� � button_type%=1 �
�+ ș "Wimp_GetPointerInfo",,block1%
�/ menu%=0:�menu(block1%!0,block1%!4,"")
� �
� � savesi%
�Z � block%!16=2 � button_type%=0 � block%!12=savesi% �savesi(�R_String(savesi%,1)):�
�( � block%!16=0 � button_type%=3 �
�+ � block%!12=savesi% drag_icon%=-1
� block%!0=block%!12
� block%!4=block%!16
�( ș "Wimp_GetIconState",,block%
E icon_block%!0=block%!0:ș "Wimp_GetWindowInfo",,icon_block%
X%=icon_block%!4
Y%=icon_block%!16
" block%!4=5
, block%!8=block%!8+X%
6 block%!16=block%!16+X%
@ block%!12=block%!12+Y%
J block%!20=block%!20+Y%
T block%!24=0
^ block%!28=0
h& block%!32=XPixels%<<XFactor%
r block%!36=YPixels%
|# ș "Wimp_DragBox",,block%
� �
��
��
�:
�� �menu_select
�� I%
�)ș "Wimp_GetPointerInfo",,icon_block%
�I%=-(icon_block%!8 � 1)
�Ȏ menu% �
� � 0
� Ȏ block%!0 �
� � 1:�opensi
� � 2:�openfi
� 3:�calcsi
� 4
Ȏ block%!4 �
& � ROM speed
05 � 0:HighROMSpeed=1:�UpdateMEMC(&C0,&C0)
:5 � 1:HighROMSpeed=2:�UpdateMEMC(&80,&C0)
D5 � 2:HighROMSpeed=3:�UpdateMEMC(&40,&C0)
N5 � 3:HighROMSpeed=4:�UpdateMEMC(&00,&C0)
X( � 4:VideoDMA%=�(VideoDMA%)
b � 5:
l# � �(FasterBASIC%) �
v7 ș "XWimp_StartTask","RMFaster BASIC"
� FasterBASIC%=�
� �
�S ș "XWimp_StartTask","Obey <ArmSI$Dir>.Resources.OldModule BASIC"
� FasterBASIC%=�
� �
� � 6:
�! � �(FasterFPE%) �
�< ș "XWimp_StartTask","RMFaster FPEmulator"
� FasterFPE%=�
� �
�X ș "XWimp_StartTask","Obey <ArmSI$Dir>.Resources.OldModule FPEmulator"
� FasterFPE%=�
� �
� 7:
� Processor%=3 �
� readreg
' � (!regword% � 1)=1 �
*3 !regword%=!regword% � %11111110
4 � writereg
> CacheON%=�
H �
R, !regword%=!regword% � %1
\ � writereg
f CacheON%=�
p �
z �
�
�
�
� 5
� Ȏ block%!4 �
�3 � 0:� calcMC% � calcMC%=� � calcMC%=�
�< � 1:� calcBASIC% � calcBASIC%=� � calcBASIC%=�
�6 � 2:� calcFPU% � calcFPU%=� � calcFPU%=�
�9 � 3:� calcDHRY% � calcDHRY%=� � calcDHRY%=�
�
�
� � 7:quit%=�
� �
�% � I% menu%=0:�menu(X%,360,"")
��
��
:
� �key_pressed
6� block%!24<>&D � ș "Wimp_ProcessKey",block%!24:�
$Ȏ block%!0 �
. � savesi%
8 � block%!4>0 �
B' �savesi(�R_String(savesi%,1))
L �
V( ș "Wimp_ProcessKey",block%!24
` �
j1 � sysinfo%:ș "Wimp_SetCaretPosition",-1,-1
t' ș "Wimp_ProcessKey", block%!24
~�
��
�:
�� �drag_box
�F� drag_icon%=-1 � �save(�leaf(�R_String(savesi%,1)),our_filetype%)
��
�:
� � ***
�@� *** Calculation/Display routines (the 'real' bits of code)
� � ***
�:
�
� �calcsi
�G� temp$, ver%, J%, temp%, flags%, paddr%, pr12%, pbuf%, E%, E1%, A%
� Z%, V%, size%, chunk%
� calcDHRY%=� �
; ș "XOS_Module",18,"SharedCLibrary" � ,,,temp%;flags%
(z � (flags% � 1)=1 � �error(0, "You require version 3.75 or above of the SharedCLibrary to run the Dhrystones test"):�
2( temp$=�getname(!(temp%+&14)+temp%)
< temp$=�temp$,18)
F ver%=�(�temp$,18))*100
Pt � ver%<375 � �error(0, "You require version 3.75 or above of the SharedCLibrary to run the Dhrystones test"):�
Z. J%=�("<ArmSI$Dir>.Resources.Dhrystones")
d
�#J%
n�
x
� � ** Operating system bits
�FOSver%=OurOSver% : � Read at Wimp_Initialise (unlikely to change!)
�<OSstr$=�osver : � Cunning (!) routine to get OS string
� mode%=�
�4ș "OS_ReadModeVariable",mode%,7 � ,,ScreenSize%
�
� � ** Chip Set information
�IOCType%=1
�VIDCType%=1
�
�� OSver%<300 �
� IOEBType%=0
� PeriphType%=0
LCDType%=0
UniqueIDa%=0
UniqueIDb%=0
"�
,R ș "OS_ReadSysInfo",2 � IOEBType%,PeriphType%,LCDType%,UniqueIDa%,UniqueIDb%
6) � (OSver%>=301) � (PeriphType%=1) �
@% ș "OS_ReadSysInfo",3 � temp%
J$ Ȏ ((temp% >> 20) � %1111) �
T � 1:PeriphType%=1
^ � 2:PeriphType%=2
h
r PerhipType=-1
| �
� �
��
�
�D� ** Call main code, setting up illegal instruction handler code
�@ș "OS_ChangeEnvironment",1,retcd1,0,0 � ,paddr%,pr12%,pbuf%
�� assm_main
�*ș "OS_ChangeEnvironment",1,retcd2,0,0
�
�FPstr$="Unknown"
�!temp%=(!fputype% >> 24) � 256
�Ȏ temp% �
� � 0
� FPAType%=0
" FPstr$="Old FPEmulator, v"
2 ș "XOS_Module",18,"FPEmulator" � ,,,temp%
* temp$=�getname(!(temp%+&14)+temp%)
& FPstr$+=�temp$,18)
0 � 1
: FPAType%=0
D" FPstr$="New FPEmulator, v"
N2 ș "XOS_Module",18,"FPEmulator" � ,,,temp%
X* temp$=�getname(!(temp%+&14)+temp%)
b FPstr$+=�temp$,18)
lC � &80:FPAType%=1:FPstr$="FP Protocol Convertor card (WE2206)"
v7 � &81:FPAType%=2:FPstr$="ARM FP Accelerator chip"
� FPAType%=-1:FasterFPE%=�
��
�
�3� calcFPU% � (FPstr$="Unknown" � FPAType%=-1) �
�P �error(0, "You require a version of the FPEmulator to run the FP tests"):�
��
�
�Processor%=!tpres%
� ProcessorType%=!protype%
�MEMCType%=!memctype%
�� !tpres%=3 �
�' temp%=(ProcessorType% >> 8) � 255
� Ȏ temp% �
� 3:Processor%=3
� 6
O � ((ProcessorType% >> 4) � 255)=&61 � Processor%=610 � Processor%=600
� 7:Processor%=700
* � 8:Processor%=800
4 Processor%=3
> �
H�
R
\K� Can't have an 'ARM250' id and no IOEB chip, so either ARM61 or ARM2as
f4� (!tpres%=250) � (IOEBType%<=0) � Processor%=61
p
z'TimeTaken1=1<<27 :TimeTaken1L=1<<27
�(TimeTaken1a=1<<27:TimeTaken1aL=1<<27
�'TimeTaken2=1<<27 :TimeTaken2L=1<<27
�'TimeTaken3=1<<27 :TimeTaken3L=1<<27
�'TimeTaken4=1<<27 :TimeTaken4L=1<<27
�
�#ș "OS_ReadPalette",0,16 � ,,C%
�F� ** Disable Video & Sound DMA (turn DRAM refresh on continuously)
�� VideoDMA%=� �
� � 19,0,0|
� oldmemc%=�ReadMEMC
�' Ȗ:�UpdateMEMC(%0011<<8,%1111<<8)
��
� ș "Hourglass_On"
�
� readclock
$� A%=1 � 4
.� calcARM:� calcARML
81� !ARMcount1<TimeTaken1 TimeTaken1=!ARMcount1
B5� !ARMcount1a<TimeTaken1a TimeTaken1a=!ARMcount1a
L1� !ARMcount2<TimeTaken2 TimeTaken2=!ARMcount2
V1� !ARMcount3<TimeTaken3 TimeTaken3=!ARMcount3
`1� !ARMcount4<TimeTaken4 TimeTaken4=!ARMcount4
j5� !ARMcount1L<TimeTaken1L TimeTaken1L=!ARMcount1L
t9� !ARMcount1aL<TimeTaken1aL TimeTaken1aL=!ARMcount1aL
~5� !ARMcount2L<TimeTaken2L TimeTaken2L=!ARMcount2L
�5� !ARMcount3L<TimeTaken3L TimeTaken3L=!ARMcount3L
�5� !ARMcount4L<TimeTaken4L TimeTaken4L=!ARMcount4L
��
�
� OneClockTick=(1/100)/!timer0
�
�� ** RAM/ROM Speeds
�/RAMSpeed=10E8/((&FFFF � (!ramspeed%))*1000)
�JMemoryBandwidth=(1/(RAMSpeed*10E-10))*3.2 : � one N-cycle + 3 S-cycles
�MEMCState%=�ReadMEMC
� Ȏ (MEMCState%>>6) � %11 �
� � %00:HighROMSpeed=4
� %01:HighROMSpeed=3
� %10:HighROMSpeed=2
� %11:HighROMSpeed=1
�
( Ȏ (MEMCState%>>4) � %11 �
2 � %00:LowROMSpeed=4
< � %01:LowROMSpeed=3
F � %10:LowROMSpeed=2
P � %11:LowROMSpeed=1
Z�
d
n&DRAMRefresh%=(MEMCState%>>8) � %11
xȎ DRAMRefresh% �
� � %00:DRAMBandwidth=0
�? � %01:DRAMBandwidth=(((1/4E-6)/50)*4)*100/MemoryBandwidth
� � %10:DRAMBandwidth=0
�: � %11:DRAMBandwidth=((1/4E-6)*4)*100/MemoryBandwidth
��
�
�E%=�:E1%=�
�
�� ** Calculate FP stuff
�!FPUtimer=!timer0
�?Z%=0:ȕ FPUresults!(Z%*12)<>-1:FPUresults!(Z%*12)=0:Z%+=1:�
� � calcFPU% � �fpufound �
� � A%=1 � 2
� calcFPU
�
�
"! � calcFPU% E1%=�:calcFPU%=�
,�
62ș "OS_ChangeEnvironment",1,paddr%,pr12%,pbuf%
@
J,� ** i,s & n-cycles (for *base* machine)
Ti=125:s=125:n=250
^
h!MCcount=0
rBASICcount=0
|DHRYmsec=0
�DHRYvalue=0
�
�� ** MC calc
�� calcMC% � calcMC
�
�$� ** BASIC calc (a bit simple!!)
�3� calcBASIC% Ȗ:�=0:�A%=0�100000:�:BASICcount=�
�
� � ** Video refresh rate, etc
�/ș "OS_ReadModeVariable",-1,11 � ,,x%:x%+=1
�/ș "OS_ReadModeVariable",-1,12 � ,,y%:y%+=1
�?ș "OS_ReadModeVariable",-1,3 � ,,bpp%:� bpp%=63 � bpp%=255
� bpp%+=1:bpp%=�(bpp%)/�(2)
4�=0:Ȗ:� l%=1 � 20:Ȗ:Ȗ:Ȗ:Ȗ:�:hz%=(80/�)*1000
+ș "OS_ReadModeVariable",-1,7 � ,,size%
#band%=(size%*(hz%/10))/104857.6
&�VIDEOstr$="Mode "+�(mode%)+" ("+�x%+"x"+�y%+", "+�bpp%+" bpp, "+�(hz% � 10)+"."+�(hz% � 10)+" Hz, "+�(band% � 10)+"."+�(band% � 10)+" Mb/S)"
0
:4� Recalc DRAMBandwidth using screen refresh rate
DȎ DRAMRefresh% �
N � %00:DRAMBandwidth=0
XE � %01:DRAMBandwidth=(((1/4E-6)/(hz%/10))*4)*100/MemoryBandwidth
b � %10:DRAMBandwidth=0
l: � %11:DRAMBandwidth=((1/4E-6)*4)*100/MemoryBandwidth
v�
�
�� ** Dhrystone calc
�� calcDHRY% �
� � "UnSet ArmSI$Dhrystone"
�> ș "XWimp_StartTask", "<ArmSI$Dir>.Resources.Dhrystones"
�K ș "XOS_ReadVarVal","ArmSI$Dhrystone",ptr1%,32+(1<<31),0,0 � ,,exist%
� � exist%=0 �
� DHRYmsec=-1
� DHRYvalue=-1
� �
�9 ș "OS_ReadVarVal","ArmSI$Dhrystone",ptr1%,32,0,0
� temp$=�getname(ptr1%)
� DHRYmsec=�(temp$)
! temp$=�temp$,�temp$," "))
DHRYvalue=�(temp$)
�
�
*
4%� ** Turn back on Video/sound DMA
>� VideoDMA%=� �
H Ȗ
R$ �UpdateMEMC(oldmemc%,%1111<<8)
\A �19,0,C% � &FF,(C%>>8 � &FF),(C%>>16 � &FF),(C%>>24 � &FF);
f�
p ș "Hourglass_Off"
z�
�
�,InstructionTime1=(s*Instructions)*10E-10
�4InstructionTime1a=((s+16*i)*Instructions)*10E-10
�:InstructionTime2=((s+n+i+2*n)*(Instructions/2))*10E-10
�@InstructionTime3=((7*s+n+i+s*6+2*n)*(Instructions/2))*10E-10
�2InstructionTime4=((2*s+n)*Instructions)*10E-10
�3InstructionTime1L=((4*s+n)*Instructions)*10E-10
�9InstructionTime1aL=((4*s+n+16*i)*Instructions)*10E-10
�;InstructionTime2L=((4*s+4*n+i)*(Instructions/2))*10E-10
�<InstructionTime3L=((16*s+4*n+i)*(Instructions/2))*10E-10
�5InstructionTime4L=((5*s+2*n)*Instructions)*10E-10
�
�0TimeTaken1=(!timer0-TimeTaken1)*OneClockTick
2TimeTaken1a=(!timer0-TimeTaken1a)*OneClockTick
0TimeTaken2=(!timer0-TimeTaken2)*OneClockTick
0TimeTaken3=(!timer0-TimeTaken3)*OneClockTick
$0TimeTaken4=(!timer0-TimeTaken4)*OneClockTick
.2TimeTaken1L=(!timer0-TimeTaken1L)*OneClockTick
84TimeTaken1aL=(!timer0-TimeTaken1aL)*OneClockTick
B2TimeTaken2L=(!timer0-TimeTaken2L)*OneClockTick
L2TimeTaken3L=(!timer0-TimeTaken3L)*OneClockTick
V2TimeTaken4L=(!timer0-TimeTaken4L)*OneClockTick
`
j0MIPS1=�((Instructions/TimeTaken1)/10000)/100
t2MIPS1a=�((Instructions/TimeTaken1a)/10000)/100
~0MIPS2=�((Instructions/TimeTaken2)/10000)/100
�0MIPS3=�((Instructions/TimeTaken3)/10000)/100
�0MIPS4=�((Instructions/TimeTaken4)/10000)/100
�
�1Index1=�(InstructionTime1/TimeTaken1*100)/100
�4Index1a=�(InstructionTime1a/TimeTaken1a*100)/100
�1Index2=�(InstructionTime2/TimeTaken2*100)/100
�1Index3=�(InstructionTime3/TimeTaken3*100)/100
�1Index4=�(InstructionTime4/TimeTaken4*100)/100
�4Index1L=�(InstructionTime1L/TimeTaken1L*100)/100
�7Index1aL=�(InstructionTime1aL/TimeTaken1aL*100)/100
�4Index2L=�(InstructionTime2L/TimeTaken2L*100)/100
�4Index3L=�(InstructionTime3L/TimeTaken3L*100)/100
4Index4L=�(InstructionTime4L/TimeTaken4L*100)/100
*MIPS1L=�(MIPS1/Index1*Index1L*100)/100
.MIPS1aL=�(MIPS1a/Index1a*Index1aL*100)/100
(*MIPS2L=�(MIPS2/Index2*Index2L*100)/100
2*MIPS3L=�(MIPS3/Index3*Index3L*100)/100
<*MIPS4L=�(MIPS4/Index4*Index4L*100)/100
F
P:Index1=Index1/.75 : � Re-calibrate to 300 series
ZIndex1a=Index1a/.49
dIndex2=Index2/.81
nIndex3=Index3/.77
xIndex4=Index4/.83
�Index1L=Index1L/.80
�Index1aL=Index1aL/.53
�Index2L=Index2L/.81
�Index3L=Index3L/.78
�Index4L=Index4L/.84
�
�Ȏ Processor% �
�
� � 1
�L Index1a=0:Index1aL=0:MIPS1a=0:MIPS1aL=0:TimeTaken1a=0:TimeTaken1aL=0
�[ Z=(MIPS1*686+MIPS2*290+MIPS3*9+MIPS4*15+MIPS1L*686+MIPS2L*290+MIPS3L*9+MIPS4L*15)/2
�# TotalMIPS=�(Z/1000*100)/100
�f TotalIndex=�((Index1+.49+Index2+Index3+Index4+Index1L+.53+Index2L+Index3L+Index4L)/10*100)/100
"h Z=(MIPS1*685+MIPS1a+MIPS2*290+MIPS3*9+MIPS4*15+MIPS1L*685+MIPS1aL+MIPS2L*290+MIPS3L*9+MIPS4L*15)/2
,! TotalMIPS=�(Z/1000*100)/100
6m TotalIndex=�((Index1+Index1a+Index2+Index3+Index4+Index1L+Index1aL+Index2L+Index3L+Index4L)/10*100)/100
@�
J
T&MCIndex=0:BASICIndex=0:DHRYIndex=0
^1� calcMC% MCIndex=�(161/(!MCcount)*1000)/1000
h7� calcBASIC% BASICIndex=�(143/BASICcount*1000)/1000
r*� calcDHRY% DHRYIndex=DHRYvalue/5920.7
|
�� ** RAM/ROM Sizes
�Jș "OS_ReadMemMapInfo" � A%,B%:RAMSize%=(A%*B%) � 1024:RAMPageSize%=A%
�� OSver%<300 �
�" � No extension ROMs possible
�2 ROMsize%=512*1024:ROMsize5th%=0:ROMnum5th%=0
��
�4 ș "XPodule_ReturnNumber" � ,ROMnum5th%;flags%
� � (flags% � 1)=1 �
�G � Can't read number of extension ROMs, so mark as 'Unknown', -1
�6 ROMsize%=2048*1024:ROMsize5th%=0:ROMnum5th%=-1
� �
� ROMsize%=2048*1024
� ROMsize5th%=0
� ROMnum5th%>0 �
+ � loop%=-2 � -(ROMnum5th%+1) � -1
chunk%=0
&
�
0W ș "XPodule_EnumerateChunksWithInfo",chunk%,,,loop% � chunk%,size%;flags%
: V%=flags% � 1
D9 � (chunk%<>0) � (V%=0) � ROMsize5th%+=size%
N! � (chunk%=0) � (V%=1)
X �
b �
l �
v�
�
�>ScreenBandwidth=(ScreenSize%*(hz%/10))*100/MemoryBandwidth
�8ProcessorBandwidth=100-ScreenBandwidth-DRAMBandwidth
�Ȏ Processor% �
�. � 2:� ARM2 takes all remaining bandwidth
�7 � 3:� ProcessorBandwidth>14 ProcessorBandwidth=14
� � readreg
�< � (!regword% � 1) = 1 � CacheON%=� � CacheON%=�
��
�
�,ș "XOS_Module",18,"BASIC",,0 � ,,,temp%
�7� temp%<&03800000 � FasterBASIC%=� � FasterBASIC%=�
�!� temp%<=0 � FasterBASIC%=-99
1ș "XOS_Module",18,"FPEmulator",,0 � ,,,temp%
3� temp%<&03800000 � FasterFPE%=� � FasterFPE%=�
� temp%<=0 � FasterFPE%=�
*)� ** A500 ID (looks at keyboard type)
4(ș "OS_InstallKeyHandler",1 � keyid%
>� keyid%=0 �
H? � Looks like we've found ourselves a genuine A500 folks !
R VIDCType%=3
\�
f
pE� *** Test for PCATS enhancer card (SWI Enhancer_HardwarePresent)
zș &62A4D � ;flags%
�'� (flags% � 1) = 0 � VIDCType%+=128
�
��displaysi
��
�:
� � �osver
�� �
�
� � �:=�$
�ș "OS_Byte",0,0
�="Unknown"
�:
�B� A fun little routine that makes a fair guess of machine type
�4� Please correct/improve and return to me! Nick.
F� Possible improvments - distinguish machines based on sizes/types
F� of HD. eg, A4x0/1 series had built in ST506 controller, A540 has
8� a SCSI podule as standard, etc. Hack, hack, hack !
$:
.� �machineguess
8 � name$
B
L?� VIDCType%=3 � name$="A500 prototype, "+�OSstr$,12):=name$
VȎ Processor% �
`& � 1:name$="Unknown ARM1 machine"
j
� 2:
t Ȏ MEMCType% �
~
� 0
� Ȏ RAMSize% �
�) � 512:name$="Original A305"
�* � 1024:name$="Original A310"
�. � 2048:name$="Expanded A305/310"
�* � 4096:name$="Original A440"
�2 name$="Unknown ARM2+MEMC1 machine"
�
�
�
� 1
� Ȏ RAMSize% �
�1 � 512:name$="Expanded A305, MEMC1a"
�5 � 1024:name$="Original A410/1 or A3000"
�, � 2048:name$="Original A420/1"
, � 4096:name$="Original A440/1"
+ name$="Unknown ARM2+MEMC1a"
�
( name$="Unknown ARM2 machine"
( �
2
<
� 3:
F Ȏ IOEBType% �
P
� 0
Z � RAMSpeed<120 �
d Ȏ RAMSize% �
n, � 4096:name$="Original A540"
x1 � 8192:name$="Expanded A540, 8MB"
�3 � 12288:name$="Expanded A540, 12MB"
�3 � 16384:name$="Expanded A540, 16MB"
�9 name$="Unknown fast-RAM ARM3 machine"
� �
�
�
� Ȏ RAMSize% �
�1 � 512:name$="Expanded A305, ARM3"
�4 � 1024:name$="Expanded A410/1, ARM3"
�4 � 2048:name$="Expanded A420/1, ARM3"
�4 � 4096:name$="Expanded A440/1, ARM3"
�3 � 8192:name$="Expanded A440/1, 8MB"
�0 name$="Unknown ARM3 machine"
� �
�
� 1
Ȏ RAMSize% �
" � 2048
, Ȏ LCDType% �
6, � 0:name$="Original A5000"
@2 � 1:name$="Original A4 portable"
J9 name$="Unknown 2MB ARM3+IOEB machine"
T �
^ � 4096
h Ȏ LCDType% �
r( � 0:name$="A5000, 4MB"
|7 � 1:name$="Expanded A4 portable, 4MB"
�9 name$="Unknown 4MB ARM3+IOEB machine"
� �
�0 � 8192:name$="Expanded A5000, 8MB"
�1 name$="Unknown ARM3+IOEB machine"
�
�
�( name$="Unknown IOEB machine"
� �
�
� � 250:
� Ȏ RAMSize% �
�' � 1024:name$="Original A3010"
�- � 2048:name$="Original A3020/A4000"
�6 � 4096:name$="Expanded A3010/3020/4000, 4MB"
* name$="Unknown ARM250 machine"
�
& name$="Machine Unknown"
0�
:=name$+", "+�OSstr$,12)
D:
N� �displaysi
X
� temp
bș "Hourglass_On"
l
vblock1%!0=sysinfo%
�%ș "Wimp_GetWindowState",,block1%
�SH%=block1%!28
� WO%=(block1%!32>>16) � %1
�"ș "Wimp_CloseWindow",,block1%
�block1%!0=fpuinfo%
�%ș "Wimp_GetWindowState",,block1%
�FH%=block1%!28
� WO%+=(block1%!32>>15) � %10
�"ș "Wimp_CloseWindow",,block1%
�
�� ** RAM/ROM Sizes
�� RAMPageSize%<=0 �
�% �updateicon(4,�(RAMSize%)+" K")
�
i �updateicon(4,�(RAMSize%)+" K ("+�(RAMPageSize% � 1024)+"K x "+�(RAMSize%/(RAMPageSize%/1024))+")")
�
� ROMsize%<=0 �
* �updateicon(6,"Unknown")
4�
> Ȏ ROMnum5th% �
HG � -1:�updateicon(6,�(�(ROMsize%/1024))+" K (? extension ROMs)")
R3 � 0:�updateicon(6,�(�(ROMsize%/1024))+" K")
\
ft �updateicon(6,�(�(ROMsize%/1024))+" K (+"+�(�(ROMsize5th%/1024))+"K in "+�(ROMnum5th%)+" extension ROMs)")
p �
z�
�
�� ** RAM/ROM Speeds
�� �(RAMSpeed)=125 �
� Ȏ �(HighROMSpeed) �
�0 � 1:�updateicon(8,"125 nS (Paged mode)")
�0 � 2:�updateicon(8,"200 nS (2 n-cycles)")
�0 � 3:�updateicon(8,"325 nS (3 n-cycles)")
�0 � 4:�updateicon(8,"450 nS (4 n-cycles)")
� �
� Ȏ �(LowROMSpeed) �
�0 � 1:�updateicon(1,"125 nS (Paged mode)")
�0 � 2:�updateicon(1,"200 nS (2 n-cycles)")
�0 � 3:�updateicon(1,"325 nS (3 n-cycles)")
0 � 4:�updateicon(1,"450 nS (4 n-cycles)")
�
�
$+ � HighROMSpeed-�(HighROMSpeed)>=0.1 �
.\ �updateicon(8,�(�(HighROMSpeed*RAMSpeed))+" nS ("+�(�(HighROMSpeed)+1)+" n-cycles)")
8 �
BW �updateicon(8,�(�(HighROMSpeed*RAMSpeed))+" nS ("+�(HighROMSpeed)+" n-cycles)")
L �
V) � LowROMSpeed-�(LowROMSpeed)>=0.1 �
`Z �updateicon(1,�(�(LowROMSpeed*RAMSpeed))+" nS ("+�(�(LowROMSpeed)+1)+" n-cycles)")
j �
tU �updateicon(1,�(�(LowROMSpeed*RAMSpeed))+" nS ("+�(LowROMSpeed)+" n-cycles)")
~ �
��
�
�%temp=(�((1/RAMSpeed)*100000))/100
�:�updateicon(12,�(�(RAMSpeed))+" nS ("+�(temp)+" MHz)")
�
�Ȏ DRAMRefresh% �
�" � %00:�updateicon(14,"None")
�7 � %01:�updateicon(14,"During Video Flyback only")
�" � %10:�updateicon(14,"None")
�( � %11:�updateicon(14,"Continuous")
��
�
6�updateicon(17,�(�(MemoryBandwidth))+" bytes/sec")
2�updateicon(21,�strpad(ScreenBandwidth,4)+"%")
+B%(1)=�bar(B%(1),10.28*ScreenBandwidth)
0�updateicon(24,�strpad(DRAMBandwidth,4)+"%")
()B%(2)=�bar(B%(2),10.28*DRAMBandwidth)
25�updateicon(27,�strpad(ProcessorBandwidth,4)+"%")
<.B%(3)=�bar(B%(3),10.28*ProcessorBandwidth)
FW�updateicon(30,�strpad(100-ScreenBandwidth-DRAMBandwidth-ProcessorBandwidth,4)+"%")
PRB%(4)=�bar(B%(4),10.28*(100-ScreenBandwidth-DRAMBandwidth-ProcessorBandwidth))
Z0�updateicon(34,�strpad(TotalMIPS,2)+" MIPS")
d)�updateicon(37,�strpad(TotalIndex,2))
n$B%(5)=�bar(B%(5),154*TotalIndex)
x
�%�updateicon(42,�strpad(Index1,2))
� B%(6)=�bar(B%(6),154*Index1)
�M� Processor%=1 �updateicon(45,"N/A") � �updateicon(45,�strpad(Index1a,2))
�!B%(7)=�bar(B%(7),154*Index1a)
�%�updateicon(48,�strpad(Index2,2))
� B%(8)=�bar(B%(8),154*Index2)
�%�updateicon(51,�strpad(Index3,2))
� B%(9)=�bar(B%(9),154*Index3)
�%�updateicon(54,�strpad(Index4,2))
�"B%(14)=�bar(B%(14),154*Index4)
�&�updateicon(58,�strpad(Index1L,2))
�#B%(15)=�bar(B%(15),154*Index1L)
�N� Processor%=1 �updateicon(61,"N/A") � �updateicon(61,�strpad(Index1aL,2))
$B%(16)=�bar(B%(16),154*Index1aL)
&�updateicon(64,�strpad(Index2L,2))
#B%(17)=�bar(B%(17),154*Index2L)
"&�updateicon(67,�strpad(Index3L,2))
,#B%(18)=�bar(B%(18),154*Index3L)
6&�updateicon(70,�strpad(Index4L,2))
@#B%(19)=�bar(B%(19),154*Index4L)
J)�updateicon(28,�strpad(TotalIndex,3))
T(B%(10)=�bar(B%(10),154*(TotalIndex))
^Z=TotalIndex:D%=1
h
r� calcMC% �
| Z+=MCIndex:D%+=1
�( �updateicon(46,�strpad(MCIndex,3))
�% B%(11)=�bar(B%(11),154*MCIndex)
��
�$ �updateicon(46,"Not computed")
� B%(11)=�bar(B%(11),0)
��
�
�� calcBASIC% �
� Z+=BASICIndex:D%+=1
�+ �updateicon(55,�strpad(BASICIndex,3))
�( B%(12)=�bar(B%(12),154*BASICIndex)
��
�$ �updateicon(55,"Not computed")
B%(12)=�bar(B%(12),0)
�
&� calcDHRY% �
0 � DHRYmsec=-1 �
:& �updateicon(65,"Not computed")
D B%(20)=�bar(B%(20),0)
N �
X Z+=DHRYIndex:D%+=1
b, �updateicon(65,�strpad(DHRYIndex,3))
l) B%(20)=�bar(B%(20),154*DHRYIndex)
v �
��
�$ �updateicon(65,"Not computed")
� B%(20)=�bar(B%(20),0)
��
�
�#�updateicon(31,�strpad(Z/D%,3))
�"B%(13)=�bar(B%(13),154*(Z/D%))
�
�� ** Chip set
�Ȏ MEMCType% �
�, � 0:�updateicon(74,"MEMC1 - VL86C110")
�- � 1:�updateicon(74,"MEMC1a - VL86C110")
�
! �updateicon(74,"Unknown")
! �
!
! Ȏ IOCType% �
!*+ � 1:�updateicon(76,"IOC1 - VL86C410")
!4 � 2:�updateicon(76,"IOC2")
!>
!H �updateicon(76,"Unknown")
!R�
!\
!f �updateicon(78,"Unknown")
!p
!zȎ VIDCType% �
!�- � 1:�updateicon(80,"VIDC1a - VL86C310")
!�5 � 2:�updateicon(80,"VIDC1a plus VIDC Enhancer")
!�! � 3:�updateicon(80,"VIDC1")
!�# � 20:�updateicon(80,"VIDC20")
!�F � 129:�updateicon(80,"VIDC1a - VL86C310 (+PCATS Graphics card)")
!�: � 131:�updateicon(80,"VIDC1 (+PCATS Graphics card)")
!�
!� �updateicon(80,"Unknown")
!��
!�
!�Ȏ Processor% �
!� � 1:�updateicon(82,"ARM1")
!�+ � 2:�updateicon(82,"ARM2 - VL86C010")
" � 3
"& Ȏ (ProcessorType%>>8) � &FF �
" � &03:A$="- VL86C020"
"$
". A$="- VL86C0??"
"8 �
"B, A$+=" rev. "+�(ProcessorType% � &FF)
"L" �updateicon(82,"ARM3 "+A$)
"V) � 61:�updateicon(82,"ARM2as/ARM61")
"`7 � 250:�updateicon(82,"ARM250 (ARM2as macrocell)")
"j � 600
"t& Ȏ (ProcessorType%>>8) � &FF �
"~ � &06:A$="- VL86C0??"
"�
"� A$="- VL86C0??"
"� �
"�, A$+=" rev. "+�(ProcessorType% � &0F)
"�$ �updateicon(82,"ARM600 "+A$)
"� � 610
"�& Ȏ (ProcessorType%>>8) � &FF �
"� � &06:A$="- VL86C0??"
"�
"� A$="- VL86C0??"
"� �
"�, A$+=" rev. "+�(ProcessorType% � &0F)
# $ �updateicon(82,"ARM610 "+A$)
#
� 700
#& Ȏ (ProcessorType%>>8) � &FF �
# � &07:A$="- VL86C0??"
#(
#2 A$="- VL86C0??"
#< �
#F, A$+=" rev. "+�(ProcessorType% � &FF)
#P$ �updateicon(82,"ARM700 "+A$)
#Z � 800
#d& Ȏ (ProcessorType%>>8) � &FF �
#n � &08:A$="- VL86C0??"
#x
#� A$="- VL86C0??"
#� �
#�, A$+=" rev. "+�(ProcessorType% � &FF)
#�$ �updateicon(82,"ARM800 "+A$)
#�
#�! �updateicon(82,"Unknown")
#��
#�
#�Ȏ IOEBType% �
#�$ � -1:�updateicon(78,"Unknown")
#�' � 0:�updateicon(78,"Not present")
#�
#�2 �updateicon(78,"IOEB type "+�(�(IOEBType%)))
$�
$
$Ȏ FPAType% �
$"$ � -1:�updateicon(84,"Unknown")
$,& � 0:�updateicon(84,"Not fitted")
$6? � 1:�updateicon(84,"FP Protocol Convertor card (WE2206)")
$@3 � 2:�updateicon(84,"ARM FP Accelerator chip")
$J
$T �updateicon(84,"Unknown")
$^�
$h
$rȎ PeriphType% �
$|$ � -1:�updateicon(68,"Unknown")
$�& � 0:�updateicon(68,"Not fitted")
$�" � 1:�updateicon(68,"82C710")
$�" � 2:�updateicon(68,"82C711")
$�
$� �updateicon(68,"Unknown")
$��
$�
$�Ȏ LCDType% �
$�$ � -1:�updateicon(39,"Unknown")
$�& � 0:�updateicon(39,"Not fitted")
$�
$�0 �updateicon(39,"LCD type "+�(�(LCDType%)))
$��
%
%� ** OS info
% �updateicon(87,OSstr$)
%& �updateicon(89,VIDEOstr$)
%0Ȏ UniqueIDa% �
%:$ � -1:�updateicon(91,"Unknown")
%D) � 0:�updateicon(91,"Not available")
%N
%XO �updateicon(91,"&"+�dec_to_hex(UniqueIDa%)+" "+�dec_to_hex(UniqueIDb%))
%b�
%l�updateicon(93,FPstr$)
%v� DHRYmsec<=0 �
%�$ �updateicon(95,"Not computed")
%�$ �updateicon(96,"Not computed")
%��
%�, �updateicon(95,�(DHRYmsec)+" �S/loop")
%�2 �updateicon(96,�(DHRYvalue)+" dhrystones/S")
%��
%� �updateicon(99,�(mode%))
%�
%�� ** FP info
%�FPUtime=0:FPUins=0
%�FPUindex=0
%�A%=0
%� ȕ FPUresults!(12*A%)<>-1
&Q index=�(((FPUresults!(12*A%+8)/(!FPUtimer-FPUresults!(12*A%)))+0.01)*50)/50
& � FPUresults!(12*A%)>0 �
&, �updateicon2(47+A%,�strpad(index,2))
& * C%(A%+1)=�bar2(C%(A%+1),154*index)
&* FPUindex+=index
&4- FPUtime+=!FPUtimer-FPUresults!(12*A%)
&> �
&H! �updateicon2(47+A%,"N/A")
&R" C%(A%+1)=�bar2(C%(A%+1),0)
&\ �
&f$ FPUins+=FPUresults!(12*A%+4)*2
&p A%+=1
&z�
&�
&�FPUindex=FPUindex/A%
&�U� FPUindex>0 � �updateicon2(46,�strpad(FPUindex+.005,2)) � �updateicon2(46,"N/A")
&�#C%(0)=�bar2(C%(0),154*FPUindex)
&�t� FPUindex>0 � �updateicon2(45,�(�(FPUins/(FPUtime*OneClockTick)))+" FLOPS") � �updateicon2(45,"Not calculated")
&�
&�"� (WO% � %1) � SH%<>fpuinfo% �
&�: block1%!0=sysinfo%:ș "Wimp_GetWindowState",,block1%
&�2 block1%!28=SH%:ș "Wimp_OpenWindow",,block1%
&��
&�� WO% � %10 �
&�: block1%!0=fpuinfo%:ș "Wimp_GetWindowState",,block1%
&�2 block1%!28=FH%:ș "Wimp_OpenWindow",,block1%
'�
'!� (WO% � %1) � SH%=fpuinfo% �
': block1%!0=sysinfo%:ș "Wimp_GetWindowState",,block1%
'$2 block1%!28=SH%:ș "Wimp_OpenWindow",,block1%
'.�
'8
'Bș "Hourglass_Off"
'L_� E% �error(0,"Unable to compute MC/BASIC/FPU/Dhrystone indexes without DRAM refresh"):E%=�
'VH� E1% �error(0,"No Floating Point Unit/Emulator/Chip present"):E1%=�
'`�
'j:
't � ***
'~� *** Load/Save code
'� � ***
'�:
'�� Save off ArmSI file
'�� �savesi(file_name$)
'�� name$, F%, Z%
'�� �
'�6� � �:�error(0, "Couldn't save file - "+�$):�#F%:�
'�#�U_String(savesi%,1,file_name$)
'�F%=�(file_name$)
'�'�#F%,330:� Version 330 (3.30 * 100)
'� name$=�R_String(sysinfo%,2)
'��#F%,name$
( 2�#F%,mode%,ScreenSize%,MEMCState%,OneClockTick
(
@�#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
(E�#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
( �#F%,!MCcount,BASICcount
((^�#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
(2c�#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
(<'�#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
(F,�#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
(P?�#F%,Processor%,ProcessorType%,IOCType%,MEMCType%,VIDCType%
(Z@�#F%,RAMSize%,HighROMSpeed,LowROMSpeed,RAMSpeed,DRAMRefresh%
(dI�#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
(n%�#F%,TotalMIPS,TotalIndex,MCIndex
(x,�#F%,Index1,Index1a,Index2,Index3,Index4
(�1�#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
(�1�#F%,BASICIndex,calcMC%,calcBASIC%,DRAMCheck%
(�/�#F%,DHRYIndex,DHRYmsec,DHRYvalue,calcDHRY%
(�4�#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
(�Z%=0
(� ȕ FPUresults!(Z%*12)<>-1
(� �#F%,FPUresults!(Z%*12)
(� Z%+=1
(��
(�/�#F%,OSver%,ROMsize%,ROMsize5th%,ROMnum5th%
(��#F%,OSstr$
(� �#F%,UniqueIDa%,UniqueIDb%
(��#F%,FPstr$
)0�#F%,IOEBType%,FPAType%,PeriphType%,LCDType%
)�#F%,VIDEOstr$
))�#F%,FasterBASIC%,FasterFPE%,CacheON%
)" �#F%,VideoDMA%,RAMPageSize%
),�#F%
)6.� "SetType "+file_name$+" "+�our_filetype%
)@ș "Wimp_CreateMenu",-1
)J�
)T:
)^� �loadsi(file_name$)
)h� Z%,F%,V%
)r� �
)|G� � �:�error(0, "Couldn't load file '"+file_name$+"' - "+�$):�#F%:�
)�#�U_String(savesi%,1,file_name$)
)�Z%=0
)� ȕ FPUresults!(Z%*12)<>-1
)� FPUresults!(Z%*12)=0
)� Z%+=1
)��
)�calcFPU%=�
)�E%=�
)� E1%=�
)�
)�F%=�(file_name$)
)� �#F%,V%
)� Ȏ V% �
*� 1
*
* � Version 1
*& �#F%,A$:�updateicon(2,A$)
*0 �#F%,mode%,S,M,OneClockTick
*: ScreenSize%=S:MEMCState%=M
*D5�#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3
*N �#F%,!MCcount,BASICcount
*XM�#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3
*b8�#F%,MIPS1,MIPS1a,MIPS2,MIPS3,P,ProcessorType%,I,M,V
*l2Processor%=P:IOCType%=I:MEMCType%=M:VIDCType=V
*v.�#F%,R,HighROMSpeed,LowROMSpeed,RAMSpeed,D
*�RAMSize%=R
*�I�#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
*�B�#F%,TotalMIPS,TotalIndex,Index1,Index1a,Index2,Index3,MCIndex
*�)�#F%,BASICIndex,calcMC%,calcBASIC%,D%
*�,� �(HighROMSpeed)=150 � HighROMSpeed=200
*�&HighROMSpeed=HighROMSpeed/RAMSpeed
*�$LowROMSpeed=LowROMSpeed/RAMSpeed
*� Index4=0
*�6Index1L=0:Index1aL=0:Index2L=0:Index3L=0:Index4L=0
*�:Index1=Index1/.75 : � Re-calibrate to 300 series
*�Index1a=Index1a/.49
*�Index2=Index2/.81
*�Index3=Index3/.77
+ TotalIndex=TotalIndex/.74
+ 5OSver%=-1:ROMsize%=-1:ROMsize5th%=0:ROMnum5th%=-1
+5DHRYIndex=-1:DHRYmsec=-1:DHRYvalue=-1:calcDHRY%=�
+ OSstr$="Unknown"
+* UniqueIDa%=-1:UniqueIDb%=-1
+4FPstr$="Unknown"
+>7IOEBType%=-1:FPAType%=-1:PeriphType%=-1:LCDType%=-1
+HVIDEOstr$="Unknown"
+R FasterBASIC%=�:FasterFPE%=�
+\*CacheON%=�:VideoDMA%=�:RAMPageSize%=-1
+f�displaysi
+p
+z � 2,3
+�� Version 2,3
+� �#F%,A$:�updateicon(2,A$)
+� �#F%,mode%,S,M,OneClockTick
+� ScreenSize%=S:MEMCState%=M
+�@�#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
+�E�#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
+� �#F%,!MCcount,BASICcount
+�^�#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
+�c�#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
+�'�#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
+�,�#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
+� �#F%,P,ProcessorType%,I,M,V
+�2Processor%=P:IOCType%=I:MEMCType%=M:VIDCType=V
,.�#F%,R,HighROMSpeed,LowROMSpeed,RAMSpeed,D
,RAMSize%=R
,I�#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
,$%�#F%,TotalMIPS,TotalIndex,MCIndex
,.,�#F%,Index1,Index1a,Index2,Index3,Index4
,81�#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
,B)�#F%,BASICIndex,calcMC%,calcBASIC%,D%
,L,� �(HighROMSpeed)=150 � HighROMSpeed=200
,V&HighROMSpeed=HighROMSpeed/RAMSpeed
,`$LowROMSpeed=LowROMSpeed/RAMSpeed
,j � V%=3 �
,t6 �#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
,~
Z%=0
,� ȕ FPUresults!(Z%*12)<>-1
,� �#F%,FPUresults!(Z%*12)
,�
Z%+=1
,� �
,��
,�:Index1=Index1/.75 : � Re-calibrate to 300 series
,�Index1a=Index1a/.49
,�Index2=Index2/.81
,�Index3=Index3/.77
,�Index4=Index4/.83
,�Index1L=Index1L/.80
,�Index1aL=Index1aL/.53
- Index2L=Index2L/.81
-
Index3L=Index3L/.78
-Index4L=Index4L/.84
- TotalIndex=TotalIndex/.74
-(5OSver%=-1:ROMsize%=-1:ROMsize5th%=0:ROMnum5th%=-1
-25DHRYIndex=-1:DHRYmsec=-1:DHRYvalue=-1:calcDHRY%=�
-<OSstr$="Unknown"
-F UniqueIDa%=-1:UniqueIDb%=-1
-PFPstr$="Unknown"
-Z7IOEBType%=-1:FPAType%=-1:PeriphType%=-1:LCDType%=-1
-dVIDEOstr$="Unknown"
-n FasterBASIC%=�:FasterFPE%=�
-x*CacheON%=�:VideoDMA%=�:RAMPageSize%=-1
-��displaysi
-�
-�
-�` � V%<100 � �#F%:�error(0, "You require version "+�V%+".00 or above to read "+file_name$):�
-� � V%<330 �
-� �#F%,A$
-� �updateicon(2,A$)
-�# �#F%,mode%,S,M,OneClockTick
-�" ScreenSize%=S:MEMCState%=M
-�D �#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
-�I �#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
-� �#F%,!MCcount,BASICcount
-�b �#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
.g �#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
.+ �#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
.0 �#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
."# �#F%,P,ProcessorType%,I,M,V
.,6 Processor%=P:IOCType%=I:MEMCType%=M:VIDCType=V
.62 �#F%,R,HighROMSpeed,LowROMSpeed,RAMSpeed,D
.@ RAMSize%=R
.JM �#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
.T) �#F%,TotalMIPS,TotalIndex,MCIndex
.^0 �#F%,Index1,Index1a,Index2,Index3,Index4
.h5 �#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
.r5 �#F%,BASICIndex,calcMC%,calcBASIC%,DRAMCheck%
.|3 �#F%,DHRYIndex,DHRYmsec,DHRYvalue,calcDHRY%
.�8 �#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
.� Z%=0
.�! ȕ FPUresults!(Z%*12)<>-1
.�! �#F%,FPUresults!(Z%*12)
.� Z%+=1
.� �
.�3 �#F%,OSver%,ROMsize%,ROMsize5th%,ROMnum5th%
.� �#F%,OSstr$
.�" �#F%,UniqueIDa%,UniqueIDb%
.� �#F%,FPstr$
.�4 �#F%,IOEBType%,FPAType%,PeriphType%,LCDType%
.� �#F%,VIDEOstr$
.� � V%<=324 �
/% FasterBASIC%=�:FasterFPE%=�
/ CacheON%=�
/ �
/&/ �#F%,FasterBASIC%,FasterFPE%,CacheON%
/0 �
/:# VideoDMA%=�:RAMPageSize%=-1
/D �displaysi
/N �
/X
/b � V%>326 � V%<=330 �
/l � Version 3.30H
/v �#F%,A$
/� �updateicon(2,A$)
/�6 �#F%,mode%,ScreenSize%,MEMCState%,OneClockTick
/�D �#F%,TimeTaken1,TimeTaken1a,TimeTaken2,TimeTaken3,TimeTaken4
/�I �#F%,TimeTaken1L,TimeTaken1aL,TimeTaken2L,TimeTaken3L,TimeTaken4L
/� �#F%,!MCcount,BASICcount
/�b �#F%,InstructionTime1,InstructionTime1a,InstructionTime2,InstructionTime3,InstructionTime4
/�g �#F%,InstructionTime1L,InstructionTime1aL,InstructionTime2L,InstructionTime3L,InstructionTime4L
/�+ �#F%,MIPS1,MIPS1a,MIPS2,MIPS3,MIPS4
/�0 �#F%,MIPS1L,MIPS1aL,MIPS2L,MIPS3L,MIPS4L
/�C �#F%,Processor%,ProcessorType%,IOCType%,MEMCType%,VIDCType%
/�D �#F%,RAMSize%,HighROMSpeed,LowROMSpeed,RAMSpeed,DRAMRefresh%
/�M �#F%,MemoryBandwidth,ScreenBandwidth,DRAMBandwidth,ProcessorBandwidth
/�) �#F%,TotalMIPS,TotalIndex,MCIndex
00 �#F%,Index1,Index1a,Index2,Index3,Index4
0 5 �#F%,Index1L,Index1aL,Index2L,Index3L,Index4L
05 �#F%,BASICIndex,calcMC%,calcBASIC%,DRAMCheck%
0 3 �#F%,DHRYIndex,DHRYmsec,DHRYvalue,calcDHRY%
0*8 �#F%,FPUindex,FPUtime,FPUtime,!FPUtimer,calcFPU%
04 Z%=0
0>! ȕ FPUresults!(Z%*12)<>-1
0H! �#F%,FPUresults!(Z%*12)
0R Z%+=1
0\ �
0f3 �#F%,OSver%,ROMsize%,ROMsize5th%,ROMnum5th%
0p �#F%,OSstr$
0z" �#F%,UniqueIDa%,UniqueIDb%
0� �#F%,FPstr$
0�4 �#F%,IOEBType%,FPAType%,PeriphType%,LCDType%
0� �#F%,VIDEOstr$
0�- �#F%,FasterBASIC%,FasterFPE%,CacheON%
0� � V%>=330 �
0�% �#F%,VideoDMA%,RAMPageSize%
0� �
0�% VideoDMA%=�:RAMPageSize%=-1
0� �
0� �displaysi
0� �
0� � V%>330 �
0�S �error(0, "You require version "+�(V%/100)+" or above to read "+file_name$)
1 �
1
1�
1$�#F%
1. �opensi
18�
1B:
1L � ***
1V � *** Shared SI routines
1` � ***
1j:
1t� �menu(X%,Y%,T$)
1~ � pointer%,A%,L%, A$,F%,I%
1�pointer%=menu_block%
1�$pointer%=app_name$
1� � +10
1�a� pointer%?12,pointer%?13,pointer%?14,pointer%?15,pointer%!16,pointer%!20,pointer%!24,number%
1�A%=menu_indirected%
1�� L%=1 � number%
1� � L%>1 �
1Έ � A$,pointer%?12,pointer%?13,pointer%?14,pointer%?15,pointer%!16,pointer%!20,pointer%!24:� A$="fi$" $pointer%=fi$ � $pointer%=A$
1� �
1� pointer%+=28
1� �
1�) � F%,I%,A$:� (F% � &200)>0 A$+=T$
2 $A%=A$
2
pointer%!0=F% � &FF
24 � (F% � &100)=0 pointer%!4=-1 � � pointer%!4
2 ! � A$="Paged ROM access" �
2(P � No *way* can we get ROMs this fast - it will just crash the machine!
224 � RAMSpeed<100 � OSver%>=300 � I%+=(1<<22)
2< �
2F@ � A$="RMFaster BASIC" � � FasterBASIC%=-99 � I%+=(1<<22)
2P? � A$="RMFaster FPEmulator" � � OSver%<300 � I%+=(1<<22)
2Z � A$="ARM3 cache on" �
2d Ȏ �(Processor%) �
2n � 3:� OK
2x I%+=(1<<22)
2� �
2� �
2� � A$="Write buffer on" �
2� Ȏ �(Processor%) �
2�" � 600,610,700,800:� OK
2� I%+=(1<<22)
2� �
2� �
2� pointer%!8=I%
2� pointer%!12=A%
2� pointer%!16=-1
2� pointer%!20=�A$
2� pointer%+=24:A%+=�(A$)+1
3 � (F% � &80)>0
3�
3Aș "Wimp_CreateMenu",,menu_block%,X%-(menu_block%!16/2),Y%+16
3"�
3,:
36&� Menu definition statements (ug!)
3@*� 7,2,7,0,(13*8+12)<<XFactor%,10*4,0,3
3J$� &100,&7000111,"Info",proginfo%
3T � 0,&7000111,"System Info"
3^� 0,&7000111,"FP Info"
3h � 0,&7000111,"Re-calculate"
3r3� &100,&7000111,"Improvements",pointer%+24*8+28
3|1� &100,&7000111,"Speed Indexes",pointer%+24*3
3�"� &100,&7000111,"Save",savesi%
3�� &80,&7000111,"Quit"
3�
3�4� "S'Indexes",7,2,7,0,(18*8+12)<<XFactor%,10*4,0
3�'� 0-calcMC%,&7000111,"Machine Code"
3�#� 0-calcBASIC%,&7000111,"BASIC"
3�$� 0-calcFPU%,&7000111,"FP index"
3�(� &80-calcDHRY%,&7000111,"Dhrystone"
3�
3�6� "Improvement",7,2,7,0,(18*8+16)<<XFactor%,10*4,0
3�4� 0-(HighROMSpeed=1),&7000111,"Paged ROM access"
3�4� 0-(HighROMSpeed=2),&7000111,"ROM (2 n-cycles)"
3�4� 0-(HighROMSpeed=3),&7000111,"ROM (3 n-cycles)"
44� 0-(HighROMSpeed=4),&7000111,"ROM (4 n-cycles)"
4-� 2-(VideoDMA%=0),&7000111,"No Video DMA"
4 .� 0-FasterBASIC%,&7000111,"RMFaster BASIC"
4&1� 0-FasterFPE%,&7000111,"RMFaster FPEmulator"
40+� &80-CacheON%,&7000111,"ARM3 cache on"
4::
4D� �error(err%, report$)
4N8� err%<>0 � � 0,report$+" internal error ("+�(�)+")"
4X!error_blk% = err%
4b$(error_blk%+4)=report$
4l ?(error_blk%+4+�report$)=0
4v:ș "XWimp_ReportError", error_blk%, %1, full_app_name$
4��
4�:
4�"� Update a main SI window icon
4�� �updateicon(I%,A$)
4�!icon_block%=sysinfo%
4�icon_block%!4=I%
4�'ș "Wimp_GetIconState",,icon_block%
4� � icon_block%!24 � 1<<8 �
4� $(icon_block%!28)=A$
4��
4�!block%=sysinfo%
4�block%!4=I%
4�block%!8=0
5block%!12=0
5 "ș "Wimp_SetIconState",,block%
5�
5 :
5**� Update the bar in the main SI window
54� �bar(I%,W%)
5>� W%=0 W%=2
5H!icon_block%=sysinfo%
5Ricon_block%!4=I%
5\'ș "Wimp_GetIconState",,icon_block%
5f#icon_block%!16=icon_block%!8+W%
5picon_block%!4=sysinfo%
5z,ș "Wimp_CreateIcon",,icon_block%+4 � W%
5�icon_block%!4=I%
5�icon_block%!8=&11<<24
5�icon_block%!12=&FF<<24
5�'ș "Wimp_SetIconState",,icon_block%
5�!block%=sysinfo%
5�block%!4=I%
5� ș "Wimp_DeleteIcon",,block%
5�!block%=sysinfo%
5�block%!4=W%
5�block%!8=0
5�block%!12=0
5�"ș "Wimp_SetIconState",,block%
5�=W%
6:
6"� Update icon in the FP window
6� �updateicon2(I%,A$)
6$!icon_block%=fpuinfo%
6.icon_block%!4=I%
68'ș "Wimp_GetIconState",,icon_block%
6B � icon_block%!24 � 1<<8 �
6L $(icon_block%!28)=A$
6V�
6`!block%=fpuinfo%
6jblock%!4=I%
6tblock%!8=0
6~block%!12=0
6�"ș "Wimp_SetIconState",,block%
6��
6�:
6�#� Update a bar in the FP window
6�� �bar2(I%,W%)
6�� W%=0 W%=2
6�!icon_block%=fpuinfo%
6�icon_block%!4=I%
6�'ș "Wimp_GetIconState",,icon_block%
6�#icon_block%!16=icon_block%!8+W%
6�icon_block%!4=fpuinfo%
6�,ș "Wimp_CreateIcon",,icon_block%+4 � W%
7 icon_block%!4=I%
7
icon_block%!8=&11<<24
7icon_block%!12=&FF<<24
7 'ș "Wimp_SetIconState",,icon_block%
7(!block%=fpuinfo%
72block%!4=I%
7< ș "Wimp_DeleteIcon",,block%
7F!block%=fpuinfo%
7Pblock%!4=W%
7Zblock%!8=0
7dblock%!12=0
7n"ș "Wimp_SetIconState",,block%
7x=W%
7�:
7�"� Check for an FPU/FPA present
7�� �fpufound
7�*ș "OS_ChangeEnvironment",1,retcd3,0,0
7�
!nofpu%=0
7�
� testfpu
7�=(!nofpu%=0)
7�:
7� � �UpdateMEMC(new%,mask%)
7�"ș "XOS_UpdateMEMC",new%,mask%
7��
7�:
7�� �ReadMEMC
8
� res%
8"ș "XOS_UpdateMEMC",0,0 � res%
8 =res%
8":
8, � ***
86!� *** Initialisation routines
8@ � ***
8J:
8T� �Initialise
8^#indirected_pointer%=indirected%
8hib_block%!0=131
8rib_block%!4=-1
8|/ș"OS_ReadVduVariables",ib_block%,ib_block%
8�$block% = "TASK"
8�Hș "Wimp_Initialise",200,!block%,full_app_name$ � OurOSver%,ourtask%
8�-ș "OS_ReadModeVariable",�,4 � ,,XFactor%
8��_load_templates
8��_icon_bar
8��_load_assm
8��_assm_code
8� �U_String(savesi%,1,"SI")
8��Reset_vars
8�-ș "OS_ReadModeVariable",�,4 � ,,XFactor%
8�.ș "OS_ReadModeVariable",�,11 � ,,XPixels%
8� YPixels%=(!ib_block%)*4+4
8�XPixels%+=1
9�
9:
9 � Reset SI variables
9&� �Reset_vars
90 � loop%
9:
9D � Display bar icon handles
9N � +10
9X� loop%=1 � 20
9b � B%(loop%)
9l � loop%
9v� loop%=0 � 35
9� C%(loop%)=82+loop%
9� � loop%
9�
9�our_filetype%=3
9�
my_ref%=0
9�DRAMCheck%=�
9�VideoDMA%=�
9�
calcMC%=�
9�calcBASIC%=�
9�calcFPU%=�
9�&mode%=0:ScreenSize%=0:MEMCState%=0
9�DProcessor%=0:ProcessorType%=0:IOCType%=0:MEMCType%=0:VIDCType%=0
9�ERAMSize%=0:HighROMSpeed=0:LowROMSpeed=0:RAMSpeed=0:DRAMRefresh%=0
:LMemoryBandwidth=0:ScreenBandwidth=0:DRAMBandwidth=0:ProcessorBandwidth=0
: BASICIndex=0
:&DHRYIndex=0:DHRYmsec=0:DHRYvalue=0
: FPUindex=0:FPUtime=0
:*2OSver%=0:ROMsize%=0:ROMsize5th%=0:ROMnum5th%=0
:4
OSstr$=""
:> UniqueIDa%=-1:UniqueIDb%=-1
:H
FPstr$=""
:R7IOEBType%=-1:FPAType%=-1:PeriphType%=-1:LCDType%=-1
:\VIDEOstr$=""
:fFasterBASIC%=�
:pFasterFPE%=�
:zCacheON%=�
:�calcDHRY%=�
:�RAMPageSize%=-1
:�
:��
:�:
:� � Display bar icon handles
:�� 100,101,102,103,104
:�� 105,106,107,108,115
:�� 116,117,119,109,110
:�� 111,112,113,114,118
:�:
:�#� Load templates into workspace
:�� �_load_templates
;=ș "Wimp_OpenTemplate",,"<ArmSI$Dir>.Resources.Templates"
; �load_template("fpuInfo")
;/ș "Wimp_CreateWindow",, window% � fpuinfo%
;$ �load_template("sysInfo")
;./ș "Wimp_CreateWindow",, window% � sysinfo%
;8 �load_template("progInfo")
;B0ș "Wimp_CreateWindow",, window% � proginfo%
;L)�U_String(proginfo%, 4, app_version$)
;V �load_template("xfersend")
;`.ș "Wimp_CreateWindow",, window% � savesi%
;jș "Wimp_CloseTemplate"
;t�
;~:
;�� �load_template(A$)
;�$block1%=A$
;�}ș "Wimp_LoadTemplate",, window%, indirected_pointer%, indirected%+(1024*8), -1, block1%, 0 � ,,indirected_pointer%,,,,A%
;�<� A%=0 � 0,"Unable to find template definition ("+A$+")"
;��
;�:
;�"� Place an icon on the iconbar
;�� �_icon_bar
;�� width%,height%
;�>ș "XWimp_SpriteOp",40,1,"!"+app_name$ � ,,,width%,height%
;�width%=width%<<XFactor%
;�icon_block%!0=-1
< icon_block%!4=0
<
icon_block%!8=0
<icon_block%!12=width%+4
< icon_block%!16=48+height%
<(;icon_block%!20=%000000010 � (3<<12) � (7<<24) � (1<<28)
<2#$(icon_block%+24)="!"+app_name$
<<2ș "Wimp_CreateIcon",,icon_block% � ib_handle%
<F�
<P:
<Z$� Load separately assembled code
<d� �_load_assm
<n($block%="<ArmSI$Dir>.Resources.Code"
<x+ș "OS_File",5,block% � ,,,,CodeLength%
<�� code CodeLength%+&C
<� � (code � &F)<>0 code+=4
<� � (code � &F)<>0 code+=4
<� � (code � &F)<>0 code+=4
<�"ș "OS_File",&FF,block%,code,0
<�
<�)$block%="<ArmSI$Dir>.Resources.Code2"
<�,ș "OS_File",5,block% � ,,,,CodeLength2%
<�� code2 CodeLength2%+&C
<� � (code2 � &F)<>0 code2+=4
<� � (code2 � &F)<>0 code2+=4
<� � (code2 � &F)<>0 code2+=4
<�#ș "OS_File",&FF,block%,code2,0
=
=Instructions=!code
=readclock=code+4
="calcARM=code+8
=,calcARML=code+32
=6calcMC=code+12
=@timer0=code+16
=JARMcount1=code+20
=TARMcount1a=code+24
=^ARMcount2=code+28
=h ARMcount3=code+CodeLength%-8
=r!ARMcount4=code+CodeLength%-12
=|"ARMcount1L=code+CodeLength%-16
=�#ARMcount1aL=code+CodeLength%-20
=�"ARMcount2L=code+CodeLength%-24
=�"ARMcount3L=code+CodeLength%-28
=�"ARMcount4L=code+CodeLength%-32
=� MCcount=code+CodeLength%-4
=�calcFPU=code2
=�FPUtimer=code2+4
=�FPUresults=code2+8
=�
=��
=�:
=�7� Some assembler for finding out various things ...
=�� �_assm_code
>� pass%,P%
>� pass%=0 � 2 � 2
> P%=tpcode%
>&[OPT pass%
>0
>:.assm_main
>D' STMFD R13!, {R0-R12, R14}
>N4 SWI "OS_EnterOS" ; Enter SVC mode
>X MOV R0,PC
>b# �R R0,R0,#&0C000000
>l TEQP R0,#0
>v9 MOV R0,R0 ; Mustn't use MOVNV !
>�
>�!; Reads from zero page memory
>�
>�U MOV R0, #&100 ; Read MEMC type (in case of protected zero page)
>�! LDRB R1, [R0,#&12]
>� � R1, R1, #1
>�! STR R1, memctype%
>�3 LDR R1, [R0,#&10] ; Read RAMSpeed
>�! STR R1, ramspeed%
>�
>� ; Determine processor type
>�
>� MOV R1,#0
? ADR R2,protype%
? 8 MOV R0,#1 ; if no results ARM1
?2 EQUD &E0000091 ; MUL R0,R1,R0
? + MOV R0,#2 ; ARM 2
?*4 EQUD &E1021091 ; SWP R1,R1,[R2]
?4- MOV R0,#250 ; ARM 250
?>
?HS; To a coprocessor->register transfer instruction. This will read the processor
?R.; id (if available) for ARM3, ARM600, etc.
?\;
?f*; R1 = 32 bit processor identity field
?p7; bit 31-24 | Designer (41h = Acorn 'A')
?z:; bit 23-16 | Manufacturer (56h = vlsi 'V')
?�A; bit 15-8 | Part type (03h = arm3, 06h = arm6x0)
?�6; bit 7-0 | Revision (0 = revision 0)
?�
?�; ARM6x0 processors ;
?�E; bit 15-4 | Part type (060h = arm600, 061h = arm610)
?�6; bit 3-0 | Revision (0 = revision 0)
?�
?�
?�T EQUD &EE101F10 ; MRCEQ CP15,0,R1,C0,C0 - request processor type
?� MOV R0,#3
?�6 STR R0,tpres% ; Store type found
?� STR R1,protype%
?� MVN R0, #0
@F EQUD &EE300110 ; RFS R0 - Read FP status register
@ MOV R0, R0
@ STR R0, fputype%
@$! TSTP PC,#&F0000000
@.9 MOV R0,R0 ; Return to user mode
@8$ LDMFD R13!,{R0-R12,PC}
@B
@L&; Return-from-exception 'handlers'
@V
@` .retcd1 ADDS PC,R14,#4
@j.retcd2 MOVS PC,R14
@t .retcd3 STR R14,nofpu%
@~ MOVS PC,R14
@�
@�; Test for FPU present
@�
@� .testfpu
@�? EQUD &EE098101 ; MVFE F0,F1 - test for FPU
@� MOV PC,R14
@�
@�<; Read/write ARM3 status registers (for cache on or off)
@�O; Yes, I know there is an SWI to do this, but it may not be the same across
@�"; different ARM3 upgrades, etc
@�
@� .readreg
A & STMFD R13!, {R0-R1, R14}
A
SWI "OS_EnterOS"
A MOV R0,PC
A # �R R0,R0,#&0C000000
A( TEQP R0,#0
A29 MOV R0,R0 ; Mustn't use MOVNV !
A<U EQUD &EE121F10 ; MRCEQ CP15,0,R1,C2,C0 - request status register
AF STR R1, regword%
AP! TSTP PC,#&F0000000
AZ9 MOV R0,R0 ; Return to user mode
Ad# LDMFD R13!,{R0-R1,PC}
An
Ax
.writereg
A�& STMFD R13!, {R0-R1, R14}
A� SWI "OS_EnterOS"
A� MOV R0,PC
A�# �R R0,R0,#&0C000000
A� TEQP R0,#0
A�9 MOV R0,R0 ; Mustn't use MOVNV !
A� LDR R1, regword%
A�S EQUD &EE021F10 ; MCREQ CP15,0,R1,C2,C0 - write status register
A� STR R1, regword%
A�! TSTP PC,#&F0000000
A�9 MOV R0,R0 ; Return to user mode
A�# LDMFD R13!,{R0-R1,PC}
A�
B; Results block
B
B .tpres% EQUD 0
B" .protype% EQUD 0
B, .nofpu% EQUD 0
B6 .fputype% EQUD 0
B@ .memctype% EQUD 0
BJ .ramspeed% EQUD 0
BT .regword% EQUD 0
B^
Bh]
Br � pass%
B|�
B�:
B� � ***
B�@� *** Nick's Common BASIC library (or at least bits of ... )
B� � ***
B�:
B�#� �U_String(window%, icon%, s$)
B�ptr1%!0=window%
B�ptr1%!4=icon%
B�!ș "Wimp_GetIconState",,ptr1%
B�$(ptr1%!28)=s$
B�ptr2%!0=window%
B�ptr2%!4=icon%
B�
ptr2%!8=0
Cptr2%!12=0
C!ș "Wimp_SetIconState",,ptr2%
C �
C&:
C01� �U_Icon(window%, icon%, bit%, eor%, clear%)
C:ptr2%!0=window%
CDptr2%!4=icon%
CNptr2%!8=(eor%<<bit%)
CXptr2%!12=(clear%<<bit%)
Cb!ș "Wimp_SetIconState",,ptr2%
Cl�
Cv:
C�#� �U_Sprite(window%, icon%, s$)
C� � Indirected sprite+text
C�ptr1%!0=window%
C�ptr1%!4=icon%
C�!ș "Wimp_GetIconState",,ptr1%
C�$(ptr1%!32)="S"+s$
C�ptr2%!0=window%
C�ptr2%!4=icon%
C�
ptr2%!8=0
C�ptr2%!12=0
C�!ș "Wimp_SetIconState",,ptr2%
C��
C�:
D$� �UI_Sprite(window%, icon%, s$)
D � Indirected sprite
Dptr1%!0=window%
D ptr1%!4=icon%
D*!ș "Wimp_GetIconState",,ptr1%
D4$(ptr1%!28)=s$
D>ptr2%!0=window%
DHptr2%!4=icon%
DR
ptr2%!8=0
D\ptr2%!12=0
Df!ș "Wimp_SetIconState",,ptr2%
Dp�
Dz:
D�� �getname(p1%)
D�� p$
D� p$=""
D� ȕ ((?p1%>31) � (?p1%=9))
D�p$+=�(?p1%):p1%+=1
D��
D�=p$
D�:
D�"� �R_IconState(window%, icon%)
D� � state%
D�ptr1%!0=window%
D�ptr1%!4=icon%
D�!ș "Wimp_GetIconState",,ptr1%
E5� �((ptr1%!24)>>21) � 2 = 1 � state%=� � state%=�
E =state%
E:
E$� �leaf(f$)
E.ȕ �f$,".")
E8 f$=�f$,�f$,".")+1)
EB�
EL=f$
EV:
E`� �hex_to_dec(s$)
Ej� s%
Et&ș "XOS_ReadUnsigned",16,s$ � ,,s%
E~=s%
E�:
E�� �dec_to_hex(s%)
E�#ș "OS_ConvertHex8",s%,ptr2%,10
E�=�getname(ptr2%)
E�:
E�� �subleaf(f$)
E�=� Strips off filename string. ie, returns the path string
E�� p$
E�ȕ �f$,".")
E� p$=p$+�f$,1)
E� f$=�f$,�(f$)-1)
E��
F =�p$,�(p$)-1)
F
:
F � �R_String(window%, icon%)
F � s$
F(ptr1%!0=window%
F2ptr1%!4=icon%
F<!ș "Wimp_GetIconState",,ptr1%
FFs$=�getname(ptr1%!28)
FP=s$
FZ:
Fd'� Outputs padding (aligned) strings
Fn� �strpad(A, padding%)
Fx� res$, A$
F�� padding%=0 �
F� res$=�(�(A))
F��
F�
A$=�(A)
F� � �A$,".")>0 �
F�3 res$=�A$+�padding%,"0"), �A$,".")+padding%)
F� �
F�" res$=A$+"."+�padding%,"0")
F� �
F��
F� =res$
� 00000000 0d 00 0a 11 f4 20 3e 20 21 52 75 6e 49 6d 61 67 |..... > !RunImag|
00000010 65 0d 00 14 24 f4 20 41 72 6d 53 49 20 2d 20 53 |e...$. ArmSI - S|
00000020 70 65 65 64 20 49 6e 64 65 78 20 61 70 70 6c 69 |peed Index appli|
00000030 63 74 69 6f 6e 0d 00 1e 21 f4 20 56 65 72 73 69 |ction...!. Versi|
00000040 6f 6e 73 20 3c 3d 20 33 2e 31 32 20 62 79 20 4a |ons <= 3.12 by J|
00000050 2e 41 62 62 6f 74 0d 00 28 41 f4 20 48 61 63 6b |.Abbot..(A. Hack|
00000060 65 64 20 61 62 6f 75 74 20 28 70 6f 73 74 66 69 |ed about (postfi|
00000070 78 20 48 29 20 62 79 20 4e 69 63 6b 20 53 6d 69 |x H) by Nick Smi|
00000080 74 68 2c 20 6e 61 73 32 30 40 75 6b 2e 61 63 2e |th, nas20@uk.ac.|
00000090 63 61 6d 2e 70 68 78 0d 00 32 04 0d 00 3c 1c ee |cam.phx..2...<..|
000000a0 20 85 20 f2 65 72 72 6f 72 28 9f 2c f6 24 29 3a | . .error(.,.$):|
000000b0 f2 70 6f 6c 6c 3a e0 0d 00 46 04 0d 00 50 4c de |.poll:...F...PL.|
000000c0 20 62 6c 6f 63 6b 25 20 31 30 32 34 2c 77 69 6e | block% 1024,win|
000000d0 64 6f 77 25 20 31 30 2a 31 30 32 34 2c 69 63 6f |dow% 10*1024,ico|
000000e0 6e 5f 62 6c 6f 63 6b 25 20 35 31 32 2c 65 72 72 |n_block% 512,err|
000000f0 6f 72 5f 62 6c 6b 25 20 35 31 32 2c 62 6c 6f 63 |or_blk% 512,bloc|
00000100 6b 31 25 20 35 31 32 0d 00 5a 3f de 20 69 6e 64 |k1% 512..Z?. ind|
00000110 69 72 65 63 74 65 64 25 20 31 30 2a 31 30 32 34 |irected% 10*1024|
00000120 2c 6d 65 6e 75 5f 69 6e 64 69 72 65 63 74 65 64 |,menu_indirected|
00000130 25 20 35 31 32 2c 6d 65 6e 75 5f 62 6c 6f 63 6b |% 512,menu_block|
00000140 25 20 31 30 32 34 0d 00 64 30 de 20 69 62 5f 62 |% 1024..d0. ib_b|
00000150 6c 6f 63 6b 25 20 36 34 2c 20 74 70 63 6f 64 65 |lock% 64, tpcode|
00000160 25 20 31 30 32 34 2c 20 43 25 28 33 35 29 2c 20 |% 1024, C%(35), |
00000170 42 25 28 32 30 29 0d 00 6e 1a de 20 70 74 72 31 |B%(20)..n.. ptr1|
00000180 25 20 32 35 36 2c 20 70 74 72 32 25 20 32 35 36 |% 256, ptr2% 256|
00000190 0d 00 78 04 0d 00 82 15 61 70 70 5f 6e 61 6d 65 |..x.....app_name|
000001a0 24 3d 22 41 72 6d 53 49 22 0d 00 8c 26 66 75 6c |$="ArmSI"...&ful|
000001b0 6c 5f 61 70 70 5f 6e 61 6d 65 24 3d 22 41 72 6d |l_app_name$="Arm|
000001c0 53 49 20 53 70 65 65 64 20 49 6e 64 65 78 22 0d |SI Speed Index".|
000001d0 00 96 24 61 70 70 5f 76 65 72 73 69 6f 6e 24 3d |..$app_version$=|
000001e0 22 33 2e 33 31 48 20 28 32 31 2d 4e 6f 76 2d 39 |"3.31H (21-Nov-9|
000001f0 32 29 22 0d 00 a0 04 0d 00 aa 0f f2 49 6e 69 74 |2)".........Init|
00000200 69 61 6c 69 73 65 0d 00 b4 0b f2 63 61 6c 63 73 |ialise.....calcs|
00000210 69 0d 00 be 20 f2 75 70 64 61 74 65 69 63 6f 6e |i... .updateicon|
00000220 28 32 2c a4 6d 61 63 68 69 6e 65 67 75 65 73 73 |(2,.machineguess|
00000230 29 0d 00 c8 04 0d 00 d2 09 f2 70 6f 6c 6c 0d 00 |).........poll..|
00000240 dc 04 0d 00 e6 05 e0 0d 00 f0 05 3a 0d 00 fa 09 |...........:....|
00000250 f4 20 2a 2a 2a 0d 01 04 17 f4 20 2a 2a 2a 20 57 |. ***..... *** W|
00000260 69 6d 70 20 72 6f 75 74 69 6e 65 73 0d 01 0e 09 |imp routines....|
00000270 f4 20 2a 2a 2a 0d 01 18 05 3a 0d 01 22 1a f4 20 |. ***....:..".. |
00000280 4d 61 69 6e 20 70 6f 6c 6c 69 6e 67 20 72 6f 75 |Main polling rou|
00000290 74 69 6e 65 0d 01 2c 0b dd 20 f2 70 6f 6c 6c 0d |tine..,.. .poll.|
000002a0 01 36 19 ea 20 70 6f 6c 6c 5f 6d 61 73 6b 25 2c |.6.. poll_mask%,|
000002b0 20 72 65 61 73 6f 6e 25 0d 01 40 1b 70 6f 6c 6c | reason%..@.poll|
000002c0 5f 6d 61 73 6b 25 20 3d 20 25 30 30 30 31 31 30 |_mask% = %000110|
000002d0 30 30 31 0d 01 4a 0d 71 75 69 74 25 20 3d 20 a3 |001..J.quit% = .|
000002e0 0d 01 54 05 f5 0d 01 5e 32 20 20 c8 99 20 22 57 |..T....^2 .. "W|
000002f0 69 6d 70 5f 50 6f 6c 6c 22 2c 20 70 6f 6c 6c 5f |imp_Poll", poll_|
00000300 6d 61 73 6b 25 2c 20 62 6c 6f 63 6b 25 20 b8 20 |mask%, block% . |
00000310 72 65 61 73 6f 6e 25 0d 01 68 12 20 20 c8 8e 20 |reason%..h. .. |
00000320 72 65 61 73 6f 6e 25 20 ca 0d 01 72 17 20 20 20 |reason% ...r. |
00000330 20 c9 20 31 20 20 20 20 3a f2 72 65 64 72 61 77 | . 1 :.redraw|
00000340 0d 01 7c 2d 20 20 20 20 c9 20 32 20 20 20 20 3a |..|- . 2 :|
00000350 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e |.. "Wimp_OpenWin|
00000360 64 6f 77 22 2c 2c 20 62 6c 6f 63 6b 25 0d 01 86 |dow",, block%...|
00000370 2e 20 20 20 20 c9 20 33 20 20 20 20 3a c8 99 20 |. . 3 :.. |
00000380 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f |"Wimp_CloseWindo|
00000390 77 22 2c 2c 20 62 6c 6f 63 6b 25 0d 01 90 17 20 |w",, block%.... |
000003a0 20 20 20 c9 20 36 20 20 20 20 3a f2 62 75 74 74 | . 6 :.butt|
000003b0 6f 6e 0d 01 9a 19 20 20 20 20 c9 20 37 20 20 20 |on.... . 7 |
000003c0 20 3a f2 64 72 61 67 5f 62 6f 78 0d 01 a4 1c 20 | :.drag_box.... |
000003d0 20 20 20 c9 20 38 20 20 20 20 3a f2 6b 65 79 5f | . 8 :.key_|
000003e0 70 72 65 73 73 65 64 0d 01 ae 1c 20 20 20 20 c9 |pressed.... .|
000003f0 20 39 20 20 20 20 3a f2 6d 65 6e 75 5f 73 65 6c | 9 :.menu_sel|
00000400 65 63 74 0d 01 b8 18 20 20 20 20 c9 20 31 37 2c |ect.... . 17,|
00000410 31 38 3a f2 72 65 63 65 69 76 65 0d 01 c2 07 20 |18:.receive.... |
00000420 20 cb 0d 01 cc 0f fd 20 28 71 75 69 74 25 3d b9 | ...... (quit%=.|
00000430 29 0d 01 d6 17 c8 99 20 22 57 69 6d 70 5f 43 6c |)...... "Wimp_Cl|
00000440 6f 73 65 44 6f 77 6e 22 0d 01 e0 05 e0 0d 01 ea |oseDown"........|
00000450 05 e1 0d 01 f4 05 3a 0d 01 fe 0d dd 20 f2 72 65 |......:..... .re|
00000460 64 72 61 77 0d 02 08 08 ea 20 4c 25 0d 02 12 27 |draw..... L%...'|
00000470 c8 99 20 22 57 69 6d 70 5f 52 65 64 72 61 77 57 |.. "Wimp_RedrawW|
00000480 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 20 b8 |indow",,block% .|
00000490 20 4c 25 0d 02 1c 09 c8 95 20 4c 25 0d 02 26 29 | L%...... L%..&)|
000004a0 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 52 65 | .. "Wimp_GetRe|
000004b0 63 74 61 6e 67 6c 65 22 2c 2c 62 6c 6f 63 6b 25 |ctangle",,block%|
000004c0 20 b8 20 4c 25 0d 02 30 05 ce 0d 02 3a 05 e1 0d | . L%..0....:...|
000004d0 02 44 05 3a 0d 02 4e 19 f4 20 4f 70 65 6e 20 4d |.D.:..N.. Open M|
000004e0 61 69 6e 20 53 49 20 77 69 6e 64 6f 77 0d 02 58 |ain SI window..X|
000004f0 0d dd 20 f2 6f 70 65 6e 73 69 0d 02 62 16 21 62 |.. .opensi..b.!b|
00000500 6c 6f 63 6b 25 20 3d 20 73 79 73 69 6e 66 6f 25 |lock% = sysinfo%|
00000510 0d 02 6c 25 c8 99 20 22 57 69 6d 70 5f 47 65 74 |..l%.. "Wimp_Get|
00000520 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 20 62 |WindowState",, b|
00000530 6c 6f 63 6b 25 0d 02 76 10 62 6c 6f 63 6b 25 21 |lock%..v.block%!|
00000540 32 38 3d 2d 31 0d 02 80 21 c8 99 20 22 57 69 6d |28=-1...!.. "Wim|
00000550 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 20 |p_OpenWindow",, |
00000560 62 6c 6f 63 6b 25 0d 02 8a 05 e1 0d 02 94 05 3a |block%.........:|
00000570 0d 02 9e 28 f4 20 4f 70 65 6e 20 46 6c 6f 61 74 |...(. Open Float|
00000580 69 6e 67 2d 50 6f 69 6e 74 20 72 65 73 75 6c 74 |ing-Point result|
00000590 73 20 77 69 6e 64 6f 77 0d 02 a8 0d dd 20 f2 6f |s window..... .o|
000005a0 70 65 6e 66 69 0d 02 b2 16 21 62 6c 6f 63 6b 25 |penfi....!block%|
000005b0 20 3d 20 66 70 75 69 6e 66 6f 25 0d 02 bc 25 c8 | = fpuinfo%...%.|
000005c0 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
000005d0 77 53 74 61 74 65 22 2c 2c 20 62 6c 6f 63 6b 25 |wState",, block%|
000005e0 0d 02 c6 10 62 6c 6f 63 6b 25 21 32 38 3d 2d 31 |....block%!28=-1|
000005f0 0d 02 d0 21 c8 99 20 22 57 69 6d 70 5f 4f 70 65 |...!.. "Wimp_Ope|
00000600 6e 57 69 6e 64 6f 77 22 2c 2c 20 62 6c 6f 63 6b |nWindow",, block|
00000610 25 0d 02 da 05 e1 0d 02 e4 05 3a 0d 02 ee 0e dd |%.........:.....|
00000620 20 f2 72 65 63 65 69 76 65 0d 02 f8 0f ea 20 74 | .receive..... t|
00000630 79 70 65 25 2c 20 77 25 0d 03 02 10 77 25 3d 62 |ype%, w%....w%=b|
00000640 6c 6f 63 6b 25 21 32 30 0d 03 0c 13 74 79 70 65 |lock%!20....type|
00000650 25 3d 62 6c 6f 63 6b 25 21 34 30 0d 03 16 12 c8 |%=block%!40.....|
00000660 8e 20 62 6c 6f 63 6b 25 21 31 36 20 ca 0d 03 20 |. block%!16 ... |
00000670 11 20 20 c9 20 30 3a 71 75 69 74 25 3d b9 0d 03 |. . 0:quit%=...|
00000680 2a 09 20 20 c9 20 32 0d 03 34 2b 20 20 20 20 e7 |*. . 2..4+ .|
00000690 20 6d 79 5f 72 65 66 25 3e 30 20 80 20 28 6d 79 | my_ref%>0 . (my|
000006a0 5f 72 65 66 25 3d 62 6c 6f 63 6b 25 21 31 32 29 |_ref%=block%!12)|
000006b0 20 8c 0d 03 3e 3e 20 20 20 20 20 20 e7 20 74 79 | ...>> . ty|
000006c0 70 65 25 3d 6f 75 72 5f 66 69 6c 65 74 79 70 65 |pe%=our_filetype|
000006d0 25 20 8c 20 f2 73 61 76 65 73 69 28 a4 67 65 74 |% . .savesi(.get|
000006e0 6e 61 6d 65 28 62 6c 6f 63 6b 25 2b 34 34 29 29 |name(block%+44))|
000006f0 0d 03 48 09 20 20 20 20 cd 0d 03 52 09 20 20 c9 |..H. ...R. .|
00000700 20 33 0d 03 5c 26 20 20 20 20 66 75 6c 6c 5f 66 | 3..\& full_f|
00000710 69 6c 65 24 3d a4 67 65 74 6e 61 6d 65 28 62 6c |ile$=.getname(bl|
00000720 6f 63 6b 25 2b 34 34 29 0d 03 66 45 20 20 20 20 |ock%+44)..fE |
00000730 e7 20 28 77 25 3d 2d 32 20 84 20 77 25 3d 73 79 |. (w%=-2 . w%=sy|
00000740 73 69 6e 66 6f 25 20 84 20 77 25 3d 66 70 75 69 |sinfo% . w%=fpui|
00000750 6e 66 6f 25 29 20 80 20 74 79 70 65 25 3d 6f 75 |nfo%) . type%=ou|
00000760 72 5f 66 69 6c 65 74 79 70 65 25 20 8c 0d 03 70 |r_filetype% ...p|
00000770 1d 20 20 20 20 20 20 f2 6c 6f 61 64 73 69 28 66 |. .loadsi(f|
00000780 75 6c 6c 5f 66 69 6c 65 24 29 0d 03 7a 09 20 20 |ull_file$)..z. |
00000790 20 20 cd 0d 03 84 09 20 20 c9 20 35 0d 03 8e 1f | ..... . 5....|
000007a0 20 20 20 20 e7 20 74 79 70 65 25 3d 6f 75 72 5f | . type%=our_|
000007b0 66 69 6c 65 74 79 70 65 25 20 8c 0d 03 98 28 20 |filetype% ....( |
000007c0 20 20 20 20 20 66 75 6c 6c 5f 66 69 6c 65 24 3d | full_file$=|
000007d0 a4 67 65 74 6e 61 6d 65 28 62 6c 6f 63 6b 25 2b |.getname(block%+|
000007e0 34 34 29 0d 03 a2 1c 20 20 20 20 20 20 62 6c 6f |44).... blo|
000007f0 63 6b 25 21 31 32 3d 62 6c 6f 63 6b 25 21 38 0d |ck%!12=block%!8.|
00000800 03 ac 2d 20 20 20 20 20 20 c8 99 20 22 58 57 69 |..- .. "XWi|
00000810 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
00000820 31 37 2c 62 6c 6f 63 6b 25 2c 77 25 0d 03 b6 1d |17,block%,w%....|
00000830 20 20 20 20 20 20 f2 6c 6f 61 64 73 69 28 66 75 | .loadsi(fu|
00000840 6c 6c 5f 66 69 6c 65 24 29 0d 03 c0 09 20 20 20 |ll_file$).... |
00000850 20 cd 0d 03 ca 07 20 20 cb 0d 03 d4 05 e1 0d 03 | ..... ........|
00000860 de 05 3a 0d 03 e8 12 dd 20 f2 73 61 76 65 28 41 |..:..... .save(A|
00000870 24 2c 42 25 29 0d 03 f2 1c c8 99 20 22 57 69 6d |$,B%)...... "Wim|
00000880 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d |p_CreateMenu",,-|
00000890 31 0d 03 fc 29 c8 99 20 22 57 69 6d 70 5f 47 65 |1...).. "Wimp_Ge|
000008a0 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 69 |tPointerInfo",,i|
000008b0 63 6f 6e 5f 62 6c 6f 63 6b 25 0d 04 06 17 c8 8e |con_block%......|
000008c0 20 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 31 32 20 | icon_block%!12 |
000008d0 ca 0d 04 10 22 20 20 c9 20 73 79 73 69 6e 66 6f |...." . sysinfo|
000008e0 25 2c 70 72 6f 67 69 6e 66 6f 25 2c 73 61 76 65 |%,proginfo%,save|
000008f0 73 69 25 0d 04 1a 07 20 20 7f 0d 04 24 27 20 20 |si%.... ...$' |
00000900 20 20 62 6c 6f 63 6b 31 25 21 30 3d 28 28 28 34 | block1%!0=(((4|
00000910 35 2b a9 28 41 24 29 29 20 81 34 29 2b 31 29 2a |5+.(A$)) .4)+1)*|
00000920 34 0d 04 2e 14 20 20 20 20 62 6c 6f 63 6b 31 25 |4.... block1%|
00000930 21 31 32 3d 30 0d 04 38 14 20 20 20 20 62 6c 6f |!12=0..8. blo|
00000940 63 6b 31 25 21 31 36 3d 31 0d 04 42 21 20 20 20 |ck1%!16=1..B! |
00000950 20 62 6c 6f 63 6b 31 25 21 32 30 3d 69 63 6f 6e | block1%!20=icon|
00000960 5f 62 6c 6f 63 6b 25 21 31 32 0d 04 4c 21 20 20 |_block%!12..L! |
00000970 20 20 62 6c 6f 63 6b 31 25 21 32 34 3d 69 63 6f | block1%!24=ico|
00000980 6e 5f 62 6c 6f 63 6b 25 21 31 36 0d 04 56 20 20 |n_block%!16..V |
00000990 20 20 20 62 6c 6f 63 6b 31 25 21 32 38 3d 69 63 | block1%!28=ic|
000009a0 6f 6e 5f 62 6c 6f 63 6b 25 21 30 0d 04 60 20 20 |on_block%!0..` |
000009b0 20 20 20 62 6c 6f 63 6b 31 25 21 33 32 3d 69 63 | block1%!32=ic|
000009c0 6f 6e 5f 62 6c 6f 63 6b 25 21 34 0d 04 6a 15 20 |on_block%!4..j. |
000009d0 20 20 20 62 6c 6f 63 6b 31 25 21 33 36 3d 2d 31 | block1%!36=-1|
000009e0 0d 04 74 15 20 20 20 20 62 6c 6f 63 6b 31 25 21 |..t. block1%!|
000009f0 34 30 3d 42 25 0d 04 7e 2e 20 20 20 20 24 28 62 |40=B%..~. $(b|
00000a00 6c 6f 63 6b 31 25 2b 34 34 29 3d 41 24 3a 3f 28 |lock1%+44)=A$:?(|
00000a10 62 6c 6f 63 6b 31 25 2b 34 34 2b a9 28 41 24 29 |block1%+44+.(A$)|
00000a20 29 3d 30 0d 04 88 57 20 20 20 20 c8 99 20 22 57 |)=0...W .. "W|
00000a30 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
00000a40 2c 31 37 2c 62 6c 6f 63 6b 31 25 2c 69 63 6f 6e |,17,block1%,icon|
00000a50 5f 62 6c 6f 63 6b 25 21 31 32 2c 69 63 6f 6e 5f |_block%!12,icon_|
00000a60 62 6c 6f 63 6b 25 21 31 36 20 b8 20 2c 2c 74 61 |block%!16 . ,,ta|
00000a70 73 6b 5f 68 61 6e 64 6c 65 25 0d 04 92 19 20 20 |sk_handle%.... |
00000a80 20 20 6d 79 5f 72 65 66 25 3d 62 6c 6f 63 6b 31 | my_ref%=block1|
00000a90 25 21 38 0d 04 9c 05 cb 0d 04 a6 05 e1 0d 04 b0 |%!8.............|
00000aa0 05 3a 0d 04 ba 0d dd 20 f2 62 75 74 74 6f 6e 0d |.:..... .button.|
00000ab0 04 c4 18 ea 20 58 25 2c 59 25 2c 62 75 74 74 6f |.... X%,Y%,butto|
00000ac0 6e 5f 74 79 70 65 25 0d 04 ce 40 e7 20 62 6c 6f |n_type%...@. blo|
00000ad0 63 6b 25 21 31 36 3d 2d 31 20 80 20 62 6c 6f 63 |ck%!16=-1 . bloc|
00000ae0 6b 25 21 31 32 3c 3e 73 79 73 69 6e 66 6f 25 20 |k%!12<>sysinfo% |
00000af0 80 20 62 6c 6f 63 6b 25 21 31 32 3c 3e 66 70 75 |. block%!12<>fpu|
00000b00 69 6e 66 6f 25 20 e1 0d 04 d8 1b 58 25 3d 62 6c |info% .....X%=bl|
00000b10 6f 63 6b 25 21 30 3a 59 25 3d 62 6c 6f 63 6b 25 |ock%!0:Y%=block%|
00000b20 21 34 0d 04 e2 12 62 75 74 74 6f 6e 5f 74 79 70 |!4....button_typ|
00000b30 65 25 3d 30 0d 04 ec 28 e7 20 28 62 6c 6f 63 6b |e%=0...(. (block|
00000b40 25 21 38 20 80 20 25 31 30 31 29 3e 30 20 62 75 |%!8 . %101)>0 bu|
00000b50 74 74 6f 6e 5f 74 79 70 65 25 3d 33 0d 04 f6 1f |tton_type%=3....|
00000b60 e7 20 62 6c 6f 63 6b 25 21 38 3d 34 20 62 75 74 |. block%!8=4 but|
00000b70 74 6f 6e 5f 74 79 70 65 25 3d 30 0d 05 00 1f e7 |ton_type%=0.....|
00000b80 20 62 6c 6f 63 6b 25 21 38 3d 32 20 62 75 74 74 | block%!8=2 butt|
00000b90 6f 6e 5f 74 79 70 65 25 3d 31 0d 05 0a 1f e7 20 |on_type%=1..... |
00000ba0 62 6c 6f 63 6b 25 21 38 3d 31 20 62 75 74 74 6f |block%!8=1 butto|
00000bb0 6e 5f 74 79 70 65 25 3d 34 0d 05 14 20 e7 20 62 |n_type%=4... . b|
00000bc0 6c 6f 63 6b 25 21 38 3d 36 34 20 62 75 74 74 6f |lock%!8=64 butto|
00000bd0 6e 5f 74 79 70 65 25 3d 33 0d 05 1e 12 c8 8e 20 |n_type%=3...... |
00000be0 62 6c 6f 63 6b 25 21 31 32 20 ca 0d 05 28 0a 20 |block%!12 ...(. |
00000bf0 20 c9 20 2d 32 0d 05 32 31 20 20 20 20 e7 20 62 | . -2..21 . b|
00000c00 75 74 74 6f 6e 5f 74 79 70 65 25 3d 31 20 6d 65 |utton_type%=1 me|
00000c10 6e 75 25 3d 30 3a f2 6d 65 6e 75 28 58 25 2c 34 |nu%=0:.menu(X%,4|
00000c20 30 30 2c 22 22 29 0d 05 3c 20 20 20 20 20 e7 20 |00,"")..< . |
00000c30 62 75 74 74 6f 6e 5f 74 79 70 65 25 3d 30 20 f2 |button_type%=0 .|
00000c40 6f 70 65 6e 73 69 0d 05 46 22 20 20 20 20 e7 20 |opensi..F" . |
00000c50 62 75 74 74 6f 6e 5f 74 79 70 65 25 3d 34 20 8c |button_type%=4 .|
00000c60 20 f2 6f 70 65 6e 66 69 0d 05 50 10 20 20 c9 20 | .openfi..P. . |
00000c70 73 79 73 69 6e 66 6f 25 0d 05 5a 39 20 20 20 20 |sysinfo%..Z9 |
00000c80 e7 20 62 75 74 74 6f 6e 5f 74 79 70 65 25 3c 32 |. button_type%<2|
00000c90 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 | .. "Wimp_SetCar|
00000ca0 65 74 50 6f 73 69 74 69 6f 6e 22 2c 2d 31 2c 2d |etPosition",-1,-|
00000cb0 31 0d 05 64 2a 20 20 20 20 e7 20 62 75 74 74 6f |1..d* . butto|
00000cc0 6e 5f 74 79 70 65 25 3d 31 20 80 20 62 6c 6f 63 |n_type%=1 . bloc|
00000cd0 6b 25 21 31 36 3c 3e 33 36 20 8c 0d 05 6e 2b 20 |k%!16<>36 ...n+ |
00000ce0 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 | .. "Wimp_Ge|
00000cf0 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 62 |tPointerInfo",,b|
00000d00 6c 6f 63 6b 31 25 0d 05 78 2f 20 20 20 20 20 20 |lock1%..x/ |
00000d10 6d 65 6e 75 25 3d 30 3a f2 6d 65 6e 75 28 62 6c |menu%=0:.menu(bl|
00000d20 6f 63 6b 31 25 21 30 2c 62 6c 6f 63 6b 31 25 21 |ock1%!0,block1%!|
00000d30 34 2c 22 22 29 0d 05 82 09 20 20 20 20 cd 0d 05 |4,"").... ...|
00000d40 8c 10 20 20 c9 20 66 70 75 69 6e 66 6f 25 0d 05 |.. . fpuinfo%..|
00000d50 96 1a 20 20 20 20 e7 20 62 75 74 74 6f 6e 5f 74 |.. . button_t|
00000d60 79 70 65 25 3d 31 20 8c 0d 05 a0 2b 20 20 20 20 |ype%=1 ....+ |
00000d70 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f | .. "Wimp_GetPo|
00000d80 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 62 6c 6f 63 |interInfo",,bloc|
00000d90 6b 31 25 0d 05 aa 2f 20 20 20 20 20 20 6d 65 6e |k1%.../ men|
00000da0 75 25 3d 30 3a f2 6d 65 6e 75 28 62 6c 6f 63 6b |u%=0:.menu(block|
00000db0 31 25 21 30 2c 62 6c 6f 63 6b 31 25 21 34 2c 22 |1%!0,block1%!4,"|
00000dc0 22 29 0d 05 b4 09 20 20 20 20 cd 0d 05 be 0f 20 |").... ..... |
00000dd0 20 c9 20 73 61 76 65 73 69 25 0d 05 c8 5a 20 20 | . savesi%...Z |
00000de0 20 20 e7 20 62 6c 6f 63 6b 25 21 31 36 3d 32 20 | . block%!16=2 |
00000df0 80 20 62 75 74 74 6f 6e 5f 74 79 70 65 25 3d 30 |. button_type%=0|
00000e00 20 80 20 62 6c 6f 63 6b 25 21 31 32 3d 73 61 76 | . block%!12=sav|
00000e10 65 73 69 25 20 f2 73 61 76 65 73 69 28 a4 52 5f |esi% .savesi(.R_|
00000e20 53 74 72 69 6e 67 28 73 61 76 65 73 69 25 2c 31 |String(savesi%,1|
00000e30 29 29 3a e1 0d 05 d2 28 20 20 20 20 e7 20 62 6c |)):....( . bl|
00000e40 6f 63 6b 25 21 31 36 3d 30 20 80 20 62 75 74 74 |ock%!16=0 . butt|
00000e50 6f 6e 5f 74 79 70 65 25 3d 33 20 8c 0d 05 dc 2b |on_type%=3 ....+|
00000e60 20 20 20 20 20 20 e7 20 62 6c 6f 63 6b 25 21 31 | . block%!1|
00000e70 32 3d 73 61 76 65 73 69 25 20 64 72 61 67 5f 69 |2=savesi% drag_i|
00000e80 63 6f 6e 25 3d 2d 31 0d 05 e6 1c 20 20 20 20 20 |con%=-1.... |
00000e90 20 62 6c 6f 63 6b 25 21 30 3d 62 6c 6f 63 6b 25 | block%!0=block%|
00000ea0 21 31 32 0d 05 f0 1c 20 20 20 20 20 20 62 6c 6f |!12.... blo|
00000eb0 63 6b 25 21 34 3d 62 6c 6f 63 6b 25 21 31 36 0d |ck%!4=block%!16.|
00000ec0 05 fa 28 20 20 20 20 20 20 c8 99 20 22 57 69 6d |..( .. "Wim|
00000ed0 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00000ee0 2c 62 6c 6f 63 6b 25 0d 06 04 45 20 20 20 20 20 |,block%...E |
00000ef0 20 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 30 3d 62 | icon_block%!0=b|
00000f00 6c 6f 63 6b 25 21 30 3a c8 99 20 22 57 69 6d 70 |lock%!0:.. "Wimp|
00000f10 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c |_GetWindowInfo",|
00000f20 2c 69 63 6f 6e 5f 62 6c 6f 63 6b 25 0d 06 0e 1a |,icon_block%....|
00000f30 20 20 20 20 20 20 58 25 3d 69 63 6f 6e 5f 62 6c | X%=icon_bl|
00000f40 6f 63 6b 25 21 34 0d 06 18 1b 20 20 20 20 20 20 |ock%!4.... |
00000f50 59 25 3d 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 31 |Y%=icon_block%!1|
00000f60 36 0d 06 22 14 20 20 20 20 20 20 62 6c 6f 63 6b |6..". block|
00000f70 25 21 34 3d 35 0d 06 2c 1e 20 20 20 20 20 20 62 |%!4=5..,. b|
00000f80 6c 6f 63 6b 25 21 38 3d 62 6c 6f 63 6b 25 21 38 |lock%!8=block%!8|
00000f90 2b 58 25 0d 06 36 20 20 20 20 20 20 20 62 6c 6f |+X%..6 blo|
00000fa0 63 6b 25 21 31 36 3d 62 6c 6f 63 6b 25 21 31 36 |ck%!16=block%!16|
00000fb0 2b 58 25 0d 06 40 20 20 20 20 20 20 20 62 6c 6f |+X%..@ blo|
00000fc0 63 6b 25 21 31 32 3d 62 6c 6f 63 6b 25 21 31 32 |ck%!12=block%!12|
00000fd0 2b 59 25 0d 06 4a 20 20 20 20 20 20 20 62 6c 6f |+Y%..J blo|
00000fe0 63 6b 25 21 32 30 3d 62 6c 6f 63 6b 25 21 32 30 |ck%!20=block%!20|
00000ff0 2b 59 25 0d 06 54 15 20 20 20 20 20 20 62 6c 6f |+Y%..T. blo|
00001000 63 6b 25 21 32 34 3d 30 0d 06 5e 15 20 20 20 20 |ck%!24=0..^. |
00001010 20 20 62 6c 6f 63 6b 25 21 32 38 3d 30 0d 06 68 | block%!28=0..h|
00001020 26 20 20 20 20 20 20 62 6c 6f 63 6b 25 21 33 32 |& block%!32|
00001030 3d 58 50 69 78 65 6c 73 25 3c 3c 58 46 61 63 74 |=XPixels%<<XFact|
00001040 6f 72 25 0d 06 72 1c 20 20 20 20 20 20 62 6c 6f |or%..r. blo|
00001050 63 6b 25 21 33 36 3d 59 50 69 78 65 6c 73 25 0d |ck%!36=YPixels%.|
00001060 06 7c 23 20 20 20 20 20 20 c8 99 20 22 57 69 6d |.|# .. "Wim|
00001070 70 5f 44 72 61 67 42 6f 78 22 2c 2c 62 6c 6f 63 |p_DragBox",,bloc|
00001080 6b 25 0d 06 86 09 20 20 20 20 cd 0d 06 90 05 cb |k%.... ......|
00001090 0d 06 9a 05 e1 0d 06 a4 05 3a 0d 06 ae 12 dd 20 |.........:..... |
000010a0 f2 6d 65 6e 75 5f 73 65 6c 65 63 74 0d 06 b8 08 |.menu_select....|
000010b0 ea 20 49 25 0d 06 c2 29 c8 99 20 22 57 69 6d 70 |. I%...).. "Wimp|
000010c0 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 |_GetPointerInfo"|
000010d0 2c 2c 69 63 6f 6e 5f 62 6c 6f 63 6b 25 0d 06 cc |,,icon_block%...|
000010e0 1b 49 25 3d 2d 28 69 63 6f 6e 5f 62 6c 6f 63 6b |.I%=-(icon_block|
000010f0 25 21 38 20 80 20 31 29 0d 06 d6 0e c8 8e 20 6d |%!8 . 1)...... m|
00001100 65 6e 75 25 20 ca 0d 06 e0 09 20 20 c9 20 30 0d |enu% ..... . 0.|
00001110 06 ea 15 20 20 20 20 c8 8e 20 62 6c 6f 63 6b 25 |... .. block%|
00001120 21 30 20 ca 0d 06 f4 15 20 20 20 20 20 20 c9 20 |!0 ..... . |
00001130 31 3a f2 6f 70 65 6e 73 69 0d 06 fe 15 20 20 20 |1:.opensi.... |
00001140 20 20 20 c9 20 32 3a f2 6f 70 65 6e 66 69 0d 07 | . 2:.openfi..|
00001150 08 15 20 20 20 20 20 20 c9 20 33 3a f2 63 61 6c |.. . 3:.cal|
00001160 63 73 69 0d 07 12 0d 20 20 20 20 20 20 c9 20 34 |csi.... . 4|
00001170 0d 07 1c 19 20 20 20 20 20 20 20 20 c8 8e 20 62 |.... .. b|
00001180 6c 6f 63 6b 25 21 34 20 ca 0d 07 26 19 20 20 20 |lock%!4 ...&. |
00001190 20 20 20 20 20 20 20 f4 20 52 4f 4d 20 73 70 65 | . ROM spe|
000011a0 65 64 0d 07 30 35 20 20 20 20 20 20 20 20 20 20 |ed..05 |
000011b0 c9 20 30 3a 48 69 67 68 52 4f 4d 53 70 65 65 64 |. 0:HighROMSpeed|
000011c0 3d 31 3a f2 55 70 64 61 74 65 4d 45 4d 43 28 26 |=1:.UpdateMEMC(&|
000011d0 43 30 2c 26 43 30 29 0d 07 3a 35 20 20 20 20 20 |C0,&C0)..:5 |
000011e0 20 20 20 20 20 c9 20 31 3a 48 69 67 68 52 4f 4d | . 1:HighROM|
000011f0 53 70 65 65 64 3d 32 3a f2 55 70 64 61 74 65 4d |Speed=2:.UpdateM|
00001200 45 4d 43 28 26 38 30 2c 26 43 30 29 0d 07 44 35 |EMC(&80,&C0)..D5|
00001210 20 20 20 20 20 20 20 20 20 20 c9 20 32 3a 48 69 | . 2:Hi|
00001220 67 68 52 4f 4d 53 70 65 65 64 3d 33 3a f2 55 70 |ghROMSpeed=3:.Up|
00001230 64 61 74 65 4d 45 4d 43 28 26 34 30 2c 26 43 30 |dateMEMC(&40,&C0|
00001240 29 0d 07 4e 35 20 20 20 20 20 20 20 20 20 20 c9 |)..N5 .|
00001250 20 33 3a 48 69 67 68 52 4f 4d 53 70 65 65 64 3d | 3:HighROMSpeed=|
00001260 34 3a f2 55 70 64 61 74 65 4d 45 4d 43 28 26 30 |4:.UpdateMEMC(&0|
00001270 30 2c 26 43 30 29 0d 07 58 28 20 20 20 20 20 20 |0,&C0)..X( |
00001280 20 20 20 20 c9 20 34 3a 56 69 64 65 6f 44 4d 41 | . 4:VideoDMA|
00001290 25 3d ac 28 56 69 64 65 6f 44 4d 41 25 29 0d 07 |%=.(VideoDMA%)..|
000012a0 62 12 20 20 20 20 20 20 20 20 20 20 c9 20 35 3a |b. . 5:|
000012b0 0d 07 6c 23 20 20 20 20 20 20 20 20 20 20 20 20 |..l# |
000012c0 e7 20 ac 28 46 61 73 74 65 72 42 41 53 49 43 25 |. .(FasterBASIC%|
000012d0 29 20 8c 0d 07 76 37 20 20 20 20 20 20 20 20 20 |) ...v7 |
000012e0 20 20 20 20 20 c8 99 20 22 58 57 69 6d 70 5f 53 | .. "XWimp_S|
000012f0 74 61 72 74 54 61 73 6b 22 2c 22 52 4d 46 61 73 |tartTask","RMFas|
00001300 74 65 72 20 42 41 53 49 43 22 0d 07 80 20 20 20 |ter BASIC"... |
00001310 20 20 20 20 20 20 20 20 20 20 20 20 46 61 73 74 | Fast|
00001320 65 72 42 41 53 49 43 25 3d b9 0d 07 8a 11 20 20 |erBASIC%=..... |
00001330 20 20 20 20 20 20 20 20 20 20 cc 0d 07 94 53 20 | ....S |
00001340 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 20 | .. |
00001350 22 58 57 69 6d 70 5f 53 74 61 72 74 54 61 73 6b |"XWimp_StartTask|
00001360 22 2c 22 4f 62 65 79 20 3c 41 72 6d 53 49 24 44 |","Obey <ArmSI$D|
00001370 69 72 3e 2e 52 65 73 6f 75 72 63 65 73 2e 4f 6c |ir>.Resources.Ol|
00001380 64 4d 6f 64 75 6c 65 20 42 41 53 49 43 22 0d 07 |dModule BASIC"..|
00001390 9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000013a0 46 61 73 74 65 72 42 41 53 49 43 25 3d a3 0d 07 |FasterBASIC%=...|
000013b0 a8 11 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d |.. ..|
000013c0 07 b2 12 20 20 20 20 20 20 20 20 20 20 c9 20 36 |... . 6|
000013d0 3a 0d 07 bc 21 20 20 20 20 20 20 20 20 20 20 20 |:...! |
000013e0 20 e7 20 ac 28 46 61 73 74 65 72 46 50 45 25 29 | . .(FasterFPE%)|
000013f0 20 8c 0d 07 c6 3c 20 20 20 20 20 20 20 20 20 20 | ....< |
00001400 20 20 20 20 c8 99 20 22 58 57 69 6d 70 5f 53 74 | .. "XWimp_St|
00001410 61 72 74 54 61 73 6b 22 2c 22 52 4d 46 61 73 74 |artTask","RMFast|
00001420 65 72 20 46 50 45 6d 75 6c 61 74 6f 72 22 0d 07 |er FPEmulator"..|
00001430 d0 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00001440 46 61 73 74 65 72 46 50 45 25 3d b9 0d 07 da 11 |FasterFPE%=.....|
00001450 20 20 20 20 20 20 20 20 20 20 20 20 cc 0d 07 e4 | ....|
00001460 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 |X .|
00001470 99 20 22 58 57 69 6d 70 5f 53 74 61 72 74 54 61 |. "XWimp_StartTa|
00001480 73 6b 22 2c 22 4f 62 65 79 20 3c 41 72 6d 53 49 |sk","Obey <ArmSI|
00001490 24 44 69 72 3e 2e 52 65 73 6f 75 72 63 65 73 2e |$Dir>.Resources.|
000014a0 4f 6c 64 4d 6f 64 75 6c 65 20 46 50 45 6d 75 6c |OldModule FPEmul|
000014b0 61 74 6f 72 22 0d 07 ee 1e 20 20 20 20 20 20 20 |ator".... |
000014c0 20 20 20 20 20 20 20 46 61 73 74 65 72 46 50 45 | FasterFPE|
000014d0 25 3d a3 0d 07 f8 11 20 20 20 20 20 20 20 20 20 |%=..... |
000014e0 20 20 20 cd 0d 08 02 12 20 20 20 20 20 20 20 20 | ..... |
000014f0 20 20 c9 20 37 3a 0d 08 0c 20 20 20 20 20 20 20 | . 7:... |
00001500 20 20 20 20 20 20 e7 20 50 72 6f 63 65 73 73 6f | . Processo|
00001510 72 25 3d 33 20 8c 0d 08 16 1b 20 20 20 20 20 20 |r%=3 ..... |
00001520 20 20 20 20 20 20 20 20 d6 20 72 65 61 64 72 65 | . readre|
00001530 67 0d 08 20 27 20 20 20 20 20 20 20 20 20 20 20 |g.. ' |
00001540 20 20 20 e7 20 28 21 72 65 67 77 6f 72 64 25 20 | . (!regword% |
00001550 80 20 31 29 3d 31 20 8c 0d 08 2a 33 20 20 20 20 |. 1)=1 ...*3 |
00001560 20 20 20 20 20 20 20 20 20 20 20 20 21 72 65 67 | !reg|
00001570 77 6f 72 64 25 3d 21 72 65 67 77 6f 72 64 25 20 |word%=!regword% |
00001580 80 20 25 31 31 31 31 31 31 31 30 0d 08 34 1e 20 |. %11111110..4. |
00001590 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d6 | .|
000015a0 20 77 72 69 74 65 72 65 67 0d 08 3e 1e 20 20 20 | writereg..>. |
000015b0 20 20 20 20 20 20 20 20 20 20 20 20 20 43 61 63 | Cac|
000015c0 68 65 4f 4e 25 3d a3 0d 08 48 13 20 20 20 20 20 |heON%=...H. |
000015d0 20 20 20 20 20 20 20 20 20 cc 0d 08 52 2c 20 20 | ...R, |
000015e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 72 | !r|
000015f0 65 67 77 6f 72 64 25 3d 21 72 65 67 77 6f 72 64 |egword%=!regword|
00001600 25 20 84 20 25 31 0d 08 5c 1e 20 20 20 20 20 20 |% . %1..\. |
00001610 20 20 20 20 20 20 20 20 20 20 d6 20 77 72 69 74 | . writ|
00001620 65 72 65 67 0d 08 66 1e 20 20 20 20 20 20 20 20 |ereg..f. |
00001630 20 20 20 20 20 20 20 20 43 61 63 68 65 4f 4e 25 | CacheON%|
00001640 3d b9 0d 08 70 13 20 20 20 20 20 20 20 20 20 20 |=...p. |
00001650 20 20 20 20 cd 0d 08 7a 11 20 20 20 20 20 20 20 | ...z. |
00001660 20 20 20 20 20 cd 0d 08 84 0d 20 20 20 20 20 20 | ..... |
00001670 20 20 cb 0d 08 8e 0d 20 20 20 20 20 20 c9 20 35 | ..... . 5|
00001680 0d 08 98 19 20 20 20 20 20 20 20 20 c8 8e 20 62 |.... .. b|
00001690 6c 6f 63 6b 25 21 34 20 ca 0d 08 a2 33 20 20 20 |lock%!4 ....3 |
000016a0 20 20 20 20 20 20 20 c9 20 30 3a e7 20 63 61 6c | . 0:. cal|
000016b0 63 4d 43 25 20 8c 20 63 61 6c 63 4d 43 25 3d a3 |cMC% . calcMC%=.|
000016c0 20 8b 20 63 61 6c 63 4d 43 25 3d b9 0d 08 ac 3c | . calcMC%=....<|
000016d0 20 20 20 20 20 20 20 20 20 20 c9 20 31 3a e7 20 | . 1:. |
000016e0 63 61 6c 63 42 41 53 49 43 25 20 8c 20 63 61 6c |calcBASIC% . cal|
000016f0 63 42 41 53 49 43 25 3d a3 20 8b 20 63 61 6c 63 |cBASIC%=. . calc|
00001700 42 41 53 49 43 25 3d b9 0d 08 b6 36 20 20 20 20 |BASIC%=....6 |
00001710 20 20 20 20 20 20 c9 20 32 3a e7 20 63 61 6c 63 | . 2:. calc|
00001720 46 50 55 25 20 8c 20 63 61 6c 63 46 50 55 25 3d |FPU% . calcFPU%=|
00001730 a3 20 8b 20 63 61 6c 63 46 50 55 25 3d b9 0d 08 |. . calcFPU%=...|
00001740 c0 39 20 20 20 20 20 20 20 20 20 20 c9 20 33 3a |.9 . 3:|
00001750 e7 20 63 61 6c 63 44 48 52 59 25 20 8c 20 63 61 |. calcDHRY% . ca|
00001760 6c 63 44 48 52 59 25 3d a3 20 8b 20 63 61 6c 63 |lcDHRY%=. . calc|
00001770 44 48 52 59 25 3d b9 0d 08 ca 0d 20 20 20 20 20 |DHRY%=..... |
00001780 20 20 20 cb 0d 08 d4 15 20 20 20 20 20 20 c9 20 | ..... . |
00001790 37 3a 71 75 69 74 25 3d b9 0d 08 de 09 20 20 20 |7:quit%=..... |
000017a0 20 cb 0d 08 e8 25 20 20 20 20 e7 20 49 25 20 6d | ....% . I% m|
000017b0 65 6e 75 25 3d 30 3a f2 6d 65 6e 75 28 58 25 2c |enu%=0:.menu(X%,|
000017c0 33 36 30 2c 22 22 29 0d 08 f2 05 cb 0d 08 fc 05 |360,"").........|
000017d0 e1 0d 09 06 05 3a 0d 09 10 12 dd 20 f2 6b 65 79 |.....:..... .key|
000017e0 5f 70 72 65 73 73 65 64 0d 09 1a 36 e7 20 62 6c |_pressed...6. bl|
000017f0 6f 63 6b 25 21 32 34 3c 3e 26 44 20 8c 20 c8 99 |ock%!24<>&D . ..|
00001800 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
00001810 79 22 2c 62 6c 6f 63 6b 25 21 32 34 3a e1 0d 09 |y",block%!24:...|
00001820 24 11 c8 8e 20 62 6c 6f 63 6b 25 21 30 20 ca 0d |$... block%!0 ..|
00001830 09 2e 0f 20 20 c9 20 73 61 76 65 73 69 25 0d 09 |... . savesi%..|
00001840 38 16 20 20 20 20 e7 20 62 6c 6f 63 6b 25 21 34 |8. . block%!4|
00001850 3e 30 20 8c 0d 09 42 27 20 20 20 20 20 20 f2 73 |>0 ...B' .s|
00001860 61 76 65 73 69 28 a4 52 5f 53 74 72 69 6e 67 28 |avesi(.R_String(|
00001870 73 61 76 65 73 69 25 2c 31 29 29 0d 09 4c 09 20 |savesi%,1))..L. |
00001880 20 20 20 cc 0d 09 56 28 20 20 20 20 20 20 c8 99 | ...V( ..|
00001890 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
000018a0 79 22 2c 62 6c 6f 63 6b 25 21 32 34 0d 09 60 09 |y",block%!24..`.|
000018b0 20 20 20 20 cd 0d 09 6a 31 20 20 c9 20 73 79 73 | ...j1 . sys|
000018c0 69 6e 66 6f 25 3a c8 99 20 22 57 69 6d 70 5f 53 |info%:.. "Wimp_S|
000018d0 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"|
000018e0 2c 2d 31 2c 2d 31 0d 09 74 27 20 20 7f 20 c8 99 |,-1,-1..t' . ..|
000018f0 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
00001900 79 22 2c 20 62 6c 6f 63 6b 25 21 32 34 0d 09 7e |y", block%!24..~|
00001910 05 cb 0d 09 88 05 e1 0d 09 92 05 3a 0d 09 9c 0f |...........:....|
00001920 dd 20 f2 64 72 61 67 5f 62 6f 78 0d 09 a6 46 e7 |. .drag_box...F.|
00001930 20 64 72 61 67 5f 69 63 6f 6e 25 3d 2d 31 20 8c | drag_icon%=-1 .|
00001940 20 f2 73 61 76 65 28 a4 6c 65 61 66 28 a4 52 5f | .save(.leaf(.R_|
00001950 53 74 72 69 6e 67 28 73 61 76 65 73 69 25 2c 31 |String(savesi%,1|
00001960 29 29 2c 6f 75 72 5f 66 69 6c 65 74 79 70 65 25 |)),our_filetype%|
00001970 29 0d 09 b0 05 e1 0d 09 ba 05 3a 0d 09 c4 09 f4 |).........:.....|
00001980 20 2a 2a 2a 0d 09 ce 40 f4 20 2a 2a 2a 20 43 61 | ***...@. *** Ca|
00001990 6c 63 75 6c 61 74 69 6f 6e 2f 44 69 73 70 6c 61 |lculation/Displa|
000019a0 79 20 72 6f 75 74 69 6e 65 73 20 28 74 68 65 20 |y routines (the |
000019b0 27 72 65 61 6c 27 20 62 69 74 73 20 6f 66 20 63 |'real' bits of c|
000019c0 6f 64 65 29 0d 09 d8 09 f4 20 2a 2a 2a 0d 09 e2 |ode)..... ***...|
000019d0 05 3a 0d 09 ec 0d dd 20 f2 63 61 6c 63 73 69 0d |.:..... .calcsi.|
000019e0 09 f6 47 ea 20 74 65 6d 70 24 2c 20 76 65 72 25 |..G. temp$, ver%|
000019f0 2c 20 4a 25 2c 20 74 65 6d 70 25 2c 20 66 6c 61 |, J%, temp%, fla|
00001a00 67 73 25 2c 20 70 61 64 64 72 25 2c 20 70 72 31 |gs%, paddr%, pr1|
00001a10 32 25 2c 20 70 62 75 66 25 2c 20 45 25 2c 20 45 |2%, pbuf%, E%, E|
00001a20 31 25 2c 20 41 25 0d 0a 00 1b ea 20 5a 25 2c 20 |1%, A%..... Z%, |
00001a30 56 25 2c 20 73 69 7a 65 25 2c 20 63 68 75 6e 6b |V%, size%, chunk|
00001a40 25 0d 0a 0a 04 0d 0a 14 13 e7 20 63 61 6c 63 44 |%......... calcD|
00001a50 48 52 59 25 3d b9 20 8c 0d 0a 1e 3b 20 20 c8 99 |HRY%=. ....; ..|
00001a60 20 22 58 4f 53 5f 4d 6f 64 75 6c 65 22 2c 31 38 | "XOS_Module",18|
00001a70 2c 22 53 68 61 72 65 64 43 4c 69 62 72 61 72 79 |,"SharedCLibrary|
00001a80 22 20 b8 20 2c 2c 2c 74 65 6d 70 25 3b 66 6c 61 |" . ,,,temp%;fla|
00001a90 67 73 25 0d 0a 28 7a 20 20 e7 20 28 66 6c 61 67 |gs%..(z . (flag|
00001aa0 73 25 20 80 20 31 29 3d 31 20 8c 20 f2 65 72 72 |s% . 1)=1 . .err|
00001ab0 6f 72 28 30 2c 20 22 59 6f 75 20 72 65 71 75 69 |or(0, "You requi|
00001ac0 72 65 20 76 65 72 73 69 6f 6e 20 33 2e 37 35 20 |re version 3.75 |
00001ad0 6f 72 20 61 62 6f 76 65 20 6f 66 20 74 68 65 20 |or above of the |
00001ae0 53 68 61 72 65 64 43 4c 69 62 72 61 72 79 20 74 |SharedCLibrary t|
00001af0 6f 20 72 75 6e 20 74 68 65 20 44 68 72 79 73 74 |o run the Dhryst|
00001b00 6f 6e 65 73 20 74 65 73 74 22 29 3a e1 0d 0a 32 |ones test"):...2|
00001b10 28 20 20 74 65 6d 70 24 3d a4 67 65 74 6e 61 6d |( temp$=.getnam|
00001b20 65 28 21 28 74 65 6d 70 25 2b 26 31 34 29 2b 74 |e(!(temp%+&14)+t|
00001b30 65 6d 70 25 29 0d 0a 3c 16 20 20 74 65 6d 70 24 |emp%)..<. temp$|
00001b40 3d c2 74 65 6d 70 24 2c 31 38 29 0d 0a 46 1c 20 |=.temp$,18)..F. |
00001b50 20 76 65 72 25 3d bb 28 c2 74 65 6d 70 24 2c 31 | ver%=.(.temp$,1|
00001b60 38 29 29 2a 31 30 30 0d 0a 50 74 20 20 e7 20 76 |8))*100..Pt . v|
00001b70 65 72 25 3c 33 37 35 20 8c 20 f2 65 72 72 6f 72 |er%<375 . .error|
00001b80 28 30 2c 20 22 59 6f 75 20 72 65 71 75 69 72 65 |(0, "You require|
00001b90 20 76 65 72 73 69 6f 6e 20 33 2e 37 35 20 6f 72 | version 3.75 or|
00001ba0 20 61 62 6f 76 65 20 6f 66 20 74 68 65 20 53 68 | above of the Sh|
00001bb0 61 72 65 64 43 4c 69 62 72 61 72 79 20 74 6f 20 |aredCLibrary to |
00001bc0 72 75 6e 20 74 68 65 20 44 68 72 79 73 74 6f 6e |run the Dhryston|
00001bd0 65 73 20 74 65 73 74 22 29 3a e1 0d 0a 5a 2e 20 |es test"):...Z. |
00001be0 20 4a 25 3d 8e 28 22 3c 41 72 6d 53 49 24 44 69 | J%=.("<ArmSI$Di|
00001bf0 72 3e 2e 52 65 73 6f 75 72 63 65 73 2e 44 68 72 |r>.Resources.Dhr|
00001c00 79 73 74 6f 6e 65 73 22 29 0d 0a 64 0a 20 20 d9 |ystones")..d. .|
00001c10 23 4a 25 0d 0a 6e 05 cd 0d 0a 78 04 0d 0a 82 1e |#J%..n....x.....|
00001c20 f4 20 2a 2a 20 4f 70 65 72 61 74 69 6e 67 20 73 |. ** Operating s|
00001c30 79 73 74 65 6d 20 62 69 74 73 0d 0a 8c 46 4f 53 |ystem bits...FOS|
00001c40 76 65 72 25 3d 4f 75 72 4f 53 76 65 72 25 20 3a |ver%=OurOSver% :|
00001c50 20 f4 20 52 65 61 64 20 61 74 20 57 69 6d 70 5f | . Read at Wimp_|
00001c60 49 6e 69 74 69 61 6c 69 73 65 20 28 75 6e 6c 69 |Initialise (unli|
00001c70 6b 65 6c 79 20 74 6f 20 63 68 61 6e 67 65 21 29 |kely to change!)|
00001c80 0d 0a 96 3c 4f 53 73 74 72 24 3d a4 6f 73 76 65 |...<OSstr$=.osve|
00001c90 72 20 20 20 3a 20 f4 20 43 75 6e 6e 69 6e 67 20 |r : . Cunning |
00001ca0 28 21 29 20 72 6f 75 74 69 6e 65 20 74 6f 20 67 |(!) routine to g|
00001cb0 65 74 20 4f 53 20 73 74 72 69 6e 67 0d 0a a0 0b |et OS string....|
00001cc0 6d 6f 64 65 25 3d eb 0d 0a aa 34 c8 99 20 22 4f |mode%=....4.. "O|
00001cd0 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
00001ce0 6c 65 22 2c 6d 6f 64 65 25 2c 37 20 b8 20 2c 2c |le",mode%,7 . ,,|
00001cf0 53 63 72 65 65 6e 53 69 7a 65 25 0d 0a b4 04 0d |ScreenSize%.....|
00001d00 0a be 1d f4 20 2a 2a 20 43 68 69 70 20 53 65 74 |.... ** Chip Set|
00001d10 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0d 0a c8 0e | information....|
00001d20 49 4f 43 54 79 70 65 25 3d 31 0d 0a d2 0f 56 49 |IOCType%=1....VI|
00001d30 44 43 54 79 70 65 25 3d 31 0d 0a dc 04 0d 0a e6 |DCType%=1.......|
00001d40 12 e7 20 4f 53 76 65 72 25 3c 33 30 30 20 8c 0d |.. OSver%<300 ..|
00001d50 0a f0 11 20 20 49 4f 45 42 54 79 70 65 25 3d 30 |... IOEBType%=0|
00001d60 0d 0a fa 13 20 20 50 65 72 69 70 68 54 79 70 65 |.... PeriphType|
00001d70 25 3d 30 0d 0b 04 10 20 20 4c 43 44 54 79 70 65 |%=0.... LCDType|
00001d80 25 3d 30 0d 0b 0e 12 20 20 55 6e 69 71 75 65 49 |%=0.... UniqueI|
00001d90 44 61 25 3d 30 0d 0b 18 12 20 20 55 6e 69 71 75 |Da%=0.... Uniqu|
00001da0 65 49 44 62 25 3d 30 0d 0b 22 05 cc 0d 0b 2c 52 |eIDb%=0.."....,R|
00001db0 20 20 c8 99 20 22 4f 53 5f 52 65 61 64 53 79 73 | .. "OS_ReadSys|
00001dc0 49 6e 66 6f 22 2c 32 20 b8 20 49 4f 45 42 54 79 |Info",2 . IOEBTy|
00001dd0 70 65 25 2c 50 65 72 69 70 68 54 79 70 65 25 2c |pe%,PeriphType%,|
00001de0 4c 43 44 54 79 70 65 25 2c 55 6e 69 71 75 65 49 |LCDType%,UniqueI|
00001df0 44 61 25 2c 55 6e 69 71 75 65 49 44 62 25 0d 0b |Da%,UniqueIDb%..|
00001e00 36 29 20 20 e7 20 28 4f 53 76 65 72 25 3e 3d 33 |6) . (OSver%>=3|
00001e10 30 31 29 20 80 20 28 50 65 72 69 70 68 54 79 70 |01) . (PeriphTyp|
00001e20 65 25 3d 31 29 20 8c 0d 0b 40 25 20 20 20 20 c8 |e%=1) ...@% .|
00001e30 99 20 22 4f 53 5f 52 65 61 64 53 79 73 49 6e 66 |. "OS_ReadSysInf|
00001e40 6f 22 2c 33 20 b8 20 74 65 6d 70 25 0d 0b 4a 24 |o",3 . temp%..J$|
00001e50 20 20 20 20 c8 8e 20 28 28 74 65 6d 70 25 20 3e | .. ((temp% >|
00001e60 3e 20 32 30 29 20 80 20 25 31 31 31 31 29 20 ca |> 20) . %1111) .|
00001e70 0d 0b 54 1b 20 20 20 20 20 20 c9 20 31 3a 50 65 |..T. . 1:Pe|
00001e80 72 69 70 68 54 79 70 65 25 3d 31 0d 0b 5e 1b 20 |riphType%=1..^. |
00001e90 20 20 20 20 20 c9 20 32 3a 50 65 72 69 70 68 54 | . 2:PeriphT|
00001ea0 79 70 65 25 3d 32 0d 0b 68 0b 20 20 20 20 20 20 |ype%=2..h. |
00001eb0 7f 0d 0b 72 19 20 20 20 20 20 20 20 20 50 65 72 |...r. Per|
00001ec0 68 69 70 54 79 70 65 3d 2d 31 0d 0b 7c 09 20 20 |hipType=-1..|. |
00001ed0 20 20 cb 0d 0b 86 07 20 20 cd 0d 0b 90 05 cd 0d | ..... .......|
00001ee0 0b 9a 04 0d 0b a4 44 f4 20 2a 2a 20 43 61 6c 6c |......D. ** Call|
00001ef0 20 6d 61 69 6e 20 63 6f 64 65 2c 20 73 65 74 74 | main code, sett|
00001f00 69 6e 67 20 75 70 20 69 6c 6c 65 67 61 6c 20 69 |ing up illegal i|
00001f10 6e 73 74 72 75 63 74 69 6f 6e 20 68 61 6e 64 6c |nstruction handl|
00001f20 65 72 20 63 6f 64 65 0d 0b ae 40 c8 99 20 22 4f |er code...@.. "O|
00001f30 53 5f 43 68 61 6e 67 65 45 6e 76 69 72 6f 6e 6d |S_ChangeEnvironm|
00001f40 65 6e 74 22 2c 31 2c 72 65 74 63 64 31 2c 30 2c |ent",1,retcd1,0,|
00001f50 30 20 b8 20 2c 70 61 64 64 72 25 2c 70 72 31 32 |0 . ,paddr%,pr12|
00001f60 25 2c 70 62 75 66 25 0d 0b b8 0f d6 20 61 73 73 |%,pbuf%..... ass|
00001f70 6d 5f 6d 61 69 6e 0d 0b c2 2a c8 99 20 22 4f 53 |m_main...*.. "OS|
00001f80 5f 43 68 61 6e 67 65 45 6e 76 69 72 6f 6e 6d 65 |_ChangeEnvironme|
00001f90 6e 74 22 2c 31 2c 72 65 74 63 64 32 2c 30 2c 30 |nt",1,retcd2,0,0|
00001fa0 0d 0b cc 04 0d 0b d6 14 46 50 73 74 72 24 3d 22 |........FPstr$="|
00001fb0 55 6e 6b 6e 6f 77 6e 22 0d 0b e0 21 74 65 6d 70 |Unknown"...!temp|
00001fc0 25 3d 28 21 66 70 75 74 79 70 65 25 20 3e 3e 20 |%=(!fputype% >> |
00001fd0 32 34 29 20 83 20 32 35 36 0d 0b ea 0e c8 8e 20 |24) . 256...... |
00001fe0 74 65 6d 70 25 20 ca 0d 0b f4 09 20 20 c9 20 30 |temp% ..... . 0|
00001ff0 0d 0b fe 12 20 20 20 20 46 50 41 54 79 70 65 25 |.... FPAType%|
00002000 3d 30 0d 0c 08 22 20 20 20 20 46 50 73 74 72 24 |=0..." FPstr$|
00002010 3d 22 4f 6c 64 20 46 50 45 6d 75 6c 61 74 6f 72 |="Old FPEmulator|
00002020 2c 20 76 22 0d 0c 12 32 20 20 20 20 c8 99 20 22 |, v"...2 .. "|
00002030 58 4f 53 5f 4d 6f 64 75 6c 65 22 2c 31 38 2c 22 |XOS_Module",18,"|
00002040 46 50 45 6d 75 6c 61 74 6f 72 22 20 b8 20 2c 2c |FPEmulator" . ,,|
00002050 2c 74 65 6d 70 25 0d 0c 1c 2a 20 20 20 20 74 65 |,temp%...* te|
00002060 6d 70 24 3d a4 67 65 74 6e 61 6d 65 28 21 28 74 |mp$=.getname(!(t|
00002070 65 6d 70 25 2b 26 31 34 29 2b 74 65 6d 70 25 29 |emp%+&14)+temp%)|
00002080 0d 0c 26 1a 20 20 20 20 46 50 73 74 72 24 2b 3d |..&. FPstr$+=|
00002090 c2 74 65 6d 70 24 2c 31 38 29 0d 0c 30 09 20 20 |.temp$,18)..0. |
000020a0 c9 20 31 0d 0c 3a 12 20 20 20 20 46 50 41 54 79 |. 1..:. FPATy|
000020b0 70 65 25 3d 30 0d 0c 44 22 20 20 20 20 46 50 73 |pe%=0..D" FPs|
000020c0 74 72 24 3d 22 4e 65 77 20 46 50 45 6d 75 6c 61 |tr$="New FPEmula|
000020d0 74 6f 72 2c 20 76 22 0d 0c 4e 32 20 20 20 20 c8 |tor, v"..N2 .|
000020e0 99 20 22 58 4f 53 5f 4d 6f 64 75 6c 65 22 2c 31 |. "XOS_Module",1|
000020f0 38 2c 22 46 50 45 6d 75 6c 61 74 6f 72 22 20 b8 |8,"FPEmulator" .|
00002100 20 2c 2c 2c 74 65 6d 70 25 0d 0c 58 2a 20 20 20 | ,,,temp%..X* |
00002110 20 74 65 6d 70 24 3d a4 67 65 74 6e 61 6d 65 28 | temp$=.getname(|
00002120 21 28 74 65 6d 70 25 2b 26 31 34 29 2b 74 65 6d |!(temp%+&14)+tem|
00002130 70 25 29 0d 0c 62 1a 20 20 20 20 46 50 73 74 72 |p%)..b. FPstr|
00002140 24 2b 3d c2 74 65 6d 70 24 2c 31 38 29 0d 0c 6c |$+=.temp$,18)..l|
00002150 43 20 20 c9 20 26 38 30 3a 46 50 41 54 79 70 65 |C . &80:FPAType|
00002160 25 3d 31 3a 46 50 73 74 72 24 3d 22 46 50 20 50 |%=1:FPstr$="FP P|
00002170 72 6f 74 6f 63 6f 6c 20 43 6f 6e 76 65 72 74 6f |rotocol Converto|
00002180 72 20 63 61 72 64 20 28 57 45 32 32 30 36 29 22 |r card (WE2206)"|
00002190 0d 0c 76 37 20 20 c9 20 26 38 31 3a 46 50 41 54 |..v7 . &81:FPAT|
000021a0 79 70 65 25 3d 32 3a 46 50 73 74 72 24 3d 22 41 |ype%=2:FPstr$="A|
000021b0 52 4d 20 46 50 20 41 63 63 65 6c 65 72 61 74 6f |RM FP Accelerato|
000021c0 72 20 63 68 69 70 22 0d 0c 80 20 20 20 7f 20 46 |r chip"... . F|
000021d0 50 41 54 79 70 65 25 3d 2d 31 3a 46 61 73 74 65 |PAType%=-1:Faste|
000021e0 72 46 50 45 25 3d a3 0d 0c 8a 05 cb 0d 0c 94 04 |rFPE%=..........|
000021f0 0d 0c 9e 33 e7 20 63 61 6c 63 46 50 55 25 20 80 |...3. calcFPU% .|
00002200 20 28 46 50 73 74 72 24 3d 22 55 6e 6b 6e 6f 77 | (FPstr$="Unknow|
00002210 6e 22 20 84 20 46 50 41 54 79 70 65 25 3d 2d 31 |n" . FPAType%=-1|
00002220 29 20 8c 0d 0c a8 50 20 20 f2 65 72 72 6f 72 28 |) ....P .error(|
00002230 30 2c 20 22 59 6f 75 20 72 65 71 75 69 72 65 20 |0, "You require |
00002240 61 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 |a version of the|
00002250 20 46 50 45 6d 75 6c 61 74 6f 72 20 74 6f 20 72 | FPEmulator to r|
00002260 75 6e 20 74 68 65 20 46 50 20 74 65 73 74 73 22 |un the FP tests"|
00002270 29 3a e1 0d 0c b2 05 cd 0d 0c bc 04 0d 0c c6 16 |):..............|
00002280 50 72 6f 63 65 73 73 6f 72 25 3d 21 74 70 72 65 |Processor%=!tpre|
00002290 73 25 0d 0c d0 1c 50 72 6f 63 65 73 73 6f 72 54 |s%....ProcessorT|
000022a0 79 70 65 25 3d 21 70 72 6f 74 79 70 65 25 0d 0c |ype%=!protype%..|
000022b0 da 18 4d 45 4d 43 54 79 70 65 25 3d 21 6d 65 6d |..MEMCType%=!mem|
000022c0 63 74 79 70 65 25 0d 0c e4 11 e7 20 21 74 70 72 |ctype%..... !tpr|
000022d0 65 73 25 3d 33 20 8c 0d 0c ee 27 20 20 74 65 6d |es%=3 ....' tem|
000022e0 70 25 3d 28 50 72 6f 63 65 73 73 6f 72 54 79 70 |p%=(ProcessorTyp|
000022f0 65 25 20 3e 3e 20 38 29 20 80 20 32 35 35 0d 0c |e% >> 8) . 255..|
00002300 f8 10 20 20 c8 8e 20 74 65 6d 70 25 20 ca 0d 0d |.. .. temp% ...|
00002310 02 18 20 20 20 20 c9 20 33 3a 50 72 6f 63 65 73 |.. . 3:Proces|
00002320 73 6f 72 25 3d 33 0d 0d 0c 0b 20 20 20 20 c9 20 |sor%=3.... . |
00002330 36 0d 0d 16 4f 20 20 20 20 20 20 e7 20 28 28 50 |6...O . ((P|
00002340 72 6f 63 65 73 73 6f 72 54 79 70 65 25 20 3e 3e |rocessorType% >>|
00002350 20 34 29 20 80 20 32 35 35 29 3d 26 36 31 20 8c | 4) . 255)=&61 .|
00002360 20 50 72 6f 63 65 73 73 6f 72 25 3d 36 31 30 20 | Processor%=610 |
00002370 8b 20 50 72 6f 63 65 73 73 6f 72 25 3d 36 30 30 |. Processor%=600|
00002380 0d 0d 20 1a 20 20 20 20 c9 20 37 3a 50 72 6f 63 |.. . . 7:Proc|
00002390 65 73 73 6f 72 25 3d 37 30 30 0d 0d 2a 1a 20 20 |essor%=700..*. |
000023a0 20 20 c9 20 38 3a 50 72 6f 63 65 73 73 6f 72 25 | . 8:Processor%|
000023b0 3d 38 30 30 0d 0d 34 18 20 20 20 20 20 20 7f 20 |=800..4. . |
000023c0 50 72 6f 63 65 73 73 6f 72 25 3d 33 0d 0d 3e 07 |Processor%=3..>.|
000023d0 20 20 cb 0d 0d 48 05 cd 0d 0d 52 04 0d 0d 5c 4b | ...H....R...\K|
000023e0 f4 20 43 61 6e 27 74 20 68 61 76 65 20 61 6e 20 |. Can't have an |
000023f0 27 41 52 4d 32 35 30 27 20 69 64 20 61 6e 64 20 |'ARM250' id and |
00002400 6e 6f 20 49 4f 45 42 20 63 68 69 70 2c 20 73 6f |no IOEB chip, so|
00002410 20 65 69 74 68 65 72 20 41 52 4d 36 31 20 6f 72 | either ARM61 or|
00002420 20 41 52 4d 32 61 73 0d 0d 66 34 e7 20 28 21 74 | ARM2as..f4. (!t|
00002430 70 72 65 73 25 3d 32 35 30 29 20 80 20 28 49 4f |pres%=250) . (IO|
00002440 45 42 54 79 70 65 25 3c 3d 30 29 20 8c 20 50 72 |EBType%<=0) . Pr|
00002450 6f 63 65 73 73 6f 72 25 3d 36 31 0d 0d 70 04 0d |ocessor%=61..p..|
00002460 0d 7a 27 54 69 6d 65 54 61 6b 65 6e 31 3d 31 3c |.z'TimeTaken1=1<|
00002470 3c 32 37 20 3a 54 69 6d 65 54 61 6b 65 6e 31 4c |<27 :TimeTaken1L|
00002480 3d 31 3c 3c 32 37 0d 0d 84 28 54 69 6d 65 54 61 |=1<<27...(TimeTa|
00002490 6b 65 6e 31 61 3d 31 3c 3c 32 37 3a 54 69 6d 65 |ken1a=1<<27:Time|
000024a0 54 61 6b 65 6e 31 61 4c 3d 31 3c 3c 32 37 0d 0d |Taken1aL=1<<27..|
000024b0 8e 27 54 69 6d 65 54 61 6b 65 6e 32 3d 31 3c 3c |.'TimeTaken2=1<<|
000024c0 32 37 20 3a 54 69 6d 65 54 61 6b 65 6e 32 4c 3d |27 :TimeTaken2L=|
000024d0 31 3c 3c 32 37 0d 0d 98 27 54 69 6d 65 54 61 6b |1<<27...'TimeTak|
000024e0 65 6e 33 3d 31 3c 3c 32 37 20 3a 54 69 6d 65 54 |en3=1<<27 :TimeT|
000024f0 61 6b 65 6e 33 4c 3d 31 3c 3c 32 37 0d 0d a2 27 |aken3L=1<<27...'|
00002500 54 69 6d 65 54 61 6b 65 6e 34 3d 31 3c 3c 32 37 |TimeTaken4=1<<27|
00002510 20 3a 54 69 6d 65 54 61 6b 65 6e 34 4c 3d 31 3c | :TimeTaken4L=1<|
00002520 3c 32 37 0d 0d ac 04 0d 0d b6 23 c8 99 20 22 4f |<27.......#.. "O|
00002530 53 5f 52 65 61 64 50 61 6c 65 74 74 65 22 2c 30 |S_ReadPalette",0|
00002540 2c 31 36 20 b8 20 2c 2c 43 25 0d 0d c0 46 f4 20 |,16 . ,,C%...F. |
00002550 2a 2a 20 44 69 73 61 62 6c 65 20 56 69 64 65 6f |** Disable Video|
00002560 20 26 20 53 6f 75 6e 64 20 44 4d 41 20 28 74 75 | & Sound DMA (tu|
00002570 72 6e 20 44 52 41 4d 20 72 65 66 72 65 73 68 20 |rn DRAM refresh |
00002580 6f 6e 20 63 6f 6e 74 69 6e 75 6f 75 73 6c 79 29 |on continuously)|
00002590 0d 0d ca 13 e7 20 56 69 64 65 6f 44 4d 41 25 3d |..... VideoDMA%=|
000025a0 a3 20 8c 0d 0d d4 0f 20 20 ef 20 31 39 2c 30 2c |. ..... . 19,0,|
000025b0 30 7c 0d 0d de 18 20 20 6f 6c 64 6d 65 6d 63 25 |0|.... oldmemc%|
000025c0 3d a4 52 65 61 64 4d 45 4d 43 0d 0d e8 27 20 20 |=.ReadMEMC...' |
000025d0 c8 96 3a f2 55 70 64 61 74 65 4d 45 4d 43 28 25 |..:.UpdateMEMC(%|
000025e0 30 30 31 31 3c 3c 38 2c 25 31 31 31 31 3c 3c 38 |0011<<8,%1111<<8|
000025f0 29 0d 0d f2 05 cc 0d 0d fc 17 20 20 c8 99 20 22 |)......... .. "|
00002600 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 0e 06 |Hourglass_On"...|
00002610 05 cd 0d 0e 10 04 0d 0e 1a 0f d6 20 72 65 61 64 |........... read|
00002620 63 6c 6f 63 6b 0d 0e 24 0e e3 20 41 25 3d 31 20 |clock..$.. A%=1 |
00002630 b8 20 34 0d 0e 2e 18 d6 20 63 61 6c 63 41 52 4d |. 4..... calcARM|
00002640 3a d6 20 63 61 6c 63 41 52 4d 4c 0d 0e 38 31 e7 |:. calcARML..81.|
00002650 20 21 41 52 4d 63 6f 75 6e 74 31 3c 54 69 6d 65 | !ARMcount1<Time|
00002660 54 61 6b 65 6e 31 20 54 69 6d 65 54 61 6b 65 6e |Taken1 TimeTaken|
00002670 31 3d 21 41 52 4d 63 6f 75 6e 74 31 0d 0e 42 35 |1=!ARMcount1..B5|
00002680 e7 20 21 41 52 4d 63 6f 75 6e 74 31 61 3c 54 69 |. !ARMcount1a<Ti|
00002690 6d 65 54 61 6b 65 6e 31 61 20 54 69 6d 65 54 61 |meTaken1a TimeTa|
000026a0 6b 65 6e 31 61 3d 21 41 52 4d 63 6f 75 6e 74 31 |ken1a=!ARMcount1|
000026b0 61 0d 0e 4c 31 e7 20 21 41 52 4d 63 6f 75 6e 74 |a..L1. !ARMcount|
000026c0 32 3c 54 69 6d 65 54 61 6b 65 6e 32 20 54 69 6d |2<TimeTaken2 Tim|
000026d0 65 54 61 6b 65 6e 32 3d 21 41 52 4d 63 6f 75 6e |eTaken2=!ARMcoun|
000026e0 74 32 0d 0e 56 31 e7 20 21 41 52 4d 63 6f 75 6e |t2..V1. !ARMcoun|
000026f0 74 33 3c 54 69 6d 65 54 61 6b 65 6e 33 20 54 69 |t3<TimeTaken3 Ti|
00002700 6d 65 54 61 6b 65 6e 33 3d 21 41 52 4d 63 6f 75 |meTaken3=!ARMcou|
00002710 6e 74 33 0d 0e 60 31 e7 20 21 41 52 4d 63 6f 75 |nt3..`1. !ARMcou|
00002720 6e 74 34 3c 54 69 6d 65 54 61 6b 65 6e 34 20 54 |nt4<TimeTaken4 T|
00002730 69 6d 65 54 61 6b 65 6e 34 3d 21 41 52 4d 63 6f |imeTaken4=!ARMco|
00002740 75 6e 74 34 0d 0e 6a 35 e7 20 21 41 52 4d 63 6f |unt4..j5. !ARMco|
00002750 75 6e 74 31 4c 3c 54 69 6d 65 54 61 6b 65 6e 31 |unt1L<TimeTaken1|
00002760 4c 20 54 69 6d 65 54 61 6b 65 6e 31 4c 3d 21 41 |L TimeTaken1L=!A|
00002770 52 4d 63 6f 75 6e 74 31 4c 0d 0e 74 39 e7 20 21 |RMcount1L..t9. !|
00002780 41 52 4d 63 6f 75 6e 74 31 61 4c 3c 54 69 6d 65 |ARMcount1aL<Time|
00002790 54 61 6b 65 6e 31 61 4c 20 54 69 6d 65 54 61 6b |Taken1aL TimeTak|
000027a0 65 6e 31 61 4c 3d 21 41 52 4d 63 6f 75 6e 74 31 |en1aL=!ARMcount1|
000027b0 61 4c 0d 0e 7e 35 e7 20 21 41 52 4d 63 6f 75 6e |aL..~5. !ARMcoun|
000027c0 74 32 4c 3c 54 69 6d 65 54 61 6b 65 6e 32 4c 20 |t2L<TimeTaken2L |
000027d0 54 69 6d 65 54 61 6b 65 6e 32 4c 3d 21 41 52 4d |TimeTaken2L=!ARM|
000027e0 63 6f 75 6e 74 32 4c 0d 0e 88 35 e7 20 21 41 52 |count2L...5. !AR|
000027f0 4d 63 6f 75 6e 74 33 4c 3c 54 69 6d 65 54 61 6b |Mcount3L<TimeTak|
00002800 65 6e 33 4c 20 54 69 6d 65 54 61 6b 65 6e 33 4c |en3L TimeTaken3L|
00002810 3d 21 41 52 4d 63 6f 75 6e 74 33 4c 0d 0e 92 35 |=!ARMcount3L...5|
00002820 e7 20 21 41 52 4d 63 6f 75 6e 74 34 4c 3c 54 69 |. !ARMcount4L<Ti|
00002830 6d 65 54 61 6b 65 6e 34 4c 20 54 69 6d 65 54 61 |meTaken4L TimeTa|
00002840 6b 65 6e 34 4c 3d 21 41 52 4d 63 6f 75 6e 74 34 |ken4L=!ARMcount4|
00002850 4c 0d 0e 9c 05 ed 0d 0e a6 04 0d 0e b0 20 4f 6e |L............ On|
00002860 65 43 6c 6f 63 6b 54 69 63 6b 3d 28 31 2f 31 30 |eClockTick=(1/10|
00002870 30 29 2f 21 74 69 6d 65 72 30 0d 0e ba 04 0d 0e |0)/!timer0......|
00002880 c4 17 f4 20 2a 2a 20 52 41 4d 2f 52 4f 4d 20 53 |... ** RAM/ROM S|
00002890 70 65 65 64 73 0d 0e ce 2f 52 41 4d 53 70 65 65 |peeds.../RAMSpee|
000028a0 64 3d 31 30 45 38 2f 28 28 26 46 46 46 46 20 80 |d=10E8/((&FFFF .|
000028b0 20 28 21 72 61 6d 73 70 65 65 64 25 29 29 2a 31 | (!ramspeed%))*1|
000028c0 30 30 30 29 0d 0e d8 4a 4d 65 6d 6f 72 79 42 61 |000)...JMemoryBa|
000028d0 6e 64 77 69 64 74 68 3d 28 31 2f 28 52 41 4d 53 |ndwidth=(1/(RAMS|
000028e0 70 65 65 64 2a 31 30 45 2d 31 30 29 29 2a 33 2e |peed*10E-10))*3.|
000028f0 32 20 3a 20 f4 20 6f 6e 65 20 4e 2d 63 79 63 6c |2 : . one N-cycl|
00002900 65 20 2b 20 33 20 53 2d 63 79 63 6c 65 73 0d 0e |e + 3 S-cycles..|
00002910 e2 18 4d 45 4d 43 53 74 61 74 65 25 3d a4 52 65 |..MEMCState%=.Re|
00002920 61 64 4d 45 4d 43 0d 0e ec 1e c8 8e 20 28 4d 45 |adMEMC...... (ME|
00002930 4d 43 53 74 61 74 65 25 3e 3e 36 29 20 80 20 25 |MCState%>>6) . %|
00002940 31 31 20 ca 0d 0e f6 1a 20 20 c9 20 25 30 30 3a |11 ..... . %00:|
00002950 48 69 67 68 52 4f 4d 53 70 65 65 64 3d 34 0d 0f |HighROMSpeed=4..|
00002960 00 1a 20 20 c9 20 25 30 31 3a 48 69 67 68 52 4f |.. . %01:HighRO|
00002970 4d 53 70 65 65 64 3d 33 0d 0f 0a 1a 20 20 c9 20 |MSpeed=3.... . |
00002980 25 31 30 3a 48 69 67 68 52 4f 4d 53 70 65 65 64 |%10:HighROMSpeed|
00002990 3d 32 0d 0f 14 1a 20 20 c9 20 25 31 31 3a 48 69 |=2.... . %11:Hi|
000029a0 67 68 52 4f 4d 53 70 65 65 64 3d 31 0d 0f 1e 05 |ghROMSpeed=1....|
000029b0 cb 0d 0f 28 1e c8 8e 20 28 4d 45 4d 43 53 74 61 |...(... (MEMCSta|
000029c0 74 65 25 3e 3e 34 29 20 80 20 25 31 31 20 ca 0d |te%>>4) . %11 ..|
000029d0 0f 32 19 20 20 c9 20 25 30 30 3a 4c 6f 77 52 4f |.2. . %00:LowRO|
000029e0 4d 53 70 65 65 64 3d 34 0d 0f 3c 19 20 20 c9 20 |MSpeed=4..<. . |
000029f0 25 30 31 3a 4c 6f 77 52 4f 4d 53 70 65 65 64 3d |%01:LowROMSpeed=|
00002a00 33 0d 0f 46 19 20 20 c9 20 25 31 30 3a 4c 6f 77 |3..F. . %10:Low|
00002a10 52 4f 4d 53 70 65 65 64 3d 32 0d 0f 50 19 20 20 |ROMSpeed=2..P. |
00002a20 c9 20 25 31 31 3a 4c 6f 77 52 4f 4d 53 70 65 65 |. %11:LowROMSpee|
00002a30 64 3d 31 0d 0f 5a 05 cb 0d 0f 64 04 0d 0f 6e 26 |d=1..Z....d...n&|
00002a40 44 52 41 4d 52 65 66 72 65 73 68 25 3d 28 4d 45 |DRAMRefresh%=(ME|
00002a50 4d 43 53 74 61 74 65 25 3e 3e 38 29 20 80 20 25 |MCState%>>8) . %|
00002a60 31 31 0d 0f 78 15 c8 8e 20 44 52 41 4d 52 65 66 |11..x... DRAMRef|
00002a70 72 65 73 68 25 20 ca 0d 0f 82 1b 20 20 c9 20 25 |resh% ..... . %|
00002a80 30 30 3a 44 52 41 4d 42 61 6e 64 77 69 64 74 68 |00:DRAMBandwidth|
00002a90 3d 30 0d 0f 8c 3f 20 20 c9 20 25 30 31 3a 44 52 |=0...? . %01:DR|
00002aa0 41 4d 42 61 6e 64 77 69 64 74 68 3d 28 28 28 31 |AMBandwidth=(((1|
00002ab0 2f 34 45 2d 36 29 2f 35 30 29 2a 34 29 2a 31 30 |/4E-6)/50)*4)*10|
00002ac0 30 2f 4d 65 6d 6f 72 79 42 61 6e 64 77 69 64 74 |0/MemoryBandwidt|
00002ad0 68 0d 0f 96 1b 20 20 c9 20 25 31 30 3a 44 52 41 |h.... . %10:DRA|
00002ae0 4d 42 61 6e 64 77 69 64 74 68 3d 30 0d 0f a0 3a |MBandwidth=0...:|
00002af0 20 20 c9 20 25 31 31 3a 44 52 41 4d 42 61 6e 64 | . %11:DRAMBand|
00002b00 77 69 64 74 68 3d 28 28 31 2f 34 45 2d 36 29 2a |width=((1/4E-6)*|
00002b10 34 29 2a 31 30 30 2f 4d 65 6d 6f 72 79 42 61 6e |4)*100/MemoryBan|
00002b20 64 77 69 64 74 68 0d 0f aa 05 cb 0d 0f b4 04 0d |dwidth..........|
00002b30 0f be 0e 45 25 3d a3 3a 45 31 25 3d a3 0d 0f c8 |...E%=.:E1%=....|
00002b40 04 0d 0f d2 1b f4 20 2a 2a 20 43 61 6c 63 75 6c |...... ** Calcul|
00002b50 61 74 65 20 46 50 20 73 74 75 66 66 0d 0f dc 15 |ate FP stuff....|
00002b60 21 46 50 55 74 69 6d 65 72 3d 21 74 69 6d 65 72 |!FPUtimer=!timer|
00002b70 30 0d 0f e6 3f 5a 25 3d 30 3a c8 95 20 46 50 55 |0...?Z%=0:.. FPU|
00002b80 72 65 73 75 6c 74 73 21 28 5a 25 2a 31 32 29 3c |results!(Z%*12)<|
00002b90 3e 2d 31 3a 46 50 55 72 65 73 75 6c 74 73 21 28 |>-1:FPUresults!(|
00002ba0 5a 25 2a 31 32 29 3d 30 3a 5a 25 2b 3d 31 3a ce |Z%*12)=0:Z%+=1:.|
00002bb0 0d 0f f0 1c e7 20 63 61 6c 63 46 50 55 25 20 80 |..... calcFPU% .|
00002bc0 20 a4 66 70 75 66 6f 75 6e 64 20 8c 0d 0f fa 10 | .fpufound .....|
00002bd0 20 20 e3 20 41 25 3d 31 20 b8 20 32 0d 10 04 11 | . A%=1 . 2....|
00002be0 20 20 20 20 d6 20 63 61 6c 63 46 50 55 0d 10 0e | . calcFPU...|
00002bf0 07 20 20 ed 0d 10 18 05 cc 0d 10 22 21 20 20 e7 |. ........"! .|
00002c00 20 63 61 6c 63 46 50 55 25 20 45 31 25 3d b9 3a | calcFPU% E1%=.:|
00002c10 63 61 6c 63 46 50 55 25 3d a3 0d 10 2c 05 cd 0d |calcFPU%=...,...|
00002c20 10 36 32 c8 99 20 22 4f 53 5f 43 68 61 6e 67 65 |.62.. "OS_Change|
00002c30 45 6e 76 69 72 6f 6e 6d 65 6e 74 22 2c 31 2c 70 |Environment",1,p|
00002c40 61 64 64 72 25 2c 70 72 31 32 25 2c 70 62 75 66 |addr%,pr12%,pbuf|
00002c50 25 0d 10 40 04 0d 10 4a 2c f4 20 2a 2a 20 69 2c |%..@...J,. ** i,|
00002c60 73 20 26 20 6e 2d 63 79 63 6c 65 73 20 28 66 6f |s & n-cycles (fo|
00002c70 72 20 2a 62 61 73 65 2a 20 6d 61 63 68 69 6e 65 |r *base* machine|
00002c80 29 0d 10 54 15 69 3d 31 32 35 3a 73 3d 31 32 35 |)..T.i=125:s=125|
00002c90 3a 6e 3d 32 35 30 0d 10 5e 04 0d 10 68 0e 21 4d |:n=250..^...h.!M|
00002ca0 43 63 6f 75 6e 74 3d 30 0d 10 72 10 42 41 53 49 |Ccount=0..r.BASI|
00002cb0 43 63 6f 75 6e 74 3d 30 0d 10 7c 0e 44 48 52 59 |Ccount=0..|.DHRY|
00002cc0 6d 73 65 63 3d 30 0d 10 86 0f 44 48 52 59 76 61 |msec=0....DHRYva|
00002cd0 6c 75 65 3d 30 0d 10 90 04 0d 10 9a 10 f4 20 2a |lue=0......... *|
00002ce0 2a 20 4d 43 20 63 61 6c 63 0d 10 a4 16 e7 20 63 |* MC calc..... c|
00002cf0 61 6c 63 4d 43 25 20 d6 20 63 61 6c 63 4d 43 0d |alcMC% . calcMC.|
00002d00 10 ae 04 0d 10 b8 24 f4 20 2a 2a 20 42 41 53 49 |......$. ** BASI|
00002d10 43 20 63 61 6c 63 20 28 61 20 62 69 74 20 73 69 |C calc (a bit si|
00002d20 6d 70 6c 65 21 21 29 0d 10 c2 33 e7 20 63 61 6c |mple!!)...3. cal|
00002d30 63 42 41 53 49 43 25 20 c8 96 3a d1 3d 30 3a e3 |cBASIC% ..:.=0:.|
00002d40 41 25 3d 30 b8 31 30 30 30 30 30 3a ed 3a 42 41 |A%=0.100000:.:BA|
00002d50 53 49 43 63 6f 75 6e 74 3d 91 0d 10 cc 04 0d 10 |SICcount=.......|
00002d60 d6 20 f4 20 2a 2a 20 56 69 64 65 6f 20 72 65 66 |. . ** Video ref|
00002d70 72 65 73 68 20 72 61 74 65 2c 20 65 74 63 0d 10 |resh rate, etc..|
00002d80 e0 2f c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 |./.. "OS_ReadMod|
00002d90 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 31 31 |eVariable",-1,11|
00002da0 20 b8 20 2c 2c 78 25 3a 78 25 2b 3d 31 0d 10 ea | . ,,x%:x%+=1...|
00002db0 2f c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 |/.. "OS_ReadMode|
00002dc0 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 31 32 20 |Variable",-1,12 |
00002dd0 b8 20 2c 2c 79 25 3a 79 25 2b 3d 31 0d 10 f4 3f |. ,,y%:y%+=1...?|
00002de0 c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |.. "OS_ReadModeV|
00002df0 61 72 69 61 62 6c 65 22 2c 2d 31 2c 33 20 b8 20 |ariable",-1,3 . |
00002e00 2c 2c 62 70 70 25 3a e7 20 62 70 70 25 3d 36 33 |,,bpp%:. bpp%=63|
00002e10 20 8c 20 62 70 70 25 3d 32 35 35 0d 10 fe 1d 62 | . bpp%=255....b|
00002e20 70 70 25 2b 3d 31 3a 62 70 70 25 3d ab 28 62 70 |pp%+=1:bpp%=.(bp|
00002e30 70 25 29 2f ab 28 32 29 0d 11 08 34 d1 3d 30 3a |p%)/.(2)...4.=0:|
00002e40 c8 96 3a e3 20 6c 25 3d 31 20 b8 20 32 30 3a c8 |..:. l%=1 . 20:.|
00002e50 96 3a c8 96 3a c8 96 3a c8 96 3a ed 3a 68 7a 25 |.:..:..:..:.:hz%|
00002e60 3d 28 38 30 2f 91 29 2a 31 30 30 30 0d 11 12 2b |=(80/.)*1000...+|
00002e70 c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |.. "OS_ReadModeV|
00002e80 61 72 69 61 62 6c 65 22 2c 2d 31 2c 37 20 b8 20 |ariable",-1,7 . |
00002e90 2c 2c 73 69 7a 65 25 0d 11 1c 23 62 61 6e 64 25 |,,size%...#band%|
00002ea0 3d 28 73 69 7a 65 25 2a 28 68 7a 25 2f 31 30 29 |=(size%*(hz%/10)|
00002eb0 29 2f 31 30 34 38 35 37 2e 36 0d 11 26 90 56 49 |)/104857.6..&.VI|
00002ec0 44 45 4f 73 74 72 24 3d 22 4d 6f 64 65 20 22 2b |DEOstr$="Mode "+|
00002ed0 c3 28 6d 6f 64 65 25 29 2b 22 20 28 22 2b c3 78 |.(mode%)+" ("+.x|
00002ee0 25 2b 22 78 22 2b c3 79 25 2b 22 2c 20 22 2b c3 |%+"x"+.y%+", "+.|
00002ef0 62 70 70 25 2b 22 20 62 70 70 2c 20 22 2b c3 28 |bpp%+" bpp, "+.(|
00002f00 68 7a 25 20 81 20 31 30 29 2b 22 2e 22 2b c3 28 |hz% . 10)+"."+.(|
00002f10 68 7a 25 20 83 20 31 30 29 2b 22 20 48 7a 2c 20 |hz% . 10)+" Hz, |
00002f20 22 2b c3 28 62 61 6e 64 25 20 81 20 31 30 29 2b |"+.(band% . 10)+|
00002f30 22 2e 22 2b c3 28 62 61 6e 64 25 20 83 20 31 30 |"."+.(band% . 10|
00002f40 29 2b 22 20 4d 62 2f 53 29 22 0d 11 30 04 0d 11 |)+" Mb/S)"..0...|
00002f50 3a 34 f4 20 52 65 63 61 6c 63 20 44 52 41 4d 42 |:4. Recalc DRAMB|
00002f60 61 6e 64 77 69 64 74 68 20 75 73 69 6e 67 20 73 |andwidth using s|
00002f70 63 72 65 65 6e 20 72 65 66 72 65 73 68 20 72 61 |creen refresh ra|
00002f80 74 65 0d 11 44 15 c8 8e 20 44 52 41 4d 52 65 66 |te..D... DRAMRef|
00002f90 72 65 73 68 25 20 ca 0d 11 4e 1b 20 20 c9 20 25 |resh% ...N. . %|
00002fa0 30 30 3a 44 52 41 4d 42 61 6e 64 77 69 64 74 68 |00:DRAMBandwidth|
00002fb0 3d 30 0d 11 58 45 20 20 c9 20 25 30 31 3a 44 52 |=0..XE . %01:DR|
00002fc0 41 4d 42 61 6e 64 77 69 64 74 68 3d 28 28 28 31 |AMBandwidth=(((1|
00002fd0 2f 34 45 2d 36 29 2f 28 68 7a 25 2f 31 30 29 29 |/4E-6)/(hz%/10))|
00002fe0 2a 34 29 2a 31 30 30 2f 4d 65 6d 6f 72 79 42 61 |*4)*100/MemoryBa|
00002ff0 6e 64 77 69 64 74 68 0d 11 62 1b 20 20 c9 20 25 |ndwidth..b. . %|
00003000 31 30 3a 44 52 41 4d 42 61 6e 64 77 69 64 74 68 |10:DRAMBandwidth|
00003010 3d 30 0d 11 6c 3a 20 20 c9 20 25 31 31 3a 44 52 |=0..l: . %11:DR|
00003020 41 4d 42 61 6e 64 77 69 64 74 68 3d 28 28 31 2f |AMBandwidth=((1/|
00003030 34 45 2d 36 29 2a 34 29 2a 31 30 30 2f 4d 65 6d |4E-6)*4)*100/Mem|
00003040 6f 72 79 42 61 6e 64 77 69 64 74 68 0d 11 76 05 |oryBandwidth..v.|
00003050 cb 0d 11 80 04 0d 11 8a 17 f4 20 2a 2a 20 44 68 |.......... ** Dh|
00003060 72 79 73 74 6f 6e 65 20 63 61 6c 63 0d 11 94 11 |rystone calc....|
00003070 e7 20 63 61 6c 63 44 48 52 59 25 20 8c 0d 11 9e |. calcDHRY% ....|
00003080 1f 20 20 ff 20 22 55 6e 53 65 74 20 41 72 6d 53 |. . "UnSet ArmS|
00003090 49 24 44 68 72 79 73 74 6f 6e 65 22 0d 11 a8 3e |I$Dhrystone"...>|
000030a0 20 20 c8 99 20 22 58 57 69 6d 70 5f 53 74 61 72 | .. "XWimp_Star|
000030b0 74 54 61 73 6b 22 2c 20 22 3c 41 72 6d 53 49 24 |tTask", "<ArmSI$|
000030c0 44 69 72 3e 2e 52 65 73 6f 75 72 63 65 73 2e 44 |Dir>.Resources.D|
000030d0 68 72 79 73 74 6f 6e 65 73 22 0d 11 b2 4b 20 20 |hrystones"...K |
000030e0 c8 99 20 22 58 4f 53 5f 52 65 61 64 56 61 72 56 |.. "XOS_ReadVarV|
000030f0 61 6c 22 2c 22 41 72 6d 53 49 24 44 68 72 79 73 |al","ArmSI$Dhrys|
00003100 74 6f 6e 65 22 2c 70 74 72 31 25 2c 33 32 2b 28 |tone",ptr1%,32+(|
00003110 31 3c 3c 33 31 29 2c 30 2c 30 20 b8 20 2c 2c 65 |1<<31),0,0 . ,,e|
00003120 78 69 73 74 25 0d 11 bc 12 20 20 e7 20 65 78 69 |xist%.... . exi|
00003130 73 74 25 3d 30 20 8c 0d 11 c6 13 20 20 20 20 44 |st%=0 ..... D|
00003140 48 52 59 6d 73 65 63 3d 2d 31 0d 11 d0 14 20 20 |HRYmsec=-1.... |
00003150 20 20 44 48 52 59 76 61 6c 75 65 3d 2d 31 0d 11 | DHRYvalue=-1..|
00003160 da 07 20 20 cc 0d 11 e4 39 20 20 20 20 c8 99 20 |.. ....9 .. |
00003170 22 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c |"OS_ReadVarVal",|
00003180 22 41 72 6d 53 49 24 44 68 72 79 73 74 6f 6e 65 |"ArmSI$Dhrystone|
00003190 22 2c 70 74 72 31 25 2c 33 32 2c 30 2c 30 0d 11 |",ptr1%,32,0,0..|
000031a0 ee 1d 20 20 20 20 74 65 6d 70 24 3d a4 67 65 74 |.. temp$=.get|
000031b0 6e 61 6d 65 28 70 74 72 31 25 29 0d 11 f8 19 20 |name(ptr1%).... |
000031c0 20 20 20 44 48 52 59 6d 73 65 63 3d bb 28 74 65 | DHRYmsec=.(te|
000031d0 6d 70 24 29 0d 12 02 21 20 20 20 20 74 65 6d 70 |mp$)...! temp|
000031e0 24 3d c1 74 65 6d 70 24 2c a7 74 65 6d 70 24 2c |$=.temp$,.temp$,|
000031f0 22 20 22 29 29 0d 12 0c 1a 20 20 20 20 44 48 52 |" ")).... DHR|
00003200 59 76 61 6c 75 65 3d bb 28 74 65 6d 70 24 29 0d |Yvalue=.(temp$).|
00003210 12 16 07 20 20 cd 0d 12 20 05 cd 0d 12 2a 04 0d |... ... ....*..|
00003220 12 34 25 f4 20 2a 2a 20 54 75 72 6e 20 62 61 63 |.4%. ** Turn bac|
00003230 6b 20 6f 6e 20 56 69 64 65 6f 2f 73 6f 75 6e 64 |k on Video/sound|
00003240 20 44 4d 41 0d 12 3e 13 e7 20 56 69 64 65 6f 44 | DMA..>.. VideoD|
00003250 4d 41 25 3d a3 20 8c 0d 12 48 08 20 20 c8 96 0d |MA%=. ...H. ...|
00003260 12 52 24 20 20 f2 55 70 64 61 74 65 4d 45 4d 43 |.R$ .UpdateMEMC|
00003270 28 6f 6c 64 6d 65 6d 63 25 2c 25 31 31 31 31 3c |(oldmemc%,%1111<|
00003280 3c 38 29 0d 12 5c 41 20 20 ef 31 39 2c 30 2c 43 |<8)..\A .19,0,C|
00003290 25 20 80 20 26 46 46 2c 28 43 25 3e 3e 38 20 80 |% . &FF,(C%>>8 .|
000032a0 20 26 46 46 29 2c 28 43 25 3e 3e 31 36 20 80 20 | &FF),(C%>>16 . |
000032b0 26 46 46 29 2c 28 43 25 3e 3e 32 34 20 80 20 26 |&FF),(C%>>24 . &|
000032c0 46 46 29 3b 0d 12 66 05 cc 0d 12 70 18 20 20 c8 |FF);..f....p. .|
000032d0 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 |. "Hourglass_Off|
000032e0 22 0d 12 7a 05 cd 0d 12 84 04 0d 12 8e 2c 49 6e |"..z.........,In|
000032f0 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 3d 28 |structionTime1=(|
00003300 73 2a 49 6e 73 74 72 75 63 74 69 6f 6e 73 29 2a |s*Instructions)*|
00003310 31 30 45 2d 31 30 0d 12 98 34 49 6e 73 74 72 75 |10E-10...4Instru|
00003320 63 74 69 6f 6e 54 69 6d 65 31 61 3d 28 28 73 2b |ctionTime1a=((s+|
00003330 31 36 2a 69 29 2a 49 6e 73 74 72 75 63 74 69 6f |16*i)*Instructio|
00003340 6e 73 29 2a 31 30 45 2d 31 30 0d 12 a2 3a 49 6e |ns)*10E-10...:In|
00003350 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 32 3d 28 |structionTime2=(|
00003360 28 73 2b 6e 2b 69 2b 32 2a 6e 29 2a 28 49 6e 73 |(s+n+i+2*n)*(Ins|
00003370 74 72 75 63 74 69 6f 6e 73 2f 32 29 29 2a 31 30 |tructions/2))*10|
00003380 45 2d 31 30 0d 12 ac 40 49 6e 73 74 72 75 63 74 |E-10...@Instruct|
00003390 69 6f 6e 54 69 6d 65 33 3d 28 28 37 2a 73 2b 6e |ionTime3=((7*s+n|
000033a0 2b 69 2b 73 2a 36 2b 32 2a 6e 29 2a 28 49 6e 73 |+i+s*6+2*n)*(Ins|
000033b0 74 72 75 63 74 69 6f 6e 73 2f 32 29 29 2a 31 30 |tructions/2))*10|
000033c0 45 2d 31 30 0d 12 b6 32 49 6e 73 74 72 75 63 74 |E-10...2Instruct|
000033d0 69 6f 6e 54 69 6d 65 34 3d 28 28 32 2a 73 2b 6e |ionTime4=((2*s+n|
000033e0 29 2a 49 6e 73 74 72 75 63 74 69 6f 6e 73 29 2a |)*Instructions)*|
000033f0 31 30 45 2d 31 30 0d 12 c0 33 49 6e 73 74 72 75 |10E-10...3Instru|
00003400 63 74 69 6f 6e 54 69 6d 65 31 4c 3d 28 28 34 2a |ctionTime1L=((4*|
00003410 73 2b 6e 29 2a 49 6e 73 74 72 75 63 74 69 6f 6e |s+n)*Instruction|
00003420 73 29 2a 31 30 45 2d 31 30 0d 12 ca 39 49 6e 73 |s)*10E-10...9Ins|
00003430 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 61 4c 3d |tructionTime1aL=|
00003440 28 28 34 2a 73 2b 6e 2b 31 36 2a 69 29 2a 49 6e |((4*s+n+16*i)*In|
00003450 73 74 72 75 63 74 69 6f 6e 73 29 2a 31 30 45 2d |structions)*10E-|
00003460 31 30 0d 12 d4 3b 49 6e 73 74 72 75 63 74 69 6f |10...;Instructio|
00003470 6e 54 69 6d 65 32 4c 3d 28 28 34 2a 73 2b 34 2a |nTime2L=((4*s+4*|
00003480 6e 2b 69 29 2a 28 49 6e 73 74 72 75 63 74 69 6f |n+i)*(Instructio|
00003490 6e 73 2f 32 29 29 2a 31 30 45 2d 31 30 0d 12 de |ns/2))*10E-10...|
000034a0 3c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 |<InstructionTime|
000034b0 33 4c 3d 28 28 31 36 2a 73 2b 34 2a 6e 2b 69 29 |3L=((16*s+4*n+i)|
000034c0 2a 28 49 6e 73 74 72 75 63 74 69 6f 6e 73 2f 32 |*(Instructions/2|
000034d0 29 29 2a 31 30 45 2d 31 30 0d 12 e8 35 49 6e 73 |))*10E-10...5Ins|
000034e0 74 72 75 63 74 69 6f 6e 54 69 6d 65 34 4c 3d 28 |tructionTime4L=(|
000034f0 28 35 2a 73 2b 32 2a 6e 29 2a 49 6e 73 74 72 75 |(5*s+2*n)*Instru|
00003500 63 74 69 6f 6e 73 29 2a 31 30 45 2d 31 30 0d 12 |ctions)*10E-10..|
00003510 f2 04 0d 12 fc 30 54 69 6d 65 54 61 6b 65 6e 31 |.....0TimeTaken1|
00003520 3d 28 21 74 69 6d 65 72 30 2d 54 69 6d 65 54 61 |=(!timer0-TimeTa|
00003530 6b 65 6e 31 29 2a 4f 6e 65 43 6c 6f 63 6b 54 69 |ken1)*OneClockTi|
00003540 63 6b 0d 13 06 32 54 69 6d 65 54 61 6b 65 6e 31 |ck...2TimeTaken1|
00003550 61 3d 28 21 74 69 6d 65 72 30 2d 54 69 6d 65 54 |a=(!timer0-TimeT|
00003560 61 6b 65 6e 31 61 29 2a 4f 6e 65 43 6c 6f 63 6b |aken1a)*OneClock|
00003570 54 69 63 6b 0d 13 10 30 54 69 6d 65 54 61 6b 65 |Tick...0TimeTake|
00003580 6e 32 3d 28 21 74 69 6d 65 72 30 2d 54 69 6d 65 |n2=(!timer0-Time|
00003590 54 61 6b 65 6e 32 29 2a 4f 6e 65 43 6c 6f 63 6b |Taken2)*OneClock|
000035a0 54 69 63 6b 0d 13 1a 30 54 69 6d 65 54 61 6b 65 |Tick...0TimeTake|
000035b0 6e 33 3d 28 21 74 69 6d 65 72 30 2d 54 69 6d 65 |n3=(!timer0-Time|
000035c0 54 61 6b 65 6e 33 29 2a 4f 6e 65 43 6c 6f 63 6b |Taken3)*OneClock|
000035d0 54 69 63 6b 0d 13 24 30 54 69 6d 65 54 61 6b 65 |Tick..$0TimeTake|
000035e0 6e 34 3d 28 21 74 69 6d 65 72 30 2d 54 69 6d 65 |n4=(!timer0-Time|
000035f0 54 61 6b 65 6e 34 29 2a 4f 6e 65 43 6c 6f 63 6b |Taken4)*OneClock|
00003600 54 69 63 6b 0d 13 2e 32 54 69 6d 65 54 61 6b 65 |Tick...2TimeTake|
00003610 6e 31 4c 3d 28 21 74 69 6d 65 72 30 2d 54 69 6d |n1L=(!timer0-Tim|
00003620 65 54 61 6b 65 6e 31 4c 29 2a 4f 6e 65 43 6c 6f |eTaken1L)*OneClo|
00003630 63 6b 54 69 63 6b 0d 13 38 34 54 69 6d 65 54 61 |ckTick..84TimeTa|
00003640 6b 65 6e 31 61 4c 3d 28 21 74 69 6d 65 72 30 2d |ken1aL=(!timer0-|
00003650 54 69 6d 65 54 61 6b 65 6e 31 61 4c 29 2a 4f 6e |TimeTaken1aL)*On|
00003660 65 43 6c 6f 63 6b 54 69 63 6b 0d 13 42 32 54 69 |eClockTick..B2Ti|
00003670 6d 65 54 61 6b 65 6e 32 4c 3d 28 21 74 69 6d 65 |meTaken2L=(!time|
00003680 72 30 2d 54 69 6d 65 54 61 6b 65 6e 32 4c 29 2a |r0-TimeTaken2L)*|
00003690 4f 6e 65 43 6c 6f 63 6b 54 69 63 6b 0d 13 4c 32 |OneClockTick..L2|
000036a0 54 69 6d 65 54 61 6b 65 6e 33 4c 3d 28 21 74 69 |TimeTaken3L=(!ti|
000036b0 6d 65 72 30 2d 54 69 6d 65 54 61 6b 65 6e 33 4c |mer0-TimeTaken3L|
000036c0 29 2a 4f 6e 65 43 6c 6f 63 6b 54 69 63 6b 0d 13 |)*OneClockTick..|
000036d0 56 32 54 69 6d 65 54 61 6b 65 6e 34 4c 3d 28 21 |V2TimeTaken4L=(!|
000036e0 74 69 6d 65 72 30 2d 54 69 6d 65 54 61 6b 65 6e |timer0-TimeTaken|
000036f0 34 4c 29 2a 4f 6e 65 43 6c 6f 63 6b 54 69 63 6b |4L)*OneClockTick|
00003700 0d 13 60 04 0d 13 6a 30 4d 49 50 53 31 3d a8 28 |..`...j0MIPS1=.(|
00003710 28 49 6e 73 74 72 75 63 74 69 6f 6e 73 2f 54 69 |(Instructions/Ti|
00003720 6d 65 54 61 6b 65 6e 31 29 2f 31 30 30 30 30 29 |meTaken1)/10000)|
00003730 2f 31 30 30 0d 13 74 32 4d 49 50 53 31 61 3d a8 |/100..t2MIPS1a=.|
00003740 28 28 49 6e 73 74 72 75 63 74 69 6f 6e 73 2f 54 |((Instructions/T|
00003750 69 6d 65 54 61 6b 65 6e 31 61 29 2f 31 30 30 30 |imeTaken1a)/1000|
00003760 30 29 2f 31 30 30 0d 13 7e 30 4d 49 50 53 32 3d |0)/100..~0MIPS2=|
00003770 a8 28 28 49 6e 73 74 72 75 63 74 69 6f 6e 73 2f |.((Instructions/|
00003780 54 69 6d 65 54 61 6b 65 6e 32 29 2f 31 30 30 30 |TimeTaken2)/1000|
00003790 30 29 2f 31 30 30 0d 13 88 30 4d 49 50 53 33 3d |0)/100...0MIPS3=|
000037a0 a8 28 28 49 6e 73 74 72 75 63 74 69 6f 6e 73 2f |.((Instructions/|
000037b0 54 69 6d 65 54 61 6b 65 6e 33 29 2f 31 30 30 30 |TimeTaken3)/1000|
000037c0 30 29 2f 31 30 30 0d 13 92 30 4d 49 50 53 34 3d |0)/100...0MIPS4=|
000037d0 a8 28 28 49 6e 73 74 72 75 63 74 69 6f 6e 73 2f |.((Instructions/|
000037e0 54 69 6d 65 54 61 6b 65 6e 34 29 2f 31 30 30 30 |TimeTaken4)/1000|
000037f0 30 29 2f 31 30 30 0d 13 9c 04 0d 13 a6 31 49 6e |0)/100.......1In|
00003800 64 65 78 31 3d a8 28 49 6e 73 74 72 75 63 74 69 |dex1=.(Instructi|
00003810 6f 6e 54 69 6d 65 31 2f 54 69 6d 65 54 61 6b 65 |onTime1/TimeTake|
00003820 6e 31 2a 31 30 30 29 2f 31 30 30 0d 13 b0 34 49 |n1*100)/100...4I|
00003830 6e 64 65 78 31 61 3d a8 28 49 6e 73 74 72 75 63 |ndex1a=.(Instruc|
00003840 74 69 6f 6e 54 69 6d 65 31 61 2f 54 69 6d 65 54 |tionTime1a/TimeT|
00003850 61 6b 65 6e 31 61 2a 31 30 30 29 2f 31 30 30 0d |aken1a*100)/100.|
00003860 13 ba 31 49 6e 64 65 78 32 3d a8 28 49 6e 73 74 |..1Index2=.(Inst|
00003870 72 75 63 74 69 6f 6e 54 69 6d 65 32 2f 54 69 6d |ructionTime2/Tim|
00003880 65 54 61 6b 65 6e 32 2a 31 30 30 29 2f 31 30 30 |eTaken2*100)/100|
00003890 0d 13 c4 31 49 6e 64 65 78 33 3d a8 28 49 6e 73 |...1Index3=.(Ins|
000038a0 74 72 75 63 74 69 6f 6e 54 69 6d 65 33 2f 54 69 |tructionTime3/Ti|
000038b0 6d 65 54 61 6b 65 6e 33 2a 31 30 30 29 2f 31 30 |meTaken3*100)/10|
000038c0 30 0d 13 ce 31 49 6e 64 65 78 34 3d a8 28 49 6e |0...1Index4=.(In|
000038d0 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 34 2f 54 |structionTime4/T|
000038e0 69 6d 65 54 61 6b 65 6e 34 2a 31 30 30 29 2f 31 |imeTaken4*100)/1|
000038f0 30 30 0d 13 d8 34 49 6e 64 65 78 31 4c 3d a8 28 |00...4Index1L=.(|
00003900 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 |InstructionTime1|
00003910 4c 2f 54 69 6d 65 54 61 6b 65 6e 31 4c 2a 31 30 |L/TimeTaken1L*10|
00003920 30 29 2f 31 30 30 0d 13 e2 37 49 6e 64 65 78 31 |0)/100...7Index1|
00003930 61 4c 3d a8 28 49 6e 73 74 72 75 63 74 69 6f 6e |aL=.(Instruction|
00003940 54 69 6d 65 31 61 4c 2f 54 69 6d 65 54 61 6b 65 |Time1aL/TimeTake|
00003950 6e 31 61 4c 2a 31 30 30 29 2f 31 30 30 0d 13 ec |n1aL*100)/100...|
00003960 34 49 6e 64 65 78 32 4c 3d a8 28 49 6e 73 74 72 |4Index2L=.(Instr|
00003970 75 63 74 69 6f 6e 54 69 6d 65 32 4c 2f 54 69 6d |uctionTime2L/Tim|
00003980 65 54 61 6b 65 6e 32 4c 2a 31 30 30 29 2f 31 30 |eTaken2L*100)/10|
00003990 30 0d 13 f6 34 49 6e 64 65 78 33 4c 3d a8 28 49 |0...4Index3L=.(I|
000039a0 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 33 4c |nstructionTime3L|
000039b0 2f 54 69 6d 65 54 61 6b 65 6e 33 4c 2a 31 30 30 |/TimeTaken3L*100|
000039c0 29 2f 31 30 30 0d 14 00 34 49 6e 64 65 78 34 4c |)/100...4Index4L|
000039d0 3d a8 28 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 |=.(InstructionTi|
000039e0 6d 65 34 4c 2f 54 69 6d 65 54 61 6b 65 6e 34 4c |me4L/TimeTaken4L|
000039f0 2a 31 30 30 29 2f 31 30 30 0d 14 0a 04 0d 14 14 |*100)/100.......|
00003a00 2a 4d 49 50 53 31 4c 3d a8 28 4d 49 50 53 31 2f |*MIPS1L=.(MIPS1/|
00003a10 49 6e 64 65 78 31 2a 49 6e 64 65 78 31 4c 2a 31 |Index1*Index1L*1|
00003a20 30 30 29 2f 31 30 30 0d 14 1e 2e 4d 49 50 53 31 |00)/100....MIPS1|
00003a30 61 4c 3d a8 28 4d 49 50 53 31 61 2f 49 6e 64 65 |aL=.(MIPS1a/Inde|
00003a40 78 31 61 2a 49 6e 64 65 78 31 61 4c 2a 31 30 30 |x1a*Index1aL*100|
00003a50 29 2f 31 30 30 0d 14 28 2a 4d 49 50 53 32 4c 3d |)/100..(*MIPS2L=|
00003a60 a8 28 4d 49 50 53 32 2f 49 6e 64 65 78 32 2a 49 |.(MIPS2/Index2*I|
00003a70 6e 64 65 78 32 4c 2a 31 30 30 29 2f 31 30 30 0d |ndex2L*100)/100.|
00003a80 14 32 2a 4d 49 50 53 33 4c 3d a8 28 4d 49 50 53 |.2*MIPS3L=.(MIPS|
00003a90 33 2f 49 6e 64 65 78 33 2a 49 6e 64 65 78 33 4c |3/Index3*Index3L|
00003aa0 2a 31 30 30 29 2f 31 30 30 0d 14 3c 2a 4d 49 50 |*100)/100..<*MIP|
00003ab0 53 34 4c 3d a8 28 4d 49 50 53 34 2f 49 6e 64 65 |S4L=.(MIPS4/Inde|
00003ac0 78 34 2a 49 6e 64 65 78 34 4c 2a 31 30 30 29 2f |x4*Index4L*100)/|
00003ad0 31 30 30 0d 14 46 04 0d 14 50 3a 49 6e 64 65 78 |100..F...P:Index|
00003ae0 31 3d 49 6e 64 65 78 31 2f 2e 37 35 20 20 20 20 |1=Index1/.75 |
00003af0 20 20 20 3a 20 f4 20 52 65 2d 63 61 6c 69 62 72 | : . Re-calibr|
00003b00 61 74 65 20 74 6f 20 33 30 30 20 73 65 72 69 65 |ate to 300 serie|
00003b10 73 0d 14 5a 17 49 6e 64 65 78 31 61 3d 49 6e 64 |s..Z.Index1a=Ind|
00003b20 65 78 31 61 2f 2e 34 39 0d 14 64 15 49 6e 64 65 |ex1a/.49..d.Inde|
00003b30 78 32 3d 49 6e 64 65 78 32 2f 2e 38 31 0d 14 6e |x2=Index2/.81..n|
00003b40 15 49 6e 64 65 78 33 3d 49 6e 64 65 78 33 2f 2e |.Index3=Index3/.|
00003b50 37 37 0d 14 78 15 49 6e 64 65 78 34 3d 49 6e 64 |77..x.Index4=Ind|
00003b60 65 78 34 2f 2e 38 33 0d 14 82 17 49 6e 64 65 78 |ex4/.83....Index|
00003b70 31 4c 3d 49 6e 64 65 78 31 4c 2f 2e 38 30 0d 14 |1L=Index1L/.80..|
00003b80 8c 19 49 6e 64 65 78 31 61 4c 3d 49 6e 64 65 78 |..Index1aL=Index|
00003b90 31 61 4c 2f 2e 35 33 0d 14 96 17 49 6e 64 65 78 |1aL/.53....Index|
00003ba0 32 4c 3d 49 6e 64 65 78 32 4c 2f 2e 38 31 0d 14 |2L=Index2L/.81..|
00003bb0 a0 17 49 6e 64 65 78 33 4c 3d 49 6e 64 65 78 33 |..Index3L=Index3|
00003bc0 4c 2f 2e 37 38 0d 14 aa 17 49 6e 64 65 78 34 4c |L/.78....Index4L|
00003bd0 3d 49 6e 64 65 78 34 4c 2f 2e 38 34 0d 14 b4 04 |=Index4L/.84....|
00003be0 0d 14 be 13 c8 8e 20 50 72 6f 63 65 73 73 6f 72 |...... Processor|
00003bf0 25 20 ca 0d 14 c8 04 0d 14 d2 09 20 20 c9 20 31 |% ......... . 1|
00003c00 0d 14 dc 4c 20 20 20 20 49 6e 64 65 78 31 61 3d |...L Index1a=|
00003c10 30 3a 49 6e 64 65 78 31 61 4c 3d 30 3a 4d 49 50 |0:Index1aL=0:MIP|
00003c20 53 31 61 3d 30 3a 4d 49 50 53 31 61 4c 3d 30 3a |S1a=0:MIPS1aL=0:|
00003c30 54 69 6d 65 54 61 6b 65 6e 31 61 3d 30 3a 54 69 |TimeTaken1a=0:Ti|
00003c40 6d 65 54 61 6b 65 6e 31 61 4c 3d 30 0d 14 e6 5b |meTaken1aL=0...[|
00003c50 20 20 20 20 5a 3d 28 4d 49 50 53 31 2a 36 38 36 | Z=(MIPS1*686|
00003c60 2b 4d 49 50 53 32 2a 32 39 30 2b 4d 49 50 53 33 |+MIPS2*290+MIPS3|
00003c70 2a 39 2b 4d 49 50 53 34 2a 31 35 2b 4d 49 50 53 |*9+MIPS4*15+MIPS|
00003c80 31 4c 2a 36 38 36 2b 4d 49 50 53 32 4c 2a 32 39 |1L*686+MIPS2L*29|
00003c90 30 2b 4d 49 50 53 33 4c 2a 39 2b 4d 49 50 53 34 |0+MIPS3L*9+MIPS4|
00003ca0 4c 2a 31 35 29 2f 32 0d 14 f0 23 20 20 20 20 54 |L*15)/2...# T|
00003cb0 6f 74 61 6c 4d 49 50 53 3d a8 28 5a 2f 31 30 30 |otalMIPS=.(Z/100|
00003cc0 30 2a 31 30 30 29 2f 31 30 30 0d 14 fa 66 20 20 |0*100)/100...f |
00003cd0 20 20 54 6f 74 61 6c 49 6e 64 65 78 3d a8 28 28 | TotalIndex=.((|
00003ce0 49 6e 64 65 78 31 2b 2e 34 39 2b 49 6e 64 65 78 |Index1+.49+Index|
00003cf0 32 2b 49 6e 64 65 78 33 2b 49 6e 64 65 78 34 2b |2+Index3+Index4+|
00003d00 49 6e 64 65 78 31 4c 2b 2e 35 33 2b 49 6e 64 65 |Index1L+.53+Inde|
00003d10 78 32 4c 2b 49 6e 64 65 78 33 4c 2b 49 6e 64 65 |x2L+Index3L+Inde|
00003d20 78 34 4c 29 2f 31 30 2a 31 30 30 29 2f 31 30 30 |x4L)/10*100)/100|
00003d30 0d 15 04 04 0d 15 0e 05 7f 0d 15 18 04 0d 15 22 |..............."|
00003d40 68 20 20 5a 3d 28 4d 49 50 53 31 2a 36 38 35 2b |h Z=(MIPS1*685+|
00003d50 4d 49 50 53 31 61 2b 4d 49 50 53 32 2a 32 39 30 |MIPS1a+MIPS2*290|
00003d60 2b 4d 49 50 53 33 2a 39 2b 4d 49 50 53 34 2a 31 |+MIPS3*9+MIPS4*1|
00003d70 35 2b 4d 49 50 53 31 4c 2a 36 38 35 2b 4d 49 50 |5+MIPS1L*685+MIP|
00003d80 53 31 61 4c 2b 4d 49 50 53 32 4c 2a 32 39 30 2b |S1aL+MIPS2L*290+|
00003d90 4d 49 50 53 33 4c 2a 39 2b 4d 49 50 53 34 4c 2a |MIPS3L*9+MIPS4L*|
00003da0 31 35 29 2f 32 0d 15 2c 21 20 20 54 6f 74 61 6c |15)/2..,! Total|
00003db0 4d 49 50 53 3d a8 28 5a 2f 31 30 30 30 2a 31 30 |MIPS=.(Z/1000*10|
00003dc0 30 29 2f 31 30 30 0d 15 36 6d 20 20 54 6f 74 61 |0)/100..6m Tota|
00003dd0 6c 49 6e 64 65 78 3d a8 28 28 49 6e 64 65 78 31 |lIndex=.((Index1|
00003de0 2b 49 6e 64 65 78 31 61 2b 49 6e 64 65 78 32 2b |+Index1a+Index2+|
00003df0 49 6e 64 65 78 33 2b 49 6e 64 65 78 34 2b 49 6e |Index3+Index4+In|
00003e00 64 65 78 31 4c 2b 49 6e 64 65 78 31 61 4c 2b 49 |dex1L+Index1aL+I|
00003e10 6e 64 65 78 32 4c 2b 49 6e 64 65 78 33 4c 2b 49 |ndex2L+Index3L+I|
00003e20 6e 64 65 78 34 4c 29 2f 31 30 2a 31 30 30 29 2f |ndex4L)/10*100)/|
00003e30 31 30 30 0d 15 40 05 cb 0d 15 4a 04 0d 15 54 26 |100..@....J...T&|
00003e40 4d 43 49 6e 64 65 78 3d 30 3a 42 41 53 49 43 49 |MCIndex=0:BASICI|
00003e50 6e 64 65 78 3d 30 3a 44 48 52 59 49 6e 64 65 78 |ndex=0:DHRYIndex|
00003e60 3d 30 0d 15 5e 31 e7 20 63 61 6c 63 4d 43 25 20 |=0..^1. calcMC% |
00003e70 4d 43 49 6e 64 65 78 3d a8 28 31 36 31 2f 28 21 |MCIndex=.(161/(!|
00003e80 4d 43 63 6f 75 6e 74 29 2a 31 30 30 30 29 2f 31 |MCcount)*1000)/1|
00003e90 30 30 30 0d 15 68 37 e7 20 63 61 6c 63 42 41 53 |000..h7. calcBAS|
00003ea0 49 43 25 20 42 41 53 49 43 49 6e 64 65 78 3d a8 |IC% BASICIndex=.|
00003eb0 28 31 34 33 2f 42 41 53 49 43 63 6f 75 6e 74 2a |(143/BASICcount*|
00003ec0 31 30 30 30 29 2f 31 30 30 30 0d 15 72 2a e7 20 |1000)/1000..r*. |
00003ed0 63 61 6c 63 44 48 52 59 25 20 44 48 52 59 49 6e |calcDHRY% DHRYIn|
00003ee0 64 65 78 3d 44 48 52 59 76 61 6c 75 65 2f 35 39 |dex=DHRYvalue/59|
00003ef0 32 30 2e 37 0d 15 7c 04 0d 15 86 16 f4 20 2a 2a |20.7..|...... **|
00003f00 20 52 41 4d 2f 52 4f 4d 20 53 69 7a 65 73 0d 15 | RAM/ROM Sizes..|
00003f10 90 4a c8 99 20 22 4f 53 5f 52 65 61 64 4d 65 6d |.J.. "OS_ReadMem|
00003f20 4d 61 70 49 6e 66 6f 22 20 b8 20 41 25 2c 42 25 |MapInfo" . A%,B%|
00003f30 3a 52 41 4d 53 69 7a 65 25 3d 28 41 25 2a 42 25 |:RAMSize%=(A%*B%|
00003f40 29 20 81 20 31 30 32 34 3a 52 41 4d 50 61 67 65 |) . 1024:RAMPage|
00003f50 53 69 7a 65 25 3d 41 25 0d 15 9a 12 e7 20 4f 53 |Size%=A%..... OS|
00003f60 76 65 72 25 3c 33 30 30 20 8c 0d 15 a4 22 20 20 |ver%<300 ...." |
00003f70 f4 20 4e 6f 20 65 78 74 65 6e 73 69 6f 6e 20 52 |. No extension R|
00003f80 4f 4d 73 20 70 6f 73 73 69 62 6c 65 0d 15 ae 32 |OMs possible...2|
00003f90 20 20 52 4f 4d 73 69 7a 65 25 3d 35 31 32 2a 31 | ROMsize%=512*1|
00003fa0 30 32 34 3a 52 4f 4d 73 69 7a 65 35 74 68 25 3d |024:ROMsize5th%=|
00003fb0 30 3a 52 4f 4d 6e 75 6d 35 74 68 25 3d 30 0d 15 |0:ROMnum5th%=0..|
00003fc0 b8 05 cc 0d 15 c2 34 20 20 c8 99 20 22 58 50 6f |......4 .. "XPo|
00003fd0 64 75 6c 65 5f 52 65 74 75 72 6e 4e 75 6d 62 65 |dule_ReturnNumbe|
00003fe0 72 22 20 b8 20 2c 52 4f 4d 6e 75 6d 35 74 68 25 |r" . ,ROMnum5th%|
00003ff0 3b 66 6c 61 67 73 25 0d 15 cc 18 20 20 e7 20 28 |;flags%.... . (|
00004000 66 6c 61 67 73 25 20 80 20 31 29 3d 31 20 8c 0d |flags% . 1)=1 ..|
00004010 15 d6 47 20 20 20 20 f4 20 43 61 6e 27 74 20 72 |..G . Can't r|
00004020 65 61 64 20 6e 75 6d 62 65 72 20 6f 66 20 65 78 |ead number of ex|
00004030 74 65 6e 73 69 6f 6e 20 52 4f 4d 73 2c 20 73 6f |tension ROMs, so|
00004040 20 6d 61 72 6b 20 61 73 20 27 55 6e 6b 6e 6f 77 | mark as 'Unknow|
00004050 6e 27 2c 20 2d 31 0d 15 e0 36 20 20 20 20 52 4f |n', -1...6 RO|
00004060 4d 73 69 7a 65 25 3d 32 30 34 38 2a 31 30 32 34 |Msize%=2048*1024|
00004070 3a 52 4f 4d 73 69 7a 65 35 74 68 25 3d 30 3a 52 |:ROMsize5th%=0:R|
00004080 4f 4d 6e 75 6d 35 74 68 25 3d 2d 31 0d 15 ea 07 |OMnum5th%=-1....|
00004090 20 20 cc 0d 15 f4 1a 20 20 20 20 52 4f 4d 73 69 | ..... ROMsi|
000040a0 7a 65 25 3d 32 30 34 38 2a 31 30 32 34 0d 15 fe |ze%=2048*1024...|
000040b0 15 20 20 20 20 52 4f 4d 73 69 7a 65 35 74 68 25 |. ROMsize5th%|
000040c0 3d 30 0d 16 08 18 20 20 20 20 e7 20 52 4f 4d 6e |=0.... . ROMn|
000040d0 75 6d 35 74 68 25 3e 30 20 8c 0d 16 12 2b 20 20 |um5th%>0 ....+ |
000040e0 20 20 20 20 e3 20 6c 6f 6f 70 25 3d 2d 32 20 b8 | . loop%=-2 .|
000040f0 20 2d 28 52 4f 4d 6e 75 6d 35 74 68 25 2b 31 29 | -(ROMnum5th%+1)|
00004100 20 88 20 2d 31 0d 16 1c 14 20 20 20 20 20 20 20 | . -1.... |
00004110 20 63 68 75 6e 6b 25 3d 30 0d 16 26 0d 20 20 20 | chunk%=0..&. |
00004120 20 20 20 20 20 f5 0d 16 30 57 20 20 20 20 20 20 | ...0W |
00004130 20 20 20 20 c8 99 20 22 58 50 6f 64 75 6c 65 5f | .. "XPodule_|
00004140 45 6e 75 6d 65 72 61 74 65 43 68 75 6e 6b 73 57 |EnumerateChunksW|
00004150 69 74 68 49 6e 66 6f 22 2c 63 68 75 6e 6b 25 2c |ithInfo",chunk%,|
00004160 2c 2c 6c 6f 6f 70 25 20 b8 20 63 68 75 6e 6b 25 |,,loop% . chunk%|
00004170 2c 73 69 7a 65 25 3b 66 6c 61 67 73 25 0d 16 3a |,size%;flags%..:|
00004180 1b 20 20 20 20 20 20 20 20 20 20 56 25 3d 66 6c |. V%=fl|
00004190 61 67 73 25 20 80 20 31 0d 16 44 39 20 20 20 20 |ags% . 1..D9 |
000041a0 20 20 20 20 20 20 e7 20 28 63 68 75 6e 6b 25 3c | . (chunk%<|
000041b0 3e 30 29 20 80 20 28 56 25 3d 30 29 20 8c 20 52 |>0) . (V%=0) . R|
000041c0 4f 4d 73 69 7a 65 35 74 68 25 2b 3d 73 69 7a 65 |OMsize5th%+=size|
000041d0 25 0d 16 4e 21 20 20 20 20 20 20 20 20 fd 20 28 |%..N! . (|
000041e0 63 68 75 6e 6b 25 3d 30 29 20 84 20 28 56 25 3d |chunk%=0) . (V%=|
000041f0 31 29 0d 16 58 0b 20 20 20 20 20 20 ed 0d 16 62 |1)..X. ...b|
00004200 09 20 20 20 20 cd 0d 16 6c 07 20 20 cd 0d 16 76 |. ...l. ...v|
00004210 05 cd 0d 16 80 04 0d 16 8a 3e 53 63 72 65 65 6e |.........>Screen|
00004220 42 61 6e 64 77 69 64 74 68 3d 28 53 63 72 65 65 |Bandwidth=(Scree|
00004230 6e 53 69 7a 65 25 2a 28 68 7a 25 2f 31 30 29 29 |nSize%*(hz%/10))|
00004240 2a 31 30 30 2f 4d 65 6d 6f 72 79 42 61 6e 64 77 |*100/MemoryBandw|
00004250 69 64 74 68 0d 16 94 38 50 72 6f 63 65 73 73 6f |idth...8Processo|
00004260 72 42 61 6e 64 77 69 64 74 68 3d 31 30 30 2d 53 |rBandwidth=100-S|
00004270 63 72 65 65 6e 42 61 6e 64 77 69 64 74 68 2d 44 |creenBandwidth-D|
00004280 52 41 4d 42 61 6e 64 77 69 64 74 68 0d 16 9e 13 |RAMBandwidth....|
00004290 c8 8e 20 50 72 6f 63 65 73 73 6f 72 25 20 ca 0d |.. Processor% ..|
000042a0 16 a8 2e 20 20 c9 20 32 3a f4 20 41 52 4d 32 20 |... . 2:. ARM2 |
000042b0 74 61 6b 65 73 20 61 6c 6c 20 72 65 6d 61 69 6e |takes all remain|
000042c0 69 6e 67 20 62 61 6e 64 77 69 64 74 68 0d 16 b2 |ing bandwidth...|
000042d0 37 20 20 c9 20 33 3a e7 20 50 72 6f 63 65 73 73 |7 . 3:. Process|
000042e0 6f 72 42 61 6e 64 77 69 64 74 68 3e 31 34 20 50 |orBandwidth>14 P|
000042f0 72 6f 63 65 73 73 6f 72 42 61 6e 64 77 69 64 74 |rocessorBandwidt|
00004300 68 3d 31 34 0d 16 bc 16 20 20 20 20 20 20 20 20 |h=14.... |
00004310 20 d6 20 72 65 61 64 72 65 67 0d 16 c6 3c 20 20 | . readreg...< |
00004320 20 20 20 20 20 20 20 e7 20 28 21 72 65 67 77 6f | . (!regwo|
00004330 72 64 25 20 80 20 31 29 20 3d 20 31 20 8c 20 43 |rd% . 1) = 1 . C|
00004340 61 63 68 65 4f 4e 25 3d b9 20 8b 20 43 61 63 68 |acheON%=. . Cach|
00004350 65 4f 4e 25 3d a3 0d 16 d0 05 cb 0d 16 da 04 0d |eON%=...........|
00004360 16 e4 2c c8 99 20 22 58 4f 53 5f 4d 6f 64 75 6c |..,.. "XOS_Modul|
00004370 65 22 2c 31 38 2c 22 42 41 53 49 43 22 2c 2c 30 |e",18,"BASIC",,0|
00004380 20 b8 20 2c 2c 2c 74 65 6d 70 25 0d 16 ee 37 e7 | . ,,,temp%...7.|
00004390 20 74 65 6d 70 25 3c 26 30 33 38 30 30 30 30 30 | temp%<&03800000|
000043a0 20 8c 20 46 61 73 74 65 72 42 41 53 49 43 25 3d | . FasterBASIC%=|
000043b0 b9 20 8b 20 46 61 73 74 65 72 42 41 53 49 43 25 |. . FasterBASIC%|
000043c0 3d a3 0d 16 f8 21 e7 20 74 65 6d 70 25 3c 3d 30 |=....!. temp%<=0|
000043d0 20 8c 20 46 61 73 74 65 72 42 41 53 49 43 25 3d | . FasterBASIC%=|
000043e0 2d 39 39 0d 17 02 31 c8 99 20 22 58 4f 53 5f 4d |-99...1.. "XOS_M|
000043f0 6f 64 75 6c 65 22 2c 31 38 2c 22 46 50 45 6d 75 |odule",18,"FPEmu|
00004400 6c 61 74 6f 72 22 2c 2c 30 20 b8 20 2c 2c 2c 74 |lator",,0 . ,,,t|
00004410 65 6d 70 25 0d 17 0c 33 e7 20 74 65 6d 70 25 3c |emp%...3. temp%<|
00004420 26 30 33 38 30 30 30 30 30 20 8c 20 46 61 73 74 |&03800000 . Fast|
00004430 65 72 46 50 45 25 3d b9 20 8b 20 46 61 73 74 65 |erFPE%=. . Faste|
00004440 72 46 50 45 25 3d a3 0d 17 16 1d e7 20 74 65 6d |rFPE%=...... tem|
00004450 70 25 3c 3d 30 20 8c 20 46 61 73 74 65 72 46 50 |p%<=0 . FasterFP|
00004460 45 25 3d a3 0d 17 20 04 0d 17 2a 29 f4 20 2a 2a |E%=... ...*). **|
00004470 20 41 35 30 30 20 49 44 20 28 6c 6f 6f 6b 73 20 | A500 ID (looks |
00004480 61 74 20 6b 65 79 62 6f 61 72 64 20 74 79 70 65 |at keyboard type|
00004490 29 0d 17 34 28 c8 99 20 22 4f 53 5f 49 6e 73 74 |)..4(.. "OS_Inst|
000044a0 61 6c 6c 4b 65 79 48 61 6e 64 6c 65 72 22 2c 31 |allKeyHandler",1|
000044b0 20 b8 20 6b 65 79 69 64 25 0d 17 3e 10 e7 20 6b | . keyid%..>.. k|
000044c0 65 79 69 64 25 3d 30 20 8c 0d 17 48 3f 20 20 f4 |eyid%=0 ...H? .|
000044d0 20 4c 6f 6f 6b 73 20 6c 69 6b 65 20 77 65 27 76 | Looks like we'v|
000044e0 65 20 66 6f 75 6e 64 20 6f 75 72 73 65 6c 76 65 |e found ourselve|
000044f0 73 20 61 20 67 65 6e 75 69 6e 65 20 41 35 30 30 |s a genuine A500|
00004500 20 66 6f 6c 6b 73 20 21 0d 17 52 11 20 20 56 49 | folks !..R. VI|
00004510 44 43 54 79 70 65 25 3d 33 0d 17 5c 05 cd 0d 17 |DCType%=3..\....|
00004520 66 04 0d 17 70 45 f4 20 2a 2a 2a 20 54 65 73 74 |f...pE. *** Test|
00004530 20 66 6f 72 20 50 43 41 54 53 20 65 6e 68 61 6e | for PCATS enhan|
00004540 63 65 72 20 63 61 72 64 20 28 53 57 49 20 45 6e |cer card (SWI En|
00004550 68 61 6e 63 65 72 5f 48 61 72 64 77 61 72 65 50 |hancer_HardwareP|
00004560 72 65 73 65 6e 74 29 0d 17 7a 17 c8 99 20 26 36 |resent)..z... &6|
00004570 32 41 34 44 20 b8 20 3b 66 6c 61 67 73 25 0d 17 |2A4D . ;flags%..|
00004580 84 27 e7 20 28 66 6c 61 67 73 25 20 80 20 31 29 |.'. (flags% . 1)|
00004590 20 3d 20 30 20 8c 20 56 49 44 43 54 79 70 65 25 | = 0 . VIDCType%|
000045a0 2b 3d 31 32 38 0d 17 8e 04 0d 17 98 0e f2 64 69 |+=128.........di|
000045b0 73 70 6c 61 79 73 69 0d 17 a2 05 e1 0d 17 ac 05 |splaysi.........|
000045c0 3a 0d 17 b6 0c dd 20 a4 6f 73 76 65 72 0d 17 c0 |:..... .osver...|
000045d0 07 ea 20 85 0d 17 ca 0d ee 20 85 20 ea 3a 3d f6 |.. ...... . .:=.|
000045e0 24 0d 17 d4 14 c8 99 20 22 4f 53 5f 42 79 74 65 |$...... "OS_Byte|
000045f0 22 2c 30 2c 30 0d 17 de 0e 3d 22 55 6e 6b 6e 6f |",0,0....="Unkno|
00004600 77 6e 22 0d 17 e8 05 3a 0d 17 f2 42 f4 20 41 20 |wn"....:...B. A |
00004610 66 75 6e 20 6c 69 74 74 6c 65 20 72 6f 75 74 69 |fun little routi|
00004620 6e 65 20 74 68 61 74 20 6d 61 6b 65 73 20 61 20 |ne that makes a |
00004630 66 61 69 72 20 67 75 65 73 73 20 6f 66 20 6d 61 |fair guess of ma|
00004640 63 68 69 6e 65 20 74 79 70 65 0d 17 fc 34 f4 20 |chine type...4. |
00004650 50 6c 65 61 73 65 20 63 6f 72 72 65 63 74 2f 69 |Please correct/i|
00004660 6d 70 72 6f 76 65 20 61 6e 64 20 72 65 74 75 72 |mprove and retur|
00004670 6e 20 74 6f 20 6d 65 21 20 4e 69 63 6b 2e 0d 18 |n to me! Nick...|
00004680 06 46 f4 20 50 6f 73 73 69 62 6c 65 20 69 6d 70 |.F. Possible imp|
00004690 72 6f 76 6d 65 6e 74 73 20 2d 20 64 69 73 74 69 |rovments - disti|
000046a0 6e 67 75 69 73 68 20 6d 61 63 68 69 6e 65 73 20 |nguish machines |
000046b0 62 61 73 65 64 20 6f 6e 20 73 69 7a 65 73 2f 74 |based on sizes/t|
000046c0 79 70 65 73 0d 18 10 46 f4 20 6f 66 20 48 44 2e |ypes...F. of HD.|
000046d0 20 65 67 2c 20 41 34 78 30 2f 31 20 73 65 72 69 | eg, A4x0/1 seri|
000046e0 65 73 20 68 61 64 20 62 75 69 6c 74 20 69 6e 20 |es had built in |
000046f0 53 54 35 30 36 20 63 6f 6e 74 72 6f 6c 6c 65 72 |ST506 controller|
00004700 2c 20 41 35 34 30 20 68 61 73 0d 18 1a 38 f4 20 |, A540 has...8. |
00004710 61 20 53 43 53 49 20 70 6f 64 75 6c 65 20 61 73 |a SCSI podule as|
00004720 20 73 74 61 6e 64 61 72 64 2c 20 65 74 63 2e 20 | standard, etc. |
00004730 48 61 63 6b 2c 20 68 61 63 6b 2c 20 68 61 63 6b |Hack, hack, hack|
00004740 20 21 0d 18 24 05 3a 0d 18 2e 13 dd 20 a4 6d 61 | !..$.:..... .ma|
00004750 63 68 69 6e 65 67 75 65 73 73 0d 18 38 0b ea 20 |chineguess..8.. |
00004760 6e 61 6d 65 24 0d 18 42 04 0d 18 4c 3f e7 20 56 |name$..B...L?. V|
00004770 49 44 43 54 79 70 65 25 3d 33 20 8c 20 6e 61 6d |IDCType%=3 . nam|
00004780 65 24 3d 22 41 35 30 30 20 70 72 6f 74 6f 74 79 |e$="A500 prototy|
00004790 70 65 2c 20 22 2b c0 4f 53 73 74 72 24 2c 31 32 |pe, "+.OSstr$,12|
000047a0 29 3a 3d 6e 61 6d 65 24 0d 18 56 13 c8 8e 20 50 |):=name$..V... P|
000047b0 72 6f 63 65 73 73 6f 72 25 20 ca 0d 18 60 26 20 |rocessor% ...`& |
000047c0 20 c9 20 31 3a 6e 61 6d 65 24 3d 22 55 6e 6b 6e | . 1:name$="Unkn|
000047d0 6f 77 6e 20 41 52 4d 31 20 6d 61 63 68 69 6e 65 |own ARM1 machine|
000047e0 22 0d 18 6a 0a 20 20 c9 20 32 3a 0d 18 74 16 20 |"..j. . 2:..t. |
000047f0 20 20 20 c8 8e 20 4d 45 4d 43 54 79 70 65 25 20 | .. MEMCType% |
00004800 ca 0d 18 7e 0d 20 20 20 20 20 20 c9 20 30 0d 18 |...~. . 0..|
00004810 88 19 20 20 20 20 20 20 20 20 c8 8e 20 52 41 4d |.. .. RAM|
00004820 53 69 7a 65 25 20 ca 0d 18 92 29 20 20 20 20 20 |Size% ....) |
00004830 20 20 20 20 20 c9 20 35 31 32 3a 6e 61 6d 65 24 | . 512:name$|
00004840 3d 22 4f 72 69 67 69 6e 61 6c 20 41 33 30 35 22 |="Original A305"|
00004850 0d 18 9c 2a 20 20 20 20 20 20 20 20 20 20 c9 20 |...* . |
00004860 31 30 32 34 3a 6e 61 6d 65 24 3d 22 4f 72 69 67 |1024:name$="Orig|
00004870 69 6e 61 6c 20 41 33 31 30 22 0d 18 a6 2e 20 20 |inal A310".... |
00004880 20 20 20 20 20 20 20 20 c9 20 32 30 34 38 3a 6e | . 2048:n|
00004890 61 6d 65 24 3d 22 45 78 70 61 6e 64 65 64 20 41 |ame$="Expanded A|
000048a0 33 30 35 2f 33 31 30 22 0d 18 b0 2a 20 20 20 20 |305/310"...* |
000048b0 20 20 20 20 20 20 c9 20 34 30 39 36 3a 6e 61 6d | . 4096:nam|
000048c0 65 24 3d 22 4f 72 69 67 69 6e 61 6c 20 41 34 34 |e$="Original A44|
000048d0 30 22 0d 18 ba 32 20 20 20 20 20 20 20 20 20 20 |0"...2 |
000048e0 7f 20 6e 61 6d 65 24 3d 22 55 6e 6b 6e 6f 77 6e |. name$="Unknown|
000048f0 20 41 52 4d 32 2b 4d 45 4d 43 31 20 6d 61 63 68 | ARM2+MEMC1 mach|
00004900 69 6e 65 22 0d 18 c4 0d 20 20 20 20 20 20 20 20 |ine".... |
00004910 cb 0d 18 ce 0d 20 20 20 20 20 20 c9 20 31 0d 18 |..... . 1..|
00004920 d8 19 20 20 20 20 20 20 20 20 c8 8e 20 52 41 4d |.. .. RAM|
00004930 53 69 7a 65 25 20 ca 0d 18 e2 31 20 20 20 20 20 |Size% ....1 |
00004940 20 20 20 20 20 c9 20 35 31 32 3a 6e 61 6d 65 24 | . 512:name$|
00004950 3d 22 45 78 70 61 6e 64 65 64 20 41 33 30 35 2c |="Expanded A305,|
00004960 20 4d 45 4d 43 31 61 22 0d 18 ec 35 20 20 20 20 | MEMC1a"...5 |
00004970 20 20 20 20 20 20 c9 20 31 30 32 34 3a 6e 61 6d | . 1024:nam|
00004980 65 24 3d 22 4f 72 69 67 69 6e 61 6c 20 41 34 31 |e$="Original A41|
00004990 30 2f 31 20 6f 72 20 41 33 30 30 30 22 0d 18 f6 |0/1 or A3000"...|
000049a0 2c 20 20 20 20 20 20 20 20 20 20 c9 20 32 30 34 |, . 204|
000049b0 38 3a 6e 61 6d 65 24 3d 22 4f 72 69 67 69 6e 61 |8:name$="Origina|
000049c0 6c 20 41 34 32 30 2f 31 22 0d 19 00 2c 20 20 20 |l A420/1"..., |
000049d0 20 20 20 20 20 20 20 c9 20 34 30 39 36 3a 6e 61 | . 4096:na|
000049e0 6d 65 24 3d 22 4f 72 69 67 69 6e 61 6c 20 41 34 |me$="Original A4|
000049f0 34 30 2f 31 22 0d 19 0a 2b 20 20 20 20 20 20 20 |40/1"...+ |
00004a00 20 20 20 7f 20 6e 61 6d 65 24 3d 22 55 6e 6b 6e | . name$="Unkn|
00004a10 6f 77 6e 20 41 52 4d 32 2b 4d 45 4d 43 31 61 22 |own ARM2+MEMC1a"|
00004a20 0d 19 14 0d 20 20 20 20 20 20 20 20 cb 0d 19 1e |.... ....|
00004a30 28 20 20 20 20 20 20 7f 20 6e 61 6d 65 24 3d 22 |( . name$="|
00004a40 55 6e 6b 6e 6f 77 6e 20 41 52 4d 32 20 6d 61 63 |Unknown ARM2 mac|
00004a50 68 69 6e 65 22 0d 19 28 09 20 20 20 20 cb 0d 19 |hine"..(. ...|
00004a60 32 04 0d 19 3c 0a 20 20 c9 20 33 3a 0d 19 46 16 |2...<. . 3:..F.|
00004a70 20 20 20 20 c8 8e 20 49 4f 45 42 54 79 70 65 25 | .. IOEBType%|
00004a80 20 ca 0d 19 50 0d 20 20 20 20 20 20 c9 20 30 0d | ...P. . 0.|
00004a90 19 5a 1c 20 20 20 20 20 20 20 20 e7 20 52 41 4d |.Z. . RAM|
00004aa0 53 70 65 65 64 3c 31 32 30 20 8c 0d 19 64 1b 20 |Speed<120 ...d. |
00004ab0 20 20 20 20 20 20 20 20 20 c8 8e 20 52 41 4d 53 | .. RAMS|
00004ac0 69 7a 65 25 20 ca 0d 19 6e 2c 20 20 20 20 20 20 |ize% ...n, |
00004ad0 20 20 20 20 20 20 c9 20 34 30 39 36 3a 6e 61 6d | . 4096:nam|
00004ae0 65 24 3d 22 4f 72 69 67 69 6e 61 6c 20 41 35 34 |e$="Original A54|
00004af0 30 22 0d 19 78 31 20 20 20 20 20 20 20 20 20 20 |0"..x1 |
00004b00 20 20 c9 20 38 31 39 32 3a 6e 61 6d 65 24 3d 22 | . 8192:name$="|
00004b10 45 78 70 61 6e 64 65 64 20 41 35 34 30 2c 20 38 |Expanded A540, 8|
00004b20 4d 42 22 0d 19 82 33 20 20 20 20 20 20 20 20 20 |MB"...3 |
00004b30 20 20 20 c9 20 31 32 32 38 38 3a 6e 61 6d 65 24 | . 12288:name$|
00004b40 3d 22 45 78 70 61 6e 64 65 64 20 41 35 34 30 2c |="Expanded A540,|
00004b50 20 31 32 4d 42 22 0d 19 8c 33 20 20 20 20 20 20 | 12MB"...3 |
00004b60 20 20 20 20 20 20 c9 20 31 36 33 38 34 3a 6e 61 | . 16384:na|
00004b70 6d 65 24 3d 22 45 78 70 61 6e 64 65 64 20 41 35 |me$="Expanded A5|
00004b80 34 30 2c 20 31 36 4d 42 22 0d 19 96 39 20 20 20 |40, 16MB"...9 |
00004b90 20 20 20 20 20 20 20 20 20 20 20 7f 20 6e 61 6d | . nam|
00004ba0 65 24 3d 22 55 6e 6b 6e 6f 77 6e 20 66 61 73 74 |e$="Unknown fast|
00004bb0 2d 52 41 4d 20 41 52 4d 33 20 6d 61 63 68 69 6e |-RAM ARM3 machin|
00004bc0 65 22 0d 19 a0 0f 20 20 20 20 20 20 20 20 20 20 |e".... |
00004bd0 cb 0d 19 aa 0d 20 20 20 20 20 20 20 20 cc 0d 19 |..... ...|
00004be0 b4 1b 20 20 20 20 20 20 20 20 20 20 c8 8e 20 52 |.. .. R|
00004bf0 41 4d 53 69 7a 65 25 20 ca 0d 19 be 31 20 20 20 |AMSize% ....1 |
00004c00 20 20 20 20 20 20 20 20 20 c9 20 35 31 32 3a 6e | . 512:n|
00004c10 61 6d 65 24 3d 22 45 78 70 61 6e 64 65 64 20 41 |ame$="Expanded A|
00004c20 33 30 35 2c 20 41 52 4d 33 22 0d 19 c8 34 20 20 |305, ARM3"...4 |
00004c30 20 20 20 20 20 20 20 20 20 20 c9 20 31 30 32 34 | . 1024|
00004c40 3a 6e 61 6d 65 24 3d 22 45 78 70 61 6e 64 65 64 |:name$="Expanded|
00004c50 20 41 34 31 30 2f 31 2c 20 41 52 4d 33 22 0d 19 | A410/1, ARM3"..|
00004c60 d2 34 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 |.4 . |
00004c70 32 30 34 38 3a 6e 61 6d 65 24 3d 22 45 78 70 61 |2048:name$="Expa|
00004c80 6e 64 65 64 20 41 34 32 30 2f 31 2c 20 41 52 4d |nded A420/1, ARM|
00004c90 33 22 0d 19 dc 34 20 20 20 20 20 20 20 20 20 20 |3"...4 |
00004ca0 20 20 c9 20 34 30 39 36 3a 6e 61 6d 65 24 3d 22 | . 4096:name$="|
00004cb0 45 78 70 61 6e 64 65 64 20 41 34 34 30 2f 31 2c |Expanded A440/1,|
00004cc0 20 41 52 4d 33 22 0d 19 e6 33 20 20 20 20 20 20 | ARM3"...3 |
00004cd0 20 20 20 20 20 20 c9 20 38 31 39 32 3a 6e 61 6d | . 8192:nam|
00004ce0 65 24 3d 22 45 78 70 61 6e 64 65 64 20 41 34 34 |e$="Expanded A44|
00004cf0 30 2f 31 2c 20 38 4d 42 22 0d 19 f0 30 20 20 20 |0/1, 8MB"...0 |
00004d00 20 20 20 20 20 20 20 20 20 20 20 7f 20 6e 61 6d | . nam|
00004d10 65 24 3d 22 55 6e 6b 6e 6f 77 6e 20 41 52 4d 33 |e$="Unknown ARM3|
00004d20 20 6d 61 63 68 69 6e 65 22 0d 19 fa 0f 20 20 20 | machine".... |
00004d30 20 20 20 20 20 20 20 cb 0d 1a 04 0d 20 20 20 20 | ..... |
00004d40 20 20 20 20 cd 0d 1a 0e 0d 20 20 20 20 20 20 c9 | ..... .|
00004d50 20 31 0d 1a 18 19 20 20 20 20 20 20 20 20 c8 8e | 1.... ..|
00004d60 20 52 41 4d 53 69 7a 65 25 20 ca 0d 1a 22 14 20 | RAMSize% ...". |
00004d70 20 20 20 20 20 20 20 20 20 c9 20 32 30 34 38 0d | . 2048.|
00004d80 1a 2c 1d 20 20 20 20 20 20 20 20 20 20 20 20 c8 |.,. .|
00004d90 8e 20 4c 43 44 54 79 70 65 25 20 ca 0d 1a 36 2c |. LCDType% ...6,|
00004da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 | . |
00004db0 30 3a 6e 61 6d 65 24 3d 22 4f 72 69 67 69 6e 61 |0:name$="Origina|
00004dc0 6c 20 41 35 30 30 30 22 0d 1a 40 32 20 20 20 20 |l A5000"..@2 |
00004dd0 20 20 20 20 20 20 20 20 20 20 c9 20 31 3a 6e 61 | . 1:na|
00004de0 6d 65 24 3d 22 4f 72 69 67 69 6e 61 6c 20 41 34 |me$="Original A4|
00004df0 20 70 6f 72 74 61 62 6c 65 22 0d 1a 4a 39 20 20 | portable"..J9 |
00004e00 20 20 20 20 20 20 20 20 20 20 20 20 7f 20 6e 61 | . na|
00004e10 6d 65 24 3d 22 55 6e 6b 6e 6f 77 6e 20 32 4d 42 |me$="Unknown 2MB|
00004e20 20 41 52 4d 33 2b 49 4f 45 42 20 6d 61 63 68 69 | ARM3+IOEB machi|
00004e30 6e 65 22 0d 1a 54 11 20 20 20 20 20 20 20 20 20 |ne"..T. |
00004e40 20 20 20 cb 0d 1a 5e 14 20 20 20 20 20 20 20 20 | ...^. |
00004e50 20 20 c9 20 34 30 39 36 0d 1a 68 1d 20 20 20 20 | . 4096..h. |
00004e60 20 20 20 20 20 20 20 20 c8 8e 20 4c 43 44 54 79 | .. LCDTy|
00004e70 70 65 25 20 ca 0d 1a 72 28 20 20 20 20 20 20 20 |pe% ...r( |
00004e80 20 20 20 20 20 20 20 c9 20 30 3a 6e 61 6d 65 24 | . 0:name$|
00004e90 3d 22 41 35 30 30 30 2c 20 34 4d 42 22 0d 1a 7c |="A5000, 4MB"..||
00004ea0 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 |7 .|
00004eb0 20 31 3a 6e 61 6d 65 24 3d 22 45 78 70 61 6e 64 | 1:name$="Expand|
00004ec0 65 64 20 41 34 20 70 6f 72 74 61 62 6c 65 2c 20 |ed A4 portable, |
00004ed0 34 4d 42 22 0d 1a 86 39 20 20 20 20 20 20 20 20 |4MB"...9 |
00004ee0 20 20 20 20 20 20 7f 20 6e 61 6d 65 24 3d 22 55 | . name$="U|
00004ef0 6e 6b 6e 6f 77 6e 20 34 4d 42 20 41 52 4d 33 2b |nknown 4MB ARM3+|
00004f00 49 4f 45 42 20 6d 61 63 68 69 6e 65 22 0d 1a 90 |IOEB machine"...|
00004f10 11 20 20 20 20 20 20 20 20 20 20 20 20 cb 0d 1a |. ...|
00004f20 9a 30 20 20 20 20 20 20 20 20 20 20 c9 20 38 31 |.0 . 81|
00004f30 39 32 3a 6e 61 6d 65 24 3d 22 45 78 70 61 6e 64 |92:name$="Expand|
00004f40 65 64 20 41 35 30 30 30 2c 20 38 4d 42 22 0d 1a |ed A5000, 8MB"..|
00004f50 a4 31 20 20 20 20 20 20 20 20 20 20 7f 20 6e 61 |.1 . na|
00004f60 6d 65 24 3d 22 55 6e 6b 6e 6f 77 6e 20 41 52 4d |me$="Unknown ARM|
00004f70 33 2b 49 4f 45 42 20 6d 61 63 68 69 6e 65 22 0d |3+IOEB machine".|
00004f80 1a ae 0d 20 20 20 20 20 20 20 20 cb 0d 1a b8 28 |... ....(|
00004f90 20 20 20 20 20 20 7f 20 6e 61 6d 65 24 3d 22 55 | . name$="U|
00004fa0 6e 6b 6e 6f 77 6e 20 49 4f 45 42 20 6d 61 63 68 |nknown IOEB mach|
00004fb0 69 6e 65 22 0d 1a c2 09 20 20 20 20 cb 0d 1a cc |ine".... ....|
00004fc0 04 0d 1a d6 0c 20 20 c9 20 32 35 30 3a 0d 1a e0 |..... . 250:...|
00004fd0 15 20 20 20 20 c8 8e 20 52 41 4d 53 69 7a 65 25 |. .. RAMSize%|
00004fe0 20 ca 0d 1a ea 27 20 20 20 20 20 20 c9 20 31 30 | ....' . 10|
00004ff0 32 34 3a 6e 61 6d 65 24 3d 22 4f 72 69 67 69 6e |24:name$="Origin|
00005000 61 6c 20 41 33 30 31 30 22 0d 1a f4 2d 20 20 20 |al A3010"...- |
00005010 20 20 20 c9 20 32 30 34 38 3a 6e 61 6d 65 24 3d | . 2048:name$=|
00005020 22 4f 72 69 67 69 6e 61 6c 20 41 33 30 32 30 2f |"Original A3020/|
00005030 41 34 30 30 30 22 0d 1a fe 36 20 20 20 20 20 20 |A4000"...6 |
00005040 c9 20 34 30 39 36 3a 6e 61 6d 65 24 3d 22 45 78 |. 4096:name$="Ex|
00005050 70 61 6e 64 65 64 20 41 33 30 31 30 2f 33 30 32 |panded A3010/302|
00005060 30 2f 34 30 30 30 2c 20 34 4d 42 22 0d 1b 08 2a |0/4000, 4MB"...*|
00005070 20 20 20 20 20 20 7f 20 6e 61 6d 65 24 3d 22 55 | . name$="U|
00005080 6e 6b 6e 6f 77 6e 20 41 52 4d 32 35 30 20 6d 61 |nknown ARM250 ma|
00005090 63 68 69 6e 65 22 0d 1b 12 09 20 20 20 20 cb 0d |chine".... ..|
000050a0 1b 1c 04 0d 1b 26 1f 20 20 7f 20 6e 61 6d 65 24 |.....&. . name$|
000050b0 3d 22 4d 61 63 68 69 6e 65 20 55 6e 6b 6e 6f 77 |="Machine Unknow|
000050c0 6e 22 0d 1b 30 05 cb 0d 1b 3a 1b 3d 6e 61 6d 65 |n"..0....:.=name|
000050d0 24 2b 22 2c 20 22 2b c0 4f 53 73 74 72 24 2c 31 |$+", "+.OSstr$,1|
000050e0 32 29 0d 1b 44 05 3a 0d 1b 4e 10 dd 20 f2 64 69 |2)..D.:..N.. .di|
000050f0 73 70 6c 61 79 73 69 0d 1b 58 0a ea 20 74 65 6d |splaysi..X.. tem|
00005100 70 0d 1b 62 15 c8 99 20 22 48 6f 75 72 67 6c 61 |p..b... "Hourgla|
00005110 73 73 5f 4f 6e 22 0d 1b 6c 04 0d 1b 76 16 62 6c |ss_On"..l...v.bl|
00005120 6f 63 6b 31 25 21 30 3d 73 79 73 69 6e 66 6f 25 |ock1%!0=sysinfo%|
00005130 0d 1b 80 25 c8 99 20 22 57 69 6d 70 5f 47 65 74 |...%.. "Wimp_Get|
00005140 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c |WindowState",,bl|
00005150 6f 63 6b 31 25 0d 1b 8a 12 53 48 25 3d 62 6c 6f |ock1%....SH%=blo|
00005160 63 6b 31 25 21 32 38 0d 1b 94 1d 57 4f 25 3d 28 |ck1%!28....WO%=(|
00005170 62 6c 6f 63 6b 31 25 21 33 32 3e 3e 31 36 29 20 |block1%!32>>16) |
00005180 80 20 25 31 0d 1b 9e 22 c8 99 20 22 57 69 6d 70 |. %1...".. "Wimp|
00005190 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 |_CloseWindow",,b|
000051a0 6c 6f 63 6b 31 25 0d 1b a8 16 62 6c 6f 63 6b 31 |lock1%....block1|
000051b0 25 21 30 3d 66 70 75 69 6e 66 6f 25 0d 1b b2 25 |%!0=fpuinfo%...%|
000051c0 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |.. "Wimp_GetWind|
000051d0 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 31 |owState",,block1|
000051e0 25 0d 1b bc 12 46 48 25 3d 62 6c 6f 63 6b 31 25 |%....FH%=block1%|
000051f0 21 32 38 0d 1b c6 1f 57 4f 25 2b 3d 28 62 6c 6f |!28....WO%+=(blo|
00005200 63 6b 31 25 21 33 32 3e 3e 31 35 29 20 80 20 25 |ck1%!32>>15) . %|
00005210 31 30 0d 1b d0 22 c8 99 20 22 57 69 6d 70 5f 43 |10...".. "Wimp_C|
00005220 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f |loseWindow",,blo|
00005230 63 6b 31 25 0d 1b da 04 0d 1b e4 16 f4 20 2a 2a |ck1%......... **|
00005240 20 52 41 4d 2f 52 4f 4d 20 53 69 7a 65 73 0d 1b | RAM/ROM Sizes..|
00005250 ee 17 e7 20 52 41 4d 50 61 67 65 53 69 7a 65 25 |... RAMPageSize%|
00005260 3c 3d 30 20 8c 0d 1b f8 25 20 20 f2 75 70 64 61 |<=0 ....% .upda|
00005270 74 65 69 63 6f 6e 28 34 2c c3 28 52 41 4d 53 69 |teicon(4,.(RAMSi|
00005280 7a 65 25 29 2b 22 20 4b 22 29 0d 1c 02 05 cc 0d |ze%)+" K")......|
00005290 1c 0c 69 20 20 f2 75 70 64 61 74 65 69 63 6f 6e |..i .updateicon|
000052a0 28 34 2c c3 28 52 41 4d 53 69 7a 65 25 29 2b 22 |(4,.(RAMSize%)+"|
000052b0 20 4b 20 28 22 2b c3 28 52 41 4d 50 61 67 65 53 | K ("+.(RAMPageS|
000052c0 69 7a 65 25 20 81 20 31 30 32 34 29 2b 22 4b 20 |ize% . 1024)+"K |
000052d0 78 20 22 2b c3 28 52 41 4d 53 69 7a 65 25 2f 28 |x "+.(RAMSize%/(|
000052e0 52 41 4d 50 61 67 65 53 69 7a 65 25 2f 31 30 32 |RAMPageSize%/102|
000052f0 34 29 29 2b 22 29 22 29 0d 1c 16 05 cd 0d 1c 20 |4))+")")....... |
00005300 13 e7 20 52 4f 4d 73 69 7a 65 25 3c 3d 30 20 8c |.. ROMsize%<=0 .|
00005310 0d 1c 2a 1e 20 20 f2 75 70 64 61 74 65 69 63 6f |..*. .updateico|
00005320 6e 28 36 2c 22 55 6e 6b 6e 6f 77 6e 22 29 0d 1c |n(6,"Unknown")..|
00005330 34 05 cc 0d 1c 3e 15 20 20 c8 8e 20 52 4f 4d 6e |4....>. .. ROMn|
00005340 75 6d 35 74 68 25 20 ca 0d 1c 48 47 20 20 20 20 |um5th% ...HG |
00005350 c9 20 2d 31 3a f2 75 70 64 61 74 65 69 63 6f 6e |. -1:.updateicon|
00005360 28 36 2c c3 28 a8 28 52 4f 4d 73 69 7a 65 25 2f |(6,.(.(ROMsize%/|
00005370 31 30 32 34 29 29 2b 22 20 4b 20 28 3f 20 65 78 |1024))+" K (? ex|
00005380 74 65 6e 73 69 6f 6e 20 52 4f 4d 73 29 22 29 0d |tension ROMs)").|
00005390 1c 52 33 20 20 20 20 c9 20 30 3a f2 75 70 64 61 |.R3 . 0:.upda|
000053a0 74 65 69 63 6f 6e 28 36 2c c3 28 a8 28 52 4f 4d |teicon(6,.(.(ROM|
000053b0 73 69 7a 65 25 2f 31 30 32 34 29 29 2b 22 20 4b |size%/1024))+" K|
000053c0 22 29 0d 1c 5c 09 20 20 20 20 7f 0d 1c 66 74 20 |")..\. ...ft |
000053d0 20 20 20 20 20 f2 75 70 64 61 74 65 69 63 6f 6e | .updateicon|
000053e0 28 36 2c c3 28 a8 28 52 4f 4d 73 69 7a 65 25 2f |(6,.(.(ROMsize%/|
000053f0 31 30 32 34 29 29 2b 22 20 4b 20 28 2b 22 2b c3 |1024))+" K (+"+.|
00005400 28 a8 28 52 4f 4d 73 69 7a 65 35 74 68 25 2f 31 |(.(ROMsize5th%/1|
00005410 30 32 34 29 29 2b 22 4b 20 69 6e 20 22 2b c3 28 |024))+"K in "+.(|
00005420 52 4f 4d 6e 75 6d 35 74 68 25 29 2b 22 20 65 78 |ROMnum5th%)+" ex|
00005430 74 65 6e 73 69 6f 6e 20 52 4f 4d 73 29 22 29 0d |tension ROMs)").|
00005440 1c 70 07 20 20 cb 0d 1c 7a 05 cd 0d 1c 84 04 0d |.p. ...z.......|
00005450 1c 8e 17 f4 20 2a 2a 20 52 41 4d 2f 52 4f 4d 20 |.... ** RAM/ROM |
00005460 53 70 65 65 64 73 0d 1c 98 17 e7 20 a8 28 52 41 |Speeds..... .(RA|
00005470 4d 53 70 65 65 64 29 3d 31 32 35 20 8c 0d 1c a2 |MSpeed)=125 ....|
00005480 1a 20 20 c8 8e 20 a8 28 48 69 67 68 52 4f 4d 53 |. .. .(HighROMS|
00005490 70 65 65 64 29 20 ca 0d 1c ac 30 20 20 20 20 c9 |peed) ....0 .|
000054a0 20 31 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 38 | 1:.updateicon(8|
000054b0 2c 22 31 32 35 20 6e 53 20 28 50 61 67 65 64 20 |,"125 nS (Paged |
000054c0 6d 6f 64 65 29 22 29 0d 1c b6 30 20 20 20 20 c9 |mode)")...0 .|
000054d0 20 32 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 38 | 2:.updateicon(8|
000054e0 2c 22 32 30 30 20 6e 53 20 28 32 20 6e 2d 63 79 |,"200 nS (2 n-cy|
000054f0 63 6c 65 73 29 22 29 0d 1c c0 30 20 20 20 20 c9 |cles)")...0 .|
00005500 20 33 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 38 | 3:.updateicon(8|
00005510 2c 22 33 32 35 20 6e 53 20 28 33 20 6e 2d 63 79 |,"325 nS (3 n-cy|
00005520 63 6c 65 73 29 22 29 0d 1c ca 30 20 20 20 20 c9 |cles)")...0 .|
00005530 20 34 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 38 | 4:.updateicon(8|
00005540 2c 22 34 35 30 20 6e 53 20 28 34 20 6e 2d 63 79 |,"450 nS (4 n-cy|
00005550 63 6c 65 73 29 22 29 0d 1c d4 07 20 20 cb 0d 1c |cles)").... ...|
00005560 de 19 20 20 c8 8e 20 a8 28 4c 6f 77 52 4f 4d 53 |.. .. .(LowROMS|
00005570 70 65 65 64 29 20 ca 0d 1c e8 30 20 20 20 20 c9 |peed) ....0 .|
00005580 20 31 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 31 | 1:.updateicon(1|
00005590 2c 22 31 32 35 20 6e 53 20 28 50 61 67 65 64 20 |,"125 nS (Paged |
000055a0 6d 6f 64 65 29 22 29 0d 1c f2 30 20 20 20 20 c9 |mode)")...0 .|
000055b0 20 32 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 31 | 2:.updateicon(1|
000055c0 2c 22 32 30 30 20 6e 53 20 28 32 20 6e 2d 63 79 |,"200 nS (2 n-cy|
000055d0 63 6c 65 73 29 22 29 0d 1c fc 30 20 20 20 20 c9 |cles)")...0 .|
000055e0 20 33 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 31 | 3:.updateicon(1|
000055f0 2c 22 33 32 35 20 6e 53 20 28 33 20 6e 2d 63 79 |,"325 nS (3 n-cy|
00005600 63 6c 65 73 29 22 29 0d 1d 06 30 20 20 20 20 c9 |cles)")...0 .|
00005610 20 34 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 31 | 4:.updateicon(1|
00005620 2c 22 34 35 30 20 6e 53 20 28 34 20 6e 2d 63 79 |,"450 nS (4 n-cy|
00005630 63 6c 65 73 29 22 29 0d 1d 10 07 20 20 cb 0d 1d |cles)").... ...|
00005640 1a 05 cc 0d 1d 24 2b 20 20 e7 20 48 69 67 68 52 |.....$+ . HighR|
00005650 4f 4d 53 70 65 65 64 2d a8 28 48 69 67 68 52 4f |OMSpeed-.(HighRO|
00005660 4d 53 70 65 65 64 29 3e 3d 30 2e 31 20 8c 0d 1d |MSpeed)>=0.1 ...|
00005670 2e 5c 20 20 20 20 f2 75 70 64 61 74 65 69 63 6f |.\ .updateico|
00005680 6e 28 38 2c c3 28 a8 28 48 69 67 68 52 4f 4d 53 |n(8,.(.(HighROMS|
00005690 70 65 65 64 2a 52 41 4d 53 70 65 65 64 29 29 2b |peed*RAMSpeed))+|
000056a0 22 20 6e 53 20 28 22 2b c3 28 a8 28 48 69 67 68 |" nS ("+.(.(High|
000056b0 52 4f 4d 53 70 65 65 64 29 2b 31 29 2b 22 20 6e |ROMSpeed)+1)+" n|
000056c0 2d 63 79 63 6c 65 73 29 22 29 0d 1d 38 07 20 20 |-cycles)")..8. |
000056d0 cc 0d 1d 42 57 20 20 20 20 f2 75 70 64 61 74 65 |...BW .update|
000056e0 69 63 6f 6e 28 38 2c c3 28 a8 28 48 69 67 68 52 |icon(8,.(.(HighR|
000056f0 4f 4d 53 70 65 65 64 2a 52 41 4d 53 70 65 65 64 |OMSpeed*RAMSpeed|
00005700 29 29 2b 22 20 6e 53 20 28 22 2b c3 28 48 69 67 |))+" nS ("+.(Hig|
00005710 68 52 4f 4d 53 70 65 65 64 29 2b 22 20 6e 2d 63 |hROMSpeed)+" n-c|
00005720 79 63 6c 65 73 29 22 29 0d 1d 4c 07 20 20 cd 0d |ycles)")..L. ..|
00005730 1d 56 29 20 20 e7 20 4c 6f 77 52 4f 4d 53 70 65 |.V) . LowROMSpe|
00005740 65 64 2d a8 28 4c 6f 77 52 4f 4d 53 70 65 65 64 |ed-.(LowROMSpeed|
00005750 29 3e 3d 30 2e 31 20 8c 0d 1d 60 5a 20 20 20 20 |)>=0.1 ...`Z |
00005760 f2 75 70 64 61 74 65 69 63 6f 6e 28 31 2c c3 28 |.updateicon(1,.(|
00005770 a8 28 4c 6f 77 52 4f 4d 53 70 65 65 64 2a 52 41 |.(LowROMSpeed*RA|
00005780 4d 53 70 65 65 64 29 29 2b 22 20 6e 53 20 28 22 |MSpeed))+" nS ("|
00005790 2b c3 28 a8 28 4c 6f 77 52 4f 4d 53 70 65 65 64 |+.(.(LowROMSpeed|
000057a0 29 2b 31 29 2b 22 20 6e 2d 63 79 63 6c 65 73 29 |)+1)+" n-cycles)|
000057b0 22 29 0d 1d 6a 07 20 20 cc 0d 1d 74 55 20 20 20 |")..j. ...tU |
000057c0 20 f2 75 70 64 61 74 65 69 63 6f 6e 28 31 2c c3 | .updateicon(1,.|
000057d0 28 a8 28 4c 6f 77 52 4f 4d 53 70 65 65 64 2a 52 |(.(LowROMSpeed*R|
000057e0 41 4d 53 70 65 65 64 29 29 2b 22 20 6e 53 20 28 |AMSpeed))+" nS (|
000057f0 22 2b c3 28 4c 6f 77 52 4f 4d 53 70 65 65 64 29 |"+.(LowROMSpeed)|
00005800 2b 22 20 6e 2d 63 79 63 6c 65 73 29 22 29 0d 1d |+" n-cycles)")..|
00005810 7e 07 20 20 cd 0d 1d 88 05 cd 0d 1d 92 04 0d 1d |~. ............|
00005820 9c 25 74 65 6d 70 3d 28 a8 28 28 31 2f 52 41 4d |.%temp=(.((1/RAM|
00005830 53 70 65 65 64 29 2a 31 30 30 30 30 30 29 29 2f |Speed)*100000))/|
00005840 31 30 30 0d 1d a6 3a f2 75 70 64 61 74 65 69 63 |100...:.updateic|
00005850 6f 6e 28 31 32 2c c3 28 a8 28 52 41 4d 53 70 65 |on(12,.(.(RAMSpe|
00005860 65 64 29 29 2b 22 20 6e 53 20 28 22 2b c3 28 74 |ed))+" nS ("+.(t|
00005870 65 6d 70 29 2b 22 20 4d 48 7a 29 22 29 0d 1d b0 |emp)+" MHz)")...|
00005880 04 0d 1d ba 15 c8 8e 20 44 52 41 4d 52 65 66 72 |....... DRAMRefr|
00005890 65 73 68 25 20 ca 0d 1d c4 22 20 20 c9 20 25 30 |esh% ...." . %0|
000058a0 30 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 31 34 |0:.updateicon(14|
000058b0 2c 22 4e 6f 6e 65 22 29 0d 1d ce 37 20 20 c9 20 |,"None")...7 . |
000058c0 25 30 31 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 |%01:.updateicon(|
000058d0 31 34 2c 22 44 75 72 69 6e 67 20 56 69 64 65 6f |14,"During Video|
000058e0 20 46 6c 79 62 61 63 6b 20 6f 6e 6c 79 22 29 0d | Flyback only").|
000058f0 1d d8 22 20 20 c9 20 25 31 30 3a f2 75 70 64 61 |.." . %10:.upda|
00005900 74 65 69 63 6f 6e 28 31 34 2c 22 4e 6f 6e 65 22 |teicon(14,"None"|
00005910 29 0d 1d e2 28 20 20 c9 20 25 31 31 3a f2 75 70 |)...( . %11:.up|
00005920 64 61 74 65 69 63 6f 6e 28 31 34 2c 22 43 6f 6e |dateicon(14,"Con|
00005930 74 69 6e 75 6f 75 73 22 29 0d 1d ec 05 cb 0d 1d |tinuous").......|
00005940 f6 04 0d 1e 00 36 f2 75 70 64 61 74 65 69 63 6f |.....6.updateico|
00005950 6e 28 31 37 2c c3 28 a8 28 4d 65 6d 6f 72 79 42 |n(17,.(.(MemoryB|
00005960 61 6e 64 77 69 64 74 68 29 29 2b 22 20 62 79 74 |andwidth))+" byt|
00005970 65 73 2f 73 65 63 22 29 0d 1e 0a 32 f2 75 70 64 |es/sec")...2.upd|
00005980 61 74 65 69 63 6f 6e 28 32 31 2c a4 73 74 72 70 |ateicon(21,.strp|
00005990 61 64 28 53 63 72 65 65 6e 42 61 6e 64 77 69 64 |ad(ScreenBandwid|
000059a0 74 68 2c 34 29 2b 22 25 22 29 0d 1e 14 2b 42 25 |th,4)+"%")...+B%|
000059b0 28 31 29 3d a4 62 61 72 28 42 25 28 31 29 2c 31 |(1)=.bar(B%(1),1|
000059c0 30 2e 32 38 2a 53 63 72 65 65 6e 42 61 6e 64 77 |0.28*ScreenBandw|
000059d0 69 64 74 68 29 0d 1e 1e 30 f2 75 70 64 61 74 65 |idth)...0.update|
000059e0 69 63 6f 6e 28 32 34 2c a4 73 74 72 70 61 64 28 |icon(24,.strpad(|
000059f0 44 52 41 4d 42 61 6e 64 77 69 64 74 68 2c 34 29 |DRAMBandwidth,4)|
00005a00 2b 22 25 22 29 0d 1e 28 29 42 25 28 32 29 3d a4 |+"%")..()B%(2)=.|
00005a10 62 61 72 28 42 25 28 32 29 2c 31 30 2e 32 38 2a |bar(B%(2),10.28*|
00005a20 44 52 41 4d 42 61 6e 64 77 69 64 74 68 29 0d 1e |DRAMBandwidth)..|
00005a30 32 35 f2 75 70 64 61 74 65 69 63 6f 6e 28 32 37 |25.updateicon(27|
00005a40 2c a4 73 74 72 70 61 64 28 50 72 6f 63 65 73 73 |,.strpad(Process|
00005a50 6f 72 42 61 6e 64 77 69 64 74 68 2c 34 29 2b 22 |orBandwidth,4)+"|
00005a60 25 22 29 0d 1e 3c 2e 42 25 28 33 29 3d a4 62 61 |%")..<.B%(3)=.ba|
00005a70 72 28 42 25 28 33 29 2c 31 30 2e 32 38 2a 50 72 |r(B%(3),10.28*Pr|
00005a80 6f 63 65 73 73 6f 72 42 61 6e 64 77 69 64 74 68 |ocessorBandwidth|
00005a90 29 0d 1e 46 57 f2 75 70 64 61 74 65 69 63 6f 6e |)..FW.updateicon|
00005aa0 28 33 30 2c a4 73 74 72 70 61 64 28 31 30 30 2d |(30,.strpad(100-|
00005ab0 53 63 72 65 65 6e 42 61 6e 64 77 69 64 74 68 2d |ScreenBandwidth-|
00005ac0 44 52 41 4d 42 61 6e 64 77 69 64 74 68 2d 50 72 |DRAMBandwidth-Pr|
00005ad0 6f 63 65 73 73 6f 72 42 61 6e 64 77 69 64 74 68 |ocessorBandwidth|
00005ae0 2c 34 29 2b 22 25 22 29 0d 1e 50 52 42 25 28 34 |,4)+"%")..PRB%(4|
00005af0 29 3d a4 62 61 72 28 42 25 28 34 29 2c 31 30 2e |)=.bar(B%(4),10.|
00005b00 32 38 2a 28 31 30 30 2d 53 63 72 65 65 6e 42 61 |28*(100-ScreenBa|
00005b10 6e 64 77 69 64 74 68 2d 44 52 41 4d 42 61 6e 64 |ndwidth-DRAMBand|
00005b20 77 69 64 74 68 2d 50 72 6f 63 65 73 73 6f 72 42 |width-ProcessorB|
00005b30 61 6e 64 77 69 64 74 68 29 29 0d 1e 5a 30 f2 75 |andwidth))..Z0.u|
00005b40 70 64 61 74 65 69 63 6f 6e 28 33 34 2c a4 73 74 |pdateicon(34,.st|
00005b50 72 70 61 64 28 54 6f 74 61 6c 4d 49 50 53 2c 32 |rpad(TotalMIPS,2|
00005b60 29 2b 22 20 4d 49 50 53 22 29 0d 1e 64 29 f2 75 |)+" MIPS")..d).u|
00005b70 70 64 61 74 65 69 63 6f 6e 28 33 37 2c a4 73 74 |pdateicon(37,.st|
00005b80 72 70 61 64 28 54 6f 74 61 6c 49 6e 64 65 78 2c |rpad(TotalIndex,|
00005b90 32 29 29 0d 1e 6e 24 42 25 28 35 29 3d a4 62 61 |2))..n$B%(5)=.ba|
00005ba0 72 28 42 25 28 35 29 2c 31 35 34 2a 54 6f 74 61 |r(B%(5),154*Tota|
00005bb0 6c 49 6e 64 65 78 29 0d 1e 78 04 0d 1e 82 25 f2 |lIndex)..x....%.|
00005bc0 75 70 64 61 74 65 69 63 6f 6e 28 34 32 2c a4 73 |updateicon(42,.s|
00005bd0 74 72 70 61 64 28 49 6e 64 65 78 31 2c 32 29 29 |trpad(Index1,2))|
00005be0 0d 1e 8c 20 42 25 28 36 29 3d a4 62 61 72 28 42 |... B%(6)=.bar(B|
00005bf0 25 28 36 29 2c 31 35 34 2a 49 6e 64 65 78 31 29 |%(6),154*Index1)|
00005c00 0d 1e 96 4d e7 20 50 72 6f 63 65 73 73 6f 72 25 |...M. Processor%|
00005c10 3d 31 20 f2 75 70 64 61 74 65 69 63 6f 6e 28 34 |=1 .updateicon(4|
00005c20 35 2c 22 4e 2f 41 22 29 20 8b 20 f2 75 70 64 61 |5,"N/A") . .upda|
00005c30 74 65 69 63 6f 6e 28 34 35 2c a4 73 74 72 70 61 |teicon(45,.strpa|
00005c40 64 28 49 6e 64 65 78 31 61 2c 32 29 29 0d 1e a0 |d(Index1a,2))...|
00005c50 21 42 25 28 37 29 3d a4 62 61 72 28 42 25 28 37 |!B%(7)=.bar(B%(7|
00005c60 29 2c 31 35 34 2a 49 6e 64 65 78 31 61 29 0d 1e |),154*Index1a)..|
00005c70 aa 25 f2 75 70 64 61 74 65 69 63 6f 6e 28 34 38 |.%.updateicon(48|
00005c80 2c a4 73 74 72 70 61 64 28 49 6e 64 65 78 32 2c |,.strpad(Index2,|
00005c90 32 29 29 0d 1e b4 20 42 25 28 38 29 3d a4 62 61 |2))... B%(8)=.ba|
00005ca0 72 28 42 25 28 38 29 2c 31 35 34 2a 49 6e 64 65 |r(B%(8),154*Inde|
00005cb0 78 32 29 0d 1e be 25 f2 75 70 64 61 74 65 69 63 |x2)...%.updateic|
00005cc0 6f 6e 28 35 31 2c a4 73 74 72 70 61 64 28 49 6e |on(51,.strpad(In|
00005cd0 64 65 78 33 2c 32 29 29 0d 1e c8 20 42 25 28 39 |dex3,2))... B%(9|
00005ce0 29 3d a4 62 61 72 28 42 25 28 39 29 2c 31 35 34 |)=.bar(B%(9),154|
00005cf0 2a 49 6e 64 65 78 33 29 0d 1e d2 25 f2 75 70 64 |*Index3)...%.upd|
00005d00 61 74 65 69 63 6f 6e 28 35 34 2c a4 73 74 72 70 |ateicon(54,.strp|
00005d10 61 64 28 49 6e 64 65 78 34 2c 32 29 29 0d 1e dc |ad(Index4,2))...|
00005d20 22 42 25 28 31 34 29 3d a4 62 61 72 28 42 25 28 |"B%(14)=.bar(B%(|
00005d30 31 34 29 2c 31 35 34 2a 49 6e 64 65 78 34 29 0d |14),154*Index4).|
00005d40 1e e6 26 f2 75 70 64 61 74 65 69 63 6f 6e 28 35 |..&.updateicon(5|
00005d50 38 2c a4 73 74 72 70 61 64 28 49 6e 64 65 78 31 |8,.strpad(Index1|
00005d60 4c 2c 32 29 29 0d 1e f0 23 42 25 28 31 35 29 3d |L,2))...#B%(15)=|
00005d70 a4 62 61 72 28 42 25 28 31 35 29 2c 31 35 34 2a |.bar(B%(15),154*|
00005d80 49 6e 64 65 78 31 4c 29 0d 1e fa 4e e7 20 50 72 |Index1L)...N. Pr|
00005d90 6f 63 65 73 73 6f 72 25 3d 31 20 f2 75 70 64 61 |ocessor%=1 .upda|
00005da0 74 65 69 63 6f 6e 28 36 31 2c 22 4e 2f 41 22 29 |teicon(61,"N/A")|
00005db0 20 8b 20 f2 75 70 64 61 74 65 69 63 6f 6e 28 36 | . .updateicon(6|
00005dc0 31 2c a4 73 74 72 70 61 64 28 49 6e 64 65 78 31 |1,.strpad(Index1|
00005dd0 61 4c 2c 32 29 29 0d 1f 04 24 42 25 28 31 36 29 |aL,2))...$B%(16)|
00005de0 3d a4 62 61 72 28 42 25 28 31 36 29 2c 31 35 34 |=.bar(B%(16),154|
00005df0 2a 49 6e 64 65 78 31 61 4c 29 0d 1f 0e 26 f2 75 |*Index1aL)...&.u|
00005e00 70 64 61 74 65 69 63 6f 6e 28 36 34 2c a4 73 74 |pdateicon(64,.st|
00005e10 72 70 61 64 28 49 6e 64 65 78 32 4c 2c 32 29 29 |rpad(Index2L,2))|
00005e20 0d 1f 18 23 42 25 28 31 37 29 3d a4 62 61 72 28 |...#B%(17)=.bar(|
00005e30 42 25 28 31 37 29 2c 31 35 34 2a 49 6e 64 65 78 |B%(17),154*Index|
00005e40 32 4c 29 0d 1f 22 26 f2 75 70 64 61 74 65 69 63 |2L).."&.updateic|
00005e50 6f 6e 28 36 37 2c a4 73 74 72 70 61 64 28 49 6e |on(67,.strpad(In|
00005e60 64 65 78 33 4c 2c 32 29 29 0d 1f 2c 23 42 25 28 |dex3L,2))..,#B%(|
00005e70 31 38 29 3d a4 62 61 72 28 42 25 28 31 38 29 2c |18)=.bar(B%(18),|
00005e80 31 35 34 2a 49 6e 64 65 78 33 4c 29 0d 1f 36 26 |154*Index3L)..6&|
00005e90 f2 75 70 64 61 74 65 69 63 6f 6e 28 37 30 2c a4 |.updateicon(70,.|
00005ea0 73 74 72 70 61 64 28 49 6e 64 65 78 34 4c 2c 32 |strpad(Index4L,2|
00005eb0 29 29 0d 1f 40 23 42 25 28 31 39 29 3d a4 62 61 |))..@#B%(19)=.ba|
00005ec0 72 28 42 25 28 31 39 29 2c 31 35 34 2a 49 6e 64 |r(B%(19),154*Ind|
00005ed0 65 78 34 4c 29 0d 1f 4a 29 f2 75 70 64 61 74 65 |ex4L)..J).update|
00005ee0 69 63 6f 6e 28 32 38 2c a4 73 74 72 70 61 64 28 |icon(28,.strpad(|
00005ef0 54 6f 74 61 6c 49 6e 64 65 78 2c 33 29 29 0d 1f |TotalIndex,3))..|
00005f00 54 28 42 25 28 31 30 29 3d a4 62 61 72 28 42 25 |T(B%(10)=.bar(B%|
00005f10 28 31 30 29 2c 31 35 34 2a 28 54 6f 74 61 6c 49 |(10),154*(TotalI|
00005f20 6e 64 65 78 29 29 0d 1f 5e 15 5a 3d 54 6f 74 61 |ndex))..^.Z=Tota|
00005f30 6c 49 6e 64 65 78 3a 44 25 3d 31 0d 1f 68 04 0d |lIndex:D%=1..h..|
00005f40 1f 72 0f e7 20 63 61 6c 63 4d 43 25 20 8c 0d 1f |.r.. calcMC% ...|
00005f50 7c 16 20 20 5a 2b 3d 4d 43 49 6e 64 65 78 3a 44 ||. Z+=MCIndex:D|
00005f60 25 2b 3d 31 0d 1f 86 28 20 20 f2 75 70 64 61 74 |%+=1...( .updat|
00005f70 65 69 63 6f 6e 28 34 36 2c a4 73 74 72 70 61 64 |eicon(46,.strpad|
00005f80 28 4d 43 49 6e 64 65 78 2c 33 29 29 0d 1f 90 25 |(MCIndex,3))...%|
00005f90 20 20 42 25 28 31 31 29 3d a4 62 61 72 28 42 25 | B%(11)=.bar(B%|
00005fa0 28 31 31 29 2c 31 35 34 2a 4d 43 49 6e 64 65 78 |(11),154*MCIndex|
00005fb0 29 0d 1f 9a 05 cc 0d 1f a4 24 20 20 f2 75 70 64 |)........$ .upd|
00005fc0 61 74 65 69 63 6f 6e 28 34 36 2c 22 4e 6f 74 20 |ateicon(46,"Not |
00005fd0 63 6f 6d 70 75 74 65 64 22 29 0d 1f ae 1b 20 20 |computed").... |
00005fe0 42 25 28 31 31 29 3d a4 62 61 72 28 42 25 28 31 |B%(11)=.bar(B%(1|
00005ff0 31 29 2c 30 29 0d 1f b8 05 cd 0d 1f c2 04 0d 1f |1),0)...........|
00006000 cc 12 e7 20 63 61 6c 63 42 41 53 49 43 25 20 8c |... calcBASIC% .|
00006010 0d 1f d6 19 20 20 5a 2b 3d 42 41 53 49 43 49 6e |.... Z+=BASICIn|
00006020 64 65 78 3a 44 25 2b 3d 31 0d 1f e0 2b 20 20 f2 |dex:D%+=1...+ .|
00006030 75 70 64 61 74 65 69 63 6f 6e 28 35 35 2c a4 73 |updateicon(55,.s|
00006040 74 72 70 61 64 28 42 41 53 49 43 49 6e 64 65 78 |trpad(BASICIndex|
00006050 2c 33 29 29 0d 1f ea 28 20 20 42 25 28 31 32 29 |,3))...( B%(12)|
00006060 3d a4 62 61 72 28 42 25 28 31 32 29 2c 31 35 34 |=.bar(B%(12),154|
00006070 2a 42 41 53 49 43 49 6e 64 65 78 29 0d 1f f4 05 |*BASICIndex)....|
00006080 cc 0d 1f fe 24 20 20 f2 75 70 64 61 74 65 69 63 |....$ .updateic|
00006090 6f 6e 28 35 35 2c 22 4e 6f 74 20 63 6f 6d 70 75 |on(55,"Not compu|
000060a0 74 65 64 22 29 0d 20 08 1b 20 20 42 25 28 31 32 |ted"). .. B%(12|
000060b0 29 3d a4 62 61 72 28 42 25 28 31 32 29 2c 30 29 |)=.bar(B%(12),0)|
000060c0 0d 20 12 05 cd 0d 20 1c 04 0d 20 26 11 e7 20 63 |. .... ... &.. c|
000060d0 61 6c 63 44 48 52 59 25 20 8c 0d 20 30 15 20 20 |alcDHRY% .. 0. |
000060e0 e7 20 44 48 52 59 6d 73 65 63 3d 2d 31 20 8c 0d |. DHRYmsec=-1 ..|
000060f0 20 3a 26 20 20 20 20 f2 75 70 64 61 74 65 69 63 | :& .updateic|
00006100 6f 6e 28 36 35 2c 22 4e 6f 74 20 63 6f 6d 70 75 |on(65,"Not compu|
00006110 74 65 64 22 29 0d 20 44 1d 20 20 20 20 42 25 28 |ted"). D. B%(|
00006120 32 30 29 3d a4 62 61 72 28 42 25 28 32 30 29 2c |20)=.bar(B%(20),|
00006130 30 29 0d 20 4e 07 20 20 cc 0d 20 58 1a 20 20 20 |0). N. .. X. |
00006140 20 5a 2b 3d 44 48 52 59 49 6e 64 65 78 3a 44 25 | Z+=DHRYIndex:D%|
00006150 2b 3d 31 0d 20 62 2c 20 20 20 20 f2 75 70 64 61 |+=1. b, .upda|
00006160 74 65 69 63 6f 6e 28 36 35 2c a4 73 74 72 70 61 |teicon(65,.strpa|
00006170 64 28 44 48 52 59 49 6e 64 65 78 2c 33 29 29 0d |d(DHRYIndex,3)).|
00006180 20 6c 29 20 20 20 20 42 25 28 32 30 29 3d a4 62 | l) B%(20)=.b|
00006190 61 72 28 42 25 28 32 30 29 2c 31 35 34 2a 44 48 |ar(B%(20),154*DH|
000061a0 52 59 49 6e 64 65 78 29 0d 20 76 07 20 20 cd 0d |RYIndex). v. ..|
000061b0 20 80 05 cc 0d 20 8a 24 20 20 f2 75 70 64 61 74 | .... .$ .updat|
000061c0 65 69 63 6f 6e 28 36 35 2c 22 4e 6f 74 20 63 6f |eicon(65,"Not co|
000061d0 6d 70 75 74 65 64 22 29 0d 20 94 1b 20 20 42 25 |mputed"). .. B%|
000061e0 28 32 30 29 3d a4 62 61 72 28 42 25 28 32 30 29 |(20)=.bar(B%(20)|
000061f0 2c 30 29 0d 20 9e 05 cd 0d 20 a8 04 0d 20 b2 23 |,0). .... ... .#|
00006200 f2 75 70 64 61 74 65 69 63 6f 6e 28 33 31 2c a4 |.updateicon(31,.|
00006210 73 74 72 70 61 64 28 5a 2f 44 25 2c 33 29 29 0d |strpad(Z/D%,3)).|
00006220 20 bc 22 42 25 28 31 33 29 3d a4 62 61 72 28 42 | ."B%(13)=.bar(B|
00006230 25 28 31 33 29 2c 31 35 34 2a 28 5a 2f 44 25 29 |%(13),154*(Z/D%)|
00006240 29 0d 20 c6 04 0d 20 d0 11 f4 20 2a 2a 20 43 68 |). ... ... ** Ch|
00006250 69 70 20 73 65 74 0d 20 da 12 c8 8e 20 4d 45 4d |ip set. .... MEM|
00006260 43 54 79 70 65 25 20 ca 0d 20 e4 2c 20 20 c9 20 |CType% .. ., . |
00006270 30 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 37 34 |0:.updateicon(74|
00006280 2c 22 4d 45 4d 43 31 20 2d 20 56 4c 38 36 43 31 |,"MEMC1 - VL86C1|
00006290 31 30 22 29 0d 20 ee 2d 20 20 c9 20 31 3a f2 75 |10"). .- . 1:.u|
000062a0 70 64 61 74 65 69 63 6f 6e 28 37 34 2c 22 4d 45 |pdateicon(74,"ME|
000062b0 4d 43 31 61 20 2d 20 56 4c 38 36 43 31 31 30 22 |MC1a - VL86C110"|
000062c0 29 0d 20 f8 05 7f 0d 21 02 1f 20 20 f2 75 70 64 |). ....!.. .upd|
000062d0 61 74 65 69 63 6f 6e 28 37 34 2c 22 55 6e 6b 6e |ateicon(74,"Unkn|
000062e0 6f 77 6e 22 29 0d 21 0c 05 cb 0d 21 16 04 0d 21 |own").!....!...!|
000062f0 20 11 c8 8e 20 49 4f 43 54 79 70 65 25 20 ca 0d | ... IOCType% ..|
00006300 21 2a 2b 20 20 c9 20 31 3a f2 75 70 64 61 74 65 |!*+ . 1:.update|
00006310 69 63 6f 6e 28 37 36 2c 22 49 4f 43 31 20 2d 20 |icon(76,"IOC1 - |
00006320 56 4c 38 36 43 34 31 30 22 29 0d 21 34 20 20 20 |VL86C410").!4 |
00006330 c9 20 32 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 |. 2:.updateicon(|
00006340 37 36 2c 22 49 4f 43 32 22 29 0d 21 3e 05 7f 0d |76,"IOC2").!>...|
00006350 21 48 1f 20 20 f2 75 70 64 61 74 65 69 63 6f 6e |!H. .updateicon|
00006360 28 37 36 2c 22 55 6e 6b 6e 6f 77 6e 22 29 0d 21 |(76,"Unknown").!|
00006370 52 05 cb 0d 21 5c 04 0d 21 66 1d f2 75 70 64 61 |R...!\..!f..upda|
00006380 74 65 69 63 6f 6e 28 37 38 2c 22 55 6e 6b 6e 6f |teicon(78,"Unkno|
00006390 77 6e 22 29 0d 21 70 04 0d 21 7a 12 c8 8e 20 56 |wn").!p..!z... V|
000063a0 49 44 43 54 79 70 65 25 20 ca 0d 21 84 2d 20 20 |IDCType% ..!.- |
000063b0 c9 20 31 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 |. 1:.updateicon(|
000063c0 38 30 2c 22 56 49 44 43 31 61 20 2d 20 56 4c 38 |80,"VIDC1a - VL8|
000063d0 36 43 33 31 30 22 29 0d 21 8e 35 20 20 c9 20 32 |6C310").!.5 . 2|
000063e0 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 38 30 2c |:.updateicon(80,|
000063f0 22 56 49 44 43 31 61 20 70 6c 75 73 20 56 49 44 |"VIDC1a plus VID|
00006400 43 20 45 6e 68 61 6e 63 65 72 22 29 0d 21 98 21 |C Enhancer").!.!|
00006410 20 20 c9 20 33 3a f2 75 70 64 61 74 65 69 63 6f | . 3:.updateico|
00006420 6e 28 38 30 2c 22 56 49 44 43 31 22 29 0d 21 a2 |n(80,"VIDC1").!.|
00006430 23 20 20 c9 20 32 30 3a f2 75 70 64 61 74 65 69 |# . 20:.updatei|
00006440 63 6f 6e 28 38 30 2c 22 56 49 44 43 32 30 22 29 |con(80,"VIDC20")|
00006450 0d 21 ac 46 20 20 c9 20 31 32 39 3a f2 75 70 64 |.!.F . 129:.upd|
00006460 61 74 65 69 63 6f 6e 28 38 30 2c 22 56 49 44 43 |ateicon(80,"VIDC|
00006470 31 61 20 2d 20 56 4c 38 36 43 33 31 30 20 28 2b |1a - VL86C310 (+|
00006480 50 43 41 54 53 20 47 72 61 70 68 69 63 73 20 63 |PCATS Graphics c|
00006490 61 72 64 29 22 29 0d 21 b6 3a 20 20 c9 20 31 33 |ard)").!.: . 13|
000064a0 31 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 38 30 |1:.updateicon(80|
000064b0 2c 22 56 49 44 43 31 20 28 2b 50 43 41 54 53 20 |,"VIDC1 (+PCATS |
000064c0 47 72 61 70 68 69 63 73 20 63 61 72 64 29 22 29 |Graphics card)")|
000064d0 0d 21 c0 05 7f 0d 21 ca 1f 20 20 f2 75 70 64 61 |.!....!.. .upda|
000064e0 74 65 69 63 6f 6e 28 38 30 2c 22 55 6e 6b 6e 6f |teicon(80,"Unkno|
000064f0 77 6e 22 29 0d 21 d4 05 cb 0d 21 de 04 0d 21 e8 |wn").!....!...!.|
00006500 13 c8 8e 20 50 72 6f 63 65 73 73 6f 72 25 20 ca |... Processor% .|
00006510 0d 21 f2 20 20 20 c9 20 31 3a f2 75 70 64 61 74 |.!. . 1:.updat|
00006520 65 69 63 6f 6e 28 38 32 2c 22 41 52 4d 31 22 29 |eicon(82,"ARM1")|
00006530 0d 21 fc 2b 20 20 c9 20 32 3a f2 75 70 64 61 74 |.!.+ . 2:.updat|
00006540 65 69 63 6f 6e 28 38 32 2c 22 41 52 4d 32 20 2d |eicon(82,"ARM2 -|
00006550 20 56 4c 38 36 43 30 31 30 22 29 0d 22 06 09 20 | VL86C010").".. |
00006560 20 c9 20 33 0d 22 10 26 20 20 20 20 c8 8e 20 28 | . 3.".& .. (|
00006570 50 72 6f 63 65 73 73 6f 72 54 79 70 65 25 3e 3e |ProcessorType%>>|
00006580 38 29 20 80 20 26 46 46 20 ca 0d 22 1a 1f 20 20 |8) . &FF ..".. |
00006590 20 20 20 20 c9 20 26 30 33 3a 41 24 3d 22 2d 20 | . &03:A$="- |
000065a0 56 4c 38 36 43 30 32 30 22 0d 22 24 0b 20 20 20 |VL86C020"."$. |
000065b0 20 20 20 7f 0d 22 2e 1b 20 20 20 20 20 20 20 20 | ..".. |
000065c0 41 24 3d 22 2d 20 56 4c 38 36 43 30 3f 3f 22 0d |A$="- VL86C0??".|
000065d0 22 38 09 20 20 20 20 cb 0d 22 42 2c 20 20 20 20 |"8. .."B, |
000065e0 41 24 2b 3d 22 20 72 65 76 2e 20 22 2b c3 28 50 |A$+=" rev. "+.(P|
000065f0 72 6f 63 65 73 73 6f 72 54 79 70 65 25 20 80 20 |rocessorType% . |
00006600 26 46 46 29 0d 22 4c 22 20 20 20 20 f2 75 70 64 |&FF)."L" .upd|
00006610 61 74 65 69 63 6f 6e 28 38 32 2c 22 41 52 4d 33 |ateicon(82,"ARM3|
00006620 20 22 2b 41 24 29 0d 22 56 29 20 20 c9 20 36 31 | "+A$)."V) . 61|
00006630 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 38 32 2c |:.updateicon(82,|
00006640 22 41 52 4d 32 61 73 2f 41 52 4d 36 31 22 29 0d |"ARM2as/ARM61").|
00006650 22 60 37 20 20 c9 20 32 35 30 3a f2 75 70 64 61 |"`7 . 250:.upda|
00006660 74 65 69 63 6f 6e 28 38 32 2c 22 41 52 4d 32 35 |teicon(82,"ARM25|
00006670 30 20 28 41 52 4d 32 61 73 20 6d 61 63 72 6f 63 |0 (ARM2as macroc|
00006680 65 6c 6c 29 22 29 0d 22 6a 0b 20 20 c9 20 36 30 |ell)")."j. . 60|
00006690 30 0d 22 74 26 20 20 20 20 c8 8e 20 28 50 72 6f |0."t& .. (Pro|
000066a0 63 65 73 73 6f 72 54 79 70 65 25 3e 3e 38 29 20 |cessorType%>>8) |
000066b0 80 20 26 46 46 20 ca 0d 22 7e 1f 20 20 20 20 20 |. &FF .."~. |
000066c0 20 c9 20 26 30 36 3a 41 24 3d 22 2d 20 56 4c 38 | . &06:A$="- VL8|
000066d0 36 43 30 3f 3f 22 0d 22 88 0b 20 20 20 20 20 20 |6C0??".".. |
000066e0 7f 0d 22 92 1b 20 20 20 20 20 20 20 20 41 24 3d |..".. A$=|
000066f0 22 2d 20 56 4c 38 36 43 30 3f 3f 22 0d 22 9c 09 |"- VL86C0??"."..|
00006700 20 20 20 20 cb 0d 22 a6 2c 20 20 20 20 41 24 2b | .."., A$+|
00006710 3d 22 20 72 65 76 2e 20 22 2b c3 28 50 72 6f 63 |=" rev. "+.(Proc|
00006720 65 73 73 6f 72 54 79 70 65 25 20 80 20 26 30 46 |essorType% . &0F|
00006730 29 0d 22 b0 24 20 20 20 20 f2 75 70 64 61 74 65 |).".$ .update|
00006740 69 63 6f 6e 28 38 32 2c 22 41 52 4d 36 30 30 20 |icon(82,"ARM600 |
00006750 22 2b 41 24 29 0d 22 ba 0b 20 20 c9 20 36 31 30 |"+A$).".. . 610|
00006760 0d 22 c4 26 20 20 20 20 c8 8e 20 28 50 72 6f 63 |.".& .. (Proc|
00006770 65 73 73 6f 72 54 79 70 65 25 3e 3e 38 29 20 80 |essorType%>>8) .|
00006780 20 26 46 46 20 ca 0d 22 ce 1f 20 20 20 20 20 20 | &FF ..".. |
00006790 c9 20 26 30 36 3a 41 24 3d 22 2d 20 56 4c 38 36 |. &06:A$="- VL86|
000067a0 43 30 3f 3f 22 0d 22 d8 0b 20 20 20 20 20 20 7f |C0??".".. .|
000067b0 0d 22 e2 1b 20 20 20 20 20 20 20 20 41 24 3d 22 |.".. A$="|
000067c0 2d 20 56 4c 38 36 43 30 3f 3f 22 0d 22 ec 09 20 |- VL86C0??".".. |
000067d0 20 20 20 cb 0d 22 f6 2c 20 20 20 20 41 24 2b 3d | .."., A$+=|
000067e0 22 20 72 65 76 2e 20 22 2b c3 28 50 72 6f 63 65 |" rev. "+.(Proce|
000067f0 73 73 6f 72 54 79 70 65 25 20 80 20 26 30 46 29 |ssorType% . &0F)|
00006800 0d 23 00 24 20 20 20 20 f2 75 70 64 61 74 65 69 |.#.$ .updatei|
00006810 63 6f 6e 28 38 32 2c 22 41 52 4d 36 31 30 20 22 |con(82,"ARM610 "|
00006820 2b 41 24 29 0d 23 0a 0b 20 20 c9 20 37 30 30 0d |+A$).#.. . 700.|
00006830 23 14 26 20 20 20 20 c8 8e 20 28 50 72 6f 63 65 |#.& .. (Proce|
00006840 73 73 6f 72 54 79 70 65 25 3e 3e 38 29 20 80 20 |ssorType%>>8) . |
00006850 26 46 46 20 ca 0d 23 1e 1f 20 20 20 20 20 20 c9 |&FF ..#.. .|
00006860 20 26 30 37 3a 41 24 3d 22 2d 20 56 4c 38 36 43 | &07:A$="- VL86C|
00006870 30 3f 3f 22 0d 23 28 0b 20 20 20 20 20 20 7f 0d |0??".#(. ..|
00006880 23 32 1b 20 20 20 20 20 20 20 20 41 24 3d 22 2d |#2. A$="-|
00006890 20 56 4c 38 36 43 30 3f 3f 22 0d 23 3c 09 20 20 | VL86C0??".#<. |
000068a0 20 20 cb 0d 23 46 2c 20 20 20 20 41 24 2b 3d 22 | ..#F, A$+="|
000068b0 20 72 65 76 2e 20 22 2b c3 28 50 72 6f 63 65 73 | rev. "+.(Proces|
000068c0 73 6f 72 54 79 70 65 25 20 80 20 26 46 46 29 0d |sorType% . &FF).|
000068d0 23 50 24 20 20 20 20 f2 75 70 64 61 74 65 69 63 |#P$ .updateic|
000068e0 6f 6e 28 38 32 2c 22 41 52 4d 37 30 30 20 22 2b |on(82,"ARM700 "+|
000068f0 41 24 29 0d 23 5a 0b 20 20 c9 20 38 30 30 0d 23 |A$).#Z. . 800.#|
00006900 64 26 20 20 20 20 c8 8e 20 28 50 72 6f 63 65 73 |d& .. (Proces|
00006910 73 6f 72 54 79 70 65 25 3e 3e 38 29 20 80 20 26 |sorType%>>8) . &|
00006920 46 46 20 ca 0d 23 6e 1f 20 20 20 20 20 20 c9 20 |FF ..#n. . |
00006930 26 30 38 3a 41 24 3d 22 2d 20 56 4c 38 36 43 30 |&08:A$="- VL86C0|
00006940 3f 3f 22 0d 23 78 0b 20 20 20 20 20 20 7f 0d 23 |??".#x. ..#|
00006950 82 1b 20 20 20 20 20 20 20 20 41 24 3d 22 2d 20 |.. A$="- |
00006960 56 4c 38 36 43 30 3f 3f 22 0d 23 8c 09 20 20 20 |VL86C0??".#.. |
00006970 20 cb 0d 23 96 2c 20 20 20 20 41 24 2b 3d 22 20 | ..#., A$+=" |
00006980 72 65 76 2e 20 22 2b c3 28 50 72 6f 63 65 73 73 |rev. "+.(Process|
00006990 6f 72 54 79 70 65 25 20 80 20 26 46 46 29 0d 23 |orType% . &FF).#|
000069a0 a0 24 20 20 20 20 f2 75 70 64 61 74 65 69 63 6f |.$ .updateico|
000069b0 6e 28 38 32 2c 22 41 52 4d 38 30 30 20 22 2b 41 |n(82,"ARM800 "+A|
000069c0 24 29 0d 23 aa 07 20 20 7f 0d 23 b4 21 20 20 20 |$).#.. ..#.! |
000069d0 20 f2 75 70 64 61 74 65 69 63 6f 6e 28 38 32 2c | .updateicon(82,|
000069e0 22 55 6e 6b 6e 6f 77 6e 22 29 0d 23 be 05 cb 0d |"Unknown").#....|
000069f0 23 c8 04 0d 23 d2 12 c8 8e 20 49 4f 45 42 54 79 |#...#.... IOEBTy|
00006a00 70 65 25 20 ca 0d 23 dc 24 20 20 c9 20 2d 31 3a |pe% ..#.$ . -1:|
00006a10 f2 75 70 64 61 74 65 69 63 6f 6e 28 37 38 2c 22 |.updateicon(78,"|
00006a20 55 6e 6b 6e 6f 77 6e 22 29 0d 23 e6 27 20 20 c9 |Unknown").#.' .|
00006a30 20 30 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 37 | 0:.updateicon(7|
00006a40 38 2c 22 4e 6f 74 20 70 72 65 73 65 6e 74 22 29 |8,"Not present")|
00006a50 0d 23 f0 05 7f 0d 23 fa 32 20 20 f2 75 70 64 61 |.#....#.2 .upda|
00006a60 74 65 69 63 6f 6e 28 37 38 2c 22 49 4f 45 42 20 |teicon(78,"IOEB |
00006a70 74 79 70 65 20 22 2b c3 28 a8 28 49 4f 45 42 54 |type "+.(.(IOEBT|
00006a80 79 70 65 25 29 29 29 0d 24 04 05 cb 0d 24 0e 04 |ype%))).$....$..|
00006a90 0d 24 18 11 c8 8e 20 46 50 41 54 79 70 65 25 20 |.$.... FPAType% |
00006aa0 ca 0d 24 22 24 20 20 c9 20 2d 31 3a f2 75 70 64 |..$"$ . -1:.upd|
00006ab0 61 74 65 69 63 6f 6e 28 38 34 2c 22 55 6e 6b 6e |ateicon(84,"Unkn|
00006ac0 6f 77 6e 22 29 0d 24 2c 26 20 20 c9 20 30 3a f2 |own").$,& . 0:.|
00006ad0 75 70 64 61 74 65 69 63 6f 6e 28 38 34 2c 22 4e |updateicon(84,"N|
00006ae0 6f 74 20 66 69 74 74 65 64 22 29 0d 24 36 3f 20 |ot fitted").$6? |
00006af0 20 c9 20 31 3a f2 75 70 64 61 74 65 69 63 6f 6e | . 1:.updateicon|
00006b00 28 38 34 2c 22 46 50 20 50 72 6f 74 6f 63 6f 6c |(84,"FP Protocol|
00006b10 20 43 6f 6e 76 65 72 74 6f 72 20 63 61 72 64 20 | Convertor card |
00006b20 28 57 45 32 32 30 36 29 22 29 0d 24 40 33 20 20 |(WE2206)").$@3 |
00006b30 c9 20 32 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 |. 2:.updateicon(|
00006b40 38 34 2c 22 41 52 4d 20 46 50 20 41 63 63 65 6c |84,"ARM FP Accel|
00006b50 65 72 61 74 6f 72 20 63 68 69 70 22 29 0d 24 4a |erator chip").$J|
00006b60 05 7f 0d 24 54 1f 20 20 f2 75 70 64 61 74 65 69 |...$T. .updatei|
00006b70 63 6f 6e 28 38 34 2c 22 55 6e 6b 6e 6f 77 6e 22 |con(84,"Unknown"|
00006b80 29 0d 24 5e 05 cb 0d 24 68 04 0d 24 72 14 c8 8e |).$^...$h..$r...|
00006b90 20 50 65 72 69 70 68 54 79 70 65 25 20 ca 0d 24 | PeriphType% ..$|
00006ba0 7c 24 20 20 c9 20 2d 31 3a f2 75 70 64 61 74 65 ||$ . -1:.update|
00006bb0 69 63 6f 6e 28 36 38 2c 22 55 6e 6b 6e 6f 77 6e |icon(68,"Unknown|
00006bc0 22 29 0d 24 86 26 20 20 c9 20 30 3a f2 75 70 64 |").$.& . 0:.upd|
00006bd0 61 74 65 69 63 6f 6e 28 36 38 2c 22 4e 6f 74 20 |ateicon(68,"Not |
00006be0 66 69 74 74 65 64 22 29 0d 24 90 22 20 20 c9 20 |fitted").$." . |
00006bf0 31 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 36 38 |1:.updateicon(68|
00006c00 2c 22 38 32 43 37 31 30 22 29 0d 24 9a 22 20 20 |,"82C710").$." |
00006c10 c9 20 32 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 |. 2:.updateicon(|
00006c20 36 38 2c 22 38 32 43 37 31 31 22 29 0d 24 a4 05 |68,"82C711").$..|
00006c30 7f 0d 24 ae 1f 20 20 f2 75 70 64 61 74 65 69 63 |..$.. .updateic|
00006c40 6f 6e 28 36 38 2c 22 55 6e 6b 6e 6f 77 6e 22 29 |on(68,"Unknown")|
00006c50 0d 24 b8 05 cb 0d 24 c2 04 0d 24 cc 11 c8 8e 20 |.$....$...$.... |
00006c60 4c 43 44 54 79 70 65 25 20 ca 0d 24 d6 24 20 20 |LCDType% ..$.$ |
00006c70 c9 20 2d 31 3a f2 75 70 64 61 74 65 69 63 6f 6e |. -1:.updateicon|
00006c80 28 33 39 2c 22 55 6e 6b 6e 6f 77 6e 22 29 0d 24 |(39,"Unknown").$|
00006c90 e0 26 20 20 c9 20 30 3a f2 75 70 64 61 74 65 69 |.& . 0:.updatei|
00006ca0 63 6f 6e 28 33 39 2c 22 4e 6f 74 20 66 69 74 74 |con(39,"Not fitt|
00006cb0 65 64 22 29 0d 24 ea 05 7f 0d 24 f4 30 20 20 f2 |ed").$....$.0 .|
00006cc0 75 70 64 61 74 65 69 63 6f 6e 28 33 39 2c 22 4c |updateicon(39,"L|
00006cd0 43 44 20 74 79 70 65 20 22 2b c3 28 a8 28 4c 43 |CD type "+.(.(LC|
00006ce0 44 54 79 70 65 25 29 29 29 0d 24 fe 05 cb 0d 25 |DType%))).$....%|
00006cf0 08 04 0d 25 12 10 f4 20 2a 2a 20 4f 53 20 69 6e |...%... ** OS in|
00006d00 66 6f 0d 25 1c 1a f2 75 70 64 61 74 65 69 63 6f |fo.%...updateico|
00006d10 6e 28 38 37 2c 4f 53 73 74 72 24 29 0d 25 26 1d |n(87,OSstr$).%&.|
00006d20 f2 75 70 64 61 74 65 69 63 6f 6e 28 38 39 2c 56 |.updateicon(89,V|
00006d30 49 44 45 4f 73 74 72 24 29 0d 25 30 13 c8 8e 20 |IDEOstr$).%0... |
00006d40 55 6e 69 71 75 65 49 44 61 25 20 ca 0d 25 3a 24 |UniqueIDa% ..%:$|
00006d50 20 20 c9 20 2d 31 3a f2 75 70 64 61 74 65 69 63 | . -1:.updateic|
00006d60 6f 6e 28 39 31 2c 22 55 6e 6b 6e 6f 77 6e 22 29 |on(91,"Unknown")|
00006d70 0d 25 44 29 20 20 c9 20 30 3a f2 75 70 64 61 74 |.%D) . 0:.updat|
00006d80 65 69 63 6f 6e 28 39 31 2c 22 4e 6f 74 20 61 76 |eicon(91,"Not av|
00006d90 61 69 6c 61 62 6c 65 22 29 0d 25 4e 07 20 20 7f |ailable").%N. .|
00006da0 0d 25 58 4f 20 20 20 20 f2 75 70 64 61 74 65 69 |.%XO .updatei|
00006db0 63 6f 6e 28 39 31 2c 22 26 22 2b a4 64 65 63 5f |con(91,"&"+.dec_|
00006dc0 74 6f 5f 68 65 78 28 55 6e 69 71 75 65 49 44 61 |to_hex(UniqueIDa|
00006dd0 25 29 2b 22 20 22 2b a4 64 65 63 5f 74 6f 5f 68 |%)+" "+.dec_to_h|
00006de0 65 78 28 55 6e 69 71 75 65 49 44 62 25 29 29 0d |ex(UniqueIDb%)).|
00006df0 25 62 05 cb 0d 25 6c 1a f2 75 70 64 61 74 65 69 |%b...%l..updatei|
00006e00 63 6f 6e 28 39 33 2c 46 50 73 74 72 24 29 0d 25 |con(93,FPstr$).%|
00006e10 76 13 e7 20 44 48 52 59 6d 73 65 63 3c 3d 30 20 |v.. DHRYmsec<=0 |
00006e20 8c 0d 25 80 24 20 20 f2 75 70 64 61 74 65 69 63 |..%.$ .updateic|
00006e30 6f 6e 28 39 35 2c 22 4e 6f 74 20 63 6f 6d 70 75 |on(95,"Not compu|
00006e40 74 65 64 22 29 0d 25 8a 24 20 20 f2 75 70 64 61 |ted").%.$ .upda|
00006e50 74 65 69 63 6f 6e 28 39 36 2c 22 4e 6f 74 20 63 |teicon(96,"Not c|
00006e60 6f 6d 70 75 74 65 64 22 29 0d 25 94 05 cc 0d 25 |omputed").%....%|
00006e70 9e 2c 20 20 f2 75 70 64 61 74 65 69 63 6f 6e 28 |., .updateicon(|
00006e80 39 35 2c c3 28 44 48 52 59 6d 73 65 63 29 2b 22 |95,.(DHRYmsec)+"|
00006e90 20 b5 53 2f 6c 6f 6f 70 22 29 0d 25 a8 32 20 20 | .S/loop").%.2 |
00006ea0 f2 75 70 64 61 74 65 69 63 6f 6e 28 39 36 2c c3 |.updateicon(96,.|
00006eb0 28 44 48 52 59 76 61 6c 75 65 29 2b 22 20 64 68 |(DHRYvalue)+" dh|
00006ec0 72 79 73 74 6f 6e 65 73 2f 53 22 29 0d 25 b2 05 |rystones/S").%..|
00006ed0 cd 0d 25 bc 1c f2 75 70 64 61 74 65 69 63 6f 6e |..%...updateicon|
00006ee0 28 39 39 2c c3 28 6d 6f 64 65 25 29 29 0d 25 c6 |(99,.(mode%)).%.|
00006ef0 04 0d 25 d0 10 f4 20 2a 2a 20 46 50 20 69 6e 66 |..%... ** FP inf|
00006f00 6f 0d 25 da 16 46 50 55 74 69 6d 65 3d 30 3a 46 |o.%..FPUtime=0:F|
00006f10 50 55 69 6e 73 3d 30 0d 25 e4 0e 46 50 55 69 6e |PUins=0.%..FPUin|
00006f20 64 65 78 3d 30 0d 25 ee 08 41 25 3d 30 0d 25 f8 |dex=0.%..A%=0.%.|
00006f30 1d c8 95 20 46 50 55 72 65 73 75 6c 74 73 21 28 |... FPUresults!(|
00006f40 31 32 2a 41 25 29 3c 3e 2d 31 0d 26 02 51 20 20 |12*A%)<>-1.&.Q |
00006f50 69 6e 64 65 78 3d a8 28 28 28 46 50 55 72 65 73 |index=.(((FPUres|
00006f60 75 6c 74 73 21 28 31 32 2a 41 25 2b 38 29 2f 28 |ults!(12*A%+8)/(|
00006f70 21 46 50 55 74 69 6d 65 72 2d 46 50 55 72 65 73 |!FPUtimer-FPUres|
00006f80 75 6c 74 73 21 28 31 32 2a 41 25 29 29 29 2b 30 |ults!(12*A%)))+0|
00006f90 2e 30 31 29 2a 35 30 29 2f 35 30 0d 26 0c 1e 20 |.01)*50)/50.&.. |
00006fa0 20 e7 20 46 50 55 72 65 73 75 6c 74 73 21 28 31 | . FPUresults!(1|
00006fb0 32 2a 41 25 29 3e 30 20 8c 0d 26 16 2c 20 20 20 |2*A%)>0 ..&., |
00006fc0 20 f2 75 70 64 61 74 65 69 63 6f 6e 32 28 34 37 | .updateicon2(47|
00006fd0 2b 41 25 2c a4 73 74 72 70 61 64 28 69 6e 64 65 |+A%,.strpad(inde|
00006fe0 78 2c 32 29 29 0d 26 20 2a 20 20 20 20 43 25 28 |x,2)).& * C%(|
00006ff0 41 25 2b 31 29 3d a4 62 61 72 32 28 43 25 28 41 |A%+1)=.bar2(C%(A|
00007000 25 2b 31 29 2c 31 35 34 2a 69 6e 64 65 78 29 0d |%+1),154*index).|
00007010 26 2a 17 20 20 20 20 46 50 55 69 6e 64 65 78 2b |&*. FPUindex+|
00007020 3d 69 6e 64 65 78 0d 26 34 2d 20 20 20 20 46 50 |=index.&4- FP|
00007030 55 74 69 6d 65 2b 3d 21 46 50 55 74 69 6d 65 72 |Utime+=!FPUtimer|
00007040 2d 46 50 55 72 65 73 75 6c 74 73 21 28 31 32 2a |-FPUresults!(12*|
00007050 41 25 29 0d 26 3e 07 20 20 cc 0d 26 48 21 20 20 |A%).&>. ..&H! |
00007060 20 20 f2 75 70 64 61 74 65 69 63 6f 6e 32 28 34 | .updateicon2(4|
00007070 37 2b 41 25 2c 22 4e 2f 41 22 29 0d 26 52 22 20 |7+A%,"N/A").&R" |
00007080 20 20 20 43 25 28 41 25 2b 31 29 3d a4 62 61 72 | C%(A%+1)=.bar|
00007090 32 28 43 25 28 41 25 2b 31 29 2c 30 29 0d 26 5c |2(C%(A%+1),0).&\|
000070a0 07 20 20 cd 0d 26 66 24 20 20 46 50 55 69 6e 73 |. ..&f$ FPUins|
000070b0 2b 3d 46 50 55 72 65 73 75 6c 74 73 21 28 31 32 |+=FPUresults!(12|
000070c0 2a 41 25 2b 34 29 2a 32 0d 26 70 0b 20 20 41 25 |*A%+4)*2.&p. A%|
000070d0 2b 3d 31 0d 26 7a 05 ce 0d 26 84 04 0d 26 8e 18 |+=1.&z...&...&..|
000070e0 46 50 55 69 6e 64 65 78 3d 46 50 55 69 6e 64 65 |FPUindex=FPUinde|
000070f0 78 2f 41 25 0d 26 98 55 e7 20 46 50 55 69 6e 64 |x/A%.&.U. FPUind|
00007100 65 78 3e 30 20 8c 20 f2 75 70 64 61 74 65 69 63 |ex>0 . .updateic|
00007110 6f 6e 32 28 34 36 2c a4 73 74 72 70 61 64 28 46 |on2(46,.strpad(F|
00007120 50 55 69 6e 64 65 78 2b 2e 30 30 35 2c 32 29 29 |PUindex+.005,2))|
00007130 20 8b 20 f2 75 70 64 61 74 65 69 63 6f 6e 32 28 | . .updateicon2(|
00007140 34 36 2c 22 4e 2f 41 22 29 0d 26 a2 23 43 25 28 |46,"N/A").&.#C%(|
00007150 30 29 3d a4 62 61 72 32 28 43 25 28 30 29 2c 31 |0)=.bar2(C%(0),1|
00007160 35 34 2a 46 50 55 69 6e 64 65 78 29 0d 26 ac 74 |54*FPUindex).&.t|
00007170 e7 20 46 50 55 69 6e 64 65 78 3e 30 20 8c 20 f2 |. FPUindex>0 . .|
00007180 75 70 64 61 74 65 69 63 6f 6e 32 28 34 35 2c c3 |updateicon2(45,.|
00007190 28 a8 28 46 50 55 69 6e 73 2f 28 46 50 55 74 69 |(.(FPUins/(FPUti|
000071a0 6d 65 2a 4f 6e 65 43 6c 6f 63 6b 54 69 63 6b 29 |me*OneClockTick)|
000071b0 29 29 2b 22 20 46 4c 4f 50 53 22 29 20 8b 20 f2 |))+" FLOPS") . .|
000071c0 75 70 64 61 74 65 69 63 6f 6e 32 28 34 35 2c 22 |updateicon2(45,"|
000071d0 4e 6f 74 20 63 61 6c 63 75 6c 61 74 65 64 22 29 |Not calculated")|
000071e0 0d 26 b6 04 0d 26 c0 22 e7 20 28 57 4f 25 20 80 |.&...&.". (WO% .|
000071f0 20 25 31 29 20 80 20 53 48 25 3c 3e 66 70 75 69 | %1) . SH%<>fpui|
00007200 6e 66 6f 25 20 8c 0d 26 ca 3a 20 20 62 6c 6f 63 |nfo% ..&.: bloc|
00007210 6b 31 25 21 30 3d 73 79 73 69 6e 66 6f 25 3a c8 |k1%!0=sysinfo%:.|
00007220 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00007230 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 31 25 |wState",,block1%|
00007240 0d 26 d4 32 20 20 62 6c 6f 63 6b 31 25 21 32 38 |.&.2 block1%!28|
00007250 3d 53 48 25 3a c8 99 20 22 57 69 6d 70 5f 4f 70 |=SH%:.. "Wimp_Op|
00007260 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b |enWindow",,block|
00007270 31 25 0d 26 de 05 cd 0d 26 e8 11 e7 20 57 4f 25 |1%.&....&... WO%|
00007280 20 80 20 25 31 30 20 8c 0d 26 f2 3a 20 20 62 6c | . %10 ..&.: bl|
00007290 6f 63 6b 31 25 21 30 3d 66 70 75 69 6e 66 6f 25 |ock1%!0=fpuinfo%|
000072a0 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e |:.. "Wimp_GetWin|
000072b0 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b |dowState",,block|
000072c0 31 25 0d 26 fc 32 20 20 62 6c 6f 63 6b 31 25 21 |1%.&.2 block1%!|
000072d0 32 38 3d 46 48 25 3a c8 99 20 22 57 69 6d 70 5f |28=FH%:.. "Wimp_|
000072e0 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f |OpenWindow",,blo|
000072f0 63 6b 31 25 0d 27 06 05 cd 0d 27 10 21 e7 20 28 |ck1%.'....'.!. (|
00007300 57 4f 25 20 80 20 25 31 29 20 80 20 53 48 25 3d |WO% . %1) . SH%=|
00007310 66 70 75 69 6e 66 6f 25 20 8c 0d 27 1a 3a 20 20 |fpuinfo% ..'.: |
00007320 62 6c 6f 63 6b 31 25 21 30 3d 73 79 73 69 6e 66 |block1%!0=sysinf|
00007330 6f 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 |o%:.. "Wimp_GetW|
00007340 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f |indowState",,blo|
00007350 63 6b 31 25 0d 27 24 32 20 20 62 6c 6f 63 6b 31 |ck1%.'$2 block1|
00007360 25 21 32 38 3d 53 48 25 3a c8 99 20 22 57 69 6d |%!28=SH%:.. "Wim|
00007370 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 |p_OpenWindow",,b|
00007380 6c 6f 63 6b 31 25 0d 27 2e 05 cd 0d 27 38 04 0d |lock1%.'....'8..|
00007390 27 42 16 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 |'B... "Hourglass|
000073a0 5f 4f 66 66 22 0d 27 4c 5f e7 20 45 25 20 f2 65 |_Off".'L_. E% .e|
000073b0 72 72 6f 72 28 30 2c 22 55 6e 61 62 6c 65 20 74 |rror(0,"Unable t|
000073c0 6f 20 63 6f 6d 70 75 74 65 20 4d 43 2f 42 41 53 |o compute MC/BAS|
000073d0 49 43 2f 46 50 55 2f 44 68 72 79 73 74 6f 6e 65 |IC/FPU/Dhrystone|
000073e0 20 69 6e 64 65 78 65 73 20 77 69 74 68 6f 75 74 | indexes without|
000073f0 20 44 52 41 4d 20 72 65 66 72 65 73 68 22 29 3a | DRAM refresh"):|
00007400 45 25 3d a3 0d 27 56 48 e7 20 45 31 25 20 f2 65 |E%=..'VH. E1% .e|
00007410 72 72 6f 72 28 30 2c 22 4e 6f 20 46 6c 6f 61 74 |rror(0,"No Float|
00007420 69 6e 67 20 50 6f 69 6e 74 20 55 6e 69 74 2f 45 |ing Point Unit/E|
00007430 6d 75 6c 61 74 6f 72 2f 43 68 69 70 20 70 72 65 |mulator/Chip pre|
00007440 73 65 6e 74 22 29 3a 45 31 25 3d a3 0d 27 60 05 |sent"):E1%=..'`.|
00007450 e1 0d 27 6a 05 3a 0d 27 74 09 f4 20 2a 2a 2a 0d |..'j.:.'t.. ***.|
00007460 27 7e 18 f4 20 2a 2a 2a 20 4c 6f 61 64 2f 53 61 |'~.. *** Load/Sa|
00007470 76 65 20 63 6f 64 65 0d 27 88 09 f4 20 2a 2a 2a |ve code.'... ***|
00007480 0d 27 92 05 3a 0d 27 9c 19 f4 20 53 61 76 65 20 |.'..:.'... Save |
00007490 6f 66 66 20 41 72 6d 53 49 20 66 69 6c 65 0d 27 |off ArmSI file.'|
000074a0 a6 19 dd 20 f2 73 61 76 65 73 69 28 66 69 6c 65 |... .savesi(file|
000074b0 5f 6e 61 6d 65 24 29 0d 27 b0 13 ea 20 6e 61 6d |_name$).'... nam|
000074c0 65 24 2c 20 46 25 2c 20 5a 25 0d 27 ba 07 ea 20 |e$, F%, Z%.'... |
000074d0 85 0d 27 c4 36 ee 20 85 20 ea 3a f2 65 72 72 6f |..'.6. . .:.erro|
000074e0 72 28 30 2c 20 22 43 6f 75 6c 64 6e 27 74 20 73 |r(0, "Couldn't s|
000074f0 61 76 65 20 66 69 6c 65 20 2d 20 22 2b f6 24 29 |ave file - "+.$)|
00007500 3a d9 23 46 25 3a e1 0d 27 ce 23 f2 55 5f 53 74 |:.#F%:..'.#.U_St|
00007510 72 69 6e 67 28 73 61 76 65 73 69 25 2c 31 2c 66 |ring(savesi%,1,f|
00007520 69 6c 65 5f 6e 61 6d 65 24 29 0d 27 d8 14 46 25 |ile_name$).'..F%|
00007530 3d ae 28 66 69 6c 65 5f 6e 61 6d 65 24 29 0d 27 |=.(file_name$).'|
00007540 e2 27 f1 23 46 25 2c 33 33 30 3a f4 20 56 65 72 |.'.#F%,330:. Ver|
00007550 73 69 6f 6e 20 33 33 30 20 28 33 2e 33 30 20 2a |sion 330 (3.30 *|
00007560 20 31 30 30 29 0d 27 ec 1f 6e 61 6d 65 24 3d a4 | 100).'..name$=.|
00007570 52 5f 53 74 72 69 6e 67 28 73 79 73 69 6e 66 6f |R_String(sysinfo|
00007580 25 2c 32 29 0d 27 f6 0e f1 23 46 25 2c 6e 61 6d |%,2).'...#F%,nam|
00007590 65 24 0d 28 00 32 f1 23 46 25 2c 6d 6f 64 65 25 |e$.(.2.#F%,mode%|
000075a0 2c 53 63 72 65 65 6e 53 69 7a 65 25 2c 4d 45 4d |,ScreenSize%,MEM|
000075b0 43 53 74 61 74 65 25 2c 4f 6e 65 43 6c 6f 63 6b |CState%,OneClock|
000075c0 54 69 63 6b 0d 28 0a 40 f1 23 46 25 2c 54 69 6d |Tick.(.@.#F%,Tim|
000075d0 65 54 61 6b 65 6e 31 2c 54 69 6d 65 54 61 6b 65 |eTaken1,TimeTake|
000075e0 6e 31 61 2c 54 69 6d 65 54 61 6b 65 6e 32 2c 54 |n1a,TimeTaken2,T|
000075f0 69 6d 65 54 61 6b 65 6e 33 2c 54 69 6d 65 54 61 |imeTaken3,TimeTa|
00007600 6b 65 6e 34 0d 28 14 45 f1 23 46 25 2c 54 69 6d |ken4.(.E.#F%,Tim|
00007610 65 54 61 6b 65 6e 31 4c 2c 54 69 6d 65 54 61 6b |eTaken1L,TimeTak|
00007620 65 6e 31 61 4c 2c 54 69 6d 65 54 61 6b 65 6e 32 |en1aL,TimeTaken2|
00007630 4c 2c 54 69 6d 65 54 61 6b 65 6e 33 4c 2c 54 69 |L,TimeTaken3L,Ti|
00007640 6d 65 54 61 6b 65 6e 34 4c 0d 28 1e 1c f1 23 46 |meTaken4L.(...#F|
00007650 25 2c 21 4d 43 63 6f 75 6e 74 2c 42 41 53 49 43 |%,!MCcount,BASIC|
00007660 63 6f 75 6e 74 0d 28 28 5e f1 23 46 25 2c 49 6e |count.((^.#F%,In|
00007670 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 2c 49 |structionTime1,I|
00007680 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 61 |nstructionTime1a|
00007690 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 |,InstructionTime|
000076a0 32 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d |2,InstructionTim|
000076b0 65 33 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 |e3,InstructionTi|
000076c0 6d 65 34 0d 28 32 63 f1 23 46 25 2c 49 6e 73 74 |me4.(2c.#F%,Inst|
000076d0 72 75 63 74 69 6f 6e 54 69 6d 65 31 4c 2c 49 6e |ructionTime1L,In|
000076e0 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 61 4c |structionTime1aL|
000076f0 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 |,InstructionTime|
00007700 32 4c 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 |2L,InstructionTi|
00007710 6d 65 33 4c 2c 49 6e 73 74 72 75 63 74 69 6f 6e |me3L,Instruction|
00007720 54 69 6d 65 34 4c 0d 28 3c 27 f1 23 46 25 2c 4d |Time4L.(<'.#F%,M|
00007730 49 50 53 31 2c 4d 49 50 53 31 61 2c 4d 49 50 53 |IPS1,MIPS1a,MIPS|
00007740 32 2c 4d 49 50 53 33 2c 4d 49 50 53 34 0d 28 46 |2,MIPS3,MIPS4.(F|
00007750 2c f1 23 46 25 2c 4d 49 50 53 31 4c 2c 4d 49 50 |,.#F%,MIPS1L,MIP|
00007760 53 31 61 4c 2c 4d 49 50 53 32 4c 2c 4d 49 50 53 |S1aL,MIPS2L,MIPS|
00007770 33 4c 2c 4d 49 50 53 34 4c 0d 28 50 3f f1 23 46 |3L,MIPS4L.(P?.#F|
00007780 25 2c 50 72 6f 63 65 73 73 6f 72 25 2c 50 72 6f |%,Processor%,Pro|
00007790 63 65 73 73 6f 72 54 79 70 65 25 2c 49 4f 43 54 |cessorType%,IOCT|
000077a0 79 70 65 25 2c 4d 45 4d 43 54 79 70 65 25 2c 56 |ype%,MEMCType%,V|
000077b0 49 44 43 54 79 70 65 25 0d 28 5a 40 f1 23 46 25 |IDCType%.(Z@.#F%|
000077c0 2c 52 41 4d 53 69 7a 65 25 2c 48 69 67 68 52 4f |,RAMSize%,HighRO|
000077d0 4d 53 70 65 65 64 2c 4c 6f 77 52 4f 4d 53 70 65 |MSpeed,LowROMSpe|
000077e0 65 64 2c 52 41 4d 53 70 65 65 64 2c 44 52 41 4d |ed,RAMSpeed,DRAM|
000077f0 52 65 66 72 65 73 68 25 0d 28 64 49 f1 23 46 25 |Refresh%.(dI.#F%|
00007800 2c 4d 65 6d 6f 72 79 42 61 6e 64 77 69 64 74 68 |,MemoryBandwidth|
00007810 2c 53 63 72 65 65 6e 42 61 6e 64 77 69 64 74 68 |,ScreenBandwidth|
00007820 2c 44 52 41 4d 42 61 6e 64 77 69 64 74 68 2c 50 |,DRAMBandwidth,P|
00007830 72 6f 63 65 73 73 6f 72 42 61 6e 64 77 69 64 74 |rocessorBandwidt|
00007840 68 0d 28 6e 25 f1 23 46 25 2c 54 6f 74 61 6c 4d |h.(n%.#F%,TotalM|
00007850 49 50 53 2c 54 6f 74 61 6c 49 6e 64 65 78 2c 4d |IPS,TotalIndex,M|
00007860 43 49 6e 64 65 78 0d 28 78 2c f1 23 46 25 2c 49 |CIndex.(x,.#F%,I|
00007870 6e 64 65 78 31 2c 49 6e 64 65 78 31 61 2c 49 6e |ndex1,Index1a,In|
00007880 64 65 78 32 2c 49 6e 64 65 78 33 2c 49 6e 64 65 |dex2,Index3,Inde|
00007890 78 34 0d 28 82 31 f1 23 46 25 2c 49 6e 64 65 78 |x4.(.1.#F%,Index|
000078a0 31 4c 2c 49 6e 64 65 78 31 61 4c 2c 49 6e 64 65 |1L,Index1aL,Inde|
000078b0 78 32 4c 2c 49 6e 64 65 78 33 4c 2c 49 6e 64 65 |x2L,Index3L,Inde|
000078c0 78 34 4c 0d 28 8c 31 f1 23 46 25 2c 42 41 53 49 |x4L.(.1.#F%,BASI|
000078d0 43 49 6e 64 65 78 2c 63 61 6c 63 4d 43 25 2c 63 |CIndex,calcMC%,c|
000078e0 61 6c 63 42 41 53 49 43 25 2c 44 52 41 4d 43 68 |alcBASIC%,DRAMCh|
000078f0 65 63 6b 25 0d 28 96 2f f1 23 46 25 2c 44 48 52 |eck%.(./.#F%,DHR|
00007900 59 49 6e 64 65 78 2c 44 48 52 59 6d 73 65 63 2c |YIndex,DHRYmsec,|
00007910 44 48 52 59 76 61 6c 75 65 2c 63 61 6c 63 44 48 |DHRYvalue,calcDH|
00007920 52 59 25 0d 28 a0 34 f1 23 46 25 2c 46 50 55 69 |RY%.(.4.#F%,FPUi|
00007930 6e 64 65 78 2c 46 50 55 74 69 6d 65 2c 46 50 55 |ndex,FPUtime,FPU|
00007940 74 69 6d 65 2c 21 46 50 55 74 69 6d 65 72 2c 63 |time,!FPUtimer,c|
00007950 61 6c 63 46 50 55 25 0d 28 aa 08 5a 25 3d 30 0d |alcFPU%.(..Z%=0.|
00007960 28 b4 1d c8 95 20 46 50 55 72 65 73 75 6c 74 73 |(.... FPUresults|
00007970 21 28 5a 25 2a 31 32 29 3c 3e 2d 31 0d 28 be 1d |!(Z%*12)<>-1.(..|
00007980 20 20 f1 23 46 25 2c 46 50 55 72 65 73 75 6c 74 | .#F%,FPUresult|
00007990 73 21 28 5a 25 2a 31 32 29 0d 28 c8 0b 20 20 5a |s!(Z%*12).(.. Z|
000079a0 25 2b 3d 31 0d 28 d2 05 ce 0d 28 dc 2f f1 23 46 |%+=1.(....(./.#F|
000079b0 25 2c 4f 53 76 65 72 25 2c 52 4f 4d 73 69 7a 65 |%,OSver%,ROMsize|
000079c0 25 2c 52 4f 4d 73 69 7a 65 35 74 68 25 2c 52 4f |%,ROMsize5th%,RO|
000079d0 4d 6e 75 6d 35 74 68 25 0d 28 e6 0f f1 23 46 25 |Mnum5th%.(...#F%|
000079e0 2c 4f 53 73 74 72 24 0d 28 f0 1e f1 23 46 25 2c |,OSstr$.(...#F%,|
000079f0 55 6e 69 71 75 65 49 44 61 25 2c 55 6e 69 71 75 |UniqueIDa%,Uniqu|
00007a00 65 49 44 62 25 0d 28 fa 0f f1 23 46 25 2c 46 50 |eIDb%.(...#F%,FP|
00007a10 73 74 72 24 0d 29 04 30 f1 23 46 25 2c 49 4f 45 |str$.).0.#F%,IOE|
00007a20 42 54 79 70 65 25 2c 46 50 41 54 79 70 65 25 2c |BType%,FPAType%,|
00007a30 50 65 72 69 70 68 54 79 70 65 25 2c 4c 43 44 54 |PeriphType%,LCDT|
00007a40 79 70 65 25 0d 29 0e 12 f1 23 46 25 2c 56 49 44 |ype%.)...#F%,VID|
00007a50 45 4f 73 74 72 24 0d 29 18 29 f1 23 46 25 2c 46 |EOstr$.).).#F%,F|
00007a60 61 73 74 65 72 42 41 53 49 43 25 2c 46 61 73 74 |asterBASIC%,Fast|
00007a70 65 72 46 50 45 25 2c 43 61 63 68 65 4f 4e 25 0d |erFPE%,CacheON%.|
00007a80 29 22 1f f1 23 46 25 2c 56 69 64 65 6f 44 4d 41 |)"..#F%,VideoDMA|
00007a90 25 2c 52 41 4d 50 61 67 65 53 69 7a 65 25 0d 29 |%,RAMPageSize%.)|
00007aa0 2c 08 d9 23 46 25 0d 29 36 2e ff 20 22 53 65 74 |,..#F%.)6.. "Set|
00007ab0 54 79 70 65 20 22 2b 66 69 6c 65 5f 6e 61 6d 65 |Type "+file_name|
00007ac0 24 2b 22 20 22 2b c3 6f 75 72 5f 66 69 6c 65 74 |$+" "+.our_filet|
00007ad0 79 70 65 25 0d 29 40 1b c8 99 20 22 57 69 6d 70 |ype%.)@... "Wimp|
00007ae0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 0d |_CreateMenu",-1.|
00007af0 29 4a 05 e1 0d 29 54 05 3a 0d 29 5e 19 dd 20 f2 |)J...)T.:.)^.. .|
00007b00 6c 6f 61 64 73 69 28 66 69 6c 65 5f 6e 61 6d 65 |loadsi(file_name|
00007b10 24 29 0d 29 68 0e ea 20 5a 25 2c 46 25 2c 56 25 |$).)h.. Z%,F%,V%|
00007b20 0d 29 72 07 ea 20 85 0d 29 7c 47 ee 20 85 20 ea |.)r.. ..)|G. . .|
00007b30 3a f2 65 72 72 6f 72 28 30 2c 20 22 43 6f 75 6c |:.error(0, "Coul|
00007b40 64 6e 27 74 20 6c 6f 61 64 20 66 69 6c 65 20 27 |dn't load file '|
00007b50 22 2b 66 69 6c 65 5f 6e 61 6d 65 24 2b 22 27 20 |"+file_name$+"' |
00007b60 2d 20 22 2b f6 24 29 3a d9 23 46 25 3a e1 0d 29 |- "+.$):.#F%:..)|
00007b70 86 23 f2 55 5f 53 74 72 69 6e 67 28 73 61 76 65 |.#.U_String(save|
00007b80 73 69 25 2c 31 2c 66 69 6c 65 5f 6e 61 6d 65 24 |si%,1,file_name$|
00007b90 29 0d 29 90 08 5a 25 3d 30 0d 29 9a 1d c8 95 20 |).)..Z%=0.).... |
00007ba0 46 50 55 72 65 73 75 6c 74 73 21 28 5a 25 2a 31 |FPUresults!(Z%*1|
00007bb0 32 29 3c 3e 2d 31 0d 29 a4 1a 20 20 46 50 55 72 |2)<>-1.).. FPUr|
00007bc0 65 73 75 6c 74 73 21 28 5a 25 2a 31 32 29 3d 30 |esults!(Z%*12)=0|
00007bd0 0d 29 ae 0b 20 20 5a 25 2b 3d 31 0d 29 b8 05 ce |.).. Z%+=1.)...|
00007be0 0d 29 c2 0e 63 61 6c 63 46 50 55 25 3d a3 0d 29 |.)..calcFPU%=..)|
00007bf0 cc 08 45 25 3d a3 0d 29 d6 09 45 31 25 3d a3 0d |..E%=..)..E1%=..|
00007c00 29 e0 04 0d 29 ea 14 46 25 3d 8e 28 66 69 6c 65 |)...)..F%=.(file|
00007c10 5f 6e 61 6d 65 24 29 0d 29 f4 0b e8 23 46 25 2c |_name$).)...#F%,|
00007c20 56 25 0d 29 fe 0b c8 8e 20 56 25 20 ca 0d 2a 08 |V%.).... V% ..*.|
00007c30 07 c9 20 31 0d 2a 12 04 0d 2a 1c 0f f4 20 56 65 |.. 1.*...*... Ve|
00007c40 72 73 69 6f 6e 20 31 0d 2a 26 1d e8 23 46 25 2c |rsion 1.*&..#F%,|
00007c50 41 24 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 32 |A$:.updateicon(2|
00007c60 2c 41 24 29 0d 2a 30 1f e8 23 46 25 2c 6d 6f 64 |,A$).*0..#F%,mod|
00007c70 65 25 2c 53 2c 4d 2c 4f 6e 65 43 6c 6f 63 6b 54 |e%,S,M,OneClockT|
00007c80 69 63 6b 0d 2a 3a 1e 53 63 72 65 65 6e 53 69 7a |ick.*:.ScreenSiz|
00007c90 65 25 3d 53 3a 4d 45 4d 43 53 74 61 74 65 25 3d |e%=S:MEMCState%=|
00007ca0 4d 0d 2a 44 35 e8 23 46 25 2c 54 69 6d 65 54 61 |M.*D5.#F%,TimeTa|
00007cb0 6b 65 6e 31 2c 54 69 6d 65 54 61 6b 65 6e 31 61 |ken1,TimeTaken1a|
00007cc0 2c 54 69 6d 65 54 61 6b 65 6e 32 2c 54 69 6d 65 |,TimeTaken2,Time|
00007cd0 54 61 6b 65 6e 33 0d 2a 4e 1c e8 23 46 25 2c 21 |Taken3.*N..#F%,!|
00007ce0 4d 43 63 6f 75 6e 74 2c 42 41 53 49 43 63 6f 75 |MCcount,BASICcou|
00007cf0 6e 74 0d 2a 58 4d e8 23 46 25 2c 49 6e 73 74 72 |nt.*XM.#F%,Instr|
00007d00 75 63 74 69 6f 6e 54 69 6d 65 31 2c 49 6e 73 74 |uctionTime1,Inst|
00007d10 72 75 63 74 69 6f 6e 54 69 6d 65 31 61 2c 49 6e |ructionTime1a,In|
00007d20 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 32 2c 49 |structionTime2,I|
00007d30 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 33 0d |nstructionTime3.|
00007d40 2a 62 38 e8 23 46 25 2c 4d 49 50 53 31 2c 4d 49 |*b8.#F%,MIPS1,MI|
00007d50 50 53 31 61 2c 4d 49 50 53 32 2c 4d 49 50 53 33 |PS1a,MIPS2,MIPS3|
00007d60 2c 50 2c 50 72 6f 63 65 73 73 6f 72 54 79 70 65 |,P,ProcessorType|
00007d70 25 2c 49 2c 4d 2c 56 0d 2a 6c 32 50 72 6f 63 65 |%,I,M,V.*l2Proce|
00007d80 73 73 6f 72 25 3d 50 3a 49 4f 43 54 79 70 65 25 |ssor%=P:IOCType%|
00007d90 3d 49 3a 4d 45 4d 43 54 79 70 65 25 3d 4d 3a 56 |=I:MEMCType%=M:V|
00007da0 49 44 43 54 79 70 65 3d 56 0d 2a 76 2e e8 23 46 |IDCType=V.*v..#F|
00007db0 25 2c 52 2c 48 69 67 68 52 4f 4d 53 70 65 65 64 |%,R,HighROMSpeed|
00007dc0 2c 4c 6f 77 52 4f 4d 53 70 65 65 64 2c 52 41 4d |,LowROMSpeed,RAM|
00007dd0 53 70 65 65 64 2c 44 0d 2a 80 0e 52 41 4d 53 69 |Speed,D.*..RAMSi|
00007de0 7a 65 25 3d 52 0d 2a 8a 49 e8 23 46 25 2c 4d 65 |ze%=R.*.I.#F%,Me|
00007df0 6d 6f 72 79 42 61 6e 64 77 69 64 74 68 2c 53 63 |moryBandwidth,Sc|
00007e00 72 65 65 6e 42 61 6e 64 77 69 64 74 68 2c 44 52 |reenBandwidth,DR|
00007e10 41 4d 42 61 6e 64 77 69 64 74 68 2c 50 72 6f 63 |AMBandwidth,Proc|
00007e20 65 73 73 6f 72 42 61 6e 64 77 69 64 74 68 0d 2a |essorBandwidth.*|
00007e30 94 42 e8 23 46 25 2c 54 6f 74 61 6c 4d 49 50 53 |.B.#F%,TotalMIPS|
00007e40 2c 54 6f 74 61 6c 49 6e 64 65 78 2c 49 6e 64 65 |,TotalIndex,Inde|
00007e50 78 31 2c 49 6e 64 65 78 31 61 2c 49 6e 64 65 78 |x1,Index1a,Index|
00007e60 32 2c 49 6e 64 65 78 33 2c 4d 43 49 6e 64 65 78 |2,Index3,MCIndex|
00007e70 0d 2a 9e 29 e8 23 46 25 2c 42 41 53 49 43 49 6e |.*.).#F%,BASICIn|
00007e80 64 65 78 2c 63 61 6c 63 4d 43 25 2c 63 61 6c 63 |dex,calcMC%,calc|
00007e90 42 41 53 49 43 25 2c 44 25 0d 2a a8 2c e7 20 a8 |BASIC%,D%.*.,. .|
00007ea0 28 48 69 67 68 52 4f 4d 53 70 65 65 64 29 3d 31 |(HighROMSpeed)=1|
00007eb0 35 30 20 8c 20 48 69 67 68 52 4f 4d 53 70 65 65 |50 . HighROMSpee|
00007ec0 64 3d 32 30 30 0d 2a b2 26 48 69 67 68 52 4f 4d |d=200.*.&HighROM|
00007ed0 53 70 65 65 64 3d 48 69 67 68 52 4f 4d 53 70 65 |Speed=HighROMSpe|
00007ee0 65 64 2f 52 41 4d 53 70 65 65 64 0d 2a bc 24 4c |ed/RAMSpeed.*.$L|
00007ef0 6f 77 52 4f 4d 53 70 65 65 64 3d 4c 6f 77 52 4f |owROMSpeed=LowRO|
00007f00 4d 53 70 65 65 64 2f 52 41 4d 53 70 65 65 64 0d |MSpeed/RAMSpeed.|
00007f10 2a c6 0c 49 6e 64 65 78 34 3d 30 0d 2a d0 36 49 |*..Index4=0.*.6I|
00007f20 6e 64 65 78 31 4c 3d 30 3a 49 6e 64 65 78 31 61 |ndex1L=0:Index1a|
00007f30 4c 3d 30 3a 49 6e 64 65 78 32 4c 3d 30 3a 49 6e |L=0:Index2L=0:In|
00007f40 64 65 78 33 4c 3d 30 3a 49 6e 64 65 78 34 4c 3d |dex3L=0:Index4L=|
00007f50 30 0d 2a da 3a 49 6e 64 65 78 31 3d 49 6e 64 65 |0.*.:Index1=Inde|
00007f60 78 31 2f 2e 37 35 20 20 20 20 20 20 20 3a 20 f4 |x1/.75 : .|
00007f70 20 52 65 2d 63 61 6c 69 62 72 61 74 65 20 74 6f | Re-calibrate to|
00007f80 20 33 30 30 20 73 65 72 69 65 73 0d 2a e4 17 49 | 300 series.*..I|
00007f90 6e 64 65 78 31 61 3d 49 6e 64 65 78 31 61 2f 2e |ndex1a=Index1a/.|
00007fa0 34 39 0d 2a ee 15 49 6e 64 65 78 32 3d 49 6e 64 |49.*..Index2=Ind|
00007fb0 65 78 32 2f 2e 38 31 0d 2a f8 15 49 6e 64 65 78 |ex2/.81.*..Index|
00007fc0 33 3d 49 6e 64 65 78 33 2f 2e 37 37 0d 2b 02 1d |3=Index3/.77.+..|
00007fd0 54 6f 74 61 6c 49 6e 64 65 78 3d 54 6f 74 61 6c |TotalIndex=Total|
00007fe0 49 6e 64 65 78 2f 2e 37 34 0d 2b 0c 35 4f 53 76 |Index/.74.+.5OSv|
00007ff0 65 72 25 3d 2d 31 3a 52 4f 4d 73 69 7a 65 25 3d |er%=-1:ROMsize%=|
00008000 2d 31 3a 52 4f 4d 73 69 7a 65 35 74 68 25 3d 30 |-1:ROMsize5th%=0|
00008010 3a 52 4f 4d 6e 75 6d 35 74 68 25 3d 2d 31 0d 2b |:ROMnum5th%=-1.+|
00008020 16 35 44 48 52 59 49 6e 64 65 78 3d 2d 31 3a 44 |.5DHRYIndex=-1:D|
00008030 48 52 59 6d 73 65 63 3d 2d 31 3a 44 48 52 59 76 |HRYmsec=-1:DHRYv|
00008040 61 6c 75 65 3d 2d 31 3a 63 61 6c 63 44 48 52 59 |alue=-1:calcDHRY|
00008050 25 3d a3 0d 2b 20 14 4f 53 73 74 72 24 3d 22 55 |%=..+ .OSstr$="U|
00008060 6e 6b 6e 6f 77 6e 22 0d 2b 2a 1f 55 6e 69 71 75 |nknown".+*.Uniqu|
00008070 65 49 44 61 25 3d 2d 31 3a 55 6e 69 71 75 65 49 |eIDa%=-1:UniqueI|
00008080 44 62 25 3d 2d 31 0d 2b 34 14 46 50 73 74 72 24 |Db%=-1.+4.FPstr$|
00008090 3d 22 55 6e 6b 6e 6f 77 6e 22 0d 2b 3e 37 49 4f |="Unknown".+>7IO|
000080a0 45 42 54 79 70 65 25 3d 2d 31 3a 46 50 41 54 79 |EBType%=-1:FPATy|
000080b0 70 65 25 3d 2d 31 3a 50 65 72 69 70 68 54 79 70 |pe%=-1:PeriphTyp|
000080c0 65 25 3d 2d 31 3a 4c 43 44 54 79 70 65 25 3d 2d |e%=-1:LCDType%=-|
000080d0 31 0d 2b 48 17 56 49 44 45 4f 73 74 72 24 3d 22 |1.+H.VIDEOstr$="|
000080e0 55 6e 6b 6e 6f 77 6e 22 0d 2b 52 1f 46 61 73 74 |Unknown".+R.Fast|
000080f0 65 72 42 41 53 49 43 25 3d a3 3a 46 61 73 74 65 |erBASIC%=.:Faste|
00008100 72 46 50 45 25 3d a3 0d 2b 5c 2a 43 61 63 68 65 |rFPE%=..+\*Cache|
00008110 4f 4e 25 3d a3 3a 56 69 64 65 6f 44 4d 41 25 3d |ON%=.:VideoDMA%=|
00008120 a3 3a 52 41 4d 50 61 67 65 53 69 7a 65 25 3d 2d |.:RAMPageSize%=-|
00008130 31 0d 2b 66 0e f2 64 69 73 70 6c 61 79 73 69 0d |1.+f..displaysi.|
00008140 2b 70 04 0d 2b 7a 09 c9 20 32 2c 33 0d 2b 84 11 |+p..+z.. 2,3.+..|
00008150 f4 20 56 65 72 73 69 6f 6e 20 32 2c 33 0d 2b 8e |. Version 2,3.+.|
00008160 1d e8 23 46 25 2c 41 24 3a f2 75 70 64 61 74 65 |..#F%,A$:.update|
00008170 69 63 6f 6e 28 32 2c 41 24 29 0d 2b 98 1f e8 23 |icon(2,A$).+...#|
00008180 46 25 2c 6d 6f 64 65 25 2c 53 2c 4d 2c 4f 6e 65 |F%,mode%,S,M,One|
00008190 43 6c 6f 63 6b 54 69 63 6b 0d 2b a2 1e 53 63 72 |ClockTick.+..Scr|
000081a0 65 65 6e 53 69 7a 65 25 3d 53 3a 4d 45 4d 43 53 |eenSize%=S:MEMCS|
000081b0 74 61 74 65 25 3d 4d 0d 2b ac 40 e8 23 46 25 2c |tate%=M.+.@.#F%,|
000081c0 54 69 6d 65 54 61 6b 65 6e 31 2c 54 69 6d 65 54 |TimeTaken1,TimeT|
000081d0 61 6b 65 6e 31 61 2c 54 69 6d 65 54 61 6b 65 6e |aken1a,TimeTaken|
000081e0 32 2c 54 69 6d 65 54 61 6b 65 6e 33 2c 54 69 6d |2,TimeTaken3,Tim|
000081f0 65 54 61 6b 65 6e 34 0d 2b b6 45 e8 23 46 25 2c |eTaken4.+.E.#F%,|
00008200 54 69 6d 65 54 61 6b 65 6e 31 4c 2c 54 69 6d 65 |TimeTaken1L,Time|
00008210 54 61 6b 65 6e 31 61 4c 2c 54 69 6d 65 54 61 6b |Taken1aL,TimeTak|
00008220 65 6e 32 4c 2c 54 69 6d 65 54 61 6b 65 6e 33 4c |en2L,TimeTaken3L|
00008230 2c 54 69 6d 65 54 61 6b 65 6e 34 4c 0d 2b c0 1c |,TimeTaken4L.+..|
00008240 e8 23 46 25 2c 21 4d 43 63 6f 75 6e 74 2c 42 41 |.#F%,!MCcount,BA|
00008250 53 49 43 63 6f 75 6e 74 0d 2b ca 5e e8 23 46 25 |SICcount.+.^.#F%|
00008260 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 |,InstructionTime|
00008270 31 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d |1,InstructionTim|
00008280 65 31 61 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 |e1a,InstructionT|
00008290 69 6d 65 32 2c 49 6e 73 74 72 75 63 74 69 6f 6e |ime2,Instruction|
000082a0 54 69 6d 65 33 2c 49 6e 73 74 72 75 63 74 69 6f |Time3,Instructio|
000082b0 6e 54 69 6d 65 34 0d 2b d4 63 e8 23 46 25 2c 49 |nTime4.+.c.#F%,I|
000082c0 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 4c |nstructionTime1L|
000082d0 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 |,InstructionTime|
000082e0 31 61 4c 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 |1aL,InstructionT|
000082f0 69 6d 65 32 4c 2c 49 6e 73 74 72 75 63 74 69 6f |ime2L,Instructio|
00008300 6e 54 69 6d 65 33 4c 2c 49 6e 73 74 72 75 63 74 |nTime3L,Instruct|
00008310 69 6f 6e 54 69 6d 65 34 4c 0d 2b de 27 e8 23 46 |ionTime4L.+.'.#F|
00008320 25 2c 4d 49 50 53 31 2c 4d 49 50 53 31 61 2c 4d |%,MIPS1,MIPS1a,M|
00008330 49 50 53 32 2c 4d 49 50 53 33 2c 4d 49 50 53 34 |IPS2,MIPS3,MIPS4|
00008340 0d 2b e8 2c e8 23 46 25 2c 4d 49 50 53 31 4c 2c |.+.,.#F%,MIPS1L,|
00008350 4d 49 50 53 31 61 4c 2c 4d 49 50 53 32 4c 2c 4d |MIPS1aL,MIPS2L,M|
00008360 49 50 53 33 4c 2c 4d 49 50 53 34 4c 0d 2b f2 1f |IPS3L,MIPS4L.+..|
00008370 e8 23 46 25 2c 50 2c 50 72 6f 63 65 73 73 6f 72 |.#F%,P,Processor|
00008380 54 79 70 65 25 2c 49 2c 4d 2c 56 0d 2b fc 32 50 |Type%,I,M,V.+.2P|
00008390 72 6f 63 65 73 73 6f 72 25 3d 50 3a 49 4f 43 54 |rocessor%=P:IOCT|
000083a0 79 70 65 25 3d 49 3a 4d 45 4d 43 54 79 70 65 25 |ype%=I:MEMCType%|
000083b0 3d 4d 3a 56 49 44 43 54 79 70 65 3d 56 0d 2c 06 |=M:VIDCType=V.,.|
000083c0 2e e8 23 46 25 2c 52 2c 48 69 67 68 52 4f 4d 53 |..#F%,R,HighROMS|
000083d0 70 65 65 64 2c 4c 6f 77 52 4f 4d 53 70 65 65 64 |peed,LowROMSpeed|
000083e0 2c 52 41 4d 53 70 65 65 64 2c 44 0d 2c 10 0e 52 |,RAMSpeed,D.,..R|
000083f0 41 4d 53 69 7a 65 25 3d 52 0d 2c 1a 49 e8 23 46 |AMSize%=R.,.I.#F|
00008400 25 2c 4d 65 6d 6f 72 79 42 61 6e 64 77 69 64 74 |%,MemoryBandwidt|
00008410 68 2c 53 63 72 65 65 6e 42 61 6e 64 77 69 64 74 |h,ScreenBandwidt|
00008420 68 2c 44 52 41 4d 42 61 6e 64 77 69 64 74 68 2c |h,DRAMBandwidth,|
00008430 50 72 6f 63 65 73 73 6f 72 42 61 6e 64 77 69 64 |ProcessorBandwid|
00008440 74 68 0d 2c 24 25 e8 23 46 25 2c 54 6f 74 61 6c |th.,$%.#F%,Total|
00008450 4d 49 50 53 2c 54 6f 74 61 6c 49 6e 64 65 78 2c |MIPS,TotalIndex,|
00008460 4d 43 49 6e 64 65 78 0d 2c 2e 2c e8 23 46 25 2c |MCIndex.,.,.#F%,|
00008470 49 6e 64 65 78 31 2c 49 6e 64 65 78 31 61 2c 49 |Index1,Index1a,I|
00008480 6e 64 65 78 32 2c 49 6e 64 65 78 33 2c 49 6e 64 |ndex2,Index3,Ind|
00008490 65 78 34 0d 2c 38 31 e8 23 46 25 2c 49 6e 64 65 |ex4.,81.#F%,Inde|
000084a0 78 31 4c 2c 49 6e 64 65 78 31 61 4c 2c 49 6e 64 |x1L,Index1aL,Ind|
000084b0 65 78 32 4c 2c 49 6e 64 65 78 33 4c 2c 49 6e 64 |ex2L,Index3L,Ind|
000084c0 65 78 34 4c 0d 2c 42 29 e8 23 46 25 2c 42 41 53 |ex4L.,B).#F%,BAS|
000084d0 49 43 49 6e 64 65 78 2c 63 61 6c 63 4d 43 25 2c |ICIndex,calcMC%,|
000084e0 63 61 6c 63 42 41 53 49 43 25 2c 44 25 0d 2c 4c |calcBASIC%,D%.,L|
000084f0 2c e7 20 a8 28 48 69 67 68 52 4f 4d 53 70 65 65 |,. .(HighROMSpee|
00008500 64 29 3d 31 35 30 20 8c 20 48 69 67 68 52 4f 4d |d)=150 . HighROM|
00008510 53 70 65 65 64 3d 32 30 30 0d 2c 56 26 48 69 67 |Speed=200.,V&Hig|
00008520 68 52 4f 4d 53 70 65 65 64 3d 48 69 67 68 52 4f |hROMSpeed=HighRO|
00008530 4d 53 70 65 65 64 2f 52 41 4d 53 70 65 65 64 0d |MSpeed/RAMSpeed.|
00008540 2c 60 24 4c 6f 77 52 4f 4d 53 70 65 65 64 3d 4c |,`$LowROMSpeed=L|
00008550 6f 77 52 4f 4d 53 70 65 65 64 2f 52 41 4d 53 70 |owROMSpeed/RAMSp|
00008560 65 65 64 0d 2c 6a 0c e7 20 56 25 3d 33 20 8c 0d |eed.,j.. V%=3 ..|
00008570 2c 74 36 20 20 e8 23 46 25 2c 46 50 55 69 6e 64 |,t6 .#F%,FPUind|
00008580 65 78 2c 46 50 55 74 69 6d 65 2c 46 50 55 74 69 |ex,FPUtime,FPUti|
00008590 6d 65 2c 21 46 50 55 74 69 6d 65 72 2c 63 61 6c |me,!FPUtimer,cal|
000085a0 63 46 50 55 25 0d 2c 7e 0a 20 20 5a 25 3d 30 0d |cFPU%.,~. Z%=0.|
000085b0 2c 88 1f 20 20 c8 95 20 46 50 55 72 65 73 75 6c |,.. .. FPUresul|
000085c0 74 73 21 28 5a 25 2a 31 32 29 3c 3e 2d 31 0d 2c |ts!(Z%*12)<>-1.,|
000085d0 92 1f 20 20 20 20 e8 23 46 25 2c 46 50 55 72 65 |.. .#F%,FPUre|
000085e0 73 75 6c 74 73 21 28 5a 25 2a 31 32 29 0d 2c 9c |sults!(Z%*12).,.|
000085f0 0d 20 20 20 20 5a 25 2b 3d 31 0d 2c a6 07 20 20 |. Z%+=1.,.. |
00008600 ce 0d 2c b0 05 cd 0d 2c ba 3a 49 6e 64 65 78 31 |..,....,.:Index1|
00008610 3d 49 6e 64 65 78 31 2f 2e 37 35 20 20 20 20 20 |=Index1/.75 |
00008620 20 20 3a 20 f4 20 52 65 2d 63 61 6c 69 62 72 61 | : . Re-calibra|
00008630 74 65 20 74 6f 20 33 30 30 20 73 65 72 69 65 73 |te to 300 series|
00008640 0d 2c c4 17 49 6e 64 65 78 31 61 3d 49 6e 64 65 |.,..Index1a=Inde|
00008650 78 31 61 2f 2e 34 39 0d 2c ce 15 49 6e 64 65 78 |x1a/.49.,..Index|
00008660 32 3d 49 6e 64 65 78 32 2f 2e 38 31 0d 2c d8 15 |2=Index2/.81.,..|
00008670 49 6e 64 65 78 33 3d 49 6e 64 65 78 33 2f 2e 37 |Index3=Index3/.7|
00008680 37 0d 2c e2 15 49 6e 64 65 78 34 3d 49 6e 64 65 |7.,..Index4=Inde|
00008690 78 34 2f 2e 38 33 0d 2c ec 17 49 6e 64 65 78 31 |x4/.83.,..Index1|
000086a0 4c 3d 49 6e 64 65 78 31 4c 2f 2e 38 30 0d 2c f6 |L=Index1L/.80.,.|
000086b0 19 49 6e 64 65 78 31 61 4c 3d 49 6e 64 65 78 31 |.Index1aL=Index1|
000086c0 61 4c 2f 2e 35 33 0d 2d 00 17 49 6e 64 65 78 32 |aL/.53.-..Index2|
000086d0 4c 3d 49 6e 64 65 78 32 4c 2f 2e 38 31 0d 2d 0a |L=Index2L/.81.-.|
000086e0 17 49 6e 64 65 78 33 4c 3d 49 6e 64 65 78 33 4c |.Index3L=Index3L|
000086f0 2f 2e 37 38 0d 2d 14 17 49 6e 64 65 78 34 4c 3d |/.78.-..Index4L=|
00008700 49 6e 64 65 78 34 4c 2f 2e 38 34 0d 2d 1e 1d 54 |Index4L/.84.-..T|
00008710 6f 74 61 6c 49 6e 64 65 78 3d 54 6f 74 61 6c 49 |otalIndex=TotalI|
00008720 6e 64 65 78 2f 2e 37 34 0d 2d 28 35 4f 53 76 65 |ndex/.74.-(5OSve|
00008730 72 25 3d 2d 31 3a 52 4f 4d 73 69 7a 65 25 3d 2d |r%=-1:ROMsize%=-|
00008740 31 3a 52 4f 4d 73 69 7a 65 35 74 68 25 3d 30 3a |1:ROMsize5th%=0:|
00008750 52 4f 4d 6e 75 6d 35 74 68 25 3d 2d 31 0d 2d 32 |ROMnum5th%=-1.-2|
00008760 35 44 48 52 59 49 6e 64 65 78 3d 2d 31 3a 44 48 |5DHRYIndex=-1:DH|
00008770 52 59 6d 73 65 63 3d 2d 31 3a 44 48 52 59 76 61 |RYmsec=-1:DHRYva|
00008780 6c 75 65 3d 2d 31 3a 63 61 6c 63 44 48 52 59 25 |lue=-1:calcDHRY%|
00008790 3d a3 0d 2d 3c 14 4f 53 73 74 72 24 3d 22 55 6e |=..-<.OSstr$="Un|
000087a0 6b 6e 6f 77 6e 22 0d 2d 46 1f 55 6e 69 71 75 65 |known".-F.Unique|
000087b0 49 44 61 25 3d 2d 31 3a 55 6e 69 71 75 65 49 44 |IDa%=-1:UniqueID|
000087c0 62 25 3d 2d 31 0d 2d 50 14 46 50 73 74 72 24 3d |b%=-1.-P.FPstr$=|
000087d0 22 55 6e 6b 6e 6f 77 6e 22 0d 2d 5a 37 49 4f 45 |"Unknown".-Z7IOE|
000087e0 42 54 79 70 65 25 3d 2d 31 3a 46 50 41 54 79 70 |BType%=-1:FPATyp|
000087f0 65 25 3d 2d 31 3a 50 65 72 69 70 68 54 79 70 65 |e%=-1:PeriphType|
00008800 25 3d 2d 31 3a 4c 43 44 54 79 70 65 25 3d 2d 31 |%=-1:LCDType%=-1|
00008810 0d 2d 64 17 56 49 44 45 4f 73 74 72 24 3d 22 55 |.-d.VIDEOstr$="U|
00008820 6e 6b 6e 6f 77 6e 22 0d 2d 6e 1f 46 61 73 74 65 |nknown".-n.Faste|
00008830 72 42 41 53 49 43 25 3d a3 3a 46 61 73 74 65 72 |rBASIC%=.:Faster|
00008840 46 50 45 25 3d a3 0d 2d 78 2a 43 61 63 68 65 4f |FPE%=..-x*CacheO|
00008850 4e 25 3d a3 3a 56 69 64 65 6f 44 4d 41 25 3d a3 |N%=.:VideoDMA%=.|
00008860 3a 52 41 4d 50 61 67 65 53 69 7a 65 25 3d 2d 31 |:RAMPageSize%=-1|
00008870 0d 2d 82 0e f2 64 69 73 70 6c 61 79 73 69 0d 2d |.-...displaysi.-|
00008880 8c 04 0d 2d 96 05 7f 0d 2d a0 60 20 20 e7 20 56 |...-....-.` . V|
00008890 25 3c 31 30 30 20 8c 20 d9 23 46 25 3a f2 65 72 |%<100 . .#F%:.er|
000088a0 72 6f 72 28 30 2c 20 22 59 6f 75 20 72 65 71 75 |ror(0, "You requ|
000088b0 69 72 65 20 76 65 72 73 69 6f 6e 20 22 2b c3 56 |ire version "+.V|
000088c0 25 2b 22 2e 30 30 20 6f 72 20 61 62 6f 76 65 20 |%+".00 or above |
000088d0 74 6f 20 72 65 61 64 20 22 2b 66 69 6c 65 5f 6e |to read "+file_n|
000088e0 61 6d 65 24 29 3a e1 0d 2d aa 10 20 20 e7 20 56 |ame$):..-.. . V|
000088f0 25 3c 33 33 30 20 8c 0d 2d b4 0f 20 20 20 20 e8 |%<330 ..-.. .|
00008900 23 46 25 2c 41 24 0d 2d be 19 20 20 20 20 f2 75 |#F%,A$.-.. .u|
00008910 70 64 61 74 65 69 63 6f 6e 28 32 2c 41 24 29 0d |pdateicon(2,A$).|
00008920 2d c8 23 20 20 20 20 e8 23 46 25 2c 6d 6f 64 65 |-.# .#F%,mode|
00008930 25 2c 53 2c 4d 2c 4f 6e 65 43 6c 6f 63 6b 54 69 |%,S,M,OneClockTi|
00008940 63 6b 0d 2d d2 22 20 20 20 20 53 63 72 65 65 6e |ck.-." Screen|
00008950 53 69 7a 65 25 3d 53 3a 4d 45 4d 43 53 74 61 74 |Size%=S:MEMCStat|
00008960 65 25 3d 4d 0d 2d dc 44 20 20 20 20 e8 23 46 25 |e%=M.-.D .#F%|
00008970 2c 54 69 6d 65 54 61 6b 65 6e 31 2c 54 69 6d 65 |,TimeTaken1,Time|
00008980 54 61 6b 65 6e 31 61 2c 54 69 6d 65 54 61 6b 65 |Taken1a,TimeTake|
00008990 6e 32 2c 54 69 6d 65 54 61 6b 65 6e 33 2c 54 69 |n2,TimeTaken3,Ti|
000089a0 6d 65 54 61 6b 65 6e 34 0d 2d e6 49 20 20 20 20 |meTaken4.-.I |
000089b0 e8 23 46 25 2c 54 69 6d 65 54 61 6b 65 6e 31 4c |.#F%,TimeTaken1L|
000089c0 2c 54 69 6d 65 54 61 6b 65 6e 31 61 4c 2c 54 69 |,TimeTaken1aL,Ti|
000089d0 6d 65 54 61 6b 65 6e 32 4c 2c 54 69 6d 65 54 61 |meTaken2L,TimeTa|
000089e0 6b 65 6e 33 4c 2c 54 69 6d 65 54 61 6b 65 6e 34 |ken3L,TimeTaken4|
000089f0 4c 0d 2d f0 20 20 20 20 20 e8 23 46 25 2c 21 4d |L.-. .#F%,!M|
00008a00 43 63 6f 75 6e 74 2c 42 41 53 49 43 63 6f 75 6e |Ccount,BASICcoun|
00008a10 74 0d 2d fa 62 20 20 20 20 e8 23 46 25 2c 49 6e |t.-.b .#F%,In|
00008a20 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 2c 49 |structionTime1,I|
00008a30 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 61 |nstructionTime1a|
00008a40 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 |,InstructionTime|
00008a50 32 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d |2,InstructionTim|
00008a60 65 33 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 |e3,InstructionTi|
00008a70 6d 65 34 0d 2e 04 67 20 20 20 20 e8 23 46 25 2c |me4...g .#F%,|
00008a80 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 |InstructionTime1|
00008a90 4c 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d |L,InstructionTim|
00008aa0 65 31 61 4c 2c 49 6e 73 74 72 75 63 74 69 6f 6e |e1aL,Instruction|
00008ab0 54 69 6d 65 32 4c 2c 49 6e 73 74 72 75 63 74 69 |Time2L,Instructi|
00008ac0 6f 6e 54 69 6d 65 33 4c 2c 49 6e 73 74 72 75 63 |onTime3L,Instruc|
00008ad0 74 69 6f 6e 54 69 6d 65 34 4c 0d 2e 0e 2b 20 20 |tionTime4L...+ |
00008ae0 20 20 e8 23 46 25 2c 4d 49 50 53 31 2c 4d 49 50 | .#F%,MIPS1,MIP|
00008af0 53 31 61 2c 4d 49 50 53 32 2c 4d 49 50 53 33 2c |S1a,MIPS2,MIPS3,|
00008b00 4d 49 50 53 34 0d 2e 18 30 20 20 20 20 e8 23 46 |MIPS4...0 .#F|
00008b10 25 2c 4d 49 50 53 31 4c 2c 4d 49 50 53 31 61 4c |%,MIPS1L,MIPS1aL|
00008b20 2c 4d 49 50 53 32 4c 2c 4d 49 50 53 33 4c 2c 4d |,MIPS2L,MIPS3L,M|
00008b30 49 50 53 34 4c 0d 2e 22 23 20 20 20 20 e8 23 46 |IPS4L.."# .#F|
00008b40 25 2c 50 2c 50 72 6f 63 65 73 73 6f 72 54 79 70 |%,P,ProcessorTyp|
00008b50 65 25 2c 49 2c 4d 2c 56 0d 2e 2c 36 20 20 20 20 |e%,I,M,V..,6 |
00008b60 50 72 6f 63 65 73 73 6f 72 25 3d 50 3a 49 4f 43 |Processor%=P:IOC|
00008b70 54 79 70 65 25 3d 49 3a 4d 45 4d 43 54 79 70 65 |Type%=I:MEMCType|
00008b80 25 3d 4d 3a 56 49 44 43 54 79 70 65 3d 56 0d 2e |%=M:VIDCType=V..|
00008b90 36 32 20 20 20 20 e8 23 46 25 2c 52 2c 48 69 67 |62 .#F%,R,Hig|
00008ba0 68 52 4f 4d 53 70 65 65 64 2c 4c 6f 77 52 4f 4d |hROMSpeed,LowROM|
00008bb0 53 70 65 65 64 2c 52 41 4d 53 70 65 65 64 2c 44 |Speed,RAMSpeed,D|
00008bc0 0d 2e 40 12 20 20 20 20 52 41 4d 53 69 7a 65 25 |..@. RAMSize%|
00008bd0 3d 52 0d 2e 4a 4d 20 20 20 20 e8 23 46 25 2c 4d |=R..JM .#F%,M|
00008be0 65 6d 6f 72 79 42 61 6e 64 77 69 64 74 68 2c 53 |emoryBandwidth,S|
00008bf0 63 72 65 65 6e 42 61 6e 64 77 69 64 74 68 2c 44 |creenBandwidth,D|
00008c00 52 41 4d 42 61 6e 64 77 69 64 74 68 2c 50 72 6f |RAMBandwidth,Pro|
00008c10 63 65 73 73 6f 72 42 61 6e 64 77 69 64 74 68 0d |cessorBandwidth.|
00008c20 2e 54 29 20 20 20 20 e8 23 46 25 2c 54 6f 74 61 |.T) .#F%,Tota|
00008c30 6c 4d 49 50 53 2c 54 6f 74 61 6c 49 6e 64 65 78 |lMIPS,TotalIndex|
00008c40 2c 4d 43 49 6e 64 65 78 0d 2e 5e 30 20 20 20 20 |,MCIndex..^0 |
00008c50 e8 23 46 25 2c 49 6e 64 65 78 31 2c 49 6e 64 65 |.#F%,Index1,Inde|
00008c60 78 31 61 2c 49 6e 64 65 78 32 2c 49 6e 64 65 78 |x1a,Index2,Index|
00008c70 33 2c 49 6e 64 65 78 34 0d 2e 68 35 20 20 20 20 |3,Index4..h5 |
00008c80 e8 23 46 25 2c 49 6e 64 65 78 31 4c 2c 49 6e 64 |.#F%,Index1L,Ind|
00008c90 65 78 31 61 4c 2c 49 6e 64 65 78 32 4c 2c 49 6e |ex1aL,Index2L,In|
00008ca0 64 65 78 33 4c 2c 49 6e 64 65 78 34 4c 0d 2e 72 |dex3L,Index4L..r|
00008cb0 35 20 20 20 20 e8 23 46 25 2c 42 41 53 49 43 49 |5 .#F%,BASICI|
00008cc0 6e 64 65 78 2c 63 61 6c 63 4d 43 25 2c 63 61 6c |ndex,calcMC%,cal|
00008cd0 63 42 41 53 49 43 25 2c 44 52 41 4d 43 68 65 63 |cBASIC%,DRAMChec|
00008ce0 6b 25 0d 2e 7c 33 20 20 20 20 e8 23 46 25 2c 44 |k%..|3 .#F%,D|
00008cf0 48 52 59 49 6e 64 65 78 2c 44 48 52 59 6d 73 65 |HRYIndex,DHRYmse|
00008d00 63 2c 44 48 52 59 76 61 6c 75 65 2c 63 61 6c 63 |c,DHRYvalue,calc|
00008d10 44 48 52 59 25 0d 2e 86 38 20 20 20 20 e8 23 46 |DHRY%...8 .#F|
00008d20 25 2c 46 50 55 69 6e 64 65 78 2c 46 50 55 74 69 |%,FPUindex,FPUti|
00008d30 6d 65 2c 46 50 55 74 69 6d 65 2c 21 46 50 55 74 |me,FPUtime,!FPUt|
00008d40 69 6d 65 72 2c 63 61 6c 63 46 50 55 25 0d 2e 90 |imer,calcFPU%...|
00008d50 0c 20 20 20 20 5a 25 3d 30 0d 2e 9a 21 20 20 20 |. Z%=0...! |
00008d60 20 c8 95 20 46 50 55 72 65 73 75 6c 74 73 21 28 | .. FPUresults!(|
00008d70 5a 25 2a 31 32 29 3c 3e 2d 31 0d 2e a4 21 20 20 |Z%*12)<>-1...! |
00008d80 20 20 20 20 e8 23 46 25 2c 46 50 55 72 65 73 75 | .#F%,FPUresu|
00008d90 6c 74 73 21 28 5a 25 2a 31 32 29 0d 2e ae 0f 20 |lts!(Z%*12).... |
00008da0 20 20 20 20 20 5a 25 2b 3d 31 0d 2e b8 09 20 20 | Z%+=1.... |
00008db0 20 20 ce 0d 2e c2 33 20 20 20 20 e8 23 46 25 2c | ....3 .#F%,|
00008dc0 4f 53 76 65 72 25 2c 52 4f 4d 73 69 7a 65 25 2c |OSver%,ROMsize%,|
00008dd0 52 4f 4d 73 69 7a 65 35 74 68 25 2c 52 4f 4d 6e |ROMsize5th%,ROMn|
00008de0 75 6d 35 74 68 25 0d 2e cc 13 20 20 20 20 e8 23 |um5th%.... .#|
00008df0 46 25 2c 4f 53 73 74 72 24 0d 2e d6 22 20 20 20 |F%,OSstr$..." |
00008e00 20 e8 23 46 25 2c 55 6e 69 71 75 65 49 44 61 25 | .#F%,UniqueIDa%|
00008e10 2c 55 6e 69 71 75 65 49 44 62 25 0d 2e e0 13 20 |,UniqueIDb%.... |
00008e20 20 20 20 e8 23 46 25 2c 46 50 73 74 72 24 0d 2e | .#F%,FPstr$..|
00008e30 ea 34 20 20 20 20 e8 23 46 25 2c 49 4f 45 42 54 |.4 .#F%,IOEBT|
00008e40 79 70 65 25 2c 46 50 41 54 79 70 65 25 2c 50 65 |ype%,FPAType%,Pe|
00008e50 72 69 70 68 54 79 70 65 25 2c 4c 43 44 54 79 70 |riphType%,LCDTyp|
00008e60 65 25 0d 2e f4 16 20 20 20 20 e8 23 46 25 2c 56 |e%.... .#F%,V|
00008e70 49 44 45 4f 73 74 72 24 0d 2e fe 13 20 20 20 20 |IDEOstr$.... |
00008e80 e7 20 56 25 3c 3d 33 32 34 20 8c 0d 2f 08 25 20 |. V%<=324 ../.% |
00008e90 20 20 20 20 20 46 61 73 74 65 72 42 41 53 49 43 | FasterBASIC|
00008ea0 25 3d a3 3a 46 61 73 74 65 72 46 50 45 25 3d a3 |%=.:FasterFPE%=.|
00008eb0 0d 2f 12 14 20 20 20 20 20 20 43 61 63 68 65 4f |./.. CacheO|
00008ec0 4e 25 3d a3 0d 2f 1c 09 20 20 20 20 cc 0d 2f 26 |N%=../.. ../&|
00008ed0 2f 20 20 20 20 20 20 e8 23 46 25 2c 46 61 73 74 |/ .#F%,Fast|
00008ee0 65 72 42 41 53 49 43 25 2c 46 61 73 74 65 72 46 |erBASIC%,FasterF|
00008ef0 50 45 25 2c 43 61 63 68 65 4f 4e 25 0d 2f 30 09 |PE%,CacheON%./0.|
00008f00 20 20 20 20 cd 0d 2f 3a 23 20 20 20 20 56 69 64 | ../:# Vid|
00008f10 65 6f 44 4d 41 25 3d a3 3a 52 41 4d 50 61 67 65 |eoDMA%=.:RAMPage|
00008f20 53 69 7a 65 25 3d 2d 31 0d 2f 44 12 20 20 20 20 |Size%=-1./D. |
00008f30 f2 64 69 73 70 6c 61 79 73 69 0d 2f 4e 07 20 20 |.displaysi./N. |
00008f40 cd 0d 2f 58 04 0d 2f 62 1a 20 20 e7 20 56 25 3e |../X../b. . V%>|
00008f50 33 32 36 20 80 20 56 25 3c 3d 33 33 30 20 8c 0d |326 . V%<=330 ..|
00008f60 2f 6c 17 20 20 20 20 f4 20 56 65 72 73 69 6f 6e |/l. . Version|
00008f70 20 33 2e 33 30 48 0d 2f 76 0f 20 20 20 20 e8 23 | 3.30H./v. .#|
00008f80 46 25 2c 41 24 0d 2f 80 19 20 20 20 20 f2 75 70 |F%,A$./.. .up|
00008f90 64 61 74 65 69 63 6f 6e 28 32 2c 41 24 29 0d 2f |dateicon(2,A$)./|
00008fa0 8a 36 20 20 20 20 e8 23 46 25 2c 6d 6f 64 65 25 |.6 .#F%,mode%|
00008fb0 2c 53 63 72 65 65 6e 53 69 7a 65 25 2c 4d 45 4d |,ScreenSize%,MEM|
00008fc0 43 53 74 61 74 65 25 2c 4f 6e 65 43 6c 6f 63 6b |CState%,OneClock|
00008fd0 54 69 63 6b 0d 2f 94 44 20 20 20 20 e8 23 46 25 |Tick./.D .#F%|
00008fe0 2c 54 69 6d 65 54 61 6b 65 6e 31 2c 54 69 6d 65 |,TimeTaken1,Time|
00008ff0 54 61 6b 65 6e 31 61 2c 54 69 6d 65 54 61 6b 65 |Taken1a,TimeTake|
00009000 6e 32 2c 54 69 6d 65 54 61 6b 65 6e 33 2c 54 69 |n2,TimeTaken3,Ti|
00009010 6d 65 54 61 6b 65 6e 34 0d 2f 9e 49 20 20 20 20 |meTaken4./.I |
00009020 e8 23 46 25 2c 54 69 6d 65 54 61 6b 65 6e 31 4c |.#F%,TimeTaken1L|
00009030 2c 54 69 6d 65 54 61 6b 65 6e 31 61 4c 2c 54 69 |,TimeTaken1aL,Ti|
00009040 6d 65 54 61 6b 65 6e 32 4c 2c 54 69 6d 65 54 61 |meTaken2L,TimeTa|
00009050 6b 65 6e 33 4c 2c 54 69 6d 65 54 61 6b 65 6e 34 |ken3L,TimeTaken4|
00009060 4c 0d 2f a8 20 20 20 20 20 e8 23 46 25 2c 21 4d |L./. .#F%,!M|
00009070 43 63 6f 75 6e 74 2c 42 41 53 49 43 63 6f 75 6e |Ccount,BASICcoun|
00009080 74 0d 2f b2 62 20 20 20 20 e8 23 46 25 2c 49 6e |t./.b .#F%,In|
00009090 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 2c 49 |structionTime1,I|
000090a0 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 61 |nstructionTime1a|
000090b0 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 |,InstructionTime|
000090c0 32 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d |2,InstructionTim|
000090d0 65 33 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 |e3,InstructionTi|
000090e0 6d 65 34 0d 2f bc 67 20 20 20 20 e8 23 46 25 2c |me4./.g .#F%,|
000090f0 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d 65 31 |InstructionTime1|
00009100 4c 2c 49 6e 73 74 72 75 63 74 69 6f 6e 54 69 6d |L,InstructionTim|
00009110 65 31 61 4c 2c 49 6e 73 74 72 75 63 74 69 6f 6e |e1aL,Instruction|
00009120 54 69 6d 65 32 4c 2c 49 6e 73 74 72 75 63 74 69 |Time2L,Instructi|
00009130 6f 6e 54 69 6d 65 33 4c 2c 49 6e 73 74 72 75 63 |onTime3L,Instruc|
00009140 74 69 6f 6e 54 69 6d 65 34 4c 0d 2f c6 2b 20 20 |tionTime4L./.+ |
00009150 20 20 e8 23 46 25 2c 4d 49 50 53 31 2c 4d 49 50 | .#F%,MIPS1,MIP|
00009160 53 31 61 2c 4d 49 50 53 32 2c 4d 49 50 53 33 2c |S1a,MIPS2,MIPS3,|
00009170 4d 49 50 53 34 0d 2f d0 30 20 20 20 20 e8 23 46 |MIPS4./.0 .#F|
00009180 25 2c 4d 49 50 53 31 4c 2c 4d 49 50 53 31 61 4c |%,MIPS1L,MIPS1aL|
00009190 2c 4d 49 50 53 32 4c 2c 4d 49 50 53 33 4c 2c 4d |,MIPS2L,MIPS3L,M|
000091a0 49 50 53 34 4c 0d 2f da 43 20 20 20 20 e8 23 46 |IPS4L./.C .#F|
000091b0 25 2c 50 72 6f 63 65 73 73 6f 72 25 2c 50 72 6f |%,Processor%,Pro|
000091c0 63 65 73 73 6f 72 54 79 70 65 25 2c 49 4f 43 54 |cessorType%,IOCT|
000091d0 79 70 65 25 2c 4d 45 4d 43 54 79 70 65 25 2c 56 |ype%,MEMCType%,V|
000091e0 49 44 43 54 79 70 65 25 0d 2f e4 44 20 20 20 20 |IDCType%./.D |
000091f0 e8 23 46 25 2c 52 41 4d 53 69 7a 65 25 2c 48 69 |.#F%,RAMSize%,Hi|
00009200 67 68 52 4f 4d 53 70 65 65 64 2c 4c 6f 77 52 4f |ghROMSpeed,LowRO|
00009210 4d 53 70 65 65 64 2c 52 41 4d 53 70 65 65 64 2c |MSpeed,RAMSpeed,|
00009220 44 52 41 4d 52 65 66 72 65 73 68 25 0d 2f ee 4d |DRAMRefresh%./.M|
00009230 20 20 20 20 e8 23 46 25 2c 4d 65 6d 6f 72 79 42 | .#F%,MemoryB|
00009240 61 6e 64 77 69 64 74 68 2c 53 63 72 65 65 6e 42 |andwidth,ScreenB|
00009250 61 6e 64 77 69 64 74 68 2c 44 52 41 4d 42 61 6e |andwidth,DRAMBan|
00009260 64 77 69 64 74 68 2c 50 72 6f 63 65 73 73 6f 72 |dwidth,Processor|
00009270 42 61 6e 64 77 69 64 74 68 0d 2f f8 29 20 20 20 |Bandwidth./.) |
00009280 20 e8 23 46 25 2c 54 6f 74 61 6c 4d 49 50 53 2c | .#F%,TotalMIPS,|
00009290 54 6f 74 61 6c 49 6e 64 65 78 2c 4d 43 49 6e 64 |TotalIndex,MCInd|
000092a0 65 78 0d 30 02 30 20 20 20 20 e8 23 46 25 2c 49 |ex.0.0 .#F%,I|
000092b0 6e 64 65 78 31 2c 49 6e 64 65 78 31 61 2c 49 6e |ndex1,Index1a,In|
000092c0 64 65 78 32 2c 49 6e 64 65 78 33 2c 49 6e 64 65 |dex2,Index3,Inde|
000092d0 78 34 0d 30 0c 35 20 20 20 20 e8 23 46 25 2c 49 |x4.0.5 .#F%,I|
000092e0 6e 64 65 78 31 4c 2c 49 6e 64 65 78 31 61 4c 2c |ndex1L,Index1aL,|
000092f0 49 6e 64 65 78 32 4c 2c 49 6e 64 65 78 33 4c 2c |Index2L,Index3L,|
00009300 49 6e 64 65 78 34 4c 0d 30 16 35 20 20 20 20 e8 |Index4L.0.5 .|
00009310 23 46 25 2c 42 41 53 49 43 49 6e 64 65 78 2c 63 |#F%,BASICIndex,c|
00009320 61 6c 63 4d 43 25 2c 63 61 6c 63 42 41 53 49 43 |alcMC%,calcBASIC|
00009330 25 2c 44 52 41 4d 43 68 65 63 6b 25 0d 30 20 33 |%,DRAMCheck%.0 3|
00009340 20 20 20 20 e8 23 46 25 2c 44 48 52 59 49 6e 64 | .#F%,DHRYInd|
00009350 65 78 2c 44 48 52 59 6d 73 65 63 2c 44 48 52 59 |ex,DHRYmsec,DHRY|
00009360 76 61 6c 75 65 2c 63 61 6c 63 44 48 52 59 25 0d |value,calcDHRY%.|
00009370 30 2a 38 20 20 20 20 e8 23 46 25 2c 46 50 55 69 |0*8 .#F%,FPUi|
00009380 6e 64 65 78 2c 46 50 55 74 69 6d 65 2c 46 50 55 |ndex,FPUtime,FPU|
00009390 74 69 6d 65 2c 21 46 50 55 74 69 6d 65 72 2c 63 |time,!FPUtimer,c|
000093a0 61 6c 63 46 50 55 25 0d 30 34 0c 20 20 20 20 5a |alcFPU%.04. Z|
000093b0 25 3d 30 0d 30 3e 21 20 20 20 20 c8 95 20 46 50 |%=0.0>! .. FP|
000093c0 55 72 65 73 75 6c 74 73 21 28 5a 25 2a 31 32 29 |Uresults!(Z%*12)|
000093d0 3c 3e 2d 31 0d 30 48 21 20 20 20 20 20 20 e8 23 |<>-1.0H! .#|
000093e0 46 25 2c 46 50 55 72 65 73 75 6c 74 73 21 28 5a |F%,FPUresults!(Z|
000093f0 25 2a 31 32 29 0d 30 52 0f 20 20 20 20 20 20 5a |%*12).0R. Z|
00009400 25 2b 3d 31 0d 30 5c 09 20 20 20 20 ce 0d 30 66 |%+=1.0\. ..0f|
00009410 33 20 20 20 20 e8 23 46 25 2c 4f 53 76 65 72 25 |3 .#F%,OSver%|
00009420 2c 52 4f 4d 73 69 7a 65 25 2c 52 4f 4d 73 69 7a |,ROMsize%,ROMsiz|
00009430 65 35 74 68 25 2c 52 4f 4d 6e 75 6d 35 74 68 25 |e5th%,ROMnum5th%|
00009440 0d 30 70 13 20 20 20 20 e8 23 46 25 2c 4f 53 73 |.0p. .#F%,OSs|
00009450 74 72 24 0d 30 7a 22 20 20 20 20 e8 23 46 25 2c |tr$.0z" .#F%,|
00009460 55 6e 69 71 75 65 49 44 61 25 2c 55 6e 69 71 75 |UniqueIDa%,Uniqu|
00009470 65 49 44 62 25 0d 30 84 13 20 20 20 20 e8 23 46 |eIDb%.0.. .#F|
00009480 25 2c 46 50 73 74 72 24 0d 30 8e 34 20 20 20 20 |%,FPstr$.0.4 |
00009490 e8 23 46 25 2c 49 4f 45 42 54 79 70 65 25 2c 46 |.#F%,IOEBType%,F|
000094a0 50 41 54 79 70 65 25 2c 50 65 72 69 70 68 54 79 |PAType%,PeriphTy|
000094b0 70 65 25 2c 4c 43 44 54 79 70 65 25 0d 30 98 16 |pe%,LCDType%.0..|
000094c0 20 20 20 20 e8 23 46 25 2c 56 49 44 45 4f 73 74 | .#F%,VIDEOst|
000094d0 72 24 0d 30 a2 2d 20 20 20 20 e8 23 46 25 2c 46 |r$.0.- .#F%,F|
000094e0 61 73 74 65 72 42 41 53 49 43 25 2c 46 61 73 74 |asterBASIC%,Fast|
000094f0 65 72 46 50 45 25 2c 43 61 63 68 65 4f 4e 25 0d |erFPE%,CacheON%.|
00009500 30 ac 13 20 20 20 20 e7 20 56 25 3e 3d 33 33 30 |0.. . V%>=330|
00009510 20 8c 0d 30 b6 25 20 20 20 20 20 20 e8 23 46 25 | ..0.% .#F%|
00009520 2c 56 69 64 65 6f 44 4d 41 25 2c 52 41 4d 50 61 |,VideoDMA%,RAMPa|
00009530 67 65 53 69 7a 65 25 0d 30 c0 09 20 20 20 20 cc |geSize%.0.. .|
00009540 0d 30 ca 25 20 20 20 20 20 20 56 69 64 65 6f 44 |.0.% VideoD|
00009550 4d 41 25 3d a3 3a 52 41 4d 50 61 67 65 53 69 7a |MA%=.:RAMPageSiz|
00009560 65 25 3d 2d 31 0d 30 d4 09 20 20 20 20 cd 0d 30 |e%=-1.0.. ..0|
00009570 de 12 20 20 20 20 f2 64 69 73 70 6c 61 79 73 69 |.. .displaysi|
00009580 0d 30 e8 07 20 20 cd 0d 30 f2 10 20 20 e7 20 56 |.0.. ..0.. . V|
00009590 25 3e 33 33 30 20 8c 0d 30 fc 53 20 20 20 20 f2 |%>330 ..0.S .|
000095a0 65 72 72 6f 72 28 30 2c 20 22 59 6f 75 20 72 65 |error(0, "You re|
000095b0 71 75 69 72 65 20 76 65 72 73 69 6f 6e 20 22 2b |quire version "+|
000095c0 c3 28 56 25 2f 31 30 30 29 2b 22 20 6f 72 20 61 |.(V%/100)+" or a|
000095d0 62 6f 76 65 20 74 6f 20 72 65 61 64 20 22 2b 66 |bove to read "+f|
000095e0 69 6c 65 5f 6e 61 6d 65 24 29 0d 31 06 07 20 20 |ile_name$).1.. |
000095f0 cd 0d 31 10 04 0d 31 1a 05 cb 0d 31 24 08 d9 23 |..1...1....1$..#|
00009600 46 25 0d 31 2e 0b f2 6f 70 65 6e 73 69 0d 31 38 |F%.1...opensi.18|
00009610 05 e1 0d 31 42 05 3a 0d 31 4c 09 f4 20 2a 2a 2a |...1B.:.1L.. ***|
00009620 0d 31 56 1c f4 20 2a 2a 2a 20 53 68 61 72 65 64 |.1V.. *** Shared|
00009630 20 53 49 20 72 6f 75 74 69 6e 65 73 0d 31 60 09 | SI routines.1`.|
00009640 f4 20 2a 2a 2a 0d 31 6a 05 3a 0d 31 74 15 dd 20 |. ***.1j.:.1t.. |
00009650 f2 6d 65 6e 75 28 58 25 2c 59 25 2c 54 24 29 0d |.menu(X%,Y%,T$).|
00009660 31 7e 1e ea 20 70 6f 69 6e 74 65 72 25 2c 41 25 |1~.. pointer%,A%|
00009670 2c 4c 25 2c 20 41 24 2c 46 25 2c 49 25 0d 31 88 |,L%, A$,F%,I%.1.|
00009680 18 70 6f 69 6e 74 65 72 25 3d 6d 65 6e 75 5f 62 |.pointer%=menu_b|
00009690 6c 6f 63 6b 25 0d 31 92 17 24 70 6f 69 6e 74 65 |lock%.1..$pointe|
000096a0 72 25 3d 61 70 70 5f 6e 61 6d 65 24 0d 31 9c 09 |r%=app_name$.1..|
000096b0 f7 20 2b 31 30 0d 31 a6 61 f3 20 70 6f 69 6e 74 |. +10.1.a. point|
000096c0 65 72 25 3f 31 32 2c 70 6f 69 6e 74 65 72 25 3f |er%?12,pointer%?|
000096d0 31 33 2c 70 6f 69 6e 74 65 72 25 3f 31 34 2c 70 |13,pointer%?14,p|
000096e0 6f 69 6e 74 65 72 25 3f 31 35 2c 70 6f 69 6e 74 |ointer%?15,point|
000096f0 65 72 25 21 31 36 2c 70 6f 69 6e 74 65 72 25 21 |er%!16,pointer%!|
00009700 32 30 2c 70 6f 69 6e 74 65 72 25 21 32 34 2c 6e |20,pointer%!24,n|
00009710 75 6d 62 65 72 25 0d 31 b0 17 41 25 3d 6d 65 6e |umber%.1..A%=men|
00009720 75 5f 69 6e 64 69 72 65 63 74 65 64 25 0d 31 ba |u_indirected%.1.|
00009730 14 e3 20 4c 25 3d 31 20 b8 20 6e 75 6d 62 65 72 |.. L%=1 . number|
00009740 25 0d 31 c4 0e 20 20 e7 20 4c 25 3e 31 20 8c 0d |%.1.. . L%>1 ..|
00009750 31 ce 88 20 20 20 20 f3 20 41 24 2c 70 6f 69 6e |1.. . A$,poin|
00009760 74 65 72 25 3f 31 32 2c 70 6f 69 6e 74 65 72 25 |ter%?12,pointer%|
00009770 3f 31 33 2c 70 6f 69 6e 74 65 72 25 3f 31 34 2c |?13,pointer%?14,|
00009780 70 6f 69 6e 74 65 72 25 3f 31 35 2c 70 6f 69 6e |pointer%?15,poin|
00009790 74 65 72 25 21 31 36 2c 70 6f 69 6e 74 65 72 25 |ter%!16,pointer%|
000097a0 21 32 30 2c 70 6f 69 6e 74 65 72 25 21 32 34 3a |!20,pointer%!24:|
000097b0 e7 20 41 24 3d 22 66 69 24 22 20 24 70 6f 69 6e |. A$="fi$" $poin|
000097c0 74 65 72 25 3d 66 69 24 20 8b 20 24 70 6f 69 6e |ter%=fi$ . $poin|
000097d0 74 65 72 25 3d 41 24 0d 31 d8 07 20 20 cd 0d 31 |ter%=A$.1.. ..1|
000097e0 e2 12 20 20 70 6f 69 6e 74 65 72 25 2b 3d 32 38 |.. pointer%+=28|
000097f0 0d 31 ec 07 20 20 f5 0d 31 f6 29 20 20 20 20 f3 |.1.. ..1.) .|
00009800 20 46 25 2c 49 25 2c 41 24 3a e7 20 28 46 25 20 | F%,I%,A$:. (F% |
00009810 80 20 26 32 30 30 29 3e 30 20 41 24 2b 3d 54 24 |. &200)>0 A$+=T$|
00009820 0d 32 00 0e 20 20 20 20 24 41 25 3d 41 24 0d 32 |.2.. $A%=A$.2|
00009830 0a 1b 20 20 20 20 70 6f 69 6e 74 65 72 25 21 30 |.. pointer%!0|
00009840 3d 46 25 20 80 20 26 46 46 0d 32 14 34 20 20 20 |=F% . &FF.2.4 |
00009850 20 e7 20 28 46 25 20 80 20 26 31 30 30 29 3d 30 | . (F% . &100)=0|
00009860 20 70 6f 69 6e 74 65 72 25 21 34 3d 2d 31 20 8b | pointer%!4=-1 .|
00009870 20 f3 20 70 6f 69 6e 74 65 72 25 21 34 0d 32 1e | . pointer%!4.2.|
00009880 21 20 20 20 20 e7 20 41 24 3d 22 50 61 67 65 64 |! . A$="Paged|
00009890 20 52 4f 4d 20 61 63 63 65 73 73 22 20 8c 0d 32 | ROM access" ..2|
000098a0 28 50 20 20 20 20 20 20 f4 20 4e 6f 20 2a 77 61 |(P . No *wa|
000098b0 79 2a 20 63 61 6e 20 77 65 20 67 65 74 20 52 4f |y* can we get RO|
000098c0 4d 73 20 74 68 69 73 20 66 61 73 74 20 2d 20 69 |Ms this fast - i|
000098d0 74 20 77 69 6c 6c 20 6a 75 73 74 20 63 72 61 73 |t will just cras|
000098e0 68 20 74 68 65 20 6d 61 63 68 69 6e 65 21 0d 32 |h the machine!.2|
000098f0 32 34 20 20 20 20 20 20 e7 20 52 41 4d 53 70 65 |24 . RAMSpe|
00009900 65 64 3c 31 30 30 20 84 20 4f 53 76 65 72 25 3e |ed<100 . OSver%>|
00009910 3d 33 30 30 20 8c 20 49 25 2b 3d 28 31 3c 3c 32 |=300 . I%+=(1<<2|
00009920 32 29 0d 32 3c 09 20 20 20 20 cd 0d 32 46 40 20 |2).2<. ..2F@ |
00009930 20 20 20 e7 20 41 24 3d 22 52 4d 46 61 73 74 65 | . A$="RMFaste|
00009940 72 20 42 41 53 49 43 22 20 8c 20 e7 20 46 61 73 |r BASIC" . . Fas|
00009950 74 65 72 42 41 53 49 43 25 3d 2d 39 39 20 8c 20 |terBASIC%=-99 . |
00009960 49 25 2b 3d 28 31 3c 3c 32 32 29 0d 32 50 3f 20 |I%+=(1<<22).2P? |
00009970 20 20 20 e7 20 41 24 3d 22 52 4d 46 61 73 74 65 | . A$="RMFaste|
00009980 72 20 46 50 45 6d 75 6c 61 74 6f 72 22 20 8c 20 |r FPEmulator" . |
00009990 e7 20 4f 53 76 65 72 25 3c 33 30 30 20 8c 20 49 |. OSver%<300 . I|
000099a0 25 2b 3d 28 31 3c 3c 32 32 29 0d 32 5a 1e 20 20 |%+=(1<<22).2Z. |
000099b0 20 20 e7 20 41 24 3d 22 41 52 4d 33 20 63 61 63 | . A$="ARM3 cac|
000099c0 68 65 20 6f 6e 22 20 8c 0d 32 64 1c 20 20 20 20 |he on" ..2d. |
000099d0 20 20 c8 8e 20 a8 28 50 72 6f 63 65 73 73 6f 72 | .. .(Processor|
000099e0 25 29 20 ca 0d 32 6e 14 20 20 20 20 20 20 20 20 |%) ..2n. |
000099f0 c9 20 33 3a f4 20 4f 4b 0d 32 78 19 20 20 20 20 |. 3:. OK.2x. |
00009a00 20 20 20 20 7f 20 49 25 2b 3d 28 31 3c 3c 32 32 | . I%+=(1<<22|
00009a10 29 0d 32 82 0b 20 20 20 20 20 20 cb 0d 32 8c 09 |).2.. ..2..|
00009a20 20 20 20 20 cd 0d 32 96 20 20 20 20 20 e7 20 41 | ..2. . A|
00009a30 24 3d 22 57 72 69 74 65 20 62 75 66 66 65 72 20 |$="Write buffer |
00009a40 6f 6e 22 20 8c 0d 32 a0 1c 20 20 20 20 20 20 c8 |on" ..2.. .|
00009a50 8e 20 a8 28 50 72 6f 63 65 73 73 6f 72 25 29 20 |. .(Processor%) |
00009a60 ca 0d 32 aa 22 20 20 20 20 20 20 20 20 c9 20 36 |..2." . 6|
00009a70 30 30 2c 36 31 30 2c 37 30 30 2c 38 30 30 3a f4 |00,610,700,800:.|
00009a80 20 4f 4b 0d 32 b4 19 20 20 20 20 20 20 20 20 7f | OK.2.. .|
00009a90 20 49 25 2b 3d 28 31 3c 3c 32 32 29 0d 32 be 0b | I%+=(1<<22).2..|
00009aa0 20 20 20 20 20 20 cb 0d 32 c8 09 20 20 20 20 cd | ..2.. .|
00009ab0 0d 32 d2 15 20 20 20 20 70 6f 69 6e 74 65 72 25 |.2.. pointer%|
00009ac0 21 38 3d 49 25 0d 32 dc 16 20 20 20 20 70 6f 69 |!8=I%.2.. poi|
00009ad0 6e 74 65 72 25 21 31 32 3d 41 25 0d 32 e6 16 20 |nter%!12=A%.2.. |
00009ae0 20 20 20 70 6f 69 6e 74 65 72 25 21 31 36 3d 2d | pointer%!16=-|
00009af0 31 0d 32 f0 17 20 20 20 20 70 6f 69 6e 74 65 72 |1.2.. pointer|
00009b00 25 21 32 30 3d a9 41 24 0d 32 fa 20 20 20 20 20 |%!20=.A$.2. |
00009b10 70 6f 69 6e 74 65 72 25 2b 3d 32 34 3a 41 25 2b |pointer%+=24:A%+|
00009b20 3d a9 28 41 24 29 2b 31 0d 33 04 14 20 20 fd 20 |=.(A$)+1.3.. . |
00009b30 28 46 25 20 80 20 26 38 30 29 3e 30 0d 33 0e 05 |(F% . &80)>0.3..|
00009b40 ed 0d 33 18 41 c8 99 20 22 57 69 6d 70 5f 43 72 |..3.A.. "Wimp_Cr|
00009b50 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 5f |eateMenu",,menu_|
00009b60 62 6c 6f 63 6b 25 2c 58 25 2d 28 6d 65 6e 75 5f |block%,X%-(menu_|
00009b70 62 6c 6f 63 6b 25 21 31 36 2f 32 29 2c 59 25 2b |block%!16/2),Y%+|
00009b80 31 36 0d 33 22 05 e1 0d 33 2c 05 3a 0d 33 36 26 |16.3"...3,.:.36&|
00009b90 f4 20 4d 65 6e 75 20 64 65 66 69 6e 69 74 69 6f |. Menu definitio|
00009ba0 6e 20 73 74 61 74 65 6d 65 6e 74 73 20 28 75 67 |n statements (ug|
00009bb0 21 29 0d 33 40 2a dc 20 37 2c 32 2c 37 2c 30 2c |!).3@*. 7,2,7,0,|
00009bc0 28 31 33 2a 38 2b 31 32 29 3c 3c 58 46 61 63 74 |(13*8+12)<<XFact|
00009bd0 6f 72 25 2c 31 30 2a 34 2c 30 2c 33 0d 33 4a 24 |or%,10*4,0,3.3J$|
00009be0 dc 20 26 31 30 30 2c 26 37 30 30 30 31 31 31 2c |. &100,&7000111,|
00009bf0 22 49 6e 66 6f 22 2c 70 72 6f 67 69 6e 66 6f 25 |"Info",proginfo%|
00009c00 0d 33 54 1e dc 20 30 2c 26 37 30 30 30 31 31 31 |.3T.. 0,&7000111|
00009c10 2c 22 53 79 73 74 65 6d 20 49 6e 66 6f 22 0d 33 |,"System Info".3|
00009c20 5e 1a dc 20 30 2c 26 37 30 30 30 31 31 31 2c 22 |^.. 0,&7000111,"|
00009c30 46 50 20 49 6e 66 6f 22 0d 33 68 1f dc 20 30 2c |FP Info".3h.. 0,|
00009c40 26 37 30 30 30 31 31 31 2c 22 52 65 2d 63 61 6c |&7000111,"Re-cal|
00009c50 63 75 6c 61 74 65 22 0d 33 72 33 dc 20 26 31 30 |culate".3r3. &10|
00009c60 30 2c 26 37 30 30 30 31 31 31 2c 22 49 6d 70 72 |0,&7000111,"Impr|
00009c70 6f 76 65 6d 65 6e 74 73 22 2c 70 6f 69 6e 74 65 |ovements",pointe|
00009c80 72 25 2b 32 34 2a 38 2b 32 38 0d 33 7c 31 dc 20 |r%+24*8+28.3|1. |
00009c90 26 31 30 30 2c 26 37 30 30 30 31 31 31 2c 22 53 |&100,&7000111,"S|
00009ca0 70 65 65 64 20 49 6e 64 65 78 65 73 22 2c 70 6f |peed Indexes",po|
00009cb0 69 6e 74 65 72 25 2b 32 34 2a 33 0d 33 86 22 dc |inter%+24*3.3.".|
00009cc0 20 26 31 30 30 2c 26 37 30 30 30 31 31 31 2c 22 | &100,&7000111,"|
00009cd0 53 61 76 65 22 2c 73 61 76 65 73 69 25 0d 33 90 |Save",savesi%.3.|
00009ce0 19 dc 20 26 38 30 2c 26 37 30 30 30 31 31 31 2c |.. &80,&7000111,|
00009cf0 22 51 75 69 74 22 0d 33 9a 04 0d 33 a4 34 dc 20 |"Quit".3...3.4. |
00009d00 22 53 27 49 6e 64 65 78 65 73 22 2c 37 2c 32 2c |"S'Indexes",7,2,|
00009d10 37 2c 30 2c 28 31 38 2a 38 2b 31 32 29 3c 3c 58 |7,0,(18*8+12)<<X|
00009d20 46 61 63 74 6f 72 25 2c 31 30 2a 34 2c 30 0d 33 |Factor%,10*4,0.3|
00009d30 ae 27 dc 20 30 2d 63 61 6c 63 4d 43 25 2c 26 37 |.'. 0-calcMC%,&7|
00009d40 30 30 30 31 31 31 2c 22 4d 61 63 68 69 6e 65 20 |000111,"Machine |
00009d50 43 6f 64 65 22 0d 33 b8 23 dc 20 30 2d 63 61 6c |Code".3.#. 0-cal|
00009d60 63 42 41 53 49 43 25 2c 26 37 30 30 30 31 31 31 |cBASIC%,&7000111|
00009d70 2c 22 42 41 53 49 43 22 0d 33 c2 24 dc 20 30 2d |,"BASIC".3.$. 0-|
00009d80 63 61 6c 63 46 50 55 25 2c 26 37 30 30 30 31 31 |calcFPU%,&700011|
00009d90 31 2c 22 46 50 20 69 6e 64 65 78 22 0d 33 cc 28 |1,"FP index".3.(|
00009da0 dc 20 26 38 30 2d 63 61 6c 63 44 48 52 59 25 2c |. &80-calcDHRY%,|
00009db0 26 37 30 30 30 31 31 31 2c 22 44 68 72 79 73 74 |&7000111,"Dhryst|
00009dc0 6f 6e 65 22 0d 33 d6 04 0d 33 e0 36 dc 20 22 49 |one".3...3.6. "I|
00009dd0 6d 70 72 6f 76 65 6d 65 6e 74 22 2c 37 2c 32 2c |mprovement",7,2,|
00009de0 37 2c 30 2c 28 31 38 2a 38 2b 31 36 29 3c 3c 58 |7,0,(18*8+16)<<X|
00009df0 46 61 63 74 6f 72 25 2c 31 30 2a 34 2c 30 0d 33 |Factor%,10*4,0.3|
00009e00 ea 34 dc 20 30 2d 28 48 69 67 68 52 4f 4d 53 70 |.4. 0-(HighROMSp|
00009e10 65 65 64 3d 31 29 2c 26 37 30 30 30 31 31 31 2c |eed=1),&7000111,|
00009e20 22 50 61 67 65 64 20 52 4f 4d 20 61 63 63 65 73 |"Paged ROM acces|
00009e30 73 22 0d 33 f4 34 dc 20 30 2d 28 48 69 67 68 52 |s".3.4. 0-(HighR|
00009e40 4f 4d 53 70 65 65 64 3d 32 29 2c 26 37 30 30 30 |OMSpeed=2),&7000|
00009e50 31 31 31 2c 22 52 4f 4d 20 28 32 20 6e 2d 63 79 |111,"ROM (2 n-cy|
00009e60 63 6c 65 73 29 22 0d 33 fe 34 dc 20 30 2d 28 48 |cles)".3.4. 0-(H|
00009e70 69 67 68 52 4f 4d 53 70 65 65 64 3d 33 29 2c 26 |ighROMSpeed=3),&|
00009e80 37 30 30 30 31 31 31 2c 22 52 4f 4d 20 28 33 20 |7000111,"ROM (3 |
00009e90 6e 2d 63 79 63 6c 65 73 29 22 0d 34 08 34 dc 20 |n-cycles)".4.4. |
00009ea0 30 2d 28 48 69 67 68 52 4f 4d 53 70 65 65 64 3d |0-(HighROMSpeed=|
00009eb0 34 29 2c 26 37 30 30 30 31 31 31 2c 22 52 4f 4d |4),&7000111,"ROM|
00009ec0 20 28 34 20 6e 2d 63 79 63 6c 65 73 29 22 0d 34 | (4 n-cycles)".4|
00009ed0 12 2d dc 20 32 2d 28 56 69 64 65 6f 44 4d 41 25 |.-. 2-(VideoDMA%|
00009ee0 3d 30 29 2c 26 37 30 30 30 31 31 31 2c 22 4e 6f |=0),&7000111,"No|
00009ef0 20 56 69 64 65 6f 20 44 4d 41 22 0d 34 1c 2e dc | Video DMA".4...|
00009f00 20 30 2d 46 61 73 74 65 72 42 41 53 49 43 25 2c | 0-FasterBASIC%,|
00009f10 26 37 30 30 30 31 31 31 2c 22 52 4d 46 61 73 74 |&7000111,"RMFast|
00009f20 65 72 20 42 41 53 49 43 22 0d 34 26 31 dc 20 30 |er BASIC".4&1. 0|
00009f30 2d 46 61 73 74 65 72 46 50 45 25 2c 26 37 30 30 |-FasterFPE%,&700|
00009f40 30 31 31 31 2c 22 52 4d 46 61 73 74 65 72 20 46 |0111,"RMFaster F|
00009f50 50 45 6d 75 6c 61 74 6f 72 22 0d 34 30 2b dc 20 |PEmulator".40+. |
00009f60 26 38 30 2d 43 61 63 68 65 4f 4e 25 2c 26 37 30 |&80-CacheON%,&70|
00009f70 30 30 31 31 31 2c 22 41 52 4d 33 20 63 61 63 68 |00111,"ARM3 cach|
00009f80 65 20 6f 6e 22 0d 34 3a 05 3a 0d 34 44 1b dd 20 |e on".4:.:.4D.. |
00009f90 f2 65 72 72 6f 72 28 65 72 72 25 2c 20 72 65 70 |.error(err%, rep|
00009fa0 6f 72 74 24 29 0d 34 4e 38 e7 20 65 72 72 25 3c |ort$).4N8. err%<|
00009fb0 3e 30 20 8c 20 85 20 30 2c 72 65 70 6f 72 74 24 |>0 . . 0,report$|
00009fc0 2b 22 20 69 6e 74 65 72 6e 61 6c 20 65 72 72 6f |+" internal erro|
00009fd0 72 20 28 22 2b c3 28 9e 29 2b 22 29 22 0d 34 58 |r ("+.(.)+")".4X|
00009fe0 16 21 65 72 72 6f 72 5f 62 6c 6b 25 20 3d 20 65 |.!error_blk% = e|
00009ff0 72 72 25 0d 34 62 1b 24 28 65 72 72 6f 72 5f 62 |rr%.4b.$(error_b|
0000a000 6c 6b 25 2b 34 29 3d 72 65 70 6f 72 74 24 0d 34 |lk%+4)=report$.4|
0000a010 6c 1e 3f 28 65 72 72 6f 72 5f 62 6c 6b 25 2b 34 |l.?(error_blk%+4|
0000a020 2b a9 72 65 70 6f 72 74 24 29 3d 30 0d 34 76 3a |+.report$)=0.4v:|
0000a030 c8 99 20 22 58 57 69 6d 70 5f 52 65 70 6f 72 74 |.. "XWimp_Report|
0000a040 45 72 72 6f 72 22 2c 20 65 72 72 6f 72 5f 62 6c |Error", error_bl|
0000a050 6b 25 2c 20 25 31 2c 20 66 75 6c 6c 5f 61 70 70 |k%, %1, full_app|
0000a060 5f 6e 61 6d 65 24 0d 34 80 05 e1 0d 34 8a 05 3a |_name$.4....4..:|
0000a070 0d 34 94 22 f4 20 55 70 64 61 74 65 20 61 20 6d |.4.". Update a m|
0000a080 61 69 6e 20 53 49 20 77 69 6e 64 6f 77 20 69 63 |ain SI window ic|
0000a090 6f 6e 0d 34 9e 18 dd 20 f2 75 70 64 61 74 65 69 |on.4... .updatei|
0000a0a0 63 6f 6e 28 49 25 2c 41 24 29 0d 34 a8 19 21 69 |con(I%,A$).4..!i|
0000a0b0 63 6f 6e 5f 62 6c 6f 63 6b 25 3d 73 79 73 69 6e |con_block%=sysin|
0000a0c0 66 6f 25 0d 34 b2 14 69 63 6f 6e 5f 62 6c 6f 63 |fo%.4..icon_bloc|
0000a0d0 6b 25 21 34 3d 49 25 0d 34 bc 27 c8 99 20 22 57 |k%!4=I%.4.'.. "W|
0000a0e0 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
0000a0f0 22 2c 2c 69 63 6f 6e 5f 62 6c 6f 63 6b 25 0d 34 |",,icon_block%.4|
0000a100 c6 1d e7 20 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 |... icon_block%!|
0000a110 32 34 20 80 20 31 3c 3c 38 20 8c 0d 34 d0 1a 20 |24 . 1<<8 ..4.. |
0000a120 20 24 28 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 32 | $(icon_block%!2|
0000a130 38 29 3d 41 24 0d 34 da 05 cd 0d 34 e4 14 21 62 |8)=A$.4....4..!b|
0000a140 6c 6f 63 6b 25 3d 73 79 73 69 6e 66 6f 25 0d 34 |lock%=sysinfo%.4|
0000a150 ee 0f 62 6c 6f 63 6b 25 21 34 3d 49 25 0d 34 f8 |..block%!4=I%.4.|
0000a160 0e 62 6c 6f 63 6b 25 21 38 3d 30 0d 35 02 0f 62 |.block%!8=0.5..b|
0000a170 6c 6f 63 6b 25 21 31 32 3d 30 0d 35 0c 22 c8 99 |lock%!12=0.5."..|
0000a180 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 | "Wimp_SetIconSt|
0000a190 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 35 16 05 |ate",,block%.5..|
0000a1a0 e1 0d 35 20 05 3a 0d 35 2a 2a f4 20 55 70 64 61 |..5 .:.5**. Upda|
0000a1b0 74 65 20 74 68 65 20 62 61 72 20 69 6e 20 74 68 |te the bar in th|
0000a1c0 65 20 6d 61 69 6e 20 53 49 20 77 69 6e 64 6f 77 |e main SI window|
0000a1d0 0d 35 34 11 dd 20 a4 62 61 72 28 49 25 2c 57 25 |.54.. .bar(I%,W%|
0000a1e0 29 0d 35 3e 0f e7 20 57 25 3d 30 20 57 25 3d 32 |).5>.. W%=0 W%=2|
0000a1f0 0d 35 48 19 21 69 63 6f 6e 5f 62 6c 6f 63 6b 25 |.5H.!icon_block%|
0000a200 3d 73 79 73 69 6e 66 6f 25 0d 35 52 14 69 63 6f |=sysinfo%.5R.ico|
0000a210 6e 5f 62 6c 6f 63 6b 25 21 34 3d 49 25 0d 35 5c |n_block%!4=I%.5\|
0000a220 27 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |'.. "Wimp_GetIco|
0000a230 6e 53 74 61 74 65 22 2c 2c 69 63 6f 6e 5f 62 6c |nState",,icon_bl|
0000a240 6f 63 6b 25 0d 35 66 23 69 63 6f 6e 5f 62 6c 6f |ock%.5f#icon_blo|
0000a250 63 6b 25 21 31 36 3d 69 63 6f 6e 5f 62 6c 6f 63 |ck%!16=icon_bloc|
0000a260 6b 25 21 38 2b 57 25 0d 35 70 1a 69 63 6f 6e 5f |k%!8+W%.5p.icon_|
0000a270 62 6c 6f 63 6b 25 21 34 3d 73 79 73 69 6e 66 6f |block%!4=sysinfo|
0000a280 25 0d 35 7a 2c c8 99 20 22 57 69 6d 70 5f 43 72 |%.5z,.. "Wimp_Cr|
0000a290 65 61 74 65 49 63 6f 6e 22 2c 2c 69 63 6f 6e 5f |eateIcon",,icon_|
0000a2a0 62 6c 6f 63 6b 25 2b 34 20 b8 20 57 25 0d 35 84 |block%+4 . W%.5.|
0000a2b0 14 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 34 3d 49 |.icon_block%!4=I|
0000a2c0 25 0d 35 8e 19 69 63 6f 6e 5f 62 6c 6f 63 6b 25 |%.5..icon_block%|
0000a2d0 21 38 3d 26 31 31 3c 3c 32 34 0d 35 98 1a 69 63 |!8=&11<<24.5..ic|
0000a2e0 6f 6e 5f 62 6c 6f 63 6b 25 21 31 32 3d 26 46 46 |on_block%!12=&FF|
0000a2f0 3c 3c 32 34 0d 35 a2 27 c8 99 20 22 57 69 6d 70 |<<24.5.'.. "Wimp|
0000a300 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
0000a310 69 63 6f 6e 5f 62 6c 6f 63 6b 25 0d 35 ac 14 21 |icon_block%.5..!|
0000a320 62 6c 6f 63 6b 25 3d 73 79 73 69 6e 66 6f 25 0d |block%=sysinfo%.|
0000a330 35 b6 0f 62 6c 6f 63 6b 25 21 34 3d 49 25 0d 35 |5..block%!4=I%.5|
0000a340 c0 20 c8 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 |. .. "Wimp_Delet|
0000a350 65 49 63 6f 6e 22 2c 2c 62 6c 6f 63 6b 25 0d 35 |eIcon",,block%.5|
0000a360 ca 14 21 62 6c 6f 63 6b 25 3d 73 79 73 69 6e 66 |..!block%=sysinf|
0000a370 6f 25 0d 35 d4 0f 62 6c 6f 63 6b 25 21 34 3d 57 |o%.5..block%!4=W|
0000a380 25 0d 35 de 0e 62 6c 6f 63 6b 25 21 38 3d 30 0d |%.5..block%!8=0.|
0000a390 35 e8 0f 62 6c 6f 63 6b 25 21 31 32 3d 30 0d 35 |5..block%!12=0.5|
0000a3a0 f2 22 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 |.".. "Wimp_SetIc|
0000a3b0 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |onState",,block%|
0000a3c0 0d 35 fc 07 3d 57 25 0d 36 06 05 3a 0d 36 10 22 |.5..=W%.6..:.6."|
0000a3d0 f4 20 55 70 64 61 74 65 20 69 63 6f 6e 20 69 6e |. Update icon in|
0000a3e0 20 74 68 65 20 46 50 20 77 69 6e 64 6f 77 0d 36 | the FP window.6|
0000a3f0 1a 19 dd 20 f2 75 70 64 61 74 65 69 63 6f 6e 32 |... .updateicon2|
0000a400 28 49 25 2c 41 24 29 0d 36 24 19 21 69 63 6f 6e |(I%,A$).6$.!icon|
0000a410 5f 62 6c 6f 63 6b 25 3d 66 70 75 69 6e 66 6f 25 |_block%=fpuinfo%|
0000a420 0d 36 2e 14 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 |.6..icon_block%!|
0000a430 34 3d 49 25 0d 36 38 27 c8 99 20 22 57 69 6d 70 |4=I%.68'.. "Wimp|
0000a440 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
0000a450 69 63 6f 6e 5f 62 6c 6f 63 6b 25 0d 36 42 1d e7 |icon_block%.6B..|
0000a460 20 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 32 34 20 | icon_block%!24 |
0000a470 80 20 31 3c 3c 38 20 8c 0d 36 4c 1a 20 20 24 28 |. 1<<8 ..6L. $(|
0000a480 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 32 38 29 3d |icon_block%!28)=|
0000a490 41 24 0d 36 56 05 cd 0d 36 60 14 21 62 6c 6f 63 |A$.6V...6`.!bloc|
0000a4a0 6b 25 3d 66 70 75 69 6e 66 6f 25 0d 36 6a 0f 62 |k%=fpuinfo%.6j.b|
0000a4b0 6c 6f 63 6b 25 21 34 3d 49 25 0d 36 74 0e 62 6c |lock%!4=I%.6t.bl|
0000a4c0 6f 63 6b 25 21 38 3d 30 0d 36 7e 0f 62 6c 6f 63 |ock%!8=0.6~.bloc|
0000a4d0 6b 25 21 31 32 3d 30 0d 36 88 22 c8 99 20 22 57 |k%!12=0.6.".. "W|
0000a4e0 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 |imp_SetIconState|
0000a4f0 22 2c 2c 62 6c 6f 63 6b 25 0d 36 92 05 e1 0d 36 |",,block%.6....6|
0000a500 9c 05 3a 0d 36 a6 23 f4 20 55 70 64 61 74 65 20 |..:.6.#. Update |
0000a510 61 20 62 61 72 20 69 6e 20 74 68 65 20 46 50 20 |a bar in the FP |
0000a520 77 69 6e 64 6f 77 0d 36 b0 12 dd 20 a4 62 61 72 |window.6... .bar|
0000a530 32 28 49 25 2c 57 25 29 0d 36 ba 0f e7 20 57 25 |2(I%,W%).6... W%|
0000a540 3d 30 20 57 25 3d 32 0d 36 c4 19 21 69 63 6f 6e |=0 W%=2.6..!icon|
0000a550 5f 62 6c 6f 63 6b 25 3d 66 70 75 69 6e 66 6f 25 |_block%=fpuinfo%|
0000a560 0d 36 ce 14 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 |.6..icon_block%!|
0000a570 34 3d 49 25 0d 36 d8 27 c8 99 20 22 57 69 6d 70 |4=I%.6.'.. "Wimp|
0000a580 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
0000a590 69 63 6f 6e 5f 62 6c 6f 63 6b 25 0d 36 e2 23 69 |icon_block%.6.#i|
0000a5a0 63 6f 6e 5f 62 6c 6f 63 6b 25 21 31 36 3d 69 63 |con_block%!16=ic|
0000a5b0 6f 6e 5f 62 6c 6f 63 6b 25 21 38 2b 57 25 0d 36 |on_block%!8+W%.6|
0000a5c0 ec 1a 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 34 3d |..icon_block%!4=|
0000a5d0 66 70 75 69 6e 66 6f 25 0d 36 f6 2c c8 99 20 22 |fpuinfo%.6.,.. "|
0000a5e0 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 |Wimp_CreateIcon"|
0000a5f0 2c 2c 69 63 6f 6e 5f 62 6c 6f 63 6b 25 2b 34 20 |,,icon_block%+4 |
0000a600 b8 20 57 25 0d 37 00 14 69 63 6f 6e 5f 62 6c 6f |. W%.7..icon_blo|
0000a610 63 6b 25 21 34 3d 49 25 0d 37 0a 19 69 63 6f 6e |ck%!4=I%.7..icon|
0000a620 5f 62 6c 6f 63 6b 25 21 38 3d 26 31 31 3c 3c 32 |_block%!8=&11<<2|
0000a630 34 0d 37 14 1a 69 63 6f 6e 5f 62 6c 6f 63 6b 25 |4.7..icon_block%|
0000a640 21 31 32 3d 26 46 46 3c 3c 32 34 0d 37 1e 27 c8 |!12=&FF<<24.7.'.|
0000a650 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 |. "Wimp_SetIconS|
0000a660 74 61 74 65 22 2c 2c 69 63 6f 6e 5f 62 6c 6f 63 |tate",,icon_bloc|
0000a670 6b 25 0d 37 28 14 21 62 6c 6f 63 6b 25 3d 66 70 |k%.7(.!block%=fp|
0000a680 75 69 6e 66 6f 25 0d 37 32 0f 62 6c 6f 63 6b 25 |uinfo%.72.block%|
0000a690 21 34 3d 49 25 0d 37 3c 20 c8 99 20 22 57 69 6d |!4=I%.7< .. "Wim|
0000a6a0 70 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 62 |p_DeleteIcon",,b|
0000a6b0 6c 6f 63 6b 25 0d 37 46 14 21 62 6c 6f 63 6b 25 |lock%.7F.!block%|
0000a6c0 3d 66 70 75 69 6e 66 6f 25 0d 37 50 0f 62 6c 6f |=fpuinfo%.7P.blo|
0000a6d0 63 6b 25 21 34 3d 57 25 0d 37 5a 0e 62 6c 6f 63 |ck%!4=W%.7Z.bloc|
0000a6e0 6b 25 21 38 3d 30 0d 37 64 0f 62 6c 6f 63 6b 25 |k%!8=0.7d.block%|
0000a6f0 21 31 32 3d 30 0d 37 6e 22 c8 99 20 22 57 69 6d |!12=0.7n".. "Wim|
0000a700 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_SetIconState",|
0000a710 2c 62 6c 6f 63 6b 25 0d 37 78 07 3d 57 25 0d 37 |,block%.7x.=W%.7|
0000a720 82 05 3a 0d 37 8c 22 f4 20 43 68 65 63 6b 20 66 |..:.7.". Check f|
0000a730 6f 72 20 61 6e 20 46 50 55 2f 46 50 41 20 70 72 |or an FPU/FPA pr|
0000a740 65 73 65 6e 74 0d 37 96 0f dd 20 a4 66 70 75 66 |esent.7... .fpuf|
0000a750 6f 75 6e 64 0d 37 a0 2a c8 99 20 22 4f 53 5f 43 |ound.7.*.. "OS_C|
0000a760 68 61 6e 67 65 45 6e 76 69 72 6f 6e 6d 65 6e 74 |hangeEnvironment|
0000a770 22 2c 31 2c 72 65 74 63 64 33 2c 30 2c 30 0d 37 |",1,retcd3,0,0.7|
0000a780 aa 0d 21 6e 6f 66 70 75 25 3d 30 0d 37 b4 0d d6 |..!nofpu%=0.7...|
0000a790 20 74 65 73 74 66 70 75 0d 37 be 10 3d 28 21 6e | testfpu.7..=(!n|
0000a7a0 6f 66 70 75 25 3d 30 29 0d 37 c8 05 3a 0d 37 d2 |ofpu%=0).7..:.7.|
0000a7b0 1d dd 20 f2 55 70 64 61 74 65 4d 45 4d 43 28 6e |.. .UpdateMEMC(n|
0000a7c0 65 77 25 2c 6d 61 73 6b 25 29 0d 37 dc 22 c8 99 |ew%,mask%).7."..|
0000a7d0 20 22 58 4f 53 5f 55 70 64 61 74 65 4d 45 4d 43 | "XOS_UpdateMEMC|
0000a7e0 22 2c 6e 65 77 25 2c 6d 61 73 6b 25 0d 37 e6 05 |",new%,mask%.7..|
0000a7f0 e1 0d 37 f0 05 3a 0d 37 fa 0f dd 20 a4 52 65 61 |..7..:.7... .Rea|
0000a800 64 4d 45 4d 43 0d 38 04 0a ea 20 72 65 73 25 0d |dMEMC.8... res%.|
0000a810 38 0e 22 c8 99 20 22 58 4f 53 5f 55 70 64 61 74 |8.".. "XOS_Updat|
0000a820 65 4d 45 4d 43 22 2c 30 2c 30 20 b8 20 72 65 73 |eMEMC",0,0 . res|
0000a830 25 0d 38 18 09 3d 72 65 73 25 0d 38 22 05 3a 0d |%.8..=res%.8".:.|
0000a840 38 2c 09 f4 20 2a 2a 2a 0d 38 36 21 f4 20 2a 2a |8,.. ***.86!. **|
0000a850 2a 20 49 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e |* Initialisation|
0000a860 20 72 6f 75 74 69 6e 65 73 0d 38 40 09 f4 20 2a | routines.8@.. *|
0000a870 2a 2a 0d 38 4a 05 3a 0d 38 54 11 dd 20 f2 49 6e |**.8J.:.8T.. .In|
0000a880 69 74 69 61 6c 69 73 65 0d 38 5e 23 69 6e 64 69 |itialise.8^#indi|
0000a890 72 65 63 74 65 64 5f 70 6f 69 6e 74 65 72 25 3d |rected_pointer%=|
0000a8a0 69 6e 64 69 72 65 63 74 65 64 25 0d 38 68 13 69 |indirected%.8h.i|
0000a8b0 62 5f 62 6c 6f 63 6b 25 21 30 3d 31 33 31 0d 38 |b_block%!0=131.8|
0000a8c0 72 12 69 62 5f 62 6c 6f 63 6b 25 21 34 3d 2d 31 |r.ib_block%!4=-1|
0000a8d0 0d 38 7c 2f c8 99 22 4f 53 5f 52 65 61 64 56 64 |.8|/.."OS_ReadVd|
0000a8e0 75 56 61 72 69 61 62 6c 65 73 22 2c 69 62 5f 62 |uVariables",ib_b|
0000a8f0 6c 6f 63 6b 25 2c 69 62 5f 62 6c 6f 63 6b 25 0d |lock%,ib_block%.|
0000a900 38 86 14 24 62 6c 6f 63 6b 25 20 3d 20 22 54 41 |8..$block% = "TA|
0000a910 53 4b 22 0d 38 90 48 c8 99 20 22 57 69 6d 70 5f |SK".8.H.. "Wimp_|
0000a920 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c |Initialise",200,|
0000a930 21 62 6c 6f 63 6b 25 2c 66 75 6c 6c 5f 61 70 70 |!block%,full_app|
0000a940 5f 6e 61 6d 65 24 20 b8 20 4f 75 72 4f 53 76 65 |_name$ . OurOSve|
0000a950 72 25 2c 6f 75 72 74 61 73 6b 25 0d 38 9a 2d c8 |r%,ourtask%.8.-.|
0000a960 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 |. "OS_ReadModeVa|
0000a970 72 69 61 62 6c 65 22 2c eb 2c 34 20 b8 20 2c 2c |riable",.,4 . ,,|
0000a980 58 46 61 63 74 6f 72 25 0d 38 a4 14 f2 5f 6c 6f |XFactor%.8..._lo|
0000a990 61 64 5f 74 65 6d 70 6c 61 74 65 73 0d 38 ae 0e |ad_templates.8..|
0000a9a0 f2 5f 69 63 6f 6e 5f 62 61 72 0d 38 b8 0f f2 5f |._icon_bar.8..._|
0000a9b0 6c 6f 61 64 5f 61 73 73 6d 0d 38 c2 0f f2 5f 61 |load_assm.8..._a|
0000a9c0 73 73 6d 5f 63 6f 64 65 0d 38 cc 1d f2 55 5f 53 |ssm_code.8...U_S|
0000a9d0 74 72 69 6e 67 28 73 61 76 65 73 69 25 2c 31 2c |tring(savesi%,1,|
0000a9e0 22 53 49 22 29 0d 38 d6 0f f2 52 65 73 65 74 5f |"SI").8...Reset_|
0000a9f0 76 61 72 73 0d 38 e0 2d c8 99 20 22 4f 53 5f 52 |vars.8.-.. "OS_R|
0000aa00 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 |eadModeVariable"|
0000aa10 2c eb 2c 34 20 b8 20 2c 2c 58 46 61 63 74 6f 72 |,.,4 . ,,XFactor|
0000aa20 25 0d 38 ea 2e c8 99 20 22 4f 53 5f 52 65 61 64 |%.8.... "OS_Read|
0000aa30 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c eb 2c |ModeVariable",.,|
0000aa40 31 31 20 b8 20 2c 2c 58 50 69 78 65 6c 73 25 0d |11 . ,,XPixels%.|
0000aa50 38 f4 1d 59 50 69 78 65 6c 73 25 3d 28 21 69 62 |8..YPixels%=(!ib|
0000aa60 5f 62 6c 6f 63 6b 25 29 2a 34 2b 34 0d 38 fe 0f |_block%)*4+4.8..|
0000aa70 58 50 69 78 65 6c 73 25 2b 3d 31 0d 39 08 05 e1 |XPixels%+=1.9...|
0000aa80 0d 39 12 05 3a 0d 39 1c 18 f4 20 52 65 73 65 74 |.9..:.9... Reset|
0000aa90 20 53 49 20 76 61 72 69 61 62 6c 65 73 0d 39 26 | SI variables.9&|
0000aaa0 11 dd 20 f2 52 65 73 65 74 5f 76 61 72 73 0d 39 |.. .Reset_vars.9|
0000aab0 30 0b ea 20 6c 6f 6f 70 25 0d 39 3a 04 0d 39 44 |0.. loop%.9:..9D|
0000aac0 1e f4 20 44 69 73 70 6c 61 79 20 62 61 72 20 69 |.. Display bar i|
0000aad0 63 6f 6e 20 68 61 6e 64 6c 65 73 0d 39 4e 09 f7 |con handles.9N..|
0000aae0 20 2b 31 30 0d 39 58 12 e3 20 6c 6f 6f 70 25 3d | +10.9X.. loop%=|
0000aaf0 31 20 b8 20 32 30 0d 39 62 11 20 20 f3 20 42 25 |1 . 20.9b. . B%|
0000ab00 28 6c 6f 6f 70 25 29 0d 39 6c 0b ed 20 6c 6f 6f |(loop%).9l.. loo|
0000ab10 70 25 0d 39 76 12 e3 20 6c 6f 6f 70 25 3d 30 20 |p%.9v.. loop%=0 |
0000ab20 b8 20 33 35 0d 39 80 18 20 20 43 25 28 6c 6f 6f |. 35.9.. C%(loo|
0000ab30 70 25 29 3d 38 32 2b 6c 6f 6f 70 25 0d 39 8a 0b |p%)=82+loop%.9..|
0000ab40 ed 20 6c 6f 6f 70 25 0d 39 94 04 0d 39 9e 13 6f |. loop%.9...9..o|
0000ab50 75 72 5f 66 69 6c 65 74 79 70 65 25 3d 33 0d 39 |ur_filetype%=3.9|
0000ab60 a8 0d 6d 79 5f 72 65 66 25 3d 30 0d 39 b2 10 44 |..my_ref%=0.9..D|
0000ab70 52 41 4d 43 68 65 63 6b 25 3d a3 0d 39 bc 0f 56 |RAMCheck%=..9..V|
0000ab80 69 64 65 6f 44 4d 41 25 3d b9 0d 39 c6 0d 63 61 |ideoDMA%=..9..ca|
0000ab90 6c 63 4d 43 25 3d a3 0d 39 d0 10 63 61 6c 63 42 |lcMC%=..9..calcB|
0000aba0 41 53 49 43 25 3d a3 0d 39 da 0e 63 61 6c 63 46 |ASIC%=..9..calcF|
0000abb0 50 55 25 3d a3 0d 39 e4 26 6d 6f 64 65 25 3d 30 |PU%=..9.&mode%=0|
0000abc0 3a 53 63 72 65 65 6e 53 69 7a 65 25 3d 30 3a 4d |:ScreenSize%=0:M|
0000abd0 45 4d 43 53 74 61 74 65 25 3d 30 0d 39 ee 44 50 |EMCState%=0.9.DP|
0000abe0 72 6f 63 65 73 73 6f 72 25 3d 30 3a 50 72 6f 63 |rocessor%=0:Proc|
0000abf0 65 73 73 6f 72 54 79 70 65 25 3d 30 3a 49 4f 43 |essorType%=0:IOC|
0000ac00 54 79 70 65 25 3d 30 3a 4d 45 4d 43 54 79 70 65 |Type%=0:MEMCType|
0000ac10 25 3d 30 3a 56 49 44 43 54 79 70 65 25 3d 30 0d |%=0:VIDCType%=0.|
0000ac20 39 f8 45 52 41 4d 53 69 7a 65 25 3d 30 3a 48 69 |9.ERAMSize%=0:Hi|
0000ac30 67 68 52 4f 4d 53 70 65 65 64 3d 30 3a 4c 6f 77 |ghROMSpeed=0:Low|
0000ac40 52 4f 4d 53 70 65 65 64 3d 30 3a 52 41 4d 53 70 |ROMSpeed=0:RAMSp|
0000ac50 65 65 64 3d 30 3a 44 52 41 4d 52 65 66 72 65 73 |eed=0:DRAMRefres|
0000ac60 68 25 3d 30 0d 3a 02 4c 4d 65 6d 6f 72 79 42 61 |h%=0.:.LMemoryBa|
0000ac70 6e 64 77 69 64 74 68 3d 30 3a 53 63 72 65 65 6e |ndwidth=0:Screen|
0000ac80 42 61 6e 64 77 69 64 74 68 3d 30 3a 44 52 41 4d |Bandwidth=0:DRAM|
0000ac90 42 61 6e 64 77 69 64 74 68 3d 30 3a 50 72 6f 63 |Bandwidth=0:Proc|
0000aca0 65 73 73 6f 72 42 61 6e 64 77 69 64 74 68 3d 30 |essorBandwidth=0|
0000acb0 0d 3a 0c 10 42 41 53 49 43 49 6e 64 65 78 3d 30 |.:..BASICIndex=0|
0000acc0 0d 3a 16 26 44 48 52 59 49 6e 64 65 78 3d 30 3a |.:.&DHRYIndex=0:|
0000acd0 44 48 52 59 6d 73 65 63 3d 30 3a 44 48 52 59 76 |DHRYmsec=0:DHRYv|
0000ace0 61 6c 75 65 3d 30 0d 3a 20 18 46 50 55 69 6e 64 |alue=0.: .FPUind|
0000acf0 65 78 3d 30 3a 46 50 55 74 69 6d 65 3d 30 0d 3a |ex=0:FPUtime=0.:|
0000ad00 2a 32 4f 53 76 65 72 25 3d 30 3a 52 4f 4d 73 69 |*2OSver%=0:ROMsi|
0000ad10 7a 65 25 3d 30 3a 52 4f 4d 73 69 7a 65 35 74 68 |ze%=0:ROMsize5th|
0000ad20 25 3d 30 3a 52 4f 4d 6e 75 6d 35 74 68 25 3d 30 |%=0:ROMnum5th%=0|
0000ad30 0d 3a 34 0d 4f 53 73 74 72 24 3d 22 22 0d 3a 3e |.:4.OSstr$="".:>|
0000ad40 1f 55 6e 69 71 75 65 49 44 61 25 3d 2d 31 3a 55 |.UniqueIDa%=-1:U|
0000ad50 6e 69 71 75 65 49 44 62 25 3d 2d 31 0d 3a 48 0d |niqueIDb%=-1.:H.|
0000ad60 46 50 73 74 72 24 3d 22 22 0d 3a 52 37 49 4f 45 |FPstr$="".:R7IOE|
0000ad70 42 54 79 70 65 25 3d 2d 31 3a 46 50 41 54 79 70 |BType%=-1:FPATyp|
0000ad80 65 25 3d 2d 31 3a 50 65 72 69 70 68 54 79 70 65 |e%=-1:PeriphType|
0000ad90 25 3d 2d 31 3a 4c 43 44 54 79 70 65 25 3d 2d 31 |%=-1:LCDType%=-1|
0000ada0 0d 3a 5c 10 56 49 44 45 4f 73 74 72 24 3d 22 22 |.:\.VIDEOstr$=""|
0000adb0 0d 3a 66 12 46 61 73 74 65 72 42 41 53 49 43 25 |.:f.FasterBASIC%|
0000adc0 3d a3 0d 3a 70 10 46 61 73 74 65 72 46 50 45 25 |=..:p.FasterFPE%|
0000add0 3d a3 0d 3a 7a 0e 43 61 63 68 65 4f 4e 25 3d a3 |=..:z.CacheON%=.|
0000ade0 0d 3a 84 0f 63 61 6c 63 44 48 52 59 25 3d a3 0d |.:..calcDHRY%=..|
0000adf0 3a 8e 13 52 41 4d 50 61 67 65 53 69 7a 65 25 3d |:..RAMPageSize%=|
0000ae00 2d 31 0d 3a 98 04 0d 3a a2 05 e1 0d 3a ac 05 3a |-1.:...:....:..:|
0000ae10 0d 3a b6 1e f4 20 44 69 73 70 6c 61 79 20 62 61 |.:... Display ba|
0000ae20 72 20 69 63 6f 6e 20 68 61 6e 64 6c 65 73 0d 3a |r icon handles.:|
0000ae30 c0 19 dc 20 31 30 30 2c 31 30 31 2c 31 30 32 2c |... 100,101,102,|
0000ae40 31 30 33 2c 31 30 34 0d 3a ca 19 dc 20 31 30 35 |103,104.:... 105|
0000ae50 2c 31 30 36 2c 31 30 37 2c 31 30 38 2c 31 31 35 |,106,107,108,115|
0000ae60 0d 3a d4 19 dc 20 31 31 36 2c 31 31 37 2c 31 31 |.:... 116,117,11|
0000ae70 39 2c 31 30 39 2c 31 31 30 0d 3a de 19 dc 20 31 |9,109,110.:... 1|
0000ae80 31 31 2c 31 31 32 2c 31 31 33 2c 31 31 34 2c 31 |11,112,113,114,1|
0000ae90 31 38 0d 3a e8 05 3a 0d 3a f2 23 f4 20 4c 6f 61 |18.:..:.:.#. Loa|
0000aea0 64 20 74 65 6d 70 6c 61 74 65 73 20 69 6e 74 6f |d templates into|
0000aeb0 20 77 6f 72 6b 73 70 61 63 65 0d 3a fc 16 dd 20 | workspace.:... |
0000aec0 f2 5f 6c 6f 61 64 5f 74 65 6d 70 6c 61 74 65 73 |._load_templates|
0000aed0 0d 3b 06 3d c8 99 20 22 57 69 6d 70 5f 4f 70 65 |.;.=.. "Wimp_Ope|
0000aee0 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 41 72 |nTemplate",,"<Ar|
0000aef0 6d 53 49 24 44 69 72 3e 2e 52 65 73 6f 75 72 63 |mSI$Dir>.Resourc|
0000af00 65 73 2e 54 65 6d 70 6c 61 74 65 73 22 0d 3b 10 |es.Templates".;.|
0000af10 1d f2 6c 6f 61 64 5f 74 65 6d 70 6c 61 74 65 28 |..load_template(|
0000af20 22 66 70 75 49 6e 66 6f 22 29 0d 3b 1a 2f c8 99 |"fpuInfo").;./..|
0000af30 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | "Wimp_CreateWin|
0000af40 64 6f 77 22 2c 2c 20 77 69 6e 64 6f 77 25 20 b8 |dow",, window% .|
0000af50 20 66 70 75 69 6e 66 6f 25 0d 3b 24 1d f2 6c 6f | fpuinfo%.;$..lo|
0000af60 61 64 5f 74 65 6d 70 6c 61 74 65 28 22 73 79 73 |ad_template("sys|
0000af70 49 6e 66 6f 22 29 0d 3b 2e 2f c8 99 20 22 57 69 |Info").;./.. "Wi|
0000af80 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
0000af90 2c 2c 20 77 69 6e 64 6f 77 25 20 b8 20 73 79 73 |,, window% . sys|
0000afa0 69 6e 66 6f 25 0d 3b 38 1e f2 6c 6f 61 64 5f 74 |info%.;8..load_t|
0000afb0 65 6d 70 6c 61 74 65 28 22 70 72 6f 67 49 6e 66 |emplate("progInf|
0000afc0 6f 22 29 0d 3b 42 30 c8 99 20 22 57 69 6d 70 5f |o").;B0.. "Wimp_|
0000afd0 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 20 |CreateWindow",, |
0000afe0 77 69 6e 64 6f 77 25 20 b8 20 70 72 6f 67 69 6e |window% . progin|
0000aff0 66 6f 25 0d 3b 4c 29 f2 55 5f 53 74 72 69 6e 67 |fo%.;L).U_String|
0000b000 28 70 72 6f 67 69 6e 66 6f 25 2c 20 34 2c 20 61 |(proginfo%, 4, a|
0000b010 70 70 5f 76 65 72 73 69 6f 6e 24 29 0d 3b 56 1e |pp_version$).;V.|
0000b020 f2 6c 6f 61 64 5f 74 65 6d 70 6c 61 74 65 28 22 |.load_template("|
0000b030 78 66 65 72 73 65 6e 64 22 29 0d 3b 60 2e c8 99 |xfersend").;`...|
0000b040 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | "Wimp_CreateWin|
0000b050 64 6f 77 22 2c 2c 20 77 69 6e 64 6f 77 25 20 b8 |dow",, window% .|
0000b060 20 73 61 76 65 73 69 25 0d 3b 6a 1b c8 99 20 22 | savesi%.;j... "|
0000b070 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 |Wimp_CloseTempla|
0000b080 74 65 22 0d 3b 74 05 e1 0d 3b 7e 05 3a 0d 3b 88 |te".;t...;~.:.;.|
0000b090 18 dd 20 f2 6c 6f 61 64 5f 74 65 6d 70 6c 61 74 |.. .load_templat|
0000b0a0 65 28 41 24 29 0d 3b 92 0f 24 62 6c 6f 63 6b 31 |e(A$).;..$block1|
0000b0b0 25 3d 41 24 0d 3b 9c 7d c8 99 20 22 57 69 6d 70 |%=A$.;.}.. "Wimp|
0000b0c0 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c |_LoadTemplate",,|
0000b0d0 20 77 69 6e 64 6f 77 25 2c 20 69 6e 64 69 72 65 | window%, indire|
0000b0e0 63 74 65 64 5f 70 6f 69 6e 74 65 72 25 2c 20 69 |cted_pointer%, i|
0000b0f0 6e 64 69 72 65 63 74 65 64 25 2b 28 31 30 32 34 |ndirected%+(1024|
0000b100 2a 38 29 2c 20 2d 31 2c 20 62 6c 6f 63 6b 31 25 |*8), -1, block1%|
0000b110 2c 20 30 20 b8 20 2c 2c 69 6e 64 69 72 65 63 74 |, 0 . ,,indirect|
0000b120 65 64 5f 70 6f 69 6e 74 65 72 25 2c 2c 2c 2c 41 |ed_pointer%,,,,A|
0000b130 25 0d 3b a6 3c e7 20 41 25 3d 30 20 85 20 30 2c |%.;.<. A%=0 . 0,|
0000b140 22 55 6e 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 |"Unable to find |
0000b150 74 65 6d 70 6c 61 74 65 20 64 65 66 69 6e 69 74 |template definit|
0000b160 69 6f 6e 20 28 22 2b 41 24 2b 22 29 22 0d 3b b0 |ion ("+A$+")".;.|
0000b170 05 e1 0d 3b ba 05 3a 0d 3b c4 22 f4 20 50 6c 61 |...;..:.;.". Pla|
0000b180 63 65 20 61 6e 20 69 63 6f 6e 20 6f 6e 20 74 68 |ce an icon on th|
0000b190 65 20 69 63 6f 6e 62 61 72 0d 3b ce 10 dd 20 f2 |e iconbar.;... .|
0000b1a0 5f 69 63 6f 6e 5f 62 61 72 0d 3b d8 14 ea 20 77 |_icon_bar.;... w|
0000b1b0 69 64 74 68 25 2c 68 65 69 67 68 74 25 0d 3b e2 |idth%,height%.;.|
0000b1c0 3e c8 99 20 22 58 57 69 6d 70 5f 53 70 72 69 74 |>.. "XWimp_Sprit|
0000b1d0 65 4f 70 22 2c 34 30 2c 31 2c 22 21 22 2b 61 70 |eOp",40,1,"!"+ap|
0000b1e0 70 5f 6e 61 6d 65 24 20 b8 20 2c 2c 2c 77 69 64 |p_name$ . ,,,wid|
0000b1f0 74 68 25 2c 68 65 69 67 68 74 25 0d 3b ec 1b 77 |th%,height%.;..w|
0000b200 69 64 74 68 25 3d 77 69 64 74 68 25 3c 3c 58 46 |idth%=width%<<XF|
0000b210 61 63 74 6f 72 25 0d 3b f6 14 69 63 6f 6e 5f 62 |actor%.;..icon_b|
0000b220 6c 6f 63 6b 25 21 30 3d 2d 31 0d 3c 00 13 69 63 |lock%!0=-1.<..ic|
0000b230 6f 6e 5f 62 6c 6f 63 6b 25 21 34 3d 30 0d 3c 0a |on_block%!4=0.<.|
0000b240 13 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 38 3d 30 |.icon_block%!8=0|
0000b250 0d 3c 14 1b 69 63 6f 6e 5f 62 6c 6f 63 6b 25 21 |.<..icon_block%!|
0000b260 31 32 3d 77 69 64 74 68 25 2b 34 0d 3c 1e 1d 69 |12=width%+4.<..i|
0000b270 63 6f 6e 5f 62 6c 6f 63 6b 25 21 31 36 3d 34 38 |con_block%!16=48|
0000b280 2b 68 65 69 67 68 74 25 0d 3c 28 3b 69 63 6f 6e |+height%.<(;icon|
0000b290 5f 62 6c 6f 63 6b 25 21 32 30 3d 25 30 30 30 30 |_block%!20=%0000|
0000b2a0 30 30 30 31 30 20 84 20 28 33 3c 3c 31 32 29 20 |00010 . (3<<12) |
0000b2b0 84 20 28 37 3c 3c 32 34 29 20 84 20 28 31 3c 3c |. (7<<24) . (1<<|
0000b2c0 32 38 29 0d 3c 32 23 24 28 69 63 6f 6e 5f 62 6c |28).<2#$(icon_bl|
0000b2d0 6f 63 6b 25 2b 32 34 29 3d 22 21 22 2b 61 70 70 |ock%+24)="!"+app|
0000b2e0 5f 6e 61 6d 65 24 0d 3c 3c 32 c8 99 20 22 57 69 |_name$.<<2.. "Wi|
0000b2f0 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c |mp_CreateIcon",,|
0000b300 69 63 6f 6e 5f 62 6c 6f 63 6b 25 20 b8 20 69 62 |icon_block% . ib|
0000b310 5f 68 61 6e 64 6c 65 25 0d 3c 46 05 e1 0d 3c 50 |_handle%.<F...<P|
0000b320 05 3a 0d 3c 5a 24 f4 20 4c 6f 61 64 20 73 65 70 |.:.<Z$. Load sep|
0000b330 61 72 61 74 65 6c 79 20 61 73 73 65 6d 62 6c 65 |arately assemble|
0000b340 64 20 63 6f 64 65 0d 3c 64 11 dd 20 f2 5f 6c 6f |d code.<d.. ._lo|
0000b350 61 64 5f 61 73 73 6d 0d 3c 6e 28 24 62 6c 6f 63 |ad_assm.<n($bloc|
0000b360 6b 25 3d 22 3c 41 72 6d 53 49 24 44 69 72 3e 2e |k%="<ArmSI$Dir>.|
0000b370 52 65 73 6f 75 72 63 65 73 2e 43 6f 64 65 22 0d |Resources.Code".|
0000b380 3c 78 2b c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c |<x+.. "OS_File",|
0000b390 35 2c 62 6c 6f 63 6b 25 20 b8 20 2c 2c 2c 2c 43 |5,block% . ,,,,C|
0000b3a0 6f 64 65 4c 65 6e 67 74 68 25 0d 3c 82 19 de 20 |odeLength%.<... |
0000b3b0 63 6f 64 65 20 43 6f 64 65 4c 65 6e 67 74 68 25 |code CodeLength%|
0000b3c0 2b 26 43 0d 3c 8c 1c e7 20 28 63 6f 64 65 20 80 |+&C.<... (code .|
0000b3d0 20 26 46 29 3c 3e 30 20 63 6f 64 65 2b 3d 34 0d | &F)<>0 code+=4.|
0000b3e0 3c 96 1c e7 20 28 63 6f 64 65 20 80 20 26 46 29 |<... (code . &F)|
0000b3f0 3c 3e 30 20 63 6f 64 65 2b 3d 34 0d 3c a0 1c e7 |<>0 code+=4.<...|
0000b400 20 28 63 6f 64 65 20 80 20 26 46 29 3c 3e 30 20 | (code . &F)<>0 |
0000b410 63 6f 64 65 2b 3d 34 0d 3c aa 22 c8 99 20 22 4f |code+=4.<.".. "O|
0000b420 53 5f 46 69 6c 65 22 2c 26 46 46 2c 62 6c 6f 63 |S_File",&FF,bloc|
0000b430 6b 25 2c 63 6f 64 65 2c 30 0d 3c b4 04 0d 3c be |k%,code,0.<...<.|
0000b440 29 24 62 6c 6f 63 6b 25 3d 22 3c 41 72 6d 53 49 |)$block%="<ArmSI|
0000b450 24 44 69 72 3e 2e 52 65 73 6f 75 72 63 65 73 2e |$Dir>.Resources.|
0000b460 43 6f 64 65 32 22 0d 3c c8 2c c8 99 20 22 4f 53 |Code2".<.,.. "OS|
0000b470 5f 46 69 6c 65 22 2c 35 2c 62 6c 6f 63 6b 25 20 |_File",5,block% |
0000b480 b8 20 2c 2c 2c 2c 43 6f 64 65 4c 65 6e 67 74 68 |. ,,,,CodeLength|
0000b490 32 25 0d 3c d2 1b de 20 63 6f 64 65 32 20 43 6f |2%.<... code2 Co|
0000b4a0 64 65 4c 65 6e 67 74 68 32 25 2b 26 43 0d 3c dc |deLength2%+&C.<.|
0000b4b0 1e e7 20 28 63 6f 64 65 32 20 80 20 26 46 29 3c |.. (code2 . &F)<|
0000b4c0 3e 30 20 63 6f 64 65 32 2b 3d 34 0d 3c e6 1e e7 |>0 code2+=4.<...|
0000b4d0 20 28 63 6f 64 65 32 20 80 20 26 46 29 3c 3e 30 | (code2 . &F)<>0|
0000b4e0 20 63 6f 64 65 32 2b 3d 34 0d 3c f0 1e e7 20 28 | code2+=4.<... (|
0000b4f0 63 6f 64 65 32 20 80 20 26 46 29 3c 3e 30 20 63 |code2 . &F)<>0 c|
0000b500 6f 64 65 32 2b 3d 34 0d 3c fa 23 c8 99 20 22 4f |ode2+=4.<.#.. "O|
0000b510 53 5f 46 69 6c 65 22 2c 26 46 46 2c 62 6c 6f 63 |S_File",&FF,bloc|
0000b520 6b 25 2c 63 6f 64 65 32 2c 30 0d 3d 04 04 0d 3d |k%,code2,0.=...=|
0000b530 0e 16 49 6e 73 74 72 75 63 74 69 6f 6e 73 3d 21 |..Instructions=!|
0000b540 63 6f 64 65 0d 3d 18 14 72 65 61 64 63 6c 6f 63 |code.=..readcloc|
0000b550 6b 3d 63 6f 64 65 2b 34 0d 3d 22 12 63 61 6c 63 |k=code+4.=".calc|
0000b560 41 52 4d 3d 63 6f 64 65 2b 38 0d 3d 2c 14 63 61 |ARM=code+8.=,.ca|
0000b570 6c 63 41 52 4d 4c 3d 63 6f 64 65 2b 33 32 0d 3d |lcARML=code+32.=|
0000b580 36 12 63 61 6c 63 4d 43 3d 63 6f 64 65 2b 31 32 |6.calcMC=code+12|
0000b590 0d 3d 40 12 74 69 6d 65 72 30 3d 63 6f 64 65 2b |.=@.timer0=code+|
0000b5a0 31 36 0d 3d 4a 15 41 52 4d 63 6f 75 6e 74 31 3d |16.=J.ARMcount1=|
0000b5b0 63 6f 64 65 2b 32 30 0d 3d 54 16 41 52 4d 63 6f |code+20.=T.ARMco|
0000b5c0 75 6e 74 31 61 3d 63 6f 64 65 2b 32 34 0d 3d 5e |unt1a=code+24.=^|
0000b5d0 15 41 52 4d 63 6f 75 6e 74 32 3d 63 6f 64 65 2b |.ARMcount2=code+|
0000b5e0 32 38 0d 3d 68 20 41 52 4d 63 6f 75 6e 74 33 3d |28.=h ARMcount3=|
0000b5f0 63 6f 64 65 2b 43 6f 64 65 4c 65 6e 67 74 68 25 |code+CodeLength%|
0000b600 2d 38 0d 3d 72 21 41 52 4d 63 6f 75 6e 74 34 3d |-8.=r!ARMcount4=|
0000b610 63 6f 64 65 2b 43 6f 64 65 4c 65 6e 67 74 68 25 |code+CodeLength%|
0000b620 2d 31 32 0d 3d 7c 22 41 52 4d 63 6f 75 6e 74 31 |-12.=|"ARMcount1|
0000b630 4c 3d 63 6f 64 65 2b 43 6f 64 65 4c 65 6e 67 74 |L=code+CodeLengt|
0000b640 68 25 2d 31 36 0d 3d 86 23 41 52 4d 63 6f 75 6e |h%-16.=.#ARMcoun|
0000b650 74 31 61 4c 3d 63 6f 64 65 2b 43 6f 64 65 4c 65 |t1aL=code+CodeLe|
0000b660 6e 67 74 68 25 2d 32 30 0d 3d 90 22 41 52 4d 63 |ngth%-20.=."ARMc|
0000b670 6f 75 6e 74 32 4c 3d 63 6f 64 65 2b 43 6f 64 65 |ount2L=code+Code|
0000b680 4c 65 6e 67 74 68 25 2d 32 34 0d 3d 9a 22 41 52 |Length%-24.=."AR|
0000b690 4d 63 6f 75 6e 74 33 4c 3d 63 6f 64 65 2b 43 6f |Mcount3L=code+Co|
0000b6a0 64 65 4c 65 6e 67 74 68 25 2d 32 38 0d 3d a4 22 |deLength%-28.=."|
0000b6b0 41 52 4d 63 6f 75 6e 74 34 4c 3d 63 6f 64 65 2b |ARMcount4L=code+|
0000b6c0 43 6f 64 65 4c 65 6e 67 74 68 25 2d 33 32 0d 3d |CodeLength%-32.=|
0000b6d0 ae 1e 4d 43 63 6f 75 6e 74 3d 63 6f 64 65 2b 43 |..MCcount=code+C|
0000b6e0 6f 64 65 4c 65 6e 67 74 68 25 2d 34 0d 3d b8 11 |odeLength%-4.=..|
0000b6f0 63 61 6c 63 46 50 55 3d 63 6f 64 65 32 0d 3d c2 |calcFPU=code2.=.|
0000b700 14 46 50 55 74 69 6d 65 72 3d 63 6f 64 65 32 2b |.FPUtimer=code2+|
0000b710 34 0d 3d cc 16 46 50 55 72 65 73 75 6c 74 73 3d |4.=..FPUresults=|
0000b720 63 6f 64 65 32 2b 38 0d 3d d6 04 0d 3d e0 05 e1 |code2+8.=...=...|
0000b730 0d 3d ea 05 3a 0d 3d f4 37 f4 20 53 6f 6d 65 20 |.=..:.=.7. Some |
0000b740 61 73 73 65 6d 62 6c 65 72 20 66 6f 72 20 66 69 |assembler for fi|
0000b750 6e 64 69 6e 67 20 6f 75 74 20 76 61 72 69 6f 75 |nding out variou|
0000b760 73 20 74 68 69 6e 67 73 20 2e 2e 2e 0d 3d fe 11 |s things ....=..|
0000b770 dd 20 f2 5f 61 73 73 6d 5f 63 6f 64 65 0d 3e 08 |. ._assm_code.>.|
0000b780 0e ea 20 70 61 73 73 25 2c 50 25 0d 3e 12 15 e3 |.. pass%,P%.>...|
0000b790 20 70 61 73 73 25 3d 30 20 b8 20 32 20 88 20 32 | pass%=0 . 2 . 2|
0000b7a0 0d 3e 1c 0e 50 25 3d 74 70 63 6f 64 65 25 0d 3e |.>..P%=tpcode%.>|
0000b7b0 26 0e 5b 4f 50 54 20 70 61 73 73 25 0d 3e 30 04 |&.[OPT pass%.>0.|
0000b7c0 0d 3e 3a 0e 2e 61 73 73 6d 5f 6d 61 69 6e 0d 3e |.>:..assm_main.>|
0000b7d0 44 27 20 20 20 20 20 20 20 20 53 54 4d 46 44 20 |D' STMFD |
0000b7e0 20 20 52 31 33 21 2c 20 7b 52 30 2d 52 31 32 2c | R13!, {R0-R12,|
0000b7f0 20 52 31 34 7d 0d 3e 4e 34 20 20 20 20 20 20 20 | R14}.>N4 |
0000b800 20 53 57 49 20 20 20 20 20 22 4f 53 5f 45 6e 74 | SWI "OS_Ent|
0000b810 65 72 4f 53 22 20 20 20 20 3b 20 45 6e 74 65 72 |erOS" ; Enter|
0000b820 20 53 56 43 20 6d 6f 64 65 0d 3e 58 19 20 20 20 | SVC mode.>X. |
0000b830 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c | MOV R0,|
0000b840 50 43 0d 3e 62 23 20 20 20 20 20 20 20 20 84 52 |PC.>b# .R|
0000b850 20 20 20 20 20 52 30 2c 52 30 2c 23 26 30 43 30 | R0,R0,#&0C0|
0000b860 30 30 30 30 30 0d 3e 6c 19 20 20 20 20 20 20 20 |00000.>l. |
0000b870 20 54 45 51 50 20 20 20 20 52 30 2c 23 30 0d 3e | TEQP R0,#0.>|
0000b880 76 39 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |v9 MOV |
0000b890 20 20 52 30 2c 52 30 20 20 20 20 20 20 20 20 20 | R0,R0 |
0000b8a0 20 20 3b 20 4d 75 73 74 6e 27 74 20 75 73 65 20 | ; Mustn't use |
0000b8b0 4d 4f 56 4e 56 20 21 0d 3e 80 04 0d 3e 8a 21 3b |MOVNV !.>...>.!;|
0000b8c0 20 52 65 61 64 73 20 66 72 6f 6d 20 7a 65 72 6f | Reads from zero|
0000b8d0 20 70 61 67 65 20 6d 65 6d 6f 72 79 0d 3e 94 04 | page memory.>..|
0000b8e0 0d 3e 9e 55 20 20 20 20 20 20 20 20 4d 4f 56 20 |.>.U MOV |
0000b8f0 20 20 20 20 52 30 2c 20 23 26 31 30 30 20 20 20 | R0, #&100 |
0000b900 20 20 20 20 3b 20 52 65 61 64 20 4d 45 4d 43 20 | ; Read MEMC |
0000b910 74 79 70 65 20 28 69 6e 20 63 61 73 65 20 6f 66 |type (in case of|
0000b920 20 70 72 6f 74 65 63 74 65 64 20 7a 65 72 6f 20 | protected zero |
0000b930 70 61 67 65 29 0d 3e a8 21 20 20 20 20 20 20 20 |page).>.! |
0000b940 20 4c 44 52 42 20 20 20 20 52 31 2c 20 5b 52 30 | LDRB R1, [R0|
0000b950 2c 23 26 31 32 5d 0d 3e b2 1c 20 20 20 20 20 20 |,#&12].>.. |
0000b960 20 20 80 20 20 20 20 20 52 31 2c 20 52 31 2c 20 | . R1, R1, |
0000b970 23 31 0d 3e bc 21 20 20 20 20 20 20 20 20 53 54 |#1.>.! ST|
0000b980 52 20 20 20 20 20 52 31 2c 20 6d 65 6d 63 74 79 |R R1, memcty|
0000b990 70 65 25 0d 3e c6 33 20 20 20 20 20 20 20 20 4c |pe%.>.3 L|
0000b9a0 44 52 20 20 20 20 20 52 31 2c 20 5b 52 30 2c 23 |DR R1, [R0,#|
0000b9b0 26 31 30 5d 20 20 20 3b 20 52 65 61 64 20 52 41 |&10] ; Read RA|
0000b9c0 4d 53 70 65 65 64 0d 3e d0 21 20 20 20 20 20 20 |MSpeed.>.! |
0000b9d0 20 20 53 54 52 20 20 20 20 20 52 31 2c 20 72 61 | STR R1, ra|
0000b9e0 6d 73 70 65 65 64 25 0d 3e da 04 0d 3e e4 1e 3b |mspeed%.>...>..;|
0000b9f0 20 44 65 74 65 72 6d 69 6e 65 20 70 72 6f 63 65 | Determine proce|
0000ba00 73 73 6f 72 20 74 79 70 65 0d 3e ee 04 0d 3e f8 |ssor type.>...>.|
0000ba10 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 |. MOV |
0000ba20 20 52 31 2c 23 30 0d 3f 02 1f 20 20 20 20 20 20 | R1,#0.?.. |
0000ba30 20 20 41 44 52 20 20 20 20 20 52 32 2c 70 72 6f | ADR R2,pro|
0000ba40 74 79 70 65 25 0d 3f 0c 38 20 20 20 20 20 20 20 |type%.?.8 |
0000ba50 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 31 20 20 | MOV R0,#1 |
0000ba60 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6e 6f | ; if no|
0000ba70 20 72 65 73 75 6c 74 73 20 41 52 4d 31 0d 3f 16 | results ARM1.?.|
0000ba80 32 20 20 20 20 20 20 20 20 45 51 55 44 20 20 20 |2 EQUD |
0000ba90 20 26 45 30 30 30 30 30 39 31 20 20 20 20 20 20 | &E0000091 |
0000baa0 20 3b 20 4d 55 4c 20 52 30 2c 52 31 2c 52 30 0d | ; MUL R0,R1,R0.|
0000bab0 3f 20 2b 20 20 20 20 20 20 20 20 4d 4f 56 20 20 |? + MOV |
0000bac0 20 20 20 52 30 2c 23 32 20 20 20 20 20 20 20 20 | R0,#2 |
0000bad0 20 20 20 3b 20 41 52 4d 20 32 0d 3f 2a 34 20 20 | ; ARM 2.?*4 |
0000bae0 20 20 20 20 20 20 45 51 55 44 20 20 20 20 26 45 | EQUD &E|
0000baf0 31 30 32 31 30 39 31 20 20 20 20 20 20 20 3b 20 |1021091 ; |
0000bb00 53 57 50 20 52 31 2c 52 31 2c 5b 52 32 5d 0d 3f |SWP R1,R1,[R2].?|
0000bb10 34 2d 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |4- MOV |
0000bb20 20 20 52 30 2c 23 32 35 30 20 20 20 20 20 20 20 | R0,#250 |
0000bb30 20 20 3b 20 41 52 4d 20 32 35 30 0d 3f 3e 04 0d | ; ARM 250.?>..|
0000bb40 3f 48 53 3b 20 54 6f 20 61 20 63 6f 70 72 6f 63 |?HS; To a coproc|
0000bb50 65 73 73 6f 72 2d 3e 72 65 67 69 73 74 65 72 20 |essor->register |
0000bb60 74 72 61 6e 73 66 65 72 20 69 6e 73 74 72 75 63 |transfer instruc|
0000bb70 74 69 6f 6e 2e 20 54 68 69 73 20 77 69 6c 6c 20 |tion. This will |
0000bb80 72 65 61 64 20 74 68 65 20 70 72 6f 63 65 73 73 |read the process|
0000bb90 6f 72 0d 3f 52 2e 3b 20 69 64 20 28 69 66 20 61 |or.?R.; id (if a|
0000bba0 76 61 69 6c 61 62 6c 65 29 20 66 6f 72 20 41 52 |vailable) for AR|
0000bbb0 4d 33 2c 20 41 52 4d 36 30 30 2c 20 65 74 63 2e |M3, ARM600, etc.|
0000bbc0 0d 3f 5c 05 3b 0d 3f 66 2a 3b 20 52 31 20 3d 20 |.?\.;.?f*; R1 = |
0000bbd0 33 32 20 62 69 74 20 70 72 6f 63 65 73 73 6f 72 |32 bit processor|
0000bbe0 20 69 64 65 6e 74 69 74 79 20 66 69 65 6c 64 0d | identity field.|
0000bbf0 3f 70 37 3b 20 20 20 20 20 20 20 20 20 20 20 20 |?p7; |
0000bc00 62 69 74 20 33 31 2d 32 34 20 7c 20 44 65 73 69 |bit 31-24 | Desi|
0000bc10 67 6e 65 72 20 28 34 31 68 20 3d 20 41 63 6f 72 |gner (41h = Acor|
0000bc20 6e 20 27 41 27 29 0d 3f 7a 3a 3b 20 20 20 20 20 |n 'A').?z:; |
0000bc30 20 20 20 20 20 20 20 62 69 74 20 32 33 2d 31 36 | bit 23-16|
0000bc40 20 7c 20 4d 61 6e 75 66 61 63 74 75 72 65 72 20 | | Manufacturer |
0000bc50 28 35 36 68 20 3d 20 76 6c 73 69 20 27 56 27 29 |(56h = vlsi 'V')|
0000bc60 0d 3f 84 41 3b 20 20 20 20 20 20 20 20 20 20 20 |.?.A; |
0000bc70 20 62 69 74 20 31 35 2d 38 20 20 7c 20 50 61 72 | bit 15-8 | Par|
0000bc80 74 20 74 79 70 65 20 28 30 33 68 20 3d 20 61 72 |t type (03h = ar|
0000bc90 6d 33 2c 20 30 36 68 20 3d 20 61 72 6d 36 78 30 |m3, 06h = arm6x0|
0000bca0 29 0d 3f 8e 36 3b 20 20 20 20 20 20 20 20 20 20 |).?.6; |
0000bcb0 20 20 62 69 74 20 37 2d 30 20 20 20 7c 20 52 65 | bit 7-0 | Re|
0000bcc0 76 69 73 69 6f 6e 20 28 30 20 3d 20 72 65 76 69 |vision (0 = revi|
0000bcd0 73 69 6f 6e 20 30 29 0d 3f 98 04 0d 3f a2 19 3b |sion 0).?...?..;|
0000bce0 20 41 52 4d 36 78 30 20 70 72 6f 63 65 73 73 6f | ARM6x0 processo|
0000bcf0 72 73 20 3b 0d 3f ac 45 3b 20 20 20 20 20 20 20 |rs ;.?.E; |
0000bd00 20 20 20 20 20 62 69 74 20 31 35 2d 34 20 20 7c | bit 15-4 ||
0000bd10 20 50 61 72 74 20 74 79 70 65 20 28 30 36 30 68 | Part type (060h|
0000bd20 20 3d 20 61 72 6d 36 30 30 2c 20 30 36 31 68 20 | = arm600, 061h |
0000bd30 3d 20 61 72 6d 36 31 30 29 0d 3f b6 36 3b 20 20 |= arm610).?.6; |
0000bd40 20 20 20 20 20 20 20 20 20 20 62 69 74 20 33 2d | bit 3-|
0000bd50 30 20 20 20 7c 20 52 65 76 69 73 69 6f 6e 20 28 |0 | Revision (|
0000bd60 30 20 3d 20 72 65 76 69 73 69 6f 6e 20 30 29 0d |0 = revision 0).|
0000bd70 3f c0 04 0d 3f ca 04 0d 3f d4 54 20 20 20 20 20 |?...?...?.T |
0000bd80 20 20 20 45 51 55 44 20 20 20 20 26 45 45 31 30 | EQUD &EE10|
0000bd90 31 46 31 30 20 20 20 20 20 20 20 3b 20 4d 52 43 |1F10 ; MRC|
0000bda0 45 51 20 43 50 31 35 2c 30 2c 52 31 2c 43 30 2c |EQ CP15,0,R1,C0,|
0000bdb0 43 30 20 2d 20 72 65 71 75 65 73 74 20 70 72 6f |C0 - request pro|
0000bdc0 63 65 73 73 6f 72 20 74 79 70 65 0d 3f de 19 20 |cessor type.?.. |
0000bdd0 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 | MOV R|
0000bde0 30 2c 23 33 0d 3f e8 36 20 20 20 20 20 20 20 20 |0,#3.?.6 |
0000bdf0 53 54 52 20 20 20 20 20 52 30 2c 74 70 72 65 73 |STR R0,tpres|
0000be00 25 20 20 20 20 20 20 20 3b 20 53 74 6f 72 65 20 |% ; Store |
0000be10 74 79 70 65 20 66 6f 75 6e 64 0d 3f f2 1f 20 20 |type found.?.. |
0000be20 20 20 20 20 20 20 53 54 52 20 20 20 20 20 52 31 | STR R1|
0000be30 2c 70 72 6f 74 79 70 65 25 0d 3f fc 1a 20 20 20 |,protype%.?.. |
0000be40 20 20 20 20 20 4d 56 4e 20 20 20 20 20 52 30 2c | MVN R0,|
0000be50 20 23 30 0d 40 06 46 20 20 20 20 20 20 20 20 45 | #0.@.F E|
0000be60 51 55 44 20 20 20 20 26 45 45 33 30 30 31 31 30 |QUD &EE300110|
0000be70 20 20 20 20 20 20 20 3b 20 52 46 53 20 52 30 20 | ; RFS R0 |
0000be80 2d 20 52 65 61 64 20 46 50 20 73 74 61 74 75 73 |- Read FP status|
0000be90 20 72 65 67 69 73 74 65 72 0d 40 10 1a 20 20 20 | register.@.. |
0000bea0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c | MOV R0,|
0000beb0 20 52 30 0d 40 1a 20 20 20 20 20 20 20 20 20 53 | R0.@. S|
0000bec0 54 52 20 20 20 20 20 52 30 2c 20 66 70 75 74 79 |TR R0, fputy|
0000bed0 70 65 25 0d 40 24 21 20 20 20 20 20 20 20 20 54 |pe%.@$! T|
0000bee0 53 54 50 20 20 20 20 50 43 2c 23 26 46 30 30 30 |STP PC,#&F000|
0000bef0 30 30 30 30 0d 40 2e 39 20 20 20 20 20 20 20 20 |0000.@.9 |
0000bf00 4d 4f 56 20 20 20 20 20 52 30 2c 52 30 20 20 20 |MOV R0,R0 |
0000bf10 20 20 20 20 20 20 20 20 3b 20 52 65 74 75 72 6e | ; Return|
0000bf20 20 74 6f 20 75 73 65 72 20 6d 6f 64 65 0d 40 38 | to user mode.@8|
0000bf30 24 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 20 |$ LDMFD |
0000bf40 20 52 31 33 21 2c 7b 52 30 2d 52 31 32 2c 50 43 | R13!,{R0-R12,PC|
0000bf50 7d 0d 40 42 04 0d 40 4c 26 3b 20 52 65 74 75 72 |}.@B..@L&; Retur|
0000bf60 6e 2d 66 72 6f 6d 2d 65 78 63 65 70 74 69 6f 6e |n-from-exception|
0000bf70 20 27 68 61 6e 64 6c 65 72 73 27 0d 40 56 04 0d | 'handlers'.@V..|
0000bf80 40 60 1d 2e 72 65 74 63 64 31 20 41 44 44 53 20 |@`..retcd1 ADDS |
0000bf90 20 20 20 50 43 2c 52 31 34 2c 23 34 0d 40 6a 1a | PC,R14,#4.@j.|
0000bfa0 2e 72 65 74 63 64 32 20 4d 4f 56 53 20 20 20 20 |.retcd2 MOVS |
0000bfb0 50 43 2c 52 31 34 0d 40 74 1e 2e 72 65 74 63 64 |PC,R14.@t..retcd|
0000bfc0 33 20 53 54 52 20 20 20 20 20 52 31 34 2c 6e 6f |3 STR R14,no|
0000bfd0 66 70 75 25 0d 40 7e 1a 20 20 20 20 20 20 20 20 |fpu%.@~. |
0000bfe0 4d 4f 56 53 20 20 20 20 50 43 2c 52 31 34 0d 40 |MOVS PC,R14.@|
0000bff0 88 04 0d 40 92 1a 3b 20 54 65 73 74 20 66 6f 72 |...@..; Test for|
0000c000 20 46 50 55 20 70 72 65 73 65 6e 74 0d 40 9c 04 | FPU present.@..|
0000c010 0d 40 a6 0c 2e 74 65 73 74 66 70 75 0d 40 b0 3f |.@...testfpu.@.?|
0000c020 20 20 20 20 20 20 20 20 45 51 55 44 20 20 20 20 | EQUD |
0000c030 26 45 45 30 39 38 31 30 31 20 20 20 20 20 20 20 |&EE098101 |
0000c040 3b 20 4d 56 46 45 20 46 30 2c 46 31 20 2d 20 74 |; MVFE F0,F1 - t|
0000c050 65 73 74 20 66 6f 72 20 46 50 55 0d 40 ba 1a 20 |est for FPU.@.. |
0000c060 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 50 | MOV P|
0000c070 43 2c 52 31 34 0d 40 c4 04 0d 40 ce 3c 3b 20 52 |C,R14.@...@.<; R|
0000c080 65 61 64 2f 77 72 69 74 65 20 41 52 4d 33 20 73 |ead/write ARM3 s|
0000c090 74 61 74 75 73 20 72 65 67 69 73 74 65 72 73 20 |tatus registers |
0000c0a0 28 66 6f 72 20 63 61 63 68 65 20 6f 6e 20 6f 72 |(for cache on or|
0000c0b0 20 6f 66 66 29 0d 40 d8 4f 3b 20 59 65 73 2c 20 | off).@.O; Yes, |
0000c0c0 49 20 6b 6e 6f 77 20 74 68 65 72 65 20 69 73 20 |I know there is |
0000c0d0 61 6e 20 53 57 49 20 74 6f 20 64 6f 20 74 68 69 |an SWI to do thi|
0000c0e0 73 2c 20 62 75 74 20 69 74 20 6d 61 79 20 6e 6f |s, but it may no|
0000c0f0 74 20 62 65 20 74 68 65 20 73 61 6d 65 20 61 63 |t be the same ac|
0000c100 72 6f 73 73 0d 40 e2 22 3b 20 64 69 66 66 65 72 |ross.@."; differ|
0000c110 65 6e 74 20 41 52 4d 33 20 75 70 67 72 61 64 65 |ent ARM3 upgrade|
0000c120 73 2c 20 65 74 63 0d 40 ec 04 0d 40 f6 0c 2e 72 |s, etc.@...@...r|
0000c130 65 61 64 72 65 67 0d 41 00 26 20 20 20 20 20 20 |eadreg.A.& |
0000c140 20 20 53 54 4d 46 44 20 20 20 52 31 33 21 2c 20 | STMFD R13!, |
0000c150 7b 52 30 2d 52 31 2c 20 52 31 34 7d 0d 41 0a 20 |{R0-R1, R14}.A. |
0000c160 20 20 20 20 20 20 20 20 53 57 49 20 20 20 20 20 | SWI |
0000c170 22 4f 53 5f 45 6e 74 65 72 4f 53 22 0d 41 14 19 |"OS_EnterOS".A..|
0000c180 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | MOV |
0000c190 52 30 2c 50 43 0d 41 1e 23 20 20 20 20 20 20 20 |R0,PC.A.# |
0000c1a0 20 84 52 20 20 20 20 20 52 30 2c 52 30 2c 23 26 | .R R0,R0,#&|
0000c1b0 30 43 30 30 30 30 30 30 0d 41 28 19 20 20 20 20 |0C000000.A(. |
0000c1c0 20 20 20 20 54 45 51 50 20 20 20 20 52 30 2c 23 | TEQP R0,#|
0000c1d0 30 0d 41 32 39 20 20 20 20 20 20 20 20 4d 4f 56 |0.A29 MOV|
0000c1e0 20 20 20 20 20 52 30 2c 52 30 20 20 20 20 20 20 | R0,R0 |
0000c1f0 20 20 20 20 20 3b 20 4d 75 73 74 6e 27 74 20 75 | ; Mustn't u|
0000c200 73 65 20 4d 4f 56 4e 56 20 21 0d 41 3c 55 20 20 |se MOVNV !.A<U |
0000c210 20 20 20 20 20 20 45 51 55 44 20 20 20 20 26 45 | EQUD &E|
0000c220 45 31 32 31 46 31 30 20 20 20 20 20 20 20 3b 20 |E121F10 ; |
0000c230 4d 52 43 45 51 20 43 50 31 35 2c 30 2c 52 31 2c |MRCEQ CP15,0,R1,|
0000c240 43 32 2c 43 30 20 2d 20 72 65 71 75 65 73 74 20 |C2,C0 - request |
0000c250 73 74 61 74 75 73 20 72 65 67 69 73 74 65 72 0d |status register.|
0000c260 41 46 20 20 20 20 20 20 20 20 20 53 54 52 20 20 |AF STR |
0000c270 20 20 20 52 31 2c 20 72 65 67 77 6f 72 64 25 0d | R1, regword%.|
0000c280 41 50 21 20 20 20 20 20 20 20 20 54 53 54 50 20 |AP! TSTP |
0000c290 20 20 20 50 43 2c 23 26 46 30 30 30 30 30 30 30 | PC,#&F0000000|
0000c2a0 0d 41 5a 39 20 20 20 20 20 20 20 20 4d 4f 56 20 |.AZ9 MOV |
0000c2b0 20 20 20 20 52 30 2c 52 30 20 20 20 20 20 20 20 | R0,R0 |
0000c2c0 20 20 20 20 3b 20 52 65 74 75 72 6e 20 74 6f 20 | ; Return to |
0000c2d0 75 73 65 72 20 6d 6f 64 65 0d 41 64 23 20 20 20 |user mode.Ad# |
0000c2e0 20 20 20 20 20 4c 44 4d 46 44 20 20 20 52 31 33 | LDMFD R13|
0000c2f0 21 2c 7b 52 30 2d 52 31 2c 50 43 7d 0d 41 6e 04 |!,{R0-R1,PC}.An.|
0000c300 0d 41 78 0d 2e 77 72 69 74 65 72 65 67 0d 41 82 |.Ax..writereg.A.|
0000c310 26 20 20 20 20 20 20 20 20 53 54 4d 46 44 20 20 |& STMFD |
0000c320 20 52 31 33 21 2c 20 7b 52 30 2d 52 31 2c 20 52 | R13!, {R0-R1, R|
0000c330 31 34 7d 0d 41 8c 20 20 20 20 20 20 20 20 20 53 |14}.A. S|
0000c340 57 49 20 20 20 20 20 22 4f 53 5f 45 6e 74 65 72 |WI "OS_Enter|
0000c350 4f 53 22 0d 41 96 19 20 20 20 20 20 20 20 20 4d |OS".A.. M|
0000c360 4f 56 20 20 20 20 20 52 30 2c 50 43 0d 41 a0 23 |OV R0,PC.A.#|
0000c370 20 20 20 20 20 20 20 20 84 52 20 20 20 20 20 52 | .R R|
0000c380 30 2c 52 30 2c 23 26 30 43 30 30 30 30 30 30 0d |0,R0,#&0C000000.|
0000c390 41 aa 19 20 20 20 20 20 20 20 20 54 45 51 50 20 |A.. TEQP |
0000c3a0 20 20 20 52 30 2c 23 30 0d 41 b4 39 20 20 20 20 | R0,#0.A.9 |
0000c3b0 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 52 | MOV R0,R|
0000c3c0 30 20 20 20 20 20 20 20 20 20 20 20 3b 20 4d 75 |0 ; Mu|
0000c3d0 73 74 6e 27 74 20 75 73 65 20 4d 4f 56 4e 56 20 |stn't use MOVNV |
0000c3e0 21 0d 41 be 20 20 20 20 20 20 20 20 20 4c 44 52 |!.A. LDR|
0000c3f0 20 20 20 20 20 52 31 2c 20 72 65 67 77 6f 72 64 | R1, regword|
0000c400 25 0d 41 c8 53 20 20 20 20 20 20 20 20 45 51 55 |%.A.S EQU|
0000c410 44 20 20 20 20 26 45 45 30 32 31 46 31 30 20 20 |D &EE021F10 |
0000c420 20 20 20 20 20 3b 20 4d 43 52 45 51 20 43 50 31 | ; MCREQ CP1|
0000c430 35 2c 30 2c 52 31 2c 43 32 2c 43 30 20 2d 20 77 |5,0,R1,C2,C0 - w|
0000c440 72 69 74 65 20 73 74 61 74 75 73 20 72 65 67 69 |rite status regi|
0000c450 73 74 65 72 0d 41 d2 20 20 20 20 20 20 20 20 20 |ster.A. |
0000c460 53 54 52 20 20 20 20 20 52 31 2c 20 72 65 67 77 |STR R1, regw|
0000c470 6f 72 64 25 0d 41 dc 21 20 20 20 20 20 20 20 20 |ord%.A.! |
0000c480 54 53 54 50 20 20 20 20 50 43 2c 23 26 46 30 30 |TSTP PC,#&F00|
0000c490 30 30 30 30 30 0d 41 e6 39 20 20 20 20 20 20 20 |00000.A.9 |
0000c4a0 20 4d 4f 56 20 20 20 20 20 52 30 2c 52 30 20 20 | MOV R0,R0 |
0000c4b0 20 20 20 20 20 20 20 20 20 3b 20 52 65 74 75 72 | ; Retur|
0000c4c0 6e 20 74 6f 20 75 73 65 72 20 6d 6f 64 65 0d 41 |n to user mode.A|
0000c4d0 f0 23 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 |.# LDMFD |
0000c4e0 20 20 52 31 33 21 2c 7b 52 30 2d 52 31 2c 50 43 | R13!,{R0-R1,PC|
0000c4f0 7d 0d 41 fa 04 0d 42 04 13 3b 20 52 65 73 75 6c |}.A...B..; Resul|
0000c500 74 73 20 62 6c 6f 63 6b 0d 42 0e 04 0d 42 18 1d |ts block.B...B..|
0000c510 2e 74 70 72 65 73 25 20 20 20 20 20 20 20 20 20 |.tpres% |
0000c520 45 51 55 44 20 20 20 20 30 0d 42 22 1d 2e 70 72 |EQUD 0.B"..pr|
0000c530 6f 74 79 70 65 25 20 20 20 20 20 20 20 45 51 55 |otype% EQU|
0000c540 44 20 20 20 20 30 0d 42 2c 1d 2e 6e 6f 66 70 75 |D 0.B,..nofpu|
0000c550 25 20 20 20 20 20 20 20 20 20 45 51 55 44 20 20 |% EQUD |
0000c560 20 20 30 0d 42 36 1d 2e 66 70 75 74 79 70 65 25 | 0.B6..fputype%|
0000c570 20 20 20 20 20 20 20 45 51 55 44 20 20 20 20 30 | EQUD 0|
0000c580 0d 42 40 1d 2e 6d 65 6d 63 74 79 70 65 25 20 20 |.B@..memctype% |
0000c590 20 20 20 20 45 51 55 44 20 20 20 20 30 0d 42 4a | EQUD 0.BJ|
0000c5a0 1d 2e 72 61 6d 73 70 65 65 64 25 20 20 20 20 20 |..ramspeed% |
0000c5b0 20 45 51 55 44 20 20 20 20 30 0d 42 54 1d 2e 72 | EQUD 0.BT..r|
0000c5c0 65 67 77 6f 72 64 25 20 20 20 20 20 20 20 45 51 |egword% EQ|
0000c5d0 55 44 20 20 20 20 30 0d 42 5e 04 0d 42 68 05 5d |UD 0.B^..Bh.]|
0000c5e0 0d 42 72 0b ed 20 70 61 73 73 25 0d 42 7c 05 e1 |.Br.. pass%.B|..|
0000c5f0 0d 42 86 05 3a 0d 42 90 09 f4 20 2a 2a 2a 0d 42 |.B..:.B... ***.B|
0000c600 9a 40 f4 20 2a 2a 2a 20 4e 69 63 6b 27 73 20 43 |.@. *** Nick's C|
0000c610 6f 6d 6d 6f 6e 20 42 41 53 49 43 20 6c 69 62 72 |ommon BASIC libr|
0000c620 61 72 79 20 28 6f 72 20 61 74 20 6c 65 61 73 74 |ary (or at least|
0000c630 20 62 69 74 73 20 6f 66 20 2e 2e 2e 20 29 0d 42 | bits of ... ).B|
0000c640 a4 09 f4 20 2a 2a 2a 0d 42 ae 05 3a 0d 42 b8 23 |... ***.B..:.B.#|
0000c650 dd 20 f2 55 5f 53 74 72 69 6e 67 28 77 69 6e 64 |. .U_String(wind|
0000c660 6f 77 25 2c 20 69 63 6f 6e 25 2c 20 73 24 29 0d |ow%, icon%, s$).|
0000c670 42 c2 13 70 74 72 31 25 21 30 3d 77 69 6e 64 6f |B..ptr1%!0=windo|
0000c680 77 25 0d 42 cc 11 70 74 72 31 25 21 34 3d 69 63 |w%.B..ptr1%!4=ic|
0000c690 6f 6e 25 0d 42 d6 21 c8 99 20 22 57 69 6d 70 5f |on%.B.!.. "Wimp_|
0000c6a0 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 70 |GetIconState",,p|
0000c6b0 74 72 31 25 0d 42 e0 12 24 28 70 74 72 31 25 21 |tr1%.B..$(ptr1%!|
0000c6c0 32 38 29 3d 73 24 0d 42 ea 13 70 74 72 32 25 21 |28)=s$.B..ptr2%!|
0000c6d0 30 3d 77 69 6e 64 6f 77 25 0d 42 f4 11 70 74 72 |0=window%.B..ptr|
0000c6e0 32 25 21 34 3d 69 63 6f 6e 25 0d 42 fe 0d 70 74 |2%!4=icon%.B..pt|
0000c6f0 72 32 25 21 38 3d 30 0d 43 08 0e 70 74 72 32 25 |r2%!8=0.C..ptr2%|
0000c700 21 31 32 3d 30 0d 43 12 21 c8 99 20 22 57 69 6d |!12=0.C.!.. "Wim|
0000c710 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_SetIconState",|
0000c720 2c 70 74 72 32 25 0d 43 1c 05 e1 0d 43 26 05 3a |,ptr2%.C....C&.:|
0000c730 0d 43 30 31 dd 20 f2 55 5f 49 63 6f 6e 28 77 69 |.C01. .U_Icon(wi|
0000c740 6e 64 6f 77 25 2c 20 69 63 6f 6e 25 2c 20 62 69 |ndow%, icon%, bi|
0000c750 74 25 2c 20 65 6f 72 25 2c 20 63 6c 65 61 72 25 |t%, eor%, clear%|
0000c760 29 0d 43 3a 13 70 74 72 32 25 21 30 3d 77 69 6e |).C:.ptr2%!0=win|
0000c770 64 6f 77 25 0d 43 44 11 70 74 72 32 25 21 34 3d |dow%.CD.ptr2%!4=|
0000c780 69 63 6f 6e 25 0d 43 4e 18 70 74 72 32 25 21 38 |icon%.CN.ptr2%!8|
0000c790 3d 28 65 6f 72 25 3c 3c 62 69 74 25 29 0d 43 58 |=(eor%<<bit%).CX|
0000c7a0 1b 70 74 72 32 25 21 31 32 3d 28 63 6c 65 61 72 |.ptr2%!12=(clear|
0000c7b0 25 3c 3c 62 69 74 25 29 0d 43 62 21 c8 99 20 22 |%<<bit%).Cb!.. "|
0000c7c0 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat|
0000c7d0 65 22 2c 2c 70 74 72 32 25 0d 43 6c 05 e1 0d 43 |e",,ptr2%.Cl...C|
0000c7e0 76 05 3a 0d 43 80 23 dd 20 f2 55 5f 53 70 72 69 |v.:.C.#. .U_Spri|
0000c7f0 74 65 28 77 69 6e 64 6f 77 25 2c 20 69 63 6f 6e |te(window%, icon|
0000c800 25 2c 20 73 24 29 0d 43 8a 1c f4 20 49 6e 64 69 |%, s$).C... Indi|
0000c810 72 65 63 74 65 64 20 73 70 72 69 74 65 2b 74 65 |rected sprite+te|
0000c820 78 74 0d 43 94 13 70 74 72 31 25 21 30 3d 77 69 |xt.C..ptr1%!0=wi|
0000c830 6e 64 6f 77 25 0d 43 9e 11 70 74 72 31 25 21 34 |ndow%.C..ptr1%!4|
0000c840 3d 69 63 6f 6e 25 0d 43 a8 21 c8 99 20 22 57 69 |=icon%.C.!.. "Wi|
0000c850 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
0000c860 2c 2c 70 74 72 31 25 0d 43 b2 16 24 28 70 74 72 |,,ptr1%.C..$(ptr|
0000c870 31 25 21 33 32 29 3d 22 53 22 2b 73 24 0d 43 bc |1%!32)="S"+s$.C.|
0000c880 13 70 74 72 32 25 21 30 3d 77 69 6e 64 6f 77 25 |.ptr2%!0=window%|
0000c890 0d 43 c6 11 70 74 72 32 25 21 34 3d 69 63 6f 6e |.C..ptr2%!4=icon|
0000c8a0 25 0d 43 d0 0d 70 74 72 32 25 21 38 3d 30 0d 43 |%.C..ptr2%!8=0.C|
0000c8b0 da 0e 70 74 72 32 25 21 31 32 3d 30 0d 43 e4 21 |..ptr2%!12=0.C.!|
0000c8c0 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |.. "Wimp_SetIcon|
0000c8d0 53 74 61 74 65 22 2c 2c 70 74 72 32 25 0d 43 ee |State",,ptr2%.C.|
0000c8e0 05 e1 0d 43 f8 05 3a 0d 44 02 24 dd 20 f2 55 49 |...C..:.D.$. .UI|
0000c8f0 5f 53 70 72 69 74 65 28 77 69 6e 64 6f 77 25 2c |_Sprite(window%,|
0000c900 20 69 63 6f 6e 25 2c 20 73 24 29 0d 44 0c 17 f4 | icon%, s$).D...|
0000c910 20 49 6e 64 69 72 65 63 74 65 64 20 73 70 72 69 | Indirected spri|
0000c920 74 65 0d 44 16 13 70 74 72 31 25 21 30 3d 77 69 |te.D..ptr1%!0=wi|
0000c930 6e 64 6f 77 25 0d 44 20 11 70 74 72 31 25 21 34 |ndow%.D .ptr1%!4|
0000c940 3d 69 63 6f 6e 25 0d 44 2a 21 c8 99 20 22 57 69 |=icon%.D*!.. "Wi|
0000c950 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
0000c960 2c 2c 70 74 72 31 25 0d 44 34 12 24 28 70 74 72 |,,ptr1%.D4.$(ptr|
0000c970 31 25 21 32 38 29 3d 73 24 0d 44 3e 13 70 74 72 |1%!28)=s$.D>.ptr|
0000c980 32 25 21 30 3d 77 69 6e 64 6f 77 25 0d 44 48 11 |2%!0=window%.DH.|
0000c990 70 74 72 32 25 21 34 3d 69 63 6f 6e 25 0d 44 52 |ptr2%!4=icon%.DR|
0000c9a0 0d 70 74 72 32 25 21 38 3d 30 0d 44 5c 0e 70 74 |.ptr2%!8=0.D\.pt|
0000c9b0 72 32 25 21 31 32 3d 30 0d 44 66 21 c8 99 20 22 |r2%!12=0.Df!.. "|
0000c9c0 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat|
0000c9d0 65 22 2c 2c 70 74 72 32 25 0d 44 70 05 e1 0d 44 |e",,ptr2%.Dp...D|
0000c9e0 7a 05 3a 0d 44 84 13 dd 20 a4 67 65 74 6e 61 6d |z.:.D... .getnam|
0000c9f0 65 28 70 31 25 29 0d 44 8e 08 ea 20 70 24 0d 44 |e(p1%).D... p$.D|
0000ca00 98 09 70 24 3d 22 22 0d 44 a2 1d c8 95 20 28 28 |..p$="".D.... ((|
0000ca10 3f 70 31 25 3e 33 31 29 20 84 20 28 3f 70 31 25 |?p1%>31) . (?p1%|
0000ca20 3d 39 29 29 0d 44 ac 16 70 24 2b 3d bd 28 3f 70 |=9)).D..p$+=.(?p|
0000ca30 31 25 29 3a 70 31 25 2b 3d 31 0d 44 b6 05 ce 0d |1%):p1%+=1.D....|
0000ca40 44 c0 07 3d 70 24 0d 44 ca 05 3a 0d 44 d4 22 dd |D..=p$.D..:.D.".|
0000ca50 20 a4 52 5f 49 63 6f 6e 53 74 61 74 65 28 77 69 | .R_IconState(wi|
0000ca60 6e 64 6f 77 25 2c 20 69 63 6f 6e 25 29 0d 44 de |ndow%, icon%).D.|
0000ca70 0c ea 20 73 74 61 74 65 25 0d 44 e8 13 70 74 72 |.. state%.D..ptr|
0000ca80 31 25 21 30 3d 77 69 6e 64 6f 77 25 0d 44 f2 11 |1%!0=window%.D..|
0000ca90 70 74 72 31 25 21 34 3d 69 63 6f 6e 25 0d 44 fc |ptr1%!4=icon%.D.|
0000caa0 21 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |!.. "Wimp_GetIco|
0000cab0 6e 53 74 61 74 65 22 2c 2c 70 74 72 31 25 0d 45 |nState",,ptr1%.E|
0000cac0 06 35 e7 20 94 28 28 70 74 72 31 25 21 32 34 29 |.5. .((ptr1%!24)|
0000cad0 3e 3e 32 31 29 20 83 20 32 20 3d 20 31 20 8c 20 |>>21) . 2 = 1 . |
0000cae0 73 74 61 74 65 25 3d b9 20 8b 20 73 74 61 74 65 |state%=. . state|
0000caf0 25 3d a3 0d 45 10 0b 3d 73 74 61 74 65 25 0d 45 |%=..E..=state%.E|
0000cb00 1a 05 3a 0d 45 24 0f dd 20 a4 6c 65 61 66 28 66 |..:.E$.. .leaf(f|
0000cb10 24 29 0d 45 2e 0f c8 95 20 a7 66 24 2c 22 2e 22 |$).E.... .f$,"."|
0000cb20 29 0d 45 38 18 20 20 66 24 3d c1 66 24 2c a7 66 |).E8. f$=.f$,.f|
0000cb30 24 2c 22 2e 22 29 2b 31 29 0d 45 42 05 ce 0d 45 |$,".")+1).EB...E|
0000cb40 4c 07 3d 66 24 0d 45 56 05 3a 0d 45 60 15 dd 20 |L.=f$.EV.:.E`.. |
0000cb50 a4 68 65 78 5f 74 6f 5f 64 65 63 28 73 24 29 0d |.hex_to_dec(s$).|
0000cb60 45 6a 08 ea 20 73 25 0d 45 74 26 c8 99 20 22 58 |Ej.. s%.Et&.. "X|
0000cb70 4f 53 5f 52 65 61 64 55 6e 73 69 67 6e 65 64 22 |OS_ReadUnsigned"|
0000cb80 2c 31 36 2c 73 24 20 b8 20 2c 2c 73 25 0d 45 7e |,16,s$ . ,,s%.E~|
0000cb90 07 3d 73 25 0d 45 88 05 3a 0d 45 92 15 dd 20 a4 |.=s%.E..:.E... .|
0000cba0 64 65 63 5f 74 6f 5f 68 65 78 28 73 25 29 0d 45 |dec_to_hex(s%).E|
0000cbb0 9c 23 c8 99 20 22 4f 53 5f 43 6f 6e 76 65 72 74 |.#.. "OS_Convert|
0000cbc0 48 65 78 38 22 2c 73 25 2c 70 74 72 32 25 2c 31 |Hex8",s%,ptr2%,1|
0000cbd0 30 0d 45 a6 14 3d a4 67 65 74 6e 61 6d 65 28 70 |0.E..=.getname(p|
0000cbe0 74 72 32 25 29 0d 45 b0 05 3a 0d 45 ba 12 dd 20 |tr2%).E..:.E... |
0000cbf0 a4 73 75 62 6c 65 61 66 28 66 24 29 0d 45 c4 3d |.subleaf(f$).E.=|
0000cc00 f4 20 53 74 72 69 70 73 20 6f 66 66 20 66 69 6c |. Strips off fil|
0000cc10 65 6e 61 6d 65 20 73 74 72 69 6e 67 2e 20 69 65 |ename string. ie|
0000cc20 2c 20 72 65 74 75 72 6e 73 20 74 68 65 20 70 61 |, returns the pa|
0000cc30 74 68 20 73 74 72 69 6e 67 0d 45 ce 08 ea 20 70 |th string.E... p|
0000cc40 24 0d 45 d8 0f c8 95 20 a7 66 24 2c 22 2e 22 29 |$.E.... .f$,".")|
0000cc50 0d 45 e2 12 20 20 70 24 3d 70 24 2b c0 66 24 2c |.E.. p$=p$+.f$,|
0000cc60 31 29 0d 45 ec 15 20 20 66 24 3d c2 66 24 2c a9 |1).E.. f$=.f$,.|
0000cc70 28 66 24 29 2d 31 29 0d 45 f6 05 ce 0d 46 00 11 |(f$)-1).E....F..|
0000cc80 3d c0 70 24 2c a9 28 70 24 29 2d 31 29 0d 46 0a |=.p$,.(p$)-1).F.|
0000cc90 05 3a 0d 46 14 1f dd 20 a4 52 5f 53 74 72 69 6e |.:.F... .R_Strin|
0000cca0 67 28 77 69 6e 64 6f 77 25 2c 20 69 63 6f 6e 25 |g(window%, icon%|
0000ccb0 29 0d 46 1e 08 ea 20 73 24 0d 46 28 13 70 74 72 |).F... s$.F(.ptr|
0000ccc0 31 25 21 30 3d 77 69 6e 64 6f 77 25 0d 46 32 11 |1%!0=window%.F2.|
0000ccd0 70 74 72 31 25 21 34 3d 69 63 6f 6e 25 0d 46 3c |ptr1%!4=icon%.F<|
0000cce0 21 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |!.. "Wimp_GetIco|
0000ccf0 6e 53 74 61 74 65 22 2c 2c 70 74 72 31 25 0d 46 |nState",,ptr1%.F|
0000cd00 46 19 73 24 3d a4 67 65 74 6e 61 6d 65 28 70 74 |F.s$=.getname(pt|
0000cd10 72 31 25 21 32 38 29 0d 46 50 07 3d 73 24 0d 46 |r1%!28).FP.=s$.F|
0000cd20 5a 05 3a 0d 46 64 27 f4 20 4f 75 74 70 75 74 73 |Z.:.Fd'. Outputs|
0000cd30 20 70 61 64 64 69 6e 67 20 28 61 6c 69 67 6e 65 | padding (aligne|
0000cd40 64 29 20 73 74 72 69 6e 67 73 0d 46 6e 1a dd 20 |d) strings.Fn.. |
0000cd50 a4 73 74 72 70 61 64 28 41 2c 20 70 61 64 64 69 |.strpad(A, paddi|
0000cd60 6e 67 25 29 0d 46 78 0e ea 20 72 65 73 24 2c 20 |ng%).Fx.. res$, |
0000cd70 41 24 0d 46 82 12 e7 20 70 61 64 64 69 6e 67 25 |A$.F... padding%|
0000cd80 3d 30 20 8c 0d 46 8c 12 20 20 72 65 73 24 3d c3 |=0 ..F.. res$=.|
0000cd90 28 a8 28 41 29 29 0d 46 96 05 cc 0d 46 a0 0d 20 |(.(A)).F....F.. |
0000cda0 20 41 24 3d c3 28 41 29 0d 46 aa 14 20 20 e7 20 | A$=.(A).F.. . |
0000cdb0 a7 41 24 2c 22 2e 22 29 3e 30 20 8c 0d 46 b4 33 |.A$,".")>0 ..F.3|
0000cdc0 20 20 20 20 72 65 73 24 3d c0 41 24 2b c4 70 61 | res$=.A$+.pa|
0000cdd0 64 64 69 6e 67 25 2c 22 30 22 29 2c 20 a7 41 24 |dding%,"0"), .A$|
0000cde0 2c 22 2e 22 29 2b 70 61 64 64 69 6e 67 25 29 0d |,".")+padding%).|
0000cdf0 46 be 07 20 20 cc 0d 46 c8 22 20 20 20 20 72 65 |F.. ..F." re|
0000ce00 73 24 3d 41 24 2b 22 2e 22 2b c4 70 61 64 64 69 |s$=A$+"."+.paddi|
0000ce10 6e 67 25 2c 22 30 22 29 0d 46 d2 07 20 20 cd 0d |ng%,"0").F.. ..|
0000ce20 46 dc 05 cd 0d 46 e6 09 3d 72 65 73 24 0d ff |F....F..=res$..|
0000ce2f 
.