1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-27 19:30:04 +00:00

C264 fixes and improvements

This commit is contained in:
Karol Stasiak 2018-12-19 22:26:10 +01:00
parent 310df1a8de
commit 5153bd0551
5 changed files with 36 additions and 4 deletions

View File

@ -7,8 +7,9 @@ modules=loader_1001,c264_kernal,c264_hardware,default_panic,stdlib
[allocation]
; TODO
zp_pointers=$C1,$C3,$FB,$FD,$39,$3B,$3D,$43,$4B
zp_pointers=3,5,7,$2b,$2D,$2F,$31,$9B
segment_default_start=$100D
segment_default_datastart=after_code
segment_default_end=$3FFF
[define]

30
include/c264_basic.mfk Normal file
View File

@ -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!

View File

@ -28,7 +28,7 @@ inline void set_ted_cursor(word position) {
}
inline word get_ted_cursor() {
return ted_cursor_hi:position.lo
return ted_cursor_hi:ted_cursor_lo
}
const byte black = 0

View File

@ -10,7 +10,7 @@ import err
// print a 16-bit number on the standard output
asm void putword_basic(word xa) @$BDCD extern
//alias putword = putword_basic!
alias putword = putword_basic!
asm void __readline_basic() @$A560 extern

View File

@ -7,8 +7,9 @@ modules=loader_1001,c264_kernal,c264_hardware,default_panic,stdlib
[allocation]
; TODO
zp_pointers=$C1,$C3,$FB,$FD,$39,$3B,$3D,$43,$4B
zp_pointers=3,5,7,$2b,$2D,$2F,$31,$9B
segment_default_start=$100D
segment_default_datastart=after_code
segment_default_end=$3FFF
[define]