mirror of
https://github.com/irmen/prog8.git
synced 2024-08-11 05:29:18 +00:00
48 lines
1.2 KiB
Lua
48 lines
1.2 KiB
Lua
%import textio
|
|
%import diskio
|
|
%import floats
|
|
%import graphics
|
|
%zeropage basicsafe
|
|
%import test_stack
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start () {
|
|
|
|
str s1 = "1234567890"
|
|
str s2 = "aapje"
|
|
|
|
txt.print_ub(strcopy(s2, s1))
|
|
txt.chrout('\n')
|
|
txt.print_ub(strcopy(s2, s1)+1)
|
|
txt.chrout('\n')
|
|
txt.print_ub(strlen(s2))
|
|
txt.chrout('\n')
|
|
txt.print_ub(strlen(s1))
|
|
txt.chrout('\n')
|
|
|
|
; uword xx
|
|
;
|
|
; foo(2**xx) ; TODO arg is zero if x=8, in the function. Param type uword. fix that . also check bit shift
|
|
; foo(1<<xx) ; TODO fix crash
|
|
; foo($0001<<xx) ; TODO fix crash
|
|
; foo($0001>>xx) ; TODO fix crash
|
|
;
|
|
;
|
|
; xx = $0001<<xx ; TODO make math.shift_left_w
|
|
; xx = $0001>>xx ; TODO make math.shift_right_(u)w
|
|
; uword scanline_data_ptr= $6000
|
|
; uword pixptr = xx/8 + scanline_data_ptr ; TODO why is this code so much larger than the following line:
|
|
; uword pixptr2 = scanline_data_ptr + xx/8
|
|
|
|
|
|
test_stack.test()
|
|
}
|
|
|
|
sub foo(uword argje) {
|
|
txt.print_uwhex(argje, 1)
|
|
txt.chrout('\n')
|
|
}
|
|
|
|
}
|