2018-02-03 01:44:14 +01:00
|
|
|
%output basic
|
2018-02-01 23:14:12 +01:00
|
|
|
%import c64lib
|
2018-01-01 23:24:39 +01:00
|
|
|
|
2018-01-12 00:55:47 +01:00
|
|
|
~ main {
|
2018-01-07 19:14:21 +01:00
|
|
|
|
2018-02-02 22:42:09 +01:00
|
|
|
;var .float flt
|
2018-02-01 23:14:12 +01:00
|
|
|
; var bytevar = 22 + 23 ; @todo constant-fold before semantic check
|
|
|
|
|
; var .float initfloat1 = -1.234e-14 ; @todo constant-fold before semantic check / fix float parse?
|
|
|
|
|
; var .float initfloat2 = -555.666 ; @todo constant-fold before semantic check / fix float parse?
|
|
|
|
|
; var .text guess = '?' * 80 ; @todo constant-fold before semantic check
|
|
|
|
|
const .word border = $d020
|
2018-02-03 01:44:14 +01:00
|
|
|
var .word border2 = $d020
|
|
|
|
|
memory screenm = $d021
|
2018-01-28 21:58:16 +01:00
|
|
|
|
2018-01-03 21:43:19 +01:00
|
|
|
start:
|
2018-02-01 23:14:12 +01:00
|
|
|
; @todo float incrdecr/augassign
|
|
|
|
|
; flt += 0.1
|
|
|
|
|
; flt += 1.1
|
|
|
|
|
; flt += 10.1
|
|
|
|
|
; flt += 100.1
|
|
|
|
|
; flt += 1000.1
|
|
|
|
|
; flt *= 2.34
|
|
|
|
|
|
2018-02-03 01:44:14 +01:00
|
|
|
screenm ++
|
|
|
|
|
screenm ++
|
|
|
|
|
border2 ++
|
|
|
|
|
border2 ++
|
|
|
|
|
screenm --
|
|
|
|
|
border2 --
|
|
|
|
|
|
|
|
|
|
[$55 .float] ++
|
|
|
|
|
[screenm .float]--
|
|
|
|
|
|
2018-02-03 01:53:07 +01:00
|
|
|
[border] ++
|
|
|
|
|
[border] ++
|
|
|
|
|
[border] --
|
2018-02-03 01:44:14 +01:00
|
|
|
[$d020] ++
|
|
|
|
|
[$d020] ++
|
|
|
|
|
[$d020] --
|
2018-02-03 01:53:07 +01:00
|
|
|
[border2 .word] ++
|
|
|
|
|
[border2 .float] ++
|
|
|
|
|
[border2] --
|
|
|
|
|
[XY] ++
|
2018-01-14 15:18:50 +01:00
|
|
|
|
2018-02-02 22:42:09 +01:00
|
|
|
return 44.123
|
2018-01-07 19:14:21 +01:00
|
|
|
}
|
|
|
|
|
|
