prog8/examples/test.p8
2022-01-09 13:10:01 +01:00

141 lines
2.8 KiB
Lua

%import textio
%import floats
%import test_stack
%zeropage basicsafe
main {
sub start() {
byte bb = 0
word ww = 0
float fl = 0
ubyte @shared ub
if ww==0 {
ub++
}
if ww!=0 {
ub++
}
if ww>0 {
ub++
}
if ww<0 {
ub++
}
if ww<=0 {
ub++
}
if ww>=0 {
ub++
}
; if fl< 0 {
; txt.print("wrong fl\n")
; }
; fl=-1.111
; if 0>fl or fl==2 {
; txt.print("good fl\n")
; }
;
; if ww< 0 {
; txt.print("wrong ww\n")
; }
; if bb<0 {
; txt.print("wrong bb\n")
; }
; bb = -1
; ww = -1111
; if 0>ww or ww==2 {
; txt.print("good ww\n")
; }
; if 0>bb or bb==2 {
; txt.print("good bb\n")
; }
; float @shared f1
;
; f1 = 1.234 |> addfloat1 |> addfloat2 |> addfloat3 ; TODO fix that the value is actually returned
; floats.print_f(f1)
; txt.nl()
; 1.234 |> addfloat1
; |> addfloat2 |> addfloat3 |> floats.print_f
; txt.nl()
;
; 9+3 |> assemblything
; |> sin8u
; |> add_one
; |> times_two
; |> txt.print_uw
; txt.nl()
; test_stack.test()
; ; TODO fix that the value is actually returned (398) and that X register is preserved:
; uword @shared uw= 9+3 |> assemblything
; |> sin8u
; |> add_one
; |> times_two
; txt.print_uw(uw)
; txt.nl()
; test_stack.test()
}
sub addfloat1(float fl) -> float {
return fl+1.11
}
sub addfloat2(float fl) -> float {
return fl+2.22
}
sub addfloat3(float fl) -> float {
return fl+3.33
}
sub add_one(ubyte input) -> ubyte {
return input+1
}
sub times_two(ubyte input) -> uword {
return input*$0002
}
asmsub assemblything(ubyte input @A) clobbers(X,Y) -> ubyte @A {
%asm {{
ldx #0
asl a
rts
}}
}
}
;main {
; sub start() {
; %asm {{
; lda #<float5_111
; ldy #>float5_111
; jsr floats.MOVFM
; lda #<float5_122
; ldy #>float5_122
; jsr floats.FADD
; jsr floats.FOUT
; sta $7e
; sty $7f
; ldy #0
;_loop
; lda ($7e),y
; beq _done
; jsr c64.CHROUT
; iny
; bne _loop
;_done
; rts
;
;float5_111 .byte $81, $0e, $14, $7a, $e1 ; float 1.11
;float5_122 .byte $81, $1c, $28, $f5, $c2 ; float 1.22
;
; }}
; }
;
;}