git.sur5r.net Git - cc65/blob - libsrc/apple2/get_ostype.s

   1 ;
   2 ; Stefan Haubenthal, Jul 12 2003
   3 ;
   4 ; unsigned char get_ostype(void)
   5 ;
   6 ; $23 ProDOS 2.0.3
   7 ;
   8
   9         .export         _get_ostype
  10
  11 .proc   _get_ostype
  12
  13         lda     #0
  14         ldx     $bf00
  15         cpx     #$4c    ; JMP opcode
  16         bne     nopdos
  17         lda     $bfff
  18 nopdos: rts
  19
  20 .endproc