OpenCores
URL https://opencores.org/ocsvn/rtf65002/rtf65002/trunk

Subversion Repositories rtf65002

[/] [rtf65002/] [trunk/] [software/] [asm/] [t65C.asm] - Rev 4

Compare with Previous | Blame | View Log

;==================================================================
; (C) 2003  Bird Computer
; All rights reserved.
;
; W65C02 Processor Test Routine
;
;       The basic format is to test the things needed for further
; testing first, like branches and compare, then move onto other
; instructions.
;==================================================================

UART                    equ             $CF00
XMIT_FUL                equ             $08             ; the transmit buffer is full
data_ptr                equ             $08
dpf                             equ             $AA

        org $0FFFFE000
        cpu             rtf65002

; If the program gets here then we know at least the boot strap
; worked okay, which is in itself a good test of processor health.
start
        sei
        cld             ; set decimal mode flag to zero
        ldx             #$1000
        txs
        trs             r0,dp           ; set zero page location
        emm             ; emulation mode
        cpu             W65C02
        sei
        ldx             #$FF
        txs
        jsr             putmsg
        db              "C02 Testing Processor", 13, 10, 0


;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; First thing to test is branches. If you can't branch reliably
; then the validity of the remaining tests are in question.
; Test branches and also simultaneously some other simple
; instructions.
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        sei

        bra             braok
        jsr             putmsg
        db              "BRA:F", 13, 10, 0

braok

        sec
        bcs             bcsok
        jsr             putmsg
        db              "BCS:F", 13, 10, 0
bcsok
        clc
        bcc             bccok
        jsr             putmsg
        db              "BCC:F", 13, 10, 0
bccok
        lda             #$00
        beq             beqok
        jsr             putmsg
        db              "BEQ:F", 13, 10, 0
beqok
        lda             #$80
        bne             bneok
        jsr             putmsg
        db              "BNE:F", 13, 10, 0
bneok
        ora             #$00
        bmi             bmiok
        jsr             putmsg
        db              "BMI:F", 13, 10, 0
bmiok
        eor             #$80
        bpl             bplok
        jsr             putmsg
        db              "BPL:F", 13, 10, 0
bplok
        lda             #$7f
        clc
        adc             #$10            ; should give signed overflow
        bvs             bvsok
        jsr             putmsg
        db              "BVS:F", 13, 10, 0
bvsok
        clv
        bvc             bvcok
        jsr             putmsg
        db              "BVC:F", 13, 10, 0
bvcok

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Compare Instructions
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "test cmp/cpx/cpy", 13, 10, 0

        lda             #27                     ; bit 7 = 0
        clc
        cmp             #27
        bcc             cmperr
        bne             cmperr
        bmi             cmperr
        lda             #$A1
        cmp             #20
        bpl             cmperr          ; should be neg.
        sec
        lda             #10
        cmp             #20                     ; should be a borrow here
        bcs             cmperr
        clv
        lda             #$80            ; -128 - 32 = -160 should overflow
        cmp             #$20            ; compare doesn't affect overflow
        bvs             cmperr
        bvc             cmpok

cmperr
        jsr             putmsg
        db              "CMP:F", 13, 10, 0

cmpok
        ldx             #27
        clc
        cpx             #27
        bcc             cpxerr
        bne             cpxerr
        bmi             cpxerr
        ldx             #$A1
        cpx             #20
        bpl             cpxerr
        ldx             #10
        cpx             #20                     ; should be a borrow here
        bcs             cpxerr
        clv
        ldx             #$80            ; -128 - 32 = -160 should overflow
        cpx             #$20            ; but cpx shouldn't change overflow
        bvs             cpxerr          
        bvc             cpxok

cpxerr
        jsr             putmsg
        db              "CPX:F", 13, 10, 0

cpxok
        ldy             #27
        clc
        cpy             #27
        bcc             cpyerr
        bne             cpyerr
        bmi             cpyerr
        ldy             #$B0
        cpy             #20
        bpl             cpyerr
        ldy             #10
        cpy             #20                     ; should be a borrow here
        bcs             cpyerr
        clv
        ldy             #$80            ; -128 - 32 = -160 should overflow
        cpy             #$20            ; but cpy shouldn't change overflow
        bvs             cpyerr          
        bvc             cpyok

cpyerr
        jsr             putmsg
        db              "CPY:F", 13, 10, 0

cpyok


