Cleaned up more typos and fixed paging issues.

[retro-software/dec/tops10/v4.5.git] / src / macro.v46

diff --git a/src/macro.v46 b/src/macro.v46
index b6be933..b67d60d 100644 (file)
--- a/src/macro.v46
+++ b/src/macro.v46
@@ -2,9 +2,9 @@ TITLE   MACRO V.46(52)
 SUBTTL  RPG/CMF/JF/PMH/DMN     7-SEPT-71\r
 ;COPYRIGHT 1968,1969,1970,1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.\r
 \r
-       VMACRO==46              ;VERSION NUMBER\r
+       VMACRO==36              ;VERSION NUMBER\r
        VUPDATE==0              ;DEC UPDATE LEVEL\r
-       VEDIT==52               ;EDIT NUMBER\r
+       VEDIT==0                ;EDIT NUMBER\r
        VCUSTOM==0              ;NON-DEC UPDATE LEVEL\r
 \r
 \r
@@ -73,7 +73,7 @@ IFNDEF KI10,<KI10==0>
 \fSUBTTL        OTHER PARAMETERS\r
 \r
 .PDP== ^D50            ;BASIC PUSH-DOWN POINTER\r
-IFNDEF LPTWID,<LPTWID==^D132>  ;DEFAULT WIDTH OF PRINTER\r
+IFNDEF LPTWID,<LPTWID==^D120>  ;DEFAULT WIDTH OF PRINTER\r
 .LPTWD==8*<LPTWID/8>           ;USEFUL WIDTH IN MAIN LISTING\r
 .CPL== .LPTWD-^D32             ;WIDTH AVAIABLE FOR TEXT WHEN\r
                                ;BINARY IS IN HALFWORD FORMAT\r
@@ -2375,10 +2375,10 @@ LOOKL:  SOJL    SDEL,POPOUT     ;TEST FOR END
        MOVEM   RC,VECREL\r
        PUSHJ   PP,VARA         ;FILL OUT SELF-DEFINED VARIABLES\r
        PUSHJ   PP,STOUTS       ;DUMP THE LINE\r
-       PUSH    PP,IO           ;SAVE FLAGS\r
-       TLO     IO,IOPROG       ;XLIST LITS\r
+;      PUSH    PP,IO           ;SAVE FLAGS\r
+;      TLO     IO,IOPROG       ;XLIST LITS\r
        PUSHJ   PP,LIT1\r
-       POP     PP,IO           ;GET FLAG BACK\r
+;      POP     PP,IO           ;GET FLAG BACK\r
        JUMP2   ENDP2\r
 \r
        PUSHJ   PP,UOUT\r
@@ -7776,4 +7776,4 @@ IFN PURESW,<LOWEND==.-1
 \r
        END     BEG\r
 \f\r
-\0\0\0\0
\ No newline at end of file
+\0\0\0\0\r