.TITLE DECNET-RT NSP .IDENT /V01.11/ .PSECT $NSP,I X=. ; ; *** BEGIN NSPP01 *** ; ; NSPP01 - SAVE AND RESTORE DDCMP LINE ERROR CODE ; AND LET TAST PROCESS XMITS. ; GIVEXC=X+12746 .=X+10012 NOP ; DO NOT PROCESS XMITS NOW. NOP ; LET TAST DO IT LATER. ; .=X+12134 CALL NSPP01 NOP NOP ; .PSECT NSPP01,I NSPP01:: MOV R4,-(SP) ; SAVE THE DDCMP ERROR CODE. MOV R2,R4 ; FAKE ONE BYTE OF DATA. INC R2 ; WHICH IS IMAGE DATA. CALL GIVEXC ; GIVE USER THE EXCEPTION AST. MOV (SP)+,R4 ; RESTORE THE ERROR CODE. RETURN ; ; *** END NSPP01 *** ; .END