;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Accumulator ops
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test Acc ops", 13, 10, 0

        clv
        clc
        lda             #0
        ora             #0
        bne             oraerr
        bvs             oraerr
        bmi             oraerr
        bcs             oraerr
        sec
        ora             #0
        bcc             oraerr
        ora             #$55
        beq             oraerr
        cmp             #$55
        bne             oraerr
        ora             #$aa
        cmp             #$ff
        bne             oraerr
        beq             oraok
        
oraerr
        jsr             putmsg
        db              "ORA:F", 13, 10, 0

oraok

        lda             #27                     ; bit 7 = 0
        sec
        sbc             #27
        bcc             sbcerr1
        bne             sbcerr3
        bmi             sbcerr2
        bvs             sbcerr4
        lda             #$A1
        sbc             #$20
        bpl             sbcerr2         ; should be neg.
        cmp             #$81
        bne             sbcerr3
        sec
        lda             #10
        sbc             #20                     ; should be a borrow here
        bcs             sbcerr1
        clv
        lda             #$80            ; -128 - 32 = -160 should overflow
        sbc             #$20            ; 
        bvc             sbcerr4
        bvs             sbcok

sbcerr
        jsr             putmsg
        db              "SBC:F", 13, 10, 0
        jmp             sbcok

sbcerr1
        jsr             putmsg
        db              "SBC:C", 13, 10, 0
        jmp             sbcok

sbcerr2
        jsr             putmsg
        db              "SBC2:N", 13, 10, 0
        jmp             sbcok

sbcerr3
        jsr             putmsg
        db              "SBC3:Z", 13, 10, 0
        jmp             sbcok

sbcerr4
        jsr             putmsg
        db              "SBC:V", 13, 10, 0
        jmp             sbcok

sbcok


; bit

        clv
        lda             #$ff
        bit             n55
        bvc             biterr
        bmi             biterr
        bit             nAA
        bvs             biterr
        bpl             biterr
        lda             #$00
        sta             data_ptr
        lda             #$ff
        bit             data_ptr
        bne             biterr
        beq             bitok

biterr
        jsr             putmsg
        db              "BIT:F", 13, 10, 0

bitok

        lda             #$ff
        pha
        plp
        bpl     plperr
        bvc             plperr
        bne             plperr
        bcc             plperr
        bcs             plpok

plperr
        jsr             putmsg
        db              "PLP:F", 13, 10, 0

plpok

        cld
        clc
        clv
        sei
        lda             #$00    ; p = 00xx0100
        php
        pla
        ror             a               ; C ?
        jsr             psr
        ror             a               ; Z ?
        jsr             psr
        ror             a
        jsr             psr
        ror             a
        jsr             psr
        ror             a               ; B?
        jsr             psr
        ror             a               ; x?
        jsr             psr
        ror             a
        jsr             psr
        ror             a
        jsr             psr
        jmp             phpok
        
psr
        pha
        bcc             psr1
        jsr             putmsg
        db              "1", 0
        pla
        rts
psr1
        jsr             putmsg
        db              "0", 0
        pla
        rts

phperr
        jsr             putmsg
        db              "PHP:F", 13, 10, 0
        jmp     phpok

phperr1
        jsr             putmsg
        db              "PHP:1F", 13, 10, 0
        jmp     phpok
phperr2
        jsr             putmsg
        db              "PHP:2F", 13, 10, 0
        jmp     phpok
phperr3
        jsr             putmsg
        db              "PHP:3F", 13, 10, 0
        jmp     phpok
phperr4
        jsr             putmsg
        db              "PHP:4F", 13, 10, 0
        jmp     phpok
phperr5
        jsr             putmsg
        db              "PHP:5F", 13, 10, 0
        jmp     phpok
phperr6
        jsr             putmsg
        db              "PHP:6F", 13, 10, 0
        jmp     phpok

phpok

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Load
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test lda/ldx/ldy", 13, 10, 0
        
; lda

        clc
        lda             #0
        bne             ldaerr
        bmi             ldaerr
        bcs             ldaerr
        lda             #$80
        beq             ldaerr
        bpl             ldaerr

        lda             #$00
        sta             $800
        bne             ldaerr
        bmi             ldaerr
        bcs             ldaerr
        
        lda             #$ff
        lda             $800
        bne             ldaerr
        bmi             ldaerr
        bcs             ldaerr
        
        cmp             #0
        bne             ldaerr
        
        sec
        lda             #$ff
        sta             $800
        beq             ldaerr
        bpl             ldaerr
        bcc             ldaerr
        
        lda             #0
        lda             $800
        beq             ldaerr
        bpl             ldaerr
        bcc             ldaerr
        
        cmp             #$ff
        beq             ldaok

