Trailing-Edge
-
PDP-10 Archives
-
BB-H506D-SM_1983
-
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 V12B
SUBTTL WRITE OUT TWO GENFIL WORDS 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
;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