32 lines
771 B
QBasic
32 lines
771 B
QBasic
10 WSET 0:CLS :CROFF :MOUSE 1,0
|
|
11 DIM b(127)
|
|
12 TLOAD 1,"sysfontb.dat",16,11
|
|
13 STILE 1
|
|
14 WIN c(1,255,88,23,0,0,39,29,3,0,"Belegung der I2C-Adressen")
|
|
16 POS 4,4
|
|
17 PRINT "0123456789ABCDEF"
|
|
18 p=6:z=6
|
|
19 POS 21,4:PRINT "Belegte Adressen:"
|
|
20 FOR i=0 TO 127
|
|
21 IF n=0 THEN POS 1,p
|
|
22 IF n=0 THEN PRINT HEX (i);" ";
|
|
25 IF n=0 THEN POS 4,p
|
|
30 a=PORT p(i)
|
|
40 IF a THEN POS n+4,p:PRINT "-";:B(i)=0
|
|
50 ELSE POS n+4,p:PRINT CHR$ (15);:b(i)=i
|
|
52 GOSUB 200
|
|
55 n=n+1
|
|
62 IF n=16 THEN p=p+2
|
|
63 IF n=16 THEN n=0
|
|
100 NEXT i
|
|
110 a=WIN :IF a=0 THEN GOTO 110
|
|
120 IF a=12 THEN WIN r(1):WSET 0:CLS :CRON :MOUSE 0,0:END
|
|
130 ELSE GOTO 110
|
|
200 REM Adresse anzeigen
|
|
210 x=GETX :y=GETY
|
|
220 POS 23,z
|
|
230 IF b(i)>0 THEN z=z+2:PRINT "$";HEX (b(i));TAB (26);"=";b(i)
|
|
250 POS x,y
|
|
300 RETURN
|
|
|