Bincom to match binary.

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