2018-10-22 22:52:51 +00:00
|
|
|
; %import c64utils
|
|
|
|
%option enable_floats
|
|
|
|
%output raw
|
|
|
|
%launcher none
|
2018-10-16 20:49:19 +00:00
|
|
|
|
|
|
|
~ main {
|
|
|
|
|
2018-10-22 22:52:51 +00:00
|
|
|
sub start() {
|
2018-10-23 21:05:08 +00:00
|
|
|
|
|
|
|
ubyte pixely = 255
|
2018-10-24 23:05:35 +00:00
|
|
|
ubyte ub = 0
|
2018-10-23 23:39:52 +00:00
|
|
|
byte b = 99
|
|
|
|
byte b2 = 100
|
|
|
|
word w = 999
|
|
|
|
word w2 = 3
|
|
|
|
uword uw = 40000
|
|
|
|
uword uw2 = 3434
|
|
|
|
float fl1 = 1.1
|
|
|
|
float fl2 = 2.2
|
|
|
|
|
2018-10-24 23:05:35 +00:00
|
|
|
byte[5] barr1
|
|
|
|
byte[5] barr2
|
|
|
|
ubyte[5] ubarr1
|
|
|
|
ubyte[5] ubarr2
|
|
|
|
word[5] warr1
|
|
|
|
word[5] warr2
|
|
|
|
uword[5] uwarr1
|
|
|
|
uword[5] uwarr2
|
|
|
|
float[5] farr1
|
|
|
|
float[5] farr2
|
|
|
|
byte[2,3] bmatrix1
|
|
|
|
byte[2,3] bmatrix2
|
|
|
|
ubyte[2,3] ubmatrix1
|
|
|
|
ubyte[2,3] ubmatrix2
|
|
|
|
|
|
|
|
|
2018-10-24 15:51:56 +00:00
|
|
|
memory byte mbyte = $c000
|
2018-10-24 22:28:50 +00:00
|
|
|
memory byte mbyte2 = $d000
|
2018-10-24 15:51:56 +00:00
|
|
|
memory ubyte mubyte = $c001
|
2018-10-24 22:28:50 +00:00
|
|
|
memory ubyte mubyte2 = $d001
|
2018-10-24 15:51:56 +00:00
|
|
|
memory word mword = $c002
|
2018-10-24 22:28:50 +00:00
|
|
|
memory word mword2 = $d002
|
2018-10-24 15:51:56 +00:00
|
|
|
memory uword muword = $c004
|
2018-10-24 22:28:50 +00:00
|
|
|
memory uword muword2 = $d004
|
2018-10-24 15:51:56 +00:00
|
|
|
memory float mfloat = $c006
|
2018-10-24 22:28:50 +00:00
|
|
|
memory float mfloat2 = $d006
|
2018-10-24 15:51:56 +00:00
|
|
|
|
2018-10-24 23:05:35 +00:00
|
|
|
|
|
|
|
barr1[2]=42
|
|
|
|
ubarr1[2]=42
|
|
|
|
warr1[2]=12555
|
|
|
|
uwarr1[2]=42555
|
|
|
|
farr1[2]=42.5678
|
|
|
|
|
|
|
|
barr1[2] = b
|
|
|
|
ubarr1[2] = ub
|
|
|
|
warr1[2] = w
|
|
|
|
uwarr1[2] = uw
|
|
|
|
farr1[2] = fl1
|
|
|
|
|
|
|
|
barr1[2] = mbyte
|
|
|
|
ubarr1[2] = mubyte
|
|
|
|
warr1[2] = mword
|
|
|
|
uwarr1[2] = muword
|
|
|
|
farr1[2] = mfloat
|
|
|
|
|
|
|
|
b= barr1[2]
|
|
|
|
ub = ubarr1[2]
|
|
|
|
w = warr1[2]
|
|
|
|
uw = uwarr1[2]
|
|
|
|
fl1 = farr1[2]
|
|
|
|
|
|
|
|
mbyte= barr1[2]
|
|
|
|
mubyte = ubarr1[2]
|
|
|
|
mword = warr1[2]
|
|
|
|
muword = uwarr1[2]
|
|
|
|
mfloat = farr1[2]
|
|
|
|
|
|
|
|
barr1[2] = barr2[3]
|
|
|
|
ubarr1[2] = ubarr2[3]
|
|
|
|
warr1[2] = warr2[3]
|
|
|
|
uwarr1[2] = uwarr2[3]
|
|
|
|
farr1[2] = farr2[3]
|
|
|
|
|
|
|
|
|
|
|
|
|
2018-10-24 22:28:50 +00:00
|
|
|
; b = 1
|
2018-10-24 23:05:35 +00:00
|
|
|
; ub = 1
|
2018-10-24 22:28:50 +00:00
|
|
|
; w = 1
|
|
|
|
; uw = 1
|
|
|
|
; fl1 = 2.345
|
|
|
|
;
|
|
|
|
; b = b2
|
2018-10-24 23:05:35 +00:00
|
|
|
; ub = pixely
|
2018-10-24 22:28:50 +00:00
|
|
|
; w = w2
|
|
|
|
; uw = uw2
|
|
|
|
; fl1 = fl2
|
|
|
|
;
|
|
|
|
; b = mbyte
|
2018-10-24 23:05:35 +00:00
|
|
|
; ub = mubyte
|
2018-10-24 22:28:50 +00:00
|
|
|
; w = mword
|
|
|
|
; uw = muword
|
|
|
|
; fl1 = mfloat
|
|
|
|
;
|
|
|
|
; mbyte = 1
|
|
|
|
; mubyte = 1
|
|
|
|
; mword = 1
|
|
|
|
; muword = 1
|
|
|
|
; mfloat = 3.456
|
2018-10-24 15:51:56 +00:00
|
|
|
|
2018-10-24 23:05:35 +00:00
|
|
|
; %breakpoint
|
|
|
|
;
|
|
|
|
; mbyte = b
|
|
|
|
; mubyte = ub
|
|
|
|
; mword = w
|
|
|
|
; muword = uw
|
|
|
|
; mfloat = fl2
|
|
|
|
;
|
|
|
|
; %breakpoint
|
|
|
|
;
|
|
|
|
; mbyte = mbyte2
|
|
|
|
; mubyte = mubyte2
|
|
|
|
; mword = mword2
|
|
|
|
; muword = muword2
|
|
|
|
; mfloat = mfloat2
|
|
|
|
;
|
2018-10-23 21:05:08 +00:00
|
|
|
|
2018-10-22 22:52:51 +00:00
|
|
|
return
|
2018-10-13 14:09:10 +00:00
|
|
|
}
|
2018-10-16 00:26:35 +00:00
|
|
|
|
2018-10-16 20:49:19 +00:00
|
|
|
}
|