Home » Archimedes archive » Acorn User » AU 1995-12 B.adf » Regulars » RuntheRISC/!IIC_Mon/IIC_Mon
RuntheRISC/!IIC_Mon/IIC_Mon
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-12 B.adf » Regulars |
| Filename: | RuntheRISC/!IIC_Mon/IIC_Mon |
| Read OK: | ✔ |
| File size: | 3DAB bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!IIC_Mon.IIC_Mon 20ON ERROR PROCerrorbox 30 40DIM taskid%4:$taskid%="TASK" 50DIM PBK% 5, PBS% 4 60SPr%=36000 70DIM PORT%(7), Reg$(5),NP%(7),SP% SPr%, Parts$(2), G4% 8, G5% 1024 80DIM Wmenu% 256,Mmenu% 256,mi0% 6,mi1% 6,mi2% 6,mi3% 6 90SYS "Wimp_Initialise",200,!taskid%,"IIC_Monitor" TO version%,taskhand% 100DIM q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 228,SW% 256,cb% 18 110DIM IsName% 256, TextWarn% 100, ww% 256,Dmenu% 255 120SYS "Wimp_SpriteOp",11,,"<IIC_Mon$Dir>.Modes" 130SYS "Wimp_OpenTemplate",,"<IIC_Mon$Dir>.Templates" 140ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox 150SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0 160SYS "Wimp_CreateWindow",,q% TO info% 170SYS "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Pallette",0 180SYS "Wimp_CreateWindow",,Wn%+4 TO monW% 190Wn%!0=monW%:Wn%!28=-1 200 210SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0 220q%!108=TextWarn%:q%!112=-1:q%!116=300 230XQ%=q%!8-q%!0:YQ%=q%!12-q%!4 240SYS "Wimp_CreateWindow",,q% TO warningW% 250SYS "Wimp_CloseTemplate" 260 270ON ERROR PROCerrorbox 280 290ref%=0 300cpL%=0:cpR%=0 310smpicon%=FNicon 320wopen%=FALSE:warnOn%=FALSE 330InWin%=FALSE 340LX%=-1:LY%=-1 350cr%=3:cb%=8 360DeviceD%=TRUE 370DeviceA%=TRUE 380REM Adress of the chips 390NP%(6)=&70 : NP%(7)=&90 400NP%(0)=&FF 410DigMon%=&FF 420MeterMon%=1:Mname%=1 430LED=FALSE : DragOn%=FALSE : ClickOn%=FALSE 440Amode%=0 450$mi0%="iic_0":$mi1%="iic_1":$mi2%="iic_2":$mi3%="iic_3" 460PROCsetupmenu 470PROCsetupstrings 480PROC_MBS 490 500REPEAT 510 SYS "Wimp_Poll",0,q% TO A% 520 CASE A% OF 530 WHEN 0:PROC_Null 540 WHEN 1:PROC_doWindow 550 WHEN 2:PROC_SpriteName : SYS "Wimp_OpenWindow",,q% :wopen%=TRUE 560 WHEN 3:PROC_close 570 WHEN 4:InWin%=FALSE:LX%=-1:LY%=-1 580 WHEN 5:InWin%=TRUE 590 WHEN 6:PROC_do_click(q%) 600 WHEN 7: 610 WHEN 8:PROC_KeyPress 620 WHEN 9:PROC_SORT_Menu 630 WHEN 17,18:PROCreceive(q%) 640 ENDCASE 650 UNTIL FALSE 660 670END 680 690DEF PROC_Null 700LOCAL A%,B%,C%,X% 710REM Look at inputs and update display if nessasary 720IF wopen% THEN 730PROC_GetPort 740 PROC_Trans(monW%) 750FOR A%=0 TO 7 760IF NP%(A%)<>PORT%(A%) THEN PROC_UpP(A%,NP%(A%)) :PORT%(A%)=NP%(A%) 770NEXT 780IF DragOn% THEN 790MOUSE C%,A%,B% 800NP%(1)=C%-(xo%+428+80+Xthumb%) 810IF NP%(1)<0 THEN NP%(1)=0 820IF NP%(1)>255 THEN NP%(1)=255 830IF B%<>4 THEN DragOn%=FALSE 840ENDIF 850IF ClickOn% THEN 860MOUSE X%,A%,B% 870 IF B%<>4 THEN ClickOn%=FALSE 880 IF TIME>CT% THEN 890 A%=FN_Wp 900 CASE A% OF 910 WHEN 1: NP%(1)-=1: CT%=TIME+8:IF NP%(1)<0 THEN NP%(1)=0 920 WHEN 2: NP%(1)+=1: CT%=TIME+8:IF NP%(1)>255 THEN NP%(1)=255 930 ENDCASE 940 ENDIF 950 ENDIF 960ENDPROC 970ENDIF 980ENDPROC 990 1000DEF FN_spath(n$) 1010WHILE INSTR(n$,".") 1020n$=RIGHT$(n$,LEN(n$)-1) 1030ENDWHILE 1040IF LEN(n$)>10 THEN n$=RIGHT$(n$,10) 1050=n$ 1060 1070DEF PROC_GetName 1080LOCAL T%,A%,F$ 1090F$="":fn$="" 1100q%!0=saveW%:q%!4=1 1110SYS "Wimp_GetIconState",,q% 1120T%=q%!28 1130T%-=1 1140REPEAT 1150T%+=1 1160F$=F$+CHR$(?T%) 1170UNTIL ?T%=0 1180fn$=MID$(F$,1,LEN(F$)-1) 1190ENDPROC 1200 1210DEF PROC_SORT_Menu 1220IF IconMenu% THEN 1230CASE !q% OF 1240WHEN 1: menu%!52=1:menu%!76=2: LED=FALSE :SYS"Wimp_ForceRedraw",monW%,0,-540,900,0 1250WHEN 2: menu%!52=0:menu%!76=3:LED=TRUE :SYS"Wimp_ForceRedraw",monW%,0,-540,900,0 1260WHEN 3: menu%!100=1:menu%!124=2:NP%(6)=(PORT%(6) AND &F) OR &70:PORT%(6)=NP%(6):PROC_IN 1270 SYS"Wimp_ForceRedraw",monW%,0,-500,900,-420 1280WHEN 4: menu%!100=0:menu%!124=3:NP%(6)=(PORT%(6) AND &F) OR &40:PORT%(6)=NP%(6):PROC_IN 1290 SYS"Wimp_ForceRedraw",monW%,0,-500,900,-420 1300WHEN 5: PROCdie 1310ENDCASE 1320ELSE 1330CASE q%!0 OF 1340WHEN 1: PROC_Mtick(q%!4,6,Dmenu%) 1350 MeterMon%=q%!4+1 1360 Mname%=MeterMon% 1370 CASE MeterMon% OF 1380 WHEN 6 :Mname%=4:PORT%(0)=PORT%(0) EOR 255 1390 WHEN 5 :Mname%=0 1400 WHEN 4 :Mname%=1 1410 WHEN 3 :Mname%=2 1420 WHEN 2 :Mname%=3 1430 ENDCASE 1440 PROC_NameMeter 1450WHEN 0: PROC_Mtick(q%!4,4,Mmenu%) 1460 Amode%=q%!4 1470ENDCASE 1480SYS"Wimp_ForceRedraw",monW%,0,-540,900,0 1490 1500ENDIF 1510ENDPROC 1520 1530DEF PROC_Mtick(n%,ni%,m%) 1540LOCAL A%,B% 1550FOR A%=1 TO ni% 1560B%=A%*24+4 1570m%!B%=m%!B% AND NOT(1) 1580NEXT 1590B%=(n%+1)*24+4 1600m%!B%=m%!B% OR 1 1610ENDPROC 1620 1630DEF PROC_close 1640IF q%!0=monW% THEN SYS"Wimp_GetWindowInfo",,Wn%:wopen%=FALSE 1650IF q%!0=warningW% THEN warnOn%=FALSE 1660SYS "Wimp_CloseWindow",,q% 1670ENDPROC 1680 1690DEF PROC_do_click(q%) 1700i%=q%!16 1710CASE q%!12 OF 1720WHEN warningW%: q%!0=warningW% :PROC_close 1730 1740WHEN -2: REM Look first at Icon Bar Click 1750 IF q%!16=smpicon% THEN 1760 IF q%!8=2 THEN IconMenu%=TRUE: SYS"Wimp_CreateMenu",,menu%,q%!0-94,430 1770 IF q%!8=4 THEN PROC_Open 1780 ENDIF 1790 1800WHEN monW%: 1810 IF q%!8=4 THEN PROC_MonClick 1820 IF q%!8=2 THEN IconMenu%=FALSE: SYS"Wimp_CreateMenu",,Wmenu%,q%!0-84,q%!4 1830ENDCASE 1840ENDPROC 1850 1860 1870DEF PROC_MonClick 1880LOCAL D%,V%,B%,X%,Y% 1890REM Do the action for a window click 1900MOUSE X%,Y%,B% 1910cb%=FN_Wb 1920cr%=FN_Wr 1930IF cb%<8 AND cr%<2 THEN 1940NP%(cr%)=NP%(cr%) EOR 1<<cb% 1950IF cr%=0 THEN DigMon%=DigMon% EOR 1<<cb% 1960ENDIF 1970IF cr%=7 AND cb%>0 AND cb%<4 THEN NP%(cr%)=NP%(cr%) EOR 1<<cb% 1980IF cr%=6 AND cb%>0 AND cb%<4 THEN NP%(cr%)=NP%(cr%) EOR 1<<cb% 1990IF cr%=8 THEN 2000 cb%=FN_Wp 2010 CASE cb% OF 2020 WHEN 1: NP%(1)-=1: ClickOn%=TRUE: CT%=TIME+30:IF NP%(1)<0 THEN NP%(1)=0 2030 WHEN 2: NP%(1)+=1: ClickOn%=TRUE: CT%=TIME+30:IF NP%(1)>255 THEN NP%(1)=255 2040 WHEN 3: NP%(1)-=16: IF NP%(1)<0 THEN NP%(1)=0 2050 WHEN 4: NP%(1)+=16: IF NP%(1)>255 THEN NP%(1)=255 2060 WHEN 5: DragOn%=TRUE 2070 ENDCASE 2080 ENDIF 2090ENDPROC 2100 2110DEF PROC_Open 2120PROC_SpriteName 2130REM OPEN UP WINDOW HERE 2140IF wopen% THEN 2150q%!0=monW% 2160SYS"Wimp_GetWindowState",,q% 2170 IF q%!28<>-1 THEN q%!28=-1: SYS "Wimp_OpenWindow",,q% 2180ELSE 2190SYS "Wimp_OpenWindow",,Wn% 2200wopen%=TRUE 2210ENDIF 2220ENDPROC 2230 2240DEF PROC_doWindow 2250 LOCAL A%,I%,L% 2260 2270 PROC_Trans(monW%) 2280 SYS "Wimp_RedrawWindow",,q% TO flag% 2290 WHILE flag% 2300 2310 PROC_Dmpw 2320 SYS "Wimp_GetRectangle",,q% TO flag% 2330 ENDWHILE 2340 2350 ENDPROC 2360 2370DEF FNpointSq 2380LOCAL X%,Y%,B%,R% 2390PROC_Trans(monW%) 2400MOUSE X%,Y%,B% 2410R%=0 2420IF (X%<(xo%+30) AND Y%<(yo%+30) ) THEN R%=1 2430IF (X%>(xo%+246*xs%) AND Y%<(yo%+30) ) THEN R%=2 2440=R% 2450 2460DEF PROC_Dmpw 2470LOCAL A%,B%,V% 2480PROC_Trans(monW%) 2490PROC_GetPort 2500FOR B%=0 TO 7 2510FOR A%=0 TO 7 2520V%=PORT%(B%) AND 1<<(7-A%) 2530PROC_WS(A%,B%,V%) 2540NEXT 2550PROC_Hex(PORT%(B%),B%) 2560NEXT 2570VDU5 2580FOR A%=0 TO 7 2590MOVE xo%+52+A%*40,yo%+32 2600PRINT;7-A% 2610NEXT 2620REM Register names 2630FOR A%=0 TO 5 2640MOVE xo%+56,yo%+114+A%*80 2650IF NOT((Amode%=3 AND (A%=2 OR A%=3)) OR ((Amode%=2 OR Amode%=1) AND A%=2)) THEN 2660PRINT Reg$(A%) 2670ENDIF 2680NEXT 2690MOVE xo%+76+428,yo%+114 2700IF (PORT%(6) AND &F0) = &70 THEN PRINT"PCF8574A Address" ELSE PRINT"PCF8574 Address" 2710MOVE xo%+76+428,yo%+114+5*80 2720PRINT" PCF8591 Address" 2730VDU4 2740ENDPROC 2750 2760DEF PROC_Hex(V%,Y%) 2770LOCAL v$,xo1% 2780IF Amode%=3 AND Y%>1 AND Y%<4 THEN ENDPROC 2790IF (Amode%=2 OR Amode%=1) AND Y%>1 AND Y%<3 THEN ENDPROC 2800Y%+=1 2810xo1%=xo% 2820IF Y%=2 THEN PROC_Bar(V%) 2830IF (Y%-1=MeterMon%) OR (Mname%=4 AND Y%=1) THEN PROC_Meter(V%) 2840IF Y%>6 THEN 2850IF Y%=7 THEN Y%=1:xo1%+=428 2860IF Y%=8 THEN Y%=6: xo1%+=428 2870ENDIF 2880 2890IF LED THEN SYS"Wimp_SetColour",10 ELSE SYS"Wimp_SetColour",15 2900IF Ncolours%<4 AND Ncolours%>0 THEN GCOL 0,0 2910RECTANGLEFILL xo1%+380,yo1%+40*Y%,54,40 2920SYS"Wimp_SetColour",7 2930RECTANGLE xo1%+ 380,yo1%+Y%*40,54,40 2940VDU5 2950MOVE xo1%+384,yo1%+Y%*40+32 2960v$=STR$~(V%) 2970IF LEN(v$)=1 THEN v$="0"+v$ 2980IF (DeviceD%=TRUE AND Y%=1) OR (DeviceA%=TRUE AND Y%<>1) OR xo1%<>xo% THEN PRINT"&";v$ ELSE PRINT"&XX" 2990VDU4 3000ENDPROC 3010 3020DEF PROC_WS(X%,Y%,V%) 3030LOCAL S%,xo1% 3040IF Amode%=3 AND Y%>1 AND Y%<4 THEN ENDPROC 3050IF (Amode%=2 OR Amode%=1) AND Y%>1 AND Y%<3 THEN ENDPROC 3060 3070S%=40 3080xo1%=xo% 3090 3100IF Y%>5 THEN 3110IF Y%=6 THEN Y%=0:xo1%+=428 3120IF Y%=7 THEN Y%=5: xo1%+=428 3130ENDIF 3140 3150yo1%=yo%+Y%*S% 3160IF LED THEN 3170SYS"Wimp_SetColour",7 3180CIRCLEFILL 20+xo1%+ S% + X%*S%,20+yo1%+S%+Y%*S%,16 3190IF (DeviceD%=TRUE AND Y%=0) OR (DeviceA%=TRUE AND Y%<>0) OR xo%<>xo1% THEN 3200IF V%=0 THEN SYS"Wimp_SetColour",4 ELSE SYS"Wimp_SetColour",11 3210ENDIF 3220CIRCLEFILL 20+xo1%+S% + X%*S%,20+yo1%+S%+S%*Y%,10 3230 3240ELSE 3250IF Ncolours%>15 OR Ncolours%<0 THEN GCOL 0,45 ELSE SYS"Wimp_SetColour",0 3260RECTANGLEFILL xo1%+S% + X%*S%,yo1%+S%+S%*Y%,S%,S% 3270SYS"Wimp_SetColour",7 3280RECTANGLE xo1%+ S% + X%*S%,yo1%+S%+Y%*S%,S%,S% 3290VDU5 3300MOVE xo1%+S%+X%*S%+12,yo1%+S%*2+Y%*S%-8 3310IF (DeviceD%=TRUE AND Y%=0) OR (DeviceA%=TRUE AND Y%<>0) OR xo%<>xo1% THEN 3320IF V%=0 THEN PRINT"0" ELSE PRINT"1" 3330ELSE 3340PRINT"X" 3350ENDIF 3360VDU4 3370ENDIF 3380ENDPROC 3390 3400DEF PROC_UpP(P%,V%) 3410LOCAL T%,A%,E% 3420 q%!0=monW%:q%!4=0:q%!8=-540:q%!12=900:q%!16=0 3430 SYS"Wimp_UpdateWindow",,q% TO More% 3440 3450 WHILE More% 3460 3470 FOR A%=0 TO 7 3480 T%=V% AND 1<<(7-A%) 3490 E%=PORT%(P%) AND 1<<(7-A%) 3500 IF T%<>E% PROC_WS(A%,P%,T%) 3510 NEXT 3520 PROC_Hex(V%,P%) 3530 3540 SYS"Wimp_GetRectangle",,q% TO More% 3550 ENDWHILE 3560 3570ENDPROC 3580 3590REM What register 3600DEF FN_Wr 3610LOCAL TY%,R% 3620 TY%=Y%-yo% 3630 R%=3 3640 IF TY%>=40 AND TY%<=80 THEN R%=0 3650 IF TY%>=120 AND TY%<=160 THEN R%=1 3660 IF X%-xo%>380 THEN 3670 IF R%=0 THEN R%=6 3680 IF R%=1 THEN R%=8 3690 IF TY%>=440 AND TY%<=480 THEN R%=7 3700 ENDIF 3710=R% 3720REM What bit 3730DEF FN_Wb 3740LOCAL B% 3750B%=7-INT((X%-xo%)/40-1) 3760IF B%>7 OR B%<0 THEN B%=7-INT((X%-xo%-428)/40-1) 3770IF B%>7 OR B%<0 THEN B%=8 3780=B% 3790 3800REM What part of drag bar 3810DEF FN_Wp 3820LOCAL B%,D%,T% 3830D%=(X%-xo%-428) 3840B%=0 3850T%=D%-(80+PORT%(1)*1.0859375) 3860IF T%<0 THEN B%=3 3870IF T%>44 THEN B%=4 3880IF T%<44 AND T%>0 THEN B%=5:Xthumb%=T% 3890 3900IF D%>&28 AND D%<&4E THEN B%=1 3910IF D%>&18F AND D%<&1B1 THEN B%=2 3920=B% 3930 3940DEF PROC_Trans(wh%) 3950!q%=wh% 3960SYS "Wimp_GetWindowState",,q% 3970xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-540 3980XO%=q%!4:YO%=q%!16 3990ENDPROC 4000 4010DEFPROCsetupmenu 4020LOCAL m% 4030 4040$Wmenu%="IIC_Mon" 4050Wmenu%?12=7 4060Wmenu%?13=2 4070Wmenu%?14=7 4080Wmenu%?15=0 4090Wmenu%!16=128 4100Wmenu%!20=40 4110Wmenu%!24=0 4120 4130m%=Wmenu%+28 4140m%!0=0 4150m%!4=Mmenu% 4160m%!8=(7<<24)OR %10001 4170$(m%+12)="Mode" 4180 4190m%+=24 4200m%!0=&80 4210m%!4=Dmenu% 4220m%!8=(7<<24)OR %10001 4230$(m%+12)="Meter" 4240 4250$Mmenu%="Mode" 4260Mmenu%?12=7 4270Mmenu%?13=2 4280Mmenu%?14=7 4290Mmenu%?15=0 4300Mmenu%!16=160 4310Mmenu%!20=142 4320Mmenu%!24=0 4330 4340m%=Mmenu%+28 4350m%!0=3 4360m%!4=0 4370m%!8=(7<<24)OR %100110010 4380m%!12=mi0% 4390m%!16=1 4400m%!20=5 4410 4420m%+=24 4430m%!0=2 4440m%!4=0 4450m%!8=(7<<24)OR %100110010 4460m%!12=mi1% 4470m%!16=1 4480m%!20=5 4490 4500m%+=24 4510m%!0=2 4520m%!4=0 4530m%!8=(7<<24)OR %100110010 4540m%!12=mi2% 4550m%!16=1 4560m%!20=5 4570 4580m%+=24 4590m%!0=&80 4600m%!4=0 4610m%!8=(7<<24)OR %100110010 4620m%!12=mi3% 4630m%!16=1 4640m%!20=5 4650 4660$Dmenu%="Meter" 4670Dmenu%?12=7 4680Dmenu%?13=2 4690Dmenu%?14=7 4700Dmenu%?15=0 4710Dmenu%!16=184 4720Dmenu%!20=40 4730Dmenu%!24=0 4740 4750m%=Dmenu%+28 4760m%!0=1 4770m%!4=0 4780m%!8=(7<<24)OR %10001 4790$(m%+12)="Output" 4800 4810m%+=24 4820m%!0=0 4830m%!4=0 4840m%!8=(7<<24)OR %10001 4850$(m%+12)="Channel 3" 4860 4870m%+=24 4880m%!0=0 4890m%!4=0 4900m%!8=(7<<24)OR %10001 4910$(m%+12)="Channel 2" 4920 4930m%+=24 4940m%!0=0 4950m%!4=0 4960m%!8=(7<<24)OR %10001 4970$(m%+12)="Channel 1" 4980 4990m%+=24 5000m%!0=0 5010m%!4=0 5020m%!8=(7<<24)OR %10001 5030$(m%+12)="Channel 0" 5040 5050m%+=24 5060m%!0=&80 5070m%!4=0 5080m%!8=(7<<24)OR %10001 5090$(m%+12)="Digital I/O" 5100 5110$menu%="IIC_Monitor" 5120menu%?12=7 5130menu%?13=2 5140menu%?14=7 5150menu%?15=0 5160menu%!16=128 5170menu%!20=40 5180menu%!24=0 5190m%=menu%+28 5200m%!0=2 5210m%!4=info% 5220m%!8=(7<<24)OR %10001 5230$(m%+12)="Info" 5240 5250m%+=24 5260m%!0=1 5270m%!4=0 5280m%!8=(7<<24)OR %10001 5290$(m%+12)="Binary" 5300 5310m%+=24 5320m%!0=2 5330m%!4=0 5340m%!8=(7<<24)OR %10001 5350$(m%+12)="LED" 5360 5370m%+=24 5380m%!0=1 5390m%!4=0 5400m%!8=(7<<24)OR %10001 5410$(m%+12)="PCF8574A" 5420 5430m%+=24 5440m%!0=2 5450m%!4=0 5460m%!8=(7<<24)OR %10001 5470$(m%+12)="PCF8574" 5480 5490m%+=24 5500m%!0=&80 5510m%!4=0 5520m%!8=(7<<24)OR %10001 5530$(m%+12)="Quit" 5540 5550ENDPROC 5560 5570DEF PROCreceive(q%) 5580LOCAL A% 5590A%=q%!16 5600CASE A% OF 5610WHEN 0:PROCdie 5620WHEN 2:IF q%!12=saveref% THEN fn$=FNsget(q%+44):PROC_Save 5630WHEN 3:IF q%!20=-2 AND q%!24=smpicon% THEN 5640 ENDIF 5650 5660WHEN &400C1: IF wopen% THEN q%!0=monW% : PROC_close 5670 5680 5690WHEN &502: CASE TRUE OF 5700 WHEN q%!32=-2 AND q%!36=smpicon%:mes$="This is the IIC Monitor icon.|MObserve the signals on the IIC port" 5710 OTHERWISE:mes$="" 5720 ENDCASE 5730 IF mes$<>"" THEN 5740 q%!12=q%!8 5750 $(q%+20)=mes$+CHR$0 5760 q%!0=(20+LENmes$+4)AND NOT 3 5770 q%!16=&503 5780 SYS "Wimp_SendMessage",18,q%,q%!4 5790ENDCASE 5800ENDPROC 5810 5820DEF PROC_Dack 5830sendth%=q%!4 5840myref%=q%!8 5850SYS "Wimp_GetPointerInfo",,q%+8 5860q%!28=q%!8 5870q%!32=q%!12 5880q%!0=(44+LENn$+4)AND NOT 3 5890q%!12=myref% 5900q%!16=4 5910q%!36=-1 5920q%!40=&FF9 5930$(q%+44)=n$+CHR$0 5940SYS "Wimp_SendMessage",17,q%,sendth% 5950ENDIF 5960ENDPROC 5970 5980DEFFNsget(x%) 5990LOCAL x$ 6000WHILE ?x% x$+=CHR$(?x%):x%+=1:ENDWHILE 6010=x$ 6020 6030DEFFNicon 6040q%!0=-1 6050q%!4=0 6060q%!8=10 : REM Y DIRECTION 6070q%!12=70 : REM X DIRECTION 6080q%!16=96 6090q%!20=&2002 6100$(q%+24)="!IIC_Mon" 6110SYS "Wimp_CreateIcon",,q% TO icon% 6120=icon% 6130 6140DEF PROC_setupW(t$) 6150!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1 6160$TextWarn%=t$ 6170TextWarn%?LEN(t$)=0 6180VDU 7 6190warnOn%=TRUE 6200SYS "Wimp_OpenWindow",,q% 6210ENDPROC 6220 6230DEF PROCerrorbox 6240SYS "Wimp_DragBox",,-1 6250!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0 6260SYS "Wimp_ReportError",buffers%,1,"Port Monitor" 6270PROCdie 6280ENDPROC 6290 6300DEFPROCdie 6310SYS "Wimp_CloseDown",taskhand%,!taskid% 6320END 6330ENDPROC 6340 6350DEF PROCdragicon(mousex%,mousey%,handle%,icon%) 6360LOCAL bx%,by%,ix0%,iy0%,ix1%,iy1% 6370PROCgetw(handle%) 6380PROCgeti(handle%,icon%) 6390!q%=handle%:q%!4=5 6400q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1% 6410q%!24=q%!8-mousex%:q%!28=q%!12-mousey% 6420SYS "Wimp_DragBox",,q% 6430SFLAG%=TRUE 6440ENDPROC 6450 6460DEF PROCgetw(handle%) 6470!q%=handle%:SYS "Wimp_GetWindowState",,q%:PROCinfo(q%+4) 6480ENDPROC 6490DEF PROCgeti(h%,i%) 6500!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q% 6510ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20 6520iflags%=q%!24:idata%=q%+28 6530ENDPROC 6540 6550DEF PROCinfo(p%) 6560LOCAL x0%,y0% 6570x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12 6580scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28 6590bx%=x0%-scx%:by%=y1%-scy% 6600ENDPROC 6610 6620DEF PROC_KeyPress 6630CASE q%!0 OF 6640REM OTHERWISE: SYS"Wimp_ProcessKey",q%!24 6650ENDCASE 6660ENDPROC 6670 6680DEF PROCsetupstrings 6690LOCAL A% 6700FOR A%=0 TO 5 6710READ Reg$(A%) 6720NEXT 6730DATA " Digital I/O"," Analogue Output",Analogue Channel 3,Analogue Channel 2,Analogue Channel 1,Analogue Channel 0 6740ENDPROC 6750 6760DEF PROC_GetPort 6770LOCAL A% 6780A%=DeviceA% 6790PROC_AOUT 6800PROC_AIN 6810IF DeviceA%<>A% THEN FOR A%=1 TO 5:NP%(A%)=PORT%(A%) EOR &FF:NEXT 6820A%=DeviceD% 6830PROC_OUT 6840PROC_IN 6850IF DeviceD%<>A% THEN NP%(0)=NP%(0) EOR &FF 6860ENDPROC 6870 6880DEF PROC_MBS 6890REM Set up Bar Sprites 6900SP%!0=SPr% 6910SP%!8=16 6920SYS"OS_SpriteOp",9+256,SP% 6930SYS"OS_SpriteOp",11+256,SP%,"<IIC_Mon$Dir>.Slider" 6940G4%?0=0:G4%?1=3:G4%?2=0:G4%?3=1 6950FOR A%=0 TO 1024 STEP 4 6960G5%?A%=0 6970G5%?(A%+1)=A% 6980G5%?(A%+2)=A% 6990G5%?(A%+3)=A% 7000NEXT 7010PROC_NameMeter 7020ENDPROC 7030 7040DEF PROC_SpriteName 7050LOCAL A%,B% 7060Stt%=0 7070SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours% 7080IF Ncolours%=3 THEN Stt%=G4% ELSE SYS"ColourTrans_SelectTable",SP%,"meter",-1,-1,G5%,0:Stt%=G5% 7090IF Ncolours%=15 OR Ncolours% >255 OR Ncolours%=1 THEN Stt%=0 7100RESTORE 7150 7110FOR A%=0 TO 2 7120READ Parts$(A%) 7130IF Ncolours%<4 AND Ncolours%>0 THEN Parts$(A%)=Parts$(A%)+"0" 7140NEXT 7150DATA bar,thumb,meter 7160ENDPROC 7170 7180DEF PROC_Meter(V%) 7190LOCAL r%,th,xm%,ym% 7200SYS"Wimp_SetColour",7 7210V%=255-V% 7220r%=180 7230th=RAD((V%/255)*180) 7240xm%=r%*COS(th) 7250ym%=r%*SIN(th) 7260SYS"OS_SpriteOp",52+256,SP%,Parts$(2),xo%+428+40,yo%+182,&10,0,Stt% 7270MOVE xo%+428+40+197,yo%+190+32 7280IF (DeviceA% AND Mname%<>4) OR (DeviceD% AND Mname%=4) THEN DRAW xo%+428+40+197+xm%,yo%+190+32+ym% 7290ENDPROC 7300 7310DEF PROC_NameMeter 7320SYS"XOS_SpriteOp",25+256,SP%,"meter" 7330SYS"XOS_SpriteOp",25+256,SP%,"meter0" 7340 7350SYS"OS_SpriteOp",27+256,SP%,"meterm","meter" 7360SYS"OS_SpriteOp",27+256,SP%,"meterm0","meter0" 7370SYS"OS_SpriteOp",60+256,SP%,"meter",0 7380PROC_PutMname 7390SYS"OS_SpriteOp",60+256,SP%,"meter0",0 7400PROC_PutMname 7410SYS"OS_SpriteOp",60+256,SP%,0,1 7420ENDPROC 7430 7440DEF PROC_PutMname 7450VDU5 7460MOVE 126,28 7470IF Mname%=4 THEN 7480PRINT" Digital" 7490ELSE 7500IF MeterMon%=1 THEN PRINT" Output" ELSE PRINT"Channel ";Mname% 7510ENDIF 7520VDU4 7530ENDPROC 7540 7550DEF PROC_Bar(V%) 7560SYS"OS_SpriteOp",52+256,SP%,Parts$(0),xo%+428+40,yo%+120,&10,0,Stt% 7570V%=40+V%*1.0859375 7580IF DeviceA% OR (DeviceD% AND Mname%=4) THEN SYS"OS_SpriteOp",52+256,SP%,Parts$(1),xo%+428+40+V%,yo%+120,&10,0,Stt% 7590ENDPROC 7600 7610DEF PROC_AOUT 7620LOCAL Fl 7630?PBK%=&40 7640PBK%?1=NP%(1) 7650SYS "XIIC_Control",NP%(7),PBK%,2 TO ;Fl 7660IF (Fl AND 1) =1 THEN DeviceA%=FALSE ELSE DeviceA%=TRUE 7670ENDPROC 7680 7690DEF PROC_AIN 7700LOCAL Fl 7710?PBS%=&44 OR Amode%<<4 7720REM Set up the control register 7730SYS "XIIC_Control",NP%(7),PBS%,1 TO ;Fl 7740SYS "XIIC_Control",NP%(7) OR 1,PBK%,4 TO ;Fl 7750IF (Fl AND 1) =1 THEN DeviceA%=FALSE ELSE DeviceA%=TRUE 7760NP%(2)=PBK%?0: NP%(5)=PBK%?1: NP%(4)=PBK%?2: NP%(3)=PBK%?3 7770ENDPROC 7780 7790DEF PROC_OUT 7800LOCAL Fl 7810?PBK%=DigMon% 7820SYS "XIIC_Control",NP%(6),PBK%,1 TO ;Fl 7830IF (Fl AND 1) =1 THEN DeviceD%=FALSE ELSE DeviceD%=TRUE 7840ENDPROC 7850 7860DEF PROC_IN 7870LOCAL Fl 7880SYS "XIIC_Control",NP%(6) OR 1,PBK%,1 TO ;Fl 7890IF (Fl AND 1) =1 THEN DeviceD%=FALSE ELSE DeviceD%=TRUE 7900NP%(0)=?PBK% 7910ENDPROC
�>!IIC_Mon.IIC_Mon
� � �errorbox
( � taskid%4:$taskid%="TASK"
2� PBK% 5, PBS% 4
<SPr%=36000
FC� PORT%(7), Reg$(5),NP%(7),SP% SPr%, Parts$(2), G4% 8, G5% 1024
P7� Wmenu% 256,Mmenu% 256,mi0% 6,mi1% 6,mi2% 6,mi3% 6
ZHș "Wimp_Initialise",200,!taskid%,"IIC_Monitor" � version%,taskhand%
dN� q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 228,SW% 256,cb% 18
n4� IsName% 256, TextWarn% 100, ww% 256,Dmenu% 255
x0ș "Wimp_SpriteOp",11,,"<IIC_Mon$Dir>.Modes"
�5ș "Wimp_OpenTemplate",,"<IIC_Mon$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�=ș "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Pallette",0
�)ș "Wimp_CreateWindow",,Wn%+4 � monW%
�Wn%!0=monW%:Wn%!28=-1
�
�9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
�)q%!108=TextWarn%:q%!112=-1:q%!116=300
� XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
�*ș "Wimp_CreateWindow",,q% � warningW%
�ș "Wimp_CloseTemplate"
� � �errorbox
"
ref%=0
,cpL%=0:cpR%=0
6smpicon%=�icon
@wopen%=�:warnOn%=�
J InWin%=�
TLX%=-1:LY%=-1
^cr%=3:cb%=8
hDeviceD%=�
rDeviceA%=�
|� Adress of the chips
�NP%(6)=&70 : NP%(7)=&90
�NP%(0)=&FF
�DigMon%=&FF
�MeterMon%=1:Mname%=1
�"LED=� : DragOn%=� : ClickOn%=�
� Amode%=0
�;$mi0%="iic_0":$mi1%="iic_1":$mi2%="iic_2":$mi3%="iic_3"
��setupmenu
��setupstrings
� �_MBS
�
��
� ș "Wimp_Poll",0,q% � A%
Ȏ A% �
� 0:�_Null
� 1:�_doWindow
&< � 2:�_SpriteName : ș "Wimp_OpenWindow",,q% :wopen%=�
0 � 3:�_close
:! � 4:InWin%=�:LX%=-1:LY%=-1
D � 5:InWin%=�
N � 6:�_do_click(q%)
X � 7:
b � 8:�_KeyPress
l � 9:�_SORT_Menu
v � 17,18:�receive(q%)
� �
� � �
�
��
�
� � �_Null
�� A%,B%,C%,X%
�4� Look at inputs and update display if nessasary
�� wopen% �
�
�_GetPort
� �_Trans(monW%)
�� A%=0 � 7
�?� NP%(A%)<>PORT%(A%) � �_UpP(A%,NP%(A%)) :PORT%(A%)=NP%(A%)
�
� DragOn% �
ȗ C%,A%,B%
"NP%(1)=C%-(xo%+428+80+Xthumb%)
*� NP%(1)<0 � NP%(1)=0
4 � NP%(1)>255 � NP%(1)=255
>� B%<>4 � DragOn%=�
H�
R� ClickOn% �
\ȗ X%,A%,B%
f � B%<>4 � ClickOn%=�
p � �>CT% �
z A%=�_Wp
� Ȏ A% �
�7 � 1: NP%(1)-=1: CT%=�+8:� NP%(1)<0 � NP%(1)=0
�; � 2: NP%(1)+=1: CT%=�+8:� NP%(1)>255 � NP%(1)=255
� �
� �
� �
��
��
��
�
�� �_spath(n$)
�ȕ �n$,".")
�n$=�n$,�(n$)-1)
�
� �(n$)>10 � n$=�n$,10)
=n$
$
.� �_GetName
8� T%,A%,F$
BF$="":fn$=""
Lq%!0=saveW%:q%!4=1
V ș "Wimp_GetIconState",,q%
` T%=q%!28
j T%-=1
t�
~ T%+=1
�F$=F$+�(?T%)
� � ?T%=0
�fn$=�F$,1,�(F$)-1)
��
�
�� �_SORT_Menu
�� IconMenu% �
� Ȏ !q% �
�N� 1: menu%!52=1:menu%!76=2: LED=� :ș"Wimp_ForceRedraw",monW%,0,-540,900,0
�M� 2: menu%!52=0:menu%!76=3:LED=� :ș"Wimp_ForceRedraw",monW%,0,-540,900,0
�R� 3: menu%!100=1:menu%!124=2:NP%(6)=(PORT%(6) � &F) � &70:PORT%(6)=NP%(6):�_IN
�6 ș"Wimp_ForceRedraw",monW%,0,-500,900,-420
R� 4: menu%!100=0:menu%!124=3:NP%(6)=(PORT%(6) � &F) � &40:PORT%(6)=NP%(6):�_IN
6 ș"Wimp_ForceRedraw",monW%,0,-500,900,-420
� 5: �die
�
(�
2
Ȏ q%!0 �
< � 1: �_Mtick(q%!4,6,Dmenu%)
F MeterMon%=q%!4+1
P Mname%=MeterMon%
Z Ȏ MeterMon% �
d3 � 6 :Mname%=4:PORT%(0)=PORT%(0) � 255
n � 5 :Mname%=0
x � 4 :Mname%=1
� � 3 :Mname%=2
� � 2 :Mname%=3
�
�
� �_NameMeter
� � 0: �_Mtick(q%!4,4,Mmenu%)
� Amode%=q%!4
��
�+ș"Wimp_ForceRedraw",monW%,0,-540,900,0
�
��
��
�
�� �_Mtick(n%,ni%,m%)
� A%,B%
� A%=1 � ni%
B%=A%*24+4
"m%!B%=m%!B% � �(1)
,�
6B%=(n%+1)*24+4
@m%!B%=m%!B% � 1
J�
T
^
� �_close
h7� q%!0=monW% � ș"Wimp_GetWindowInfo",,Wn%:wopen%=�
r � q%!0=warningW% � warnOn%=�
| ș "Wimp_CloseWindow",,q%
��
�
�� �_do_click(q%)
� i%=q%!16
�Ȏ q%!12 �
�(� warningW%: q%!0=warningW% :�_close
�
�(� -2: � Look first at Icon Bar Click
� � q%!16=smpicon% �
�J � q%!8=2 � IconMenu%=�: ș"Wimp_CreateMenu",,menu%,q%!0-94,430
� � q%!8=4 � �_Open
�
�
�
� monW%:
' � q%!8=4 � �_MonClick
R � q%!8=2 � IconMenu%=�: ș"Wimp_CreateMenu",,Wmenu%,q%!0-84,q%!4
&�
0�
:
D
N� �_MonClick
X� D%,V%,B%,X%,Y%
b&� Do the action for a window click
lȗ X%,Y%,B%
v cb%=�_Wb
� cr%=�_Wr
�� cb%<8 � cr%<2 �
� NP%(cr%)=NP%(cr%) � 1<<cb%
�&� cr%=0 � DigMon%=DigMon% � 1<<cb%
��
�8� cr%=7 � cb%>0 � cb%<4 � NP%(cr%)=NP%(cr%) � 1<<cb%
�8� cr%=6 � cb%>0 � cb%<4 � NP%(cr%)=NP%(cr%) � 1<<cb%
�
� cr%=8 �
� cb%=�_Wp
� Ȏ cb% �
�A � 1: NP%(1)-=1: ClickOn%=�: CT%=�+30:� NP%(1)<0 � NP%(1)=0
�E � 2: NP%(1)+=1: ClickOn%=�: CT%=�+30:� NP%(1)>255 � NP%(1)=255
�- � 3: NP%(1)-=16: � NP%(1)<0 � NP%(1)=0
1 � 4: NP%(1)+=16: � NP%(1)>255 � NP%(1)=255
� 5: DragOn%=�
�
�
*�
4
> � �_Open
H�_SpriteName
R� OPEN UP WINDOW HERE
\� wopen% �
fq%!0=monW%
p ș"Wimp_GetWindowState",,q%
z6 � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
��
� ș "Wimp_OpenWindow",,Wn%
� wopen%=�
��
��
�
�� �_doWindow
� � A%,I%,L%
�
� �_Trans(monW%)
�) ș "Wimp_RedrawWindow",,q% � flag%
� ȕ flag%
�
�_Dmpw
+ ș "Wimp_GetRectangle",,q% � flag%
�
$
. �
8
B� �pointSq
L� X%,Y%,B%,R%
V�_Trans(monW%)
`ȗ X%,Y%,B%
jR%=0
t)� (X%<(xo%+30) � Y%<(yo%+30) ) � R%=1
~.� (X%>(xo%+246*xs%) � Y%<(yo%+30) ) � R%=2
�=R%
�
� � �_Dmpw
�� A%,B%,V%
��_Trans(monW%)
�
�_GetPort
�� B%=0 � 7
�� A%=0 � 7
� V%=PORT%(B%) � 1<<(7-A%)
��_WS(A%,B%,V%)
��
��_Hex(PORT%(B%),B%)
�
�5
� A%=0 � 7
� xo%+52+A%*40,yo%+32
(
�;7-A%
2�
<� Register names
F� A%=0 � 5
P� xo%+56,yo%+114+A%*80
ZF� �((Amode%=3 � (A%=2 � A%=3)) � ((Amode%=2 � Amode%=1) � A%=2)) �
d� Reg$(A%)
n�
x�
�� xo%+76+428,yo%+114
�G� (PORT%(6) � &F0) = &70 � �"PCF8574A Address" � �"PCF8574 Address"
� � xo%+76+428,yo%+114+5*80
��" PCF8591 Address"
��4
��
�
�� �_Hex(V%,Y%)
�
� v$,xo1%
� � Amode%=3 � Y%>1 � Y%<4 � �
�-� (Amode%=2 � Amode%=1) � Y%>1 � Y%<3 � �
� Y%+=1
� xo1%=xo%
� Y%=2 � �_Bar(V%)
8� (Y%-1=MeterMon%) � (Mname%=4 � Y%=1) � �_Meter(V%)
� Y%>6 �
"� Y%=7 � Y%=1:xo1%+=428
, � Y%=8 � Y%=6: xo1%+=428
6�
@
J9� LED � ș"Wimp_SetColour",10 � ș"Wimp_SetColour",15
T'� Ncolours%<4 � Ncolours%>0 � � 0,0
^"ȓȐ xo1%+380,yo1%+40*Y%,54,40
hș"Wimp_SetColour",7
r!ȓ xo1%+ 380,yo1%+Y%*40,54,40
|�5
� � xo1%+384,yo1%+Y%*40+32
�
v$=�~(V%)
�� �(v$)=1 � v$="0"+v$
�O� (DeviceD%=� � Y%=1) � (DeviceA%=� � Y%<>1) � xo1%<>xo% � �"&";v$ � �"&XX"
��4
��
�
�� �_WS(X%,Y%,V%)
�
� S%,xo1%
� � Amode%=3 � Y%>1 � Y%<4 � �
�-� (Amode%=2 � Amode%=1) � Y%>1 � Y%<3 � �
�
� S%=40
xo1%=xo%
� Y%>5 �
&� Y%=6 � Y%=0:xo1%+=428
0 � Y%=7 � Y%=5: xo1%+=428
:�
D
Nyo1%=yo%+Y%*S%
X � LED �
bș"Wimp_SetColour",7
l0ȏȐ 20+xo1%+ S% + X%*S%,20+yo1%+S%+Y%*S%,16
v>� (DeviceD%=� � Y%=0) � (DeviceA%=� � Y%<>0) � xo%<>xo1% �
�9� V%=0 � ș"Wimp_SetColour",4 � ș"Wimp_SetColour",11
��
�/ȏȐ 20+xo1%+S% + X%*S%,20+yo1%+S%+S%*Y%,10
�
��
�@� Ncolours%>15 � Ncolours%<0 � � 0,45 � ș"Wimp_SetColour",0
�,ȓȐ xo1%+S% + X%*S%,yo1%+S%+S%*Y%,S%,S%
�ș"Wimp_SetColour",7
�+ȓ xo1%+ S% + X%*S%,yo1%+S%+Y%*S%,S%,S%
��5
�(� xo1%+S%+X%*S%+12,yo1%+S%*2+Y%*S%-8
�>� (DeviceD%=� � Y%=0) � (DeviceA%=� � Y%<>0) � xo%<>xo1% �
�� V%=0 � �"0" � �"1"
�
�"X"
�
�4
*�
4�
>
H� �_UpP(P%,V%)
R� T%,A%,E%
\3 q%!0=monW%:q%!4=0:q%!8=-540:q%!12=900:q%!16=0
f' ș"Wimp_UpdateWindow",,q% � More%
p
z
ȕ More%
�
� � A%=0 � 7
� T%=V% � 1<<(7-A%)
� E%=PORT%(P%) � 1<<(7-A%)
� � T%<>E% �_WS(A%,P%,T%)
� �
� �_Hex(V%,P%)
�
�' ș"Wimp_GetRectangle",,q% � More%
� �
�
��
�
� What register
� �_Wr
� TY%,R%
$ TY%=Y%-yo%
. R%=3
8 � TY%>=40 � TY%<=80 � R%=0
B! � TY%>=120 � TY%<=160 � R%=1
L � X%-xo%>380 �
V � R%=0 � R%=6
` � R%=1 � R%=8
j! � TY%>=440 � TY%<=480 � R%=7
t �
~=R%
�� What bit
�
� �_Wb
�� B%
�B%=7-�((X%-xo%)/40-1)
�-� B%>7 � B%<0 � B%=7-�((X%-xo%-428)/40-1)
�� B%>7 � B%<0 � B%=8
�=B%
�
�� What part of drag bar
�
� �_Wp
�� B%,D%,T%
�D%=(X%-xo%-428)
B%=0
!T%=D%-(80+PORT%(1)*1.0859375)
� T%<0 � B%=3
� T%>44 � B%=4
($� T%<44 � T%>0 � B%=5:Xthumb%=T%
2
< � D%>&28 � D%<&4E � B%=1
F � D%>&18F � D%<&1B1 � B%=2
P=B%
Z
d� �_Trans(wh%)
n !q%=wh%
x ș "Wimp_GetWindowState",,q%
�(xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-540
�XO%=q%!4:YO%=q%!16
��
�
���setupmenu
�� m%
�
�$Wmenu%="IIC_Mon"
�Wmenu%?12=7
�Wmenu%?13=2
�Wmenu%?14=7
�Wmenu%?15=0
�Wmenu%!16=128
Wmenu%!20=40
Wmenu%!24=0
"m%=Wmenu%+28
,
m%!0=0
6m%!4=Mmenu%
@m%!8=(7<<24)� %10001
J$(m%+12)="Mode"
T
^
m%+=24
h m%!0=&80
rm%!4=Dmenu%
|m%!8=(7<<24)� %10001
�$(m%+12)="Meter"
�
�$Mmenu%="Mode"
�Mmenu%?12=7
�Mmenu%?13=2
�Mmenu%?14=7
�Mmenu%?15=0
�Mmenu%!16=160
�Mmenu%!20=142
�Mmenu%!24=0
�
�m%=Mmenu%+28
�
m%!0=3
m%!4=0
m%!8=(7<<24)� %100110010
m%!12=mi0%
& m%!16=1
0 m%!20=5
:
D
m%+=24
N
m%!0=2
X
m%!4=0
b m%!8=(7<<24)� %100110010
lm%!12=mi1%
v m%!16=1
� m%!20=5
�
�
m%+=24
�
m%!0=2
�
m%!4=0
� m%!8=(7<<24)� %100110010
�m%!12=mi2%
� m%!16=1
� m%!20=5
�
�
m%+=24
� m%!0=&80
�
m%!4=0
m%!8=(7<<24)� %100110010
m%!12=mi3%
m%!16=1
m%!20=5
*
4$Dmenu%="Meter"
>Dmenu%?12=7
HDmenu%?13=2
RDmenu%?14=7
\Dmenu%?15=0
fDmenu%!16=184
pDmenu%!20=40
zDmenu%!24=0
�
�m%=Dmenu%+28
�
m%!0=1
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Output"
�
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Channel 3"
�
m%+=24
m%!0=0
m%!4=0
$m%!8=(7<<24)� %10001
.$(m%+12)="Channel 2"
8
B
m%+=24
L
m%!0=0
V
m%!4=0
`m%!8=(7<<24)� %10001
j$(m%+12)="Channel 1"
t
~
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Channel 0"
�
�
m%+=24
� m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Digital I/O"
�
�$menu%="IIC_Monitor"
menu%?12=7
menu%?13=2
menu%?14=7
menu%?15=0
(menu%!16=128
2menu%!20=40
<menu%!24=0
Fm%=menu%+28
P
m%!0=2
Zm%!4=info%
dm%!8=(7<<24)� %10001
n$(m%+12)="Info"
x
�
m%+=24
�
m%!0=1
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Binary"
�
�
m%+=24
�
m%!0=2
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="LED"
�
�
m%+=24
m%!0=1
m%!4=0
m%!8=(7<<24)� %10001
"$(m%+12)="PCF8574A"
,
6
m%+=24
@
m%!0=2
J
m%!4=0
Tm%!8=(7<<24)� %10001
^$(m%+12)="PCF8574"
h
r
m%+=24
| m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Quit"
�
��
�
�� �receive(q%)
�� A%
� A%=q%!16
� Ȏ A% �
� � 0:�die
�2� 2:� q%!12=saveref% � fn$=�sget(q%+44):�_Save
�%� 3:� q%!20=-2 � q%!24=smpicon% �
�
-� &400C1: � wopen% � q%!0=monW% : �_close
&
0
:� &502: Ȏ � �
Dv � q%!32=-2 � q%!36=smpicon%:mes$="This is the IIC Monitor icon.|MObserve the signals on the IIC port"
N :mes$=""
X �
b � mes$<>"" �
l q%!12=q%!8
v $(q%+20)=mes$+�0
� q%!0=(20+�mes$+4)� � 3
� q%!16=&503
�( ș "Wimp_SendMessage",18,q%,q%!4
��
��
�
� � �_Dack
�sendth%=q%!4
�myref%=q%!8
�"ș "Wimp_GetPointerInfo",,q%+8
�q%!28=q%!8
�q%!32=q%!12
�q%!0=(44+�n$+4)� � 3
q%!12=myref%
q%!16=4
q%!36=-1
q%!40=&FF9
*$(q%+44)=n$+�0
4'ș "Wimp_SendMessage",17,q%,sendth%
>�
H�
R
\ݤsget(x%)
f� x$
p ȕ ?x% x$+=�(?x%):x%+=1:�
z=x$
�
�
ݤicon
� q%!0=-1
�
q%!4=0
�q%!8=10 : � Y DIRECTION
� q%!12=70 : � X DIRECTION
� q%!16=96
�q%!20=&2002
�$(q%+24)="!IIC_Mon"
�$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
�� �_setupW(t$)
X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
$TextWarn%=t$
TextWarn%?�(t$)=0
$� 7
.
warnOn%=�
8 ș "Wimp_OpenWindow",,q%
B�
L
V� �errorbox
`ș "Wimp_DragBox",,-1
j2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
t3ș "Wimp_ReportError",buffers%,1,"Port Monitor"
~�die
��
�
� ��die
�*ș "Wimp_CloseDown",taskhand%,!taskid%
��
��
�
�.� �dragicon(mousex%,mousey%,handle%,icon%)
�!� bx%,by%,ix0%,iy0%,ix1%,iy1%
��getw(handle%)
��geti(handle%,icon%)
�!q%=handle%:q%!4=5
>q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
*q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
ș "Wimp_DragBox",,q%
SFLAG%=�
(�
2
<� �getw(handle%)
F8!q%=handle%:ș "Wimp_GetWindowState",,q%:�info(q%+4)
P�
Z� �geti(h%,i%)
d-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
n.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
x iflags%=q%!24:idata%=q%+28
��
�
�� �info(p%)
�
� x0%,y0%
�'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
�5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
� bx%=x0%-scx%:by%=y1%-scy%
��
�
�� �_KeyPress
�
Ȏ q%!0 �
�+� OTHERWISE: SYS"Wimp_ProcessKey",q%!24
��
�
� �setupstrings
"� A%
,� A%=0 � 5
6� Reg$(A%)
@�
Ju� " Digital I/O"," Analogue Output",Analogue Channel 3,Analogue Channel 2,Analogue Channel 1,Analogue Channel 0
T�
^
h� �_GetPort
r� A%
|A%=DeviceA%
�
�_AOUT
� �_AIN
�9� DeviceA%<>A% � � A%=1 � 5:NP%(A%)=PORT%(A%) � &FF:�
�A%=DeviceD%
� �_OUT
��_IN
�(� DeviceD%<>A% � NP%(0)=NP%(0) � &FF
��
�
� � �_MBS
�� Set up Bar Sprites
�SP%!0=SPr%
� SP%!8=16
ș"OS_SpriteOp",9+256,SP%
5ș"OS_SpriteOp",11+256,SP%,"<IIC_Mon$Dir>.Slider"
#G4%?0=0:G4%?1=3:G4%?2=0:G4%?3=1
&� A%=0 � 1024 � 4
0 G5%?A%=0
:G5%?(A%+1)=A%
DG5%?(A%+2)=A%
NG5%?(A%+3)=A%
X�
b�_NameMeter
l�
v
�� �_SpriteName
� � A%,B%
�
Stt%=0
�.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
�[� Ncolours%=3 � Stt%=G4% � ș"ColourTrans_SelectTable",SP%,"meter",-1,-1,G5%,0:Stt%=G5%
�:� Ncolours%=15 � Ncolours% >255 � Ncolours%=1 � Stt%=0
�
� �dn[
�� A%=0 � 2
�� Parts$(A%)
�;� Ncolours%<4 � Ncolours%>0 � Parts$(A%)=Parts$(A%)+"0"
��
�� bar,thumb,meter
��
� �_Meter(V%)
� r%,th,xm%,ym%
ș"Wimp_SetColour",7
*
V%=255-V%
4
r%=180
>th=�((V%/255)*180)
Hxm%=r%*�(th)
Rym%=r%*�(th)
\Fș"OS_SpriteOp",52+256,SP%,Parts$(2),xo%+428+40,yo%+182,&10,0,Stt%
f � xo%+428+40+197,yo%+190+32
pZ� (DeviceA% � Mname%<>4) � (DeviceD% � Mname%=4) � � xo%+428+40+197+xm%,yo%+190+32+ym%
z�
�
�� �_NameMeter
�'ș"XOS_SpriteOp",25+256,SP%,"meter"
�(ș"XOS_SpriteOp",25+256,SP%,"meter0"
�
�/ș"OS_SpriteOp",27+256,SP%,"meterm","meter"
�1ș"OS_SpriteOp",27+256,SP%,"meterm0","meter0"
�(ș"OS_SpriteOp",60+256,SP%,"meter",0
��_PutMname
�)ș"OS_SpriteOp",60+256,SP%,"meter0",0
��_PutMname
�"ș"OS_SpriteOp",60+256,SP%,0,1
��
� �_PutMname
�5
$ � 126,28
.� Mname%=4 �
8�" Digital"
B�
L4� MeterMon%=1 � �" Output" � �"Channel ";Mname%
V�
`�4
j�
t
~� �_Bar(V%)
�Fș"OS_SpriteOp",52+256,SP%,Parts$(0),xo%+428+40,yo%+120,&10,0,Stt%
�V%=40+V%*1.0859375
�n� DeviceA% � (DeviceD% � Mname%=4) � ș"OS_SpriteOp",52+256,SP%,Parts$(1),xo%+428+40+V%,yo%+120,&10,0,Stt%
��
�
� � �_AOUT
�� Fl
�
?PBK%=&40
�PBK%?1=NP%(1)
�)ș "XIIC_Control",NP%(7),PBK%,2 � ;Fl
�+� (Fl � 1) =1 � DeviceA%=� � DeviceA%=�
��
� �_AIN
� Fl
?PBS%=&44 � Amode%<<4
(!� Set up the control register
2)ș "XIIC_Control",NP%(7),PBS%,1 � ;Fl
<-ș "XIIC_Control",NP%(7) � 1,PBK%,4 � ;Fl
F+� (Fl � 1) =1 � DeviceA%=� � DeviceA%=�
P>NP%(2)=PBK%?0: NP%(5)=PBK%?1: NP%(4)=PBK%?2: NP%(3)=PBK%?3
Z�
d
n � �_OUT
x� Fl
�?PBK%=DigMon%
�)ș "XIIC_Control",NP%(6),PBK%,1 � ;Fl
�+� (Fl � 1) =1 � DeviceD%=� � DeviceD%=�
��
�
�
� �_IN
�� Fl
�-ș "XIIC_Control",NP%(6) � 1,PBK%,1 � ;Fl
�+� (Fl � 1) =1 � DeviceD%=� � DeviceD%=�
�NP%(0)=?PBK%
��
� 00000000 0d 00 0a 16 f4 3e 21 49 49 43 5f 4d 6f 6e 2e 49 |.....>!IIC_Mon.I| 00000010 49 43 5f 4d 6f 6e 0d 00 14 11 ee 20 85 20 f2 65 |IC_Mon..... . .e| 00000020 72 72 6f 72 62 6f 78 0d 00 1e 04 0d 00 28 1e de |rrorbox......(..| 00000030 20 74 61 73 6b 69 64 25 34 3a 24 74 61 73 6b 69 | taskid%4:$taski| 00000040 64 25 3d 22 54 41 53 4b 22 0d 00 32 14 de 20 50 |d%="TASK"..2.. P| 00000050 42 4b 25 20 35 2c 20 50 42 53 25 20 34 0d 00 3c |BK% 5, PBS% 4..<| 00000060 0e 53 50 72 25 3d 33 36 30 30 30 0d 00 46 43 de |.SPr%=36000..FC.| 00000070 20 50 4f 52 54 25 28 37 29 2c 20 52 65 67 24 28 | PORT%(7), Reg$(| 00000080 35 29 2c 4e 50 25 28 37 29 2c 53 50 25 20 53 50 |5),NP%(7),SP% SP| 00000090 72 25 2c 20 50 61 72 74 73 24 28 32 29 2c 20 47 |r%, Parts$(2), G| 000000a0 34 25 20 38 2c 20 47 35 25 20 31 30 32 34 0d 00 |4% 8, G5% 1024..| 000000b0 50 37 de 20 57 6d 65 6e 75 25 20 32 35 36 2c 4d |P7. Wmenu% 256,M| 000000c0 6d 65 6e 75 25 20 32 35 36 2c 6d 69 30 25 20 36 |menu% 256,mi0% 6| 000000d0 2c 6d 69 31 25 20 36 2c 6d 69 32 25 20 36 2c 6d |,mi1% 6,mi2% 6,m| 000000e0 69 33 25 20 36 0d 00 5a 48 c8 99 20 22 57 69 6d |i3% 6..ZH.. "Wim| 000000f0 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 30 |p_Initialise",20| 00000100 30 2c 21 74 61 73 6b 69 64 25 2c 22 49 49 43 5f |0,!taskid%,"IIC_| 00000110 4d 6f 6e 69 74 6f 72 22 20 b8 20 76 65 72 73 69 |Monitor" . versi| 00000120 6f 6e 25 2c 74 61 73 6b 68 61 6e 64 25 0d 00 64 |on%,taskhand%..d| 00000130 4e de 20 71 25 20 26 33 30 30 2c 71 63 25 20 38 |N. q% &300,qc% 8| 00000140 30 2c 20 57 6e 25 20 26 33 30 30 2c 74 65 6d 70 |0, Wn% &300,temp| 00000150 25 20 32 35 36 2c 62 75 66 66 65 72 73 25 20 35 |% 256,buffers% 5| 00000160 31 32 2c 6d 65 6e 75 25 20 32 32 38 2c 53 57 25 |12,menu% 228,SW%| 00000170 20 32 35 36 2c 63 62 25 20 31 38 0d 00 6e 34 de | 256,cb% 18..n4.| 00000180 20 49 73 4e 61 6d 65 25 20 32 35 36 2c 20 54 65 | IsName% 256, Te| 00000190 78 74 57 61 72 6e 25 20 31 30 30 2c 20 77 77 25 |xtWarn% 100, ww%| 000001a0 20 32 35 36 2c 44 6d 65 6e 75 25 20 32 35 35 0d | 256,Dmenu% 255.| 000001b0 00 78 30 c8 99 20 22 57 69 6d 70 5f 53 70 72 69 |.x0.. "Wimp_Spri| 000001c0 74 65 4f 70 22 2c 31 31 2c 2c 22 3c 49 49 43 5f |teOp",11,,"<IIC_| 000001d0 4d 6f 6e 24 44 69 72 3e 2e 4d 6f 64 65 73 22 0d |Mon$Dir>.Modes".| 000001e0 00 82 35 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e |..5.. "Wimp_Open| 000001f0 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 49 49 43 |Template",,"<IIC| 00000200 5f 4d 6f 6e 24 44 69 72 3e 2e 54 65 6d 70 6c 61 |_Mon$Dir>.Templa| 00000210 74 65 73 22 0d 00 8c 29 ee 20 85 20 c8 99 20 22 |tes"...). . .. "| 00000220 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 |Wimp_CloseTempla| 00000230 74 65 22 3a f2 65 72 72 6f 72 62 6f 78 0d 00 96 |te":.errorbox...| 00000240 3a c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 |:.. "Wimp_LoadTe| 00000250 6d 70 6c 61 74 65 22 2c 2c 71 25 2c 74 65 6d 70 |mplate",,q%,temp| 00000260 25 2c 74 65 6d 70 25 2b 32 35 36 2c 2d 31 2c 22 |%,temp%+256,-1,"| 00000270 49 6e 66 6f 22 2c 30 0d 00 a0 26 c8 99 20 22 57 |Info",0...&.. "W| 00000280 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow| 00000290 22 2c 2c 71 25 20 b8 20 69 6e 66 6f 25 0d 00 aa |",,q% . info%...| 000002a0 3d c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 |=.. "Wimp_LoadTe| 000002b0 6d 70 6c 61 74 65 22 2c 2c 57 6e 25 2b 34 2c 53 |mplate",,Wn%+4,S| 000002c0 57 25 2c 53 57 25 2b 32 35 36 2c 2d 31 2c 22 50 |W%,SW%+256,-1,"P| 000002d0 61 6c 6c 65 74 74 65 22 2c 30 0d 00 b4 29 c8 99 |allette",0...)..| 000002e0 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | "Wimp_CreateWin| 000002f0 64 6f 77 22 2c 2c 57 6e 25 2b 34 20 b8 20 6d 6f |dow",,Wn%+4 . mo| 00000300 6e 57 25 0d 00 be 19 57 6e 25 21 30 3d 6d 6f 6e |nW%....Wn%!0=mon| 00000310 57 25 3a 57 6e 25 21 32 38 3d 2d 31 0d 00 c8 04 |W%:Wn%!28=-1....| 00000320 0d 00 d2 39 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 |...9.. "Wimp_Loa| 00000330 64 54 65 6d 70 6c 61 74 65 22 2c 2c 71 25 2c 77 |dTemplate",,q%,w| 00000340 77 25 2c 77 77 25 2b 32 35 36 2c 2d 31 2c 22 57 |w%,ww%+256,-1,"W| 00000350 61 72 6e 69 6e 67 22 2c 30 0d 00 dc 29 71 25 21 |arning",0...)q%!| 00000360 31 30 38 3d 54 65 78 74 57 61 72 6e 25 3a 71 25 |108=TextWarn%:q%| 00000370 21 31 31 32 3d 2d 31 3a 71 25 21 31 31 36 3d 33 |!112=-1:q%!116=3| 00000380 30 30 0d 00 e6 20 58 51 25 3d 71 25 21 38 2d 71 |00... XQ%=q%!8-q| 00000390 25 21 30 3a 59 51 25 3d 71 25 21 31 32 2d 71 25 |%!0:YQ%=q%!12-q%| 000003a0 21 34 0d 00 f0 2a c8 99 20 22 57 69 6d 70 5f 43 |!4...*.. "Wimp_C| 000003b0 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 |reateWindow",,q%| 000003c0 20 b8 20 77 61 72 6e 69 6e 67 57 25 0d 00 fa 1b | . warningW%....| 000003d0 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 |.. "Wimp_CloseTe| 000003e0 6d 70 6c 61 74 65 22 0d 01 04 04 0d 01 0e 11 ee |mplate".........| 000003f0 20 85 20 f2 65 72 72 6f 72 62 6f 78 0d 01 18 04 | . .errorbox....| 00000400 0d 01 22 0a 72 65 66 25 3d 30 0d 01 2c 11 63 70 |..".ref%=0..,.cp| 00000410 4c 25 3d 30 3a 63 70 52 25 3d 30 0d 01 36 12 73 |L%=0:cpR%=0..6.s| 00000420 6d 70 69 63 6f 6e 25 3d a4 69 63 6f 6e 0d 01 40 |mpicon%=.icon..@| 00000430 16 77 6f 70 65 6e 25 3d a3 3a 77 61 72 6e 4f 6e |.wopen%=.:warnOn| 00000440 25 3d a3 0d 01 4a 0c 49 6e 57 69 6e 25 3d a3 0d |%=...J.InWin%=..| 00000450 01 54 11 4c 58 25 3d 2d 31 3a 4c 59 25 3d 2d 31 |.T.LX%=-1:LY%=-1| 00000460 0d 01 5e 0f 63 72 25 3d 33 3a 63 62 25 3d 38 0d |..^.cr%=3:cb%=8.| 00000470 01 68 0e 44 65 76 69 63 65 44 25 3d b9 0d 01 72 |.h.DeviceD%=...r| 00000480 0e 44 65 76 69 63 65 41 25 3d b9 0d 01 7c 19 f4 |.DeviceA%=...|..| 00000490 20 41 64 72 65 73 73 20 6f 66 20 74 68 65 20 63 | Adress of the c| 000004a0 68 69 70 73 0d 01 86 1b 4e 50 25 28 36 29 3d 26 |hips....NP%(6)=&| 000004b0 37 30 20 3a 20 4e 50 25 28 37 29 3d 26 39 30 0d |70 : NP%(7)=&90.| 000004c0 01 90 0e 4e 50 25 28 30 29 3d 26 46 46 0d 01 9a |...NP%(0)=&FF...| 000004d0 0f 44 69 67 4d 6f 6e 25 3d 26 46 46 0d 01 a4 18 |.DigMon%=&FF....| 000004e0 4d 65 74 65 72 4d 6f 6e 25 3d 31 3a 4d 6e 61 6d |MeterMon%=1:Mnam| 000004f0 65 25 3d 31 0d 01 ae 22 4c 45 44 3d a3 20 3a 20 |e%=1..."LED=. : | 00000500 44 72 61 67 4f 6e 25 3d a3 20 3a 20 43 6c 69 63 |DragOn%=. : Clic| 00000510 6b 4f 6e 25 3d a3 0d 01 b8 0c 41 6d 6f 64 65 25 |kOn%=.....Amode%| 00000520 3d 30 0d 01 c2 3b 24 6d 69 30 25 3d 22 69 69 63 |=0...;$mi0%="iic| 00000530 5f 30 22 3a 24 6d 69 31 25 3d 22 69 69 63 5f 31 |_0":$mi1%="iic_1| 00000540 22 3a 24 6d 69 32 25 3d 22 69 69 63 5f 32 22 3a |":$mi2%="iic_2":| 00000550 24 6d 69 33 25 3d 22 69 69 63 5f 33 22 0d 01 cc |$mi3%="iic_3"...| 00000560 0e f2 73 65 74 75 70 6d 65 6e 75 0d 01 d6 11 f2 |..setupmenu.....| 00000570 73 65 74 75 70 73 74 72 69 6e 67 73 0d 01 e0 09 |setupstrings....| 00000580 f2 5f 4d 42 53 0d 01 ea 04 0d 01 f4 05 f5 0d 01 |._MBS...........| 00000590 fe 1d 20 c8 99 20 22 57 69 6d 70 5f 50 6f 6c 6c |.. .. "Wimp_Poll| 000005a0 22 2c 30 2c 71 25 20 b8 20 41 25 0d 02 08 0d 20 |",0,q% . A%.... | 000005b0 20 c8 8e 20 41 25 20 ca 0d 02 12 11 20 20 20 c9 | .. A% ..... .| 000005c0 20 30 3a f2 5f 4e 75 6c 6c 0d 02 1c 15 20 20 20 | 0:._Null.... | 000005d0 c9 20 31 3a f2 5f 64 6f 57 69 6e 64 6f 77 0d 02 |. 1:._doWindow..| 000005e0 26 3c 20 20 20 c9 20 32 3a f2 5f 53 70 72 69 74 |&< . 2:._Sprit| 000005f0 65 4e 61 6d 65 20 3a 20 c8 99 20 22 57 69 6d 70 |eName : .. "Wimp| 00000600 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 25 |_OpenWindow",,q%| 00000610 20 3a 77 6f 70 65 6e 25 3d b9 0d 02 30 12 20 20 | :wopen%=...0. | 00000620 20 c9 20 33 3a f2 5f 63 6c 6f 73 65 0d 02 3a 21 | . 3:._close..:!| 00000630 20 20 20 c9 20 34 3a 49 6e 57 69 6e 25 3d a3 3a | . 4:InWin%=.:| 00000640 4c 58 25 3d 2d 31 3a 4c 59 25 3d 2d 31 0d 02 44 |LX%=-1:LY%=-1..D| 00000650 13 20 20 20 c9 20 35 3a 49 6e 57 69 6e 25 3d b9 |. . 5:InWin%=.| 00000660 0d 02 4e 19 20 20 20 c9 20 36 3a f2 5f 64 6f 5f |..N. . 6:._do_| 00000670 63 6c 69 63 6b 28 71 25 29 0d 02 58 0b 20 20 20 |click(q%)..X. | 00000680 c9 20 37 3a 0d 02 62 15 20 20 20 c9 20 38 3a f2 |. 7:..b. . 8:.| 00000690 5f 4b 65 79 50 72 65 73 73 0d 02 6c 16 20 20 20 |_KeyPress..l. | 000006a0 c9 20 39 3a f2 5f 53 4f 52 54 5f 4d 65 6e 75 0d |. 9:._SORT_Menu.| 000006b0 02 76 1b 20 20 20 c9 20 31 37 2c 31 38 3a f2 72 |.v. . 17,18:.r| 000006c0 65 63 65 69 76 65 28 71 25 29 0d 02 80 08 20 20 |eceive(q%).... | 000006d0 20 cb 0d 02 8a 08 20 fd 20 a3 0d 02 94 04 0d 02 | ..... . .......| 000006e0 9e 05 e0 0d 02 a8 04 0d 02 b2 0c dd 20 f2 5f 4e |............ ._N| 000006f0 75 6c 6c 0d 02 bc 11 ea 20 41 25 2c 42 25 2c 43 |ull..... A%,B%,C| 00000700 25 2c 58 25 0d 02 c6 34 f4 20 4c 6f 6f 6b 20 61 |%,X%...4. Look a| 00000710 74 20 69 6e 70 75 74 73 20 61 6e 64 20 75 70 64 |t inputs and upd| 00000720 61 74 65 20 64 69 73 70 6c 61 79 20 69 66 20 6e |ate display if n| 00000730 65 73 73 61 73 61 72 79 0d 02 d0 0e e7 20 77 6f |essasary..... wo| 00000740 70 65 6e 25 20 8c 0d 02 da 0d f2 5f 47 65 74 50 |pen% ......_GetP| 00000750 6f 72 74 0d 02 e4 13 20 f2 5f 54 72 61 6e 73 28 |ort.... ._Trans(| 00000760 6d 6f 6e 57 25 29 0d 02 ee 0e e3 20 41 25 3d 30 |monW%)..... A%=0| 00000770 20 b8 20 37 0d 02 f8 3f e7 20 4e 50 25 28 41 25 | . 7...?. NP%(A%| 00000780 29 3c 3e 50 4f 52 54 25 28 41 25 29 20 8c 20 f2 |)<>PORT%(A%) . .| 00000790 5f 55 70 50 28 41 25 2c 4e 50 25 28 41 25 29 29 |_UpP(A%,NP%(A%))| 000007a0 20 3a 50 4f 52 54 25 28 41 25 29 3d 4e 50 25 28 | :PORT%(A%)=NP%(| 000007b0 41 25 29 0d 03 02 05 ed 0d 03 0c 0f e7 20 44 72 |A%).......... Dr| 000007c0 61 67 4f 6e 25 20 8c 0d 03 16 0f c8 97 20 43 25 |agOn% ....... C%| 000007d0 2c 41 25 2c 42 25 0d 03 20 22 4e 50 25 28 31 29 |,A%,B%.. "NP%(1)| 000007e0 3d 43 25 2d 28 78 6f 25 2b 34 32 38 2b 38 30 2b |=C%-(xo%+428+80+| 000007f0 58 74 68 75 6d 62 25 29 0d 03 2a 19 e7 20 4e 50 |Xthumb%)..*.. NP| 00000800 25 28 31 29 3c 30 20 8c 20 4e 50 25 28 31 29 3d |%(1)<0 . NP%(1)=| 00000810 30 0d 03 34 1d e7 20 4e 50 25 28 31 29 3e 32 35 |0..4.. NP%(1)>25| 00000820 35 20 8c 20 4e 50 25 28 31 29 3d 32 35 35 0d 03 |5 . NP%(1)=255..| 00000830 3e 17 e7 20 42 25 3c 3e 34 20 8c 20 44 72 61 67 |>.. B%<>4 . Drag| 00000840 4f 6e 25 3d a3 0d 03 48 05 cd 0d 03 52 10 e7 20 |On%=...H....R.. | 00000850 43 6c 69 63 6b 4f 6e 25 20 8c 0d 03 5c 0f c8 97 |ClickOn% ...\...| 00000860 20 58 25 2c 41 25 2c 42 25 0d 03 66 19 20 e7 20 | X%,A%,B%..f. . | 00000870 42 25 3c 3e 34 20 8c 20 43 6c 69 63 6b 4f 6e 25 |B%<>4 . ClickOn%| 00000880 3d a3 0d 03 70 10 20 20 20 e7 20 91 3e 43 54 25 |=...p. . .>CT%| 00000890 20 8c 0d 03 7a 0f 20 20 20 20 41 25 3d a4 5f 57 | ...z. A%=._W| 000008a0 70 0d 03 84 0f 20 20 20 20 c8 8e 20 41 25 20 ca |p.... .. A% .| 000008b0 0d 03 8e 37 20 20 20 20 20 20 c9 20 31 3a 20 4e |...7 . 1: N| 000008c0 50 25 28 31 29 2d 3d 31 3a 20 43 54 25 3d 91 2b |P%(1)-=1: CT%=.+| 000008d0 38 3a e7 20 4e 50 25 28 31 29 3c 30 20 8c 20 4e |8:. NP%(1)<0 . N| 000008e0 50 25 28 31 29 3d 30 0d 03 98 3b 20 20 20 20 20 |P%(1)=0...; | 000008f0 20 c9 20 32 3a 20 4e 50 25 28 31 29 2b 3d 31 3a | . 2: NP%(1)+=1:| 00000900 20 43 54 25 3d 91 2b 38 3a e7 20 4e 50 25 28 31 | CT%=.+8:. NP%(1| 00000910 29 3e 32 35 35 20 8c 20 4e 50 25 28 31 29 3d 32 |)>255 . NP%(1)=2| 00000920 35 35 0d 03 a2 09 20 20 20 20 cb 0d 03 ac 08 20 |55.... ..... | 00000930 20 20 cd 0d 03 b6 07 20 20 cd 0d 03 c0 05 e1 0d | ..... .......| 00000940 03 ca 05 cd 0d 03 d4 05 e1 0d 03 de 04 0d 03 e8 |................| 00000950 11 dd 20 a4 5f 73 70 61 74 68 28 6e 24 29 0d 03 |.. ._spath(n$)..| 00000960 f2 0f c8 95 20 a7 6e 24 2c 22 2e 22 29 0d 03 fc |.... .n$,".")...| 00000970 13 6e 24 3d c2 6e 24 2c a9 28 6e 24 29 2d 31 29 |.n$=.n$,.(n$)-1)| 00000980 0d 04 06 05 ce 0d 04 10 1b e7 20 a9 28 6e 24 29 |.......... .(n$)| 00000990 3e 31 30 20 8c 20 6e 24 3d c2 6e 24 2c 31 30 29 |>10 . n$=.n$,10)| 000009a0 0d 04 1a 07 3d 6e 24 0d 04 24 04 0d 04 2e 0f dd |....=n$..$......| 000009b0 20 f2 5f 47 65 74 4e 61 6d 65 0d 04 38 0e ea 20 | ._GetName..8.. | 000009c0 54 25 2c 41 25 2c 46 24 0d 04 42 10 46 24 3d 22 |T%,A%,F$..B.F$="| 000009d0 22 3a 66 6e 24 3d 22 22 0d 04 4c 16 71 25 21 30 |":fn$=""..L.q%!0| 000009e0 3d 73 61 76 65 57 25 3a 71 25 21 34 3d 31 0d 04 |=saveW%:q%!4=1..| 000009f0 56 1e c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |V... "Wimp_GetIc| 00000a00 6f 6e 53 74 61 74 65 22 2c 2c 71 25 0d 04 60 0c |onState",,q%..`.| 00000a10 54 25 3d 71 25 21 32 38 0d 04 6a 09 54 25 2d 3d |T%=q%!28..j.T%-=| 00000a20 31 0d 04 74 05 f5 0d 04 7e 09 54 25 2b 3d 31 0d |1..t....~.T%+=1.| 00000a30 04 88 10 46 24 3d 46 24 2b bd 28 3f 54 25 29 0d |...F$=F$+.(?T%).| 00000a40 04 92 0b fd 20 3f 54 25 3d 30 0d 04 9c 16 66 6e |.... ?T%=0....fn| 00000a50 24 3d c1 46 24 2c 31 2c a9 28 46 24 29 2d 31 29 |$=.F$,1,.(F$)-1)| 00000a60 0d 04 a6 05 e1 0d 04 b0 04 0d 04 ba 11 dd 20 f2 |.............. .| 00000a70 5f 53 4f 52 54 5f 4d 65 6e 75 0d 04 c4 11 e7 20 |_SORT_Menu..... | 00000a80 49 63 6f 6e 4d 65 6e 75 25 20 8c 0d 04 ce 0c c8 |IconMenu% ......| 00000a90 8e 20 21 71 25 20 ca 0d 04 d8 4e c9 20 31 3a 20 |. !q% ....N. 1: | 00000aa0 6d 65 6e 75 25 21 35 32 3d 31 3a 6d 65 6e 75 25 |menu%!52=1:menu%| 00000ab0 21 37 36 3d 32 3a 20 4c 45 44 3d a3 20 3a c8 99 |!76=2: LED=. :..| 00000ac0 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 |"Wimp_ForceRedra| 00000ad0 77 22 2c 6d 6f 6e 57 25 2c 30 2c 2d 35 34 30 2c |w",monW%,0,-540,| 00000ae0 39 30 30 2c 30 0d 04 e2 4d c9 20 32 3a 20 6d 65 |900,0...M. 2: me| 00000af0 6e 75 25 21 35 32 3d 30 3a 6d 65 6e 75 25 21 37 |nu%!52=0:menu%!7| 00000b00 36 3d 33 3a 4c 45 44 3d b9 20 3a c8 99 22 57 69 |6=3:LED=. :.."Wi| 00000b10 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c |mp_ForceRedraw",| 00000b20 6d 6f 6e 57 25 2c 30 2c 2d 35 34 30 2c 39 30 30 |monW%,0,-540,900| 00000b30 2c 30 0d 04 ec 52 c9 20 33 3a 20 6d 65 6e 75 25 |,0...R. 3: menu%| 00000b40 21 31 30 30 3d 31 3a 6d 65 6e 75 25 21 31 32 34 |!100=1:menu%!124| 00000b50 3d 32 3a 4e 50 25 28 36 29 3d 28 50 4f 52 54 25 |=2:NP%(6)=(PORT%| 00000b60 28 36 29 20 80 20 26 46 29 20 84 20 26 37 30 3a |(6) . &F) . &70:| 00000b70 50 4f 52 54 25 28 36 29 3d 4e 50 25 28 36 29 3a |PORT%(6)=NP%(6):| 00000b80 f2 5f 49 4e 0d 04 f6 36 20 20 20 20 20 20 20 20 |._IN...6 | 00000b90 c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 |.."Wimp_ForceRed| 00000ba0 72 61 77 22 2c 6d 6f 6e 57 25 2c 30 2c 2d 35 30 |raw",monW%,0,-50| 00000bb0 30 2c 39 30 30 2c 2d 34 32 30 0d 05 00 52 c9 20 |0,900,-420...R. | 00000bc0 34 3a 20 6d 65 6e 75 25 21 31 30 30 3d 30 3a 6d |4: menu%!100=0:m| 00000bd0 65 6e 75 25 21 31 32 34 3d 33 3a 4e 50 25 28 36 |enu%!124=3:NP%(6| 00000be0 29 3d 28 50 4f 52 54 25 28 36 29 20 80 20 26 46 |)=(PORT%(6) . &F| 00000bf0 29 20 84 20 26 34 30 3a 50 4f 52 54 25 28 36 29 |) . &40:PORT%(6)| 00000c00 3d 4e 50 25 28 36 29 3a f2 5f 49 4e 0d 05 0a 36 |=NP%(6):._IN...6| 00000c10 20 20 20 20 20 20 20 20 c8 99 22 57 69 6d 70 5f | .."Wimp_| 00000c20 46 6f 72 63 65 52 65 64 72 61 77 22 2c 6d 6f 6e |ForceRedraw",mon| 00000c30 57 25 2c 30 2c 2d 35 30 30 2c 39 30 30 2c 2d 34 |W%,0,-500,900,-4| 00000c40 32 30 0d 05 14 0d c9 20 35 3a 20 f2 64 69 65 0d |20..... 5: .die.| 00000c50 05 1e 05 cb 0d 05 28 05 cc 0d 05 32 0d c8 8e 20 |......(....2... | 00000c60 71 25 21 30 20 ca 0d 05 3c 1f c9 20 31 3a 20 f2 |q%!0 ...<.. 1: .| 00000c70 5f 4d 74 69 63 6b 28 71 25 21 34 2c 36 2c 44 6d |_Mtick(q%!4,6,Dm| 00000c80 65 6e 75 25 29 0d 05 46 1c 20 20 20 20 20 20 20 |enu%)..F. | 00000c90 20 4d 65 74 65 72 4d 6f 6e 25 3d 71 25 21 34 2b | MeterMon%=q%!4+| 00000ca0 31 0d 05 50 1c 20 20 20 20 20 20 20 20 4d 6e 61 |1..P. Mna| 00000cb0 6d 65 25 3d 4d 65 74 65 72 4d 6f 6e 25 0d 05 5a |me%=MeterMon%..Z| 00000cc0 1b 20 20 20 20 20 20 20 20 20 c8 8e 20 4d 65 74 |. .. Met| 00000cd0 65 72 4d 6f 6e 25 20 ca 0d 05 64 33 20 20 20 20 |erMon% ...d3 | 00000ce0 20 20 20 20 20 20 c9 20 36 20 3a 4d 6e 61 6d 65 | . 6 :Mname| 00000cf0 25 3d 34 3a 50 4f 52 54 25 28 30 29 3d 50 4f 52 |%=4:PORT%(0)=POR| 00000d00 54 25 28 30 29 20 82 20 32 35 35 0d 05 6e 1b 20 |T%(0) . 255..n. | 00000d10 20 20 20 20 20 20 20 20 20 c9 20 35 20 3a 4d 6e | . 5 :Mn| 00000d20 61 6d 65 25 3d 30 0d 05 78 1b 20 20 20 20 20 20 |ame%=0..x. | 00000d30 20 20 20 20 c9 20 34 20 3a 4d 6e 61 6d 65 25 3d | . 4 :Mname%=| 00000d40 31 0d 05 82 1b 20 20 20 20 20 20 20 20 20 20 c9 |1.... .| 00000d50 20 33 20 3a 4d 6e 61 6d 65 25 3d 32 0d 05 8c 1b | 3 :Mname%=2....| 00000d60 20 20 20 20 20 20 20 20 20 20 c9 20 32 20 3a 4d | . 2 :M| 00000d70 6e 61 6d 65 25 3d 33 0d 05 96 0d 20 20 20 20 20 |name%=3.... | 00000d80 20 20 20 cb 0d 05 a0 17 20 20 20 20 20 20 20 20 | ..... | 00000d90 f2 5f 4e 61 6d 65 4d 65 74 65 72 0d 05 aa 20 c9 |._NameMeter... .| 00000da0 20 30 3a 20 20 f2 5f 4d 74 69 63 6b 28 71 25 21 | 0: ._Mtick(q%!| 00000db0 34 2c 34 2c 4d 6d 65 6e 75 25 29 0d 05 b4 18 20 |4,4,Mmenu%).... | 00000dc0 20 20 20 20 20 20 20 20 41 6d 6f 64 65 25 3d 71 | Amode%=q| 00000dd0 25 21 34 0d 05 be 05 cb 0d 05 c8 2b c8 99 22 57 |%!4........+.."W| 00000de0 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 |imp_ForceRedraw"| 00000df0 2c 6d 6f 6e 57 25 2c 30 2c 2d 35 34 30 2c 39 30 |,monW%,0,-540,90| 00000e00 30 2c 30 0d 05 d2 04 0d 05 dc 05 cd 0d 05 e6 05 |0,0.............| 00000e10 e1 0d 05 f0 04 0d 05 fa 18 dd 20 f2 5f 4d 74 69 |.......... ._Mti| 00000e20 63 6b 28 6e 25 2c 6e 69 25 2c 6d 25 29 0d 06 04 |ck(n%,ni%,m%)...| 00000e30 0b ea 20 41 25 2c 42 25 0d 06 0e 10 e3 20 41 25 |.. A%,B%..... A%| 00000e40 3d 31 20 b8 20 6e 69 25 0d 06 18 0e 42 25 3d 41 |=1 . ni%....B%=A| 00000e50 25 2a 32 34 2b 34 0d 06 22 16 6d 25 21 42 25 3d |%*24+4..".m%!B%=| 00000e60 6d 25 21 42 25 20 80 20 ac 28 31 29 0d 06 2c 05 |m%!B% . .(1)..,.| 00000e70 ed 0d 06 36 12 42 25 3d 28 6e 25 2b 31 29 2a 32 |...6.B%=(n%+1)*2| 00000e80 34 2b 34 0d 06 40 13 6d 25 21 42 25 3d 6d 25 21 |4+4..@.m%!B%=m%!| 00000e90 42 25 20 84 20 31 0d 06 4a 05 e1 0d 06 54 04 0d |B% . 1..J....T..| 00000ea0 06 5e 0d dd 20 f2 5f 63 6c 6f 73 65 0d 06 68 37 |.^.. ._close..h7| 00000eb0 e7 20 71 25 21 30 3d 6d 6f 6e 57 25 20 8c 20 c8 |. q%!0=monW% . .| 00000ec0 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow| 00000ed0 49 6e 66 6f 22 2c 2c 57 6e 25 3a 77 6f 70 65 6e |Info",,Wn%:wopen| 00000ee0 25 3d a3 0d 06 72 20 e7 20 71 25 21 30 3d 77 61 |%=...r . q%!0=wa| 00000ef0 72 6e 69 6e 67 57 25 20 8c 20 77 61 72 6e 4f 6e |rningW% . warnOn| 00000f00 25 3d a3 0d 06 7c 1d c8 99 20 22 57 69 6d 70 5f |%=...|... "Wimp_| 00000f10 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 71 25 |CloseWindow",,q%| 00000f20 0d 06 86 05 e1 0d 06 90 04 0d 06 9a 14 dd 20 f2 |.............. .| 00000f30 5f 64 6f 5f 63 6c 69 63 6b 28 71 25 29 0d 06 a4 |_do_click(q%)...| 00000f40 0c 69 25 3d 71 25 21 31 36 0d 06 ae 0e c8 8e 20 |.i%=q%!16...... | 00000f50 71 25 21 31 32 20 ca 0d 06 b8 28 c9 20 77 61 72 |q%!12 ....(. war| 00000f60 6e 69 6e 67 57 25 3a 20 71 25 21 30 3d 77 61 72 |ningW%: q%!0=war| 00000f70 6e 69 6e 67 57 25 20 3a f2 5f 63 6c 6f 73 65 0d |ningW% :._close.| 00000f80 06 c2 04 0d 06 cc 28 c9 20 2d 32 3a 20 f4 20 4c |......(. -2: . L| 00000f90 6f 6f 6b 20 66 69 72 73 74 20 61 74 20 49 63 6f |ook first at Ico| 00000fa0 6e 20 42 61 72 20 43 6c 69 63 6b 0d 06 d6 1e 20 |n Bar Click.... | 00000fb0 20 20 20 20 20 20 20 e7 20 71 25 21 31 36 3d 73 | . q%!16=s| 00000fc0 6d 70 69 63 6f 6e 25 20 8c 0d 06 e0 4a 20 20 20 |mpicon% ....J | 00000fd0 20 20 20 20 20 e7 20 71 25 21 38 3d 32 20 8c 20 | . q%!8=2 . | 00000fe0 49 63 6f 6e 4d 65 6e 75 25 3d b9 3a 20 c8 99 22 |IconMenu%=.: .."| 00000ff0 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"| 00001000 2c 2c 6d 65 6e 75 25 2c 71 25 21 30 2d 39 34 2c |,,menu%,q%!0-94,| 00001010 34 33 30 0d 06 ea 1d 20 20 20 20 20 20 20 20 e7 |430.... .| 00001020 20 71 25 21 38 3d 34 20 8c 20 f2 5f 4f 70 65 6e | q%!8=4 . ._Open| 00001030 0d 06 f4 0d 20 20 20 20 20 20 20 20 cd 0d 06 fe |.... ....| 00001040 04 0d 07 08 0e c9 20 6d 6f 6e 57 25 3a 20 20 0d |...... monW%: .| 00001050 07 12 27 20 20 20 20 20 20 20 20 20 20 20 20 20 |..' | 00001060 20 e7 20 71 25 21 38 3d 34 20 8c 20 f2 5f 4d 6f | . q%!8=4 . ._Mo| 00001070 6e 43 6c 69 63 6b 0d 07 1c 52 20 20 20 20 20 20 |nClick...R | 00001080 20 20 20 20 20 20 20 20 e7 20 71 25 21 38 3d 32 | . q%!8=2| 00001090 20 8c 20 49 63 6f 6e 4d 65 6e 75 25 3d a3 3a 20 | . IconMenu%=.: | 000010a0 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |.."Wimp_CreateMe| 000010b0 6e 75 22 2c 2c 57 6d 65 6e 75 25 2c 71 25 21 30 |nu",,Wmenu%,q%!0| 000010c0 2d 38 34 2c 71 25 21 34 0d 07 26 05 cb 0d 07 30 |-84,q%!4..&....0| 000010d0 05 e1 0d 07 3a 04 0d 07 44 04 0d 07 4e 10 dd 20 |....:...D...N.. | 000010e0 f2 5f 4d 6f 6e 43 6c 69 63 6b 0d 07 58 14 ea 20 |._MonClick..X.. | 000010f0 44 25 2c 56 25 2c 42 25 2c 58 25 2c 59 25 0d 07 |D%,V%,B%,X%,Y%..| 00001100 62 26 f4 20 44 6f 20 74 68 65 20 61 63 74 69 6f |b&. Do the actio| 00001110 6e 20 66 6f 72 20 61 20 77 69 6e 64 6f 77 20 63 |n for a window c| 00001120 6c 69 63 6b 0d 07 6c 0f c8 97 20 58 25 2c 59 25 |lick..l... X%,Y%| 00001130 2c 42 25 0d 07 76 0c 63 62 25 3d a4 5f 57 62 0d |,B%..v.cb%=._Wb.| 00001140 07 80 0c 63 72 25 3d a4 5f 57 72 0d 07 8a 15 e7 |...cr%=._Wr.....| 00001150 20 63 62 25 3c 38 20 80 20 63 72 25 3c 32 20 8c | cb%<8 . cr%<2 .| 00001160 0d 07 94 1e 4e 50 25 28 63 72 25 29 3d 4e 50 25 |....NP%(cr%)=NP%| 00001170 28 63 72 25 29 20 82 20 31 3c 3c 63 62 25 0d 07 |(cr%) . 1<<cb%..| 00001180 9e 26 e7 20 63 72 25 3d 30 20 8c 20 44 69 67 4d |.&. cr%=0 . DigM| 00001190 6f 6e 25 3d 44 69 67 4d 6f 6e 25 20 82 20 31 3c |on%=DigMon% . 1<| 000011a0 3c 63 62 25 0d 07 a8 05 cd 0d 07 b2 38 e7 20 63 |<cb%........8. c| 000011b0 72 25 3d 37 20 80 20 63 62 25 3e 30 20 80 20 63 |r%=7 . cb%>0 . c| 000011c0 62 25 3c 34 20 8c 20 4e 50 25 28 63 72 25 29 3d |b%<4 . NP%(cr%)=| 000011d0 4e 50 25 28 63 72 25 29 20 82 20 31 3c 3c 63 62 |NP%(cr%) . 1<<cb| 000011e0 25 0d 07 bc 38 e7 20 63 72 25 3d 36 20 80 20 63 |%...8. cr%=6 . c| 000011f0 62 25 3e 30 20 80 20 63 62 25 3c 34 20 8c 20 4e |b%>0 . cb%<4 . N| 00001200 50 25 28 63 72 25 29 3d 4e 50 25 28 63 72 25 29 |P%(cr%)=NP%(cr%)| 00001210 20 82 20 31 3c 3c 63 62 25 0d 07 c6 0d e7 20 63 | . 1<<cb%..... c| 00001220 72 25 3d 38 20 8c 0d 07 d0 0f 20 20 20 63 62 25 |r%=8 ..... cb%| 00001230 3d a4 5f 57 70 0d 07 da 0f 20 20 20 c8 8e 20 63 |=._Wp.... .. c| 00001240 62 25 20 ca 0d 07 e4 41 20 20 20 c9 20 31 3a 20 |b% ....A . 1: | 00001250 4e 50 25 28 31 29 2d 3d 31 3a 20 43 6c 69 63 6b |NP%(1)-=1: Click| 00001260 4f 6e 25 3d b9 3a 20 43 54 25 3d 91 2b 33 30 3a |On%=.: CT%=.+30:| 00001270 e7 20 4e 50 25 28 31 29 3c 30 20 8c 20 4e 50 25 |. NP%(1)<0 . NP%| 00001280 28 31 29 3d 30 0d 07 ee 45 20 20 20 c9 20 32 3a |(1)=0...E . 2:| 00001290 20 4e 50 25 28 31 29 2b 3d 31 3a 20 43 6c 69 63 | NP%(1)+=1: Clic| 000012a0 6b 4f 6e 25 3d b9 3a 20 43 54 25 3d 91 2b 33 30 |kOn%=.: CT%=.+30| 000012b0 3a e7 20 4e 50 25 28 31 29 3e 32 35 35 20 8c 20 |:. NP%(1)>255 . | 000012c0 4e 50 25 28 31 29 3d 32 35 35 0d 07 f8 2d 20 20 |NP%(1)=255...- | 000012d0 20 c9 20 33 3a 20 4e 50 25 28 31 29 2d 3d 31 36 | . 3: NP%(1)-=16| 000012e0 3a 20 e7 20 4e 50 25 28 31 29 3c 30 20 8c 20 4e |: . NP%(1)<0 . N| 000012f0 50 25 28 31 29 3d 30 0d 08 02 31 20 20 20 c9 20 |P%(1)=0...1 . | 00001300 34 3a 20 4e 50 25 28 31 29 2b 3d 31 36 3a 20 e7 |4: NP%(1)+=16: .| 00001310 20 4e 50 25 28 31 29 3e 32 35 35 20 8c 20 4e 50 | NP%(1)>255 . NP| 00001320 25 28 31 29 3d 32 35 35 0d 08 0c 15 20 20 20 c9 |%(1)=255.... .| 00001330 20 35 3a 20 44 72 61 67 4f 6e 25 3d b9 0d 08 16 | 5: DragOn%=....| 00001340 08 20 20 20 cb 0d 08 20 08 20 20 20 cd 0d 08 2a |. ... . ...*| 00001350 05 e1 0d 08 34 04 0d 08 3e 0c dd 20 f2 5f 4f 70 |....4...>.. ._Op| 00001360 65 6e 0d 08 48 10 f2 5f 53 70 72 69 74 65 4e 61 |en..H.._SpriteNa| 00001370 6d 65 0d 08 52 19 f4 20 4f 50 45 4e 20 55 50 20 |me..R.. OPEN UP | 00001380 57 49 4e 44 4f 57 20 48 45 52 45 0d 08 5c 0e e7 |WINDOW HERE..\..| 00001390 20 77 6f 70 65 6e 25 20 8c 0d 08 66 0e 71 25 21 | wopen% ...f.q%!| 000013a0 30 3d 6d 6f 6e 57 25 0d 08 70 1f c8 99 22 57 69 |0=monW%..p..."Wi| 000013b0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat| 000013c0 65 22 2c 2c 71 25 0d 08 7a 36 20 20 e7 20 71 25 |e",,q%..z6 . q%| 000013d0 21 32 38 3c 3e 2d 31 20 8c 20 71 25 21 32 38 3d |!28<>-1 . q%!28=| 000013e0 2d 31 3a 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 |-1: .. "Wimp_Ope| 000013f0 6e 57 69 6e 64 6f 77 22 2c 2c 71 25 0d 08 84 05 |nWindow",,q%....| 00001400 cc 0d 08 8e 1d c8 99 20 22 57 69 6d 70 5f 4f 70 |....... "Wimp_Op| 00001410 65 6e 57 69 6e 64 6f 77 22 2c 2c 57 6e 25 0d 08 |enWindow",,Wn%..| 00001420 98 0c 77 6f 70 65 6e 25 3d b9 0d 08 a2 05 cd 0d |..wopen%=.......| 00001430 08 ac 05 e1 0d 08 b6 04 0d 08 c0 10 dd 20 f2 5f |............. ._| 00001440 64 6f 57 69 6e 64 6f 77 0d 08 ca 10 20 20 ea 20 |doWindow.... . | 00001450 41 25 2c 49 25 2c 4c 25 0d 08 d4 04 0d 08 de 15 |A%,I%,L%........| 00001460 20 20 20 f2 5f 54 72 61 6e 73 28 6d 6f 6e 57 25 | ._Trans(monW%| 00001470 29 0d 08 e8 29 20 20 20 c8 99 20 22 57 69 6d 70 |)...) .. "Wimp| 00001480 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 22 2c 2c |_RedrawWindow",,| 00001490 71 25 20 b8 20 66 6c 61 67 25 0d 08 f2 11 20 20 |q% . flag%.... | 000014a0 20 20 20 c8 95 20 66 6c 61 67 25 0d 08 fc 04 0d | .. flag%.....| 000014b0 09 06 0f 20 20 20 20 20 f2 5f 44 6d 70 77 0d 09 |... ._Dmpw..| 000014c0 10 2b 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f |.+ .. "Wimp_| 000014d0 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 71 |GetRectangle",,q| 000014e0 25 20 b8 20 66 6c 61 67 25 0d 09 1a 0a 20 20 20 |% . flag%.... | 000014f0 20 20 ce 0d 09 24 06 20 20 0d 09 2e 07 20 20 e1 | ...$. .... .| 00001500 0d 09 38 04 0d 09 42 0e dd 20 a4 70 6f 69 6e 74 |..8...B.. .point| 00001510 53 71 0d 09 4c 11 ea 20 58 25 2c 59 25 2c 42 25 |Sq..L.. X%,Y%,B%| 00001520 2c 52 25 0d 09 56 12 f2 5f 54 72 61 6e 73 28 6d |,R%..V.._Trans(m| 00001530 6f 6e 57 25 29 0d 09 60 0f c8 97 20 58 25 2c 59 |onW%)..`... X%,Y| 00001540 25 2c 42 25 0d 09 6a 08 52 25 3d 30 0d 09 74 29 |%,B%..j.R%=0..t)| 00001550 e7 20 28 58 25 3c 28 78 6f 25 2b 33 30 29 20 80 |. (X%<(xo%+30) .| 00001560 20 59 25 3c 28 79 6f 25 2b 33 30 29 20 29 20 8c | Y%<(yo%+30) ) .| 00001570 20 52 25 3d 31 0d 09 7e 2e e7 20 28 58 25 3e 28 | R%=1..~.. (X%>(| 00001580 78 6f 25 2b 32 34 36 2a 78 73 25 29 20 80 20 59 |xo%+246*xs%) . Y| 00001590 25 3c 28 79 6f 25 2b 33 30 29 20 29 20 8c 20 52 |%<(yo%+30) ) . R| 000015a0 25 3d 32 0d 09 88 07 3d 52 25 0d 09 92 04 0d 09 |%=2....=R%......| 000015b0 9c 0c dd 20 f2 5f 44 6d 70 77 0d 09 a6 0e ea 20 |... ._Dmpw..... | 000015c0 41 25 2c 42 25 2c 56 25 0d 09 b0 12 f2 5f 54 72 |A%,B%,V%....._Tr| 000015d0 61 6e 73 28 6d 6f 6e 57 25 29 0d 09 ba 0d f2 5f |ans(monW%)....._| 000015e0 47 65 74 50 6f 72 74 0d 09 c4 0e e3 20 42 25 3d |GetPort..... B%=| 000015f0 30 20 b8 20 37 0d 09 ce 0e e3 20 41 25 3d 30 20 |0 . 7..... A%=0 | 00001600 b8 20 37 0d 09 d8 1c 56 25 3d 50 4f 52 54 25 28 |. 7....V%=PORT%(| 00001610 42 25 29 20 80 20 31 3c 3c 28 37 2d 41 25 29 0d |B%) . 1<<(7-A%).| 00001620 09 e2 12 f2 5f 57 53 28 41 25 2c 42 25 2c 56 25 |...._WS(A%,B%,V%| 00001630 29 0d 09 ec 05 ed 0d 09 f6 17 f2 5f 48 65 78 28 |).........._Hex(| 00001640 50 4f 52 54 25 28 42 25 29 2c 42 25 29 0d 0a 00 |PORT%(B%),B%)...| 00001650 05 ed 0d 0a 0a 06 ef 35 0d 0a 14 0e e3 20 41 25 |.......5..... A%| 00001660 3d 30 20 b8 20 37 0d 0a 1e 19 ec 20 78 6f 25 2b |=0 . 7..... xo%+| 00001670 35 32 2b 41 25 2a 34 30 2c 79 6f 25 2b 33 32 0d |52+A%*40,yo%+32.| 00001680 0a 28 0a f1 3b 37 2d 41 25 0d 0a 32 05 ed 0d 0a |.(..;7-A%..2....| 00001690 3c 14 f4 20 52 65 67 69 73 74 65 72 20 6e 61 6d |<.. Register nam| 000016a0 65 73 0d 0a 46 0e e3 20 41 25 3d 30 20 b8 20 35 |es..F.. A%=0 . 5| 000016b0 0d 0a 50 1a ec 20 78 6f 25 2b 35 36 2c 79 6f 25 |..P.. xo%+56,yo%| 000016c0 2b 31 31 34 2b 41 25 2a 38 30 0d 0a 5a 46 e7 20 |+114+A%*80..ZF. | 000016d0 ac 28 28 41 6d 6f 64 65 25 3d 33 20 80 20 28 41 |.((Amode%=3 . (A| 000016e0 25 3d 32 20 84 20 41 25 3d 33 29 29 20 84 20 28 |%=2 . A%=3)) . (| 000016f0 28 41 6d 6f 64 65 25 3d 32 20 84 20 41 6d 6f 64 |(Amode%=2 . Amod| 00001700 65 25 3d 31 29 20 80 20 41 25 3d 32 29 29 20 8c |e%=1) . A%=2)) .| 00001710 0d 0a 64 0e f1 20 52 65 67 24 28 41 25 29 0d 0a |..d.. Reg$(A%)..| 00001720 6e 05 cd 0d 0a 78 05 ed 0d 0a 82 18 ec 20 78 6f |n....x....... xo| 00001730 25 2b 37 36 2b 34 32 38 2c 79 6f 25 2b 31 31 34 |%+76+428,yo%+114| 00001740 0d 0a 8c 47 e7 20 28 50 4f 52 54 25 28 36 29 20 |...G. (PORT%(6) | 00001750 80 20 26 46 30 29 20 3d 20 26 37 30 20 8c 20 f1 |. &F0) = &70 . .| 00001760 22 50 43 46 38 35 37 34 41 20 41 64 64 72 65 73 |"PCF8574A Addres| 00001770 73 22 20 8b 20 f1 22 50 43 46 38 35 37 34 20 41 |s" . ."PCF8574 A| 00001780 64 64 72 65 73 73 22 0d 0a 96 1d ec 20 78 6f 25 |ddress"..... xo%| 00001790 2b 37 36 2b 34 32 38 2c 79 6f 25 2b 31 31 34 2b |+76+428,yo%+114+| 000017a0 35 2a 38 30 0d 0a a0 17 f1 22 20 50 43 46 38 35 |5*80....." PCF85| 000017b0 39 31 20 41 64 64 72 65 73 73 22 0d 0a aa 06 ef |91 Address".....| 000017c0 34 0d 0a b4 05 e1 0d 0a be 04 0d 0a c8 12 dd 20 |4.............. | 000017d0 f2 5f 48 65 78 28 56 25 2c 59 25 29 0d 0a d2 0d |._Hex(V%,Y%)....| 000017e0 ea 20 76 24 2c 78 6f 31 25 0d 0a dc 20 e7 20 41 |. v$,xo1%... . A| 000017f0 6d 6f 64 65 25 3d 33 20 80 20 59 25 3e 31 20 80 |mode%=3 . Y%>1 .| 00001800 20 59 25 3c 34 20 8c 20 e1 0d 0a e6 2d e7 20 28 | Y%<4 . ....-. (| 00001810 41 6d 6f 64 65 25 3d 32 20 84 20 41 6d 6f 64 65 |Amode%=2 . Amode| 00001820 25 3d 31 29 20 80 20 59 25 3e 31 20 80 20 59 25 |%=1) . Y%>1 . Y%| 00001830 3c 33 20 8c 20 e1 0d 0a f0 09 59 25 2b 3d 31 0d |<3 . .....Y%+=1.| 00001840 0a fa 0c 78 6f 31 25 3d 78 6f 25 0d 0b 04 16 e7 |...xo1%=xo%.....| 00001850 20 59 25 3d 32 20 8c 20 f2 5f 42 61 72 28 56 25 | Y%=2 . ._Bar(V%| 00001860 29 0d 0b 0e 38 e7 20 28 59 25 2d 31 3d 4d 65 74 |)...8. (Y%-1=Met| 00001870 65 72 4d 6f 6e 25 29 20 84 20 28 4d 6e 61 6d 65 |erMon%) . (Mname| 00001880 25 3d 34 20 80 20 59 25 3d 31 29 20 8c 20 f2 5f |%=4 . Y%=1) . ._| 00001890 4d 65 74 65 72 28 56 25 29 0d 0b 18 0c e7 20 59 |Meter(V%)..... Y| 000018a0 25 3e 36 20 8c 0d 0b 22 1b e7 20 59 25 3d 37 20 |%>6 ...".. Y%=7 | 000018b0 8c 20 59 25 3d 31 3a 78 6f 31 25 2b 3d 34 32 38 |. Y%=1:xo1%+=428| 000018c0 0d 0b 2c 1c e7 20 59 25 3d 38 20 8c 20 59 25 3d |..,.. Y%=8 . Y%=| 000018d0 36 3a 20 78 6f 31 25 2b 3d 34 32 38 0d 0b 36 05 |6: xo1%+=428..6.| 000018e0 cd 0d 0b 40 04 0d 0b 4a 39 e7 20 4c 45 44 20 8c |...@...J9. LED .| 000018f0 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f | .."Wimp_SetColo| 00001900 75 72 22 2c 31 30 20 8b 20 c8 99 22 57 69 6d 70 |ur",10 . .."Wimp| 00001910 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 31 35 0d 0b |_SetColour",15..| 00001920 54 27 e7 20 4e 63 6f 6c 6f 75 72 73 25 3c 34 20 |T'. Ncolours%<4 | 00001930 80 20 4e 63 6f 6c 6f 75 72 73 25 3e 30 20 8c 20 |. Ncolours%>0 . | 00001940 e6 20 30 2c 30 0d 0b 5e 22 c8 93 c8 90 20 78 6f |. 0,0..^".... xo| 00001950 31 25 2b 33 38 30 2c 79 6f 31 25 2b 34 30 2a 59 |1%+380,yo1%+40*Y| 00001960 25 2c 35 34 2c 34 30 0d 0b 68 18 c8 99 22 57 69 |%,54,40..h..."Wi| 00001970 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 0d |mp_SetColour",7.| 00001980 0b 72 21 c8 93 20 78 6f 31 25 2b 20 33 38 30 2c |.r!.. xo1%+ 380,| 00001990 79 6f 31 25 2b 59 25 2a 34 30 2c 35 34 2c 34 30 |yo1%+Y%*40,54,40| 000019a0 0d 0b 7c 06 ef 35 0d 0b 86 1c ec 20 78 6f 31 25 |..|..5..... xo1%| 000019b0 2b 33 38 34 2c 79 6f 31 25 2b 59 25 2a 34 30 2b |+384,yo1%+Y%*40+| 000019c0 33 32 0d 0b 90 0d 76 24 3d c3 7e 28 56 25 29 0d |32....v$=.~(V%).| 000019d0 0b 9a 19 e7 20 a9 28 76 24 29 3d 31 20 8c 20 76 |.... .(v$)=1 . v| 000019e0 24 3d 22 30 22 2b 76 24 0d 0b a4 4f e7 20 28 44 |$="0"+v$...O. (D| 000019f0 65 76 69 63 65 44 25 3d b9 20 80 20 59 25 3d 31 |eviceD%=. . Y%=1| 00001a00 29 20 84 20 28 44 65 76 69 63 65 41 25 3d b9 20 |) . (DeviceA%=. | 00001a10 80 20 59 25 3c 3e 31 29 20 84 20 78 6f 31 25 3c |. Y%<>1) . xo1%<| 00001a20 3e 78 6f 25 20 8c 20 f1 22 26 22 3b 76 24 20 8b |>xo% . ."&";v$ .| 00001a30 20 f1 22 26 58 58 22 0d 0b ae 06 ef 34 0d 0b b8 | ."&XX".....4...| 00001a40 05 e1 0d 0b c2 04 0d 0b cc 14 dd 20 f2 5f 57 53 |........... ._WS| 00001a50 28 58 25 2c 59 25 2c 56 25 29 0d 0b d6 0d ea 20 |(X%,Y%,V%)..... | 00001a60 53 25 2c 78 6f 31 25 0d 0b e0 20 e7 20 41 6d 6f |S%,xo1%... . Amo| 00001a70 64 65 25 3d 33 20 80 20 59 25 3e 31 20 80 20 59 |de%=3 . Y%>1 . Y| 00001a80 25 3c 34 20 8c 20 e1 0d 0b ea 2d e7 20 28 41 6d |%<4 . ....-. (Am| 00001a90 6f 64 65 25 3d 32 20 84 20 41 6d 6f 64 65 25 3d |ode%=2 . Amode%=| 00001aa0 31 29 20 80 20 59 25 3e 31 20 80 20 59 25 3c 33 |1) . Y%>1 . Y%<3| 00001ab0 20 8c 20 e1 0d 0b f4 04 0d 0b fe 09 53 25 3d 34 | . .........S%=4| 00001ac0 30 0d 0c 08 0c 78 6f 31 25 3d 78 6f 25 0d 0c 12 |0....xo1%=xo%...| 00001ad0 04 0d 0c 1c 0d e7 20 59 25 3e 35 20 8c 20 0d 0c |...... Y%>5 . ..| 00001ae0 26 1b e7 20 59 25 3d 36 20 8c 20 59 25 3d 30 3a |&.. Y%=6 . Y%=0:| 00001af0 78 6f 31 25 2b 3d 34 32 38 0d 0c 30 1c e7 20 59 |xo1%+=428..0.. Y| 00001b00 25 3d 37 20 8c 20 59 25 3d 35 3a 20 78 6f 31 25 |%=7 . Y%=5: xo1%| 00001b10 2b 3d 34 32 38 0d 0c 3a 05 cd 0d 0c 44 04 0d 0c |+=428..:....D...| 00001b20 4e 12 79 6f 31 25 3d 79 6f 25 2b 59 25 2a 53 25 |N.yo1%=yo%+Y%*S%| 00001b30 0d 0c 58 0b e7 20 4c 45 44 20 8c 0d 0c 62 18 c8 |..X.. LED ...b..| 00001b40 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 |."Wimp_SetColour| 00001b50 22 2c 37 0d 0c 6c 30 c8 8f c8 90 20 32 30 2b 78 |",7..l0.... 20+x| 00001b60 6f 31 25 2b 20 53 25 20 2b 20 58 25 2a 53 25 2c |o1%+ S% + X%*S%,| 00001b70 32 30 2b 79 6f 31 25 2b 53 25 2b 59 25 2a 53 25 |20+yo1%+S%+Y%*S%| 00001b80 2c 31 36 0d 0c 76 3e e7 20 28 44 65 76 69 63 65 |,16..v>. (Device| 00001b90 44 25 3d b9 20 80 20 59 25 3d 30 29 20 84 20 28 |D%=. . Y%=0) . (| 00001ba0 44 65 76 69 63 65 41 25 3d b9 20 80 20 59 25 3c |DeviceA%=. . Y%<| 00001bb0 3e 30 29 20 84 20 78 6f 25 3c 3e 78 6f 31 25 20 |>0) . xo%<>xo1% | 00001bc0 8c 0d 0c 80 39 e7 20 56 25 3d 30 20 8c 20 c8 99 |....9. V%=0 . ..| 00001bd0 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 |"Wimp_SetColour"| 00001be0 2c 34 20 8b 20 c8 99 22 57 69 6d 70 5f 53 65 74 |,4 . .."Wimp_Set| 00001bf0 43 6f 6c 6f 75 72 22 2c 31 31 0d 0c 8a 05 cd 0d |Colour",11......| 00001c00 0c 94 2f c8 8f c8 90 20 32 30 2b 78 6f 31 25 2b |../.... 20+xo1%+| 00001c10 53 25 20 2b 20 58 25 2a 53 25 2c 32 30 2b 79 6f |S% + X%*S%,20+yo| 00001c20 31 25 2b 53 25 2b 53 25 2a 59 25 2c 31 30 0d 0c |1%+S%+S%*Y%,10..| 00001c30 9e 04 0d 0c a8 05 cc 0d 0c b2 40 e7 20 4e 63 6f |..........@. Nco| 00001c40 6c 6f 75 72 73 25 3e 31 35 20 84 20 4e 63 6f 6c |lours%>15 . Ncol| 00001c50 6f 75 72 73 25 3c 30 20 8c 20 e6 20 30 2c 34 35 |ours%<0 . . 0,45| 00001c60 20 8b 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f | . .."Wimp_SetCo| 00001c70 6c 6f 75 72 22 2c 30 0d 0c bc 2c c8 93 c8 90 20 |lour",0...,.... | 00001c80 78 6f 31 25 2b 53 25 20 2b 20 58 25 2a 53 25 2c |xo1%+S% + X%*S%,| 00001c90 79 6f 31 25 2b 53 25 2b 53 25 2a 59 25 2c 53 25 |yo1%+S%+S%*Y%,S%| 00001ca0 2c 53 25 0d 0c c6 18 c8 99 22 57 69 6d 70 5f 53 |,S%......"Wimp_S| 00001cb0 65 74 43 6f 6c 6f 75 72 22 2c 37 0d 0c d0 2b c8 |etColour",7...+.| 00001cc0 93 20 78 6f 31 25 2b 20 53 25 20 2b 20 58 25 2a |. xo1%+ S% + X%*| 00001cd0 53 25 2c 79 6f 31 25 2b 53 25 2b 59 25 2a 53 25 |S%,yo1%+S%+Y%*S%| 00001ce0 2c 53 25 2c 53 25 0d 0c da 06 ef 35 0d 0c e4 28 |,S%,S%.....5...(| 00001cf0 ec 20 78 6f 31 25 2b 53 25 2b 58 25 2a 53 25 2b |. xo1%+S%+X%*S%+| 00001d00 31 32 2c 79 6f 31 25 2b 53 25 2a 32 2b 59 25 2a |12,yo1%+S%*2+Y%*| 00001d10 53 25 2d 38 0d 0c ee 3e e7 20 28 44 65 76 69 63 |S%-8...>. (Devic| 00001d20 65 44 25 3d b9 20 80 20 59 25 3d 30 29 20 84 20 |eD%=. . Y%=0) . | 00001d30 28 44 65 76 69 63 65 41 25 3d b9 20 80 20 59 25 |(DeviceA%=. . Y%| 00001d40 3c 3e 30 29 20 84 20 78 6f 25 3c 3e 78 6f 31 25 |<>0) . xo%<>xo1%| 00001d50 20 8c 0d 0c f8 18 e7 20 56 25 3d 30 20 8c 20 f1 | ...... V%=0 . .| 00001d60 22 30 22 20 8b 20 f1 22 31 22 0d 0d 02 05 cc 0d |"0" . ."1"......| 00001d70 0d 0c 08 f1 22 58 22 0d 0d 16 05 cd 0d 0d 20 06 |...."X"....... .| 00001d80 ef 34 0d 0d 2a 05 cd 0d 0d 34 05 e1 0d 0d 3e 04 |.4..*....4....>.| 00001d90 0d 0d 48 12 dd 20 f2 5f 55 70 50 28 50 25 2c 56 |..H.. ._UpP(P%,V| 00001da0 25 29 0d 0d 52 0e ea 20 54 25 2c 41 25 2c 45 25 |%)..R.. T%,A%,E%| 00001db0 0d 0d 5c 33 20 20 71 25 21 30 3d 6d 6f 6e 57 25 |..\3 q%!0=monW%| 00001dc0 3a 71 25 21 34 3d 30 3a 71 25 21 38 3d 2d 35 34 |:q%!4=0:q%!8=-54| 00001dd0 30 3a 71 25 21 31 32 3d 39 30 30 3a 71 25 21 31 |0:q%!12=900:q%!1| 00001de0 36 3d 30 0d 0d 66 27 20 20 c8 99 22 57 69 6d 70 |6=0..f' .."Wimp| 00001df0 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_UpdateWindow",,| 00001e00 71 25 20 b8 20 4d 6f 72 65 25 0d 0d 70 04 0d 0d |q% . More%..p...| 00001e10 7a 0d 20 c8 95 20 4d 6f 72 65 25 0d 0d 84 04 0d |z. .. More%.....| 00001e20 0d 8e 10 20 20 e3 20 41 25 3d 30 20 b8 20 37 0d |... . A%=0 . 7.| 00001e30 0d 98 17 20 20 54 25 3d 56 25 20 80 20 31 3c 3c |... T%=V% . 1<<| 00001e40 28 37 2d 41 25 29 0d 0d a2 1e 20 20 45 25 3d 50 |(7-A%).... E%=P| 00001e50 4f 52 54 25 28 50 25 29 20 80 20 31 3c 3c 28 37 |ORT%(P%) . 1<<(7| 00001e60 2d 41 25 29 0d 0d ac 1d 20 20 e7 20 54 25 3c 3e |-A%).... . T%<>| 00001e70 45 25 20 f2 5f 57 53 28 41 25 2c 50 25 2c 54 25 |E% ._WS(A%,P%,T%| 00001e80 29 0d 0d b6 07 20 20 ed 0d 0d c0 12 20 20 f2 5f |).... ..... ._| 00001e90 48 65 78 28 56 25 2c 50 25 29 0d 0d ca 06 20 20 |Hex(V%,P%).... | 00001ea0 0d 0d d4 27 20 20 c8 99 22 57 69 6d 70 5f 47 65 |...' .."Wimp_Ge| 00001eb0 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 71 25 20 |tRectangle",,q% | 00001ec0 b8 20 4d 6f 72 65 25 0d 0d de 06 20 ce 0d 0d e8 |. More%.... ....| 00001ed0 04 0d 0d f2 05 e1 0d 0d fc 04 0d 0e 06 13 f4 20 |............... | 00001ee0 57 68 61 74 20 72 65 67 69 73 74 65 72 0d 0e 10 |What register...| 00001ef0 0a dd 20 a4 5f 57 72 0d 0e 1a 0c ea 20 54 59 25 |.. ._Wr..... TY%| 00001f00 2c 52 25 0d 0e 24 0f 20 54 59 25 3d 59 25 2d 79 |,R%..$. TY%=Y%-y| 00001f10 6f 25 0d 0e 2e 09 20 52 25 3d 33 0d 0e 38 1f 20 |o%.... R%=3..8. | 00001f20 e7 20 54 59 25 3e 3d 34 30 20 80 20 54 59 25 3c |. TY%>=40 . TY%<| 00001f30 3d 38 30 20 8c 20 52 25 3d 30 0d 0e 42 21 20 e7 |=80 . R%=0..B! .| 00001f40 20 54 59 25 3e 3d 31 32 30 20 80 20 54 59 25 3c | TY%>=120 . TY%<| 00001f50 3d 31 36 30 20 8c 20 52 25 3d 31 0d 0e 4c 13 20 |=160 . R%=1..L. | 00001f60 e7 20 58 25 2d 78 6f 25 3e 33 38 30 20 8c 0d 0e |. X%-xo%>380 ...| 00001f70 56 12 20 e7 20 52 25 3d 30 20 8c 20 52 25 3d 36 |V. . R%=0 . R%=6| 00001f80 0d 0e 60 12 20 e7 20 52 25 3d 31 20 8c 20 52 25 |..`. . R%=1 . R%| 00001f90 3d 38 0d 0e 6a 21 20 e7 20 54 59 25 3e 3d 34 34 |=8..j! . TY%>=44| 00001fa0 30 20 80 20 54 59 25 3c 3d 34 38 30 20 8c 20 52 |0 . TY%<=480 . R| 00001fb0 25 3d 37 0d 0e 74 06 20 cd 0d 0e 7e 07 3d 52 25 |%=7..t. ...~.=R%| 00001fc0 0d 0e 88 0e f4 20 57 68 61 74 20 62 69 74 0d 0e |..... What bit..| 00001fd0 92 0a dd 20 a4 5f 57 62 0d 0e 9c 08 ea 20 42 25 |... ._Wb..... B%| 00001fe0 0d 0e a6 19 42 25 3d 37 2d a8 28 28 58 25 2d 78 |....B%=7-.((X%-x| 00001ff0 6f 25 29 2f 34 30 2d 31 29 0d 0e b0 2d e7 20 42 |o%)/40-1)...-. B| 00002000 25 3e 37 20 84 20 42 25 3c 30 20 8c 20 42 25 3d |%>7 . B%<0 . B%=| 00002010 37 2d a8 28 28 58 25 2d 78 6f 25 2d 34 32 38 29 |7-.((X%-xo%-428)| 00002020 2f 34 30 2d 31 29 0d 0e ba 18 e7 20 42 25 3e 37 |/40-1)..... B%>7| 00002030 20 84 20 42 25 3c 30 20 8c 20 42 25 3d 38 0d 0e | . B%<0 . B%=8..| 00002040 c4 07 3d 42 25 0d 0e ce 04 0d 0e d8 1b f4 20 57 |..=B%......... W| 00002050 68 61 74 20 70 61 72 74 20 6f 66 20 64 72 61 67 |hat part of drag| 00002060 20 62 61 72 0d 0e e2 0a dd 20 a4 5f 57 70 0d 0e | bar..... ._Wp..| 00002070 ec 0e ea 20 42 25 2c 44 25 2c 54 25 0d 0e f6 13 |... B%,D%,T%....| 00002080 44 25 3d 28 58 25 2d 78 6f 25 2d 34 32 38 29 0d |D%=(X%-xo%-428).| 00002090 0f 00 08 42 25 3d 30 0d 0f 0a 21 54 25 3d 44 25 |...B%=0...!T%=D%| 000020a0 2d 28 38 30 2b 50 4f 52 54 25 28 31 29 2a 31 2e |-(80+PORT%(1)*1.| 000020b0 30 38 35 39 33 37 35 29 0d 0f 14 11 e7 20 54 25 |0859375)..... T%| 000020c0 3c 30 20 8c 20 42 25 3d 33 0d 0f 1e 12 e7 20 54 |<0 . B%=3..... T| 000020d0 25 3e 34 34 20 8c 20 42 25 3d 34 0d 0f 28 24 e7 |%>44 . B%=4..($.| 000020e0 20 54 25 3c 34 34 20 80 20 54 25 3e 30 20 8c 20 | T%<44 . T%>0 . | 000020f0 42 25 3d 35 3a 58 74 68 75 6d 62 25 3d 54 25 0d |B%=5:Xthumb%=T%.| 00002100 0f 32 04 0d 0f 3c 1c e7 20 44 25 3e 26 32 38 20 |.2...<.. D%>&28 | 00002110 80 20 44 25 3c 26 34 45 20 8c 20 42 25 3d 31 0d |. D%<&4E . B%=1.| 00002120 0f 46 1e e7 20 44 25 3e 26 31 38 46 20 80 20 44 |.F.. D%>&18F . D| 00002130 25 3c 26 31 42 31 20 8c 20 42 25 3d 32 0d 0f 50 |%<&1B1 . B%=2..P| 00002140 07 3d 42 25 0d 0f 5a 04 0d 0f 64 12 dd 20 f2 5f |.=B%..Z...d.. ._| 00002150 54 72 61 6e 73 28 77 68 25 29 0d 0f 6e 0b 21 71 |Trans(wh%)..n.!q| 00002160 25 3d 77 68 25 0d 0f 78 20 c8 99 20 22 57 69 6d |%=wh%..x .. "Wim| 00002170 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 |p_GetWindowState| 00002180 22 2c 2c 71 25 0d 0f 82 28 78 6f 25 3d 71 25 21 |",,q%...(xo%=q%!| 00002190 34 2d 71 25 21 32 30 2b 38 3a 79 6f 25 3d 71 25 |4-q%!20+8:yo%=q%| 000021a0 21 31 36 2d 71 25 21 32 34 2d 35 34 30 0d 0f 8c |!16-q%!24-540...| 000021b0 16 58 4f 25 3d 71 25 21 34 3a 59 4f 25 3d 71 25 |.XO%=q%!4:YO%=q%| 000021c0 21 31 36 0d 0f 96 05 e1 0d 0f a0 04 0d 0f aa 0f |!16.............| 000021d0 dd f2 73 65 74 75 70 6d 65 6e 75 0d 0f b4 08 ea |..setupmenu.....| 000021e0 20 6d 25 0d 0f be 04 0d 0f c8 15 24 57 6d 65 6e | m%........$Wmen| 000021f0 75 25 3d 22 49 49 43 5f 4d 6f 6e 22 0d 0f d2 0f |u%="IIC_Mon"....| 00002200 57 6d 65 6e 75 25 3f 31 32 3d 37 0d 0f dc 0f 57 |Wmenu%?12=7....W| 00002210 6d 65 6e 75 25 3f 31 33 3d 32 0d 0f e6 0f 57 6d |menu%?13=2....Wm| 00002220 65 6e 75 25 3f 31 34 3d 37 0d 0f f0 0f 57 6d 65 |enu%?14=7....Wme| 00002230 6e 75 25 3f 31 35 3d 30 0d 0f fa 11 57 6d 65 6e |nu%?15=0....Wmen| 00002240 75 25 21 31 36 3d 31 32 38 0d 10 04 10 57 6d 65 |u%!16=128....Wme| 00002250 6e 75 25 21 32 30 3d 34 30 0d 10 0e 0f 57 6d 65 |nu%!20=40....Wme| 00002260 6e 75 25 21 32 34 3d 30 0d 10 18 04 0d 10 22 10 |nu%!24=0......".| 00002270 6d 25 3d 57 6d 65 6e 75 25 2b 32 38 0d 10 2c 0a |m%=Wmenu%+28..,.| 00002280 6d 25 21 30 3d 30 0d 10 36 0f 6d 25 21 34 3d 4d |m%!0=0..6.m%!4=M| 00002290 6d 65 6e 75 25 0d 10 40 18 6d 25 21 38 3d 28 37 |menu%..@.m%!8=(7| 000022a0 3c 3c 32 34 29 84 20 25 31 30 30 30 31 0d 10 4a |<<24). %10001..J| 000022b0 13 24 28 6d 25 2b 31 32 29 3d 22 4d 6f 64 65 22 |.$(m%+12)="Mode"| 000022c0 0d 10 54 04 0d 10 5e 0a 6d 25 2b 3d 32 34 0d 10 |..T...^.m%+=24..| 000022d0 68 0c 6d 25 21 30 3d 26 38 30 0d 10 72 0f 6d 25 |h.m%!0=&80..r.m%| 000022e0 21 34 3d 44 6d 65 6e 75 25 0d 10 7c 18 6d 25 21 |!4=Dmenu%..|.m%!| 000022f0 38 3d 28 37 3c 3c 32 34 29 84 20 25 31 30 30 30 |8=(7<<24). %1000| 00002300 31 0d 10 86 14 24 28 6d 25 2b 31 32 29 3d 22 4d |1....$(m%+12)="M| 00002310 65 74 65 72 22 0d 10 90 04 0d 10 9a 12 24 4d 6d |eter"........$Mm| 00002320 65 6e 75 25 3d 22 4d 6f 64 65 22 0d 10 a4 0f 4d |enu%="Mode"....M| 00002330 6d 65 6e 75 25 3f 31 32 3d 37 0d 10 ae 0f 4d 6d |menu%?12=7....Mm| 00002340 65 6e 75 25 3f 31 33 3d 32 0d 10 b8 0f 4d 6d 65 |enu%?13=2....Mme| 00002350 6e 75 25 3f 31 34 3d 37 0d 10 c2 0f 4d 6d 65 6e |nu%?14=7....Mmen| 00002360 75 25 3f 31 35 3d 30 0d 10 cc 11 4d 6d 65 6e 75 |u%?15=0....Mmenu| 00002370 25 21 31 36 3d 31 36 30 0d 10 d6 11 4d 6d 65 6e |%!16=160....Mmen| 00002380 75 25 21 32 30 3d 31 34 32 0d 10 e0 0f 4d 6d 65 |u%!20=142....Mme| 00002390 6e 75 25 21 32 34 3d 30 0d 10 ea 04 0d 10 f4 10 |nu%!24=0........| 000023a0 6d 25 3d 4d 6d 65 6e 75 25 2b 32 38 0d 10 fe 0a |m%=Mmenu%+28....| 000023b0 6d 25 21 30 3d 33 0d 11 08 0a 6d 25 21 34 3d 30 |m%!0=3....m%!4=0| 000023c0 0d 11 12 1c 6d 25 21 38 3d 28 37 3c 3c 32 34 29 |....m%!8=(7<<24)| 000023d0 84 20 25 31 30 30 31 31 30 30 31 30 0d 11 1c 0e |. %100110010....| 000023e0 6d 25 21 31 32 3d 6d 69 30 25 0d 11 26 0b 6d 25 |m%!12=mi0%..&.m%| 000023f0 21 31 36 3d 31 0d 11 30 0b 6d 25 21 32 30 3d 35 |!16=1..0.m%!20=5| 00002400 0d 11 3a 04 0d 11 44 0a 6d 25 2b 3d 32 34 0d 11 |..:...D.m%+=24..| 00002410 4e 0a 6d 25 21 30 3d 32 0d 11 58 0a 6d 25 21 34 |N.m%!0=2..X.m%!4| 00002420 3d 30 0d 11 62 1c 6d 25 21 38 3d 28 37 3c 3c 32 |=0..b.m%!8=(7<<2| 00002430 34 29 84 20 25 31 30 30 31 31 30 30 31 30 0d 11 |4). %100110010..| 00002440 6c 0e 6d 25 21 31 32 3d 6d 69 31 25 0d 11 76 0b |l.m%!12=mi1%..v.| 00002450 6d 25 21 31 36 3d 31 0d 11 80 0b 6d 25 21 32 30 |m%!16=1....m%!20| 00002460 3d 35 0d 11 8a 04 0d 11 94 0a 6d 25 2b 3d 32 34 |=5........m%+=24| 00002470 0d 11 9e 0a 6d 25 21 30 3d 32 0d 11 a8 0a 6d 25 |....m%!0=2....m%| 00002480 21 34 3d 30 0d 11 b2 1c 6d 25 21 38 3d 28 37 3c |!4=0....m%!8=(7<| 00002490 3c 32 34 29 84 20 25 31 30 30 31 31 30 30 31 30 |<24). %100110010| 000024a0 0d 11 bc 0e 6d 25 21 31 32 3d 6d 69 32 25 0d 11 |....m%!12=mi2%..| 000024b0 c6 0b 6d 25 21 31 36 3d 31 0d 11 d0 0b 6d 25 21 |..m%!16=1....m%!| 000024c0 32 30 3d 35 0d 11 da 04 0d 11 e4 0a 6d 25 2b 3d |20=5........m%+=| 000024d0 32 34 0d 11 ee 0c 6d 25 21 30 3d 26 38 30 0d 11 |24....m%!0=&80..| 000024e0 f8 0a 6d 25 21 34 3d 30 0d 12 02 1c 6d 25 21 38 |..m%!4=0....m%!8| 000024f0 3d 28 37 3c 3c 32 34 29 84 20 25 31 30 30 31 31 |=(7<<24). %10011| 00002500 30 30 31 30 0d 12 0c 0e 6d 25 21 31 32 3d 6d 69 |0010....m%!12=mi| 00002510 33 25 0d 12 16 0b 6d 25 21 31 36 3d 31 0d 12 20 |3%....m%!16=1.. | 00002520 0b 6d 25 21 32 30 3d 35 0d 12 2a 04 0d 12 34 13 |.m%!20=5..*...4.| 00002530 24 44 6d 65 6e 75 25 3d 22 4d 65 74 65 72 22 0d |$Dmenu%="Meter".| 00002540 12 3e 0f 44 6d 65 6e 75 25 3f 31 32 3d 37 0d 12 |.>.Dmenu%?12=7..| 00002550 48 0f 44 6d 65 6e 75 25 3f 31 33 3d 32 0d 12 52 |H.Dmenu%?13=2..R| 00002560 0f 44 6d 65 6e 75 25 3f 31 34 3d 37 0d 12 5c 0f |.Dmenu%?14=7..\.| 00002570 44 6d 65 6e 75 25 3f 31 35 3d 30 0d 12 66 11 44 |Dmenu%?15=0..f.D| 00002580 6d 65 6e 75 25 21 31 36 3d 31 38 34 0d 12 70 10 |menu%!16=184..p.| 00002590 44 6d 65 6e 75 25 21 32 30 3d 34 30 0d 12 7a 0f |Dmenu%!20=40..z.| 000025a0 44 6d 65 6e 75 25 21 32 34 3d 30 0d 12 84 04 0d |Dmenu%!24=0.....| 000025b0 12 8e 10 6d 25 3d 44 6d 65 6e 75 25 2b 32 38 0d |...m%=Dmenu%+28.| 000025c0 12 98 0a 6d 25 21 30 3d 31 0d 12 a2 0a 6d 25 21 |...m%!0=1....m%!| 000025d0 34 3d 30 0d 12 ac 18 6d 25 21 38 3d 28 37 3c 3c |4=0....m%!8=(7<<| 000025e0 32 34 29 84 20 25 31 30 30 30 31 0d 12 b6 15 24 |24). %10001....$| 000025f0 28 6d 25 2b 31 32 29 3d 22 4f 75 74 70 75 74 22 |(m%+12)="Output"| 00002600 0d 12 c0 04 0d 12 ca 0a 6d 25 2b 3d 32 34 0d 12 |........m%+=24..| 00002610 d4 0a 6d 25 21 30 3d 30 0d 12 de 0a 6d 25 21 34 |..m%!0=0....m%!4| 00002620 3d 30 0d 12 e8 18 6d 25 21 38 3d 28 37 3c 3c 32 |=0....m%!8=(7<<2| 00002630 34 29 84 20 25 31 30 30 30 31 0d 12 f2 18 24 28 |4). %10001....$(| 00002640 6d 25 2b 31 32 29 3d 22 43 68 61 6e 6e 65 6c 20 |m%+12)="Channel | 00002650 33 22 0d 12 fc 04 0d 13 06 0a 6d 25 2b 3d 32 34 |3"........m%+=24| 00002660 0d 13 10 0a 6d 25 21 30 3d 30 0d 13 1a 0a 6d 25 |....m%!0=0....m%| 00002670 21 34 3d 30 0d 13 24 18 6d 25 21 38 3d 28 37 3c |!4=0..$.m%!8=(7<| 00002680 3c 32 34 29 84 20 25 31 30 30 30 31 0d 13 2e 18 |<24). %10001....| 00002690 24 28 6d 25 2b 31 32 29 3d 22 43 68 61 6e 6e 65 |$(m%+12)="Channe| 000026a0 6c 20 32 22 0d 13 38 04 0d 13 42 0a 6d 25 2b 3d |l 2"..8...B.m%+=| 000026b0 32 34 0d 13 4c 0a 6d 25 21 30 3d 30 0d 13 56 0a |24..L.m%!0=0..V.| 000026c0 6d 25 21 34 3d 30 0d 13 60 18 6d 25 21 38 3d 28 |m%!4=0..`.m%!8=(| 000026d0 37 3c 3c 32 34 29 84 20 25 31 30 30 30 31 0d 13 |7<<24). %10001..| 000026e0 6a 18 24 28 6d 25 2b 31 32 29 3d 22 43 68 61 6e |j.$(m%+12)="Chan| 000026f0 6e 65 6c 20 31 22 0d 13 74 04 0d 13 7e 0a 6d 25 |nel 1"..t...~.m%| 00002700 2b 3d 32 34 0d 13 88 0a 6d 25 21 30 3d 30 0d 13 |+=24....m%!0=0..| 00002710 92 0a 6d 25 21 34 3d 30 0d 13 9c 18 6d 25 21 38 |..m%!4=0....m%!8| 00002720 3d 28 37 3c 3c 32 34 29 84 20 25 31 30 30 30 31 |=(7<<24). %10001| 00002730 0d 13 a6 18 24 28 6d 25 2b 31 32 29 3d 22 43 68 |....$(m%+12)="Ch| 00002740 61 6e 6e 65 6c 20 30 22 0d 13 b0 04 0d 13 ba 0a |annel 0"........| 00002750 6d 25 2b 3d 32 34 0d 13 c4 0c 6d 25 21 30 3d 26 |m%+=24....m%!0=&| 00002760 38 30 0d 13 ce 0a 6d 25 21 34 3d 30 0d 13 d8 18 |80....m%!4=0....| 00002770 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 20 25 31 |m%!8=(7<<24). %1| 00002780 30 30 30 31 0d 13 e2 1a 24 28 6d 25 2b 31 32 29 |0001....$(m%+12)| 00002790 3d 22 44 69 67 69 74 61 6c 20 49 2f 4f 22 0d 13 |="Digital I/O"..| 000027a0 ec 04 0d 13 f6 18 24 6d 65 6e 75 25 3d 22 49 49 |......$menu%="II| 000027b0 43 5f 4d 6f 6e 69 74 6f 72 22 0d 14 00 0e 6d 65 |C_Monitor"....me| 000027c0 6e 75 25 3f 31 32 3d 37 0d 14 0a 0e 6d 65 6e 75 |nu%?12=7....menu| 000027d0 25 3f 31 33 3d 32 0d 14 14 0e 6d 65 6e 75 25 3f |%?13=2....menu%?| 000027e0 31 34 3d 37 0d 14 1e 0e 6d 65 6e 75 25 3f 31 35 |14=7....menu%?15| 000027f0 3d 30 0d 14 28 10 6d 65 6e 75 25 21 31 36 3d 31 |=0..(.menu%!16=1| 00002800 32 38 0d 14 32 0f 6d 65 6e 75 25 21 32 30 3d 34 |28..2.menu%!20=4| 00002810 30 0d 14 3c 0e 6d 65 6e 75 25 21 32 34 3d 30 0d |0..<.menu%!24=0.| 00002820 14 46 0f 6d 25 3d 6d 65 6e 75 25 2b 32 38 0d 14 |.F.m%=menu%+28..| 00002830 50 0a 6d 25 21 30 3d 32 0d 14 5a 0e 6d 25 21 34 |P.m%!0=2..Z.m%!4| 00002840 3d 69 6e 66 6f 25 0d 14 64 18 6d 25 21 38 3d 28 |=info%..d.m%!8=(| 00002850 37 3c 3c 32 34 29 84 20 25 31 30 30 30 31 0d 14 |7<<24). %10001..| 00002860 6e 13 24 28 6d 25 2b 31 32 29 3d 22 49 6e 66 6f |n.$(m%+12)="Info| 00002870 22 0d 14 78 04 0d 14 82 0a 6d 25 2b 3d 32 34 0d |"..x.....m%+=24.| 00002880 14 8c 0a 6d 25 21 30 3d 31 0d 14 96 0a 6d 25 21 |...m%!0=1....m%!| 00002890 34 3d 30 0d 14 a0 18 6d 25 21 38 3d 28 37 3c 3c |4=0....m%!8=(7<<| 000028a0 32 34 29 84 20 25 31 30 30 30 31 0d 14 aa 15 24 |24). %10001....$| 000028b0 28 6d 25 2b 31 32 29 3d 22 42 69 6e 61 72 79 22 |(m%+12)="Binary"| 000028c0 0d 14 b4 04 0d 14 be 0a 6d 25 2b 3d 32 34 0d 14 |........m%+=24..| 000028d0 c8 0a 6d 25 21 30 3d 32 0d 14 d2 0a 6d 25 21 34 |..m%!0=2....m%!4| 000028e0 3d 30 0d 14 dc 18 6d 25 21 38 3d 28 37 3c 3c 32 |=0....m%!8=(7<<2| 000028f0 34 29 84 20 25 31 30 30 30 31 0d 14 e6 12 24 28 |4). %10001....$(| 00002900 6d 25 2b 31 32 29 3d 22 4c 45 44 22 0d 14 f0 04 |m%+12)="LED"....| 00002910 0d 14 fa 0a 6d 25 2b 3d 32 34 0d 15 04 0a 6d 25 |....m%+=24....m%| 00002920 21 30 3d 31 0d 15 0e 0a 6d 25 21 34 3d 30 0d 15 |!0=1....m%!4=0..| 00002930 18 18 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 20 |..m%!8=(7<<24). | 00002940 25 31 30 30 30 31 0d 15 22 17 24 28 6d 25 2b 31 |%10001..".$(m%+1| 00002950 32 29 3d 22 50 43 46 38 35 37 34 41 22 0d 15 2c |2)="PCF8574A"..,| 00002960 04 0d 15 36 0a 6d 25 2b 3d 32 34 0d 15 40 0a 6d |...6.m%+=24..@.m| 00002970 25 21 30 3d 32 0d 15 4a 0a 6d 25 21 34 3d 30 0d |%!0=2..J.m%!4=0.| 00002980 15 54 18 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 |.T.m%!8=(7<<24).| 00002990 20 25 31 30 30 30 31 0d 15 5e 16 24 28 6d 25 2b | %10001..^.$(m%+| 000029a0 31 32 29 3d 22 50 43 46 38 35 37 34 22 0d 15 68 |12)="PCF8574"..h| 000029b0 04 0d 15 72 0a 6d 25 2b 3d 32 34 0d 15 7c 0c 6d |...r.m%+=24..|.m| 000029c0 25 21 30 3d 26 38 30 0d 15 86 0a 6d 25 21 34 3d |%!0=&80....m%!4=| 000029d0 30 0d 15 90 18 6d 25 21 38 3d 28 37 3c 3c 32 34 |0....m%!8=(7<<24| 000029e0 29 84 20 25 31 30 30 30 31 0d 15 9a 13 24 28 6d |). %10001....$(m| 000029f0 25 2b 31 32 29 3d 22 51 75 69 74 22 0d 15 a4 04 |%+12)="Quit"....| 00002a00 0d 15 ae 05 e1 0d 15 b8 04 0d 15 c2 12 dd 20 f2 |.............. .| 00002a10 72 65 63 65 69 76 65 28 71 25 29 0d 15 cc 08 ea |receive(q%).....| 00002a20 20 41 25 0d 15 d6 0c 41 25 3d 71 25 21 31 36 0d | A%....A%=q%!16.| 00002a30 15 e0 0b c8 8e 20 41 25 20 ca 0d 15 ea 0c c9 20 |..... A% ...... | 00002a40 30 3a f2 64 69 65 0d 15 f4 32 c9 20 32 3a e7 20 |0:.die...2. 2:. | 00002a50 71 25 21 31 32 3d 73 61 76 65 72 65 66 25 20 8c |q%!12=saveref% .| 00002a60 20 66 6e 24 3d a4 73 67 65 74 28 71 25 2b 34 34 | fn$=.sget(q%+44| 00002a70 29 3a f2 5f 53 61 76 65 0d 15 fe 25 c9 20 33 3a |):._Save...%. 3:| 00002a80 e7 20 71 25 21 32 30 3d 2d 32 20 80 20 71 25 21 |. q%!20=-2 . q%!| 00002a90 32 34 3d 73 6d 70 69 63 6f 6e 25 20 8c 0d 16 08 |24=smpicon% ....| 00002aa0 0c 20 20 20 20 20 20 20 cd 0d 16 12 04 0d 16 1c |. ........| 00002ab0 2d c9 20 26 34 30 30 43 31 3a 20 e7 20 77 6f 70 |-. &400C1: . wop| 00002ac0 65 6e 25 20 8c 20 71 25 21 30 3d 6d 6f 6e 57 25 |en% . q%!0=monW%| 00002ad0 20 3a 20 f2 5f 63 6c 6f 73 65 0d 16 26 04 0d 16 | : ._close..&...| 00002ae0 30 04 0d 16 3a 14 c9 20 26 35 30 32 3a 20 20 20 |0...:.. &502: | 00002af0 c8 8e 20 b9 20 ca 0d 16 44 76 20 20 20 20 20 20 |.. . ...Dv | 00002b00 20 20 20 20 20 20 20 c9 20 71 25 21 33 32 3d 2d | . q%!32=-| 00002b10 32 20 80 20 71 25 21 33 36 3d 73 6d 70 69 63 6f |2 . q%!36=smpico| 00002b20 6e 25 3a 6d 65 73 24 3d 22 54 68 69 73 20 69 73 |n%:mes$="This is| 00002b30 20 74 68 65 20 49 49 43 20 4d 6f 6e 69 74 6f 72 | the IIC Monitor| 00002b40 20 69 63 6f 6e 2e 7c 4d 4f 62 73 65 72 76 65 20 | icon.|MObserve | 00002b50 74 68 65 20 73 69 67 6e 61 6c 73 20 6f 6e 20 74 |the signals on t| 00002b60 68 65 20 49 49 43 20 70 6f 72 74 22 0d 16 4e 1a |he IIC port"..N.| 00002b70 20 20 20 20 20 20 20 20 20 20 20 20 20 7f 3a 6d | .:m| 00002b80 65 73 24 3d 22 22 0d 16 58 12 20 20 20 20 20 20 |es$=""..X. | 00002b90 20 20 20 20 20 20 20 cb 0d 16 62 14 20 20 20 20 | ...b. | 00002ba0 e7 20 6d 65 73 24 3c 3e 22 22 20 8c 0d 16 6c 12 |. mes$<>"" ...l.| 00002bb0 20 20 20 20 71 25 21 31 32 3d 71 25 21 38 0d 16 | q%!12=q%!8..| 00002bc0 76 18 20 20 20 20 24 28 71 25 2b 32 30 29 3d 6d |v. $(q%+20)=m| 00002bd0 65 73 24 2b bd 30 0d 16 80 1e 20 20 20 20 71 25 |es$+.0.... q%| 00002be0 21 30 3d 28 32 30 2b a9 6d 65 73 24 2b 34 29 80 |!0=(20+.mes$+4).| 00002bf0 20 ac 20 33 0d 16 8a 12 20 20 20 20 71 25 21 31 | . 3.... q%!1| 00002c00 36 3d 26 35 30 33 0d 16 94 28 20 20 20 20 c8 99 |6=&503...( ..| 00002c10 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa| 00002c20 67 65 22 2c 31 38 2c 71 25 2c 71 25 21 34 0d 16 |ge",18,q%,q%!4..| 00002c30 9e 05 cb 0d 16 a8 05 e1 0d 16 b2 04 0d 16 bc 0c |................| 00002c40 dd 20 f2 5f 44 61 63 6b 0d 16 c6 10 73 65 6e 64 |. ._Dack....send| 00002c50 74 68 25 3d 71 25 21 34 0d 16 d0 0f 6d 79 72 65 |th%=q%!4....myre| 00002c60 66 25 3d 71 25 21 38 0d 16 da 22 c8 99 20 22 57 |f%=q%!8...".. "W| 00002c70 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e |imp_GetPointerIn| 00002c80 66 6f 22 2c 2c 71 25 2b 38 0d 16 e4 0e 71 25 21 |fo",,q%+8....q%!| 00002c90 32 38 3d 71 25 21 38 0d 16 ee 0f 71 25 21 33 32 |28=q%!8....q%!32| 00002ca0 3d 71 25 21 31 32 0d 16 f8 18 71 25 21 30 3d 28 |=q%!12....q%!0=(| 00002cb0 34 34 2b a9 6e 24 2b 34 29 80 20 ac 20 33 0d 17 |44+.n$+4). . 3..| 00002cc0 02 10 71 25 21 31 32 3d 6d 79 72 65 66 25 0d 17 |..q%!12=myref%..| 00002cd0 0c 0b 71 25 21 31 36 3d 34 0d 17 16 0c 71 25 21 |..q%!16=4....q%!| 00002ce0 33 36 3d 2d 31 0d 17 20 0e 71 25 21 34 30 3d 26 |36=-1.. .q%!40=&| 00002cf0 46 46 39 0d 17 2a 12 24 28 71 25 2b 34 34 29 3d |FF9..*.$(q%+44)=| 00002d00 6e 24 2b bd 30 0d 17 34 27 c8 99 20 22 57 69 6d |n$+.0..4'.. "Wim| 00002d10 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1| 00002d20 37 2c 71 25 2c 73 65 6e 64 74 68 25 0d 17 3e 05 |7,q%,sendth%..>.| 00002d30 cd 0d 17 48 05 e1 0d 17 52 04 0d 17 5c 0e dd a4 |...H....R...\...| 00002d40 73 67 65 74 28 78 25 29 0d 17 66 08 ea 20 78 24 |sget(x%)..f.. x$| 00002d50 0d 17 70 1d c8 95 20 3f 78 25 20 78 24 2b 3d bd |..p... ?x% x$+=.| 00002d60 28 3f 78 25 29 3a 78 25 2b 3d 31 3a ce 0d 17 7a |(?x%):x%+=1:...z| 00002d70 07 3d 78 24 0d 17 84 04 0d 17 8e 0a dd a4 69 63 |.=x$..........ic| 00002d80 6f 6e 0d 17 98 0b 71 25 21 30 3d 2d 31 0d 17 a2 |on....q%!0=-1...| 00002d90 0a 71 25 21 34 3d 30 0d 17 ac 1b 71 25 21 38 3d |.q%!4=0....q%!8=| 00002da0 31 30 20 3a 20 f4 20 59 20 44 49 52 45 43 54 49 |10 : . Y DIRECTI| 00002db0 4f 4e 0d 17 b6 1c 71 25 21 31 32 3d 37 30 20 3a |ON....q%!12=70 :| 00002dc0 20 f4 20 58 20 44 49 52 45 43 54 49 4f 4e 0d 17 | . X DIRECTION..| 00002dd0 c0 0c 71 25 21 31 36 3d 39 36 0d 17 ca 0f 71 25 |..q%!16=96....q%| 00002de0 21 32 30 3d 26 32 30 30 32 0d 17 d4 17 24 28 71 |!20=&2002....$(q| 00002df0 25 2b 32 34 29 3d 22 21 49 49 43 5f 4d 6f 6e 22 |%+24)="!IIC_Mon"| 00002e00 0d 17 de 24 c8 99 20 22 57 69 6d 70 5f 43 72 65 |...$.. "Wimp_Cre| 00002e10 61 74 65 49 63 6f 6e 22 2c 2c 71 25 20 b8 20 69 |ateIcon",,q% . i| 00002e20 63 6f 6e 25 0d 17 e8 0a 3d 69 63 6f 6e 25 0d 17 |con%....=icon%..| 00002e30 f2 04 0d 17 fc 12 dd 20 f2 5f 73 65 74 75 70 57 |....... ._setupW| 00002e40 28 74 24 29 0d 18 06 58 21 71 25 3d 77 61 72 6e |(t$)...X!q%=warn| 00002e50 69 6e 67 57 25 3a 71 25 21 34 3d 32 30 30 3a 71 |ingW%:q%!4=200:q| 00002e60 25 21 38 3d 32 30 30 3a 71 25 21 31 32 3d 32 30 |%!8=200:q%!12=20| 00002e70 30 2b 58 51 25 3a 71 25 21 31 36 3d 32 30 30 2b |0+XQ%:q%!16=200+| 00002e80 59 51 25 3a 71 25 21 32 30 3d 30 3a 71 25 21 32 |YQ%:q%!20=0:q%!2| 00002e90 34 3d 30 3a 71 25 21 32 38 3d 2d 31 0d 18 10 11 |4=0:q%!28=-1....| 00002ea0 24 54 65 78 74 57 61 72 6e 25 3d 74 24 0d 18 1a |$TextWarn%=t$...| 00002eb0 15 54 65 78 74 57 61 72 6e 25 3f a9 28 74 24 29 |.TextWarn%?.(t$)| 00002ec0 3d 30 0d 18 24 07 ef 20 37 0d 18 2e 0d 77 61 72 |=0..$.. 7....war| 00002ed0 6e 4f 6e 25 3d b9 0d 18 38 1c c8 99 20 22 57 69 |nOn%=...8... "Wi| 00002ee0 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,| 00002ef0 71 25 0d 18 42 05 e1 0d 18 4c 04 0d 18 56 0f dd |q%..B....L...V..| 00002f00 20 f2 65 72 72 6f 72 62 6f 78 0d 18 60 19 c8 99 | .errorbox..`...| 00002f10 20 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c | "Wimp_DragBox",| 00002f20 2c 2d 31 0d 18 6a 32 21 62 75 66 66 65 72 73 25 |,-1..j2!buffers%| 00002f30 3d 9f 3a 24 28 62 75 66 66 65 72 73 25 2b 34 29 |=.:$(buffers%+4)| 00002f40 3d f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b |=.$+" at line "+| 00002f50 c3 9e 2b bd 30 0d 18 74 33 c8 99 20 22 57 69 6d |..+.0..t3.. "Wim| 00002f60 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 62 |p_ReportError",b| 00002f70 75 66 66 65 72 73 25 2c 31 2c 22 50 6f 72 74 20 |uffers%,1,"Port | 00002f80 4d 6f 6e 69 74 6f 72 22 0d 18 7e 08 f2 64 69 65 |Monitor"..~..die| 00002f90 0d 18 88 05 e1 0d 18 92 04 0d 18 9c 09 dd f2 64 |...............d| 00002fa0 69 65 0d 18 a6 2a c8 99 20 22 57 69 6d 70 5f 43 |ie...*.. "Wimp_C| 00002fb0 6c 6f 73 65 44 6f 77 6e 22 2c 74 61 73 6b 68 61 |loseDown",taskha| 00002fc0 6e 64 25 2c 21 74 61 73 6b 69 64 25 0d 18 b0 05 |nd%,!taskid%....| 00002fd0 e0 0d 18 ba 05 e1 0d 18 c4 04 0d 18 ce 2e dd 20 |............... | 00002fe0 f2 64 72 61 67 69 63 6f 6e 28 6d 6f 75 73 65 78 |.dragicon(mousex| 00002ff0 25 2c 6d 6f 75 73 65 79 25 2c 68 61 6e 64 6c 65 |%,mousey%,handle| 00003000 25 2c 69 63 6f 6e 25 29 0d 18 d8 21 ea 20 62 78 |%,icon%)...!. bx| 00003010 25 2c 62 79 25 2c 69 78 30 25 2c 69 79 30 25 2c |%,by%,ix0%,iy0%,| 00003020 69 78 31 25 2c 69 79 31 25 0d 18 e2 12 f2 67 65 |ix1%,iy1%.....ge| 00003030 74 77 28 68 61 6e 64 6c 65 25 29 0d 18 ec 18 f2 |tw(handle%).....| 00003040 67 65 74 69 28 68 61 6e 64 6c 65 25 2c 69 63 6f |geti(handle%,ico| 00003050 6e 25 29 0d 18 f6 16 21 71 25 3d 68 61 6e 64 6c |n%)....!q%=handl| 00003060 65 25 3a 71 25 21 34 3d 35 0d 19 00 3e 71 25 21 |e%:q%!4=5...>q%!| 00003070 38 3d 62 78 25 2b 69 78 30 25 3a 71 25 21 31 32 |8=bx%+ix0%:q%!12| 00003080 3d 62 79 25 2b 69 79 30 25 3a 71 25 21 31 36 3d |=by%+iy0%:q%!16=| 00003090 62 78 25 2b 69 78 31 25 3a 71 25 21 32 30 3d 62 |bx%+ix1%:q%!20=b| 000030a0 79 25 2b 69 79 31 25 0d 19 0a 2a 71 25 21 32 34 |y%+iy1%...*q%!24| 000030b0 3d 71 25 21 38 2d 6d 6f 75 73 65 78 25 3a 71 25 |=q%!8-mousex%:q%| 000030c0 21 32 38 3d 71 25 21 31 32 2d 6d 6f 75 73 65 79 |!28=q%!12-mousey| 000030d0 25 0d 19 14 19 c8 99 20 22 57 69 6d 70 5f 44 72 |%...... "Wimp_Dr| 000030e0 61 67 42 6f 78 22 2c 2c 71 25 0d 19 1e 0c 53 46 |agBox",,q%....SF| 000030f0 4c 41 47 25 3d b9 0d 19 28 05 e1 0d 19 32 04 0d |LAG%=...(....2..| 00003100 19 3c 14 dd 20 f2 67 65 74 77 28 68 61 6e 64 6c |.<.. .getw(handl| 00003110 65 25 29 0d 19 46 38 21 71 25 3d 68 61 6e 64 6c |e%)..F8!q%=handl| 00003120 65 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 |e%:.. "Wimp_GetW| 00003130 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 71 25 3a |indowState",,q%:| 00003140 f2 69 6e 66 6f 28 71 25 2b 34 29 0d 19 50 05 e1 |.info(q%+4)..P..| 00003150 0d 19 5a 12 dd 20 f2 67 65 74 69 28 68 25 2c 69 |..Z.. .geti(h%,i| 00003160 25 29 0d 19 64 2d 21 71 25 3d 68 25 3a 71 25 21 |%)..d-!q%=h%:q%!| 00003170 34 3d 69 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 |4=i%:.. "Wimp_Ge| 00003180 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 0d |tIconState",,q%.| 00003190 19 6e 2e 69 78 30 25 3d 71 25 21 38 3a 69 79 30 |.n.ix0%=q%!8:iy0| 000031a0 25 3d 71 25 21 31 32 3a 69 78 31 25 3d 71 25 21 |%=q%!12:ix1%=q%!| 000031b0 31 36 3a 69 79 31 25 3d 71 25 21 32 30 0d 19 78 |16:iy1%=q%!20..x| 000031c0 1e 69 66 6c 61 67 73 25 3d 71 25 21 32 34 3a 69 |.iflags%=q%!24:i| 000031d0 64 61 74 61 25 3d 71 25 2b 32 38 0d 19 82 05 e1 |data%=q%+28.....| 000031e0 0d 19 8c 04 0d 19 96 0f dd 20 f2 69 6e 66 6f 28 |......... .info(| 000031f0 70 25 29 0d 19 a0 0d ea 20 78 30 25 2c 79 30 25 |p%)..... x0%,y0%| 00003200 0d 19 aa 27 78 30 25 3d 21 70 25 3a 79 30 25 3d |...'x0%=!p%:y0%=| 00003210 70 25 21 34 3a 78 31 25 3d 70 25 21 38 3a 79 31 |p%!4:x1%=p%!8:y1| 00003220 25 3d 70 25 21 31 32 0d 19 b4 35 73 63 78 25 3d |%=p%!12...5scx%=| 00003230 70 25 21 31 36 3a 73 63 79 25 3d 70 25 21 32 30 |p%!16:scy%=p%!20| 00003240 3a 62 68 61 6e 64 6c 65 25 3d 70 25 21 32 34 3a |:bhandle%=p%!24:| 00003250 66 6c 61 67 73 25 3d 70 25 21 32 38 0d 19 be 1d |flags%=p%!28....| 00003260 62 78 25 3d 78 30 25 2d 73 63 78 25 3a 62 79 25 |bx%=x0%-scx%:by%| 00003270 3d 79 31 25 2d 73 63 79 25 0d 19 c8 05 e1 0d 19 |=y1%-scy%.......| 00003280 d2 04 0d 19 dc 10 dd 20 f2 5f 4b 65 79 50 72 65 |....... ._KeyPre| 00003290 73 73 0d 19 e6 0d c8 8e 20 71 25 21 30 20 ca 0d |ss...... q%!0 ..| 000032a0 19 f0 2b f4 20 4f 54 48 45 52 57 49 53 45 3a 20 |..+. OTHERWISE: | 000032b0 53 59 53 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 |SYS"Wimp_Process| 000032c0 4b 65 79 22 2c 71 25 21 32 34 0d 19 fa 05 cb 0d |Key",q%!24......| 000032d0 1a 04 05 e1 0d 1a 0e 04 0d 1a 18 13 dd 20 f2 73 |............. .s| 000032e0 65 74 75 70 73 74 72 69 6e 67 73 0d 1a 22 08 ea |etupstrings.."..| 000032f0 20 41 25 0d 1a 2c 0e e3 20 41 25 3d 30 20 b8 20 | A%..,.. A%=0 . | 00003300 35 0d 1a 36 0e f3 20 52 65 67 24 28 41 25 29 0d |5..6.. Reg$(A%).| 00003310 1a 40 05 ed 0d 1a 4a 75 dc 20 22 20 20 20 44 69 |.@....Ju. " Di| 00003320 67 69 74 61 6c 20 49 2f 4f 22 2c 22 20 41 6e 61 |gital I/O"," Ana| 00003330 6c 6f 67 75 65 20 4f 75 74 70 75 74 22 2c 41 6e |logue Output",An| 00003340 61 6c 6f 67 75 65 20 43 68 61 6e 6e 65 6c 20 33 |alogue Channel 3| 00003350 2c 41 6e 61 6c 6f 67 75 65 20 43 68 61 6e 6e 65 |,Analogue Channe| 00003360 6c 20 32 2c 41 6e 61 6c 6f 67 75 65 20 43 68 61 |l 2,Analogue Cha| 00003370 6e 6e 65 6c 20 31 2c 41 6e 61 6c 6f 67 75 65 20 |nnel 1,Analogue | 00003380 43 68 61 6e 6e 65 6c 20 30 0d 1a 54 05 e1 0d 1a |Channel 0..T....| 00003390 5e 04 0d 1a 68 0f dd 20 f2 5f 47 65 74 50 6f 72 |^...h.. ._GetPor| 000033a0 74 0d 1a 72 08 ea 20 41 25 0d 1a 7c 0f 41 25 3d |t..r.. A%..|.A%=| 000033b0 44 65 76 69 63 65 41 25 0d 1a 86 0a f2 5f 41 4f |DeviceA%....._AO| 000033c0 55 54 0d 1a 90 09 f2 5f 41 49 4e 0d 1a 9a 39 e7 |UT....._AIN...9.| 000033d0 20 44 65 76 69 63 65 41 25 3c 3e 41 25 20 8c 20 | DeviceA%<>A% . | 000033e0 e3 20 41 25 3d 31 20 b8 20 35 3a 4e 50 25 28 41 |. A%=1 . 5:NP%(A| 000033f0 25 29 3d 50 4f 52 54 25 28 41 25 29 20 82 20 26 |%)=PORT%(A%) . &| 00003400 46 46 3a ed 0d 1a a4 0f 41 25 3d 44 65 76 69 63 |FF:.....A%=Devic| 00003410 65 44 25 0d 1a ae 09 f2 5f 4f 55 54 0d 1a b8 08 |eD%....._OUT....| 00003420 f2 5f 49 4e 0d 1a c2 28 e7 20 44 65 76 69 63 65 |._IN...(. Device| 00003430 44 25 3c 3e 41 25 20 8c 20 4e 50 25 28 30 29 3d |D%<>A% . NP%(0)=| 00003440 4e 50 25 28 30 29 20 82 20 26 46 46 0d 1a cc 05 |NP%(0) . &FF....| 00003450 e1 0d 1a d6 04 0d 1a e0 0b dd 20 f2 5f 4d 42 53 |.......... ._MBS| 00003460 0d 1a ea 18 f4 20 53 65 74 20 75 70 20 42 61 72 |..... Set up Bar| 00003470 20 53 70 72 69 74 65 73 0d 1a f4 0e 53 50 25 21 | Sprites....SP%!| 00003480 30 3d 53 50 72 25 0d 1a fe 0c 53 50 25 21 38 3d |0=SPr%....SP%!8=| 00003490 31 36 0d 1b 08 1d c8 99 22 4f 53 5f 53 70 72 69 |16......"OS_Spri| 000034a0 74 65 4f 70 22 2c 39 2b 32 35 36 2c 53 50 25 0d |teOp",9+256,SP%.| 000034b0 1b 12 35 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |..5.."OS_SpriteO| 000034c0 70 22 2c 31 31 2b 32 35 36 2c 53 50 25 2c 22 3c |p",11+256,SP%,"<| 000034d0 49 49 43 5f 4d 6f 6e 24 44 69 72 3e 2e 53 6c 69 |IIC_Mon$Dir>.Sli| 000034e0 64 65 72 22 0d 1b 1c 23 47 34 25 3f 30 3d 30 3a |der"...#G4%?0=0:| 000034f0 47 34 25 3f 31 3d 33 3a 47 34 25 3f 32 3d 30 3a |G4%?1=3:G4%?2=0:| 00003500 47 34 25 3f 33 3d 31 0d 1b 26 15 e3 20 41 25 3d |G4%?3=1..&.. A%=| 00003510 30 20 b8 20 31 30 32 34 20 88 20 34 0d 1b 30 0c |0 . 1024 . 4..0.| 00003520 47 35 25 3f 41 25 3d 30 0d 1b 3a 11 47 35 25 3f |G5%?A%=0..:.G5%?| 00003530 28 41 25 2b 31 29 3d 41 25 0d 1b 44 11 47 35 25 |(A%+1)=A%..D.G5%| 00003540 3f 28 41 25 2b 32 29 3d 41 25 0d 1b 4e 11 47 35 |?(A%+2)=A%..N.G5| 00003550 25 3f 28 41 25 2b 33 29 3d 41 25 0d 1b 58 05 ed |%?(A%+3)=A%..X..| 00003560 0d 1b 62 0f f2 5f 4e 61 6d 65 4d 65 74 65 72 0d |..b.._NameMeter.| 00003570 1b 6c 05 e1 0d 1b 76 04 0d 1b 80 12 dd 20 f2 5f |.l....v...... ._| 00003580 53 70 72 69 74 65 4e 61 6d 65 0d 1b 8a 0b ea 20 |SpriteName..... | 00003590 41 25 2c 42 25 0d 1b 94 0a 53 74 74 25 3d 30 0d |A%,B%....Stt%=0.| 000035a0 1b 9e 2e c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 |....."OS_ReadMod| 000035b0 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 33 20 |eVariable",-1,3 | 000035c0 b8 20 2c 2c 4e 63 6f 6c 6f 75 72 73 25 0d 1b a8 |. ,,Ncolours%...| 000035d0 5b e7 20 4e 63 6f 6c 6f 75 72 73 25 3d 33 20 8c |[. Ncolours%=3 .| 000035e0 20 53 74 74 25 3d 47 34 25 20 8b 20 c8 99 22 43 | Stt%=G4% . .."C| 000035f0 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 65 6c 65 63 |olourTrans_Selec| 00003600 74 54 61 62 6c 65 22 2c 53 50 25 2c 22 6d 65 74 |tTable",SP%,"met| 00003610 65 72 22 2c 2d 31 2c 2d 31 2c 47 35 25 2c 30 3a |er",-1,-1,G5%,0:| 00003620 53 74 74 25 3d 47 35 25 0d 1b b2 3a e7 20 4e 63 |Stt%=G5%...:. Nc| 00003630 6f 6c 6f 75 72 73 25 3d 31 35 20 84 20 4e 63 6f |olours%=15 . Nco| 00003640 6c 6f 75 72 73 25 20 3e 32 35 35 20 84 20 4e 63 |lours% >255 . Nc| 00003650 6f 6c 6f 75 72 73 25 3d 31 20 8c 20 53 74 74 25 |olours%=1 . Stt%| 00003660 3d 30 0d 1b bc 0a f7 20 8d 64 6e 5b 0d 1b c6 0e |=0..... .dn[....| 00003670 e3 20 41 25 3d 30 20 b8 20 32 0d 1b d0 10 f3 20 |. A%=0 . 2..... | 00003680 50 61 72 74 73 24 28 41 25 29 0d 1b da 3b e7 20 |Parts$(A%)...;. | 00003690 4e 63 6f 6c 6f 75 72 73 25 3c 34 20 80 20 4e 63 |Ncolours%<4 . Nc| 000036a0 6f 6c 6f 75 72 73 25 3e 30 20 8c 20 50 61 72 74 |olours%>0 . Part| 000036b0 73 24 28 41 25 29 3d 50 61 72 74 73 24 28 41 25 |s$(A%)=Parts$(A%| 000036c0 29 2b 22 30 22 0d 1b e4 05 ed 0d 1b ee 15 dc 20 |)+"0".......... | 000036d0 62 61 72 2c 74 68 75 6d 62 2c 6d 65 74 65 72 0d |bar,thumb,meter.| 000036e0 1b f8 05 e1 0d 1c 02 04 0d 1c 0c 11 dd 20 f2 5f |............. ._| 000036f0 4d 65 74 65 72 28 56 25 29 0d 1c 16 13 ea 20 72 |Meter(V%)..... r| 00003700 25 2c 74 68 2c 78 6d 25 2c 79 6d 25 0d 1c 20 18 |%,th,xm%,ym%.. .| 00003710 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 |.."Wimp_SetColou| 00003720 72 22 2c 37 0d 1c 2a 0d 56 25 3d 32 35 35 2d 56 |r",7..*.V%=255-V| 00003730 25 0d 1c 34 0a 72 25 3d 31 38 30 0d 1c 3e 16 74 |%..4.r%=180..>.t| 00003740 68 3d b2 28 28 56 25 2f 32 35 35 29 2a 31 38 30 |h=.((V%/255)*180| 00003750 29 0d 1c 48 10 78 6d 25 3d 72 25 2a 9b 28 74 68 |)..H.xm%=r%*.(th| 00003760 29 0d 1c 52 10 79 6d 25 3d 72 25 2a b5 28 74 68 |)..R.ym%=r%*.(th| 00003770 29 0d 1c 5c 46 c8 99 22 4f 53 5f 53 70 72 69 74 |)..\F.."OS_Sprit| 00003780 65 4f 70 22 2c 35 32 2b 32 35 36 2c 53 50 25 2c |eOp",52+256,SP%,| 00003790 50 61 72 74 73 24 28 32 29 2c 78 6f 25 2b 34 32 |Parts$(2),xo%+42| 000037a0 38 2b 34 30 2c 79 6f 25 2b 31 38 32 2c 26 31 30 |8+40,yo%+182,&10| 000037b0 2c 30 2c 53 74 74 25 0d 1c 66 1f ec 20 78 6f 25 |,0,Stt%..f.. xo%| 000037c0 2b 34 32 38 2b 34 30 2b 31 39 37 2c 79 6f 25 2b |+428+40+197,yo%+| 000037d0 31 39 30 2b 33 32 0d 1c 70 5a e7 20 28 44 65 76 |190+32..pZ. (Dev| 000037e0 69 63 65 41 25 20 80 20 4d 6e 61 6d 65 25 3c 3e |iceA% . Mname%<>| 000037f0 34 29 20 84 20 28 44 65 76 69 63 65 44 25 20 80 |4) . (DeviceD% .| 00003800 20 4d 6e 61 6d 65 25 3d 34 29 20 8c 20 df 20 78 | Mname%=4) . . x| 00003810 6f 25 2b 34 32 38 2b 34 30 2b 31 39 37 2b 78 6d |o%+428+40+197+xm| 00003820 25 2c 79 6f 25 2b 31 39 30 2b 33 32 2b 79 6d 25 |%,yo%+190+32+ym%| 00003830 0d 1c 7a 05 e1 0d 1c 84 04 0d 1c 8e 11 dd 20 f2 |..z........... .| 00003840 5f 4e 61 6d 65 4d 65 74 65 72 0d 1c 98 27 c8 99 |_NameMeter...'..| 00003850 22 58 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 |"XOS_SpriteOp",2| 00003860 35 2b 32 35 36 2c 53 50 25 2c 22 6d 65 74 65 72 |5+256,SP%,"meter| 00003870 22 0d 1c a2 28 c8 99 22 58 4f 53 5f 53 70 72 69 |"...(.."XOS_Spri| 00003880 74 65 4f 70 22 2c 32 35 2b 32 35 36 2c 53 50 25 |teOp",25+256,SP%| 00003890 2c 22 6d 65 74 65 72 30 22 0d 1c ac 04 0d 1c b6 |,"meter0".......| 000038a0 2f c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |/.."OS_SpriteOp"| 000038b0 2c 32 37 2b 32 35 36 2c 53 50 25 2c 22 6d 65 74 |,27+256,SP%,"met| 000038c0 65 72 6d 22 2c 22 6d 65 74 65 72 22 0d 1c c0 31 |erm","meter"...1| 000038d0 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 000038e0 32 37 2b 32 35 36 2c 53 50 25 2c 22 6d 65 74 65 |27+256,SP%,"mete| 000038f0 72 6d 30 22 2c 22 6d 65 74 65 72 30 22 0d 1c ca |rm0","meter0"...| 00003900 28 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |(.."OS_SpriteOp"| 00003910 2c 36 30 2b 32 35 36 2c 53 50 25 2c 22 6d 65 74 |,60+256,SP%,"met| 00003920 65 72 22 2c 30 0d 1c d4 0e f2 5f 50 75 74 4d 6e |er",0....._PutMn| 00003930 61 6d 65 0d 1c de 29 c8 99 22 4f 53 5f 53 70 72 |ame...).."OS_Spr| 00003940 69 74 65 4f 70 22 2c 36 30 2b 32 35 36 2c 53 50 |iteOp",60+256,SP| 00003950 25 2c 22 6d 65 74 65 72 30 22 2c 30 0d 1c e8 0e |%,"meter0",0....| 00003960 f2 5f 50 75 74 4d 6e 61 6d 65 0d 1c f2 22 c8 99 |._PutMname..."..| 00003970 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 36 30 |"OS_SpriteOp",60| 00003980 2b 32 35 36 2c 53 50 25 2c 30 2c 31 0d 1c fc 05 |+256,SP%,0,1....| 00003990 e1 0d 1d 06 04 0d 1d 10 10 dd 20 f2 5f 50 75 74 |.......... ._Put| 000039a0 4d 6e 61 6d 65 0d 1d 1a 06 ef 35 0d 1d 24 0c ec |Mname.....5..$..| 000039b0 20 31 32 36 2c 32 38 0d 1d 2e 10 e7 20 4d 6e 61 | 126,28..... Mna| 000039c0 6d 65 25 3d 34 20 8c 0d 1d 38 0f f1 22 20 44 69 |me%=4 ...8.." Di| 000039d0 67 69 74 61 6c 22 0d 1d 42 05 cc 0d 1d 4c 34 e7 |gital"..B....L4.| 000039e0 20 4d 65 74 65 72 4d 6f 6e 25 3d 31 20 8c 20 f1 | MeterMon%=1 . .| 000039f0 22 20 20 4f 75 74 70 75 74 22 20 8b 20 f1 22 43 |" Output" . ."C| 00003a00 68 61 6e 6e 65 6c 20 22 3b 4d 6e 61 6d 65 25 0d |hannel ";Mname%.| 00003a10 1d 56 05 cd 0d 1d 60 06 ef 34 0d 1d 6a 05 e1 0d |.V....`..4..j...| 00003a20 1d 74 04 0d 1d 7e 0f dd 20 f2 5f 42 61 72 28 56 |.t...~.. ._Bar(V| 00003a30 25 29 0d 1d 88 46 c8 99 22 4f 53 5f 53 70 72 69 |%)...F.."OS_Spri| 00003a40 74 65 4f 70 22 2c 35 32 2b 32 35 36 2c 53 50 25 |teOp",52+256,SP%| 00003a50 2c 50 61 72 74 73 24 28 30 29 2c 78 6f 25 2b 34 |,Parts$(0),xo%+4| 00003a60 32 38 2b 34 30 2c 79 6f 25 2b 31 32 30 2c 26 31 |28+40,yo%+120,&1| 00003a70 30 2c 30 2c 53 74 74 25 0d 1d 92 16 56 25 3d 34 |0,0,Stt%....V%=4| 00003a80 30 2b 56 25 2a 31 2e 30 38 35 39 33 37 35 0d 1d |0+V%*1.0859375..| 00003a90 9c 6e e7 20 44 65 76 69 63 65 41 25 20 84 20 28 |.n. DeviceA% . (| 00003aa0 44 65 76 69 63 65 44 25 20 80 20 4d 6e 61 6d 65 |DeviceD% . Mname| 00003ab0 25 3d 34 29 20 8c 20 c8 99 22 4f 53 5f 53 70 72 |%=4) . .."OS_Spr| 00003ac0 69 74 65 4f 70 22 2c 35 32 2b 32 35 36 2c 53 50 |iteOp",52+256,SP| 00003ad0 25 2c 50 61 72 74 73 24 28 31 29 2c 78 6f 25 2b |%,Parts$(1),xo%+| 00003ae0 34 32 38 2b 34 30 2b 56 25 2c 79 6f 25 2b 31 32 |428+40+V%,yo%+12| 00003af0 30 2c 26 31 30 2c 30 2c 53 74 74 25 0d 1d a6 05 |0,&10,0,Stt%....| 00003b00 e1 0d 1d b0 04 0d 1d ba 0c dd 20 f2 5f 41 4f 55 |.......... ._AOU| 00003b10 54 0d 1d c4 08 ea 20 46 6c 0d 1d ce 0d 3f 50 42 |T..... Fl....?PB| 00003b20 4b 25 3d 26 34 30 0d 1d d8 11 50 42 4b 25 3f 31 |K%=&40....PBK%?1| 00003b30 3d 4e 50 25 28 31 29 0d 1d e2 29 c8 99 20 22 58 |=NP%(1)...).. "X| 00003b40 49 49 43 5f 43 6f 6e 74 72 6f 6c 22 2c 4e 50 25 |IIC_Control",NP%| 00003b50 28 37 29 2c 50 42 4b 25 2c 32 20 b8 20 3b 46 6c |(7),PBK%,2 . ;Fl| 00003b60 0d 1d ec 2b e7 20 28 46 6c 20 80 20 31 29 20 3d |...+. (Fl . 1) =| 00003b70 31 20 8c 20 44 65 76 69 63 65 41 25 3d a3 20 8b |1 . DeviceA%=. .| 00003b80 20 44 65 76 69 63 65 41 25 3d b9 0d 1d f6 05 e1 | DeviceA%=......| 00003b90 0d 1e 00 04 0d 1e 0a 0b dd 20 f2 5f 41 49 4e 0d |......... ._AIN.| 00003ba0 1e 14 08 ea 20 46 6c 0d 1e 1e 19 3f 50 42 53 25 |.... Fl....?PBS%| 00003bb0 3d 26 34 34 20 84 20 41 6d 6f 64 65 25 3c 3c 34 |=&44 . Amode%<<4| 00003bc0 0d 1e 28 21 f4 20 53 65 74 20 75 70 20 74 68 65 |..(!. Set up the| 00003bd0 20 63 6f 6e 74 72 6f 6c 20 72 65 67 69 73 74 65 | control registe| 00003be0 72 0d 1e 32 29 c8 99 20 22 58 49 49 43 5f 43 6f |r..2).. "XIIC_Co| 00003bf0 6e 74 72 6f 6c 22 2c 4e 50 25 28 37 29 2c 50 42 |ntrol",NP%(7),PB| 00003c00 53 25 2c 31 20 b8 20 3b 46 6c 0d 1e 3c 2d c8 99 |S%,1 . ;Fl..<-..| 00003c10 20 22 58 49 49 43 5f 43 6f 6e 74 72 6f 6c 22 2c | "XIIC_Control",| 00003c20 4e 50 25 28 37 29 20 84 20 31 2c 50 42 4b 25 2c |NP%(7) . 1,PBK%,| 00003c30 34 20 b8 20 3b 46 6c 0d 1e 46 2b e7 20 28 46 6c |4 . ;Fl..F+. (Fl| 00003c40 20 80 20 31 29 20 3d 31 20 8c 20 44 65 76 69 63 | . 1) =1 . Devic| 00003c50 65 41 25 3d a3 20 8b 20 44 65 76 69 63 65 41 25 |eA%=. . DeviceA%| 00003c60 3d b9 0d 1e 50 3e 4e 50 25 28 32 29 3d 50 42 4b |=...P>NP%(2)=PBK| 00003c70 25 3f 30 3a 20 4e 50 25 28 35 29 3d 50 42 4b 25 |%?0: NP%(5)=PBK%| 00003c80 3f 31 3a 20 4e 50 25 28 34 29 3d 50 42 4b 25 3f |?1: NP%(4)=PBK%?| 00003c90 32 3a 20 4e 50 25 28 33 29 3d 50 42 4b 25 3f 33 |2: NP%(3)=PBK%?3| 00003ca0 0d 1e 5a 05 e1 0d 1e 64 04 0d 1e 6e 0b dd 20 f2 |..Z....d...n.. .| 00003cb0 5f 4f 55 54 0d 1e 78 08 ea 20 46 6c 0d 1e 82 11 |_OUT..x.. Fl....| 00003cc0 3f 50 42 4b 25 3d 44 69 67 4d 6f 6e 25 0d 1e 8c |?PBK%=DigMon%...| 00003cd0 29 c8 99 20 22 58 49 49 43 5f 43 6f 6e 74 72 6f |).. "XIIC_Contro| 00003ce0 6c 22 2c 4e 50 25 28 36 29 2c 50 42 4b 25 2c 31 |l",NP%(6),PBK%,1| 00003cf0 20 b8 20 3b 46 6c 0d 1e 96 2b e7 20 28 46 6c 20 | . ;Fl...+. (Fl | 00003d00 80 20 31 29 20 3d 31 20 8c 20 44 65 76 69 63 65 |. 1) =1 . Device| 00003d10 44 25 3d a3 20 8b 20 44 65 76 69 63 65 44 25 3d |D%=. . DeviceD%=| 00003d20 b9 0d 1e a0 05 e1 0d 1e aa 04 0d 1e b4 0a dd 20 |............... | 00003d30 f2 5f 49 4e 0d 1e be 08 ea 20 46 6c 0d 1e c8 2d |._IN..... Fl...-| 00003d40 c8 99 20 22 58 49 49 43 5f 43 6f 6e 74 72 6f 6c |.. "XIIC_Control| 00003d50 22 2c 4e 50 25 28 36 29 20 84 20 31 2c 50 42 4b |",NP%(6) . 1,PBK| 00003d60 25 2c 31 20 b8 20 3b 46 6c 0d 1e d2 2b e7 20 28 |%,1 . ;Fl...+. (| 00003d70 46 6c 20 80 20 31 29 20 3d 31 20 8c 20 44 65 76 |Fl . 1) =1 . Dev| 00003d80 69 63 65 44 25 3d a3 20 8b 20 44 65 76 69 63 65 |iceD%=. . Device| 00003d90 44 25 3d b9 0d 1e dc 10 4e 50 25 28 30 29 3d 3f |D%=.....NP%(0)=?| 00003da0 50 42 4b 25 0d 1e e6 05 e1 0d ff |PBK%.......| 00003dab
.