URL https://opencores.org/ocsvn/rtf65002/rtf65002/trunk
Subversion Repositories rtf65002

[/] [rtf65002/] [trunk/] [software/] [asm/] [t65C.asm] - Blame information for rev 36

Go to most recent revision | Details | Compare with Previous | 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             #
        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
Browse

Tools

Subversion Repositories rtf65002

[/] [rtf65002/] [trunk/] [software/] [asm/] [t65C.asm] - Blame information for rev 36

Line No.	Rev	Author	Line
1	4	robfinch	`;==================================================================`
2			`; (C) 2003 Bird Computer`
3			`; All rights reserved.`
4			`;`
5			`; W65C02 Processor Test Routine`
6			`;`
7			`; The basic format is to test the things needed for further`
8			`; testing first, like branches and compare, then move onto other`
9			`; instructions.`
10			`;==================================================================`
11
12			`UART equ $CF00`
13			`XMIT_FUL equ $08 ; the transmit buffer is full`
14			`data_ptr equ $08`
15			`dpf equ $AA`
16
17			`org $0FFFFE000`
18			`cpu rtf65002`
19
20			`; If the program gets here then we know at least the boot strap`
21			`; worked okay, which is in itself a good test of processor health.`
22			`start`
23			`sei`
24			`cld ; set decimal mode flag to zero`
25			`ldx #$1000`
26			`txs`
27			`trs r0,dp ; set zero page location`
28			`emm ; emulation mode`
29			`cpu W65C02`
30			`sei`
31			`ldx #$FF`
32			`txs`
33			`jsr putmsg`
34			`db "C02 Testing Processor", 13, 10, 0`
35
36
37			`;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`
38			`; First thing to test is branches. If you can't branch reliably`
39			`; then the validity of the remaining tests are in question.`
40			`; Test branches and also simultaneously some other simple`