

; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 1

; Digital Equipment Corporation

;

;	0001	MODULE PATSTO (%IF %VARIANT EQL 1

;     L 0002			%THEN

;	0003				ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE,

;	0004						 NONEXTERNAL = LONG_RELATIVE),

;	0005			%FI

;	0006			IDENT = 'X01.16') =

;	0007	BEGIN

;	0008	

;	0009	! Copyright (C) 1976,1977,1978

;	0010	! Digital Equipment Corporation, Maynard, Massachusetts 01754

;	0011	!

;	0012	! This software is furnished under a license for use only on a

;	0013	! single computer system and may be copied only with the inclusion

;	0014	! of the above copyright notice. This software, or any

;	0015	! other copies thereof, may not be provided or otherwise made

;	0016	! available to any other person except for use on such system

;	0017	! and to one who agrees to these license terms. Title to and

;	0018	! ownership of the software shall at all times remain in DEC.

;	0019	!

;	0020	! The information in this software is subject to change without

;	0021	! notice and should not be construed as a commitment by Digital

;	0022	! Equipment Corporation.

;	0023	!

;	0024	! DEC assumes no responsibility for the use or reliability of

;	0025	! its software on equipment which is not supplied by DEC.

;	0026	!

;	0027	! FACILITY:	PATCH

;	0028	!

;	0029	!++

;	0030	! FUNCTIONAL DESCRIPTION:

;	0031	!	DECLARES GLOBAL VARIABLES FOR PATCH FACILITY

;	0032	!

;	0033	! Version:	X01.16

;	0034	!

;	0035	! History:

;	0036	!	Author:

;	0037	!		Carol Peters, 03 Jul 1976: Version 01

;	0038	!

;	0039	! Revision history:

;	0040	!

;	0041	!  NO	DATE		PROGRAMMER		PURPOSE

;	0042	!  --	----		----------		-------

;	0043	!

;	0044	!  00	17-OCT-77	K.D. MORSE		ADAPT VERSION 34 FOR PATCH.

;	0045	!  01	2-JAN-78	K.D. MORSE		ADD PAT$GB_SYMBOLS TO PERMIT

;	0046	!						PATCHING OF IMAGES WITH NO SYMBOLS.

;	0047	!  02	4-JAN-78	K.D. MORSE		NO CHANGES FOR VERS 35-39.

;	0048	!						REMOVE PAT$GL_TAIL_LST. (40)

;	0049	!						NO CHANGES FOR VERS 41-45.

;	0050	!						MAKE THE LENGTH OF THE PARSING

;	0051	!						STACKS max_stack_ptr *

;	0052	!						pat$k_stelm_siz.  (46)

;	0053	!						NO CHANGES FOR VERS 47.

;	0054	!  03	23-JAN-78	K.D. MORSE		CHANGE PAT$CP_INP_STR TO A

;	0055	!						POINTER TO A TABLE OF INPUT



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 1-1

; Digital Equipment Corporation

;

;	0056	!						LINE DESCRIPTORS, PAT$CP_INP_DSCS

;	0057	!						(FOR PROMPTING).

;	0058	!  04	24-JAN-78	K.D. MORSE		NO CHANGES FOR 48-49.

;	0059	!  05	11-FEB-78	K.D. MORSE		ADD PAT$GL_CMD_BUF.

;	0060	!  06	28-F3B-78	K.D. MORSE		NO CHANGES FOR 50.

;	0061	!  07	6-MAR-78	K.D. MORSE		ADD PAT$GB_EXEC_CMD.

;	0062	!  08	7-MAR-78	K.D. MORSE		ADD PAT$GL_PAL_LHD.

;	0063	!  09	24-MAR-78	K.D. MORSE		NO CHANGES FOR 50-51.

;	0064	!  10	14-APR-78	K.D. MORSE		NO CHANGES FOR 52-54.

;	0065	!  11	25-APR-78	K.D. MORSE		CONVERT TO NATIVE COMPILER.

;	0066	!  12	16-MAY-78	K.D. MORSE		NO CHANGES FOR 55-56.

;	0067	!  13	18-MAY-78	K.D. MORSE		NO CHANGES FOR VERS 57-59.

;	0068	!  14	25-MAY-78	K.D. MORSE		ADD PAT$GL_FWRLHD.

;	0069	!  15	06-JUN-78	K.D. MORSE		ADD PAT$GL_SYMTBPTR.

;	0070	!  16	13-JUN-78	K.D. MORSE		ADD FAO COUNTS TO SIGNALS.

;	0071	!

;	0072	!--



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2

; Digital Equipment Corporation

;

;	0073	LIBRARY 'SYS$LIBRARY:STARLET.L32';

;	0074	REQUIRE 'SRC$:PATRST.REQ';

;	1132	REQUIRE 'SRC$:PATGEN.REQ';

;	1311	REQUIRE 'SRC$:SYSLIT.REQ';

;	1346	REQUIRE 'SRC$:VXPALT.REQ';

;	1374	REQUIRE 'SRC$:PREFIX.REQ';

;	1557	REQUIRE 'LIB$:PATMSG.REQ';

;	1715	

;	1716	BIND

;	1717		PAT$B_DEFJNL = UPLIT(BYTE('.JNL')),			! Default journal file type

;	1718		PAT$B_DEFIMG = UPLIT(BYTE('.EXE')),			! Default image file type

;	1719		PAT$B_DEFCOM = UPLIT(BYTE('.COM'));			! Default command file type

;	1720	

;	1721	GLOBAL BIND

;	1722	PAT$GB_ERRNAME = UPLIT(BYTE('SYS$ERROR')),			! Logical error channel name

;	1723		PAT$GB_OUTNAME = UPLIT(BYTE('SYS$OUTPUT')),		! Logical output channel name

;	1724		PAT$GB_INPNAME = UPLIT(BYTE('SYS$INPUT'));		! Logical input channel name

;	1725	

;	1726	GLOBAL LITERAL

;	1727		PAT$K_MEMEXP = 10,					! Number of pages to expand free memory

;	1728		PAT$K_MAXBLKSIZ = PAT$K_MEMEXP*512,			! Maximum allocation size

;	1729		PAT$K_ERRNAMLNG = %CHARCOUNT('SYS$ERROR'),		! Length of error channel name

;	1730		PAT$K_INPNAMLNG = %CHARCOUNT('SYS$INPUT'),		! Length of input channel name

