X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Ffopen.63;h=48fa1692ea4002dfb644c3de98da997c6d319ecb;hb=70f21077cc31399527eb374809ce1079258cfb62;hp=af6e1a509f501b88e098a7f3d8c059408e211d0f;hpb=d779d0ca5537ef0500f655bc0e5eea73edb124cf;p=pdp10-muddle.git

diff --git a/<mdl.int>/fopen.63 b/<mdl.int>/fopen.63
index af6e1a5..48fa169 100644
--- a/<mdl.int>/fopen.63
+++ b/<mdl.int>/fopen.63
@@ -4475,7 +4475,7 @@ GTINTC:	PUSH	TP,$TCHAN	;SAVE THE CHANNEL...WE'LL CLOBBER B
 	PUSH	P,0
 	PUSH	TP,$TCHAN
 	PUSH	TP,B
-	MCALL	1,INTFCN-1(B)
+	.MCALL	1,INTFCN-1(B)
 	GETYP	A,A
 	CAIE	A,TCHRS
 	JRST	BADRET
@@ -4506,7 +4506,7 @@ PTINTC:	PUSH	TP,$TCHAN	;SAVE THE CHANNEL...WE'LL CLOBBER B
 	PUSH	TP,A		;PUSH THE CHAR
 	PUSH	TP,$TCHAN	;PUSH THE CHANNEL
 	PUSH	TP,B
-	MCALL	2,INTFCN-1(B)	;APPLY THE FUNCTION TO THE CHAR
+	.MCALL	2,INTFCN-1(B)	;APPLY THE FUNCTION TO THE CHAR
 	JRST	INTRET