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