There are 24 other files named glxver.mac in the archive. Click here to see a list.
SUBTTL GLXVER GLXLIB Version file
; Assembly Instructions:
; COMPILE GLXVER+GLXMAC
LODLEV==2 ;INCREMENT TO FORCE RECOMPILE OF LIBRARY
%%.GLX==7 ;INCREMENT TO FORCE RECOMPILE OF ALL PROGRAMS
; *** N o t e Edit Levels here must match MODULE EDIT NUMBER
; Symbol MOD'EDT Where MOD is the 3 character
; abbreviation for the module (i.e. MAC would be
; MACEDT, IPC would be IPCEDT etc.)
;The load of the library = the sum of the module edits
GLXLOD==:000527 ;Sum of GLX module edits
;Following are Module edit definitions. Each line should appear
; GLX MOD,EDT,LOD,GCO,WHO,DATE,NOTE
;Where: MOD is 3 character module abbreviation
; EDT is Edit level for module (must match module)
; LOD The GLXLOD sum after application of the edit
; GCO The Galaxy Change Order number (0 if no GCO)
; WHO initials of person who installed this edit
; DATE date edit was installed
; NOTE a one line note to be displayed when the module is assembled
; (e.g. GLX FOO,15,PJT,19-Nov-78,? Requires New GLXSCN
; would cause "? Requires New GLXSCN" to be printed
; when GLXFOO is assembled)
;When Marking and edit for a module, Just put ";;" before the
;existing edit information to keep it as a comment. Then insert the
;new edit information on the line preceeding the line just commented.
;The VEREDT editor does this all for you
DEFINE MODULES <
;; Fix a bug. Initialize LINPTR in T%TEXT init code.
GLX TXT,35,527,0,AWC, 9-Nov-79,
;; Changed PUTU so that if DIRST fails, we put
;; out some text and do not stopcode.
;;GLX TXT,34,526,0,AWC, 7-Nov-79,
;; Merge in PARUNV to GLXMAC
GLX MAC,142,525,0,MLB, 3-Oct-79,
;; Changing calling convention for CNTDT to use S1 and S2
;; ADD SUPPORT FOR .CMTAD IN GLXSCN
;; Add symbols on -10 for the .CMTAD function in GLXSCN
;; CHANGE CALLING CONVENTION TO NUMIN ROUTINE TO CONFORM
;; TO STANDARD GALAXY ROUTINES USING S1 AND S2
;; SUPPORT OUTPUT FILES ON THE -10 WITH COMND, NULL INPUT AND OUTPUT,
;; AND CM%BRK ON THE -10
;; Add MAPERR code for the -20 and change INTREL to do a
;; RLJFN on the -20 if the CLOSF fails (OPENF failed but
;; GTJFN succeeded).
;; Change F%DEL to do F%AOPN instead of F%OOPN
;; Change F%DREL CHKAC on TOPS20 to check for write access
;; instead of directory access.
;; SUPPORT THE VT100 KEYPAD.
;; Change the Unrecognized Control Character Message to Ambiguous and
;; adjust the casing on all error messages
;; Fix F%DEL to do F%OOPN so we get write access check
;; on user's behalf instead of read.
;; Make F%REN give back IFN if file structure is different
;;GLX FIL,44,510,0,DC, 9-Aug-79,
;; DO NOT ALLOW NULL NODE NAMES
;;GLX SCN,33,507,0,MLB, 8-Aug-79,
;; Make F%CHKP return 0 for an input file which has not
;; yet been read.
;; Don't page out symbols until first timer trap,
;; and then do it with 1 or two PAGE. UUOs
;; Fix F%DREL to lite PRV bit and exit through INTREL on errors.
;; Fix CHKIFN to prevent 'Illegal IFN Stopcode' for valid IFN's.
;; Make F%REW & F%POS not loop forever when positioning null files.
;; Make F%REW & F%POS return FDE if GETBUF returns FDE.
;; Added code to adjust Greenwich time to local time
;; inline on the 20 thus avoiding expensive calls to
;; ODTIM. It is expected that this change will greatly
;; reduce the overhead involved in outputting dates/times.
;; TOPS10... fix K%INIT to not tell monitor of terminal type which
;; we just got from the monitor!
;; Fix .ZCHNK to exit if calling count is zero
GLX COM,32,477,0,PJT, 9-Jul-79,
;; Fix the padding of nulls on output to not add any if
;; on a full word boundary.
;;GLX FIL,37,476,0,MLB, 9-Jul-79,
;; Change the text of the GLXLIB incompatible message.
GLX INT,47,475,0,MLB, 5-Jul-79,
;; Change GLXINT incompatible GLXLIB to just a call to K%SOUT
;; instead of $FATAL since library is not initialized. Change I%EXIT
;; to remove the $FATAL for same reason. Also define %%.GLX in all
;; non-library modules and have GLXINI reference it external.
GLX INI,7,474,0,MLB, 3-Jul-79,
;;GLX INT,46,474,0,MLB, 3-Jul-79,
;;GLX MAC,137,474,0,MLB, 3-Jul-79,
;; Add code for .MSFLG in the WTO macros
;; Make GLXVRS symbol external and on the -20
;; Save the STOPCODE name in the File Spec Name
;; USED TRVARS TO PROVIDE SPACE FOR STRING USED IN GTJFN
;; CHANGED THE GET SO THAT IT BRINGS IN THE ENTIRE EXE
;; FILE INSTEAD OF SELECTED PAGES
;; Change the $FATAL message on version skew to show the
;; version numbers.
;; CHANGE F%REN SO THAT IF THE SECOND IFN GET
;; FAILS, IT RELEASES THE FIRST BEFORE RETURNING
;; AN ERROR
;; Remove REL: from require of GLXINI in GLXMAC
;; 1) Most of our stuff will be hard to link
;; 2) Anyone else can just as easliy define DSK: as DSK:, REL:
;; TOPS10.. Make K%INIT use extended channel instead of F%FCHN
;; and make K%STYP tell the monitor about the change
;; Fix -10 LDLEB to not make a path block if caller gives 0 for a PPN
;; even if the passed FB is long enough to contain a path block
;; Fixed -10 OPNERR to RELFB so IFNTAB slots don't disappear
;; Change .REQUIRE to REL:GLXINI so that people can easily link in.
;; 1) Move PFH into the library.
;; 2) Rearrange $DATA so that it puts library data in a PSECT DATA
;; 3) Add the GLXPURE assembly switch so that the library can be linked
;; into a low segment.
;; Add a new module GLXPFH.
;; Fix WTO range check stopcode to give a hint of where things went wrong
;; Changed the text description of .OTMNT to 'Device"
;; Modified PROB in GLXTXT to output units for .OTMNT as sixbit
;; CHANGE THE SEND QUOTA CODE TO ADD THE SEND QUOTA REQUESTED
;; TO THE CURRENT QUOTA INORDER TO GET THE NEW SEND QUOTA.
;; CORRECT THE EXTRA LINE APPEARING AFTER ? ON HELP. THIS INCLUDES
;; THE EXTRA ONE ON SOME KEYWORD/SWITCH TABLES
;;GLX SCN,32,445,0,MLB, 7-Jun-79,
;; -10, Use job number as PID when conversing with INFO to
;; get PIDs of debugging components.
;;GLX IPC,42,444,0,DC, 6-Jun-79,
;; Add Support for L%APOS - Position to a link via its address.
GLX LNK,5,443,0,AWC, 6-Jun-79,
;;GLX MAC,131,443,0,AWC, 6-Jun-79,
;; -10, Make erase to end of screen work for VT05s.
;; Broken when installing TRMTYP macros.
;;GLX MAC,130,441,0,DC, 5-Jun-79,
;; -10, Clear EOF after USETI to EOF during position
;; request which would change buffers
;;GLX FIL,33,440,0,DC, 1-Jun-79,
;; On the -10, don't try to release the channel if the OPEN fails.
;; Since the channel isn't assigned until the OPEN wins, we'd release
;; channel 0!! (Broke BATCON)
;; Fix output code on the -20 to zero the remainder of the last word written in
;; the buffer before writing the buffer out.
;; Fix a library bug in memory manager. Make .ZCHNK zero
;; the correct number of words if length is 1. Make DCT.MN=1.
;; Fix a bug in wait logic for debugging system if component does not
;; yet exist.
;;GLX IPC,41,433,0,AWC, 7-May-79,
;; Remove WT.SJI from being set on WTOR if ACK code specified. Also,
;; change $ACK to lite WT.SJI
;;GLX INT,41,432,0,MLB, 7-May-79,
;;GLX MAC,126,432,0,MLB, 7-May-79,
;; Write system PID table after setting MYPID. This way, we don't
;; send to IPCC with 0 for a PID to write the table.
;; Fix expansion of TRMTYP so TTTAB has 0 in RH for non-video terminal
;; TOPS10 - Set up job number as PID when getting a pid
;; Fix object block BLT in WTO logic
;; Make TRMTYP macro which will expand parse tables, sixbit tables,
;; cursor control tables, etc. Use it in GLXKBD, and in OPR, ORNMAC, OPRCMD.
;; fix SAVCRS to put null on end of CRASH name.
;; Disallow Send with 0 PID.
;; In C%SEND, return ERARG$ if the message length is 0.
;; Fix WTO action routines so that args in S1, S2 work.
;; Added .OTDBM for DBMS system.
;;GLX MAC,124,416,0,AWC, 3-Apr-79,
;; Made MAXPAK global in IPC.
;; Made I%WTO send a packet whenever possible.
;; Make MAPERR save the TOPS20 system error code in .LGERR,
;; not the GALAXY system error code. We still return the
;; GALAXY error code in S1 as before.
;; ADD NEW WTO SUPPORT ROUTINES FOR APPLICATION CODE AND
;; OBJECT TYPE BLOCK
;; Fix some bugs and make LSN processing faster
;; fix CM%NOP to return true on the -20
;; Fix a problem in the file positioning code which caused holes in
;; some files.
;; Fixed a bug in PROLOG to define entry vector offsets with ^O
;; Make IFNs start at 1 rather than 0.
;; Rework GLXFIL to resolve a number of internal problems and
;; cleanup the code.
;; Fix bug in ITEXT expansion of $FATAL and don't allow $FATAL to enter DDT
;; CORRECT MAXIMUM PID SETTING PROBLEM
;; Change PROLOG to process GLXINI as a library component and Equate entry
;; vector symbols in GLXINI.
;; Change PROLOG to DEFINE library entry points as MACROS for non library
;; components. This allows Pseudo instructions which reference the entry
;; vector locations to be simple OPDEFS
;; Changed $CALL $RETT $RETF to simple OPDEFS
;; Change LOAD, STORE, INCR, DECR and ZERO to skip structure stuff if called
;; without a possible structure name.
;;GLX MAC,117,375,0,PJT, 9-Mar-79,
;; Changed SAVE macro calls to $SAVE
;;GLX FIL,23,374,0,PJT, 9-Mar-79,
;;GLX INT,34,374,0,PJT, 9-Mar-79,
;;GLX IPC,32,374,0,PJT, 9-Mar-79,
;;GLX KBD,16,374,0,PJT, 9-Mar-79,
;;GLX MAC,116,374,0,PJT, 9-Mar-79,
;;GLX SCN,30,374,0,PJT, 9-Mar-79,
;; Changed LOAD, STORE, INCR, DECR and ZERO macros to skip structure check
;; if called with no possible structure
;;GLX MAC,115,366,0,PJT, 9-Mar-79,
;; Added $FATAL processing to Stopcode processor
;;GLX COM,25,365,0,PJT, 8-Mar-79,
;; FIX SETTING OF MAXIMUM NUMBER OF PIDS TO READ THEM FIRST AND
;; ADD IN THE REQUESTED AMOUNT.
;;GLX IPC,31,364,0,MLB, 8-Mar-79,
;; Move .BGINT into Prolog macro so that $BGINT can be used in
;; the Library
;;GLX MAC,114,363,0,MLB, 7-Mar-79,
;; MAKE C%KPID WORK (SORT OF) FOR NAMED PIDS ON THE -10.
;; ALSO KILL QUASARS PID AT END OF IPCF TESTER.
;;GLX IPC,30,362,0,DC, 7-Mar-79,
;; Enable Panic Channels on the -20 if PSI setup and
;; Save Crashes on the -20 if sending Stopcodes to
;; ORION and not debugging.
;; The File Spec for the SAVE is in SAVBUF a global area in GLXSCN
;;GLX COM,24,361,0,MLB, 7-Mar-79,
;;GLX INT,33,361,0,MLB, 7-Mar-79,
;;GLX SCN,27,361,0,MLB, 7-Mar-79,
;; Change Stopcode to use new ^E function for last -20 Error Code
;;GLX COM,23,356,0,MLB, 6-Mar-79,
;; Correct -10 Problem with ^B to check Node name and
;; Node Number to determine if at the same Node
;;GLX TXT,30,355,0,MLB, 6-Mar-79,
;; Change ^E to get buffer dynamicly and accept -2
;; for last TOPS20 error code
;;GLX TXT,27,354,0,MLB, 6-Mar-79,
;; Add processing to ^Q to allow ^Q/KEYTAB(S1),LHMASK/ to generate an asciz
;; pointer using the address specified in the left half of KEYTAB(S1)
;;GLX TXT,26,353,0,PJT, 5-Mar-79,
;; Removed name display from $FATAL and $WARN
;;GLX MAC,113,352,0,PJT, 2-Mar-79,
;; Added C%PIDJ library entry to return Pid's job number
;; Added C%PIDJ library entry to return Pid's job number
;; Preserve RCVMDB+MDB.MS during SNDSYS so C%REL will work properly in DEBUG
;; Make getting maximum packet size a part of C%INIT even if no PIB is specified
;; in IB
;; ADD CODE TO AVOID LOSING DATA ON REWIND OF SHORT FILES
;; Extend DEFSTR and MSKSTR definitions to allow index specification
;; within the LOCN field.
;; ADDED A STOPCODE TO GLXTXT FOR BAD ^E FUNCTION AND DISPLAYED
;; THE VALUE. THIS PREVENTS SKEW WITH NEW MONITOR DEFINED SYMBOLS
;; AND THE NEEDED VALIDITY CHECKING.
;; Added code to allow indexing and indirect on ^Q qualifier in $TEXT and ITEXT
;; Added $KWTOR macro for killing outstanding $WTOR requests.
;; ADD IB.PRG IN THE IB TO HOLD PROGRAM NAME
;;GLX COM,22,340,0,MLB, 9-Feb-79,
;;GLX INT,32,340,0,MLB, 9-Feb-79,
;; ADD ENTRY FOR MAXIMUM SMALL PACKET SIZE C%MAXP AND
;; WHEN DEBUGING TYPE OUT THE BECOMMING PID MESSAGE
;;GLX IPC,24,336,0,MLB, 5-Feb-79,
;;GLX MAC,107,336,0,MLB, 5-Feb-79,
;; ALLOW ^E ON THE -20 TO EXPAND 20 ERROR CODES.
;; THOSE CODES GREATER THAN 600000
;; Remove PJUMPN in tops10 conditional (replace with JUMPN)
;; Removed extra CRLF's from macro definitions of $TEXT, ITEXT, $WARN, $FATAL,
;; $STOP and a newly defined macro $ERROR.
;; Added module name display to $FATAL, $WARN and $ERROR
;; Bump edit number by 1 since I removed GLXWTO from GLXVER.
;; WTOEDT was 1, so the sum got off by 1 upon this removal
;; Fixed WTPJBN (WTO job number block processor) to
;; load a real WT.JOB code
;; Change FLD to look exaclty like INSVL.
;; Fixed DEFSTR and MSKSTR definitions to allow LOAD and STORE to function
;; as GETLIM and STOLIM currently do.
;; Fixed .STKST and .TRSET to operate properly so STKVAR and TRVAR will work
;; Change internal WTO opcodes from WT.xxx to WO.xxx
;; so we don't conflict with ORNMAC bit definitions
;; CHANGE WTO JOB BLOCK NAME TO WJB SO DON'T CONFLICT WITH
;; WT.JOB IN ORNMAC
;;GLX INT,27,323,0,DC, 9-Jan-79,
;;GLX MAC,101,323,0,DC, 9-Jan-79,
;; FIX GJBLOC ON THE -20
;;GLX INT,26,321,0,MLB, 9-Jan-79,
;; Changed $SET to operate with DEFSTR and MSKSTR defined structures.
;; The still operate with non-stucture offsets and masks
;;GLX MAC,100,320,0,PJT, 8-Jan-79,
;; Removed usage of PJUMPE opdef
GLX MEM,11,317,0,PJT, 5-Jan-79,
;; Removed usage of PJUMPE opdef
;;GLX TXT,22,316,0,PJT, 5-Jan-79,
;; Removed usage of PJUMPE and PJMPGE opdefs
;;GLX FIL,21,315,0,PJT, 5-Jan-79,
;; Removed ASUBR support code.
;;GLX COM,20,314,0,PJT, 4-Jan-79,
;; Removed JX* macros, PJUM* macros, ASUBR macros.
;;GLX MAC,77,313,0,PJT, 4-Jan-79,
;; Make BTA $STOP use new ITEXT
;;GLX TXT,21,312,0,DC, 4-Jan-79,
;; Restore S1,S2,TF after WTO
;;GLX INT,25,311,0,DC, 4-Jan-79,
;; Take advantage of new $STOP in BPN, IQN, etc
;;GLX INT,24,310,0,DC, 4-Jan-79,
;;GLX MEM,10,310,0,DC, 4-Jan-79,
;;GLX TXT,20,310,0,DC, 4-Jan-79,
;; Make $STOP generate ITEXT instead of ASCIZ.
;; Make $STOP do a real $WTO, if desired.
;;GLX COM,17,305,0,DC, 4-Jan-79,
;; Add a global version fetch routine
;;GLX INT,23,304,0,DC, 4-Jan-79,
;; Rework IB, install PIB
;;GLX INT,22,303,0,DC, 4-Jan-79,
;;GLX IPC,23,303,0,DC, 4-Jan-79,
;;GLX KBD,14,303,0,DC, 4-Jan-79,
;;GLX MAC,76,303,0,DC, 4-Jan-79,
;; Remove I%IWTO, I%SWTO, I%WTO finish new $WTO macros and support code
;;GLX INT,21,277,0,DC, 4-Jan-79,
;;GLX MAC,75,277,0,DC, 4-Jan-79,
;; Remove I%%WTO routines, begin rework of $WTO and support code
;;GLX INT,20,275,0,DC, 4-Jan-79,
;;GLX MAC,74,275,0,DC, 4-Jan-79,
;; MODIFY ? FOR TABLES WITH ONLY ONE ELEMENT IN THEM
;; Added symbols .OTXFR, and .OTBIN.
;; Change meaning of DEBUGW so -1 is on, 0 is off.
;; Debugging names are now based on SPIDS, not on IB.PRG
;; Add S%SIXB to entry vector, and support code in GLXSCN
;;GLX MAC,72,270,0,DC, 6-Dec-78,
;;GLX SCN,25,270,0,DC, 6-Dec-78,
;; FIX NODE FUNCTION TO SAVE RESULT WHEN CM%PO IS SET
;;GLX SCN,24,266,0,MLB, 6-Dec-78,
;; FIX ^N TO TAKE NODE NAME ON THE -10
;;GLX TXT,17,265,0,MLB, 5-Dec-78,
;; FIX GLXTXT ^R BUG IN -10 NAME OUTPUT OF ZERO SECOND WORD
;;GLX TXT,16,264,0,MLB, 4-Dec-78,
;; Fix S%TBLK to save the P regs
;;GLX SCN,23,263,0,DC, 1-Dec-78,
;; FIX $ACK CODE TO LITE WT.SJI TO SUPPRESS JOB INFO DISPLAY
;; CONVERT TO USE I%JINF
;; ADD I%JINF CALL TO LIBRARY
;; FIX CMDEV FUNCTIONS AND ADD ITEXT FOR EXPANDING ERRORS.
;; ALSO LET NODE TAKE PARSE ONLY
;; Change ^R Display
;; REORGANIZE THE SYSTEM PID TABLE AND REMOVE SP.IPC FROM -20
;; ADD STOPCODE TO ^R PROCESSING FOR BAD USER INFO IN JIB
;; ADD I%HOST TO THE LIBRARY
;;GLX INT,14,250,0,MLB, 9-Nov-78,
;;GLX MAC,67,250,0,MLB, 9-Nov-78,
;; Change Stopcode to use $HALT instead of I%EXIT to exit without a reset
;;GLX COM,16,246,0,, 9-Nov-78,
;; Fix a S%TBAD Bug had wrong AC for GETER return
;;GLX SCN,21,245,0,, 9-Nov-78,
;; ADD A NEW TEXT QUALIFIER ^R FOR DISPLAYING A JOB INFORMATION BLOCK AS
;; NOW DEFINED IN GLXMAC
;;GLX MAC,66,244,0,, 8-Nov-78,
;;GLX TXT,12,244,0,, 8-Nov-78,
;; Changed ERICA$ to ERARG$
;; Added 'PULSAR' to special pid name table for TOPS10
;; Spelling fixes -- cosmetics
;; Changed $CALL to do range check for entry vector
;; Defined VMAX as last absolute location of entry vector
;; Fix a bug with the new F%OBUF with APPEND mode.
;; FIXED RECIVE LOGIC TO CLEAR RECIEVE PAGE AFTER A SUCCESSFULL
;; PAGE RECIEVE
;; Rewrite F%OBUF, Move QUOTA EXCEEDED code to -10 dependent area.
;; Delete QUOTA EX code from F%OBYT.
;; Changed JUMPT,JUMPF,SKIPT,SKIPF definitions to OPDEFS
;; Changed JUMPT and SKIPT to JUMPN and SKIPN
;; fixed SNDSYS and KILPID in TOPS20 code to work properly
;; Add special pid indexes for FILDAE, PULSAR, Accounting
;; Added .OTMNT for Mount requests
;; Added .RET to entry vector as .POPJ
;; Changed $CALL to OPDEF [PUSHJ P,@] for non-library components
;; Redefined SAVE macro to use co-routines
;; Added symbols for GLXMEM (CNK.PM and AVLPAG)
;; Removed reference to ALTOPR in Stop code processor
;; Cleaned up .SAVE8 routine
;; Added range check for FD size in OPNCOM
;; Changed I%INIT to appear as an entry vector (e.g. jfcl .+1)
;; to support PUSHJ P,@I%INIT in new $CALL definition
;; Handle send errors for I%SOPR if user doesn't want send
;; errors returned
;; Support Multiple Interrupt levels on the 20
;; Fixed Startup race and cleaned up Debugging system
;; Added errors ERICA$ Invalid Calling Argument
;; Modified C%SEND to clear entry in internal Pid table
;; if send to system pid fails. This allows retry and
;; also allows a component to pick up a new system pid.
;; Modified K%INIT to use IIB instead of Calling Args
;; Add garbage collection to GMEM and RMEM when request
;; exceeds number of pages available
;; Changed T%INIT to use IIB set up be I%INI1
;;GLX WTO,1,0,0,DC,18-Oct-78 ;;Removed since GLXWTO is a red herring
> ;END DEFINE MODULES
;Macro to Define MOD'$WHO and MOD'$NOTE which will print the
;information in this file for the particular module if the
;edit levels do not match what is stated in glxver.
;Adds the Edit level for the module to the edit level of GLXVER
;Also makes MOD'EDT Internal so LINK can Check for skew
DEFINE GLX (MOD,NUM,LOD,GCO,WHO,DATE,NOTE) <
MOD'EDT==NUM ;DEFINE UNIVERSAL EDIT LEVEL
INTERN MOD'EDT ;LET LINK CHECK FOR SKEW
GLXEDT==GLXEDT+MOD'EDT ;ADD EDIT LEVEL OF MODULE TO GLXEDT
DEFINE MOD'$WHO (ACTNUM) <
PRINTX GLXVER GLX'MOD Edit(NUM) by WHO on DATE
PRINTX GLX'MOD Actual Edit(ACTNUM)
> ;END DEFINE MOD'$WHO
DEFINE MOD'$NOTE <
PRINTX NOTE (From GLXVER)
> ;END IFNB NOTE
> ;END DEFINE MOD'$NOTE
> ;END DEFINE GLX
IF1,< ;Only define things on first pass
GLXVER==1 ;MAJOR LIBRARY VERSION NUMBER
GLXMIN==0 ;MINOR LIBRARY VERSION NUMBER
GLXWHO==0 ;CUSTOMER VERSION
GLXEDT==0 ;INITIALIZE EDIT LEVEL TO ZERO
MODULES ;COMPUTE ACTUAL VALUE FOR GLXEDT
IFN <GLXEDT-GLXLOD>,<PRINTX %GLXLOD doesn't equal sum of module edits>
EXP GLXVRS ;SET VERSION
;Macro to be invoked by Prolog for Galaxy Library Components
;CHKEDT will compare edit level in Glxver to Edit level in
;Component and Flag any Descrepencies
DEFINE CHKEDT (MOD) <
IF1, <%%EDT==MOD'EDT> ;;SAVE GLXVER EDIT LEVEL FOR PASS 2
IF2, <IFN <%%EDT-MOD'EDT>,<
PRINTX ? Edit Number Doesn't Match GLXVER in GLX'MOD
MOD'$WHO(\MOD'EDT)> ;;SHOW WHO DID IT
MOD'$NOTE ;;SHOW NOTE IF ANY
INTERN MOD'EDT ;;LET LINK CHECK SKEW FOR MODULE
INTERN LODLEV ;;AND LIBRARY LOAD LEVEL
; PURGE %%EDT> ;END IF2
> ;END CHKEDT
IF2 , <PURGE MODULES,GLX,WHO,NOTE>