perm filename BAIPRC.FAI[X,AIL]1 blob sn#197167 filedate 1976-01-16 generic text, type T, neo UTF8
	TITLE	BAIPRC
$BEGIN←←.+1



	EXTERNAL MAINPR
	0
	LINK	PDLNK,.-1
	,MAINPR
	6
	POINT	7,[ASCII/MAINPR/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MAINPR,0
	XWD	MAINPR,0


	EXTERNAL RESUME
	0
	LINK	PDLNK,.-1
	,RESUME
	6
	POINT	7,[ASCII/RESUME/]
	REFB+PROCB+ITMVAR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RESUME,0
	XWD	RESUME,0
	0+ITMVAR+VALUE
	0+DEFLT+ITMVAR+VALUE
	0+DEFLT+INTEGR+VALUE


	EXTERNAL ASKNTC
	0
	LINK	PDLNK,.-1
	,ASKNTC
	6
	POINT	7,[ASCII/ASKNTC/]
	REFB+PROCB+ITMVAR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ASKNTC,0
	XWD	ASKNTC,0
	0+ITMVAR+VALUE
	0+DEFLT+INTEGR+VALUE


	EXTERNAL CAUSE1
	0
	LINK	PDLNK,.-1
	,CAUSE1
	6
	POINT	7,[ASCII/CAUSE1/]
	REFB+PROCB+ITMVAR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CAUSE1,0
	XWD	CAUSE1,0
	0+ITMVAR+VALUE
	0+DEFLT+ITMVAR+VALUE
	0+DEFLT+INTEGR+VALUE


	EXTERNAL MKEVTT
	0
	LINK	PDLNK,.-1
	,MKEVTT
	6
	POINT	7,[ASCII/MKEVTT/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MKEVTT,0
	XWD	MKEVTT,0
	0+ITMVAR+VALUE


	EXTERNAL JOIN
	0
	LINK	PDLNK,.-1
	,JOIN
	4
	POINT	7,[ASCII/JOIN/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	JOIN,0
	XWD	JOIN,0
	0+SET+VALUE


	EXTERNAL SUSPEND
	0
	LINK	PDLNK,.-1
	,SUSPEND
	7
	POINT	7,[ASCII/SUSPEND/]
	REFB+PROCB+ITMVAR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SUSPEND,0
	XWD	SUSPEND,0
	0+ITMVAR+VALUE


	EXTERNAL TERMINATE
	0
	LINK	PDLNK,.-1
	,TERMINATE
	11
	POINT	7,[ASCII/TERMINATE/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TERMINATE,0
	XWD	TERMINATE,0
	0+ITMVAR+VALUE


	EXTERNAL MYPROC
	0
	LINK	PDLNK,.-1
	,MYPROC
	6
	POINT	7,[ASCII/MYPROC/]
	REFB+PROCB+ITMVAR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MYPROC,0
	XWD	MYPROC,0


	EXTERNAL CALLER
	0
	LINK	PDLNK,.-1
	,CALLER
	6
	POINT	7,[ASCII/CALLER/]
	REFB+PROCB+ITMVAR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CALLER,0
	XWD	CALLER,0
	0+ITMVAR+VALUE


	EXTERNAL INTSET
	0
	LINK	PDLNK,.-1
	,INTSET
	6
	POINT	7,[ASCII/INTSET/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTSET,0
	XWD	INTSET,0
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	EXTERNAL INTTBL
	0
	LINK	PDLNK,.-1
	,INTTBL
	6
	POINT	7,[ASCII/INTTBL/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTTBL,0
	XWD	INTTBL,0
	0+INTEGR+VALUE


	EXTERNAL INTMOD
	0
	LINK	PDLNK,.-1
	,INTMOD
	6
	POINT	7,[ASCII/INTMOD/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTMOD,0
	XWD	INTMOD,0


	EXTERNAL CLKMOD
	0
	LINK	PDLNK,.-1
	,CLKMOD
	6
	POINT	7,[ASCII/CLKMOD/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLKMOD,0
	XWD	CLKMOD,0


	EXTERNAL DFRINT
	0
	LINK	PDLNK,.-1
	,DFRINT
	6
	POINT	7,[ASCII/DFRINT/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFRINT,0
	XWD	DFRINT,0


	EXTERNAL DDFINT
	0
	LINK	PDLNK,.-1
	,DDFINT
	6
	POINT	7,[ASCII/DDFINT/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DDFINT,0
	XWD	DDFINT,0


	EXTERNAL DFR1IN
	0
	LINK	PDLNK,.-1
	,DFR1IN
	6
	POINT	7,[ASCII/DFR1IN/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFR1IN,0
	XWD	DFR1IN,0
	0+INTEGR+VALUE


	EXTERNAL ENABLE
	0
	LINK	PDLNK,.-1
	,ENABLE
	6
	POINT	7,[ASCII/ENABLE/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ENABLE,0
	XWD	ENABLE,0
	0+INTEGR+VALUE


	EXTERNAL DISABLE
	0
	LINK	PDLNK,.-1
	,DISABLE
	7
	POINT	7,[ASCII/DISABLE/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DISABLE,0
	XWD	DISABLE,0
	0+INTEGR+VALUE


	EXTERNAL INTMAP
	0
	LINK	PDLNK,.-1
	,INTMAP
	6
	POINT	7,[ASCII/INTMAP/]
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTMAP,0
	XWD	INTMAP,0
	0+INTEGR+VALUE
	0+PROCED+REFRNC
	0+INTEGR+VALUE


	EXTERNAL DFCPKT
	0
	LINK	PDLNK,.-1
	,DFCPKT
	6
	POINT	7,[ASCII/DFCPKT/]
	REFB+PROCB+INTEGR
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFCPKT,0
	XWD	DFCPKT,0
	0+INTEGR+VALUE
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	EXTERNAL URSCHD
	0
	LINK	PDLNK,.-1
	,URSCHD
	6
	POINT	7,[ASCII/URSCHD/]
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	URSCHD,0
	XWD	URSCHD,0


	EXTERNAL PRISET
	0
	LINK	PDLNK,.-1
	,PRISET
	6
	POINT	7,[ASCII/PRISET/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PRISET,0
	XWD	PRISET,0
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	EXTERNAL PSTATUS
	0
	LINK	PDLNK,.-1
	,PSTATUS
	7
	POINT	7,[ASCII/PSTATUS/]
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSTATUS,0
	XWD	PSTATUS,0
	0+ITMVAR+VALUE


	EXTERNAL INTPRO
	0
	LINK	PDLNK,.-1
	,INTPRO
	6
	POINT	7,[ASCII/INTPRO/]
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTPRO,0
	XWD	INTPRO,0


	EXTERNAL ANSWER
	0
	LINK	PDLNK,.-1
	,ANSWER
	6
	POINT	7,[ASCII/ANSWER/]
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ANSWER,0
	XWD	ANSWER,0
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE

	0
	LINK	BALNK,.-1
	XWD	$BEGIN,$BEGIN
	1,,1
	SIXBIT	/BAIPRC/
	-1
	END