SOSSWT - SWITCH TABLES	MACRO M1110  22-AUG-78 05:35  PAGE 2





    100						.TITLE	SOSSWT - SWITCH TABLES

    200						.IDENT	/020501/

    300					;

    400					; COPYRIGHT 1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

    500					;

    600					; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

    700					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

    800					;

    900					; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE

   1000					; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION

   1100					; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT

   1200					; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.

   1300					;

   1400					; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

   1500					; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

   1600					; EQUIPMENT CORPORATION.

   1700					;

   1800					; PETER H. LIPMAN	22-MAR-77

   1900					;

   2000						.MCALL	CSI$SW,CSI$SV,CSI$ND

   2100					;

   2200					; VALUES IN GIVWRD

   2300					;

   2400		000001 			VALALT	=	1		;ALTMODE

   2500		000002 			VALMAT	=	2		;MATCH

   2600		000003 			VALDOT	=	3		;DOT (CURRENT POSITION)

   2700		000004 			VALERR	=	4		;ERROR

   2800		000005 			VALLOC	=	5		;LOCATION

   2900		000006 			VALSTR	=	6		;STRINGS

   3000		000007 			VALBIG	=	7		;BIG (HIGHEST PAGE NUMBER)

   3100		000010 			VALNAM	=	8.		;NAME (FILE NAME)

   3200		000011 			VALIDE	=	9.		;IDENTIFICATION (OF SOS VERSION)

   3300		000012 			VALHEL	==	10.		;HELP

   3400		000013 			VALEVE	=	11.		;EVENTS *****DEBUGGING*****

SOSSWT - SWITCH TABLES	MACRO M1110  22-AUG-78 05:35  PAGE 3





    100	000000					CODE$	SWT

    200

    300	000000	000207 			LODSWT::RTS	PC			;ENTRY TO AUTOLOAD THE SWITCH TABLES

    400

    500	000002					PLIT$	SWT

    600

    700	000000				GIVTBL::CSI$SW	.,	VALDOT,	GIVWRD,	SET		,,,EXACT	;=.

    800	000010					CSI$SW	ERR,	VALERR,	GIVWRD,	SET		,,,LONG		;=ERROR

    900	000022					CSI$SW	LOC,	VALLOC,	GIVWRD,	SET		,,,LONG		;=LOCATION

   1000	000034					CSI$SW	STR,	VALSTR,	GIVWRD,	SET		,,,LONG		;=STRING

   1100	000046					CSI$SW	BIG,	VALBIG,	GIVWRD,	SET		,,,LONG		;=BIG

   1200	000060					CSI$SW	NAM,	VALNAM,	GIVWRD,	SET		,,,LONG		;=NAME

   1300	000072					CSI$SW	IDE,	VALIDE,	GIVWRD,	SET		,,,LONG		;=IDENT

   1400	000104					CSI$SW	ID,	VALIDE,	GIVWRD,	SET		,,,EXACT	;=IDENT

   1480

   1490						.IF	DF,R$$DBG

   1500						CSI$SW	EVE,	VALEVE,	GIVWRD,	SET		,,,LONG		;=EVENT (DEBUG)

   1510						.ENDC

   1520

   1600	000114					CSI$SW	SUB,	SUBS,	GIVW2,	SET		,,,LONG		;=SUBS

   1700

   1800	000126				ISWTAB::				;ONCE ONLY SETTABLE SWITCHES

   1900	000126					CSI$SW	BUF,	BUFSZ,	GIVW2,	SET,,	T$BUF	,LONG		;/BUFFER SIZE

   2000

   2100	000140					CSI$SW	REA,	RONLY,	SOSFLG,	SET		,,,LONG		;/READ

   2200	000152					CSI$SW	RON,	RONLY,	SOSFLG,	SET		,,,LONG		;/RONLY

   2300	000164					CSI$SW	R,	RONLY,	SOSFLG,	SET		,,,EXACT		;/R

   2400	000174				SWTAB::

   2500	000174					CSI$SW	ALT,	VALALT,	ALTSWT,	SET,,	T$ALT	,LONG		;/ESCAPE:X

   2600	000206					CSI$SW	BAK,	NOBAK,	SOSFLG,	CLEAR,	NEG	,,LONG		;/BAK

   2700	000220					CSI$SW	BAS,	BASIC,	SOSFLG,	SET,	NEG	,,LONG		;/BASIC

   2800	000232					CSI$SW	DEC,	DECIDE,	SOSFLG,	SET,	NEG	,,LONG		;/DECIDE

   2900	000244					CSI$SW	DEL,	DELETE,	SOSFLG,	SET,	NEG	,,LONG		;/DELETE

   2950	000256					CSI$SW	ESC,	VALALT,	ALTSWT,	SET,,	T$ALT	,LONG		;/ESCAPE:X

   3000	000270					CSI$SW	EXA,	EXACT,	SOSFLG,	SET,	NEG	,,LONG		;/EXACT

   3100	000302					CSI$SW	EXP,	EXPERT,	SOSFLG,	SET,	NEG	,,LONG		;/EXPERT

   3150	000314					CSI$SW	HEL,	VALHEL,	GIVWRD,	SET,,	T$HEL	,LONG		;/HELP:XX

   3200	000326					CSI$SW	INC,	ISTEP,	GIVW2,	SET,,	T$INC	,LONG		;/INCREMENT:XX

   3300	000340					CSI$SW	ISA,	ISAVE,	GIVW2,	SET,,	T$ISA	,LONG		;/ISAVE:X

   3400	000352					CSI$SW	LEN,	LENN,	GIVW2,	SET,,	T$LEN	,LONG		;/LENGTH

   3500	000364					CSI$SW	LIN,	UNSEQ!NOLINS,SOSFLG,CLEAR,NEG	,,LONG		;/NOLINES

   3600	000376					CSI$SW	LMA,	LMAR,	GIVW2,	SET,,	T$LMA	,LONG		;/LMAR:X

   3700	000410					CSI$SW	LOW,	NOLOW,	SOSFLG,	CLEAR,	NEG	,,LONG		;/LOWER

   3800	000422					CSI$SW	MAT,	VALMAT,	ALTSWT,	SET,,	T$MAT	,LONG		;/MATCH:X

   3900	000434					CSI$SW	MAX,	MAXLN,	GIVW2,	SET,,	T$MAX	,LONG		;/MAXLN:X

   4000	000446					CSI$SW	NOV,	EXPERT,	SOSFLG,	CLEAR,	NEG	,,LONG		;/NOVICE

   4100	000460					CSI$SW	NSE,	SEPARA,	SOSFLG,	SET,	NEG	,,LONG		;/NONSEPARATOR

   4200	000472					CSI$SW	OLD,	NOBAK,	SOSFLG,	CLEAR,	NEG	,,LONG		;/OLD

   4300	000504					CSI$SW	OPT,	NOOPT,	SOSFLG,	CLEAR,NEG,T$OPT	,LONG		;/NOOPTION

   4400	000516					CSI$SW	PLI,	PLINES,	GIVW2,	SET,,	T$PLI	,LONG		;/PLINES:X

   4500	000530					CSI$SW	PMA,	PMAR,	GIVW2,	SET,,	T$PMA	,LONG		;/PMAR:X

   4600	000542					CSI$SW	PRI,	PRINTR,	GIVW2,	SET,,	T$PRI	,LONG		;/PRINTER:X

   4700

   4800						.IF	DF,R$$STS

   4900						CSI$SW	RMS,	RMSFIL,	SOSFLG,	SET,	NEG	,,LONG		;/RMS

   5000						.ENDC

   5100

