;*******************************************************************************
; Module Name:      Interrupt_Vectors
;******************************** GLOBALS **************************************
; E X T E R N A L   D E F I N I T I O N S
;
;   MODULE ENTRY POINT:
    .def   Interrupt_Vectors
; E X T E R N A L   R E F E R E N C E S
;   SUBROUTINES CALLED
	.ref  _c_int00 ,_rint0_int,_int0_int
;   CONSTANTS
;   MODULO MEMORY
;   .bss                         ;used to declare uninitialized data memory
;                                ;syntax: .bss symbol_name,word_size,[blocking flag]
;   .data                        ;used to declare initialized data memory
;   NON MODULO MEMORY
;   FLAGS
;********************************* LOCALS *************************************
; DEFINITIONS:
;
;STACK_LEN       .set    400
; MODULO MEMORY
; NON MODULO MEMORY
;STACK   .usect "stack",STACK_LEN ;

;*********************************   BODY   ***********************************
        .sect  ".vectors"      ; We will want to move to an internal location --
                               ; say 0x2000. Do this with the linker... 
Interrupt_Vectors:             ; 
                               ;
reset:  ;stm #STACK+STACK_LEN,SP 
		BD _c_int00 ; RESET vector
		nop
		nop
nmi: RETE
		NOP
		NOP
		NOP ;NMI~
; software interrupts
sint17 .space 4*16
sint18 .space 4*16
sint19 .space 4*16
sint20 .space 4*16
sint21 .space 4*16
sint22 .space 4*16
sint23 .space 4*16
sint24 .space 4*16
sint25 .space 4*16
sint26 .space 4*16
sint27 .space 4*16
sint28 .space 4*16
sint29 .space 4*16
sint30 .space 4*16
int0:   BD  _int0_int
		NOP
		NOP
int1:   RETE      ;BD host_command_int1 ; Host interrupt
        NOP  
		NOP
		NOP
int2:   RETE
		NOP
		NOP
		NOP
tint:   RETE
		NOP
		NOP
		NOP
rint0:  BD  _rint0_int 			; Serial Port Receive
        NOP 					; Interrupt 0
		NOP
xint0:  RETE 					; Serial Port Transmit
		NOP
		NOP
		NOP
rint2:  RETE 					; Serial Port Receive
		NOP 					; Interrupt 1
		NOP
		NOP
xint2:  RETE 					; Serial Port Transmit
		NOP 					; Interrupt 1
		NOP
		NOP
int3:  RETE
		NOP
		NOP ; INT3
		NOP
hintp:  RETE
		NOP
		NOP
		NOP
rint1:	RETE
		NOP
        NOP
		NOP
xint1:  RETE
		NOP
		NOP
		NOP		
		.space 4*16
.end