URL
https://opencores.org/ocsvn/minirisc/minirisc/trunk
Subversion Repositories minirisc
[/] [minirisc/] [trunk/] [scode/] [rf3.asm] - Rev 7
Compare with Previous | Blame | View Log
;/////////////////////////////////////////////////////////////////////;//// ////;//// Mini-RISC-1 ////;//// Register File Test 3 ////;//// Tests Register File ////;//// ////;//// Author: Rudolf Usselmann ////;//// russelmann@hotmail.com ////;//// ////;/////////////////////////////////////////////////////////////////////;//// ////;//// Copyright (C) 2000 Rudolf Usselmann ////;//// russelmann@hotmail.com ////;//// ////;//// This source file may be used and distributed without ////;//// restriction provided that this copyright statement is not ////;//// removed from the file and that any derivative work contains ////;//// the original copyright notice and the associated disclaimer.////;//// ////;//// THIS SOURCE FILE IS PROVIDED "AS IS" AND WITHOUT ANY ////;//// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT ////;//// LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND ////;//// FITNESS FOR A PARTICULAR PURPOSE. ////;//// ////;/////////////////////////////////////////////////////////////////////list p=16c57#include p16c5x.inc; global Registersr0 equ 0x8r1 equ 0x9r2 equ 0xar3 equ 0xbr4 equ 0xcr5 equ 0xdr6 equ 0xer7 equ 0xf; banked Registersbr0 equ 0x10br1 equ 0x11br2 equ 0x12br3 equ 0x13br4 equ 0x14br5 equ 0x15br6 equ 0x16br7 equ 0x17br8 equ 0x18br9 equ 0x19br10 equ 0x1abr11 equ 0x1bbr12 equ 0x1cbr13 equ 0x1dbr14 equ 0x1ebr15 equ 0x1f; PORTB Indicates Test Number; PORTA Indicates Status: 0 - Running; 1 - done OK; ff - stoped on errormain ; Main code entry; Port IO Test; All ports have a Pull up resistor; SETUP all portsclrwmovwf FSRmovwf PORTAmovwf PORTBmovwf PORTCtris PORTAtris PORTBtris PORTC; ---------------------------------------; ---- Test RMW on Register fil ----; ---------------------------------------movlw 0x01 ; TEST 1movwf PORTB ; Set Test Numbermovlw 0xfcmovwf r0incf r0,Fincf r0,Fincf r0,Fincf r0,Fbtfss STATUS,Zgoto lerrmovlw 0xfcmovwf br8incf br8,Fincf br8,Fincf br8,Fincf br8,Fbtfss STATUS,Zgoto lerrmovlw 0x02 ; TEST 2movwf PORTB ; Set Test Numbermovlw r1movwf FSRmovlw 0xfcmovwf INDFincf INDF,Fincf INDF,Fincf INDF,Fincf INDF,Fbtfss STATUS,Zgoto lerrmovlw br9movwf FSRmovlw 0xfcmovwf INDFincf INDF,Fincf INDF,Fincf INDF,Fincf INDF,Fbtfss STATUS,Zgoto lerrmovlw 0x03 ; TEST 3movwf PORTB ; Set Test Numbermovlw 0x04movwf r0decf r0,Fdecf r0,Fdecf r0,Fdecf r0,Fbtfss STATUS,Zgoto lerrmovlw 0x04movwf br0decf br0,Fdecf br0,Fdecf br0,Fdecf br0,Fbtfss STATUS,Zgoto lerrmovlw 0x04 ; TEST 4movwf PORTB ; Set Test Numbermovlw r1movwf FSRmovlw 0x04movwf INDFdecf INDF,Fdecf INDF,Fdecf INDF,Fdecf INDF,Fbtfss STATUS,Zgoto lerrmovlw br9movwf FSRmovlw 0x04movwf INDFdecf INDF,Fdecf INDF,Fdecf INDF,Fdecf INDF,Fbtfss STATUS,Zgoto lerrmovlw 0x05 ; TEST 5movwf PORTB ; Set Test Numbermovlw 0xfcmovwf r4incfsz r4,Fincfsz r4,Fincfsz r4,Fincfsz r4,Fgoto lerrmovlw 0xfcmovwf br8incfsz br8,Fincfsz br8,Fincfsz br8,Fincfsz br8,Fgoto lerrmovlw 0x06 ; TEST 6movwf PORTB ; Set Test Numbermovlw r1movwf FSRmovlw 0xfcmovwf INDFincfsz INDF,Fincfsz INDF,Fincfsz INDF,Fincfsz INDF,Fgoto lerrmovlw br9movwf FSRmovlw 0xfcmovwf INDFincfsz INDF,Fincfsz INDF,Fincfsz INDF,Fincfsz INDF,Fgoto lerrmovlw 0x07 ; TEST 7movwf PORTB ; Set Test Numbermovlw 0x04movwf r0decfsz r0,Fdecfsz r0,Fdecfsz r0,Fdecfsz r0,Fgoto lerrmovlw 0x04movwf br0decfsz br0,Fdecfsz br0,Fdecfsz br0,Fdecfsz br0,Fgoto lerrmovlw 0x08 ; TEST 8movwf PORTB ; Set Test Numbermovlw r1movwf FSRmovlw 0x04movwf INDFdecfsz INDF,Fdecfsz INDF,Fdecfsz INDF,Fdecfsz INDF,Fgoto lerrmovlw br9movwf FSRmovlw 0x04movwf INDFdecfsz INDF,Fdecfsz INDF,Fdecfsz INDF,Fdecfsz INDF,Fgoto lerrmovlw 0x09 ; TEST 9movwf PORTB ; Set Test Numbermovlw 0xfcmovwf FSRincf FSR,Fincf FSR,Fincf FSR,Fincf FSR,Fbtfss STATUS,Zgoto lerrmovlw 0x04movwf FSRmovlw 0x7fdecf FSR,Fdecf FSR,Fdecf FSR,Fdecf FSR,Fandwf FSR,Fbtfss STATUS,Zgoto lerrmovlw 0x0a ; TEST 10movwf PORTB ; Set Test Numbermovlw 0xfcmovwf STATUSmovlw 0x18incf STATUS,Fincf STATUS,Fincf STATUS,Fincf STATUS,Fsubwf STATUS,Wbtfss STATUS,Zgoto lerrnopnopnopnopmovlw 0x01movwf PORTAnopnopnopnopgood ; Loop in good on successgoto goodnopnopnopnoplerrmovlw 0xffmovwf PORTAnopnopnopnoplerr_loop ; Loop in lerr on failuregoto lerr_loopnopnopnopnopEND