prog8/compiler/test/arithmetic/testrepeat.p8

76 lines
1.3 KiB
Plaintext
Raw Normal View History

2022-01-03 21:44:27 +00:00
%import textio
%zeropage basicsafe
%option no_sysinit
main {
sub start() {
uword amount
uword zero = 0
uword one = 1
uword hundred = 100
uword two55 = 255
uword two56 = 256
uword two57 = 257
uword thousand = 1000
uword maximum = 65535
txt.print("expected:\n 0, 1, 100, 255, 256, 257, 1000, 65535\n\n")
repeat zero {
amount++
}
txt.print_uw(amount)
txt.nl()
amount=0
repeat one {
amount++
}
txt.print_uw(amount)
txt.nl()
amount=0
repeat hundred {
amount++
}
txt.print_uw(amount)
txt.nl()
amount=0
repeat two55 {
amount++
}
txt.print_uw(amount)
txt.nl()
amount=0
repeat two56 {
amount++
}
txt.print_uw(amount)
txt.nl()
amount=0
repeat two57 {
amount++
}
txt.print_uw(amount)
txt.nl()
amount=0
repeat thousand {
amount++
}
txt.print_uw(amount)
txt.nl()
amount=0
repeat maximum {
amount++
}
txt.print_uw(amount)
txt.nl()
}
}