URL
https://opencores.org/ocsvn/minirisc/minirisc/trunk
Subversion Repositories minirisc
[/] [minirisc/] [trunk/] [scode/] [sanity1.asm] - Rev 7
Compare with Previous | Blame | View Log
;/////////////////////////////////////////////////////////////////////;//// ////;//// Mini-RISC-1 ////;//// Compliance Test 1 ////;//// Tests Ports ////;//// ////;//// 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.incmain ; Main code entry; Port IO Test; All ports have a Pull up resistor; Tristate all portsclrwmovwf PORTAmovwf PORTBmovwf PORTCxorlw 0xfftris PORTAtris PORTBtris PORTC; Now check that porta is 0xffbtfss PORTA,0goto lerrbtfss PORTA,1goto lerrbtfss PORTA,2goto lerrbtfss PORTA,3goto lerrbtfss PORTA,4goto lerrbtfss PORTA,5goto lerrbtfss PORTA,6goto lerrbtfss PORTA,7goto lerr; Now check that portb is 0xffbtfss PORTB,0goto lerrbtfss PORTB,1goto lerrbtfss PORTB,2goto lerrbtfss PORTB,3goto lerrbtfss PORTB,4goto lerrbtfss PORTB,5goto lerrbtfss PORTB,6goto lerrbtfss PORTB,7goto lerr; Now check that portc is 0xffbtfss PORTC,0goto lerrbtfss PORTC,1goto lerrbtfss PORTC,2goto lerrbtfss PORTC,3goto lerrbtfss PORTC,4goto lerrbtfss PORTC,5goto lerrbtfss PORTA,6goto lerrbtfss PORTC,7goto lerr; Enable all portsclrwtris PORTAtris PORTBtris PORTC; Drive them all 0xaaclrwxorlw 0xaamovwf PORTAmovwf PORTBmovwf PORTC; Now check that porta is 0xaabtfsc PORTA,0goto lerrbtfss PORTA,1goto lerrbtfsc PORTA,2goto lerrbtfss PORTA,3goto lerrbtfsc PORTA,4goto lerrbtfss PORTA,5goto lerrbtfsc PORTA,6goto lerrbtfss PORTA,7goto lerr; Now check that portb is 0xaabtfsc PORTB,0goto lerrbtfss PORTB,1goto lerrbtfsc PORTB,2goto lerrbtfss PORTB,3goto lerrbtfsc PORTB,4goto lerrbtfss PORTB,5goto lerrbtfsc PORTB,6goto lerrbtfss PORTB,7goto lerr; Now check that portc is 0xaabtfsc PORTC,0goto lerrbtfss PORTC,1goto lerrbtfsc PORTC,2goto lerrbtfss PORTC,3goto lerrbtfsc PORTC,4goto lerrbtfss PORTC,5goto lerrbtfsc PORTC,6goto lerrbtfss PORTC,7goto lerr; Drive them all 0x55clrwxorlw 0x55movwf PORTAmovwf PORTBmovwf PORTC; Now check that porta is 0x55btfss PORTA,0goto lerrbtfsc PORTA,1goto lerrbtfss PORTA,2goto lerrbtfsc PORTA,3goto lerrbtfss PORTA,4goto lerrbtfsc PORTA,5goto lerrbtfss PORTA,6goto lerrbtfsc PORTA,7goto lerr; Now check that portb is 0x55btfss PORTB,0goto lerrbtfsc PORTB,1goto lerrbtfss PORTB,2goto lerrbtfsc PORTB,3goto lerrbtfss PORTB,4goto lerrbtfsc PORTB,5goto lerrbtfss PORTB,6goto lerrbtfsc PORTB,7goto lerr; Now check that portc is 0x55btfss PORTC,0goto lerrbtfsc PORTC,1goto lerrbtfss PORTC,2goto lerrbtfsc PORTC,3goto lerrbtfss PORTC,4goto lerrbtfsc PORTC,5goto lerrbtfss PORTC,6goto lerrbtfsc PORTC,7goto lerrnopnopnopnopgood ; Loop in good on successgoto goodnopnopnopnoplerr ; Loop in lerr on failuregoto lerrnopnopnopnopEND