Trailing-Edge
-
PDP-10 Archives
-
BB-H580E-SB_1985
-
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