mirror of
https://github.com/irmen/prog8.git
synced 2024-08-25 08:28:59 +00:00
52 lines
1.2 KiB
Lua
52 lines
1.2 KiB
Lua
%import textio
|
|
%import diskio
|
|
%import floats
|
|
%zeropage basicsafe
|
|
%import test_stack
|
|
%option no_sysinit
|
|
|
|
errors {
|
|
sub tofix() {
|
|
|
|
while c64.CHRIN() {
|
|
; TODO: the loop condition isn't properly tested because a ldx is in the way before the beq
|
|
}
|
|
|
|
repeat {
|
|
ubyte char2 = c64.CHRIN()
|
|
if char2==0 ; TODO condition not properly tested after optimizing because there's only a sta char2 before it (works without optimizing)
|
|
break
|
|
}
|
|
|
|
repeat {
|
|
ubyte char3 = c64.CHRIN()
|
|
if_z
|
|
break ; TODO wrong jump asm generated, works fine if you use a label instead to jump to
|
|
}
|
|
|
|
; TODO fix undefined symbol:
|
|
repeat {
|
|
ubyte char = c64.CHRIN()
|
|
; ...
|
|
}
|
|
; do {
|
|
; char = c64.CHRIN() ; TODO fix undefined symbol error, should refer to 'char' above in the subroutine's scope
|
|
; } until char==0
|
|
|
|
; TODO fix compiler crash:
|
|
; str[max_files] names
|
|
}
|
|
}
|
|
|
|
main {
|
|
sub start() {
|
|
function(&start)
|
|
test_stack.test()
|
|
}
|
|
|
|
sub function(uword param) {
|
|
txt.print_uwhex(param, 1)
|
|
param++
|
|
}
|
|
}
|