X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..d693caac75dd25e668e43e85c29205bfc8dea06e:/src/pltser.mac

diff --git a/src/pltser.mac b/src/pltser.mac
index 8af014f..f7b68b1 100644
--- a/src/pltser.mac
+++ b/src/pltser.mac
@@ -21,7 +21,7 @@ PLTADR: XWD PROG,0
 PLTCTR:	0			;OUTPUT BYTE COUNTER
 
 EXTERNAL OUT,SETACT,PLTCHN,PLTCHL,IOSET,ADVBFE,ADRERR,CPOPJ1
-EXTERNAL SETIOD,STOIOS,CLRACT,IULLINP,PLTSAV,IADRCK
+EXTERNAL SETIOD,STOIOS,CLRACT,ILLINP,PLTSAV,IADRCK
 
 INTERN PLTDDB,PLTINT,PLTDSP
 ;DISPATCH TABLE
@@ -79,14 +79,14 @@ PLT1:	JSR PLTSAV		;SAVE AC'S. SET UP PUSH DOWN POINTER
 	PUSHJ PDP,PLTSET	;SETUP BYTE POINTER AND COUNTER
 	 JRST PLTOFF		;ADDRESS ERROR RET FROM PLTSET
 PLT2:	TLZE IOS,IOW
-	PUSHJ PDP,SETIUOD	;LET JOB START AGAIN
+	PUSHJ PDP,SETIOD	;LET JOB START AGAIN
 	JRST STOIOS		;EVENTUALLY DISMISS INTERRUPT. IF ADVBFE
 				;FOUND MORE DATA (IT SKIPPED), ANOTHER
 				;INTERRUPT WILL IMMEDIATELY OCCUR BUT
 				;IT WILL BE HANDLED WITHOUT GOING TO PLT1
 
 PLTOFF:	CONO PLT,0		;SHUT DOWN PLOTTER
-	HLLSZ PLTINT		;REMOVE PLOTTER FROM CHAIN
+	HLLZS PLTINT		;REMOVE PLOTTER FROM CHAIN
 	PUSHJ PDP,CLRACT
 	TLZE IOS,PLTUP		;HAS THE "CLOSE" BEEN DONE?
 	DATAO PLT,[40]		;YES, LIFT PEN