ldaerr
        jsr             putmsg
        db              "LDA:F", 13, 10, 0

ldaok


; ldx

        clc
        lda             #$80            ; z = 0, n = 1
        ldx             #0
        bcs             ldxerr
        bne             ldxerr
        bmi             ldxerr

        stx             $800
        bne             ldxerr
        bmi             ldxerr
        bcs             ldxerr
        
        ldx             #$ff
        ldx             $800
        bne             ldxerr
        bmi             ldxerr
        bcs             ldxerr
        
        cpx             #0
        bne             ldxerr
        
        sec
        ldx             #$ff
        stx             $800
        beq             ldxerr
        bpl             ldxerr
        bcc             ldxerr
        
        ldx             #0
        ldx             $800
        beq             ldxerr
        bpl             ldxerr
        bcc             ldxerr
        
        cpx             #$ff
        beq             ldxok

ldxerr
        jsr             putmsg
        db              "LDX:F", 13, 10, 0


; ldy

ldxok
        clc
        lda             #$80            ; z = 0, n = 1
        ldy             #0
        bcs             ldyerr
        bne             ldyerr
        bmi             ldyerr

        sty             $800
        bne             ldyerr
        bmi             ldyerr
        bcs             ldyerr
        
        ldy             #$ff
        ldy             $800
        bne             ldyerr
        bmi             ldyerr
        bcs             ldyerr
        
        cpy             #0
        bne             ldyerr
        
        sec
        ldy             #$ff
        sty             $800
        beq             ldyerr
        bpl             ldyerr
        bcc             ldyerr
        
        ldy             #0
        ldy             $800
        beq             ldyerr
        bpl             ldyerr
        bcc             ldyerr
        
        cpy             #$ff
        beq             ldyok

ldyerr
        jsr             putmsg
        db              "LDY:F", 13, 10, 0

ldyok

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Test register transfers
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test tax/tay/txa/tya/tsx/txs", 13, 10, 0
        
; tax

        clc
        lda             #0
        ldx             #$80                    ; z = 0, n = 1
        tax
        bcs             taxerr
        bmi             taxerr
        bne             taxerr
        
        txa
        bne             taxerr

        lda             #$ff
        sec
        ldx             #0
        tax
        bcc             taxerr
        bpl             taxerr
        beq             taxerr
        
        txa
        cmp             #$ff
        beq             taxok

taxerr
        jsr             putmsg
        db              "TAX:F", 13, 10, 0
taxok

; tay

        clc
        lda             #0
        ldy             #$80                    ; z = 0, n = 1
        tay
        bcs             tayerr
        bmi             tayerr
        bne             tayerr
        
        tya
        bne             tayerr

        lda             #$ff
        sec
        ldy             #0
        tay
        bcc             tayerr
        bpl             tayerr
        beq             tayerr
        
        tya
        cmp             #$ff
        beq             tayok

tayerr
        jsr             putmsg
        db              "TAY:F", 13, 10, 0
tayok


; txs

        ldx             #15
        txs
        ldx             #87
        tsx
        cpx             #15
        beq             txsok
        ldx             #$ff
        txs
        jsr             putmsg
        db              "TSX:F", 13, 10, 0
txsok
        ldx             #87
        txa
        cmp             #87
        beq             txaok
        jsr             putmsg
        db              "TXA:F", 13, 10, 0
txaok
        tay
        cpy             #87
        beq             tayok1
        jsr             putmsg
        db              "TAY:F", 13, 10, 0
tayok1
        tya
        beq             tyaerr
        bmi             tyaerr
        cmp             #87
        beq             tyaok
tyaerr
        jsr             putmsg
        db              "TYA:F", 13, 10, 0
tyaok


;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Increment / Decrement
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test inx/dex/iny/dey/ina/dea/inc/dec", 13, 10, 0

        ldx             #$FE
        clc
        lda             #0
        inx
        bcs             inxerr
        beq             inxerr
        bpl             inxerr
        
        cpx             #$ff
        bne             inxerr
        
        sec
        lda             #$80
        inx
        bcc             inxerr
        bne             inxerr
        bmi             inxerr
        
        cpx             #0
        bne             inxerr
        
        clc
inxl1                           ; test loop
        inx
        bcs             inxerr
        bne             inxl1
        
        sec
inxl2
        inx
        bcc             inxerr
        bne             inxl2
        
        beq             inxok
        
