. RFF51 -- READ ONE FILE 51 ITEM . . CALLING SEQUENCE- RFF51 M,EOF . WHERE M IS THE LOCATION TO STORE THE ITEM . AND EOF IS THE TRANSFER LOCATION FOR END OF FILE RFF51* PROC 1,9. L A1,F51J JGD F51I,$+3 LMJ B11,RFF51E END OF BUFFER (OR FILE) J RFF51(1,2) END OF FILE L A0,0,*A1 S A0,RFF51(1,1) L A0,0,*A1 S A0,RFF51(1,1)+1 S A1,F51J END BWRIT* PROC 1,3. WRITE A BLOCK LA,M A0,BWRIT(1,1) . LOC OF FCT LMJ B11,RFPW$ SLJ F30ERX . ERROR RETURN. END B$READ* PROC 1,4. LA,M A0,B$READ(1,1) . FCT LOCATION LMJ B11,RFPR$ SLJ F30ERX . ERROR RETURN. J B$READ(1,2) END B$OPNF* PROC 1,4. . OPEN TO READ FORWARD LA,M A0,B$OPNF(1,1) LA,M A1,RFRF$ LMJ B11,RFPO$ SLJ F30ERX . ERROR RETURN. END BOPNW* PROC 1,4. OPEN TO WRITE LA,M A0,BOPNW(1,1) LA,M A1,RFW$ . OPERATION CODE LMJ B11,RFPO$ SLJ F30ERX . ERROR RETURN. END BC PROC 1. . CLOSE (AND MARK) BLOCK OUTPUT BCLOT* NAME 0 . . CLOSE BCLOTM* NAME 1 . . CLOSE AND MARK BWRIT BC(1,1) BCLOSE* NAME 2 LA,M A0,BC(1,1) LMJ B11,RFPC$ SLJ F30ERX . ERROR RETURN. END OWF61* PROC 1. . OPEN TO WRITE F61 BOPNW F61 L,H2 A0,F61+6 AH A0,(1,NBCW) S A0,F61J L,M A0,BUFN SSL A0,1 S A0,F61I END OFF61* PROC 1 . LA A0,F61J L,H2 A1,F61+6 ANA A0,(1,NBCW) ANA,M A0,0,A1 SSA A0,1 S A0,1,A1 BCLOT F61 B$OPNF F61 SZ F61I END P PROC 1,0 EQUF* NAME * EQU +(IN 0,P(1,3),0,P(1,2),2*P(1,*2)+P(1,*1),P(1,1)) END B* PROC 1,1 A EQU 36/B(1) C FORM A,A,A,A,A,A C B(1,1),B(1,2),B(1,3),B(1,4),B(1,5),B(1,6) END EQU B . A REGISTER INSTRUCTIONS P PROC 1,1 SA* NAME 1 LA* NAME 8 SNA* NAME 02 SMA* NAME 03 LNA* NAME 011 LMA* NAME 012 LNMA* NAME 013 AMA* NAME 016 ANMA* NAME 017 ANU* NAME 021 MI* NAME 030 MSI* NAME 031 MF* NAME 032 DI* NAME 034 DSF* NAME 035 DF* NAME 036 XOR* NAME 041 MLU* NAME 043 TEP* NAME 044 SN* NAME 02 SM* NAME 03 LN* NAME 011 LM* NAME 012 AM* NAME 016 ANM* NAME 017 TOP* NAME 045 TNG* NAME 054 TW* NAME 056 TNW* NAME 057 SE* NAME 062 SNE* NAME 063 SLE* NAME 064 SNG* NAME 064 SG* NAME 065 SW* NAME 066 SNW* NAME 067 AA* NAME 014 ANA* NAME 015 AU* NAME 020 OR* NAME 040 AND* NAME 042 TE* NAME 052 TNE* NAME 053 TLE* NAME 054 TG* NAME 055 IN FORM 6,4,4,4,2,16 IN P(0,0),P(0,1)+P(1,4),P(1,1)-(P(1,1)>11)*12,P(1,3),; 2*P(1,*3)+P(1,*2),P(1,2) END . INDEX INSTRUCTIONS P PROC 1,1 LX* NAME 027 SX* NAME 6 AX* NAME 024 ANX* NAME 025 LXM* NAME 026 BT* NAME 022 TLEM* NAME 047 TNGM* NAME 047 IN FORM 6,4,4,4,2,16 IN P(0,0),P(0,1)+P(1,4),P(1,1),P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . R REGISTER INSTRUCTIONS P PROC 1,1 LR* NAME 023 SR* NAME 4 IN FORM 6,4,4,4,2,16 IN P(0,0),P(0,1)+P(1,4),P(1,1)**63,P(1,3),2*P(1,*3); +P(1,*2),P(1,2) END . NO A INSTRUCTIONS P PROC 1,1 SZ* NAME 05 TZ* NAME 050 TNZ* NAME 051 TP* NAME 060 TN* NAME 061 IN FORM 6,4,4,4,2,16 IN P(0,0),P(0,1)+P(1,3),0,P(1,2),2*P(1,*2)+P(1,*1),P(1,1) END . JGD INSTRUCTION JGD* PROC 1,1 IJ FORM 6,8,4,2,16 IJ 070,JGD(1,1),JGD(1,3),2*JGD(1,*3)+JGD(1,*2),JGD(1,2) END . NORMAL A FIXED J P PROC 1,1 MSE* NAME 0 MSNE* NAME 1 MSLE* NAME 2 MSNG* NAME 2 MSG* NAME 3 MSW* NAME 4 MSNW* NAME 5 IN FORM 6,4,4,4,2,16 IN 071,P(0,0),P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3); +P(1,*2),P(1,2) END P PROC 1,1 W* NAME 0 JPS* NAME 2 JNS* NAME 3 AH* NAME 4 ANH* NAME 5 AT* NAME 6 ANT* NAME 7 IN FORM 6,4,4,4,2,16 IN 072,P(0,0),P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3); +P(1,*2),P(1,2) END P PROC 1,1 SLJ* NAME 1 EX* NAME 010 LL* NAME 011 PAIJ* NAME 013 IN FORM 6,4,4,4,2,16 IN 072,P(0,0),0,P(1,2),2*P(1,*2)+P(1,*1),P(1,1) END . SHIFT INSTRUCTIONS P PROC 1,1 SSC* NAME 0 DSC* NAME 1 SSL* NAME 2 DSL* NAME 3 SSA* NAME 4 DSA* NAME 5 LSC* NAME 6 IN FORM 6,4,4,4,2,16 IN 073,P(0,0),P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3); +P(1,*2),P(1,2) END . 074 TYPE A INSTRUCTIONS P PROC 1,1 JZ* NAME 0 JNZ* NAME 1 JP* NAME 2 JN* NAME 3 JNB* NAME 010 JB* NAME 011 IN FORM 6,4,4,4,2,16 IN 074,P(0,0),P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3); +P(1,*2),P(1,2) END . 074 TYPE B INSTRUCTIONS P PROC 1,1 JK* NAME 4 HKJ* NAME 5 NOP* NAME 6 JMGI* NAME 012 LMJ* NAME 013 IN FORM 6,4,4,4,2,16 IN 074,P(0,0),P(1,1),P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . TYPE 074 INSTRUCTIONS WITH NO A P PROC 1,1 J* NAME 4 HJ* NAME 5 AAIJ* NAME 7 JO* NAME 014 JNO* NAME 015 JC* NAME 016 JNC* NAME 017 IN FORM 6,4,4,4,2,16 IN 074,P(0,0),0,P(1,2),P(1,*1)+2*P(1,*2),P(1,1) END P PROC 1,1 LIC* NAME 0 LICM* NAME 1 JIC* NAME 2 DIC* NAME 3 LOC* NAME 4 LOCM* NAME 5 DOC* NAME 7 JOC* NAME 6 LFC* NAME 010 LFCM* NAME 011 JFC* NAME 012 AFC* NAME 013 ACI* NAME 016 PCI* NAME 017 IN FORM 6,4,4,4,2,16 IN 075,P(0,0),P(1,1),P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END P PROC 1,1 AACI* NAME 014 PACI* NAME 014 IN FORM 6,4,4,4,2,16 IN 075,P(0,0),0,P(1,2),2*P(1,*2)+P(1,*1),P(1,1) END . FLOATING POINT INSTRUCTIONS P PROC 1,1 FA* NAME 0 FAN* NAME 1 FM* NAME 2 FD* NAME 3 LUF* NAME 4 LCF* NAME 5 MCDU* NAME 6 CDU* NAME 7 IN FORM 6,4,4,4,2,16 IN 076,P(0,0),P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3); +P(1,*2),P(1,2) END . . PROC TO DEFINE 1108 OPERATIONS FOR 1107. . P PROC 1,1 . J=010 DA* NAME 071 LSSC* NAME 073 DFA* NAME 076 F FORM 6,4,4,4,2,16 F P(0,0),010,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . P PROC 1,1 DFAN* NAME 076 . J=011 LDSC* NAME 073 DAN* NAME 071 F FORM 6,4,4,4,2,16 F P(0,0),011,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . P PROC 1,1 . J=012 DS* NAME 071 LSSL* NAME 073 DFM* NAME 076 F FORM 6,4,4,4,2,16 F P(0,0),012,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END P PROC 1,1 . J=013 DFD* NAME 076 LDSL* NAME 073 DL* NAME 071 F FORM 6,4,4,4,2,16 F P(0,0),013,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . P PROC 1,1 . J=014 DLN* NAME 071 DFU* NAME 076 F FORM 6,4,4,4,2,16 F P(0,0),014,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . P PROC 1,1 . J=015 DLM* NAME 071 DFP* NAME 076 F FORM 6,4,4,4,2,16 F P(0,0),015,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . P PROC 1,1 . J=016 FEL* NAME 076 DJZ* NAME 071 F FORM 6,4,4,4,2,16 F P(0,0),016,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . P PROC 1,1 . J=017 FCL* NAME 076 DTE* NAME 071 . DTE F FORM 6,4,4,4,2,16 F P(0,0),017,P(1,1)-(P(1,1)>11)*12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END . M PROC 1. DTNE* NAME 5 DTG* NAME 6 DTLE* NAME 7 CA* NAME 12 CAN* NAME 13 CM* NAME 14 CD* NAME 15 OP FORM 6,4,4,4,2,16 OP 077,M(0,0),M(1,1)-(M(1,1)>11)*12,M(1,3),2*M(1,*3); +M(1,*2),M(1,2) . END . . PROC TO DEFINE 1110 OPERATIONS . P PROC 1,1 LIJ* NAME 013 F FORM 6,4,4,4,2,16 F 07,P(0,0),P(1,1),P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END P PROC 1,1 LDJ* NAME 012 F FORM 6,4,4,4,2,16 F 07,P(0,0),P(1,1),P(1,3),2*P(1,*3)+P(1,*2),P(1,2) END