6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-01-10 20:29:35 +00:00
Code Issues Projects Releases Wiki Activity

CoCo: Improvements

Browse Source
This commit is contained in:
Karol Stasiak 2020-07-31 13:29:13 +02:00
parent 72dcf2342e
commit 03a57138f0
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
include/coco/kernal.mfk
View File

@ -1,7 +1,10 @@
noinline asm void putchar(byte register(a) character) { noinline asm void putchar(byte register(a) character) {
clr <$6f clr $6f
jsr [$a002] jsr [$a002]
rts rts
} }
inline void new_line() {
putchar(13)
}

5
include/coco/keyboard.mfk
View File

@ -1,7 +1,8 @@
noinline asm byte readkey() { noinline asm byte readkey() {
clr <$6f clr $6f
jsr [$A000] jsr [$A000]
tfr b,a beq readkey
tfr a,b
rts rts
} }