//D1i0.bcpl First init for D1--Load RAM and start special microcode // Initialization done here is always executed. Storage allocated // is not saved in Midas.State. // 28 June 1983 get "d1.d" manifest [ get "d1dmux.d" ] manifest [ get "d1regmem.d" ] external [ // OS SetBlock // MINIT1 GetZStorage // MIDAS MidasSwat // MASM @MBlock; GetStorage // LOADRAM LoadRam; //SetBLV // BCPLRUNTIME InitBcplRuntime // DORADOMC RamImage // D1ASM GFrameX //Defined here InitHardware1; MachVersion; OldGFrame; HWStatus; DefRadix @DMuxTab; @OldDMuxTab; DWrong; DChecked; DMuxSelect; @DHistTab @SaveMIR; BreakMIR; SaveBR36 ] static [ MachVersion; OldGFrame; HWStatus; DefRadix = 8 @DMuxTab; @OldDMuxTab; DWrong; DChecked; DMuxSelect; @DHistTab @SaveMIR; BreakMIR; SaveBR36 ] let InitHardware1() be [ MachVersion = ", D1Midas 6/28/83" //Initialize special Alto microcode. //Note: other implementations of Midas can use the Alto microcode //for Dorado, if they do not have their own. Bcpl runtime microcode //may be assembled with other special microcode and improves performance //about 6%. RamImage!0 = #177777 //Zeroes enable tasks in Ram if silent boot let res = LoadRam(RamImage,false) //load, don't boot if res < 0 then MidasSwat(BadLoadRam) if res > 0 then MidasSwat(BadConstants) //SetBLV(#177776) //Setup for silent boot at finish time //Initialize for new microinstructions InitBcplRuntime() (table [ InitMC; #1401 ] )() //Replace GetFrame procedure by special microinstruction OldGFrame = rv #370; rv #370 = GFrameX DMuxTab = GetStorage(DMUXlen) SaveMIR = DMuxTab+dSaveMIR DMuxSelect = DMuxTab BreakMIR = GetStorage(4) DWrong = GetZStorage(DMUXlen) OldDMuxTab = GetStorage(DMUXlen) DChecked = GetStorage(DMUXlen) DHistTab = GetZStorage(DHISTlen*3) SaveBR36 = GetStorage(2) HWStatus = GetZStorage(size HWStatus/16) HWStatus>>HWStatus.ConnectedMachine = -1 ]