Trailing-Edge
-
PDP-10 Archives
-
BB-H506D-SM_1983
-
cobol/source/putas1.mac
There are 7 other files named putas1.mac in the archive. Click here to see a list.
TITLE PUTAS1 FOR COBOL V12B
SUBTTL WRITE OUT AS1FIL WORD 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
ENTRY PUTAS1
EXTERNAL DEVDED
PUTAS1: SOSG AS1BHO+2 ;BUFFER FULL?
JRST PUTASB ;YES--EMPTY IT
PUTASA: IDPB CH,AS1BHO+1 ;PUT WORD INTO BUFFER
POPJ PP,
PUTASB: OUT AS1, ;WRITE BUFFER
JRST PUTASA ;NO ERRORS--RETURN
MOVEI CH,AS1DEV ;ERROR -- WE LOSE
JRST DEVDED ;NEVER RETURN
EXTERNAL AS1BHO, AS1DEV
END