2019-07-01 21:41:30 +00:00
|
|
|
%import c64utils
|
2019-07-15 01:57:51 +00:00
|
|
|
%import c64flt
|
2019-07-01 21:41:30 +00:00
|
|
|
%zeropage basicsafe
|
2019-07-15 01:57:51 +00:00
|
|
|
%option enable_floats
|
2019-03-29 01:13:28 +00:00
|
|
|
|
2019-03-19 00:22:26 +00:00
|
|
|
~ main {
|
2019-04-21 01:04:13 +00:00
|
|
|
|
2019-07-08 13:13:24 +00:00
|
|
|
sub start() {
|
2019-07-15 01:57:51 +00:00
|
|
|
byte[] array=[1,2,3,4,5]
|
2019-07-15 20:28:05 +00:00
|
|
|
word[5] warray
|
|
|
|
float[5] flarray
|
|
|
|
|
|
|
|
warray[0]=flarray[0] as word
|
2019-07-10 17:14:41 +00:00
|
|
|
|
2019-07-15 01:57:51 +00:00
|
|
|
ubyte length = len(array)
|
|
|
|
c64scr.print_ub(length)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte length1 = any(array)
|
|
|
|
c64scr.print_ub(length1)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte length1b = all(array)
|
|
|
|
c64scr.print_ub(length1b)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte length1c = max(array)
|
|
|
|
c64scr.print_ub(length1c)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte length1d = min(array)
|
|
|
|
c64scr.print_ub(length1d)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte xlength = len([1,2,3])
|
|
|
|
c64scr.print_ub(xlength)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
ubyte xlength1 = any([1,0,3])
|
|
|
|
c64scr.print_ub(xlength1)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte xlength1b = all([1,0,3])
|
|
|
|
c64scr.print_ub(xlength1b)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte xlength1c = max([1,2,3])
|
|
|
|
c64scr.print_ub(xlength1c)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
ubyte xlength1d = min([1,2,3])
|
|
|
|
c64scr.print_ub(xlength1d)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
|
|
word s1 = sum(array)
|
|
|
|
c64scr.print_w(s1)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
|
|
|
|
uword s2 = sum([1,23])
|
|
|
|
c64scr.print_uw(s2)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
|
|
|
|
float ff1=avg(array)
|
|
|
|
c64flt.print_f(ff1)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
float ff2=avg([1,2,3])
|
|
|
|
|
|
|
|
c64flt.print_f(ff2)
|
|
|
|
c64.CHROUT('\n')
|
2019-07-12 22:27:03 +00:00
|
|
|
return
|
2019-07-10 17:14:41 +00:00
|
|
|
}
|
|
|
|
|
2019-04-11 22:04:15 +00:00
|
|
|
}
|