prog8/examples/test.p8

%import textio
; %import floats
%zeropage basicsafe

main {
    sub start() {
        txt.print("current banks: ")
        txt.print_ubbin(c64.getbanks(), true)
        txt.print("\nmemtop: ")
        txt.print_uwhex(cbm.MEMTOP(0, true), true)
        txt.print("\n8 bytes at $a000:\n")
        for cx16.r0 in $a000 to $a007 {
            txt.print_ubhex(@(cx16.r0), false)
            txt.spc()
        }
        txt.print("\nwriting data to there, result:\n")
        @($a000) = $11
        @($a001) = $22
        @($a002) = $33
        @($a003) = $44
        @($a004) = $55
        @($a005) = $66
        @($a006) = $77
        @($a007) = $88

        for cx16.r0 in $a000 to $a007 {
            txt.print_ubhex(@(cx16.r0), false)
            txt.spc()
        }
        txt.nl()

;        txt.print("floating point calc: ")
;        float @shared f1 = 1.0
;        float @shared f2 = 7.0
;        floats.print(f1/f2)
;        txt.nl()
    }
}