perm filename BAIIO1.FAI[X,AIL]3 blob sn#231292 filedate 1976-08-13 generic text, type T, neo UTF8
	TITLE	BAIIO1
$BEGIN←←.+1



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


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


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


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


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


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


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


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


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


	EXTERNAL CLOSE
	0
	LINK	PDLNK,.-1
	,CLOSE
	5
	POINT	7,[ASCII/CLOSE/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLOSE,0
	XWD	CLOSE,0
	0+INTEGR+VALUE
	0+DEFLT+$DFLT$+INTEGR+VALUE


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


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


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


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


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


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


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


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


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


	EXTERNAL CVG
	0
	LINK	PDLNK,.-1
	,CVG
	3
	POINT	7,[ASCII/CVG/]
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVG,0
	XWD	CVG,0
	0+FLOTNG+VALUE


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


	EXTERNAL ARRTRAN
	0
	LINK	PDLNK,.-1
	,ARRTRAN
	7
	POINT	7,[ASCII/ARRTRAN/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRTRAN,0
	XWD	ARRTRAN,0
	0+UNTYPE+REFRNC+SBSCRP
	0+UNTYPE+REFRNC+SBSCRP


	EXTERNAL ARRCLR
	0
	LINK	PDLNK,.-1
	,ARRCLR
	6
	POINT	7,[ASCII/ARRCLR/]
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRCLR,0
	XWD	ARRCLR,0
	0+UNTYPE+REFRNC+SBSCRP
	0+DEFLT+$DFLT$+UNTYPE+VALUE


	EXTERNAL GETCHAN
	0
	LINK	PDLNK,.-1
	,GETCHAN
	7
	POINT	7,[ASCII/GETCHAN/]
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GETCHAN,0
	XWD	GETCHAN,0;SOME PROCEDURES NOMRALLY COMPILED INLINE

	0		;WORD FOR PROCEDURE DESCRIPTOR LINK
	LINK	PDLNK,.-1
	..LDB		;ENTRY ADDRESS
	3		;SAIL STRING DESCRIPTOR FOR NAME
	POINT	7,[ASCII/LDB/]
	REFB+PROCB+INTEGR	;TYPE OF PROCEDURE
	XWD	0,2	;STRING PARAMS*2,,ARITH PARAMS+1
	0		;SS DISPL,,AS DISPL
	0		;LEX LEV,,LOCAL VAR INFO
	XWD	0,.+4	;DISPL LEV,,PNTR TO PARAM INFO
	XWD	.-10,0	;PDA,,0
	XWD	..LDB,0	;PCNT AT END OF MKSEMT,,PARENTS PDA
	XWD	..LDB,0	;PCNT AT PRDEC,,LOC FOR JRST EXIT
	0+INTEGR+VALUE	;TYPE BITS FOR PARAMETER

	0
	LINK	PDLNK,.-1
	..ILDB
	4
	POINT	7,[ASCII/ILDB/]
	REFB+PROCB+INTEGR
	XWD	0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..ILDB,0
	XWD	..ILDB,0
	0+INTEGR+REFRNC


	0
	LINK	PDLNK,.-1
	..IBP
	3
	POINT	7,[ASCII/IBP/]
	REFB+PROCB
	XWD	0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..IBP,0
	XWD	..IBP,0
	0+INTEGR+REFRNC


	0
	LINK	PDLNK,.-1
	..DPB
	3
	POINT	7,[ASCII/DPB/]
	REFB+PROCB
	XWD	0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..DPB,0
	XWD	..DPB,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	0
	LINK	PDLNK,.-1
	..IDPB
	4
	POINT	7,[ASCII/IDPB/]
	REFB+PROCB
	XWD	0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..IDPB,0
	XWD	..IDPB,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
P←←17
TEMP←←14
	INTERNAL ..LDB,..ILDB,..DPB,..IDPB,..IBP
	EXTERNAL X22,X33
..LDB:	LDB	1,-1(P)
..RET2:	SUB	P,X22
	JRST	@2(P)
..ILDB:	ILDB	1,@-1(P)
	JRST	..RET2
..IBP:	IBP	1,@-1(P)
	JRST	..RET2
..DPB:	MOVE	TEMP,-2(P)
	DPB	TEMP,-1(P)
..RET3:	SUB	P,X33
	JRST	@3(P)
..IDPB:	MOVE	TEMP,-2(P)
	IDPB	TEMP,@-1(P)
	JRST	..RET3

	0
$DFLT$:	0

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