2020-03-14 23:47:21 +00:00
|
|
|
%import c64utils
|
2020-03-20 21:28:18 +00:00
|
|
|
%import c64flt
|
|
|
|
%option enable_floats
|
2019-08-17 23:39:48 +00:00
|
|
|
%zeropage basicsafe
|
2019-08-09 00:15:31 +00:00
|
|
|
|
2020-03-14 23:23:54 +00:00
|
|
|
main {
|
2019-08-05 21:36:24 +00:00
|
|
|
|
2020-03-21 12:22:04 +00:00
|
|
|
sub start() {
|
|
|
|
str meuk = "hello"
|
|
|
|
ubyte bb1 = 99
|
|
|
|
ubyte key=c64.GETIN()
|
|
|
|
ubyte[] zzzz = [1,2,3]
|
|
|
|
|
2020-03-21 17:39:36 +00:00
|
|
|
A = 9.0 as ubyte as uword as ubyte as ubyte
|
|
|
|
A = Y as ubyte
|
|
|
|
A = @(&bb1)
|
2020-03-21 12:22:04 +00:00
|
|
|
A = len(meuk)
|
|
|
|
A = msb(meuk)
|
|
|
|
; A = strlen(meuk)
|
|
|
|
func(meuk, zzzz)
|
|
|
|
func(zzzz, "zzzz")
|
|
|
|
func("hello2", meuk)
|
2020-03-13 01:05:15 +00:00
|
|
|
}
|
|
|
|
|
2020-03-21 12:22:04 +00:00
|
|
|
sub func(uword addr1, uword addr2) {
|
|
|
|
c64scr.print_uwhex(addr1, 1)
|
2020-03-20 22:21:52 +00:00
|
|
|
c64.CHROUT('\n')
|
2020-03-21 12:22:04 +00:00
|
|
|
c64scr.print_uwhex(addr2, 1)
|
2020-03-20 22:21:52 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
c64.CHROUT('\n')
|
2020-03-13 01:05:15 +00:00
|
|
|
}
|
2020-03-21 17:39:36 +00:00
|
|
|
}
|