URL
https://opencores.org/ocsvn/minirisc/minirisc/trunk
Subversion Repositories minirisc
[/] [minirisc/] [trunk/] [scode/] [rf1.asm] - Rev 7
Compare with Previous | Blame | View Log
;/////////////////////////////////////////////////////////////////////;//// ////;//// Mini-RISC-1 ////;//// Register File Test 1 ////;//// 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 PORTCbsf STATUS,5; ---------------------------------------; ---- Test the entire register file ----; ---------------------------------------movlw 0x81movwf r0movlw 0x82movwf r1movlw 0x83movwf r2movlw 0x84movwf r3movlw 0x85movwf r4movlw 0x86movwf r5movlw 0x87movwf r6movlw 0x88movwf r7movlw 0x90movwf br0movlw 0x91movwf br1movlw 0x92movwf br2movlw 0x93movwf br3movlw 0x94movwf br4movlw 0x95movwf br5movlw 0x96movwf br6movlw 0x97movwf br7movlw 0x98movwf br8movlw 0x99movwf br9movlw 0x9amovwf br10movlw 0x9bmovwf br11movlw 0x9cmovwf br12movlw 0x9dmovwf br13movlw 0x9emovwf br14movlw 0x9fmovwf br15bsf FSR,5 ; Select Register Bank 01movlw 0xa0movwf br0movlw 0xa1movwf br1movlw 0xa2movwf br2movlw 0xa3movwf br3movlw 0xa4movwf br4movlw 0xa5movwf br5movlw 0xa6movwf br6movlw 0xa7movwf br7movlw 0xa8movwf br8movlw 0xa9movwf br9movlw 0xaamovwf br10movlw 0xabmovwf br11movlw 0xacmovwf br12movlw 0xadmovwf br13movlw 0xaemovwf br14movlw 0xafmovwf br15bcf FSR,5 ; Select Register Bank 10bsf FSR,6movlw 0xb0movwf br0movlw 0xb1movwf br1movlw 0xb2movwf br2movlw 0xb3movwf br3movlw 0xb4movwf br4movlw 0xb5movwf br5movlw 0xb6movwf br6movlw 0xb7movwf br7movlw 0xb8movwf br8movlw 0xb9movwf br9movlw 0xbamovwf br10movlw 0xbbmovwf br11movlw 0xbcmovwf br12movlw 0xbdmovwf br13movlw 0xbemovwf br14movlw 0xbfmovwf br15bsf FSR,5 ; Select Register Bank 11bsf FSR,6movlw 0xc0movwf br0movlw 0xc1movwf br1movlw 0xc2movwf br2movlw 0xc3movwf br3movlw 0xc4movwf br4movlw 0xc5movwf br5movlw 0xc6movwf br6movlw 0xc7movwf br7movlw 0xc8movwf br8movlw 0xc9movwf br9movlw 0xcamovwf br10movlw 0xcbmovwf br11movlw 0xccmovwf br12movlw 0xcdmovwf br13movlw 0xcemovwf br14movlw 0xcfmovwf br15; Register File TEST 1movlw 0x01movwf PORTB ; Set Test Numberclrwmovwf FSRmovlw 0x81subwf r0,Wbtfss STATUS,Zgoto lerrmovlw 0x82subwf r1,Wbtfss STATUS,Zgoto lerrmovlw 0x83subwf r2,Wbtfss STATUS,Zgoto lerrmovlw 0x84subwf r3,Wbtfss STATUS,Zgoto lerrmovlw 0x85subwf r4,Wbtfss STATUS,Zgoto lerrmovlw 0x86subwf r5,Wbtfss STATUS,Zgoto lerrmovlw 0x87subwf r6,Wbtfss STATUS,Zgoto lerrmovlw 0x88subwf r7,Wbtfss STATUS,Zgoto lerrmovlw 0x90subwf br0,Wbtfss STATUS,Zgoto lerrmovlw 0x91subwf br1,Wbtfss STATUS,Zgoto lerrmovlw 0x92subwf br2,Wbtfss STATUS,Zgoto lerrmovlw 0x93subwf br3,Wbtfss STATUS,Zgoto lerrmovlw 0x94subwf br4,Wbtfss STATUS,Zgoto lerrmovlw 0x95subwf br5,Wbtfss STATUS,Zgoto lerrmovlw 0x96subwf br6,Wbtfss STATUS,Zgoto lerrmovlw 0x97subwf br7,Wbtfss STATUS,Zgoto lerrmovlw 0x98subwf br8,Wbtfss STATUS,Zgoto lerrmovlw 0x99subwf br9,Wbtfss STATUS,Zgoto lerrmovlw 0x9asubwf br10,Wbtfss STATUS,Zgoto lerrmovlw 0x9bsubwf br11,Wbtfss STATUS,Zgoto lerrmovlw 0x9csubwf br12,Wbtfss STATUS,Zgoto lerrmovlw 0x9dsubwf br13,Wbtfss STATUS,Zgoto lerrmovlw 0x9esubwf br14,Wbtfss STATUS,Zgoto lerrmovlw 0x9fsubwf br15,Wbtfss STATUS,Zgoto lerr; Register File TEST 2movlw 0x02movwf PORTB ; Set Test Numberbsf FSR,5 ; Select Register Bank 01movlw 0x81subwf r0,Wbtfss STATUS,Zgoto lerrmovlw 0x82subwf r1,Wbtfss STATUS,Zgoto lerrmovlw 0x83subwf r2,Wbtfss STATUS,Zgoto lerrmovlw 0x84subwf r3,Wbtfss STATUS,Zgoto lerrmovlw 0x85subwf r4,Wbtfss STATUS,Zgoto lerrmovlw 0x86subwf r5,Wbtfss STATUS,Zgoto lerrmovlw 0x87subwf r6,Wbtfss STATUS,Zgoto lerrmovlw 0x88subwf r7,Wbtfss STATUS,Zgoto lerrmovlw 0xa0subwf br0,Wbtfss STATUS,Zgoto lerrmovlw 0xa1subwf br1,Wbtfss STATUS,Zgoto lerrmovlw 0xa2subwf br2,Wbtfss STATUS,Zgoto lerrmovlw 0xa3subwf br3,Wbtfss STATUS,Zgoto lerrmovlw 0xa4subwf br4,Wbtfss STATUS,Zgoto lerrmovlw 0xa5subwf br5,Wbtfss STATUS,Zgoto lerrmovlw 0xa6subwf br6,Wbtfss STATUS,Zgoto lerrmovlw 0xa7subwf br7,Wbtfss STATUS,Zgoto lerrmovlw 0xa8subwf br8,Wbtfss STATUS,Zgoto lerrmovlw 0xa9subwf br9,Wbtfss STATUS,Zgoto lerrmovlw 0xaasubwf br10,Wbtfss STATUS,Zgoto lerrmovlw 0xabsubwf br11,Wbtfss STATUS,Zgoto lerrmovlw 0xacsubwf br12,Wbtfss STATUS,Zgoto lerrmovlw 0xadsubwf br13,Wbtfss STATUS,Zgoto lerrmovlw 0xaesubwf br14,Wbtfss STATUS,Zgoto lerrmovlw 0xafsubwf br15,Wbtfss STATUS,Zgoto lerr; Register File TEST 3movlw 0x03movwf PORTB ; Set Test Numberbcf FSR,5 ; Select Register Bank 10bsf FSR,6movlw 0x81subwf r0,Wbtfss STATUS,Zgoto lerrmovlw 0x82subwf r1,Wbtfss STATUS,Zgoto lerrmovlw 0x83subwf r2,Wbtfss STATUS,Zgoto lerrmovlw 0x84subwf r3,Wbtfss STATUS,Zgoto lerrmovlw 0x85subwf r4,Wbtfss STATUS,Zgoto lerrmovlw 0x86subwf r5,Wbtfss STATUS,Zgoto lerrmovlw 0x87subwf r6,Wbtfss STATUS,Zgoto lerrmovlw 0x88subwf r7,Wbtfss STATUS,Zgoto lerrmovlw 0xb0subwf br0,Wbtfss STATUS,Zgoto lerrmovlw 0xb1subwf br1,Wbtfss STATUS,Zgoto lerrmovlw 0xb2subwf br2,Wbtfss STATUS,Zgoto lerrmovlw 0xb3subwf br3,Wbtfss STATUS,Zgoto lerrmovlw 0xb4subwf br4,Wbtfss STATUS,Zgoto lerrmovlw 0xb5subwf br5,Wbtfss STATUS,Zgoto lerrmovlw 0xb6subwf br6,Wbtfss STATUS,Zgoto lerrmovlw 0xb7subwf br7,Wbtfss STATUS,Zgoto lerrmovlw 0xb8subwf br8,Wbtfss STATUS,Zgoto lerrmovlw 0xb9subwf br9,Wbtfss STATUS,Zgoto lerrmovlw 0xbasubwf br10,Wbtfss STATUS,Zgoto lerrmovlw 0xbbsubwf br11,Wbtfss STATUS,Zgoto lerrmovlw 0xbcsubwf br12,Wbtfss STATUS,Zgoto lerrmovlw 0xbdsubwf br13,Wbtfss STATUS,Zgoto lerrmovlw 0xbesubwf br14,Wbtfss STATUS,Zgoto lerrmovlw 0xbfsubwf br15,Wbtfss STATUS,Zgoto lerr; Register File TEST 4movlw 0x04movwf PORTB ; Set Test Numberbsf FSR,5 ; Select Register Bank 11bsf FSR,6movlw 0x81subwf r0,Wbtfss STATUS,Zgoto lerrmovlw 0x82subwf r1,Wbtfss STATUS,Zgoto lerrmovlw 0x83subwf r2,Wbtfss STATUS,Zgoto lerrmovlw 0x84subwf r3,Wbtfss STATUS,Zgoto lerrmovlw 0x85subwf r4,Wbtfss STATUS,Zgoto lerrmovlw 0x86subwf r5,Wbtfss STATUS,Zgoto lerrmovlw 0x87subwf r6,Wbtfss STATUS,Zgoto lerrmovlw 0x88subwf r7,Wbtfss STATUS,Zgoto lerrmovlw 0xc0subwf br0,Wbtfss STATUS,Zgoto lerrmovlw 0xc1subwf br1,Wbtfss STATUS,Zgoto lerrmovlw 0xc2subwf br2,Wbtfss STATUS,Zgoto lerrmovlw 0xc3subwf br3,Wbtfss STATUS,Zgoto lerrmovlw 0xc4subwf br4,Wbtfss STATUS,Zgoto lerrmovlw 0xc5subwf br5,Wbtfss STATUS,Zgoto lerrmovlw 0xc6subwf br6,Wbtfss STATUS,Zgoto lerrmovlw 0xc7subwf br7,Wbtfss STATUS,Zgoto lerrmovlw 0xc8subwf br8,Wbtfss STATUS,Zgoto lerrmovlw 0xc9subwf br9,Wbtfss STATUS,Zgoto lerrmovlw 0xcasubwf br10,Wbtfss STATUS,Zgoto lerrmovlw 0xcbsubwf br11,Wbtfss STATUS,Zgoto lerrmovlw 0xccsubwf br12,Wbtfss STATUS,Zgoto lerrmovlw 0xcdsubwf br13,Wbtfss STATUS,Zgoto lerrmovlw 0xcesubwf br14,Wbtfss STATUS,Zgoto lerrmovlw 0xcfsubwf br15,Wbtfss STATUS,Zgoto lerrnopnopnopnopmovlw 0x01movwf PORTAnopnopnopnopgood ; Loop in good on successgoto goodnopnopnopnoplerrmovlw 0xffmovwf PORTAnopnopnopnoplerr_loop ; Loop in lerr on failuregoto lerr_loopnopnopnopnopEND