prog8/compiler/examples/test.p8

%import c64utils
%import mathlib
%option enable_floats


~ main {

    sub start()  {

        float v1
        float v2

        c64scr.print_byte_decimal(X)
        c64.CHROUT('\n')

        v1 = 1.11
        v2 = 699.99
        if v1==v2
            c64.STROUT("error in 1.11==699.99!\n")
        else
            c64.STROUT("ok: 1.11 not == 699.99\n")

        if v1!=v2
            c64.STROUT("ok: 1.11 != 699.99\n")
        else
            c64.STROUT("error in 1.11!=699.99!\n")

        if v1<v2
            c64.STROUT("ok: 1.11 < 699.99\n")
        else
            c64.STROUT("error in 1.11<699.99!\n")

        if v1<=v2
            c64.STROUT("ok: 1.11 <= 699.99\n")
        else
            c64.STROUT("error in 1.11<=699.99!\n")

        if v1>v2
            c64.STROUT("error in 1.11>699.99!\n")
        else
            c64.STROUT("ok: 1.11 is not >699.99\n")

        if v1>=v2
            c64.STROUT("error in 1.11>=699.99!\n")
        else
            c64.STROUT("ok: 1.11 is not >=699.99\n")


        v1 = 555.5
        v2 = -22.2
        if v1==v2
            c64.STROUT("error in 555.5==-22.2!\n")
        else
            c64.STROUT("ok: 555.5 not == -22.2\n")

        if v1!=v2
            c64.STROUT("ok: 555.5 != -22.2\n")
        else
            c64.STROUT("error in 555.5!=-22.2!\n")

        if v1<v2
            c64.STROUT("error in 555.5<-22.2!\n")
        else
            c64.STROUT("ok: 555.5 is not < -22.2\n")

        if v1<=v2
            c64.STROUT("error in 555.5<=-22.2!\n")
        else
            c64.STROUT("ok: 555.5 is not <= -22.2\n")

        if v1>v2
            c64.STROUT("ok: 555.5 > -22.2\n")
        else
            c64.STROUT("error in 555.5>-22.2!\n")

        if v1>=v2
            c64.STROUT("ok: 555.5 >= -22.2\n")
        else
            c64.STROUT("error in 555.5>=-22.2!\n")

        v1 = -22.2
        v2 = -22.2
        if v1==v2
            c64.STROUT("ok: -22.2 == -22.2\n")
        else
            c64.STROUT("error in -22.2==-22.2!\n")

        if v1!=v2
            c64.STROUT("error in -22.2!=-22.2!\n")
        else
            c64.STROUT("ok: -22.2 is not != -22.2\n")

        if v1<v2
            c64.STROUT("error in -22.2<-22.2!\n")
        else
            c64.STROUT("ok: -22.2 is not < -22.2\n")

        if v1<=v2
            c64.STROUT("ok: -22.2 <= -22.2\n")
        else
            c64.STROUT("error in -22.2<=-22.2!\n")

        if v1>v2
            c64.STROUT("error in -22.2>-22.2!\n")
        else
            c64.STROUT("ok: -22.2 is not > -22.2\n")

        if v1>=v2
            c64.STROUT("ok: -22.2 >= -22.2\n")
        else
            c64.STROUT("error in -22.2>=-22.2!\n")

        c64scr.print_byte_decimal(X)
        c64.CHROUT('\n')

    }

}
tweaks 2018-11-09 22:42:17 +00:00			`%import c64utils`
random number stuff 2018-12-06 00:25:06 +00:00			`%import mathlib`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`%option enable_floats`

inline asm and fixed c64 libs 2018-10-16 00:26:35 +00:00
more asm, constants now also outputted in asm source 2018-12-04 21:30:35 +00:00			`~ main {`
tweaking subroutine return values 2018-11-11 17:19:08 +00:00
more asm, constants now also outputted in asm source 2018-12-04 21:30:35 +00:00			`sub start() {`
random number stuff 2018-12-06 00:25:06 +00:00
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`float v1`
			`float v2`
byte/word asm comparisons 2018-12-07 23:27:12 +00:00
ubyte comparisons 2018-12-08 17:08:46 +00:00			`c64scr.print_byte_decimal(X)`
			`c64.CHROUT('\n')`
