Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-compiler/outz.bli
There are 12 other files named outz.bli in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

!COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR:	M. G. MANUGIAN

MODULE OUTZ=
BEGIN

!THIS MODULE REPLACES OUTZ.BLI WHICH WAS WRITTEN BY TOM OSTEN, BUT
!MISPLACED.  THIS MODULE WAS DECOMPILED FROM THE REL FILE FOR OUTZ.

GLOBAL BIND OUTZV = 6^24 + 0^18 + 0;	! Version Date:	12-Jul-72

%(

***** Begin Revision History *****

***** End Revision History *****

)%

GLOBAL ROUTINE OUTZ(CHANNEL,STRINGADDR)=

	!OUTPUT THE ASCIZ STRING POINTED TO BY THE 18 BIT STRINGADDR TO
	!THE DEVICE INITED ON CHANNEL .CHANNEL.

	BEGIN

	  LOCAL	CHAR,	!CHARACTER TO BE OUTPUT
		BP;	!BYTE POINTER TO CHAR IN STRING

	  EXTERNAL	WRITE;	!ROUTINE TO OUTPUT ONE ASCII CHAR.

	  MACRO LEFTHALF=0,18$;

	    BP_(.STRINGADDR-1)<0,7>;

	    DO
		(INCR COUNT FROM 0 TO 4 DO
		  IF (CHAR_SCANI(BP)) EQL 0
		    THEN RETURN
		    ELSE WRITE(.CHANNEL,.CHAR)
		)
	    UNTIL @@BP
	END;
END	!OF THE MODULE