diff --git a/libsrc/cbm/c_acptr.s b/libsrc/cbm/c_acptr.s index 87f063a07..b060b614e 100644 --- a/libsrc/cbm/c_acptr.s +++ b/libsrc/cbm/c_acptr.s @@ -4,8 +4,9 @@ ; unsigned char cbm_k_acptr (void); ; + .include "cbm.inc" + .export _cbm_k_acptr - .import ACPTR _cbm_k_acptr: diff --git a/libsrc/cbm/c_basin.s b/libsrc/cbm/c_basin.s index 15d7e7f5c..da925a1a4 100644 --- a/libsrc/cbm/c_basin.s +++ b/libsrc/cbm/c_basin.s @@ -4,8 +4,9 @@ ; unsigned char cbm_k_basin (void); ; + .include "cbm.inc" + .export _cbm_k_basin - .import BASIN _cbm_k_basin: diff --git a/libsrc/cbm/c_bsout.s b/libsrc/cbm/c_bsout.s index 8b9f44037..104878453 100644 --- a/libsrc/cbm/c_bsout.s +++ b/libsrc/cbm/c_bsout.s @@ -4,7 +4,8 @@ ; void __fastcall__ cbm_k_bsout (unsigned char C); ; + .include "cbm.inc" + .export _cbm_k_bsout - .import BSOUT _cbm_k_bsout = BSOUT diff --git a/libsrc/cbm/c_chkin.s b/libsrc/cbm/c_chkin.s index 4ed8c1bff..490adcefc 100644 --- a/libsrc/cbm/c_chkin.s +++ b/libsrc/cbm/c_chkin.s @@ -4,8 +4,10 @@ ; unsigned char __fastcall__ cbm_k_chkin (unsigned char FN); ; + .include "cbm.inc" + .export _cbm_k_chkin - .import CHKIN + _cbm_k_chkin: tax diff --git a/libsrc/cbm/c_ciout.s b/libsrc/cbm/c_ciout.s index 9906e0658..baf9e4735 100644 --- a/libsrc/cbm/c_ciout.s +++ b/libsrc/cbm/c_ciout.s @@ -4,7 +4,7 @@ ; void __fastcall__ cbm_k_ciout (unsigned char C); ; - .import CIOUT + + .include "cbm.inc" + .export _cbm_k_ciout := CIOUT - - diff --git a/libsrc/cbm/c_ckout.s b/libsrc/cbm/c_ckout.s index 380d7170a..46a5804dd 100644 --- a/libsrc/cbm/c_ckout.s +++ b/libsrc/cbm/c_ckout.s @@ -4,8 +4,9 @@ ; unsigned char __fastcall__ cbm_k_ckout (unsigned char FN); ; + .include "cbm.inc" + .export _cbm_k_ckout - .import CKOUT _cbm_k_ckout: diff --git a/libsrc/cbm/c_clall.s b/libsrc/cbm/c_clall.s index cdd7d4ddc..406d4f5cc 100644 --- a/libsrc/cbm/c_clall.s +++ b/libsrc/cbm/c_clall.s @@ -4,5 +4,6 @@ ; void cbm_k_clall (void); ; - .import CLALL + .include "cbm.inc" + .export _cbm_k_clall := CLALL diff --git a/libsrc/cbm/c_close.s b/libsrc/cbm/c_close.s index 9582baca2..50d35b67c 100644 --- a/libsrc/cbm/c_close.s +++ b/libsrc/cbm/c_close.s @@ -4,11 +4,10 @@ ; void __fastcall__ cbm_k_close (unsigned char FN); ; + .include "cbm.inc" + .export _cbm_k_close - .import CLOSE _cbm_k_close: - clc + clc jmp CLOSE - - diff --git a/libsrc/cbm/c_clrch.s b/libsrc/cbm/c_clrch.s index 7c0506a1c..e537f4553 100644 --- a/libsrc/cbm/c_clrch.s +++ b/libsrc/cbm/c_clrch.s @@ -4,7 +4,8 @@ ; void cbm_k_clrch (void); ; + .include "cbm.inc" + .export _cbm_k_clrch - .import CLRCH _cbm_k_clrch = CLRCH diff --git a/libsrc/cbm/c_getin.s b/libsrc/cbm/c_getin.s index b4cb34f76..43009e91a 100644 --- a/libsrc/cbm/c_getin.s +++ b/libsrc/cbm/c_getin.s @@ -4,9 +4,9 @@ ; unsigned char cbm_k_getin (void); ; - .export _cbm_k_getin - .import GETIN + .include "cbm.inc" + .export _cbm_k_getin _cbm_k_getin: jsr GETIN diff --git a/libsrc/cbm/c_iobase.s b/libsrc/cbm/c_iobase.s index 254879017..9c77506e2 100644 --- a/libsrc/cbm/c_iobase.s +++ b/libsrc/cbm/c_iobase.s @@ -4,10 +4,11 @@ ; unsigned cbm_k_iobase (void); ; - .export _cbm_k_iobase - .import IOBASE + .include "cbm.inc" -_cbm_k_iobase: + .export _cbm_k_iobase + +_cbm_k_iobase: jsr IOBASE txa pha diff --git a/libsrc/cbm/c_listen.s b/libsrc/cbm/c_listen.s index 85ef8b7fa..43859944f 100644 --- a/libsrc/cbm/c_listen.s +++ b/libsrc/cbm/c_listen.s @@ -4,10 +4,6 @@ ; void __fastcall__ cbm_k_listen (unsigned char dev); ; - .import LISTEN + .include "cbm.inc" + .export _cbm_k_listen := LISTEN - - - - - diff --git a/libsrc/cbm/c_load.s b/libsrc/cbm/c_load.s index f2b5b0c89..d81430a03 100644 --- a/libsrc/cbm/c_load.s +++ b/libsrc/cbm/c_load.s @@ -4,8 +4,9 @@ ; unsigned int __fastcall__ cbm_k_load (unsigned char flag, unsigned addr); ; + .include "cbm.inc" + .export _cbm_k_load - .import LOAD .import __oserror .import popa .importzp ptr1 @@ -27,4 +28,3 @@ _cbm_k_load: tax pla rts - diff --git a/libsrc/cbm/c_open.s b/libsrc/cbm/c_open.s index 6461ffedf..a4462ff47 100644 --- a/libsrc/cbm/c_open.s +++ b/libsrc/cbm/c_open.s @@ -4,8 +4,9 @@ ; unsigned char cbm_k_open (void); ; + .include "cbm.inc" + .export _cbm_k_open - .import OPEN _cbm_k_open: diff --git a/libsrc/cbm/c_readst.s b/libsrc/cbm/c_readst.s index 301cd9b42..85211dd2f 100644 --- a/libsrc/cbm/c_readst.s +++ b/libsrc/cbm/c_readst.s @@ -4,8 +4,9 @@ ; unsigned char cbm_k_readst (void); ; + .include "cbm.inc" + .export _cbm_k_readst - .import READST _cbm_k_readst: diff --git a/libsrc/cbm/c_save.s b/libsrc/cbm/c_save.s index 0597e9401..bd2e32bc4 100644 --- a/libsrc/cbm/c_save.s +++ b/libsrc/cbm/c_save.s @@ -4,8 +4,9 @@ ; unsigned char __fastcall__ cbm_k_save(unsigned int start, unsigned int end); ; + .include "cbm.inc" + .export _cbm_k_save - .import SAVE .import popptr1 .importzp ptr1, tmp1 diff --git a/libsrc/cbm/c_scnkey.s b/libsrc/cbm/c_scnkey.s index cdae50e7b..0fb74a46e 100644 --- a/libsrc/cbm/c_scnkey.s +++ b/libsrc/cbm/c_scnkey.s @@ -4,5 +4,6 @@ ; void cbm_k_scnkey (void); ; - .import SCNKEY + .include "cbm.inc" + .export _cbm_k_scnkey := SCNKEY diff --git a/libsrc/cbm/c_second.s b/libsrc/cbm/c_second.s index b5cc98c80..6902a2a68 100644 --- a/libsrc/cbm/c_second.s +++ b/libsrc/cbm/c_second.s @@ -4,9 +4,8 @@ ; void __fastcall__ cbm_k_second (unsigned char addr) ; + .include "cbm.inc" - .import SECOND - .export _cbm_k_second + .export _cbm_k_second _cbm_k_second = SECOND - diff --git a/libsrc/cbm/c_setlfs.s b/libsrc/cbm/c_setlfs.s index 00ebfae7a..47ef213c3 100644 --- a/libsrc/cbm/c_setlfs.s +++ b/libsrc/cbm/c_setlfs.s @@ -6,11 +6,12 @@ ; unsigned char SA); ; + .include "cbm.inc" + .export _cbm_k_setlfs - .import SETLFS .import popa .importzp tmp1 - + _cbm_k_setlfs: sta tmp1 ; Save SA @@ -19,5 +20,3 @@ _cbm_k_setlfs: jsr popa ; Get LFN ldy tmp1 ; Get SA jmp SETLFS - - diff --git a/libsrc/cbm/c_setnam.s b/libsrc/cbm/c_setnam.s index 3249d8539..d13394835 100644 --- a/libsrc/cbm/c_setnam.s +++ b/libsrc/cbm/c_setnam.s @@ -4,10 +4,11 @@ ; void __fastcall__ cbm_k_setnam (const char* Name); ; + .include "cbm.inc" + .export _cbm_k_setnam - .import SETNAM .importzp ptr1 - + _cbm_k_setnam: sta ptr1 ; Store pointer to file name @@ -21,4 +22,3 @@ _cbm_k_setnam: ldx ptr1 ldy ptr1+1 jmp SETNAM - diff --git a/libsrc/cbm/c_talk.s b/libsrc/cbm/c_talk.s index ff80b3499..7b1d7d6ce 100644 --- a/libsrc/cbm/c_talk.s +++ b/libsrc/cbm/c_talk.s @@ -4,12 +4,6 @@ ; void __fastcall__ cbm_k_talk (unsigned char dev); ; - .import TALK + .include "cbm.inc" + .export _cbm_k_talk := TALK - - - - - - - diff --git a/libsrc/cbm/c_tksa.s b/libsrc/cbm/c_tksa.s index b818d7205..8576375be 100644 --- a/libsrc/cbm/c_tksa.s +++ b/libsrc/cbm/c_tksa.s @@ -4,9 +4,8 @@ ; void __fastcall__ cbm_k_tksa (unsigned char addr) ; + .include "cbm.inc" - .import TKSA - .export _cbm_k_tksa + .export _cbm_k_tksa _cbm_k_tksa = TKSA - diff --git a/libsrc/cbm/c_udtim.s b/libsrc/cbm/c_udtim.s index b867efaba..19447d6f4 100644 --- a/libsrc/cbm/c_udtim.s +++ b/libsrc/cbm/c_udtim.s @@ -4,5 +4,6 @@ ; void cbm_k_udtim (void); ; - .import UDTIM + .include "cbm.inc" + .export _cbm_k_udtim := UDTIM diff --git a/libsrc/cbm/c_unlsn.s b/libsrc/cbm/c_unlsn.s index fd6b1b074..39d8eea71 100644 --- a/libsrc/cbm/c_unlsn.s +++ b/libsrc/cbm/c_unlsn.s @@ -4,5 +4,6 @@ ; void cbm_k_unlsn (void); ; - .import UNLSN + .include "cbm.inc" + .export _cbm_k_unlsn := UNLSN diff --git a/libsrc/cbm/c_untlk.s b/libsrc/cbm/c_untlk.s index 3865564cd..68fba208f 100644 --- a/libsrc/cbm/c_untlk.s +++ b/libsrc/cbm/c_untlk.s @@ -4,8 +4,8 @@ ; void cbm_k_untlk (void); ; - .export _cbm_k_untlk - .import UNTLK + .include "cbm.inc" + .export _cbm_k_untlk _cbm_k_untlk = UNTLK diff --git a/libsrc/cbm/cbm.inc b/libsrc/cbm/cbm.inc index 0e513ffe8..4fdcb67a7 100644 --- a/libsrc/cbm/cbm.inc +++ b/libsrc/cbm/cbm.inc @@ -7,46 +7,51 @@ ; Subroutines available in the CBM jump table ; -;CINT = $FF81 -;IOINIT = $FF84 -;RAMTAS = $FF87 -;RESTOR = $FF8A -;VECTOR = $FF8D -;SETMSG = $FF90 -;SECOND = $FF93 -;TKSA = $FF96 -;MEMTOP = $FF99 -;MEMBOT = $FF9C -;SCNKEY = $FF9F -;SETTMO = $FFA2 -;ACPTR = $FFA5 -;CIOUT = $FFA8 -;UNTLK = $FFAB -;UNLSN = $FFAE -;LISTEN = $FFB1 -;TALK = $FFB4 -;READST = $FFB7 -;SETLFS = $FFBA -;SETNAM = $FFBD -;OPEN = $FFC0 -;CLOSE = $FFC3 -;CHKIN = $FFC6 -;CKOUT = $FFC9 -;CLRCH = $FFCC -;BASIN = $FFCF -;BSOUT = $FFD2 -;LOAD = $FFD5 -;SAVE = $FFD8 -;SETTIM = $FFDB -;RDTIM = $FFDE -;STOP = $FFE1 -;GETIN = $FFE4 -;CLALL = $FFE7 -;UDTIM = $FFEA -;SCREEN = $FFED -;PLOT = $FFF0 -;IOBASE = $FFF3 +.import C64MODE +.import SWAPPER +.import SETBNK +.import CINT +.import IOINIT +.import RAMTAS +.import VECTOR +.import RESTOR +.import SETMSG +.import SECOND +.import TKSA +.import MEMTOP +.import MEMBOT +.import SCNKEY +.import SETTMO +.import ACPTR +.import CIOUT +.import UNTLK +.import UNLSN +.import LISTEN +.import TALK +.import READST +.import SETLFS +.import SETNAM +.import OPEN +.import CLOSE +.import LOAD +.import SAVE +.import SETTIM +.import RDTIM +.import SCREEN +.import PLOT +.import IOBASE +.import CHKIN +.import CKOUT +.import CLRCH +.import BASIN +.import CHRIN +.import BSOUT +.import CHROUT +.import STOP +.import GETIN +.import CLALL +.import UDTIM ;----------------------------------------------------------------------------- ; Device numbers @@ -63,5 +68,3 @@ CBMDEV_SCREEN = 3 MAX_DRIVES = 23 FIRST_DRIVE = 8 - - diff --git a/libsrc/cbm/cbm_read.s b/libsrc/cbm/cbm_read.s index c84ff65aa..b010966a3 100644 --- a/libsrc/cbm/cbm_read.s +++ b/libsrc/cbm/cbm_read.s @@ -39,7 +39,6 @@ .include "cbm.inc" .export _cbm_read - .import CHKIN, READST, BASIN, CLRCH .importzp ptr1, ptr2, ptr3, tmp1 .import popax, popa .import __oserror diff --git a/libsrc/cbm/cbm_write.s b/libsrc/cbm/cbm_write.s index 0b709dff8..2d932d04a 100644 --- a/libsrc/cbm/cbm_write.s +++ b/libsrc/cbm/cbm_write.s @@ -31,11 +31,10 @@ .include "cbm.inc" .export _cbm_write - .import CKOUT, READST, BSOUT, CLRCH .importzp ptr1, ptr2, ptr3 .import popax, popa .import __oserror - + _cbm_write: sta ptr3 diff --git a/libsrc/cbm/clock.s b/libsrc/cbm/clock.s index ce36e3af5..b5fa6e89b 100644 --- a/libsrc/cbm/clock.s +++ b/libsrc/cbm/clock.s @@ -4,10 +4,10 @@ ; clock_t clock (void); ; - .export _clock - .import RDTIM - .importzp sreg + .include "cbm.inc" + .export _clock + .importzp sreg .proc _clock @@ -19,4 +19,3 @@ rts .endproc - diff --git a/libsrc/cbm/close.s b/libsrc/cbm/close.s index b43c07b57..7fc600e87 100644 --- a/libsrc/cbm/close.s +++ b/libsrc/cbm/close.s @@ -6,7 +6,6 @@ .export _close - .import CLOSE .import readdiskerror, closecmdchannel .importzp tmp2 @@ -17,7 +16,7 @@ ;-------------------------------------------------------------------------- ; _close - + .proc _close ; Check if we have a valid handle @@ -64,7 +63,3 @@ invalidfd: jmp __directerrno ; Set _errno, clear _oserror, return -1 .endproc - - - - diff --git a/libsrc/cbm/diskcmd.s b/libsrc/cbm/diskcmd.s index d090afe14..dbc15efbe 100644 --- a/libsrc/cbm/diskcmd.s +++ b/libsrc/cbm/diskcmd.s @@ -11,8 +11,6 @@ .export writediskcmd .export writefndiskcmd - .import SETLFS, SETNAM, OPEN, CLOSE, BSOUT, BASIN - .import CHKIN, CKOUT, CLRCH .import fncmd, fnlen, fnunit .importzp tmp1, ptr1 diff --git a/libsrc/cbm/filename.s b/libsrc/cbm/filename.s index a2b8aab5a..413b88d2a 100644 --- a/libsrc/cbm/filename.s +++ b/libsrc/cbm/filename.s @@ -8,11 +8,11 @@ .export fnadd, fnaddmode, fncomplete, fndefunit .export fnunit, fnlen, fnisfile, fncmd, fnbuf - .import SETNAM .import curunit, __filetype .importzp ptr1, tmp1 .include "ctype.inc" + .include "cbm.inc" ;------------------------------------------------------------------------------ diff --git a/libsrc/cbm/open.s b/libsrc/cbm/open.s index 5c97aff56..f23e97383 100644 --- a/libsrc/cbm/open.s +++ b/libsrc/cbm/open.s @@ -7,7 +7,6 @@ .export _open .destructor closeallfiles, 5 - .import SETLFS, OPEN, CLOSE .import addysp, popax .import scratch, fnparse, fnaddmode, fncomplete, fnset .import opencmdchannel, closecmdchannel, readdiskerror @@ -18,6 +17,7 @@ .include "errno.inc" .include "fcntl.inc" .include "filedes.inc" + .include "cbm.inc" ;-------------------------------------------------------------------------- diff --git a/libsrc/cbm/read.s b/libsrc/cbm/read.s index 9de4980ce..ee01596aa 100644 --- a/libsrc/cbm/read.s +++ b/libsrc/cbm/read.s @@ -8,7 +8,6 @@ .export _read .constructor initstdin - .import SETLFS, OPEN, CHKIN, BASIN, CLRCH, BSOUT, READST .import rwcommon .import popax .importzp ptr1, ptr2, ptr3, tmp1, tmp2, tmp3 diff --git a/libsrc/cbm/write.s b/libsrc/cbm/write.s index dddec0792..7a27f0044 100644 --- a/libsrc/cbm/write.s +++ b/libsrc/cbm/write.s @@ -7,7 +7,6 @@ .export _write .constructor initstdout - .import SETLFS, OPEN, CKOUT, BSOUT, READST, CLRCH .import rwcommon .importzp sp, ptr1, ptr2, ptr3