prog8/python/testsource/input.ill
2018-09-15 16:35:15 +02:00

52 lines
939 B
Plaintext

%output basic
%import c64lib
~ main {
var .str name = "????????????????????????????????????????????????????????????????????????????????" ; 80
var .word orig_irq
start:
c64.init_system()
orig_irq = c64.CINV
SI = 1
c64.CINV = &irq_handler
SI = 0
c64scr.print_string("enter your name: ")
c64scr.input_chars(name)
c64.CHROUT('\n')
blop:
return
%breakpoint
return
; yeah!
c64scr.print_string("thank you, mr or mrs: ")
c64scr.print_string(name)
c64.CHROUT('\n')
SI = 1
c64.CINV = orig_irq
SI = 0
return
irq_handler:
%asm {
lda c64.SFDX
cmp #$40 ; nothing pressed?
beq +
inc c64.EXTCOL ; otherwise change color
+ jmp c64.IRQDFRT
}
}