This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
parent 579491e8a4
commit 53dd513176
847 changed files with 91345 additions and 0 deletions
--- a/libsrc/geos/disk/Makefile
+++ b/libsrc/geos/disk/Makefile
@@ -0,0 +1,20 @@
+#
+# Makefile for GEOS lib
+# for cc65
+# 
+
+%.o:	%.s
+	@echo $<
+	@$(AS) -o $@ $(AFLAGS) $<
+
+
+S_OBJS	= blkalloc.o calcblksfree.o changediskdevice.o chkdkgeos.o enterturbo.o exitturbo.o\
+	  findbambit.o freeblock.o getblock.o getdirhead.o getptrcurdknm.o newdisk.o\
+	  nxtblkalloc.o opendisk.o purgeturbo.o putblock.o putdirhead.o readblock.o\
+	  readbuff.o setnextfree.o setgeosdisk.o writeblock.o writebuff.o verwriteblock.o\
+	  gettrse.o
+
+all: $(S_OBJS)
+
+clean:
+	@rm -f *.~ $(S_OBJS) core
--- a/libsrc/geos/disk/blkalloc.s
+++ b/libsrc/geos/disk/blkalloc.s
@@ -0,0 +1,24 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char BlkAlloc (struct tr_se output[], int length);
+
+	    .import popax
+	    .export _BlkAlloc
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_BlkAlloc:
+	sta r2L
+	stx r2H
+	jsr popax
+	sta r4L
+	stx r4H
+	jsr BlkAlloc
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/calcblksfree.s
+++ b/libsrc/geos/disk/calcblksfree.s
@@ -0,0 +1,19 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; int CalcBlksFree (void);
+
+	    .export _CalcBlksFree
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_CalcBlksFree:
+	jsr CalcBlksFree
+	stx errno
+	lda r4L
+	ldx r4H
+	rts
--- a/libsrc/geos/disk/changediskdevice.s
+++ b/libsrc/geos/disk/changediskdevice.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char ChangeDiskDevice (char newDriveNumber);
+
+	    .export _ChangeDiskDevice
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_ChangeDiskDevice:
+	jsr ChangeDiskDevice
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/chkdkgeos.s
+++ b/libsrc/geos/disk/chkdkgeos.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char ChkDkGEOS (void);
+
+	    .export _ChkDkGEOS
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_ChkDkGEOS:
+	jsr ChkDkGEOS
+	stx errno
+	lda isGEOS
+	rts
--- a/libsrc/geos/disk/enterturbo.s
+++ b/libsrc/geos/disk/enterturbo.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void EnterTurbo (void);
+
+	    .export _EnterTurbo
+
+	    .include "../inc/jumptab.inc"
+	
+_EnterTurbo	= EnterTurbo
--- a/libsrc/geos/disk/exitturbo.s
+++ b/libsrc/geos/disk/exitturbo.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void ExitTurbo (void);
+
+	    .export _ExitTurbo
+
+	    .include "../inc/jumptab.inc"
+	
+_ExitTurbo	= ExitTurbo
--- a/libsrc/geos/disk/findbambit.s
+++ b/libsrc/geos/disk/findbambit.s
@@ -0,0 +1,25 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char FindBAMBit (struct tr_se *TS);
+; (might be called inUSE (if (!inUSE(block))))
+
+	    .import gettrse
+	    .export _FindBAMBit
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_FindBAMBit:
+	jsr gettrse
+	sta r6L
+	stx r6H
+	jsr FindBAMBit
+	bne inUse
+	lda #0
+	rts
+inUse:	lda #$ff 
+	rts
--- a/libsrc/geos/disk/freeblock.s
+++ b/libsrc/geos/disk/freeblock.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char FreeBlock (struct tr_se *TS);
+
+	    .import gettrse
+	    .export _FreeBlock
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_FreeBlock:
+	jsr gettrse
+	sta r6L
+	stx r6H
+	jsr FreeBlock
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/getblock.s
+++ b/libsrc/geos/disk/getblock.s
@@ -0,0 +1,26 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char GetBlock (struct tr_se *myTS, char *buffer);
+
+	    .import popax
+	    .import gettrse
+	    .export _GetBlock
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_GetBlock:
+	sta r4L
+	stx r4H
+	jsr popax
+	jsr gettrse
+	sta r1L
+	stx r1H
+	jsr GetBlock
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/getdirhead.s
+++ b/libsrc/geos/disk/getdirhead.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char GetDirHead (void);
+
+	    .export _GetDirHead
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_GetDirHead:
+	jsr GetDirHead
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/getptrcurdknm.s
+++ b/libsrc/geos/disk/getptrcurdknm.s
@@ -0,0 +1,34 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void GetPtrCurDkNm (char *curName);
+;  (fills curName[17] with current disk's name)
+
+	    .importzp ptr4, ptr3
+	    .export _GetPtrCurDkNm
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/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 errno
+	rts
--- a/libsrc/geos/disk/gettrse.s
+++ b/libsrc/geos/disk/gettrse.s
@@ -0,0 +1,17 @@
+
+;
+; 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
--- a/libsrc/geos/disk/newdisk.s
+++ b/libsrc/geos/disk/newdisk.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char NewDisk (void);
+
+	    .export _NewDisk
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_NewDisk:
+	jsr NewDisk
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/nxtblkalloc.s
+++ b/libsrc/geos/disk/nxtblkalloc.s
@@ -0,0 +1,30 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length );
+
+	    .import popax
+	    .import gettrse
+	    .importzp ptr4
+	    .export _NxtBlkAlloc
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_NxtBlkAlloc:
+	sta r2L
+	stx r2H
+	jsr popax
+	sta r4L
+	stx r4H
+	jsr popax
+	jsr gettrse
+	sta r3L
+	stx r3H
+	jsr NxtBlkAlloc
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/opendisk.s
+++ b/libsrc/geos/disk/opendisk.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char OpenDisk (void);
+
+	    .export _OpenDisk
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_OpenDisk:
+	jsr OpenDisk
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/purgeturbo.s
+++ b/libsrc/geos/disk/purgeturbo.s
@@ -0,0 +1,13 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; void PurgeTurbo (void);
+
+	    .export _PurgeTurbo
+
+	    .include "../inc/jumptab.inc"
+	
+_PurgeTurbo	= PurgeTurbo
--- a/libsrc/geos/disk/putblock.s
+++ b/libsrc/geos/disk/putblock.s
@@ -0,0 +1,26 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char PutBlock (struct tr_se *myTS, char *buffer);
+
+	    .import popax
+	    .import gettrse
+	    .export _PutBlock
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_PutBlock:
+	sta r4L
+	stx r4H
+	jsr popax
+	jsr gettrse
+	sta r1L
+	stx r1H
+	jsr PutBlock
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/putdirhead.s
+++ b/libsrc/geos/disk/putdirhead.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char PutDirHead (void);
+
+	    .export _PutDirHead
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_PutDirHead:
+	jsr PutDirHead
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/readblock.s
+++ b/libsrc/geos/disk/readblock.s
@@ -0,0 +1,26 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char ReadBlock (struct tr_se myTS, char *buffer);
+
+	    .import popax
+	    .import gettrse
+	    .export _ReadBlock
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_ReadBlock:
+	sta r4L
+	stx r4H
+	jsr popax
+	jsr gettrse
+	sta r1L
+	stx r1H
+	jsr ReadBlock
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/readbuff.s
+++ b/libsrc/geos/disk/readbuff.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 26.10.99
+
+; char ReadBuff  (struct tr_se);
+
+	    .import gettrse
+	    .export _ReadBuff
+
+	    .include "../inc/diskdrv.inc"
+	    .include "../inc/geossym.inc"
+	
+_ReadBuff:
+	jsr gettrse
+	sta r1L
+	stx r1H
+	jsr ReadBuff
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/setgeosdisk.s
+++ b/libsrc/geos/disk/setgeosdisk.s
@@ -0,0 +1,18 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char SetGEOSDisk (void);
+
+	    .export _SetGEOSDisk
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_SetGEOSDisk:
+	jsr SetGEOSDisk
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/setnextfree.s
+++ b/libsrc/geos/disk/setnextfree.s
@@ -0,0 +1,23 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; struct tr_se SetNextFree (struct tr_se *startTS);
+
+	    .import gettrse
+	    .export _SetNextFree
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_SetNextFree:
+	jsr gettrse
+	sta r3L
+	stx r3H
+	jsr SetNextFree
+	stx errno
+	lda r3L
+	ldx r3H
+	rts
--- a/libsrc/geos/disk/verwriteblock.s
+++ b/libsrc/geos/disk/verwriteblock.s
@@ -0,0 +1,26 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char VerWriteBlock (struct tr_se *myTS, char *buffer);
+
+	    .import popax
+	    .import gettrse
+	    .export _VerWriteBlock
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_VerWriteBlock:
+	sta r4L
+	stx r4H
+	jsr popax
+	jsr gettrse
+	sta r1L
+	stx r1H
+	jsr VerWriteBlock
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/writeblock.s
+++ b/libsrc/geos/disk/writeblock.s
@@ -0,0 +1,26 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 21.12.99
+
+; char WriteBlock (struct tr_se *myTS, char *buffer);
+
+	    .import popax
+	    .import gettrse
+	    .export _WriteBlock
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_WriteBlock:
+	sta r4L
+	stx r4H
+	jsr popax
+	jsr gettrse
+	sta r1L
+	stx r1H
+	jsr WriteBlock
+	stx errno
+	txa
+	rts
--- a/libsrc/geos/disk/writebuff.s
+++ b/libsrc/geos/disk/writebuff.s
@@ -0,0 +1,22 @@
+
+;
+; Maciej 'YTM/Alliance' Witkowiak
+;
+; 26.10.99
+
+; char WriteBuff (struct tr_se*);
+
+	    .import gettrse
+	    .export _WriteBuff
+
+	    .include "../inc/diskdrv.inc"
+	    .include "../inc/geossym.inc"
+	
+_WriteBuff:
+	jsr gettrse
+	sta r1L
+	stx r1H
+	jsr WriteBuff
+	stx errno
+	txa
+	rts