Fix wrong encoding of \r in Muddle 56 source.

Found from comparison with a TS MUD54 binary. The Muddle 56/106 source
came from TOPS-20 originally, and it had been extracted with newline
conversion but not ITS encoding.

Most of these are cosmetic, but there are a couple of VALRET strings
with embedded \rs -- including the one used to exit initialisation.
So successful initialisation now finishes with a *, rather than opening
a random location.

build/muddle.tcl

@@ -16,7 +16,7 @@ respond "\n" "D\033\033"
 respond "\n" "strng/\0331\"56^?^?^?\033\r"
 respond "\n" ":pdump mudsav; ts mud56\r"
 respond "*" ":start\r"
-respond "..PERM/" ":pdump mudsav; ts mdl56\r"
+respond "*" ":pdump mudsav; ts mdl56\r"
 respond "*" ":kill\r"
 
 respond "*" ":midas sys3; ts mudinq_sysen2; mudinq\r"

src/mudsys/agc.131

@@ -155,7 +155,7 @@ SPOUT:	JUMPE	LPVP,DPGC4	; END OF CHAIN
 	SUBI	C,2		; WE'RE NOT SENDING OUT THE VALUE PAIR
 	HRLM	C,(F)		; ADJUSTED LENGTH
 	MOVE	0,C		; COPY C FOR TRBLKX
-	SUBI	E,(C)		; ADJUST PTRS FOR SENDOUT
+	SUBI	E,(C)		; ADJUST PTRS FOR SENDOUTî
 	SUBI	F,-1(C)
 	PUSHJ	P,TRBLKX	; OUT IT GOES
 	JRST	SPOUT

src/mudsys/fopen.36

@@ -1637,21 +1637,21 @@ INSTAT:	MOVE	E,B
 	MOVEM	B,(C)		; STORE STATE
 	MOVE	B,E
 	POPJ	P,
-
-ITSTRN: MOVEI   B,0
-        JRST    NLOSS
-        JRST    NLOSS
-        MOVEI   B,1
-        MOVEI   B,2
-        JRST    NLOSS
-        MOVEI   B,4
-        PUSHJ   P,NOPND
-        MOVEI   B,0
-        JRST    NLOSS
-        JRST    NLOSS
-        PUSHJ   P,NCLSD
-        MOVEI   B,0
-        JRST    NLOSS
+î
+ITSTRN: MOVEI   B,0î
+        JRST    NLOSSî
+        JRST    NLOSSî
+        MOVEI   B,1î
+        MOVEI   B,2î
+        JRST    NLOSSî
+        MOVEI   B,4î
+        PUSHJ   P,NOPNDî
+        MOVEI   B,0î
+        JRST    NLOSSî
+        JRST    NLOSSî
+        PUSHJ   P,NCLSDî
+        MOVEI   B,0î
+        JRST    NLOSSî
 	MOVEI	B,0
 
 NLOSS:	FATAL ILLEGAL NETWORK STATE
@@ -4243,7 +4243,7 @@ BFCLS1:	HRRZ	C,DIRECT-1(B)
 	MOVEI	A,40		; PAD WITH SPACES
 	PUSHJ	P,PUTCHR
 	XCT	(P)		; AOS ACCESS IF NECESSARY
-	SOJG	D,.-3		; TO END OF WORD
+	SOJG	D,.-3		; TO END OF WORDî
 BCLS11:	POP	P,0
 	HLLZS	ACCESS-1(B)
 	HRRZ	C,BUFSTR-1(B)

src/mudsys/initm.372

@@ -496,7 +496,7 @@ IFE ITS,	MOVE	C,[HALTF]
 IFE ITS,	SKIPE	OPSYS
 	MOVE	C,[ASCII \0/9\]
 	MOVE	D,[ASCII \B/1Q\]
-	MOVE	E,[ASCIZ \
*
\]		;TERMINATE
+	MOVE	E,[ASCIZ \<EFBFBD>*<EFBFBD>\]		;TERMINATE
 	POPJ	P,		; GO
 
 ; CHECK PAIR SPACE

src/mudsys/mappur.147

@@ -1335,7 +1335,7 @@ NOFXU2:	MOVE	A,TEMP(P)		; GET BACK POINTER
 
 GETIT:	HRRZM	B,SPAG(P)		; GET BLOCK OF START
 	HLRZM	B,FLEN(P)		; DAMMIT SAVE THIS!
