Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/putas3.mac
There are 7 other files named putas3.mac in the archive. Click here to see a list.
TITLE	PUTAS3 FOR COBOL V12C
SUBTTL	WRITE OUT AS3FIL WORD	AL BLACKINGTON/CAM

	SEARCH	COPYRT
	SALL

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

	SEARCH	P
	%%P==:%%P

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


TWOSEG
	.COPYRIGHT		;Put COPYRIGHT statement in .REL file.

RELOC	400000

ENTRY PUTAS3
EXTERNAL DEVDED

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

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

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

EXTERNAL AS3BHO, AS3DEV

	END