mirror of
https://github.com/irmen/prog8.git
synced 2024-08-18 23:29:32 +00:00
34 lines
660 B
Plaintext
34 lines
660 B
Plaintext
output prg,sys
|
|
|
|
import "c64lib"
|
|
|
|
~ main {
|
|
|
|
var .text name = "?"*80
|
|
|
|
start
|
|
SI = 1
|
|
[$0314.word] = #irq_handler
|
|
SI = 0
|
|
|
|
c64util.print_string("enter your name: ")
|
|
c64util.input_chars(name)
|
|
c64.CHROUT('\n')
|
|
; c64util.print_string("thank you, ") ; @todo fix param parsing /splitting
|
|
c64util.print_string("thank you ")
|
|
c64util.print_string(name)
|
|
c64.CHROUT('\n')
|
|
|
|
return
|
|
|
|
irq_handler
|
|
asm {
|
|
lda $cb
|
|
cmp #$40
|
|
beq +
|
|
inc c64.EXTCOL
|
|
+ jmp c64.IRQDFRT
|
|
}
|
|
|
|
|
|
} |