URL
https://opencores.org/ocsvn/ae18/ae18/trunk
[/] [ae18/] [trunk/] [sw/] [asm/] [ae18_core.asm] - Diff between revs 3 and 5
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
Rev 3 |
Rev 5 |
Line 1... |
Line 1... |
;;;
|
;;;
|
;;; $Id: ae18_core.asm,v 1.2 2006-12-29 08:17:17 sybreon Exp $
|
;;; $Id: ae18_core.asm,v 1.3 2006-12-29 17:54:21 sybreon Exp $
|
;;;
|
;;;
|
;;; Copyright (C) 2006 Shawn Tan Ser Ngiap
|
;;; Copyright (C) 2006 Shawn Tan Ser Ngiap
|
;;;
|
;;;
|
;;; This library is free software; you can redistribute it and/or modify it
|
;;; This library is free software; you can redistribute it and/or modify it
|
;;; under the terms of the GNU Lesser General Public License as published by
|
;;; under the terms of the GNU Lesser General Public License as published by
|
Line 75... |
Line 75... |
rcall _BIT_TEST
|
rcall _BIT_TEST
|
rcall _N2F_TEST
|
rcall _N2F_TEST
|
rcall _FSR_TEST
|
rcall _FSR_TEST
|
rcall _SHA_TEST
|
rcall _SHA_TEST
|
rcall _TBL_TEST
|
rcall _TBL_TEST
|
|
rcall _PCL_TEST
|
|
|
|
|
;; All tests OK!!
|
;; All tests OK!!
|
sleep
|
sleep
|
|
|
Line 91... |
Line 92... |
|
|
;; Infinite Loop. It should NEVER loop.
|
;; Infinite Loop. It should NEVER loop.
|
bra $
|
bra $
|
|
|
;;
|
;;
|
|
;; PCL tests - OK
|
|
;; Tests to check that PCLATU/PCLATH/PCL works.
|
|
;;
|
|
_PCL_TEST:
|
|
movlw UPPER(_PCL1)
|
|
movwf PCLATU
|
|
movlw HIGH(_PCL1)
|
|
movwf PCLATH
|
|
movlw LOW(_PCL1)
|
|
movwf PCL ; Jump
|
|
bra $
|
|
_PCL1:
|
|
movlw 0xFF
|
|
movwf PCLATU
|
|
movwf PCLATH
|
|
movf PCL,W ; WREG = _PCL0
|
|
_PCL0:
|
|
xorlw LOW(_PCL0)
|
|
bnz $
|
|
movf PCLATH,W
|
|
xorlw HIGH(_PCL0)
|
|
bnz $
|
|
movf PCLATU,W
|
|
xorlw UPPER(_PCL0)
|
|
bnz $
|
|
|
|
retlw 0x00
|
|
|
|
|
|
;;
|
;; TABLE tests - OK
|
;; TABLE tests - OK
|
;; Tests to check that TBLRD is working
|
;; Tests to check that TBLRD is working
|
;;
|
;;
|
_TBL_TEST:
|
_TBL_TEST:
|
clrf TBLPTRH
|
clrf TBLPTRH
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.