prog8/examples/arithmetic/minus.p8

116 lines
2.6 KiB
Plaintext
Raw Normal View History

%import floats
%import textio
2020-12-01 02:03:50 +00:00
%import test_stack
2019-08-05 19:01:41 +00:00
%zeropage basicsafe
main {
sub start() {
minus_ubyte(0, 0, 0)
minus_ubyte(200, 0, 200)
minus_ubyte(200, 100, 100)
minus_ubyte(100, 200, 156)
minus_byte(0, 0, 0)
minus_byte(100, 100, 0)
minus_byte(50, -50, 100)
minus_byte(0, -30, 30)
minus_byte(-30, 0, -30)
2019-08-05 19:01:41 +00:00
minus_uword(0,0,0)
minus_uword(50000,0, 50000)
minus_uword(50000,20000,30000)
minus_uword(20000,50000,35536)
minus_word(0,0,0)
minus_word(1000,1000,0)
minus_word(-1000,1000,-2000)
minus_word(1000,500,500)
minus_word(0,-3333,3333)
2019-08-05 19:01:41 +00:00
minus_word(-3333,0,-3333)
minus_float(0,0,0)
minus_float(2.5,1.5,1.0)
minus_float(-1.5,3.5,-5.0)
2020-12-01 02:03:50 +00:00
test_stack.test()
2019-08-05 19:01:41 +00:00
}
sub minus_ubyte(ubyte a1, ubyte a2, ubyte c) {
ubyte r = a1-a2
if r==c
2020-08-27 16:10:22 +00:00
txt.print(" ok ")
2019-08-05 19:01:41 +00:00
else
2020-08-27 16:10:22 +00:00
txt.print("err! ")
txt.print("ubyte ")
txt.print_ub(a1)
txt.print(" - ")
txt.print_ub(a2)
txt.print(" = ")
txt.print_ub(r)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub minus_byte(byte a1, byte a2, byte c) {
byte r = a1-a2
if r==c
2020-08-27 16:10:22 +00:00
txt.print(" ok ")
2019-08-05 19:01:41 +00:00
else
2020-08-27 16:10:22 +00:00
txt.print("err! ")
txt.print("byte ")
txt.print_b(a1)
txt.print(" - ")
txt.print_b(a2)
txt.print(" = ")
txt.print_b(r)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub minus_uword(uword a1, uword a2, uword c) {
uword r = a1-a2
if r==c
2020-08-27 16:10:22 +00:00
txt.print(" ok ")
2019-08-05 19:01:41 +00:00
else
2020-08-27 16:10:22 +00:00
txt.print("err! ")
txt.print("uword ")
txt.print_uw(a1)
txt.print(" - ")
txt.print_uw(a2)
txt.print(" = ")
txt.print_uw(r)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub minus_word(word a1, word a2, word c) {
word r = a1-a2
if r==c
2020-08-27 16:10:22 +00:00
txt.print(" ok ")
2019-08-05 19:01:41 +00:00
else
2020-08-27 16:10:22 +00:00
txt.print("err! ")
txt.print("word ")
txt.print_w(a1)
txt.print(" - ")
txt.print_w(a2)
txt.print(" = ")
txt.print_w(r)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub minus_float(float a1, float a2, float c) {
float r = a1-a2
if abs(r-c)<0.00001
2020-08-27 16:10:22 +00:00
txt.print(" ok ")
2020-12-01 02:03:50 +00:00
else {
2020-08-27 16:10:22 +00:00
txt.print("err! ")
2020-12-01 02:03:50 +00:00
}
2019-08-05 19:01:41 +00:00
2020-12-01 02:03:50 +00:00
txt.print(" float ")
floats.print_f(a1)
2020-08-27 16:10:22 +00:00
txt.print(" - ")
floats.print_f(a2)
2020-08-27 16:10:22 +00:00
txt.print(" = ")
floats.print_f(r)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
}