perm filename BAISM1.FAI[X,AIL]5 blob sn#253617 filedate 1976-12-17 generic text, type T, neo UTF8
	TITLE	PD8SM1
↑↑START: RESET
	OPEN	1,FDB1
	HALT	.
	ENTER	1,ENT1
	HALT	.
	OPEN	2,FDB2
	HALT	.
	ENTER	2,ENT2
	HALT	.
	OPEN	3,FDB3
	HALT	.
	ENTER	3,ENT3
	HALT	.
	OPEN	4,FDB4
	HALT	.
	ENTER	4,ENT4
	HALT	.
	OPEN	5,FDB5
	HALT	.
	ENTER	5,ENT5
	HALT	.
A←1
B←2
C←3
D←4
F←6
P←17
	
	MOVE	P,[IOWD 10,PDL]
	MOVE	A,[POINT 36,$BEGIN]
NEXT:	ILDB	F,A		;WHICH FILE IT GOES TO
	CAMN	F,[-1]
	 JRST	FIN
	MOVE	F,-1+[	OBUF1
			OBUF2
			OBUF3
			OBUF4
			OBUF5](F)	;ADDR OF BUFFER RING
	ILDB	B,A		;FIRST DATA WORD
	PUSHJ	P,WORD
	ILDB	B,A		;SECOND DATA WORD
	PUSHJ	P,WORD
	MOVEI	D,-400000+3(B)	;NUMBER OF ADDITIONAL DATA WORDS
	ILDB	B,A
	PUSHJ	P,WORD
	SOJG	D,.-2
	JRST	NEXT
	
FIN:	MOVEI	D,5
	MOVE	F,-1+[OBUF1↔OBUF2↔OBUF3↔OBUF4↔OBUF5](D)
	MOVE	B,[-1]		;END-OF-FILE FLAG
	PUSHJ	P,WORD
	SOJG	D,FIN+1		;FOR EACH FILE

	RELEASE	1,
	RELEASE	2,
	RELEASE	3,
	RELEASE	4,
	RELEASE	5,
	EXIT

WORD:	SOSG	2(F)	;DECR CHR COUNT
	XCT	3(F)	;NO ROOM. DO OUT
	JRST	WORD1
	HALT	.
WORD1:	IDPB	B,1(F)
	POPJ	P,

FDB1:	14		;IMAGE MODE
	SIXBIT	/DSK/
	.+1,,0		;OUTPUT BUFFER RING
OBUF1:	BLOCK	3
	OUT	1,	;XCT'ED TO WRITE BUFFER
FDB2:	14		;IMAGE MODE
	SIXBIT	/DSK/
	.+1,,0		;OUTPUT BUFFER RING
OBUF2:	BLOCK	3
	OUT	2,	;XCT'ED TO WRITE BUFFER
FDB3:	14		;IMAGE MODE
	SIXBIT	/DSK/
	.+1,,0		;OUTPUT BUFFER RING
OBUF3:	BLOCK	3
	OUT	3,	;XCT'ED TO WRITE BUFFER
FDB4:	14		;IMAGE MODE
	SIXBIT	/DSK/
	.+1,,0		;OUTPUT BUFFER RING
OBUF4:	BLOCK	3
	OUT	4,	;XCT'ED TO WRITE BUFFER
FDB5:	14		;IMAGE MODE
	SIXBIT	/DSK/
	.+1,,0		;OUTPUT BUFFER RING
OBUF5:	BLOCK	3
	OUT	5,	;XCT'ED TO WRITE BUFFER

ENT1:	SIXBIT	/BAICLC/
	SIXBIT	/SM1/
	0
	0
ENT2:	SIXBIT	/BAIIO1/
	SIXBIT	/SM1/
	0
	0
ENT3:	SIXBIT	/BAIIO2/
	SIXBIT	/SM1/
	0
	0
ENT4:	SIXBIT	/BAIMSC/
	SIXBIT	/SM1/
	0
	0
ENT5:	SIXBIT	/BAIPRC/
	SIXBIT	/SM1/
	0
	0

PDL:	BLOCK 10
$BEGIN:
PDA1←←PDA2←←PDA3←←PDA4←←PDA5←←1


	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/OUT/
