perm filename BAISM1.FAI[NEW,AIL] blob
sn#265083 filedate 1979-01-08 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+1
XWD 777777,0
XWD BBLTPRC+STRING,PDA3
ASCII /CVEL/
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+DBLPRC,PDA3
ASCII /LREALIN/
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
3
4
400000+2
XWD 777777,0
XWD BBLTPRC+FLOTNG+DBLPRC,PDA3
ASCII /LREALSCAN/
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
4
4
400000+2
XWD 777777,0
XWD BBLTPRC+UNTYPE,PDA4
ASCII /BACKUP/
PDA4←←PDA4+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