Google
 

Trailing-Edge - PDP-10 Archives - BB-J713A-BM - language-sources/glxver.mac
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
;as:

; 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 <

;;GLXLOD 000527
;;		Fix a bug. Initialize LINPTR in T%TEXT init code.
GLX TXT,35,527,0,AWC, 9-Nov-79,


;;GLXLOD 000526
;;		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,


;;GLXLOD 000525
;;		Merge in PARUNV to GLXMAC
GLX MAC,142,525,0,MLB, 3-Oct-79,


;;GLXLOD 000524
;;		Changing calling convention for CNTDT to use S1 and S2
;;GLX TXT,33,524,0,MLB,27-Sep-79,


;;GLXLOD 000523
;;		ADD SUPPORT FOR .CMTAD IN GLXSCN
GLX SCN,37,523,0,MLB,25-Sep-79,


;;GLXLOD 000522
;;		Add symbols on -10 for the .CMTAD function in GLXSCN
;;GLX MAC,141,522,0,MLB,25-Sep-79,


;;GLXLOD 000521
;;		CHANGE CALLING CONVENTION TO NUMIN ROUTINE TO CONFORM
;;		TO STANDARD GALAXY ROUTINES USING S1 AND S2
;;GLX SCN,36,521,0,MLB,24-Sep-79,


;;GLXLOD 000520
;;		SUPPORT OUTPUT FILES ON THE -10 WITH COMND, NULL INPUT AND OUTPUT,
;;		AND CM%BRK ON THE -10
GLX KBD,24,520,0,MLB,20-Sep-79,

;;GLX MAC,140,520,0,MLB,20-Sep-79,

;;GLX SCN,35,520,0,MLB,20-Sep-79,


;;GLXLOD 000515
;;		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).
GLX FIL,47,515,0,MLB,12-Sep-79,


;;GLXLOD 000514
;;		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.
;;GLX FIL,46,514,0,AWC,31-Aug-79,


;;GLXLOD 000513
;;		SUPPORT THE VT100 KEYPAD.
;;GLX KBD,23,513,0,MLB,31-Aug-79,


;;GLXLOD 000512
;;		Change the Unrecognized Control Character Message to Ambiguous and
;;		adjust the casing on all error messages
;;GLX SCN,34,512,0,MLB,22-Aug-79,


;;GLXLOD 000511
;;		Fix F%DEL to do F%OOPN so we get write access check
;;		on user's behalf instead of read.
;;GLX FIL,45,511,0,DC,20-Aug-79,


;;GLXLOD 000510
;;		Make F%REN give back IFN if file structure is different
;;GLX FIL,44,510,0,DC, 9-Aug-79,


;;GLXLOD 000507
;;		DO NOT ALLOW NULL NODE NAMES
;;GLX SCN,33,507,0,MLB, 8-Aug-79,


;;GLXLOD 000506
;;		Make F%CHKP return 0 for an input file which has not
;;		yet been read.
;;GLX FIL,43,506,0,DC,27-Jul-79,


;;GLXLOD 000505
;;		Don't page out symbols until first timer trap,
;;		and then do it with 1 or two PAGE. UUOs
GLX PFH,2,505,0,DC,27-Jul-79,


;;GLXLOD 000503
;;		Fix F%DREL to lite PRV bit and exit through INTREL on errors.
;;GLX FIL,42,503,0,AWC,13-Jul-79,


;;GLXLOD 000503
;;		Fix CHKIFN to prevent 'Illegal IFN Stopcode' for valid IFN's.
;;GLX FIL,41,503,0,AWC,11-Jul-79,


;;GLXLOD 000502
;;		Make F%REW & F%POS not loop forever when positioning null files.
;;		Make F%REW & F%POS return FDE if GETBUF returns FDE.
;;GLX FIL,40,502,0,AWC,11-Jul-79,


;;GLXLOD 000501
;;		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.
;;GLX TXT,32,501,0,WLH,11-Jul-79,


;;GLXLOD 000500
;;		TOPS10... fix K%INIT to not tell monitor of terminal type which
;;		we just got from the monitor!
;;GLX KBD,22,500,0,DC,11-Jul-79,


