prog8/il65/examples/test.ill

~ main $c003  {
  word[1000]  ascending = 10 to 1009
  word[100]  ascending2 = "a" to "z"
  str  ascending3 = "a" to "z"
  str  ascending5 = "z" to "z"
  const byte cc = 4 + (2==9)
  byte cc2 = 4 - (2==10)
  memory byte derp = max($ffdd)
  memory byte derpA = abs(-2.5-0.5)
  memory byte derpB = max(1, 2.2, 4.4, 100)
  memory byte cderp = min($ffdd)+ (1/1)
  memory byte cderpA = min($ffdd, 10, 20, 30)
  memory byte cderpB = min(1, 2.2, 4.4, 100)
  memory byte derp2 = 2+$ffdd+round(10*sin(3))
  const byte hopla=55-33
  const byte hopla3=100+(-hopla)
  const byte hopla4 = 100-hopla
  const byte hopla1=main.hopla
  const float blerp1 = zwop / 2.22
  const float zwop = -1.7014118345e+38
  const float zwop2 = -1.7014118345e+38
  const float blerp2 = zwop / 2.22
  const byte equal = 4==4
  const byte equal2 = (4+hopla)>0

	%breakpoint

  byte equalQQ = 4==4
  const byte equalQQ2 = (4+hopla)>0

  equalQQ = foo(33)
  equalQQ = main.foo(33)
  XY = hopla*2+hopla1
  A = "derp" * %000100

  byte equalWW = 4==4
  const byte equalWW2 = (4+hopla)>0

	if (1==1) goto hopla

	if (1==2) return 44

	if (2==2) A=4

	if (3==3) X=5 else A=99

	if (5==5) {
		A=99
		%breakpoint
	}

	if(6==6) {
		A=99
	}  else X=33

	if(6>36) {
		A=99
	}  else {
		X=33
	}

  main.foo(1,2,3)

mega:
	X=1
cool:
	Y=2

  sub foo () -> () {
  	byte blerp = 3
  	A=99
  	return 33
  	X =33
mega:
cool:

  }


some_label_def:   A=44
  return 1+999
	%breakpoint
	%asminclude "derp", hopsa
	%asmbinary "derp", 0, 200
}


%import imported
%import imported
%import imported2
%import imported2