inxerr
        jsr             putmsg
        db              "INX:F", 13, 10, 0

inxok

;       dex

        ldx             #2
        clc
        lda             #0
        dex
        bcs             dexerr
        beq             dexerr
        bmi             dexerr
        
        cpx             #1
        bne             dexerr
        
        sec
        lda             #$80
        dex
        bcc             dexerr
        bne             dexerr
        bmi             dexerr
        
        cpx             #0
        bne             dexerr
        
        lda             #0
        dex
        beq             dexerr
        bpl             dexerr
        
        cpx             #$ff
        bne             dexerr
        
        clc
dexl1
        dex
        bcs             dexerr
        bne             dexl1
        
        sec
dexl2
        dex
        bcc             dexerr
        bne             dexl2
        
        beq             dexok
        
dexerr
        jsr             putmsg
        db              "DEX:F", 13, 10, 0
        
dexok

; iny

        ldy             #$FE
        clc
        adc             #0
        iny
        bcs             inyerr
        beq             inyerr
        bpl             inyerr
        
        cpy             #$ff
        bne             inyerr
        
        sec
        lda             #$80
        iny
        bcc             inyerr
        bne             inyerr
        bmi             inyerr
        
        cpy             #0
        bne             inyerr
        
        clc
inyl1                           ; test loop
        iny
        bcs             inyerr
        bne             inyl1
        
        sec
inyl2
        iny
        bcc             inyerr
        bne             inyl2
        
        beq             inyok
        
inyerr
        jsr             putmsg
        db              "INY:F", 13, 10, 0


;       dey

inyok

        ldy             #2
        clc
        lda             #0
        dey
        bcs             deyerr
        beq             deyerr
        bmi             deyerr
        
        cpy             #1
        bne             deyerr
        
        sec
        lda             #$80
        dey
        bcc             deyerr
        bne             deyerr
        bmi             deyerr
        
        cpy             #0
        bne             deyerr
        
        lda             #0
        dey
        beq             deyerr
        bpl             deyerr
        
        cpy             #$ff
        bne             deyerr
        
        clc
deyl1
        dey
        bcs             deyerr
        bne             deyl1
        
        sec
deyl2
        dey
        bcc             deyerr
        bne             deyl2
        
        beq             deyok
        
deyerr
        jsr             putmsg
        db              "DEY:F", 13, 10, 0
        
deyok


        lda             #1
        ina
        cmp             #2
        beq             inaok
        
        jsr             putmsg
        db              "INA:F", 13, 10, 0

inaok
        
        lda             #2
        dea
        cmp             #1
        beq             deaok
        
        jsr             putmsg
        db              "DEA:F", 13, 10, 0

deaok

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Stores
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test sta/stx/sty/stz", 13, 10, 0

; sta

        lda             #0
        clc
        sta             $00
        bne             staerr
        bmi             staerr
        bcs             staerr
        
        lda             $00
        bne             staerr
        
        lda             #$ff
        sec
        sta             $00
        beq             staerr
        bpl             staerr
        bcc             staerr
        bcs             staok

staerr
        jsr             putmsg
        db              "STA:F", 13, 10, 0
staok

; stx

        ldx             #0
        clc
        stx             $00
        bne             stxerr
        bmi             stxerr
        bcs             stxerr
        
        ldx             $00
        bne             stxerr
        
        ldx             #$ff
        sec
        stx             $00
        beq             stxerr
        bpl             stxerr
        bcc             stxerr
        bcs             stxok

stxerr
        jsr             putmsg
        db              "STX:F", 13, 10, 0
stxok

; sty

        ldy             #0
        clc
        sty             $00
        bne             styerr
        bmi             styerr
        bcs             styerr
        
        ldy             $00
        bne             styerr
        
        ldy             #$ff
        sec
        sty             $00
        beq             styerr
        bpl             styerr
        bcc             styerr
        bcs             styok

styerr
        jsr             putmsg
        db              "STY:F", 13, 10, 0
styok

; stz

        lda             #$ff
        sta             data_ptr
        stz             data_ptr
        lda             data_ptr
        beq             stzok

        jsr             putmsg
        db              "STZ:F", 13, 10, 0
        
stzok

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Test addressing mode
;       Note that addressing modes are handled independently of the
; actual operation performed by the processor. This means that
; if a mode works with one instruction, it should work properly
; with all instructions that use that mode.
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test amodes", 13, 10, 0

        lda             #$AA
        eor             #$55
        cmp             #$ff
        beq             imm_ok
        jsr             putmsg
        db              "IMM:F", 13, 10, 0
