xerox Mesa-Nova2.asm Sep78 free download

File name Mesa-Nova2.asm_Sep78.pdf

Mesa-Nova2.asm 2-Sep-78 17:21:54 Page 1 FILE MESA-NOVA2.ASM R. JOHNSSON LAST MODIFIED May 17, 1978 7:57 AM .TITL MesaNova2 . TXTM B .ENT PScode .ENT MesaNova2 .ENT MesaNovaS;ze2 .ENT STOPImplementer .ENT CleanUpQueueImplementer .ENT RequeueSubImplementer .ENT WakeHeadUser .ENT OSFPtr .ENT OutLdPtr .ENT InLdPtr .ENT Fin;shPtr .ENT FinProcPtr .SREL PScode: PCORR MesaNova2: START MesaNovaSize2: END-START STOPImplementer: STOP-START+X CleanUpQueueImplementer: CleanUpQueue-START+X RequeueSubImplementer: RequeueSub-START+X WakeHeadUser: Wake Head OSFPtr: RTRN OutLdPtr: OUTLDP InLdPtr: INLDP FinishPtr: FINISH-START+X FinProcptr: FINPROC .NREL .GET "Mesa-NovaDefs.asm" x .. 174400 where this code will be loaded START: PCORR: PSQ-START+X-l+2; Absolute address of PSO-lt2 ; PSQ thru PS16 must be consecutive locations PSO: JSR PSWITCH PSi: JSR PSWITCH PS2: JSR PSWITCH PS3: JSR PSWITCH PS4: JSR PSWITCH PS5: JSR PSWITCH PS6: JSR PSWITCH PS7: JSR PSWITCH PSi0: JSR PSWITCH PSii: JSR PSWITCH PS12: JSR PSWITCH PS13: JSR PSWITCH PS14: JSR PSWITCH PS15: JSR PSWITCH PS16: JSR PSWITCH pINTPC: INTPC PSWITCH: LDA 0 PCORR SUB 0 3 AC3 now has interrupt channel number LDA 0 CVA,3 ACO now has CVptr to NOTIFY LDA 1 @pINTPC Find out where we interrupted from MOVUI 1 1 SZC BRI Something wrong, probably SWAT abort NakedNot ify: ;(cvptr) mov Q 2 snr test for no cv bri lda 1 0,2 cvptrt movzlll 1 1 szr test for empty, ignore possible ww jmp DoNotify subzr o0 Mesa-Nova2.asm 2-Sep-78 17:21:54 Page 2 sta o 0,2 cvptrt ~ [ww,empty] bri DoNotify: jsr CleanUpQueue jsr @WakeHead bri WakeHead: 0 STOP: LDA 2 currentState ; COPY STATE POINTER TO AC2 JSR NOVACODE ; ADDRESS OF DISPATCH TABLE TO AC3 JMP @RTRN JMP @RTRN JMP DOOUTLD JMP DOINLD JMP DISASTER JMP NOVAJSR NOVACODE: LOA 0 0,2 ; PICK UP CODE ADD 0 3 ADD TO TABLE BASE JMP 0,3 FINPROC: o POINTS TO PD FOR FINISH PROCEDURE FINISH: DIR LOA 1 @FINPROC MOV# 1 1 SNR JMP 1,3 INC 3 3