projects
/
pdp10-muddle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More fixes for ITS.
[pdp10-muddle.git]
/
<mdl.int>
/
fopen.63
diff --git
a/<mdl.int>/fopen.63
b/<mdl.int>/fopen.63
index af6e1a509f501b88e098a7f3d8c059408e211d0f..48fa1692ea4002dfb644c3de98da997c6d319ecb 100644
(file)
--- 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
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
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
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
JRST INTRET