mirror of
https://github.com/cc65/cc65.git
synced 2025-01-26 17:36:57 +00:00
all functions returning char in A now have X cleared
git-svn-id: svn://svn.cc65.org/cc65/trunk@1868 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
parent
38dcb86552
commit
e6e35390d1
@ -290,7 +290,7 @@ Draws single point on the screen, no matter what the current pattern is.
|
||||
<p>
|
||||
<tt/char TestPoint (struct pixel *myPixel)/
|
||||
<p>
|
||||
This function tests if given pixel is set and returns true or false.
|
||||
This function tests if given pixel is set and returns <tt/true/ (non-zero) or <tt/false/ (zero).
|
||||
|
||||
<sect2>Character and string output
|
||||
|
||||
@ -624,6 +624,7 @@ GEOSLib function (if its type is <tt/char/), but in all cases last error is save
|
||||
location. If it is nonzero - an error occured. See <tt/gdisk.h/ for the list of possible errorcodes.
|
||||
You need to include <tt/errno.h/ to get <tt/__oserror/, together with standard <tt/errno/. The
|
||||
latter gives less verbose, but still usable information and can be used with <tt/strerror/.
|
||||
Probably you will get more information using <tt/stroserror/ in similar way.
|
||||
<p>
|
||||
For passing parameters use almost always pointer to your data e.g. <tt/ReadBuff (&myTrSe)/.
|
||||
|
||||
@ -1038,7 +1039,7 @@ is also copied.
|
||||
<tt/char CmpString (char *s1, char *s2)/
|
||||
<p>
|
||||
This function compares string <tt/s1/ to <tt/s2/ for equality - this is case sensitive, and both
|
||||
strings have to have the same length. It returns either <tt/true/ or <tt/false/.
|
||||
strings have to have the same length. It returns either <tt/true/ (non-zero) or <tt/false/ (zero).
|
||||
|
||||
<sect2>CopyFString and CmpFString
|
||||
<p>
|
||||
|
||||
@ -4,6 +4,7 @@
|
||||
;
|
||||
; 27.10.2001
|
||||
; 06.03.2002
|
||||
; 02.01.2003
|
||||
|
||||
; unsigned char wherex (void);
|
||||
; unsigned char wherey (void);
|
||||
@ -11,10 +12,10 @@
|
||||
.export _wherex, _wherey
|
||||
.importzp cursor_c, cursor_r
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
|
||||
_wherex: lda cursor_c
|
||||
ldx #0
|
||||
rts
|
||||
|
||||
_wherey: lda cursor_r
|
||||
ldx #0
|
||||
rts
|
||||
|
||||
@ -57,6 +57,7 @@ _open:
|
||||
lda ptr1
|
||||
ldx ptr1+1
|
||||
jsr _FindFile ; try to find the file
|
||||
tax
|
||||
bne @error
|
||||
|
||||
lda dirEntryBuf + OFF_DE_TR_SC ; tr&se for ReadByte (r1)
|
||||
@ -139,7 +140,7 @@ _read:
|
||||
bne @L2
|
||||
inc ptr3+1
|
||||
|
||||
@L2: txa ; was there error ?
|
||||
@L2: lda __oserror ; was there error ?
|
||||
beq @L3
|
||||
cmp #BFR_OVERFLOW ; EOF?
|
||||
bne @error
|
||||
|
||||
@ -303,6 +303,8 @@ INIT:
|
||||
;
|
||||
|
||||
DONE:
|
||||
jsr GETERROR ; clear error (if any)
|
||||
|
||||
lda #0
|
||||
jsr SETVIEWPAGE ; switch into viewpage 0
|
||||
|
||||
@ -434,6 +436,8 @@ SETCOLOR:
|
||||
;
|
||||
|
||||
SETPALETTE:
|
||||
jsr GETERROR ; clear error (if any)
|
||||
|
||||
ldy #PALETTESIZE - 1
|
||||
@L1: lda (ptr1),y ; Copy the palette
|
||||
and #$0F ; Make a valid color
|
||||
|
||||
@ -11,7 +11,7 @@ S_OBJS = blkalloc.o calcblksfree.o changediskdevice.o chkdkgeos.o enterturbo.o e
|
||||
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\
|
||||
gettrse.o setoserror.o\
|
||||
dio_openclose.o dio_cts.o dio_stc.o dio_read.o dio_write.o dio_writev.o\
|
||||
dio_params.o
|
||||
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char BlkAlloc (struct tr_se output[], int length);
|
||||
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.export _BlkAlloc
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -19,6 +19,4 @@ _BlkAlloc:
|
||||
sta r4L
|
||||
stx r4H
|
||||
jsr BlkAlloc
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char ChangeDiskDevice (char newDriveNumber);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _ChangeDiskDevice
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_ChangeDiskDevice:
|
||||
jsr ChangeDiskDevice
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char ChkDkGEOS (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _ChkDkGEOS
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -14,6 +14,6 @@
|
||||
|
||||
_ChkDkGEOS:
|
||||
jsr ChkDkGEOS
|
||||
stx __oserror
|
||||
jsr setoserror
|
||||
lda isGEOS
|
||||
rts
|
||||
|
||||
@ -9,7 +9,7 @@
|
||||
; sectnum_t - 16bit
|
||||
;
|
||||
|
||||
.import dio_params, __oserror
|
||||
.import dio_params, setoserror
|
||||
.export _dio_write
|
||||
.include "../inc/geossym.inc"
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -18,8 +18,6 @@
|
||||
|
||||
jsr dio_params
|
||||
jsr WriteBlock
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
.endproc
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char FindBAMBit (struct tr_se *TS);
|
||||
; (might be called inUSE (if (!inUSE(block))))
|
||||
|
||||
.import gettrse
|
||||
.import return0, return1
|
||||
.export _FindBAMBit
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -19,7 +20,5 @@ _FindBAMBit:
|
||||
stx r6H
|
||||
jsr FindBAMBit
|
||||
bne inUse
|
||||
lda #0
|
||||
rts
|
||||
inUse: lda #$ff
|
||||
rts
|
||||
jmp return0
|
||||
inUse: jmp return1
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char FreeBlock (struct tr_se *TS);
|
||||
|
||||
.import gettrse, __oserror
|
||||
.import gettrse, setoserror
|
||||
.export _FreeBlock
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -17,6 +17,4 @@ _FreeBlock:
|
||||
sta r6L
|
||||
stx r6H
|
||||
jsr FreeBlock
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char GetBlock (struct tr_se *myTS, char *buffer);
|
||||
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
.export _GetBlock
|
||||
|
||||
@ -21,6 +21,4 @@ _GetBlock:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr GetBlock
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char GetDirHead (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _GetDirHead
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
|
||||
_GetDirHead:
|
||||
jsr GetDirHead
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char NewDisk (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _NewDisk
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_NewDisk:
|
||||
jsr NewDisk
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length );
|
||||
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
.importzp ptr4
|
||||
.export _NxtBlkAlloc
|
||||
@ -25,6 +25,4 @@ _NxtBlkAlloc:
|
||||
sta r3L
|
||||
stx r3H
|
||||
jsr NxtBlkAlloc
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char OpenDisk (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _OpenDisk
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_OpenDisk:
|
||||
jsr OpenDisk
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char PutBlock (struct tr_se *myTS, char *buffer);
|
||||
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
.export _PutBlock
|
||||
|
||||
@ -21,6 +21,4 @@ _PutBlock:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr PutBlock
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.99, 2.1.2003
|
||||
|
||||
; char PutDirHead (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _PutDirHead
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_PutDirHead:
|
||||
jsr PutDirHead
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char ReadBlock (struct tr_se myTS, char *buffer);
|
||||
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
.export _ReadBlock
|
||||
|
||||
@ -21,6 +21,4 @@ _ReadBlock:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr ReadBlock
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 26.10.99
|
||||
; 26.10.1999, 2.1.2003
|
||||
|
||||
; char ReadBuff (struct tr_se);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.import gettrse
|
||||
.export _ReadBuff
|
||||
|
||||
@ -18,6 +18,4 @@ _ReadBuff:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr ReadBuff
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char SetGEOSDisk (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _SetGEOSDisk
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_SetGEOSDisk:
|
||||
jsr SetGEOSDisk
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
16
libsrc/geos/disk/setoserror.s
Normal file
16
libsrc/geos/disk/setoserror.s
Normal file
@ -0,0 +1,16 @@
|
||||
|
||||
;
|
||||
; 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
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char VerWriteBlock (struct tr_se *myTS, char *buffer);
|
||||
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
.export _VerWriteBlock
|
||||
|
||||
@ -21,6 +21,4 @@ _VerWriteBlock:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr VerWriteBlock
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char WriteBlock (struct tr_se *myTS, char *buffer);
|
||||
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
.export _WriteBlock
|
||||
|
||||
@ -21,6 +21,4 @@ _WriteBlock:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr WriteBlock
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 26.10.99
|
||||
; 26.10.1999, 2.1.2003
|
||||
|
||||
; char WriteBuff (struct tr_se*);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.import gettrse
|
||||
.export _WriteBuff
|
||||
|
||||
@ -18,6 +18,4 @@ _WriteBuff:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr WriteBuff
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char DoDlgBox (char *myParamString);
|
||||
|
||||
@ -15,5 +15,6 @@ _DoDlgBox:
|
||||
sta r0L
|
||||
stx r0H
|
||||
jsr DoDlgBox
|
||||
ldx #0
|
||||
lda r0L
|
||||
rts
|
||||
|
||||
@ -1,20 +1,17 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char AppendRecord (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _AppendRecord
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_AppendRecord:
|
||||
|
||||
jsr AppendRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char CloseRecordFile (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _CloseRecordFile
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_CloseRecordFile:
|
||||
jsr CloseRecordFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char DeleteFile (char *myName);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _DeleteFile
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -16,6 +16,4 @@ _DeleteFile:
|
||||
sta r0L
|
||||
stx r0H
|
||||
jsr DeleteFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char DeleteRecord (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _DeleteRecord
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -14,6 +14,4 @@
|
||||
|
||||
_DeleteRecord:
|
||||
jsr DeleteRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char FindFile (char *myName);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _FindFile
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -16,6 +16,4 @@ _FindFile:
|
||||
sta r6L
|
||||
stx r6H
|
||||
jsr FindFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -2,12 +2,12 @@
|
||||
;
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99, 30.7.2000
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char FindFTypes (char *buffer, char fileType, char fileMax, char *Class);
|
||||
|
||||
.export _FindFTypes
|
||||
.import popax, popa, __oserror
|
||||
.import popax, popa, setoserror
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
@ -26,7 +26,7 @@ _FindFTypes:
|
||||
sta r6L
|
||||
stx r6H
|
||||
jsr FindFTypes
|
||||
stx __oserror
|
||||
jsr setoserror
|
||||
; return (fileMax - r7H)
|
||||
lda tmpFileMax
|
||||
sec
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char FollowChain (struct tr_se *myTrSe, char *buffer);
|
||||
|
||||
.export _FollowChain
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -21,6 +21,4 @@ _FollowChain:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr FollowChain
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char FreeFile (struct trse myTrSe[]);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _FreeFile
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -16,6 +16,4 @@ _FreeFile:
|
||||
sta r9L
|
||||
stx r9H
|
||||
jsr FreeFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char GetFHdrInfo (struct filehandle *myFile);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _GetFHdrInfo
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -16,6 +16,4 @@ _GetFHdrInfo:
|
||||
sta r9L
|
||||
stx r9H
|
||||
jsr GetFHdrInfo
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char InsertRecord (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _InsertRecord
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
|
||||
_InsertRecord:
|
||||
jsr InsertRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char NextRecord (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _NextRecord
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
|
||||
_NextRecord:
|
||||
jsr NextRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char OpenRecordFile (char *myName);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _OpenRecordFile
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -16,6 +16,4 @@ _OpenRecordFile:
|
||||
sta r0L
|
||||
stx r0H
|
||||
jsr OpenRecordFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char PointRecord (char recordNum);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _PointRecord
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_PointRecord:
|
||||
jsr PointRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char PreviousRecord (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _PreviousRecord
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_PreviousRecord:
|
||||
jsr PreviousRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char ReadByte (void);
|
||||
|
||||
@ -10,9 +10,9 @@
|
||||
.export _ReadByte
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_ReadByte:
|
||||
jsr ReadByte
|
||||
stx __oserror
|
||||
ldx #0
|
||||
rts
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char ReadFile (struct tr_se *myTS, char *buffer, int length);
|
||||
|
||||
.export _ReadFile
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
.import gettrse
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -24,6 +24,4 @@ _ReadFile:
|
||||
sta r1L
|
||||
stx r1H
|
||||
jsr ReadFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char ReadRecord (char *buffer, int length);
|
||||
|
||||
.export _ReadRecord
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
@ -19,6 +19,4 @@ _ReadRecord:
|
||||
sta r7L
|
||||
stx r7H
|
||||
jsr ReadRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,17 +1,17 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char RenameFile (char *source, char *target);
|
||||
|
||||
.export _RenameFile
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
|
||||
_RenameFile:
|
||||
sta r0L
|
||||
stx r0H
|
||||
@ -19,6 +19,4 @@ _RenameFile:
|
||||
sta r6L
|
||||
stx r6H
|
||||
jsr RenameFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char SaveFile (struct fileheader *myHeader);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _SaveFile
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -16,6 +16,4 @@ _SaveFile:
|
||||
sta r9L
|
||||
stx r9H
|
||||
jsr SaveFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,19 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char UpdateRecordFile (void);
|
||||
|
||||
.import __oserror
|
||||
.import setoserror
|
||||
.export _UpdateRecordFile
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_UpdateRecordFile:
|
||||
jsr UpdateRecordFile
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 25.12.99
|
||||
; 25.12.1999, 2.1.2003
|
||||
|
||||
; char WriteRecord (char *buffer, int length);
|
||||
|
||||
.export _WriteRecord
|
||||
.import popax, __oserror
|
||||
.import popax, setoserror
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
@ -19,6 +19,4 @@ _WriteRecord:
|
||||
sta r7L
|
||||
stx r7H
|
||||
jsr WriteRecord
|
||||
stx __oserror
|
||||
txa
|
||||
rts
|
||||
jmp setoserror
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char GetCharWidth (char character);
|
||||
|
||||
@ -10,4 +10,7 @@
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
|
||||
_GetCharWidth = GetCharWidth
|
||||
_GetCharWidth:
|
||||
jsr GetCharWidth
|
||||
ldx #0
|
||||
rts
|
||||
|
||||
@ -1,12 +1,13 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 29.10.99
|
||||
; 29.10.1999, 2.1.2003
|
||||
|
||||
; char TestPoint (struct pixel *mypixel);
|
||||
|
||||
.import PointRegs
|
||||
.import return0, return1
|
||||
.export _TestPoint
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
@ -15,7 +16,5 @@ _TestPoint:
|
||||
jsr PointRegs
|
||||
jsr TestPoint
|
||||
bcc goFalse
|
||||
lda #$ff
|
||||
rts
|
||||
goFalse: lda #0
|
||||
rts
|
||||
jmp return1
|
||||
goFalse: jmp return0
|
||||
|
||||
@ -1,16 +1,20 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 22.12.99
|
||||
; 22.12.1999, 2.1.2003
|
||||
|
||||
; char CmpString (char *dest, char* source);
|
||||
|
||||
.import DoubleSPop
|
||||
.import return0, return1
|
||||
.export _CmpString
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
|
||||
_CmpString:
|
||||
jsr DoubleSPop
|
||||
jmp CmpString
|
||||
jsr CmpString
|
||||
bne L1
|
||||
jmp return0
|
||||
L1: jmp return1
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char VerifyRAM (char REUBank, int length, char *reuaddy, char *cpuaddy);
|
||||
|
||||
@ -16,4 +16,5 @@ _VerifyRAM:
|
||||
jsr REURegs
|
||||
jsr VerifyRAM
|
||||
txa
|
||||
ldx #0
|
||||
rts
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char GetNextChar (void);
|
||||
; note that if it returns 0 (FALSE) then no characters are available
|
||||
@ -11,4 +11,8 @@
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
|
||||
_GetNextChar = GetNextChar
|
||||
_GetNextChar:
|
||||
jsr GetNextChar
|
||||
ldx #0
|
||||
tay ; preserve Z flag
|
||||
rts
|
||||
|
||||
@ -1,12 +1,13 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 21.12.99
|
||||
; 21.12.1999, 2.1.2003
|
||||
|
||||
; char IsMseInRegion (struct window *mywindow);
|
||||
|
||||
.import RectRegs
|
||||
.import return0, return1
|
||||
|
||||
.export _IsMseInRegion
|
||||
|
||||
@ -14,4 +15,7 @@
|
||||
|
||||
_IsMseInRegion:
|
||||
jsr RectRegs
|
||||
jmp IsMseInRegion
|
||||
jsr IsMseInRegion
|
||||
bne L1
|
||||
jmp return0
|
||||
L1: jmp return1
|
||||
|
||||
@ -51,6 +51,7 @@ _mse_storex:
|
||||
stx mouseRight+1
|
||||
_mse_initend:
|
||||
lda #0
|
||||
tax
|
||||
; --------------------------------------------------------------------------
|
||||
;
|
||||
; void mouse_done (void);
|
||||
@ -178,6 +179,7 @@ _mouse_move:
|
||||
;
|
||||
|
||||
_mouse_buttons:
|
||||
ldx #0
|
||||
lda pressFlag
|
||||
and #SET_MOUSE
|
||||
lsr
|
||||
|
||||
@ -15,6 +15,7 @@
|
||||
.include "../inc/geossym2.inc"
|
||||
|
||||
get_ostype:
|
||||
ldx #0
|
||||
lda version
|
||||
and #%11110000
|
||||
cmp #$10
|
||||
@ -50,5 +51,6 @@ ntsc: lda #$80 ; NTSC
|
||||
|
||||
modeend: stx tmp1
|
||||
ora tmp1
|
||||
ldx #0
|
||||
plp ; restore interrupt state
|
||||
rts
|
||||
|
||||
@ -1,13 +1,16 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Alliance' Witkowiak
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 30.10.99
|
||||
; 30.10.1999, 2.1.2003
|
||||
|
||||
; int GetRandom (void);
|
||||
; char GetRandom (void);
|
||||
|
||||
.export _GetRandom
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
|
||||
_GetRandom = GetRandom
|
||||
_GetRandom:
|
||||
jsr GetRandom
|
||||
ldx #0
|
||||
rts
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user