SOSSWT - SWITCH TABLES	MACRO M1110  22-AUG-78 05:35  PAGE 3-1





   5200	000554					CSI$SW	SAV,	SAVEN,	GIVW2,	SET,,	T$SAV	,LONG		;/SAVE:X

   5300	000566					CSI$SW	SEP,	SEPARA,	SOSFLG,	SET,	NEG	,,LONG		;/SEPARATOR

   5400	000600					CSI$SW	SEQ,	UNSEQ,	SOSFLG,	CLEAR,	NEG	,,LONG		;/SEQUENCE

   5500	000612					CSI$SW	STA,	STARTN,	GIVW2,	SET,,	T$STA	,LONG		;/START:X

   5600	000624					CSI$SW	STE,	STEPN,	GIVW2,	SET,,	T$STE	,LONG		;/STEP:X

   5700	000636					CSI$SW	UNS,	UNSEQ,	SOSFLG,	SET,	NEG	,,LONG		;/UNSEQ

   5800	000650					CSI$ND

   5900

SOSSWT - SWITCH TABLES	MACRO M1110  22-AUG-78 05:35  PAGE 4





    100	000652				T$ALT:	CSI$SV	ASCII,		ALTSTR,		1

    200	000656					CSI$ND

    300

    400	000660				T$BUF:	CSI$SV	DECIMAL,	BUFSZ*2+SOSFLG,	2

    500	000664					CSI$ND

    510

    520	000666				T$HEL:	CSI$SV	DECIMAL,	HELPAG,2

    530	000672					CSI$ND

    600

    700	000674				T$INC:	CSI$SV	DECIMAL,	ISTEP*2+SOSFLG,	2

    800	000700					CSI$ND

    900	000702				T$ISA:	CSI$SV	DECIMAL,	ISAVE*2+SOSFLG,	2

   1000	000706					CSI$ND

   1100

   1200	000710				T$LEN:	CSI$SV	DECIMAL,	LENN*2+SOSFLG,	2

   1300	000714					CSI$ND

   1400

   1500	000716				T$LMA:	CSI$SV	DECIMAL,	LMAR*2+SOSFLG,	2

   1600	000722					CSI$ND

   1700

   1800	000724				T$MAT:	CSI$SV	ASCII,		MATSTR,		1

   1900	000730					CSI$ND

   1950

   2000	000732				T$MAX:	CSI$SV	DECIMAL,	MAXLN*2+SOSFLG,	2

   2100	000736					CSI$ND

   2200

   2300	000740				T$OPT:	CSI$SV	ASCII,		OPTNAM,		8.

   2400	000744					CSI$ND

   2500

   2600	000746				T$PLI:	CSI$SV	DECIMAL,	PLINES*2+SOSFLG	,2

   2700	000752					CSI$ND

   2800

   2900	000754				T$PMA:	CSI$SV	DECIMAL,	PMAR*2+SOSFLG,	2

   3000	000760					CSI$ND

   3100

   3200	000762				T$PRI:	CSI$SV	DECIMAL,	PRINTR*2+SOSFLG	,2

   3300	000766					CSI$ND

   3400

   3500	000770				T$SAV:	CSI$SV	DECIMAL,	SAVEN*2+SOSFLG,	2

   3600	000774					CSI$ND

   3700

   3800	000776				T$STA:	CSI$SV	DECIMAL,	STARTN*2+SOSFLG,	2

   3900	001002					CSI$ND

   4000

   4100	001004				T$STE:	CSI$SV	DECIMAL,	STEPN*2+SOSFLG,	2

   4200	001010					CSI$ND

   4220

   4240	001012					DATA$	SWT

   4300

   4350	000000				HELPAG::.BLKW	1		;HELP STARTING PAGE NUMBER

   4400	000002				ALTSWT::.BLKW	1		;BIT 0 SET IF /ALT

   4500									;BIT 1 SET IF /MAT

   4600	000004	   044 			ALTSTR::.BYTE	'$		;DEFAULT ALTMODE CHARACTER

   4700	000005	   077 			MATSTR::.BYTE	'?		;DEFAULT SPECIAL MATCH CHARACTER

   4800

   4900

   5000		000001 				.END