-	HLRZ	A,B			; GET LENGTH
+	HLRZ	A,B			; GET LENGTHî
 IFN ITS,[
 	.CALL	MNBLK
 	PUSHJ	P,TRAGN

src/mudsys/muddle.347

@@ -991,7 +991,7 @@ TERMIN
 ; MACRO TO HANDLE FATAL ERRORS
 
 DEFINE FATAL MSG/
-	FATINS	[ASCIZ /: FATAL ERROR MSG 
/]
+	FATINS	[ASCIZ /: FATAL ERROR MSG î/]
 	TERMIN
 ]
 

src/mudsys/print.340

@@ -54,7 +54,7 @@ C.READ==40
 	GETYP	A,2(AB)
 	CAIE	A,TFIX
 	JRST	WTYP2		;SECOND ARG NOT FIX THEN LOSE
-
	CAMG	AB,[-4,,0]	;SEE IF THERE IS A RADIX ARGUMENT
+î	CAMG	AB,[-4,,0]	;SEE IF THERE IS A RADIX ARGUMENT
 	JRST	.+3		; RADIX SUPPLIED
 	PUSHJ	P,GTRADX	; GET THE RADIX FROM OUTCHAN
 	JRST	FLTGO
@@ -92,7 +92,7 @@ MFUNCTION UNPARSE,SUBR
 	GETYP 	0,2(AB)
 	CAIE	0,TFIX		;SEE IF RADIX IS FIXED
 	JRST	WTYP2
-	MOVE	C,3(AB)		;GET RADIX
+	MOVE	C,3(AB)		;GET RADIXî
 	PUSHJ	P,GETARG	;GET ARGS INTO A AND B
 UNPRGO:	PUSHJ	P,CIUPRS
 	JRST	FINIS
@@ -417,20 +417,20 @@ CPCSTR:	SUBM	M,(P)
 	JRST	TPR1E		; EXIT
 
 
-CPATOM:	PUSH	TP,A		; COPY ARGS FOR INTERNAL SAKE
+CPATOM:	PUSH	TP,A		; COPY ARGS FOR INTERNAL SAKEî
 	PUSH	TP,B
 	PUSH	P,0		; ATOM CALLER ROUTINE
 	PUSH	P,C
 	JRST	PATOM
 
-CPCHST:	PUSH	TP,A		; COPY ARGS FOR INTERNAL SAKE
+CPCHST:	PUSH	TP,A		; COPY ARGS FOR INTERNAL SAKEî
 	PUSH	TP,B
 	PUSH	P,0		; STRING CALLER ROUTINE
 	PUSH	P,C
 	JRST	PCHSTR
 
 
-
+î
 AGET:	MOVEI	FLAGS,0
 	SKIPL	E,AB		; COPY ARG POINTER
 	JRST	TFA		;NO ARGS IS AN ERROR
@@ -802,7 +802,7 @@ PPCODE:	MOVEI	A,2
 	MOVE	B,-4(TP)	; GET CHANNEL INTO B
 	PUSHJ	P,SPACEQ
 	HRRZ	B,-2(TP)	; GET OFFSET
-	MOVSI	A,TFIX
+	MOVSI	A,TFIXî
 	PUSHJ	P,IPRINT
 	SUB	TP,[2,,2]	; POP CHANNEL OFF STACK
 	MOVEI	A,">

src/mudsys/stenex.11

@@ -250,7 +250,7 @@ IFE F,[
 E=600000+N]
 IFN F,[
 E=600000+N+F_21]
-TERMIN
+TERMINî
 
 ...QQQ LGINX1,10
 ...QQQ LGINX2,11

src/mudsys/utilit.104

@@ -97,7 +97,7 @@ EGCDUM:	PUSH	P,A				; SAVE LENGTH
 TRAGN:	PUSHJ	P,PGFIND			; TRY TO GET PAGES
 	JUMPL	B,GCDPLS			; LOSSAGE?
 	POP	P,A				; GET # OF PAGES
-	PUSH	P,B				; SAVE B
+	PUSH	P,B				; SAVE Bî
 	MOVNS	A				; BUILD AOBJN POINTER
 	HRLZS	A
 	ADDI	A,FPAG/2000			; START