;	1731		PAT$K_OUTNAMLNG = %CHARCOUNT('SYS$OUTPUT');		! Length of output channel name

;	1732	

;	1733	LITERAL

;	1734		PAT$K_BUFSIZ = 512,					! I/O buffer sizes

;	1735		PAT$K_DEFTYPLNG = 4;					! Default file type lengths

;	1736	

;	1737	OWN

;	1738		PAT$GB_OUTBUF: VECTOR [PAT$K_BUFSIZ,BYTE];		! Output buffer

;	1739	

;	1740	GLOBAL

;	1741		!++

;	1742		! These are byte vectors.

;	1743		!--

;	1744		PAT$GB_SUBST_IN: VECTOR [80,BYTE],			! Substitution instruction counted byte stream

;	1745		PAT$GB_DEF_MOD: VECTOR [MODE_LEVELS * MODE_LVL_SIZE, BYTE], ! Default mode block

;	1746		PAT$GB_JNLNAME: VECTOR [NAM$C_MAXRSS,BYTE],		! Resultant journal file name

;	1747		PAT$GB_COMNAME: VECTOR [NAM$C_MAXRSS,BYTE],		! Resultant output command file name

;	1748		PAT$GB_NEWNAME: VECTOR [NAM$C_MAXRSS,BYTE],		! Resultant output image file name

;	1749		PAT$GB_OLDNAME: VECTOR [NAM$C_MAXRSS,BYTE],		! Resultant old image file name

;	1750		PAT$GB_INPBUF: VECTOR [PAT$K_BUFSIZ,BYTE],		! Input buffer

;	1751	

;	1752		!++

;	1753		! REFS to more complicated structures which are defined in PATRST.REQ.

;	1754		!--

;	1755		PAT$GL_CSP_PTR : REF PATHNAME_VECTOR,			! Pointer to current scope record (CSP)

;	1756		PAT$GL_MC_PTR : REF MC_RECORD,				! Pointer to module chain (MC)

;	1757		PAT$GL_NT_HASH : REF RST_POINTER,			! Pointer to name table hash vector (NT)

;	1758	

;	1759		!++

;	1760		! Declare the FAB and RAB blocks for terminal I/O.

;	1761		!--

;	1762		PAT$GL_INPFAB:	$FAB (FAC=GET



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-1

; Digital Equipment Corporation

;

;     P 1763					, FNA=PAT$GB_INPNAME

;     P 1764					, FNS=PAT$K_INPNAMLNG

;     P 1765					, MRS=NO_OF_INP_CHARS),

;	1766		PAT$GL_OUTFAB:	$FAB (FAC=PUT

;     P 1767					, RAT=CR

;     P 1768					, FNA=PAT$GB_OUTNAME

;     P 1769					, FNS=PAT$K_OUTNAMLNG

;     P 1770					, MRS=TTY_OUT_WIDTH),

;	1771		PAT$GL_ERRFAB:	$FAB (FAC=PUT

;     P 1772					, RAT=CR

;     P 1773					, FNA=PAT$GB_ERRNAME

;     P 1774					, FNS=PAT$K_ERRNAMLNG

;     P 1775					, MRS=TTY_OUT_WIDTH),

;	1776		PAT$GL_INPRAB:	$RAB (USZ=NO_OF_INP_CHARS

;     P 1777					, FAB=PAT$GL_INPFAB

;     P 1778					, ROP=<PMT>),

;	1779		PAT$GL_OUTRAB: $RAB (FAB=PAT$GL_OUTFAB),

;	1780		PAT$GL_ERRRAB:	$RAB (FAB=PAT$GL_ERRFAB

;     P 1781					, ROP=CCO),

;	1782		PAT$GL_JNLNBK: $NAM(RSA=PAT$GB_JNLNAME

;     P 1783					, RSS=NAM$C_MAXRSS

;     P 1784					, ESA=PAT$GB_JNLNAME

;     P 1785					, ESS=NAM$C_MAXRSS),

;	1786		PAT$GL_OLDNBK: $NAM(RSA=PAT$GB_OLDNAME

;     P 1787					, RSS=NAM$C_MAXRSS

;     P 1788					, ESA=PAT$GB_OLDNAME

;     P 1789					, ESS=NAM$C_MAXRSS),

;	1790		PAT$GL_COMNBK: $NAM(RSA=PAT$GB_COMNAME

;     P 1791					, RSS=NAM$C_MAXRSS

;     P 1792					, ESA=PAT$GB_COMNAME

;     P 1793					, ESS=NAM$C_MAXRSS

;     P 1794					, RLF=PAT$GL_OLDNBK),

;	1795		PAT$GL_NEWNBK: $NAM(RSA=PAT$GB_NEWNAME

;     P 1796					, RSS=NAM$C_MAXRSS

;     P 1797					, ESA=PAT$GB_NEWNAME

;     P 1798					, ESS=NAM$C_MAXRSS),

;	1799		PAT$GL_JNLFAB: $FAB(NAM=PAT$GL_JNLNBK

;     P 1800					, MRS=A_PAGE

;     P 1801					, DNA=PAT$B_DEFJNL

;     P 1802					, RAT=CR

;     P 1803					, DNS=PAT$K_DEFTYPLNG

;     P 1804					, FOP=CIF

;     P 1805					, FAC=PUT

;     P 1806					, SHR=NIL),

;	1807		PAT$GL_COMFAB: $FAB(NAM=PAT$GL_COMNBK

;     P 1808					, MRS=A_PAGE

;     P 1809					, DNA=PAT$B_DEFCOM

;     P 1810					, RAT=CR

;     P 1811					, DNS=PAT$K_DEFTYPLNG

;     P 1812					, FAC=PUT

;     P 1813					, SHR=NIL),

;	1814		PAT$GL_NEWFAB: $FAB(NAM=PAT$GL_NEWNBK

;     P 1815					, MRS=A_PAGE

;     P 1816					, RFM=FIX

;     P 1817					, DNA=PAT$B_DEFIMG



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-2

; Digital Equipment Corporation

;

;     P 1818					, DNS=PAT$K_DEFTYPLNG

;     P 1819					, FAC=<PUT,BRO,GET,TRN>

;     P 1820					, SHR=NIL),

;	1821		PAT$GL_OLDFAB: $FAB(NAM=PAT$GL_OLDNBK

;     P 1822					, DNA=PAT$B_DEFIMG

;     P 1823					, DNS=PAT$K_DEFTYPLNG

;     P 1824					, FAC=<GET,BRO>),

