[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: System identification from Applesoft?

On Thu, 14 Feb 2013, gids.rs@sasktel.net wrote:


SEC
JSR $FE1F
BCC IIGS
RTS        ; not a IIGS so exit

IIGS        ; is a IIGS so continue on with program


Ah, that's what I was looking for.
Here's some code in fpbasic that plugs in a 6502 routine at $9000 to identify a system. 

-uso.

10 READ A:C=A
20 READ V:IF V<>-1 THEN POKE C,V:C=C+1:GOTO 20
30 CALL A:M=PEEK(768)
40 ON M GOTO 60,70,80,90,100,120,110
50 PRINT "???": END
60 PRINT "APPLE ][ (MONITOR)": END
70 PRINT "APPLE ][ (AUTOSTART)": END
80 PRINT "APPLE ][+": END
90 PRINT "APPLE //E (OLD)": END
100 PRINT "APPLE //E (NEW)": END
110 PRINT "APPLE IIGS V"PEEK(769): END
120 R=PEEK(64447):IF R=5 THEN PRINT "APPLE IIC+":END
130 PRINT "APPLE IIC ";:IF R=255 THEN PRINT "(ORIGINAL)":END
140 PRINT "V"R: END
150 DATA 36864
160 DATA 169,0,141,0,3,173,179,251,201,6,240,25,201,56,208,4
170 DATA 169,1,208,13,173,0,224,201,32,208,4,169,2,208,2,169
180 DATA 3,141,0,3,96,173,192,251,240,8,201,224,240,8,169,4
190 DATA 208,239,169,6,208,235,56,32,31,254,144,4,169,5,208,225
200 DATA 140,1,3,169,7,208,218,-1