Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50517/putgen.mac
There are 7 other files named putgen.mac in the archive. Click here to see a list.
	TITLE	PUTGEN FOR RPGII V1
	SUBTTL	WRITE OUT A GENFIL WORD		AL BLACKINGTON/CAM/RBC

	TWOSEG
	RELOC	400000

;ETER WITH WORD IN CH

	ENTRY	PUTGEN

PUTGEN:	AOS	GENWRD			; BUMP WORD COUNT
	SOSG	GENBHO+2		; IS BUFFER FULL?
	PUSHJ	PP,PUTGN2		; YES - GET ANOTHER BUFFER
	IDPB	CH,GENBHO+1		; MOVE ONE WORD
	POPJ	PP,			; AND RETURN

PUTGN2:	OUT	GEN,			; OUTPUT A BUFFER
	POPJ	PP,			; NO ERRORS - RETURN
	MOVEI	CH,GENDEV		; ERROR - WE LOSE THE GAME
	JRST	DEVDED			; WE ARE QUITE DEAD


EXTERNAL GENWRD, GENDEV, GENBHO, DEVDED



	END