imm_ok
        lda             n55
        eor             nAA
        clc
        adc             #1
        beq             abs_ok
        jsr             putmsg
        db              "ABS:F", 13, 10, 0
abs_ok
        ldx             #2
        lda             n55,x
        cmp             #12
        beq             absx_ok
        jsr             putmsg
        db              "ABS,X:F", 13, 10, 0
absx_ok
        ldy             #3
        lda             n55,y
        cmp             #34
        beq             absy_ok
        jsr             putmsg
        db              "ABS,Y:F", 13, 10, 0
absy_ok
        lda             #33
        sta             data_ptr
        ldx             #0
        ldx             data_ptr
        cpx             #33
        beq             zp_ok
        jsr             putmsg
        db              "ZP:F", 13, 10, 0
zp_ok
        lda             #44
        sta             data_ptr+33
        lda             data_ptr,x
        cmp             #44
        beq             zpx_ok
        jsr             putmsg
        db              "ZP,X:F", 13, 10, 0
zpx_ok
        lda             #$12
        sta             $201
        lda             #$01
        sta             data_ptr
        lda             #$2
        sta             data_ptr+1
        ldx             #5
        lda             (data_ptr-5,x)
        cmp             #$12
        bne             zpixerr
        lda             #$33
        sta             (data_ptr-5,x)
        lda             #$00
        lda             $201
        cmp             #$33
        bne             zpixerr
        beq             zpixok
zpixerr
        jsr             putmsg
        db              "(ZP,X):F", 13, 10, 0
zpixok
        lda             #$fe
        sta             data_ptr
        lda             #$01
        sta             data_ptr+1
        ldy             #3
        lda             (data_ptr),y
        cmp             #$33
        beq             zpiy_ok
        jsr             putmsg
        db              "(ZP),y:F", 13, 10, 0
zpiy_ok
        ldy             #7
        ldx             data_ptr-7,y
        cpx             #$fe
        beq             zpy_ok
        jsr             putmsg
        db              "ZP,Y:F", 13, 10, 0
zpy_ok

        ; test (zp)

        lda             #$34
        sta             $201
        lda             #$01
        sta             data_ptr
        lda             #$02
        sta             data_ptr+1
        lda             (data_ptr)
        cmp             #$34
        beq             zpiok
        jsr             putmsg
        db              "(ZP):F", 13, 10, 0
zpiok

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
        ldy             #$ff
        iny
        cpy             #0      
        beq             iny_ok
        jsr             putmsg
        db              "INY:F", 13, 10, 0
iny_ok
        ldy             #10
        dey
        cpy             #9
        beq             dey_ok
        jsr             putmsg
        db              "DEY:F", 13, 10, 0
dey_ok
        ldx             #$80
        inx
        cpx             #$81
        beq             inx_ok
        jsr             putmsg
        db              "INX:F", 13, 10, 0
inx_ok
        ldx             #$00
        dex
        cpx             #$ff
        beq             dex_ok
        jsr             putmsg
        db              "DEX:F", 13, 10, 0
dex_ok


;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; Shift ops
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test asl/rol/lsr/ror", 13, 10, 0

; asl a

        lda             #$01
        asl             a
        asl             a
        asl             a
        asl             a
        asl             a
        asl             a
        asl             a
        bpl             aslaerr
        beq             aslaerr
        bcs             aslaerr
        cmp             #$80
        beq             aslaok
        asl             a                               ; check that carry is shifted out
        bcc             aslaerr
        bcs             aslaok

aslaerr
        jsr             putmsg
        db              "ASLA:F", 13, 10, 0
        
aslaok

; lsr a

        lda             #$80
        lsr             a
        lsr             a
        lsr             a
        lsr             a
        lsr             a
        lsr             a
        lsr             a
        bmi             lsraerr
        beq             lsraerr
        bcs             lsraerr
        bcc             lsraok
        lsr             a
        bcc             lsraerr
        bcs             lsraok

lsraerr
        jsr             putmsg
        db              "LSRA:F", 13, 10, 0
        
lsraok


; rol a

        clc
        lda             #$01
        rol             a
        rol             a
        rol             a
        rol             a
        rol             a
        rol             a
        rol             a
        bpl             rolaerr
        beq             rolaerr
        bcs             rolaerr
        cmp             #$80            ; this will set the carry !!!
        bne             rolaerr
        clc
        rol             a
        bcc             rolaerr
        bne             rolaerr
        bmi             rolaerr
        rol             a
        bcs             rolaerr
        bmi             rolaerr
        beq             rolaerr
        cmp             #1
        beq             rolaok

