002
20.05.2026, 00:29 Uhr
kaiOr
|
Hallo,
hier muss man wohl mindestens den RAM begrenzen, sonst nutzt BASIC den Block 1 vom RAM8 mit und es folgen seltsame Fehlermeldungen.
| Quellcode: | KC-BASIC
MEMORY END ? :32767
31470 BYTES FREE
OK
>
10 CLS
15 REM RAM8=MODUL 3, TEST-ADR=8000H
20 LET M=3:A=-32768
25 REM FUNKTION STEUERBYTE BER.
30 DEF FN S(I)=I*2*2+3
40 FOR I=14 TO 1 STEP -1
45 REM SCHALTE SEGM., SCHR. NUMMER
50 SWITCH M,FNS(I):POKE A,I
60 NEXT I
70 FOR I=14 TO 1 STEP -1
75 REM SCHALTE SEGM., LESE NUMMER
80 SWITCH M,FNS(I):Y=PEEK(A)
90 IF Y<>I GOTO 1000
100 NEXT I
110 PRINT "ALLE SEGMENTE GEFUNDEN!"
120 END
1000 PRINT "FEHLER! SOLL=";I;" IST=";Y:END |
PS: Die internen Modulports und Steuerbytes sind so garnicht vorhanden, sondern es findet eine Übersetzung statt. D.h. du brauchst auch CAOS >=4.3 damit alle Segmente per SWITCH schaltbar sind.
Gruß,
Kai
Dieser Beitrag wurde am 20.05.2026 um 10:01 Uhr von kaiOr editiert. |