;;GLXLOD 000477
;;		Fix .ZCHNK to exit if calling count is zero
GLX COM,32,477,0,PJT, 9-Jul-79,


;;GLXLOD 000476
;;		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,


;;GLXLOD 000475
;;		Change the text of the GLXLIB incompatible message.
GLX INT,47,475,0,MLB, 5-Jul-79,


;;GLXLOD 000474
;;		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,


;;GLXLOD 000471
;;		Add code for .MSFLG in the WTO macros
;;GLX INT,45,471,0,MLB,29-Jun-79,

;;GLX MAC,136,471,0,MLB,29-Jun-79,


;;GLXLOD 000467
;;		Make GLXVRS symbol external and on the -20
;;		Save the STOPCODE name in the File Spec Name
;;GLX COM,31,467,0,MLB,29-Jun-79,


;;GLXLOD 000466
;;		
;;		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
;;GLX INI,6,466,0,DC,29-Jun-79,


;;GLXLOD 000465
;;		Change the $FATAL message on version skew to show the
;;		version numbers.
;;GLX INT,44,465,0,MLB,29-Jun-79,


;;GLXLOD 000464
;;		CHANGE F%REN SO THAT IF THE SECOND IFN GET
;;		FAILS, IT RELEASES THE FIRST BEFORE RETURNING
;;		AN ERROR
;;GLX FIL,36,464,0,PW,29-Jun-79,


;;GLXLOD 000462
;;		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:
;;GLX MAC,135,462,0,DC,28-Jun-79,


;;GLXLOD 000461
;;		TOPS10..  Make K%INIT use extended channel instead of F%FCHN
;;		and make K%STYP tell the monitor about the change
;;GLX KBD,21,461,0,DC,28-Jun-79,


;;GLXLOD 000460
;;		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
;;GLX FIL,35,460,0,DC,26-Jun-79,


;;GLXLOD 000457
;;		Fixed -10 OPNERR to RELFB so IFNTAB slots don't disappear
;;GLX FIL,34,457,0,DC,26-Jun-79,


;;GLXLOD 000456
;;		Change .REQUIRE to REL:GLXINI so that people can easily link in.
;;GLX MAC,134,456,0,DC,26-Jun-79,


;;GLXLOD 000455
;;		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.
;;GLX PFH,1,455,1,DC,19-Jun-79,

;;GLX INI,5,455,1,DC,19-Jun-79,

;;GLX INT,43,455,1,DC,19-Jun-79,

;;GLX MAC,133,455,1,DC,19-Jun-79,

GLX OTS,3,455,1,DC,19-Jun-79,


;;GLXLOD 000451
;;		Fix WTO range check stopcode to give a hint of where things went wrong
;;GLX INT,42,451,0,DC,15-Jun-79,


;;GLXLOD 000450
;;		Changed the text description of .OTMNT to 'Device"
;;		Modified PROB in GLXTXT to output units for .OTMNT as sixbit
;;GLX MAC,132,450,0,AWC,13-Jun-79,

;;GLX TXT,31,450,0,AWC,13-Jun-79,


;;GLXLOD 000446
;;		CHANGE THE SEND QUOTA CODE TO ADD THE SEND QUOTA REQUESTED
;;		TO THE CURRENT QUOTA INORDER TO GET THE NEW SEND QUOTA.
GLX IPC,43,446,0,MLB,11-Jun-79,


;;GLXLOD 000445
;;		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,


;;GLXLOD 000444
;;		-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,


;;GLXLOD 000443
;;		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,


;;GLXLOD 000441
;;		-10, Make erase to end of screen work for VT05s.
;;		Broken when installing TRMTYP macros.
;;GLX MAC,130,441,0,DC, 5-Jun-79,


;;GLXLOD 000440
;;		-10, Clear EOF after USETI to EOF during position
;;		request which would change buffers
;;GLX FIL,33,440,0,DC, 1-Jun-79,


;;GLXLOD 000437
;;		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)
;;GLX FIL,32,437,0,DC,29-May-79,