;	1825		PAT$GL_JNLRAB: $RAB(ROP=EOF

;     P 1826					, RBF=PAT$GB_OUTBUF

;     P 1827					, RSZ=PAT$K_BUFSIZ

;     P 1828					, FAB=PAT$GL_JNLFAB),

;	1829		PAT$GL_COMRAB: $RAB(RBF=PAT$GB_OUTBUF

;     P 1830					, RSZ=PAT$K_BUFSIZ

;     P 1831					, FAB=PAT$GL_COMFAB),

;	1832		PAT$GL_OLDRAB: $RAB(RBF=PAT$GB_INPBUF

;     P 1833					, RSZ=PAT$K_BUFSIZ

;     P 1834					, UBF=PAT$GB_INPBUF

;     P 1835					, USZ=PAT$K_BUFSIZ

;     P 1836					, FAB=PAT$GL_OLDFAB),

;	1837		PAT$GL_NEWRAB: $RAB(RBF=PAT$GB_OUTBUF

;     P 1838					, RSZ=PAT$K_BUFSIZ

;     P 1839					, FAB=PAT$GL_NEWFAB),

;	1840	

;	1841		!++

;	1842		! These are the only bitvectors.

;	1843		!--

;	1844		PAT$GL_CONTEXT: BITVECTOR [CONTEXT_BITS],		! Context longword

;	1845		PAT$GL_COMQUAL: BITVECTOR [CONTEXT_BITS],		! Command qualifier context bits

;	1846	

;	1847		!++

;	1848		! These are global bytes.

;	1849		!--

;	1850		PAT$GB_ECOLVL: BYTE,					! ECO level for patches currently being performed (1-128)

;	1851		PAT$GB_EXEC_CMD: BYTE,					! Indicator whether or not to execute PATCH command

;	1852		PAT$GB_SYMBOLS: BYTE,					! Indicator if image has symbols

;	1853		PAT$GB_LOC_TYPE: BYTE,					! Tells what sort of end range location

;	1854		PAT$GB_TAKE_CMD: BYTE,					! BOOLEAN, TRUE if another command will be read

;	1855	

;	1856		!++

;	1857		! Now REFs to byte vectors. Don't confuse these with byte

;	1858		! vectors.

;	1859		!--

;	1860		PAT$CP_OUT_STR : REF VECTOR [, BYTE],			! Points into current output buffer.

;	1861		PAT$GB_MOD_PTR: REF VECTOR [, BYTE],			! Pointer to current mode level

;	1862	

;	1863		!++

;	1864		! Normal longword vectors.

;	1865		!--

;	1866		PAT$GL_ISVADDR : VECTOR[2,LONG],			! Start and ending addrs for last mapped image section

;	1867		PAT$GL_SEMAN1: VECTOR [MAX_STACK_PTR * PAT$K_STELM_SIZ], ! Semantic stack for tokens

;	1868		PAT$GL_SEMAN2: VECTOR [MAX_STACK_PTR * PAT$K_STELM_SIZ], ! Semantic stack for pointers to strings

;	1869		PAT$GL_ECO_UPD: VECTOR [4],				! Bits corresponding to ECO levels to be updated

;	1870		PAT$GL_MEMLHD: VECTOR[2] INITIAL (0,0),			! Free memory listhead

;	1871		PAT$GL_TEMP_BUF: VECTOR[2] INITIAL (0,0),		! String descriptor for temporary deposit buffer

;	1872		PAT$GL_OLD_ASD: VECTOR[2] INITIAL (0,0),		! String descriptor for old contents assembler directive table



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-3

; Digital Equipment Corporation

;

;	1873		PAT$GL_NEW_ASD: VECTOR[2] INITIAL (0,0),		! String descriptor for new contents assembler directive table

;	1874		PAT$GL_RLOC_BUF: VECTOR[2] INITIAL (0,0),		! String descriptor for relocation buffer

;	1875	

;	1876		!++

;	1877		! And finally the global scalar longwords.

;	1878		!--

;	1879		PAT$CP_INP_DSCS,					! Pointer to input line descriptor table

;	1880		PAT$GL_BR_DISPL: SIGNED LONG,				! Branch displacement that didn't fit

;	1881		PAT$GL_ERRCODE,						! Error code

;	1882		PAT$GL_EXPANDVA,					! First expand region address

;	1883		PAT$GL_NEWVBNMX,					! Maximum VBN in new image file

;	1884		PAT$GL_NEWVPNMX,					! Maximum VPN in new image file

;	1885		PAT$GL_OLDVBNMX,					! Old file max VBN used for image section binary

;	1886		PAT$GL_FWRLHD,						! ForWard Reference table listhead

;	1887		PAT$GL_PAL_LHD,						! Patch area listhead

;	1888		PAT$GL_PATAREA,						! Holds address of patch area descriptor

;	1889		PAT$GL_RST_BEGN,					! Beginning address of RST

;	1890		PAT$GL_SYMHEAD,						! Symbol listhead

;	1891		PAT$GL_OLDLABLS,					! Listhead for old contents relocated instruction labels

;	1892		PAT$GL_NEWLABLS,					! Listhead for new contents un-relocated instruction labels

;	1893		PAT$GL_RLCLABLS,					! Listhead for relocated instruction labels

;	1894		PAT$GL_SYMTBPTR,					! Pointer to current symbol table to be searched

;	1895		PAT$GL_MINADDR: INITIAL(CONTROL_REGION),		! Lowest address ever allocated

;	1896		PAT$GL_ISELHD: LONG,					! Image section table listhead

;	1897		PAT$GL_ISETAIL: LONG,					! Last entry in image section table

;	1898		PAT$GL_TXTLHD: LONG,					! Patch command text listhead

;	1899		PAT$GL_TXTFREE: LONG,					! Address of next free command text buffer

;	1900		PAT$GL_TXTTAIL: LONG,					! Pointer to last command text block

;	1901		PAT$GL_IMGBLKS: LONG,					! Number of blocks in new image file

;	1902		PAT$GL_FLAGS: LONG,					! CLI flags

;	1903		PAT$GL_IHPPTR: REF BLOCK[,BYTE],			! Pointer to image header patch section

;	1904		PAT$GL_IMGHDR: REF BLOCK[,BYTE],			! Holds address of image header data

