URL
https://opencores.org/ocsvn/minirisc/minirisc/trunk
Subversion Repositories minirisc
[/] [minirisc/] [trunk/] [scode/] [rf2.asm] - Rev 7
Compare with Previous | Blame | View Log
;/////////////////////////////////////////////////////////////////////;//// ////;//// Mini-RISC-1 ////;//// Register File Test 2 ////;//// 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 br15movlw r0movwf FSRcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fmovlw br0movwf FSRcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fmovlw br0movwf FSRbsf FSR,5comf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fmovlw br0movwf FSRbsf FSR,6comf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fmovlw br0movwf FSRbsf FSR,5bsf FSR,6comf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,Fcomf INDF,Fincf FSR,F; Register File TEST 1movlw 0x01movwf PORTB ; Set Test Numbermovlw r0movwf FSRmovlw 0x7esubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x7dincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x7cincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x7bincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x7aincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x79incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x78incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x77incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw br0movwf FSRmovlw 0x6fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x6eincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x6dincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x6cincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x6bincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x6aincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x69incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x68incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x67incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x66incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x65incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x64incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x63incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x62incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x61incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x60incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerr; Register File TEST 2movlw 0x02movwf PORTB ; Set Test Numbermovlw br0movwf FSRbsf FSR,5movlw 0x5fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x5eincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x5dincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x5cincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x5bincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x5aincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x59incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x58incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x57incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x56incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x55incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x54incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x53incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x52incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x51incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x50incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerr; Register File TEST 3movlw 0x03movwf PORTB ; Set Test Numbermovlw br0movwf FSRbsf FSR,6movlw 0x4fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x4eincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x4dincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x4cincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x4bincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x4aincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x49incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x48incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x47incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x46incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x45incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x44incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x43incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x42incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x41incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x40incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerr; Register File TEST 4movlw 0x04movwf PORTB ; Set Test Numbermovlw br0movwf FSRbsf FSR,5bsf FSR,6movlw 0x3fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x3eincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x3dincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x3cincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x3bincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x3aincf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x39incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x38incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x37incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x36incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x35incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x34incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x33incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x32incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x31incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrmovlw 0x30incf FSR,Fsubwf INDF,Wbtfss STATUS,Zgoto lerrnopnopnopnopmovlw 0x01movwf PORTAnopnopnopnopgood ; Loop in good on successgoto goodnopnopnopnoplerrmovlw 0xffmovwf PORTAnopnopnopnoplerr_loop ; Loop in lerr on failuregoto lerr_loopnopnopnopnopEND