.TITLE NWRITE .IDENT /V01.11/ .PSECT NWRITE X=. ; ; *** BEGIN DAPP03 *** ; ; DAPP03 - DO NOT NOVE CHARACTER IF ZERO LENGTH BUFFER ; .=X+220 CALL DAPP03 ; .=X+246 CALL DAPP3A ; .=X+310 CALL DAPP3B ; .PSECT DAPP03 .ENABL LAB .GLOBL $NXMT DAPP03:: TST R2 ; ANY CHARACTERS TO SEND? BEQ 30$ ; IF NO. DON'T MOVE A CHAR. MOVB (R1)+,(R3)+ ; MOVE A CHARACTER. INC R4 ; CLOCK THE CHARACTER MOVED. BR 30$ ; RETURN ; DAPP3A:: MOV (PC)+,-(SP) ; FLAG MULTI-SEG ENTRY, SKIP NEXT INSTR. DAPP3B:: CLR -(SP) ; FLAG SINGLE SEG ENTRY. CALL $NXMT ; TRANSMIT THE PACKET. BCC 20$ ; RETURN IF OK. TST (SP)+ ; CHECK ENTRY. BEQ 10$ ; BR IF SINGLE SEG ENTRY. 10$: SEC ; INDICATE ERROR 20$: MOV (SP),(SP)+ ; ADJUST STACK, LEAVE C-BIT ALONE. 30$: RETURN .DSABL LSB ; ; *** END DAPP03 *** ; .END