Subversion Repositories zipcpu

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Filename:     ivec.S
;
; Project:      Zip CPU -- a small, lightweight, RISC CPU soft core
;
; Purpose:      Just to test whether or not a timer works as desired.  This
;               will set the timer to interrupt every millisecond, and then
;               update a counter on every interrupt.
;
;               On any failure, the processor will execute a BUSY command.
;
; Creator:      Dan Gisselquist, Ph.D.
;               Gisselquist Tecnology, LLC
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Copyright (C) 2015, Gisselquist Technology, LLC
;
; This program is free software (firmware): you can redistribute it and/or
; modify it under the terms of  the GNU General Public License as published
; by the Free Software Foundation, either version 3 of the License, or (at
; your option) any later version.
;
; This program is distributed in the hope that it will be useful, but WITHOUT
; ANY WARRANTY; without even the implied warranty of MERCHANTIBILITY or
; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
; for more details.
;
; License:      GPL, v3, as defined and found on www.gnu.org,
;               http://www.gnu.org/licenses/gpl.html
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Registers:
;       sR0     Peripheral address
;       sR2     Interrupt controller command
;       sR3     Timer peripheral command
;       sR4     User program entry address (Could also be (re)entry address,
;                       but isn't in this implementation)
;       sR5     Whether or not we've gotten the first interrupt
;       sR6     Number of times we've been interrupted
;       sR7     Number of times R6 has overflowed
reset:
        CLR     R0              ; Load the address of the interrupt controller
        LDIHI   $c000h,R0       ; into R0
        LDI     $-1,R2          ; Acknowledge and disable all interrupts
        LDIHI   $7fffh,R2       ;
        STO     R2,(R0)         ;
        ; Set the timer for a programmaable interrupt, every 100k clocks,
        ; or roughly 1,000 times a second on a 100 MHz clock.
        LDIHI   $0xc001h,R3     ; R3 = 100k, save that the top two bits are
        LDILO   $0x86a0h,R3     ; also set (start timer, and auto reload)
        STO     R3,$6(C0)
        ; Now that timer-C is set, let's enable it's interrupts
        LDIHI   $8004h,R2       ; Leaving the bottom all ones acknowledges and
        STO     R2,(R0)         ; clears any interrupts (again)
        ; Clear our counter variables
        CLR     R5
        CLR     R6
        CLR     R7
        ; Program our wait for interrupt routine
        MOV     $8(PC),R4
        MOV     R4,uPC
        RTU
on_first_interrupt:
        ADD     $1,R5
setup_for_next_interrupt:
        RTU
on_subsequent_interrupt:
        ADD     $1,R6
        ADD.C   $1,R7
        BRA     $-4
haltcpu:        
        BUSY                    ; We've failed if we ever get here

waitforinterrupt:
        WAIT
        BRA     $-2
        MOV     $0,R0
        MOV     $0,R0
        BUSY