mirror of
https://github.com/irmen/prog8.git
synced 2024-11-26 11:49:22 +00:00
45 lines
710 B
Plaintext
45 lines
710 B
Plaintext
output prg,basic
|
|
|
|
import "c64lib"
|
|
|
|
~ main {
|
|
var .text name = "?"*80
|
|
|
|
start
|
|
c64.init_system()
|
|
|
|
XY = c64.CINV
|
|
SI = 1
|
|
c64.CINV = #irq_handler
|
|
SI = 0
|
|
|
|
|
|
c64scr.print_string("enter your name: ")
|
|
c64scr.input_chars(name)
|
|
c64.CHROUT('\n')
|
|
|
|
blop
|
|
breakpoint ; yeah!
|
|
|
|
c64scr.print_string("thank you, mr or mrs: ")
|
|
c64scr.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
|
|
}
|
|
|
|
|
|
} |