prog8/examples/arithmetic/postincrdecr.p8

141 lines
3.0 KiB
Plaintext
Raw Normal View History

%import floats
%import textio
2019-08-05 19:01:41 +00:00
%zeropage basicsafe
main {
sub start() {
2020-08-27 16:10:22 +00:00
txt.plot(0,24)
2019-08-05 19:01:41 +00:00
2020-12-21 22:45:26 +00:00
ubyte y
2019-08-05 19:01:41 +00:00
ubyte ub=200
byte bb=-100
uword uw = 2000
word ww = -1000
float fl = 999.99
ubyte[3] ubarr = 200
byte[3] barr = -100
uword[3] uwarr = 2000
word[3] warr = -1000
float[3] flarr = 999.99
2020-08-27 16:10:22 +00:00
txt.print("++\n")
2019-08-05 19:01:41 +00:00
ub++
bb++
uw++
ww++
fl++
ubarr[1]++
barr[1]++
uwarr[1]++
warr[1]++
flarr[1] ++
check_ub(ub, 201)
2020-12-21 22:45:26 +00:00
y=100
y++
check_ub(y, 101)
2019-08-05 19:01:41 +00:00
check_fl(fl, 1000.99)
check_b(bb, -99)
check_uw(uw, 2001)
check_w(ww, -999)
check_ub(ubarr[0], 200)
check_fl(flarr[0], 999.99)
check_b(barr[0], -100)
check_uw(uwarr[0], 2000)
check_w(warr[0], -1000)
check_ub(ubarr[1], 201)
check_fl(flarr[1], 1000.99)
check_b(barr[1], -99)
check_uw(uwarr[1], 2001)
check_w(warr[1], -999)
2020-08-27 16:10:22 +00:00
txt.print("--\n")
2019-08-05 19:01:41 +00:00
ub--
bb--
uw--
ww--
fl--
ubarr[1]--
barr[1]--
uwarr[1]--
warr[1]--
flarr[1] --
check_ub(ub, 200)
2020-12-21 22:45:26 +00:00
y=100
y--
check_ub(y, 99)
2019-08-05 19:01:41 +00:00
check_fl(fl, 999.99)
check_b(bb, -100)
check_uw(uw, 2000)
check_w(ww, -1000)
check_ub(ubarr[1], 200)
check_fl(flarr[1], 999.99)
check_b(barr[1], -100)
check_uw(uwarr[1], 2000)
check_w(warr[1], -1000)
}
sub check_ub(ubyte value, ubyte expected) {
if value==expected
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(value)
2019-08-05 19:01:41 +00:00
c64.CHROUT(',')
2020-08-27 16:10:22 +00:00
txt.print_ub(expected)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub check_b(byte value, byte expected) {
if value==expected
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(value)
2019-08-05 19:01:41 +00:00
c64.CHROUT(',')
2020-08-27 16:10:22 +00:00
txt.print_b(expected)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub check_uw(uword value, uword expected) {
if value==expected
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(value)
2019-08-05 19:01:41 +00:00
c64.CHROUT(',')
2020-08-27 16:10:22 +00:00
txt.print_uw(expected)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub check_w(word value, word expected) {
if value==expected
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(value)
2019-08-05 19:01:41 +00:00
c64.CHROUT(',')
2020-08-27 16:10:22 +00:00
txt.print_w(expected)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
sub check_fl(float value, float expected) {
if value==expected
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(" float ")
floats.print_f(value)
2019-08-05 19:01:41 +00:00
c64.CHROUT(',')
floats.print_f(expected)
2019-08-05 19:01:41 +00:00
c64.CHROUT('\n')
}
}