millfork/include/c128_kernal.mfk

// Routines from Commodore 128 KERNAL ROM

#if not(CBM_128)
#warn c128_kernal module should be only used on C128-compatible targets
#endif

// CHROUT. Write byte to default output. (If not screen, must call OPEN and CHKOUT beforehands.)
// Input: A = Byte to write.
asm void chrout(byte a) @$FFD2 extern

asm void putchar(byte a) {
    JSR chrout
    LDA #0
    STA $F4
    ? RTS
}

noinline asm byte readkey() {
__read_key__start:
    LDA $D0
    BEQ __read_key__start
    LDX #0
    JMP $C244
}

inline void new_line() {
    putchar(13)
}