60 lines
1.4 KiB
Plaintext
60 lines
1.4 KiB
Plaintext
ROGRAM:EEPROM
|
|
01 CLS
|
|
02 W=0
|
|
03 DATA 0,"0123456789ABCDEF"
|
|
04 FOR I=0 TO 15:? @0,I+1;%AR(I)
|
|
05 FOR Y=0 TO 15:? @Y+1,0;%AR(Y)
|
|
06 NEXT :NEXT
|
|
07
|
|
08 FOR W=0 TO 15:X=EPEEK(W)
|
|
09 IF X<> $FF THEN ? @1,W+1;%15
|
|
10 NEXT
|
|
11 FOR W=0 TO 15:X=EPEEK(W+16)
|
|
12 IF X<> $FF THEN ? @2,W+1;%15
|
|
13 NEXT
|
|
14 FOR W=0 TO 15:X=EPEEK(W+32)
|
|
15 IF X<> $FF THEN ? @3,W+1;%15
|
|
16 NEXT
|
|
17 FOR W=0 TO 15:X=EPEEK(W+48)
|
|
18 IF X<> $FF THEN ? @3,W+1;%15
|
|
19 NEXT
|
|
20 FOR W=0 TO 15:X=EPEEK(W+64)
|
|
21 IF X<> $FF THEN ? @4,W+1;%15
|
|
22 NEXT
|
|
23 FOR W=0 TO 15:X=EPEEK(W+80)
|
|
24 FOR W=0 TO 15:X=EPEEK(W+128)
|
|
25 IF X<> $FF THEN ? @8,W+1;%15
|
|
26 NEXT
|
|
27 FOR W=0 TO 15:X=EPEEK(W+144)
|
|
28 IF X<> $FF THEN ? @9,W+1;%15
|
|
29 NEXT
|
|
30 FOR W=0 TO 15:X=EPEEK(W+160)
|
|
31 IF X<> $FF THEN ? @10,W+1;%15
|
|
32 FOR W=0 TO 15:X=EPEEK(W+128)
|
|
33 IF X<> $FF THEN ? @8,W+1;%15
|
|
34 NEXT
|
|
35 FOR W=0 TO 15:X=EPEEK(W+144)
|
|
36 IF X<> $FF THEN ? @9,W+1;%15
|
|
37 NEXT
|
|
38 FOR W=0 TO 15:X=EPEEK(W+160)
|
|
39 IF X<> $FF THEN ? @10,W+1;%15
|
|
40 NEXT
|
|
41 FOR W=0 TO 15:X=EPEEK(W+176)
|
|
42 IF X<> $FF THEN ? @11,W+1;%15
|
|
43 NEXT
|
|
44 FOR W=0 TO 15:X=EPEEK(W+192)
|
|
45 IF X<> $FF THEN ? @11,W+1;%15
|
|
46 NEXT
|
|
47 FOR W=0 TO 15:X=EPEEK(W+208)
|
|
48 IF X<> $FF THEN ? @12,W+1;%15
|
|
49 NEXT
|
|
50 FOR W=0 TO 15:X=EPEEK(W+224)
|
|
51 IF X<> $FF THEN ? @13,W+1;%15
|
|
52 NEXT
|
|
53 FOR W=0 TO 15:X=EPEEK(W+240)
|
|
54 IF X<> $FF THEN ? @14,W+1;%15
|
|
55 NEXT
|
|
56 FOR W=0 TO 15:X=EPEEK(W+256)
|
|
57 IF X<> $FF THEN ? @15,W+1;%15
|
|
58 NEXT
|
|
# |