prog8/examples/test.p8

%import textio
%import floats
%zeropage basicsafe
%import test_stack

main {

    sub start() {

        uword uw = $c000
        ubyte ub = 1
        ubyte ub2 = 1

        uw = 1000
        uw += ub+ub2
        txt.print_uw(uw)
        txt.chrout('\n')

        uw = 1000
        uw -= ub+ub2            ; TODO FIX COMPUTATION ERROR
        txt.print_uw(uw)
        txt.chrout('\n')

        uw = 1000
        uw *= ub+ub2
        txt.print_uw(uw)
        txt.chrout('\n')

        uw = 1000
        uw /= ub+ub2
        txt.print_uw(uw)
        txt.chrout('\n')

        uw = 1000
        uw %= 5*ub+ub2+ub2
        txt.print_uw(uw)
        txt.chrout('\n')

        uw = 1000
        uw <<= ub+ub2
        txt.print_uw(uw)
        txt.chrout('\n')

        uw = 1000
        uw >>= ub+ub2
        txt.print_uw(uw)
        txt.chrout('\n')

        test_stack.test()

    }
}
auto select correct library to import based on target, instead of having c64- and cx16- prefix variants some programs are now 100% source compatible between C64 and Cx16 targets! import libraries have been rena;med 2020-09-20 21:49:36 +00:00			`%import textio`
refactoring asmassignment code blocks into utility functions 2020-11-15 16:44:47 +00:00			`%import floats`
refactoring asmassignment code blocks into utility functions 2020-11-15 14:04:23 +00:00			`%zeropage basicsafe`
optimize for loops over non const range, without translateExpression() 2020-11-20 21:15:14 +00:00			`%import test_stack`
implemented remaining float operations 2020-08-27 17:47:50 +00:00
do..until condition can now refer to variables defined in the loop's inner scope. 2020-09-24 17:26:07 +00:00			`main {`
allow creating string arrays. Fixed array index scaling for word arrays. 2020-09-28 00:23:36 +00:00
textelite 2020-10-09 20:47:42 +00:00			`sub start() {`
fix missing float casts 2020-11-09 22:57:50 +00:00
warmings 2020-11-24 21:16:50 +00:00			`uword uw = $c000`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00			`ubyte ub = 1`
			`ubyte ub2 = 1`
optimizing assigning an array value to a var 2020-11-22 16:16:07 +00:00
warmings 2020-11-24 21:16:50 +00:00			`uw = 1000`
			`uw += ub+ub2`
			`txt.print_uw(uw)`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00			`txt.chrout('\n')`

warmings 2020-11-24 21:16:50 +00:00			`uw = 1000`
			`uw -= ub+ub2 ; TODO FIX COMPUTATION ERROR`
			`txt.print_uw(uw)`
			`txt.chrout('\n')`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00
warmings 2020-11-24 21:16:50 +00:00			`uw = 1000`
			`uw *= ub+ub2`
			`txt.print_uw(uw)`
			`txt.chrout('\n')`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00
warmings 2020-11-24 21:16:50 +00:00			`uw = 1000`
			`uw /= ub+ub2`
			`txt.print_uw(uw)`
			`txt.chrout('\n')`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00
warmings 2020-11-24 21:16:50 +00:00			`uw = 1000`
			`uw %= 5*ub+ub2+ub2`
			`txt.print_uw(uw)`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00			`txt.chrout('\n')`
warmings 2020-11-24 21:16:50 +00:00
			`uw = 1000`
			`uw <<= ub+ub2`
			`txt.print_uw(uw)`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00			`txt.chrout('\n')`

warmings 2020-11-24 21:16:50 +00:00			`uw = 1000`
			`uw >>= ub+ub2`
			`txt.print_uw(uw)`
			`txt.chrout('\n')`
optimized in-place memory var modification, not using translateExpression() 2020-11-24 20:41:44 +00:00
			`test_stack.test()`
returning float values now via fac1 instead of stack 2020-11-23 21:14:45 +00:00
			`}`
implemented remaining float operations 2020-08-27 17:47:50 +00:00			`}`