Subversion Repositories blue

        ;; This is a test program so it won't always
        ;; be efficient
        ;; 
        ;; The expressions can be perl expressions

        ORG 0
value:  equ 0x10+2
offset: equ 2
start:  lda thevar
loop:   add sum
         xor flip
        not
        inca
        deca
        sta thevar              ; this is wasteful, but tests
        jmp start
        
thevar: DW value
sum:    DW offset*2
flip:   DW 0xFFFF
test:   DW _location_*2
        END