A lot of folks religiously type the names of the various Apple II models in the various ways that the models were stylised (or in some cases, using the styling that they're most familiar with for all of them-which, i confess, looks really weird to me.)
I consider ][ and // as merely stylings of II-and identical in meaning (much like smallcaps is
(
Read more... )
IIgs identification requires a firmware call:
00/0300: 38 SEC
00/0301: 20 1F FE JSR FE1F
00/0304: 6A ROR
00/0305: 85 06 STA $06
00/0307: 60 RTS
Which gets poked in and called on line 10, below.
10 POKE 768,56: POKE 769,32: POKE 770,31: POKE 771,254: POKE 772,106: POKE 773,133: POKE 774,6: POKE 775,96 : CALL 768 : GS = PEEK(6) : IF GS < 128 THEN GS$ = "Apple IIgs as an "
11 M1$ = STR$(PEEK(-1101)) : REM 64435 $FBB3
12 M2$ = M1$ + " " + STR$(PEEK(-1088)) : REM 64448 $FBC0
13 M3$ = M2$ + " " + STR$(PEEK(-1089)) : REM 64447 $FBBF
14 M4$ = M3$ + " " + STR$(GS): REM JSR $FE1F
20 IF M2$ = "56 96" THEN II$ = "APPLE II"
25 IF M2$ = "234 234" THEN II$ = "APPLE II+"
30 IF M2$ = "6 234" THEN II$ = "Apple IIe"
35 IF M2$ = "6 0 255" THEN II$ = "Apple IIc"
38 IF M2$ = "6 0 0" THEN II$ = "Apple IIc (3.5 ROM)"
40 IF M2$ = "6 0 3" THEN II$ = "Apple IIc v3 (original expandible)"
45 IF M2$ = "6 0 4" THEN II$ = "Apple IIc v4 (revised expandible)"
50 IF M3$ = "6 0 5" THEN II$ = "Apple IIc+"
55 IF M2$ = "6 224" THEN II$ = "Apple IIee"
80 HOME : PRINT GS$; II$; SPC( PEEK(33)-LEN(GS$)-LEN(II$)-LEN(M4$) ); M4$;
99 END
[Pardon the wide line; i'm too tired at the moment to tweak the layout.]
Reply
Leave a comment