2020-03-24 23:32:54 +00:00
|
|
|
%import c64lib
|
2020-03-14 23:47:21 +00:00
|
|
|
%import c64utils
|
2020-04-08 22:12:50 +00:00
|
|
|
%import c64flt
|
2020-04-03 20:44:10 +00:00
|
|
|
%zeropage basicsafe
|
2019-08-09 00:15:31 +00:00
|
|
|
|
2020-03-24 18:37:54 +00:00
|
|
|
|
2020-06-14 00:39:48 +00:00
|
|
|
|
2020-03-24 23:32:54 +00:00
|
|
|
main {
|
2020-06-03 23:43:37 +00:00
|
|
|
|
2020-06-14 00:39:48 +00:00
|
|
|
sub jumpsub() {
|
|
|
|
|
|
|
|
; goto jumpsub ; TODO fix compiler loop
|
|
|
|
goto blabla
|
|
|
|
blabla:
|
|
|
|
A=99
|
|
|
|
return
|
|
|
|
|
|
|
|
}
|
|
|
|
|
2020-06-14 12:13:39 +00:00
|
|
|
sub func(ubyte arg) -> ubyte {
|
|
|
|
c64.CHROUT(arg)
|
|
|
|
return sin8(arg)
|
|
|
|
}
|
|
|
|
|
|
|
|
sub func2(ubyte arg) -> ubyte {
|
|
|
|
return sin8(arg)
|
|
|
|
}
|
|
|
|
|
2020-06-14 00:39:48 +00:00
|
|
|
sub start() {
|
2020-06-15 20:29:08 +00:00
|
|
|
ubyte[] a1 = 3 to 20
|
|
|
|
|
|
|
|
; ubyte[18] a2 = 3 to 20
|
|
|
|
; float[18] floats2 = 3 to 20
|
|
|
|
; ubyte[11] bytes = 22
|
|
|
|
; float[11] floats = 3.33
|
|
|
|
;
|
|
|
|
; float[] array = [1, 1+1, -33]
|
|
|
|
; byte[] array2 = [1, 1+1, -33, -2]
|
|
|
|
|
|
|
|
; float[] array2 = 42 ; TODO nice error
|
|
|
|
;ubyte[len(array)] bytesE = 22 ; TODO fix error
|
|
|
|
;float[len(array2)] floatsE = 3.33 ; TODO fix error
|
|
|
|
|
|
|
|
; const ubyte q = 123
|
|
|
|
; byte bbb
|
|
|
|
; float ff
|
|
|
|
;
|
|
|
|
; A = bytes[1]
|
|
|
|
; ff = array[1]
|
|
|
|
; A = len(array)
|
|
|
|
; A = len(array2)
|
|
|
|
; str sss = "zzz"
|
|
|
|
; str x = "zxcvzxcv"
|
|
|
|
;
|
|
|
|
; ff = 1234.44 + 99.0
|
|
|
|
; float ff2 = -3.3333
|
|
|
|
; ff=ff2*2
|
|
|
|
; A = 123+22+11
|
|
|
|
; bbb = -99
|
|
|
|
;
|
|
|
|
; A = q
|
|
|
|
; A = func(1+q)
|
|
|
|
; func(1+q)
|
|
|
|
;
|
|
|
|
; Y=99
|
|
|
|
; A = func2(1+q)
|
|
|
|
; func2(1+q)
|
|
|
|
;
|
|
|
|
; x = @(&sss)
|
2020-03-13 01:05:15 +00:00
|
|
|
}
|
2020-06-14 00:39:48 +00:00
|
|
|
|
2020-03-21 17:39:36 +00:00
|
|
|
}
|
2020-03-24 21:02:50 +00:00
|
|
|
|
2020-03-24 23:32:54 +00:00
|
|
|
|