cc65/libsrc/geos-common/file/readrecord.s

;
; Maciej 'YTM/Elysium' Witkowiak
;
; 25.12.1999, 2.1.2003

; char ReadRecord  (char *buffer, int length);

	    .export _ReadRecord
	    .import popax, setoserror

	    .include "jumptab.inc"
	    .include "diskdrv.inc"
	    .include "geossym.inc"
	
_ReadRecord:
	sta r2L
	stx r2H
	jsr popax
	sta r7L
	stx r7H
	jsr ReadRecord
	jmp setoserror
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			`;`
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 2003-01-02 01:50:39 +00:00			`; Maciej 'YTM/Elysium' Witkowiak`
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			`;`
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 2003-01-02 01:50:39 +00:00			`; 25.12.1999, 2.1.2003`
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
			`; char ReadRecord (char *buffer, int length);`

			`.export _ReadRecord`
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 2003-01-02 01:50:39 +00:00			`.import popax, setoserror`
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
Avoid paths in .include directives. The path needs to be rather set in the Makefile to allow to set it later depending on the target currently built. git-svn-id: svn://svn.cc65.org/cc65/trunk@5431 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-01-31 20:49:58 +00:00			`.include "jumptab.inc"`
On Apple GEOS all "low jumptable" entries went into 'diskdrv.inc'. So this needs to be included in quite some source files. git-svn-id: svn://svn.cc65.org/cc65/trunk@5511 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-02-09 09:24:09 +00:00			`.include "diskdrv.inc"`
Avoid paths in .include directives. The path needs to be rather set in the Makefile to allow to set it later depending on the target currently built. git-svn-id: svn://svn.cc65.org/cc65/trunk@5431 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-01-31 20:49:58 +00:00			`.include "geossym.inc"`
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
			`_ReadRecord:`
			`sta r2L`
			`stx r2H`
			`jsr popax`
			`sta r7L`
			`stx r7H`
			`jsr ReadRecord`
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 2003-01-02 01:50:39 +00:00			`jmp setoserror`