PDA2←←PDA2+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/BREAKSET/
PDA3←←PDA3+14+3
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA2
	ASCII	/INPUT/
PDA2←←PDA2+14+2
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/LOOKUP/
PDA2←←PDA2+14+3
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/OPEN/
PDA2←←PDA2+14+10
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/SETPL/
PDA3←←PDA3+14+4
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/POINT/
PDA4←←PDA4+14+3
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/SETPRINT/
PDA2←←PDA2+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/GETPRINT/
PDA3←←PDA3+14+0
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA2
	ASCII	/EQU/
PDA2←←PDA2+14+2
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA1
	ASCII	/CVS/
PDA1←←PDA1+14+1
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/CVD/
PDA3←←PDA3+14+1
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA2
	ASCII	/SCAN/
PDA2←←PDA2+14+3
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA2
	ASCII	/SCANC/
PDA2←←PDA2+14+4
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/RELEASE/
PDA2←←PDA2+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/LINOUT/
PDA3←←PDA3+14+2
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/CLOSE/
PDA2←←PDA2+14+2
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/CLOSO/
PDA3←←PDA3+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/CLOSIN/
PDA3←←PDA3+14+2
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA1
	ASCII	/CVOS/
PDA1←←PDA1+14+1
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/ENTER/
PDA2←←PDA2+14+3
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/MTAPE/
PDA3←←PDA3+14+2
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA2
	ASCII	/WORDIN/
PDA2←←PDA2+14+1
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/WORDOUT/
PDA2←←PDA2+14+2
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/CVO/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/USETI/
PDA3←←PDA3+14+2
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/USETO/
PDA3←←PDA3+14+2
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/CVSIX/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/CVFIL/
PDA3←←PDA3+14+3
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/CALL/
PDA4←←PDA4+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/RENAME/
PDA3←←PDA3+14+4
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/ERENAME/
PDA3←←PDA3+14+7
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/EDFILE/
PDA4←←PDA4+14+4
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/CVASC/
PDA3←←PDA3+14+1
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA1
	ASCII	/CVSTR/
PDA1←←PDA1+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA3
	ASCII	/CVASTR/
PDA3←←PDA3+14+1
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA2
	ASCII	/CVXSTR/
PDA2←←PDA2+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA3
	ASCII	/CV6STR/
PDA3←←PDA3+14+1
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/SETBREAK/
PDA2←←PDA2+14+4
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA2
	ASCII	/GETBREAK/
PDA2←←PDA2+14+0
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/RELBREAK/
PDA2←←PDA2+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/STDBRK/
PDA3←←PDA3+14+1
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/ARRYIN/
PDA2←←PDA2+14+3
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/ARRYOUT/
PDA2←←PDA2+14+3
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/SETFORMAT/
PDA3←←PDA3+14+2
	0

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA2
	ASCII	/CVG/
PDA2←←PDA2+14+1
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA3
	ASCII	/CVF/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA3
	ASCII	/CVE/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA3
	ASCII	/REALIN/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/INTIN/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA3
	ASCII	/REALSCAN/
PDA3←←PDA3+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/INTSCAN/
PDA3←←PDA3+14+2
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/ARRINFO/
PDA4←←PDA4+14+2
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/ARRBLT/
PDA2←←PDA2+14+3
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/ARRTRAN/
PDA2←←PDA2+14+2
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA2
	ASCII	/ARRCLR/
PDA2←←PDA2+14+2
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/CODE/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/USERERR/
PDA4←←PDA4+14+4
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/ERMSBF/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+ITMVAR,PDA4
	ASCII	/CVSI/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/CVIS/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/NEW_PNAME/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/DEL_PNAME/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/TYPEIT/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/LISTX/
PDA4←←PDA4+14+3
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/INCHRW/
PDA4←←PDA4+14+0
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/INCHRS/
PDA4←←PDA4+14+0
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/INCHWL/
PDA4←←PDA4+14+0
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/INCHSL/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/INSTR/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/INSTRL/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/INSTRS/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/TTYIN/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/TTYINL/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA4
	ASCII	/TTYINS/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/OUTCHR/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/OUTSTR/
PDA4←←PDA4+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA3
	ASCII	/$PRINT/
