Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50517/putas2.mac
There are 7 other files named putas2.mac in the archive. Click here to see a list.
TITLE PUTAS2 FOR RPGII V1
SUBTTL WRITE OUT AS2FIL WORD
TWOSEG
RELOC 400000
ENTRY PUTAS2
PUTAS2: SOSG AS2BHO+2 ; BUFFER FULL?
JRST PUTASB ; YES - EMPTY IT
PUTASA: IDPB CH,AS2BHO+1 ; PUT WORD IN BUFFER
POPJ PP, ; EXIT
PUTASB: OUT AS2, ; WRITE BUFFER
JRST PUTASA ; NO ERRORS - RETURN
MOVEI CH,AS2DEV ; ERROR - YOU LOSE
JRST DEVDED ; NEVER RETURN
EXTERNAL AS2BHO, AS2DEV, DEVDED
END