prog8/todo.ill

output prg,basic

;reg_preserve off         ; @todo global option  off/on   default off? NOT AN OPTION -> change the default to OFF

import "c64lib"

~ main {
                const   num = 44
                var     var1  =22
                var .word  wvar1 = 22
start
        var1 ++
        var1 += num
        X++
        X+=num


        asm {
                ldy  #200
-               lda  #81
                sta  c64.Screen+39-40,y
                sta  c64.Screen+39+4*40,y
                sta  c64.Screen+39+9*40,y
                sta  c64.Screen+39+14*40,y
                sta  c64.Screen+39+19*40,y
                lda  #83
                sta  c64.Screen-40,y
                sta  c64.Screen+4*40,y
                sta  c64.Screen+9*40,y
                sta  c64.Screen+14*40,y
                sta  c64.Screen+19*40,y
                lda  #1
                sta  c64.Colors+39-40,y
                sta  c64.Colors+39+4*40,y
                sta  c64.Colors+39+9*40,y
                sta  c64.Colors+39+14*40,y
                sta  c64.Colors+39+19*40,y
                lda  #5
                sta  c64.Colors-40,y
                sta  c64.Colors+4*40,y
                sta  c64.Colors+9*40,y
                sta  c64.Colors+14*40,y
                sta  c64.Colors+19*40,y
                tya
                sec
                sbc  #40
                tay
                bne  -
        }

loop
        A=c64.GETIN()
        if_not goto loop
        c64scr.scroll_right_full(1)
        goto loop
        c64.CHROUT(A)
        goto loop

        ;c64scr.print_byte_hex(0, A)
        ;c64.CHROUT(' ')
        ;goto loop

        ;return

        A = $11
        X = $22
        Y = $33

        c64scr.clear_screen !(81, 5)     ; @todo new syntax to specify registers to save (! = all three A,X,Y)
        ;c64scr.clear_screen !A (81, 5)    ; @todo new syntax to specify registers to save (only A)
        ;c64scr.clear_screen !AX (81, 5)
        ;c64scr.clear_screen !AXY (81, 5)

        c64scr.print_byte_hex(1,A)
        c64.CHROUT(' ')
        c64scr.print_byte_hex(1,X)
        c64.CHROUT(' ')
        c64scr.print_byte_hex(1,Y)
        c64scr.print_word_decimal(1222)
        c64.CHROUT('\n')

        return

}