mirror of
https://github.com/irmen/prog8.git
synced 2025-02-18 05:30:34 +00:00
48 lines
1.1 KiB
Lua
48 lines
1.1 KiB
Lua
%import c64lib
|
|
%import c64utils
|
|
%import c64flt
|
|
%zeropage dontuse
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
byte[] barr = [-100, 0, 99, -122, 22]
|
|
ubyte[] ubarr = [100, 0, 99, 199, 22]
|
|
word[] warr = [-1000, 0, 999, -4444, 222]
|
|
uword[] uwarr = [1000, 0, 222, 4444, 999]
|
|
float[] farr = [-1000.1, 0, 999.9, -4444.4, 222.2]
|
|
str name = "irmen"
|
|
ubyte ub
|
|
byte bb
|
|
word ww
|
|
uword uw
|
|
float ff
|
|
|
|
; LEN/STRLEN
|
|
ubyte length = len(name)
|
|
if(length!=5) c64scr.print("error len1\n")
|
|
length = len(uwarr)
|
|
if(length!=5) c64scr.print("error len2\n")
|
|
length=strlen(name)
|
|
if(length!=5) c64scr.print("error strlen1\n")
|
|
name[3] = 0
|
|
length=strlen(name)
|
|
if(length!=3) c64scr.print("error strlen2\n")
|
|
|
|
; MAX
|
|
; ub = max(ubarr)
|
|
; bb = max(barr)
|
|
; ww = max(warr)
|
|
; uw = max(uwarr)
|
|
; ff = max(farr)
|
|
|
|
; word ww = sum(barr)
|
|
; uword uw = sum(ubarr)
|
|
; ww = sum(warr)
|
|
; uw = sum(uwarr)
|
|
; float ff = sum(farr)
|
|
|
|
c64scr.print("\nyou should see no errors above.")
|
|
}
|
|
}
|