git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/system/get_ostype.s

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 10.09.2001
   6 ;
   7 ; Plus4 and GEOS 1.1 detection by
   8 ; Marco van den Heuvel, 2010-02-02
   9 ;
  10
  11 ; unsigned char get_ostype (void);
  12 ; unsigned char get_tv (void);
  13
  14             .export _get_ostype
  15             .export _get_tv
  16             .importzp tmp1
  17
  18             .include "const.inc"
  19             .include "geossym.inc"
  20             .include "geossym2.inc"
  21
  22 _get_ostype:
  23         ldx #0
  24         lda version
  25         cmp #$a9
  26         beq geos11
  27         and #%11110000
  28         cmp #$10
  29         beq geos10
  30         lda c128Flag            ; we're on at least 2.0
  31         cmp #$18
  32         beq geos_on_plus4
  33         ora version
  34         rts
  35 geos10:
  36         lda version
  37         rts
  38 geos11:
  39         lda #$11
  40         rts
  41 geos_on_plus4:
  42         lda #$04
  43         rts
  44
  45 _get_tv:
  46         jsr _get_ostype
  47         cmp #$04
  48         beq plus4_get_tv
  49         bpl only40              ; C64 with 40 columns only
  50         lda graphMode
  51         bpl only40              ; C128 but currently on 40 columns
  52         ldx #1                  ; COLUMNS80
  53         bne tvmode
  54 only40: ldx #0                  ; COLUMNS40
  55 tvmode:                         ; PAL/NTSC check here, result in A
  56         php
  57         sei                     ; disable interrupts
  58         lda CPU_DATA            ; this is for C64
  59         pha
  60         lda #IO_IN              ; enable access to I/O
  61         sta CPU_DATA
  62         bit rasreg
  63         bpl tvmode              ; wait for rasterline  127<x<256
  64         lda #24                 ; (rasterline now >=256!)
  65 modelp:
  66         cmp rasreg              ; wait for rasterline = 24 (or 280 on PAL)
  67         bne modelp
  68         lda grcntrl1            ; 24 or 280 ?
  69         bpl ntsc
  70         lda #0                  ; PAL
  71         beq modeend
  72 ntsc:
  73         lda #$80                ; NTSC
  74
  75 modeend:
  76         stx tmp1
  77         ora tmp1
  78         sta tmp1
  79         ldx #0
  80         pla
  81         sta CPU_DATA            ; restore memory config
  82         plp                     ; restore interrupt state
  83         lda tmp1
  84         rts
  85 plus4_get_tv:
  86         ldx #1                  ; Assume PAL
  87         bit $FF07               ; Test bit 6
  88         bvc plus4pal
  89         dex                     ; NTSC
  90 plus4pal:
  91         txa
  92         ldx #0
  93         rts