SRCCOM V4

1)	/46	CCL  FOR  OS/8 V3C
2)	/46	CCL  FOR  OS/8 V3C

1)001	/
1)	/
1)	/
1)	/
1)	/
1)	/
****
2)001	/HASSLE VERSION
2)	/HASSLE CONDITIONALS:
2)		IFNDEF ALLLST<ALLLST=0>
2)	/	SET ALLLST TO NON ZERO IF YOU WANT THE WHOLE
2)	/ASSEMBLY LISTED ELSE ONLY 'VARIATIONS'
2)		IFNDEF ETOS<ETOS=0>
2)	/	SET ETOS TO NONZERO VALUE TO ASSEMBLE FOR ETOS
2)	/
2)		IFZERO ALLLST <XLIST>
2)	/

********

1)002		MOFILE=7600
1)		MIFILE=7617
****
2)002		IFZERO ALLLST<XLIST>
2)	/ETOS DEFINITIONS
2)		DATXNO=11
2)		TEXNO=13	/TEXTSET
2)		CURJNO=15	/CURRENT JOB
2)		WHEOFF=16	/OFFSET FOR CONSOL
2)		SYSCAL=6200	/ETOS IOT
2)		MOFILE=7600
2)		IFZERO ALLLST <XLIST>
2)		MIFILE=7617

********

1)005		FIELD 1
****
2)005		IFZERO ALLLST <XLIST>
2)		FIELD 1

********

1)005		JMS TWAIT
1)		CDF 0
****
2)005		IFZERO ETOS <JMS TWAIT>
2)		CDF 0

********

