Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/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