X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/macro.v46 diff --git a/src/macro.v46 b/src/macro.v46 index 0ade69b..b67d60d 100644 --- 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 ;COPYRIGHT 1968,1969,1970,1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. - VMACRO==46 ;VERSION NUMBER + VMACRO==36 ;VERSION NUMBER VUPDATE==0 ;DEC UPDATE LEVEL - VEDIT==52 ;EDIT NUMBER + VEDIT==0 ;EDIT NUMBER VCUSTOM==0 ;NON-DEC UPDATE LEVEL @@ -73,7 +73,7 @@ IFNDEF KI10, SUBTTL OTHER PARAMETERS .PDP== ^D50 ;BASIC PUSH-DOWN POINTER -IFNDEF LPTWID, ;DEFAULT WIDTH OF PRINTER +IFNDEF LPTWID, ;DEFAULT WIDTH OF PRINTER .LPTWD==8* ;USEFUL WIDTH IN MAIN LISTING .CPL== .LPTWD-^D32 ;WIDTH AVAIABLE FOR TEXT WHEN ;BINARY IS IN HALFWORD FORMAT @@ -2375,10 +2375,10 @@ LOOKL: SOJL SDEL,POPOUT ;TEST FOR END MOVEM RC,VECREL PUSHJ PP,VARA ;FILL OUT SELF-DEFINED VARIABLES PUSHJ PP,STOUTS ;DUMP THE LINE - PUSH PP,IO ;SAVE FLAGS - TLO IO,IOPROG ;XLIST LITS +; PUSH PP,IO ;SAVE FLAGS +; TLO IO,IOPROG ;XLIST LITS PUSHJ PP,LIT1 - POP PP,IO ;GET FLAG BACK +; POP PP,IO ;GET FLAG BACK JUMP2 ENDP2 PUSHJ PP,UOUT @@ -7776,3 +7776,4 @@ IFN PURESW,