.TITLE SETDEF .IDENT /V1.0/ .ENABL LC .NLIST BEX,ME,CND .MCALL .INH0,.ENB,PUSH,POP ; Set our default UIC to [1,1] SETDEF:: .INH0 ; Disable task switching PUSH ; Save old PAR,PDR pair MOV .CRTSK,R0 ; Get back my ATL address MOV A.HA(R0),UPAR3 ; Point to my header MOV #1406,UPDR3 ; Allow full memory access MOV #401,H.DUI+60000 ; Set default UIC to [1,1] MOV #401,H.UIC+60000 ; Set def to [1,1] POP ; Restore PAR,PDR pair .ENB ; Restore task switching RTS R5 ; Return to the calling proc. .END