.TITLE DAPNSP - DAP NSP INTERFACE .IDENT /V01.11/ .PSECT DAPNSP X=. $PKTIOS=X+1510 ; ; *** BEGIN DAPP01 *** ; ; DAPP01 - IF CHANNEL NUMBER IS ZERO, A PLF OCCURED. ; .=X+604 CALL DAPP01 ; .=X+750 JMP DAPP1B ; .=X+1020 CALL DAPP1A ; .=X+1212 NOP NOP ; .PSECT DAPP01 .ENABL LSB .GLOBL $IDCMV,$ERRXMT DAPP01:: MOV (PC)+,-(SP) ; FLAG XMT ENTRY DAPP1A:: CLR -(SP) ; FLAG RCV ENTRY MOVB $IDCMB(R5),R5 ; GET THE USER CHANNEL NUMBER. BNE 20$ : BR IF ONE IS THERE. NOV $PKTIOS,R2 ; GET THE IOSB ADDRESS MOV #177774,(R2) ; INSET A PHYSICAL LINE ERROR CODE. TST (SP)+ ; CHECK ENTRY. BEQ 10$ ; BR IF RECEIVE. SUB #12,6(R2) ; RESET THE BUFFER POINTER. 10$: TST (SP)+ ;TOSS RETURN ADD TO DAPNSP. MOV (SP)+,R0 JMP $ERRXMT ; PROCESS THE ERROR. 20$: TST (SP)+ ; TOSS ENTRY FLAG. RETURN ; DAPP1B:: MOV $PKTIOS,R2 SUB #12,6(R2) JMP $ERRXMT ; .DSABL LSB ; ; *** END DAPP01 *** ; .END