;	1905		PAT$GL_BUF_SIZ,						! Character count in output buffer

;	1906		PAT$GL_KEYW_TBL,					! Name of current keyword table

;	1907		PAT$GL_HEAD_LST,					! Head of linked argument list

;	1908		PAT$GL_TAIL_LST,					! Tail of linked argument list

;	1909		PAT$GL_LAST_LOC,					! Last location displayed

;	1910		PAT$GL_LAST_VAL,					! Last value displayed

;	1911		PAT$GL_NEXT_LOC;					! Next location to display

;	1912	

;	1913	END

;	1914	ELUDOM





							    .TITLE  PATSTO

							    .IDENT  \X01.16\



							    .PSECT  $PLIT$,NOWRT,NOEXE,2



					      00000 P.AAA:  .ASCII  \.JNL\						      ;

					      00004 P.AAB:  .ASCII  \.EXE\						      ;

					      00008 P.AAC:  .ASCII  \.COM\						      ;

					      0000C P.AAD:  .ASCII  \SYS$ERROR\						      ;

					      00015	    .BLKB   3

					      00018 P.AAE:  .ASCII  \SYS$OUTPUT\					      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-4

; Digital Equipment Corporation

;

					      00022	    .BLKB   2

					      00024 P.AAF:  .ASCII  \SYS$INPUT\						      ;

					      0002D	    .BLKB   3



							    .PSECT  $OWN$,NOEXE,2



					      00000 PAT$GB_OUTBUF:

							    .BLKB   512



							    .PSECT  $GLOBAL$,NOEXE,2



					      00000 PAT$GB_SUBST_IN::

							    .BLKB   80

					      00050 PAT$GB_DEF_MOD::

							    .BLKB   28

					      0006C PAT$GB_JNLNAME::

							    .BLKB   128

					      000EC PAT$GB_COMNAME::

							    .BLKB   128

					      0016C PAT$GB_NEWNAME::

							    .BLKB   128

					      001EC PAT$GB_OLDNAME::

							    .BLKB   128

					      0026C PAT$GB_INPBUF::

							    .BLKB   512

					      0046C PAT$GL_CSP_PTR::

							    .BLKB   4

					      00470 PAT$GL_MC_PTR::

							    .BLKB   4

					      00474 PAT$GL_NT_HASH::

							    .BLKB   4

					      00478 PAT$GL_INPFAB::

							    .BYTE   3							      ;

					      00479 	    .BYTE   80							      ;

					      0047A 	    .WORD   0							      ;

					      0047C 	    .LONG   0							      ;

					      00480 	    .LONG   0							      ;

					      00484 	    .LONG   0							      ;

					      00488 	    .LONG   0							      ;

					      0048C 	    .WORD   0							      ;

					      0048E 	    .BYTE   2							      ;

					      0048F 	    .BYTE   0							      ;

					      00490 	    .LONG   0							      ;

					      00494 	    .BYTE   0							      ;

					      00495 	    .BYTE   0							      ;

					      00496 	    .BYTE   0							      ;

					      00497 	    .BYTE   2							      ;

					      00498 	    .LONG   0							      ;

					      0049C 	    .LONG   0							      ;

					      004A0 	    .LONG   0							      ;

					      004A4 	    .ADDRESS  PAT$GB_INPNAME					      ;

					      004A8 	    .LONG   0							      ;

					      004AC 	    .BYTE   9							      ;

					      004AD 	    .BYTE   0							      ;

					      004AE 	    .WORD   132							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-5

; Digital Equipment Corporation

;

					      004B0 	    .LONG   0							      ;

					      004B4 	    .WORD   0							      ;

					      004B6 	    .BYTE   0							      ;

					      004B7 	    .BYTE   0							      ;

					      004B8 	    .LONG   0							      ;

					      004BC 	    .LONG   0							      ;

					      004C0 	    .LONG   0, 0						      ;

					      004C8 PAT$GL_OUTFAB::

							    .BYTE   3							      ;

					      004C9 	    .BYTE   80							      ;

					      004CA 	    .WORD   0							      ;

					      004CC 	    .LONG   0							      ;

					      004D0 	    .LONG   0							      ;

					      004D4 	    .LONG   0							      ;

					      004D8 	    .LONG   0							      ;

					      004DC 	    .WORD   0							      ;

					      004DE 	    .BYTE   1							      ;

					      004DF 	    .BYTE   0							      ;

					      004E0 	    .LONG   0							      ;

					      004E4 	    .BYTE   0							      ;

					      004E5 	    .BYTE   0							      ;

					      004E6 	    .BYTE   2							      ;

					      004E7 	    .BYTE   2							      ;

					      004E8 	    .LONG   0							      ;

					      004EC 	    .LONG   0							      ;

					      004F0 	    .LONG   0							      ;

					      004F4 	    .ADDRESS  PAT$GB_OUTNAME					      ;

					      004F8 	    .LONG   0							      ;

					      004FC 	    .BYTE   10							      ;

					      004FD 	    .BYTE   0							      ;

					      004FE 	    .WORD   132							      ;

					      00500 	    .LONG   0							      ;

					      00504 	    .WORD   0							      ;

					      00506 	    .BYTE   0							      ;

					      00507 	    .BYTE   0							      ;

					      00508 	    .LONG   0							      ;

					      0050C 	    .LONG   0							      ;

					      00510 	    .LONG   0, 0						      ;

					      00518 PAT$GL_ERRFAB::

							    .BYTE   3							      ;

					      00519 	    .BYTE   80							      ;

					      0051A 	    .WORD   0							      ;

					      0051C 	    .LONG   0							      ;

					      00520 	    .LONG   0							      ;

					      00524 	    .LONG   0							      ;

					      00528 	    .LONG   0							      ;

					      0052C 	    .WORD   0							      ;

					      0052E 	    .BYTE   1							      ;

					      0052F 	    .BYTE   0							      ;

					      00530 	    .LONG   0							      ;

					      00534 	    .BYTE   0							      ;

					      00535 	    .BYTE   0							      ;

					      00536 	    .BYTE   2							      ;

					      00537 	    .BYTE   2							      ;

					      00538 	    .LONG   0							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-6

; Digital Equipment Corporation

