mirror of
https://github.com/cc65/cc65.git
synced 2024-09-22 11:07:39 +00:00
space optimization by Stefan Haubenthal
git-svn-id: svn://svn.cc65.org/cc65/trunk@3777 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
80a4c8c02b
commit
b66b04f289
@ -1,5 +1,5 @@
|
|||||||
;
|
;
|
||||||
; Freddy Offenga & Christian Groessler, June 2004
|
; Freddy Offenga, Stefan Haubenthal, Christian Groessler, March 2007
|
||||||
;
|
;
|
||||||
; detect the DOS version we're running on
|
; detect the DOS version we're running on
|
||||||
;
|
;
|
||||||
@ -35,16 +35,14 @@ detect: lda #ATARIDOS
|
|||||||
cmp (DOSVEC),y
|
cmp (DOSVEC),y
|
||||||
beq done
|
beq done
|
||||||
lda #OSADOS
|
lda #OSADOS
|
||||||
sta __dos_type
|
.byte $2C ; BIT <abs>
|
||||||
rts
|
|
||||||
|
|
||||||
spdos: lda #SPARTADOS
|
spdos: lda #SPARTADOS
|
||||||
sta __dos_type
|
.byte $2C ; BIT <abs>
|
||||||
done: rts
|
|
||||||
|
|
||||||
mydos: lda #MYDOS
|
mydos: lda #MYDOS
|
||||||
sta __dos_type
|
sta __dos_type
|
||||||
rts
|
done: rts
|
||||||
|
|
||||||
; ------------------------------------------------------------------------
|
; ------------------------------------------------------------------------
|
||||||
; Data
|
; Data
|
||||||
|
Loading…
Reference in New Issue
Block a user