summaryrefslogtreecommitdiff
path: root/system/alpha/palcode
diff options
context:
space:
mode:
Diffstat (limited to 'system/alpha/palcode')
-rw-r--r--system/alpha/palcode/platform_m5.s33
-rw-r--r--system/alpha/palcode/platform_srcmax.s1894
2 files changed, 17 insertions, 1910 deletions
diff --git a/system/alpha/palcode/platform_m5.s b/system/alpha/palcode/platform_m5.s
index acf02e69e..818cdb53c 100644
--- a/system/alpha/palcode/platform_m5.s
+++ b/system/alpha/palcode/platform_m5.s
@@ -743,19 +743,19 @@ EXPORT(sys_interrupt)
//-
ALIGN_BRANCH
sys_int_23:
- or r31,0,r16 // IPI interrupt A0 = 0
+ or r31,0,r16 // IPI interrupt A0 = 0
lda r12,0xf01(r31) // build up an address for the MISC register
sll r12,16,r12
lda r12,0xa000(r12)
sll r12,16,r12
lda r12,0x080(r12)
- ldq_p r10,0(r12) // read misc register
- and r10,0x3,r10 // isolate CPUID
+ mfpr r10, pt_whami // get CPU ID
+ extbl r10, 1, r10 // Isolate just whami bits
or r31,0x1,r14 // load r14 with bit to clear
- sll r14,r10,r14 // left shift by CPU ID
+ sll r14,r10,r14 // left shift by CPU ID
sll r14,8,r14
- stq_p r14, 0(r12) // clear the rtc interrupt
+ stq_p r14, 0(r12) // clear the rtc interrupt
br r31, pal_post_interrupt // Notify the OS
@@ -763,17 +763,17 @@ sys_int_23:
ALIGN_BRANCH
sys_int_22:
or r31,1,r16 // a0 means it is a clock interrupt
- lda r12,0xf01(r31) // build up an address for the MISC register
+ lda r12,0xf01(r31) // build up an address for the MISC register
sll r12,16,r12
lda r12,0xa000(r12)
sll r12,16,r12
lda r12,0x080(r12)
- ldq_p r10,0(r12) // read misc register
- and r10,0x3,r10 // isolate CPUID
- or r31,0x10,r14 // load r14 with bit to clear
- sll r14,r10,r14 // left shift by CPU ID
- stq_p r14, 0(r12) // clear the rtc interrupt
+ mfpr r10, pt_whami // get CPU ID
+ extbl r10, 1, r10 // Isolate just whami bits
+ or r31,0x10,r14 // load r14 with bit to clear
+ sll r14,r10,r14 // left shift by CPU ID
+ stq_p r14, 0(r12) // clear the rtc interrupt
br r31, pal_post_interrupt // Tell the OS
@@ -816,19 +816,20 @@ sys_int_21:
sll r13,8,r13
bis r12,r13,r12
lda r12,0x0080(r12)
- ldqp r13, 0(r12) // read the MISC register for CPUID
+ mfpr r13, pt_whami // get CPU ID
+ extbl r13, 1, r10 // Isolate just whami bits
- and r13,0x1,r14 // grab LSB and shift left 6
+ and r13,0x1,r14 // grab LSB and shift left 6
sll r14,6,r14
- and r13,0x2,r10 // grabl LSB+1 and shift left 9
+ and r13,0x2,r10 // grabl LSB+1 and shift left 9
sll r10,9,r10
- mskbl r12,0,r12 // calculate DIRn address
+ mskbl r12,0,r12 // calculate DIRn address
lda r13,0x280(r31)
bis r12,r13,r12
or r12,r14,r12
or r12,r10,r12
- ldqp r13, 0(r12) // read DIRn
+ ldqp r13, 0(r12) // read DIRn
or r31,1,r14 // set bit 55 (ISA Interrupt)
sll r14,55,r14
diff --git a/system/alpha/palcode/platform_srcmax.s b/system/alpha/palcode/platform_srcmax.s
deleted file mode 100644
index 3e3a7c16b..000000000
--- a/system/alpha/palcode/platform_srcmax.s
+++ /dev/null
@@ -1,1894 +0,0 @@
-// build_fixed_image: not sure what means
-// real_mm to be replaced during rewrite
-// remove_save_state remove_restore_state can be remooved to save space ??
-#define egore 0
-#define acore 0
-#define beh_model 0
-#define ev5_p2 1
-#define ev5_p1 0
-#define ldvpte_bug_fix 1
-#define spe_fix 0
-#define osf_chm_fix 0
-#define build_fixed_image 0
-#define enable_p4_fixups 0
-#define osf_svmin 1
-#define enable_physical_console 0
-#define fill_err_hack 0
-#define icflush_on_tbix 0
-#define max_cpuid 1
-#define perfmon_debug 0
-#define rax_mode 0
-
-#define hw_rei_spe hw_rei
-
-#include "ev5_defs.h"
-#include "ev5_impure.h"
-#include "ev5_alpha_defs.h"
-#include "ev5_paldef.h"
-#include "ev5_osfalpha_defs.h"
-#include "fromHudsonMacros.h"
-#include "fromHudsonOsf.h"
-#include "dc21164FromGasSources.h"
-#include "cserve.h"
-
-#define ldlp ldl_p
-#define ldqp ldq_p
-#define stqp stq_p
-#define stqpc stqp
-
-#define pt_entInt pt_entint
-#define pt_entArith pt_entarith
-#define mchk_size ((mchk_cpu_base + 7 + 8) &0xfff8)
-#define mchk_flag CNS_Q_FLAG
-#define mchk_sys_base 56
-#define mchk_cpu_base (CNS_Q_LD_LOCK + 8)
-#define mchk_offsets CNS_Q_EXC_ADDR
-#define mchk_mchk_code 8
-#define mchk_ic_perr_stat CNS_Q_ICPERR_STAT
-#define mchk_dc_perr_stat CNS_Q_DCPERR_STAT
-#define mchk_sc_addr CNS_Q_SC_ADDR
-#define mchk_sc_stat CNS_Q_SC_STAT
-#define mchk_ei_addr CNS_Q_EI_ADDR
-#define mchk_bc_tag_addr CNS_Q_BC_TAG_ADDR
-#define mchk_fill_syn CNS_Q_FILL_SYN
-#define mchk_ei_stat CNS_Q_EI_STAT
-#define mchk_exc_addr CNS_Q_EXC_ADDR
-#define mchk_ld_lock CNS_Q_LD_LOCK
-#define osfpcb_q_Ksp pcb_q_ksp
-#define pal_impure_common_size ((0x200 + 7) & 0xfff8)
-
-#define RTCADD 0x160000
-#define RTCDAT 0x170000
-
-/* Serial Port (COM) Definitions: */
-#define DLA_K_BRG 12 /* Baud Rate Divisor = 9600 */
-
-#define LSR_V_THRE 5 /* Xmit Holding Register Empty Bit */
-
-#define LCR_M_WLS 3 /* Word Length Select Mask */
-#define LCR_M_STB 4 /* Number Of Stop Bits Mask */
-#define LCR_M_PEN 8 /* Parity Enable Mask */
-#define LCR_M_DLAB 128 /* Divisor Latch Access Bit Mask */
-
-#define LCR_K_INIT (LCR_M_WLS | LCR_M_STB)
-
-#define MCR_M_DTR 1 /* Data Terminal Ready Mask */
-#define MCR_M_RTS 2 /* Request To Send Mask */
-#define MCR_M_OUT1 4 /* Output 1 Control Mask */
-#define MCR_M_OUT2 8 /* UART Interrupt Mask Enable */
-
-#define MCR_K_INIT (MCR_M_DTR | \
- MCR_M_RTS | \
- MCR_M_OUT1 | \
- MCR_M_OUT2)
-#define SLOT_D_COM1 (0x140000)
-#define COM1_RBR (SLOT_D_COM1 | (0x0 << 1)) /* Receive Buffer Register Offset */
-#define COM1_THR (SLOT_D_COM1 | (0x0 << 1)) /* Xmit Holding Register Offset */
-#define COM1_IER (SLOT_D_COM1 | (0x1 << 1)) /* Interrupt Enable Register Offset
-*/
-#define COM1_IIR (SLOT_D_COM1 | (0x2 << 1)) /* Interrupt ID Register Offset */
-#define COM1_LCR (SLOT_D_COM1 | (0x3 << 1)) /* Line Control Register Offset */
-#define COM1_MCR (SLOT_D_COM1 | (0x4 << 1)) /* Modem Control Register Offset */
-#define COM1_LSR (SLOT_D_COM1 | (0x5 << 1)) /* Line Status Register Offset */
-#define COM1_MSR (SLOT_D_COM1 | (0x6 << 1)) /* Modem Status Register Offset */
-#define COM1_SCR (SLOT_D_COM1 | (0x7 << 1)) /* Scratch Register Offset */
-#define COM1_DLL (SLOT_D_COM1 | (0x8 << 1)) /* Divisor Latch (LS) Offset */
-#define COM1_DLH (SLOT_D_COM1 | (0x9 << 1)) /* Divisor Latch (MS) Offset */
-
-
-#define BYTE_ENABLE_SHIFT 5
-#define PCI_MEM 0x400
-
-#ifdef SIMOS
-#define OutPortByte(port,val,a,b)
-#define InPortByte(port,val,a)
-#else
-
-#define OutPortByte(port,val,tmp0,tmp1) \
- LDLI (tmp0, port); \
- sll tmp0, BYTE_ENABLE_SHIFT, tmp0; \
- lda tmp1, PCI_MEM(zero); \
- sll tmp1, 29, tmp1; \
- bis tmp0, tmp1, tmp0; \
- lda tmp1, (val)(zero); \
- sll tmp1, 8*(port & 3), tmp1; \
- stl_p tmp1, 0x00(tmp0); \
- mb
-
-#define InPortByte(port,tmp0,tmp1) \
- LDLI (tmp0, port); \
- sll tmp0, BYTE_ENABLE_SHIFT, tmp0; \
- lda tmp1, PCI_MEM(zero); \
- sll tmp1, 29, tmp1; \
- bis tmp0, tmp1, tmp0; \
- ldl_p tmp0, 0x00(tmp0); \
- srl tmp0, (8 * (port & 3)), tmp0; \
- zap tmp0, 0xfe, tmp0
-#endif
-
-#define r0 $0
-#define r1 $1
-#define r2 $2
-#define r3 $3
-#define r4 $4
-#define r5 $5
-#define r6 $6
-#define r7 $7
-#define r8 $8
-#define r9 $9
-#define r10 $10
-#define r11 $11
-#define r12 $12
-#define r13 $13
-#define r14 $14
-#define r15 $15
-#define r16 $16
-#define r17 $17
-#define r18 $18
-#define r19 $19
-#define r20 $20
-#define r21 $21
-#define r22 $22
-#define r23 $23
-#define r24 $24
-#define r25 $25
-#define r26 $26
-#define r27 $27
-#define r28 $28
-#define r29 $29
-#define r30 $30
-#define r31 $31
-
-#ifdef SIMOS
-#define DEBUGSTORE(c)
-#define DEBUG_EXC_ADDR()
-#else
-#define DEBUGSTORE(c) \
- lda r13, c(zero) ; \
- bsr r25, debugstore
-
-#define DEBUG_EXC_ADDR() \
- bsr r25, put_exc_addr; \
- DEBUGSTORE(13) ; \
- DEBUGSTORE(10)
-
-#endif /* SIMOS */
-
-#define ALIGN_BLOCK \
- .align 5
-
-#define ALIGN_BRANCH \
- .align 3
-
-// This module is for all the OSF system specific code.
-// This version is for the EV5 behavioral model.
-// .sbttl "Edit History"
-//+
-// Who Rev When What
-// ------------ --- ----------- --------------------------------
-//
-// [ deleted several pages of checking comments to make the file smaller - lance ]
-//
-// PALcode merge done here .... JRH ....8/30/94
-// JM 1.00 1-aug-1994 Add support for pass2 to sys_perfmon code
-// JM 1.01 2-aug-1994 Initialize cns_bc_config in reset
-// JM 1.02 5-aug-1994 Add ARITH_AND_MCHK routine.
-// Fix typo in bc_config init in rax reset flow.
-// JM 1.03 19-aug-1994 BUG: sys_perfmon not generating mux control mask properly, overwriting counters 0 & 1;
-// mode select masks messed up too.
-//
-// JH 1.03A 26-Oct-1994 Log PCI error2 register ...needed for CIA Pass 2 support
-//
-// JM 1.04 16-sep-1994 Moved perfmon code to ev5_osf_pal.m64
-// JM 1.05 9-jan-1995 Fix to EI_STAT entry in MCHK logout frame -- OR in lower 28 bits (previously wiped out)
-// JM 1.06 2-feb-1995 Change "HW_REI" to "HW_REI_SPE" everywhere that we may be changing to kernel mode from user
-// (part of super-page bug fix).
-// Initialize DC_TEST_CTL in reset flow.
-//
-// PALcode merge done here .... TLC ....02/06/95
-//
-// JM 1.07 3-mar-1995 Add init of dc_test_ctl; fix pvc_jsr statement in ret from set_sc_bc_ctl
-// ES 1.08 17-mar-1995 Add osf_chm_fix to disable dcache in reset
-//
-// PALcode merge done here .... TLC ....03/21/95
-//
-//
-// Entry points
-// SYS_CFLUSH - Cache flush
-// SYS_CSERVE - Console service
-// SYS_WRIPIR - interprocessor interrupts
-// SYS_HALT_INTERRUPT - Halt interrupt
-// SYS_PASSIVE_RELEASE - Interrupt, passive release
-// SYS_INTERRUPT - Interrupt
-// SYS_RESET - Reset
-// SYS_ENTER_CONSOLE
-// SYS_PERFMON - Performance monitoring setup
-//
-//------------------------------------------------------------------------------
-//
-// EB164 specific library files ....
-//
-//------------------------------------------------------------------------------
-#if eb164 != 0
-
-
-// .sbttl "EB164 firmware required definition files"
-_pal_def // console definition file
-_cserve_def // cserve definition file
-
-#define hlt_c_callback 33
-
-//
-// rtc based constants
-//
-#define rtc_base 0xe00 // RTC device is at offset 70 << 5
-#define rtc_ptr 0x0 // RTC index register (offset 0 from rtc base)
-#define rtc_data 0x20 // RTC data register (offset 1 from rtc base)
-#define rtc_idx_csrc 0x0c // point to CSR C in the TOY chip
-
-//
-// interrupt vectors
-//
-#define vec_eisa_base 0x800 // base for pci vectors
-#endif
-
- ALIGN_BLOCK
- .globl sys_wripir
-sys_wripir: // R16 has the processor number.
- // The XXM has no interprocessor interrupts
- hw_rei
-
-// .sbttl "CFLUSH- PALcode for CFLUSH instruction"
-//+
-// SYS_CFLUSH
-// Entry:
-//
-// R16 - contains the PFN of the page to be flushed
-//
-// Function:
-// Flush all Dstream caches of 1 entire page
-//
-//-
- ALIGN_BLOCK
- .globl sys_cflush
-sys_cflush:
- // convert pfn to addr, and clean off <63:20>
- sll r16, ((page_offset_size_bits)+(63-20)), r12
-
- lda r13, 0x10(r31) // assume 16Mbytes of cache
- sll r13, 20, r13 // convert to bytes
-
- srl r12, 63-20, r12 // shift back to normal position
- xor r12, r13, r12 // xor addr bit that aligns with cache size
-
- or r31, 8192/(32*8), r13 // get count of loads
- nop
-
-CFLUSH_LOOP:
- subq r13, 1, r13 // decr counter
- mfpr r25, ev5__intid // Fetch level of interruptor
-
- ldqp r31, 32*0(r12) // do a load
- ldqp r31, 32*1(r12) // do next load
-
- ldqp r31, 32*2(r12) // do next load
- ldqp r31, 32*3(r12) // do next load
-
- ldqp r31, 32*4(r12) // do next load
- ldqp r31, 32*5(r12) // do next load
-
- ldqp r31, 32*6(r12) // do next load
- ldqp r31, 32*7(r12) // do next load
-
- mfpr r14, ev5__ipl // Fetch current level
- lda r12, (32*8)(r12) // skip to next cache block addr
-
- cmple r25, r14, r25 // R25 = 1 if intid .less than or eql ipl
- beq r25, CFLUSH_LOOP_10_ // if any int's pending, re-queue CFLUSH
-
- bne r13, CFLUSH_LOOP // loop till done
- hw_rei // back to user
-
- ALIGN_BRANCH
-CFLUSH_LOOP_10_: // Here if interrupted
- mfpr r12, exc_addr
- subq r12, 4, r12 // Backup PC to point to CFLUSH
-
- mtpr r12, exc_addr
- nop
-
- mfpr r31, pt0 // Pad exc_addr write
- hw_rei
-
-
-// .sbttl "CSERVE- PALcode for CSERVE instruction"
-//+
-// SYS_CSERVE
-//
-// Function:
-// Various functions for private use of console software
-//
-// option selector in r0
-// arguments in r16....
-//
-//
-// r0 = 0 unknown
-//
-// r0 = 1 ldqp
-// r0 = 2 stqp
-// args, are as for normal STQP/LDQP in VMS PAL
-//
-// r0 = 3 dump_tb's
-// r16 = detination PA to dump tb's to.
-//
-// r0<0> = 1, success
-// r0<0> = 0, failure, or option not supported
-// r0<63:1> = (generally 0, but may be function dependent)
-// r0 - load data on ldqp
-//
-//-
- ALIGN_BLOCK
- .globl sys_cserve
-sys_cserve:
- cmpeq r18, CSERVE_K_RD_IMPURE, r0
- bne r0, Sys_Cserve_Rd_Impure
-
- cmpeq r18, CSERVE_K_JTOPAL, r0
- bne r0, Sys_Cserve_Jtopal
-
- // For now the XXM doesn't support any console callbacks
- DEBUGSTORE(0x40)
- bis r18, zero, r0
- bsr r25, put_hex
- DEBUGSTORE(13)
- DEBUGSTORE(10)
- or r31, r31, r0
- hw_rei // and back we go
-
-Sys_Cserve_Rd_Impure:
- mfpr r0, pt_impure // Get base of impure scratch area.
- hw_rei
-
-// .sbttl "SYS_INTERRUPT - Interrupt processing code"
-//+
-// SYS_INTERRUPT
-//
-// Current state:
-// Stack is pushed
-// ps, sp and gp are updated
-// r12, r14 - available
-// r13 - INTID (new EV5 IPL)
-// r14 - exc_addr
-// r25 - ISR
-// r16, r17, r18 - available
-//
-//-
- ALIGN_BLOCK
- .globl sys_interrupt
-sys_interrupt:
- extbl r12, r14, r14 // Translate new OSFIPL->EV5IPL
- mfpr r29, pt_kgp // update gp
-
- mtpr r14, ev5__ipl // load the new IPL into Ibox
- cmpeq r13, 31, r12
- bne r12, sys_int_mchk_or_crd // Check for level 31 interrupt (machine check or crd)
-
- cmpeq r13, 30, r12
- bne r12, sys_int_powerfail // Check for level 30 interrupt (powerfail)
-
- cmpeq r13, 29, r12
- bne r12, sys_int_perf_cnt // Check for level 29 interrupt (performance counters)
-
- cmpeq r13, 23, r12
- bne r12, sys_int_23 // Check for level 23 interrupt
-
- cmpeq r13, 22, r12
- bne r12, sys_int_22 // Check for level 22 interrupt (clock)
-
- cmpeq r13, 21, r12
- bne r12, sys_int_21 // Check for level 21 interrupt
-
- cmpeq r13, 20, r12
- bne r12, sys_int_20 // Check for level 20 interrupt (I/O)
-
- mfpr r14, exc_addr // ooops, something is wrong
- br r31, pal_pal_bug_check_from_int
-
-//+
-//sys_int_2*
-// Routines to handle device interrupts at IPL 23-20.
-// System specific method to ack/clear the interrupt, detect passive release,
-// detect interprocessor (22), interval clock (22), corrected
-// system error (20)
-//
-// Current state:
-// Stack is pushed
-// ps, sp and gp are updated
-// r12, r14 - available
-// r13 - INTID (new EV5 IPL)
-// r25 - ISR
-//
-// On exit:
-// Interrupt has been ack'd/cleared
-// a0/r16 - signals IO device interrupt
-// a1/r17 - contains interrupt vector
-// exit to ent_int address
-//
-//-
- ALIGN_BLOCK
-sys_int_23:
-// INT23 is unused on the XXM
- nop
- DEBUGSTORE(0x21)
- DEBUGSTORE(0x32)
- DEBUGSTORE(0x33)
- DEBUGSTORE(13)
- DEBUGSTORE(10)
- lda r14, 0xffff(zero)
- br r31, sys_int_mchk // log as a machine check
-
-// INT22 is the Real Time Clock
-//
-// Dismiss the interrupt in the TOY
-// Dispatch to kernel
-//
- ALIGN_BLOCK
-sys_int_22:
- OutPortByte(RTCADD,0x0C,r12,r14)// Set up RTCADD to index register C.
- InPortByte(RTCDAT,r12,r14) // Read to clear interrupt.
- mfpr r12, pt_entInt
- lda r17, 0x600(r31) // r17 = interrupt vector for interval timer
- mtpr r12, exc_addr
-// DEBUGSTORE(0x2a)
-// DEBUG_EXC_ADDR()
- lda r16, 0x1(r31) // r16 = interrupt type for interval timer
- STALL
- hw_rei
-
- ALIGN_BLOCK
-sys_int_21:
- // Not connected on the XXM
- nop
- DEBUGSTORE(0x21)
- DEBUGSTORE(0x32)
- DEBUGSTORE(0x31)
- DEBUGSTORE(13)
- DEBUGSTORE(10)
- lda r14, 0xffff(zero)
- br r31, sys_int_mchk // go log the interrupt as a machine check
-
-// INT20 are device interrupts
-// Dispatch to kernel
-//
- ALIGN_BLOCK
-sys_int_20:
- mfpr r12, pt_entInt // Get pointer to kernel handler.
- lda r17, 0x800(zero) // Hardcode device interrupt for now
- mtpr r12, exc_addr // Load kernel entry address
- bis zero, 0x3, r16 // Signal I/O device interrupt
- STALL
- hw_rei
-
-
-//+
-// sys_passive_release
-// Just pretend the interrupt never occurred.
-//
-// make sure we restore the old PS before calling this ....
-//-
- ALIGN_BRANCH
- .globl sys_passive_release
-sys_passive_release:
- mtpr r11, ev5__dtb_cm // Restore Mbox current mode for ps
- nop
-
- mfpr r31, pt0 // Pad write to dtb_cm
-
- hw_rei_spe
-
-//+
-//sys_int_powerfail
-// The XXM doesn't generate these, right?
-
- ALIGN_BLOCK
-sys_int_powerfail:
- nop
- lda r14, 0xffff(zero)
- br r31, sys_int_mchk // go log the interrupt as a machine check
-
-//+
-// sys_halt_interrupt
-// A halt interrupt has been detected. Pass control to the console.
-//
-//
-//-
- ALIGN_BLOCK
- .globl sys_halt_interrupt
-sys_halt_interrupt:
- // wait for halt to go away
-SYS_HALT_PIN: // REPEAT
- mfpr r25, ev5__isr // : Fetch interrupt summary register
- srl r25, isr_v_hlt, r25 // : Get HLT bit
- blbs r25, SYS_HALT_PIN // UNTIL interrupt goes away
- LDLI (r25, 25000000) // Loop 100msec on an XXM
-SYS_HALT_KEY_DEBOUNCE:
- subq r25, 1, r25
- bne r25, SYS_HALT_KEY_DEBOUNCE
- mfpr r25, ev5__isr
- srl r25, isr_v_hlt, r25
- blbs r25, SYS_HALT_PIN
-
- mtpr r11, dtb_cm // Restore Mbox current mode
- mtpr r0, pt0
-// pvc_jsr updpcb, bsr=1
-// bsr r0, pal_update_pcb // update the pcb
-
-// lda r0, hlt_c_hw_halt(r31) // set halt code to hw halt
- br r31, sys_enter_console // enter the console
-
-
-//+
-// sys_int_mchk_or_crd
-//
-// Current state:
-// Stack is pushed
-// ps, sp and gp are updated
-// r12
-// r13 - INTID (new EV5 IPL)
-// r14 - exc_addr
-// r25 - ISR
-// r16, r17, r18 - available
-//
-//-
- ALIGN_BLOCK
-
-sys_int_mchk_or_crd:
- srl r25, isr_v_mck, r12
- lda r14, 7(zero)
- blbs r12, sys_int_mchk
- bsr r12, sys_int_mchk // on the XXM it's always a mchk
-
-
-
-// .sbttl "SYS_INT_MCHK - MCHK Interrupt code"
-//+
-// Machine check interrupt from the system. Setup and join the
-// regular machine check flow.
-// On exit:
-// pt0 - saved r0
-// pt1 - saved r1
-// pt4 - saved r4
-// pt5 - saved r5
-// pt6 - saved r6
-// pt10 - saved exc_addr
-// pt_misc<47:32> - mchk code
-// pt_misc<31:16> - scb vector
-// r14 - base of Cbox IPRs in IO space
-// MCES<mchk> is set
-//-
- ALIGN_BLOCK
-sys_int_mchk:
-//
-// Common code to setup machine so we can join with
-// the code to log processor detected machine checks
-//
-// Input Registers:
-//
-// r14 - machine check code
-//
- mfpr r12, exc_addr
-
- mtpr r6, pt6
- mtpr r12, pt10 // Stash exc_addr
-
- bis r14, r31, r6 // save machine check code
- sll r14, 32, r14 // Move mchk code to position
-
- mfpr r12, pt_misc // Get MCES and scratch
- mtpr r0, pt0 // Stash for scratch
-
- zap r12, 0x3c, r12 // Clear scratch
- blbs r12, sys_double_machine_check // MCHK halt if double machine check
-
- or r12, r14, r12 // Combine mchk code
- lda r14, scb_v_sysmchk(r31) // Get SCB vector
-
- sll r14, 16, r14 // Move SCBv to position
- or r12, r14, r14 // Combine SCBv
-
- bis r14, 1<<mces_v_mchk, r14 // Set MCES<MCHK> bit
- mtpr r14, pt_misc // Save mchk code!scbv!whami!mces
-
- ldah r14, 0xfff0(r31)
- mtpr r1, pt1 // Stash for scratch
-
- zap r14, 0xE0, r14 // Get Cbox IPR base
- mtpr r4, pt4
-
- mtpr r5, pt5
-
- // Start to collect the IPRs. Common entry point for mchk flows.
- //
- // Current state:
- // pt0 - saved r0
- // pt1 - saved r1
- // pt4 - saved r4
- // pt5 - saved r5
- // pt6 - saved r6
- // pt10 - saved exc_addr
- // pt_misc<47:32> - mchk code
- // pt_misc<31:16> - scb vector
- // r6 - saved machine check code
- // r0, r1, r4, r5, r12, r13, r25 - available
- // r8, r9, r10 - available as all loads are physical
- // MCES<mchk> is set and machine check code is saved
-
- ldah r14, 0xfff0(r31)
- mtpr r1, pt1 // Stash for scratch - 30 instructions
-
- zap r14, 0xE0, r14 // Get Cbox IPR base
-
- mb // MB before reading Scache IPRs
- mfpr r1, icperr_stat
-
- mfpr r8, dcperr_stat
- mtpr r31, dc_flush // Flush the Dcache
-
- mfpr r31, pt0 // Pad Mbox instructions from dc_flush
- mfpr r31, pt0
- nop
- nop
-
- ldqp r9, sc_addr(r14)// SC_ADDR IPR
- bis r9, r31, r31 // Touch ld to make sure it completes before
- // read of SC_STAT
- ldqp r10, sc_stat(r14) // SC_STAT, also unlocks SC_ADDR
-
- ldqp r12, ei_addr(r14)// EI_ADDR IPR
- ldqp r13, bc_tag_addr(r14) // BC_TAG_ADDR IPR
- ldqp r0, fill_syn(r14) // FILL_SYN IPR
- // Touch lds to make sure they complete before reading EI_STAT
- bis r12, r13, r31
- bis r0, r0, r31
- ldqp r25, ei_stat(r14) // EI_STAT, unlock EI_ADDR, BC_TAG_ADDR, FILL_SYN
- ldqp r31, ei_stat(r14) // Read again to insure it is unlocked
- br r31, sys_mchk_write_logout_frame // Join common machine check flow
-
-
-// .sbttl "SYS_INT_PERF_CNT - Performance counter interrupt code"
-//+
-//sys_int_perf_cnt
-//
-// A performance counter interrupt has been detected. The stack has been pushed.
-// IPL and PS are updated as well.
-//
-// on exit to interrupt entry point ENTINT::
-// a0 = osfint_c_perf
-// a1 = scb_v_perfmon (650)
-// a2 = 0 if performance counter 0 fired
-// a2 = 1 if performance counter 1 fired
-// a2 = 2 if performance counter 2 fired
-// (if more than one counter overflowed, an interrupt will be
-// generated for each counter that overflows)
-//
-//
-//-
- ALIGN_BLOCK
-sys_int_perf_cnt: // Performance counter interrupt
- lda r17, scb_v_perfmon(r31) // a1 to interrupt vector
- mfpr r25, pt_entInt
-
- lda r16, osfint_c_perf(r31) // a0 to perf counter code
- mtpr r25, exc_addr
-
- //isolate which perf ctr fired, load code in a2, and ack
- mfpr r25, isr
- or r31, r31, r18 // assume interrupt was pc0
-
- srl r25, isr_v_pc1, r25 // isolate
- cmovlbs r25, 1, r18 // if pc1 set, load 1 into r14
-
- srl r25, 1, r25 // get pc2
- cmovlbs r25, 2, r18 // if pc2 set, load 2 into r14
-
- lda r25, 1(r31) // get a one
- sll r25, r18, r25
-
- sll r25, hwint_clr_v_pc0c, r25 // ack only the perf counter that generated the interrupt
- mtpr r25, hwint_clr
-
- hw_rei_spe
-
-
-
-// .sbttl "System specific RESET code"
-//+
-// RESET code
-// On entry:
-// r1 = pal_base +8
-//
-// Entry state on trap:
-// r0 = whami
-// r2 = base of scratch area
-// r3 = halt code
-// and the following 3 if init_cbox is enabled:
-// r5 = sc_ctl
-// r6 = bc_ctl
-// r7 = bc_cnfg
-//
-// Entry state on switch:
-// r17 - new PC
-// r18 - new PCBB
-// r19 - new VPTB
-//
-//-
- ALIGN_BLOCK
- .globl sys_reset
-sys_reset:
- bis r1, r31, r22
- bis r2, r31, r23
- bis r3, r31, r24
-
- lda r0, 0(zero) // The XXM has only one CPU
- lda r2, 0x2000(zero) // KLUDGE the impure area address
- lda r3, 0(zero) // Machine restart
- mtpr r31, pt_misc // Zero out whami & swppal flag
- mtpr r31, pt0 // halt code of "reset"
- mtpr r31, pt1 // whami is always 0 on XXM
-
-/* Check to see if the transfer from the POST (Power-on-Self Test) code
-** is following a standard protocol and that the other input parameter
-** values may be trusted. Register a3 (r19) will contain a signature if so.
-**
-** Register values:
-**
-** t0 (r1) bcCtl value, saved into pt4
-** t1 (r2) bcCfg value
-** t2 (r3) bcCfgOff value (values for bcache off)
-**
-** s6 (r15) encoded srom.s RCS revision
-** a0 (r16) processor identification (a la SRM)
-** a1 (r17) size of contiguous, good memory in bytes
-** a2 (r18) cycle count in picoseconds
-** a3 (r19) signature (0xDECB) in <31:16> and system revision ID in <15:0>
-** a4 (r20) active processor mask
-** a5 (r21) system context value
-*/
- lda r4, CNS_Q_IPR(r2) // Point to base of IPR area.
- lda r4, pal_impure_common_size(r4) // Bias by PAL common size
- SAVE_SHADOW(r22,CNS_Q_BC_CTL,r4) // Save shadow of bcCtl.
- SAVE_SHADOW(r23,CNS_Q_BC_CFG,r4) // Save shadow of bcCfg.
-#ifdef undef
- SAVE_SHADOW(r24,CNS_Q_BC_CFG_OFF,r4) // Save shadow of bcCfg.
-#endif
- SAVE_SHADOW(r15,CNS_Q_SROM_REV,r4) // Save srom revision.
- SAVE_SHADOW(r16,CNS_Q_PROC_ID,r4) // Save processor id.
- SAVE_SHADOW(r17,CNS_Q_MEM_SIZE,r4) // Save memory size.
- SAVE_SHADOW(r18,CNS_Q_CYCLE_CNT,r4) // Save cycle count.
- SAVE_SHADOW(r19,CNS_Q_SIGNATURE,r4) // Save signature and sys rev.
- SAVE_SHADOW(r20,CNS_Q_PROC_MASK,r4) // Save processor mask.
- SAVE_SHADOW(r21,CNS_Q_SYSCTX,r4) // Save system context.
-
-//;;;;;; mtpr r31, ic_flush_ctl; do not flush the icache - done by hardware before SROM load
-
-/*
- * Initialize the serial ports
- *
- * Baud rate: 9600 baud
- * Word length: 8 bit characters
- * Stop bits: 1 stop bit
- * Parity: No parity
- * Modem control: DTR, RTS active, OUT1 lov, UART interrupts enabled
- */
-
-/* Initialize COM1*/
- OutPortByte(COM1_LCR,LCR_M_DLAB,r12,r14)// Access clock divisor latch.
- OutPortByte(COM1_DLL,DLA_K_BRG,r12,r14) // Set the baud rate.
- OutPortByte(COM1_DLH,0,r12,r14)
- OutPortByte(COM1_LCR,LCR_K_INIT,r12,r14)// Set line control register.
- OutPortByte(COM1_MCR,MCR_K_INIT,r12,r14)// Set modem control register.
- OutPortByte(COM1_IER,0x0f,r12,r14) // Turn on interrupts.
-
-/* Flush COM1's receive buffer*/
-#ifndef SIMOS
-Sys_ResetFlushCom1:
- InPortByte(COM1_LSR,r12,r14) // Read the line status.
- blbc t0, Sys_ResetCom1Done // Are we done yet?
- InPortByte(COM1_RBR,r12,r14) // Read receive buffer reg.
- br zero, Sys_ResetFlushCom1 // Loop till done.
-
-Sys_ResetCom1Done:
-#endif
- mb
-
- mtpr r31, itb_ia // clear the ITB
- mtpr r31, dtb_ia // clear the DTB
-
-//;;;;;; lda r1, 0x1FFF(R31)
-//;;;;;; mtpr r1, dc_test_ctl ; initialize tag index to all 1's.
-
- /* Hardwire the base address of the PALcode */
- lda r1, 0x4000(r31) // point to start of code
- mtpr r1, pal_base // initialize PAL_BASE
-
- // Interrupts
- mtpr r31, astrr // stop ASTs
- mtpr r31, aster // stop ASTs
- mtpr r31, sirr // clear software interrupts
-
- // enable shadow registers, floating point, kseg addressing
- ldah r1, ((1<<(icsr_v_sde-16)) | (1<<(icsr_v_fpe-16)) | (2<<(icsr_v_spe-16)))(r31)
- mtpr r1, icsr
-
- // Mbox/Dcache init
- lda r1, (1<<(mcsr_v_sp1))(r31)
- mtpr r1, mcsr // MCSR - Super page enabled
- lda r1, 1<<dc_mode_v_dc_ena(r31)
- bsr r31, 1f
-
- ALIGN_BRANCH
-1: mtpr r1, dc_mode // turn Dcache on
- nop
- STALL // No Mbox instr in 1,2,3,4
- STALL
- STALL
- STALL
- mtpr r31, dc_flush // flush Dcache
-
- // build PS (IPL=7,CM=K,VMM=0,SW=0)
- lda r11, 0x7(r31) // Shadow copy of PS - kern mode, IPL=7
- lda r1, 0x1e(r31)
-
- mtpr r1, ev5__ipl // set internal <ipl>
- mtpr r31, ips // set new ps<cm>=0, Ibox copy
- mtpr r31, dtb_cm // set new ps<cm>=0, Mbox copy
-
- // Create the PALtemp pt_intmask -
- // MAP:
- // OSF IPL EV5 internal IPL(hex) note
- // 0 0
- // 1 1
- // 2 2
- // 3 14 device
- // 4 15 device
- // 5 16 device
- // 6 1e device
- // 7 1e make sure we can take mchks at ipl 31
-
- ldah r1, 0x1e1e(r31) // Create upper lw of int_mask
- lda r1, 0x1615(r1)
-
- sll r1, 32, r1
- ldah r1, 0x1402(r1) // Create lower lw of int_mask
-
- lda r1, 0x0100(r1)
- mtpr r1, pt_intmask // Stash in PALtemp
-
- // Unlock a bunch of chip internal IPRs
- mtpr r31, exc_sum // clear exeception summary and exc_mask
- mfpr r31, va // unlock va, mmstat
- lda r8, ((1<<icperr_stat_v_dpe) | (1<<icperr_stat_v_tpe) | (1<<icperr_stat_v_tmr))(r31)
- mtpr r8, icperr_stat // Clear Icache parity error & timeout
- lda r8, ((1<<dcperr_stat_v_lock) | (1<<dcperr_stat_v_seo))(r31)
- mtpr r8, dcperr_stat // Clear Dcache parity error status
-
- rc r0 // clear intr_flag
- mtpr r31, pt_trap
-
- mfpr r0, pt_misc
- srl r0, pt_misc_v_switch, r1
- blbs r1, sys_reset_switch // see if we got here from swppal
-
- // Rest of the "real" reset flow
- // ASN
- mtpr r31, dtb_asn
- mtpr r31, itb_asn
-
- lda r1, 0x1FFF(r31)
- mtpr r1, dc_test_ctl // initialize tag index to all 1's.
-
- lda r1, 0x67(r31)
- sll r1, hwint_clr_v_pc0c, r1
- mtpr r1, hwint_clr // Clear hardware interrupt requests
-
- lda r1, 1<<mces_v_dpc(r31) // 1 in disable processor correctable error
- mfpr r0, pt1 // get whami
- insbl r0, 1, r0 // isolate whami in correct pt_misc position
- or r0, r1, r1 // combine whami and mces
- mtpr r1, pt_misc // store whami and mces, swap bit clear
-
- // CPU specific impure pointer
- extbl r0, 1, r0 //get whami again
-#if eb164 != 0
-// compile error .....
-//
-// mulq r0, ((pal_impure_specific_size+mchk_size+mchk_crd_size)/8), r0 ; whami * per_node size/8
- lda r1, ((pal_impure_specific_size+mchk_size+mchk_crd_size)/8)(r31)
- mulq r0, r1, r0 //
-#endif
-
- addq r0, pal_impure_common_size/8, r0// add common area
- sll r0, 3, r0 // * 8
- addq r2, r0, r2 // addr our impure area offset
- mtpr r2, pt_impure
-
- zapnot r3, 1, r0 // isolate halt code
- mtpr r0, pt0 // save entry type
-
- // Cycle counter
- or r31, 1, r9 // get a one
- sll r9, 32, r9 // shift to <32>
- mtpr r31, cc // clear Cycle Counter
- mtpr r9, cc_ctl // clear and enable the Cycle Counter
- mtpr r31, pt_scc // clear System Cycle Counter
-
-
- // Misc PALtemps
- mtpr r31, maf_mode // no mbox instructions for 3 cycles
- or r31, 1, r1 // get bogus scbb value
- mtpr r1, pt_scbb // load scbb
- mtpr r31, pt_prbr // clear out prbr
- mfpr r1, pal_base
- lda r1, (kludge_initial_pcbb-0x4000)(r1) // get address for temp pcbb
-
- mtpr r1, pt_pcbb // load pcbb
- lda r1, 2(r31) // get a two
- sll r1, 32, r1 // gen up upper bits
- mtpr r1, mvptbr
- mtpr r1, ivptbr
- mtpr r31, pt_ptbr
- // Performance counters
- mtpr r31, pmctr
-
- // Clear pmctr_ctl in impure area
- mfpr r1, pt_impure
- stqp r31, CNS_Q_PM_CTL(r1)
-
- ldah r14, 0xfff0(r31)
- zap r14, 0xE0, r14 // Get Cbox IPR base
-
-#ifndef SIMOS
- ldqp r31, sc_stat(r14) // Clear sc_stat and sc_addr
- ldqp r31, ei_stat(r14)
- ldqp r31, ei_stat(r14) // Clear ei_stat, ei_addr, bc_tag_addr, fill_syn
-#endif
- mfpr r13, pt_impure
- stqpc r31, 0(r13) // Clear lock_flag
-
- lda r0, 0(zero)
- mfpr r1, pt_impure
- bsr r3, pal_save_state
-
- mfpr r0, pt0 // get entry type
- br r31, sys_enter_console // enter the cosole
-
-
- // swppal entry
- // r0 - pt_misc
- // r17 - new PC
- // r18 - new PCBB
- // r19 - new VPTB
-sys_reset_switch:
- or r31, 1, r9
- sll r9, pt_misc_v_switch, r9
- bic r0, r9, r0 // clear switch bit
- mtpr r0, pt_misc
-
- rpcc r1 // get cyccounter
-
- ldqp r22, osfpcb_q_fen(r18) // get new fen/pme
- ldlp r23, osfpcb_l_cc(r18) // get cycle counter
- ldlp r24, osfpcb_l_asn(r18) // get new asn
-
- ldqp r25, osfpcb_q_Mmptr(r18)// get new mmptr
- sll r25, page_offset_size_bits, r25 // convert pfn to pa
- mtpr r25, pt_ptbr // load the new mmptr
- mtpr r18, pt_pcbb // set new pcbb
-
- bic r17, 3, r17 // clean use pc
- mtpr r17, exc_addr // set new pc
- mtpr r19, mvptbr
- mtpr r19, ivptbr
-
- ldqp r30, osfpcb_q_Usp(r18) // get new usp
- mtpr r30, pt_usp // save usp
-
- sll r24, dtb_asn_v_asn, r8
- mtpr r8, dtb_asn
- sll r24, itb_asn_v_asn, r24
- mtpr r24, itb_asn
-
- mfpr r25, icsr // get current icsr
- lda r24, 1(r31)
- sll r24, icsr_v_fpe, r24 // 1 in icsr<fpe> position
- bic r25, r24, r25 // clean out old fpe
- and r22, 1, r22 // isolate new fen bit
- sll r22, icsr_v_fpe, r22
- or r22, r25, r25 // or in new fpe
- mtpr r25, icsr // update ibox ipr
-
- subl r23, r1, r1 // gen new cc offset
- insll r1, 4, r1 // << 32
- mtpr r1, cc // set new offset
-
- or r31, r31, r0 // set success
- ldqp r30, osfpcb_q_Ksp(r18) // get new ksp
- mfpr r31, pt0 // stall
- hw_rei_stall
-
-// .sbttl "SYS_MACHINE_CHECK - Machine check PAL"
- ALIGN_BLOCK
-//+
-//sys_machine_check
-// A machine_check trap has occurred. The Icache has been flushed.
-//
-//-
- .globl sys_machine_check
-sys_machine_check:
- DEBUGSTORE(052)
- DEBUGSTORE(052)
- DEBUGSTORE(052)
- // Need to fill up the refill buffer (32 instructions) and
- // then flush the Icache again.
- // Also, due to possible 2nd Cbox register file write for
- // uncorrectable errors, no register file read or write for 7 cycles.
-
- nop
- mtpr r0, pt0 // Stash for scratch -- OK if Cbox overwrites r0 later
-
- nop
- nop
-
- nop
- nop
-
- nop
- nop
-
- nop
- nop
- // 10 instructions; 5 cycles
-
- nop
- nop
-
- nop
- nop
-
- // Register file can now be written
- lda r0, scb_v_procmchk(r31) // SCB vector
- mfpr r13, pt_mces // Get MCES
- sll r0, 16, r0 // Move SCBv to correct position
- bis r13, 1<<mces_v_mchk, r14 // Set MCES<MCHK> bit
-
- zap r14, 0x3C, r14 // Clear mchk_code word and SCBv word
- mtpr r14, pt_mces // 20 instructions
-
- nop
- or r14, r0, r14 // Insert new SCB vector
- lda r0, mchk_c_proc_hrd_error(r31) // MCHK code
- mfpr r12, exc_addr
-
- sll r0, 32, r0 // Move MCHK code to correct position
- mtpr r4, pt4
- or r14, r0, r14 // Insert new MCHK code
- mtpr r14, pt_misc // Store updated MCES, MCHK code, and SCBv
-
- ldah r14, 0xfff0(r31)
- mtpr r1, pt1 // Stash for scratch - 30 instructions
-
- zap r14, 0xE0, r14 // Get Cbox IPR base
- mtpr r12, pt10 // Stash exc_addr
-
- mtpr r31, ic_flush_ctl // Second Icache flush, now it is really flushed.
-// blbs r13, sys_double_machine_check ; MCHK halt if double machine check
- blbs r12, sys_machine_check_while_in_pal // MCHK halt if machine check in pal
-
- mtpr r6, pt6
- mtpr r5, pt5
-
-
- //+
- // Start to collect the IPRs. Common entry point for mchk flows.
- //
- // Current state:
- // pt0 - saved r0
- // pt1 - saved r1
- // pt4 - saved r4
- // pt5 - saved r5
- // pt6 - saved r6
- // pt10 - saved exc_addr
- // pt_misc<47:32> - mchk code
- // pt_misc<31:16> - scb vector
- // r14 - base of Cbox IPRs in IO space
- // r0, r1, r4, r5, r6, r12, r13, r25 - available
- // r8, r9, r10 - available as all loads are physical
- // MCES<mchk> is set and machine check code is saved
- //
- //-
-
- ALIGN_BRANCH
- .globl sys_mchk_collect_iprs
-sys_mchk_collect_iprs:
-
-
- mb // MB before reading Scache IPRs
- mfpr r1, icperr_stat
-
- mfpr r8, dcperr_stat
- mtpr r31, dc_flush // Flush the Dcache
-
- mfpr r31, pt0 // Pad Mbox instructions from dc_flush
- mfpr r31, pt0
- nop
- nop
-
- ldqp r9, sc_addr(r14) // SC_ADDR IPR
- bis r9, r31, r31 // Touch ld to make sure it completes before
- // read of SC_STAT
- ldqp r10, sc_stat(r14) // SC_STAT, also unlocks SC_ADDR
-
- ldqp r12, ei_addr(r14) // EI_ADDR IPR
- ldqp r13, bc_tag_addr(r14) // BC_TAG_ADDR IPR
- ldqp r0, fill_syn(r14) // FILL_SYN IPR
- // Touch lds to make sure they complete before reading EI_STAT
- bis r12, r13, r31
- // wait for r0 ldqp to complete
- bis r0, r0, r31
- ldqp r25, ei_stat(r14) // EI_STAT, unlock EI_ADDR, BC_TAG_ADDR, FILL_SYN
- ldqp r31, ei_stat(r14) // Read again to insure it is unlocked
- mfpr r6, pt_misc
- extwl r6, 4, r6 // Fetch mchk code
- br r31, sys_mchk_write_logout_frame //
-
-
-
- //+
- // Write the logout frame
- //
- // Current state:
- // r0 - fill_syn
- // r1 - icperr_stat
- // r4 - available
- // r5<0> - retry flag
- // r6 - mchk code
- // r8 - dcperr_stat
- // r9 - sc_addr
- // r10 - sc_stat
- // r12 - ei_addr
- // r13 - bc_tag_addr
- // r14 - available
- // r25 - ei_stat (shifted)
- // pt0 - saved r0
- // pt1 - saved r1
- // pt4 - saved r4
- // pt5 - saved r5
- // pt6 - saved r6
- // pt10 - saved exc_addr
- //
- //-
- ALIGN_BRANCH
-sys_mchk_write_logout_frame:
- //------------------------------------------------------------------------------------
- // EB164 specific code ....
- //
- // R14 - uncorrectable error logout frame address = 6000h + size of CRD frame
- //
- //------------------------------------------------------------------------------------
-#if eb164 != 0
-
-
- lda r14,PAL_LOGOUT_BASE(r31) // get the start of logout frame location
- lda r14,mchk_mchk_base(r14) // add in the size of the CRD frame
-#endif
-
- // Write the first 2 quadwords of the logout area:
-
- sll r5, 63, r5 // Move retry flag to bit 63
- lda r4, mchk_size(r5) // Combine retry flag and frame size
- stqp r4, mchk_flag(r14) // store flag/frame size
- lda r4, mchk_sys_base(r31) // sys offset
- sll r4, 32, r4
- lda r4, mchk_cpu_base(r4) // cpu offset
- stqp r4, mchk_offsets(r14) // store sys offset/cpu offset into logout frame
-
- //+
- // Write the mchk code to the logout area
- // Write error IPRs already fetched to the logout area
- // Restore some GPRs from PALtemps
- //-
-
- mfpr r5, pt5
- stqp r6, mchk_mchk_code(r14)
- mfpr r4, pt4
- stqp r1, mchk_ic_perr_stat(r14)
- mfpr r6, pt6
- stqp r8, mchk_dc_perr_stat(r14)
- mfpr r1, pt1
- stqp r9, mchk_sc_addr(r14)
- stqp r10, mchk_sc_stat(r14)
- stqp r12, mchk_ei_addr(r14)
- stqp r13, mchk_bc_tag_addr(r14)
- stqp r0, mchk_fill_syn(r14)
- mfpr r0, pt0
-#define ei_stat_v_bc_tperr 28
- sll r25, ei_stat_v_bc_tperr, r25 // Move EI_STAT status bits back to expected position
- //
- // Steve Shirron ei_stat.chip_id bits fix
- //
- // r25 has the ei_stat<35:28> bits aligned to bit 0.
- // Because this alignment trashed the ei_stat.chip_id<27:24> bits,
- // Steve's fix re-reads the ei_stat to recover the chip_id bits before
- // writing the ei_stat to the log.
- //
- ldah r13, 0xfff0(r31) // r13 <- pointer to cbox
- zapnot r13, 0x1f, r13 // :
- ldqp r13, ei_stat(r13) // r13 <- contents of ei_stat register
- sll r13, 64-ei_stat_v_bc_tperr, r13 // clear bits <63:36>
- srl r13, 64-ei_stat_v_bc_tperr, r13 // put ei_stat bits back
- or r25, r13, r25 // or-in the stat bits from the original read
- stqp r25, mchk_ei_stat(r14) // write to the log
-
- mfpr r25, pt10
- stqp r25, mchk_exc_addr(r14)
-
- // complete the CPU-specific part of the logout frame
-
-#define mchk_logout(regName, regOff) \
- mfpr r25, regName ; \
- stqp r25, CNS_Q_/**/regOff(r14)
-
-// mchk_logout(mm_stat, MM_STAT)
-// mchk_logout(va, VA) // Unlocks VA and MM_STAT
-// mchk_logout(isr, ISR)
-// mchk_logout(icsr, ICSR)
-// mchk_logout(pal_base, PAL_BASE)
-// mchk_logout(exc_mask, EXC_MASK)
-// mchk_logout(exc_sum, EXC_SUM)
-
- mfpr r25, mm_stat
- stqp r25, CNS_Q_MM_STAT(r14)
- mfpr r25, va
- stqp r25, CNS_Q_VA(r14)
- mfpr r25, isr
- stqp r25, CNS_Q_ISR(r14)
- mfpr r25, icsr
- stqp r25, CNS_Q_ICSR(r14)
- mfpr r25, pal_base
- stqp r25, CNS_Q_PAL_BASE(r14)
- mfpr r25, exc_mask
- stqp r25, CNS_Q_EXC_MASK(r14)
- mfpr r25, exc_sum
- stqp r25, CNS_Q_EXC_SUM(r14)
-
-
-
-
-
- ldah r13, 0xfff0(r31)
- zap r13, 0xE0, r13 // Get Cbox IPR base
- ldqp r13, ld_lock(r13) // Get ld_lock IPR
- stqp r13, mchk_ld_lock(r14) // and stash it in the frame
-
- //+
- // complete the PAL-specific part of the logout frame
- //-
-#define svpt(n)\
- mfpr r25, pt/**/n ;\
- stqp r25, CNS_Q_PT+(8*n)(r14)
-
- mfpr r25, pt0
- stqp r25, CNS_Q_PT+(8*0)(r14)
- mfpr r25, pt1
- stqp r25, CNS_Q_PT+(8*1)(r14)
- mfpr r25, pt2
- stqp r25, CNS_Q_PT+(8*2)(r14)
- mfpr r25, pt3
- stqp r25, CNS_Q_PT+(8*3)(r14)
- mfpr r25, pt4
- stqp r25, CNS_Q_PT+(8*4)(r14)
- mfpr r25, pt5
- stqp r25, CNS_Q_PT+(8*5)(r14)
- mfpr r25, pt6
- stqp r25, CNS_Q_PT+(8*6)(r14)
- mfpr r25, pt7
- stqp r25, CNS_Q_PT+(8*7)(r14)
- mfpr r25, pt8
- stqp r25, CNS_Q_PT+(8*8)(r14)
- mfpr r25, pt9
- stqp r25, CNS_Q_PT+(8*9)(r14)
- mfpr r25, pt10
- stqp r25, CNS_Q_PT+(8*10)(r14)
- mfpr r25, pt11
- stqp r25, CNS_Q_PT+(8*11)(r14)
- mfpr r25, pt12
- stqp r25, CNS_Q_PT+(8*12)(r14)
- mfpr r25, pt13
- stqp r25, CNS_Q_PT+(8*13)(r14)
- mfpr r25, pt14
- stqp r25, CNS_Q_PT+(8*14)(r14)
- mfpr r25, pt15
- stqp r25, CNS_Q_PT+(8*15)(r14)
- mfpr r25, pt16
- stqp r25, CNS_Q_PT+(8*16)(r14)
- mfpr r25, pt17
- stqp r25, CNS_Q_PT+(8*17)(r14)
- mfpr r25, pt18
- stqp r25, CNS_Q_PT+(8*18)(r14)
- mfpr r25, pt19
- stqp r25, CNS_Q_PT+(8*19)(r14)
- mfpr r25, pt20
- stqp r25, CNS_Q_PT+(8*20)(r14)
- mfpr r25, pt21
- stqp r25, CNS_Q_PT+(8*21)(r14)
- mfpr r25, pt22
- stqp r25, CNS_Q_PT+(8*22)(r14)
- mfpr r25, pt23
- stqp r25, CNS_Q_PT+(8*23)(r14)
-
-
-// svpt(0)
-// svpt(1)
-// svpt(2)
-// svpt(3)
-// svpt(4)
-// svpt(5)
-// svpt(6)
-// svpt(7)
-// svpt(8)
-// svpt(9)
-// svpt(10)
-// svpt(11)
-// svpt(12)
-// svpt(13)
-// svpt(14)
-// svpt(15)
-// svpt(16)
-// svpt(17)
-// svpt(18)
-// svpt(19)
-// svpt(20)
-// svpt(21)
-// svpt(22)
-// svpt(23)
-//
- //+
- // Log system specific info here
- //-
-
- // Unlock IPRs
- lda r8, ((1<<dcperr_stat_v_lock) | (1<<dcperr_stat_v_seo))(r31)
- mtpr r8, dcperr_stat // Clear Dcache parity error status
-
- lda r8, ((1<<icperr_stat_v_dpe) | (1<<icperr_stat_v_tpe) | (1<<icperr_stat_v_tmr))(r31)
- mtpr r8, icperr_stat // Clear Icache parity error & timeout status
-
-// pvc_jsr armc, bsr=1
- bsr r12, sys_arith_and_mchk // go check for and deal with arith trap
-
- mtpr r31, exc_sum // Clear Exception Summary
-
- mfpr r25, pt10 // write exc_addr after arith_and_mchk to pickup new pc
- stqp r25, mchk_exc_addr(r14)
-
- //+
- // Set up the km trap
- //-
-
-sys_post_mchk_trap:
- mfpr r25, pt_misc // Check for flag from mchk interrupt
- extwl r25, 4, r25
- blbs r25, sys_mchk_stack_done // Stack from already pushed if from interrupt flow
-
- bis r14, r31, r12 // stash pointer to logout area
- mfpr r14, pt10 // get exc_addr
-
- sll r11, 63-3, r25 // get mode to msb
- bge r25, sys_post_mchk_trap_30_
-
- mtpr r31, dtb_cm
- mtpr r31, ips
-
- mtpr r30, pt_usp // save user stack
- mfpr r30, pt_ksp
-
-sys_post_mchk_trap_30_:
- lda sp, 0-osfsf_c_size(sp) // allocate stack space
- nop
-
- stq r18, osfsf_a2(sp) // a2
- stq r11, osfsf_ps(sp) // save ps
-
- stq r14, osfsf_pc(sp) // save pc
- mfpr r25, pt_entInt // get the VA of the interrupt routine
-
- stq r16, osfsf_a0(sp) // a0
- lda r16, osfint_c_mchk(r31) // flag as mchk in a0
-
- stq r17, osfsf_a1(sp) // a1
- mfpr r17, pt_misc // get vector
-
- stq r29, osfsf_gp(sp) // old gp
- mtpr r25, exc_addr //
-
- or r31, 7, r11 // get new ps (km, high ipl)
- subq r31, 1, r18 // get a -1
-
- extwl r17, 2, r17 // a1 <- interrupt vector
- bis r31, ipl_machine_check, r25
-
- mtpr r25, ev5__ipl // Set internal ipl
- srl r18, 42, r18 // shift off low bits of kseg addr
-
- sll r18, 42, r18 // shift back into position
- mfpr r29, pt_kgp // get the kern r29
-
- or r12, r18, r18 // EV4 algorithm - pass pointer to mchk frame as kseg address
-
- hw_rei_spe // out to interrupt dispatch routine
-
-
- //+
- // The stack is pushed. Load up a0,a1,a2 and vector via entInt
- //
- //-
- ALIGN_BRANCH
-sys_mchk_stack_done:
- lda r16, osfint_c_mchk(r31) // flag as mchk/crd in a0
- lda r17, scb_v_sysmchk(r31) // a1 <- interrupt vector
-
- subq r31, 1, r18 // get a -1
- mfpr r25, pt_entInt
-
- srl r18, 42, r18 // shift off low bits of kseg addr
- mtpr r25, exc_addr // load interrupt vector
-
- sll r18, 42, r18 // shift back into position
- or r14, r18, r18 // EV4 algorithm - pass pointer to mchk frame as kseg address
-
- hw_rei_spe // done
-
-
-
-
-//sys_double_machine_check - a machine check was started, but MCES<MCHK> was
-// already set. We will now double machine check halt.
-//
-// pt0 - old R0
-//
- ALIGN_BLOCK
- .globl sys_double_machine_check
-sys_double_machine_check:
-
-// pvc_jsr updpcb, bsr=1
-// bsr r0, pal_update_pcb // update the pcb
- lda r0, hlt_c_dbl_mchk(r31)
- br r31, sys_enter_console
-
-//sys_machine_check_while_in_pal - a machine check was started, exc_addr points to
-// a PAL PC. We will now machine check halt.
-//
-// pt0 - old R0
-//
-sys_machine_check_while_in_pal:
-
-// pvc_jsr updpcb, bsr=1
-// bsr r0, pal_update_pcb // update the pcb
- lda r0, hlt_c_mchk_from_pal(r31)
- br r31, sys_enter_console
-
-//ARITH and MCHK
-// Check for arithmetic errors and build trap frame,
-// but don't post the trap.
-// on entry:
-// pt10 - exc_addr
-// r12 - return address
-// r14 - logout frame pointer
-// r13 - available
-// r8,r9,r10 - available except across stq's
-// pt0,1,6 - available
-//
-// on exit:
-// pt10 - new exc_addr
-// r17 = exc_mask
-// r16 = exc_sum
-// r14 - logout frame pointer
-//
- ALIGN_BRANCH
-sys_arith_and_mchk:
- mfpr r13, ev5__exc_sum
- srl r13, exc_sum_v_swc, r13
- bne r13, handle_arith_and_mchk
-
-// pvc_jsr armc, bsr=1, dest=1
- ret r31, (r12) // return if no outstanding arithmetic error
-
-handle_arith_and_mchk:
- mtpr r31, ev5__dtb_cm // Set Mbox current mode to kernel -
- // no virt ref for next 2 cycles
- mtpr r14, pt0
-
- mtpr r1, pt1 // get a scratch reg
- and r11, osfps_m_mode, r1 // get mode bit
-
- bis r11, r31, r25 // save ps
- beq r1, handle_arith_and_mchk_10_ // if zero we are in kern now
-
- bis r31, r31, r25 // set the new ps
- mtpr r30, pt_usp // save user stack
-
- mfpr r30, pt_ksp // get kern stack
-handle_arith_and_mchk_10_:
- mfpr r14, exc_addr // get pc into r14 in case stack writes fault
-
- lda sp, 0-osfsf_c_size(sp) // allocate stack space
- mtpr r31, ev5__ps // Set Ibox current mode to kernel
-
- mfpr r1, pt_entArith
- stq r14, osfsf_pc(sp) // save pc
-
- stq r17, osfsf_a1(sp)
- mfpr r17, ev5__exc_mask // Get exception register mask IPR - no mtpr exc_sum in next cycle
-
- stq r29, osfsf_gp(sp)
- stq r16, osfsf_a0(sp) // save regs
-
- bis r13, r31, r16 // move exc_sum to r16
- stq r18, osfsf_a2(sp)
-
- stq r11, osfsf_ps(sp) // save ps
- mfpr r29, pt_kgp // get the kern gp
-
- mfpr r14, pt0 // restore logout frame pointer from pt0
- bis r25, r31, r11 // set new ps
-
- mtpr r1, pt10 // Set new PC
- mfpr r1, pt1
-
-// pvc_jsr armc, bsr=1, dest=1
- ret r31, (r12) // return if no outstanding arithmetic error
-
-
-
-
-
-// .sbttl "SYS_ENTER_CONSOLE - Common PALcode for ENTERING console"
-
-// SYS_enter_console
-//
-// Entry:
-// Entered when PAL wants to enter the console.
-// usually as the result of a HALT instruction or button,
-// or catastrophic error.
-//
-// Regs on entry...
-//
-// R0 = halt code
-// pt0 <- r0
-//
-// Function:
-//
-// Save all readable machine state, and "call" the console
-//
-// Returns:
-//
-//
-// Notes:
-//
-// In these routines, once the save state routine has been executed,
-// the remainder of the registers become scratchable, as the only
-// "valid" copy of them is the "saved" copy.
-//
-// Any registers or PTs that are modified before calling the save
-// routine will have there data lost. The code below will save all
-// state, but will loose pt 0,4,5.
-//
-//-
-#define KSEG 0xfffffc0000000000
- ALIGN_BLOCK
- .globl sys_enter_console
-sys_enter_console:
-
- DEBUGSTORE(0x7a)
- DEBUG_EXC_ADDR()
- DEBUGSTORE(13)
- DEBUGSTORE(10)
- mtpr r1, pt4
- mtpr r3, pt5
- STALL
- STALL
- mfpr r1, pt_impure
- bsr r3, pal_save_state
-
- // build PS (IPL=7,CM=K,VMM=0,SW=0)
- lda r11, 0x7(r31) // Shadow copy of PS - kern mode, IPL=7
- lda r1, 0x1e(r31)
- mtpr r1, ev5__ipl // set internal <ipl>
-
- /* kernel sp: KSEG + 0xffe000 */
- subq r31, 1, sp
- sll sp, 42, sp
- lda r3, 0xffe(zero)
- sll r3, 12, r3
- addq r3, sp, sp
- mtpr sp, ptKsp // Update the saved KSP value.
- mtpr zero, ips // Set mode to kernel, IPL = 0.
- mtpr zero, dtb_ia // Flush the DTB
- mtpr zero, itb_ia // Flush the ITB
- mtpr zero, astrr // Clear all ASTs ...
- mtpr zero, aster
- mtpr zero, sirr // Clear all software interrupts.
-// lda r3, pal_enter_console_ptr(r31) //find stored vector
-// ldqp r1, 0(r3)
- /* put the KSEG address in the top, then add 0x10000 to it */
- subq r31, 1, r1
- sll r1, 42, r1
-
- ldah r1, 1(r1)
- mtpr r1, exc_addr
- mfpr r1, pt4
- mfpr r3, pt5
- STALL
- STALL
- hw_rei_stall
-
- .align 7
-kludge_initial_pcbb: // PCB is 128 bytes long
- .quad 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
-
- .globl debugstore
-debugstore:
- stq_p r16,0(zero)
- stq_p r17,8(zero)
- lda r16, 0x400(zero)
- sll r16, 29, r16
- ldah r16, 0x280(r16)
-9: lda r17, 0x140(r16)
- ldl_p r17, 0(r17)
- srl r17, 16, r17
- and r17, 0x20, r17
- beq r17, 9b
- stl_p r13, 0(r16)
- mb
- ldq_p r17, 8(zero)
- ldq_p r16, 0(zero)
- jmp r31, (r25)
-
-//
- .globl put_exc_addr
-put_exc_addr:
- stq_p r16,0(zero)
- stq_p r17,8(zero)
- stq_p r18,16(zero)
- stq_p r19,24(zero)
-
- mfpr r16, exc_addr
- bis r31, 64-4, r17 // shift count for quadword
-
-1: lda r18, 0x400(zero) // Wait for UART ready
- sll r18, 29, r18
- ldah r18, 0x280(r18)
-9: lda r19, 0x140(r18)
- ldl_p r19, 0(r19)
- srl r19, 16, r19
- and r19, 0x20, r19
- beq r19, 9b
-
- srl r16, r17, r19 // grab a nibble
- and r19, 0x0f, r19
- addq r19, 0x30, r19 // make ascii
- cmple r19, 0x39, r18
- bne r18, 0f
- addq r19, 0x27, r19 // 0x07 gets A-F
-
-0: lda r18, 0x400(zero) // Wait for UART ready
- sll r18, 29, r18
- ldah r18, 0x280(r18)
-
- stl_p r19, 0(r18)
- mb
-
- subq r17, 4, r17 // do all nibbles
- bge r17, 1b
-
- ldq_p r16,0(zero)
- ldq_p r17,8(zero)
- ldq_p r18,16(zero)
- ldq_p r19,24(zero)
-
- ret r31, (r25)
-
- // print out r13
- .globl put_hex
-put_hex:
- stq_p r16,0(zero)
- stq_p r17,8(zero)
- stq_p r18,16(zero)
- stq_p r19,24(zero)
-
- bis r13, zero, r16
- bis r31, 64-4, r17 // shift count for quadword
-
-1: lda r18, 0x400(zero) // Wait for UART ready
- sll r18, 29, r18
- ldah r18, 0x280(r18)
-9: lda r19, 0x140(r18)
- ldl_p r19, 0(r19)
- srl r19, 16, r19
- and r19, 0x20, r19
- beq r19, 9b
-
- srl r16, r17, r19 // grab a nibble
- and r19, 0x0f, r19
- addq r19, 0x30, r19 // make ascii
- cmple r19, 0x39, r18
- bne r18, 0f
- addq r19, 0x27, r19 // 0x07 gets A-F
-
-0: lda r18, 0x400(zero) // Wait for UART ready
- sll r18, 29, r18
- ldah r18, 0x280(r18)
-
- stl_p r19, 0(r18)
- mb
-
- subq r17, 4, r17 // do all nibbles
- bge r17, 1b
-
- ldq_p r16,0(zero)
- ldq_p r17,8(zero)
- ldq_p r18,16(zero)
- ldq_p r19,24(zero)
-
- ret r31, (r25)
-
-
-/*
-**
-** FUNCTIONAL DESCRIPTION:
-**
-** Transfer control to the specified address, passed in
-** register a0, in PAL mode.
-**
-** INPUT PARAMETERS:
-**
-** a0 (r16) - Transfer address
-**
-** OUTPUT PARAMETERS:
-**
-** DECchip 21064 specific parameters:
-**
-** t0 (r1) - bcCtl
-** t1 (r2) - bcCfg
-**
-** Firmware specific parameters:
-**
-** s6 (r15) - Encoded srom.s RCS revision
-** a0 (r16) - Processor identification (a la SRM)
-** a1 (r17) - Size of good memory in bytes
-** a2 (r18) - Cycle count in picoseconds
-** a3 (r19) - Protocol signature and system revision
-** a4 (r20) - Active processor mask
-** a5 (r21) - System Context value
-**
-** SIDE EFFECTS:
-**
-*/
- ALIGN_BRANCH
-
-Sys_Cserve_Jtopal:
- bic a0, 3, t8 // Clear out low 2 bits of address
- bis t8, 1, t8 // Or in PAL mode bit
-
- mfpr t9, ptImpure // Get base of impure scratch area.
- lda t9, CNS_Q_IPR(t9) // Point to start of IPR area.
-
- RESTORE_SHADOW(a3,CNS_Q_SIGNATURE,t9) // Get signature.
- srl a3, 16, t0 // Shift signature into lower word.
-
- LDLI(t10,0xDECB) // Load the expected valid signature.
-
- cmpeq t0, t10, t0 // Check if saved signature was valid.
- blbc t0, 1f // If invalid, pass nothing.
-/*
-** Load the processor specific parameters ...
-*/
- RESTORE_SHADOW(t0,CNS_Q_BC_CTL,t9) // Get bcCtl.
- RESTORE_SHADOW(t1,CNS_Q_BC_CFG,t9) // Get bcCfg.
-/* RESTORE_SHADOW(t2,CNS_Q_BC_CFG_OFF,t9) // Get bcCfg.*/
-/*
-** Load the firmware specific parameters ...
-*/
- RESTORE_SHADOW(s6,CNS_Q_SROM_REV,t9) // Get srom revision.
- RESTORE_SHADOW(a0,CNS_Q_PROC_ID,t9) // Get processor id.
- RESTORE_SHADOW(a1,CNS_Q_MEM_SIZE,t9) // Get memory size.
- RESTORE_SHADOW(a2,CNS_Q_CYCLE_CNT,t9) // Get cycle count.
- RESTORE_SHADOW(a4,CNS_Q_PROC_MASK,t9) // Get processor mask.
- RESTORE_SHADOW(a5,CNS_Q_SYSCTX,t9) // Get system context.
-
- STALL
- STALL
-
-1: mtpr zero, ptWhami // Clear WHAMI and swap flag.
- mtpr t8, excAddr // Load the dispatch address.
- br zero, 2f
-
- ALIGN_BLOCK
-
-2: NOP
- mtpr zero, icFlush // Flush the icache.
- NOP
- NOP
-
- NOP // Required NOPs ... 1-10
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
-
- NOP // Required NOPs ... 11-20
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
-
- NOP // Required NOPs ... 21-30
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
-
- NOP // Required NOPs ... 31-40
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
-
-
-
- NOP // Required NOPs ... 41-44
- NOP
- NOP
- NOP
-
- hw_rei // Dispatch in PAL mode ...