Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/source/putas2.mac
There are 7 other files named putas2.mac in the archive. Click here to see a list.
TITLE PUTAS2 FOR COBOL V12C
SUBTTL WRITE OUT AS2FIL 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 PUTAS2
EXTERNAL DEVDED
PUTAS2: SOSG AS2BHO+2 ;BUFFER FULL?
JRST PUTASB ;YES--EMPTY IT
PUTASA: IDPB CH,AS2BHO+1 ;PUT WORD INTO BUFFER
POPJ PP,
PUTASB: OUT AS2, ;WRITE BUFFER
JRST PUTASA ;NO ERRORS--RETURN
MOVEI CH,AS2DEV ;ERROR -- WE LOSE
JRST DEVDED ;NEVER RETURN
EXTERNAL AS2BHO, AS2DEV
END