/
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/SAVE AREAS AND BUFFERS FOR EACH JOB
/
/EDIT 4 9-2-70
/SAVE AREAS FOR EACH JOB
/DEFINE MULTI=N WHERE N=2,4
	/HAS SAVE AREA FOR DATA COMMANDS
TTI1=1
TTO1=1
BKI1=2
BKO1=2
TTI2=3
TTO2=3
BKI2=4
BKO2=4
	.IFDEF MULTI
/	INTERNAL GLOBLS REFERENCED BY FOCAL MAIN
	.GLOBL FILA1,FILA2,FILB1,FILB2,FILC1,FILC2,BOT1,BOT2
	.GLOBL ENDT1A,ENDT1C,ENDT1D,ENDT2A,ENDT2C,ENDT2D
	.GLOBL BUF1,BUF2,ENDT1,ENDT2,AREA1,AREA2
/	EXTERNAL GLOBLS
	.GLOBL CTLP1,CTLP2,WAITB1,WAITB2
AREA1	0			/RESTART -1 REG
	CTLP1
	WAITB1
	0			/FLAC -3 REGS
	0
	0
	0			/FRST
	0			/LIST3+1
	0			/AUTOXR -5 REGS
	0
	0
	0
	0
	IMB1			/BUFFER HEADER POINTERS -4 REGS
	IMB1
	INB1
	OTB1
	0			/SUBROUTINE ENTRY POINTS - 10(8) REGS
	0
	0
	0
	0
	0
	0
	0
	2000+TTI1			/CAL SAVES -14(8) REGS
	3000+TTI1
	2000+TTO1
	3000+TTO1
	2000+TTO1
	0
	0
	0
	0
	0
	0
	0
	0
FILA1	0			/FILE POINTERS - 3 REGS
FILB1	0
FILC1	0
BOT1	XX			/FREE CORE POINTERS - 6 REGS
BUF1	XX
ENDT1	XX
ENDT1A	XX
	XX
ENDT1C	XX
ENDT1D	XX
	CMB1			/COMBUF=COMEIN
	CMB1+77			/COMBOT=COMOUT
	IMB1+2			/IMBUFP=IMBUFF+2
	INB1+2			/INBUFP=INBUF+2
	OTB1+2			/OTBUFP=OUTBUF+2
	0			/AXOUT (TEXTP)
	0			/XCTX
	0			/GTEM
	0			/MODBUF
	215			/ENDCR
	0			/GETVCT
	0			/SAVEOT
	-1			/PUTCNT
	0			/TEMPK
	0			/INSUB
	TTI1			/TTIN
	TTO1			/TTOUT
	BKI1			/BLKIN
	BKO1			/BLKOUT
	0			/LIBRSW
	TTI1	/.DATIN
	TTO1	/.DATOUT
	0	/DATINS
	0			/EX1
	0			/AC1H
	0			/AC1L
	0			/OVER1
	0			/OVER2
	10			/FISW
	0			/GETP
	0			/GETCX
	0			/GET1X
	0			/GET2
	0			/GET3
	OTB1+2			/PUTP
	0			/PUTC
	0			/PUT6
	0			/SORTCN
	0			/LASTOP
	0			/ATSW (EFOP)
	-20			/CNTR
	4			/DECP
	0			/ADD
	0			/XCTIN
	1			/NAGSW
	215			/CHAR
	0			/LINENO
	0			/PC
	0			/THISLN
	0			/THISOP
	0			/LASTLN
	1			/DEBGSW
	1			/DMPSW
	0			/PACKST
	0			/PT1
	0			/T1
	0			/T2
	0			/SACH
	0			/FLARG -3 REGS
	0
	0
	0			/FLARG2 -3 REGS
	0
	0
AREA1S=.-AREA1
IMB1	2003; 0; 0; -1
INB1	.BLOCK	60		
	.ASCII	<15>
OTB1	1000
	.BLOCK	57
	.ASCII	<15>
CMB1	.BLOCK	100
	215
/
AREA2	0		/RESTART - 1 REG
	CTLP2
	WAITB2
	0		/FLAC - 3 REGS
	0
	0
	0			/FRST
	0		/LIST3+1
	0		/AUTOXR - 5 REGS
	0
	0
	0
	0
	IMB2		/BUFFER HEADER POINTERS - 4 REG
	IMB2
	INB2
	OTB2
	0		/SUBROUTINE ENTRY POINTS - 10(8) REGS
	0
	0
	0
	0
	0
	0
	0
	2000+TTI2		/CAL SAVES - 14(8) REGS
	3000+TTI2	
	2000+TTO2
	3000+TTO2
	2000+TTO2
	0
	0
	0
	0
	0
	0
	0
	0