;

					      0053C 	    .LONG   0							      ;

					      00540 	    .LONG   0							      ;

					      00544 	    .ADDRESS  PAT$GB_ERRNAME					      ;

					      00548 	    .LONG   0							      ;

					      0054C 	    .BYTE   9							      ;

					      0054D 	    .BYTE   0							      ;

					      0054E 	    .WORD   132							      ;

					      00550 	    .LONG   0							      ;

					      00554 	    .WORD   0							      ;

					      00556 	    .BYTE   0							      ;

					      00557 	    .BYTE   0							      ;

					      00558 	    .LONG   0							      ;

					      0055C 	    .LONG   0							      ;

					      00560 	    .LONG   0, 0						      ;

					      00568 PAT$GL_INPRAB::

							    .BYTE   1							      ;

					      00569 	    .BYTE   68							      ;

					      0056A 	    .WORD   0							      ;

					      0056C 	    .LONG   1073741824						      ;

					      00570 	    .LONG   0							      ;

					      00574 	    .LONG   0							      ;

					      00578 	    .WORD   0, 0, 0						      ;

					      0057E 	    .WORD   0							      ;

					      00580 	    .LONG   0							      ;

					      00584 	    .WORD   0							      ;

					      00586 	    .BYTE   0							      ;

					      00587 	    .BYTE   0							      ;

					      00588 	    .WORD   132							      ;

					      0058A 	    .WORD   0							      ;

					      0058C 	    .LONG   0							      ;

					      00590 	    .LONG   0							      ;

					      00594 	    .LONG   0							      ;

					      00598 	    .LONG   0							      ;

					      0059C 	    .BYTE   0							      ;

					      0059D 	    .BYTE   0							      ;

					      0059E 	    .BYTE   0							      ;

					      0059F 	    .BYTE   0							      ;

					      005A0 	    .LONG   0							      ;

					      005A4 	    .ADDRESS  PAT$GL_INPFAB					      ;

					      005A8 	    .LONG   0							      ;

					      005AC PAT$GL_OUTRAB::

							    .BYTE   1							      ;

					      005AD 	    .BYTE   68							      ;

					      005AE 	    .WORD   0							      ;

					      005B0 	    .LONG   0							      ;

					      005B4 	    .LONG   0							      ;

					      005B8 	    .LONG   0							      ;

					      005BC 	    .WORD   0, 0, 0						      ;

					      005C2 	    .WORD   0							      ;

					      005C4 	    .LONG   0							      ;

					      005C8 	    .WORD   0							      ;

					      005CA 	    .BYTE   0							      ;

					      005CB 	    .BYTE   0							      ;

					      005CC 	    .WORD   0							      ;

					      005CE 	    .WORD   0							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-7

; Digital Equipment Corporation

;

					      005D0 	    .LONG   0							      ;

					      005D4 	    .LONG   0							      ;

					      005D8 	    .LONG   0							      ;

					      005DC 	    .LONG   0							      ;

					      005E0 	    .BYTE   0							      ;

					      005E1 	    .BYTE   0							      ;

					      005E2 	    .BYTE   0							      ;

					      005E3 	    .BYTE   0							      ;

					      005E4 	    .LONG   0							      ;

					      005E8 	    .ADDRESS  PAT$GL_OUTFAB					      ;

					      005EC 	    .LONG   0							      ;

					      005F0 PAT$GL_ERRRAB::

							    .BYTE   1							      ;

					      005F1 	    .BYTE   68							      ;

					      005F2 	    .WORD   0							      ;

					      005F4 	    .LONG   -2147483648						      ;

					      005F8 	    .LONG   0							      ;

					      005FC 	    .LONG   0							      ;

					      00600 	    .WORD   0, 0, 0						      ;

					      00606 	    .WORD   0							      ;

					      00608 	    .LONG   0							      ;

					      0060C 	    .WORD   0							      ;

					      0060E 	    .BYTE   0							      ;

					      0060F 	    .BYTE   0							      ;

					      00610 	    .WORD   0							      ;

					      00612 	    .WORD   0							      ;

					      00614 	    .LONG   0							      ;

					      00618 	    .LONG   0							      ;

					      0061C 	    .LONG   0							      ;

					      00620 	    .LONG   0							      ;

					      00624 	    .BYTE   0							      ;

					      00625 	    .BYTE   0							      ;

					      00626 	    .BYTE   0							      ;

					      00627 	    .BYTE   0							      ;

					      00628 	    .LONG   0							      ;

					      0062C 	    .ADDRESS  PAT$GL_ERRFAB					      ;

					      00630 	    .LONG   0							      ;

					      00634 PAT$GL_JNLNBK::

							    .BYTE   2							      ;

					      00635 	    .BYTE   56							      ;

					      00636 	    .BYTE   -128						      ;

					      00637 	    .BYTE   0							      ;

					      00638 	    .ADDRESS  PAT$GB_JNLNAME					      ;

					      0063C 	    .WORD   0							      ;

					      0063E 	    .BYTE   -128						      ;

					      0063F 	    .BYTE   0							      ;

					      00640 	    .ADDRESS  PAT$GB_JNLNAME					      ;

					      00644 	    .LONG   0							      ;

					      00648 	    .WORD   0, 0, 0, 0, 0, 0, 0, 0				      ;

					      00658 	    .WORD   0, 0, 0						      ;

					      0065E 	    .WORD   0, 0, 0						      ;

					      00664 	    .LONG   0							      ;

					      00668 	    .LONG   0							      ;

					      0066C PAT$GL_OLDNBK::

							    .BYTE   2							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-8

; Digital Equipment Corporation