rolaerr
        jsr             putmsg
        db              "ROLA:F", 13, 10, 0
        jmp             rolaok
        
rolaok


; ror a

        clc
        lda             #$80
        ror             a
        ror             a
        ror             a
        ror             a
        ror             a
        ror             a
        ror             a
        bmi             roraerr
        beq             roraerr
        bcs             roraerr
        cmp             #$01            ; this will set the carry !!!
        bne             roraerr
        clc
        ror             a
        bcc             roraerr
        bne             roraerr
        bmi             roraerr
        ror             a
        bcs             roraerr
        bpl             roraerr
        beq             roraerr
        cmp             #$80
        beq             roraok
        bne             roraerr

roraerr
        jsr             putmsg
        db              "RORA:F", 13, 10, 0
        
roraok


; ror m

        clc
        lda             #$80
        sta             dpf
        ror             dpf
        ror             dpf
        ror             dpf
        ror             dpf
        ror             dpf
        ror             dpf
        ror             dpf
        bmi             rormerr
        beq             rormerr
        bcs             rormerr
        lda             dpf
        cmp             #$01            ; this will set the carry !!!
        bne             rormerr
        clc
        ror             dpf
        bcc             rormerr
        bne             rormerr
        bmi             rormerr
        ror             dpf
        bcs             rormerr
        bpl             rormerr
        beq             rormerr
        lda             dpf
        cmp             #$80
        bne             rormerr
        jmp             rormok

rormerr
        jsr             putmsg
        db              "RORM:F", 13, 10, 0
        jmp             rormok
        
rormok


;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

        jsr             putmsg
        db              "Test psh/pul", 13, 10, 0

; pha / pla
        lda             #$ee
        pha
        lda             #00
        clc
        pla
        bpl             plaerr
        beq             plaerr
        bcs             plaerr
        bcc             plaok

plaerr
        jsr             putmsg
        db              "PLA:F", 13, 10, 0

plaok

; phx / plx
        ldx             #$ee
        phx
        ldx             #00
        plx
        cpx             #$ee
        beq             plxok

        jsr             putmsg
        db              "PLX:F", 13, 10, 0

plxok

; phy / ply
        ldy             #$ee
        phy
        ldy             #00
        ply
        cpy             #$ee
        beq             plyok

        jsr             putmsg
        db              "PLY:F", 13, 10, 0

plyok

        ; jmp (a,x)

        jsr             putmsg
        db              "test jmp(a,x)", 13, 10, 0

        lda             #<jmpiaxok
        ldx             #>jmpiaxok
        sta             $201
        stx             $202
        ldx             #20
        jmp             ($201-20,x)     

        jsr             putmsg
        db              "JMP (a,x):F", 13, 10, 0

jmpiaxok
        stp
        jmp             ($FFFC)         ; go back to reset

;------------------------------------------------------------------
; Kind of a chicken and egg problem here. If there is something
; wrong with the processor, then this code likely won't execute.
;

; put message to screen
; tests pla,sta,ldy,inc,bne,ora,jmp,jmp(abs)

putmsg
        pla                                     ; pop the return address off the stack
        sta             data_ptr        ; to use as a pointer to the data
        pla
        sta             data_ptr+1
pm2
        ldy             #$01
        lda             (data_ptr),y
        inc             data_ptr
        bne             pm3
        inc             data_ptr+1
pm3
        ora             #0                      ; end of string ?
        beq             pm1
        jsr             putSer
        jmp             pm2
pm1                                             ; must update the return address !
        inc             data_ptr
        bne             pm4
        inc             data_ptr+1
pm4
        jmp             (data_ptr)



; put character to serial port
; test and,bne,pha,pla,sta,lda,rts

putSer
        pha                                     ; temporarily save character
ps1
        lda             UART+1          ; get serial port status
        and             #XMIT_FUL       ; is it full ?
        bne             ps1                     ; If full then wait
        pla                                     ; get back the char to write
        sta             UART            ; write it to the xmit register
        rts

n55
        db              $55
nAA
        db              $AA
        
        db              12
        db              34
nmirout
        rti

        align   4
n5555
        dw              $55555555
nAAAA
        dw              $AAAAAAAA
        
        dw              12
        dw              34

        org $0FFFFFFF4          ; NMI vector
        dw      nmirout

        org     $0FFFFFFF8              ; reset vector, native mode
        dw      start

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.