xerox Mesa-Nova1.asm Sep78 free download

File name Mesa-Nova1.asm_Sep78.pdf

Mesa-Noval,asm 2-Sep-78 17:21:54 Page 1 FILE MESA-NOVA1,ASM R, JOHNSSON LAST MODIFIED August la, 1978 9:47 AM . TITL MesaNova1 .TXTM B .ENT EMLOOP ,ENT MesaNova1 ,ENT MesaNovaSizel .ENT ACOPtr ,ENT AC1Ptr ,ENT AbsoluteTXV ,ENT CleanUpQueueUser ,ENT RequeueSubUser ,ENT WakeHeadImplementer ,ENT STOP User ,ENT AdvanceTimerPtr ,ENT processTrapPtr .ENT firstProcessPtr ,ENT lastProcessPtr ,ENT firstStateVectorPtr ,SREL EMLOOP: EMLP-TXV ;WHERE TO START RUNNING MesaNoval: TXV MesaNovaSizel: END-TXV ACOPtr: currentState AC1Ptr: WASAC1 AbsoluteTXV: X ; To check compatibility CleanUpQueueUser: CleanUpQueue RequeueSubUser: RequeuePtr WakeHeadlmplementer: WakeHead-TXV+X STOPUser: pSTOP AdvanceTimerPtr: AdvanceTimer-TXV+X processTrapPtr: processTrap firstProcessPtr: firstProcess lastProcessPtr: lastProcess firstStateVectorPtr: firstStateVector ,NREL ,GET "Mesa-NovaDefs,asm" x .. 25 ; The absolute location of TXV at run time TXV: EMLP-TXV+X Microcode expects this to be in location 25 MSTOP-TXV+X 77400 BLK 77400 CONVERT ME-TXV+X MRE-TXV+X MXW-TXV+X MXO-TXV+X NOTIFY-TXV+X BCAST-TXV+X REQUEUE-TXV+X CVArray: ; This will be location 40 a a a a a a a a a a a a a a a a MSTOP: JMP @pSTOP Mesa-Noval.asm 2-Sep-78 17:21:54 Page 2 pSTOP: 0 Locations for saving accumulators WASAC1: 0 trapmask: abortPending;+timeoutPending make timeout not trap processTrap: 0 ; Monitor ReEntry(@Monitor,cvptr) MRE: sta 1 cvptr jsr Enter mov o 0 snc if failed jmp EMLPl then return lda o cvptr jsr @CleanUpQueue lda 2 currentPSB sub o0 sta o cleanUpLink.2 ; currentPSB.cleanUpLink ~ Clean lda o trapmask lda 1 bitsandpriority,2 and# o 1 snr - if no timeout or abort jmp EnterTrue then return lda 2 currentState cause a trap in the current state lda 1 dest.2 sta 1 source,2 make the dest be the source lda 1 @processTrap sta 1 dest,2 and cause a call to SD[sProcessTrap] jmp EMLP Enter: : (@Monitor) returns carry=l iff success mov 0,2