Subversion Repositories m65c02

BROM_Start  equ     $F800

SPI_CR      equ     $F7FF

ZP_LED_Cntr equ     $00FD

ZP_Cntr_Lo  equ     $00FE

ZP_Cntr_Hi  equ     $00FF

            bss

;;

Zero_Page:  org     $0000

;;

Stack_Page: org     $0100

;;

RAM_Start:  org     $0200

;;

            code

            org     BROM_Start

;;

Start:      lda     #$00            ;; load initial value to control register

            sta     ZP_LED_Cntr

            sta     SPI_CR          ;; update LEDs

;;

Delay_Loop: ldy     #$04            ;; load outer delay loop counter

            sty     ZP_Cntr_Hi

;;

Delay_Lp1:  ldx     #$00            ;; load inner delay loop counter

            stx     ZP_Cntr_Lo

;;

;Delay_Lp2:  dex                     ;; decrement inner loop counter

Delay_Lp2:  dec     ZP_Cntr_Lo      ;; decrement inner loop counter

            bne     Delay_Lp2       ;; loop until inner loop counter is zero

;;

;            dey                     ;; decrement external loop counter

            dec     ZP_Cntr_Hi

            bne     Delay_Lp1       ;; loop until outer loop counter is zero

;;

;            dec     a               ;; decrement accumulator

            dec     ZP_LED_Cntr

            lda     ZP_LED_Cntr

            sta     SPI_CR          ;; update LEDs

            bra     Delay_Loop      ;; Loop Continously

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

Last_Addrs:

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;;  Vector Table

;;

Vect_Table: org     $FFFA

;;

            dw      Start       ;; NMI Interrupt Vector

            dw      Start       ;; Reset Vector

            dw      Start       ;; IRQ/BRK Interrupt Vector

;;

            end     Start