;;GLXLOD 000436
;;		Fix output code on the -20 to zero the remainder of the last word written in
;;		the buffer before writing the buffer out.
;;GLX FIL,31,436,0,LSS,24-May-79,


;;GLXLOD 000435
;;		Fix a library bug in memory manager. Make .ZCHNK zero
;;		the correct number of words if length is 1. Make DCT.MN=1.
;;GLX COM,30,435,0,AWC,17-May-79,

;;GLX MAC,127,435,0,AWC,17-May-79,


;;GLXLOD 000433
;;		Fix a bug in wait logic for debugging system if component does not
;;		yet exist.
;;GLX IPC,41,433,0,AWC, 7-May-79,


;;GLXLOD 000432
;;		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,


;;GLXLOD 000430
;;		Write system PID table after setting MYPID.  This way, we don't
;;		send to IPCC with 0 for a PID to write the table.
;;GLX IPC,40,430,0,DC,30-Apr-79,


;;GLXLOD 000427
;;		Fix expansion of TRMTYP so TTTAB has 0 in RH for non-video terminal
;;GLX KBD,20,427,0,DC,24-Apr-79,


;;GLXLOD 000426
;;		TOPS10 - Set up job number as PID when getting a pid
;;GLX IPC,37,426,0,DC,24-Apr-79,


;;GLXLOD 000425
;;		Fix object block BLT in WTO logic
;;GLX INT,40,425,0,AWC,24-Apr-79,


;;GLXLOD 000424
;;		Make TRMTYP macro which will expand parse tables, sixbit tables,
;;		cursor control tables, etc. Use it in GLXKBD, and in OPR, ORNMAC, OPRCMD.
;;GLX KBD,17,424,0,DC,19-Apr-79,

;;GLX MAC,125,424,0,DC,19-Apr-79,


;;GLXLOD 000422
;;		fix SAVCRS to put null on end of CRASH name.
;;GLX COM,27,422,0,MLB,19-Apr-79,


;;GLXLOD 000421
;;		Disallow Send with 0 PID.
;;GLX IPC,36,421,0,DC,17-Apr-79,


;;GLXLOD 000420
;;		In C%SEND, return ERARG$ if the message length is 0.
;;GLX IPC,35,420,0,DC,13-Apr-79,


;;GLXLOD 000417
;;		Fix WTO action routines so that args in S1, S2 work.
;;GLX INT,37,417,0,DC,13-Apr-79,


;;GLXLOD 000416
;;		Added .OTDBM for DBMS system.
;;GLX MAC,124,416,0,AWC, 3-Apr-79,


;;GLXLOD 000415
;;		Made MAXPAK global in IPC.
;;		Made I%WTO send a packet whenever possible.
;;GLX INT,36,415,0,AWC,30-Mar-79,

;;GLX IPC,34,415,0,AWC,30-Mar-79,


;;GLXLOD 000413
;;		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.
;;GLX FIL,30,413,0,AWC,28-Mar-79,


;;GLXLOD 000412
;;		ADD NEW WTO SUPPORT ROUTINES FOR APPLICATION CODE AND
;;		OBJECT TYPE BLOCK
;;GLX INT,35,412,0,MLB,23-Mar-79,

;;GLX MAC,123,412,0,MLB,23-Mar-79,


;;GLXLOD 000410
;;		Fix some bugs and make LSN processing faster
;;GLX FIL,27,410,0,LSS,23-Mar-79,


;;GLXLOD 000407
;;		fix CM%NOP to return true on the -20
;;GLX SCN,31,407,0,MLB,16-Mar-79,


;;GLXLOD 000406
;;		Fix a problem in the file positioning code which caused holes in
;;		some files.
;;GLX FIL,26,406,0,LSS,15-Mar-79,


;;GLXLOD 000405
;;		Fixed a bug in PROLOG to define entry vector offsets with ^O
;;GLX MAC,122,405,0,PJT,13-Mar-79,


;;GLXLOD 000404
;;		Make IFNs start at 1 rather than 0.
;;GLX FIL,25,404,0,LSS,12-Mar-79,


