mirror of
https://github.com/irmen/prog8.git
synced 2024-11-20 03:32:05 +00:00
version 4.2
This commit is contained in:
parent
6395e39d63
commit
f1ee3b4e60
@ -1 +1 @@
|
||||
4.2-SNAPSHOT
|
||||
4.2
|
||||
|
@ -1,42 +1,20 @@
|
||||
%import c64lib
|
||||
%import c64graphics
|
||||
%import c64textio
|
||||
;%import c64flt
|
||||
;%option enable_floats
|
||||
%zeropage kernalsafe
|
||||
%zeropage basicsafe
|
||||
|
||||
|
||||
main {
|
||||
|
||||
struct Color {
|
||||
ubyte red
|
||||
ubyte green
|
||||
ubyte blue
|
||||
}
|
||||
|
||||
sub start() {
|
||||
|
||||
ubyte ub = 9
|
||||
uword yy = 9999 ; this is okay (no 0-initialization generated) but... the next:
|
||||
uword xx = ub ; TODO don't generate xx = 0 assignment if it's initialized with something else...
|
||||
uword zz
|
||||
|
||||
Color purple = [1,2,3]
|
||||
|
||||
uword x1
|
||||
uword x2
|
||||
|
||||
word dx = x2 - x1 as word
|
||||
|
||||
;ub++
|
||||
;xx++
|
||||
;yy++
|
||||
;zz++
|
||||
|
||||
;asmsub clear_screen (ubyte char @ A, ubyte color @ Y) clobbers(A) { ...}
|
||||
; TODO dont cause name conflict if we define sub or sub with param 'color' or even a var 'color' later.
|
||||
|
||||
; sub color(...) {}
|
||||
; sub other(ubyte color) {} ; TODO don't cause name conflict
|
||||
|
||||
}
|
||||
|
||||
sub start() {
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user