mirror of
https://github.com/irmen/prog8.git
synced 2024-09-17 07:55:28 +00:00
111 lines
2.8 KiB
Lua
111 lines
2.8 KiB
Lua
%import c64utils
|
|
%import mathlib
|
|
%option enable_floats
|
|
|
|
~ main {
|
|
|
|
;c64scr.PLOT(screenx(x), screeny(y)) ; @todo fix argument calculation???!!!
|
|
|
|
sub start() {
|
|
|
|
|
|
byte[4] ba = [-1,2,-10,30]
|
|
ubyte[4] uba = [4,200,10,15]
|
|
word[4] wa = [400,-200,-1000,1500]
|
|
uword[4] uwa = [4000,200,1000,150]
|
|
float[6] fa = [-2.22, 3.33, -5.55, 1.11, 9999.99, -999.99]
|
|
c64scr.print(" X=")
|
|
c64scr.print_ub(X)
|
|
c64.CHROUT('\n')
|
|
|
|
byte bmin = min(ba)
|
|
byte bmax = max(ba)
|
|
ubyte ubmin = min(uba)
|
|
ubyte ubmax = max(uba)
|
|
; word wmin = min(wa)
|
|
; word wmax = max(wa)
|
|
; uword uwmin = min(uwa)
|
|
; uword uwmax = max(uwa)
|
|
float fmin = min(fa)
|
|
float fmax = max(fa)
|
|
|
|
c64scr.print_b(bmin)
|
|
c64.CHROUT(',')
|
|
c64scr.print_b(bmax)
|
|
c64.CHROUT('\n')
|
|
c64scr.print_ub(ubmin)
|
|
c64.CHROUT(',')
|
|
c64scr.print_ub(ubmax)
|
|
c64.CHROUT('\n')
|
|
; c64scr.print_w(wmin)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_w(wmax)
|
|
; c64.CHROUT('\n')
|
|
; c64scr.print_uw(uwmin)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_uw(uwmax)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
c64flt.print_f(fmin)
|
|
c64.CHROUT(',')
|
|
c64flt.print_f(fmax)
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print(" X=")
|
|
c64scr.print_ub(X)
|
|
c64.CHROUT('\n')
|
|
|
|
; ub3 = 200/67 as ubyte
|
|
; ub3 = 200//67
|
|
; c64scr.print_ub(ub3)
|
|
; c64.CHROUT('\n')
|
|
; ub3 = ub1/ub2
|
|
; c64scr.print_ub(ub3)
|
|
; c64.CHROUT('\n')
|
|
; ub3 = ub1//ub2
|
|
; c64scr.print_ub(ub3)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; uw3 = 2000/67 as uword
|
|
; c64scr.print_uw(uw3)
|
|
; c64.CHROUT('\n')
|
|
; uw3 = 2000//67
|
|
; c64scr.print_uw(uw3)
|
|
; c64.CHROUT('\n')
|
|
; uw3 = uw1/uw2
|
|
; c64scr.print_uw(uw3)
|
|
; c64.CHROUT('\n')
|
|
; uw3 = uw1//uw2
|
|
; c64scr.print_uw(uw3)
|
|
; c64.CHROUT('\n')
|
|
;
|
|
|
|
; const byte width=20
|
|
; word w1
|
|
; byte b1
|
|
; ubyte ub1
|
|
; float x = 3.45
|
|
; b1 = fintb(x * flt(width)/4.2) + width//2
|
|
; c64scr.print_b(b1)
|
|
; c64.CHROUT('\n')
|
|
; b1 = fintb(x/4.2 * flt(width)) + width//2
|
|
; c64scr.print_b(b1)
|
|
; c64.CHROUT('\n')
|
|
; ub1 = b2ub(fintb(x * flt(width)/4.2) + width//2)
|
|
; c64scr.print_ub(ub1)
|
|
; c64.CHROUT('\n')
|
|
; ub1 = b2ub(fintb(x/4.2 * flt(width)) + width//2)
|
|
; c64scr.print_ub(ub1)
|
|
; c64.CHROUT('\n')
|
|
; w1 = fintw(x * flt(width)/4.2) + width//2
|
|
; c64scr.print_w(w1)
|
|
; c64.CHROUT('\n')
|
|
; w1 = fintw(x/4.2 * flt(width)) + width//2
|
|
; c64scr.print_w(w1)
|
|
; c64.CHROUT('\n')
|
|
;uw1 = w2uw(fintw(x * flt(width)/4.2) + width//2) ; @todo w2uw
|
|
|
|
}
|
|
}
|
|
|