;;GLXLOD 000403
;;		Rework GLXFIL to resolve a number of internal problems and
;;		cleanup the code.
;;GLX FIL,24,403,0,LSS,12-Mar-79,

;;GLX MAC,121,403,0,LSS,12-Mar-79,


;;GLXLOD 000401
;;		Fix bug in ITEXT expansion of $FATAL and don't allow $FATAL to enter DDT
;;GLX COM,26,401,0,PJT,12-Mar-79,


;;GLXLOD 000400
;;		CORRECT MAXIMUM PID SETTING PROBLEM
;;GLX IPC,33,400,0,MLB,11-Mar-79,


;;GLXLOD 000377
;;		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
;;GLX INI,4,377,0,PJT,10-Mar-79,

;;GLX MAC,120,377,0,PJT,10-Mar-79,


;;GLXLOD 000375
;;		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,


;;GLXLOD 000374
;;		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,


;;GLXLOD 000366
;;		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,


;;GLXLOD 000365
;;		Added $FATAL processing to Stopcode processor
;;GLX COM,25,365,0,PJT, 8-Mar-79,


;;GLXLOD 000364
;;		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,


;;GLXLOD 000363
;;		Move .BGINT into Prolog macro so that $BGINT can be used in
;;		the Library
;;GLX MAC,114,363,0,MLB, 7-Mar-79,


;;GLXLOD 000362
;;		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,


;;GLXLOD 000361
;;		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,


;;GLXLOD 000356
;;		Change Stopcode to use new ^E function for last -20 Error Code
;;GLX COM,23,356,0,MLB, 6-Mar-79,


;;GLXLOD 000355
;;		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,


;;GLXLOD 000354
;;		Change ^E to get buffer dynamicly and accept -2
;;		for last TOPS20 error code
;;GLX TXT,27,354,0,MLB, 6-Mar-79,


;;GLXLOD 000353
;;		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,


;;GLXLOD 000352
;;		Removed name display from $FATAL and $WARN
;;GLX MAC,113,352,0,PJT, 2-Mar-79,


;;GLXLOD 000351
;;		Added C%PIDJ library entry to return Pid's job number
;;GLX MAC,112,351,0,PJT,28-Feb-79,


;;GLXLOD 000350
;;		Added C%PIDJ library entry to return Pid's job number
;;GLX IPC,27,350,0,PJT,28-Feb-79,


;;GLXLOD 000347
;;		Preserve RCVMDB+MDB.MS during SNDSYS so C%REL will work properly in DEBUG
;;		mode.
;;GLX IPC,26,347,0,PJT,27-Feb-79,


;;GLXLOD 000346
;;		Make getting maximum packet size a part of C%INIT even if no PIB is specified
;;		in IB
;;GLX IPC,25,346,0,PJT,26-Feb-79,


;;GLXLOD 000345
;;		ADD CODE TO AVOID LOSING DATA ON REWIND OF SHORT FILES
;;GLX FIL,22,345,0,WLH,23-Feb-79,


;;GLXLOD 000344
;;		Extend DEFSTR and MSKSTR definitions to allow index specification
;;		within the LOCN field.
;;GLX MAC,111,344,0,PJT,21-Feb-79,


;;GLXLOD 000343
;;		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.
;;GLX TXT,25,343,0,MLB,21-Feb-79,


;;GLXLOD 000342
;;		Added code to allow indexing and indirect on ^Q qualifier in $TEXT and ITEXT
;;GLX TXT,24,342,0,PJT,13-Feb-79,


;;GLXLOD 000341
;;		Added $KWTOR macro for killing outstanding $WTOR requests.
;;GLX MAC,110,341,0,AWC,12-Feb-79,


;;GLXLOD 000340
;;		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,


;;GLXLOD 000336
;;		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,


;;GLXLOD 000334
;;		ALLOW ^E ON THE -20 TO EXPAND 20 ERROR CODES.
;;		THOSE CODES GREATER THAN 600000
;;GLX TXT,23,334,0,MLB,25-Jan-79,


;;GLXLOD 000333
;;		Remove PJUMPN in tops10 conditional (replace with JUMPN)
;;GLX KBD,15,333,0,PJT,22-Jan-79,


