mirror of
https://github.com/irmen/prog8.git
synced 2024-10-18 01:24:51 +00:00
219 lines
6.1 KiB
Lua
219 lines
6.1 KiB
Lua
%import c64utils
|
|
%option enable_floats
|
|
|
|
~ main {
|
|
|
|
; @todo fix floating point number corruption
|
|
; @todo add avg implementations
|
|
|
|
word[10] xword = [1,2,3,4,5,6,7,8,9,-1111]
|
|
word[10] yword = [11,22,33,44,55,66,77,88,99,-1111 ]
|
|
word[10] zword = [1,2,3,4,5,6,7,8,9,-9999]
|
|
|
|
uword[10] xuword = [1,2,3,4,5,6,7,88,99,1111]
|
|
uword[10] yuword = [11,22,33,44,55,66,77,88,99,1111 ]
|
|
uword[10] zuword = [1,2,3,4,5,6,77,88,99,9999]
|
|
|
|
byte[10] xbyte = [1,2,3,4,5,6,7,8,9,-110]
|
|
byte[10] ybyte = [ 11,22,33,44,55,-66,-77,-88,-99,-110 ]
|
|
byte[10] zbyte = [1,2,3,4,5,6,7,8,9,-99]
|
|
|
|
ubyte[10] xubyte = [1,2,3,4,5,6,77,88,99,111]
|
|
ubyte[10] yubyte = [11,22,33,44,55,66,77,88,99,111]
|
|
ubyte[10] zubyte = [1,2,3,4,5,66,7,88,99,111]
|
|
|
|
float[10] xcoor = [ 1,2,3,4,5,6,7,8,9.9,11.11 ]
|
|
float[10] ycoor = [ 11,22,33,44,55,66,77,88,99.9,111.11 ]
|
|
float[10] zcoor = [ 111,222,333,444,555,666,777,888,999.9,1001.11 ]
|
|
|
|
sub start() {
|
|
; c64scr.print("\nxword:\n")
|
|
; for word w1 in xword {
|
|
; c64scr.print_w(w1)
|
|
; c64.CHROUT(',')
|
|
; }
|
|
|
|
; c64scr.print("\nxcoor:\n")
|
|
; for float f1 in xcoor {
|
|
; c64flt.print_f(f1)
|
|
; c64.CHROUT(',')
|
|
; }
|
|
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("ycoor:\n")
|
|
; for float f2 in ycoor {
|
|
; c64flt.print_f(f2)
|
|
; c64.CHROUT(',')
|
|
; }
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("zcoor:\n")
|
|
; for float f3 in zcoor {
|
|
; c64flt.print_f(f3)
|
|
; c64.CHROUT(',')
|
|
; }
|
|
; c64.CHROUT('\n')
|
|
|
|
c64.CHROUT('X')
|
|
c64scr.print_ub(X)
|
|
c64.CHROUT('\n')
|
|
word sumbx = min(xbyte) ; -65
|
|
word sumby = min(ybyte) ; -275
|
|
word sumbz = min(zbyte) ; -54
|
|
uword sumubx = min(xubyte) ; 396
|
|
uword sumuby = min(yubyte) ; 606
|
|
uword sumubz = min(zubyte) ; 386
|
|
word sumwx = min(xword) ; -1066
|
|
word sumwy = min(yword) ; -616
|
|
word sumwz = min(zword) ; -9954
|
|
uword sumuwx = min(xuword) ; 1326
|
|
uword sumuwy = min(yuword) ; 1606
|
|
uword sumuwz = min(zuword) ; 10284
|
|
float sumfx = min(xcoor) ; 57.01
|
|
float sumfy = min(ycoor) ; 607.01
|
|
float sumfz = min(zcoor) ; 5997.01
|
|
|
|
c64.CHROUT('X')
|
|
c64scr.print_ub(X)
|
|
c64.CHROUT('\n')
|
|
; float avgbx = avg(xbyte)
|
|
; float avgby = avg(ybyte)
|
|
; float avgbz = avg(zbyte)
|
|
; float avgubx = avg(xubyte)
|
|
; float avguby = avg(yubyte)
|
|
; float avgubz = avg(zubyte)
|
|
; float avgwx = avg(xword)
|
|
; float avgwy = avg(yword)
|
|
; float avgwz = avg(zword)
|
|
; float avguwx = avg(xuword)
|
|
; float avguwy = avg(yuword)
|
|
; float avguwz = avg(zuword)
|
|
; float avgfx = avg(xcoor)
|
|
; float avgfy = avg(ycoor)
|
|
; float avgfz = avg(zcoor)
|
|
; c64.CHROUT('X')
|
|
; c64scr.print_ub(X)
|
|
; c64.CHROUT('\n')
|
|
|
|
c64scr.print("sumbx=")
|
|
c64scr.print_w(sumbx)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumby=")
|
|
c64scr.print_w(sumby)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumbz=")
|
|
c64scr.print_w(sumbz)
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print("sumubx=")
|
|
c64scr.print_uw(sumubx)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumuby=")
|
|
c64scr.print_uw(sumuby)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumubz=")
|
|
c64scr.print_uw(sumubz)
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print("sumwx=")
|
|
c64scr.print_w(sumwx)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumwy=")
|
|
c64scr.print_w(sumwy)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumwz=")
|
|
c64scr.print_w(sumwz)
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print("sumuwx=")
|
|
c64scr.print_uw(sumuwx)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumuwy=")
|
|
c64scr.print_uw(sumuwy)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumuwz=")
|
|
c64scr.print_uw(sumuwz)
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print("sumfx=")
|
|
c64flt.print_f(sumfx)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumfy=")
|
|
c64flt.print_f(sumfy)
|
|
c64.CHROUT('\n')
|
|
c64scr.print("sumfz=")
|
|
c64flt.print_f(sumfz)
|
|
c64.CHROUT('\n')
|
|
|
|
return
|
|
|
|
; c64scr.print("avgbx=")
|
|
; c64flt.print_f(avgbx)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avgby=")
|
|
; c64flt.print_f(avgby)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avgbz=")
|
|
; c64flt.print_f(avgbz)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; c64scr.print("avgubx=")
|
|
; c64flt.print_f(avgubx)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avguby=")
|
|
; c64flt.print_f(avguby)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avgubz=")
|
|
; c64flt.print_f(avgubz)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; c64scr.print("avgwx=")
|
|
; c64flt.print_f(avgwx)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avgwy=")
|
|
; c64flt.print_f(avgwy)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avgwz=")
|
|
; c64flt.print_f(avgwz)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; c64scr.print("avguwx=")
|
|
; c64flt.print_f(avguwx)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avguwy=")
|
|
; c64flt.print_f(avguwy)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avguwz=")
|
|
; c64flt.print_f(avguwz)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; c64scr.print("avgfx=")
|
|
; c64flt.print_f(avgfx)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avgfy=")
|
|
; c64flt.print_f(avgfy)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print("avgfz=")
|
|
; c64flt.print_f(avgfz)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; return
|
|
|
|
|
|
c64scr.print("\nseparated i=2\n")
|
|
c64scr.print(" x[2]=")
|
|
c64flt.print_f(xcoor[2]) ; @todo wrong value printed
|
|
|
|
c64scr.print(" y[2]=")
|
|
c64flt.print_f(ycoor[2])
|
|
c64scr.print(" z[2]=")
|
|
c64flt.print_f(zcoor[2])
|
|
c64scr.print("\nseparated i=3\n")
|
|
c64scr.print(" x[3]=")
|
|
c64flt.print_f(xcoor[3])
|
|
c64scr.print(" y[3]=")
|
|
c64flt.print_f(ycoor[3])
|
|
c64scr.print(" z[3]=")
|
|
c64flt.print_f(zcoor[3])
|
|
}
|
|
}
|