;

					      0066D 	    .BYTE   56							      ;

					      0066E 	    .BYTE   -128						      ;

					      0066F 	    .BYTE   0							      ;

					      00670 	    .ADDRESS  PAT$GB_OLDNAME					      ;

					      00674 	    .WORD   0							      ;

					      00676 	    .BYTE   -128						      ;

					      00677 	    .BYTE   0							      ;

					      00678 	    .ADDRESS  PAT$GB_OLDNAME					      ;

					      0067C 	    .LONG   0							      ;

					      00680 	    .WORD   0, 0, 0, 0, 0, 0, 0, 0				      ;

					      00690 	    .WORD   0, 0, 0						      ;

					      00696 	    .WORD   0, 0, 0						      ;

					      0069C 	    .LONG   0							      ;

					      006A0 	    .LONG   0							      ;

					      006A4 PAT$GL_COMNBK::

							    .BYTE   2							      ;

					      006A5 	    .BYTE   56							      ;

					      006A6 	    .BYTE   -128						      ;

					      006A7 	    .BYTE   0							      ;

					      006A8 	    .ADDRESS  PAT$GB_COMNAME					      ;

					      006AC 	    .WORD   0							      ;

					      006AE 	    .BYTE   -128						      ;

					      006AF 	    .BYTE   0							      ;

					      006B0 	    .ADDRESS  PAT$GB_COMNAME					      ;

					      006B4 	    .ADDRESS  PAT$GL_OLDNBK					      ;

					      006B8 	    .WORD   0, 0, 0, 0, 0, 0, 0, 0				      ;

					      006C8 	    .WORD   0, 0, 0						      ;

					      006CE 	    .WORD   0, 0, 0						      ;

					      006D4 	    .LONG   0							      ;

					      006D8 	    .LONG   0							      ;

					      006DC PAT$GL_NEWNBK::

							    .BYTE   2							      ;

					      006DD 	    .BYTE   56							      ;

					      006DE 	    .BYTE   -128						      ;

					      006DF 	    .BYTE   0							      ;

					      006E0 	    .ADDRESS  PAT$GB_NEWNAME					      ;

					      006E4 	    .WORD   0							      ;

					      006E6 	    .BYTE   -128						      ;

					      006E7 	    .BYTE   0							      ;

					      006E8 	    .ADDRESS  PAT$GB_NEWNAME					      ;

					      006EC 	    .LONG   0							      ;

					      006F0 	    .WORD   0, 0, 0, 0, 0, 0, 0, 0				      ;

					      00700 	    .WORD   0, 0, 0						      ;

					      00706 	    .WORD   0, 0, 0						      ;

					      0070C 	    .LONG   0							      ;

					      00710 	    .LONG   0							      ;

					      00714 PAT$GL_JNLFAB::

							    .BYTE   3							      ;

					      00715 	    .BYTE   80							      ;

					      00716 	    .WORD   0							      ;

					      00718 	    .LONG   33554432						      ;

					      0071C 	    .LONG   0							      ;

					      00720 	    .LONG   0							      ;

					      00724 	    .LONG   0							      ;

					      00728 	    .WORD   0							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-9

; Digital Equipment Corporation

;

					      0072A 	    .BYTE   1							      ;

					      0072B 	    .BYTE   32							      ;

					      0072C 	    .LONG   0							      ;

					      00730 	    .BYTE   0							      ;

					      00731 	    .BYTE   0							      ;

					      00732 	    .BYTE   2							      ;

					      00733 	    .BYTE   2							      ;

					      00734 	    .LONG   0							      ;

					      00738 	    .LONG   0							      ;

					      0073C 	    .ADDRESS  PAT$GL_JNLNBK					      ;

					      00740 	    .LONG   0							      ;

					      00744 	    .ADDRESS  PAT$B_DEFJNL					      ;

					      00748 	    .BYTE   0							      ;

					      00749 	    .BYTE   4							      ;

					      0074A 	    .WORD   512							      ;

					      0074C 	    .LONG   0							      ;

					      00750 	    .WORD   0							      ;

					      00752 	    .BYTE   0							      ;

					      00753 	    .BYTE   0							      ;

					      00754 	    .LONG   0							      ;

					      00758 	    .LONG   0							      ;

					      0075C 	    .LONG   0, 0						      ;

					      00764 PAT$GL_COMFAB::

							    .BYTE   3							      ;

					      00765 	    .BYTE   80							      ;

					      00766 	    .WORD   0							      ;

					      00768 	    .LONG   0							      ;

					      0076C 	    .LONG   0							      ;

					      00770 	    .LONG   0							      ;

					      00774 	    .LONG   0							      ;

					      00778 	    .WORD   0							      ;

					      0077A 	    .BYTE   1							      ;

					      0077B 	    .BYTE   32							      ;

					      0077C 	    .LONG   0							      ;

					      00780 	    .BYTE   0							      ;

					      00781 	    .BYTE   0							      ;

					      00782 	    .BYTE   2							      ;

					      00783 	    .BYTE   2							      ;

					      00784 	    .LONG   0							      ;

					      00788 	    .LONG   0							      ;

					      0078C 	    .ADDRESS  PAT$GL_COMNBK					      ;

					      00790 	    .LONG   0							      ;

					      00794 	    .ADDRESS  PAT$B_DEFCOM					      ;

					      00798 	    .BYTE   0							      ;

					      00799 	    .BYTE   4							      ;

					      0079A 	    .WORD   512							      ;

					      0079C 	    .LONG   0							      ;

					      007A0 	    .WORD   0							      ;

					      007A2 	    .BYTE   0							      ;

					      007A3 	    .BYTE   0							      ;

					      007A4 	    .LONG   0							      ;

					      007A8 	    .LONG   0							      ;

					      007AC 	    .LONG   0, 0						      ;

					      007B4 PAT$GL_NEWFAB::

							    .BYTE   3							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-10

; Digital Equipment Corporation

;

					      007B5 	    .BYTE   80							      ;

					      007B6 	    .WORD   0							      ;

					      007B8 	    .LONG   0							      ;

					      007BC 	    .LONG   0							      ;

					      007C0 	    .LONG   0							      ;

					      007C4 	    .LONG   0							      ;

					      007C8 	    .WORD   0							      ;

					      007CA 	    .BYTE   83							      ;

					      007CB 	    .BYTE   32							      ;

					      007CC 	    .LONG   0							      ;

					      007D0 	    .BYTE   0							      ;

					      007D1 	    .BYTE   0							      ;

					      007D2 	    .BYTE   0							      ;

					      007D3 	    .BYTE   1							      ;

					      007D4 	    .LONG   0							      ;

					      007D8 	    .LONG   0							      ;

					      007DC 	    .ADDRESS  PAT$GL_NEWNBK					      ;

					      007E0 	    .LONG   0							      ;

					      007E4 	    .ADDRESS  PAT$B_DEFIMG					      ;

					      007E8 	    .BYTE   0							      ;

					      007E9 	    .BYTE   4							      ;

					      007EA 	    .WORD   512							      ;

					      007EC 	    .LONG   0							      ;

					      007F0 	    .WORD   0							      ;

					      007F2 	    .BYTE   0							      ;

					      007F3 	    .BYTE   0							      ;

					      007F4 	    .LONG   0							      ;

					      007F8 	    .LONG   0							      ;

					      007FC 	    .LONG   0, 0						      ;

					      00804 PAT$GL_OLDFAB::

							    .BYTE   3							      ;

					      00805 	    .BYTE   80							      ;

					      00806 	    .WORD   0							      ;

					      00808 	    .LONG   0							      ;

					      0080C 	    .LONG   0							      ;

					      00810 	    .LONG   0							      ;

					      00814 	    .LONG   0							      ;

					      00818 	    .WORD   0							      ;

					      0081A 	    .BYTE   66							      ;

					      0081B 	    .BYTE   0							      ;

					      0081C 	    .LONG   0							      ;

					      00820 	    .BYTE   0							      ;

					      00821 	    .BYTE   0							      ;

					      00822 	    .BYTE   0							      ;

					      00823 	    .BYTE   2							      ;

					      00824 	    .LONG   0							      ;

					      00828 	    .LONG   0							      ;

					      0082C 	    .ADDRESS  PAT$GL_OLDNBK					      ;

					      00830 	    .LONG   0							      ;

					      00834 	    .ADDRESS  PAT$B_DEFIMG					      ;

					      00838 	    .BYTE   0							      ;

					      00839 	    .BYTE   4							      ;

					      0083A 	    .WORD   0							      ;

					      0083C 	    .LONG   0							      ;

					      00840 	    .WORD   0							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-11

