Fixed typos.

[retro-software/dec/tops10/v4.5.git] / src / mtasrx.mac

diff --git a/src/mtasrx.mac b/src/mtasrx.mac
index 87e7435..93f2e20 100644 (file)
--- a/src/mtasrx.mac
+++ b/src/mtasrx.mac
@@ -23,7 +23,7 @@ MTADSP:       JRST    MTAREL          ;RELEASE
        JRST    CPOPJ1          ;RENAME\r
        POPJ    PDP,            ;CLOSE INPUT\r
        POPJ    PDP,            ;UTPCLR\r
-       JRST    MTAP0T\r
+       JRST    MTAP0\r
 \r
 MTC=340\r
 MTS=344\r
@@ -34,7 +34,7 @@ MTS=344
 ;MTBOTH=10*MTACHN+MTDCHN\r
 ;MTALOC=40 + 2*MTDCHN\r
 ;MTLOC1=MTALOC+1\r
-       INTERN  MTAINI,MTADDS,MTADDB\r
+       INTERN  MTAINT,MTADDS,MTADDB\r
        EXTERN  ADVBFE,ADVBFF,MTFLAG,MTBOTH,SETACT,CLRACT,WSYNC\r
        EXTERN  STDENS,SETIOD,MTREQ,MTAVAL,CLOCK,MTALOC,MTLOC1,OUT\r
        EXTERN  CPOPJ,CPOPJ1,PIOMOD,PUNIT,MTWAIT,JIFSC2,COMCHK\r
@@ -57,7 +57,7 @@ MTADDB:       SIXBIT  /MTA0/
        0\r
        XWD     PROG,0\r
        XWD     PROG,0\r
-       XP      MTADDS,.-MTADB  ;SIZE OF DDB (FOR BUILD)\r
+       XP      MTADDS,.-MTADDB ;SIZE OF DDB (FOR BUILD)\r
 \f;INITIALIZE\r
 MTAINI:        SETOM   NMTREW          ;RESET FLAGS\r
        SETOM   UNIT\r
@@ -99,7 +99,7 @@ HUNGTP:       TLZN    IOS,MTREW       ;TAPE REWINDING?
        JRST    THRUTP  ;NO. GIVE UP CONTROL\r
        SOS     NMTREW  ;YES. DECREASE COUNT OF TAPES IN REW\r
        AOS     MTREQ           ;THRUTP WILL SOS THIS BACK\r
-       JRST    THRUPT  ;TURN OFF TM10\r
+       JRST    THRUTP  ;TURN OFF TM10\r
 \f;CONNECT CONTROL TO A TRANSPORT\r
 CONECT:        MOVEI   TAC,440102      ;SET UP INTERRUPT CONDITIONS\r
        HRRM    TAC,MTAINT\r
@@ -173,7 +173,7 @@ RDYCHK:     CONSZ   MTS,40          ;READY?
        POPJ    PDP,            ;NO. COME BACK LATER\r
 MTCLK2:        SETOM   NMTREW          ;COUNT NO. OF TAPES REWINDING\r
        MOVEM   DEVDAT,SAVDEV\r
-       MOVEI   DEVDAT,MTADDR   ;START AT MTA0\r
+       MOVEI   DEVDAT,MTADDB   ;START AT MTA0\r
        AOS     MTREQ           ;MAKE SURE NO OTHER MTA REQUESTS ARE HONORED NOW\r
 REWCHK:        MOVE    IOS,DEVIOS(DEVDAT)\r
        JUMPGE  IOS,REWCK2      ;TAPE NOT REWINDING\r
@@ -245,7 +245,7 @@ MTAREL:     TLZ     IOS,COMPAT      ;NOT IBM COMPAT
 ;SKIP TO LOGICAL EOT\r
 LEOT:  CONSZ   MTS,100000      ;TAPE AT BOT?\r
        JRST    LEOT2           ;YES, DONT BACKSPACE\r
-       PUSHJ   PDP,MTAG0       ;BACKSPACE RECORD\r
+       PUSHJ   PDP,MTAGO       ;BACKSPACE RECORD\r
        PUSHJ   PDP,EOTWT       ;WAIT FOR IT\r
 LEOT2: MOVEI   UUO,16          ;SKIP A FILE\r
        PUSHJ   PDP,MTAP2\r
@@ -253,7 +253,7 @@ LEOT2:      MOVEI   UUO,16          ;SKIP A FILE
        PUSHJ   PDP,MTAP\r
        PUSHJ   PDP,EOTWT       ;WAIT FOR IT\r
        MOVE    IOS,DEVIOS(DEVDAT)\r
-       TRNN    IOS,IODENT      ;END OF FILE SEEN?\r
+       TRNN    IOS,IODEND      ;END OF FILE SEEN?\r
        JRST    LEOT2           ;NO. SKIP TO NEXT FILE\r
        MOVEI   UUO,7           ;YES. BACKSPACE RECORD\r
 \r
