2017-12-23 13:36:23 +00:00
|
|
|
output prg,sys ; create a c-64 program with basic SYS to() launch it
|
2017-12-21 13:52:30 +00:00
|
|
|
|
|
|
|
import "c64lib.ill"
|
|
|
|
|
|
|
|
~ main
|
|
|
|
{
|
|
|
|
var .text greeting = "hello world!\r12345678 is a big number.\r"
|
|
|
|
var .ptext p_greeting = "hello world!\r12345678 is a big number.\r"
|
|
|
|
const .word BORDER = $d020
|
|
|
|
|
|
|
|
start
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_pimmediate ! () ; this prints the pstring immediately following it
|
2017-12-21 13:52:30 +00:00
|
|
|
asm {
|
|
|
|
.ptext "hello-pimmediate!{cr}"
|
|
|
|
}
|
|
|
|
|
|
|
|
A = 19
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_decimal0 ! ()
|
|
|
|
c64.CHROUT ! (13)
|
2017-12-21 13:52:30 +00:00
|
|
|
A = 19
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_decimal ! ()
|
|
|
|
c64.CHROUT ! (13)
|
2017-12-21 13:52:30 +00:00
|
|
|
|
|
|
|
|
|
|
|
X = $01
|
|
|
|
Y = $02
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_word_decimal0 ! ()
|
|
|
|
c64.CHROUT ! (13)
|
2017-12-21 13:52:30 +00:00
|
|
|
X = $01
|
|
|
|
Y = $02
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_word_decimal ! ()
|
|
|
|
c64.CHROUT ! (13)
|
2017-12-21 13:52:30 +00:00
|
|
|
return
|
|
|
|
|
|
|
|
start2
|
2017-12-23 13:36:23 +00:00
|
|
|
global2.make_screen_black()
|
|
|
|
c64.CLEARSCR()
|
2017-12-21 13:52:30 +00:00
|
|
|
XY = greeting
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_string()
|
2017-12-21 13:52:30 +00:00
|
|
|
XY = p_greeting
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_pstring()
|
2017-12-21 13:52:30 +00:00
|
|
|
A = 0
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_decimal()
|
2017-12-21 13:52:30 +00:00
|
|
|
A = 0
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_hex()
|
|
|
|
c64.CHROUT(13)
|
|
|
|
c64util.print_byte_decimal()
|
2017-12-21 13:52:30 +00:00
|
|
|
A = 13
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_hex()
|
|
|
|
c64.CHROUT(13)
|
2017-12-21 13:52:30 +00:00
|
|
|
A = 255
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_decimal()
|
2017-12-21 13:52:30 +00:00
|
|
|
A = 254
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_hex()
|
2017-12-21 13:52:30 +00:00
|
|
|
A = 129
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_byte_hex()
|
|
|
|
c64.CHROUT(13)
|
2017-12-21 13:52:30 +00:00
|
|
|
|
2017-12-23 13:36:23 +00:00
|
|
|
c64.CHROUT(13)
|
2017-12-21 13:52:30 +00:00
|
|
|
X = 1
|
|
|
|
Y = 0
|
2017-12-23 13:36:23 +00:00
|
|
|
c64util.print_word_decimal()
|
|
|
|
c64.CHROUT(13)
|
2017-12-21 13:52:30 +00:00
|
|
|
return
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
~ global2 {
|
|
|
|
|
|
|
|
make_screen_black
|
|
|
|
c64.EXTCOL = c64.BGCOL0 = 0
|
|
|
|
c64.COLOR = 3
|
|
|
|
return
|
|
|
|
|
|
|
|
}
|