P $PROC *1 FORK$* $NAME 'FORK$' TFORK$* $NAME 'TFORK$' $DO P(1)>0 , ; LA 12,+(OPT$$ +($GFORM 6,P(1,4),6,P(1,3),6,P(1,2),18,P(1,1))) FORK$P* $NAME *'FORK$' TFORK$P* $NAME *'TFORK$' $DO (P(0,0)='TFORK$')**(P(0)>1) , LA 13,+(EQUF$ P(0),1,*1) $DO P(0,*0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) ER [P(0,0)] $END P $PROC 0,1 EXIT$* $NAME 'EXIT$' ERR$* $NAME 'ERR$' ABORT$* $NAME 'ABORT$' EABT$* $NAME 'EABT$' XCTS$* $NAME 'XCTS$' ER [P(0,0)] $END P $PROC *1 ACSF$P* $NAME 'ACSF$' CSF$P* $NAME 'CSF$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) ER [P(0,0)] DO 1 , $END ACSF$* $NAME *'ACSF$' CSF$* $NAME 'CSF$' $DO P(1)=1 , LA 12,+(EQUF$ P(1),1,2) $DO (P(1)>1)**(P(1,2)=14+7*P(0,*0)) , LA,14 12,P(1,1) $DO (P(1)>1)**(P(1,2)<>14+7*P(0,*0)) , LA 12,(P(1,2),P(1,1)) ER [P(0,0)] $END P $PROC *1 CSF$S* $NAME 0 LA 12,($SL(P(1,1))//6,($CFS(P(1,1))L)) ER CSF$ $DO 1 , $END ACSF$S* $NAME 0 LA 12,($SL(P(1,1))//4,($CAS(P(1,1))L)) ER ACSF$ $END P $PROC *1 AWAIT$* $NAME 0 AWAIT$P* $NAME 1 BA $EQU $BA(P(1,1)) $DO P(0,0)+P(1)+(\BA(0)) ,; P(2) $EQU +(EQUF$ P(1),1) $DO P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2) $DO (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; LA 12,+(OPT$$ P(1,1)) ER AWAIT$ $END P $PROC *1 NAME$* $NAME 0 NAME$P* $NAME 1 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,1-P(0,0)) ER NAME$ $END $PROC 0,1 IDENT$* $NAME ER IDENT$ $END P $PROC *1 INT$* $NAME 'INT$' INT$P* $NAME 'INT$' $DO P(0)>1 , LA 13,+(EQUF$ P(0)) ACT$* $NAME 'ACT$' ACT$P* $NAME 'ACT$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) ER [P(0,0)] $END P $PROC 0,1 DACT$* $NAME 0 ER DACT$ $END P $PROC 0,1 TCELL$* $NAME *47 TSQRG$* $NAME 'TSQRG$' TSQCL$* $NAME 'TSQCL$' $DO P(0,*0) , $GFORM 6,0,6,P(0,0),6,0,18,0 $DO \P(0,*0) , ER [P(0,0)] $END P $PROC *1 CTS$* $NAME 'CTS$' CTSA$* $NAME 'CTSA$' $IF P(1)>0 SZ,13 P(1,1),P(1,2) TZ,1 P(1,1),P(1,2) $ENDF ER [P(0,0)] $END P $PROC *1 CTSQ$* $NAME 0 $DO P(1)>0 , NOP 0,+(EQUF$ P(1),1) ER CTSQ$ $END P $PROC *1 RT$* $NAME 1 RT$P* $NAME 0 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) ER RT$ $END P $PROC 0,1 NRT$* $NAME 0 ER NRT$ $END P $PROC *1 TWAIT$* $NAME 1 TWAIT$P* $NAME 0 $DO P(1)>0 , LA 13,+(EQUF$ P(1),1,P(0,0)) ER TWAIT$ $END $PROC 0,1 SWAIT$* $NAME 'SWAIT$' SWTCH$* $NAME 'SWTCH$' ER [P(0,0)] $END P $PROC *1 SETC$* $NAME 1 SETC$P* $NAME 0 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) ER SETC$ $END P $PROC 0,1 COND$* $NAME ER COND$ $END P $PROC 0,1 DATE$* $NAME 'DATE$' TDATE$* $NAME 'TDATE$' TIME$* $NAME 'TIME$' ER [P(0,0)] $END P $PROC *1 MCORE$* $NAME *'MCORE$' LCORE$* $NAME *'LCORE$' MCORE$P* $NAME 'MCORE$' LCORE$P* $NAME 'LCORE$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2*P(0,*0)) $DO P(0)>1 , LXI 12,+(EQUF$ P(0),1,*P(0,*0)) ER [P(0,0)] $END P $PROC *1 PSR$* $NAME 0 PSR$P* $NAME 1 $DO P(0,0)+P(1)+($IBITS(P(1,1))**(1*/4))>1 ,; P(2) $EQU +(EQUF$ P(1),1) $DO P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2) $DO (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; LA 12,+(OPT$$ P(1,1)) ER PSR$ $END P $PROC *1 BANK$* $NAME 0 $DO P(1)>0 ,P(2) $EQU +(EQUF$ P(1),1) $DO ($AP(P(2))>1*/16-1)++(P(0,1)=P(0)-1)**1-P(0,*1)**(P(1)>0) , ; LA 12,+(EQUF$ P(1),1,2-P(0,*1)) $DO (($AP(P(2))>1*/16-1)++(\P(1)))**P(0,*1) , ; LXI,14 12,1*/17+P(0,1) $DO (\P(0,*1))**(P(0)>1)**((P(1)=0)++($AP(P(2))>1*/16-1)) , ; LXI 12,+(EQUF$ P(0),1,*1) $DO (1-(P(0,1)=P(0)-1)++P(0,*1))**(P(1)>0)**($AP(P(2))<1*/16) , ; LA 12,(1*/17*P(0,*1)+P(0,1),P(2)) BANK$P* $NAME 1 $DO P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) ER BANK$ $END P $PROC *255 INFO$* $NAME 0 $DO P>1 , LA 12,(2*P-1,$LCV(CTL$BNK(0))) ER INFO$ $(CTL$BNK(0)) INFO$PKT* $NAME 1 $DO P(0,1)*P(0,0) , + 0D LEN(1) $EQU 2 LEN(2) $EQU 1 LEN(3) $EQU 2 LEN(4) $EQU 1 LEN(5) $EQU 1 LEN(6) $EQU 1 LEN(7) $EQU 7 I $DO P-1 , ; $GFORM 12,P(I,1),24,0,2,0,16,LEN(P(I,1))*(P(I)<3)+P(I,3),18,P(I,2) I $DO P(0,2)*P(0,0) , + 0D $DO P(0,0)=0 ,$($ILCN) END P $PROC *1 INFO$P* $NAME $DO P(1)>0 , LA 12,+(EQUF$ P(1) ) ER INFO$ $END $PROC *0,1 OPT$* $NAME ER OPT$ $END P $PROC *1 PCT$* $NAME 0 PCT$P* $NAME 1 $IF P(0,0) $DO P(1)>0 , DL 12,+(EQUF$ P(1),1) $ELSE LG $EQU P(1,2)+(P(1)<2) $DO (P(0)>1)**(P(1)>0) , LA,14 12,P(1,1) $DO P(0)>1 , LA 13,(LG,P(0,1)) $DO (P(0)=1)**(P(1)>0) , LA 12,(LG,P(1,1)) $ENDF ER PCT$ $END P $PROC *1 MCT$* $NAME 0 MCT$P* $NAME 1 $DO P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1,2) $DO (\P(0,0))**(P(1)>0) , ; LA,14 12,(MCT$PKT P(1,1),P(1,2),P(1,3),P(1,4)+(P(1)=3)) ER MCT$ $END P $PROC *1 MCT$PKT* $NAME $IF P(1,2)=3 $GFORM 12,0,6,P(1,2),18,P(1,1),18,P(1,4)+(P(1)=3),18,P(1,3) $ELSE $GFORM 12,0,6,P(1,2),18,P(1,1) $ENDF $END P $PROC *1 IALL$* $NAME 0 A(1) $EQU 'IOPR' A(2) $EQU 'IGDM' A(3) $EQU 'IFOF' A(4) $EQU 'IFUF' A(5) $EQU 'IDOF' A(6) $EQU 'IRST' A(7) $EQU 'IABT' A(8) $EQU 'IINT' A(9) $EQU 'ITS' A(10) $EQU 'ERR$' A(11) $EQU 'IAI' INTER ACTIVITY INTERRUPT A(12) $EQU 'BRKPT' A(13) $EQU 'PARITY' A(14) $EQU 'TIME' A(15) $EQU 'TERM' C $EQU 16 FIRST APPLICATION SUBSCRIPT A(C) $EQU *'PGM' A(C+1) $EQU *'PROGRAM' A(C+2) $EQU *'ACT' A(C+3) $EQU *'ACTIVITY' A(C+4) $EQU *'ESI' A(C+5) $EQU *'ESI' A(C+6) $EQU *'CDB' A(C+7) $EQU *'COMMON' B(0) $EQU (P(1)=2)+2*(P(1)=3) I $DO B(0) ,J $DO A , $DO P(1,I+1)=A(J) ,B(0) $EQU 0 I $DO B(0) ,B(I-1) $EQU P(1,I+1) I $DO P(1)-(P(1)>0) ,J $DO A , $DO P(1,I+1)=A(J) ,; B(A(*J)) $EQU B(A(*J))++1*/((J-C*A(*J))*/-A(*J)-1) DP $EQU (B(0)<0)++(B(0)>1*/12-1) $IF DP IF $FORM 12,6,18,18,18 $ELSE IF $FORM 12,6,18 $ENDF $DO DP , DL 12,(IF ,B(1),P(1,1),,B(0)) $DO (P(1)>0)**1-DP , LA 12,(IF B(0),B(1),P(1,1)) ER IALL$ $END P $PROC *1 IALL$P* $NAME 1 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) ER IALL$ $END P $PROC 0,1 CEND$* $NAME 'CEND$' CRTN$* $NAME 'CRTN$' ER [P(0,0)] $END P PROC *1 CQUE$* NAME F FORM 6,4,4,4,6,6,6 DO P(1)>0 , F 8,14,,,P(1,2),P(1,3),P(1,2) CQUE$P* NAME 1 DO P(0,0)*(P(1)>0) , LA 12,+(EQUF$ P(1) ) DO P(0)>1 , LA 13,+(EQUF$ P(0) ) ER CQUE$ END P PROC *1 TRMRG$* NAME B EQU +(EQUF$ P(1),1,2) DO (P(1)>0)**(P(0)<2)++($AP(B)<14*/26) , LXM 12,B F FORM 3,3,12,18 DO ((P(1)=0)++($AP(B)<14*/26))**(P(0)>1) , ; LXI,14 12,(F ,P(0,1),P(0,2))*/-18 DO (P(0)>1)**(P(1)>1)**($AP(B)>14*/26-1)**(B<14*/26+0777777) , ; LA 12,(F ,P(0,1),P(0,2),B-14*/26) TRMRG$P* NAME 1 DO (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1) ) ER TRMRG$ END P $PROC *1 SETBP$* $NAME 0 L(1) $EQU 'W' L(2) $EQU 'R' L(3) $EQU 'WR' L(4) $EQU 'P' $DO P(0,1)='RW' ,P(0,1) $EQU 3 I $DO L , $DO P(0,1)=L(I) ,P(0,1) $EQU I $DO P(0)>3 ,P(0,1) $EQU P(0,1)++8 P(3) $EQU +($GFORM 18,0,2,0,4,P(0,1),6,P(0,2)+63*(P(0)<3)) $DO P(1)>0 ,P(2) $EQU +(EQUF$ P(1),1) $DO ($AP(P(2))<1*/16)*(P(1)+P(0)>1) , LA 12,+(OPT$$ P(3),P(2)) SETBP$P* $NAME 1 $DO (P(1)>0)**P(0,0)++($AP(P(2))>1*/16-1) , ; LA 12,+(EQUF$ P(1),1,2-2*P(0,0)) $DO ($AP(P(2))>1*/16-1)*(P(0)>1) , LXI,14 12,P(3) $DO P(0)>3-2*P(0,0) , LA 13,+(EQUF$ P(0),3-2*P(0,0),*1) ER SETBP$ $END P $PROC *1 ABSAD$* $NAME $DO P(1)>0 , ; LA,14 12,($GFORM 18,P(1,2),18,P(1,3),36,P(1,1)) ABSAD$P* $NAME 1 $DO (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1),1,2) ER ABSAD$ $END P $PROC *1 ADED$* $NAME 1 ADED$P* $NAME $D0 P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) ER ADED$ $END SYSBAL$P* $PROC *1 SYSBAL$* $NAME $DO \\SYSBAL$P(1) , LA 12,+(EQUF$ SYSBAL$P(1),1,2) ER SYSBAL$ $END Q $PROC *2 COM$PGEN* $NAME 0 C(1) $EQU 'S' C(2) $EQU 'I' C(3) $EQU 'C' C(4) $EQU 'H' B(0) $EQU P(0,1) I $DO C , $DO B(0)=C(I) ,B(0) $EQU I-1 $GFORM 6,0,6,B(0),6,P(2,3),18,0,6,0,12,P(1,2)+50*(P(1)=1),; 18,P(1,1) * P(2,2)+50*(P(2)=1),P(2,1) $DO P(2,3)>31 , $RES 1 $END P $PROC *2 COM$PKT* $NAME 0 COM$PGEN $END P $PROC *2 COM$* $NAME 0 $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0)) F* $PROC 0 $(CTL$BNK(0)) COM$PGEN $($ILCN) $END ER COM$ $DO P(1)>0 , F $END P $PROC *1 COM$P* $NAME 0 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER COM$ $END P $PROC II$* $NAME 0 ER II$ $END Q $PROC 0,3 SNAP$PGEN* $NAME 0 $DO P(1)>2 , LJSF$1 P(1,3) $DO P(1)<3 , + $CFS(5)SL REGS $EQU 0 I $REPEAT P(0)-1 J $REPEAT $SL(P(0,I)) REG $EQU $SS(P(0,I),J,1) REGS $EQU REGS++(1*(REG='R'))++(2*(REG='A'))++(4*(REG='X')) $ENDR $ENDR $GFORM 3,REGS,15,P(1,2)+(P(1)=1),18,P(1,1),36,0 $END P $PROC 1,3 SNAP$PKT* $NAME 0 SNAP$PGEN $END P $PROC *1 SNAP$* $NAME 0 F* $PROC 0 $(CTL$BNK(0)) SNAP$PGEN $($ILCN) $END $IF P(0)+P(1)>1 SA 12,$LCV(CTL$BNK(0))+2 LA,14 12,$LCV(CTL$BNK(0)) $ENDF ER SNAP$ $DO P(0)+P(1)>1 , F $END P $PROC *1 SNAP$P* $NAME 0 $DO (P(1)>0)**(P(1)<3) , SA 12,P(1,1)+2,P(1,2) $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER SNAP$ $END P $PROC *1 ERRPR$* $NAME $DO P>1 , LA,14 12,(,P(1,1)) ERRPR$P* $NAME 1 $DO P(0,0)*(P>1) , LA 12,+(EQUF$ P(1),1,2) ER ERRPR$ $END P $PROC *1 READ$P* $NAME *'READ$' AREAD$P* $NAME *'AREAD$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) READ$* $NAME 'READ$' AREAD$* $NAME 'AREAD$' $DO 1-P(0,*0)**(P(1)>0) , LA 12,(($+2)*(P(1)=1)+P(1,2),P(1,1)) ER [P(0,0)] $END P $PROC *1 PRINT$P* $NAME *0 APRINT$P* $NAME *1 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) PRINT$* $NAME 0 APRINT$* $NAME 1 $DO (\P(0,*0))**(P(1)>0) , ; LA 12,($GFORM 12,P(1,3)+(P(1)<3),; 6,(22+11*P(0,0))*(P(1)<2)+P(1,2),18,P(1,1)) ER P(0,0)->APRINT$!PRINT$ $END P $PROC *1 PRINT$S* $NAME 'PRINT$' APRINT$S* $NAME *'APRINT$' PF $FORM 12,6,18 SP $EQU P(1,2)+(P(1)=1) $DO P(0,*0) , ; LA 12,(PF SP,$SL(P(1,1))//4,($CAS(P(1,1))L)) $DO \P(0,*0) , ; LA 12,(PF SP,$SL(P(1,1))//6,($CFS(P(1,1))L)) ER [P(0,0)] $END P $PROC *1 PUNCH$P* $NAME 0 APUNCH$P* $NAME 1 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) PUNCH$* $NAME *0 APUNCH$* $NAME *1 $DO P(0,*0)**(P(1)>0) , ; LA 12,((14+6*P(0,0))*(P(1)<2)+P(1,2),P(1,1))) ER P(0,0)->APUNCH$!PUNCH$ $END Q $PROC 0,3 PRNTA$PGEN $NAME 0 $GFORM 12,P(1,4)+(P(1)<4),6,(22+11*P(0,0))*(P(1)<3)+P(1,3),; 18,P(1,2) LJSF$2 P(1,1) $END P $PROC 1,3 PRNTA$PKT* $NAME 0 APRNTA$PKT* $NAME 1 PRNTA$PGEN $END P $PROC *1 PRNTA$* $NAME 0 APRNTA$* $NAME 1 $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0)) F* $PROC 0 $(CTL$BNK(0)) PRNTA$PGEN $($ILCN) $END ER P(0,0)->APRNTA$!PRNTA$ $DO P(1)>0 , F $END P $PROC *1 PRNTA$P* $NAME 'PRNTA$' APRNTA$P* $NAME 'APRNTA$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END Q $PROC 0,3 PNCHA$PGEN* $NAME 0 $GFORM 12,0,6,(14+6*P(0,0))*(P(1)<3)+P(1,3),18,P(1,2) LJSF$2 P(1,1) $END P $PROC 1,3 PNCHA$PKT* $NAME 0 APNCHA$PKT* $NAME 1 PNCHA$PGEN $END P $PROC *1 PNCHA$* $NAME 0 APNCHA$* $NAME 1 F* $PROC 0 $(CTL$BNK(0)) PNCHA$PGEN $($ILCN) $END $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0)) ER P(0,0)->APNCHA$!PNCHA$ $DO P(1)>0 , F $END P $PROC *1 PNCHA$P* $NAME 'PNCHA$' APNCHA$P* $NAME 'APNCHA$' $DO P(1)> , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END Q $PROC 0,3 READA$PGEN* $NAME 0 + P(1,3),P(1,2) LJSF$2 P(1,1) $END P $PROC 1,3 READA$PKT* $NAME 0 AREADA$PKT* $NAME 1 ARDA$PKT* $NAME 2 $DO P(1)<3 ,P(1,3) $EQU (ER ERR$) READA$PGEN $END P $PROC *1 READA$* $NAME 'READA$' AREADA$* $NAME 'AREADA$' ARDA$* $NAME 'ARDA$' F* $PROC 0 $(CTL$BNK(0)) READA$PGEN $($ILCN) $END $DO P(1)=2 ,P(1,3) $EQU $LCV+2 $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0)) ER [P(0,0)] $END P $PROC *1 READA$P* $NAME 'READA$' AREADA$P* $NAME 'AREADA$' ARDA$P* $NAME 'ARDA$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END P $PROC *1 PRTCN$* $NAME 'PRTCN$' APRTCN$* $NAME 'APRTCN$' PRTCA$* $NAME 'PRTCA$' APRTCA$* $NAME 'APRTCA$' PCHCN$* $NAME 'PCHCN$' APCHCN$* $NAME 'APCHCN$' PCHCA$* $NAME 'PCHCA$' APCHCA$* $NAME 'APCHCA$' PRTCN$P* $NAME *'PRTCN$' APRTCN$P* $NAME *'APRTCN$' PRTCA$P* $NAME *'PRTCA$' APRTCA$P* $NAME *'APRTCA$' PCHCN$P* $NAME *'PCHCN$' APCHCN$P* $NAME *'APCHCN$' PCHCA$P* $NAME *'PCHCA$' APCHCA$P* $NAME *'APCHCA$' $DO P(0,*0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) $DO P(1)=1 ,P(1,2) $EQU (132-52*(($SS(P(0,0),1,3)='PCH')++; ($SS(P(0,0),1,3)='APC')))//; (6-2*($SS(P(0,0),1,1)='A'))+; 2*(($SS(P(0,0),5,2)='A$')++($SS(P(0,0),6,2)='A$')) $DO 1-P(0,*0)**(P(1)>0) , LA 12,(P(1,2),P(1,1)) ER [P(0,0)] $END P $PROC *1 PRTCN$S* $NAME 'PRTCN$' PRTCA$S* $NAME 'PRTCA$' PCHCN$S* $NAME 'PCHCN$' PCHCA$S* $NAME 'PCHCA$' LA 12,($SL(P(1,1))//6,($CFS(P(1,1))L)) ER [P(0,0)] $DO 1 , $END APRTCN$S* $NAME 'APRTCN$' APRTCA$S* $NAME 'APRTCA$' APCHCN$S* $NAME 'APCHCN$' APCHCA$S* $NAME 'APCHCA$' LA 12,($SL(P(1,1))//4,($CAS(P(1,1))L)) ER [P(0,0)] $END P $PROC *2 TREAD$P* $NAME *'TREAD$' ATREAD$P* $NAME *'ATREAD$' ATRD$P* $NAME *'ATRD$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) TREAD$* $NAME 'TREAD$' ATREAD$* $NAME 'ATREAD$' ATRD$* $NAME 'ATRD$' $DO P(2)=0 ,P(2,1) EQU P(1,1) $DO (\P(0,*0))**(P(1)>0) , ; LA,14 12,($GFORM 12,P(1,3)+(P(1)<3),6,(33-11*(P(0,0)='TREAD$'))*; (P(1)<2)+P(1,2),18,P(1,1),18,($LCV+2)*(P(2)<2)+P(2,2),; 18,P(2,1)) ER [P(0,0)] $END CLIST$PGEN* $PROC *0 TERM $EQU -0 $DO \P(1,P(1)) ,TERM $EQU P(1,P(1)) $DO \\P(0,1) , $GEN 0,0,0,0,P(0,1),TERM I $DO (\P(1))+P(1)-(\P(1,P(1))) , LJSF$1 P(1,I) $DO \P(0,1) , $GEN TERM $END ACLIST$PGEN* $PROC *0 PLUS $EQU 0100100100100100100100100D MINUS $EQU 0137137137137137137137137D F $FORM 36,36 B(0) $EQU P(1,P(1))=PLUS B(1) $EQU P(1,P(1))=MINUS $DO P(1,P(1))=0 ,B(+(F ,P(1,P(1)))>0) $EQU 1 I $DO (P(1)=0)+P(1)-B(0)-B(1) , ALJSF$2 P(1,I) $DO B(0) , $GEN PLUS $DO B(1) , $GEN MINUS END P $PROC *1 CLIST$PKT* $NAME 0 ACLIST$PKT* $NAME 1 $DO \P(0,0) , CLIST$PGEN $DO P(0,0) , ACLIST$PGEN $END P $PROC *1 CLIST$* $NAME 'CLIST$' ACLIST$* $NAME *'ACLIST$' $DO (\\P(1))**(\\P(0,1)) , LA 12,(P(0,1),$LCV(CTL$BNK(0))) $DO (\\P(1))**(\P(0,1)) , LA,14 12,$LCV(CTL$BNK(0)) ER [P(0,0)] $DO (\P(1))**(\P(0,*0)) ,$(CTL$BNK(0)) CLIST$PGEN $DO (\P(1))**(P(0,*0)) ,$(CTL$BNK(0)) ACLIST$PGEN $($ILCN) $END P $PROC *1 ACLIST$P* $NAME 'ACLIST$' CLIST$P* $NAME 'CLIST$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END P $PROC *1 RSI$* $NAME 0 RSI$P* $NAME 0 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER RSI$ $END P $PROC 1,2 PLINE$* $NAME 0 LA 12,(1,($CFS('L,'):$CFS($CD(P(1,1)))L)) ER PRTCN$ $END PMARG$* $PROC 1,2 A(4) FDCVT$ 66*(PMARG$(1)<1)+PMARG$(1,1) A(5) FDCVT$ 6*(PMARG$(1)<2)+PMARG$(1,2) A(6) FDCVT$ 3*(PMARG$(1)<3)+PMARG$(1,3) LA 12,(2,($GFORM 12,$CFS('M,'),12,A(4),6,$CFS(','),; 12,A(5),6,$CFS(','),12,A(6),12,$CFS(' '))) ER PRTCN$ $END P $PROC *1 IO$* $NAME 'IO$' IOI$* $NAME 'IOI$' IOW$* $NAME 'IOW$' IOWI$* $NAME 'IOWI$' IOXI$* $NAME 'IOXI$' IOARB$* $NAME 'IOARB$' IOAXI$* $NAME 'IOAXI$' IO$P* $NAME *'IO$' IOI$P* $NAME *'IOI$' IOW$P* $NAME *'IOW$' IOWI$P* $NAME *'IOWI$' IOXI$P* $NAME *'IOXI$' IOARB$P* $NAME *'IOARB$' IOAXI$P* $NAME *'IOAXI$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) WAIT$* $NAME 'WAIT$' $DO (P(0,0)='WAIT$')**(P(1)>0) ,; TP 3+(EQUF$ P(1),1) ER [P(0,0)] $END P $PROC 0,1 WANY$* $NAME 'WANY$' UNLCK$* $NAME 'UNLCK$' ER [P(0,0)] $END P $PROC *4 IO$PKT* $NAME 0 LJSF$2 P(1,1) $GFORM 12,0,6,P(1,3),18,P(1,2),6,0,6,P(0,1),6,0,18,0 G $EQU P(2,3) $DO G='D' ,G $EQU 2 $DO G='N' ,G $EQU 1 $DO (G='DN')++(G='ND') ,G $EQU 3 $DO P(2)>0 , $GFORM 2,G,16,P(2,1),18,P(2,2) $IF P+P(3)>5 $DO P(3)>0 , $GFORM 12,P(3,2),24,P(3,1),36,P(4,1) $ELSE $DO P(3)>0 , $GFORM 12,P(3,2),24,P(3,1) $ENDF $DO (P(3)>1)**(P(4)>0) ,X $EQU 08 $DO P(4)>0 , + 0 $END P $PROC 8,1 SM$PKT* $NAME 0 SM('DENSITY','HIGH') $EQU 3*/34 SM('DENSITY','MEDIUM') $EQU 2*/34 SM('DENSITY','LOW') $EQU 1*/34 SM('PARITY','EVEN') $EQU 2*/32 SM('PARITY','ODD') $EQU 1*/32 SM('BCD','ON') $EQU 1*/30 SM('BCD','OFF') $EQU 2*/30 SM('NOISE',1) $EQU 1*/28 SM('SUPPRESS','ON') $EQU 1*/26 SM('SUPPRESS','OFF') $EQU 2*/26 SM('MSA-TRN','EBCDIC') $EQU 1*/22 SM('MSA-TRN','ASCII') $EQU 2*/22 SM('MSA-TRN','XSEBCD') $EQU 3*/22 SM('MSA-TRN','XSASCI') $EQU 4*/22 SM('MSA-TRN','OFF') $EQU 15*/22 SM('UNIT-TRN','ON') $EQU 1*/20 SM('UNIT-TRN','OFF') $EQU 2*/20 SM('FORMAT','Q') $EQU 1*/18 SM('FORMAT','6') $EQU 2*/18 SM('FORMAT',6) $EQU 2*/18 SM('FORMAT','8') $EQU 3*/18 SM('FORMAT',8) $EQU 3*/18 MODES $EQU 0 I $REPEAT P-1 $IF P(I,1)='NOISE' MODES $EQU MODES++SM('NOISE',1)++P(I,2) $ELSE MODES $EQU MODES++SM(P(I,1),P(I,2)) $ENDF $ENDR + MODES $END P $PROC *1 FITEM$* $NAME 0 FITEM$P* $NAME 1 $DO (\P(0,0))**(P(1)>0) , ; LA 12,(131071*(P(1)=1)+P(1,2),P(1,1)) $DO P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) ER FITEM$ $END P $PROC *1 FACIL$* $NAME 'FACIL$' FACIT$* $NAME 'FACIT$' FACIL$P* $NAME *'FACIL$' FACIT$P* $NAME *'FACIT$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END P $PROC *1 TINTL$* $NAME 'TINTL$' TSWAP$* $NAME 'TSWAP$' RSWAP$* $NAME 'RSWAP$' TINTL$P* $NAME *'TINTL$' TSWAP$P* $NAME *'TSWAP$' RSWAP$P* $NAME *'RSWAP$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2-2*P(0,*0)) $DO (\P(0,*0))**(P(0)>1) , LXI 12,+(EQUF$ P(0),1,*1) ER [P(0,0)] $END P $PROC *1 BBEOF$* $NAME 'BBEOF$' MSCON$* $NAME 'MSCON$' BBEOF$P* $NAME *'BBEOF$' MSCON$P* $NAME *'MSCON$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END P $PROC *1 DGET$PKT* $NAME 'DGET$' DGETP$PKT* $NAME 'DGETP$' $GFORM 30,0,6,[P(0,0)] LJSF$2 P(1,1) + 0 + P(1,2),P(1,3) $DO P(0,0)='DGETP$' , LJSF$1 P(1,4) $END P $PROC 1,5 DREAD$PKT* $NAME $GFORM 30,0,6,DREAD$ LJSF$2 P(1,1) $GFORM 12,P(1,3),6,P(1,4),18,P(1,2),12,P(1,5),12,0,12,0 $END P $PROC 1,4 DBITS$PKT* $NAME 'DBITS$' DUNLD$PKT* $NAME 'DUNLD$' DCYC$PKT* $NAME 'DCYC$' $GFORM 30,0,6,[P(0,0)] LJSF$2 P(1,1) $DO P(0,0)='DBITS$' , +P(1,2),P(1,3) $DO P(0,0)='DUNLD$' , +P(1,2) $DO P(0,0)='DCYC$' , $GFORM 30,0,6,P(1,2) $END P $PROC *2 DBACK$PKT* $NAME $GFORM 30,0,6,DBACK$ LJSF$2 P(1,1) NR $EQU (P(2)-P(0,1))*(P(2)>P(0,1))+P(0,1) + NR,,0 + P(1,2) $GFORM 6,P(1,6),6,P(1,7),6,0,18,P(1,3),12,P(1,8),; 12,P(1,5),12,P(1,4) I $DO NR , LJSF$1 P(2,I) $END P $PROC 1,5 DLAPS$PKT* $NAME $GFORM 30,0,6,DLAPS$ LJSF$2 P(1,1) + P(1,2) + P(1,3) $END P $PROC 1,7 DKEY$PKT* $NAME $GFORM 30,0,6,DKEY$ LJSF$2 P(1,1) I $DO 4 , +(LJSF$1 P(1,I+1))*(\\P(1,I+1)) $END P $PROC 1,5 DBB$PKT* $NAME $GFORM 30,0,6,DBB$ LJSF$2 P(1,1) $GFORM 12,0,24,P(1,2),18,P(1,3),18,P(1,4) $END P $PROC 1,10 DREG$PKT* $NAME $GFORM 30,0,6,DREG$ I $DO 3 , LJSF$2 P(1,I) $GFORM 12,0,6,P(1,4),18,P(1,5) + P(1,6) + P(1,7) $END P $PROC 1,3 MSALL$PKT* $NAME $GFORM 30,0,6,MSALL$ + P(1,2),P(1,1) + 0 $END Q $PROC 0,3 LABEL$PGEN* $NAME 0 $GFORM 6,P(1,4),6,P(1,3),6,0,18,P(1,2) LJSF$2 P(1,1) $END P $PROC 1,3 LABEL$PKT* $NAME 0 LABEL$PGEN $END P $PROC *1 LABEL$* $NAME 0 F* $PROC 0 $(CTL$BNK(0)) LABEL$PGEN $($ILCN) $END $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0)) ER LABEL$ $DO P(1)>0 , F $END P $PROC *1 LABEL$P* $NAME 0 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER LABEL$ $END P PROC *1 TLBL$* NAME 0 DO (P(0)=1)**(P>1) ,P(0,1) EQU 19 A EQU 1--(P(0)=2)**(P(0,1)<1*/18)**(P(1)=1)**($AP(P(1,1))<1*/18) DO 1-A , LA 12,(P(0,1),P(1,1)) DO A**(P(0)>1) , LXI 12,+(EQUF$ P(0),1,*1) DO A**(P(1)>0) , LXM 12,+(EQUF$ P(1),1,2) TLBL$P* NAME 1 DO P(0,0)*(P(1)>0) , LA 12,+(EQUF$ P(1) ) ER TLBL$ END P $PROC *1 PFS$* $NAME 'PFS$' PFD$* $NAME 'PFD$' PFWL$* $NAME 'PFWL$' PFS$P* $NAME *'PFS$' PFD$P* $NAME *'PFD$' PFWL$P* $NAME *'PFWL$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END P $PROC *2 PFUWL$* $NAME 0 PFI$* $NAME 1 PFUWL$P* $NAME *0 PFI$P* $NAME *1 $DO (P(1)>0)**(\P(0,0))++(P=2) , LA 12,+(EQUF$ P(1),1,2) $DO (P>2)**P(0,0) , LNA 12,+(EQUF$ P(1),1,2) $DO P(2)>0 , LA 13,+(EQUF$ P(2),1) ER P(0,0)->PFI$!PFUWL$ $END P $PROC *1 CMS$* $NAME 0 CMS$P* $NAME 1 K(1) $EQU +(EQUF$ P(1),1) $DO (P(0)>1)**(\P(0,0)) ,K(0) $EQU +(EQUF$ P(0),1) $DO (P(1)>0)**(K=1)++($AP(K(1))>1*/16-1) , ; LA 12,+(EQUF$ P(1),1,2-2*P(0,0)) $DO (P(1)>0)**(K=2)**($AP(K(1))<1*/16)**($AP(K(0))<1*/16) , ; LA 12,(K(0),K(1)) $DO K=2 , DO ($AP(K(0))>1*/16-1)++($AP(K(1))>1*/16-1)++(P(1)=0) , ; LXI 12,+(EQUF$ P(0),1,*1) ER CMS$ $END P $PROC *1 CMD$* $NAME 'CMD$' CMI$* $NAME 'CMI$' CMO$* $NAME 'CMO$' CMSA$* $NAME 'CMSA$' CMH$* $NAME 'CMH$' CMT$* $NAME 'CMT$' CMD$P* $NAME *'CMD$' CMI$P* $NAME *'CMI$' CMO$P* $NAME *'CMO$' CMSA$P* $NAME *'CMSA$' CMH$P* $NAME *'CMH$' CMT$P* $NAME *'CMT$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END P $PROC *2 CPOOL$* $NAME 0 CPOOL$P* $NAME 1 $DO P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1,2) $DO (\P(0,0))**(P(1)>0) , ; LA,14 12,($GFORM 6,P(2,2),12,P(2,1),18,P(1,1),12,0,; 6,P(2,3),18,P(1,2)) ER CPOOL$ $END P $PROC *1 CGET$* $NAME 0 CGET$P* $NAME 1 $DO P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) $DO (\P(0,0))**(P(1)>0) , LXI 12,+(EQUF$ P(1),1,2) ER CGET$ $END P $PROC *1 CADD$* $NAME 'CADD$' CJOIN$* $NAME 'CJOIN$' CADD$P* $NAME *'CADD$' CJOIN$P* $NAME *'CJOIN$' $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) ER [P(0,0)] $END P $PROC *2 ADACT$* $NAME 0 ADACT$P* $NAME 1 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) $DO P(2)>0 , LA 13,+(EQUF$ P(2),1) ER ADACT$ $END P $PROC *1 CREL$* $NAME 0 CREL$P* $NAME 1 $DO (P(0,0)++(P(0,1)=0))**(P(1)>0) , LA 12,+(EQUF$ P(1),1) $DO (\P(0,0))**(P(0,1)>0) , LXI,14 12,1 ER CREL$ $END P $PROC *1 ROUTE$* $NAME 0 ROUTE$P* $NAME 1 $DO P(0,0)**(P(1)>0) , LA 12,P(1,1) $DO P(1)>1 , LA,14 13,P(1,2) $DO (\P(0,0))**(P(1)>0) , LA 12,(P(0,1),P(1,1)) ER ROUTE$ $END P $PROC *1 LOAD$* $NAME 0 $DO (\P(0,1))**(P(1)>0) , LA,14 12,P(1,1) $DO (\\P(0,1))**(P(1)>0) , LA 12,(1*/17,P(1,1)) $DO (\\P(0,1))**(\P(1)) , LXI,14 12,*0 $DO P(1)>1 , LA,14 13,P(1,2) $DO P(1)=3 , LA,14 14,P(1,3) $DO P(1)>3 , LA 14,(P(1,4),P(1,3)) ER LOAD$ $END Q $PROC 0 RLIST$PGEN* $NAME 0 LJSF$2 P(1,1) I $DO (P(1)=0)+P(1)-1 , LJSF$1 P(1,I+1) $END Q $PROC 0 RLIST$PGEN* $NAME 0 LJSF$2 P(1,1) I $DO (P(1)=0)+P(1)-1 , LJSF$1 P(1,I+1) $END P $PROC *1 RLIST$PKT* $NAME 0 RLIST$PGEN $END P $PROC *1 RLIST$* $NAME 0 F* $PROC 0 $(CTL$BNK(0)) RLIST$PGEN $($ILCN) $END $DO P(1)>0 , LA 12,+(OPT$$ P(1)-1,$LCV(CTL$BNK(0))) ER RLIST$ $DO P(1)>0 , F $END P $PROC *1 RLIST$P* $NAME 0 $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) ER RLIST$ $END P $PROC *1 LINK$* $NAME 'LINK$' RLINK$* $NAME 'RLINK$' LINK$P* $NAME *'LINK$' RLINK$P* $NAME *'RLINK$' $DO P(0,*0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) $DO (\P(0,*0))**(P(1)>0) , LA 12,(LJSF$1 P(1,1)) ER [P(0,0)] $END P $PROC 0,1 EXLNK$* $NAME 'EXLNK$' UNLNK$* $NAME 'UNLNK$' ER [P(0,0)] $END P $PROC *1 LJSF$* $NAME 'S' ALJSF$* $NAME *'S' $DO P(0,1)=2 ,P(0,0) $EQU P(0,*0)->*'D'!'D' LJSF$1* $NAME 'S' LJSF$2* $NAME 'D' ALJSF$1* $NAME *'S' ALJSF$2* $NAME *'D' + (P(0,*0)->$CAS!$CFS)(P(1,1)[P(0,0)]L) $END P $PROC 1 FDCVT$* $NAME 0 * $EQU $CFS($CD(P(1,1)///100)) $END P $PROC *1 LIT$* $NAME 0 $DO \P(1) ,P(1,1) $EQU $LCN $(P(1,1)) $LIT CTL$BNK(0)* $EQU P(1,1) $END E PROC 1,1 EQUF$* NAME 0 C EQU E(1,2)+($AP(E(1))<2) IF ($AP(E(1,1,C))<1*/18)**(E(1,3)>0)**(E(1,1,*C)=0)**; (E(1,1)-E(1,*3)-C<1) B(1) EQU +(I$ 0,14,0,0,0,E(1,1,C)) ELSE B(1) EQU +(I$ 0,E(1,1,C+2),0,E(1,1,C+1),; 2*E(1,1,*1+C)+E(1,1,*C),E(1,1,C)) ENDF DO (E(1)>2)*(E(1,1)-E(1,*3)-C<E(1,3))*; (($AP(B(1))>1*/26-1)+($AP(B(1))>1*/16-1)<E(1,3)) ,; B(1) EQU B(1)+(14*/26) B(1) END P $PROC 1,1 OPT$$* $NAME FF $EQU 36/(P(1)+(P(1)=0)) ST1 $EQU 'FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF' F $FORM [$SS(ST1,1,P(1)*3-1)] ST2 $EQU 'P(1,1),P(1,2),P(1,3),P(1,4),P(1,5),P(1,6)'; ',P(1,7),P(1,8),P(1,9),P(1,10),P(1,11),P(1,12)' K $EQU ['+(F ':$SS(ST2,1,P(1)*7-1+(P(1)>9)*(P(1)-9)):')'] L $EQU $AP(K) REL $EQU K-L U $EQU L**0177777 OPT $EQU (L>0)*(L<1*/18-1)+(-L>0)*(-L<1*/17)+(L=0) $DO OPT , ; I$ ,14+(L<0),0,0,2*(L**(1*/17)>0)+(L**(1*/16)>0),U+REL $DO \OPT , I$ ,,,,,(F K) $END $DEF F $FUNC OPTION* $NAME 0 NOPTION* $NAME 1*/26-1 OPT $EQU 0 I $DO F-1 ,; J $DO $SL(F(I)) ,OPT $EQU OPT++1*/('Z'-$SS(F(I),J)) $END OPT--F(0) F $FUNC BIT* $NAME 0 BITS* $NAME 0 A $EQU 0 I $DO F-1 ,; A $EQU A++1*/F(I) $DO A>=1*/36 , $END (A)D $END A F $FUNC BITSPAN* $NAME 0D BS* $NAME 0D NBITSPAN* $NAME 4722366482869645213695 NBS* $NAME 4722366482869645213695 BITSPAN2* $NAME *0D BS2* $NAME *0D NBITSPAN2* $NAME *4722366482869645213695 NBS2* $NAME *4722366482869645213695 A $EQU 4722366482869645213695 BITS $EQU 0D I $REPEAT F/2 M $EQU F(I*2)>F(I*2-1) P1 $EQU F(I*2)*(\M)+F(I*2-1)*M P2 $EQU F(I*2-1)*(\M)+F(I*2)*M BITS $EQU BITS++(A*/(71-P2)*/(-(71-P2+P1))*/P1) $ENDR C $EQU 4722366482800925736960 Q $FORM 72-36*((\(BITS**C))**(\F(*0))) $END +(Q BITS--F(0)) F $FUNC GCD* $NAME $DO G(2)=0 , $END G(1) $END GCD(G(2),G(1)///G(2)) P $FUNC OPT* $NAME 0 OPT2* $NAME 1 $DO P(0)=0 , ; $DO (K>0)*(K<1*/18-1)+(-K>0)*(-K<1*/17)+(K=0) , ; $END +(I$ 14+(K<0),0,0,2*(K**(1*/17)>0)+(K**(1*/16)>0),K**0177777) $END (F K) F FUNC BF* NAME 6 ABF* NAME *9 C(0) EQU 5+27*F(*0) LJ* NAME 6 ALJ* NAME *9 C(1) EQU F(2)*F(0)>36 DO C(1)<(F(1)-F(1)+1)*/36 ,C(1) EQU 1 N EQU (36+36*C(1))/F(0)*(F(2)=0)+F(2) K EQU 1-1D*/((N-1)*F(0)) DO C(1)>(F(1)-F(1)+1)*/36 ,F(1) EQU F(1)**1D*/36-1 DO N , DO 0=F(1)**K ,F(1) EQU F(1)*/F(0)++C(0) END F(1) F FUNC RJ* NAME 6 ARJ* NAME *9 SP EQU 5+27*F(*0) MS EQU 1*/F(0)-1 DP EQU (F(1)-F(1)+1)*/36>0D DO DP=0 ,B EQU 1*/(36-F(0))-1 DO DP ,B EQU 1D*/(72-F(0))-1 DO (36*DP+36)/F(0)*(F(2)=0)+F(2) , ; DO (F(1)**MS)*/1-SP--SP=0 ,F(1) EQU F(1)*/-F(0)**B END F(1) F $FUNC INF* $NAME $END +(I$ F(5),F(3),F(4),F(2),2*F(*2)+F(*1),F(1)) F $FUNC GAF* $NAME A $EQU F(1) B $EQU F(2) $END +(I$ 0,P(0,1)+P(A,B+2),0,P(A,B+1),2*P(A,*B+1)+P(A,*B),P(A,B) F $FUNC GAF1* $NAME A $EQU F(1) B $EQU F(1) $END +(I$ 0,P(A,B+2),0,P(A,B+1),2*P(A,*B+1)+P(A,*B),P(A,B)) F $FUNC FLD* $NAME $END F(1)*/(F(2)-1)*/(36-F(3)) C $FUNC COLUMN* $NAME 6 COL* $NAME 6 ACOLUMN* $NAME 4 ACOL* $NAME 4 I $EQU (C(1)-(C(1)<-0))//C(0)-(C(1)>-1) J $EQU C(1)-C(0)*I $DO C(0)=6 , $END I++(I$ 0,14-J,0,0,0,0) $END I++(I$ 0,7-J/2-2*(J=2),0,0,0,0) M $FUNC MOD* $NAME $END M(1)///M(2) S $FUNC SIGN* $NAME $DO $IBITS(S(1))**2 , $END -0-(S(1)<>0) $END 0+(S(1)<>0) A $FUNC ABS* $NAME $DO $IBITS(A(1))**2 , $END -A(1) $END A(1) M $FUNC MAX* $NAME '>' MIN* $NAME '<' Z $EQU M(I) I $DO 2,M-1 , $DO M(I)[M(0)]Z ,Z $EQU M(I) $END Z UX* FUNC A EQU 1-2*(UX(1)<0) B(0) EQU 0 I DO 18 ,B(0) EQU 2*B(0)+(A*UX(1)>(2*B(0)+1)*/(35-I)-1) DO UX>2 ,B(1) EQU (UX(3)-(B(0)*/-9*A**15))*/26 B(0) EQU B(0)*A**31 DO B(0)=1 ,B(0) EQU UX(*2) END UX(1)+(UX(2)*2-B(0)+UX(*2))*/17+B(1) J FUNC JREG* NAME 0 BYTES EQU 36/J(1) DO 36>J(1)*BYTES , EQU 09 DO (BYTES<2)++(BYTES=5)++(BYTES>6) , EQU 09 DO J<4 ,J(3) EQU 1 BL EQU (BYTES**3)-(BYTES=2) IW EQU J(3)/BYTES OW EQU J(2)/BYTES IB EQU (J(3)-IW*BYTES)*/(J(1)//6-1) OB EQU (J(2)-OW*BYTES)*/(J(1)//6-1) F FORM 1,2,1,11,3,15,3 END +(F 1-J(*3),BL,J(*1),IW,IB,OW,OB) DEFUNCT$* $PROC $END CTS* $PROC 1,1 SZ,13 +(EQUF$ CTS(1),1) $END P $PROC 0,1 TTW* $NAME 0 TQW* $NAME 1 P(0,0)->TP!TN,4 $LCV $END P $PROC *1,2 JTW* $NAME 0 JQW* $NAME 1 P(0,0)->TN!TP,4 $LCV J P(1,1) $END P $PROC 0,3 SETQW* $NAME 0400001 SETTW* $NAME *1 L,14 12,P(0,0) P(0,*0)->TN!TP,7 $LCV ER PSR$ $END P $PROC 0,0 THIRD* $NAME 5 QUARTER* $NAME 3 $INFO 1 P(0,0) $END REZ* $PROC *1 $DO REZ(1,1)<-0 , $RES REZ(1,1) $DO REZ(1,1)>0 , +REZ(1,2) $DO REZ(1,1)<2 , $END A $EQU $TMODES**2 $UNLIST $DO REZ(1,1)-1 , + REZ(1,2) $DO A , $LIST $END SNZ2* PROC 1,2 W FORM 36 B(0) EQU +(I$ +(EQUF$ SNZ2(1),1,0),SNZ2(0,1)) I DO 4 ,B(1) EQU ((B(1)*2+1)*/(30-I)-1<B(0))+B(1)*2 B(1) EQU +(W B(1)) SA 12,B(0) SNA,B(1)/6*4+(B(1)**9)*2+7-5*(B(1)=0) 12,B(0)-B(1)*/26 END DIU PROC *1 DIU* NAME W FORM 36 X EQU +(W DIU(1,2)--DIU(1,2)*/-72) DO X=0 , DSA DIU(1,1),36 DO X=0 , DI DIU(1,1)+12*(DIU(1)<1),+(OPT$$ DIU(1,2)) DO X=0 , END MY EQU +(W (DIU(0,1)--DIU(0,1)*/-72)+0377777777777*(DIU(0,1)=0)) MBETA EQU MY-MY/X*X Y1 EQU MY/(X-MBETA) Y2 EQU MY-MBETA-1 NUM EQU (Y1<Y2)*Y2+MY*(Y1>Y2-1) DNM EQU (X-MBETA-1)*(Y1>Y2-1)+1D N(-1) EQU 0 F(0) EQU 1D ALPHA(0) EQU X-1 TOP NAME N(0) EQU N(0)+1 F(0) EQU F(0)-(ALPHA(0)*2>X-1)+F(0) DO N(0)>0 ,ALPHA(0) EQU ALPHA(0)-X*(ALPHA(0)*2>X-1)+ALPHA(0) DO 1+ALPHA(0)*NUM>DNM*/N(0) , GO TOP N(1) EQU N(0)+1 DECN NAME N(1) EQU N(1)-1 DO N(1)<N(0) ,F(0) EQU F(0)*/-1 DO F(0)**1=0 , GO DECN OPT EQU F(0)>1D*/35-1 DO OPT , DSA DIU(1,1),36 DO OPT , DI DIU(1,1),+(OPT$$ DIU(1,2)) OPT0 EQU F(0)=1 DO OPT0 , DO N(1)>0 , SSA DIU(1,1),N(1) DO OPT0 , DO DIU(1,2)<0 , LNA DIU(1,1),DIU(1,1) DO OPT++OPT0 , END OPT1 EQU F(0)*/(36-N(1)) OPT2 EQU (OPT1<1*/19)**(N(1)<36) DO OPT2 , MF DIU(1,1),+(OPT$$ OPT1*/-1--DIU(1,2)*/-72) OPT3 EQU (OPT1-1<0377777777777)**(N(1)<37)--OPT2 DO OPT3 , MI DIU(1,1),+(OPT$$ OPT1--DIU(1,2)*/-72) OPT4 EQU OPT2++OPT3--1 DO OPT4 , MI DIU(1,1),+(OPT$$ F(0)--DIU(1,2)*/-72) DO OPT4 , DO 36-N(1)<0 , SSA DIU(1,1),N(1)-36 DO OPT4 , DO 36-N(1)>0 , LDSC DIU(1,1),36-N(1) END