don't use constructor to setup runtime stack

[cc65] / libsrc / apple2 / get_ostype.s

diff --git a/libsrc/apple2/get_ostype.s b/libsrc/apple2/get_ostype.s
index b686cbb793d5a90f0bdb24f59f20d1b82fef5c10..a041c3477a589a0163efc620c1c518b250ca6fbf 100644 (file)
--- a/libsrc/apple2/get_ostype.s
+++ b/libsrc/apple2/get_ostype.s
@@ -1,20 +1,70 @@
 ;
-; Stefan Haubenthal, Jul 12 2003
+; Oliver Schmidt, 04.01.2005
 ;
-; unsigned char get_ostype(void)
-;
-; $23 ProDOS 2.0.3
+; unsigned char get_ostype (void)
 ;
 
-       .export         _get_ostype
+        .constructor    initostype
+        .export         _get_ostype
+
+; Identify machine according to:
+; Apple II Miscellaneous TechNote #7, Apple II Family Identification
+
+        .segment        "INIT"
+
+initostype:
+        sec
+        jsr     $FE1F
+        bcs     nogs
+        tya
+        ora     #$80
+done:   sta     ostype
+        rts
+nogs:   ldx     #$FF
+next:   inx
+        lda     value,x
+        ldy     index,x
+        beq     done           ; $00 is no valid index
+        cmp     $FB00,y
+        beq     next
+:       inx
+        ldy     index,x
+        bne     :-
+        beq     next           ; Branch always
+
+index:  .byte   $B3, $00               ; Apple ][
+        .byte   $B3, $1E, $00          ; Apple ][+
+        .byte   $B3, $1E, $00          ; Apple /// (emulation)
+        .byte   $B3, $C0, $00          ; Apple //e
+        .byte   $B3, $C0, $DD, $BE, $00        ; Apple //e Option Card
+        .byte   $B3, $C0, $00          ; Apple //e (enhanced)
+        .byte   $B3, $C0, $BF, $00     ; Apple //c
+        .byte   $B3, $C0, $BF, $00     ; Apple //c (3.5 ROM)
+        .byte   $B3, $C0, $BF, $00     ; Apple //c (Mem. Exp.)
+        .byte   $B3, $C0, $BF, $00     ; Apple //c (Rev. Mem. Exp.)
+        .byte   $B3, $C0, $BF, $00     ; Apple //c Plus
+        .byte   $00
+
+value:  .byte   $38, $10               ; Apple ][
+        .byte   $EA, $AD, $11          ; Apple ][+
+        .byte   $EA, $8A, $20          ; Apple /// (emulation)
+        .byte   $06, $EA, $30          ; Apple //e
+        .byte   $06, $E0, $02, $00, $40        ; Apple //e Option Card
+        .byte   $06, $E0, $31          ; Apple //e (enhanced)
+        .byte   $06, $00, $FF, $50     ; Apple //c
+        .byte   $06, $00, $00, $51     ; Apple //c (3.5 ROM)
+        .byte   $06, $00, $03, $53     ; Apple //c (Mem. Exp.)
+        .byte   $06, $00, $04, $54     ; Apple //c (Rev. Mem. Exp.)
+        .byte   $06, $00, $05, $55     ; Apple //c Plus
+        .byte   $00
+
+        .code
 
-.proc  _get_ostype
+_get_ostype:
+        lda     ostype
+        ldx     #$00
+        rts
 
-       lda     #0
-       ldx     $bf00
-       cpx     #$4c    ; JMP opcode
-       bne     nopdos
-       lda     $bfff
-nopdos:        rts
+        .bss
 
-.endproc
+ostype: .res    1