<div id='wikitext'>
<pre><b> File: CREF50.LS of Disk: V50/Source/Source-Listing-PAL-1</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 1

		/OS/8 CROSS REFERENCE V50
		/
		/
		/
		/
		/
		/
		/
		/
		/
		/COPYRIGHT  (C)  1977 BY DIGITAL EQUIPMENT CORPORATION
		/		 AND 1979 BY DATAPLAN GMBH
		/
		/
		/
		/
		/
		/
		/
		/
		/
		/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
		/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
		/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
		/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
		/
		/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
		/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
		/(WITH INCLUSION OF DIGITAL&#039;S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
		/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
		/
		/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
		/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
		/DIGITAL.
		/
		/
		/
		/
		/
		/
		/
		/
		/
		/

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 2


		/CREF IS A CROSS REFERENCING PROGRAM FOR THE OS/8 ASSEMBLERS,
		/PAL8 AND SABR. THE PURPOSE OF CREF IS:

		/ 1) PROVIDE A SEQUENCE NUMBERED (DECIMAL) OUTPUT LISTING

		/ 2) PROVIDE A LIST OF ALL USER DEFINED SYMBOLS AND LITERALS
		/   AND THE SEQUENCE NUMBER OF THE LINES IN WHICH THEY OCCUR

		/FIXES FOR MAINTENANCE RELEASE:

		/1.	1975 COPYRIGHT, VERSION 4, EDIT 1
		/2.	UNIFIED PAGE SIZE INTO ONE PLACE (&amp; MADE IT WORK)
		/3.	OUTPUT EXTRA FORM FEED AT END
		/4.	MADE /A MEAN KEEP CREFLS.TM INSTEAD OF /E

		/FIXES FOR V3D:

		/INSTALLED ALL PUBLISHED PATCHES
		/
		/VERSION 50A. WVDMARK
		/
		/1.	REARRAGEND CODE, FIXED BUFFERS
		/2.	CONVERTS TAB ON INPUT (FOR PAL840)

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 3



		/DETAILS OF CREF.

		/CORE UTILIZED
		/FIELD 0

		/0000-3577:	MAINLINE CREF CODE
		/3600-4177:	INPUT HANDLER
		/4200-4577:	INIT CODE 1: EXECUTED ONCE AT BEGINNING
		/ 4200-4577:	OUTPUT HANDLER
		/4600-5577:	INPUT BUFFER
		/5600-6177:	INIT CODE 2: LATER OVERWRITTEN BY REFERENCE STORAGE
		/ 5600-7174:	REFERENCE STORAGE
		/7200-7577:	OUTPUT BUFFER

		/FIELD 1

		/0-NSYM*4+10	NSYM=NO. OF SYMBOLS.(USER+PERMANENT+LITERALS).
		/7424-7577	PSEUDO OP TABLE
		/THE REMAINDER IS USED FOR REFERENCES DURING PASSES GREATER THAN ONE

		/SYSTEM SCRATCH USED.
		/IF CREF DECIDES THAT MORE THAN 2 PASSES ARE REQUIRED, THE SYMBOL
		/TABLE IS SEGMENTED AT AN OPTIMUM POINT, AND PART IS SAVED
		/IN SCRATCH BLOCKS 27-50 FOR A THIRD (OR LARGER) PASS.


		/MAJOR ROUTINES AND CODE SECTIONS

		/MAIN-		START OF TEXT PROCESSING.CHECKS FOR VALID LINE.
		/		READS AND WRITES TEXT LINES

		/CVTSEQ-	CONVERTS SEQUENCE NUMBERS FROM OCTAL TO DECIMAL AND
		/		WRITES THEM INTO THE OUTPUT BUFFER

		/GETLIN-	GET A LINE OF INPUT INTO LINE BUFFER

		/WRTLIN-	WRITE A LINE OF TEXT INTO OUTPUT BUFFER

		/ANALYZ-	LINE SCANNING BEGINS.ALL SYMBOLS COLLECTED HERE

		/PACK-		CHARACTER PACKING ROUTINE. THE SCHEME USED MAPS LETTERS
		/		A-Z AND [,],\,^ INTO 0-37. 0-9 INTO 40-51
		/		THE PACKING IS: CHAR1-300^52+CHAR2-300

		/SYMCHK-	BINARY SYMBOL TABLE SEARCH

		/ENTRY-		MAKES ENTRIES IN USER SYMBOL TABLE

		/BUMP-		BUMPS REFERENCE COUNTER OF SYMBOLS IN PASS 1

		/ENDPAS-	TERMINATES A PASS THROUGH INPUT

		/PASSN2-	FILLS IN REFERENCE STORAGE ARE DURING PASSES

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 3-1

		/		AFTER PASS ONE

		/DUMP-		DUMPS CREF TABLE TO OUT BUFFER


		/SWITCHES IN CREF:
				/Q=INPUT IS SABR CODE
				/R=INPUT IS RALF CODE
				/P=DISABLE LISTING OUTPUT. RE ENABLE FOR CREF TABLE
				/X=DON&#039;T CREF LITERALS
				/M=MAMMOTH FILE(2 PASSES)
				/E=DON&#039;T ELIMINATE CREFLS.TM
				/U=/P + NO SYMBOL TABLE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 4


			DECIMAL
	0062		VERSN=50
	0330		PATCHL=&quot;X
	0102		PAGLEN=66		/V3C MOST PAPER HAS 66 LINES PER PAGE
			OCTAL

	0074		PAGLEN=PAGLEN-6		/HEADINGS

	0052		R=52
	0052		RAD=52			/RADIX FOR CONVERTING SYMBOLS
	0041		K0=USER
	0027		SCRATCH=27
	7747		SOFSET=7747
	7757		MREAD=7757
	0001		GERMAN=1

		/THESE ARE THE DEFAULT PARAMETERS FOR THE I/O ROUTINES
		/AJUSTED ACCORDING TO REQUIREMENTS OF DEVICES REQUESTED

	4200	OUCTL=4200
	7200	OUBUF=7200
	4200	OUDEVH=4200
	0000	OUFLD=OUCTL&amp;70

	0002	INRECS=2
	0400	INCTL=0400
	4600	INBUF=4600
	3600	INDEVH=3600
	0000	INFLD=INCTL&amp;70

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 5


		/PAGE ZERO FOR CREF
	0001		*1
000001  6232		CIF 30
000002  5001		JMP	1	/FOR SYMBIONT

	0010		*10
		/AUTO INDEX REGISTERS

000010  4577	XRLINE,	SYMTAB-1	/USED TO MOVE UP SYMBOL TABLE
000011  7777	XRLIT,	-1		/DITTO
000012  0000	XRSYM1,	0
000013  0000	XRSYM2,	0		/THESE ARE USED IN SEARCHING SYMBOLS
000014  7611	OUSAVX,	7611		/USED TO SAVE ARGS FOR /M

	0020		*20
000020  0242	TXTBEG,	LINBUF+12	/TEXT STARTS HERE
000021  0227	MARGIN,	LINBUF-1	/LINE BUFFER
000022  0000	COUNT,	0		/GENERAL COUNTER
000023  0000	CHAR,	0		/HOLDS CHARACTER TO EXAMINE
000024  0000	SEQNO,	0		/SEQUENCE NO.
000025  0000	SAVE,	0
000026  0000	TEMP,	0
000027  0000	TEMP1,	0		/THESE THREE ARE TEMPORARY STORAGE
000030  0000	DSWIT,	0
000031  0000	RSWIT,	0		/CD SWITCH WORDS
000032  7566	MLF,	-212		/-LINE FEED
000033  7772	SYMCNT,	-6		/ALLOW 6 CHARACTER SYMBOLS
000034  0036	ISYM,	SYM1		/POINTER TO SYMBOL COLLECTOR
000035  0000	PSWCH,	0		/PACK SWITCH..LEFT OR RIGHT HALF
000036  0000	SYM1,	0
000037  0000	SYM2,	0
000040  0000	SYM3,	0		/COLLECT SYMBOLS HERE
000041  0000	USER,	0		/USER MUST FOLLOW SYM3!
000042  0110		110		/INITIAL SYMBOL TABLE ENTRIES
000043  0000	PSEUDO,	0
000044  0000		0		/THESE 2 GET FILLED IN AT INITIALIZATION
000045  1600	PASN2,	PASSN2		/IF NOT PASS 1 GO HERE WITH A SYMBOL
000046  7777	PASSG1,	-1		/=0 IF NOT PASS1
000047  0000	MAXFLD,	0		/-# OF FIRST NON-EXISTENT FIELD
000050  0000	CONST,	0		/EITHER 0 OR 96(10)
000051  0000	FLDPTR,	0		/POINTER TO CORE FIELD
000052  0200	USR,	200		/MONITOR IN CORE..CHANGED TO 7700
000053  5621	DOLLAR,	DOLL1
000054  0002	SYMFLD,	2		/FIELDS WITH SYMBOLS: BITS 5-11
000055  0000	MASKF,	0		/MASK FOR ABOVE WORD

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 6


000056  0000	SYMADD,	0		/CONTAINS SYMBOL ADDRESS
000057  0000	SYMNUM,	0		/ABOVE MOD 4
000060  0000	BUFFER,	0		/POINTER FOR UNPACKING
000061  0000	ADDER,	0
000062  0000	SYSM,	0
000063  0000	BASE,	0		/THESE ARE USED TO END A PASS
000064  0000	SYMLIM,	0		/UPPER LIMIT FOR SYMBOL REF TABLE
000065  0000	FINI,	0

