cleaned up typos

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

diff --git a/src/dtasrn.mac b/src/dtasrn.mac
index 1386af8..37a077f 100644 (file)
--- a/src/dtasrn.mac
+++ b/src/dtasrn.mac
@@ -319,7 +319,7 @@ ENTRA:      SUBI    UUO,2           ;NO. POINT TO NAME
                                ;IS A SAVE FILE (UGETF DONE)\r
        MOVEI   BLK,DIRBLK      ;NO. GET 1ST BLOCK CLOSE TO\r
        TLO     IOS,RVERSE      ;DIRECTORY. GOING IN REVERSE\r
-       POPJ    PDP,USLSTA\r
+       PUSHJ   PDP,USLSTA\r
        CAILE   BLK,TOPBLK      ;BLOCK LEGAL?\r
        POPJ    PDP,            ;NO. ERROR RETURN\r
 ENTRC: MOVEM   BLK,FSTBLK(DEVDAT) ;SAVE AS 1ST BLOCK\r
@@ -680,7 +680,7 @@ TOUSR1:     MOVEM   UUO,USPNTR      ;SAVE IT
        MOVEM   UUO,SVPNTR\r
        ADDI    TAC,(PROG)      ;RELOCATE ADDRESS OF 1ST IOWD\r
        MOVEM   TAC,PNTR        ;AND SAVE IT\r
-       MOVE    TAC,[JSP DMPADV] ;SET UP LOC FOR WHEN\r
+       MOVE    TAC,[JSR DMPADV] ;SET UP LOC FOR WHEN\r
        MOVEM   TAC,DTALC2      ;IOWD IS EXHAUSTED\r
        HRRZM   PROG,ADRPRG     ;SAVE JUST ADDRESS OF PROG\r
        TLO     IOS,NOBUF       ;INDICATE DIRECTLY TO USER\r
@@ -1021,7 +1021,7 @@ ALMREQ:   XWD     .+1,1
 \r
 ;HERE WHEN SWAPPER DOES GET THE JOB BACK INTO CORE\r
 SWPBAK:        MOVE    IOS,DEVIOS(DEVDAT)\r
-       SETM    MONB2           ;CLEAR JOB NO, FROM MON BUFFER\r
+       SETZM   MONB2           ;CLEAR JOB NO, FROM MON BUFFER\r
        TLNN    IOS,IOFST       ;WAS JOB SWAPPED OUT WHEN DATA FINISHED?\r
        POPJ    PDP,            ;NO. TRANSFER COMPLETED\r
        MOVE    TAC,JBTSTS(ITEM) ;YES, WAS IO ABORTED?\r