SOSSWT - SWITCH TABLES	MACRO M1110  22-AUG-78 05:35  PAGE 4-1

SYMBOL TABLE



ALTSTR  000004RG    004	ISTEP = ****** GX	PRINTR= ****** GX	T$BUF   000660R     003	T$STE   001004R     003

ALTSWT  000002RG    004	ISWTAB  000126RG    003	RONLY = ****** GX	T$HEL   000666R     003	UNSEQ = ****** GX

BASIC = ****** GX	LENN  = ****** GX	RONLY$= 000001   	T$INC   000674R     003	VALALT= 000001

BUFSZ = ****** GX	LMAR  = ****** GX	R$$EIS= 000001   	T$ISA   000702R     003	VALBIG= 000007

CHR$$ = 000123   	LODSWT  000000RG    002	R$$SHR= 000001   	T$LEN   000710R     003	VALDOT= 000003

CNT$$ = 000003   	MATSTR  000005RG    004	SAVEN = ****** GX	T$LMA   000716R     003	VALERR= 000004

DECIDE= ****** GX	MAXLN = ****** GX	SEPARA= ****** GX	T$MAT   000724R     003	VALEVE= 000013

DELETE= ****** GX	NOBAK = ****** GX	SIZ$$ = 000003   	T$MAX   000732R     003	VALHEL= 000012 G

EXACT = ****** GX	NOLINS= ****** GX	SOSFLG= ****** GX	T$OPT   000740R     003	VALIDE= 000011

EXPERT= ****** GX	NOLOW = ****** GX	STARTN= ****** GX	T$PLI   000746R     003	VALLOC= 000005

GIVTBL  000000RG    003	NOOPT = ****** GX	STEPN = ****** GX	T$PMA   000754R     003	VALMAT= 000002

GIVWRD= ****** GX	OPTNAM= ****** GX	SUBS  = ****** GX	T$PRI   000762R     003	VALNAM= 000010

GIVW2 = ****** GX	PLINES= ****** GX	SWTAB   000174RG    003	T$SAV   000770R     003	VALSTR= 000006

HELPAG  000000RG    004	PMAR  = ****** GX	T$ALT   000652R     003	T$STA   000776R     003	$$    = 000001

ISAVE = ****** GX



. ABS.	000000	   000

      	000000	   001

CODE  	000002	   002

PLIT  	001012	   003

SWT.D 	000006	   004

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  2144 WORDS  ( 9 PAGES)

DYNAMIC MEMORY:  2772 WORDS  ( 10 PAGES)

ELAPSED TIME:  00:00:31

OBJ$:SOSSWT,LIS$:SOSSWT/-SP/NL:TOC=SRC$:PREFIX,SOSSWT

