Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0043/typplt.mac
There are 2 other files named typplt.mac in the archive. Click here to see a list.
	TITLE TYPPLT
;PROGRAM TO READ "DATA.PLT" AND TRANSLATE 6 BIT PLOTTER COMMANDS
;  INTO ASCII CHARACTERS FOR "LPT8" TO PLOT ON THE PLOTTER.

	DEFINE ERRMES(A) <
	JRST [TTCALL 3,[ASCIZ/A/]
		EXIT]>


TYPPLT:	RESET
	INIT 1,17
	SIXBIT /DSK/
	0
	ERRMES (<DSK NOT AVAILABLE>)
	LOOKUP 1,NAME
	ERRMES (<FILE "DATA.PLT" WAS NOT FOUND>)
LOOP:	IN 1,CL
	SKIPA
	EXIT
	MOVE 1,[POINT 6,BUFFER]
	MOVEI 2,^D6*^D128
LOOP1:	ILDB 1		;GET NEXT COMMAND
	JUMPE LOOP2	;IGNORE NULLS
	ADDI 40
	TTCALL 1,0	;SEND TO PDP-8
LOOP2:	SOJG 2,LOOP1
	JRST LOOP

NAME:	SIXBIT/DATA/
	SIXBIT/PLT/
	0
	0
	0
	0
CL:	IOWD ^D128,BUFFER
	0

BUFFER:	BLOCK ^D128

	END TYPPLT