mirror of
https://github.com/irmen/prog8.git
synced 2024-07-19 04:28:56 +00:00
38 lines
648 B
Plaintext
38 lines
648 B
Plaintext
output prg,sys
|
|
|
|
import "c64lib"
|
|
|
|
~ main {
|
|
|
|
var .text name = "?"*80
|
|
|
|
start
|
|
XY = c64.CINV
|
|
SI = 1
|
|
c64.CINV = #irq_handler
|
|
SI = 0
|
|
|
|
c64util.print_string("enter your name: ")
|
|
c64util.input_chars(name)
|
|
c64.CHROUT('\n')
|
|
c64util.print_string("thank you, mr or mrs: ")
|
|
c64util.print_string(name)
|
|
c64.CHROUT('\n')
|
|
|
|
SI = 1
|
|
c64.CINV = XY
|
|
SI = 0
|
|
|
|
return
|
|
|
|
irq_handler
|
|
asm {
|
|
lda $cb
|
|
cmp #$40
|
|
beq +
|
|
inc c64.EXTCOL
|
|
+ jmp c64.IRQDFRT
|
|
}
|
|
|
|
|
|
} |