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
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