.TITLE DAPAST - DAP AST ROUTINES .IDENT /V01.11/ .PSECT DAPAST X=. ; ; *** DAPP04 - CLEAR CHANNEL MAPPING BLOCK AFTER FLUSHING RCVQ ; .=X+12 NOP NOP ; .=X+56 JMP DAPP04 ; .PSECT DAPP04 .GLOBL $IDCMB DAPP04:: ADD R1,SP ; RESET STACK. CLRB $IDCMB(R5) ; CLEAR THE CHANNEL. RETURN ; EXIT THE AST. ; ; *** END DAPP04 *** ; .END