000066  0000	IOSR,	0
000067  4577		JMS I [7607
000070  4010	CNTROL,	4010		/THIS IS ON PAGE ZERO MAINLY
000071  0004	CTPTR,	4		/BECAUSE CTPTR IS USED A LOT
000072  0027		SCRATCH		/SYSTEM SCRATCH FOR OVERFLOW
000073  7410		SKP		/ERROR ON SYS!!!
000074  5466		JMP I IOSR
000075  4576	HIOERR,	JMS I	[ERROR
000076  3000		HNDERR

000077  7704	LNPRPG,	-PAGLEN		/# LINES OF TEXT PER PAGE
000100  7704	LINES,	-PAGLEN		/V3C MASTER COPY

000101  6030	THOUS,	6030		/CONVERSION TABLE..OCTAL-DECIMAL
000102  7634		7634
000103  7766	M12,	7766
000104  7777	M1,	7777

000105  5615	FPUT,	STORIT		/INITIALLY POINTS TO DCA I XRLINE

000106  0000	DPAT,	0
000107  3575		DCA I (NOFIRM
000110  3574		DCA I (NOFORM
000111  5506		JMP I DPAT

000112  0000	PASS2,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 7


	0200		*200
000200  5777		JMP I (ST1	/INITIALIZATION GETS DESTROYED
000201  5776	BREAK,	JMP I (CHAIN	/CHAIN ENTRY POINT
000202  0000		ZBLOCK 7	/BREAK TABLE. HOLDS SYMBOL
					/NUMBERS DURING VARIOUS PASSES
					/OF CREF. THE ENTRIES ARE THE NUMBER
					/OF THE LARGEST SYMBOL
					/WHOSE REFERENCES ARE IN A PARTICULAR
					/FIELD. THE 0TH ENTRY CORRESPONDS TO
					/FIELD 0.
000211  0000	ERROR,	0
000212  7200		CLA
000213  6201		CDF	0
000214  1611		TAD I	ERROR
000215  3060		DCA	BUFFER
000216  1173		TAD [-6
000217  3033		DCA SYMCNT	/12 CHARACTER MESSAGES
000220  1227		TAD TTY		/POINT TO TTY OUT ROUTINE
000221  3172		DCA [OCHAR

000222  1460		TAD I BUFFER
000223  4571		JMS I [DIVIDE	/CONVERT AND PRINT MESSAGE
000224  2033		ISZ SYMCNT
000225  5222		JMP .-3
000226  5570		JMP I [7605
000227  2763	TTY,	TTYPRT


		/THE INPUT LINE IS STORED HERE. XRLINE POINTS TO VARIOUS
		/PLACES THROUGHOUT THE SCAN, AND CHAR HOLDS THE CORRESPONDING
		/CHARACTER WHILE WE EXAMINE IT.

			IFNZRO .&amp;7	&lt;LBUFER, ___&gt;	/FOR TAB
	0230		LINBUF=.
	0236		LITBUF=.+6
	0234		VERTST=.+4


/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 8


	0251		*251
000251  0000	FILEXT,	0
000252  6211		CDF	10
000253  1775		TAD I	(7604
000254  6201		CDF	0
000255  7450		SNA
000256  1374		TAD	(1423
000257  6211		CDF	10
000260  3775		DCA I	(7604
000261  6201		CDF	0
000262  5651		JMP I	FILEXT
000263  0000	P2ADJ,	0
000264  1112		TAD	PASS2
000265  7450		SNA
000266  5663		JMP I	P2ADJ
000267  3773		DCA I	(OUBLK	/LAST BLOCK WRITTEN TO
000270  6211		CDF	10
000271  1414		TAD I	OUSAVX
000272  6201		CDF	0
000273  3772		DCA I	(OUELEN	/SIZE OF HOLE
000274  6211		CDF	10
000275  1414		TAD I	OUSAVX
000276  3077		DCA	LNPRPG	/NO. LINES IN LAST BLK WRITTEN
000277  1414		TAD I	OUSAVX	/NO. BLKS WRITTEN SO FAR
000300  6201		CDF	0
000301  5771		JMP I	(MP2	/NO ENTER

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 9


	7760		DCB=7760
000302  0000	OTYPE,	0
000303  6211		CDF 10
000304  1567		TAD I [7600	/DETERMINE WHAT TYPE OF DEVICE
000305  0166		AND [17
000306  1370		TAD (DCB-1
000307  3313		DCA Q
000310  1713		TAD I Q	/CHECK DEVICE CONTROL BLOCK
000311  6201		CDF 0
000312  5702		JMP I	OTYPE
000313  0000	Q,	0
000370  7757
000371  2321
000372  2317
000373  2316
000374  1423
000375  7604
000376  4205
000377  4200
	0400		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 10


		/MAIN IS THE START OF CREF.(IF SABR, NXTLIN IS START).
		/AT MAIN WE SCAN A LINE OF TEXT FOR BINARY DATA. IF NONE IS FOUND,
		/THE LINE IS WRITTEN OUT AND A NEW LINE READ. IF BINARY IS FOUND,
		/THE SEQUENCE NUMBER OF THE LINE IS PLACED IN THE OUTPUT
		/BUFFER AND THE ANALYSIS BEGINS AT ANALYZ.

000400  4565	MAIN,	JMS I [FORM	/FORM FEED (CR/LF)
000401  4564		JMS I [HEADER	/SKIP HEADER
000402  4777		JMS I (GETLIN	/AND ONE CR/LF
000403  4352	NOTBIN,	JMS WRTLIN
000404  4777	NXTLIN,	JMS I (GETLIN
000405  1410		TAD I XRLINE
000406  3023		DCA CHAR
000407  4563		JMS I [CHECK	/CHECK FOR ALPHA LINE
000410  0301		301
000411  7442		-336
000412  5217		JMP NOALPH
000413  2077	NOFIRM,	ISZ LNPRPG	/NEED A FORM FEED YET?
000414  5203		JMP NOTBIN	/NOT YET
000415  4565		JMS I [FORM	/NOW!!!
000416  5203		JMP NOTBIN
000417  1023	NOALPH,	TAD CHAR
000420  1253		TAD MCTLD	/IF RUB OUT, USED /D
000421  7450		SNA
000422  5562		JMP I [ENDPAS	/CAN&#039;T OUTPUT SYM TABLE
000423  1376		TAD (163	/CHECK FOR FORM FEED
000424  7450		SNA 
000425  5200		JMP MAIN	/YES..
000426  1375		TAD (-41	/IF ------, HE USED /T(DUMMY!)
000427  7650		SNA CLA
000430  5200		JMP MAIN	/GIVE HIM A FORM FEED
000431  2077	NOFORM,	ISZ LNPRPG	/=0 AFTER PASS1 NEW PAGE?
000432  7410		SKP		/SKIP A FORM FEED
000433  4565		JMS I [FORM
000434  2024		ISZ SEQNO	/BUMP SEQUENCE
000435  5240		JMP MAIN2
000436  1161		TAD [140
000437  3050		DCA CONST
000440  4560	MAIN2,	JMS I [PASTST	/STILL PASS ONE?
000441  5246		JMP MAIN3
000442  1024		TAD SEQNO
000443  4254		JMS CVTSEQ
000444  1157		TAD [-3		/3 SPACES
000445  4556		JMS I [SPACE
000446  1023	MAIN3,	TAD CHAR
000447  1155		TAD [-215
000450  7650		SNA CLA 
000451  5203		JMP NOTBIN
000452  5554		JMP I [ANALYZ
000453  7401	MCTLD,	-377		/RUB OUT

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 11


		/THIS ROUTINE CONVERTS SEQUENCE NUMBERS TO DECIMAL NUMBERS AND
		/PUTS THEM INTO THE OUTPUT BUFFER. IT IS USED WHEN PRINTING
		/THE CREF TABLE ALSO
		/THE CALLING SEQUENCE IS: AC=OCTAL NUMBER TO BE CONVERTED.
		/THE OUTPUT IS AUTOMATICALLY 4 DIGITS.

	0027	POSPT=TEMP1
	0055	DIGPT=MASKF

000454  0000	CVTSEQ,	0
000455  1050		TAD CONST
000456  3025		DCA SAVE	/TEMP STORE
000457  1050		TAD CONST
000460  7640		SZA CLA
000461  1153		TAD [4
000462  3345		DCA DIGIT1
000463  3346		DCA DIGIT1+1
000464  3347		DCA DIGIT1+2
000465  3350		DCA DIGIT1+3	/ZERO CONVERSION AREA
000466  1152		TAD [-4
000467  3022		DCA COUNT
000470  1025		TAD SAVE
000471  7100		CLL		/SEE IF SEQUENCE IS ABOVE 8000(10)
000472  1050		TAD CONST	/EITHER 0 OR 140(8)
000473  7420		SNL
000474  5300		JMP CVT2	/O.K. 
000475  3025		DCA SAVE	/CORRECTED NUMBER
000476  1151		TAD [10
000477  3345		DCA DIGIT1	/PUT AN 8 INTO THERE FOR PRINTING
000500  7200	CVT2,	CLA
000501  1374		TAD (DIGIT1
000502  3055		DCA DIGPT
000503  1373		TAD (THOUS
000504  3027		DCA POSPT
000505  1025		TAD SAVE
000506  7100	RPEAT,	CLL
000507  1427		TAD I POSPT	/POINTS TO -1000,-100,-10, OR -1
000510  7420		SNL		/IF LINK ON,WE DID TOO MUCH
000511  5314		JMP ADDUP	/COLLECT THE CONVERTED DIGIT
000512  2455		ISZ I DIGPT	/BUMP THE COUNTER DIGIT1-DIGIT1+3
000513  5306		JMP RPEAT

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 12


000514  7041	ADDUP,	CIA		/RESTORE THE LAST ONE
000515  1427		TAD I POSPT
000516  7041		CIA
000517  2027		ISZ POSPT
000520  2055		ISZ DIGPT
000521  2022		ISZ COUNT	/DONE ALL 4?
000522  5306		JMP RPEAT
000523  1152		TAD [-4		/YES..OUTPUT THE CONVERTED NUMBERS
000524  3022		DCA COUNT
000525  1374		TAD (DIGIT1
000526  3055		DCA DIGPT
000527  1455	SPCLUP,	TAD I DIGPT
000530  1351		TAD ZSPRES	/LEADING ZERO SUPPRESSION
000531  3351		DCA ZSPRES
000532  1351		TAD ZSPRES
000533  7650		SNA CLA		/ZSPRES IS 0 UNTIL A VALID # IS FOUND
000534  1372		TAD (-20
000535  1455		TAD I DIGPT
000536  1150		TAD [260
000537  4572		JMS I [OCHAR
000540  2055		ISZ DIGPT
000541  2022		ISZ COUNT
000542  5327		JMP SPCLUP
000543  3351		DCA ZSPRES
000544  5654		JMP I CVTSEQ

000545  0000	DIGIT1,	0
000546  0000		0
000547  0000		0
000550  0000		0
000551  0000	ZSPRES,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 13


			/WRTLIN TRANSFERS INPUT LINE TO OUTPUT BUFFER

000552  0000	WRTLIN,	0
000553  1021		TAD MARGIN
000554  3010		DCA XRLINE	/RESET MARGIN TO LEFT
000555  1410	OLINE,	TAD I XRLINE	/PICK UP TEXT CHARACTER
000556  3023		DCA CHAR
000557  1023		TAD CHAR
000560  7450		SNA		/IF NULL,WAS PREMATURE TERMINATOR
000561  5370		JMP FLUSH	/YES. READ AND WRITE THE REST
000562  4572		JMS I [OCHAR	/OUTPUT THE CHARACTER
000563  1023		TAD CHAR
000564  1032		TAD MLF		/WAS THIS END OF LINE?
000565  7640		SZA CLA
000566  5355		JMP OLINE	/NO..LOOP AGAIN
000567  5752		JMP I WRTLIN

000570  4564	FLUSH,	JMS I [HEADER
000571  5752		JMP I WRTLIN	/OVERFLOW NOT IN BUFFER
000572  7760
000573  0101
000574  0545
000575  7737
000576  0163
000577  3236
	0600		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 14


		/ANALYZ IS A WORK HORSE. IN IT CHARACTERS ARE EXAMINED AND
		/SYMBOLS ARE BUILT UP. IF A SYMBOL OR A REFERENCE TO A
		/SYMBOL IS FOUND,THE APPROPRIATE ACTION IS TAKEN;I.E.
		/EITHER ENTERING A NEW SYMBOL, BUMPING THE RFERENCE COUNTER,
		/OR BOTH.

000600  1350	ANALYZ,	TAD SEMISV	/IF #0, LAST WAS SEMICOLON
000601  7450		SNA
000602  1020		TAD TXTBEG	/IF=0, START NORMALLY
000603  3010		DCA XRLINE

000604  1410	SCAN,	TAD I XRLINE
000605  3023		DCA CHAR
000606  4563		JMS I [CHECK	/ALPHANUMERIC CHECK
000607  0301		301
000610  7446		-332
000611  7410		SKP		/NONE..TEST FOR SPECIAL CHARS
000612  5336		JMP PAKIT	/FOUND A LETTER  PACK AWAY
000613  4563		JMS I [CHECK	/TEST FOR 0-9
000614  0260		260
000615  7507		-271
000616  7410		SKP		/NOPE..COULD BE SABR
000617  5333		JMP SCAN1
000620  5226	SCAN3,	JMP TSTIT	/IF SABR, THIS LOC IS AND 0
000621  4563		JMS I [CHECK	/TEST FOR [,],\,AND ^
000622  0333		333
000623  7442		-336
000624  7410		SKP
000625  5336		JMP PAKIT	/VALID SABR CHARACTERS

000626  4341	TSTIT,	JMS REPACK
000627  1023		TAD CHAR	/IS THIS A ;?
000630  1377		TAD (-273	/IF SO, SAVE PLACE ON LINE
000631  7640		SZA CLA
000632  5235		JMP .+3		/IF ; SAVE PLACE ON LINE
000633  1010		TAD XRLINE
000634  3350		DCA SEMISV
000635  1036		TAD SYM1	/IS THERE A LEGAL SYMBOL?
000636  7650		SNA CLA
000637  5304		JMP TSTEND	/NO..LOOK FOR A LINE FEED
000640  1023		TAD CHAR
000641  1376		TAD (-257
000642  7650		SNA CLA		/A COMMENT?
000643  7001		IAC		/YES..NEED SPECIAL RETURN
000644  3351		DCA SLSWIT

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 15


000645  4547		JMS I [SYMCHK	/THIS IS EITHER A REFERENCE OR A
					/DEFINITION OR A PERMANENT SYMBOL,PSEUDO
000646  0043		PSEUDO		/CHECK PSEUDOS FIRST
000647  5265	HC1,	JMP USSYM	/NOT A PSEUDO-OP
					/BECOMES JMP PATCH IF /M USED
000650  1056		TAD SYMADD
000651  1146		TAD [3
000652  3025		DCA SAVE	/SYMCHK RETURNS ADDRESS OF SYMBOL IN SYMADD
000653  6211		CDF 10
000654  1425		TAD I SAVE
000655  3025		DCA SAVE
000656  6201		CDF 0
000657  4775		JMS I (CLEAR	/WIPE OUT PSEUDO OP
000660  5425		JMP I SAVE	/PERFORM THE NECESSARY OP FOR PSEUDO
000661  1036	PATCH,	TAD	SYM1
000662  7006		RTL
000663  7730	PATCH1,	CLA SZL SPA	/LG-LH SPLIT
000664  5277		JMP	B

000665  4560	USSYM,	JMS I [PASTST
000666  5445		JMP I PASN2
000667  4547		JMS I [SYMCHK
000670  0041		USER		/CHECK PERMANENT AND USER SYMBOLS
000671  5275		JMP NTER	/DIDN&#039;T FIND IT; SO WE HAVE TO ENTER IT
000672  4774		JMS I (TSTPRM	/FOUND;TEST FOR PERMANENT SYMBOL
000673  5277		JMP B		/WAS A PERMANENT SYMBOL
000674  5276		JMP BMPIT	/FOUND AND NOT PERMANENT;INCREASE THE
					/REFERENCE COUNTER BY ONE

000675  4545	NTER,	JMS I [ENTRY	/ENTER THE SYMBOL BY PUSHING DOWN ALL
					/THE ONES BELOW IT
000676  4544	BMPIT,	JMS I [BUMP	/AND INCREASE THE REFERENCE COUNT
000677  4775	B,	JMS I (CLEAR	/SETUP FOR NEXT
000700  1351		TAD SLSWIT	/WAS LAST A /?
000701  7640		SZA	CLA
000702  5773		JMP I (NOTBIN
000703  5352		JMP SCANER

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 16


000704  1023	TSTEND,	TAD CHAR
000705  1032		TAD MLF		/ARE WE DONE WITH THIS LINE?
000706  7640		SZA CLA
000707  5312		JMP .+3		/IF LF, CLEAR OUT SEMICOLON
000710  3350	CLRSEM,	DCA SEMISV
000711  5773		JMP I (NOTBIN
000712  1023		TAD CHAR
000713  1376		TAD (-257
000714  7450		SNA		/COMMENT LINE?
000715  5310		JMP CLRSEM
000716  1372		TAD (15		/A &quot;?
000717  7450		SNA
000720  2010		ISZ XRLINE	/YES..SKIP NEXT LETTER
000721  1143		TAD [-2		/A $?
000722  7450		SNA
000723  5453		JMP I DOLLAR
000724  1152		TAD [-4
000725  7450		SNA		/TEST FOR (
000726  5771		JMP I (LIT1
000727  1370		TAD (-63
000730  7640		SZA CLA		/TEST FOR [
000731  5352		JMP SCANER	/NONE OF THEM  KEEP GOING
000732  5767		JMP I (LIT2

000733  1036	SCAN1,	TAD SYM1	/IF WE DON&#039;T HAVE A SYMBOL
000734  7650		SNA CLA		/DON&#039;T PACK THIS CHARACTER
000735  5204		JMP SCAN
000736  1023	PAKIT,	TAD CHAR
000737  4542		JMS I [PACK	/PACK A CHARACTER
000740  5204		JMP SCAN

000741  0000	REPACK,	0		/RESET SYMBOL AREA
000742  1173		TAD [-6
000743  3033		DCA SYMCNT	/SYMBOL COUNTER..6 CHARS
000744  1366		TAD (SYM1
000745  3034		DCA ISYM
000746  3035		DCA PSWCH
000747  5741		JMP I REPACK

000750  0000	SEMISV,	0
000751  0000	SLSWIT,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 17


000752  1023	SCANER,	TAD CHAR	/IF LAST WAS ; READ IN OVERLAY
000753  1377		TAD (-273
000754  7650		SNA CLA
000755  5773		JMP I (NOTBIN
000756  5204		JMP SCAN

000757  0000	SUB3,	0		/SUBTRACTS 3 FROM CTPTR
000760  1157		TAD [-3
000761  1071		TAD CTPTR
000762  3071		DCA CTPTR
000763  5757		JMP I SUB3
000766  0036
000767  3060
000770  7715
000771  3066
000772  0015
000773  0403
000774  1702
000775  3337
000776  7521
000777  7505
	1000		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 18


		/THE PACKING SCHEME IS THE SAME AS THAT USED IN PAL8. THAT IS
		/IN EACH WORD WE HAVE 2 CHARS.  CHAR1-300^45+CHAR2-300.
		/PERMANENT SYMBOLS HAVE THE FIRST WORD SET TO A NEGATIVE.

001000  0000	PACK,	0
001001  3240		DCA BLAH
001002  1033		TAD SYMCNT
001003  7700		SMA CLA		/OVERFLOW PROTECT
001004  5600		JMP I PACK
001005  1240		TAD BLAH
001006  0141		AND [77		/STRIP IT
001007  1377		TAD (-37	/INCLUDE VALID SABR CHARS
001010  7540		SMA SZA
001011  1376		TAD (-20	/NUMBERS GET MAPPED: 40-51
001012  1375		TAD (37		/LETTERS ARE MAPPED:01-37
001013  2035		ISZ PSWCH	/WHICH HALF?
001014  5221		JMP LEFT
001015  1434		TAD I ISYM
001016  3434		DCA I ISYM
001017  2034		ISZ ISYM
001020  5235		JMP PCKOUT
001021  7104	LEFT,	CLL RAL		/*2
001022  3330		DCA TLOW
001023  1330		TAD TLOW
001024  7106		CLL RTL
001025  3025		DCA SAVE	/*10
001026  1025		TAD SAVE
001027  7106		CLL RTL		/*40
001030  1025		TAD SAVE
001031  1330		TAD TLOW	/*52!!
001032  3434		DCA I ISYM
001033  7240		CLA CMA		/RESET FLIP FLOP
001034  3035		DCA PSWCH
001035  2033	PCKOUT,	ISZ SYMCNT
001036  7000		NOP
001037  5600		JMP I PACK
001040  0000	BLAH,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 19


		/SYMCHK IS THE BINARY SEARCH ROUTINE FOR CREF. SYMBOLS
		/ARE A GROUP OF FOUR ENTRIES:THE FIRST THREE WORDS ARE
		/THE STRIPPED-40 REPRESENTATION OF THE SYMBOL. THE LAST
		/IS THE REFERENCE COUNTER (IN THE CASE OF A USER SYMBOL) OR
		/A -1 (IN THE CASE OF A PERMANENT SYMBOL). IN PSEUDO OPS
		/THE FOURTH WORD DESCRIBES THE DESTINATION OR ACTION
		/TO BE PERFORMED BY THAT PSEUDO OP.
		/THE TABLE USER,0 HAS ENTRIES WHICH ARE THE SYMBOL NUMBER
		/AND NOT THE ABSOLUTE CORE LOCATION OF A SYMBOL.

		/CALLING SYMCHK:
		/	JMS SYMCHK
		/	TABLE	/FIRST WORD OF TWO WHICH GIVES THE LIMITS
		/MOD 4 OF THE APPROPRIATE TABLE
		/SYMCHK RETURNS WITH THE NUMBER OF THE SYMBOL IN SYMNUM
		/AND THE CORE ADDRESS OF THE SYMBOL IN SYMADD. IF THE
		/SYMBOL IS NOT FOUND, THESE WORDS CONTAIN THE PROPER LOCATION
		/FOR THE SYMBOL.

001041  0000	SYMCHK,	0
001042  1641		TAD I SYMCHK
001043  3327		DCA THI
001044  3331		DCA LAST
001045  1727		TAD I THI	/GET LIMITS OF TABLE
001046  3330		DCA TLOW	/LOW LIMIT
001047  2327		ISZ THI
001050  1727		TAD I THI
001051  3327		DCA THI		/HIGH LIMIT

001052  1330	COMP,	TAD TLOW
001053  7041		CIA
001054  1327		TAD THI
001055  7110		CLL RAR		/HALF DIFFERENCE BETWEEN THE LIMITS
001056  7450		SNA		/IF THIS IS ZERO, WE&#039;RE DONE
001057  2331		ISZ LAST	/THIS WILL BE LAST TRY
001060  1330		TAD TLOW	/FORM THE NUMBER OF THE ENTRY
001061  3057		DCA SYMNUM	/WE ARE GOING TO TEST NOW
001062  4363		JMS  SETXR	/SET UP INDICES FOR TEST
001063  2022		ISZ COUNT	/WE ONLY WANT -3 IN COUNT!

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 20


001064  7100	S1,	CLL
001065  6211		CDF 10
001066  1413		TAD I XRSYM2	/SYMBOL TABLE ENTRY
001067  6201		CDF 0
001070  0140		AND [3777	/MASK PERMANENT SYMBOL BIT
001071  7040		CMA		/USE ONE&#039;S COMPLEMENT
001072  1412		TAD I XRSYM1	/OUR COLLECTED SYMBOL
001073  7040		CMA		/0 AC IF EQUAL
001074  7640		SZA CLA		/WATCH THE LINK!!
001075  5302		JMP COMPR	/NOW TEST FOR HI OR LOW COMPARISON
001076  2022		ISZ COUNT
001077  5264		JMP S1
001100  2241		ISZ SYMCHK	/TAKE FOUND ENTRY
001101  5316		JMP OUT1


001102  1331	COMPR,	TAD LAST	/LAST GASP?
001103  7640		SZA CLA
001104  5312		JMP OUT2	/YEP
001105  1057		TAD SYMNUM	/LINK TELLS THE TALE!
001106  7420		SNL
001107  5251		JMP COMP-1	/ADJUST HIGH LIMIT
001110  3330		DCA TLOW
001111  5252		JMP COMP


001112  1057	OUT2,	TAD SYMNUM
001113  7430		SZL
001114  7001		IAC
001115  3057		DCA SYMNUM
001116  1057	OUT1,	TAD SYMNUM	/ADDING THE FIRST ENTRY AFTER
001117  7440		SZA		/AN EXPUNGE WILL CAUSE SYMNUM TO BE 0
					/AUTOMATICALLY IT HAS TO BE 1
001120  5323		JMP .+3
001121  2057		ISZ SYMNUM
001122  5316		JMP OUT1
001123  7106		CLL RTL		/FORM SYMADD FROM SYMNUM
001124  3056		DCA SYMADD	/CORE ADDRESS OF THE SYMBOL
001125  2241		ISZ SYMCHK
001126  5641		JMP I SYMCHK

001127  0000	THI,	0
001130  0000	TLOW,	0
001131  0000	LAST,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 21


		/THESE TABLES DEFINE THE LIMITS OF CORE STORAGE IN CREF.
		/BASTBL GIVES THE START LOC WHERE REFERENCES WILL BE STORED.
		/LTTBL GIVES THE LO CORE LIMIT OF THOSE REFS. THERE IS ONE ENTRY FOR
		/EACH FIELD

001132  7174	BASTBL,	7174		/THIS TABLE GIVES THE BASE
001133  7424		7424		/LOCATIONS INEACH FIELD WHERE THE
001134  7574		7574		/REFERENCES BEGIN
001135  7574		7574		/REFS START HERE AND BUILD TOWARD LOWER
001136  7574		7574		/CORE ADDRESSES
001137  7574		7574
001140  7574		7574
001141  7574		7574
001142  5621	LTTBL,	DOLL1		/THIS TABLE GIVES THE LOW
001143  0010		10		/CORE ADDRESS OF THE REFS IN EACH FIELD
001144  0004		4		/NOTE:ENDPAS JUGGLES THESE AROUND
001145  0004		4		/TO OPTIMIZE CREF STORAGE
001146  0004		4
001147  0004		4
001150  0004		4
001151  0004		4

001152  0000	DIVE,	0
001153  7450		SNA		/IF 0, PRODUCE A SPACE
001154  5361		JMP DIVSPC
001155  1377		TAD (-37
001156  7540		SMA SZA
001157  1137		TAD [-60
001160  1141		TAD [77
001161  1136	DIVSPC,	TAD	[240
001162  5752		JMP I DIVE

001163  0000	SETXR,	0		/SETUP INDEX REGS FOR SEARC,ENTRY
001164  1057		TAD SYMNUM	/SETUP WHEN FOUND SYMBOL
001165  7106		CLL RTL		/CORE ADDRESS OF SYMBOL
001166  1104		TAD M1
001167  3013		DCA XRSYM2
001170  1135		TAD [SYM1-1
001171  3012		DCA XRSYM1
001172  1152		TAD [-4
001173  3022		DCA COUNT
001174  5763		JMP I SETXR
001175  0037
001176  7760
001177  7741
	1200		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 22


		/ENTRY IS SLOW! IT ENTERS A SYMBOL BY PUSHING DOWN WHAT IS
		/BELOW THE PROPER ENTRY.ENTRY CAN ONLY BE USED IN MAKING
		/ENTRIES IN THE PERMANENT (USER) SYMBOL TABLE.
		/ENTRY CONDITIONS:AC SHOULD BE CLEAR!
		/	SYMNUM SHOULD HAVE THE SYMBOL NUMBER OF THE
		/	PROPOSED ENTRY. SYMCHK RETURNS THIS WHEN THE
		/	SEARCH IS UNSUCCESSFUL.

001200  0000	ENTRY,	0
001201  4777		JMS I (SETXR	/SETUP INDEX REGISTERS
001202  1042		TAD USER+1	/CHECK FOR POSSIBLE OVERFLOW
001203  7040		CMA		/WE DON&#039;T WANT TO WIPE PSEUDO TABLE
001204  1043		TAD PSEUDO
001205  7750		SPA SNA CLA
001206  5250		JMP NMOR	/BAD!OVERFLOW HAS OCCURRED
001207  2042		ISZ USER+1	/OK..BUMP SYMBOL COUNT
001210  1042		TAD USER+1
001211  7106		CLL RTL		/CORE ADDRESS OF ENTRY
001212  3027		DCA TEMP1
001213  1027		TAD TEMP1
001214  1152		TAD [-4		/GIVES BOTTOM OF TABLE NOW
001215  3025		DCA SAVE
001216  1025		TAD SAVE	/TEST FOR AN &#039;ADD-ON&#039; ENTRY
001217  7040		CMA
001220  1056		TAD SYMADD
001221  3022		DCA COUNT	/-# OF WORDS TO MOVE

001222  6211		CDF 10
001223  1425	NTR1,	TAD I SAVE
001224  3427		DCA I TEMP1	/THE BAD LOOP!
001225  7040		CMA
001226  1025		TAD SAVE
001227  3025		DCA SAVE	/I WISH WE HAD A DSZ!(DECREMENT &amp;SKIP ON 0
001230  7040		CMA
001231  1027		TAD TEMP1
001232  3027		DCA TEMP1
001233  2022		ISZ COUNT	/DONE?
001234  5223		JMP NTR1	/UNFORTUNATELY NOT

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 23


001235  6201		CDF 0
001236  7200	ENTER,	CLA		/NOW PUT IN OUR ENTRY
001237  1152		TAD [-4
001240  3022		DCA COUNT	/THE 4TH IS A 0 WORD (USER FOLLOWS SYM3)
001241  1412	NTR2,	TAD I XRSYM1
001242  6211		CDF 10
001243  3413		DCA I XRSYM2
001244  6201		CDF 0
001245  2022		ISZ COUNT
001246  5241		JMP NTR2
001247  5600		JMP I ENTRY

001250  4576	NMOR,	JMS I [ERROR	/SYMBOL OVERFLOW
001251  3006		SYMERR

001252  4272	TXT,	JMS GETC
001253  1376		TAD (-240	/IGNORE SPACES
001254  7650		SNA CLA
001255  5252		JMP TXT
001256  1023		TAD CHAR
001257  7041		CIA		/STRING DELIMITER
001260  3277		DCA DELMIT
001261  4272	TXT2,	JMS GETC
001262  1277		TAD DELMIT	/REACHED END OF STRING?
001263  7650		SNA CLA
001264  5534		JMP I [B	/YES
001265  1023		TAD CHAR	/NO..END OF LINE?
001266  1155		TAD [-215
001267  7650		SNA CLA
001270  5534		JMP I [B
001271  5261		JMP TXT2

001272  0000	GETC,	0
001273  1410		TAD I XRLINE
001274  3023		DCA CHAR
001275  1023		TAD CHAR
001276  5672		JMP I GETC	/GET A CHAR;STORE IT, RETURN IN AC
001277  0000	DELMIT,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 24


001300  0000	BUMP,	0		/ROUTINE TO BUMP REFERENCE COUNTERS
001301  1056		TAD SYMADD
001302  1146		TAD [3
001303  3025		DCA SAVE	/ADDRESS OF REFERENCE COUNTER
001304  6211		CDF 10
001305  1425		TAD I SAVE
001306  7710		SPA CLA		/IF 4000 BIT ON, AN EXTRA ENTRY HAS
					/ALREADY BEEN MADE FOR THIS SYMBOL
001307  5317		JMP ONEISZ
001310  1050		TAD CONST
001311  7650		SNA CLA		/IS SEQNO &gt;4095?
001312  5317		JMP ONEISZ	/NOT YET
001313  1133		TAD [4000
001314  1425		TAD I SAVE
001315  3425		DCA I SAVE	/MARK IT AS BEING NOTED
001316  7040		CMA
001317  1104	ONEISZ,	TAD M1		/EITHER -1 OR -2
001320  3022		DCA COUNT
001321  1140	BUMP2,	TAD [3777	/THIS CODE PROTECTS AGAINST
001322  0425		AND I SAVE	/&gt;2048 REFS. IF SIGN BIT EVER BECOMES
001323  2425		ISZ I SAVE	/NEG. ON THE ISZ,KILL IT!!
001324  7000		NOP		/USELESS PROTECTION
001325  1146		TAD [3		/IF AC GOES NEG. HE DIES!!
001326  7710		SPA CLA
001327  5334		JMP ERR7
001330  2022		ISZ COUNT
001331  5321		JMP BUMP2
001332  6201		CDF 0
001333  5700		JMP I BUMP

001334  6201	ERR7,	CDF 0
001335  4576		JMS I [ERROR
001336  3052		REFERR

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 25


001337  0000	PTRSET,	0		/THIS ROUTINE TAKES
001340  1146		TAD [3		/THE SYMBOL TABLE THAT
001341  3060		DCA BUFFER	/PRODUCED AND SETS UP EACH REFERENCE
001342  3057		DCA SYMNUM	/AREA WITH A POINTER INTO THE AREA
001343  7240		CLA CMA
001344  1042		TAD USER+1	/AND A 0 LOCATION TO HOLD THE DEFINITION
001345  7041		CIA		/SEQUENCE NO.
001346  3022		DCA COUNT
001347  1153	PTRST1,	TAD [4		/START PICKING UP POINTERS
001350  1060		TAD BUFFER
001351  3060		DCA BUFFER
001352  2057		ISZ SYMNUM	/CORRESPONDING SYMBOL NUMBER
001353  4775		JMS I (GETFLD	/FORM CDF N FOR REFERENCE AREA
001354  3363		DCA CDTFLD
001355  6211		CDF 10
001356  1460		TAD I BUFFER	/IF PERMANENT SYMBOL, THIS LOC=0
001357  7450		SNA		/IF SO, SKIP IT
001360  5370		JMP PTRST2
001361  1104		TAD M1
001362  3025		DCA SAVE
001363  7402	CDTFLD,	HLT
001364  3425		DCA I SAVE
001365  2025		ISZ SAVE	/POINT TO INDEX WORD
001366  1132		TAD [2
001367  3425		DCA I SAVE
001370  6201	PTRST2,	CDF 0
001371  2022		ISZ COUNT
001372  5347		JMP PTRST1
001373  5737		JMP I PTRSET
001375  1714
001376  7540
001377  1163
	1400		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 26


		/ENDPAS IS ARRIVED AT WHEN A PASS THROUGH THE INPUT HAS BEEN
		/COMPLETED.SOME COMPLICATED DIDDLING GOES ON HERE.

001400  2046	ENDPAS,	ISZ PASSG1
001401  5777		JMP I (DUMP	/DUMP WHAT WE HAVE
001402  4776		JMS I	(ENDFIX
001403  7001		IAC		/POINT TO END OF NEW TABLE
001404  3042		DCA USER+1	/YES..THAT BECOMES THE TOTAL NO.
				/OF SYMBOLS IN OUR NEW TABLE
001405  1140		TAD [3777	/O.K...NOW READ IN A SEGMENT
001406  0070		AND CNTROL	/NOW FORMING READ CONTROL
001407  3070		DCA CNTROL
001410  1153		TAD [4		/READ SYMBOLS INTO F1 AT LOC.4
001411  3071		DCA CTPTR
001412  4066		JMS IOSR	/DO THE READ
001413  3051	NDPS1,	DCA FLDPTR	/INITIALLY AT FIELD 0
001414  1131		TAD	[6034	
001415  3530		DCA I	[OUTSW
001416  3061	END2,	DCA ADDER	/ADDER HOLDS THE COUNT OF THE NUMBER
					/OF REFERENCES TO THE SYMBOLS THUS FAR
				/EXAMINED. THIS IS COMPARED TO THE AVAILABLE
				/CORE IN A PARTICULAR FIELD. WHEN THAT OVER-
				/FLOWS WE HAVE TO EITHER MOVE TO ANOTHER FIELD
				/FOR THE REFERENCES OR WRITE PART OF THE SYMBOL
				/TABLE ONTO SYS.
001417  1375		TAD (BASTBL
001420  1051		TAD FLDPTR
001421  3027		DCA TEMP1	/INITIAL BASE OF REFS
001422  1427		TAD I TEMP1
001423  3063		DCA BASE
001424  1051		TAD FLDPTR	/NOW GET MASK FOR QUESTION..
001425  7040		CMA		/DOES THIS FIELD HAVE SYMBOLS?
001426  3022		DCA COUNT
001427  7120		CLL CML
001430  7004		RAL
001431  2022		ISZ COUNT
001432  5230		JMP .-2
001433  3055		DCA MASKF
001434  1051		TAD FLDPTR	/GET ADDRESS OF UPPER LIMIT
001435  1374		TAD (LTTBL	/FOR LATER
001436  3064		DCA SYMLIM
001437  1051		TAD FLDPTR	/SET NEW LIMIT IN FIELD 1
001440  1127		TAD [BREAK
001441  3366		DCA NUSER	/THE NEW LIMIT FOR REFS IS
001442  3766		DCA I NUSER	/ZERO SYMBOL IN CURRENT FIELD LOC.
001443  1464		TAD I SYMLIM

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 27


001444  1071	FUJ1,	TAD CTPTR	/IF MORE THAN 2 FIELDS EXIST
					/THIS BECOMES A NOP. THE LIMIT IN
					/FIELD 1 IS AT THE BOTTOM OF THE
					/SYMBOL TABLE
001445  3367		DCA LIMIT
001446  1071	NDPS2,	TAD CTPTR	/CTPTR HOLD THE CORE ADDRESS OF THE
				/THE 4TH LOCATION OF A GIVEN SYMBOL. THIS
				/IS ALSO THE REFERENCE COUNTER FOR THAT SYMBOL
001447  7112		CLL RTR		/FORM SYMBOL NUMBER
001450  0126		AND [1777
001451  3022		DCA COUNT	/SAVE FOR LATER
001452  1061		TAD ADDER
001453  7041		CIA
001454  1063		TAD BASE	/NEXT REFERENCE AREA
001455  3025		DCA SAVE	/IF IT FITS IN THIS AREA
					/USED WHEN WE MAKE ACTUAL REF ENTRIES
001456  6211		CDF 10
001457  1471		TAD I CTPTR	/# REFS FOR THIS SYMBOL
001460  3026		DCA TEMP
001461  1146		TAD [3
001462  1071		TAD CTPTR
001463  3071		DCA CTPTR
001464  1026		TAD TEMP
001465  7710		SPA CLA		/PERMANENT SYMBOL
001466  5314		JMP PRMSYM	/YES
001467  1471		TAD I CTPTR
001470  0140		AND [3777	/MASK GT 4095 BIT
001471  1061		TAD ADDER
001472  3061		DCA ADDER	/SEE IF THIS SYMBOL WILL FIT IN THE
					/CURRENT FIELD HOLDING REFS
001473  6211		CDF 10		/MUST ADD UP NEW REFS ALSO
001474  1471		TAD I CTPTR
001475  0140		AND [3777
001476  6201		CDF 0
001477  7100		CLL
001500  1367		TAD LIMIT	/IF LINK GOES ON, REFS WON&#039;T FIT
001501  7430		SZL
001502  5336		JMP CUTSYM
001503  7140		CMA CLL		/WHEN UPPER MEETS LOWER,QUIT
001504  1025		TAD SAVE
001505  7620		SNL CLA
001506  5336		JMP CUTSYM	/OK..QUIT!
001507  6211		CDF 10
001510  1025		TAD SAVE	/FITS..PUT IN BASE WHERE THIS SYMBOL&#039;S
					/REFS BEGIN
001511  3471		DCA I CTPTR
001512  2061		ISZ ADDER
001513  2061		ISZ ADDER	/2 EXTRA FOR BOOKKEEPING

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 28


001514  6201	PRMSYM,	CDF 0
001515  1022		TAD COUNT	/SYMBOL NUMBER..REMEMBER?
001516  3766		DCA I NUSER
001517  1054		TAD SYMFLD	/BUT..IF THIS FIELD HAS SYMBOLS,
001520  0055		AND MASKF	/LET&#039;S REDUCE HIS AVAILABLE SPACE
001521  7650		SNA CLA
001522  5326		JMP .+4		/NO SYMBOLS
001523  1153		TAD [4
001524  1367		TAD LIMIT
001525  3367		DCA LIMIT
001526  1022		TAD COUNT	/SEE IF WE ARE DONE
001527  7040		CMA
001530  1042		TAD USER+1
001531  7450		SNA
001532  5773		JMP I (DONE	/YES!! PROBABLY FORGOT SOMETHING
001533  3062		DCA SYSM	/BECOMES # SYMBOLS TO WRITE OUT IN CASE
					/WE RUN OUT OF ROOM
001534  2071		ISZ CTPTR
001535  5246		JMP NDPS2	/CYCLE FOR NEXT SYMBOL

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 29


001536  7200	CUTSYM,	CLA
001537  2051		ISZ FLDPTR	/GO TO ANOTHER FIELD
001540  1051		TAD FLDPTR	/DOES IT EXIST?
001541  7100		CLL
001542  1047		TAD MAXFLD
001543  7620		SNL CLA
001544  5364		JMP END3	/YES..GROOVY
001545  1062		TAD SYSM	/NOPE..HAVE TO WRITE REMAINDER OUT
001546  7104		CLL RAL		/CONVER TO PAGES
001547  0372		AND (3700	/FORM CONTROL WORD FOR WRITE
001550  1125		TAD [4110
001551  3070		DCA CNTROL
001552  4771		JMS I (SUB3	/RESET CTPTR
001553  1766		TAD I NUSER
001554  7001		IAC		/FUDGE LAST ENTRY IN TABLE
001555  3042		DCA USER+1	/NEW END OF TABLE
001556  4066		JMS IOSR	/WRITE THE SEGMENT
001557  6211		CDF 10		/PUT A 7777 AT END OF CURRENT SEG.
001560  7240		CLA CMA
001561  3471		DCA I CTPTR
001562  6201		CDF 0
001563  5770		JMP I (DONE+1	/NOT DONE YET!!

001564  4771	END3,	JMS I (SUB3
001565  5216		JMP END2	/AND RESUME THY WORK!!
001566  0000	NUSER,	0
001567  0000	LIMIT,	0
001570  1766
001571  0757
001572  3700
001573  1765
001574  1142
001575  1132
001576  3141
001577  2000
	1600		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 30


		/PASSN2 IS ENTERED WHEN WE HAVE COLLECTED SOME SORT OF A
		/SYMBOL AND IT IS NOT PASS ONE. WE HAVE TO MAKE SURE IT
		/IS A USER SYMBOL OR LITERAL. IF IT IS, WE HAVE TO ENTER
		/THE SEQUENCE # IN THE AREA SET UP FOR REFERENCES TO THIS
		/SYMBOL. ALSO, IF THE REFERENCE IS A DEFINITION, THE SECOND
		/LOCATION IN THE REFERENCE AREA IS LOADED WITH THE SEQUENCE
		/NO. OF THE LINE WE ARE DOING.

001600  4547	PASSN2,	JMS I [SYMCHK
001601  0041		USER		/IS IT KNOWN TO US?
001602  5534		JMP I [B	/NO..BUT IT MIGHT BE IN A SEGMENT EITHER
					/ALREADY DONE OR YET TO BE DONE!!
001603  4302		JMS TSTPRM	/TEST FOR A PERMANENT SYMBOL
001604  5534		JMP I [B	/PERMANENT SYMBOL
		/NOTE:SAVE IS SET UP IN TSTPRM TO CONTAIN THE ADDRESS OF THE
		/INDEX WORD. WE USE THIS LATER ON

001605  4314		JMS GETFLD
001606  3267		DCA CDFN	/DETERMINE WHAT FIELD THIS SYMBOL HAS ITS
					/REFS IN AND FORM A CDF N
001607  1023		TAD CHAR
001610  1264		TAD MCOMMA	/IS THIS A DEFINITION?
001611  7440		SZA
001612  1263		TAD MEQ		/AN= MAYBE?
001613  7650		SNA CLA
001614  7001		IAC		/ONE OR OTHER..MARK AS DEFINITION
001615  3262		DCA DEF
001616  6211		CDF 10
001617  1425		TAD I SAVE	/PICK UP POINTER TO REFERENCE AREA
001620  3025		DCA SAVE
001621  1267		TAD CDFN
001622  3223		DCA .+1
001623  7402		HLT		/I HATED TO DO THIS!!!
001624  1425		TAD I SAVE
001625  7710		SPA CLA		/IF THIS IS NEGATIVE, IT MEANS THAT THE
				/SEQUENCE NUMBER HAS WRAPPED AROUND, BUT WE HAVE
				/ALREADY MADE A 0 ENTRY TO SHOW THAT
001626  5241		JMP P2
001627  1050		TAD CONST	/HAS THE SEQUENCE # WRAPPED?
001630  7650		SNA CLA
001631  5241		JMP P2		/NOT YET
001632  4265		JMS REFENT	/YES..MAKE A 0 ENTRY
001633  1267		TAD CDFN
001634  3235		DCA .+1
001635  7402		HLT
001636  1425		TAD I SAVE	/MARK AS HAVING A 0 ENTRY
001637  1133		TAD [4000
001640  3425		DCA I SAVE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 31


001641  6201	P2,	CDF 0
001642  1024		TAD SEQNO	/NOW MAKE A REAL ENTRY
001643  4265		JMS REFENT
001644  1262		TAD DEF
001645  7650		SNA CLA		/SHOULD WE FILL IN THE DEFINITION LOC?
001646  5534		JMP I [B	/NO
001647  7240		CLA CMA
001650  1025		TAD SAVE	/YES..POINT TO IT
001651  3025		DCA SAVE
001652  1267		TAD CDFN
001653  3254		DCA .+1
001654  7402		HLT		/THIS IS SLOPPY, BUT SO AM I
001655  1024		TAD SEQNO
001656  7041		CIA
001657  3425		DCA I SAVE
001660  6201	CDFZ,	CDF 0
001661  5534		JMP I [B
001662  0000	DEF,	0
001663  7757	MEQ,	-21
001664  7524	MCOMMA,	-254

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 32


		/REFENT, MAKES REFERENCES IN THE SYMBOLS AREA AND BUMPS THE
		/FIRST LOCATION TO POINT TO THE NEXT LOC.

001665  0000	REFENT,	0
001666  3027		DCA TEMP1	/SAVE SEQNO
001667  7402	CDFN,	HLT
001670  1425		TAD I SAVE
001671  0140		AND [3777	/MASK OFF WRAP AROUND BIT
001672  7041		CIA
001673  1025		TAD SAVE	/FORM ADDRESS OF THIS REFERENCE
001674  3026		DCA TEMP
001675  1027		TAD TEMP1
001676  3426		DCA I TEMP
001677  2425		ISZ I SAVE	/BUMP POINTER
001700  6201		CDF 0
001701  5665		JMP I REFENT

		/TSTPRM TESTS THE SYMBOL WE HAVE FOUND FOR BEING A PERMANENT SYMBOL
		/PERMANENT SYMBOLS ARE DISTINGUISHED BY HAVING  THE 4000 BIT ON.

001702  0000	TSTPRM,	0
001703  1056		TAD SYMADD
001704  1146		TAD [3
001705  3025		DCA SAVE	/WE USE THIS ON RETURN!!
001706  6211		CDF 10
001707  1456		TAD I SYMADD
001710  6201		CDF 0
001711  7700		SMA CLA		/IS IT MINUS?
001712  2302		ISZ TSTPRM
001713  5702		JMP I TSTPRM

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 33


		/GETFLD DETERMINES WHAT FIELD A PARTICULAR SYMBOL HAS ITS
		/REFS IN. IT DOES IT BY COMPARING THE CURRENT SYMBOLS NUMBER
		/WITH THE ENTRIES IN THE BREAK TABLE.

001714  0000	GETFLD,	0
001715  3051		DCA FLDPTR
001716  1127	GF1,	TAD [BREAK
001717  1051		TAD FLDPTR	/GET BREAK TABLE ENTRY
001720  3026		DCA TEMP
001721  1426		TAD I TEMP
001722  7041		CIA
001723  1057		TAD SYMNUM	/SYMNUM WAS SET UP WHEN WE FOUND THE SYMBOL
001724  7750		SPA SNA CLA
001725  5330		JMP GF2		/FIRST NEG. VALUE GIVE FLDPTR
001726  2051		ISZ FLDPTR	/TRY NEXT
001727  5316		JMP GF1
001730  4332	GF2,	JMS CHDF	/FORM THE CDF N
001731  5714		JMP I GETFLD

001732  0000	CHDF,	0
001733  1051		TAD FLDPTR
001734  7106		CLL RTL
001735  7004		RAL
001736  1260		TAD CDFZ
001737  5732		JMP I CHDF

001740  0000	SPACE,	0		/GENERATES AS MANY SPACES AS ARE IN AC
001741  3332		DCA CHDF
001742  1136		TAD [240
001743  4572		JMS I [OCHAR
001744  2332		ISZ CHDF
001745  5342		JMP SPACE+2
001746  5740		JMP I SPACE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 34


001747  0000	CHECK,	0
001750  1747		TAD I CHECK	/SUBROUTINE TO TEST CHAR
001751  7041		CIA		/AGAINST PRESCRIBED LIMITS
001752  1023		TAD CHAR
001753  7100		CLL
001754  1747		TAD I CHECK
001755  2347		ISZ CHECK
001756  1747		TAD I CHECK
001757  2347		ISZ CHECK
001760  7420		SNL
001761  7610		SKP CLA		/VERY UNESTHETIC..BUT IT WORKS!
001762  7650		SNA CLA
001763  2347		ISZ CHECK
001764  5747		JMP I CHECK

001765  2065	DONE,	ISZ FINI	/SET COMPLETION FLAG
001766  4777		JMS I (IOPEN	/SET FOR REREAD
001767  4776		JMS I (PTRSET	/PREPARE REFERENCE AREAS
001770  3024		DCA SEQNO	/BACK TO BASICS
001771  3050		DCA CONST
001772  5775		JMP I (FIRST	/READ FIRST RECORDS
001775  2160
001776  1337
001777  2600
	2000		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 35


		/DUMP DOES A LITTLE FORMATTING OF THE OUTPUT, AND DUMPS THE
		/CROSS REFERENCING TABLE ONTO THE OUTPUT DEVICE.
		/ANY FIDDLING WITH THE BUFFERS OR DEVICE HANDLERS WILL HAVE TO
		/BE DONE IN DUMP

	0063	COUNTR=BASE
	0066	REFBUF=IOSR
	0061	SCHAR=ADDER

002000  7240	DUMP,	CLA CMA
002001  3046		DCA PASSG1	/FORCES ANOTHER PASS AT ENDPAS
002002  7410	DMP7,	SKP		/V3C
002003  5210		JMP DMP8	/SKIP FIRST-TIME STUFF
002004  2100		ISZ LINES	/V3C
002005  2100		ISZ LINES	/DIF NO. LINES PER PAGE NOW
002006  4565		JMS I [FORM	/FIRST TIME THRU GETS A FORM FEED
002007  3202		DCA DMP7	/FUTURE PASSES DON&#039;T
002010  1042	DMP8,	TAD USER+1
002011  7041		CIA
002012  3063		DCA COUNTR	/# SYMBOLS TO PROCESS NOW
002013  1146		TAD [3
002014  3060		DCA BUFFER	/FIRST SYMBOL IS HERE
002015  5222		JMP DMP6	/GET NO. LINES RIGHT FIRST TIME
002016  4524	DMP5,	JMS I [CRLF	/V3C
002017  2077	DMP,	ISZ LNPRPG	/IS FORM FEED NEEDED?
002020  7410		SKP		/NOT YET
002021  4565		JMS I [FORM
002022  1157	DMP6,	TAD [-3
002023  3033		DCA SYMCNT	/2 CHARACTERS PER PASS
002024  3050		DCA CONST	/RESET FOR &lt;4096
002025  1103		TAD M12
002026  3364		DCA LINENO

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 36


002027  2060	NXTDV,	ISZ BUFFER
002030  6211		CDF 10
002031  1460		TAD I BUFFER	/PICK UP PACKED WORD
002032  6201		CDF 0
002033  7510		SPA 		/PERMANENT SYMBOL?
002034  5351		JMP DPERM	/YES
002035  4571		JMS I [DIVIDE	/CONVERT 2 CHARS AND PRINT
002036  2033		ISZ SYMCNT
002037  5230		JMP NXTDV+1
002040  1152		TAD [-4
002041  4556		JMS I [SPACE	/GENERATE(AC) SPACES
002042  1060		TAD BUFFER
002043  7112		CLL RTR		/GET SYMBOL NUMBER
002044  0126		AND [1777
002045  3057		DCA SYMNUM
002046  4777		JMS I (GETFLD
002047  3253		DCA CDFNA	/CDF N
002050  6211		CDF 10
002051  1460		TAD I BUFFER
002052  3066		DCA REFBUF	/BASE OF REFS FOR SYMBOL
002053  7402	CDFNA,	HLT
002054  1466		TAD I REFBUF	/IF THIS IS NEGATIVE,
002055  7710		SPA CLA		/WE LEFT A REF FOR A 0 ENTRY
002056  1104		TAD M1		/IN THAT CASE,DON&#039;T INCLUDE THAT ONE AS 
002057  1143		TAD [-2		/A REAL ENTRY.
002060  3033		DCA SYMCNT
002061  1466		TAD I REFBUF
002062  0140		AND [3777	/NOW CALCULATE REAL NO. ENTRIES
002063  1033		TAD SYMCNT
002064  7041		CIA
002065  3033		DCA SYMCNT
002066  7240		CLA CMA
002067  1066		TAD REFBUF
002070  3066		DCA REFBUF
002071  1466		TAD I REFBUF	/SEQUENCE # OF DEF.
002072  3363		DCA DEFSEQ

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 37


002073  7240	DMP2,	CLA CMA
002074  1066		TAD REFBUF
002075  3066		DCA REFBUF
002076  1253		TAD CDFNA
002077  3300		DCA .+1
002100  7402		HLT
002101  1466		TAD I REFBUF	/PICK UP A REFERENCE
002102  1363		TAD DEFSEQ	/IS THIS THE DEF?
002103  7640		SZA CLA
002104  5307		JMP	NODEF
002105  3363		DCA	DEFSEQ	/ONLY 1 DEF PER LINE
002106  1146		TAD [3		/YES..PRINT # AFTER SEQ #
002107  1136	NODEF,	TAD [240	/IF NO, PRINT 2 SPACES
002110  3061		DCA SCHAR
002111  1466		TAD I REFBUF
002112  7640		SZA CLA		/IF A 0, ALL FOLLOWING REFS ARE &gt;4095
002113  5317		JMP .+4
002114  1161		TAD [140
002115  3050		DCA CONST
002116  5273		JMP DMP2	/IGNORE ZERO ENTRY!!
002117  1466		TAD I REFBUF
002120  6201		CDF 0
002121  4776		JMS I (CVTSEQ	/WRITE THE DECIMAL SEQUENCE #
002122  1061		TAD SCHAR
002123  4572		JMS I [OCHAR	/EITHER # OR SPACE
002124  7240		CLA CMA
002125  4556		JMS I [SPACE
002126  2033		ISZ SYMCNT	/MORE TO DO?
002127  5336		JMP DMP0	/NO, BUT IS CR/LF REQUIRED?
002130  2063	GETMOR,	ISZ COUNTR	/EXHAUSTED ALL SYMBOLS?
002131  5216		JMP DMP5
002132  1065		TAD FINI	/YES..ARE WE ALL DONE
002133  7650		SNA CLA
002134  5562		JMP I [ENDPAS	/NO..READ IN NEXT SEGMENT
002135  5775		JMP I (OCLOSE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 38


002136  2364	DMP0,	ISZ LINENO	/A CR/LF NEEDED?
002137  5273		JMP DMP2
002140  1103		TAD M12
002141  3364		DCA LINENO	/RESET ENTRIES PER LINE
002142  4524		JMS I [CRLF	/V3C
002143  2077		ISZ LNPRPG	/FORM FEED?
002144  7410		SKP
002145  4565		JMS I [FORM
002146  1103		TAD M12		/AND INDENT NEXT LINE
002147  4556		JMS I [SPACE
002150  5273		JMP DMP2

002151  7200	DPERM,	CLA
002152  1146		TAD [3		/PERMANENT SYMBOL
002153  1060		TAD BUFFER
002154  3060		DCA BUFFER	/LOOK AT NEXT
002155  2063		ISZ COUNTR
002156  5227		JMP NXTDV
002157  5332		JMP GETMOR+2

002160  4774	FIRST,	JMS I (ASHDLR	/RESET INPUT FOR READ
002161  4773		JMS I (RDREC	/AND READ SOME RECORDS
002162  5772		JMP I (NXTLIN	/START READING TEXT


002163  0000	DEFSEQ,	0
002164  7766	LINENO,	-12
002165  0000	PASTST,	0		/SR WHICH DETERMINE IF PASS &gt; 1
002166  1046		TAD PASSG1
002167  7710		SPA CLA		/IF &gt;0=&gt; PASS &gt;1
002170  2365		ISZ PASTST
002171  5765		JMP I PASTST
002172  0404
002173  2714
002174  2672
002175  2400
002176  0454
002177  1714
	2200		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 39


		/I/O ROUTINES FOR OS/8

002200  0000	OUSETP,	0
002201  1377		TAD (OUCTL&amp;3700
002202  7041		CIA
002203  3270		DCA OUDWCT	/SIZE OF BUFF IN DOUBLEWORDS
002204  1354		TAD XOUBUF
002205  3266		DCA OUPTR	/INITIALIZE POINTER
002206  1267		TAD OUJMPE
002207  3225		DCA OUJMP	/RESET 3 WAY SWITCH
002210  5600		JMP I OUSETP

002211  0000	OCHAR,	0
002212  0376		AND (377	/CALLED WITH CHARACTER IN AC
002213  3264		DCA OUTEMP
002214  4560		JMS I [PASTST
002215  5611		JMP I OCHAR
002216  6034	OUTSW,	KRS		/TEST FOR ^C WITH FLAG OR
					/JMP I OCHAR IF /P,/U OR PASS 2 /M
002217  1375		TAD (-203
002220  7650		SNA CLA
002221  6031		KSF
002222  5224		JMP .+2
002223  5567		JMP I [7600	/SAVE CORE FOR SOME REASON
002224  2225		ISZ OUJMP	/BUMP 3 WAY SWITCH

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 40


002225  7402	OUJMP,	HLT
002226  5261		JMP OCHAR1
002227  5256		JMP OCHAR2
002230  1264	OCHAR3,	TAD OUTEMP	/PICK UP CHARACTER
002231  7106		CLL RTL
002232  7006		RTL
002233  0374		AND (7400	/3RD WORD MERGED INTO 2 BUFFER WORDS
002234  1665		TAD I OUPOLD
002235  3665		DCA I OUPOLD
002236  1264		TAD OUTEMP
002237  7112		CLL RTR
002240  7012		RTR
002241  7010		RAR
002242  0374		AND (7400
002243  1666		TAD I OUPTR
002244  3666		DCA I OUPTR
002245  1267		TAD OUJMPE
002246  3225		DCA OUJMP	/RESET FOR NEW SET OF 3 CHARS
002247  2266		ISZ OUPTR	/BUMP BUFFER POINTER

002250  2270		ISZ OUDWCT
002251  5263		JMP OUCOMN
002252  1271		TAD OUCT	/YEP
002253  4340		JMS OUTDMP	/WRITE IT
002254  4200		JMS OUSETP	/RESET OUT BUFFER
002255  5611		JMP I OCHAR
002256  1266	OCHAR2,	TAD OUPTR
002257  3265		DCA OUPOLD	/FOR LATER
002260  2266		ISZ OUPTR	/SECOND WORD GOES HERE
002261  1264	OCHAR1,	TAD OUTEMP
002262  3666		DCA I OUPTR
002263  5611	OUCOMN,	JMP I OCHAR


002264  0000	OUTEMP,	0		/TEMP STORE
002265  0000	OUPOLD,	0		/HOLDS OLD POINTER
002266  0000	OUPTR,	0
002267  5225	OUJMPE,	JMP OUJMP
002270  0000	OUDWCT,	0
002271  4200	OUCT,	OUCTL

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 41


002272  0000	OOPEN,	0		/OPEN AN OUTPUT FILE;FETCH HANDLER
002273  1373		TAD (OFILE
002274  3316		DCA OUBLK	/POINT TO FILE NAME
002275  1326		TAD XOUDEV
002276  3305		DCA OUHNDL	/LEAVE ROOM FOR 2 PAGE HANDLER
002277  6211		CDF 10
002300  1567		TAD I [7600	/OUTPUT DEVICE #
002301  6201		CDF 0
002302  6212		CIF 10
002303  4452		JMS I USR	/ASSIGN,FETCH HANDLER
002304  0001		1
002305  7402	OUHNDL,	HLT		/GETS ENTRY POINT OF HANDLER
002306  5075		JMP	HIOERR	/HANDLER FAILURE
002307  4772	OUENTR,	JMS I	(P2ADJ
002310  6211		CDF 10
002311  1567		TAD I [7600
002312  6201		CDF 0
002313  6212		CIF 10
002314  4452		JMS I USR
002315  0003		3		/ENTER OUTPUT FILE
002316  2513	OUBLK,	OFILE
002317  0000	OUELEN,	0		/RETURNS WITH LENGTH OF HOLE
002320  5327		JMP OEFAIL
002321  3771	MP2,	DCA I (OUCCNT
002322  1316		TAD OUBLK	/STARTING RECORD
002323  3355		DCA OUREC
002324  4200		JMS OUSETP	/SETUP OUTPUT AREA
002325  5672		JMP I OOPEN
002326  4201	XOUDEV,	OUDEVH+1

002327  6211	OEFAIL,	CDF 10
002330  1567		TAD I [7600
002331  0370		AND (7760	/GET LENGTH PART
002332  7650		SNA CLA		/WAS IT 0?
002333  5365		JMP ERR3	/YEP..HE LOSES
002334  1567		TAD I [7600
002335  0166		AND [17		/TRY WITH INDETERMINATE LENGTH
002336  3567		DCA I [7600
002337  5307		JMP OUENTR

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 42


002340  0000	OUTDMP,	0		/WRITE ACTUAL OUTPUT
002341  3353		DCA OUCTLW
002342  4767		JMS I (OUNREC	/FIGURE # RECS TO WRITE
002343  1771		TAD I (OUCCNT
002344  3771		DCA I (OUCCNT	/UPDATE CLOSE LENGTH
002345  1771		TAD I (OUCCNT
002346  7120		CLL CML
002347  1317		TAD OUELEN	/ROOM FOR THIS WRITE?
002350  7620		SNL CLA
002351  5363		JMP ERR4	/HE LOSES
002352  4705		JMS I OUHNDL	/NJ WRITE IT
002353  0000	OUCTLW,	0
002354  7200	XOUBUF,	OUBUF
002355  0000	OUREC,	0
002356  5075		JMP	HIOERR	/A HANDLER BADNESS
002357  4767		JMS I (OUNREC
002360  1355		TAD OUREC	/UPDATE OUTPUT RECORD #
002361  3355		DCA OUREC
002362  5740		JMP I OUTDMP

002363  4576	ERR4,	JMS I	[ERROR
002364  3030		FULERR
002365  4576	ERR3,	JMS I	[ERROR
002366  3022		ENTERR
002367  3200
002370  7760
002371  2471
002372  0263
002373  2513
002374  7400
002375  7575
002376  0377
002377  0200
	2400		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 43


	0005		VV1=VERSN%12
	0062		VV2=VV1^12

002400  1307	OCLOSE,	TAD	HCREF
002401  7640		SZA CLA		/IF NOT LAST PASS
002402  5214		JMP	NOVERS	/NO NEED FOR VERSION NO.
002403  4354		JMS	CRLF
002404  1123		TAD	[&quot;V
002405  4572		JMS I	[OCHAR
002406  1377		TAD	(VV1+40^R+VERSN-VV2+40
002407  4571		JMS I	[DIVIDE
002410  1376		TAD	(PATCHL	/PATCH NO.-ON PAGE
002411  4572		JMS I	[OCHAR
002412  4354		JMS	CRLF
002413  4317		JMS FORM	/V3C
		NOVERS,
002414  1307		TAD	HCREF
002415  7650		SNA	CLA	/IF /M PASS 1
002416  1375		TAD (232
002417  4572		JMS I [OCHAR	/NO 232
002420  4572		JMS I [OCHAR
002421  4572	FILLIP,	JMS I [OCHAR	/FILL WITH 0&#039;S
002422  1374		TAD (177
002423  0773		AND I (OUDWCT
002424  7640		SZA CLA		/TO BOUNDARY YET?
002425  5221		JMP FILLIP	/NO..KEEP FILLING
002426  1773		TAD I (OUDWCT
002427  1372		TAD (OUCTL&amp;3700
002430  7450		SNA		/FULL WRITE LEFT?
002431  5234		JMP NODUMP	/YES..BUT ^Z IS OUT
002432  1371		TAD (4000+OUFLD	/FORM WRITE
002433  4770		JMS I (OUTDMP

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 44


		/FOR LONG FILES(/M), IT WILL CHAIN TO ITSELF ON FIRST PASS.
		/ON SECOND PASS,IT WILL DELETE FILE CREFTM.LS(IF NO E)

002434  6212	NODUMP,	CIF 10
002435  4452		JMS I USR
002436  0010		10		/LOCK IN MONITOR
002437  1767		TAD I	(OUREC	
002440  6211		CDF 10
002441  3414		DCA I	OUSAVX
002442  6201		CDF	0
002443  1766		TAD I	(OUELEN
002444  6211		CDF	10
002445  3414		DCA I	OUSAVX
002446  1077		TAD	LNPRPG
002447  3414		DCA I	OUSAVX
002450  1271		TAD	OUCCNT
002451  3414		DCA I	OUSAVX
002452  2307		ISZ	HCREF
002453  5263		JMP	NOD1
002454  1306		TAD	CHNHND
002455  6201		CDF 0
002456  6212		CIF	10
002457  4522		JMS I	[200
002460  0006		6
002461  0000	CHNBLK,	0
002462  0000		0
		/	--------
002463  1567	NOD1,	TAD I	[7600
002464  6201		CDF 0
002465  6212		CIF 10
002466  4522		JMS I [200
002467  0004		4		/CLOSE OUTPUT FILE
002470  2513		OFILE		/POINTER TO FILE NAME
002471  0000	OUCCNT,	0		/CLOSING LENGTH
002472  5311		JMP ERR5	/SORRY
002473  2310		ISZ	SLSWH	/DELETE TEMP FILE SWITCH
002474  5305		JMP	ALDONE
002475  7201		CLA IAC		/SYS
002476  6201		CDF 0
002477  6212		CIF 10
002500  4522		JMS I	[200
002501  0004		4		/DELETE CREFLS.TM
002502  3135		CHANNM
002503  0000		0
002504  7200		CLA
002505  5570	ALDONE,	JMP I [7605
002506  7607	CHNHND,	7607
002507  0000	HCREF,	0
002510  0000	SLSWH,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 45


002511  4576	ERR5,	JMS I	[ERROR
002512  3036		CLSERR

002513  0000	OFILE,	ZBLOCK 4	/OUTPUT FILE NAME GOES HERE

002517  0000	FORM,	0		/GENERATE 214 IF NOT TTY
002520  4560		JMS I [PASTST	/IF PASS&gt;1, NO FORM FEED
002521  5717		JMP I FORM
002522  1362		TAD TTYSWT
002523  7640		SZA CLA
002524  5350		JMP FORM2
002525  1152		TAD [-4
002526  3022		DCA COUNT
002527  4354		JMS CRLF	
002530  2022		ISZ COUNT
002531  5357		JMP CRLF1	/HA! GENERATE EXTRA LINE FEED!!
002532  1173		TAD [-6
002533  3022		DCA COUNT
002534  1365		TAD (&quot;-		/GENERATE ------
002535  4572		JMS I [OCHAR
002536  2022		ISZ COUNT
002537  5334		JMP .-3
002540  1152		TAD [-4
002541  3022		DCA COUNT
002542  4354	FORM3,	JMS CRLF
002543  2022		ISZ COUNT
002544  5357		JMP CRLF1
002545  1100		TAD LINES	/V3C
002546  3077		DCA LNPRPG	/RESET TO TOP OF PAGE
002547  5717		JMP I FORM

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 46


002550  7240	FORM2,	CLA CMA
002551  3022		DCA COUNT
002552  7040		CMA
002553  5342		JMP FORM3	/USE [215 TO GENERATE A 214

002554  0000	CRLF,	0		/GENERATE CRRIAGE RET AND LINE FEED
002555  1121		TAD [215
002556  4572		JMS I [OCHAR
002557  1120	CRLF1,	TAD [212
002560  4572		JMS I [OCHAR
002561  5754		JMP I CRLF

002562  0000	TTYSWT,	0
002565  0255
002566  2317
002567  2355
002570  2340
002571  4000
002572  0200
002573  2270
002574  0177
002575  0232
002576  0330
002577  3062
	2600		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 47


002600  0000	IOPEN,	0
002601  7240		CLA CMA
002602  3265		DCA INCHCT	/FORCE READ OF NEW FILE
002603  2267		ISZ INEOF
002604  1377		TAD (7617
002605  3266		DCA INFPTR
002606  5600		JMP I IOPEN

002607  4600	INPTR,	INBUF

002610  0000	ICHAR,	0
002611  2227	INCHAR,	ISZ INJMP	/PACKING SWITCH
002612  2265		ISZ INCHCT	/BUFFER EXHAUSTED?
002613  5227	INJMPP,	JMP INJMP	/NOPE
002614  1267		TAD INEOF	/WAS LAST AN EOF?
002615  7650		SNA CLA
002616  5225		JMP INGBUF	/NO..GET NEXT INPUT
002617  6211		CDF 10
002620  1666		TAD I INFPTR
002621  6201		CDF 0
002622  7650		SNA CLA		/MORE INPUT?
002623  5610		JMP I ICHAR	/NO..EOF RETURN

002624  4272		JMS ASHDLR	/SET UP STRT RECORD
002625  4314	INGBUF,	JMS RDREC	/AND READ SOME RECORDS
002626  5211		JMP INCHAR
					/THIS IS DONE TO OPTIMIZE THE DECTAPE
					/ROCKING. INITIALIZATION DOES THESE
					/THE FIRST TIME.

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 48


002627  5227	INJMP,	JMP .		/3 WAY SWITCH
002630  5251		JMP ICHAR1
002631  5245		JMP ICHAR2
002632  1213	ICHAR3,	TAD INJMPP
002633  3227		DCA INJMP
002634  1607		TAD I INPTR
002635  0376		AND (7400	/CONTENTS OF BUFFER
002636  7112		CLL RTR
002637  7012		RTR
002640  1333		TAD INCTLW
002641  7012		RTR
002642  7012		RTR		/GETS THIRD WORD FROM 1 AND 2
002643  2207		ISZ INPTR	/NEXT BUFFER LOC
002644  5252		JMP INCOMN
002645  1607	ICHAR2,	TAD I INPTR
002646  0376		AND (7400
002647  3333		DCA INCTLW	/TEMP SAVE
002650  2207		ISZ INPTR
002651  1607	ICHAR1,	TAD I INPTR
002652  0375	INCOMN,	AND (177	/PARITY TEST
002653  7450		SNA		/IF 200 CODE..IGNORE IT
002654  5211		JMP INCHAR
002655  1122		TAD [200
002656  1374		TAD (-232	/IS IT ^Z?
002657  7450		SNA
002660  5610		JMP I ICHAR	/YES..NOMMORE!!
002661  1373		TAD (232
002662  2210		ISZ ICHAR	/SKIP EOF RETURN
002663  3023		DCA CHAR
002664  5610		JMP I ICHAR
002665  0000	INCHCT,	0
002666  7617	INFPTR,	7617
002667  0000	INEOF,	0
002670  0000	INCTR,	0
002671  0000	INHAND,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 49


002672  0000	ASHDLR,	0
002673  6211		CDF 10
002674  1666		TAD I INFPTR
002675  0372		AND (7760	/LENGTH PART OF WORD
002676  7440		SZA		/0 IMPLIES .GTE. 256
002677  1166		TAD [17
002700  7132		CLL CML RTR
002701  7012		RTR
002702  3270		DCA INCTR
002703  2266		ISZ INFPTR	/BUMP TO NEXT
002704  1666		TAD I INFPTR	/GET STARTING RECORD
002705  3335		DCA INREC
002706  2266		ISZ INFPTR
002707  3267		DCA INEOF
002710  6201		CDF 0
002711  5672		JMP I ASHDLR
002712  0002	XINREC,	2		/DEFAULT CONDITIONS
002713  0401	XINCL1,	401

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 50


002714  0000	RDREC,	0
002715  1270		TAD INCTR
002716  7100		CLL
002717  1312		TAD XINRECS	/LINK ON IF OVERFLOW AND LAST READ
002720  7420		SNL
002721  3270		DCA INCTR	/UPDATE IF NO OVERFLOW
002722  7430		SZL
002723  2267		ISZ INEOF
002724  7172		CLL CML CMA RTR	/CONTROL WORD FROM OVERFLOW
002725  7012		RTR
002726  7012		RTR
002727  1313		TAD XINCL1
002730  3333		DCA INCTLW
002731  6201		CDF 0
002732  4671		JMS I INHAND
002733  0000	INCTLW,	0
002734  4600	INBUFP,	INBUF
002735  0000	INREC,	0
002736  5356		JMP INERRX	/FATAL OR EOF
002737  1335	INBREC,	TAD INREC
002740  1312		TAD XINREC
002741  3335		DCA INREC	/UPDATE # READ
002742  1333		TAD INCTLW
002743  0167		AND [7600
002744  7104		CLL RAL
002745  1333		TAD INCTLW
002746  0167		AND [7600
002747  7040		CMA
002750  3265		DCA INCHCT	/NEW CHARACTER COUNT
002751  1213		TAD INJMPP
002752  3227		DCA INJMP
002753  1334		TAD INBUFP
002754  3207		DCA INPTR
002755  5714		JMP I RDREC

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 51


002756  2267	INERRX,	ISZ INEOF	/FATAL OR EOF
002757  7700		SMA CLA
002760  5337		JMP INBREC	/EOF..NEXT FILE
002761  4576		JMS I [ERROR
002762  3044		INPERR

002763  0000	TTYPRT,	0		/SIMPLE TTY OUTPUT ROUTINE
002764  6046		TLS
002765  6041		TSF
002766  5365		JMP .-1
002767  7200		CLA
002770  5763		JMP I TTYPRT
002772  7760
002773  0232
002774  7546
002775  0177
002776  7400
002777  7617
	3000		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 52


		IFNDEF GERMAN &lt;
		HNDERR,	&quot;H-300^R+&quot;A-300		/HANDLER FAIL
			&quot;N-300^R+&quot;D-300
			&quot;L-300^R+&quot;E-300
			&quot;R-300^R
			&quot;F-300^R+&quot;A-300
			&quot;I-300^R+&quot;L-300

		SYMERR,	&quot;S-300^R+&quot;Y-300
			&quot;M-300^R
			&quot;O-300^R+&quot;V-300
			&quot;E-300^R+&quot;R-300
			&quot;F-300^R+&quot;L-300
			&quot;O-300^R+&quot;W-300

		LPTERR,	&quot;D-300^R+&quot;E-300		/DEV LPT BAD
			&quot;V-300^R
			&quot;L-300^R+&quot;P-300
			&quot;T-300^R
			&quot;B-300^R+&quot;A-300
			&quot;D-300^R

		ENTERR,	&quot;E-300^R+&quot;N-300
			&quot;T-300^R+&quot;E-300
			&quot;R-300^R
			&quot;F-300^R+&quot;A-300
			&quot;I-300^R+&quot;L-300
			&quot;E-300^R+&quot;D-300

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 53


		FULERR,	&quot;O-300^R+&quot;U-300
			&quot;T-300^R
			&quot;D-300^R+&quot;E-300
			&quot;V-300^R
			&quot;F-300^R+&quot;U-300
			&quot;L-300^R+&quot;L-300

		CLSERR,	&quot;C-300^R+&quot;L-300
			&quot;O-300^R+&quot;S-300
			&quot;E-300^R
			&quot;F-300^R+&quot;A-300
			&quot;I-300^R+&quot;L-300
			&quot;E-300^R+&quot;D-300

		INPERR,	&quot;I-300^R+&quot;N-300
			&quot;P-300^R+&quot;U-300
			&quot;T-300^R
			&quot;E-300^R+&quot;R-300
			&quot;R-300^R+&quot;O-300
			&quot;R-300^R

		REFERR,	42^R+40		/2045 REFS
			44^R+45
			&quot;R-300
			&quot;E-300^R+&quot;F-300
			&quot;S-300^R
			0
			&gt;

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 54


		IFDEF GERMAN &lt;
003000  0453	HNDERR,	&quot;G-300^R+&quot;E-300		/HANDLER FAIL
003001  1365		&quot;R-300^R+&quot;A-300
003002  0346		&quot;E-300^R+&quot;T-300
003003  0322		&quot;E-300^R
003004  0401		&quot;F-300^R+&quot;E-300
003005  0534		&quot;H-300^R+&quot;L-300

003006  1467	SYMERR,	&quot;S-300^R+&quot;Y-300
003007  1044		&quot;M-300^R+&quot;B-300
003010  1202		&quot;O-300^R+&quot;L-300
003011  0322		&quot;E-300^R
003012  1653		&quot;V-300^R+&quot;O-300
003013  1004		&quot;L-300^R+&quot;L-300

003014  1010	LPTERR,	&quot;L-300^R+&quot;P-300		/DEV LPT BAD
003015  1510		&quot;T-300^R
003016  0401		&quot;F-300^R+&quot;E-300
003017  0534		&quot;H-300^R+&quot;L-300
003020  0344		&quot;E-300^R+&quot;R-300
003021  0000		0

003022  0333	ENTERR,	&quot;E-300^R+&quot;I-300
003023  1140		&quot;N-300^R+&quot;T-300
003024  1364		&quot;R-300^R
003025  0401		&quot;F-300^R+&quot;E-300
003026  0534		&quot;H-300^R+&quot;L-300
003027  0344		&quot;E-300^R+&quot;R-300

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 55


003030  0077	FULERR,	&quot;A-300^R+&quot;U-300
003031  1436		&quot;S-300^R
003032  0615		&quot;I-300^R+&quot;S-300
003033  1510		&quot;T-300^R
003034  1653		&quot;V-300^R+&quot;O-300
003035  1004		&quot;L-300^R+&quot;L-300

003036  0212	CLSERR,	&quot;C-300^R+&quot;L-300
003037  1211		&quot;O-300^R+&quot;S-300
003040  0322		&quot;E-300^R
003041  0401		&quot;F-300^R+&quot;E-300
003042  0534		&quot;H-300^R+&quot;L-300
003043  0344		&quot;E-300^R+&quot;R-300

003044  0775	INPERR,	&quot;L-300^R+&quot;E-300
003045  1443		&quot;S-300^R+&quot;E-300
003046  0006		&quot;F-300
003047  0332		&quot;E-300^R+&quot;H-300
003050  0775		&quot;L-300^R+&quot;E-300
003051  1364		&quot;R-300^R

003052  2664	REFERR,	42^R+40		/2045 REFS
003053  3015		44^R+45
003054  0022		&quot;R-300
003055  0330		&quot;E-300^R+&quot;F-300
003056  1416		&quot;R-300^R+&quot;Z-300
003057  0000		0
			&gt;

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 56


		/LITERAL PROCESSORS. LITERALS ARE HANDLED ACCORDING TO THEIR
		/BINARY DEFINITION. A CURRENT PAGE LITERAL AT,SAY, 0377 WILL
		/BE CALLED _L0377. A PAGE ZERO LITERAL AT LOCATION 0100 WILL
		/BE CALLED _L0100
		/IF ASSEMBLED WITH NEW PAL8, LITERAL INCLUDES FIELD
		/SO 00377 IS _00377, 10377 IS _10377

003060  1377	LIT2,	TAD (2540	/PAGE 0..FIRST NUMBER ALWAYS 0
003061  3037		DCA SYM2	/_L GOES IN SYM1 FOR BOTH
003062  4323		JMS	LCHK
003063  2034		ISZ ISYM
003064  2034		ISZ ISYM	/POINT TO SYM3 FOR LAST 2 DIGITS
003065  5275		JMP LIT3	/COMMON CODE
003066  4323	LIT1,	JMS	LCHK
003067  2034		ISZ ISYM	/POINT TO SECOND WORD
003070  1411		TAD I XRLIT	/FIRST BINARY DIGIT
003071  4542		JMS I [PACK
003072  1411		TAD I XRLIT
003073  0376		AND (266	/THIS KNOCKS OFF RELATIVE ADDRESS BIT
003074  4542		JMS I [PACK	/GOES INTO RIGHT HALF OF SYM2
003075  1030	LIT3,	TAD DSWIT	/IF /D, DON&#039;T CREF LITERALS
003076  7640		SZA CLA
003077  5320		JMP LITEX	/DON&#039;T DO ANYTHING BUT CLEAR COUNTERS
003100  1375		TAD (LITBUF+1	/NOW PICK UP RELATIVE ADD BIT FROM INSTRUCT.
003101  3011		DCA XRLIT
003102  1411		TAD I XRLIT
003103  0374		AND (1
003104  1037		TAD SYM2
003105  3037		DCA SYM2	/FORMING ADDRESS OF LITERAL!
003106  1411		TAD I XRLIT
003107  4542		JMS I [PACK
003110  1411		TAD I XRLIT
003111  4542		JMS I [PACK	/LOAD UP SYM3
003112  1341		TAD	ENDFIX	/WILL PRINT FIELD WITH LIT IF NEW PAL8
003113  0373		AND	(57
003114  1117		TAD	[2426
003115  3036		DCA SYM1	/PUT IN _ (NEGATIVE!)
003116  4772		JMS I (REPACK

003117  5722		JMP I XUSSYM	/DO THE BOOKKEEPING
003120  4772	LITEX,	JMS I (REPACK
003121  5534		JMP I [B

003122  0665	XUSSYM,	USSYM		/WILL BE CHANGED TO PATCH IF /L

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 57


003123  0000	LCHK,	0
003124  1021		TAD	MARGIN
003125  3011		DCA	XRLIT
003126  1411		TAD I	XRLIT
003127  3341		DCA	ENDFIX
003130  1341		TAD	ENDFIX
003131  1371		TAD	(-240
003132  7650		SNA CLA
003133  5320		JMP	LITEX
003134  5723		JMP I	LCHK


/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 58


003135  0322	CHANNM,	FILENAME CREFLS.TM
003136  0506
003137  1423
003140  2415

003141  0000	ENDFIX,	0		/TEMP ALSO
003142  4770		JMS I	(DOLOT2
003143  3342		DCA	.-1	/ONCE ONLY
003144  1062		TAD	SYSM
003145  7450		SNA
003146  5767		JMP I	(NDPS1
003147  5741		JMP I	ENDFIX
003167  1413
003170  5715
003171  7540
003172  0741
003173  0057
003174  0001
003175  0237
003176  0266
003177  2540
	3200		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 59


003200  0000	OUNREC,	0		/ESTIMATE # RECS
003201  1607		TAD I	XOCTLW
003202  7106		CLL RTL
003203  7006		RTL
003204  7006		RTL		/ITS NOT AN ESTIMATE, BUT EXACT!!
003205  0166		AND [17
003206  5600		JMP I OUNREC
003207  2353	XOCTLW,	OUCTLW

003210  0000	DIVIDE,	0
003211  3234		DCA DIV45B
003212  3235		DCA DIV45C
003213  5216		JMP DIV45D	/START UP HERE

003214  2235	DIV45A,	ISZ DIV45C	/BUMP THE QUOTIENT
003215  3234		DCA DIV45B	/NEW DIVIDEND
003216  1234	DIV45D,	TAD DIV45B
003217  1377		TAD (-52	/DIVIDE BY 52
003220  7500		SMA
003221  5214		JMP DIV45A	/STILL +; KEEP LOOPING
003222  1376		TAD (52		/REMAINDER IN AC AFTER ADD
003223  4775		JMS I (DIVE	/LETTER OR NUMBER?
003224  3234		DCA DIV45B
003225  1235		TAD DIV45C
003226  4775		JMS I (DIVE
003227  4572		JMS I	[OCHAR
003230  1234		TAD DIV45B
003231  4572		JMS I [OCHAR
003232  2060		ISZ BUFFER
003233  5610		JMP I DIVIDE

003234  0000	DIV45B,	0
003235  0000	DIV45C,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 60


003236  0000	GETLIN,	0		/GET A LINE OF INPUT AND STORE
003237  1021		TAD MARGIN	/IT AT LINBUF
003240  3010		DCA XRLINE
003241  4774	INLINE,	JMS I (ICHAR
003242  5344		JMP EN
003243  1314		TAD	RLSKIP	/IF RALF HEADER,ELIM 2 LF
003244  7650		SNA CLA	
003245  5252		JMP	REGULR	/NOT RALF
003246  2314		ISZ	RLSKIP	/CATCH 2ND LINE
003247  5241		JMP	INLINE
003250  1143		TAD	[7776	/ELIM EXTRA CR AFTER HEADER
003251  3315		DCA	CRCNT
003252  1023	REGULR,	TAD CHAR	/LINE FEED TERMINATES THIS ROUTINE
003253  1032		TAD MLF
003254  7450		SNA
003255  5241		JMP INLINE	/IGNORE LF&#039;S ON INPUT
003256  1157		TAD [212-215	/LF-CR
003257  7450		SNA
003260  5271		JMP GLIN3
003261  1373		TAD	(215-211	/IS IT TAB?
003262  7650		SNA CLA
003263  5326		JMP	GETAB
003264  4316		JMS	PUTIT
003265  1023		TAD CHAR
003266  1116		TAD [-214
003267  7640		SZA CLA
003270  5241		JMP	INLINE
003271  1121	GLIN3,	TAD [215
003272  4505		JMS I FPUT
003273  1315	GLIN4,	TAD	CRCNT
003274  7650		SNA CLA
003275  5301		JMP	CROUT	/NEED THIS CR
003276  2315		ISZ	CRCNT
003277  5301		JMP	CROUT	/NEED CR AFTER HEADER
003300  5237		JMP	GETLIN+1
003301  1120	CROUT,	TAD	[212
003302  4505		JMS I	FPUT
003303  1021		TAD	MARGIN
003304  3010		DCA	XRLINE
003305  1122	GLIN6,	TAD	[200	/TEST FOR ^C
003306  6034		KRS
003307  1372		TAD (-203
003310  7650		SNA CLA
003311  6031		KSF
003312  5636		JMP I	GETLIN
003313  5570		JMP I [7605	/FOUND ^C
003314  0000	RLSKIP,	0
003315  0000	CRCNT,	0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 61


003316  0000	PUTIT,	0
003317  1010		TAD XRLINE
003320  1371		TAD (-375
003321  7700		SMA CLA
003322  5716		JMP I PUTIT
003323  1023		TAD CHAR
003324  4505		JMS I FPUT
003325  5716		JMP I PUTIT

003326  1136	GETAB,	TAD	[240
003327  3023		DCA	CHAR
003330  4316		JMS	PUTIT
003331  7201		CLA IAC
003332  1010		TAD	XRLINE
003333  0115		AND	[7
003334  7640		SZA CLA
003335  5326		JMP	GETAB
003336  5241		JMP	INLINE

003337  0000	CLEAR,	0		/ROUTINE TO CLEAN OUT OLD SYMBOL
003340  3036		DCA SYM1
003341  3037		DCA SYM2
003342  3040		DCA SYM3
003343  5737		JMP I CLEAR

003344  4106	EN,	JMS DPAT	/V3D
003345  5562		JMP I [ENDPAS
003371  7403
003372  7575
003373  0004
003374  2610
003375  1152
003376  0052
003377  7726
	3400		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 62


		/SUBROUTINE TO DETERMINE CORE SIZE
003400  0000	FTEST,	0
003401  7301		CLA CLL IAC
003402  3047		DCA	MAXFLD	/IN CASE NOT DEFINED
003403  1777		TAD I	(7777
003404  0376		AND	(70
003405  7450		SNA
003406  5213		JMP	COR0	/TRY IT OUT OURSELVES
003407  7112		CLL RTR
003410  7010		RAR		/NEED IT HI 3
003411  3047		DCA	MAXFLD
003412  5244		JMP	DONCOR
003413  6201	COR0,	CDF	0
003414  1047		TAD	MAXFLD	/GET FIELD TO TEST
003415  7006		RTL
003416  7004		RAL
003417  0230		AND	COR70
003420  1243		TAD	COREX
003421  3222		DCA	.+1
003422  6201	COR1,	CDF		/FIELD TO TEST
003423  1645		TAD I	CORLOC
003424  7000	COR2,	NOP
003425  3222		DCA	COR1
003426  1224		TAD	COR2
003427  3645		DCA I	CORLOC
003430  0070	COR70,	70
003431  1645		TAD I	CORLOC
003432  7400	CORX,	7400
003433  1232		TAD	CORX
003434  1246		TAD	CORV
003435  7640		SZA CLA
003436  5243		JMP	COREX	/NON-EXISTENT FIELD
003437  1222		TAD	COR1
003440  3645		DCA I	CORLOC
003441  2047		ISZ	MAXFLD
003442  5213		JMP	COR0
003443  6201	COREX,	CDF 0
003444  5600	DONCOR,	JMP I	FTEST
003445  3432	CORLOC,	CORX
003446  1400	CORV,	1400
003576  0070
003577  7777
	3600		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 63


		/THIS INITIALIZATION CODE IS DESTROYED WHEN DATA IS READ
		/INTO THE BUFFER. FOR THAT REASON, CREF IS NOT RESTARTABLE

	4200		*OUDEVH
004200  6201	ST1,	CDF 0
004201  6212	KLUD,	CIF 10
004202  4452		JMS I USR
004203  0005		5
004204  1423		1423		/DEFAULT EXTENSION IS .LS
004205  6211	CHAIN,	CDF 10
004206  1777		TAD I (7617	/IF NO INPUT, RESTART CD
004207  7650		SNA CLA
004210  5200		JMP ST1
004211  1567		TAD I [7600	/IF NO OUTPUT, GIVE HIM LPT!!
004212  7640		SZA CLA
004213  5227		JMP ST2
004214  6201		CDF 0
004215  6212		CIF 10
004216  4522		JMS I [200
004217  0012		12		/ASSIGN-NO FETCH
004220  1420		1420
004221  2400	DEVS,	2400
004222  0000		0
004223  5334		JMP ERRTWO	/DEFAULT DEVICE IS BAD
004224  1221		TAD DEVS
004225  6211		CDF 10
004226  3567		DCA I [7600
004227  6201	ST2,	CDF	0
004230  4776		JMS I	(SWITCH
004231  6211		CDF	10
004232  1414		TAD I	OUSAVX
004233  6201		CDF	0
004234  3112		DCA	PASS2
004235  1152	BLUE0,	TAD	[-4
004236  3022		DCA	COUNT
004237  6211	BLUE,	CDF 10	
004240  1750		TAD I XNAME
004241  6201		CDF 0
004242  3775		DCA I (OFILE
004243  2350		ISZ XNAME
004244  2375		ISZ (OFILE
004245  2022		ISZ COUNT
004246  5237		JMP BLUE
004247  4774		JMS I (OTYPE
004250  0373		AND (770	/CHECK FOR TTY AS OUTPUT	(CAN CLA IF DEBUGGING)
004251  3772		DCA I (TTYSWT
004252  1772		TAD I (TTYSWT	/IF LPT IS OUTPUT,
004253  7640		SZA CLA		/NO INTERNAL FORM FEEDS GENERATED
004254  3771		DCA I (NOFORM

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 64


		/NOW WE MOVE UP THE PERMANENT AND PSEUDO-OP TABLES.
		/THE Y WERE ASSEMBLED IN FIELD 0 TO SAVE DECTAPE MOTION
		/WHEN LOADING.
004255  4770		JMS I (FTEST	/GET MACHINE SIZE
004256  1047		TAD	MAXFLD
004257  7041		CIA
004260  3047		DCA	MAXFLD	/- NO.FIELDS
004261  6211		CDF 10		/ASSIGN THE INPUT HANDLER
004262  1777		TAD I (7617
004263  6201		CDF 0
004264  6212		CIF 10
004265  4452		JMS I USR
004266  0001		1
004267  3601	INHNDL,	INDEVH+1
004270  7402		HLT		/YECH!!!
004271  1267		TAD INHNDL
004272  3767		DCA I (INHAND	/SETUP ENTRY POINT
004273  4766		JMS I (ASHDLR	/SET UP FIRST READ
004274  1365		TAD (7700
004275  3052		DCA USR	/SAVE SYMBOL TABLE
004276  1764		TAD I (7746
004277  0201		AND KLUD
004300  1142		TAD [1000	/MARK NOT RESTARTABLE
004301  3764		DCA I (7746	/SAVE CORE BIT
004302  1410		TAD I XRLINE
004303  3022		DCA COUNT	/INITIAL LOAD PROVIDES PARAMETERS FOR
					/THE SYMBOL TABLE. THIS IS # WORDS TO MOVE
004304  4324		JMS MOVEM
004305  1031		TAD RSWIT
004306  7650		SNA CLA		/DETERMINE WHICH PSEUDO-OPS
004307  1363		TAD (PPSEUD-SPSEUD
004310  1362		TAD (SPSEUD-1
004311  3010		DCA XRLINE
004312  1410		TAD I XRLINE
004313  3043		DCA PSEUDO	/TABLES INITIALLY HAVE A SHORT HEADER
					/WHICH CONTAINS INFORMATION ABOUT THEM
					/PSEUDO CONTAINS STARTING # OF FIRST
004314  1410		TAD I XRLINE
004315  3044		DCA PSEUDO+1	/LAST ENTRY #
004316  1410		TAD I XRLINE
004317  3022		DCA COUNT	/# ENTRIES TO MOVE
004320  1410		TAD I XRLINE
004321  3011		DCA XRLIT	/WHERE THEY GO IN FIELD 1
004322  4324		JMS MOVEM
004323  5761		JMP I (XFIRST	/READ FIRST RECORDS

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 65


004324  0000	MOVEM,	0
004325  1410		TAD I XRLINE
004326  6211		CDF 10
004327  3411		DCA I XRLIT
004330  6201		CDF 0
004331  2022		ISZ COUNT
004332  5325		JMP .-5
004333  5724		JMP I MOVEM
004334  4576	ERRTWO,	JMS I [ERROR	/THIS IS AN IMPOSSIBLE ERROR
004335  3014		LPTERR
004336  0000	CHANCK,	0
004337  7106		CLL RTL		/CHECK FOR /C+/E
004340  7004		RAL
004341  7420		SNL
004342  5736		JMP I	CHANCK	//C IS MINIMUM CONDITION
004343  7012		RTR		/V3C USE /1 TO MEAN KEEP CREFLS.TM
004344  7620		SNL	CLA
004345  7040		CMA		/-1 IF NO E (I.E. DO ELIMINATE)
004346  3760		DCA I	(SLSWH
004347  5736		JMP I	CHANCK
004350  7601	XNAME,	7601	

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 66


004351  1357	PATCHA,	TAD (35
004352  3042		DCA USER+1
004353  5235		JMP BLUE0
004357  0035
004360  2510
004361  5713
004362  5244
004363  0154
004364  7746
004365  7700
004366  2672
004367  2671
004370  3400
004371  0431
004372  2562
004373  0770
004374  0302
004375  2513
004376  4400
004377  7617
	4400		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 67


004400  0000	SWITCH,	0
004401  4777		JMS I	(FILEXT
004402  7201		CLA IAC
004403  6211		CDF	10
004404  0776		AND I (7644	/TEST FOR /X
004405  3030		DCA DSWIT
004406  1775		TAD I	(7643
004407  6201		CDF	0
004410  4774		JMS I	(CHANCK
004411  6211		CDF	10
004412  7300		CLA	CLL
004413  1776		TAD I (7644
004414  0373		AND (410	/P OR /U USED?
004415  7450		SNA 
004416  5227		JMP ST3
004417  6201		CDF 0
004420  0151		AND	[10
004421  7650		SNA CLA
004422  5225		JMP	TXONLY	/JUST /P
004423  1315		TAD	XDOLL
004424  3772		DCA I	(DOLL12	/NO SYMBOL TABLE
004425  1321	TXONLY,	TAD KILOUT	/YES..DISABLE PASS ONE OUTPUT
004426  3530		DCA I [OUTSW
004427  7200	ST3,	CLA
004430  6211		CDF	10
004431  1776		TAD I	(7644
004432  6201		CDF	0
004433  0371		AND (300	/IF SABR (Q), SET RSWIT AND DSWIT
004434  7450		SNA 
004435  5244		JMP HCR1	/PAL8
004436  0122		AND	[200	/CHECK FOR RALF
004437  7650		SNA CLA
004440  5316		JMP RALFCD	/Y
004441  2031		ISZ RSWIT
004442  2030		ISZ DSWIT
004443  3770		DCA I (SCAN3	/ENABLE CHECK FOR SABR CHARS
004444  7200	HCR1,	CLA
004445  6211		CDF	10
004446  1776		TAD I	(7644	/CHECK FOR M- MAMMOTH FILE(HCREF)
004447  6201		CDF	0
004450  7700		SMA CLA
004451  5767		JMP I	(BLUE0	/NOT LONG FILE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 68


		/PUT IN NECESSARY PATCHES
004452  7100		CLL
004453  1313		TAD	XPATCH
004454  3766		DCA I	(HC1
004455  1314		TAD	XPTCH1
004456  3765		DCA I	(XUSSYM
004457  6211		CDF	10
004460  1764		TAD I	(7645
004461  7010		RAR		/CHECK IF PASS1 OR 2 FOR /M
004462  7420		SNL
004463  5301		JMP	CHNPS1	/PASS 1
004464  7104		RAL	CLL	/IT&#039;S PASS 2
004465  3764		DCA I	(7645	/RESTORE TBL
004466  6201		CDF	0
004467  6212		CIF	10
004470  4763		JMS I	(7700	/RESTORE USR
004471  0010		10
004472  1321		TAD	KILOUT
004473  3530		DCA I	[OUTSW	/NO LIST
004474  1315		TAD	XDOLL
004475  3772		DCA I	(DOLL12
004476  1137		TAD	[7720
004477  3762		DCA I	(PATCH1	/ANOTHER PATCH
004500  5600		JMP I	SWITCH
004501  7124	CHNPS1,	CLL CML RAL
004502  3764		DCA I	(7645	/SET /9 SWITCH
004503  6201		CDF	0
004504  7240		CLA CMA
004505  3761		DCA I	(HCREF	/7777 DURING PASS1
004506  1760		TAD I	(SOFSET	/READ BLOCK OF CREF
004507  3757		DCA I	(CHNBLK
004510  1756		TAD I	(MREAD-1	/GET DEVICE OF CREF
004511  3755		DCA I	(CHNHND
004512  5754		JMP I (PATCHA
004513  5261	XPATCH,	PATCH&amp;177+5200
004514  0661	XPTCH1,	PATCH
004515  5226	XDOLL,	DOLL13&amp;177+5200
004516  1143	RALFCD,	TAD	[7776	/FOR 2 EXTRA LINE FEEDS
004517  3753		DCA I	(RLSKIP
004520  5244		JMP	HCR1
004521  5611	KILOUT,	OCHAR&amp;177+5600	/JMP I OCHAR

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 69


004553  3314
004554  4351
004555  2506
004556  7756
004557  2461
004560  7747
004561  2507
004562  0663
004563  7700
004564  7645
004565  3122
004566  0647
004567  4235
004570  0620
004571  0300
004572  5624
004573  0410
004574  4336
004575  7643
004576  7644
004577  0251
	4600		PAGE
	4600		DOTF0=.

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 70


000115  0007
000116  7564
000117  2426
000120  0212
000121  0215
000122  0200
000123  0326
000124  2554
000125  4110
000126  1777
000127  0201
000130  2216
000131  6034
000132  0002
000133  4000
000134  0677
000135  0035
000136  0240
000137  7720
000140  3777
000141  0077
000142  1000
000143  7776
000144  1300
000145  1200
000146  0003
000147  1041
000150  0260
000151  0010
000152  7774
000153  0004
000154  0600
000155  7563
000156  1740
000157  7775
000160  2165
000161  0140
000162  1400
000163  1747
000164  5600
000165  2517
000166  0017
000167  7600
000170  7605
000171  3210
000172  2211
000173  7772
000174  0431
000175  0413
000176  0211
000177  7607
	0000		FIELD 0

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 71


		/THESE ARE THE PERMANENT AND PSEUDO OP TABLES FOR CREF
		/RAD IS THE BASE USED TO PACK THE CHARACTERS.

	4600		*DOTF0
004600  7325	SYMTAB,	-453		/INITIAL ENTRIES

	0000		RELOC 0

000000* 0000		ZBLOCK 4	/DUMMY ENTRY..SYMCHK NEEDS IT


000004* 4070		&quot;A-300^RAD+&quot;N-300+4000	/AND
000005* 0250		&quot;D-300^RAD
000006* 0000		ZBLOCK 2

000010* 4147		&quot;B-300^RAD+&quot;S-300+4000	/BSW
000011* 1706		&quot;W-300^RAD
000012* 0000		ZBLOCK 2

000014* 4177		&quot;C-300^RAD+&quot;A-300+4000	/CAF
000015* 0374		&quot;F-300^RAD
000016* 0000		ZBLOCK 2

000020* 4202		&quot;C-300^RAD+&quot;D-300+4000	/CDF
000021* 0374		&quot;F-300^RAD
000022* 0000		ZBLOCK 2

000024* 4207		&quot;C-300^RAD+&quot;I-300+4000	/CIA
000025* 0052		&quot;A-300^RAD
000026* 0000		ZBLOCK 2

000030* 4207		&quot;C-300^RAD+&quot;I-300+4000	/CIF
000031* 0374		&quot;F-300^RAD
000032* 0000		ZBLOCK 2

000034* 4212		&quot;C-300^RAD+&quot;L-300+4000	/CLA
000035* 0052		&quot;A-300^RAD
000036* 0000		ZBLOCK 2

000040* 4212		&quot;C-300^RAD+&quot;L-300+4000	/CLL
000041* 0770		&quot;L-300^RAD
000042* 0000		ZBLOCK 2

000044* 4213		&quot;C-300^RAD+&quot;M-300+4000	/CMA
000045* 0052		&quot;A-300^RAD
000046* 0000		ZBLOCK 2

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 72


000050* 4213		&quot;C-300^R+&quot;M-300+4000	/CML
000051* 0770		&quot;L-300^R
000052* 0000		ZBLOCK 2

000054* 4253		&quot;D-300^R+&quot;C-300+4000	/DCA
000055* 0052		&quot;A-300^R
000056* 0000		ZBLOCK 2

000060* 4462		&quot;G-300^R+&quot;L-300+4000	/GLK
000061* 0716		&quot;K-300^R
000062* 0000		ZBLOCK 2

000064* 4472		&quot;G-300^R+&quot;T-300+4000	/GTF
000065* 0374		&quot;F-300^R
000066* 0000		ZBLOCK 2

000070* 4534		&quot;H-300^R+&quot;L-300+4000	/HLT
000071* 1510		&quot;T-300^R
000072* 0000		ZBLOCK 2

000074* 4573		&quot;I-300^R+&quot;A-300+4000	/IAC
000075* 0176		&quot;C-300^R
000076* 0000		ZBLOCK 2

000100* 4611		&quot;I-300^R+&quot;O-300+4000	/IOF
000101* 0374		&quot;F-300^R
000102* 0000		ZBLOCK 2

000104* 4611		&quot;I-300^R+&quot;O-300+4000	/ION
000105* 1114		&quot;N-300^R
000106* 0000		ZBLOCK 2

000110* 4611		&quot;I-300^R+&quot;O-300+4000	/IOT
000111* 1510		&quot;T-300^R
000112* 0000		ZBLOCK 2

000114* 4615		&quot;I-300^R+&quot;S-300+4000	/ISZ
000115* 2104		&quot;Z-300^R
000116* 0000		ZBLOCK 2

000120* 4661		&quot;J-300^R+&quot;M-300+4000	/JMP
000121* 1240		&quot;P-300^R
000122* 0000		ZBLOCK 2

000124* 4661		&quot;J-300^R+&quot;M-300+4000	/JMS
000125* 1436		&quot;S-300^R
000126* 0000		ZBLOCK 2

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 73


000130* 4721		&quot;K-300^R+&quot;C-300+4000	/KCC
000131* 0176		&quot;C-300^R
000132* 0000		ZBLOCK 2

000134* 4721		&quot;K-300^R+&quot;C-300+4000	/KCF
000135* 0374		&quot;F-300^R
000136* 0000		ZBLOCK 2

000140* 4727		&quot;K-300^R+&quot;I-300+4000	/KIE
000141* 0322		&quot;E-300^R
000142* 0000		ZBLOCK 2

000144* 4740		&quot;K-300^R+&quot;R-300+4000	/KRB
000145* 0124		&quot;B-300^R
000146* 0000		ZBLOCK 2

000150* 4740		&quot;K-300^R+&quot;R-300+4000	/KRS
000151* 1436		&quot;S-300^R
000152* 0000		ZBLOCK 2

000154* 4741		&quot;K-300^R+&quot;S-300+4000	/KSF
000155* 0374		&quot;F-300^R
000156* 0000		ZBLOCK 2

000160* 4771		&quot;L-300^R+&quot;A-300+4000	/LAS
000161* 1436		&quot;S-300^R
000162* 0000		ZBLOCK 2

000164* 5063		&quot;M-300^R+&quot;Q-300+4000	/MQA
000165* 0052		&quot;A-300^R
000166* 0000		ZBLOCK 2

000170* 5063		&quot;M-300^R+&quot;Q-300+4000	/MQL
000171* 0770		&quot;L-300^R
000172* 0000		ZBLOCK 2

000174* 5133		&quot;N-300^R+&quot;O-300+4000	/NOP
000175* 1240		&quot;P-300^R
000176* 0000		ZBLOCK 2

000200* 5206		&quot;O-300^R+&quot;P-300+4000	/OPR
000201* 1364		&quot;R-300^R
000202* 0000		ZBLOCK 2

000204* 5211		&quot;O-300^R+&quot;S-300+4000	/OSR
000205* 1364		&quot;R-300^R
000206* 0000		ZBLOCK 2

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 74


000210* 5243		&quot;P-300^R+&quot;C-300+4000	/PCE
000211* 0322		&quot;E-300^R
000212* 0000		ZBLOCK 2

000214* 5243		&quot;P-300^R+&quot;C-300+4000	/PCF
000215* 0374		&quot;F-300^R
000216* 0000		ZBLOCK 2

000220* 5254		&quot;P-300^R+&quot;L-300+4000	/PLS
000221* 1436		&quot;S-300^R
000222* 0000		ZBLOCK 2

000224* 5260		&quot;P-300^R+&quot;P-300+4000	/PPC
000225* 0176		&quot;C-300^R
000226* 0000		ZBLOCK 2

000230* 5263		&quot;P-300^R+&quot;S-300+4000	/PSF
000231* 0374		&quot;F-300^R
000232* 0000		ZBLOCK 2

000234* 5365		&quot;R-300^R+&quot;A-300+4000	/RAL
000235* 0770		&quot;L-300^R
000236* 0000		ZBLOCK 2

000240* 5365		&quot;R-300^R+&quot;A-300+4000	/RAR
000241* 1364		&quot;R-300^R
000242* 0000		ZBLOCK 2

000244* 5370		&quot;R-300^R+&quot;D-300+4000	/RDF
000245* 0374		&quot;F-300^R
000246* 0000		ZBLOCK 2

000250* 5372		&quot;R-300^R+&quot;F-300+4000	/RFC
000251* 0176		&quot;C-300^R
000252* 0000		ZBLOCK 2

000254* 5375		&quot;R-300^R+&quot;I-300+4000	/RIB
000255* 0124		&quot;B-300^R
000256* 0000		ZBLOCK 2

000260* 5375		&quot;R-300^R+&quot;I-300+4000	/RIF
000261* 0374		&quot;F-300^R
000262* 0000		ZBLOCK 2

000264* 5401		&quot;R-300^R+&quot;M-300+4000	/RMF
000265* 0374		&quot;F-300^R
000266* 0000		ZBLOCK 2

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 75


000270* 5404		&quot;R-300^R+&quot;P-300+4000	/RPE
000271* 0322		&quot;E-300^R
000272* 0000		ZBLOCK 2

000274* 5406		&quot;R-300^R+&quot;R-300+4000	/RRB
000275* 0124		&quot;B-300^R
000276* 0000		ZBLOCK 2

000300* 5407		&quot;R-300^R+&quot;S-300+4000	/RSF
000301* 0374		&quot;F-300^R
000302* 0000		ZBLOCK 2

000304* 5410		&quot;R-300^R+&quot;T-300+4000	/RTF
000305* 0374		&quot;F-300^R
000306* 0000		ZBLOCK 2

000310* 5410		&quot;R-300^R+&quot;T-300+4000	/RTL
000311* 0770		&quot;L-300^R
000312* 0000		ZBLOCK 2

000314* 5410		&quot;R-300^R+&quot;T-300+4000	/RTR
000315* 1364		&quot;R-300^R
000316* 0000		ZBLOCK 2

000320* 5445		&quot;S-300^R+&quot;G-300+4000	/SGT
000321* 1510		&quot;T-300^R
000322* 0000		ZBLOCK 2

000324* 5451		&quot;S-300^R+&quot;K-300+4000	/SKON
000325* 1204		&quot;O-300^R+&quot;N-300
000326* 0000		ZBLOCK 2

000330* 5451		&quot;S-300^R+&quot;K-300+4000	/SKP
000331* 1240		&quot;P-300^R
000332* 0000		ZBLOCK 2

000334* 5453		&quot;S-300^R+&quot;M-300+4000	/SMA
000335* 0052		&quot;A-300^R
000336* 0000		ZBLOCK 2

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 76


000340* 5454		&quot;S-300^R+&quot;N-300+4000	/SNA
000341* 0052		&quot;A-300^R
000342* 0000		ZBLOCK 2

000344* 5454		&quot;S-300^R+&quot;N-300+4000	/SNL
000345* 0770		&quot;L-300^R
000346* 0000		ZBLOCK 2

000350* 5456		&quot;S-300^R+&quot;P-300+4000	/SPA
000351* 0052		&quot;A-300^R
000352* 0000		ZBLOCK 2

000354* 5460		&quot;S-300^R+&quot;R-300+4000	/SRQ
000355* 1312		&quot;Q-300^R
000356* 0000		ZBLOCK 2

000360* 5462		&quot;S-300^R+&quot;T-300+4000	/STA
000361* 0052		&quot;A-300^R
000362* 0000		ZBLOCK 2

000364* 5462		&quot;S-300^R+&quot;T-300+4000	/STL
000365* 0770		&quot;L-300^R
000366* 0000		ZBLOCK 2

000370* 5465		&quot;S-300^R+&quot;W-300+4000	/SWP
000371* 1240		&quot;P-300^R
000372* 0000		ZBLOCK 2

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 77


000374* 5470		&quot;S-300^R+&quot;Z-300+4000	/SZA
000375* 0052		&quot;A-300^R
000376* 0000		ZBLOCK 2

000400* 5470		&quot;S-300^R+&quot;Z-300+4000	/SZL
000401* 0770		&quot;L-300^R
000402* 0000		ZBLOCK 2

000404* 5511		&quot;T-300^R+&quot;A-300+4000	/TAD
000405* 0250		&quot;D-300^R
000406* 0000		ZBLOCK 2

000410* 5513		&quot;T-300^R+&quot;C-300+4000	/TCF
000411* 0374		&quot;F-300^R
000412* 0000		ZBLOCK 2

000414* 5516		&quot;T-300^R+&quot;F-300+4000	/TFL
000415* 0770		&quot;L-300^R
000416* 0000		ZBLOCK 2

000420* 5524		&quot;T-300^R+&quot;L-300+4000	/TLS
000421* 1436		&quot;S-300^R
000422* 0000		ZBLOCK 2

000424* 5530		&quot;T-300^R+&quot;P-300+4000	/TPC
000425* 0176		&quot;C-300^R
000426* 0000		ZBLOCK 2

000430* 5533		&quot;T-300^R+&quot;S-300+4000	/TSF
000431* 0374		&quot;F-300^R
000432* 0000		ZBLOCK 2

000434* 5533		&quot;T-300^R+&quot;S-300+4000	/TSK
000435* 0716		&quot;K-300^R
000436* 0000		ZBLOCK 2
000440* 7777		-1
000441* 7777		-1
000442* 7777		-1
000443* 7777		-1		/DUMMY LOW ENTRY

	5245		RELOC

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 78


		/PSEUDO OP TABLES. ENTRIES ARE SAME FORMAT AS PAL8
		/SYMBOLS.


005245  1706	SPSEUD,	1706		/SABR PSEUDOS. BEGINS AT 1706*4
005246  1737		1737		/ENDS AT 1737*4
005247  7630		-150		/150 LOCATIONS LONG
005250  7427		7427		/STARTS LOADING AT 17430

	7430		RELOC 7430

007430* 0000		ZBLOCK 4


007434* 0054		&quot;A-300^R+&quot;B-300	/ABSYM
007435* 1467		&quot;S-300^R+&quot;Y-300
007436* 1042		&quot;M-300^R
007437* 0677		B		/RETURN POINT

007440* 0074		&quot;A-300^R+&quot;R-300	/ARG
007441* 0446		&quot;G-300^R
007442* 0000		0
007443* 0677		B

007444* 0140		&quot;B-300^R+&quot;L-300		/BLOCK
007445* 1171		&quot;O-300^R+&quot;C-300
007446* 0716		&quot;K-300^R
007447* 0677		B

007450* 0177		&quot;C-300^R+&quot;A-300		/CALL
007451* 1004		&quot;L-300^R+&quot;L-300
007452* 0000		0
007453* 0677		B

007454* 0215		&quot;C-300^R+&quot;O-300		/COMMON
007455* 1057		&quot;M-300^R+&quot;M-300
007456* 1204		&quot;O-300^R+&quot;N-300
007457* 0677		B

007460* 0216		&quot;C-300^R+&quot;P-300		/CPAGE
007461* 0061		&quot;A-300^R+&quot;G-300
007462* 0322		&quot;E-300^R
007463* 0677		B

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 79


007464* 0255		&quot;D-300^R+&quot;E-300		/DECIM
007465* 0207		&quot;C-300^R+&quot;I-300
007466* 1042		&quot;M-300^R
007467* 0677		B

007470* 0275		&quot;D-300^R+&quot;U-300		/DUMMY
007471* 1057		&quot;M-300^R+&quot;M-300
007472* 2032		&quot;Y-300^R
007473* 0677		B

007474* 0323		&quot;E-300^R+&quot;A-300		/EAP
007475* 1240		&quot;P-300^R
007476* 0000		0
007477* 0677		B

007500* 0340		&quot;E-300^R+&quot;N-300		/END
007501* 0250		&quot;D-300^R
007502* 0000		0
007503* 5621	EPASS,	DOLL1			/BECOMES ENDPAS

007504* 0340		&quot;E-300^R+&quot;N-300		/ENTRY
007505* 1532		&quot;T-300^R+&quot;R-300
007506* 2032		&quot;Y-300^R
007507* 0677		B

007510* 0413		&quot;F-300^R+&quot;O-300		/FORTR
007511* 1410		&quot;R-300^R+&quot;T-300
007512* 1364		&quot;R-300^R
007513* 0677		B

007514* 0572		&quot;I-300^R
007515* 0000		0
007516* 0000		0
007517* 0677		B			/I

007520* 0600		&quot;I-300^R+&quot;F-300		/IF
007521* 0000		0
007522* 0000		0
007523* 0677		B

007524* 0610		&quot;I-300^R+&quot;N-300		/INC
007525* 0176		&quot;C-300^R
007526* 0000		0
007527* 0677		B

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 80


007530* 0771		&quot;L-300^R+&quot;A-300		/LAP
007531* 1240		&quot;P-300^R
007532* 0000		0
007533* 0677		B

007534* 1171		&quot;O-300^R+&quot;C-300		/OCTAL
007535* 1511		&quot;T-300^R+&quot;A-300
007536* 0770		&quot;L-300^R
007537* 0677		B

007540* 1206		&quot;O-300^R+&quot;P-300		/OPDEF
007541* 0255		&quot;D-300^R+&quot;E-300
007542* 0374		&quot;F-300^R
007543* 6000	FXR2,	FXMR

007544* 1241		&quot;P-300^R+&quot;A-300		/PAGE
007545* 0453		&quot;G-300^R+&quot;E-300
007546* 0000		0
007547* 0677		B

007550* 1241		&quot;P-300^R+&quot;A-300		/PAUSE
007551* 1605		&quot;U-300^R+&quot;S-300
007552* 0322		&quot;E-300^R
007553* 0677		B

007554* 1371		&quot;R-300^R+&quot;E-300		/REORG
007555* 1210		&quot;O-300^R+&quot;R-300
007556* 0446		&quot;G-300^R
007557* 0677		B

007560* 1371		&quot;R-300^R+&quot;E-300		/RETRN
007561* 1532		&quot;T-300^R+&quot;R-300
007562* 1114		&quot;N-300^R
007563* 0677		B

007564* 1451		&quot;S-300^R+&quot;K-300		/SKPDF
007565* 1244		&quot;P-300^R+&quot;D-300
007566* 0374		&quot;F-300^R
007567* 6000	FXR3,	FXMR

007570* 1515		&quot;T-300^R+&quot;E-300		/TEXT
007571* 2004		&quot;X-300^R+&quot;T-300
007572* 0000		0
007573* 1252		TXT

007574* 7777		-1
007575* 7777		-1
007576* 7777		-1
007577* 7777		-1
	5421		RELOC

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 81


		/PAL8 PSEUDOS. SAME FORMAT AS OTHERS

005421  1706	PPSEUD,	1706
005422  1737		1737
005423  7630		-150
005424  7427		7427

	7430		RELOC 7430

007430* 0000		ZBLOCK 4

007434* 0255		&quot;D-300^R+&quot;E-300		/DECIMAL
007435* 0207		&quot;C-300^R+&quot;I-300
007436* 1043		&quot;M-300^R+&quot;A-300
007437* 0677		B

007440* 0255		&quot;D-300^R+&quot;E-300		/DEVICE
007441* 1645		&quot;V-300^R+&quot;I-300
007442* 0203		&quot;C-300^R+&quot;E-300
007443* 0677		B

007444* 0274		&quot;D-300^R+&quot;T-300		/DTORG
007445* 1210		&quot;O-300^R+&quot;R-300
007446* 0446		&quot;G-300^R
007447* 0677		B

007450* 0334		&quot;E-300^R+&quot;J-300		/EJECT
007451* 0325		&quot;E-300^R+&quot;C-300
007452* 1510		&quot;T-300^R
007453* 0403		NOTBIN			/SKIP ANY MORE TEXT

007454* 0340		&quot;E-300^R+&quot;N-300		/ENPUNCH
007455* 1265		&quot;P-300^R+&quot;U-300
007456* 1117		&quot;N-300^R+&quot;C-300
007457* 0677		B

007460* 0352		&quot;E-300^R+&quot;X-300		/EXPUNGE
007461* 1265		&quot;P-300^R+&quot;U-300
007462* 1123		&quot;N-300^R+&quot;G-300
007463* 5653	XPJ,	XPUNJ

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 82


007464* 0405		&quot;F-300^R+&quot;I-300		/FIELD
007465* 0336		&quot;E-300^R+&quot;L-300
007466* 0250		&quot;D-300^R
007467* 0677		B

007470* 0405		&quot;F-300^R+&quot;I-300		/FILENAME
007471* 0775		&quot;L-300^R+&quot;E-300
007472* 1115		&quot;N-300^R+&quot;A-300
007473* 0677		B

007474* 0405		&quot;F-300^R+&quot;I-300		/FIXMRI
007475* 1775		&quot;X-300^R+&quot;M-300
007476* 1375		&quot;R-300^R+&quot;I-300
007477* 6000	FXR,	FXMR

007500* 0405		&quot;F-300^R+&quot;I-300		/FIXTAB
007501* 2004		&quot;X-300^R+&quot;T-300
007502* 0054		&quot;A-300^R+&quot;B-300
007503* 6042	FXT,	FXTAB

007504* 0572		&quot;I-300^R		/I
007505* 0000		ZBLOCK 2
007507* 0677		B

007510* 0600		&quot;I-300^R+&quot;F-300		/IFDEF
007511* 0255		&quot;D-300^R+&quot;E-300
007512* 0374		&quot;F-300^R
007513* 0677		B

007514* 0600		&quot;I-300^R+&quot;F-300		/IFNDEF
007515* 1120		&quot;N-300^R+&quot;D-300
007516* 0330		&quot;E-300^R+&quot;F-300
007517* 0677		B

007520* 0600		&quot;I-300^R+&quot;F-300		/IFNZRO
007521* 1146		&quot;N-300^R+&quot;Z-300	
007522* 1403		&quot;R-300^R+&quot;O-300
007523* 0677		B

007524* 0600		&quot;I-300^R+&quot;F-300		/IFZERO
007525* 2111		&quot;Z-300^R+&quot;E-300
007526* 1403		&quot;R-300^R+&quot;O-300
007527* 0677		B

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 83


007530* 1133		&quot;N-300^R+&quot;O-300		/NOPUNCH
007531* 1265		&quot;P-300^R+&quot;U-300
007532* 1117		&quot;N-300^R+&quot;C-300
007533* 0677		B

007534* 1171		&quot;O-300^R+&quot;C-300		/OCTAL
007535* 1511		&quot;T-300^R+&quot;A-300
007536* 0770		&quot;L-300^R
007537* 0677		B

007540* 1241		&quot;P-300^R+&quot;A-300		/PAGE
007541* 0453		&quot;G-300^R+&quot;E-300
007542* 0000		0
007543* 0677		B

007544* 1241		&quot;P-300^R+&quot;A-300		/PAUSE
007545* 1605		&quot;U-300^R+&quot;S-300
007546* 0322		&quot;E-300^R
007547* 0677		B

007550* 1400		&quot;R-300^R+&quot;L-300		/RELOC
007551* 1007		&quot;L-300^R+&quot;O-300
007552* 0176		&quot;C-300^R
007553* 0677		B

007554* 1515		&quot;T-300^R+&quot;E-300		/TEXT
007555* 2004		&quot;X-300^R+&quot;T-300
007556* 0000		0
007557* 1252		TXT

007560* 1774		&quot;X-300^R+&quot;L-300		/XLIST
007561* 0615		&quot;I-300^R+&quot;S-300
007562* 1510		&quot;T-300^R
007563* 0677		B

007564* 2104		&quot;Z-300^R		/Z
007565* 0000		ZBLOCK 2
007567* 0677		B

007570* 2106		&quot;Z-300^R+&quot;B-300		/ZBLOCK
007571* 1007		&quot;L-300^R+&quot;O-300
007572* 0211		&quot;C-300^R+&quot;K-300
007573* 0677		B

007574* 7777		-1
007575* 7777		-1
007576* 7777		-1
007577* 7777		-1
	5575		RELOC
	5600		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 84


		/THIS CODE IS EXECUTED DURING PASS ONE ONLY. LATER PASSES
		/USE THIS AREA TO BUILD A REFERENCE TABLE.

005600  0000	HEADER,	0	/HEADER SWITCHES FPUT TO JMS I [OCHAR
005601  1207		TAD CPCHIT
005602  3105		DCA FPUT	/ADDRESS OF PUNCH ROUTINE
005603  4610		JMS I CGTLIN	/CALL GETLIN
005604  1211		TAD CSTRIT	/RESTORE FPUT
005605  3105		DCA FPUT
005606  5600		JMP I HEADER
005607  5612	CPCHIT,	PNCHIT
005610  3236	CGTLIN,	GETLIN
005611  5615	CSTRIT,	STORIT

005612  0000	PNCHIT,	0
005613  4620		JMS I COCHAR
005614  5612		JMP I PNCHIT

005615  0000	STORIT,	0
005616  3410		DCA I XRLINE
005617  5615		JMP I STORIT
005620  2211	COCHAR,	OCHAR

005621  1377	DOLL1,	TAD (ENDPAS
005622  3053		DCA DOLLAR
005623  4106		JMS DPAT
005624  1376	DOLL12,	TAD (KRS	/BECOMES JMP .+2 IF /M PASS 2 OR /U
005625  3775		DCA I (OUTSW	/RE ENABLE OUTPUT
005626  6211	DOLL13,	CDF 10
005627  1031		TAD RSWIT
005630  7650		SNA CLA
005631  5241		JMP DOLL2	/PAL8 PSEUDOS
005632  1374		TAD (B
005633  3773		DCA I (FXR2
005634  1374		TAD (B
005635  3772		DCA I (FXR3
005636  1377		TAD (ENDPAS
005637  3771		DCA I (EPASS	/END PSEUDO NOW TO ENDPAS
005640  5247		JMP DOLOUT
005641  1374	DOLL2,	TAD (B
005642  3770		DCA I (XPJ
005643  1374		TAD (B
005644  3767		DCA I (FXR
005645  1374		TAD (B
005646  3771		DCA I (FXT
005647  6201	DOLOUT,	CDF 0
005650  4315		JMS	DOLOT2
005651  5766		JMP I (NOTBIN
005652  7000	FUDGE,	NOP

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 85


005653  3022	XPUNJ,	DCA COUNT
005654  7240		CLA CMA
005655  1042		TAD USER+1	/SKIP LAST ENTRY (7777)
005656  7106		CLL RTL
005657  3060	XPUNJ3,	DCA BUFFER	/POINTER INTO SYMBOLS
005660  6211		CDF 10
005661  1460		TAD I BUFFER
005662  1365		TAD (5336	/IS THIS A LITERAL?
005663  7650		SNA CLA
005664  5307		JMP XPUNJ1	/YES..NEXT ENTRY
005665  1022		TAD COUNT	/NO..NOW PUSH ALL LITERALS UP
005666  7106		CLL RTL		/BUT IF COUNT =0, THERE ARE NONE
005667  7040		CMA
005670  3025		DCA SAVE
005671  1364		TAD (3
005672  1060		TAD BUFFER	/SETTING UP TO DO TRANSFER. IF COUNT=0
005673  3012		DCA XRSYM1	/ONLY THE 7777 GETS TRANSFERRED
005674  1364		TAD (3
005675  3013		DCA XRSYM2
005676  1412		TAD I XRSYM1
005677  3413		DCA I XRSYM2
005700  2025		ISZ SAVE	/ALL COMPLETED?
005701  5276		JMP .-3
005702  1022		TAD COUNT
005703  7001		IAC		/INCLUDE 7777 ENTRY!
005704  3042		DCA USER+1
005705  6201		CDF 0
005706  5774		JMP I (B
005707  1363	XPUNJ1,	TAD (-4
005710  1060		TAD BUFFER
005711  2022		ISZ COUNT
005712  5257		JMP XPUNJ3

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 86


005713  4762	XFIRST,	JMS I	(OOPEN
005714  5761		JMP I	(FIRST+1

005715  0000	DOLOT2,	0
005716  7126		STL RTL		/IF WE HAVE MORE THAN 2 FIELDS,
005717  1047		TAD	MAXFLD	/WE SHALL LEAVE THE SYMBOL TABLE IN ONE
					/PIECE. THAT ALLOWS US TO USE THE UPPER
005720  7630		SZL CLA		/CORE PROFITABLY
005721  5715		JMP I DOLOT2
005722  1042		TAD USER+1
005723  7106		CLL RTL
005724  1360		TAD (4		/CLEARS SYMBOL TABLE
005725  3757		DCA I (LTTBL+1	/FIX PERMANENT LIMIT IN FIELD 1
005726  3054		DCA SYMFLD	/AND FAKE THAT FLD 1 HAS NO SYMBOLS
005727  1252		TAD FUDGE	/DISABLE RESET OF FIELD 1 LIMIT
005730  3756		DCA I (FUJ1
005731  5715		JMP I	DOLOT2

005756  1444
005757  1143
005760  0004
005761  2161
005762  2272
005763  7774
005764  0003
005765  5336
005766  0403
005767  7477
005770  7463
005771  7503
005772  7567
005773  7543
005774  0677
005775  2216
005776  6034
005777  1400
	6000		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 87


006000  1410	FXMR,	TAD I XRLINE	/SHOULD CONTAIN FIRST CHAR IN INSTR.
006001  3023		DCA CHAR
006002  4777		JMS I (CHECK	/CHECK IT
006003  0301		301
006004  7446		-332
006005  5211		JMP .+4		/NOPE;A NUMBER MAYBE?
006006  1023	FX2,	TAD CHAR
006007  4776		JMS I (PACK
006010  5200		JMP FXMR
006011  4777		JMS I (CHECK
006012  0260		260
006013  7507		-271		/CHECK FOR DIGIT 0-9
006014  7410		SKP		/NOPE. IF THERE IS A SYMBOL, THIS IS TERMINATOR
006015  5206		JMP FX2
006016  4775		JMS I (REPACK
006017  1036		TAD SYM1
006020  7650		SNA CLA
006021  5200		JMP FXMR
006022  6211		CDF	10
006023  1774		TAD I	(7644	/M RULES FOR FIXMRI TOO
006024  6201		CDF	0
006025  7700		SMA CLA
006026  5235		JMP	FXNTR	/NO M
006027  1773		TAD I	(PATCH1
006030  3233		DCA	PATCH2	/APPROPRIATE SWITCH
006031  1036		TAD	SYM1
006032  7006		RTL
006033  7402	PATCH2,	HLT		/SPA SZA OR SMA SNL + CLA
006034  5772		JMP I	(B
006035  4771	FXNTR,	JMS I (SYMCHK
006036  0041		USER
006037  4770		JMS I (ENTRY	/ENTER AS USER SYMBOL
006040  4767		JMS I (BUMP
006041  5772		JMP I (B

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 88


006042  7240	FXTAB,	CLA CMA		/DON&#039;T INCLUDE 7777 ENTRY
006043  1042		TAD USER+1
006044  7041		CIA
006045  3022		DCA COUNT	/# ENTRIES TO EXAMINE
006046  3025		DCA SAVE
006047  1366	FXTB2,	TAD (4
006050  1025		TAD SAVE
006051  3025		DCA SAVE
006052  6211	FXTB9,	CDF 10
006053  1425		TAD I SAVE	/STOP AS SOON AS LITERAL FOUND
006054  1365		TAD (5336
006055  7650		SNA CLA
006056  5265		JMP FXTB3
006057  1425		TAD I SAVE	/IF ALREADY NEG. ITS A PERM SYMBOL
006060  7500		SMA
006061  1364		TAD (4000	/MAKE IT PERMANENT
006062  3425		DCA I SAVE
006063  2022		ISZ COUNT
006064  5267		JMP FXTMOR
006065  6201	FXTB3,	CDF 0
006066  5772		JMP I (B
006067  1363	FXTMOR,	TAD (3
006070  1025		TAD SAVE
006071  3025		DCA SAVE
006072  3425		DCA I SAVE
006073  2025		ISZ SAVE
006074  5252		JMP FXTB9	/LOOP FOR DURATION

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 89


006163  0003
006164  4000
006165  5336
006166  0004
006167  1300
006170  1200
006171  1041
006172  0677
006173  0663
006174  7644
006175  0741
006176  1000
006177  1747
	6200		PAGE

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 90


	0000		FIELD 0
	0200		*200
			/THAT&#039;S ALL FOLKS!!
			$$$$$$$$$$$$$$$$$$

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 91

ADDER  0061      CUTSYM 1536      FINI   0065      INEOF  2667
ADDUP  0514      CVTSEQ 0454      FIRST  2160      INERRX 2756
ALDONE 2505      CVT2   0500      FLDPTR 0051      INFLD  0000
ANALYZ 0600      DCB    7760      FLUSH  0570      INFPTR 2666
ASHDLR 2672      DEF    1662      FORM   2517      INGBUF 2625
B      0677      DEFSEQ 2163      FORM2  2550      INHAND 2671
BASE   0063      DELMIT 1277      FORM3  2542      INHNDL 4267
BASTBL 1132      DEVS   4221      FPUT   0105      INJMP  2627
BLAH   1040      DIGIT1 0545      FTEST  3400      INJMPP 2613
BLUE   4237      DIGPT  0055      FUDGE  5652      INLINE 3241
BLUE0  4235      DIVE   1152      FUJ1   1444      INPERR 3044
BMPIT  0676      DIVIDE 3210      FULERR 3030      INPTR  2607
BREAK  0201      DIVSPC 1161      FXMR   6000      INREC  2735
BUFFER 0060      DIV45A 3214      FXNTR  6035      INRECS 0002
BUMP   1300      DIV45B 3234      FXR    7477      IOPEN  2600
BUMP2  1321      DIV45C 3235      FXR2   7543      IOSR   0066
CDFN   1667      DIV45D 3216      FXR3   7567      ISYM   0034
CDFNA  2053      DMP    2017      FXT    7503      KILOUT 4521
CDFZ   1660      DMP0   2136      FXTAB  6042      KLUD   4201
CDTFLD 1363      DMP2   2073      FXTB2  6047      K0     0041
CGTLIN 5610      DMP5   2016      FXTB3  6065      LAST   1131
CHAIN  4205      DMP6   2022      FXTB9  6052      LCHK   3123
CHANCK 4336      DMP7   2002      FXTMOR 6067      LEFT   1021
CHANNM 3135      DMP8   2010      FX2    6006      LIMIT  1567
CHAR   0023      DOLLAR 0053      GERMAN 0001      LINBUF 0230
CHDF   1732      DOLL1  5621      GETAB  3326      LINENO 2164
CHECK  1747      DOLL12 5624      GETC   1272      LINES  0100
CHNBLK 2461      DOLL13 5626      GETFLD 1714      LITBUF 0236
CHNHND 2506      DOLL2  5641      GETLIN 3236      LITEX  3120
CHNPS1 4501      DOLOT2 5715      GETMOR 2130      LIT1   3066
CLEAR  3337      DOLOUT 5647      GF1    1716      LIT2   3060
CLRSEM 0710      DONCOR 3444      GF2    1730      LIT3   3075
CLSERR 3036      DONE   1765      GLIN3  3271      LNPRPG 0077
CNTROL 0070      DOTF0  4600      GLIN4  3273      LPTERR 3014
COCHAR 5620      DPAT   0106      GLIN6  3305      LTTBL  1142
COMP   1052      DPERM  2151      HCREF  2507      MAIN   0400
COMPR  1102      DSWIT  0030      HCR1   4444      MAIN2  0440
CONST  0050      DUMP   2000      HC1    0647      MAIN3  0446
COREX  3443      EN     3344      HEADER 5600      MARGIN 0021
CORLOC 3445      ENDFIX 3141      HIOERR 0075      MASKF  0055
CORV   3446      ENDPAS 1400      HNDERR 3000      MAXFLD 0047
CORX   3432      END2   1416      ICHAR  2610      MCOMMA 1664
COR0   3413      END3   1564      ICHAR1 2651      MCTLD  0453
COR1   3422      ENTER  1236      ICHAR2 2645      MEQ    1663
COR2   3424      ENTERR 3022      ICHAR3 2632      MLF    0032
COR70  3430      ENTRY  1200      INBREC 2737      MOVEM  4324
COUNT  0022      EPASS  7503      INBUF  4600      MP2    2321
COUNTR 0063      ERROR  0211      INBUFP 2734      MREAD  7757
CPCHIT 5607      ERRTWO 4334      INCHAR 2611      M1     0104
CRCNT  3315      ERR3   2365      INCHCT 2665      M12    0103
CRLF   2554      ERR4   2363      INCOMN 2652      NDPS1  1413
CRLF1  2557      ERR5   2511      INCTL  0400      NDPS2  1446
CROUT  3301      ERR7   1334      INCTLW 2733      NMOR   1250
CSTRIT 5611      FILEXT 0251      INCTR  2670      NOALPH 0417
CTPTR  0071      FILLIP 2421      INDEVH 3600      NODEF  2107

/OS/8 CROSS REFERENCE V50		  PAL8-V50Y 04-JAN-23 PAGE 91-1

NODUMP 2434      PASS2  0112      SYMADD 0056      ZSPRES 0551
NOD1   2463      PASTST 2165      SYMCHK 1041      
NOFIRM 0413      PATCH  0661      SYMCNT 0033      
NOFORM 0431      PATCHA 4351      SYMERR 3006      
NOTBIN 0403      PATCHL 0330      SYMFLD 0054      
NOVERS 2414      PATCH1 0663      SYMLIM 0064      
NTER   0675      PATCH2 6033      SYMNUM 0057      
NTR1   1223      PCKOUT 1035      SYMTAB 4600      
NTR2   1241      PNCHIT 5612      SYM1   0036      
NUSER  1566      POSPT  0027      SYM2   0037      
NXTDV  2027      PPSEUD 5421      SYM3   0040      
NXTLIN 0404      PRMSYM 1514      SYSM   0062      
OCHAR  2211      PSEUDO 0043      S1     1064      
OCHAR1 2261      PSWCH  0035      TEMP   0026      
OCHAR2 2256      PTRSET 1337      TEMP1  0027      
OCHAR3 2230      PTRST1 1347      THI    1127      
OCLOSE 2400      PTRST2 1370      THOUS  0101      
OEFAIL 2327      PUTIT  3316      TLOW   1130      
OFILE  2513      P2     1641      TSTEND 0704      
OLINE  0555      P2ADJ  0263      TSTIT  0626      
ONEISZ 1317      Q      0313      TSTPRM 1702      
OOPEN  2272      R      0052      TTY    0227      
OTYPE  0302      RAD    0052      TTYPRT 2763      
OUBLK  2316      RALFCD 4516      TTYSWT 2562      
OUBUF  7200      RDREC  2714      TXONLY 4425      
OUCCNT 2471      REFBUF 0066      TXT    1252      
OUCOMN 2263      REFENT 1665      TXTBEG 0020      
OUCT   2271      REFERR 3052      TXT2   1261      
OUCTL  4200      REGULR 3252      USER   0041      
OUCTLW 2353      REPACK 0741      USR    0052      
OUDEVH 4200      RLSKIP 3314      USSYM  0665      
OUDWCT 2270      RPEAT  0506      VERSN  0062      
OUELEN 2317      RSWIT  0031      VERTST 0234      
OUENTR 2307      SAVE   0025      VV1    0005      
OUFLD  0000      SCAN   0604      VV2    0062      
OUHNDL 2305      SCANER 0752      WRTLIN 0552      
OUJMP  2225      SCAN1  0733      XDOLL  4515      
OUJMPE 2267      SCAN3  0620      XFIRST 5713      
OUNREC 3200      SCHAR  0061      XINCL1 2713      
OUPOLD 2265      SCRATC 0027      XINREC 2712      
OUPTR  2266      SEMISV 0750      XNAME  4350      
OUREC  2355      SEQNO  0024      XOCTLW 3207      
OUSAVX 0014      SETXR  1163      XOUBUF 2354      
OUSETP 2200      SLSWH  2510      XOUDEV 2326      
OUTDMP 2340      SLSWIT 0751      XPATCH 4513      
OUTEMP 2264      SOFSET 7747      XPJ    7463      
OUTSW  2216      SPACE  1740      XPTCH1 4514      
OUT1   1116      SPCLUP 0527      XPUNJ  5653      
OUT2   1112      SPSEUD 5245      XPUNJ1 5707      
PACK   1000      STORIT 5615      XPUNJ3 5657      
PAGLEN 0074      ST1    4200      XRLINE 0010      
PAKIT  0736      ST2    4227      XRLIT  0011      
PASN2  0045      ST3    4427      XRSYM1 0012      
PASSG1 0046      SUB3   0757      XRSYM2 0013      
PASSN2 1600      SWITCH 4400      XUSSYM 3122      



ERRORS DETECTED: 0
LINKS GENERATED: 0


</pre>
<hr/>
</div>