Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/putas3.mac
There are 7 other files named putas3.mac in the archive. Click here to see a list.
	TITLE	PUTAS3 FOR RPGII V1
	SUBTTL	WRITE OUT AS3FIL WORD

	TWOSEG
	RELOC	400000

	ENTRY	PUTAS3


PUTAS3:	SOSG	AS3BHO+2		; BUFFER FULL?
	JRST	PUTASB			; YES - EMPTY IT

PUTASA:	IDPB	CH,AS3BHO+1		; PUT WORD IN BUFFER
	POPJ	PP,			; EXIT

PUTASB:	OUT	AS3,			; WRITE BUFFER
	JRST	PUTASA			; NO ERRORS - RETURN

	MOVEI	CH,AS3DEV		; ERROR - YOU LOSE
	JRST	DEVDED			; NEVER RETURN

EXTERNAL AS3BHO, AS3DEV, DEVDED


	END