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

New version from Oliver Schmidt

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3423 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-03-26 17:23:14 +00:00
parent 5363f9bee3
commit 1bf894cf44
2 changed files with 90 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
libsrc/Makefile
View File

@ -56,31 +56,15 @@ apple2lib:
# Apple //e
apple2enhlib:
for i in apple2 apple2enh common runtime conio dbg em joystick tgi zlib; do \
for i in apple2enh common runtime conio dbg em joystick tgi zlib; do \
$(MAKE) SYS=apple2enh -C $$i || exit 1; \
done
for i in common runtime conio dbg em joystick tgi zlib; do \
$(AR) a apple2enh.lib $$i/*.o;\
done
for objfile in apple2/*.o; do \
basefile=`basename $$objfile .o`; \
if [ -f ../apple2enh/$$basefile ]; then \
$(AR) a apple2enh.lib ../apple2enh/$$basefile; \
else \
$(AR) a apple2enh.lib $$objfile; \
fi \
done
for objfile in apple2enh/*.o; do \
basefile=`basename $$objfile .o`; \
if [ \! -f ../apple2/$$basefile ]; then \
$(AR) a apple2enh.lib $$objfile; \
fi \
done
mv apple2/crt0.o apple2enh.o
cp apple2/apple2-lc.emd a2e.lc.emd
cp apple2/apple2-280-192-6.tgi a2e.hi.tgi
cp apple2/apple2-40-40-16.tgi a2e.lo.tgi
cp apple2/apple2-stdjoy.joy a2e.stdjoy.joy
mv apple2enh/crt0.o apple2enh.o
cp apple2enh/apple2-lc.emd a2e.lc.emd
cp apple2enh/apple2-280-192-6.tgi a2e.hi.tgi
cp apple2enh/apple2-40-40-16.tgi a2e.lo.tgi
cp apple2enh/apple2-stdjoy.joy a2e.stdjoy.joy
#-----------------------------------------------------------------------------
# Atari

84
libsrc/apple2/mli.inc Normal file
View File

@ -0,0 +1,84 @@
;
; Oliver Schmidt, 30.12.2004
;
; Apple ProDOS 8 MLI
;
CREATE_CALL = $C0
CREATE_COUNT = 7
ON_LINE_CALL = $C5
ON_LINE_COUNT = 2
OPEN_CALL = $C8
OPEN_COUNT = 3
READ_CALL = $CA
WRITE_CALL = $CB
RW_COUNT = 4
CLOSE_CALL = $CC
CLOSE_COUNT = 1
SET_MARK_CALL = $CE
GET_MARK_CALL = $CF
MARK_COUNT = 2
SET_EOF_CALL = $D0
GET_EOF_CALL = $D1
EOF_COUNT = 2
.struct MLI
.union
.struct CREATE
PARAM_COUNT .byte
PATHNAME .addr
ACCESS .byte
FILE_TYPE .byte
AUX_TYPE .word
STORAGE_TYPE .byte
CREATE_DATE .word
CREATE_TIME .word
.endstruct
.struct ON_LINE
PARAM_COUNT .byte
UNIT_NUM .byte
DATA_BUFFER .addr
.endstruct
.struct OPEN
PARAM_COUNT .byte
PATHNAME .addr
IO_BUFFER .addr
REF_NUM .byte
.endstruct
.struct RW
PARAM_COUNT .byte
REF_NUM .byte
DATA_BUFFER .addr
REQUEST_COUNT .word
TRANS_COUNT .word
.endstruct
.struct CLOSE
PARAM_COUNT .byte
REF_NUM .byte
.endstruct
.struct MARK
PARAM_COUNT .byte
REF_NUM .byte
POSITION .byte 3
.endstruct
.struct EOF
PARAM_COUNT .byte
REF_NUM .byte
EOF .byte 3
.endstruct
.endunion
.endstruct
.global mliparam
.global callmli
ENTRY := $BF00 ; MLI call entry point
DEVNUM := $BF30 ; Most recent accessed device
PFIXPTR := $BF9A ; If = 0, no prefix active
KVERSION:= $BFFF ; Kernel version number