mirror of
https://github.com/KarolS/millfork.git
synced 2026-04-24 12:16:29 +00:00
C264 fixes and improvements
This commit is contained in:
@@ -0,0 +1,30 @@
|
||||
// Routines from C264 BASIC ROM
|
||||
|
||||
#if not(CBM_264)
|
||||
#warn c264_basic module should be only used on C264-compatible targets
|
||||
#endif
|
||||
|
||||
import c264_kernal
|
||||
import err
|
||||
|
||||
// print a 16-bit number on the standard output
|
||||
asm void putword_basic(word xa) @$A45F extern
|
||||
|
||||
alias putword = putword_basic!
|
||||
|
||||
asm void __readline_basic() @$885A extern
|
||||
|
||||
pointer readline_basic() {
|
||||
__readline_basic()
|
||||
return readline_out
|
||||
}
|
||||
|
||||
alias readline = readline_basic!
|
||||
|
||||
const pointer readline_out = $200
|
||||
|
||||
inline word readword_basic() {
|
||||
return strz2word(readline_basic())
|
||||
}
|
||||
|
||||
alias readword = readword_basic!
|
||||
Reference in New Issue
Block a user