Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/putas1.mac
There are 7 other files named putas1.mac in the archive. Click here to see a list.
TITLE	PUTAS1 FOR COBOL V12B
SUBTTL	WRITE OUT AS1FIL WORD	AL BLACKINGTON/CAM



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION

	SEARCH	P
	%%P==:%%P

;EDITS
;V10*****************
;NAME	DATE		COMMENTS
;********************


TWOSEG
RELOC	400000

ENTRY PUTAS1
EXTERNAL DEVDED

PUTAS1:	SOSG	AS1BHO+2	;BUFFER FULL?
	JRST	PUTASB		;YES--EMPTY IT
PUTASA:	IDPB	CH,AS1BHO+1	;PUT WORD INTO BUFFER
	POPJ	PP,

PUTASB:	OUT	AS1,		;WRITE BUFFER
	  JRST	PUTASA		;NO ERRORS--RETURN

	MOVEI	CH,AS1DEV	;ERROR -- WE LOSE
	JRST	DEVDED		;NEVER RETURN

EXTERNAL AS1BHO, AS1DEV

	END