Schrijver
| Detect SCC using basic ?
|
Argon msx professional Berichten: 842 | Geplaatst: 07 Januari 2004, 18:05   |
Is it possible to detect if there's an SCC chip available using basic ? (Anyone? NYRIKKI ?)
I have an MSX machine and it is supposed to have an INTERNAL SCC chip.
I would like to check this rumor for confirmation.
Thank you.
Kris.
|
|
BiFi msx guru Berichten: 3142 | Geplaatst: 07 Januari 2004, 18:33   |
It is possible. You need to increase the base of basic to &HC000 or higher to enable slot switching in page 2. I've made one already:
10 REM Find SCC - SAVE"SCC" ' You need to save it first and with this name!
20 DEFINT I
30 IF PEEK(&HF677)<>&HC0 THEN POKE &HC000,0:POKE &HF676,1:POKE &HF677,&HC0:RUN"SCC"
40 DATA 3A,F8,F7,26,80,CD,24,00,FB,C9
50 FOR A=&HFA00 TO &HFA09:READ A$:POKE A,VAL("&H"+A$):NEXT A:DEF USR=&HFA00:SL=0
60 FOR I=&H80 TO &H8F:DUMMY=USR(I):POKE &H9000,63:J=PEEK(&H9900):POKE &H9900,J XOR 255:IF (PEEK(&H9900)=(J XOR 255)) THEN POKE &H9900,J:NEXT ELSE POKE &H9900,J:SL=I:I=&H8F:NEXT
70 CLS:IF SL=0 THEN PRINT "No SCC found!" ELSE PRINT"SCC found in slot:";(SL AND 3);-((SL AND 12)/4)
80 IF SL=0 THEN END ELSE PRINT:PRINT"Slot in HEX:&H";HEX$(SL):END |
|
BiFi msx guru Berichten: 3142 | Geplaatst: 07 Januari 2004, 18:54   |
I'm NOT gonna edit again... When will the " still be ", < still be <, > still be > and & still be & in a code block? :/
|
|
Argon msx professional Berichten: 842 | Geplaatst: 07 Januari 2004, 18:54   |
LOL, wow that's some decent code 
Oh yes, I already corrected the amp and quot stuff, no worries.
Thank you, I will try it ASAP.
K. |
|
Argon msx professional Berichten: 842 | Geplaatst: 08 Juli 2004, 11:47   |
Hey, I saved the code as "SCC".
I insert a Snatcher SCC cart in my NMS-8250.
When I run the code it does NOT detect the SCC cart correctly...
It doesn't matter if there is or if there is no SCC cart inserted it always detects SCC at slot 0 - 0.
Any ideas ?
Thanks.
|
|
BiFi msx guru Berichten: 3142 | Geplaatst: 08 Juli 2004, 13:34   |
Try changing the &H9900 into &H9800.
|
|
Argon msx professional Berichten: 842 | Geplaatst: 08 Juli 2004, 15:30   |
k, will do.
|
|
|
|
|