;;GLXLOD 000332
;;		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
;;GLX MAC,106,332,0,PJT,15-Jan-79,


;;GLXLOD 000331
;;		Bump edit number by 1 since I removed GLXWTO from GLXVER.
;;		WTOEDT was 1, so the sum got off by 1 upon this removal
;;GLX MAC,105,331,0,DC,12-Jan-79,


;;GLXLOD 000331
;;		Fixed WTPJBN (WTO job number block processor) to
;;		load a real WT.JOB code
;;GLX INT,31,331,0,DC,12-Jan-79,


;;GLXLOD 000330
;;		Change FLD to look exaclty like INSVL.
;;GLX MAC,104,330,0,DC,12-Jan-79,


;;GLXLOD 000327
;;		Fixed DEFSTR and MSKSTR definitions to allow LOAD and STORE to function
;;		as GETLIM and STOLIM currently do.
;;GLX MAC,103,327,0,PJT,11-Jan-79,


;;GLXLOD 000326
;;		Fixed .STKST and .TRSET to operate properly so STKVAR and TRVAR will work
;;GLX COM,21,326,0,PJT,11-Jan-79,


;;GLXLOD 000325
;;		Change internal WTO opcodes from WT.xxx to WO.xxx
;;		so we don't conflict with ORNMAC bit definitions
;;GLX INT,30,325,0,DC,10-Jan-79,

;;GLX MAC,102,325,0,DC,10-Jan-79,


;;GLXLOD 000323
;;		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,


;;GLXLOD 000321
;;		FIX GJBLOC ON THE -20
;;GLX INT,26,321,0,MLB, 9-Jan-79,


;;GLXLOD 000320
;;		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,


;;GLXLOD 000317
;;		Removed usage of PJUMPE opdef
GLX MEM,11,317,0,PJT, 5-Jan-79,


;;GLXLOD 000316
;;		Removed usage of PJUMPE opdef
;;GLX TXT,22,316,0,PJT, 5-Jan-79,


;;GLXLOD 000315
;;		Removed usage of PJUMPE and PJMPGE opdefs
;;GLX FIL,21,315,0,PJT, 5-Jan-79,


;;GLXLOD 000314
;;		Removed ASUBR support code.
;;GLX COM,20,314,0,PJT, 4-Jan-79,


;;GLXLOD 000313
;;		Removed JX* macros, PJUM* macros, ASUBR macros.
;;GLX MAC,77,313,0,PJT, 4-Jan-79,


;;GLXLOD 000312
;;		Make BTA $STOP use new ITEXT
;;GLX TXT,21,312,0,DC, 4-Jan-79,


;;GLXLOD 000311
;;		Restore S1,S2,TF after WTO
;;GLX INT,25,311,0,DC, 4-Jan-79,


;;GLXLOD 000310
;;		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,


;;GLXLOD 000305
;;		Make $STOP generate ITEXT instead of ASCIZ.
;;		Make $STOP do a real $WTO, if desired.
;;GLX COM,17,305,0,DC, 4-Jan-79,


;;GLXLOD 000304
;;		Add a global version fetch routine
;;GLX INT,23,304,0,DC, 4-Jan-79,


;;GLXLOD 000303
;;		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,


;;GLXLOD 000277
;;		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,


;;GLXLOD 000275
;;		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,


;;GLXLOD 000273
;;		MODIFY ? FOR TABLES WITH ONLY ONE ELEMENT IN THEM
;;GLX SCN,26,273,0,MLB,27-Dec-78,


;;GLXLOD 000272
;;		Added symbols .OTXFR, and .OTBIN.
;;GLX MAC,73,272,1,AWC,18-Dec-78,


;;GLXLOD 000271
;;		Change meaning of DEBUGW so -1 is on, 0 is off.
;;		Debugging names are now based on SPIDS, not on IB.PRG
;;GLX IPC,22,271,0,DC,11-Dec-78,


;;GLXLOD 000270
;;		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,


;;GLXLOD 000266
;;		FIX NODE FUNCTION TO SAVE RESULT WHEN CM%PO IS SET
;;GLX SCN,24,266,0,MLB, 6-Dec-78,