FILA2	0		/FILE POINTERS - 3 REGS
FILB2	0
FILC2	0
BOT2	XX		/FREE CORE POINTERS - 6 REGS
BUF2	XX
ENDT2	XX
ENDT2A	XX
	XX
ENDT2C	XX
ENDT2D	XX
	CMB2		/COMBUF=COMEIN
	CMB2+77		/COMBOT=COMOUT
	IMB2+2		/INBUFP=IMBUFF+2
	INB2+2		/INBUFP=INBUF+2
	OTB2+2		/OTBUFP=OUTBUF+2
	0		/AXOUT(TEXTP)
	0		/XCTX
	0		/GTEM
	0		/MODBUF
	215		/ENDCR
	0		/GETVCT
	0		/SAVEOT
	-1		/PUTCNT
	0		/TEMPK
	0		/INSUB
	TTI2		/TTIN
	TTO2		/TTOUT
	BKI2		/BLKIN
	BKO2		/BLKOUT
	0		/LIBRSW
	TTI2	/.DATIN
	TTO2	/.DATOUT
	0	/DATINS
	0		/EX1
	0		/AC1H
	0		/AC1L
	0		/OVER1
	0		/OVER2
	10		/FISW
	0		/GETP
	0		/GETCX
	0		/GET1X
	0		/GET2
	0		/GET3
	OTB2+2		/PUTP
	0		/PUTC
	0		/PUT6
	0		/SORTCN
	0		/LASTOP
	0		/ATSW(EFOP)
	-20		/CNTR
	4		/DECP
	0		/ADD
	0		/XCTIN
	1		/NAGSW
	215		/CHAR
	0		/LINENO
	0		/PC
	0		/THISLN
	0		/THISOP
	0		/LASTLN
	1		/DEBGSW
	1		/DMPSW
	0		/PACKST
	0		/PT1
	0		/T1
	0		/T2
	0		/SACH
	0		/FLARG - 3 REGS
	0
	0
	0		/FLARG2 - 3 REGS
	0
	0
AREA2S=.-AREA2
IMB2	2003; 0; -1
INB2	.BLOCK	60
	.ASCII	<15>
OTB2	1000
	.BLOCK	57
	.ASCII	<15>
CMB2	.BLOCK	100
	215
/
	.IFZER MULTI-4
/	INTERNAL GLOBLS REFERENCED BY FOCAL MAIN
	.GLOBL FILA3,FILA4,FILB3,FILB4,FILC3,FILC4,BOT3,BOT4
	.GLOBL BUF3,BUF4,ENDT3,ENDT4,AREA3,AREA4
	.GLOBL ENDT3A,ENDT3C,ENDT3D,ENDT4A,ENDT4C,ENDT4D
/	EXTERNAL GLOBLS
	.GLOBL CTLP3,CTLP4,WAITB3,WAITB4
TTI3=5
TTO3=5
BKI3=6
BKO3=6
TTI4=7
TTO4=7
BKI4=10
BKO4=10
AREA3	0		/RESTART - 1 REG
	CTLP3
	WAITB3
	0		/FLAC - 3 REGS
	0
	0
	0		/FRST
	0		/LIST3+1
	0		/AUTOXR - 5 REGS
	0
	0
	0
	0
	IMB3		/BUFFER HEADER POINTERS - 4 REG
	IMB3
	INB3
	OTB3
	0		/SUBROUTINE ENTRY POINTS - 10(8) REG
	0
	0
	0
	0
	0
	0
	0
	2000+TTI3		/CAL SAVES - 14(8) REGS
	3000+TTI3
	2000+TTO3
	3000+TTO3
	2000+TTO3
	0
	0
	0
	0
	0
	0
	0
	0
FILA3	0		/FILE POINTERS - 3 REGS
FILB3	0
FILC3	0
BOT3	XX		/FREE CORE POINTERS - 6 REGS
BUF3	XX
ENDT3	XX
ENDT3A	XX
	XX
