.TITLE SPNMCR .IDENT /RICE01/ .MCALL SPWN$S,CLEF$S,WTSE$S SPNMCR:: MOV #2,R0 CALL R5CHEK ; Check on params MOV (R5)+,R1 ; Buffer address MOV R1,R0 ; Ditto MOV #78.,R4 ; Number of char to check 1$: TSTB (R1)+ ; Test 1 char BEQ 2$ ; Found zero char SOB R4,1$ BR 3$ ; Complete buffer 2$: DEC R4 ; Char left 3$: NEG R4 ; - Char left ADD #78.,R4 ; Char to transmit CLEF$S #1 ; Clear flag #1 SPWN$S #MCR,,,,,#1,,,R0,R4 ; Send command to MCR WTSE$S #1 ; Wait for flag MOV $DSW,@(R5) ; Status to user RETURN MCR: .RAD50 /MCR.../ .END