;;GLXLOD 000265
;;		FIX ^N TO TAKE NODE NAME ON THE -10
;;GLX TXT,17,265,0,MLB, 5-Dec-78,


;;GLXLOD 000264
;;		FIX GLXTXT ^R BUG IN -10 NAME OUTPUT OF ZERO SECOND WORD
;;GLX TXT,16,264,0,MLB, 4-Dec-78,


;;GLXLOD 000263
;;		Fix S%TBLK to save the P regs
;;GLX SCN,23,263,0,DC, 1-Dec-78,


;;GLXLOD 000262
;;		FIX $ACK CODE TO LITE WT.SJI TO SUPPRESS JOB INFO DISPLAY
;;GLX INT,17,262,0,MLB,30-Nov-78,


;;GLXLOD 000261
;;		CONVERT TO USE I%JINF
;;GLX INT,16,261,0,MLB,29-Nov-78,

;;GLX TXT,15,261,0,MLB,29-Nov-78,


;;GLXLOD 000257
;;		ADD I%JINF CALL TO LIBRARY
;;GLX INT,15,257,0,MLB,29-Nov-78,

;;GLX MAC,71,257,0,MLB,29-Nov-78,


;;GLXLOD 000255
;;		FIX CMDEV FUNCTIONS AND ADD ITEXT FOR EXPANDING ERRORS.
;;		ALSO LET NODE TAKE PARSE ONLY
;;GLX SCN,22,255,0,MLB,28-Nov-78,


;;GLXLOD 000254
;;		Change ^R Display
;;GLX TXT,14,254,0,MLB,27-Nov-78,


;;GLXLOD 000253
;;		REORGANIZE THE SYSTEM PID TABLE AND REMOVE SP.IPC FROM -20
;;GLX IPC,21,253,0,DC,21-Nov-78,

;;GLX MAC,70,253,0,DC,21-Nov-78,


;;GLXLOD 000251
;;		ADD STOPCODE TO ^R PROCESSING FOR BAD USER INFO IN JIB
;;GLX TXT,13,251,0,MLB,14-Nov-78,



;;GLXLOD 000250
;;		ADD I%HOST TO THE  LIBRARY
;;GLX INT,14,250,0,MLB, 9-Nov-78,

;;GLX MAC,67,250,0,MLB, 9-Nov-78,


;;GLXLOD 000246
;;		Change Stopcode to use $HALT instead of I%EXIT to exit without a reset
;;GLX COM,16,246,0,, 9-Nov-78,


;;GLXLOD 000245
;;		Fix a S%TBAD Bug had wrong AC for GETER return
;;GLX SCN,21,245,0,, 9-Nov-78,


;;GLXLOD 000244
;;		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,


;;GLXLOD 000242
;;		Changed ERICA$ to ERARG$
;;GLX MAC,65,242,0,PJT,31-Oct-78,


;;GLXLOD 000241
;;		Added 'PULSAR' to special pid name table for TOPS10
;;		Spelling fixes -- cosmetics
;;GLX IPC,20,241,0,PJT,31-Oct-78,


;;GLXLOD 000240
;;		Changed $CALL to do range check for entry vector
;;		Defined VMAX as last absolute location of entry vector
;;GLX MAC,64,240,0,PJT,27-Oct-78,


;;GLXLOD 000237
;;		Fix a bug with the new F%OBUF with APPEND mode.
;;GLX FIL,20,237,0,AWC,25-Oct-78,


;;GLXLOD 000236
;;		FIXED RECIVE LOGIC TO CLEAR RECIEVE PAGE AFTER A SUCCESSFULL
;;		PAGE RECIEVE
;;GLX IPC,17,236,0,PJT,25-Oct-78,


;;GLXLOD 000235
;;		Rewrite F%OBUF, Move QUOTA EXCEEDED code to -10 dependent area.
;;		Delete QUOTA EX code from F%OBYT.
;;GLX FIL,17,235,0,AWC,25-Oct-78,