ENDT3C	XX
ENDT3D	XX
	CMB3		/COMBUF=COMEIN
	CMB3+77		/COMBOT=COMOUT
	IMB3+2		/IMBUFP=IMBUFF+2
	INB3+2		/INBUFP=INBUF+2
	OTB3+2		/OTBUFP=OUTBUF+2
	0		/AXOUT(TEXTP)
	0		/XCTX
	0		/GTEM
	0		/MODBUF
	215		/ENDCR
	0		/GETVCT
	0		/SAVEOT
	-1		/PUTCNT
	0		/TEMPK
	0		/INSUB
	TTI3		/TTIN
	TTO3		/TTOUT
	BKI3		/BLKIN
	BKO3		/BLKOUT
	0		/LIBRSW
	TTI3	/.DATIN
	TTO3	/.DATOUT
	0	/DATINS
	0		/EX1
	0		/AC1H
	0		/AC1L
	0		/OVER1
	0		/OVER2
	10		/FISW
	0		/GETP
	0		/GETCX
	0		/GET1X
	0		/GET2
	0		/GET3
	OTB3+2		/PUTP
	0		/PUTC
	0		/PUT6
	0		/SORTCN
	0		/LASTOP
	0		/ATSW(EFOP)
	-20		/CNTR
	4		/DECP
	0		/ADD
	0		/XCTIN
	1		/NAGSW
	215		/CHAR
	0		/LINEND
	0		/PC
	0		/THISLN
	0		/THISOP
	0		/LASTLN
	1		/DEBGSW
	1		/DMPSW
	0		/PACKST
	0		/PT1
	0		/T1
	0		/T2
	0		/SACH
	0		/FLARG - 3 REGS
	0
	0
	0		/FLARG2 - 3 REGS
	0
	0
AREA3S=.-AREA3
IMB3	2003; 0; 0; -1
INB3	.BLOCK	60
	.ASCII	<15>
OTB3	1000
	.BLOCK	57
	.ASCII	<15>
CMB3	.BLOCK	100
	215
/
AREA4	0		/RESTART - 1 REG
	CTLP4
	WAITB4
	0		/FLAC - 3 REGS
	0
	0
	0		/FRST
	0		/LIST3+1
	0		/AUTOXR - 5 REGS
	0
	0
	0
	0
	IMB4		/BUFFER HEADER POINTERS - 4 REG
	IMB4
	INB4
	OTB4
	0		/SUBROUTINE ENTRY POINTS - 10 (8) REG
	0
	0
	0
	0
	0
	0
	0
	2000+TTI4		/CAL SAVES - 14(8) REGS
	3000+TTI4
	2000+TTO4
	3000+TTO4
	2000+TTO4
	0
	0
	0
	0
	0
	0
	0
	0
FILA4	0		/FILE POINTERS - 3 REGS
FILB4	0
FILC4	0
BOT4	XX		/FREE CORE POINTERS - 6 REGS
BUF4	XX
ENDT4	XX
ENDT4A	XX
	XX
ENDT4C	XX
ENDT4D	XX
	CMB4		/COMBUF=COMEIN
	CMB4+77		/COMBOT=COMOUT
	IMB4+2		/IMBUFP=IMBUFF+2
	INB4+2		/INBUFP=INBUF+2
	OTB4+2		/OTBUFP=OUTBUF+2
	0		/AXOUT(TEXPT)
	0		/XCTX
	0		/GTEM
	0		/MODBUF
	215		/ENDCR
	0		/GETVCT
	0		/SAVEOT
	-1		/PUTCNT
	0		/TEMPK
	0		/INSUB
	TTI4		/TTIN
	TTO4		/TTOUT
	BKI4		/BLKIN
	BKO4		/BKOUT
	0		/LIBRSW
	TTI4	/.DATIN
	TTO4	/.DATOUT
	0	/DATINS
	0		/EX1
	0		/AC1H
	0		/AC1L
	0		/OVER1
	0		/OVER2
	10		/FISW
	0		/GETP
	0		/GETCX
	0		/GET1X
	0		/GET2
	0		/GET3
	OTB4+2		/PUTP
	0		/PUTC
	0		/PUT6
	0		/SORTCN
	0		/LASTOP
	0		/ATSW(EFOP)
	-20		/CNTR
	4		/DECP
	0		/ADD
	0		/XCTIN
	1		/NAGSW
	215		/CHAR
	0		/LINENO
	0		/PC
	0		/THISLN
	0		/THISOP
	0		/LASTLN
	1		/DEBGSW
	1		/DMPSW
	0		/PACKST
	0		/PT1
	0		/T1
	0		/T2
	0		/SACH
	0		/FLARG - 3 REGS
	0
	0
	0		/FLARG2 - 3 REGS
	0
	0
AREA4S=.-AREA4
IMB4	2003; 0; 0; -1
INB4	.BLOCK	60
	.ASCII	<15>
OTB4	1000
	.BLOCK	57
	.ASCII	<15>
CMB4	.BLOCK	100
	215
/
	.ENDC
	.ENDC
	.END
	.EJECT