Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/putgen.mac
There are 7 other files named putgen.mac in the archive. Click here to see a list.
TITLE	PUTGEN FOR COBOL V12C
SUBTTL	WRITE OUT TWO GENFIL WORDS	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

;ENTER WITH FIRST WORD IN "TA", SECOND WORD IN "TB"

ENTRY PUTGEN
EXTERNAL DEVDED

PUTGEN:	AOS	GENWRD		;BUMP WORD COUNT
	SOSG	GENBHO+2	;IS BUFFER FULL?
	PUSHJ	PP,PUTGN2	;YES--GET ANOTHER BUFFER
	IDPB	TA,GENBHO+1	;MOVE ONE WORD

	SOSG	GENBHO+2	;IS BUFFER FULL NOW?
	PUSHJ	PP,PUTGN2	;YES--GET ANOTHER
	IDPB	TB,GENBHO+1	;MOVE SECOND WORD
	POPJ	PP,

PUTGN2:	OUT	GEN,		;WRITE OUT A BUFFER
	  POPJ	PP,		;NO ERRORS--RETURN

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

EXTERNAL GENBHO, GENDEV, GENWRD

	END