;;GLXLOD 000234
;;		Changed JUMPT,JUMPF,SKIPT,SKIPF definitions to OPDEFS
;;		Changed JUMPT and SKIPT to JUMPN and SKIPN
;;GLX MAC,63,234,2,PJT,24-Oct-78,


;;GLXLOD 000233
;;		fixed SNDSYS and KILPID in TOPS20 code to work properly
;;GLX IPC,16,233,1,PJT,23-Oct-78,


;;GLXLOD 000232
;;		Add special pid indexes for FILDAE, PULSAR, Accounting
;;GLX MAC,62,232,0,DC,19-Oct-78,


;;GLX MAC,61,0,0,PJT,18-Oct-78
;;	Added .OTMNT for Mount requests
;;	Added .RET to entry vector as .POPJ
;;GLX MAC,60,PJT,5-Oct-78
;;	Changed $CALL to OPDEF [PUSHJ P,@] for non-library components
;;GLX MAC,57,PJT,5-Oct-78
;;	Redefined SAVE macro to use co-routines
;;GLX MAC,56,MLB,28-Sep-78
;;  Added symbols for GLXMEM (CNK.PM and AVLPAG)
;;GLX MAC,55,PJT,26-Sep-78
;;GLX MAC,54,PJT,26-SEP-78
;;GLX MAC,53,AWC,25-SEP-78
;;GLX MAC,52,PJT,22-Jul-78

;;GLX COM,15,0,0,PJT,4-Oct-78
;;	Removed reference to ALTOPR in Stop code processor
;;GLX COM,14,PJT,21-Sep-78
;;	Cleaned up .SAVE8 routine
;;GLX COM,13,PJT,21-Sep-78
;;GLX COM,10,PJT,18-Sep-78
;;GLX COM,7,MLB,18-Jul-78

;;GLX FIL,16,0,0,PJT,17-Sep-78
;;	Added range check for FD size in OPNCOM
;;GLX FIL,15,MLB,12-Sep-78
;;GLX FIL,14,MLB,1-Sep-78

;;GLX INI,3,0,0,PJT,5-Oct-78
;;	Changed I%INIT to appear as an entry vector (e.g. jfcl .+1)
;;	to support PUSHJ P,@I%INIT in new $CALL definition
;;GLX INI,2,PJT,28-SEP-78
;;GLX INI,1,MLB,18-MAY-78

;;GLX INT,13,0,0,PJT,16-OCT-78
;;	Handle send errors for I%SOPR if user doesn't want send
;;	errors returned
;;GLX INT,12,PJT,9-OCT-78
;;	Support Multiple Interrupt levels on the 20
;;GLX INT,11,PJT,28-SEP-78
;;GLX INT,10,MLB,8-Sep-78
;;GLX INT,7,MLB,11-Jul-78

;;GLX IPC,15,0,0,PJT,4-Oct-78
;;	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.
;;GLX IPC,14,PJT,26-Sep-78
;;GLX IPC,13,MLB,13-Sep-78
;;GLX IPC,12,MLB,19-Jun-78

;;GLX KBD,13,0,0,PJT,28-Sep-78
;;  Modified K%INIT to use IIB instead of Calling Args
;;GLX KBD,12,WLH,18-Aug-78

;;GLX LNK,4,0,0,LSS,7-Oct-78

;;GLX MEM,7,0,0,MLB,28-Sep-78
;;	Add garbage collection to GMEM and RMEM when request
;;	exceeds number of pages available
;;GLX MEM,6,MLB,13-Sep-78

;;GLX OTS,2,0,0,PJT,20-SEP-78,

;;GLX SCN,20,0,0,WLH,16-Aug-78

;;GLX TXT,11,0,0,PJT,17-Oct-78
;;	Changed T%INIT to use IIB set up be I%INI1
;;GLX TXT,10
;;GLX TXT,7,MLB,2-Jun-78

;;GLX VER,1,0,0,PJT,7-Sep-78

;;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 <
	IFNB <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>
>;End IF1


GLXVRS==:<BYTE(3)GLXWHO(9)GLXVER(6)GLXMIN(18)GLXEDT>

	LOC 137
	EXP GLXVRS			;SET VERSION
	RELOC

;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>