; Digital Equipment Corporation

;

					      00842 	    .BYTE   0							      ;

					      00843 	    .BYTE   0							      ;

					      00844 	    .LONG   0							      ;

					      00848 	    .LONG   0							      ;

					      0084C 	    .LONG   0, 0						      ;

					      00854 PAT$GL_JNLRAB::

							    .BYTE   1							      ;

					      00855 	    .BYTE   68							      ;

					      00856 	    .WORD   0							      ;

					      00858 	    .LONG   256							      ;

					      0085C 	    .LONG   0							      ;

					      00860 	    .LONG   0							      ;

					      00864 	    .WORD   0, 0, 0						      ;

					      0086A 	    .WORD   0							      ;

					      0086C 	    .LONG   0							      ;

					      00870 	    .WORD   0							      ;

					      00872 	    .BYTE   0							      ;

					      00873 	    .BYTE   0							      ;

					      00874 	    .WORD   0							      ;

					      00876 	    .WORD   512							      ;

					      00878 	    .LONG   0							      ;

					      0087C 	    .ADDRESS  PAT$GB_OUTBUF					      ;

					      00880 	    .LONG   0							      ;

					      00884 	    .LONG   0							      ;

					      00888 	    .BYTE   0							      ;

					      00889 	    .BYTE   0							      ;

					      0088A 	    .BYTE   0							      ;

					      0088B 	    .BYTE   0							      ;

					      0088C 	    .LONG   0							      ;

					      00890 	    .ADDRESS  PAT$GL_JNLFAB					      ;

					      00894 	    .LONG   0							      ;

					      00898 PAT$GL_COMRAB::

							    .BYTE   1							      ;

					      00899 	    .BYTE   68							      ;

					      0089A 	    .WORD   0							      ;

					      0089C 	    .LONG   0							      ;

					      008A0 	    .LONG   0							      ;

					      008A4 	    .LONG   0							      ;

					      008A8 	    .WORD   0, 0, 0						      ;

					      008AE 	    .WORD   0							      ;

					      008B0 	    .LONG   0							      ;

					      008B4 	    .WORD   0							      ;

					      008B6 	    .BYTE   0							      ;

					      008B7 	    .BYTE   0							      ;

					      008B8 	    .WORD   0							      ;

					      008BA 	    .WORD   512							      ;

					      008BC 	    .LONG   0							      ;

					      008C0 	    .ADDRESS  PAT$GB_OUTBUF					      ;

					      008C4 	    .LONG   0							      ;

					      008C8 	    .LONG   0							      ;

					      008CC 	    .BYTE   0							      ;

					      008CD 	    .BYTE   0							      ;

					      008CE 	    .BYTE   0							      ;

					      008CF 	    .BYTE   0							      ;

					      008D0 	    .LONG   0							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-12

; Digital Equipment Corporation

;

					      008D4 	    .ADDRESS  PAT$GL_COMFAB					      ;

					      008D8 	    .LONG   0							      ;

					      008DC PAT$GL_OLDRAB::

							    .BYTE   1							      ;

					      008DD 	    .BYTE   68							      ;

					      008DE 	    .WORD   0							      ;

					      008E0 	    .LONG   0							      ;

					      008E4 	    .LONG   0							      ;

					      008E8 	    .LONG   0							      ;

					      008EC 	    .WORD   0, 0, 0						      ;

					      008F2 	    .WORD   0							      ;

					      008F4 	    .LONG   0							      ;

					      008F8 	    .WORD   0							      ;

					      008FA 	    .BYTE   0							      ;

					      008FB 	    .BYTE   0							      ;

					      008FC 	    .WORD   512							      ;

					      008FE 	    .WORD   512							      ;

					      00900 	    .ADDRESS  PAT$GB_INPBUF					      ;

					      00904 	    .ADDRESS  PAT$GB_INPBUF					      ;

					      00908 	    .LONG   0							      ;

					      0090C 	    .LONG   0							      ;

					      00910 	    .BYTE   0							      ;

					      00911 	    .BYTE   0							      ;

					      00912 	    .BYTE   0							      ;

					      00913 	    .BYTE   0							      ;

					      00914 	    .LONG   0							      ;

					      00918 	    .ADDRESS  PAT$GL_OLDFAB					      ;

					      0091C 	    .LONG   0							      ;

					      00920 PAT$GL_NEWRAB::

							    .BYTE   1							      ;

					      00921 	    .BYTE   68							      ;

					      00922 	    .WORD   0							      ;

					      00924 	    .LONG   0							      ;

					      00928 	    .LONG   0							      ;

					      0092C 	    .LONG   0							      ;

					      00930 	    .WORD   0, 0, 0						      ;

					      00936 	    .WORD   0							      ;

					      00938 	    .LONG   0							      ;

					      0093C 	    .WORD   0							      ;

					      0093E 	    .BYTE   0							      ;

					      0093F 	    .BYTE   0							      ;

					      00940 	    .WORD   0							      ;

					      00942 	    .WORD   512							      ;

					      00944 	    .LONG   0							      ;

					      00948 	    .ADDRESS  PAT$GB_OUTBUF					      ;

					      0094C 	    .LONG   0							      ;

					      00950 	    .LONG   0							      ;

					      00954 	    .BYTE   0							      ;

					      00955 	    .BYTE   0							      ;

					      00956 	    .BYTE   0							      ;

					      00957 	    .BYTE   0							      ;

					      00958 	    .LONG   0							      ;

					      0095C 	    .ADDRESS  PAT$GL_NEWFAB					      ;

					      00960 	    .LONG   0							      ;

					      00964 PAT$GL_CONTEXT::



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-13

