Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-27 03:50:27 +00:00
Code Issues Projects Releases Wiki Activity

version 4.2

Browse Source
This commit is contained in:
Irmen de Jong 2020-09-16 23:04:18 +02:00
parent 6395e39d63
commit f1ee3b4e60
2 changed files with 6 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/res/version.txt
View File

@ -1 +1 @@
4.2-SNAPSHOT 4.2

32
examples/test.p8
View File

@ -1,42 +1,20 @@
%import c64lib
%import c64graphics
%import c64textio %import c64textio
;%import c64flt ;%import c64flt
;%option enable_floats ;%option enable_floats
%zeropage kernalsafe %zeropage basicsafe
main { 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) { ...} ;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. ; TODO dont cause name conflict if we define sub or sub with param 'color' or even a var 'color' later.
; sub color(...) {} ; sub color(...) {}
; sub other(ubyte color) {} ; TODO don't cause name conflict ; sub other(ubyte color) {} ; TODO don't cause name conflict
}
sub start() {
}
} }