6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

Saved two bytes.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4924 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc 2011-01-26 22:11:23 +00:00
parent f79473f53a
commit 76c543a26f
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
libsrc/apple2/drives.s
View File

@ -15,24 +15,22 @@ _drivecount:
; Check for ProDOS 8
lda __dos_type
bne :+
rts
beq :+
; Number of on-line devices (minus 1)
: ldy DEVCNT
ldy DEVCNT
iny
tya
rts
: rts
_drivelist:
ldx #$00
; Check for ProDOS 8
lda __dos_type
bne :+
rts
beq :+
; Up to 14 units may be active
: lda #<DEVLST
lda #<DEVLST
ldx #>DEVLST
rts
: rts