; Digital Equipment Corporation

;

							    .BLKB   4

					      00968 PAT$GL_COMQUAL::

							    .BLKB   4

					      0096C PAT$GB_ECOLVL::

							    .BLKB   1

					      0096D PAT$GB_EXEC_CMD::

							    .BLKB   1

					      0096E PAT$GB_SYMBOLS::

							    .BLKB   1

					      0096F PAT$GB_LOC_TYPE::

							    .BLKB   1

					      00970 PAT$GB_TAKE_CMD::

							    .BLKB   1

					      00971	    .BLKB   3

					      00974 PAT$CP_OUT_STR::

							    .BLKB   4

					      00978 PAT$GB_MOD_PTR::

							    .BLKB   4

					      0097C PAT$GL_ISVADDR::

							    .BLKB   8

					      00984 PAT$GL_SEMAN1::

							    .BLKB   160

					      00A24 PAT$GL_SEMAN2::

							    .BLKB   160

					      00AC4 PAT$GL_ECO_UPD::

							    .BLKB   16

					      00AD4 PAT$GL_MEMLHD::

							    .LONG   0, 0						      ;

					      00ADC PAT$GL_TEMP_BUF::

							    .LONG   0, 0						      ;

					      00AE4 PAT$GL_OLD_ASD::

							    .LONG   0, 0						      ;

					      00AEC PAT$GL_NEW_ASD::

							    .LONG   0, 0						      ;

					      00AF4 PAT$GL_RLOC_BUF::

							    .LONG   0, 0						      ;

					      00AFC PAT$CP_INP_DSCS::

							    .BLKB   4

					      00B00 PAT$GL_BR_DISPL::

							    .BLKB   4

					      00B04 PAT$GL_ERRCODE::

							    .BLKB   4

					      00B08 PAT$GL_EXPANDVA::

							    .BLKB   4

					      00B0C PAT$GL_NEWVBNMX::

							    .BLKB   4

					      00B10 PAT$GL_NEWVPNMX::

							    .BLKB   4

					      00B14 PAT$GL_OLDVBNMX::

							    .BLKB   4

					      00B18 PAT$GL_FWRLHD::

							    .BLKB   4

					      00B1C PAT$GL_PAL_LHD::

							    .BLKB   4

					      00B20 PAT$GL_PATAREA::



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-14

; Digital Equipment Corporation

;

							    .BLKB   4

					      00B24 PAT$GL_RST_BEGN::

							    .BLKB   4

					      00B28 PAT$GL_SYMHEAD::

							    .BLKB   4

					      00B2C PAT$GL_OLDLABLS::

							    .BLKB   4

					      00B30 PAT$GL_NEWLABLS::

							    .BLKB   4

					      00B34 PAT$GL_RLCLABLS::

							    .BLKB   4

					      00B38 PAT$GL_SYMTBPTR::

							    .BLKB   4

					      00B3C PAT$GL_MINADDR::

							    .LONG   1073741824						      ;

					      00B40 PAT$GL_ISELHD::

							    .BLKB   4

					      00B44 PAT$GL_ISETAIL::

							    .BLKB   4

					      00B48 PAT$GL_TXTLHD::

							    .BLKB   4

					      00B4C PAT$GL_TXTFREE::

							    .BLKB   4

					      00B50 PAT$GL_TXTTAIL::

							    .BLKB   4

					      00B54 PAT$GL_IMGBLKS::

							    .BLKB   4

					      00B58 PAT$GL_FLAGS::

							    .BLKB   4

					      00B5C PAT$GL_IHPPTR::

							    .BLKB   4

					      00B60 PAT$GL_IMGHDR::

							    .BLKB   4

					      00B64 PAT$GL_BUF_SIZ::

							    .BLKB   4

					      00B68 PAT$GL_KEYW_TBL::

							    .BLKB   4

					      00B6C PAT$GL_HEAD_LST::

							    .BLKB   4

					      00B70 PAT$GL_TAIL_LST::

							    .BLKB   4

					      00B74 PAT$GL_LAST_LOC::

							    .BLKB   4

					      00B78 PAT$GL_LAST_VAL::

							    .BLKB   4

					      00B7C PAT$GL_NEXT_LOC::

							    .BLKB   4



						    PAT$B_DEFJNL=	P.AAA

						    PAT$B_DEFIMG=	P.AAB

						    PAT$B_DEFCOM=	P.AAC

						    PAT$GB_ERRNAME==	P.AAD

						    PAT$GB_OUTNAME==	P.AAE

						    PAT$GB_INPNAME==	P.AAF

						    PAT$K_MEMEXP==	10



; Bliss-32 7.352	Saturday 22-AUG-1978 02:58:16	DBB3:[PATCH.SRC]PATSTO.B32;13					Page 2-15

; Digital Equipment Corporation

;

						    PAT$K_MAXBLKSIZ==	5120

						    PAT$K_ERRNAMLNG==	9

						    PAT$K_INPNAMLNG==	9

						    PAT$K_OUTNAMLNG==	10







;				       PSECT SUMMARY

;

;	Name		 Bytes			       Attributes

;

;  $PLIT$         	    48  NOWRT,  RD ,NOEXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)

;  $OWN$          	   512    WRT,  RD ,NOEXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)

;  $GLOBAL$       	  2944    WRT,  RD ,NOEXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)

;  $CODE$         	     0  NOWRT,  RD ,  EXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)









;				LIBRARY STATISTICS

;

;					     -------- Symbols --------    Blocks

;	File				     Total    Loaded   Percent      Read

;

;  DBA4:[SYSLIB]STARLET.L32;1		      2688        35         1       143











; Size:		0 code + 3504 data bytes

; Run Time:	00:34.3

; Elapsed Time:	00:51.9

; Memory Used:	237 pages

; Compilation Complete

