the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Moved the 'disk' files from 'geos-cbm' to 'geos-common' which are believed to work as-is on Apple GEOS too.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5447 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc
2012-02-04 21:46:26 +00:00
parent e6d886750b
commit 10374c66ce
16 changed files with 22 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
libsrc/geos-cbm/disk/Makefile
View File

@@ -5,9 +5,7 @@
#--------------------------------------------------------------------------
# Object files
S_OBJS += blkalloc.o \
calcblksfree.o \
changediskdevice.o \
S_OBJS += changediskdevice.o \
chkdkgeos.o \
dio_openclose.o \
dio_cts.o \
@@ -19,22 +17,11 @@ S_OBJS += blkalloc.o \
enterturbo.o \
exitturbo.o \
findbambit.o \
freeblock.o \
getblock.o \
getdirhead.o \
getptrcurdknm.o \
gettrse.o \
newdisk.o \
nxtblkalloc.o \
opendisk.o \
purgeturbo.o \
putblock.o \
putdirhead.o \
readblock.o \
readbuff.o \
setnextfree.o \
setgeosdisk.o \
setoserror.o \
writeblock.o \
writebuff.o \
verwriteblock.o

22
libsrc/geos-cbm/disk/blkalloc.s
View File

@@ -1,22 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char BlkAlloc (struct tr_se output[], int length);
.import popax, setoserror
.export _BlkAlloc
.include "jumptab.inc"
.include "geossym.inc"
_BlkAlloc:
sta r2L
stx r2H
jsr popax
sta r4L
stx r4H
jsr BlkAlloc
jmp setoserror

20
libsrc/geos-cbm/disk/calcblksfree.s
View File

@@ -1,20 +0,0 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 21.12.99
; int CalcBlksFree (void);
.import __oserror
.export _CalcBlksFree
.include "jumptab.inc"
.include "geossym.inc"
_CalcBlksFree:
jsr CalcBlksFree
stx __oserror
lda r4L
ldx r4H
rts

20
libsrc/geos-cbm/disk/freeblock.s
View File

@@ -1,20 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char FreeBlock (struct tr_se *TS);
.import gettrse, setoserror
.export _FreeBlock
.include "jumptab.inc"
.include "geossym.inc"
_FreeBlock:
jsr gettrse
sta r6L
stx r6H
jsr FreeBlock
jmp setoserror

24
libsrc/geos-cbm/disk/getblock.s
View File

@@ -1,24 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char GetBlock (struct tr_se *myTS, char *buffer);
.import popax, setoserror
.import gettrse
.export _GetBlock
.include "jumptab.inc"
.include "geossym.inc"
_GetBlock:
sta r4L
stx r4H
jsr popax
jsr gettrse
sta r1L
stx r1H
jsr GetBlock
jmp setoserror

16
libsrc/geos-cbm/disk/getdirhead.s
View File

@@ -1,16 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char GetDirHead (void);
.import setoserror
.export _GetDirHead
.include "jumptab.inc"
_GetDirHead:
jsr GetDirHead
jmp setoserror

35
libsrc/geos-cbm/disk/getptrcurdknm.s
View File

@@ -1,35 +0,0 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 21.12.99
; void GetPtrCurDkNm (char *curName);
; (fills curName[17] with current disk's name)
.importzp ptr4, ptr3
.import __oserror
.export _GetPtrCurDkNm
.include "jumptab.inc"
.include "geossym.inc"
_GetPtrCurDkNm:
sta ptr3
stx ptr3+1
ldx #ptr4
jsr GetPtrCurDkNm
ldy #0
txa
bne fin
namelp: lda (ptr4),y
cmp #$a0
beq fin
sta (ptr3),y
iny
cpy #16
bne namelp
fin: lda #0
sta (ptr3),y
stx __oserror
rts

17
libsrc/geos-cbm/disk/gettrse.s
View File

@@ -1,17 +0,0 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 29.1.00
.export gettrse
.importzp ptr4
gettrse:
sta ptr4
stx ptr4+1
ldy #1
lda (ptr4),y
tax
dey
lda (ptr4),y
rts

28
libsrc/geos-cbm/disk/nxtblkalloc.s
View File

@@ -1,28 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length );
.import popax, setoserror
.import gettrse
.importzp ptr4
.export _NxtBlkAlloc
.include "jumptab.inc"
.include "geossym.inc"
_NxtBlkAlloc:
sta r2L
stx r2H
jsr popax
sta r4L
stx r4H
jsr popax
jsr gettrse
sta r3L
stx r3H
jsr NxtBlkAlloc
jmp setoserror

16
libsrc/geos-cbm/disk/opendisk.s
View File

@@ -1,16 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char OpenDisk (void);
.import setoserror
.export _OpenDisk
.include "jumptab.inc"
_OpenDisk:
jsr OpenDisk
jmp setoserror

24
libsrc/geos-cbm/disk/putblock.s
View File

@@ -1,24 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char PutBlock (struct tr_se *myTS, char *buffer);
.import popax, setoserror
.import gettrse
.export _PutBlock
.include "jumptab.inc"
.include "geossym.inc"
_PutBlock:
sta r4L
stx r4H
jsr popax
jsr gettrse
sta r1L
stx r1H
jsr PutBlock
jmp setoserror

16
libsrc/geos-cbm/disk/putdirhead.s
View File

@@ -1,16 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.99, 2.1.2003
; char PutDirHead (void);
.import setoserror
.export _PutDirHead
.include "jumptab.inc"
_PutDirHead:
jsr PutDirHead
jmp setoserror

24
libsrc/geos-cbm/disk/setnextfree.s
View File

@@ -1,24 +0,0 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 21.12.99
; struct tr_se SetNextFree (struct tr_se *startTS);
.import __oserror
.import gettrse
.export _SetNextFree
.include "jumptab.inc"
.include "geossym.inc"
_SetNextFree:
jsr gettrse
sta r3L
stx r3H
jsr SetNextFree
stx __oserror
lda r3L
ldx r3H
rts

16
libsrc/geos-cbm/disk/setoserror.s
View File

@@ -1,16 +0,0 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 2.1.2003
;
.export setoserror
.import __oserror
setoserror:
stx __oserror
txa
ldx #0 ; X is cleared (high byte for promoting char to int)
tay ; Y register is used just to save flags state
rts