M.MMP=0;THIS IS A MULTIPROCESSOR MONITOR! .MCALL TCBDF$ TCBDF$ ;DEFINE TCB OFFSETS .MACRO DSAR$S ;FAKEUP AST ENABLE/DISABLE MACROS FOR MSX (OPTIONAL) MOV R0,-(SP) ;NEED A REG MOV @#PS,-(SP) ;SAVE PS MOV #140340,@#PS ;PRI7, PREV KNL MODE MFPI @#$TKTCB ;GET MY TCB ADDRESS MOV (SP)+,R0 ;PUT INTO R0 FOR USE T2.DST=40000 ;AST RECOG. DISABLED BIT MFPI T.ST2(R0) ;GET STATUS WORD 2 BIS #T2.DST,@SP ;SET DISABLED BIT MTPI T.ST2(R0) ;PUT BACK IN KNL SPACE MOV (SP)+,@#PS ;RESTORE OLD STATUS MOV (SP)+,R0 ;AND OLD R0 .ENDM