From: Richard Cornwell <rcornwell@github.com>
Date: Tue, 20 Nov 2018 03:12:23 +0000 (-0500)
Subject: Bincom to match binary.
X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/commitdiff_plain/1e0acafa59d441002886ecbcade73ef25b33bf48

Bincom to match binary.
---

diff --git a/src/bincom.mac b/src/bincom.mac
index f7af610..79456be 100644
--- a/src/bincom.mac
+++ b/src/bincom.mac
@@ -24,7 +24,7 @@ COMP:	CLOSE	CTL,
 	RELEAS	CTL,
 	RELEAS	IN1,
 	RELEAS	IN2,
-COMPGO:	RESET
+COMPGO:	CALLI   0
 	SETZM	PPSET		;THIS IS THE ZERO WHICH WILL
 				;BE "BLT"ED TO CLEAR STORAGE
 	MOVE	[XWD PPSET,PPSET+1]	;ZERO STORAGE AREA
@@ -43,7 +43,7 @@ COMPGO:	RESET
 	OUTPUT	CTL,		;OUT GOES THE "*"
 	INPUT	CTL,		;HERE COMES THE	COMMAND STRING
 	PUSHJ	PP,NAME1	;ANALYIZE OUTPUT DEVICE AND NAME
-	CAIE	C,137
+	CAIE	C,"_"
 	JRST	INDEV+1
 	JUMPE	ACDEV,INDEV
 	MOVE	13,AZDEV	;GET ASCII NAME OF OUTPUT DEVICE
@@ -176,7 +176,7 @@ SPTOCT:	PUSHJ	PP,TABOUT	;PRINT OUT NUMBER IN SPLIT OCTAL
 
 ;ROUTINES FOR OUTPUTING ERROR MESSAGES
 ERRO:	SKIPA	11,[[ASCIZ /?OUTPUT INITIALIZATION ERROR/]]
-ERRS:	MOVEI	11,[ASCIZ /?FILE BEING COMPARED ON SAME INPUT DEVICE/]
+ERRS:	MOVEI	11,[ASCIZ /?FILES BEING COMPARED ON SAME INPUT DEVICE/]
 ERROUT:	PUSHJ	17,TYPMSG
      	JRST	CARR
 
@@ -276,7 +276,7 @@ ERRI:	MOVEI	11,[ASCIZ /?DEVICE /]
 	SETZB	ACFILE,AZEXT
 	SETZB	ACEXT,AZTEM+1
 
-NAME3:	MOVE	16,[POINT 7,AZTEM]	;THIS IS A POINTER FOR DEPOSITING THE
+NAME3:	MOVE	16,[XWD 700,AZD+1]	;THIS IS A POINTER FOR DEPOSITING THE
 				;ASCII CHARACTERS IN CASE AN INPUT
 				;ERROR IS DECTECTED--FOR THEN WE WILL
 				;HAVE TO PRINT THESE NAMES OUT
@@ -291,7 +291,7 @@ GETIOC:	PUSHJ	PP,TTYIN	;GET INPUT CHARACTER
 	JRST	NAME		;YES
 	CAIN	C,","		;THIS IS ANOTHER WAY TO GET A FILE NAME
 	JRST	TERM
-	CAIE	C,137		;ONE KIND OF SEPERATOR
+	CAIE	C,"_"		;ONE KIND OF SEPERATOR
 	CAIG	C,15		;THIS ALSO MEANS WE HAVE FINISHED A TERM
 	JRST	TERM		;TERM HAAS BEEN READ
 	SUBI	C,40		;CONVERT TO 6-BIT