1)005		CDF 0
1)		DCA I (RETCIF	/ALLOW 'FINDIT' TO RETURN TO FIELD 1
1)		CIF CDF 0
1)		STA
****
2)005	/**	CDF 0
2)		CDF CIF 0
2)		DCA I (RETCIF	/ALLOW 'FINDIT' TO RETURN TO FIELD 1
2)	/***	CIF CDF 0
2)		STA

********

1)006	ERR2,	CIF CDF 0
****
2)005		IFZERO ALLLST <XLIST>
2)006	ERR2,	CIF CDF 0

********

1)008	TWAIT,	0
****
2)008		IFZERO ALLLST <XLIST>
2)		IFZERO ETOS <
2)	TWAIT,	0

********

1)008	BATCH,	0
1)		CDF 0
1)		TAD I (7777
****
2)008		>
2)	BATCH,	0
2)		CDF 
2)		TAD I (7777

********

1)011		JMS SETDEV
1)		TVDEV
1)		JMP I SETTV
1)	M7607,
****
2)011	/	JMS SETDEV
2)	/	TVDEV
2)	/	JMP I SETTV
2)		IFZERO ALLLST <XLIST>
2)	M7607,

********

1)015	/LOOK, LOOKS UP FILE ON DEVICE .  POINTER IS IN ARG1
****
2)015		IFZERO ALLLST <XLIST>
2)	/LOOK, LOOKS UP FILE ON DEVICE .  POINTER IS IN ARG1

********

1)015		TAD NAMPTR	/STORE STARTING BLOCK # IN 'BLK'
1)		DCA BLK
1)		ISZ LOOK	/POINT TO NORMAL RETURN
1)		JMP I LOOK	/RETURN
1)016	FLAG,	0
****
2)015		IFZERO ETOS <
2)		TAD NAMPTR	/STORE STARTING BLOCK # IN 'BLK'
2)		DCA BLK
2)		>
2)		IFNZRO ETOS <JMS I (SETTEX >
2)		ISZ LOOK	/POINT TO NORMAL RETURN
2)		JMP I LOOK	/RETURN
2)		IFZERO ALLLST <XLIST>
2)016	FLAG,	0

********

1)017	XEXE,	5033;	EXTEXE;	40;0;0;		EXSUB;	YPAL8	/EXECUTE MUST BE FIRST FOR TECO EG
1)	XBAC,	0;				0;	YCAMP	/BACKSPACE
1)	XBOO,	0;				0;	YBOOT	/BOOT
1)	XCCL,	0;				MONRES;	0	/CCL
****
2)017		IFZERO ALLLST <XLIST>
2)	XEXE,	5032;	EXTEXE;	40;0;0;		EXSUB;	YPAL8	/EXECUTE MUST BE FIRST FOR TECO EG
2)	/XBAC,	0;				0;	YCAMp	/BECoSmG_.?_{}o}{^wo_?~_~{w~r~~yiu].:7y6HKnv|$ZuZKw}	W|N~[}JhwLoi"rmx3*f\L[um.\4?pv_y{*
/**
2
*1)
	70ZI	OEFL RSLA<TLIX >SL2
TX)
EE	5,X20	E;3EX	;XT0	E;;4	00X	;BSEY;ULP	/8AEE	TCXMEUTU E SI BTRFO STRFOE G C2
E/)
AX		CB;0;	KILRT;	YFOTP	/DELETE
2)	XDEA,	0;				DEASSIG;0	/DEASSIGN

********

1)017	XEOF,	0;				0;	YCAMP	/EOF
1)	XHEL,	4001;	EXTHL;	0;20;0;		HLPSUB;	YPIP	/HELP
1)	/	MAKE YHELP IF HAVE HELP PROGRAM		^^^^
****
2)017	/XEOF,	0;				0;	YCAMP	/EOF
2)	XHEL,	4001;	EXTHL;	0;20;0;		SETTTY;	YPIP	/HELP
2)	/	MAKE YHELP IF HAVE HELP PROGRAM		^^^^

********

1)017	XLOA,	5031;	EXTLO;	0;0;0;		EXSUB;	YABSLDR	/LOAD
1)	XMAK,	0;				MAKSUB;	YTECO	/MAKE
1)	XMAP,	4001;	EXTBN;	0;0;0;		SETTTY;	YBITMAP	/MAP
1)	XMUN,	0;				MNGSUB;	YTECO	/MUNG
1)	XPAL,	5033;	EXTPA;	0;0;0;		EXSUB;	YPAL8	/PAL
1)	XPRI,	4000;	STAR;	0;0;0;		SETLPT;	YLPTSPL	/PRINT
1)	XPUN,	4001;	EXTNUL;	0;0;0;		SETPTP;	YPIP	/PUNCH
****
2)017	XLOA,	5033;	EXTLO;	0;0;0;		EXSUB;	YABSLDR	/LOAD
2)	XMAK,	0;				MAKSUB;	YTECO	/MAKE
2)	XMAP,	4001;	EXTBN;	0;0;0;		SETLPT;	YBITMAP	/MAP
2)	XMUN,	0;				MNGSUB;	YTECO	/MUNG
2)	XPAL,	5033;	EXTPA;	0;0;0;		EXSUB;	YPAL8	/PAL
2)	/XPRI,	4000;	STAR;	0;0;0;		SETLPT;	YLPTSPL	/PRINT
2)	XPRI,	4000;	EXTPRI;	0;10;0;		SETLPT;	YPRINT	/PRINT
2)	XPUN,	4001;	EXTNUL;	0;0;0;		SETPTP;	YPIP	/PUNCH

********

1)017	XREW,	0;				0;	YCAMP	/REWIND
1)	XSET,	0;				0;	YCAMP	/SET
1)	XSKI,	0;				0;	YCAMP	/SKIP
1)	XSQU,	4001;	EXTNUL;	0;40;0;		SQSUB;	YPIP	/SQUISH
****
2)017		IFZERO ETOS <
2)	XREW,	0;				0;	YCAMP	/REWIND
2)		>
2)	/XSET,	0;				0;	YCAMP	/SET
2)	/XSKI,	0;				0;	YCAMP	/SKIP
2)	XSQU,	4001;	EXTNUL;	0;40;0;		SQSUB;	YPIP	/SQUISH

********

1)017	XUNL,	0;				0;	YCAMP	/UNLOAD
1)	XUA,	40;				USRSUB;	0	/UA
****
2)017		IFZERO ETOS <
2)	XUNL,	0;				0;	YCAMP	/UNLOAD
2)		>
2)	XUA,	40;				USRSUB;	0	/UA

********

1)017		ZBLOCK 30
1)018	PTBL,	XEXE
1)		XBAC
1)		XBOO
1)		XCCL
****
2)017	XCONV,	5201;	EXTNUL;	0;0;0;		0;	YCONV	/CONVERT
2)	XDUMP,	4000;	EXTNUL;	0;0;0;		SETLPT;	YOCOMP
2)	XUPD,	4001;	STAR;	0;2000;0;	MOVRT;	YEXPIP
2)	XMOV,	4001;	STAR;	2;0;0;		MOVRT;	YEXPIP
2)	XKILL,	4001;	STAR;	401;0;0;	KILRT;	YFOTP
2)	XFAC,	4401;	EXTNUL;	0;0;0;		FACSUB;	YPIP	/FETCH
2)		IFNZRO ETOS <
2)	XSYS,	4401;	EXTNUL;	0;0;20;		0;	YSYSTA	/SYSTAT
2)	XTIM,	4000;	EXTNUL;	0;0;0;		0;	YTIME	/TIME
2)		>
2)	/	ZBLOCK 30
2)018	PTBL,	XEXE
2)	/	XBAC
2)		IFZERO ETOS<XBOO>
2)		XCCL

********

1)018		XEOF
1)		XHEL
****
2)018	/	XEOF
2)		XHEL

********

1)018		XREW
1)		XSET
1)		XSKI
1)		XSQU
****
2)018		IFZERO ETOS<XREW>
2)	/	XSET
2)	/	XSKI
2)		XSQU

********

1)018		XUNL
1)		XUA
****
2)018		IFZERO ETOS<XUNL>
2)		XUA

********

1)018		ZBLOCK 4
1)019	STAR,	5200;	0
****
2)018		XCONV
2)		XDUMP
2)		XUPD
2)		XMOV
2)		XKILL
2)		XFAC
2)		IFNZRO ETOS <
2)		XSYS
2)		XTIM
2)		>
2)	/	ZBLOCK 4
2)019	STAR,	5200;	0

********

1)020	EXTFT,	0624;	COMFT	/FT
****
2)020	EXTLD,	1404;	COMLD	/LD
2)	EXTRL,	2214;	COMRL	/RL
2)	EXTFT,	0624;	COMFT	/FT

********

1)020	EXTRL,	2214;	COMRL	/RL
1)	EXTRA,	2201;	COMRA	/RA
1)	EXTSB,	2302;	COMSB	/SB
1)	EXTLD,	1404;	COMLD	/LD V3C
1)		0;	0
****
2)020	/EXTRL,	2214;	COMRL	/RL
2)	EXTRA,	2201;	COMRA	/RA
2)	EXTSB,	2302;	COMSB	/SB
2)		0;	0

********

1)020		0;	0
1)		ZBLOCK 4
1)021	/	TAD (-# OF LOCS TO MOVE
****
2)020	EXTPRol-2zu;]vOoo{o~??{~ww_5}>{?}}~~6~?wO~.=_XkgruSI55$*gjQ_]u+}/]ZX1zK72My[