PDA3←←PDA3+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/GETFORMAT/
PDA3←←PDA3+14+2
	0

	2
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA2
	ASCII	/GETCHAN/
PDA2←←PDA2+14+0
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/FILEINFO/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+STRING,PDA3
	ASCII	/TMPIN/
PDA3←←PDA3+14+2
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/TMPOUT/
PDA3←←PDA3+14+3
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/USERCON/
PDA4←←PDA4+14+3
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/CHNCDB/
PDA3←←PDA3+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/MAINPR/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+ITMVAR,PDA5
	ASCII	/RESUME/
PDA5←←PDA5+14+3
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+ITMVAR,PDA5
	ASCII	/ASKNTC/
PDA5←←PDA5+14+2
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+ITMVAR,PDA5
	ASCII	/CAUSE1/
PDA5←←PDA5+14+3
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/MKEVTT/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/JOIN/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+ITMVAR,PDA5
	ASCII	/SUSPEND/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/TERMINATE/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+ITMVAR,PDA5
	ASCII	/MYPROC/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+ITMVAR,PDA5
	ASCII	/CALLER/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/INTSET/
PDA5←←PDA5+14+2
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/INTTBL/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/INTMOD/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/CLKMOD/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/DFRINT/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/DDFINT/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/DFR1IN/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/ENABLE/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/DISABLE/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/INTMAP/
PDA5←←PDA5+14+3
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA5
	ASCII	/DFCPKT/
PDA5←←PDA5+14+4
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA5
	ASCII	/URSCHD/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/PRISET/
PDA5←←PDA5+14+2
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA5
	ASCII	/PSTATUS/
PDA5←←PDA5+14+1
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA5
	ASCII	/INTPRO/
PDA5←←PDA5+14+0
	0

	5
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA5
	ASCII	/ANSWER/
PDA5←←PDA5+14+3
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA1
	ASCII	/LOG/
PDA1←←PDA1+14+1
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA1
	ASCII	/EXP/
PDA1←←PDA1+14+1
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA1
	ASCII	/SIN/
PDA1←←PDA1+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/SIND/
PDA4←←PDA4+14+1
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA1
	ASCII	/COS/
PDA1←←PDA1+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/COSD/
PDA4←←PDA4+14+1
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA1
	ASCII	/SQRT/
PDA1←←PDA1+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/ATAN2/
PDA4←←PDA4+14+2
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/ATAN/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/ACOS/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/ASIN/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/TANH/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/COSH/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA4
	ASCII	/SINH/
PDA4←←PDA4+14+1
	0

	1
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+FLOTNG,PDA1
	ASCII	/RAN/
PDA1←←PDA1+14+1
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/TRIGINI/
PDA4←←PDA4+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA3
	ASCII	/GETSTS/
PDA3←←PDA3+14+1
	0

	3
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/SETSTS/
PDA3←←PDA3+14+2
	0

	3
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA3
	ASCII	/INOUT/
PDA3←←PDA3+14+3
	0

	4
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA4
	ASCII	/TTYUP/
PDA4←←PDA4+14+1
	0

	4
	4
	400000+2
	XWD	777777,0
	XWD	BBLTPRC+UNTYPE,PDA4
	ASCII	/CLRBUF/
PDA4←←PDA4+14+0
	0
			;FOR THE FAKE RUNTIMES
	2		;'MAJOR IO' FILE
	4		;PROCEDURE INFO COMING
	400000+1	;FLAG+ NUMBER OF WORDS IN NAME
	XWD	777777,0	;THIS WORD IGNORED BY BAIL'S LOADER
	XWD	BBLTPRC+INTEGR,PDA2	;TYPE BITS,,ADDR OF PDA IN BAIPDn FILE
	ASCII	/LDB/	;NAME
	0
PDA2←←PDA2+14+1

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA2
	ASCII	/ILDB/
	0
PDA2←←PDA2+14+1

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC,PDA2
	ASCII	/IBP/
	0
PDA2←PDA2+14+1

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC,PDA2
	ASCII	/DPB/
	0
PDA2←←PDA2+14+2

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC,PDA2
	ASCII	/IDPB/
	0			;END OF FAKIRS
PDA2←←PDA2+14+2

	-1
	END	START