byte/word asm comparisons 2018-12-07 23:27:12 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`v1 = 1.11`
			`v2 = 699.99`
			`if v1==v2`
			`c64.STROUT("error in 1.11==699.99!\n")`
			`else`
			`c64.STROUT("ok: 1.11 not == 699.99\n")`
byte/word asm comparisons 2018-12-07 23:27:12 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`if v1!=v2`
			`c64.STROUT("ok: 1.11 != 699.99\n")`
			`else`
			`c64.STROUT("error in 1.11!=699.99!\n")`

			`if v1<v2`
			`c64.STROUT("ok: 1.11 < 699.99\n")`
			`else`
			`c64.STROUT("error in 1.11<699.99!\n")`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`if v1<=v2`
			`c64.STROUT("ok: 1.11 <= 699.99\n")`
			`else`
			`c64.STROUT("error in 1.11<=699.99!\n")`
word and uword and float comparisons 2018-12-09 15:16:46 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`if v1>v2`
			`c64.STROUT("error in 1.11>699.99!\n")`
			`else`
			`c64.STROUT("ok: 1.11 is not >699.99\n")`
word and uword and float comparisons 2018-12-09 15:16:46 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`if v1>=v2`
			`c64.STROUT("error in 1.11>=699.99!\n")`
			`else`
			`c64.STROUT("ok: 1.11 is not >=699.99\n")`


			`v1 = 555.5`
			`v2 = -22.2`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`if v1==v2`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("error in 555.5==-22.2!\n")`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`else`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("ok: 555.5 not == -22.2\n")`

save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`if v1!=v2`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("ok: 555.5 != -22.2\n")`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`else`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("error in 555.5!=-22.2!\n")`
byte/word asm comparisons 2018-12-07 23:27:12 +00:00
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`if v1<v2`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("error in 555.5<-22.2!\n")`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`else`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("ok: 555.5 is not < -22.2\n")`

			`if v1<=v2`
			`c64.STROUT("error in 555.5<=-22.2!\n")`
			`else`
			`c64.STROUT("ok: 555.5 is not <= -22.2\n")`
byte/word asm comparisons 2018-12-07 23:27:12 +00:00
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`if v1>v2`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("ok: 555.5 > -22.2\n")`
			`else`
			`c64.STROUT("error in 555.5>-22.2!\n")`

			`if v1>=v2`
			`c64.STROUT("ok: 555.5 >= -22.2\n")`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`else`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("error in 555.5>=-22.2!\n")`

			`v1 = -22.2`
			`v2 = -22.2`
			`if v1==v2`
			`c64.STROUT("ok: -22.2 == -22.2\n")`
			`else`
			`c64.STROUT("error in -22.2==-22.2!\n")`

			`if v1!=v2`
			`c64.STROUT("error in -22.2!=-22.2!\n")`
			`else`
			`c64.STROUT("ok: -22.2 is not != -22.2\n")`

			`if v1<v2`
			`c64.STROUT("error in -22.2<-22.2!\n")`
			`else`
			`c64.STROUT("ok: -22.2 is not < -22.2\n")`
byte/word asm comparisons 2018-12-07 23:27:12 +00:00
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`if v1<=v2`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("ok: -22.2 <= -22.2\n")`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`else`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("error in -22.2<=-22.2!\n")`
word and uword and float comparisons 2018-12-09 15:16:46 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`if v1>v2`
			`c64.STROUT("error in -22.2>-22.2!\n")`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00			`else`
string to byte 2018-12-10 08:25:38 +00:00			`c64.STROUT("ok: -22.2 is not > -22.2\n")`
byte/word asm comparisons 2018-12-07 23:27:12 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`if v1>=v2`
			`c64.STROUT("ok: -22.2 >= -22.2\n")`
			`else`
			`c64.STROUT("error in -22.2>=-22.2!\n")`
ubyte comparisons 2018-12-08 17:08:46 +00:00
string to byte 2018-12-10 08:25:38 +00:00			`c64scr.print_byte_decimal(X)`
			`c64.CHROUT('\n')`
save X register automatically when calling sub that clobbers X 2018-12-09 18:48:59 +00:00
more asm, constants now also outputted in asm source 2018-12-04 21:30:35 +00:00			`}`
word and uword and float comparisons 2018-12-09 15:16:46 +00:00
included libs are now carried over to asm properly 2018-10-16 20:49:19 +00:00			`}`