*-----------------------------------------------------------
Title[SMTraps.mc...June 28, 1982 9:22 AM...Haugeland];
* This file contains emulator-specific microcode for:
*S-group opcodes that ordinarily trap;
*Default disk region;
*Map parameters.
* This is the version for the strictly Alto emulator.
* It should be renamed and edited for other emulators (e.g., MTraps for Mesa).
*-----------------------------------------------------------
* modified for SmallTalk by Haugeland

TopLevel;
KnowRBase[AEmRegs];
Set[XTask, IP[EMU]];
InsSet[AEmuInsSet, 1];

*-----------------------------------------------------------
GetEmulatorMapParams:
* Returns in T some emulator-specific information for setting up the map:
*T[0] = 1 to write-protect page 377, for XM Alto emulation;
*0 to emulate a non-XM Alto.
*T[4:15] = the VA[4:15] to be used to define the main 64K memory
*region for Alto emulation (i.e., loaded into the high
*part of MDS). Should be 0 in all emulators except Lisp.
*-----------------------------------------------------------
Subroutine;
T← 100000C, Return;* Emulate XM Alto

TopLevel;

*-----------------------------------------------------------
VERS: * Alto Version instruction
* structure VERS:
*eng bit 4// engineering number
*build bit 4// build number
*microcode bit 8// microcode version
* For Dorado, the engineering number is 5.
* The build number (use of which has been discontinued on the Alto) is
* taken over to indicate the emulator(s) included in the current microcode:
*0Alto emulator only
*1Alto + Alto Mesa
*2Alto + PrincOps Mesa
*3Alto + Cedar Mesa
*4Alto + Lisp
*5Alto + Smalltalk 76
*6Alto + Smalltalk 78
*-----------------------------------------------------------

Stack← 52400C, IFUJump[0], At[SD400, 14]; * Smalltalk 76

*-----------------------------------------------------------
* Parameterless Alto instructions (NOPAR group) that are
* undefined on the Dorado
*-----------------------------------------------------------

SIT:IFUJump[0], At[SD400, 7];*61007, StartIntervalTimer

JMPRAM:Branch[NPTrap],At[SD400, 10];*61010, JumpRAM

RDRAM:* always return 0
Stack← A0, IFUJump[0], At[SD400, 11];*61011, ReadRAM

WRTRAM:IFUJump[0], At[SD400, 12];*61012, WriteRAM

DREAD:Branch[NPTrap],At[SD400, 15];*61015, Double Read

DWRITE:Branch[NPTrap],At[SD400, 16];*61016, Double Write

DEXCH:Branch[NPTrap],At[SD400, 17];*61017, Double Exchange

DIAGNOSE1:
Branch[NPTrap],At[SD400, 22];*61022, Diagnostic

DIAGNOSE2:
Branch[NPTrap],At[SD400, 23];*61023, Diagnostic

Branch[NPTrap],At[SD400, 30];*61030, not used
Branch[NPTrap],At[SD400, 31];*61031, not used
Branch[NPTrap],At[SD400, 35];*61035, not used

*-----------------------------------------------------------
* S-Group opcodes that trap
* Note: Trap## uses dispatch word at 530+##+ID (## = 00, 17, or 36).
* Trapx uses dispatch word at 400+T.
* All of these trap routines expect RBase = rbAEmRegs.
*-----------------------------------------------------------

* EmIFUTrap[opcode, IMaddress, N]
M[EmIFUTrap, IFUPause[#1, 2, MDS, rbAEmRegs, #2, #3, 0, 0]];

EmIFUTrap[141, Trap00, 01];* 60400-60777
EmIFUTrap[143, Trap00, 03];* 61400-61777
EmIFUTrap[144, Trap00, 04];* 62000-62377
EmIFUTrap[145, Trap00, 05];* 62400-62777
EmIFUTrap[146, Trap00, 06];* 63000-63377
EmIFUTrap[147, Trap00, 07];* 63400-63777
EmIFUTrap[150, Trap00, 10];* 64000-64377
EmIFUTrap[153, Trap00, 13];* 65400-65777
EmIFUTrap[154, Trap00, 14];* 66000-66377
EmIFUTrap[155, Trap00, 15];* 66400-66777
EmIFUTrap[157, Trap17, 00];* 67400-67777
*EmIFUTrap[160, Trap17, 01];* 70000-70377
*EmIFUTrap[161, Trap17, 02];* 70400-70777
*EmIFUTrap[162, Trap17, 03];* 71000-71377
EmIFUTrap[163, Trap17, 04];* 71400-71777
*EmIFUTrap[164, Trap17, 05];* 72000-72377
*EmIFUTrap[165, Trap17, 06];* 72400-72777
EmIFUTrap[166, Trap17, 07];* 73000-73377
EmIFUTrap[167, Trap17, 10];* 73400-73777
EmIFUTrap[170, Trap17, 11];* 74000-74377
EmIFUTrap[171, Trap17, 12];* 74400-74777
*EmIFUTrap[172, Trap17, 13];* 75000-75377
EmIFUTrap[173, Trap17, 14];* 75400-75777
EmIFUTrap[174, Trap17, 15];* 76000-76377
EmIFUTrap[175, Trap17, 16];* 76400-76777
*EmIFUTrap[176, Trap36, 00];* 77000-77377
EmIFUTrap[177, Trap36, 01];* 77400-77777

*-----------------------------------------------------------
* Dummy BCPL runtime routines, reached if BCPLRuntime-dib.dib is not loaded.
* These labels are redefined if BCPLRuntime is actually loaded.
* This code is here because it gets bound too early if included in the
* AEmu-dib assembly. It must be loaded before BCPLRuntime.
*-----------------------------------------------------------
JSRz300: Q← PCX’, Branch[JSRx];
JSRiz340: Fetch← T, FlipMemBase, Branch[JSRix];