2018-07-12 16:30:35 +00:00
|
|
|
|
|
|
|
#if not(APPLE_2)
|
|
|
|
#warn apple2_kernel module should be used only on Apple II-compatible targets
|
|
|
|
#endif
|
|
|
|
|
2018-01-23 12:37:03 +00:00
|
|
|
array hires_page_1 [$2000] @$2000
|
|
|
|
array hires_page_2 [$2000] @$4000
|
|
|
|
|
|
|
|
asm void bell() @$FBE4 extern
|
|
|
|
|
2020-03-30 17:23:48 +00:00
|
|
|
asm void putchar(byte register(a) char) @$FDED extern
|
2018-12-17 16:18:29 +00:00
|
|
|
asm void new_line() @$FC62 extern
|
2020-04-08 09:11:25 +00:00
|
|
|
asm pointer readline() {
|
2021-01-26 01:15:18 +00:00
|
|
|
jsr $FD6F
|
2020-04-08 09:11:25 +00:00
|
|
|
ldx #$ff
|
|
|
|
__readline_loop:
|
|
|
|
inx
|
|
|
|
lda $200,x
|
|
|
|
cmp #$8d
|
|
|
|
bne __readline_loop
|
|
|
|
lda #0
|
|
|
|
sta $200,x
|
|
|
|
ldx #2
|
|
|
|
rts
|
|
|
|
}
|