Skip to content

Commit 6a9a82f

Browse files
committed
doc
1 parent aa36e6b commit 6a9a82f

File tree

2 files changed

+22
-7
lines changed

2 files changed

+22
-7
lines changed

compiler/res/prog8lib/c128/syslib.p8

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -317,13 +317,11 @@ c128 {
317317
&ubyte VM4 = $0A2F ; starting page for VDC attribute mem
318318

319319

320-
; TODO c128 a bunch of kernal routines are missing here that are specific to the c128
321-
322320
extsub $FF47 = SPIN_SPOUT() clobbers(A) ; set up serial bus for fast communications mode
323321
extsub $FF4A = CLOSE_ALL(ubyte device @X) clobbers(X) ; close all channels to specific device
324-
extsub $FF4D = C64_MODE() ; restart machine in C64 mode (does not return)
325-
extsub $FF50 = DMA_CALL(ubyte bank @X, ubyte command @Y) clobbers(A,X) ; send a command to a DMA device
326-
extsub $FF53 = BOOT_CALL(ubyte device @X, ubyte drive @A) clobbers(A,X,Y) ; try to autoboot the given disk
322+
extsub $FF4D = C64_MODE() ; restart machine in C64 mode (does not return)
323+
extsub $FF50 = DMA_CALL(ubyte bank @X, ubyte command @Y) clobbers(A,X) ; send a command to a DMA device
324+
extsub $FF53 = BOOT_CALL(ubyte device @X, ubyte drive @A) clobbers(A,X,Y) ; try to autoboot the given disk
327325
extsub $FF56 = PHOENIX() clobbers(A,X,Y) ; search for and autostart ROMs, cartridges, then default disk
328326
extsub $FF59 = LKUPLA(ubyte lfn @A) -> bool @Pc, ubyte @X ; look up logical file number to see if it's open; returns device
329327
extsub $FF5C = LKUPSA(ubyte sa @Y) -> bool @Pc, ubyte @A, ubyte @X ; look up secondary address to see if it's in use; returns lfn and device

docs/source/_static/symboldumps/skeletons-c128.txt

Lines changed: 19 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -494,8 +494,25 @@ c128 {
494494
&ubyte VM2
495495
&ubyte VM3
496496
&ubyte VM4
497-
JSRFAR () = $ff6e
498-
SETBNK (ubyte databank @A, ubyte filenamebank @X) = $ff68
497+
BOOT_CALL (ubyte device @X, ubyte drive @A) -> clobbers (A,X,Y) = $ff53
498+
C64_MODE () = $ff4d
499+
CLOSE_ALL (ubyte device @X) -> clobbers (X) = $ff4a
500+
DLCHR () -> clobbers (A,X,Y) = $ff62
501+
DMA_CALL (ubyte bank @X, ubyte command @Y) -> clobbers (A,X) = $ff50
502+
GETCFG (ubyte bank @X) -> ubyte @A = $ff6b
503+
INDCMP (ubyte value @A, ubyte bank @X, ubyte offset @Y) -> clobbers (X) -> bool @Pz, bool @Pc, bool @Pv = $ff7a
504+
INDFET (ubyte zpaddr @A, ubyte bank @X, ubyte offset @Y) -> clobbers (X) -> ubyte @A = $ff74
505+
INDSTA (ubyte value @A, ubyte bank @X, ubyte offset @Y) -> clobbers (X) = $ff77
506+
JMPFAR () -> clobbers (A,X) = $ff71
507+
JSRFAR () -> clobbers (A,X) = $ff6e
508+
LKUPLA (ubyte lfn @A) -> bool @Pc, ubyte @X = $ff59
509+
LKUPSA (ubyte sa @Y) -> bool @Pc, ubyte @A, ubyte @X = $ff5c
510+
PFKEY (ubyte zpaddr @A, ubyte key @X, ubyte length @Y) = $ff65
511+
PHOENIX () -> clobbers (A,X,Y) = $ff56
512+
PRIMM () = $ff7d
513+
SETBNK (ubyte data_bank @A, ubyte filename_bank @X) = $ff68
514+
SPIN_SPOUT () -> clobbers (A) = $ff47
515+
SWAPPER () -> clobbers (A,X,Y) = $ff5f
499516
banks (ubyte banks @A)
500517
disable_basic () -> clobbers (A)
501518
getbanks () -> ubyte @A

0 commit comments

Comments
 (0)