mirror of
https://github.com/irmen/prog8.git
synced 2024-12-01 15:52:54 +00:00
483 lines
8.8 KiB
Plaintext
483 lines
8.8 KiB
Plaintext
|
|
||
|
|
%import textio
|
||
|
|
%import floats
|
||
|
|
%import test_stack
|
||
|
|
%zeropage dontuse
|
||
|
|
%option no_sysinit
|
||
|
|
|
||
|
|
main {
|
||
|
|
ubyte success = 0
|
||
|
|
str datatype = "float"
|
||
|
|
uword @shared comparison
|
||
|
|
|
||
|
|
sub start() {
|
||
|
|
txt.print("\nless-equal tests for: ")
|
||
|
|
txt.print(datatype)
|
||
|
|
txt.nl()
|
||
|
|
test_stack.test()
|
||
|
|
txt.print("\n<=number: ")
|
||
|
|
test_cmp_number()
|
||
|
|
txt.print("\n<=var: ")
|
||
|
|
test_cmp_var()
|
||
|
|
txt.print("\n<=array[]: ")
|
||
|
|
test_cmp_array()
|
||
|
|
txt.print("\n<=expr: ")
|
||
|
|
test_cmp_expr()
|
||
|
|
test_stack.test()
|
||
|
|
}
|
||
|
|
|
||
|
|
sub verify_success(ubyte expected) {
|
||
|
|
if success==expected {
|
||
|
|
txt.print("ok")
|
||
|
|
} else {
|
||
|
|
txt.print(" **failed** ")
|
||
|
|
txt.print_ub(success)
|
||
|
|
txt.print(" success, expected ")
|
||
|
|
txt.print_ub(expected)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fail_byte(uword idx) {
|
||
|
|
txt.print(" **fail#")
|
||
|
|
txt.print_uw(idx)
|
||
|
|
txt.print(" **")
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fail_ubyte(uword idx) {
|
||
|
|
txt.print(" **fail#")
|
||
|
|
txt.print_uw(idx)
|
||
|
|
txt.print(" **")
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fail_word(uword idx) {
|
||
|
|
txt.print(" **fail#")
|
||
|
|
txt.print_uw(idx)
|
||
|
|
txt.print(" **")
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fail_uword(uword idx) {
|
||
|
|
txt.print(" **fail#")
|
||
|
|
txt.print_uw(idx)
|
||
|
|
txt.print(" **")
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fail_float(uword idx) {
|
||
|
|
txt.print(" **fail#")
|
||
|
|
txt.print_uw(idx)
|
||
|
|
txt.print(" **")
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub test_cmp_number() {
|
||
|
|
float @shared x
|
||
|
|
success = 0
|
||
|
|
x=0.0
|
||
|
|
; direct jump
|
||
|
|
if x<=0.0
|
||
|
|
goto lbl1a
|
||
|
|
goto skip1a
|
||
|
|
lbl1a: success++
|
||
|
|
skip1a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl1b
|
||
|
|
if x<=0.0
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip1b
|
||
|
|
lbl1b: success++
|
||
|
|
skip1b:
|
||
|
|
; no else
|
||
|
|
if x<=0.0
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=0.0
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
; direct jump
|
||
|
|
if x<=1234.56
|
||
|
|
goto lbl2a
|
||
|
|
goto skip2a
|
||
|
|
lbl2a: success++
|
||
|
|
skip2a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl2b
|
||
|
|
if x<=1234.56
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip2b
|
||
|
|
lbl2b: success++
|
||
|
|
skip2b:
|
||
|
|
; no else
|
||
|
|
if x<=1234.56
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=1234.56
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
x=1234.56
|
||
|
|
; direct jump
|
||
|
|
if x<=0.0
|
||
|
|
goto lbl3a
|
||
|
|
goto skip3a
|
||
|
|
lbl3a: fail_float(1)
|
||
|
|
skip3a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl3b
|
||
|
|
if x<=0.0
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip3b
|
||
|
|
lbl3b: fail_float(2)
|
||
|
|
skip3b:
|
||
|
|
; no else
|
||
|
|
if x<=0.0
|
||
|
|
fail_float(3)
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=0.0
|
||
|
|
fail_float(4)
|
||
|
|
else
|
||
|
|
success++
|
||
|
|
|
||
|
|
; direct jump
|
||
|
|
if x<=1234.56
|
||
|
|
goto lbl4a
|
||
|
|
goto skip4a
|
||
|
|
lbl4a: success++
|
||
|
|
skip4a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl4b
|
||
|
|
if x<=1234.56
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip4b
|
||
|
|
lbl4b: success++
|
||
|
|
skip4b:
|
||
|
|
; no else
|
||
|
|
if x<=1234.56
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=1234.56
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
verify_success(13)
|
||
|
|
}
|
||
|
|
sub test_cmp_var() {
|
||
|
|
float @shared x, value
|
||
|
|
success = 0
|
||
|
|
x=0.0
|
||
|
|
value=0.0
|
||
|
|
; direct jump
|
||
|
|
if x<=value
|
||
|
|
goto lbl1a
|
||
|
|
goto skip1a
|
||
|
|
lbl1a: success++
|
||
|
|
skip1a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl1b
|
||
|
|
if x<=value
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip1b
|
||
|
|
lbl1b: success++
|
||
|
|
skip1b:
|
||
|
|
; no else
|
||
|
|
if x<=value
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=value
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
value=1234.56
|
||
|
|
; direct jump
|
||
|
|
if x<=value
|
||
|
|
goto lbl2a
|
||
|
|
goto skip2a
|
||
|
|
lbl2a: success++
|
||
|
|
skip2a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl2b
|
||
|
|
if x<=value
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip2b
|
||
|
|
lbl2b: success++
|
||
|
|
skip2b:
|
||
|
|
; no else
|
||
|
|
if x<=value
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=value
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
x=1234.56
|
||
|
|
value=0.0
|
||
|
|
; direct jump
|
||
|
|
if x<=value
|
||
|
|
goto lbl3a
|
||
|
|
goto skip3a
|
||
|
|
lbl3a: fail_float(5)
|
||
|
|
skip3a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl3b
|
||
|
|
if x<=value
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip3b
|
||
|
|
lbl3b: fail_float(6)
|
||
|
|
skip3b:
|
||
|
|
; no else
|
||
|
|
if x<=value
|
||
|
|
fail_float(7)
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=value
|
||
|
|
fail_float(8)
|
||
|
|
else
|
||
|
|
success++
|
||
|
|
|
||
|
|
value=1234.56
|
||
|
|
; direct jump
|
||
|
|
if x<=value
|
||
|
|
goto lbl4a
|
||
|
|
goto skip4a
|
||
|
|
lbl4a: success++
|
||
|
|
skip4a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl4b
|
||
|
|
if x<=value
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip4b
|
||
|
|
lbl4b: success++
|
||
|
|
skip4b:
|
||
|
|
; no else
|
||
|
|
if x<=value
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=value
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
verify_success(13)
|
||
|
|
}
|
||
|
|
sub test_cmp_array() {
|
||
|
|
float @shared x
|
||
|
|
float[] values = [0, 0]
|
||
|
|
success = 0
|
||
|
|
x=0.0
|
||
|
|
values[1]=0.0
|
||
|
|
; direct jump
|
||
|
|
if x<=values[1]
|
||
|
|
goto lbl1a
|
||
|
|
goto skip1a
|
||
|
|
lbl1a: success++
|
||
|
|
skip1a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl1b
|
||
|
|
if x<=values[1]
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip1b
|
||
|
|
lbl1b: success++
|
||
|
|
skip1b:
|
||
|
|
; no else
|
||
|
|
if x<=values[1]
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=values[1]
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
values[1]=1234.56
|
||
|
|
; direct jump
|
||
|
|
if x<=values[1]
|
||
|
|
goto lbl2a
|
||
|
|
goto skip2a
|
||
|
|
lbl2a: success++
|
||
|
|
skip2a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl2b
|
||
|
|
if x<=values[1]
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip2b
|
||
|
|
lbl2b: success++
|
||
|
|
skip2b:
|
||
|
|
; no else
|
||
|
|
if x<=values[1]
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=values[1]
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
x=1234.56
|
||
|
|
values[1]=0.0
|
||
|
|
; direct jump
|
||
|
|
if x<=values[1]
|
||
|
|
goto lbl3a
|
||
|
|
goto skip3a
|
||
|
|
lbl3a: fail_float(9)
|
||
|
|
skip3a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl3b
|
||
|
|
if x<=values[1]
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip3b
|
||
|
|
lbl3b: fail_float(10)
|
||
|
|
skip3b:
|
||
|
|
; no else
|
||
|
|
if x<=values[1]
|
||
|
|
fail_float(11)
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=values[1]
|
||
|
|
fail_float(12)
|
||
|
|
else
|
||
|
|
success++
|
||
|
|
|
||
|
|
values[1]=1234.56
|
||
|
|
; direct jump
|
||
|
|
if x<=values[1]
|
||
|
|
goto lbl4a
|
||
|
|
goto skip4a
|
||
|
|
lbl4a: success++
|
||
|
|
skip4a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl4b
|
||
|
|
if x<=values[1]
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip4b
|
||
|
|
lbl4b: success++
|
||
|
|
skip4b:
|
||
|
|
; no else
|
||
|
|
if x<=values[1]
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=values[1]
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
verify_success(13)
|
||
|
|
}
|
||
|
|
sub test_cmp_expr() {
|
||
|
|
float @shared x
|
||
|
|
cx16.r4 = 1
|
||
|
|
cx16.r5 = 1
|
||
|
|
float @shared f4 = 1.0
|
||
|
|
float @shared f5 = 1.0
|
||
|
|
success = 0
|
||
|
|
x=0.0
|
||
|
|
; direct jump
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
goto lbl1a
|
||
|
|
goto skip1a
|
||
|
|
lbl1a: success++
|
||
|
|
skip1a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl1b
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip1b
|
||
|
|
lbl1b: success++
|
||
|
|
skip1b:
|
||
|
|
; no else
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
; direct jump
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
goto lbl2a
|
||
|
|
goto skip2a
|
||
|
|
lbl2a: success++
|
||
|
|
skip2a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl2b
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip2b
|
||
|
|
lbl2b: success++
|
||
|
|
skip2b:
|
||
|
|
; no else
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
x=1234.56
|
||
|
|
; direct jump
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
goto lbl3a
|
||
|
|
goto skip3a
|
||
|
|
lbl3a: fail_float(13)
|
||
|
|
skip3a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl3b
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip3b
|
||
|
|
lbl3b: fail_float(14)
|
||
|
|
skip3b:
|
||
|
|
; no else
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
fail_float(15)
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=f4+0.0-f5
|
||
|
|
fail_float(16)
|
||
|
|
else
|
||
|
|
success++
|
||
|
|
|
||
|
|
; direct jump
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
goto lbl4a
|
||
|
|
goto skip4a
|
||
|
|
lbl4a: success++
|
||
|
|
skip4a:
|
||
|
|
; indirect jump
|
||
|
|
cx16.r3 = &lbl4b
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
goto cx16.r3
|
||
|
|
goto skip4b
|
||
|
|
lbl4b: success++
|
||
|
|
skip4b:
|
||
|
|
; no else
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
success++
|
||
|
|
|
||
|
|
; with else
|
||
|
|
if x<=f4+1234.56-f5
|
||
|
|
success++
|
||
|
|
else
|
||
|
|
cx16.r0L++
|
||
|
|
|
||
|
|
verify_success(13)
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|