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