Implement packed mode

[cc65] / libsrc / atari / ostype.s

diff --git a/libsrc/atari/ostype.s b/libsrc/atari/ostype.s
index 3528b7924dc1154ded7921a917ed4cae409b1a0d..86e88811dc9b2e69cb5e66f1174932a9d54eda19 100644 (file)
--- a/libsrc/atari/ostype.s
+++ b/libsrc/atari/ostype.s
@@ -1,8 +1,8 @@
 ;
-; Christian Groessler, June 2004
+; Christian Groessler, July 2004
 ; from Freddy Offenga's rominfo.c
 ;
-; unsigned char _get_ostype(void)
+; unsigned char get_ostype(void)
 ;
 ; x x x x x x x x   -  8 bit flag
 ; | | | | | | | |
@@ -38,9 +38,9 @@
 ;              101 - unassigned (up to 111)
 ;
 
-       .export         __get_ostype
+       .export         _get_ostype
 
-.proc  __get_ostype
+.proc  _get_ostype
 
        lda     $fcd8
        cmp     #$a2
@@ -107,13 +107,13 @@ _400800:
 ; 400/800 NTSC Rev. A
 
        lda     #%00011001
-       bne     _400800_done
+       bne     _fin
 
 ; 400/800 unknown
 
 _400800_unknown:
        lda     #%00000001
-       bne     _400800_done
+       bne     _fin
 
 _400800_1:
        cmp     #$d6
@@ -124,7 +124,7 @@ _400800_1:
 ; 400/800 PAL Rev. A
 
        lda     #%00001001
-       bne     _400800_done
+       bne     _fin
 
 _400800_2:
        cmp     #$f3
@@ -135,7 +135,7 @@ _400800_2:
 ; 400/800 NTSC Rev. B
 
        lda     #%00100001
-       bne     _400800_done
+       bne     _fin
 
 _400800_3:
 
@@ -147,8 +147,6 @@ _400800_3:
 ; 400/800 PAL Rev. B
 
        lda     #%00010001
-
-_400800_done:
        bne     _fin
 
 .endproc