mirror of
https://github.com/KarolS/millfork.git
synced 2024-12-23 08:29:35 +00:00
26 lines
472 B
Plaintext
26 lines
472 B
Plaintext
|
|
#if not(APPLE_2)
|
|
#warn apple2_kernel module should be used only on Apple II-compatible targets
|
|
#endif
|
|
|
|
array hires_page_1 [$2000] @$2000
|
|
array hires_page_2 [$2000] @$4000
|
|
|
|
asm void bell() @$FBE4 extern
|
|
|
|
asm void putchar(byte register(a) char) @$FDED extern
|
|
asm void new_line() @$FC62 extern
|
|
asm pointer readline() {
|
|
jsr $FD6A
|
|
ldx #$ff
|
|
__readline_loop:
|
|
inx
|
|
lda $200,x
|
|
cmp #$8d
|
|
bne __readline_loop
|
|
lda #0
|
|
sta $200,x
|
|
ldx #2
|
|
rts
|
|
}
|