@@ -286,7 +286,7 @@ MTOUT1:     MOVEI   TAC,@DEVOAD(DEVDAT) ;ADDRESS OF BUFFER
 MTOUT2:        TRO     TP,4000         ;FUNCTION = WRITE\r
        MOVSI   TAC1,(BLKO MTC,) ;SETUP BLKO\r
 MTDTGO:        MOVEM   TAC,PNTR        ;SAVE BLKI/BLKO POINTER\r
-       MOVEM   TAC,SVNPTR      \r
+       MOVEM   TAC,SVPNTR      \r
        HRRI    TAC1,PNTR       ;BLKI/BLKO PNTR\r
        MOVEM   TAC1,MTALOC     ;INTO INTERRUPT LOC\r
        HRLM    TP,USEWRD       ;SAVE COMMAND\r
@@ -358,17 +358,17 @@ THRUT3:   HLRZ    TP,USEWRD       ;GET UNIT
 MTDEND:        0\r
        CONO    MTS,1           ;GIVE A FUNCTION STOP\r
        JEN     @MTDEND         ;AND EXIT\r
-\fDATENO:       CONSZ   MTS,20600       ;RECORD OK?\r
+\fDATEND:       CONSZ   MTS,20600       ;RECORD OK?\r
        JRST    RETRY           ;PARITY, DATA LATE OR BAD TAPE\r
 DATND2:        TLNE    IOS,DMPMOD      ;DUMP MODE?\r
-       JRST    CMPEND          ;YES\r
+       JRST    DMPEND          ;YES\r
        TLNN    IOS,IO          ;READING?\r
        JRST    INPTND          ;YES, FINISH INPUT\r
-ADVOUT:        PUHSJ   PDP,ADVBFE      ;WRITING, ADVANCE BUFFERS\r
+ADVOUT:        PUSHJ   PDP,ADVBFE      ;WRITING, ADVANCE BUFFERS\r
                                ;END OF TAPE?\r
        JRST    THRUTP          ;YES, DONT WRITE ANY MORE\r
 NXTREC:        TLZE    IOS,IOW         ;IN IO WAIT?\r
-       PUSHJ   PDP,GETIOD      ;RESTART JOB\r
+       PUSHJ   PDP,SETIOD      ;RESTART JOB\r
        SOSG    QUANTM          ;COUNT DOWN PROTECT TIME\r
        SKIPG   MTREQ           ;ANYONE ELSE WANT CONTROL?\r
        CONSZ   MTS,4000        ;NO. KEEP GOING UNLESS EOT\r
@@ -425,7 +425,7 @@ DMPBLK:     PUSHJ   PDP,NXTCOM      ;GET NEXT COMMAND
        ADDI    TAC,(PROG)      ;ADD RELOCATION FACTOR\r
        TLNE    IOS,IO          ;WRITING?\r
        JRST    MTOUT2          ;YES. GO WRITE RECORD\r
-       TRMN    IOS,1\r
+       TRNN    IOS,1\r
        TRO     TP,10000        ;OR - READ ACROSS RECORD BOUNDARIES\r
        JRST    MTIN2           ;GO READ RECORD(S)\r
 \r
@@ -449,7 +449,7 @@ NXTCM3:     HLRE    TAC1,TAC        ;YES. GET WORDCOUNT
        POPJ    PDP,            ;NO, GO WRITE\r
        ADD     TAC,[XWD MTSIZ,MTSIZ] ;YES.\r
        MOVEM   TAC,REMNDR      ;IOWD TO USE FOR NEXT RECORD\r
-       SUBI    TAC,MTSIZE      ;ADDRESS FOR THIS IOWD\r
+       SUBI    TAC,MTSIZ       ;ADDRESS FOR THIS IOWD\r
        HRLI    TAC,MMTSIZ      ;WRITE -MTSIZE WORD RECORDS\r
        POPJ    PDP,            ;RETURN THE IOWD\r
 REMNDR:        0\r
@@ -476,7 +476,7 @@ DATEOF:     TLO     IOS,IOEND       ;EOF - LIGHT BIT
        JRST    THRUTP          ;AND GIVE UP CONTROL\r
 \r
 ;TRY AGAIN ON PARITY ERROR OR BAD TAPE\r
-RETRY: TRNN    IOS,ONRCK       ;WANT TO STOP ON ERROR?\r
+RETRY: TRNN    IOS,IONRCK      ;WANT TO STOP ON ERROR?\r
        AOSL    TAC,ERCNT       ;OR TRIED ENOUGH?\r
        JRST    PERMER          ;YES. PERMANENT ERROR\r
 RETRY1:        MOVEI   TAC,2           ;SET RETRY SWITCH\r
@@ -534,3 +534,4 @@ PNTR:       0
 SVPNTR:        0\r
 MTAEND:        END\r
 \f\r
+\0\0\r