CPTIME .53 SEC. DATE 04/21/83 , TIME .22.05.10. 1 0 OVERLAY (SCHIP,0,0) 1 1 PROGRAM MJGV 1 2 1 1 3 2 (INPUT=300,OUTPUT=300,TAPE1=INPUT,TAPE2=OUTPUT,TAPE3=300, 1 4 3 TAPE4=513,TAPE5=513,TAPE6=513,TAPE7=513,TAPE8=130) 1 5 C 1 6 C PROGRAM SCHOONSCHIP. 1 7 C FIRST VERSION WRITTEN IN 1963. 1 8 C FIRST CDC MACHINE VERSION WRITTEN IN 1965. 1 9 C PL VERSION WRITTEN IN 1975. 1 10 C AUTHORS - M. VELTMAN AND H. STRUBBE. 1 11 C 1 12 C ADDRESS- 1 13 C M. VELTMAN 1 14 C PHYSICS DEPT. 1 15 C THE HARRISON RANDALL LAB. 1 16 C UNIVERSITY OF MICHIGAN 1 17 C ANN ARBOR 1 18 C MICHIGAN 48109 1 19 C U.S.A. 1 20 C 1 21 C THE ORDER OF THE VARIABLES IN /STORAG/ MUST NOT BE CHANGED 1 22 DEF CEXPRNR 1 23 COMMON / STORAG / ITIN(2000),ITOUT(4000),IIEP(750),BBUFX(508) 1 24 COMMON / STORAG / IIDGEHX(1015),IPR1(260),IPR(260),NNS(64) 1 25 COMMON / STORAG / NNSA(64),IISCAL(130),NAANT(42),NID(42),COMADR 1 26 ENDM 1 27 MACRO CEXPRNR 1 28 EXTERNAL DUMP1 1 29 CALL MANAG 1 30 DEF CBLANK 1 31 COMMON /BLANK/ AZ,BLOKPT,DOCARD,DOLIST,DOVLAG,DUMCAR,IDAAN,IDADR 1 32 COMMON /BLANK/ ISPLAY,JEERST,TAPUSE,LAYNAM,LAYNR,LAY1(2),LAY2(1) 1 33 COMMON /BLANK/ LAY4(2),LEVEL,MAXID,NFFO,KKUIT 1 34 COMMON /BLANK/ MBE,MBU,MFOUT,NA,NAMES,NANU,NASFF,NBR,NDIMT 1 35 COMMON /BLANK/ NDIMU,NDOTI,NEPS,NF,NP,NQU,NQX,NQ1,NREP,NSPEC 1 36 COMMON /BLANK/ NSUBS,NSUM,NTAP1,NTAP2,NTAP3,NTAP4,NTAP5,NTAP6 1 37 COMMON /BLANK/ NTAP7,NTAP8,NTEM,NTEMA,NTIME,NVRA 1 38 COMMON /BLANK/ NWEG,NWOC,NZELF,N5PS,PAS,RECOV,S1RED 1 39 COMMON /BLANK/ MMBE,MMBU,MNEPS,YEPFLAG,YTERM 1 40 COMMON /BLANK/ CRIND,I1001,MNSUBS,NCRIN,NMULT 1 41 COMMON /BLANK/ NALGE,NFUN,NVECT,NVIND,NXEX 1 42 COMMON /BLANK/ IBUF(36),ITAR1(2),MBR(25) 1 43 COMMON /BLANK/ NCONT(11),VOLUM(36) 1 44 ENDM 1 45 DEF CSTOREF 1 46 COMMON /STOREF/ READ0,REQEST0,REWIND0,RWEOFR0,SEARCH0,WEOF0,WEOFR0 1 47 COMMON /STOREF/ WRITE0 1 48 COMMON /STOREF/ NVIGEH(260),NXGEH(260),NVGEH(32),NFGEH(224) 1 49 COMMON /STOREF/ FILN1(36),NAGEH(260),LOC(260) 1 50 COMMON /STOREF/ MREF(5),MREFH(8),MTAB(20) 1 51 ENDM 1 52 DEF *EXPAND 1 53 * XREF A 1 54 X MACRO I1,I2,I3,I4 1 55 I1 1 56 I2 1 57 I3 1 58 I4 1 59 ENDM 1 60 WRITE. MACRO NT,NW,LOC 1 61 + VFD 12/6120B,18/LOC,12/6130B,18/NW SB2 LOC, SB3 NW 1 62 VFD 12/0100B,18/TAXMAN,12/0,18/NT 1 63 ENDM 1 64 READ. MACRO NT,NW,LOC 1 65 + VFD 12/6120B,18/LOC,12/6130B,18/NW SB2 LOC, SB3 NW 1 66 + VFD 12/0100B,18/TAXMAN,1/0,11/-1,18/NT 1 67 ENDM 1 68 REW. MACRO NT 1 69 + VFD 12/0100B,18/TAXMAN,1/0,11/-2,18/NT 1 70 ENDM 1 71 EOF. MACRO NT 1 72 + VFD 12/0100B,18/TAXMAN,1/0,11/-3,18/NT 1 73 ENDM 1 74 REWS. MACRO NT REWIND AND RESET TAPUSE 1 75 + VFD 12/0100B,18/TAXMAN,1/1,11/-2,18/NT 1 76 ENDM 1 77 * EXAMPLE LOOK. 0HLEES 1 78 LOOK. MACRO STR 1 79 + VFD 12/0100B,18/=XLOOK,6/0,24/STR 1 80 ENDM 1 81 * EXAMPLE PRINT. 0HALG,NAGEH,50 1 82 PRINT. MACRO NAM,ADDR,NR 1 83 + VFD 6/0,24/NAM 1 84 VFD 11/NR,1/0 1 85 VFD 18/ADDR 1 86 ENDM 1 87 ERROR MACRO NR 1 88 VFD 12/0100B,18/FOUT,30/NR 1 89 ENDM 1 90 ERRORP MACRO NR 1 91 VFD 12/0100B,18/FOUTP,30/NR 1 92 ENDM 1 93 ENDM 1 94 DEF *IN 1 95 USE // 1 96 INCOM BSS 0 1 97 LOCALS BRAZI1,DOPT1,FFILN,FRVEC,KA,KI,KV,KSUBF,K4,K5,K7 1 98 LOCALS LEN,NENDBL1,ITAR3,IMINUS,SYMB3,VLAGT1 1 99 LOCALS CREATBR,DATAFL1,DS1,EXPOFL1,LEVCH,LEVCL,LEVHY 1 100 LOCALS LEVLO,NBLAN1,NRFIX,NRFLAG1,SLASH1,SLASH2 1 101 LOCALS AA,AZPMEM1,BBA,BBB,BIND1,BLOKP1,BLOV34,DODEPTH 1 102 LOCALS DOLST1,DSXI1,ENDB1,FITE1,FITE2,GAMM5,IA,IAL,IB 1 103 LOCALS IDAHE,IDIND1,ILK,ITNAM1,ITTA1,JANI1,JDVF1,KTERM 1 104 LOCALS LEESPT,LVAG,LVEC1,NBIND,NCIND,NDUMY,NHAK,NHAK1 1 105 LOCALS NHAK2,NI,NNUM1,NORDER,NP31,NSUB1,NTEKEN,RCUR1 1 106 LOCALS RCUR2,RIND1,SHIF1,SHMEM1,SO1,STOR1,SYMB1,SYMB2 1 107 LOCALS TABIN1,TAPMA1,TUS1A,VECIN1,VLAG,XDRE1,SUBS1,WW1 1 108 LOCALS EREXP1,2,IDO1,5,ITA1,4,KTA1,2,LDA1,5 1 109 LOCALS NRFLOAT,2,NRINVERS,2 1 110 INCO1 BSS 1 1 111 USE * 1 112 LIEP EQU 742 LENGHT OF IEP 1 113 IEP EQU IIEP RHS OF SUBSTITUTIONS 1 114 LISCAL EQU 127 LENGTH OF ISCAL 1 115 ISCAL EQU IISCAL LOCATION OF DOLLAR SYMBOLS 1 116 NDIMI EQU 500 SIZE OF IDGEH 1 117 IDGEH EQU IIDGEHX+3 LHS OF SUBSTITUTIONS 1 118 BUFA1 EQU IIDGEHX+500 OUTPUT BUFFER ALGEBRAIC QUANTS IN FREEZING 1 119 BUFV1 EQU BBUFX OUTPUT VECTORS WHEN FREEZING, WRITE COMMON 1 120 BUFI1 EQU IIEP INPUT BUFFER FOR FREEZE, ENTER COMMON 1 121 CROSBUF EQU IIEP BUFFER FOR CROSREF OF FILENAMES 1 122 A EQU IPR1+100 (80). INPUT CARD 1 123 IDUM EQU NAANT (40). NAMES OF DUMMIES 1 124 ENDM 1 125 DEF *EXEC 1 126 USE // 1 127 EXECCOM BSS 0 1 128 LOCALS ANTHAU,A37JO,BB1HER,B1B,B1HER,B2HER,B3HER 1 129 LOCALS COMM1,DREQ1,EPSM1,EXPO1,HULP1A,HULP1B,HULP1C 1 130 LOCALS ISWIH1,ISWIH2,ISWIH4,ISWI1,JV,JVA,MARKER 1 131 LOCALS MBEWW,MBE1,MBE11,MBE2,MBUWW,MBU1,NQA,NQB 1 132 LOCALS RETUR,RETUR2,SE9VL,SKEY1,S1ALOC,S1XR4,ZN2IND 1 133 LOCALS S1VLOC,MBE1F,MBE4,MBE5,NTABK,CONSER 1 134 LOCALS DGEPF,KEYD1,LEVBUF1,LEVBUF2,NEPSG 1 135 LOCALS BASE1,2,BSTOR1,2,FILD1,5,FILD2,2,IDUM1,20,INDA1,3 1 136 LOCALS INDA2,5,MBUW,42,IGET,3,REMEM1,41,RETUR1,42,KAHD1,2 1 137 LOCALS TABKEY,5,IEP,750 1 138 EXECCO1 BSS 1 1 139 USE * 1 140 NS EQU NNS 1 141 NSA EQU NNSA 1 142 ISCAL EQU IISCAL 1 143 ENDM 1 144 DEF *UIT 1 145 USE // 1 146 UITCOM BSS 0 1 147 LOCALS IY1,IY2,MIND,IND,IEXP,BDOUB,BDOUB2 THE ORDER OF THESE 1 148 * QUANTS MUST NOT BE CHANGED FOR COMMON // IN ROUTINE NUMBER . 1 149 LOCALS B2HER,B3HER,B4HER,B5HER,IERIC,INIT2,IREG,JV,JVA 1 150 LOCALS KAM1,KEM1,KIM1,KOM1,LDOC,LLIM1,NFOL,NINX,ARGA0 1 151 LOCALS NKLOPS,NORPR1,NPA,NRECOR,NRECO2,NREM 1 152 LOCALS NURI,NWORDS,NWOR2,S1ALOC,S1VLOC,S1XR4,ZN2IND 1 153 LOCALS TUS,TUS1,TUS2,TUS3,BRAKCL,BRAKOP,NFIRST 1 154 LOCALS BUFX,508,IEP,750,NS,64,NSA,64,BC1,130,IT23,512 1 155 LOCALS PARAM1,3,DCONT1,4,IGET,3 1 156 UITCO1 BSS 1 1 157 USE * 1 158 ENDM 1 159 DEF *EXPRNR 1 160 MACRO BSSS,A,N 1 161 A BSS N 1 162 ENDM 1 163 II0 EQU 11B I 1 164 NN0 EQU 16B N 1 165 ZZ0 EQU 32B Z 1 166 ZE0 EQU 33B 0 1 167 PL0 EQU 45B + 1 168 MI0 EQU 46B - 1 169 AS0 EQU 47B * 1 170 SL0 EQU 50B / 1 171 BO0 EQU 51B ( 1 172 BC0 EQU 52B ) 1 173 DO0 EQU 53B DOLLAR 1 174 EQ0 EQU 54B = 1 175 BL0 EQU 55B BLANK 1 176 CO0 EQU 56B , 1 177 PO0 EQU 57B . 1 178 USE /BLANK/ 1 179 BLCOM1 BSS 0 1 180 MACRO CBLANK 1 181 USE * 1 182 STARBEG EQU 1 1 183 STAREND EQU 2 1 184 STARNEX EQU 3 1 185 STARYEP EQU 4 1 186 USE /STORAG/ 1 187 MACRO CEXPRNR 1 188 USE * 1 189 IT EQU 1 1 190 NU EQU 1 1 191 IPUNCH EQU IBUF+18 1 192 USE /STOREF/ 1 193 MACRO CSTOREF 1 194 USE * 1 195 B EQU LOC+210 (50). LAST READ SYMBOL OR NR TO BE PRINTED 1 196 FILIMIT EQU 35 SAME AS DIMENSION OF VOLUM 1 197 ENDM 1 198 DEF *UPDAT 1 199 * UPDAT UPDATES TAPES 1 200 UPDAT BSS 1 1 201 SB6 1 $ MX7 59 $ SX6 B6 1 202 SA6 TUS $ SA7 CBUF1+3 1 203 WRITE. NTAP7,TUS,CBUF1 1 204 SA1 NTAP6 $ SA2 NTAP7 EXCHANGE 1 205 BX6 X1 $ LX7 B0,X2 $ SA6 A2 $ SA7 A1 1 206 EOF. NTAP6 1 207 REW. NTAP6 1 208 REW. NTAP7 1 209 RJ RTAKM GO READ 1 210 SYF24 BX4 X1 $ SA3 NXEX $ LX4 49 1 211 + MX0 30 $ NG X4,*+1 $ MX0 42 JP IF NOT INDEXED 1 212 + SA2 NXGEH $ BX7 X0*X1 $ SB1 X3 SEARCH NXGEH 1 213 SYF26 BX6 X0*X2 $ IX5 X6-X7 $ ZR X5,SYF27A 1 214 SB1 B1-B6 $ SA2 A2+B6 $ LT B0,B1,SYF26 1 215 SYF27 RJ RTAKM IF NOT FOUND, SKIP 1 216 + ZR X1,SYF27 $ ZR B0,SYF24 1 217 SYF27A MX5 52 $ BX6 -X5*X2 $ ZR X6,SYF27 1 218 SA3 CBUF1 $ BX7 X2 $ MX0 43 1 219 SA7 TUS1 $ SA4 X6+LOC-1 1 220 SX3 X3 $ BX0 -X0*X4 $ NO $ IX6 X0-X3 1 221 NZ X6,SYF27 $ NO $ NO 1 222 SYF28A SB1 NTAP7 $ SB3 NWORDS REQUEST RECORD NUMBER 1 223 SB4 REQEST0 $ RJ TAKMAN 1 224 SA1 TUS1 $ SA2 NWORDS 1 225 SB6 1 $ MX0 52 $ BX3 -X0*X1 1 226 SA4 X3+LOC-1 $ MX0 43 $ BX5 X0*X4 1 227 BX6 X2+X5 $ SA6 A4 1 228 SYF29 WRITE. NTAP7,TUS,CBUF1 1 229 RJ RTAKM 1 230 ZR X1,SYF29 $ SA2 TUS1 1 231 MX0 30 $ BX6 X1*X2 $ BX3 X0*X1 $ BX4 X0*X2 1 232 LX6 44 $ IX3 X3-X4 $ NZ X3,SYF24 JP IF NEW NAME OF FILE 1 233 NG X6,SYF29 $ ZR B0,SYF24 JP IF FROZEN SUBFILE. 1 234 * IT WAS NEXT COMPONENT OF SAME INDEXED FILE. 1 235 ENDM 1 236 DEF *WTAKM 1 237 RTAKM BSS 1 1 238 READ. NTAP6,TUS,CBUF1 1 239 SA1 CBUF1+3 $ SB6 1 1 240 MX0 59 $ IX6 X1-X0 $ NZ X6,RTAKM 1 241 REWS. NTAP6 1 242 ZR B0,UPDAT 1 243 ENDM 1 244 DEF *CROSR ENTER NAMES OF COMMON FILE 1 245 LOCALZ CROD1,3 1 246 * THIS ROUTINE MODIFIES THE CONTENT OF THE BUFFER. ITS FIRST WORD 1 247 * IS SET TO ZERO TO FORCE A NEW READ OF THE BUFFER LATER. 1 248 CROSR BSS 1 CROSR(LOC,BUF). CONSTRUCT CROSS REF 1 249 SA1 B1 $ SX6 B1 $ SX7 B2 $ LX6 18 KEY. B6=1 ASSUMED 1 250 BX7 X6+X7 $ MX0 43 $ BX6 -X0*X1 1 251 SX6 X6+6 $ SA7 CROD1 1 252 SA6 A7+B6 $ SB1 NTAP7 $ SB3 A6+B6 1 253 SB4 A6 $ RJ TAKMAN 1 254 SA2 CROD1 $ SB6 1 1 255 MX7 0 $ SB1 X2+4 $ SA7 X2 1 256 CRO1 SA1 B1 $ SB1 B1+B6 $ MX0 57 $ LX1 34 ARG CAN BE INDEX, 1 257 ZR X1,CROSR $ BX2 -X0*X1 $ LX1 8 VECTOR, FUNCTION, ALGEBRA 1 258 SB7 X2-1 $ NE B6,B7,CRO11 JP IF NOT VECTOR 1 259 MX0 48 $ BX6 -X0*X1 $ SX7 X6-1040B 1 260 PL X7,CRO10 $ SB7 1000B JP IF FUNCTION 1 261 SA4 NVECT $ SA5 NVGEH 1 262 CRO1A SB5 B0 $ LX1 18 1 263 CRO2 MX0 30 $ BX6 X0*X1 $ SB5 B5+B6 $ SB4 X4 SEARCH FOR NAME X1 1 264 BX7 X0*X5 $ IX6 X6-X7 $ ZR X6,CRO3 1 265 SA5 A5+B6 $ LT B5,B4,CRO2 $ BX6 X1 1 266 MX0 12 $ LX0 30 $ BX6 -X0*X1 $ BX1 -X0*X1 1 267 SX7 B7-400B $ ZR X7,CRO9 JP IF INDEX.INSERT X1 AS NEW NAME 1 268 SX7 B4+B6 $ SA6 A5 $ SA7 A4 $ SX6 X7+B7 1 269 SA6 A1 $ ZR B0,CRO1 MODIFIES INPUT BUFFER 1 270 CRO3 MX0 54 $ BX7 X1-X5 $ BX6 -X0*X7 $ SX7 B5+B7 NAME WAS FOUND 1 271 SA7 A1 $ ZR X6,CRO1 CHECK NAME PROPERTIES 1 272 IFO21 ERROR 21 1 273 IFO15 ERROR 124 1 274 CRO9 SA2 NCRIN $ SX6 X2+B6 $ SA6 A2 INSERT NEW INDEX IN NVIGEH. 1 275 SA6 NQX $ SA6 NVIND ONLY AT READ IN TIME 1 276 BX7 X1 $ SX6 X6+B7 $ SA7 X2+NVIGEH 1 277 SA6 A1 $ NO $ SA3 LEVEL 1 278 ZR X3,CRO1 $ ZR B0,IFO15 1 279 CRO10 SB7 1040B $ SA4 NFUN 1 280 SA5 NFGEH $ ZR B0,CRO1A 1 281 CRO11 ZR B7,CRO12 $ SB7 2000B JP IF INDEX 1 282 SA5 LEVEL $ SA4 NALGE 1 283 MX6 0 $ SB5 X5 $ SA5 NAGEH 1 284 GE B0,B5,CRO11A $ SA6 X4+IPR1 1 285 CRO11A LX1 18 $ SB5 B0 $ ZR B0,CRO2 1 286 CRO12 SB7 400B $ SA4 NVIND INDEX 1 287 NO $ BX6 X1 $ SA5 NVIGEH 1 288 LX6 1 $ PL X6,CRO1A $ LX1 18 JP IF NOT CR.I. 1 289 MX0 54 $ BX6 -X0*X1 $ RJ INDCR 1 290 SA2 LEVEL $ SX7 X6+B7 $ SA7 A1 1 291 NZ X2,CRO12A $ SA6 NVIND 1 292 ZR B0,CRO1 1 293 CRO12A MX7 0 $ NO $ SA7 X6+IPR-1 REMOVE.INDEFINITE.IN IPR 1 294 ZR B0,CRO1 1 295 ENDM 1 296 DEF *INDCR 1 297 INDCR BSS 1 CREATE NEW INDEX. X6=DIMENSION. 1 298 SA4 NCRIN $ BX4 -X4 $ SB4 X4 USES A4,X4,B4,A6,X6 1 299 SA4 NQX $ SB4 X4+B4 B4=(NQX)-(NCRIN) 1 300 PL B4,IND2 $ SA4 X4+NVIGEH RESULT.X6=NR OF THE NEW INDEX 1 301 IND1 LX4 53 $ AX4 53 $ IX4 X4-X6 1 302 ZR X4,IND3 $ SB4 B4+1 1 303 SA4 A4+1 $ NG B4,IND1 1 304 SA4 NCRIN 1 305 IND2 SX6 X6+200000B $ SA6 X4+NVIGEH 1 306 SX6 X4+1 $ SA6 NCRIN 1 307 SA6 NQX $ BX4 X6 $ AX4 8 1 308 ZR X4,INDCR $ ZR B0,XFO1 JP IF TOO MANY INDICES 1 309 IND3 SB4 NVIGEH-1 $ NO $ SX6 A4-B4 1 310 SA6 NQX $ ZR B0,INDCR 1 311 XFO1 ERROR 123 1 312 ENDM 1 313 DEF *SCHUIF 1 314 DATA 23031025110600000000B 1 315 SCHUIF BSS 1 1 316 * COMPARE TERMS AT NS,NSA WITH OUTPUT STORE. IF NO MATCH, ADD TO STORE. 1 317 * OUTPUT FULL IS INDICATED BY ZN2IND NZ. IN THAT CASE, USE S2OPSC WHICH 1 318 * STORES INTO A BUFFER AND WRITES ON THE OVERFLOW TAPE. 1 319 S1K2LA SA1 NSUBS $ SA2 NTEMA B1 B2 B3 B4 B5 B6 B7 1 320 SB4 1 $ SB6 B4 $ NO (NSUBS) * * 1 NU-1 NU 1 321 SA3 NP $ BX0 X1+X2 $ SB1 X1 NU+1 (NA) 1 322 SB5 B0 $ SB7 X3 $ NZ X0,S2A THIS FROM HERE TO S267UF. B6 1 323 SA5 NDIMT $ SB1 X5+B4 $ SX7 X5+B4 INITIALIZATION 1 324 MX6 0 $ SA7 JEERST $ SA7 A1 1 325 SA6 S1RED $ MX7 0 1 326 SA6 ZN2IND $ SA7 NSUM 1 327 SA6 S1VLOC $ SA7 S1ALOC 1 328 S15A SA5 S1VLOC $ SX6 B1+B7 $ MX3 59 VECTOR INSERTION. S1VLOC HAS 1 329 SB3 NS+1 $ SB2 B1 $ IX6 X6-X3 IN LEFT 30 BITS LOC OF 1 330 SA2 B3-B4 $ SB1 X6 $ BX6 X5+X6 $ LX3 1 FOLLOWING VECTOR. 1 331 SA5 NA $ SX4 B7 $ LX7 B0,X2 PILOT WORD=S1VLOC+LOC OF 1 332 IX4 X4+X3 $ SB7 X5 $ ZR B0,S1BZY ASS. ALGEBRA IN RIGHT HALF 1 333 + SA1 B3 $ SA2 B3+B4 $ IX4 X4+X3 $ NO INSERT,2 AT A TIME 1 334 + SB2 A7+B4 $ BX6 X1 $ SB3 A2+B4 $ LX7 B0,X2 B1=B1+NP+1 1 335 S1BZY SA6 B2 $ SA7 B2+B4 $ PL X4,*-2 X3=-2,X4 COUNT 1 336 SA1 NASFF $ SA2 NP 1 337 SA3 X1+VOLUM-1 $ SA0 A2 $ LX2 1 COUNT SPACE NEEDED 1 338 SX7 X3+3 $ IX7 X7+X2 $ SA7 A3 IN VOLUM 1 339 SB6 NS 1 340 S1INAL SA1 IGET+2 $ MX0 18 $ SA2 A1-B4 ALGEBRA INSERTION 1 341 UX1 B0,X1 $ NO $ AX1 7 COPY NS TO IT 1 342 SA5 NASFF $ SX3 B4+B4 $ BX6 -X0*X1 1 343 SA5 X5+VOLUM-1 $ SX7 B7+B7 $ IX7 X5+X7 1 344 IX7 X7+X3 $ SA7 A5 $ SB3 NSA 1 345 SB2 B1 $ LX7 B0,X2 $ SA5 S1ALOC 1 346 SX4 B7-B4 $ BX6 X6+X5 $ ZR B0,S2BZY 1 347 S2BE SA1 B3 $ SA2 B3+B4 $ IX4 X4-X3 $ NO X3=2 1 348 SB2 A7+B4 $ BX6 X1 $ SB3 A2+B4 $ LX7 B0,X2 COPIES 2 QUANTS 1 349 S2BZY SA6 B2 $ SA7 B2+B4 $ PL X4,S2BE AT THE SAME TIME 1 350 SX7 B1+B7 $ IX6 X7+X3 $ SA6 NSUBS 1 351 PRESE1 SA3 NSPEC $ SX2 4 ENTRY AFTER PUTTING TERM IN BUFFER 1 352 IX1 X3-X2 $ ZR X1,SCHUIF $ NO JP IF YEP WILL FOLLOW 1 353 SA1 NASFF $ SA3 X1+FILN1-1 1 354 LX3 43 $ NO $ PL X3,SCHUIF JP IF NO COMMON 1 355 + SA1 A0 $ SB7 B6 $ SB6 1 1 356 SX0 100000B $ SB1 X1 $ MX5 48 PRESENCE BIT 1 357 PRE1 SB1 B1-B6 $ SA2 B7 $ NG B1,PRE5 ANALYSE EACH QUANTITY IN NS 1 358 PRE2 LX2 12 $ BX3 -X5*X2 $ ZR X2,PRE4 1 359 PRE3 BX2 X5*X2 $ LX3 50 $ SB2 X3 $ LX3 2 1 360 LT B6,B2,PRE6 $ SA4 X3+MREFH 1 361 BX3 X5*X3 $ SB3 X4 $ NG X4,PRE2 1 362 LX3 8 $ SA4 X3+B3 $ BX6 X0+X4 $ LX2 12 1 363 BX3 -X5*X2 $ SA6 A4 $ NZ X2,PRE3 1 364 PRE4 SB1 B1-B6 $ SA2 A2+B6 $ PL B1,PRE2 1 365 PRE5 SB7 NP $ SB7 B0-B7 $ SX3 A0+B7 1 366 SA0 NA $ NO RESTART LOOP. SCAN NSA. 1 367 NZ X3,SCHUIF $ SB7 NSA 1 368 SA1 A0 $ SB1 X1 $ ZR B0,PRE1 1 369 PRE6 SB2 B2-B6 $ LX3 8 $ MX7 55 $ BX6 -X7*X3 1 370 AX3 5 $ EQ B2,B6,PRE7 $ BX7 -X7*X3 JP IF P(3) 1 371 SA4 X6+NVGEH-1 $ AX3 B6,X7 $ AX6 1 IS PDQ 1 372 ZR X3,PRE2 $ SA3 X7+NVGEH-1 SKIP IF VECTOR 0 OR 1 1 373 ZR X6,PRE2 $ BX6 X4+X0 $ BX7 X3+X0 1 374 SA6 A4 $ SA7 A3 $ NZ X2,PRE2 1 375 GE B1,B6,PRE4 $ ZR B0,PRE5 1 376 PRE7 BX7 -X7*X3 $ SA4 X7+NVGEH-1 $ AX3 B6,X7 1 377 BX6 X0+X4 $ ZR X3,PRE2 $ SA6 A4 SKIP VECTOR 0 OR 1 1 378 NZ X2,PRE2 $ ZR B0,PRE4 1 379 S2A SA1 JEERST $ SA5 NS SCAN THRU OUTPUT 1 380 MX7 0 $ SB2 30 $ LX1 30 1 381 SA7 A5+B7 $ MX5 12 1 382 S10A SA3 A5 $ BX6 X7 $ AX7 B2,X1 $ SA2 X7+B6 NEXT VECTOR 1 383 SA1 X7 $ ZR X7,S46A $ LX0 B4,X2 JP IF LAST VECTOR 1 384 BX3 -X5*X3 $ AX0 49 $ BX2 -X5*X2 $ SB3 X0 1 385 S3BE BX0 X2-X3 $ IX4 X2-X3 $ AX0 59 $ BX4 -X0*X4 COMPARE VECTORS 1 386 SB3 B3-B4 $ BX0 -X2*X0 $ BX4 X0+X4 $ SA2 A2+B4 1 387 NG X4,S10A $ NZ X4,S12A S12A = INSERTION INBETWEEN 1 388 SA3 A3+B4 $ LT B0,B3,S3BE B2 B3 B4 B5 B6 1 389 NZ X3,S10A $ LX1 42 1 390 SA6 JVA $ SA7 JV 42 LOOP 1 NU-1 NU (NP) 1 391 SA4 NA $ SA5 NSA VECTOR MATCHES 1 392 SB7 X4 $ MX7 0 $ SB6 B6+B4 $ SA7 A5+B7 1 393 MX5 12 $ SB2 42 1 394 S30A SA3 A5 $ BX6 X7 $ AX7 B2,X1 $ SA2 X7+B6 1 395 SA1 X7 $ ZR X7,S35A $ LX0 B4,X2 JP IF LAST ALGEBRA 1 396 BX3 -X5*X3 $ AX0 49 $ BX2 -X5*X2 $ SB3 X0 1 397 S4BE BX0 X2-X3 $ IX4 X2-X3 $ AX0 59 $ BX4 -X0*X4 COMPARE ALGEBRA 1 398 SB3 B3-B4 $ BX0 -X2*X0 $ BX4 X0+X4 $ SA2 A2+B4 1 399 NG X4,S30A $ NZ X4,S32A 1 400 SA3 A3+B4 $ LT B0,B3,S4BE 1 401 NZ X3,S30A $ SA4 IGET+1 1 402 SA2 A1+B4 $ BX3 X1 $ SA5 A4+B4 $ FX0 X2+X4 ALGEBRA MATCHES 1 403 UX7 B3,X2 $ LX3 18 $ SB3 B3-60B ADD COEFFICIENTS 1 404 AX3 18 $ DX7 X2+X4 $ LX3 7 $ PX3 B3,X3 1 405 FX3 X3+X5 $ NX0 B0,X0 $ FX5 X7+X3 $ FX3 X0+X5 JAVA IN X6 1 406 NX7 B0,X3 $ DX5 X0+X5 $ NX4 B0,X5 $ DX2 X4+X7 LEAVE IN X4 1 407 FX7 X4+X7 $ MX3 59 $ MX0 18 $ UX4 B2,X7 B3=EXP-70 1 408 SA5 NZELF $ BX4 X6 $ IX6 X5-X3 X3=-1. LEAVE IF 1 409 SA7 A2 $ UX2 B0,X2 $ SA6 A5 $ AX2 7 CANCELL. TEST 1 410 MX5 18 $ SB3 B3-30B $ NO B3=PREV. EXP. - 110B (=72 BITS) 1 411 BX2 -X5*X2 $ BX7 X1*X5 $ BX7 X2+X7 $ SA7 A1 1 412 GE B2,B3,SCHUIF $ SA5 NWEG NWEG=NWEG+1, S1RED=S1RED+NA+2 1 413 SA2 NASFF $ IX6 X5-X3 $ SX3 B4+B4 ADJUST POINTERS AFTER CANC 1 414 SA2 X2+VOLUM-1 $ SX7 B7+B7 $ SA6 A5 1 415 BX1 X0*X1 $ SX7 X7+2 $ SB3 A2 1 416 IX6 X2-X7 $ NO $ NO $ SA6 A2 COUNT VOLUM 1 417 NO $ SX7 X3+B7 $ SA2 S1RED 1 418 SA5 X4 $ IX7 X7+X2 $ BX5 -X0*X5 $ SA7 A2 1 419 SA3 JV $ ZR X4,S2WEG JP IF NO FOREGOING ALGEBRA 1 420 BX6 X1+X5 $ SA6 A5 $ ZR B0,SCHUIF 1 421 S2WEG SA2 X3 $ LX1 18 $ SA5 JVA GET PILOT WORD OF VECTOR 1 422 MX0 30 $ BX2 X0*X2 $ ZR X1,S3WEG JP IF NO FOLL. ALG. 1 423 BX6 X2+X1 $ SA6 A2 $ ZR B0,SCHUIF 1 424 S3WEG SA4 NP $ SX7 X7+B4 $ SA3 X5 PILOT WORD FOREGOING VECTOR 1 425 LX4 1 $ SX6 X6-3 $ IX6 X6-X4 1 426 LX4 59 $ NO $ NO $ SA6 B3 COUNT VOLUM 1 427 IX7 X7+X4 $ SB2 30 $ SA7 A7+B0 IN X3 1 428 BX3 -X0*X3 $ LX6 B2,X2 $ ZR X5,S4WEG JP IF NO FOREGOING 1 429 BX7 X3+X2 $ SA7 A3 $ ZR B0,SCHUIF 1 430 S4WEG SA6 JEERST $ NZ X2,SCHUIF 1 431 SA6 NSUBS $ ZR B0,SCHUIF 1 432 S32A SA2 ZN2IND $ SA3 NDIMU INSERT INBETWEEN. ALGEBRA 1 433 NZ X2,S2OPSC $ SX0 B1+B7 $ IX5 X0-X3 1 434 SX4 B1 $ PL X5,S267UF $ MX0 18 JP IF MEM OVERFLOW 1 435 SA0 NA $ ZR X6,S33A 1 436 SA3 X6 $ LX7 42 $ LX4 42 $ BX3 -X0*X3 1 437 SA7 S1ALOC $ BX6 X3+X4 $ SA6 A3 1 438 SB6 NSA $ ZR B0,S1INAL 1 439 S33A SA3 JV $ NO $ LX7 42 INSERT AS FIRST. ALGEBRA 1 440 SA5 X3 $ MX0 30 $ SA7 S1ALOC X5=PILOT VECTOR PART 1 441 BX6 X0*X5 $ BX6 X4+X6 $ NO $ SA6 A5 1 442 SB6 NSA $ ZR B0,S1INAL 1 443 S12A SA2 ZN2IND $ SA3 NDIMU INSERT INBETWEEN. VECTOR 1 444 NZ X2,S2OPSC $ SA5 NA 1 445 SX0 B1+B7 $ IX3 X3-X5 $ SX4 B1 $ IX5 X0-X3 1 446 SA3 X6 $ PL X5,S267UF $ MX0 30 1 447 ZR X6,S41A $ LX7 30 $ BX3 -X0*X3 FITS IN MEMORY 1 448 LX4 30 $ SA7 S1VLOC $ MX6 0 1 449 BX7 X3+X4 $ SA6 S1ALOC $ SA7 A3 1 450 ZR B0,S15A 1 451 S41A SX6 B1 $ LX7 30 $ SA6 JEERST INSERT AS FIRST. VECTOR 1 452 SA7 S1VLOC $ MX6 0 1 453 SA6 S1ALOC $ JP S15A 1 454 S35A SA1 ZN2IND $ SA3 NDIMU INSERT AFTER LAST, IF POSSIBLE. ALGEB 1 455 NZ X1,S2OPSC $ SX0 B1+B7 $ IX1 X0-X3 1 456 SX2 B1 $ PL X1,S267UF $ SA3 X6 1 457 LX2 42 $ SA7 S1ALOC $ BX6 X2+X3 $ SA6 A3 1 458 SA0 NA $ SB6 NSA 1 459 ZR B0,S1INAL 1 460 S46A SA1 ZN2IND $ SA3 NDIMU INSERT AFTER LAST, IF POSSIBLE. VECTO 1 461 NZ X1,S2OPSC $ SA2 NA 1 462 SX0 B1+B7 $ IX3 X3-X2 $ SX2 B1 $ IX0 X0-X3 1 463 PL X0,S267UF $ SA3 X6 $ NO 1 464 LX2 30 $ SA7 S1ALOC $ BX6 X2+X3 1 465 SA7 S1VLOC $ SA6 A3 1 466 JP S15A 1 467 S267UF RJ GARBAG OUTPUT STORE GETS FULL FOR FIRST TIME. 1 468 + PL X6,S1K2LA NSUM REMEMBERS FILE NAME AT THAT MOMENT 1 469 REW. NTAP4 1 470 + SA1 NS $ SB6 1 1 471 MX0 49 $ LX1 24 $ SX6 B6 $ BX7 -X0*X1 1 472 SA6 NTEMA $ SA7 NSUM ZN2IND NZ MARKS OUTPUT STORE AS FULL. 1 473 SA6 ZN2IND $ MX7 0 $ BX6 -X6*X6 1 474 SA7 S1XR4 $ SA6 NWOC 1 475 ZR B0,S2OPSC 1 476 SCHUI2 BSS 1 1 477 * FORCE WRITING OUT LAST BUFFER. 1 478 MX6 0 $ BX7 -X7*X7 $ SA6 NP 1 479 SA7 ZN2IND $ SX6 10000 1 480 SA6 NA 1 481 S2OPSC SA1 S1XR4 $ SA2 NA 1 482 * BRING NS,NSA INTO TAPE4 BUFFER RATHER THAN TO OUTPUT STORE 1 483 SB6 1 $ SA3 NP WRITE IF NEW TERM WOULD 1 484 SX4 X1-BSIZ2E+10 $ IX5 X2+X3 $ MX0 59 OVFLOW BUFFER 1 485 SA2 NTEMA $ IX4 X5+X4 $ SB4 X1 1 486 NG X4,SU61 $ SA3 NWOC NTEMA=NTEMA+1 1 487 IX6 X2-X0 $ IX7 X1-X0 $ SB2 BUFX+3 TERMINATE RECORD 1 488 SA6 A2 $ SA7 S1XR4 $ MX6 0 WITH A 0 1 489 SB1 NTAP4 $ SA6 B4+B2 $ SB3 A7 1 490 IX7 X3+X7 $ SB4 =0 $ SA7 A3 1 491 SB2 BUFX $ RJ TAKMAN WRITE 1 492 SA2 NP $ SB6 1 1 493 ZR X2,SU67 $ MX7 0 $ SB4 B0 1 494 SU61 SA1 IGET+1 $ SA3 A1+B6 $ SB4 B4+B6 ADD NEW TERM TO BUFFER 1 495 BX7 X1 $ LX6 B0,X3 $ ZR X1,SCHUIF 1 496 SA7 B4+BUFX+2 $ SA6 A7+B6 $ SB1 B6 1 497 SA3 NP $ SA4 NA 1 498 SB5 X3 $ SB4 B4+B6 $ SB7 X4 $ SB4 B4+B5 1 499 SU63 SA1 B1+NS-1 $ BX6 X1 $ SB1 B1+B6 COPY. 1 500 SA6 A6+B6 $ GE B5,B1,SU63 $ SB1 B6 1 501 SU65 SA1 B1+NSA-1 $ BX6 X1 $ SB1 B1+B6 1 502 SA6 A6+B6 $ GE B7,B1,SU65 $ SX7 B4+B7 1 503 SA7 S1XR4 $ SA0 NP 1 504 SB6 NS $ SA1 LEVEL 1 505 SB7 X1 $ GE B0,B7,SCHUIF 1 506 ZR B0,PRESE1 1 507 SU67 SB1 NTAP4 $ SB4 =1 1 508 MX6 0 $ NO $ SA6 NA 1 509 RJ TAKMAN EOF + REWIND 1 510 + ZR B0,SCHUI2 1 511 * GARBAG REMOVES HOLES IN FINAL STORAGE. 1 512 * IF DONE LEAVE WITH X6 POSITIVE. IF NOT WORTHWHILE WITH X6 NEGATIVE 1 513 * LET L BE FRACTION OF HOLES, AND R THE RATIO OF FINAL STORE AND BUFFER 1 514 * SIZE. THAN THE TOTAL NR OF TIMES THAT MOVER MUST BE CALLED IS 1 515 * N = 1 + LOG(1+L*R) / LOG(1+L) 1 516 GARBAG BSS 1 1 517 SA4 NDIMU $ SA2 NDIMT 1 518 SA3 S1RED $ IX4 X4-X2 $ AX4 3 1 519 IX6 X3-X4 $ SB6 1 1 520 SA1 NSUBS $ NG X6,GARBAG 1 521 MX6 0 $ ZR X1,GARBAG COMPUTE NSUBS-S1RED-IT-NDIMT 1 522 SA0 BUFF1 $ SB1 X2+IT IF LESS THAN SIZE1, DO ALL 1 523 SB3 BUFF1+SIZE1 $ SB4 B1+SIZE1-64 AT ONCE 1 524 SB1 B0-B1 $ SB2 B0-B4 $ SX7 X1+B1 $ IX6 X7-X3 1 525 SX6 X6-SIZE1 $ PL X6,GAR1 JP IF BUFFER TOO SMALL 1 526 SB4 X1 $ SB2 B0-B4 DO ALL 1 527 GAR1 SB6 1 $ RJ MOVER B1,B2,B3,B6,A0 MUST BE SET 1 528 + SA1 NSUBS $ SA2 NDIMT 1 529 SB7 B3-377776B $ SB2 X1 $ SB5 A0 COMPUTE FREE SPACE 1 530 SB1 X2+IT+64 $ GE B4,B2,GAR4 ALLOW FOR TAILS OF 64 WORDS 1 531 SX3 B3-B5 $ SX7 B4-B1 $ IX7 X3+X7 $ SB1 B0-B4 1 532 + NG B7,*+1 $ SX7 B4-B5 1 533 + SA3 S1RED $ SX4 B4+SIZE1-64 COMPUTE NR OF WORDS LEFT 1 534 IX5 X1-X3 $ IX6 X5-X4 $ NG X6,GAR3 SEE IF FITS IN FREE 1 535 SB7 X7-64 $ SB4 B4+B7 $ SB2 B0-B4 SPACE. IF YES TO GAR3 1 536 ZR B0,GAR1 1 537 GAR3 SB4 B2 $ SB2 B0-B2 $ ZR B0,GAR1 YES 1 538 GAR4 SB1 BUFF1 $ PL B7,GAR5 ALL DONE. MOVE BUFFER BACK 1 539 SA0 X2+IT $ SB3 377777B 1 540 GAR5 SB2 BUFF1+SIZE1 $ SB1 B0-B1 $ SB2 B0-B2 1 541 RJ MOVER 1 542 + SA1 NSUBS $ SA2 S1RED A0 CONTAINS NEW NSUBS 1 543 SX6 A0 $ IX3 X1-X2 $ SA6 A1 $ IX7 X3-X6 SEE IF CHECKS 1 544 SA7 A2 $ NZ X7,GFO1 1 545 MX6 0 $ BX7 -X7*X7 $ SA6 BUFF1 1 546 SB7 SIZE1-2 $ SB5 B6+B6 $ SA7 A6+B6 RESET BUFFER TO 0 1 547 + SA6 A6+B5 $ SB7 B7-B5 $ NO $ SA7 A7+B5 1 548 + LT B0,B7,*-1 $ ZR B0,GARBAG 1 549 * MOVER MOVES ALL INBETWEEN -B1 AND -B2 TO A0. IF A0 WOULD BECOME 1 550 * LARGER THAN B3 SET A0 TO NU. B6=1 ASSUMED. 1 551 * B4 REMEMBERS HIGHEST REMOVED+1 1 552 MOVER BSS 1 X0 PREVIOUS VECTOR 1 553 SA1 JEERST $ SX0 A1 $ BX6 X1 X1 NEXT VECTOR 1 554 LX6 30 $ ZR X1,MOVER $ SA6 A1 X2 PREVIOUS ALGEBRA 1 555 MOV0 SX6 X1+B1 $ SX7 X1+B2 $ BX6 -X6*X7 $ SA4 X1 X3 NEXT ALGEBRA 1 556 NG X6,MOV3 $ SX3 X4 $ MX2 0 NEXT VECTOR 1 557 LX4 30 $ SX0 A4 $ SX1 X4 1 558 MOV1 SX6 X3+B1 $ SX7 X3+B2 $ BX6 -X6*X7 $ SA3 X3 1 559 NG X6,MOV6 $ SX2 A3 $ LX3 18 NEXT ALGEBRA 1 560 NZ X2,MOV1 $ NZ X1,MOV0 1 561 MOV2 SA1 JEERST $ BX6 X1 $ AX6 30 EXIT 1 562 SA6 A1 $ ZR B0,MOVER 1 563 MOV3 SA5 X0 $ MX7 30 $ SX6 A0 $ BX5 -X7*X5 MOVE VECTOR 1 564 LX6 30 $ BX7 X6+X5 $ SA7 A5 $ SA5 A4+B6 INSERT ADDRESS 1 565 BX6 X4 $ LX3 B6,X5 $ AX3 49 $ LX7 B0,X5 IN PREVIOUS 1 566 SB7 X3 $ SA6 A0 $ SB5 A0+B7 $ SA0 B5+B6 1 567 SA7 A6+B6 $ MX2 0 $ SX3 X6 $ LX6 30 1 568 SB6 B0-B6 $ GE B5,B3,MOV11 $ SB6 B0-B6 CHECK IF A0 GE B3 1 569 + SB5 A5+B7 $ LT B5,B4,*+1 $ SB4 B5 1 570 + SX0 A6 $ SX1 X6 $ GE B6,B7,MOV1 1 571 + SA5 A5+B6 $ SB7 B7-B6 $ BX7 X5 $ SA7 A7+B6 1 572 + LT B6,B7,*-1 $ ZR B0,MOV1 1 573 MOV6 NZ X2,MOV7 $ SA5 X0 $ MX7 30 1 574 SX6 A0 $ BX5 X7*X5 $ BX7 X6+X5 $ SA7 A5 1 575 ZR B0,MOV8 1 576 MOV7 SA5 X2 $ MX7 42 $ SX6 A0 $ LX5 18 INSERT ADDRESS IN PREVIOUS 1 577 BX5 X7*X5 $ BX6 X5+X6 $ LX6 42 $ SA6 A5 ALGEBRA 1 578 MOV8 SA4 A3+B6 $ SA5 A4+B6 $ BX6 X3 $ LX7 B6,X5 1 579 AX7 49 $ SB7 X7 $ SA6 A0 $ LX7 B0,X4 1 580 SA7 A0+B6 $ SB5 A7+B7 $ BX7 X5 $ SA0 B5+B6 1 581 GE B5,B3,MOV11 $ SB5 A5+B7 1 582 + LT B5,B4,*+1 $ SB4 B5 1 583 + LX3 18 $ MX4 42 $ SX2 A6 $ BX3 -X4*X3 1 584 + SA7 A7+B6 $ SB7 B7-B6 $ SA5 A5+B6 $ BX7 X5 1 585 + GE B7,B6,*-1 $ NZ X3,MOV1 1 586 NZ X1,MOV0 $ ZR B0,MOV2 1 587 MOV11 SA5 NDIMT $ SB3 377777B 1 588 SA0 X5+IT $ PL B6,MOV6 1 589 SB6 1 $ ZR B0,MOV3 1 590 ENDM 1 591 DEF *INNAM 1 592 INNAM BSS 1 1 593 SA1 NVIND $ SA2 CRIND 1 594 + BX6 X1 $ IX0 X1-X2 $ PL X0,*+2 1 595 + BX6 X2 $ NO $ SA6 A1 $ NO 1 596 + SB6 1 $ SB1 X6 $ NO 1 597 SB2 B6 $ SB3 B6 $ MX0 30 $ SB7 B0-B6 B1=NVIND, B7=-1 1 598 SYF3 SA1 B2+NVIGEH-1 $ LT B1,B2,INNAM B2=COUNT,B3=CHAR 1 599 BX2 X0*X1 $ SB2 B2+B6 $ NZ X2,SYF3 FILL UP EMPTY NAMES 1 600 SYF4 SX2 B3 $ SB3 B3+B6 $ SX6 NN0 CONSTRUCT NAME CREATED DUMMY 1 601 MX3 53 $ BX5 -X3*X2 $ AX2 7 $ IX6 X6-X2 FROM B3 1 602 SB4 4 $ RJ NUTRA0 1 603 + BX7 X5+X6 $ SB7 B0-B6 $ LX7 54 1 604 SYF5 NG B4,SYF7 $ SA2 B4+MREF 1 605 SA5 X2 $ SB4 B4-B6 $ AX2 30 $ SA2 X2 1 606 SYF6 SX5 X5+B7 $ BX6 X0*X2 $ NG X5,SYF5 1 607 IX3 X6-X7 $ SA2 A2+B6 $ NZ X3,SYF6 1 608 ZR B0,SYF4 1 609 SYF7 BX7 X1+X7 $ SA7 A1 $ ZR B0,SYF3 1 610 ENDM 1 611 DEF *TRANS 1 612 + SA1 X4+NVIGEH-1 $ JP TRANSL1 INDEX 0 1 613 + SA1 X4+NVGEH-1 $ JP TRAN1SL VECTOR 0010 1 614 + SA1 X4+B6 $ AX7 12 $ ZR B0,T1OPER 1 615 + SA1 X4+NAGEH-1 $ JP TRANSL1 ALGEBRA 010* 1 616 + SX6 DO0 $ ZR B0,T1EXPR EXPRESSION 1 617 + SA1 X4+NFGEH-1 $ JP TRANSL1 FUNCTION 0110 1 618 + LX4 52 $ AX4 52 $ JP T1NUMB NUMBER 0111 1 619 S1BEC ZR B0,T1VENR VECTOR, FIXED INDEX. 1 620 + SX4 X4+400B $ JP S1BEC ,, 1 621 + SX4 X4+1000B $ JP S1BEC ,, 1 622 + SX4 X4+1400B $ JP S1BEC ,, 1 623 S2BEC BX1 -X0*X4 $ AX4 5 $ JP T1DOPR DOTPRODUCT 11** 1 624 * RESTORE X4=10 BITS(VECT,NR) RATHER THAN USING 8 BITS OF TAIL. 1 625 + SX4 X4+400B $ JP S2BEC ,, 1 626 + SX4 X4+1000B $ JP S2BEC ,, 1 627 + SX4 X4+1400B $ JP S2BEC ,, 1 628 T1OPER SX6 X4-27B $ NG X6,*+2 1 629 + SA1 KOHER+24B $ ZR B0,TRANSL1 1 630 + SB6 X1 $ JP B6+0 1 631 CHARF1 BSSZ 1 FLAG FOR =C 1 632 T1CHA SA7 CHARF1 $ ZR B0,TRANSL1 1 633 T1NUMB SA3 CHARF1 $ ZR X3,*+3 1 634 + MX7 0 $ BX1 X4 $ LX1 54 $ SA7 A3 1 635 + MX7 42 $ ZR B0,TRANSL1 $ NO 1 636 + BX1 X4 $ PL X4,*+1 $ BX1 -X4 1 637 + BX5 X1 $ BX6 X4 $ RJ NUTRA0 1 638 BX1 X5 $ BX4 X6 $ SB7 7 1 639 MX7 30 $ ZR B0,TRANSL1 1 640 T1EXPR SA1 NXEX $ IX5 X1-X4 $ MX7 30 1 641 SA1 X4+NXGEH-1 $ PL X5,TRANSL1 1 642 + LX6 54 $ BX5 X4 $ RJ NUTRA0 1 643 LX5 54 $ MX7 30 $ BX1 X5+X6 $ NO 1 644 SB7 5 $ ZR B0,TRANSL1 1 645 + BX4 X1 $ SB7 B0 $ ZR B0,S1BEB 1 646 T1VENR SX6 X4-400B $ SX7 X4-1000B DO NOT MOVE T1VENR 1 647 SX1 47B $ LX1 54 $ NO * FOR 4400B 1 648 ZR X6,TRANSL1 $ SX1 50B / FOR 5000B 1 649 LX1 54 $ ZR X7,TRANSL1 1 650 BX1 -X0*X4 $ AX4 5 $ BX6 X4 $ AX6 1 1 651 ZR X6,T1VENR-1 $ BX5 X1 $ BX6 X4 JP TO T1VENR-1 1 652 SB6 B7 $ RJ NUTRA0 1 653 BX1 X5 $ SA4 X6+NVGEH-1 $ SB7 B6 1 654 MX7 30 $ SB6 36 $ MX0 6 1 655 BX4 X7*X4 $ AX7 6 $ LX4 6 $ BX6 X0*X4 1 656 + ZR X6,*+2 $ LX4 6 $ NO 1 657 + SB6 30 $ NO $ NO 1 658 + LX4 12 $ SX6 5100B $ LX1 6 ( 1 659 + BX4 X4+X6 $ BX6 X0*X1 $ ZR X6,*+2 1 660 + LX1 6 $ SB6 B6-6 $ LX4 6 1 661 + BX4 X1+X4 $ SX6 52B $ LX4 6 ) 1 662 BX4 X6+X4 $ LX1 B6,X4 $ JP TRANSL1 1 663 T1DOPR SA4 X4+NVGEH-1 $ SA1 X1+NVGEH-1 CONSTRUCT PDQ 1 664 SB6 42 $ BX4 X7*X4 $ MX0 6 1 665 BX1 X7*X1 $ LX4 6 $ BX6 X0*X4 $ AX7 6 1 666 + ZR X6,*+2 $ LX4 6 $ NO 1 667 + SB6 36 $ NO $ NO 1 668 + LX4 12 $ SX6 0400B $ LX1 6 D 1 669 + BX4 X4+X6 $ BX6 X0*X1 $ ZR X6,*+2 1 670 + LX1 6 $ SB6 B6-6 $ LX4 6 1 671 + BX4 X1+X4 $ LX1 B6,X4 $ JP TRANSL1 1 672 HU6 DIS 1, 1 673 HU6A DIS 2,XPR KEY 1 674 VFD 6/53B,36/0,18/TRANSL1 DOLLAR 1 675 KOHER VFD 18/3HKEY,24/0,18/TRANSL1 1401 KEY 1 676 VFD 24/4HSKEY,18/0,18/TRANSL1 1402 SUPERKEY 1 677 VFD 24/4HP(3),18/0,18/TRANSL1 1403 P(3) 1 678 VFD 12/2H[],30/0,18/TRANSL1 1404 [] FOR COMPO 1 679 VFD 12/2HXX,30/0,18/TRANSL1 1405 RESERVED 1 680 VFD 18/3H-XX,24/0,18/TRANSL1 1406 -RESERVED 1 681 VFD 6/1H-,36/0,18/TRANSL1 1407 - 1 682 VFD 36/6HCONJG*,6/0,18/TRANSL1 1410 CONJG*EXPR 1 683 VFD 42/7H-CONJG*,18/TRANSL1 1411 -CONJG*EXPR 1 684 VFD 36/6HINTEG*,6/0,18/TRANSL1 1412 INTEG*EXPR 1 685 VFD 42/7H-INTEG*,18/TRANSL1 1413 -INTEG*EXPR 1 686 VFD 30/5HTABLE,12/0,18/TRANSL1 1414 TABLE 1 687 VFD 36/6H-TABLE,6/0,18/TRANSL1 1415 -TABLE 1 688 VFD 30/5HTAEND,12/0,18/TRANSL1 1416 END TABLE 1 689 VFD 30/5HRQKEY,12/0,18/TRANSL1 1417 REQ KEY 1 690 VFD 36/6HCONJG(,6/0,18/TRANSL1 1420 CONJG( 1 691 VFD 6/1H),36/0,18/TRANSL1 1421 ) 1 692 VFD 30/5HREDUC,12/0,18/TRANSL1 1422 REDUCE 1 693 VFD 30/5HTRACE,12/0,18/TRANSL1 1423 TRACE 1 694 VFD 24/4HPASS,18/0,18/TRANSL1 1424 PASS 1 695 VFD 30/5HERROR,12/0,18/TRANSL1 1425 ERROR 1 696 VFD 6/1H=,36/0,18/T1CHA 1426 =CHARACTER 1 697 ENDM 1 698 END 2 0 SUBROUTINE DUMP1 2 1 MACRO CBLANK 2 2 RECOV=1 2 3 CALL OVERLAY ( 5HSCHIP,4,0 ) 2 4 KRACK=NCONT(1000000) 2 5 READ 1,KRACK 2 6 1 FORMAT(8A10) 2 7 RETURN 2 8 C THE FOLLOWING READ AND FORMAT STATEMENTS ARE DUMMY STATEMENTS 2 9 C TO FORCE KRAKER= AND INPC= IN THE MAIN OVERLAY. MOREOVER THEY 2 10 C CAN NEVER GET EXECUTED. 2 11 END 3 0 SUBROUTINE MANAG 3 1 MACRO CBLANK 3 2 MACRO CEXPRNR 3 3 MACRO CSTOREF 3 4 REAL NTIME 3 5 INTEGER STARBEG,STAREND,STARNEX,STARYEP,STARFIX,PAS 3 6 INTEGER YTERM,YEPFLAG,DOVLAG,TAPUSE 3 7 DIMENSION MSG3(5) 3 8 EQUIVALENCE ( IBUF(21),NERROR),(IBUF(24),NRERR) 3 9 DATA STARBEG,STAREND,STARNEX,STARYEP,STARFIX /1,2,3,4,5 / 3 10 DATA ( MSG3(L1),L1=1,5 ) / 10H0TERMS OUT,10H ,TERMS IN, 3 11 1 10H0END OF RU,10HN. TIME ,9L SECONDS / 3 12 DATA ER101/10H(NR 101)/ 3 13 CALL SETZ 3 14 LAY1(2)=1 3 15 C START READING INPUT 3 16 10 CALL OVERLAY ( 5HSCHIP,1,0) 3 17 C * END SEEN WHILE SKIPPING INPUT CARDS AFTER ERROR. 3 18 IF ( LAY1(1) ) 9,112,9 3 19 112 IF ( MFOUT ) 101,102,101 3 20 101 LAY1(1)=-1 3 21 C ERROR RECOVERY 3 22 107 CALL OVERLAY ( 5HSCHIP,4,0) 3 23 C ERROR OCCURED IN THE LAST PROBLEM. 3 24 4 IF(DOVLAG) 9,5,9 3 25 5 IF(TAPUSE) 9,3,9 3 26 3 IF(NSPEC-STAREND) 10,9,10 3 27 102 LAY1(1)=0 3 28 PAS=1 3 29 LAY4(1)=NCONT(6) 3 30 LAY4(2)=NCONT(11) 3 31 C PRINT NAMELISTS AND CINPUT 3 32 22 II=LAY4(1)+LAY4(2) 3 33 IF ( II ) 27,71,27 3 34 27 CALL OVERLAY ( 5HSCHIP,4,0) 3 35 71 IF(NREP) 17,26,17 3 36 17 NREP=0 3 37 C NREP NZ WHEN R INPUT WAS READ AND WRITTEN ON TAPE6. PROCESSED AS IN 3 38 C * YEP CASE, I.E. NSL NZ. 3 39 NNOTI=NTEM 3 40 IF ( NSPEC-STARYEP ) 10,31,10 3 41 31 YEPFLAG=1 3 42 LAY2(1)=-1 3 43 CALL STATS 3 44 GO TO 10 3 45 26 IF ( NSPEC-STARFIX ) 18,10,18 3 46 18 IF ( YEPFLAG ) 40,20,40 3 47 20 LAY2(1)=0 3 48 C CALL TO GLADYS 3 49 CALL OVERLAY ( 5HSCHIP,2,0) 3 50 IF ( MFOUT ) 107,78,107 3 51 40 CALL TAFMAN ( NTAP6,Z,Z,REWIND0 ) 3 52 C CALL TO REPEAT. READS FROM TAPE6. CASE OF * YEP OR R INPUT. 3 53 CALL OVERLAY ( 5HSCHIP,2,0) 3 54 IF (MFOUT) 107,108,107 3 55 108 IF ( NCONT(9) ) 1,2,1 3 56 1 IBUF(1)=NTAP2 3 57 IBUF(2)=0 3 58 IBUF(3)=0 3 59 IBUF(4)=4 3 60 IBUF(6)=MSG3(1) 3 61 IBUF(7)=KVTIN(NNOTI) 3 62 IBUF(8)=MSG3(2) 3 63 IBUF(9)=KVTIN(YTERM) 3 64 CALL LIJN 3 65 2 IF(NNOTI-YTERM) 69,78,69 3 66 69 NERROR=101 3 67 C YEP COUNT UNCHECK 3 68 75 MFOUT=1 3 69 GO TO 107 3 70 NRERR=ER101 3 71 78 IF ( NSPEC-STARYEP ) 25,24,25 3 72 24 CALL TAFMAN ( NTAP6,Z,Z,REWIND0 ) 3 73 YEPFLAG=1 3 74 LAY2(1)=1 3 75 IF(NVRA-1) 50,50,70 3 76 50 NCONT(2)=0 3 77 GO TO 70 3 78 25 YEPFLAG=0 3 79 70 CALL STATS 3 80 PAS=-1 3 81 LAY4(1)=NCONT(7) 3 82 LAY4(2)=NCONT(11) 3 83 IF ( NAMES ) 111,122,111 3 84 122 LAY4(2)=0 3 85 111 II=LAY4(1)+LAY4(2) 3 86 NAMES=0 3 87 IF ( II ) 125,124,125 3 88 125 CALL OVERLAY ( 5HSCHIP,4,0) 3 89 124 CALL OVERLAY ( 5HSCHIP,3,0) 3 90 NNOTI=NTEM-NZELF-NWEG 3 91 IF ( MFOUT ) 107,109,107 3 92 109 IF ( NCONT(10) ) 113,114,113 3 93 113 PAS=-1 3 94 LAY4(1)=1 3 95 CALL OVERLAY( 5HSCHIP,4,0) 3 96 114 IF ( NSPEC-STAREND ) 10,9,10 3 97 9 CALL SECOND(NTIME) 3 98 IBUF(1)=NTAP2 3 99 IBUF(2)=0 3 100 IBUF(3)=0 3 101 IBUF(4)=4 3 102 IBUF(6)=MSG3(3) 3 103 IBUF(7)=MSG3(4) 3 104 IBUF(8)=KVTFL(NTIME) 3 105 IBUF(9)=MSG3(5) 3 106 CALL LIJN 3 107 IF(TAPUSE-70000B) 7,8,8 3 108 8 DO 11 L1=1,50 3 109 11 CALL LIJN 3 110 L2=300000 3 111 MSG3(L2)=0 3 112 7 STOP 3 113 END 4 0 SUBROUTINE LIJN(DUMXX) 4 1 MACRO CBLANK 4 2 C IBUF(1)=NTAPX , IBUF(3)=BEGIN , IBUF(4)=END 4 3 C IBUF(5)=BLANK , IBUF(6) TO IBUF(18)=BUFFER. 4 4 C IBUF(19) TO IBUF(36) IS A SECOND BUFFER ( CALLED IPUNCH ) FOR 4 5 C WRITING ERROR MESSAGES AND PUNCH CARD OUTPUT AND PRINT BRACKETS 4 6 NTAPX=IBUF(1) 4 7 IF(NTUSR(NTAPX)) 2,1,2 4 8 1 CALL NTUSE(NTAPX) 4 9 REWIND NTAPX 4 10 2 I1=IBUF(3)+6 4 11 I2=IBUF(4)+5 4 12 IPAD=IBUF(I2) 4 13 CALL PAD55 4 14 CALL OUTBCD(NTAPX,IBUF(I1),0,I2-I1+1) 4 15 IBUF(I2)=IPAD 4 16 RETURN 4 17 END 5 0 SUBROUTINE OUTBCD(NT,IB,K,IN) 5 1 DIMENSION IB(80) 5 2 WRITE (NT,1) (IB(L1),L1=1,IN) 5 3 1 FORMAT(13A10) 5 4 RETURN 5 5 END 6 0 SUBROUTINE TAFMAN(NTB,LOC,NWOR,I8) 6 1 MACRO CBLANK 6 2 DIMENSION NRE(10),LOC(3),MEM(10) 6 3 EQUIVALENCE ( IBUF(21),NERROR) 6 4 EXTERNAL GETAHS 6 5 DATA (NRE(L1),L1=1,10)/10*0/ 6 6 DATA (MEM(L1),L1=1,10)/10*0/ 6 7 C LOC(1)=TAPE AND RECORD NUMBER. IS SET TO ZERO IF RECORD IS NOT READ 6 8 C IN ENTIRELY. THIS FORCES A NEW READ OF THE RECORD LATER. 6 9 C LOC(2)=LENGTH IN WORDS OF RECORD. 6 10 C LOC(3)=CHECKWORD 6 11 C MEANING OF THE I8 PARAMETER IS.. 6 12 C -3=EOF, -2=REWIND,-1=READ, 0=WRITE, 1=EOF+REW, 6+K=READ RECORD K 6 13 C NRE(NTA)=NR OF RECORD LAST READ OR WRITTEN 6 14 C -4 = GIVE NR OF NEXT RECORD TO BE WRITTEN OR READ INTO NWOR. 6 15 C -5 = REWIND, END OF FILE, REWIND 6 16 C 2= SEARCH RECORD WITH FIRST WORD AS IN NWOR. NWOR IS SUPPOSEDLY 6 17 C CONTAINING 30 BIT NAME FOLLOWED BY A 12 BIT NUMBER. 6 18 C THE RECORD NUMBER IS RETURNED IN LOC(1) 6 19 NTA=NTB 6 20 I9=I8+4 6 21 IF(NTUSR(NTA)) 91,90,91 6 22 90 IF(I9-2) 92,6,92 6 23 92 CALL NTUSE(NTA) 6 24 REWIND NTA 6 25 NRE(NTA)=0 6 26 MEM(NTA)=0 6 27 91 IF(10-I9) 12,11,11 6 28 11 IF(I9-2) 40,2,5 6 29 5 IF(I9-4) 3,4,1 6 30 40 IF(I9) 2,41,1 6 31 41 NWOR=MEM(NTA) 6 32 IF(NWOR) 42,42,43 6 33 42 NWOR=NRE(NTA) 6 34 43 NWOR=NWOR+1 6 35 RETURN 6 36 C I9=1=EOF, 2=REW, 3=READ, 4=WRITE, 5=EOF+REW 6 37 1 IF(I9-6) 54,45,54 6 38 54 L2=MEM(NTA) 6 39 MEM(NTA)=0 6 40 CALL POSIT(NTA,L2,NRE(NTA)) 6 41 END FILE NTA 6 42 NRE(NTA)=NRE(NTA)+1000000 6 43 IF(I9-5) 6,2,6 6 44 2 MEM(NTA)=0 6 45 NRE(NTA)=0 6 46 REWIND NTA 6 47 REWIND NTA 6 48 IF(I9+1) 6,44,6 6 49 44 I9=5 6 50 GO TO 1 6 51 45 NWIS=NWOR 6 52 C SEARCH RECORD WITH GIVEN FILENAME. 6 53 IF(MEM(NTA)) 46,47,46 6 54 47 MEM(NTA)=NRE(NTA) 6 55 46 LIM=MEM(NTA) 6 56 NACT=NRE(NTA) 6 57 MES=10 6 58 51 IF(NACT-LIM) 48,49,49 6 59 49 REWIND NTA 6 60 NACT=0 6 61 IF(MES) 50,53,50 6 62 50 MES=MES-1 6 63 48 MRE=0 6 64 READ (NTA) MRE,NWOR1,MCH,NSEA 6 65 IF ( MRE ) 53,53,70 6 66 70 MRE1=MRE-1000000B*NTA 6 67 NACT=MRE 6 68 IF ( MRE1 ) 10,9,9 6 69 9 NACT=MRE1 6 70 10 L7=KETAHS(NSEA,NWIS) 6 71 IF(L7) 51,52,49 6 72 52 LOC(1)=NACT 6 73 NRE(NTA)=NACT 6 74 RETURN 6 75 53 NERROR=102 6 76 C FROZEN SUBFILE MISSING 6 77 CALL FOUTB 6 78 6 RETURN 6 79 3 L2=MEM(NTA) 6 80 C READ NEXT RECORD. I8=-1. I9=3 6 81 MEM(NTA)=0 6 82 MRE1=NRE(NTA)+1+1000000B*NTA 6 83 IF ( MRE1 - LOC(1) ) 16,61,16 6 84 61 NCH=0 6 85 NWOR1=LOC(2) 6 86 DO 62 I9=4,NWOR1 6 87 62 NCH=NCH+LOC(I9) 6 88 IF ( NCH- LOC(3) ) 16,6,16 6 89 16 CALL POSIT(NTA,L2,NRE(NTA)) 6 90 15 MES=10 6 91 NRE(NTA)=NRE(NTA)+1 6 92 19 MES=MES-1 6 93 MRE=0 6 94 READ (NTA) MRE,NWOR1,MCH,(LOC(L2),L2=4,NWOR1) 6 95 LOC(1)=MRE 6 96 LOC(2)=NWOR1 6 97 LOC(3)=MCH 6 98 NWOR=NWOR1-3 6 99 C THE CHECK ON MRE=0 AFTER EACH READ SIMULATES AN EOF TEST. 6 100 IF ( MRE ) 24,24,71 6 101 71 MRE1=MRE-1000000B*NTA 6 102 IF(IABS(MRE1)-777700B) 80,80,81 6 103 81 IF(NTA-4) 80,83,80 6 104 83 MRE1=MRE-5000000B 6 105 C ALLOW COMMON TAPE (WRITTEN BY TAPE5) TO BE READ BY TAPE4. 6 106 80 IF(MRE1) 7,8,8 6 107 8 MRE=MRE1 6 108 7 IF(MRE-NRE(NTA)) 20,21,22 6 109 22 BACKSPACE NTA 6 110 23 BACKSPACE NTA 6 111 20 IF(MES) 24,19,19 6 112 24 NERROR=103 6 113 C TAPE TROUBLE OR END OF FILE READ 6 114 CALL FOUTB 6 115 RETURN 6 116 21 NCH=0 6 117 DO 25 L2=4,NWOR1 6 118 25 NCH=NCH+LOC(L2) 6 119 IF(NCH-MCH) 23,6,23 6 120 C WRITE. I8=0. I9=4 6 121 4 MCH=0 6 122 NWOR1=NWOR+3 6 123 C CONSTRUCTION OF CHECKWORD. INTEGER ADDITION GENERATES IX1 X2+X3 , 6 124 C WHICH CANNOT LEAD TO OVERFLOW. 6 125 DO 26 L2=4,NWOR1 6 126 26 MCH=MCH+LOC(L2) 6 127 L2=MEM(NTA) 6 128 MEM(NTA)=0 6 129 CALL POSIT(NTA,L2,NRE(NTA)) 6 130 MRE=NRE(NTA)+1 6 131 NRE(NTA)=MRE 6 132 LOC(1)=MRE+1000000B*NTA 6 133 LOC(2)=NWOR1 6 134 LOC(3)=MCH 6 135 WRITE (NTA) (LOC(L2),L2=1,NWOR1) 6 136 NQ1=NQ1+1 6 137 RETURN 6 138 C READ RECORD NUMBER I8-6 . 6 139 12 L2=I8-7 6 140 IF ( L2+1 + 1000000B*NTA - LOC(1) ) 33,63,33 6 141 63 NCH=0 6 142 NWOR1=LOC(2) 6 143 DO 64 I9=4,NWOR1 6 144 64 NCH=NCH+LOC(I9) 6 145 IF ( NCH- LOC(3) ) 33,6,33 6 146 33 IF(MEM(NTA)) 29,27,29 6 147 27 MEM(NTA)=NRE(NTA) 6 148 IF(MEM(NTA)) 29,31,29 6 149 31 MEM(NTA)=-1 6 150 29 IF(L2) 30,30,16 6 151 30 REWIND NTA 6 152 NRE(NTA)=0 6 153 GO TO 15 6 154 END 7 0 SUBROUTINE POSIT(NTB,L1,NREA) 7 1 MACRO CBLANK 7 2 EQUIVALENCE ( IBUF(21),NERROR) 7 3 NTA=NTB 7 4 L2=L1 7 5 IF(L2) 4,1,2 7 6 4 NREA=0 7 7 REWIND NTA 7 8 1 RETURN 7 9 2 IF(L2-NREA) 3,1,5 7 10 3 NREA=L2 7 11 REWIND NTA 7 12 GO TO 9 7 13 5 NREA=L2 7 14 9 MES=10 7 15 6 MRE=0 7 16 READ (NTA) MRE 7 17 IF ( MRE ) 8,8,12 7 18 12 MRE1=MRE-1000000B*NTA 7 19 IF(IABS(MRE1)-777700B) 80,80,81 7 20 81 IF(NTA-4) 80,83,80 7 21 83 MRE1=MRE-5000000B 7 22 C ALLOW COMMON TAPE (WRITTEN BY TAPE5) TO BE READ BY TAPE4. 7 23 80 IF(MRE1) 11,10,10 7 24 10 MRE=MRE1 7 25 11 IF(MRE-L2) 6,1,7 7 26 7 REWIND NTA 7 27 MES=MES-1 7 28 IF(MES) 8,6,6 7 29 8 NERROR=104 7 30 C TAPE POSITIONING ERROR 7 31 CALL FOUTB 7 32 RETURN 7 33 END 8 0 SUBROUTINE STATS(DUMXX) 8 1 MACRO CBLANK 8 2 MACRO CEXPRNR 8 3 MACRO CSTOREF 8 4 REAL NTIME,KTIME 8 5 DIMENSION M1(4),M2(2),M3(4),M4(4),M5(4),M6(4),M7(4) 8 6 DATA MAXI1,MAXI2/500,750/ 8 7 DATA(M1(I),I=1,4)/10H0RUNNING T,10HIME (SEC) ,10H USED, 8 8 1 10H MAXIMUM/ 8 9 DATA(M2(I),I=1,2)/10H TERMS IN ,10HOUTPUT / 8 10 DATA(M3(I),I=1,4)/10H GENERATED,10H TERMS ,10H IN, 8 11 1 10HPUT SPACE / 8 12 DATA(M4(I),I=1,4)/10H EQUAL TER,10HMS ,10H OU, 8 13 1 10HTPUT SPACE/ 8 14 DATA(M5(I),I=1,4)/10H CANCELLAT,10HIONS ,10H NR, 8 15 1 10H. OF EXPR./ 8 16 DATA(M6(I),I=1,4)/10H RECORDS W,10HRITTEN ,10H ID, 8 17 1 10H. REGISTER/ 8 18 DATA(M7(I),I=1,4)/10H MULTIPLIC,10HATIONS ,10H FU, 8 19 1 10HNCT. REG. / 8 20 IF(NCONT(9)) 3,4,3 8 21 3 CALL SECOND(KTIME) 8 22 KTIME=KTIME-NTIME 8 23 IF(NSUBS) 6,6,7 8 24 6 NNSUBS = 0 8 25 GO TO 8 8 26 7 NNSUBS = NSUBS - NDIMT 8 27 8 NNDIMU = NDIMU - NDIMT 8 28 NOUT=NTEM-NZELF-NWEG 8 29 IF(MMBE-MBE) 2,5,5 8 30 2 MMBE=MBE 8 31 5 IBUF(1)=NTAP2 8 32 IBUF(2)=0 8 33 IBUF(3)=0 8 34 IBUF(4)=7 8 35 IBUF(6)=M1(1) 8 36 IBUF(7)=M1(2) 8 37 IBUF(8)=KVTFL(KTIME) 8 38 IBUF(9)=IBUF(5) 8 39 IBUF(10)=IBUF(5) 8 40 IBUF(11)=M1(3) 8 41 IBUF(12)=M1(4) 8 42 CALL LIJN 8 43 IBUF(6)=M2(1) 8 44 IBUF(7)=M2(2) 8 45 IBUF(8)=KVTIN(NOUT) 8 46 IBUF(4)=3 8 47 CALL LIJN 8 48 IBUF(4)=7 8 49 IBUF(6)=M3(1) 8 50 IBUF(7)=M3(2) 8 51 IBUF(8)=KVTIN(NTEM) 8 52 IBUF(9)=M3(3) 8 53 IBUF(10)=M3(4) 8 54 NN=MMBE-MTAB(1)+1 8 55 IBUF(11)=KVTIN(NN) 8 56 NN=NDIMT-MTAB(1)+1 8 57 IBUF(12)=KVTIN(NN) 8 58 CALL LIJN 8 59 IBUF(6)=M4(1) 8 60 IBUF(7)=M4(2) 8 61 IBUF(8)=KVTIN(NZELF) 8 62 IBUF(9)=M4(3) 8 63 IBUF(10)=M4(4) 8 64 IBUF(11)=KVTIN(NNSUBS) 8 65 IBUF(12)=KVTIN(NNDIMU) 8 66 CALL LIJN 8 67 IBUF(6)=M5(1) 8 68 IBUF(7)=M5(2) 8 69 IBUF(8)=KVTIN(NWEG) 8 70 IBUF(9)=M5(3) 8 71 IBUF(10)=M5(4) 8 72 IBUF(11)=KVTIN(MMBU) 8 73 IBUF(12)=KVTIN(NANU) 8 74 CALL LIJN 8 75 IBUF(6)=M6(1) 8 76 IBUF(7)=M6(2) 8 77 IBUF(8)=KVTIN(NQ1) 8 78 IBUF(9)=M6(3) 8 79 IBUF(10)=M6(4) 8 80 IBUF(11)=KVTIN(IDAAN) 8 81 IBUF(12)=KVTIN(MAXI1) 8 82 CALL LIJN 8 83 IBUF(6)=M7(1) 8 84 IBUF(7)=M7(2) 8 85 IBUF(8)=KVTIN(NMULT) 8 86 IBUF(9)=M7(3) 8 87 IBUF(10)=M7(4) 8 88 IBUF(11)=KVTIN(MNEPS) 8 89 IBUF(12)=KVTIN(MAXI2) 8 90 CALL LIJN 8 91 IBUF(3)=-1 8 92 IBUF(4)=0 8 93 CALL LIJN 8 94 4 RETURN 8 95 END 9 0 IDENT LOVBUG 9 1 ENTRY LOOK,FOUT,OCTAL1,KVTFL,KVTIN,TAKMAN,NUM1 9 2 ENTRY REGPR,KETAHS,FOUTB,FOUTC,BUGST1,LOOKF,CVTFI 9 3 ENTRY ADRS1,OCT60,SAVE1,ITOUT,BBUFX,PAD55,NTUSE,NTUSR,TAXMAN 9 4 MACRO *EXPAND 9 5 MACRO *EXPRNR 9 6 IPUNCH EQU IBUF+18 9 7 EXT LIJN,TAFMAN 9 8 LOOKF BSS 1 ROUTINE TO ALLOW USE OF LOOK AND PRINT IN FTN 9 9 VFD 12/0100B,18/LOOK,6/0,24/4HFTN 9 10 ZR B0,LOOKF 9 11 DIS 1,LOVBUG 9 12 LOOK BSS 1 DEBUGGING HELP 9 13 RJ BUGST1 GO STORE REGISTERS 9 14 + SA1 LOOK $ BX6 X1 $ AX6 30 9 15 SA2 X6-1 $ MX0 30 $ BX2 -X0*X2 9 16 LX2 30 $ BX6 X6+X2 $ SA6 NAGEH+253 9 17 SB6 1 $ SB2 -17 9 18 SA1 IBUF $ SX6 2 DUMP ON OUTPUT=TAPE2 9 19 BX7 X1 $ SA6 A1 $ SA7 SAVE1 STORE IBUF IN SAVE 9 20 + SA1 A1+B6 $ BX7 X1 $ SB2 B2+B6 $ SA7 A7+B6 9 21 + NG B2,*-1 $ MX6 0 $ NO 9 22 SA6 A6+2 $ RJ REGPR 9 23 + SA2 LOOD1 $ NO $ MX2 0 TO BE PRINTED CARDS THAT 9 24 LOO1 SA1 LOOK $ SB6 1 FOLLOW CALL INSTRUCTION WITH FORMAT 9 25 AX1 30 $ SB1 X2 $ MX0 6 $ SA3 X1+B1 6/0,24/4HABCD,11/N, 9 26 SX6 B1+B6 $ BX4 X0*X3 $ SA6 A2 1/T,18/XXXX DUMP ABCD 9 27 NZ X4,LOO2 $ NO $ NO FROM XXXX TO XXXX+N-1 9 28 BX7 X3 $ LX3 41 $ MX0 49 $ NO IF T=1, INTERPRET 9 29 BX6 -X0*X3 $ LX3 18 $ SA7 NAGEH+219 WITH SUBR. HUGO 9 30 SX5 55B $ SA6 A7+B6 $ LX5 54 BLANK 9 31 SX6 X3 $ LX3 1 $ BX7 X5+X3 $ SA7 A7-B6 9 32 SA6 A7-B6 $ RJ BUGPR 9 33 + SA2 LOOD1 $ ZR B0,LOO1 9 34 LOO2 IX6 X1+X2 $ LX6 30 $ SA6 LOOK 9 35 SA1 SAVE1 $ SB2 -17 9 36 BX7 X1 $ NO $ SA7 IBUF RESTORE SAVE IN IBUF 9 37 + SA1 A1+B6 $ BX7 X1 $ SB2 B2+B6 $ SA7 A7+B6 9 38 + NG B2,*-1 $ RJ BUGRS1 9 39 + ZR B0,LOOK 9 40 LOOD1 BSS 1 9 41 CST1 EQU NAGEH+221 9 42 AST1 EQU CST1+8 9 43 BST1 EQU CST1+16 9 44 XST1 EQU CST1+24 9 45 BUGST1 BSS 1 SAVE REGISTERS 9 46 + PL B1,*+2 $ RJ *+1 9 47 BUG1 DATA 0 18 9 48 SB1 B1+B1 9 49 + PL B1,*+2 $ RJ *+1 9 50 DATA 0 17 9 51 SB1 B1+B1 9 52 + PL B1,*+2 $ RJ *+1 9 53 DATA 0 16 9 54 SB1 B1+B1 9 55 + PL B1,*+2 $ RJ *+1 9 56 DATA 0 15 9 57 SB1 B1+B1 9 58 + PL B1,*+2 $ RJ *+1 9 59 DATA 0 14 9 60 SB1 B1+B1 9 61 + PL B1,*+2 $ RJ *+1 9 62 DATA 0 13 9 63 SB1 B1+B1 9 64 + PL B1,*+2 $ RJ *+1 9 65 DATA 0 12 9 66 SB1 B1+B1 9 67 + PL B1,*+2 $ RJ *+1 9 68 DATA 0 11 9 69 SB1 B1+B1 9 70 + PL B1,*+2 $ RJ *+1 9 71 DATA 0 10 9 72 SB1 B1+B1 9 73 + PL B1,*+2 $ RJ *+1 9 74 DATA 0 9 9 75 SB1 B1+B1 9 76 + PL B1,*+2 $ RJ *+1 9 77 DATA 0 8 9 78 SB1 B1+B1 9 79 + PL B1,*+2 $ RJ *+1 9 80 DATA 0 7 9 81 SB1 B1+B1 9 82 + PL B1,*+2 $ RJ *+1 9 83 DATA 0 6 9 84 SB1 B1+B1 9 85 + PL B1,*+2 $ RJ *+1 9 86 DATA 0 5 9 87 SB1 B1+B1 9 88 + PL B1,*+2 $ RJ *+1 9 89 DATA 0 4 9 90 SB1 B1+B1 9 91 + PL B1,*+2 $ RJ *+1 9 92 DATA 0 3 9 93 SB1 B1+B1 9 94 + PL B1,*+2 $ RJ *+1 9 95 DATA 0 2 9 96 SB1 B1+B1 9 97 + PL B1,*+2 $ RJ *+1 9 98 DATA 0 1 9 99 SB1 A7 $ SA7 XST1+7 $ SX7 B1 X7 9 100 SB1 1 $ SA7 AST1+7 A7 9 101 SX7 A6 $ SA6 XST1+6 $ SA7 A7-B1 X6, A6 9 102 BX6 X5 $ SX7 A5 $ SA6 A6-B1 $ SA7 A7-B1 X5, A5 9 103 BX6 X4 $ SX7 A4 $ SA6 A6-B1 $ SA7 A7-B1 X4, A4 9 104 BX6 X3 $ SX7 A3 $ SA6 A6-B1 $ SA7 A7-B1 X3, A3 9 105 BX6 X2 $ SX7 A2 $ SA6 A6-B1 $ SA7 A7-B1 X2, A2 9 106 BX6 X1 $ SX7 A1 $ SA6 A6-B1 $ SA7 A7-B1 X1, A1 9 107 BX6 X0 $ SX7 A0-B0 $ SA6 A6-B1 $ SA7 A7-B1 X0, A0 9 108 SX7 B7-B0 $ SX6 B6-B0 $ SA7 A6-B1 $ SA6 A7-B1 B7, B6 9 109 SX7 B5-B0 $ SX6 B4-B0 $ SA7 A6-B1 $ SA6 A7-B1 B5, B4 9 110 SX7 B3-B0 $ SX6 B2-B0 $ SA7 A6-B1 $ SA6 A7-B1 B3, B2 9 111 BX6 -X6*X6 $ MX7 0 $ SA3 BUG1 9 112 MX0 18 $ SB4 7 $ MX4 1 9 113 BUG2 ZR X3,*+1 $ BX6 X4+X6 $ SA7 A3 B1 CONTENTS 9 114 + LX0 1 $ LX6 1 $ SA3 A3+3 9 115 NG X0,BUG2 $ SA6 A6-B1 $ SA7 A6-B1 9 116 BUG3 SA1 B4+AST1 $ SB4 B4-B1 $ SA2 X1 9 117 BX6 X2 $ SA6 B4+CST1+1 A-CONTENTS 9 118 LT B0,B4,BUG3 $ ZR B0,BUGST1 9 119 BUGRS1 BSS 1 RESTORE REGISTERS 9 120 MX0 18 $ SA5 XST1+5 $ SB2 B0 9 121 SA3 BUG5 $ MX1 4 $ LX1 6 9 122 + BX6 -X1*X3 $ PL X5,*+1 $ BX6 X6+X1 9 123 + UX5 X5,B6 $ SB3 7 $ LX0 33 9 124 SB1 1 $ LX5 11 $ UX5 B5,X5 9 125 BUG4 SA6 A3+B2 $ SB2 B2+B1 $ SA1 B2+BST1 9 126 SA2 A6+B1 $ LX1 15 $ BX4 -X0*X2 $ BX7 X0*X1 9 127 IX6 X7+X4 $ NE B2,B3,BUG4 $ LX0 15 9 128 BX4 -X0*X2 $ SA1 AST1 $ LX7 15 9 129 IX6 X7+X4 $ SA3 XST1 $ MX4 60 9 130 BX0 X3 $ SA6 A2 $ SB7 X4+777777B 9 131 SA0 X1+B7 $ SA4 AST1+6 $ SA3 X4+B7 9 132 LX5 11 $ BX6 X3 $ SA6 X4+B7 $ SA2 A4+B1 9 133 SA4 X2+B7 $ SA3 A1+B1 $ BX7 X4 $ UX5 B4,X5 9 134 SA7 X2+B7 $ LX5 11 $ SA2 XST1+6 9 135 SA1 X3+B7 $ BX6 X2 $ UX5 B3,X5 $ SA3 A2+B1 9 136 SA4 XST1+1 $ LX5 11 $ BX7 X3 9 137 SA2 AST1+2 $ UX5 B2,X5 $ BX1 X4 9 138 SA3 A4+B1 $ LX5 11 $ SA4 A2+B1 $ SA2 X2+B7 9 139 BX2 X3 $ SA3 X4+B7 $ UX5 B1,X5 9 140 SA5 XST1+3 $ SA4 AST1+4 9 141 BX3 X5 $ SA5 XST1+4 $ SA4 X4+B7 9 142 BX4 X5 $ SA5 AST1+5 9 143 BUG5 SA5 X5+B7 $ NO $ NO $ MX5 0 9 144 PX5 B1,X5 $ SB1 B7+0 $ LX5 49 9 145 PX5 B2,X5 $ SB2 B7+0 $ LX5 49 9 146 PX5 B3,X5 $ SB3 B7+0 $ LX5 49 9 147 PX5 B4,X5 $ SB4 B7+0 $ LX5 49 9 148 PX5 B5,X5 $ SB5 B7+0 $ LX5 49 9 149 PX5 B6,X5 $ SB6 B7+0 9 150 SB7 B7+0 $ ZR B0,BUGRS1 9 151 SAVE1 BSS 18 SAVES IBUF DURING BUGPRINT 9 152 TEX1 DIS 5,0A-CONT 0A0 0B0 0X0 0 9 153 TEX2 DIS 4,0BUGPRINT OF ,STARTING ADDRESS 9 154 TEX3 DIS 4,0REGPRINT ,CALLED AT ADDRESS 9 155 TEX4 DIS 1,0********* 9 156 VFD 54/9H*********,6/0 9 157 REGPR BSS 1 9 158 * PRINT CONTENT OF A,B,X REG 9 159 SA1 TEX4 $ SA2 TEX4+1 9 160 BX6 X1 $ BX7 X2 $ SA6 IBUF+5 9 161 SA7 IBUF+6 $ SX6 2 9 162 SA6 IBUF+3 $ RJ LIJN 9 163 SA1 NAGEH+221 $ RJ OCT60 9 164 SA2 TEX1 $ BX7 X2 $ NO 9 165 SA7 IBUF+5 $ RJ LIJN 9 166 SA1 NAGEH+225 $ RJ OCT60 9 167 SA2 TEX1+4 $ BX7 X2 $ NO 9 168 SA7 IBUF+5 $ RJ LIJN 9 169 SA1 NAGEH+229 $ RJ OCT18 9 170 SA2 TEX1+1 $ BX7 X2 $ NO 9 171 SA7 IBUF+5 $ RJ LIJN 9 172 + SA1 NAGEH+237 $ RJ OCT18 9 173 + SA2 TEX1+2 $ BX7 X2 $ NO 9 174 SA7 IBUF+5 $ RJ LIJN 9 175 + SA1 NAGEH+245 $ RJ OCT60 9 176 + SA2 TEX1+3 $ BX7 X2 $ NO 9 177 SA7 IBUF+5 $ RJ LIJN 9 178 + SA1 NAGEH+249 $ RJ OCT60 9 179 + SA2 TEX1+4 $ BX7 X2 $ NO 9 180 SA7 IBUF+5 $ RJ LIJN 9 181 + SA1 NAGEH+253 $ SB4 TEX3+3 9 182 LX1 30 $ RJ REGPR2 9 183 + ZR B0,REGPR 9 184 BUGPR BSS 1 9 185 SA1 NAGEH+218 $ SB4 TEX2+3 9 186 LX1 30 $ RJ REGPR2 9 187 + SA1 NAGEH+218 $ SA2 A1+2 9 188 SB3 X1 $ SX7 X2+B3 $ SA7 A2 $ SA1 X1 9 189 BUGP2 RJ OCT60 9 190 + SA1 NAGEH+218 $ NO $ LX1 30 9 191 RJ ADRS1 9 192 + LX7 18 $ SA7 IBUF+5 $ NO 9 193 RJ LIJN 9 194 + SA1 NAGEH+218 $ SA2 A1+2 9 195 SX7 X1+4 $ IX2 X7-X2 $ NO 9 196 PL X2,BUGPR $ SA7 A1 $ SA1 X7 9 197 ZR B0,BUGP2 9 198 REGPR2 BSS 1 9 199 * X1 CONTAINS NAME OF BUGPRINT AND CALLING ADRES. B4=TEXT 9 200 MX3 30 $ BX2 -X3*X1 $ RJ ADRS1 DOES NOT CHANGE X2,B4 9 201 + SA7 IBUF+9 $ SA5 B4 $ BX7 X5 9 202 SA5 A5-B6 $ SA7 A7-B6 $ BX7 X5 $ SA7 A7-B6 9 203 + SA5 A5-B6 $ MX0 36 $ SA4 A5-B6 $ BX5 X0*X5 9 204 BX2 -X0*X2 $ BX6 X4 $ BX7 X2+X5 $ SA7 A7-B6 9 205 SA6 A7-B6 $ SX7 5 $ NO 9 206 SA7 IBUF+3 $ RJ LIJN 9 207 + ZR B0,REGPR2 9 208 OCTAL1 BSS 1 9 209 * TRANSLATES X1 IN DISPLAY CODE IN X6 AND X7. IF B2 NEG, LEFT 30 BITS 9 210 * OF X1 TRANSLATED IN X7. MX0 3 IS ASSUMED 9 211 OCTAL2 SB1 -10 $ MX7 0 $ NO 9 212 + BX3 X0*X1 $ LX1 3 $ BX7 X7+X3 $ SB1 B1+B6 9 213 + LX7 6 $ NG B1,*-1 $ LX7 57 9 214 + NG B2,*+2 $ BX6 X7 $ SB2 -B2 9 215 + ZR B0,OCTAL2 9 216 + SA5 =33333333333333333333B $ IX7 X7+X5 $ IX6 X6+X5 9 217 ZR B0,OCTAL1 9 218 OCT60 BSS 1 9 219 * TRANSLATES 4 CONSEC WORDS OF 60 BITS,STARTING IN A1 9 220 SB3 IBUF+5 $ SB6 1 9 221 MX0 3 $ SB2 B6 $ SA4 IBUF+4 9 222 SB4 IBUF+16 $ NO $ NO 9 223 + BX6 X4 $ SA6 B3 $ RJ OCTAL1 9 224 + SA6 A6+B6 $ SA1 A1+B6 $ SA7 A6+B6 $ SB3 A7+B6 9 225 + SB2 -B2 $ GE B4,B3,*-2 $ NO 9 226 SX7 12 $ SA7 IBUF+3 9 227 ZR B0,OCT60 9 228 OCT18 BSS 1 9 229 * TRANSLATES 8 CONSEC WORDS OF 18 BITS,STARTING IN A1 9 230 SB3 IBUF+5 $ SB6 1 9 231 MX0 3 $ SB2 B0-B6 $ SA4 IBUF+4 9 232 SB4 IBUF+13 $ MX2 24 $ BX4 X2*X4 9 233 + SB3 B3+B6 $ LX1 30 $ RJ OCTAL1 9 234 + BX7 -X2*X7 $ BX7 X7+X4 $ SA7 B3 $ SA1 A1+B6 9 235 + GE B4,B3,*-2 $ SX6 9 9 236 SA6 IBUF+3 $ ZR B0,OCT18 9 237 ADRS1 BSS 1 9 238 SB6 1 $ MX0 3 $ SB2 -B6 9 239 RJ OCTAL1 9 240 + SA4 IBUF+4 $ MX0 24 $ BX4 X0*X4 9 241 BX7 -X0*X7 $ BX7 X7+X4 $ ZR B0,ADRS1 9 242 PAD6 SA7 A3 $ NO $ NO $ NO 9 243 PAD55 BSS 1 LAST WORD OF OUTPUT LINE CAN HAVE TRAILING ZERO,S 9 244 SA1 IBUF+3 $ SX2 BL0 TO BE REPLACED BY BLANKS 55B. 9 245 SA3 X1+IBUF+4 $ MX0 54 $ BX7 X3 9 246 + BX4 -X0*X7 $ LX0 6 $ NZ X4,PAD6 9 247 + BX7 X7+X2 $ LX2 6 $ ZR B0,*-1 9 248 + VFD 24/4H)(NR,36/0 9 249 FOUT BSS 1 9 250 RJ BUGST1 B1 IS UNCHANGED 9 251 SA1 =00000000000006172524B $ SA2 FOUT 4HFOUT FOR REGPR2 9 252 BX6 X1+X2 $ LX6 30 $ SA6 NAGEH+253 9 253 FOUTC SA3 NAGEH+253 $ SX6 IPUNCH+2 9 254 SA2 X3-1 $ SA6 STB1 9 255 SX7 X2 $ SA7 X6 $ SA1 STB1 9 256 RJ KVTIN 9 257 + SA6 IPUNCH+5 $ SB6 1 9 258 SA1 NAGEH+253 $ SB2 B0-B6 $ MX0 3 9 259 SX1 X1+B2 $ LX1 30 $ RJ OCTAL1 9 260 SX4 222222B $ LX7 18 $ IX6 X7+X4 9 261 SA6 IPUNCH+4 $ SA4 A6+B6 $ MX0 24 9 262 SA5 FOUT-1 $ BX4 -X0*X4 $ BX6 X4+X5 9 263 LX6 6 $ SA6 A4 $ ZR B0,*+2 9 264 FOUTB BSS 1 9 265 + SA1 LAYNR $ MX7 59 $ SB1 X1 9 266 SA7 MFOUT $ SA0 A1 $ JP B1 FORCE A0 POSITIVE 9 267 STB1 BSS 1 9 268 KVTFL BSS 1 9 269 * CONVERTS FL POINT TO DISPLAY CODE,RIGHT ADJ,BLANK FILL,2FIG BEHIND. 9 270 SA2 X1 $ NO $ SA1 =100.0 9 271 NO $ MX5 0 $ FX2 X2*X1 $ NO 9 272 UX2 B3,X2 $ LX2 B3,X2 $ RJ NUM1 9 273 + SX1 55B $ MX0 54 $ LX1 54 9 274 + BX2 -X0*X5 $ NZ X2,*+2 $ LX5 54 9 275 + BX5 X5+X1 $ ZR B0,*-1 9 276 + LX5 6 $ MX2 42 $ SX4 57B 9 277 BX7 X2*X5 $ BX5 -X2*X5 $ LX1 6 $ AX5 6 9 278 BX3 -X0*X5 $ IX3 X3-X1 $ SX2 33B 9 279 + NZ X3,*+1 $ BX3 X0*X5 $ BX5 X3+X2 9 280 + LX5 54 $ BX3 -X0*X5 $ IX3 X3-X1 $ LX4 12 REPLACE BLANK BY 0 9 281 + NZ X3,*+1 $ BX3 X0*X5 $ BX5 X3+X2 AFTER DEC POINT 9 282 + LX5 6 $ BX5 X4+X5 $ BX6 X7+X5 9 283 ZR B0,KVTFL 9 284 * CONVERSION ROUTINE 9 285 * DATA 00000000433433353436B 9 286 DATA 00000000777777777777B 9 287 CVTFI BSS 1 CVTFI(I1,I2) 9 288 + SA1 X1-2 $ MX0 48 $ AX1 6 9 289 BX2 -X0*X1 $ AX1 18 $ BX3 -X0*X1 $ LX2 12 9 290 BX4 X2+X3 $ AX1 18 $ BX5 -X0*X1 $ LX4 12 9 291 SA2 *-5 $ BX4 X4+X5 $ IX6 X4-X2 9 292 SX7 51B $ SA7 NF 9 293 + PL X6,*+1 $ MX7 0 $ SA7 B0+A7 9 294 ZR B0,CVTFI 9 295 *CONVERTS INTEGER TO DISPLAY CODE,RIGHT ADJUSTED,BLANK FILL 9 296 STB2 BSS 1 9 297 KVTIN BSS 1 9 298 SA2 X1 $ MX5 0 $ RJ NUM1 9 299 + SX1 55B $ MX0 54 $ LX1 54 9 300 + BX2 -X0*X5 $ NZ X2,*+2 $ LX5 54 9 301 + BX5 X5+X1 $ ZR B0,*-1 9 302 + BX6 X5 $ ZR B0,KVTIN 9 303 HULD1 BSSZ 5 9 304 TAKMAN BSS 1 9 305 SX6 B1 $ SX7 B2 $ SA6 TAKD1 9 306 SB6 1 $ SA1 A6 $ SA7 A6+B6 9 307 SX6 B3 $ SX7 B4 $ SA6 A7+B6 $ SA7 A6+B6 9 308 MX6 0 $ SA6 A7+B6 $ RJ TAFMAN 9 309 ZR B0,TAKMAN 9 310 TAKD1 BSSZ 5 TAFMAN CALLING SEQUENCE 9 311 TAXMAN BSS 1 USED WITH READ., WRITE., REW., AND EOF. MACROS 9 312 SA1 TAXMAN $ SB7 B0-1 9 313 AX1 30 $ SA2 X1+B7 $ SX7 X2 $ LX2 31 9 314 SA7 TAKD1 $ AX2 49 $ SX6 B2 9 315 SA6 A7-B7 $ SA1 TAKD1 $ SX7 X2 SET A1 FOR CALL 9 316 SX6 B3 $ SA6 A6-B7 $ SA7 TAXD1 9 317 SX6 A7 $ SA6 A6-B7 $ RJ TAFMAN 9 318 SA1 TAXMAN $ SB6 1 9 319 AX1 30 $ SA2 X1-1 $ SA3 X2 GET RESET BIT 9 320 LX2 30 $ PL X2,TAXMAN $ SB1 X3 9 321 SA4 TAPUSE $ MX7 1 $ LX6 B1,X7 9 322 BX7 -X6*X4 $ SA7 A4 $ ZR B0,TAXMAN 9 323 TAXD1 BSS 1 CONTAINS I8 OF TAFMAN 9 324 *NUM1 TRANSLATES FIXED POINT NR IN X2 INTO BCD CHARACTERS IN X5, LEFT 9 325 * ADJUSTED. AT MOST 9 CHARACTERS (=33 BITS IN X2). IF X5=PL0 AN EVT 9 326 * LEADING PLUS IS PRESENT. IF X5=0 ONLY AN EVT - SIGN IS GIVEN. 9 327 DIVD1 DATA 0,1.,10.,100.,1000.,10000.,1.E5,1.E6,1.E7,1.E8,1.E9 9 328 NUM1 BSS 1 USES X0,X2,X3,X5,X7,B7,A3. EXIT B6=1 9 329 ZR X2,NUM6 $ PL X2,NUM2 9 330 BX2 -X2 $ SX5 MI0 -X0 = APPR L2OG(X2) 9 331 NUM2 PX7 B0,X2 $ NX7 B7,X7 $ SX0 B7-48 LOG(2)=0.3010298 9 332 BX2 -X0 $ LX0 8 $ LX2 6 $ IX0 X2-X0 APPROX BY 308=320/1024 9 333 AX0 10 $ SA3 X0+DIVD1+1 $ SB7 B0 X0=-320*X0/2**10 9 334 NUM3 RX0 X7/X3 $ UX2 B6,X0 $ LX0 B6,X2 $ PX2 B0,X0 9 335 NZ B7,NUM4 $ ZR X0,NUM5 9 336 NUM4 NX2 B0,X2 $ FX2 X2*X3 $ SX0 X0+ZE0 9 337 LX5 6 $ BX5 X0+X5 $ FX7 X7-X2 $ SB7 X0 9 338 NUM5 SA3 A3-1 $ NZ X3,NUM3 9 339 NUM5B SB6 1 $ MX7 6 9 340 NUM5A BX0 X7*X5 $ LX5 6 $ ZR X0,NUM5A 9 341 LX5 54 $ ZR B0,NUM1 9 342 NUM6 SX0 ZE0 $ LX5 6 $ BX5 X5+X0 9 343 ZR B0,NUM5B 9 344 DATA 07052401102300000003B 9 345 KETAHS BSS 1 N=KETAHS(N1,N2) 9 346 SA2 A1+1 $ SA1 X1 $ SA2 X2 9 347 MX0 30 $ BX3 X0*X1 $ BX4 X0*X2 $ BX7 X3-X4 9 348 MX6 59 $ NZ X7,KETAHS $ AX1 18 9 349 AX2 18 $ MX0 48 $ BX4 -X0*X1 $ BX5 -X0*X2 9 350 IX6 X4-X5 $ ZR B0,KETAHS 9 351 * NTUSE(NT). SET BIT NT FROM RIGHT IN TAPUSE NON-ZERO. 9 352 * IGNORE TAPES 1, 2 AND 8 9 353 NTUSE BSS 1 NTUSE(NT) 9 354 SA2 X1 $ SA3 TAPUSE $ SB1 X2 9 355 SB2 2 $ SB3 8 USE OF X1 BUT NOT A1 ASSUMED (IN INP) 9 356 MX7 1 $ SB6 1 $ LX6 B1,X7 9 357 GE B2,B1,NTUSE $ EQ B3,B1,NTUSE 9 358 BX6 X6+X3 $ SA6 A3 $ ZR B0,NTUSE 9 359 NTUSR BSS 1 NTUSR(NT)=N.Z. IF NT USED. ALSO N.Z. IF NT=1,2,8 9 360 SA2 X1 $ SA3 TAPUSE $ SB1 X2 9 361 SB2 2 $ SB3 8 9 362 SX6 B2 $ MX7 1 $ SB6 1 9 363 GE B2,B1,NTUSR $ EQ B3,B1,NTUSR 9 364 LX7 B1,X7 $ BX6 X7*X3 $ ZR B0,NTUSR 9 365 END 10 0 IDENT SETZERO 10 1 ENTRY SETZ,NUTRA0 10 2 MACRO *EXPAND 10 3 ZE0 EQU 33B 10 4 EXT ITOUT,BBUFX,LIJN 10 5 *NUTRA0 TRANSLATES POSITIVE NUMBER BELOW 1000 IN X5 TO DISPLAY CODE IN 10 6 * X5 LEFT ADJUSTED. USES X3,X4,X5,X7,B7,A5 10 7 NUTRA0 BSS 1 10 8 MX3 59 $ SX4 100 $ BX7 X3 10 9 NUT1 IX5 X5-X4 $ IX7 X7-X3 $ PL X5,NUT1 10 10 IX4 X5+X4 $ SA5 =0.1000001 $ PX3 B0,X4 10 11 NX3 B0,X3 $ FX5 X3*X5 $ UX5 B7,X5 $ LX5 B7,X5 10 12 IX3 X5+X5 $ LX7 6 $ IX7 X5+X7 $ LX5 3 10 13 IX5 X3+X5 $ IX4 X4-X5 $ SX3 ZE0 10 14 IX5 X4+X3 $ LX5 54 $ BX5 X7+X5 $ MX4 54 10 15 NUT2 MX7 48 $ BX7 -X7*X5 $ ZR X7,NUTRA0 10 16 BX5 X4*X5 $ IX7 X3+X7 $ BX5 X5+X7 $ LX5 54 10 17 ZR B0,NUT2 10 18 * 10 19 * FIXED LOC AND IT. 10 20 * EXPR. IT CONTENT 10 21 * 1 1 1. 10 22 * 2 4 GI(D1) 10 23 * 3 7 G5(D1) 10 24 * 4 12B GI(D1) + G5(D1) 10 25 * 5 20B GI(D1) - G5(D1) 10 26 * 6 26B D(D2,D3)*D(D4,D5) + D(D3,D4)*D(D2,D5) - 10 27 * D(D2,D4)*D(D3,D5) + EPF(D2,D3,D4,D5)*G5(D1) 10 28 * 7 150B EPF(A,B,C)*EPF(D,E,F) SUPERKEYS 10 29 * 8 46B EPF(D1,D2)*EPF(D3,D4) 10 30 * 9 56B SPIN-SUM SPIN 1/2 10 31 * 10 66B SPIN-SUM SPIN 3/2 10 32 * 11 172B BRACE, BRACE PRIME FOR KAHANE ALGORITHM. 10 33 * 12 201B G(P)*S*G(P) FOR S ODD STRING. 10 34 * 13 217B G(P)*S*G(P) FOR S EVEN STRING. 10 35 * 14 231B G(P)*G(AL)*G(P) , I.E. 12 FOR S IS ONE GAMMA. 10 36 * 15 237B G(P)*G(AL)*G(BE)*G(P) , I.E. 13 FOR S WITH 2 G. 10 37 * 10 38 USE /STORAG/ 10 39 ITIN DATA 0,1.,0 10 40 DATA 0,1.,30040001300000000000B 10 41 DATA 0,1.,30050001300000000000B 10 42 DATA 13,1.,30040001300000000000B 10 43 DATA 0,1.,30050001300000000000B 10 44 DATA 19,1.,30040001300000000000B 10 45 DATA 0,-1.,30050001300000000000B 10 46 DATA 26,1.,30010002000330003001B,00040005300000000000B 10 47 DATA 30,1.,30010003000430003001B,00020005300000000000B 10 48 DATA 34,-1.,30010002000430003001B,00030005300000000000B 10 49 DATA 0,1.,30020002000300040005B,30003005000130000000B 10 50 DATA 42,1.,30010001000330003001B,00020004300000000000B 10 51 DATA 0,-1.,30010001000430003001B,00030002300000000000B 10 52 DATA 50,-1.0,20013401300300010003B,30000000000000000000B 10 53 DATA 0,1.0,00023401300400013000B,0 10 54 * SPINSUM SPIN 3/2 10 55 IT66 DATA 73B,-1.,30010002000330002001B,34013003000100053000B,0 10 56 IT73 DATA 77B,1.,30010002000330000004B,34010000000000000000B 10 57 DATA 00010425252525252525B,17165252525252525252B 10 58 DATA 30030001000230003003B 10 59 DATA 00010003300020013401B,30030001000530000000B 10 60 DATA 00011152525252525252B,60612525252525252525B 10 61 DATA 30030001000230003003B 10 62 DATA 00010003300000043401B,0 10 63 DATA 00011652525252525252B,60612525252525252525B 10 64 DATA 30030001000230003001B 10 65 DATA 00030005300030030001B,00053000000437760000B 10 66 DATA 00012352525252525252B,60612525252525252525B 10 67 DATA 30030001000230003001B 10 68 DATA 00030005300020013401B,0 10 69 DATA 00013025252525252525B,17165252525252525252B 10 70 DATA 30010002000530003003B 10 71 DATA 00010003300030030001B,00053000000437760000B 10 72 DATA 00013525252525252525B,17165252525252525252B 10 73 DATA 30010002000530003003B 10 74 DATA 00010003300020013401B,0 10 75 DATA 00014352525252525252B,60602525252525252525B 10 76 DATA 30010002000530003001B 10 77 DATA 00030005300020013401B,30030001000530000004B 10 78 DATA 37750000000000000000B 10 79 DATA 00000025252525252525B,17175252525252525252B 10 80 DATA 30010002000530003001B 10 81 DATA 00030005300000043776B,30040001300000000000B 10 82 IT150 DATA 153B,1.,14020001000200030000B KEY FOR EPF EVALUATION 10 83 DATA 156B,-1.,14020002000100030000B PRODUCT OF TWO EPF 10 84 DATA 161B,1.,14020002000300010000B EACH WITH 3 ARGUMENTS 10 85 DATA 164B,-1.,14020003000200010000B 10 86 DATA 167B,1.,14020003000100020000B 10 87 DATA 0,-1.,14020001000300020000B 10 88 IT172 DATA 175B,-0.5,0 BRACE, BRACE PRIME FOR KAHANE 10 89 DATA 0,0.5,00033401300500013000B,30050002300000000000B 10 90 * G(P)*S*G(P) FOR S ODD. KEY 1401 L P LA LABEL NOT INCLUDED IN LA 10 91 IT201 DATA 204B,-1.,30010002000230000000B 10 92 DATA 211B,0.5,30030001000230003003B,14230003000230001402B 10 93 DATA 14230003000000000000B 10 94 DATA 0,0.5,30030001000230003005B,00013000300514230003B 10 95 DATA 30003003142300030002B,30001402142300030000B 10 96 * G(P)*S*G(P) WITH S EVEN. KEY 1401 L P LA AL LABEL NOT INCL IN LA 10 97 IT217 DATA 222B,-1.,30010002000230000000B 10 98 DATA 0,0.5,30030001000430003003B 10 99 DATA 00010002300030031423B,00030002300030031423B 10 100 DATA 00030004300014021423B,00030000000000000000B 10 101 * G(P)*G(AL)*G(P). KEY 1401 L P AL 10 102 IT231 DATA 235B,-1.,30010002000230003003B,00010003300000000000B 10 103 DATA 0,2.,30030001000230003001B,00020003300000000000B 10 104 * G(P)*G(AL)*G(BE)*G(P). KEY 1401 L P AL BE 10 105 IT241 DATA 245B,1.,30010002000230003003B,00010003000430000000B 10 106 DATA 251B,-2.,30030001000200043000B,30010002000330000000B 10 107 DATA 0,2.,30030001000200033000B,30010002000430000000B 10 108 ITEND1 BSS 0 10 109 SETZ BSS 1 10 110 SX4 A0 $ MX7 42 $ SA3 SETZ 10 111 BX7 -X7*X4 $ SX5 5100B $ BX7 X7+X3 10 112 LX5 18 $ BX7 X5+X7 $ LX7 30 $ SA7 A3 10 113 SB1 LOC1-LOC $ SB6 1 10 114 SET2 SA1 B1+LOC-1 $ SX6 X1+ITIN-1 MAKE ADDRESSES ABSOLUTE 10 115 SB1 B1-B6 $ ZR X1,SET5 $ SA6 A1 10 116 SET3 SA2 X6 $ MX0 48 $ BX3 X0*X2 $ MX7 42 10 117 NZ X3,SET4 $ LX2 42 SHIFT ADDRESS 10 118 SET4 LX2 18 $ BX4 -X7*X2 $ SX6 X4+ITIN-1 10 119 ZR X4,SET5 $ BX2 X7*X2 $ BX7 X2+X6 10 120 LX7 42 $ SA7 A2 $ ZR B0,SET3 10 121 SET5 LT B0,B1,SET2 $ SX6 LOCD1 10 122 SA6 NANU $ SA1 MTAB+6 10 123 BX6 X1 $ NO $ SA6 NDIMT 10 124 SB6 1 $ SX7 5 10 125 SA7 NQU $ SX6 B6 $ SX7 B0 10 126 SA6 NCONT+1 $ SA6 NCONT+2 PRINT INPUT, OUTPUT 10 127 SA6 NCONT+8 $ SA6 NCONT+10 PRINT LIST,STATISTICS 10 128 SA6 NVRA $ SX6 NXD1 REPLCE B0 BY B6 TO INITIAL. 10 129 SA6 NXEX $ SA7 ISPLAY ON INTERACTIVE MODE 10 130 SA1 T2 $ SB2 -5 10 131 BX7 X1 $ NO $ SA7 IBUF 10 132 + SA1 A1+B6 $ BX7 X1 $ SB2 B2+B6 $ SA7 A7+B6 10 133 + NG B2,*-1 $ RJ LIJN PAGE SKIP OR AUTOMATIC PAGE EJECT 10 134 SB6 1 $ SA1 T1 10 135 SB2 B0-9 $ BX7 X1 $ MX6 0 10 136 SA7 IBUF $ SA6 TAPUSE 10 137 + SA1 A1+B6 $ BX7 X1 $ SB2 B2+B6 $ SA7 A7+B6 10 138 + NG B2,*-1 $ RJ LIJN 10 139 ZR B0,SETZ 10 140 T2 DATA 2,0,0,1 10 141 DIS 1, 10 142 VFD 6/1H1,54/0 1 REPLACE TO R GIVES AUT PAGE EJ 10 143 T1 DATA 2,0,0,5 10 144 DIS 3, SCHOONSCHIP , VERSI 10 145 DIS 2,ON OF MARCH 1, 1983 10 146 VFD 48/8H PRIVE ,12/0 10 147 USE /BLANK/ 10 148 MACRO BSSS,A,N 10 149 A BSSZ N 10 150 ENDM 10 151 MACRO CBLANK 10 152 USE * 10 153 USE /STOREF/ 10 154 READ0 DATA -1 10 155 REQEST0 DATA -4 10 156 REWIND0 DATA -2 10 157 RWEOFR0 DATA -5 REWIND - WRITE END OF FILE - REWIND 10 158 SEARCH0 DATA 2 10 159 WEOF0 DATA -3 10 160 WEOFR0 DATA 1 10 161 WRITE0 DATA 0 10 162 NVIGEH VFD 30/5HTRACE,30/0 TOTAL 260 10 163 NVIG2 BSSZ 259 10 164 NXGEH VFD 30/5HCONJG,30/1410B TOTAL 260 10 165 VFD 30/5HINTEG,30/1412B 10 166 NXGE2 BSSZ 258 10 167 NVGEH DATA 52260503240000000000B TOTAL 32 10 168 NVGE2 BSSZ 31 10 169 NFGEH VFD 6/1HD,54/0 3001 TOTAL 224 10 170 VFD 18/3HEPF,36/0,6/1HI 3002 10 171 VFD 6/1HG,48/0,6/1HI 3003 10 172 VFD 12/2HGI,48/0 3004 10 173 VFD 12/2HG5,42/0,6/1HI 3005 10 174 VFD 12/2HG6,42/0,6/1HC 3006 10 175 VFD 12/2HG7,48/0 3007 10 176 VFD 12/2HUG,42/0,6/1HC 3010 10 177 VFD 18/3HUBG,42/0 3011 10 178 VFD 12/2HDD,42/0,6/1HU 3012 10 179 VFD 12/2HDB,48/0 3013 BINOM 10 180 VFD 12/2HDT,48/0 3014 THETA 10 181 VFD 12/2HDS,42/0,6/1HU 3015 SIGMA 10 182 VFD 12/2HDX,48/0 3016 XTERN 10 183 VFD 12/2HDK,48/0 3017 KRONECKER 10 184 VFD 12/2HDP,48/0 3020 PERMUTATION 10 185 VFD 12/2HDF,42/0,6/1HU 3021 FROZEN FILE 10 186 VFD 12/2HDC,48/0 3022 CONSERVATION FUNCTION 10 187 NFGE2 BSSZ 206 10 188 FILN1 BSSZ 36 10 189 NAGEH VFD 6/1HI,48/0,6/1HI TOTAL 260 10 190 NAGE2 BSSZ 259 10 191 NVID1 EQU NVIG2-NVIGEH 10 192 NVD1 EQU NVGE2-NVGEH 10 193 NXD1 EQU NXGE2-NXGEH 10 194 NFD1 EQU NFGE2-NFGEH 10 195 NAD1 EQU NAGE2-NAGEH 10 196 LOC DATA 1,4,7,12B,20B,26B,150B,46B,56B,66B,172B 10 197 DATA 201B,217B,231B,241B 10 198 LOC1 BSSZ 245 TOTAL LOC 260 DURING EXEC. 210 AT READ IN TIME. 10 199 LOC2 BSS 0 10 200 LOCD1 EQU LOC2-LOC 10 201 MREF VFD 12/401B,18/NVIGEH,12/NVID1,18/NVIND 10 202 VFD 12/1001B,18/NVGEH,12/NVD1,18/NVECT 10 203 VFD 12/1041B,18/NFGEH,12/NFD1,18/NFUN 10 204 VFD 12/2001B,18/NAGEH,12/NAD1,18/NALGE 10 205 VFD 12/2401B,18/NXGEH,12/NXD1,18/NXEX 10 206 MREFH VFD 1/1,59/0 10 207 VFD 30/NVIND,30/NVIGEH-1 10 208 VFD 30/NVECT,30/NVGEH-1 10 209 VFD 1/1,59/0 10 210 VFD 30/NALGE,30/NAGEH-1 10 211 VFD 1/1,29/NXEX,30/NXGEH-1 10 212 VFD 30/NFUN,30/NFGEH-1 10 213 VFD 1/1,29/0,30/NUTRA0 10 214 MTAB VFD 60/ITIN +0 START OF IT 10 215 VFD 60/ITEND1 +1 TOP OF BASIS IT 10 216 VFD 60/ITEND1 +2 TOP OF MEMORY FILES 10 217 VFD 60/0 +3 FILE NAME LIST 10 218 VFD 60/ITEND1 +4 TOP OF X-EXPRESSIONS 10 219 BSSZ 1 +5 RESERVE 10 220 VFD 42/0,18/ITOUT-1 +6 NDIMT 10 221 VFD 42/0,18/BBUFX-11 +7 NDIMU OF OVERLAY EXEC 10 222 VFD 60/LOC1-LOC+1 +8 TOP OF BASIS LOC 10 223 VFD 60/LOC1-LOC+1 +9 TOP OF MEMORY FILES 10 224 VFD 60/LOC1-LOC+1 +10 TOP OF X-EXPRESSIONS 10 225 BSSZ 2 +11,12 10 226 VFD 60/NVID1 +13 NVIND BASIS 10 227 VFD 60/NVD1 +14 NVECT 10 228 VFD 60/NFD1 +15 NFUN 10 229 VFD 60/NAD1 +16 NALGE 10 230 VFD 60/NXD1 +17 NXEX 10 231 VFD 60/NXD1 +18 NXEX TOP OF MEMORY FI 10 232 VFD 60/NVID1 +19 NVIND UPDATING CR IND 10 233 USE * 10 234 END 11 0 OVERLAY (SCHIP,1,0) 11 1 PROGRAM IN 11 2 C MFOUT=0 NORMAL START OF SCHOON. ELSE SKIP TO * BEGIN OR * END. 11 3 C LAY1(1) NEG, THEN SKIPPING STARTS WITH RJ STAR. ELSE WITH RJ SCHOON . 11 4 C LAY1(2) NZ PRINTS TIME...SECONDS. 11 5 CALL IN1 11 6 C LAY1(1) =0 IF EXECUTION REQUIRED. = NZ IF SKIPPED TILL * END CARD. 11 7 END 12 0 SUBROUTINE IN2 12 1 MACRO CBLANK 12 2 MACRO CEXPRNR 12 3 MACRO CSTOREF 12 4 REAL NTIME 12 5 INTEGER STARBEG,STAREND,STARNEX,STARYEP,STARFIX,PAS 12 6 DIMENSION IPUNCH(18),MSG3(6) 12 7 EQUIVALENCE ( IBUF(19),IPUNCH(1) ) 12 8 DATA STARBEG,STAREND,STARNEX,STARYEP,STARFIX /1,2,3,4,5 / 12 9 DATA ( MSG3(L1),L1=1,4 ) / 10H1 BEGIN ,9L SECONDS,1L0, 12 10 1 10H0 TIME / 12 11 DATA (MSG3(L2),L2=5,6)/10H DATE ,10H TIME / 12 12 IF(LAY1(2)) 66,19,66 12 13 19 IF ( MFOUT ) 6,1,6 12 14 1 IF ( NSPEC-STARYEP ) 41,72,41 12 15 41 IF ( NSPEC-STARBEG ) 42,13,42 12 16 42 IF ( NSPEC-STARNEX ) 79,14,79 12 17 C FIX 12 18 79 MTAB(14)=NVIND 12 19 MTAB(15)=NVECT 12 20 MTAB(16)=NFUN 12 21 MTAB(17)=NALGE 12 22 MTAB(18)=NXEX 12 23 MTAB(2)=MBE 12 24 MTAB(9)=MBU 12 25 MTAB(10)=MBU 12 26 MTAB(19)=NXEX 12 27 C INITIALIZATION AFTER * BEGIN, * FIX 12 28 13 CALL SECOND(NTIME) 12 29 IBUF(1)=NTAP2 12 30 IBUF(3)=0 12 31 IBUF(4)=7 12 32 IBUF(9)=MSG3(5) 12 33 CALL DATE(IBUF(10)) 12 34 IBUF(11)=MSG3(6) 12 35 CALL TIME(IBUF(12)) 12 36 IBUF(6)=MSG3(1) 12 37 IBUF(7)=KVTFL(NTIME) 12 38 IBUF(8)=MSG3(2) 12 39 CALL LIJN 12 40 IBUF(4)=1 12 41 IBUF(6)=MSG3(3) 12 42 CALL LIJN 12 43 C START NEW PROBLEM 12 44 12 NVIND=MTAB(14) 12 45 MTAB(20)=MTAB(14) 12 46 NVECT= MTAB(15) 12 47 NFUN=MTAB(16) 12 48 NALGE=MTAB(17) 12 49 NXEX=MTAB(19) 12 50 MTAB(3)=MTAB(2) 12 51 MTAB(4)=0 12 52 MTAB(5)=MTAB(2) 12 53 MTAB(11)=MTAB(10) 12 54 C INITIALIZATION AFTER * NEXT 12 55 14 NTEMA=0 12 56 NBR=0 12 57 N5PS=0 12 58 MBE=MTAB(3) 12 59 MBU=MTAB(10) 12 60 GO TO 2 12 61 C INITIALIZATION AFTER * YEP 12 62 72 MBE=MTAB(5) 12 63 MBU=MTAB(11) 12 64 IF(NVRA-1) 33,34,34 12 65 33 NCONT(2)=0 12 66 NVRA=0 12 67 GO TO 2 12 68 34 NCONT(2)=1 12 69 NVRA=1 12 70 2 NSUBS=0 12 71 DO 15 L1=1,7 12 72 IF(L1-2) 31,15,31 12 73 31 IF(L1-3) 32,15,32 12 74 32 NCONT(L1)=0 12 75 15 CONTINUE 12 76 NCONT(10)=0 12 77 IF( ISPLAY ) 7,10,7 12 78 C DEFAULT. PRINT NLIST, NSTAT WHEN DISPLAY. 12 79 7 NCONT(9)=0 12 80 NCONT(11)=0 12 81 NVRA=1 12 82 C ANALYZE INPUT 12 83 10 CALL SCHOON 12 84 RETURN 12 85 C 12 86 C INITIALIZATION AFTER ERROR RECOVERY OR AT FIRST ENTRY OF PROGRAM 12 87 6 DO 5 I=3,7 12 88 IF(NTUSR(I)) 68,5,68 12 89 68 CALL TAFMAN(I,Z,Z,REWIND0) 12 90 5 CONTINUE 12 91 66 LAY1(2)=0 12 92 DOVLAG=0 12 93 BLOKPT=0 12 94 YEPFLAG=0 12 95 NREP=0 12 96 MTAB(10)=MTAB(9) 12 97 MTAB(19)=MTAB(18) 12 98 NTAP1=1 12 99 NTAP2=2 12 100 NTAP3=3 12 101 NTAP4=4 12 102 NTAP5=5 12 103 NTAP6=6 12 104 NTAP7=7 12 105 NTAP8=8 12 106 K=LAY1(1) 12 107 LAY1(1)=0 12 108 IF ( MFOUT ) 18,4,18 12 109 18 IF ( ISPLAY ) 9,9,4 12 110 C SKIP OVER CODE AFTER ERROR 12 111 9 IF ( K ) 23,24,24 12 112 25 CALL SCHOON 12 113 23 CALL STAR 12 114 IF ( PAS ) 25,24,25 12 115 24 IF ( NSPEC-STARBEG ) 16,4,16 12 116 16 IF ( NSPEC-STAREND ) 25,17,25 12 117 17 MFOUT=0 12 118 LAY1(1)=-1 12 119 RETURN 12 120 C 12 121 C PRINT TIME MESSAGE 12 122 4 CALL SECOND(NTIME) 12 123 IBUF(1)=NTAP2 12 124 IBUF(3)=0 12 125 IBUF(4)=7 12 126 IBUF(9)=MSG3(5) 12 127 CALL DATE(IBUF(10)) 12 128 IBUF(11)=MSG3(6) 12 129 CALL TIME(IBUF(12)) 12 130 IBUF(6)=MSG3(4) 12 131 IBUF(7)=KVTFL(NTIME) 12 132 IBUF(8)=MSG3(2) 12 133 CALL CVTFI(IBUF(12),IBUF(12)) 12 134 CALL LIJN 12 135 IBUF(4)=1 12 136 IBUF(6)=MSG3(3) 12 137 CALL LIJN 12 138 MFOUT=0 12 139 GO TO 12 12 140 END 13 0 SUBROUTINE INPHV 13 1 MACRO CBLANK 13 2 C IBUF(1)=NTAPX , IBUF(3)=BEGIN , IBUF(4)=END 13 3 C IBUF(5)=BLANK , IBUF(6) TO IBUF(18)=BUFFER. 13 4 NTAPX=IBUF(1) 13 5 IF(NTUSR(NTAPX)) 2,1,2 13 6 1 CALL NTUSE(NTAPX) 13 7 REWIND NTAPX 13 8 2 NWR=8 13 9 CALL INBCD(NTAPX,IBUF(7),0,NWR) 13 10 IBUF(4)=NWR+1 13 11 C IBUF(4)=LENGTH ( NTAPX )+1=LAST READ WORD-5 AS IN LIJN 13 12 IBUF(6)=IBUF(5) 13 13 RETURN 13 14 END 14 0 SUBROUTINE INBCD(NT,IB,K,IN) 14 1 DIMENSION IB(80) 14 2 READ(NT,1) (IB(L1),L1=1,IN) 14 3 1 FORMAT(8A10) 14 4 RETURN 14 5 END 15 0 SUBROUTINE GETAL(RN,AD1,IA,NB) 15 1 MACRO CBLANK 15 2 MACRO CEXPRNR 15 3 MACRO CSTOREF 15 4 DOUBLE RN,AD1,C,CP,CP1,RNMAX 15 5 DIMENSION KB(30),N(8),C(8) 15 6 EQUIVALENCE ( LOC(211),KB(1) ),( IBUF(21),NERROR) 15 7 DATA CP,CP1,RNMAX / 10.D0,1.D0,1.D321 / 15 8 DATA KPUN,KE,KP,KM,KN,K0,K9/57B,5B,20B,15B,16B,33B,44B/ 15 9 DATA KPL,KMI,KBL,KAST,KCO/45B,46B,55B,47B,56B/ 15 10 C KB(1) TILL KB(NB) ARE DISPLAY CODE CHARS ( LEFT ADJUSTED) E.G. 15 11 C 123.45E-67 . GETAHU MAKES THEM RIGHT ADJUSTED. 15 12 C NSI = SIGN OF THE NUMBER ( CHANGED BY THE LETTER N ) 15 13 C NEXP = SIGN OF THE EXPONENT. 15 14 C N(1)=C(1)=123 (UNTIL . ) N(5)=3=NR OF DIGITS 15 15 C N(2)=C(2)=45 (UNTIL E ) N(6)=2 15 16 C N(3)=C(3)=67 N(7)=2 15 17 C N IS IN INTEGER FORMAT. C IS DOUBLE PRECISION. 15 18 DO 1 I1=1,8 15 19 C(I1)=0.0 15 20 1 N(I1)=0 15 21 I=1 15 22 NSI=1 15 23 NEXP=1 15 24 DO 2 NA=1,NB 15 25 MB=KB(NA) 15 26 MB=KETAHU(MB) 15 27 IF(MB-KN) 42,43,42 15 28 43 NSI=-NSI 15 29 GO TO 2 15 30 42 IF(MB-KBL) 34,2,34 15 31 34 IF (MB-KAST) 35,2,35 15 32 35 IF (MB-KCO) 33,2,33 15 33 C IGNORE BLANK, ASTERISK AND COMMA 15 34 33 IF (MB-KPUN) 3,4,3 15 35 4 I=I+1 15 36 GO TO 2 15 37 3 IF (MB-KE) 5,6,5 15 38 6 I=3 15 39 GO TO 2 15 40 5 IF (MB-KPL) 25,2,25 15 41 25 IF (MB-KMI) 15,9,15 15 42 15 IF (MB-KP) 7,2,7 15 43 7 IF (MB-KM) 8,9,8 15 44 9 NEXP=-1 15 45 GO TO 2 15 46 8 IF(MB-K0) 50,51,51 15 47 C ONLY DIGITS ARE VALID CHARACTERS. 15 48 51 IF(MB-K9) 52,52,50 15 49 52 C(4)=MB-K0 15 50 C(I)=C(I)*CP+C(4) 15 51 N(I)=N(I)*10+MB-K0 15 52 N(I+4)=N(I+4)+1 15 53 2 CONTINUE 15 54 IF ( N(7)+N(8) ) 11,10,11 15 55 10 IF ( I-2 ) 11,11,50 15 56 C DETECT PUNCHING ERRORS LIKE 12E*A OR 12E-*5 15 57 50 NERROR=105 15 58 C ILLEGAL CHARACTER IN NUMBER 15 59 CALL FOUTB 15 60 11 AD1=C(1) 15 61 IA=N(1) 15 62 IF (N(6)+N(7)) 17,17,18 15 63 C GO TO 18 TO DO PROPER SCALING OF C(1),C(2),C(3). NOT REQUIRED WHEN 15 64 C ONLY C(1) IS PRESENT. 15 65 C IF 123.45E-67.89 , THE FRACTIONAL PART OF THE EXPONENT IS IGNORED. 15 66 17 RN=RNMAX 15 67 IF(AD1) 40,41,40 15 68 40 RN=CP1/AD1 15 69 41 IF(NSI) 44,44,45 15 70 44 RN=-RN 15 71 AD1=-AD1 15 72 IA=-IA 15 73 45 RETURN 15 74 18 NEXP=NEXP*N(3) 15 75 IA=-N(6) 15 76 AD1=(C(1)+C(2)*CP**IA)*CP**NEXP 15 77 IA=AD1 15 78 GO TO 17 15 79 END 16 0 IDENT IN1 16 1 ENTRY IN1,KETAHU,SAMEN,ZOEK,INPHU,DLIST1,INDON,READI1,SARAY1 16 2 ENTRY INIDG1,SEAR1,FORWAR,COVNR1,CODPR1,COSYM1,SNAME1,IFILE 16 3 ENTRY SQBRA 16 4 MACRO *EXPAND 16 5 MACRO *EXPRNR 16 6 MACRO *IN 16 7 EXT FOUTP,LEES,INPHV,FOUT,LEZE1,IN2,LIJN 16 8 IN22 VFD 30/5HINPUT,30/1 16 9 IN1 BSS 1 16 10 + SX7 *-1 $ SA1 IN22 16 11 SX6 INCOM $ SA7 LAYNR 16 12 SA6 COMADR $ BX7 X1 $ NO 16 13 SA7 LAYNAM $ RJ IN2 16 14 ZR B0,IN1 16 15 * 16 16 *GETAHU************ *GETAHU****** 16 17 KETAHU BSS 1 16 18 SA4 X1 $ MX0 54 $ LX4 6 $ BX6 -X0*X4 16 19 ZR B0,KETAHU 16 20 * 16 21 *SAMEN************* *SAMEN******* 16 22 * SAMEN(PAS,N,A) 16 23 SAMEN BSS 1 16 24 SA4 B2 $ MX2 6 $ SX7 B0 FORCE N POSITIVE. 16 25 + MX3 55 $ BX1 -X3*X4 $ ZR X1,SAM2 16 26 SAM1 SX1 X1-1 $ SA3 X1+B3 $ BX4 X2*X3 16 27 LX7 54 $ BX7 X4+X7 $ NZ X1,SAM1 16 28 SAM2 SA7 B1 $ ZR B0,SAMEN 16 29 * 16 30 *ZOEK************** *ZOEK******** 16 31 * ZOEK(SYMB1,NVIND,IA,NVIGEH) 16 32 ZOEK BSS 1 16 33 SA1 B1 $ MX7 30 $ SA2 B2 $ BX6 X1 16 34 SB7 X2-1 $ BX3 X7*X1 $ BX1 -X7*X1 16 35 ZR X3,ZFO1 $ NZ X1,ZFO2 16 36 ZO2 SA4 B7+B4 $ BX5 X7*X4 $ LT B7,B0,ZO3 SEARCH ARRAY 16 37 BX5 X3-X5 $ SB7 B7-1 16 38 NZ X5,ZO2 $ SX7 B7+2 FOUND. GIVE IN IA WHERE FOUND 16 39 SA7 B3 $ SB5 X7 $ JP ZOEK IN NVIGEH 16 40 ZO3 SX7 X2+1 $ SA6 X2+B4 $ SB5 X7 NVIND=NVIND+1 16 41 SA7 B2 $ SA7 B3 $ JP ZOEK IA=NVIND. 16 42 ZFO1 ERRORP 187 EMPTY SYMBOL 16 43 ZFO2 BX7 X3+X1 $ SA7 IPUNCH+3 $ NO 16 44 ERRORP 5 TOO LONG SYMBOL 16 45 * 16 46 *INDON************* *INDON******* 16 47 INDON BSS 1 16 48 SO111 SA2 MBE $ SA3 NDIMT INSERTION OF SYMBOL IN IT 16 49 IX7 X3-X2 $ SA1 SHMEM1 16 50 NG X7,INFO3 $ SB6 1 16 51 SB2 X1 $ SB1 X2 $ NZ X4,SO116 SYMBOL IN X5. IF X4=0 16 52 PL B2,SO113 $ SB1 B1+B6 $ MX6 0 THAN NOT EXPONENT 16 53 SB2 48 $ SA6 B1+IT-1 MBE, B1 COUNT IT LOCATION 16 54 SO113 SA3 B1+IT-1 $ MX0 48 $ BX6 -X0*X5 SHMEM1, B2 SHIFT. 16 55 LX6 B2,X6 $ BX6 X3+X6 $ NZ X5,SO115 IF SYMBOL 0, 16 56 SB1 B1+1 $ SB2 60 TERMINATE WORD 16 57 SO115 SA6 A3 $ SX7 B1 $ SX6 B2-12 16 58 SA7 A2 $ SA6 A1 $ JP INDON 16 59 * X5 IS A QUANTITY (34.. OR DUMMY) TO REPLACE THE ALREADY INSERTED EXPO 16 60 * NENT 3401 OR 3776. X3 IS THE LAST CODE WORD (5 BYTES). X6 IS THE OLD 16 61 * EXTRACTED EXPONENT. 16 62 SO117 SB2 B2+12 $ SA3 B1+IT-1 EXPONENT OF FOREGOING SYMBOL=X6 16 63 MX0 48 $ LX7 B2,X0 $ BX6 -X7*X3 $ BX3 X7*X3 16 64 AX6 B2,X6 $ LX6 52 $ PL X6,SO121 JP IF OLD EXP WAS POSITIVE 16 65 SX0 X5-400B $ PL X0,SO119 JP IF NO DUMMY 16 66 SX0 1407B $ MX4 0 $ LX0 B2,X0 16 67 BX6 X0+X3 $ SA6 A3 $ JP SO111 MAKE 1407 DUMMY 16 68 SO119 MX0 52 $ BX7 -X5 $ BX5 X0*X5 $ BX7 -X0*X7 CHANGE SIGN OF NR 16 69 BX5 X7+X5 IN 34.. FORMAT 16 70 SO121 LX5 B2,X5 $ BX6 X5+X3 $ SA6 A3 16 71 ZR B0,INDON 16 72 * IF X4=2 THEN INSERT X5 AT PLACE (IN B4) WITH SHIFT (IN B3) 16 73 * WITHOUT DESTROYING PREVIOUS CONTENT. 16 74 SO116 SX7 X4-2 $ NZ X7,SO117 16 75 + MX0 48 $ BX5 -X0*X5 $ PL B3,*+2 16 76 + SB3 48 $ SB4 B4+B6 $ NO 16 77 + LX5 X5,B3 $ SA1 B4 $ LX0 X0,B3 $ BX7 X0*X1 16 78 BX7 X7+X5 $ SA7 A1 $ ZR B0,INDON 16 79 * 16 80 * CONSTRUCT NR FROM [] FOR CHARACTER MANIPULATION PURPOSES. 16 81 SQBRA BSS 1 SYMBOL IN X5, RESULT IN X5 16 82 MX0 54 $ LX5 6 $ BX5 X0*X5 $ MX6 0 16 83 SQ1 LX5 6 $ BX1 -X0*X5 $ SX2 1 16 84 SX3 X1-11B $ ZR X3,SQ2 I 16 85 SX3 X1-26B $ SX4 X1-06B V F 16 86 LX2 1 $ ZR X3,SQ2 $ LX2 1 16 87 ZR X4,SQ2 $ SX3 X1-23B S 16 88 LX2 1 $ ZR X3,SQ2 $ LX2 1 16 89 SX4 X1-30B $ ZR X4,SQ2 X 16 90 SX4 X1-62B $ NZ X4,INFO7 ] 16 91 SX5 X6+3400B $ ZR B0,SQBRA 16 92 SQ2 BX7 X2*X6 $ BX6 X6+X2 $ ZR X7,SQ1 16 93 LX2 4 $ BX6 X6+X2 $ AX2 5 16 94 ZR X2,INFO7 $ ZR B0,SQ1 16 95 INFO7 ERRORP 188 ILLEGAL CHARACTER IN [] OR ] MISSING 16 96 * 16 97 *SARAY1************ *SARAY1****** 16 98 SARAY1 BSS 1 16 99 + MX0 30 $ BX3 X0*X3 $ SB2 X1+B1 $ SB5 B0 16 100 SB6 1 $ SB4 B0 $ SB1 B1-B6 16 101 SO183 SA2 B1+B6 $ SB1 B1+B6 $ BX7 X0*X2 $ IX6 X3-X7 SEARCH NAME 16 102 GE B1,B2,SARAY1 $ SB4 B4+B6 $ MX5 0 16 103 NZ X6,SO183 $ SX5 B4 $ SB5 B4 LEAVE NAME IN X5 AND B5, 16 104 JP SARAY1 ADDRESS IN B1 16 105 * 16 106 *READI1************ *READI1****** 16 107 READI1 BSS 1 16 108 RJ LEZE1 16 109 + SA1 IAL $ SX6 X1-1 16 110 SA6 IB $ NG X6,READI1 INSERT IN DUMMY 16 111 SB1 X1 $ SB6 1 $ NO REGISTER IF TERMINATED BY + 16 112 SA3 B $ SB2 B6 $ SX6 B6 CHECK ON ILLEGAL CHARACTER 16 113 BX2 X3 $ LX2 6 $ SX2 X2-61B [ 16 114 ZR X2,READI1 $ NO $ SB0 B0 ALLOW [ 16 115 + LX3 6 $ SX2 X3-PL0 $ SA3 A3+B6 16 116 + PL X2,*+2 $ SB2 B2+B6 $ NO 16 117 + GE B1,B2,*-2 $ ZR B0,READI1 16 118 + SA4 NRFLAG1 $ ZR X4,*+3 16 119 + SX2 X2+PL0-PO0 $ NZ X2,INFO5 DECIMAL POINT IN NUMBER 16 120 + SB2 B2+B6 $ ZR B0,*-3 16 121 + NE B2,B1,INFO5 $ NZ X2,INFO5 16 122 SB1 SYMB1 $ SB2 IB $ SB3 B $ RJ SAMEN 16 123 + SB1 SYMB1 $ SB2 NDUMY 16 124 SB3 IB $ SB4 IDUM 16 125 RJ ZOEK 16 126 + MX6 0 $ JP READI1 X6=0 IF DUMMY 16 127 * 16 128 *INIDG1************ *INIDG1****** 16 129 INIDG1 BSS 1 INSERTION IN IDGEH 16 130 + SA3 IDAAN $ BX6 X5+X6 $ MX0 59 DO NOT USE X4 FOR SO171 16 131 IX7 X3-X0 $ SA6 X3+IDGEH-1 $ SA7 A3 16 132 ZR B0,INIDG1 16 133 * 16 134 *SEAR1************* *SEAR1******* 16 135 SEAR1 BSS 1 IF A,X ARE NONSPECIAL, SPECIAL 16 136 SA1 NI $ SB2 B0-B6 $ MX6 54 CHARACTERS, BLANK ALSO BEING 16 137 SEA1 SB4 72 $ SB1 X1 $ SX7 B4+B4 SPECIAL, SET NI TO LOCATION OF 16 138 SEA2 SA2 B1+A $ SB1 B1+B6 $ LX2 6 LAST X BEFORE FIRST A 16 139 BX3 -X6*X2 $ IX4 X3-X6 $ PL B2,SEA4 OF SECOND SET OF A. 16 140 SB2 X3-45B $ ZR X4,SEA4 THUS TO LOC OF FIFTH X IN 16 141 SEA3 LT B1,B4,SEA2 $ SA3 NORDER AAXXXXXAA 16 142 SA7 NI $ SX6 B2 $ SX7 B0-B6 STOP BEFORE SPECIAL TERMI- 16 143 SA6 IA $ SA7 A3 $ BX6 X3 NATOR. THE FIRST SET OF A MAY 16 144 SA6 IB $ RJ LEZE1 BE EMPTY. 16 145 + SA2 IA $ SA3 IB 16 146 SB2 X2 $ MX6 54 $ BX7 X3 $ SX1 B6 16 147 SA7 NORDER $ ZR B0,SEA1 16 148 SEA4 SB4 NI $ ZR X4,SEA5 16 149 SX5 X3-45B $ PL X5,SEA3 + 16 150 SEA5 SX6 B1-B6 $ SA6 B4 $ ZR B0,SEAR1 16 151 * 16 152 *INPHU************* *INPHU******* 16 153 INPHU BSS 1 READ NEXT CARD. X1=(NTAPX) ON ENTRY 16 154 SX6 1 $ BX7 X1 $ IX0 X1-X6 16 155 SA1 DOVLAG $ NZ X0,INPH1 CHECK IF READ FROM INPUT 16 156 INPH11 SA2 ISPLAY $ NZ X1,INPH22 16 157 ZR X2,INPH1 $ NG X2,INPH1 16 158 SA3 NTAP2 $ SA6 IBUF+3 16 159 SX7 5552B $ BX6 X3 $ LX7 48 ) 16 160 SA6 IBUF $ NO $ BX6 -X6*X6 16 161 SA7 IBUF+5 $ SA6 IBUF+2 16 162 RJ LIJN 16 163 SX7 1 $ NO $ NO 16 164 INPH1 SA7 IBUF $ RJ INPHV READ 16 165 + SA2 IBUF+3 $ SB6 1 16 166 SA3 A2+B6 $ MX0 54 $ SB1 X2 $ BX1 -X0*X3 16 167 + SA4 A3+B1 $ SB1 B1-B6 $ IX5 X4-X3 $ NO A3=IBUF+4 16 168 + GE B6,B1,*+1 $ ZR X5,*-1 STRIP OFF TRAILING BLANKS 16 169 + BX5 -X0*X4 $ BX7 X0*X4 $ IX5 X5-X1 $ SB1 B1+B6 16 170 + ZR X5,*+2 $ SB2 9 LAST WORD ENDS ON 00 UNLESS 80TH 16 171 + BX7 X0*X3 $ EQ B1,B2,INPH6 $ SB1 B1+B6 COLUMN NON BLANK 16 172 + SX6 B1 $ SA7 A3+B1 $ SA6 A2 $ NO CARD IS MAX 8 WORDS LONG 16 173 INPH6 SA1 IBUF+6 $ ZR B0,INPHU A1=IBUF+6=FIRST READ WORD ON EXIT 16 174 * CONVENTIONS FOR TRANSLATED DO CYCLE. 16 175 * CARD IMAGE. TRAILING BLANKS STRIPPED OFF. ENDING ON 00 . 16 176 * 0000 POINTER TO PREVIOUS DO VARIABLES / DO VARIABLE / FROM / TO / BY / 16 177 * 30 BITS LEFT, NAME IN DISPLAY CODE. OR 18 BITS RIGHT,NUMBER IN BINARY. 16 178 * POSSIBLY NEGATIVE. 16 179 * 0077 POINTER TO BEGIN OF DO CYCLE. TRANSLATION OF ENDDO. 16 180 * 777..776 TERMINATOR OF DO CYCLE. 16 181 INPH22 SB6 X6 $ SA5 X1 $ NO $ SB1 X1 B6=1,B1=DOVLAG 16 182 IX5 X5-X6 $ NO $ NZ X5,INFO1 CONSISTENCY CHECK 16 183 INPH2 SA2 DOCARD $ MX5 12 $ SA3 X2+B1 16 184 MX0 6 $ BX1 X5*X3 $ SX5 X3+B6 $ LX0 54 TERMINATOR=-1 16 185 IX4 X0-X1 $ MX0 30 $ NZ X5,INPH55 16 186 MX6 0 $ SA3 A3+B6 $ SA6 DOVLAG X6=1 REQUIRED IN INPH11 16 187 MX1 0 $ SX6 B6 $ SX7 B6 $ NO END OF DOCYCLE 16 188 ZR B0,INPH11 X7=1=TAPE NR FOR READ 16 189 INPH55 ZR X1,INPH3 $ ZR X4,INPH4 0000B,0077B 16 190 SA4 IBUF+4 $ SB7 B6 $ SA0 A3-B6 RESTORE CARD IN IBUF 16 191 MX0 54 $ BX7 X4 $ SB2 9 16 192 + SA7 A4+B7 $ SA3 A0+B7 $ SB7 B7+B6 $ NO 16 193 SX6 B7 $ BX7 X3 $ SA6 A4-B6 $ BX1 -X0*X3 16 194 + ZR X1,*+1 $ LT B7,B2,*-2 16 195 + SA7 A4+B7 $ SB1 B1-B6 $ NO $ SX7 A3-B1 16 196 + SA7 A2 $ ZR B0,INPH6 POSITION DOCARD 16 197 INPH4 SA0 X3+B1 $ SA4 A0+B6 $ SA5 A0+4 INCREMENT AND TEST 16 198 SX6 X4 $ SA1 A5-B6 $ SX5 X5 $ SX1 X1 BEWARE FOR NEG NR 16 199 IX6 X6+X5 $ BX4 X0*X4 $ SX7 X3+5 16 200 + IX3 X1-X6 $ PL X5,*+1 $ IX3 X6-X1 16 201 + MX0 42 $ BX6 -X0*X6 $ BX6 X6+X4 $ BX0 X6 16 202 + SA4 DOLIST $ PL X3,*+2 JP IF LOOP NOT YET FINISHED. 16 203 + SA5 A0 $ SX7 X2+B6 $ SX6 X5 $ SA6 A4 16 204 + SA3 IAL $ SA5 NSUBS JP IF LAST SYMBOL HAS BEEN COMPARED 16 205 SA7 A2 $ ZR X3,INPH44 $ BX6 X5 WITH DOLIST. 16 206 SA3 DOLST1 $ NO $ SB2 B0 16 207 NZ X3,INPH44 $ SA6 A3 $ NO 16 208 + SA4 X4+B1 $ SA2 A4+B6 $ SB3 X4 $ BX7 X2 STRAIGHTEN DOLIST 16 209 + SA7 X5+B2 $ SB2 B2+B6 $ NE B3,B6,*-1 AT NSUBS 16 210 MX6 59 $ SA6 A7+B6 $ SA1 NDIMU 16 211 SX7 A6+B6 $ SA7 A5 $ NO $ IX1 X1-X7 16 212 NG X1,INFO2 $ NO $ NO TEST ON OVFLOW OF INPUT SPACE 16 213 INPH44 BX6 X0 $ SA6 A0+B6 $ ZR B0,INPH2 16 214 INPH3 SA4 A3+B6 $ SB7 B0-B6 $ NO $ NO INITIALIZE 16 215 INPH7 SA4 A4+B6 $ BX3 X0*X4 $ NO $ BX4 -X0*X4 16 216 + ZR X3,*+2 $ RJ DLIST1 DO J=J1,J2,J3. GIVE VALUE 16 217 + NE B2,B6,INFO1 $ BX7 X3+X4 $ SA7 A4 TO J1,J2,J3 16 218 + EQ B7,B6,*+3 $ SB7 B7+B6 $ NO 16 219 + NZ B7,INPH7 $ SA5 A4-B6 $ BX5 X0*X5 16 220 + BX7 X5+X4 $ SA7 A5 $ ZR B0,INPH7 VALUE TO J 16 221 + SX6 X2+5 $ BX7 X2 $ SA6 A2 16 222 SA7 DOLIST $ ZR B0,INPH2 16 223 * 16 224 *DLIST1************ *DLIST1****** 16 225 DLIST1 BSS 1 SEARCH VALUE OF DO VARIABLES. X3(LEFT) HAS NAME. 16 226 * X4(RIGHT) WILL HAVE VALUE. LEAVE B1,A2,A4,B6,B7,X0,X2 INVARIANT. 16 227 * B2=1 (0) ON EXIT IF VARIABLE (NOT) FOUND. 16 228 SA1 DOLIST $ SB2 B6 $ NO B1 IS DOVLAG,MX0 30 BEFORE ENTRY 16 229 + SA1 X1+B1 $ SA5 A1+B6 $ SB3 X1 $ BX6 X0*X5 16 230 + IX6 X6-X3 $ ZR X6,*+2 $ NO 16 231 + NE B3,B6,*-2 $ SB2 B0 $ NO 16 232 + BX4 -X0*X5 $ ZR B0,DLIST1 16 233 * 16 234 IFILE BSS 1 FILENAME IN B1. FILE NR IN B5. INSERT 3012 1000 24** 16 235 MX4 0 $ NO $ NO $ NO 16 236 ZR B2,IFIL1 $ SA2 LEVCL JP IF DUMMY FUNCTION. B2 IS FLAG 16 237 SA5 B1 $ SX7 B6 $ LX5 42 $ MX0 54 OR 3012 1000 00** 16 238 + NG X5,*+1 $ LX5 54 $ BX7 -X0*X5 JP IF FILE. FOR X,D EXP 16 239 + SA3 LEVCH $ IX7 X2+X7 $ IX6 X3-X7 LEVELS OF BRACKETING 16 240 + NO $ PL X6,*+1 $ SA7 A3 ADJUST ID LEVEL COUNTER 16 241 + SX6 B5+2400B $ SA6 TUS1A 16 242 IFIL1 SX5 3012B $ RJ INDON 16 243 SX5 1000B $ RJ INDON 16 244 SA1 NDUMY $ SB1 IDUM 16 245 SA3 IB $ RJ SARAY1 16 246 + NZ B5,*+1 $ SA5 TUS1A 16 247 + MX6 0 $ MX4 0 $ SA6 IA REQUIRED FOR SO85 16 248 RJ INDON 16 249 ZR B0,IFILE 16 250 * 16 251 *FORWAR************ *FORWAR****** 16 252 FORWAR BSS 1 PLACE INTEG FOR NUMERICAL FUNCTION ARGUMENTS. 16 253 SA2 NBIND $ SX6 X2-56B , 16 254 SX7 X2-52B $ SA3 IAL ) 16 255 ZR X6,FORWAR $ ZR X3,FORWAR 16 256 ZR X7,FORWAR $ SA1 NXEX 16 257 SX7 X2-51B $ NZ X7,FOR1 ( 16 258 SB1 NXGEH $ SA3 SYMB1 16 259 RJ SARAY1 16 260 + SA1 NFUN $ EQ B5,B6,FORWAR JP IF CONJG 16 261 + ZR B5,*+2 $ SA2 B1 $ LX2 36 16 262 + NG X2,FORWAR $ ZR B0,FOR1 JP IF TABLE 16 263 SB1 NFGEH $ RJ SARAY1 16 264 ZR B5,FORWAR $ SX7 B5-12B SEE IF NUMERICAL FUNCTION 16 265 SX4 B5-21B $ BX7 -X7*X4 $ NO 16 266 PL X7,FORWAR 16 267 FOR1 SA2 NBIND $ SX6 X2-51B ( 16 268 + NZ X6,*+2 $ SA3 NHAK 16 269 + SX6 X3-1 $ SA6 A3 16 270 + SA1 NI $ SA2 IAL 16 271 SX3 X1-2 $ SB2 X2 $ IX6 X3-X2 16 272 SA2 IMINUS $ SX7 51B ( 16 273 + MX5 59 $ PL X2,*+1 $ IX6 X6+X5 16 274 + SA6 A1 $ SA3 B2+B-1 $ BX6 X3 16 275 + SA6 X1+A-2 $ SB2 B2-B6 $ SA3 A3-B6 16 276 + IX1 X1+X5 $ BX6 X3 $ LT B0,B2,*-1 SET BACK IN A 16 277 * COULD LEAD TO A NEG NI. E.G. FOR Z Z=F(AAAAA AND ON THE NEXT CARD 16 278 * +1) . THEREFORE 5 WORDS IN FRONT OF A HAVE TO BE AVAILABLE. 16 279 + PL X2,*+3 $ MX7 0 $ NO 16 280 + SA7 IMINUS $ SX6 46B 16 281 + SX7 51B $ LX6 54 $ SA6 A6-B6 16 282 + SA1 NXGEH+1 $ LX7 54 $ SA7 A6-B6 CREATBR = 1 FOR INTEG() 16 283 MX0 30 $ BX6 X0*X1 $ SA6 SYMB1 GENERATION, -1 FOR *( GENER. 16 284 BX7 -X7*X7 $ SX6 B6 $ SA7 NRFLAG1 16 285 SA6 CREATBR $ SA7 EXPOFL1 16 286 SA7 NBLAN1 $ NO $ NO 16 287 SA7 SLASH2 $ SX6 47B * 16 288 SA6 NBIND $ SX7 11B I 16 289 LX7 54 $ NO $ SA7 B 16 290 ZR B0,FORWAR 16 291 * 16 292 *COVNR1************ *COVNR1****** 16 293 COVNR1 BSS 1 (NR=B5=X5,CODE=X6) 16 294 + SA1 NDUMY $ SB1 IDUM 16 295 SA3 SYMB1 $ RJ SARAY1 16 296 + SA4 SLASH1 $ BX7 X4 $ LX6 B0,X5 16 297 SA7 AA $ SA6 IA 16 298 NZ B5,SO147 $ SB1 SYMB1 16 299 SB2 NVECT $ SB3 IA 16 300 SB4 NVGEH $ RJ ZOEK 16 301 + RJ LEZE1 16 302 + SA1 IA $ SA2 NRFIX MUST BE NUMBER OR DUMMY 16 303 SX7 X1+1000B $ SA7 IA 16 304 MX0 55 $ LX1 5 $ BX2 -X0*X2 $ BX6 X1+X2 16 305 SA6 NP31 $ SA1 NRFLAG1 16 306 SA2 NBIND $ SX0 X2-52B ) 16 307 ZR X1,SO149 $ NZ X0,INFO6 16 308 SA1 IMINUS $ SA2 SO1 16 309 BX3 X1-X2 $ NG X3,SO149 16 310 RJ LEZE1 16 311 SX6 4000B $ NO $ NO 16 312 SO150 SA3 AA $ SA5 NP31 16 313 BX7 X3 $ SB5 X5 $ SA7 SLASH1 16 314 ZR B0,COVNR1 16 315 SO147 RJ LEZE1 16 316 SO149 RJ SNAME1 16 317 + BX7 X5+X6 $ MX4 0 $ SX5 1403B 16 318 SA7 NP31 $ RJ INDON 16 319 + SA5 IA $ RJ INDON 16 320 SA1 IMINUS $ SA2 SO1 16 321 BX3 X1-X2 $ MX6 0 $ SA6 A1 $ SA6 A2 16 322 PL X3,SO151 $ SX5 1407B 16 323 MX4 0 $ RJ INDON 16 324 SO151 SA2 NBIND $ SX0 X2-52B . ) 16 325 NZ X0,INFO6 $ RJ LEZE1 16 326 MX6 0 $ ZR B0,SO150 16 327 * 16 328 *CODPR1************ *CODPR1****** 16 329 CODPR1 BSS 1 (NR=B5=X5,CODE=X6) 16 330 + SA1 NDUMY $ SB1 IDUM 16 331 SA3 SYMB2 $ RJ SARAY1 16 332 + NZ B5,SO155 $ SA3 SYMB3 16 333 SB1 IDUM $ RJ SARAY1 16 334 NZ B5,SO163 $ SB1 SYMB2 16 335 SB2 NVECT $ SB3 IA 16 336 SB4 NVGEH $ RJ ZOEK 16 337 + SB1 SYMB3 $ SB3 IB 16 338 RJ ZOEK 16 339 + SA1 IA $ SA2 IB 16 340 IX0 X1-X2 $ BX3 X2 $ SX6 6000B 16 341 NG X0,SO153 $ LX2 B0,X1 $ BX1 X3 16 342 SO153 LX1 5 $ BX5 X1+X2 $ AX1 5 $ SB5 X5 16 343 SB1 X1+NVGEH-1 $ SA4 JDVF1 16 344 SX7 4096 $ IX7 X4+X7 $ SA7 A4 $ JP CODPR1 16 345 SO155 BX7 X5 $ SA7 IA 16 346 SA3 SYMB3 $ SB1 IDUM 16 347 RJ SARAY1 16 348 + NZ B5,SO157 $ SB1 SYMB3 16 349 SB2 NVECT $ SB3 IB 16 350 SB4 NVGEH $ RJ ZOEK 16 351 + SA4 B3 $ SX5 X4+1000B $ NO 16 352 SO157 BX7 X5 $ MX4 0 $ SA7 IB 16 353 SO159 SX5 1403B $ RJ INDON 16 354 + SA5 IA $ RJ INDON 16 355 + SA1 SO1 $ MX6 0 $ SA6 A1 16 356 PL X1,SO161 $ SA6 IMINUS 16 357 SX5 1407B $ RJ INDON 16 358 SO161 SA5 IB $ MX6 0 16 359 ZR B0,CODPR1 16 360 SO163 BX7 X5 $ SA7 IB 16 361 SB1 SYMB2 $ SB2 NVECT 16 362 SB3 IA $ SB4 NVGEH 16 363 RJ ZOEK 16 364 + SA4 IA $ SX6 X4+1000B 16 365 SA6 A4 $ MX4 0 $ JP SO159 16 366 * 16 367 *COSYM1************ *COSYM1****** 16 368 COSYM1 BSS 1 CONSTRUCT ALGEBRA, INDEX OR DOTP. 16 369 * (NR=B5=X5,CODE=X6) 16 370 + SA2 SYMB2 $ SA1 B OR DEAL WITH DOLLAR,7,7,6 16 371 ZR X2,SO175 $ RJ CODPR1 MAKE DOTPRODUCT 16 372 + ZR B0,COSYM1 16 373 SO175 LX1 6 $ NO $ SX2 X1-DO0 16 374 ZR X2,SO176 $ SX2 X1-11B I. IN RANGE I-N IS INDEX 16 375 SX3 X1-17B $ BX4 -X2*X3 O 16 376 SB1 SYMB1 $ SB3 LVAG 16 377 NG X4,SO181 $ SB2 NALGE 16 378 SB4 NAGEH $ RJ ZOEK 16 379 SA5 LVAG $ SX6 2000B 16 380 SO179 SA4 JANI1 $ SX7 4096 16 381 IX7 X4+X7 $ SA7 A4 $ JP COSYM1 16 382 SO181 SB2 NVIND $ SB4 NVIGEH 16 383 RJ ZOEK 16 384 SA5 LVAG $ SX6 0400B 16 385 SA4 JANI1 $ SX7 B6 $ SB5 X5 16 386 IX7 X7+X4 $ SA7 A4 $ ZR B0,COSYM1 16 387 SO176 SA1 SYMB1 $ MX0 6 $ BX3 -X0*X1 CONVERT 3H776 TO 776B 16 388 SX4 333333B $ AX3 36 $ IX4 X3-X4 16 389 LX0 6 $ BX1 X0*X4 $ LX0 6 $ BX2 X0*X4 16 390 LX0 6 $ BX3 X0*X4 $ AX2 3 $ IX1 X1+X2 16 391 AX3 6 $ IX4 X1+X3 $ SB1 X4-777B 16 392 LT B0,B1,INFO4 $ SB1 X4-777B+LISCAL CHECK IF IN RANGE 16 393 NG B1,INFO4 $ SA5 X4-777B+ISCAL+LISCAL-1 16 394 MX6 0 $ NO $ NG X5,INFO4 16 395 NZ X5,SO179 $ NO $ NO RETURN IMMEDIATELY 24** WHEN RHS 16 396 * IS SEEN AFTER LHS WAS ALREADY PROCESSED. E.G. FORWAR MAKES 16 397 * F(A,B,(C)+A) INTO DO0 DO0 7 7 7 =C , DO0 DO0 7 7 6 = DO0 7 7 7 + A. 16 398 SA3 SHMEM1 $ SA4 MBE 16 399 MX5 1 $ MX0 42 $ SX6 B0 $ BX3 -X0*X3 SHIFT MIGHT BE NEGATIF 16 400 + LX3 30 $ BX5 X3+X5 $ BX7 X5+X4 $ SA7 A5 16 401 SX5 2400B $ ZR B0,SO179 16 402 * 16 403 *SNAME1************* *SNAME1****** 16 404 SNAME1 BSS 1 (NR=B5=X5,CODE=X6) 16 405 + SA5 NRFLAG1 $ SA1 NDUMY 16 406 NZ X5,SO167 $ SB1 IDUM JP IF NUMBER 16 407 SA3 SYMB1 $ RJ SARAY1 TRY DUMMY 16 408 MX6 0 $ NO $ NZ B5,SNAME1 16 409 SA1 NALGE $ SB1 NAGEH 16 410 SA3 SYMB1 $ RJ SARAY1 TRY ALGEBRA 16 411 + SA4 JANI1 $ SX7 4096 16 412 IX7 X4+X7 $ SX6 2000B $ SA7 A4 16 413 NZ B5,SNAME1 $ BX7 X4 $ SA7 A4 16 414 SA1 NVIND $ SB1 NVIGEH TRY INDEX 16 415 SA3 SYMB1 $ RJ SARAY1 16 416 + SA4 JANI1 $ SX7 1 16 417 IX7 X4+X7 $ SX6 400B $ SA7 A4 16 418 NZ B5,SNAME1 $ BX7 X4 $ SA7 A4 16 419 SA1 NVECT $ SB1 NVGEH TRY VECTOR 16 420 SA3 SYMB1 $ RJ SARAY1 16 421 + SA4 JDVF1 $ SX7 64 16 422 IX7 X4+X7 $ SX6 1000B $ SA7 A4 16 423 NZ B5,SNAME1 $ BX7 X4 $ SA7 A4 16 424 SA1 NFUN $ SB1 NFGEH TRY FUNCTION 16 425 SA3 SYMB1 $ RJ SARAY1 16 426 + SA4 JDVF1 $ SX7 1 16 427 IX7 X4+X7 $ SX6 3000B $ SA7 A4 16 428 NZ B5,SNAME1 $ BX7 X4 $ SA7 A4 16 429 MX5 0 $ SX6 B0 $ ZR B0,SNAME1 16 430 SO167 SA4 JANI1 $ SA5 IMINUS 16 431 SA3 NRFIX $ SX7 64 16 432 + IX7 X7+X4 $ PL X5,*+1 $ BX3 -X3 16 433 + SA7 A4 $ SA7 A5 $ SB5 3400B FORCE IMINUS POSITIVE 16 434 MX0 52 $ BX5 -X0*X3 $ SX6 B5 $ NO 16 435 ZR B0,SNAME1 16 436 * 16 437 INFO1 ERROR 106 RANGE OF DOLOOP UNDEFINED 16 438 INFO2 ERROR 107 DO LOOP USES TOO MUCH SPACE 16 439 INFO3 ERROR 108 INPUT SPACE IS FULL 16 440 INFO4 ERROR 109 WRONGLY NESTED SUBEXPRESSIONS 16 441 INFO5 ERRORP 110 ILLEGAL CHARACTER IN NAME 16 442 INFO6 ERRORP 111 ILLEGAL VECTOR ARGUMENT 16 443 END 17 0 IDENT SCHOON 17 1 MACRO *EXPAND 17 2 MACRO *EXPRNR 17 3 MACRO *IN 17 4 ENTRY SCHOON,STAR,PAKB1,WBUFV1,RBUFI1,COPY1 17 5 EXT ZOEK,FOUTP,TAKMAN,SEAR1,FOUT,COVNR1,CODPR1,COSYM1 17 6 EXT LIJN,INPHU,INDON,READI1,SARAY1,INIDG1,TAXMAN,SQBRA 17 7 EXT SEAR3,SEAR4,WREND1,PRIN3,LEZE1,FORWAR,SNAME1,IFILE 17 8 MSPEC DIS 3,REDUC TRACE ORTHG 17 9 DIS 3,ORTHN ORDER ORDEI 17 10 DIS 3,SYMXX ASYMX ASYMP 17 11 DIS 3,SPIN1 COUNT TRICK 17 12 DIS 3,EVENX ODDXX REPLA 17 13 DIS 3,RATIO CYCLI COMMU 17 14 DIS 3,NUMER SELFE IFGRE 17 15 DIS 3,IFEQU IFSMA EXPAND 17 16 DIS 1,COMPO 17 17 MSP0E BSS 0 17 18 NSPIC EQU MSP0E-MSPEC 17 19 MSPEC1 VFD 30/5HMULTI,24/0,6/1HM 17 20 VFD 30/5HFUNCT,24/0,6/1HF 17 21 VFD 30/5HDOTPR,24/0,6/1HD 17 22 VFD 30/5HONCEX,24/0,6/1HO 17 23 VFD 30/5HAINBE,24/0,6/1HO 17 24 VFD 30/5HADISO,24/0,6/1HN 17 25 VFD 24/4HONCE,30/0,6/1HO 17 26 MSPEC2 BSS 0 17 27 NSPIC1 VFD 60/MSPEC2-MSPEC1 17 28 * 17 29 DATA 23031017171600000000B 17 30 SCHOON BSS 1 17 31 SX4 A0 $ MX7 42 $ SA3 SCHOON PLANT SA0 B0+K 17 32 BX7 -X7*X4 $ SX5 5100B $ BX7 X7+X3 K=OLD VALUE. 17 33 LX5 18 $ BX7 X5+X7 $ LX7 30 $ SA7 A3 17 34 + SB6 1 $ SX7 B0 $ MX6 0 INITIALIZE 17 35 SA6 VLAGT1 $ NO $ NO USED TO SIGNAL TABLE WITH ARGUMENTS. 17 36 SA6 MMBE $ SA7 MMBU 17 37 SA6 MNEPS $ SA7 MNSUBS 17 38 SB1 INCOM $ SB2 INCO1 17 39 + SA6 B1 $ SA7 B1+B6 $ SB1 B1+2 17 40 + LT B1,B2,*-1 $ SA6 IIEP 17 41 SA7 BBUFX $ SA6 IIDGEHX+500 DELETE CONTENT OF BUFFERS 17 42 SB1 41 $ SA6 I1001 17 43 SA7 NREP $ SA6 LEVEL 17 44 SA7 NCRIN $ SA6 KKUIT 17 45 SA6 YTERM $ SA7 NMULT 17 46 SA6 NTEM $ SA7 NZELF 17 47 SA1 NF $ SB1 41 17 48 + SB2 X1 $ EQ B1,B2,*+1 $ MX1 0 17 49 + BX7 X1 $ SA6 NWEG $ SA7 A1 17 50 SA6 CRIND $ NO $ MX7 0 17 51 + SA7 B1+NID $ SB1 B1-2 17 52 + SA6 A7-B6 $ PL B1,*-1 $ SX6 B6 17 53 SA6 IDAAN $ SA7 NSPEC 17 54 SX7 777B $ SA7 IDO1+3 17 55 SX7 -3 $ SA7 KTA1+1 17 56 SA6 LEVLO $ SX7 101 17 57 SA6 LEVCL $ SA6 LEVCH 17 58 SX6 IDGEH $ SA6 IDADR 17 59 SA7 NI $ NO $ NO 17 60 SA3 NDIMT $ SX6 IIEP-11 17 61 SA6 NDIMU $ IX3 X6-X3 $ NO 17 62 SX3 X3-600 $ NG X3,FOS10 MINIMUM SIZE FOR OUTPUT SPACE 17 63 SA3 NDIMT $ MX2 59 $ BX7 X3 X2 IS TERMINATOR 17 64 SA1 DOVLAG $ SA7 NSUBS 17 65 SA4 DO77 $ RJ MOV12 MOVE DOLOOP AND BLOCK ARGUM 17 66 SA1 BLOKPT $ SA4 BLK77 FORWARD (*YEP) OR PICK UP 17 67 RJ MOV12 THEIR ADDRESS (* NEXT) 17 68 RJ LEZE1 17 69 SA2 MBE $ NO $ SB1 X2 17 70 SA1 NDIMT $ NO $ NO SET REST OF IT TO ZERO 17 71 SB2 X1+IT-3 $ MX6 0 $ SX7 B0 17 72 + SA6 B1 $ SA7 B1+B6 $ SB1 B1+2 17 73 + GE B2,B1,*-1 $ ZR B0,NBLANK1 17 74 FOS10 ERRORP 113 17 75 * 17 76 GOON1 MX6 0 $ BX7 -X7*X7 $ SA6 NORDER 17 77 SA7 IDIND1 $ RJ LEZE1 17 78 NBLANK1 SA1 A+2 $ MX0 18 $ SA2 A1-B6 17 79 LX1 48 $ SA3 A2-B6 $ LX2 54 $ BX1 X1+X2 17 80 LX0 48 $ BX1 X1+X3 $ LX1 48 $ BX1 X0*X1 17 81 SB1 NTAB2 $ NO $ NO 17 82 SO10A SA2 B1+TABLE2-1 $ SB1 B1-B6 $ BX3 X0*X2 17 83 IX6 X1-X3 $ SB3 X2 $ ZR X6,SO10C 17 84 LT B0,B1,SO10A $ MX0 12 $ AX1 18 17 85 LX0 30 $ BX1 X0*X1 $ SB2 NTAB3 17 86 SO10B SA2 B2+TABLE3-1 $ SB2 B2-B6 $ BX3 X0*X2 17 87 IX7 X1-X3 $ NG X7,SO10B $ SB3 X2 17 88 SO10C MX3 12 $ BX6 X3*X2 $ LX6 12 $ NO 17 89 SA6 NORDER $ JP B3+0 17 90 TABLE2 VFD 12/11,18/3HBLO,30/BLOK1 FIRST 12 BITS IS NORDER 17 91 VFD 12/11,18/3HCOM,30/COMMO1 17 92 VFD 12/11,18/3HDEL,30/DELET1 17 93 VFD 12/11,18/3HFRE,30/FREEZ1 17 94 VFD 12/11,18/3HKEE,30/KEEP1 17 95 VFD 12/10,18/3HMAI,30/MAIN1 17 96 VFD 12/11,18/3HNAM,30/FNAM1 17 97 VFD 12/11,18/3HNBL,30/NBLO1 17 98 VFD 12/11,18/3HNPR,30/NPRIN1 17 99 VFD 12/11,18/3HOLD,30/OLDNE1 17 100 VFD 12/11,18/3HPUN,30/PUNCH1 17 101 VFD 12/11,18/3HPRI,30/PRIN1 17 102 VFD 12/11,18/3HSUM,30/SUMI1 17 103 VFD 12/11,18/3HSTO,30/STORE1 17 104 VFD 12/11,18/3HSPA,30/SPAC1 17 105 TAB2L BSS 0 17 106 NTAB2 EQU TAB2L-TABLE2 17 107 TABLE3 VFD 30/0,12/0,18/GOON1 17 108 VFD 12/7,18/0,12/2HAL,18/IDENA1 17 109 VFD 12/11,18/0,12/2HAM,18/GOON1 17 110 VFD 12/11,18/0,6/1HB,24/BRACK1 17 111 VFD 30/0,6/1HC,24/GOON1 17 112 VFD 12/7,18/0,6/1HD,24/DATAX1 17 113 VFD 12/11,18/SDA1,6/1HF,24/NAMEL1 17 114 VFD 12/11,18/SDA2,6/1HI,24/NAMEL1 17 115 VFD 12/7,18/0,12/2HID,18/IDENI1 17 116 VFD 12/11,18/SDA2,12/2HIE,18/NAMEL1 17 117 VFD 12/7,18/0,6/1HL,24/IDENL1 17 118 VFD 12/11,18/0,6/1HN,24/NUMER1 17 119 VFD 12/10,18/0,6/1HR,24/REP1 17 120 VFD 12/11,18/SDA3,6/1HS,24/NAMEL1 17 121 VFD 12/7,18/0,6/1HT,24/TAFEL1 17 122 VFD 12/11,18/SDA4,6/1HV,24/NAMEL1 17 123 VFD 12/7,18/0,6/1HX,24/XIDEN1 17 124 VFD 12/11,18/0,6/1HZ,24/MAINX1 17 125 VFD 12/11,18/0,6/1H0,24/SPACE1 17 126 VFD 12/11,18/0,6/1H+,24/SPACE2 17 127 VFD 12/11,18/1,6/1H-,24/SPACE3 17 128 VFD 12/11,18/0,6/1H*,24/EXIT1 17 129 VFD 12/11,18/0,6/53B,24/DOLLA1 17 130 VFD 12/7,18/0,6/1H=,24/IDENI1 17 131 VFD 30/0,6/1H ,24/GOON1 FOR BLANKS OR 77B 17 132 TAB3L BSS 0 17 133 NTAB3 EQU TAB3L-TABLE3 17 134 SDA1 VFD 30/NFGEH,30/NFUN 17 135 SDA2 VFD 30/NVIGEH,30/NVIND 17 136 SDA3 VFD 30/NAGEH,30/NALGE 17 137 SDA4 VFD 30/NVGEH,30/NVECT 17 138 * 17 139 RFIL1 BSS 1 RFIL1 READS FILE NAMES 17 140 RFI1 RJ LEZE1 MASK IN X0 (30 OR 42 BITS) 17 141 SA2 IAL $ SA3 NBIND NAME IN X1 17 142 ZR X2,RFI3 $ SA1 SYMB1 17 143 SX2 X3-BO0 $ MX0 30 $ BX6 X0*X1 ( 17 144 BX1 X0*X1 $ NZ X2,RFIL1 17 145 SA6 IA $ RJ LEZE1 17 146 + SA1 NRFIX $ SA3 IMINUS 17 147 SA2 IA $ MX0 48 $ BX1 -X0*X1 17 148 PL X3,RFI2 $ BX1 -X1 $ BX1 -X0*X1 17 149 RFI2 LX1 18 $ MX0 42 $ BX1 X1+X2 $ BX1 X0*X1 17 150 ZR B0,RFIL1 17 151 RFI3 SX2 X3-77B $ NZ X2,RFI1 17 152 ZR B0,GOON1 17 153 * 17 154 COMMO1 RJ SEAR1 17 155 COM1 RJ LEZE1 17 156 SA2 IAL $ NO $ NO 17 157 ZR X2,COM3 $ SB1 SYMB1 17 158 SB2 NXEX $ SB3 IA 17 159 SB4 NXGEH $ RJ ZOEK 17 160 + SA1 IA $ SA2 NBIND 17 161 SA5 X1+NXGEH-1 $ SX2 X2-BO0 17 162 MX0 30 $ BX3 -X0*X5 $ SX4 602B ( 17 163 NZ X2,COM2 $ SX4 600B FILE, COMMON AND INDEX BITS 17 164 COM2 LX4 9 $ BX6 X4+X5 $ BX7 X4-X5 $ LX7 49 17 165 ZR X3,COM2A $ NG X7,FOS20 CONFLICTING INDEXING 17 166 COM2A SA6 A5 $ NZ X2,COM3 17 167 RJ LEZE1 READ TILL ) 17 168 RJ LEZE1 READ TILL NEXT SPECIAL 17 169 COM3 SA1 NBIND $ SX2 X1-77B INSPECT TERMINATOR 17 170 NZ X2,COM1 $ SA1 NXEX FIX NXGEH AND LOC 17 171 BX6 X1 $ SA6 MTAB+17 $ SA6 A6+B6 17 172 ZR B0,GOON1 17 173 FOS20 ERRORP 120 17 174 * 17 175 KEEP1 MX6 1 $ LX6 14 $ ZR B0,DEL0 17 176 NPRIN1 MX6 59 $ LX6 11 $ ZR B0,DEL0 17 177 PUNCH1 MX6 1 $ SX7 B6 $ LX6 13 17 178 SA7 NCONT $ ZR B0,DEL0 17 179 PRIN1 MX6 1 $ LX6 12 $ ZR B0,DEL0 17 180 STORE1 MX6 1 $ LX6 15 $ SX7 B6 $ NO SETS FLAGS FOR WRITING 17 181 SA7 NCONT+3 $ ZR B0,DEL0 RESULTS ON NTAP3. 17 182 DELET1 MX6 0 17 183 DEL0 SA6 IB $ RJ SEAR1 17 184 DEL1 RJ RFIL1 GO READ FILENAME 17 185 SA2 NXEX $ NO $ SB1 X2 17 186 DEL4 SA3 B1+NXGEH-1 $ SB1 B1-B6 $ BX5 X0*X3 17 187 IX6 X1-X5 $ NO $ NZ X6,DEL6 17 188 SA2 IB $ BX7 X2+X3 $ SA7 A3 17 189 PL X2,DEL5 $ BX7 X2*X3 $ SA7 A3 17 190 DEL5 NZ X2,DEL6 $ SX2 220000B 17 191 BX7 -X2*X3 $ SA7 A3 17 192 DEL6 LT B0,B1,DEL4 $ SA4 IB 17 193 SA2 N5PS $ ZR X4,DEL10 17 194 ZR X2,DEL10 $ SB1 X2 17 195 DEL8 SA3 B1+FILN1-1 $ SB1 B1-B6 $ BX5 X0*X3 17 196 IX6 X1-X5 $ BX7 X3 $ NZ X6,DEL9 17 197 BX7 X4+X3 $ PL X4,DEL9 $ BX7 X4*X3 17 198 DEL9 SA7 A3 $ LT B0,B1,DEL8 17 199 DEL10 SA1 NBIND $ SX2 X1-77B 17 200 NZ X2,DEL1 $ ZR B0,GOON1 17 201 * 17 202 FNAM1 RJ SEAR1 SET UP DUMMY TABLES 17 203 FNA1 RJ RFIL1 NAME IN X1, MASK IN X0 17 204 SA2 NXEX $ MX4 52 $ SB1 X2 17 205 FNA2 SA3 B1+NXGEH-1 $ SB1 B1-B6 $ BX7 X0*X3 17 206 IX6 X1-X7 $ BX5 -X4*X3 $ ZR X6,FNA4 17 207 FNA3 LT B0,B1,FNA2 $ ZR B0,FNA7 17 208 FNA4 ZR X5,FNA3 $ SA2 X5+LOC-1 JP IF NO LOC 17 209 LX3 42 $ LX6 B6,X3 $ PL X3,FNA3 JP IF NO FILE 17 210 PL X6,FNA3 $ SB7 X2 $ BX6 X5 JP IF LOCAL 17 211 PL B7,FNA3 $ RJ FNAM2 JP IF NOT TAPE 17 212 ZR B0,FNA8 17 213 FNAM2 BSS 1 A2=ABS ADRES OF LOC OF FILE. X6=ADRES IN LOC 17 214 SA6 IA $ SA1 NVIND CONSTRUCT KEY FROM NAMELIST 17 215 SB2 CROSBUF $ BX6 X1 $ SB1 A2 17 216 SA6 NCRIN $ SA6 NQX 17 217 RJ CROSR READ NAMELIST FROM TAPE 17 218 SA2 IA $ SA3 MBE 17 219 SB6 1 $ SA4 X2+LOC-1 17 220 SX6 X3+IT-1 $ SX7 X3+2 X3=NR OF WORDS 17 221 LX6 42 $ MX0 18 $ BX4 -X0*X4 $ BX6 X6+X4 SET KEYADRES IN LOC 17 222 SA7 A3 $ SA6 A4 $ SX7 48 17 223 SX1 B6 $ SA7 SHMEM1 $ PX1 B0,X1 17 224 MX6 0 $ NX7 B0,X1 $ SA6 X3+IT-1 17 225 SA7 A6+B6 $ MX4 0 $ SX5 1401B DUMMY KEY 17 226 SA6 A7+B6 $ RJ INDON PACK IN IT 17 227 + SA5 CROSBUF+4 $ ZR X5,FNA6 17 228 FNA5 MX4 0 $ RJ INDON 17 229 SA5 A5+B6 $ NZ X5,FNA5 17 230 FNA6 RJ INDON 17 231 ZR B0,FNAM2 17 232 FNA8 SA2 MBE $ BX6 X2 17 233 SA6 MTAB+4 17 234 FNA7 SA1 NBIND $ SX2 X1-77B 17 235 NZ X2,FNA1 $ ZR B0,GOON1 17 236 * 17 237 FREEZ1 RJ SEAR1 17 238 RJ LEZE1 17 239 SA1 SYMB1 $ SA2 NXEX 17 240 FRE1 SA3 X2+NXGEH-1 $ MX0 30 $ BX4 X0*X1 17 241 BX5 X0*X3 $ SX2 X2-1 $ IX6 X4-X5 17 242 ZR X6,FRE2 $ NZ X2,FRE1 17 243 FOS18 ERRORP 118 17 244 FRE2 LX3 43 $ PL X3,FOS18 $ LX3 6 JP IF NOT COMMON 17 245 PL X3,FOS18 $ LX3 55 $ MX0 52 JP IF INDEXED 17 246 NG X3,GOON1 $ LX3 16 $ BX6 -X0*X3 JP IF ALREADY FROZEN 17 247 ZR X6,FOS18 $ SA1 X6+LOC-1 17 248 SX7 A3 $ SX5 A1 $ NO $ NO 17 249 LX7 18 $ BX7 X7+X5 $ SA7 IA IA = NXGEH,LOC ADDRESS 17 250 LX1 42 $ PL X1,GOON1 $ LX1 18 JP IF NOT ON TAPE 17 251 MX0 43 $ BX6 -X0*X1 $ SX7 X6+6 17 252 SB1 NTAP4 $ SB4 REWIND0 NFR1=RECORD NR + 6 17 253 SA7 K7 $ RJ TAKMAN REWIND 17 254 SB1 NTAP5 $ SB4 REWIND0 17 255 RJ TAKMAN REWIND 17 256 RJ RBUFI1 READ NAME LIST 17 257 + SA1 BUFI1+3 $ MX7 1 $ LX7 16 17 258 SA2 BUFI1+1 $ SX6 X2-3 17 259 BX7 X1+X7 $ SA7 A1 $ SB1 NTAP4 INDICATE FROZEN FILE 17 260 SA7 FFILN $ SA6 KI 17 261 SB2 A2-B6 $ SB3 A6 $ SB4 WRITE0 17 262 RJ TAKMAN WRITE 17 263 + SB6 1 $ MX6 0 $ SX7 B6 17 264 SA6 K5 $ SA7 K4 17 265 SA6 KSUBF $ SX5 1424B PASS, SET FOR BELOW 17 266 SA1 FFILN $ SX6 3021B SPECIAL FUNCTION DF 17 267 MX0 52 $ BX7 -X0*X1 $ MX0 8 $ SB1 X7 B1=NR OF DUMMIES 17 268 SB2 4 $ SB3 B6 $ SB5 B2 B2=4, B5=COUNT 17 269 FRE3 BX7 X0*X1 $ LX6 12 $ LX7 8 $ LX1 8 17 270 SX7 X7+3400B $ SB5 B5-B6 $ BX6 X6+X7 17 271 LT B0,B5,FRE3 $ SA6 IPR1 17 272 SB4 B6+B6 $ SX6 340034B $ LX6 6 HERE B5=0, B2=4 17 273 FRE4 GE B5,B1,FRE5 $ SB5 B5+B6 $ LX6 12 B4 = BYTE COUNT 17 274 SX1 B5 $ SB4 B4-B6 $ BX6 X1+X6 B3 = WORD COUNT 17 275 GE B4,B0,FRE4 $ SA6 A6+B6 $ SB3 B3+B6 B5 = DU COUNT 17 276 MX6 0 $ SB4 B2 $ ZR B0,FRE4 17 277 FRE5 SX1 3000B $ LX6 12 $ SB4 B4-B6 17 278 FRE6 BX6 X1+X6 $ LT B4,B0,FRE7 $ LX6 12 17 279 BX1 X5 $ SB4 B4-B6 $ ZR B0,FRE6 PAD WITH 1424B 17 280 FRE7 SA6 A6+B6 $ SX7 B3+B6 $ SA7 LEN 17 281 SX6 B2 $ NO $ SA6 KV 17 282 SA6 KA $ NO $ NO 17 283 FRE8 SA6 FRVEC $ RJ RBUFI1 17 284 FRE8A SA2 KI $ SA1 FRVEC 17 285 SA5 X2+BUFI1 $ ZR X1,FRE14A 17 286 SA4 LEN $ SA3 KV 17 287 AX5 42 $ IX6 X4+X3 $ SX7 X5+2 17 288 IX0 X6+X7 $ SB7 X0-507 17 289 NG B7,FRE9 $ RJ WBUFV1 17 290 FRE9 SA1 KI $ SA2 KV 17 291 SA3 X1+BUFI1 $ SA4 KSUBF 17 292 SA5 LEN $ MX0 52 $ SX7 X4+B6 17 293 SX1 X1+B6 $ SA7 A4 $ BX6 -X0*X7 $ LX0 8 17 294 BX0 -X0*X7 $ LX6 36 $ LX0 40 $ BX0 X0+X6 17 295 MX6 18 $ BX7 X6*X3 $ LX7 18 $ IX7 X5+X7 17 296 NO $ LX7 42 $ BX6 -X6*X3 $ BX6 X6+X7 17 297 MX7 0 $ SA7 X2+BUFV1-1 $ SX2 X2+B6 17 298 SA6 A7+B6 $ SX2 X2+B6 $ SB7 X5 $ SB5 B6+B6 17 299 SA4 A3+B6 $ SA5 IPR1 $ BX7 X4 17 300 SX1 X1+B6 $ SA7 A6+B6 $ SX2 X2+B6 $ BX6 X5 17 301 SA6 A7+B6 $ SX2 X2+B6 $ SA5 A5+B6 $ BX7 X5+X0 17 302 SA7 A6+B6 $ SX2 X2+B6 $ GE B5,B7,FRE11 17 303 FRE10 SA5 A5+B6 $ SX2 X2+B6 $ SB7 B7-B6 $ BX7 X5 17 304 SA7 A7+B6 $ LT B5,B7,FRE10 17 305 FRE11 AX3 42 $ SB7 X3 $ GE B5,B7,FRE13 17 306 FRE12 SA4 A4+B6 $ SX2 X2+B6 $ SB7 B7-B6 $ BX7 X4 17 307 SA7 A7+B6 $ SX1 X1+B6 $ LT B5,B7,FRE12 17 308 FRE13 SA3 =1. $ SX6 B6+B6 $ LX6 42 17 309 BX7 X3 $ SA6 A7+B6 $ SX2 X2+B6 $ SA7 A6+B6 17 310 SX6 X1+B6 $ SX7 X2+B6 $ SA6 A1 $ SA7 A2 17 311 SA3 FFILN $ SA4 KSUBF 17 312 SB6 B0 $ NO $ SX6 5 17 313 NO $ SA6 KA $ NO 17 314 LX4 18 $ BX7 X3+X4 $ SA7 BUFA1+3 17 315 FRE14 RJ WBUFA1 17 316 SA1 =1. $ SX7 7 17 317 SA7 KA $ SX6 B6+B6 $ MX7 0 17 318 LX6 42 $ SA7 BUFA1+3 $ SA6 A7+B6 17 319 BX7 X1 $ SA7 A6+B6 $ ZR B0,FRE15 17 320 FRE14A AX5 42 $ SX2 X2+B6 $ IX6 X2+X5 $ SA6 A2 17 321 FRE15 SA1 KI $ SA2 KA 17 322 FRE15A SA3 X1+BUFI1-1 $ BX4 X3 $ AX4 42 17 323 SB7 X4 $ NZ X3,FRE18 $ SA5 A3+B6 17 324 MX7 59 $ IX6 X5+X7 $ NZ X5,FRE16 17 325 SB6 B0-B6 $ RJ WBUFA1 TERMINATE FILE - B6=-1 17 326 + MX6 59 $ ZR B0,FRE8 17 327 FRE16 NZ X6,FRE17 $ ZR B0,FRE8 GET NEW INPUT BUFFER 17 328 FRE16A SB6 B0-B6 $ RJ WBUFA1 TERMINATE 17 329 MX6 59 $ SA6 FRVEC 17 330 ZR B0,FRE8A 17 331 FRE17 IX6 X5-X7 $ NZ X6,FRE16A $ SB6 B0-B6 17 332 RJ WBUFA1 17 333 + SB6 B0-B6 $ RJ WBUFV1 B6=-1 TERMINATE FILE 17 334 SA1 IA $ MX6 59 $ SA6 X1 17 335 RJ UPDAT 17 336 + SB1 NTAP7 $ SB3 IB 17 337 SB4 =-4 $ RJ TAKMAN GET NEXT RECORD NR. 17 338 + SA1 IA $ SA2 KSUBF 17 339 SA3 IB $ SA4 K4 17 340 MX0 3 $ LX0 20 $ LX4 24 $ BX6 X3+X4 17 341 BX7 X0+X6 $ SA7 X1 $ MX0 18 $ LX0 30 17 342 AX1 18 $ SA1 X1 $ MX5 3 $ LX5 18 17 343 BX1 -X0*X1 $ BX1 X1+X5 $ LX2 18 $ BX6 X2+X1 17 344 SA6 A1 $ AX2 30 $ NZ X2,FOS30 17 345 SA1 K4 $ SX2 NTAP4 17 346 RJ COPY1 17 347 + SA1 K5 $ SX2 NTAP5 17 348 RJ COPY1 17 349 ZR B0,GOON1 17 350 FOS30 ERRORP 130 17 351 FRE18 IX0 X2+X4 $ SX7 X0-507 $ SA5 A3+B6 17 352 PL X7,FRE14 17 353 BX6 X3 $ LX7 B0,X5 $ SA6 X2+BUFA1-1 17 354 SA7 A6+B6 $ SB5 B6+B6 $ GE B5,B7,FRE21 17 355 FRE20 SA5 A5+B6 $ BX7 X5 $ SB7 B7-B6 $ SA7 A7+B6 17 356 LT B5,B7,FRE20 17 357 FRE21 IX6 X1+X4 $ BX7 X0 $ SA6 A1 $ SA7 A2 17 358 IX1 X1+X4 $ BX2 X0 $ ZR B0,FRE15A 17 359 * 17 360 RBUFI1 BSS 1 17 361 SB1 NTAP7 $ SB2 BUFI1 17 362 SB3 KI $ SB4 K7 17 363 RJ TAKMAN READ 17 364 + SA1 K7 $ SB6 1 17 365 SX6 4 $ SX7 X1+B6 $ SA7 A1 17 366 SA6 KI $ ZR B0,RBUFI1 17 367 WBUFV1 BSS 1 17 368 SB1 NTAP4 $ SB2 BUFV1 IF B6=1 SUPPLY 0,0 17 369 SA1 KV $ SB4 WRITE0 IF B6=-1 SUPPLY 0,-1 17 370 SB3 A1 $ SX6 X1-2 $ MX7 0 17 371 SA6 A1 $ SA7 X1+BUFV1-1 $ MX5 59 17 372 SX6 X5+B6 $ AX6 1 $ SA6 A7+1 17 373 RJ TAKMAN WRITE 17 374 + SA1 K4 $ SB6 1 17 375 SX6 4 $ SX7 X1+B6 $ SA7 A1 17 376 SA6 KV $ ZR B0,WBUFV1 17 377 WBUFA1 BSS 1 17 378 SB1 NTAP5 $ SB2 BUFA1 SUPPLY 0,B6 17 379 SA1 KA $ SB4 WRITE0 17 380 SB3 A1 $ SX6 X1-2 $ MX7 0 17 381 SA6 A1 $ SA7 X1+BUFA1-1 $ SX6 B6 17 382 SA6 A7+1 $ RJ TAKMAN 17 383 + SA1 K5 $ SB6 1 17 384 SX6 4 $ SX7 X1+B6 $ SA7 A1 17 385 SA6 KA $ ZR B0,WBUFA1 17 386 COPY1 BSS 1 17 387 MX0 42 $ BX3 -X0*X1 $ SX1 X1 $ LX3 18 17 388 BX6 X3+X2 $ SB1 X2 $ SA6 IB 17 389 NG X1,COP1 $ SB4 WEOFR0 17 390 RJ TAKMAN EOF, REWIND 17 391 COP1 SA1 IB $ SB1 X1 $ AX1 18 17 392 ZR X1,COPY1 $ SX1 X1-1 17 393 MX0 18 $ BX1 -X0*X1 $ LX1 18 $ SX7 B1 17 394 BX6 X1+X7 $ SA6 A1 $ SB2 BUFI1 17 395 SB3 KI $ SB4 READ0 17 396 RJ TAKMAN READ 17 397 SA1 IB $ SA2 BUFI1+3 17 398 MX6 59 $ IX7 X2-X6 $ PL X1,COP3 17 399 SB6 1 $ ZR X7,COPY1 17 400 COP3 SB1 NTAP7 $ SB2 BUFI1 17 401 SB3 KI $ SB4 WRITE0 17 402 RJ TAKMAN WRITE 17 403 SB6 1 $ ZR B0,COP1 17 404 CBUF1 EQU IIEP BUFFER FOR UPDATE OF FILES 17 405 LOCALZ TUS,1,TUS1,1,NWORDS,1 17 406 MACRO *UPDAT 17 407 MACRO *WTAKM 17 408 MACRO *CROSR 17 409 MACRO *INDCR 17 410 * 17 411 * USE OF IT FOR BLOCK OPERATION. EACH NAME IS 5 WORDS, FOLLOWED BY 17 412 * ENDBLOCK OR DELETED OR REPLACED 17 413 * COPY OF INPUT CARD,NAME,NAME,...,NAME 17 414 * 8 WORDS ITNAM1 MBE 17 415 * NAMELIST OF BLOCKS ENTERED VIA TAPE3 17 416 TT11 VFD 54/9HTAPE END ,6/0 17 417 TT22 VFD 54/9HENDBLOCK ,6/0 17 418 TT33 VFD 48/8HREPLACED,12/0 17 419 TT44 VFD 42/7HDELETED,18/0 17 420 TT66 VFD 18/3HCOP,42/0 17 421 TT77 VFD 18/3HBLO,42/0 17 422 TT88 VFD 54/9HAVAILABLE,6/0 17 423 TT99 VFD 12/2HDO,48/0 17 424 PAKB1 BSS 1 B1 POINTS TO REPLACED OR DELETED 17 425 SA2 MBE $ NO $ SA4 X2 B2,B7 IS NOT CHANGED 17 426 + SA1 ITNAM1 $ ZR X1,PAKB1 COMPARE B WITH NAMELIST (X1 TO X2) 17 427 PAKB2 SA3 X1 $ IX3 X4-X3 $ ZR X3,*+3 SEARCHED NAME IN X4 17 428 + SX1 X1+6 $ IX3 X1-X2 $ NO COMPARE FIRST WORD OF ALL NAMES 17 429 + NG X3,PAKB2 $ ZR B0,PAKB1 17 430 + SB5 A3+4 $ MX7 0 $ SA1 B1 FIRST WORD MATCHES 17 431 + SA3 A3+B6 $ SA4 A4+B6 $ IX0 X3-X4 $ SB3 A3 COMPARE OTHER 17 432 + BX7 X7+X0 $ LT B3,B5,*-1 $ BX6 X1 WORDS OF NAME 17 433 + CX7 X7 $ SX1 A3+B6 $ NZ X7,*+2 APPEND DELETED OR REPLACED 17 434 + SA6 X1 $ ZR B0,PAKB1 17 435 + SA4 X2 $ SX1 X1+B6 $ ZR B0,PAKB2 17 436 COPY34 BSS 1 COPY BLOCKS FROM TAPE3 TO TAPE4 17 437 SA1 BLOV34 $ ZR X1,COPY34 JP IF BLOCKS OF TAP3 ARE ALREADY IN 17 438 BX7 -X7*X7 $ NO $ SA7 A1 $ NO 17 439 REW. NTAP4 EXIT WITH B6=1 17 440 SA2 MBE $ SB2 -7 17 441 SX6 X2+10 $ SA3 IBUF+6 2 WORDS INBETWEEN FOR SAFETY 17 442 SA6 A2 $ BX7 X3 $ SA7 X2+2 17 443 + SA3 A3+B6 $ BX7 X3 $ SB2 B2+B6 $ SA7 A7+B6 17 444 + NG B2,*-1 $ SA6 ITNAM1 STORE BLOCK CARD IN IT 17 445 BLOK5 SA1 NTAP3 $ RJ INPHU COPY TAPE3 TO TAPE4 17 446 + SA1 NTAP4 $ SX6 B6 $ BX7 X1 17 447 SA6 IBUF+2 $ SA7 IBUF 17 448 RJ LIJN 17 449 + SA3 IBUF+6 $ SB6 1 $ MX0 54 17 450 SA2 TT11 $ SA4 TT22 17 451 BX1 X0*X3 $ IX2 X1-X2 $ ZR X2,BLOK3 JP IF TAPE END 17 452 + IX6 X1-X4 $ NO $ NZ X6,*+2 JP IF NOT ENDBLOCK 17 453 + SA6 NENDBL1 $ ZR B0,BLOK5 17 454 + SA1 NENDBL1 $ NZ X1,BLOK5 JP IF PRECED CARD NE ENDBLOCK 17 455 SB3 5 $ NO $ NO 17 456 SA4 MBE $ SB2 B0-B6 $ SA6 A1 17 457 + SB2 B2+B6 $ BX7 X3 $ SX6 X4+6 17 458 + SA7 X4+B2 $ SA3 A3+B6 $ LT B2,B3,*-1 STORE NAME OF BLOCK 17 459 SA2 NDIMT $ SX2 X2-8 AT MBE. 17 460 + SA6 A4 $ IX2 X2-X6 $ PL X2,BLOK5 17 461 FOS32 ERRORP 132 17 462 * ONLY 9 CHARS ARE COMPARED. 10TH = 00B WHEN REST OF CARD BLANK. 17 463 * = 55B IF COLUMNS 73-80 ARE NOT EMPTY. 17 464 BLOK3 SA1 ITNAM1 $ SB2 -8 TAPE END 17 465 SB3 IBUF+13 $ NO $ NO 17 466 + SA3 X1+B2 $ BX7 X3 $ SB2 B2+B6 $ SA7 B3+B2 17 467 NG B2,*-1 $ NO $ NO 17 468 REW. NTAP3 17 469 REW. NTAP4 17 470 SB6 1 $ ZR B0,COPY34 17 471 BLOK1 RJ COPY34 GET BLOCKS IN 17 472 SB7 B0 $ SB2 B0 $ RJ SEAR3 ANALYSIS OF BLOCK CARD 17 473 + IX0 X5-X4 $ SX6 B2 $ ZR X0,*+2 17 474 + SA6 NI $ ZR B0,FOS39 17 475 + RJ SEAR4 17 476 SB1 TT33 $ RJ PAKB1 CONSTRUCT NAME AT MBE.ADD REPLACED 17 477 SA1 MBE $ SA3 IBUF+6 17 478 SB2 -7 $ BX7 X3 $ MX6 0 17 479 SA7 X1+6 $ SA2 NTAP3 STORE INPUT CARD AT MBE+6 17 480 + SA3 A3+B6 $ BX7 X3 $ SB2 B2+B6 $ SA7 A7+B6 17 481 + NG B2,*-1 $ SB2 -4 17 482 SA6 IBUF+2 $ SA3 X1 $ BX7 X3 17 483 SA7 IBUF+5 $ SX6 6 17 484 + SA3 A3+B6 $ BX7 X3 $ SB2 B2+B6 $ SA7 A7+B6 17 485 + NG B2,*-1 $ SA3 TT88 WRITE NAME OF BLOCK ON TAPE3 17 486 SA6 A6+B6 $ BX7 X3 $ BX6 X2 $ SA7 A7+B6 FOLOWD BY AVAILABLE 17 487 SA6 IBUF $ RJ LIJN 17 488 + SA2 MBE $ SB2 -7 17 489 SA3 X2+6 $ SB6 1 RESTORE INPUT CARD 17 490 MX0 54 $ BX7 X3 $ SA7 IBUF+5 TILL 00 TERMINATOR 17 491 + BX3 -X0*X3 $ ZR X3,*+3 $ SA3 A3+B6 17 492 + SB2 B2+B6 $ BX7 X3 $ NO $ SA7 A7+B6 17 493 + SX6 B2+8 $ NG B2,*-2 17 494 + SA6 IBUF+3 $ RJ LIJN 17 495 BLOK6 SA1 NTAP1 $ RJ INPHU COPY BLOCK FROM TAPE1 TO TAPE3 17 496 RJ PRIN3 PRINT ON OUTPUT 17 497 + SA2 NTAP3 $ SX6 B6 $ BX7 X2 17 498 SA6 IBUF+2 $ SA7 IBUF 17 499 RJ LIJN WRITE ON TAPE3 17 500 + SA4 IBUF+6 $ NO $ MX0 54 17 501 SA5 TT22 $ BX4 X0*X4 $ NO 17 502 SA1 TT66 $ IX5 X4-X5 $ MX0 18 CHECK ON COPY 17 503 + BX4 X4*X0 $ NZ X5,*+2 $ MX6 0 CASE OF ENDBLOCK 17 504 + SA6 DUMCAR $ ZR B0,GOON1 NO DUMMY CARD GENERATION 17 505 + SA2 TT77 $ IX1 X1-X4 $ IX2 X2-X4 CHECK ON BLOCKS 17 506 ZR X1,FOS22 $ ZR X2,FOS22 17 507 SA1 TT99 $ MX0 12 $ BX4 X0*X4 17 508 IX1 X1-X4 $ ZR X1,FOS22 $ NO CHECK ON DO 17 509 ZR B0,BLOK6 17 510 FOS39 ERRORP 139 17 511 FOS22 RJ WREND1 WRITE TAPE END 17 512 ERRORP 122 17 513 NBLO1 RJ COPY34 GET BLOCKS IN 17 514 SA1 ITNAM1 $ SB2 B0 $ SB7 B0 17 515 ZR X1,GOON1 $ NO $ NO 17 516 + RJ SEAR3 B2 IS POINTER ON CARD 17 517 RJ SEAR4 17 518 + SB1 TT44 $ RJ PAKB1 B1 POINTS TO DELETED 17 519 + PL B2,*-3 $ SX7 80 JP IF CONTINUATION CARD 17 520 MX6 58 $ NO $ SA7 NI 17 521 SA6 DUMCAR $ ZR B0,GOON1 DUMMY CARD GENERATION 17 522 * 17 523 *NUM1************** *NUM1******** 17 524 NUM1 BSS 1 CONVERT TO BINARY THE NUMBER STARTING AT ADDRESS 17 525 MX0 6 $ BX6 -X6*X6 $ SB1 B0-33B IN A1. STOP AT ENCOUNTER 17 526 NUM2 BX2 X0*X1 $ LX2 6 $ SX4 X2-45B + OF NONNUMERIC. 17 527 SX3 X2+B1 $ BX7 -X3*X4 $ PL X7,NUM3 17 528 IX7 X6+X6 $ LX6 3 $ IX7 X7+X3 $ SA1 A1+B6 X7=10*X6+X3 17 529 IX6 X6+X7 $ ZR B0,NUM2 17 530 NUM3 SX3 A1 $ SX4 A $ IX7 X3-X4 17 531 SX3 X7-72 $ PL X3,FOS47 17 532 SA7 NI $ ZR B0,NUM1 17 533 FOS47 ERRORP 147 17 534 * 17 535 SPAC1 RJ SEAR1 17 536 + RJ LEZE1 17 537 SA1 NRFIX $ SA2 MTAB 17 538 SA3 NDIMU $ SA4 NRFLAG1 17 539 IX6 X1+X2 $ ZR X4,FOS37 $ IX7 X3-X6 17 540 SA6 NDIMT $ SX7 X7-1000 17 541 SA6 MTAB+6 $ NO 17 542 PL X7,GOON1 $ ZR B0,FOS37 17 543 FOS37 ERRORP 137 17 544 * 17 545 SO13 RJ INSPEC1 N MU,8,305,R 17 546 ZR B0,NUMER1+1 17 547 NUMER1 SX6 5 $ SA6 NQU 17 548 + RJ LEZE1 17 549 SA1 NRFLAG1 $ SX0 200 17 550 SA2 NRFIX $ SA3 NQU NQU GE 200 MEANS RATIO REQUEST 17 551 ZR X1,SO14 $ SX6 X2-300 17 552 + NG X6,*+2 $ SA6 NF INSERT COUNT 17 553 + ZR B0,SO13 17 554 + IX6 X3-X0 $ NG X6,*+2 $ NO DIGITS IN PRINT + R REQUEST 17 555 + IX7 X2+X0 $ SA7 A3 $ ZR B0,SO13 17 556 + BX6 X2 $ SA6 A3 $ ZR B0,SO13 DIGITS IN PRINT 17 557 SO14 SA4 SYMB1 $ LX4 6 $ NO 17 558 SX6 X4-22B $ NZ X6,SO14B R FOR RATIO REQUEST 17 559 IX7 X3-X0 $ PL X7,SO13 $ NO 17 560 IX7 X3+X0 $ SA7 A3 $ ZR B0,SO13 17 561 SO14B SB1 A4 $ SB2 NVIND $ NO ERROR INDEX 17 562 SB4 NVIGEH $ SB3 I1001 17 563 RJ ZOEK 17 564 ZR B0,SO13 17 565 * 17 566 TAFEL1 SB6 B0-1 B6 IS PUT TO 0NE AGAIN BELOW. 17 567 DATAX1 SX7 B6 $ SA7 DATAFL1 D-EXPRESSION 17 568 XIDEN1 MX6 0 $ SX7 7 X EXPRESSION 17 569 SA6 NDUMY $ SA7 NORDER 17 570 SB6 1 $ RJ LEZE1 17 571 SA1 NXEX $ SB1 NXGEH 17 572 SA3 SYMB1 $ RJ SARAY1 17 573 SA1 B1 $ SB3 IB $ LX1 42 17 574 + ZR B5,*+1 $ NG X1,FOS21 17 575 + SB2 NXEX $ SB1 SYMB1 17 576 MX7 43 $ SB4 NXGEH 17 577 SA7 IDIND1 $ RJ ZOEK 17 578 SA4 MBU $ SA5 IB 17 579 BX7 X5 $ SA7 XDRE1 17 580 SX6 X5-128 $ PL X6,FOS8 17 581 SA1 DATAFL1 $ SX3 2000B 17 582 + SA5 X5+NXGEH-1 $ ZR X1,*+3 17 583 + SX3 B0 $ PL X1,*+2 $ MX3 1 17 584 + SA4 MBE $ LX3 24 INDICATE T-TABLE, INSERT IT ADDRESS. 17 585 + BX4 X4+X3 $ MX3 30 $ BX5 X3*X5 $ NO 17 586 SA1 NBIND $ BX6 X5+X4 $ SA6 A5 17 587 SX3 X1-51B $ ZR X3,SO185B ( 17 588 SO185A SX3 X1-54B $ ZR X3,SO185D = 17 589 FOS25 ERRORP 125 17 590 FOS21 ERRORP 121 17 591 FOS8 ERRORP 122 MORE THAN 128 X,D EXPR 17 592 FOS26 ERRORP 126 17 593 FOS27 ERRORP 127 17 594 SO185B RJ READI1 17 595 + ZR X6,SO185C $ SB1 SYMB1 17 596 SB2 NDUMY $ SB3 IB 17 597 SB4 IDUM $ RJ ZOEK 17 598 SO185C SA1 NBIND $ SX2 X1-56B , 17 599 ZR X2,SO185B $ SX2 X1-52B ) 17 600 NZ X2,FOS26 $ RJ LEZE1 17 601 SA1 NBIND $ SX3 X1-EQ0 17 602 ZR X3,SO185D $ ZR B0,FOS27 17 603 SO185D SA1 DATAFL1 $ PL X1,STEX1 17 604 SA2 MBE $ MX6 0 $ SA6 A1 TREAT TABLE 17 605 SA6 X2+IT-1 $ SX7 48 17 606 SX6 11 $ SA7 SHMEM1 17 607 SA6 NORDER $ SX5 1424B START EVERY WORD WITH 1424B 17 608 MX4 0 $ RJ INDON 17 609 SO185E RJ LEZE1 17 610 + SA1 SHMEM1 $ SX6 X1+12 INDON LEAVES X4=0, B5 UNCHANGED. 17 611 + NZ X6,*+2 $ SX5 1424B 17 612 + MX4 0 $ RJ INDON LOOK FOR =C 17 613 + SA1 NBIND $ SX3 X1-54B = 17 614 SA2 IAL $ NZ X3,SO185G ,= SITUATION. ERROR IF NOT. 17 615 NZ X2,FOST1 $ RJ LEZE1 17 616 + SA1 IAL $ SA2 B 17 617 SB7 X1 $ LX2 6 $ SX5 X2+3400B 17 618 NE B7,B6,FOST1 $ SB5 1426B ONLY ONE CHAR. 17 619 SO185F MX4 0 $ RJ INDON 17 620 SX5 B5 $ MX4 0 $ RJ INDON 17 621 SA1 NBIND $ SX6 X1-56B , 17 622 ZR X6,SO185E $ SA2 MBE 17 623 SA1 NBLAN1 $ SX6 X2+B6 $ SA6 A2 17 624 NZ X1,NBLANK1 $ ZR B0,GOON1 17 625 FOST1 ERRORP 189 ILLEGAL TABLE LIST. 17 626 SO185G SA3 SYMB1 $ SA1 NXEX 17 627 SB1 NXGEH $ RJ SARAY1 17 628 SB7 B5 $ ZR B5,SO185I $ SA3 B1 SEE IF TABLE 17 629 BX7 X3 $ SB7 B5 $ LX7 36 $ NO 17 630 PL X7,SO185H $ RJ SNAME1 JP IF NOT 17 631 + SX5 B5 $ SA2 IMINUS $ NO 17 632 + SB5 B0 $ PL X2,*+1 $ SB5 B5+B6 17 633 + NZ X5,*+1 $ SX5 B7+1400B IN TABLE LIST X-EXPR=1400+NR 17 634 + SB5 B5+1414B $ ZR B0,SO185F 17 635 SO185H SB4 B5-B6 $ LT B6,B4,SO185I $ MX7 0 17 636 SA2 IMINUS $ SX6 X3 $ SA7 A2 INTEG OR CONJG 17 637 SA1 NBIND $ SX5 X1-47B * 17 638 + MX7 59 $ PL X2,*+1 $ SX6 X6+B6 CHECK -SIGN 17 639 + SA6 LVAG $ ZR X5,*+2 17 640 + SX5 X1-51B $ SA7 CREATBR ( 17 641 + NZ X5,FOST1 $ RJ LEZE1 17 642 + RJ COSYM1 17 643 + SX7 X5-2400B $ NZ X7,FOST1 17 644 SA4 LVAG $ SB5 X4 $ NO 17 645 ZR B0,SO185F 17 646 SO185I RJ SNAME1 17 647 + NZ B5,*+2 $ SX5 B7+1400B 17 648 + NZ B7,*+1 $ RJ COSYM1 17 649 + SA1 IMINUS $ SB5 1424B 17 650 + PL X1,*+1 $ SB5 1407B 17 651 + BX5 X5+X6 $ ZR B0,SO185F 17 652 * 17 653 REP1 MX6 54 $ NO $ SA6 RIND1 17 654 ZR B0,MAINX1 17 655 MAIN1 SX6 NN0 $ SX7 EQ0 17 656 LX6 54 $ SA6 A+3 $ LX7 54 17 657 SA7 A6+B6 $ SX6 BL0 $ LX6 54 17 658 SB1 65 $ SA6 A7+B6 $ MX7 0 17 659 SA7 NI $ NO $ NO 17 660 + SA6 A6+B6 $ SB1 B1-B6 $ PL B1,* 17 661 MAINX1 SA1 LEVCH $ SA3 LEVHY 17 662 SX6 B6 $ IX0 X1-X3 $ SA6 LEVLO 17 663 + NG X0,*+1 $ BX7 X1 $ SA7 A3 17 664 + SA6 LEVCL $ NO $ SA6 A1 17 665 RJ LEZE1 17 666 SA3 SYMB1 $ SA1 NXEX 17 667 SB1 NXGEH $ RJ SARAY1 17 668 SA4 =00000000000000406000B $ ZR B5,MAI2 17 669 SA5 B1 $ SX6 200000B $ LX5 42 FOUND IN NXGEH 17 670 PL X5,MAI2 $ LX5 1 JP IF X-TYPE 17 671 + PL X5,*+1 $ BX4 X4+X6 JP IF NOT COMMON 17 672 + SX6 2000B $ LX5 6 17 673 NG X5,MAI2 $ BX4 -X6*X4 JP IF NOT INDEXED 17 674 MAI2 SA1 SYMB1 $ MX0 30 $ BX3 X0*X1 17 675 SA2 N5PS $ BX6 X3+X4 $ SX7 X2+B6 17 676 SA6 X2+FILN1 $ SA7 IA 17 677 SX3 X7-FILIMIT $ PL X3,FOS19 17 678 SA3 KKUIT $ SA4 MBU 17 679 SX6 X3+B6 $ SA6 A3 $ SA7 A2 $ NO 17 680 LX4 30 $ BX7 X4+X7 $ SA7 X3+IPR+1 17 681 MX6 0 $ NO $ SA6 IB 17 682 SA6 NP31 $ SA1 NBIND 17 683 SX2 X1-51B $ NZ X2,MAI12 ( 17 684 RJ LEZE1 17 685 + SA1 NRFLAG1 $ ZR X1,MAI10 17 686 SA1 N5PS $ SA2 X1+FILN1-1 IS INDEXED FILE 17 687 SX3 2000B $ BX6 -X3*X2 $ SA6 A2 17 688 SA2 IMINUS $ SA3 NRFIX 17 689 AX2 59 $ BX6 X3-X2 $ SA6 IB 17 690 MAI3 SA1 NBIND $ SX2 X1-52B ) 17 691 SX3 X1-56B $ ZR X2,MAI11 , 17 692 ZR X3,MAI9 $ SA2 IB 17 693 SA3 NP31 $ SB1 X1-45B + 17 694 ZR B1,MAI8 $ EQ B1,B6,MAI7 JP IF + - 17 695 SB1 B1-2 $ NZ B1,FOS45 * 17 696 SA1 SLASH2 $ ZR X1,MAI5 17 697 RJ LEZE1 DIVIDE 17 698 SA1 IB $ SA2 NRINVERS 17 699 ZR B0,MAI6 17 700 MAI5 RJ LEZE1 17 701 SA1 IB $ SA2 NRFLOAT 17 702 MAI6 SA3 NRFLAG1 $ ZR X3,FOS45 17 703 PX1 B0,X1 $ NX1 B0,X1 $ FX6 X1*X2 $ UX7 B1,X6 FIXED POINT * 17 704 LX6 B1,X7 $ SA6 A1 $ ZR B0,MAI3 FLOAT POINT MULTIPLICATION 17 705 MAI7 IX6 X2+X3 $ MX7 59 $ SA6 A3 $ SA7 A2 - = -1* 17 706 ZR B0,MAI5 17 707 MAI8 IX6 X2+X3 $ SX7 B6 $ SA6 A3 $ SA7 A2 + = +1* 17 708 ZR B0,MAI5 17 709 MAI9 RJ LEZE1 17 710 MAI10 RJ SNAME1 17 711 + NZ B5,*+1 $ RJ COSYM1 17 712 + SX7 X6-3000B $ SA1 SYMB1 17 713 + NZ X7,*+1 $ SX6 X6-1740B 17 714 + MX0 30 $ BX6 X5+X6 $ SA2 N5PS 17 715 BX1 X0*X1 $ BX6 X1+X6 $ SA6 X2+FILN1 17 716 SX7 X2+B6 $ SA7 A2 $ SX1 X2-FILIMIT 17 717 NG X1,MAI3 $ ZR B0,FOS19 17 718 MAI11 SA1 IB $ SA2 NP31 ) AFTER Z EXPR ARGS. 17 719 SA3 IA $ SA4 N5PS 17 720 IX6 X1+X2 $ MX0 48 $ IX7 X4-X3 $ BX6 -X0*X6 17 721 SA5 X3+FILN1-1 $ MX0 52 $ LX6 18 17 722 BX7 -X0*X7 $ BX5 X5+X6 $ BX7 X5+X7 $ SA7 A5 17 723 RJ LEZE1 17 724 MAI12 SA1 NBIND $ SA2 N5PS 17 725 SA3 RIND1 $ SX4 X1-54B = 17 726 MX7 59 $ BX6 -X6*X6 $ NZ X4,FOS46 17 727 SA7 X2+FILN1 $ SA6 IDIND1 17 728 ZR X3,STEX1 $ SA1 FITE2 WHEN FIRST R CARD,ASSIGN BUFFER SPAC 17 729 SA7 NREP $ NZ X1,RINPU6 NREP PREVENTS CREATION OF DOLLAR 17 730 SX6 B0 $ NO $ SA6 NTEM WHEN BRACKETS ARE SEEN 17 731 SX7 B6 $ SA7 A1 $ ZR B0,RINPU3 17 732 FOS19 ERRORP 119 17 733 FOS45 ERRORP 145 17 734 FOS46 ERRORP 146 17 735 * 17 736 DOLLA1 RJ LEZE1 DO0776=...= 17 737 SA2 NCIND $ MX7 0 $ SX6 X2+B6 17 738 SA7 IDIND1 $ SA6 A2 $NO 17 739 SA1 SYMB1 $ MX0 6 $ BX3 -X0*X1 CONVERT 3H776 TO 776B 17 740 SX4 333333B $ AX3 36 $ IX4 X3-X4 17 741 LX0 6 $ BX1 X0*X4 $ LX0 6 $ BX2 X0*X4 17 742 LX0 6 $ BX3 X0*X4 $ AX2 3 $ IX1 X1+X2 17 743 AX3 6 $ IX4 X1+X3 $ SB1 X4-777B 17 744 LT B0,B1,FOS48 $ SB1 X4-777B+LISCAL CHECK IF IN RANGE 17 745 NG B1,FOS48 $ SA1 X4-777B+ISCAL+LISCAL-1 17 746 SA2 MBU $ SX7 X2+2400B 17 747 SA7 A1 $ PL X1,STEX1 $ SB4 X1 JP IF THIS DOLLAR 17 748 * WAS NOT YET SEEN IN RHS OF A SUBSTITUTION. SEE COSYM1. 17 749 LX1 30 $ SB3 X1 $ BX5 X7 $ SX4 B6+B6 17 750 RJ INDON 17 751 * 17 752 STEX1 SA1 MBU $ MX6 0 $ SX7 X1+B6 START NEW EXPRESSION 17 753 SA6 FITE1 $ SA7 A1 $ SX6 B6 MBU = EXPR. NUMBER 17 754 SA5 MBE $ SB2 X1 $ BX7 X5 17 755 SA6 NTEKEN $ SA7 B2+LOC-1 FITE1 = 0 FOR FIRST TERM 17 756 STTE1 SX7 10 $ SA3 RIND1 ST(ART NEXT) TE(RM) 17 757 SA7 NORDER $ NZ X3,RINPU1 JP IF R INPUT R (INPUT) IND(DICA 17 758 SA5 MBE $ MX6 0 $ BX7 X5 MBE LOCATION CURRENT TERM 17 759 SA3 NTEKEN $ SA1 KTERM KTERM LOCATION PREVIOUS TERM 17 760 PX4 B0,X3 $ SA7 A1 $ SA2 FITE1 FORM NUMERICAL COEFF OUT 17 761 SA6 X5 $ NX7 B0,X4 $ SA7 A6+B6 $ SA6 A7+B6 NTEKEN 17 762 SX7 X5+2 $ SA7 A5 $ SA7 A2 17 763 SX6 48 $ SA6 SHMEM1 INITIALIZE INDON 17 764 ZR X2,STFA1 $ SA3 DATAFL1 JP IF FIRST TERM 17 765 ZR X3,SO25A $ SX5 2 JP IF NO D EXPRESSION 17 766 SO25A LX5 42 $ SA2 X1 $ BX7 X5+X2 $ SA7 A2 LOC TO PILOT WORD 17 767 STFA1 RJ LEZE1 ST(ART NEXT) FA(CTOR) 17 768 + SA3 RIND1 $ ZR X3,SO27 JP IF NO R INPUT 17 769 SA3 NBIND $ SA2 IAL CHECK FOR *( 17 770 SX7 X3-51B $ NZ X2,SO27 ( 17 771 NZ X7,SO27 $ RJ REND END VECTOR 17 772 MX7 0 $ NO $ SA7 VECIN1 VEC(TOR)IND(ICATOR) 17 773 SX5 36 $ ZR B0,RINPU5 START SCALAR 17 774 FOS48 ERRORP 148 17 775 * R INPUT HAS FORMAT VECTOR+VECT+VECT*(SCALAR+SCALAR+...)+... 17 776 * IS TRANSLATED INTO VECT*(E.SC)+VECT*(E.SC)+VECT*(SC+SC+...)+... 17 777 * WITH E.SC = EMPTY SCALAR TAIL = 17 778 * 00000300000000000000 17204000000000000000 40010000000000000000 17 779 RINPU1 RJ REND END OF VECTOR OR SCALAR. COME FROM SO41 17 780 + SA2 VECIN1 $ ZR X2,RINPU4 JP IF SCALAR 17 781 + RJ REND3 17 782 RINPU6 SA1 MBE $ MX6 0 $ SX7 X1+B6 SEPARATE WITH ZERO.NEW VECTOR 17 783 SA6 X1 $ SA7 A1 $ SX5 24 SHIFT FOR VECTOR 17 784 SA3 ITTA1 $ IX4 X1-X3 $ NO 17 785 SX2 X4-370 $ PL X2,TAK1 JP IF BUFFER FULL 17 786 SA7 LVEC1 $ ZR B0,RINPU5 REMEMBER LAST VECTOR HEAD 17 787 RINPU4 SA1 MBE $ SA3 ITTA1 START NEW SCALAR 17 788 IX4 X1-X3 $ SX2 X4-435 $ NO JP IF BUFFER FULL 17 789 PL X2,TAK2 $ SX5 36 SHIFT FOR SCALAR 17 790 RINPU5 SA1 MBE $ SA3 NTEKEN BEGIN NEW VECTOR OR SCALAR 17 791 MX6 0 $ BX7 X1 $ SA7 KTERM 17 792 PX4 B0,X3 $ SX7 X1+2 $ SA6 X1 17 793 SA7 A1 $ NO $ NX7 B0,X4 $ NO 17 794 SA7 A6+B6 $ SA6 A7+B6 $ NO $ BX6 X5 17 795 SA6 SHMEM1 $ RJ LEZE1 SH(IFT) MEM(ORY) OF INDON 17 796 ZR B0,SO27 17 797 RINPU3 SA1 MBE $ SX7 X1+3 FIRST TERM OF FIRST R EXPR 17 798 SA2 NDIMT $ SX3 X1+512 CHECK IF SUFFICIENT SPACE FOR BUFFER 17 799 IX2 X2-X3 $ NO $ NG X2,FOS31 A3=RIND1 17 800 SA7 A3 $ SA7 A1 $ SA7 ITTA1 3 LOCATIONS FOR TAKMAN 17 801 SA7 VECIN1 $ SB1 NTAP6 17 802 SB2 B1 $ SB3 B1 $ SB4 REWIND0 17 803 RJ TAKMAN 17 804 + SB6 1 $ ZR B0,RINPU6 BEGIN VECTOR 17 805 FOS31 ERRORP 131 17 806 REND1 SA1 NTEM $ SX7 X1+B6 $ SA7 A1 COUNT NR OF TERMS 17 807 REND BSS 1 ENDS VECTOR OR SCALAR PARTS IN R INPUT 17 808 SA2 MBE $ SX7 X2+B6 $ SA7 A2 TERMINATE CURRENT WORD IN IT 17 809 SA1 KTERM $ SB3 48 17 810 MX0 18 $ IX3 X7-X1 $ SX5 X3+3776B LINK TERMS 17 811 SX4 X3-100B $ PL X4,FOS15 17 812 SA4 X1 $ LX3 42 $ BX6 X0*X3 $ BX1 -X0*X4 INSERT POINTER 17 813 BX7 X6+X1 $ SA7 A4 $ SB4 A4+2 17 814 SX4 B6+B6 $ RJ INDON 17 815 SA5 VECIN1 $ ZR X5,REND1 17 816 SA2 KKUIT $ SA1 KTERM 17 817 SX5 X2+4000B $ SB4 X1+2 17 818 SB3 36 $ SX4 2 17 819 RJ INDON 17 820 ZR B0,REND 17 821 FOS15 ERRORP 115 17 822 REND3 BSS 1 17 823 + SX6 17204B $ SA3 MBE CONSTRUCT EMPTY SCALAR TAIL 17 824 SX7 3 $ LX6 45 $ LX7 42 17 825 SA7 X3 $ SA6 A7+B6 $ SX6 X3+3 17 826 SX7 4001B $ SA1 NTEM 17 827 LX7 48 $ SA7 A6+B6 $ SX7 X1+B6 $ SA6 A3 17 828 SA7 A1 $ ZR B0,REND3 17 829 TAK1 SA6 A6+B6 $ RJ TAK3 RECORD ENDS 0,0 17 830 + SA2 ITTA1 $ BX7 X2 $ NO START WITH NEW VECTOR 17 831 SA7 MBE $ ZR B0,RINPU6 17 832 TAK2 MX7 0 $ SX6 B6 $ SA7 X1 $ SA6 X1+B6 17 833 RJ TAK3 RECORD ENDS 0,1 17 834 + SA3 LVEC1 $ SA4 X3 $ AX4 42 17 835 SB3 X3 $ SB4 X4 $ SA1 ITTA1 17 836 SB1 X1 $ SB3 B3-B6 $ SB5 B0 $ NO 17 837 TAK5 SA2 B3+B5 $ BX7 X2 $ SA7 B1+B5 $ SB5 B5+B6 17 838 GE B4,B5,TAK5 $ SX7 B1+B5 $ NO COPY LAST VECTOR 17 839 SA7 MBE $ SX5 36 AND ITS PRECEDING ZERO 17 840 ZR B0,RINPU5 17 841 TAK3 BSS 1 WRITE RECORD, STARTING AT ITTA1 17 842 * X4 MUST BE SET AT LENGTH OF INFORMATION 17 843 SA1 ITTA1 $ SX7 X4+2 RIND1 CONTAINS LENGTH OF RECORD 17 844 SA7 RIND1 $ SB1 NTAP6 X4 IS LENGTH OF INFORMATION 17 845 SB2 X1-3 $ SB3 A7 $ NO 17 846 SB4 WRITE0 $ RJ TAKMAN 2 END OF RECORD WORDS ADDED 17 847 SB6 1 $ ZR B0,TAK3 17 848 * 17 849 SO27 SA1 EXPOFL1 $ SA3 IMINUS COME FROM STFA1 17 850 SA5 KTERM $ NO 17 851 NZ X1,SO31 $ PL X3,SO31 JP IF EXP, +SIGN 17 852 SA2 X5+IT $ SA3 A2-B6 $ MX0 18 CHANGE SIGN. 17 853 BX6 -X2 $ BX7 -X0-X3 $ SA6 A2 $ SA7 A3 17 854 SO31 SA1 NRFLAG1 $ ZR X1,SO49 17 855 SA2 NRFLOAT $ SA4 EXPOFL1 IS NUMBER. MULTIPLY OR DIVIDE 17 856 SA3 SLASH1 $ NZ X4,SO37 17 857 SA4 NRFIX $ SA1 NRFLOAT 17 858 BX0 X4 $ SX6 200B $ AX0 59 17 859 PX7 B0,X4 $ BX0 X4-X0 $ IX6 X0-X6 $ NX0 B0,X7 17 860 FX7 X1-X0 $ SA1 A1+B6 $ NX7 B0,X7 $ NX0 B0,X1 17 861 NZ X7,SO32A $ ZR X0,SO32B JP IF NRFLOAT IS NOT INTEGER 17 862 SO32A SX6 2 17 863 SO32B MX0 52 $ BX7 -X0*X4 $ LX1 B0,X5 17 864 SX5 X7+3400B $ NG X6,SO51 JP IF ABS(NRFIX) GE 200B 17 865 ZR X3,SO33 $ SA2 NRINVERS 17 866 * DOUBLE PRECISION MULTIPLICATION OF IT(KTERM) WITH NRFLOAT AFTER * 17 867 * (IF NRES(23)=0 ) . ELSE WITH NRINVERS=1/NRFLOAT AFTER / . 17 868 * NO MULTIPLICATION IF NRFLOAT IS IN FACT AN INTEGER WITH ABS VALUE 17 869 * LT 128. THEN 3400 REPRESENTATION IS USED. 17 870 SO33 SA3 A2+B6 $ SA5 X1+IT-1 $ SA4 A5+B6 DOUBLE PRECIS MULTIPL 17 871 MX7 18 $ LX5 18 $ UX0 B7,X4 $ AX5 18 IT(X1) DOES NOT HAVE 17 872 LX5 7 $ SB7 B7-48 $ PX5 B7,X5 POINTER. ROUND 90 BITS 17 873 FX0 X3*X4 $ FX1 X2*X5 $ FX0 X0+X1 $ FX3 X2*X4 MANT TO D PR 17 874 DX1 X2*X4 $ FX1 X0+X1 $ FX6 X1+X3 $ DX2 X1+X3 17 875 SA6 A4 $ UX2 B0,X2 $ SX6 B6+B6 $ AX2 7 SET FLAG FOR 17 876 BX7 -X7*X2 $ SA7 A5 $ SA6 EREXP1 ILLEGAL NR ** NR . 17 877 BIND35 SA1 NBIND $ SA2 NBLAN1 17 878 + SX6 X1-52B $ ZR X6,SO43 ) .END OF EXPRESSION 17 879 SX0 X1-54B $ ZR X0,SO45 = .END OF IDENTITY 17 880 SX6 X1-47B $ ZR X6,STFA1 * .NEXT FACTOR 17 881 SX0 X1-45B $ ZR X0,SO41 + .NEXT TERM 17 882 SX6 X1-46B $ ZR X6,SO41 - .NEXT TERM 17 883 SX6 X1-77B $ ZR X6,SO40A SPECIAL TERMINATOR 17 884 SX6 X1-56B $ ZR X6,SO40 , DATA EXPR. 17 885 SA3 IDIND1 $ ZR X2,FOS44 JP IF BLANK AZ 17 886 NZ X3,SO45 $ JP FOS64 JP IF IDENTITY EXPRESSION 17 887 FOS44 ERRORP 144 17 888 FOS64 ERRORP 164 17 889 SO37 SA1 NRFIX $ SA3 IMINUS INSERT EXPONENT 17 890 MX0 52 $ PL X3,SO39 $ BX1 -X1 17 891 SO39 BX6 -X0*X1 $ SX4 B6 $ SX5 X6+3400B 17 892 RJ INDON 17 893 SA1 EREXP1+1 $ ZR X1,BIND35 17 894 ZR B0,FOS6 17 895 SO40 SA4 DATAFL1 $ ZR X4,FOS2 17 896 SA2 MBE $ SX7 X2+B6 $ SA7 A2 FOR D-EXPR. 17 897 ZR B0,STTE1 NO TERMINATING 0 NEEDED. 17 898 SO41 SA4 DATAFL1 $ NZ X4,FOS38 17 899 SA5 RIND1 $ NZ X5,RINPU1 +,- NEXT TERM 17 900 RJ INDON 17 901 + ZR B0,STTE1 17 902 SO43 SA2 RIND1 $ ZR X2,FOS2 ) END OF EXPRESSION 17 903 RJ REND 17 904 + RJ LEZE1 17 905 SA1 NBIND $ SX2 X1-77B 17 906 ZR X2,SO40B $ SX7 B6 $ NO 17 907 SA7 VECIN1 $ ZR B0,RINPU6 17 908 SO40A SA1 RIND1 $ ZR X1,SO45 77B SPECIAL TERMINATOR 17 909 RJ REND 17 910 + RJ REND3 EMPTY SCALAR TAIL 17 911 SO40B RJ LEZE1 READ OVER GENERATED DUMMY CARDS 17 912 SA3 A $ SX2 BL0 17 913 AX3 54 $ MX0 54 $ BX1 -X0*X3 $ IX3 X1-X2 17 914 ZR X3,SO40B $ SX2 22B R 17 915 SX7 77B $ IX5 X1-X7 $ IX3 X1-X2 SPECIAL TERMINATOR 17 916 ZR X5,SO40B $ SA7 VECIN1 17 917 ZR X3,MAINX1 $ SX4 AS0 * 17 918 IX5 X1-X4 $ NZ X5,FOS35 $ NO ONLY R AND * YEP CARD ALLOWED 17 919 SA1 MBE $ MX6 0 $ MX7 59 END OF INFORMATION ENDS WITH 0,-1 17 920 SA2 ITTA1 $ SA6 X1 $ SA7 X1+B6 17 921 IX4 X1-X2 $ RJ TAK3 17 922 + SB1 NTAP6 $ SB2 B1 $ SB3 B1 17 923 SB4 REWIND0 $ RJ TAKMAN 17 924 SB6 1 $ SA1 ITTA1 17 925 MX7 0 $ SX6 X1-3 $ NO 17 926 SA7 RIND1 $ SA6 MBE 17 927 SA6 NREP $ ZR B0,NBLANK1 17 928 SO45 BX4 -X4*X4 $ SX5 B0 $ RJ INDON 17 929 SO45AA SA5 NCIND $ NZ X5,SO46 17 930 MX6 0 $ SA6 NDUMY 17 931 SA1 XDRE1 $ ZR X1,SO46 FOR X-EXPR. INSERT BRACKET DEPTH 17 932 SA2 MBE $ SA3 MBU 17 933 BX6 X2 $ LX7 B0,X3 $ SA6 MTAB+4 17 934 SA7 MTAB+10 $ MX6 0 $ SX7 B6 17 935 SA2 LEVCH $ SA3 LEVHY 17 936 SA7 A2 $ IX6 X2-X3 $ SA4 X1+NXGEH-1 17 937 MX0 6 $ PL X6,SO45A $ BX2 X3 17 938 SO45A LX0 30 $ BX4 -X0*X4 $ LX2 24 $ BX2 X0*X2 17 939 SA7 LEVLO $ SA7 LEVCL 17 940 BX6 X4+X2 $ MX7 0 $ SA6 A4 $ SA7 A1 RESET XDRE1 17 941 SA7 LEVHY $ NO $ NO 17 942 SO46 SA1 NBLAN1 $ SA2 DATAFL1 17 943 MX6 0 $ SA6 IDIND1 17 944 ZR X2,SO46A $ SA5 KTERM 17 945 SA4 X5+IT-1 $ SX3 1 FOR D EXPRESSIONS 17 946 LX3 42 $ BX7 X3+X4 $ SA6 A2 $ SA7 A4 17 947 SO46A NZ X1,NBLANK1 $ ZR B0,GOON1 17 948 SO47 SA1 BBA $ SX2 52B ) .IAL=0 ONLY IN SITUATION 17 949 LX2 54 $ IX7 X1-X2 $ ZR X7,BIND35 LIKE P(N)* 17 950 ZR B0,FOS3 17 951 SO49 SX6 0 $ SA6 VLAG VLAG NON ZERO FOR FUNCTION 17 952 SA1 IAL $ ZR X1,SO47 ARGUMENTS 17 953 SA2 NBIND $ SX0 X2-51B ( 17 954 ZR X0,SO65 $ SA4 EXPOFL1 17 955 SA3 SYMB1 $ NZ X4,SO61 JP IF EXPONENT 17 956 SA1 NXEX $ SB1 NXGEH TRY CONJG , X OR D EXPRESSION 17 957 BX7 X3 $ NO $ SA7 IB IB USED BY IFILE 17 958 RJ SARAY1 17 959 + SA1 NALGE $ ZR B5,SO57 17 960 SO55A SX6 B5-3 $ NO $ SB2 B6 COME FROM SO65 17 961 PL X6,SO58D $ SA5 B1 $ MX4 0 17 962 RJ INDON INSERT CONJG OR INTEG 17 963 * SPECIAL FORMAT OF OPERATORS IN NXGEH. CODE IS CONTAINED IN THEIR NAME. 17 964 SA1 NBIND $ SX6 X1-47B * 17 965 ZR X6,SO56 $ SX2 X1-51B ( 17 966 NZ X2,FOS49 $ MX6 59 17 967 SO56 SA6 CREATBR $ RJ LEZE1 17 968 + SA2 B $ LX2 6 17 969 SX2 X2-53B $ NZ X2,FOS49 DOLLAR 17 970 RJ COSYM1 17 971 BX5 X5+X6 $ JP SO51 17 972 SO57 SB1 NAGEH $ RJ SARAY1 TRY ALGEBRA 17 973 SX5 X5+2000B $ NZ B5,SO50 17 974 SA1 NVIND $ SB1 NVIGEH 17 975 SA3 SYMB1 $ RJ SARAY1 TRY INDEX 17 976 SX5 X5+400B $ NZ B5,SO50 17 977 SA1 NFUN $ SB1 NFGEH 17 978 SA3 SYMB1 $ RJ SARAY1 TRY FUNCTION 17 979 + SX5 X5+3000B $ ZR B5,SO59 17 980 BX6 X5 $ SA6 TUS1A 17 981 SA1 NDUMY $ SB1 IDUM 17 982 SA3 SYMB1 $ RJ SARAY1 17 983 SB2 B0 $ MX4 0 $ NZ B5,SO58D 17 984 SA5 TUS1A $ RJ INDON 17 985 ZR B0,SO58A 17 986 SO58D RJ IFILE 17 987 SO58A SX5 3000B $ RJ INDON 17 988 SA2 SLASH1 $ SX1 B6 $ SX7 B6 TERMINATE FUNCTION 17 989 NZ X2,FOS6 $ SA7 EREXP1 1/FUNCTION 17 990 ZR B0,BIND35 17 991 * 17 992 * INSERT A QUANTITY IN IT . GIVE IT AN EXPONENT +1 OR -1 . 17 993 SO50 BX6 X5 $ SA6 TUS1A 17 994 SA1 NDUMY $ SB1 IDUM 17 995 SA3 SYMB1 $ RJ SARAY1 USE ORIGINAL VALUE IF NOT DUMMY 17 996 NZ B5,SO51 $ SA5 TUS1A AT THE SAME TIME 17 997 SO51 MX4 0 $ RJ INDON INSERT NUMBER 34** COME FROM SO31 17 998 SA1 SLASH1 $ SX5 3401B 17 999 + ZR X1,*+1 $ SX5 3776B JP IF PRECEDED BY SLASH 17 1000 + RJ INDON 17 1001 ZR B0,BIND35 17 1002 * 17 1003 SO59 SA1 NDUMY $ SB1 IDUM 17 1004 SA3 SYMB1 $ RJ SARAY1 17 1005 NZ B5,SO51 $ RJ COSYM1 17 1006 + BX5 X5+X6 $ JP SO51 17 1007 SO61 SA1 NDUMY $ SB1 IDUM 17 1008 RJ SARAY1 CASE OF DUMMY EXPONENT 17 1009 SA1 EREXP1+1 $ NZ X1,FOS6 17 1010 + ZR B5,FOS50 $ SA4 IMINUS 17 1011 PL X4,SO63 $ BX6 X5 $ SX4 B6 17 1012 SA6 IA $ SX5 3776B 17 1013 RJ INDON 17 1014 + SA5 IA 17 1015 SO63 SX4 B6 $ RJ INDON 17 1016 ZR B0,BIND35 17 1017 SO65 SA1 B $ SX2 DO0 VARIABLE FOLLOWED BY ( CANNOT BE DO0 17 1018 LX1 6 $ IX2 X2-X1 $ ZR X2,FOS57 17 1019 SA1 NXEX $ SB1 NXGEH 17 1020 SA3 SYMB1 $ RJ SARAY1 17 1021 SX7 B5-3 $ ZR B5,SO65A 17 1022 NG X7,SO55A INTEG,CONJG 17 1023 SO65A SA1 SYMB1 $ MX0 6 $ BX6 X0*X1 17 1024 SA3 SLASH1 $ BX7 X1 $ LX6 6 17 1025 SA7 IB $ SA6 ILK 17 1026 BX7 X3 $ MX6 0 $ SA7 AA 17 1027 SX7 -1000 $ SA6 VLAG 17 1028 SA7 DS1 $ RJ LEZE1 COUNTS CO0 IN DS ARGS 17 1029 RJ FORWAR SEE IF INTEG() MUST BE GENERATED. 17 1030 + SA2 NBIND $ SX0 X2-52B ) 17 1031 SA1 NVECT $ NZ X0,FU83 CERTAINLY FUNCTION IF NOT ) 17 1032 SA2 IAL $ SA3 IB 17 1033 ZR X2,FU83 $ SB1 NVGEH NO ARGUMENT=FUNCTION 17 1034 MX0 12 $ BX6 -X0*X3 $ NZ X6,FU83 FU NAME IF 3 OR MORE CHARS 17 1035 RJ SARAY1 17 1036 + ZR B5,SO81 $ BX6 X5 JP IF UNDECIDED 17 1037 SA1 NDUMY $ SB1 IDUM CERTAINLY VECTOR 17 1038 SA6 IA $ RJ SARAY1 17 1039 + SA2 IA $ NZ B5,VE69 17 1040 VE67 SX5 X2+1000B 17 1041 VE69 BX7 X5 $ NO $ SA7 IA 17 1042 + RJ SNAME1 NUMBER OR INDEX 17 1043 SX7 X6-400B $ SX0 X6-3400B 17 1044 ZR B5,SO71 $ ZR X7,SO73 17 1045 ZR X0,SO77 $ ZR X6,SO77 17 1046 SX7 X6-1000B $ ZR X7,SO77 17 1047 ZR B0,FOS51 17 1048 SO71 SB1 SYMB1 $ SB2 NVIND 17 1049 SB3 IB $ SB4 NVIGEH 17 1050 RJ ZOEK 17 1051 SA1 B $ NO $ LX1 6 17 1052 SX0 X1-DO0 $ NZ X0,SO73+1 DOLLARD 17 1053 FOS51 ERRORP 151 17 1054 SO73 BX7 X5 $ NO $ SA7 IB 17 1055 + SA5 IA $ NO $ MX4 0 17 1056 RJ INDON 17 1057 + SA5 IB $ SX6 400B 17 1058 SA1 IMINUS $ PL X1,SO75 17 1059 BX6 X5+X6 $ MX4 0 $ SA6 IB CREATE P(1407MU) 17 1060 SX5 1407B $ RJ INDON 17 1061 + SA5 IB $ MX6 0 17 1062 SO75 BX5 X5+X6 $ MX4 0 $ RJ INDON 17 1063 + RJ LEZE1 READ TILL NEXT OPERATOR 17 1064 + SX7 3 $ SA7 EREXP1 17 1065 ZR B0,BIND35 17 1066 SO77 BX7 X5+X6 $ MX4 0 $ SA7 IB 17 1067 SX5 1403B $ RJ INDON 17 1068 + SA5 IA $ MX4 0 17 1069 RJ INDON INSERT VECTOR 17 1070 + SA1 IMINUS $ PL X1,SO79 17 1071 SX5 1407B $ RJ INDON 17 1072 SO79 RJ LEZE1 READ TILL NEXT OPERATOR. 17 1073 + SA5 IB $ SA1 AA 17 1074 BX7 X1 $ SA7 SLASH1 17 1075 ZR B0,SO51 17 1076 SO81 SA1 NFUN $ SB1 NFGEH 17 1077 SA3 IB $ RJ SARAY1 17 1078 NZ B5,SO82C $ SA1 NXEX JP IF FUNCTION 17 1079 SB1 NXGEH $ RJ SARAY1 17 1080 SB2 B6 $ NO $ NO $ NO 17 1081 NZ B5,SO81A $ SA2 ILK JP IF X EXPRESSION 17 1082 SX0 X2-4B $ SX1 X2-11B D I 17 1083 BX0 -X0*X1 $ NG X0,FU83 JP IF D,E,F,G,H 17 1084 SA1 NDUMY $ SB1 IDUM 17 1085 SA3 IB $ RJ SARAY1 17 1086 + NZ B5,VE69 $ SB1 IB 17 1087 SB2 NVECT $ SB3 IA 17 1088 SB4 NVGEH $ RJ ZOEK 17 1089 SA2 IA $ ZR B0,VE67 17 1090 SO81A RJ IFILE 17 1091 ZR B0,SO89 17 1092 SO82C SX4 B5-21B $ SX5 B5+3000B SPECIAL FUNCTION DF 17 1093 NZ X4,FU83 $ RJ INDON COME FROM SO81,FU83 17 1094 + SX6 4 $ SA6 IB 17 1095 SO82D SA1 SYMB1 $ MX0 52 $ LX1 8 TREATMENT OF FROZEN SUBFILE 17 1096 BX6 X0*X1 $ BX1 -X0*X1 $ SX5 X1+3400B 17 1097 MX4 0 $ SA6 A1 $ RJ INDON 17 1098 SA1 IB $ SX6 X1-1 17 1099 SA6 A1 $ NZ X6,SO82D 17 1100 RJ LEZE1 17 1101 SA2 NRFLAG1 $ SA1 NRFIX 17 1102 MX0 52 $ NZ X2,SO82E $ MX1 0 IF DUMMY, WRITE 3400,DUM 17 1103 SO82E AX1 8 $ BX6 -X0*X1 $ MX4 0 17 1104 SX5 X6+3400B $ RJ INDON 17 1105 SA2 NRFLAG1 $ SA1 NDUMY 17 1106 SB1 IDUM $ SA3 SYMB1 17 1107 NZ X2,SO82F $ RJ SARAY1 17 1108 NZ B5,SO105 $ ZR B0,FOS58 17 1109 SO82F SA1 NRFIX $ MX0 52 $ BX6 -X0*X1 17 1110 SB5 X6+3400B $ ZR B0,SO105 17 1111 FU83 SA1 NXEX $ SB1 NXGEH FUNCTION , X OR D EXPRESSION 17 1112 SA3 IB $ RJ SARAY1 17 1113 SA2 AA $ SX1 B6 $ NO 17 1114 NZ X2,FOS6 $ NO $ SB2 B6 1/F(X,Y) 17 1115 NZ B5,SO81A $ SA1 NDUMY 17 1116 SB1 IDUM $ RJ SARAY1 17 1117 SB2 B0 $ NO $ NZ B5,SO81A 17 1118 SB1 IB $ SB2 NFUN 17 1119 SB3 IA $ SB4 NFGEH 17 1120 RJ ZOEK 17 1121 + SA5 IA $ SX6 3000B 17 1122 SX7 X5-21B $ SB5 21B 17 1123 ZR X7,SO82C $ BX5 X5+X6 $ MX4 0 SPECIAL FUNCTION DF 17 1124 RJ INDON 17 1125 SO85 SA1 IAL $ SA2 NBIND 17 1126 SA3 IA $ NZ X1,SO85A ALLOW FOR NO ARGUMENTS 17 1127 SX2 X2-BC0 $ ZR X2,SO107 17 1128 SO85A SX6 B6 $ IX3 X3-X6 $ SA6 VLAG VLAG=1 FOR D FUNCTION 17 1129 ZR X3,SO89 $ MX6 0 $ NO 17 1130 SA6 VLAG $ SX4 X3-15B EXTRA-1 17 1131 SB4 B0 $ ZR X4,SO86 JP IF EXTRA 17 1132 SX4 X4+B6 $ SX7 B6 $ NZ X4,SO89 17 1133 SA7 DS1 $ NO $ NO 17 1134 SO86 SA1 NDUMY $ NO $ NO 17 1135 SX5 X1+3400B $ MX4 0 $ SB5 X1 INSERT NDUMY,D1,..,D7 17 1136 MX7 59 $ SA7 DSXI1 17 1137 SO86A SB4 B4+B6 $ RJ INDON 17 1138 SX5 B4 $ MX4 0 $ GE B5,B4,SO86A 17 1139 SA1 DS1 $ NG X1,SO89 SIGMA(J,M,MP,EX1,EX2) 17 1140 SA1 NDUMY $ SB1 IDUM FOR SIGMA. J MAY NOT BE DUMMY 17 1141 SA3 SYMB1 $ RJ SARAY1 YET 17 1142 NZ B5,FOS43 $ SB1 SYMB1 17 1143 SB2 NDUMY $ SB3 IA 17 1144 SB4 IDUM $ RJ ZOEK INSERT IN DUMMY REG. 17 1145 + SA4 IMINUS $ SX5 3777B NO -SIGN ALLOWED 17 1146 NZ X4,FOS42 $ RJ INDON 17 1147 + SA1 NBIND $ SX6 X1-52B ) 17 1148 ZR X6,FOS52 17 1149 SO87 RJ LEZE1 17 1150 RJ FORWAR SEE IF INTEG() MUST BE GENERATED. 17 1151 SO89 SA1 IAL $ NZ X1,SO89AB IF * AS FU ARG 17 1152 SA1 NBIND $ SX0 X1-47B MAKE 4400B 17 1153 NZ X0,SO89AA $ RJ LEZE1 17 1154 SA1 SLASH1 $ SB5 4400B FOR * 17 1155 ZR X1,SO105 $ SB5 5000B FOR / 17 1156 ZR B0,SO105 17 1157 SO89AA SA1 NBIND $ SX0 X1-54B FUNCTION ARG =C WITH C 17 1158 NZ X0,SO89BA $ RJ LEZE1 ANY NON-SPECIAL CHARACTER 17 1159 SA1 IAL $ MX0 52 $ SB7 X1 IS TRANSLATED IN NR WITH 17 1160 NE B7,B6,FOS41 $ SX5 1426B OPERATOR 1426 IN FRONT. 17 1161 MX4 0 $ RJ INDON 17 1162 SA1 B $ LX1 6 $ NO 17 1163 SB5 X1+3400B $ ZR B0,SO105 17 1164 SO89BA SX4 X1-61B $ NZ X4,SO89B [ 17 1165 SX5 1404B $ RJ INDON LEADS TO 1404 NR 17 1166 SA5 SYMB1 $ RJ SQBRA RESULT IN X5 17 1167 SX3 X5-3400B $ ZR X3,SO105A FOR [],NR CASES 17 1168 SB5 X5 $ ZR B0,SO105 17 1169 SO89AB SA1 B $ LX1 6 $ MX4 0 17 1170 SX7 X1-53B $ SX5 1417B DOLLAR. KEY REQUEST. 17 1171 SA3 NDUMY $ NZ X7,SO89B 17 1172 ZR X3,SO89A $ SA3 DSXI1 NOT FOR DS OR DX 17 1173 NZ X3,SO89A $ RJ INDON 17 1174 SO89A SA3 IMINUS $ PL X3,SO91 17 1175 MX6 0 $ SX5 1407B $ SA6 A3 17 1176 RJ INDON 17 1177 SO89B SA4 IMINUS $ MX7 0 17 1178 SA7 SO1 $ PL X4,SO91 17 1179 MX7 59 $ SA7 SO1 17 1180 SO91 SA1 NXEX $ SB1 NXGEH F(CONJG(A)) 17 1181 SA3 SYMB1 $ RJ SARAY1 SEE IF OPERATOR.USUALLY INTEG* 17 1182 SA4 NBIND $ SX0 X4-51B ( 17 1183 + NZ B5,SO93 $ NZ X0,*+3 17 1184 + RJ COVNR1 17 1185 + ZR B0,SO99 17 1186 + RJ SNAME1 17 1187 + NZ B5,SO99 $ ZR B0,SO99-1 17 1188 SO93 SB4 B5-B6 $ SA5 B1 $ GE B6,B4,SO93A 17 1189 + SB7 B5 $ ZR X0,*+4 X,D OR T. JP IF ( 17 1190 + RJ SNAME1 MIGHT BE DUMMY 17 1191 + NZ B5,SO99 $ SX6 2400B 17 1192 + SX5 B7 $ ZR B0,SO99 17 1193 + LX5 36 $ PL X5,FOST2 $ MX6 0 MUST BE TABLE. 17 1194 SA1 IMINUS $ SX5 1414B TABLE 17 1195 + SA6 A1 $ PL X1,*+1 $ SX5 X5+B6 -TABLE 17 1196 + SB5 B7 $ MX4 0 $ RJ INDON 17 1197 + SA4 VLAGT1 $ SB7 B5 $ SX7 X4+B6 INCREASE VLAGT1 17 1198 SA7 A4 $ MX4 0 $ SX7 56B CHANGE ( INTO , FOR TABLE( 17 1199 SA7 NBIND $ RJ SNAME1 17 1200 + NZ B5,SO99 $ SX5 B7 $ NO 17 1201 SX6 2400B $ ZR B0,SO99 17 1202 FOST2 ERRORP 190 X-EXPR FOLLOWED BY BRACKET. EXPECT TABLE. 17 1203 SO93AB SX6 X4-1 $ NO $ SA6 A4 VLAGT1=VLAGT1-1 17 1204 RJ LEZE1 17 1205 + SB5 1416B $ ZR B0,SO105 END TABLE. 17 1206 SO93A SX6 X5 $ SA5 IMINUS $ NO 17 1207 PL X5,SO93C $ NO $ SX6 X6+B6 17 1208 SO93C BX5 X6 $ MX4 0 $ BX6 -X6*X6 $ NO 17 1209 SA6 A5 $ RJ INDON 17 1210 + SA1 NBIND $ SX6 X1-47B * 17 1211 + ZR X6,*+2 $ SX6 X1-51B ( 17 1212 + MX7 59 $ NO $ SA7 CREATBR REQUEST TO GENERATE * ( 17 1213 + NZ X6,FOS49 $ RJ LEZE1 17 1214 + ZR B0,SO89B 17 1215 + RJ COSYM1 THIS IS SO99-1 17 1216 SO99 BX5 X5+X6 $ MX7 0 $ SX3 X5-3000B 17 1217 SA7 SO1 $ SX7 X6-3000B 17 1218 NZ X7,SO101 $ SX5 X3+1040B FU INSIDE FU 17 1219 SO101 SA4 IMINUS $ SB5 X5 17 1220 PL X4,SO105 $ SX5 1407B 17 1221 SA1 VLAG $ ZR X1,SO103 D(X,-Y)=-D(X,Y) 17 1222 SA1 KTERM $ SA2 X1+IT 17 1223 SA3 A2-B6 $ MX7 18 $ BX6 -X2 $ SA6 A2 17 1224 BX7 -X7-X3 $ MX6 0 $ SA7 A3 17 1225 SA6 IMINUS $ JP SO105 17 1226 SO103 MX4 0 $ RJ INDON 17 1227 SO105 SX5 B5 $ MX4 0 $ RJ INDON 17 1228 SO105A SA1 NBIND $ SX0 X1-56B 17 1229 SX4 X1-52B $ ZR X0,SO108 ) JP IF , 17 1230 NZ X4,FOS17 $ SA3 DS1 IMPOSSIBLE ERROR WITH FORWAR. 17 1231 + SA4 VLAGT1 $ NZ X4,SO93AB 17 1232 SX6 X3-4 $ MX7 0 $ SX4 X6+B6 17 1233 SA7 DSXI1 $ NG X3,SO107 17 1234 ZR X6,SO107 $ NZ X4,FOS52 17 1235 SX5 2401B $ RJ INDON SUPPLY (1.) AS 5TH ARG OF DS 17 1236 SO107 SX5 3000B $ NO $ NO 17 1237 MX4 0 $ RJ INDON SYMBOLS +-*/ LEAD TO 1400B 17 1238 RJ LEZE1 READ TILL NEXT OPERATOR 17 1239 SA4 SYMB1 $ SX3 DO0 17 1240 MX0 54 $ SX7 B6 $ LX4 6 $ BX4 -X0*X4 17 1241 IX4 X4-X3 $ NO $ ZR X4,FOS57 F(X,Y)(A+B) 17 1242 SA7 EREXP1 $ ZR B0,BIND35 17 1243 SO108 SA3 DS1 $ MX7 59 $ IX6 X3-X7 COUNT , FOR DS 17 1244 SA4 VLAGT1 $ NZ X4,SO87 SUSPEND COUNTING FOR TABLE 17 1245 SA6 A3 $ ZR B0,SO87 17 1246 FOS6 SA1 X1+TEX7-1 $ BX6 X1 $ NO 17 1247 SA6 IPUNCH+3 $ NO $ NO 17 1248 ERRORP 4 EXPONENT NOT ALLOWED AFTER 17 1249 TEX7 DATA L/FUNCTION/,L/NUMBER/,L/VECTOR/ 17 1250 FOS2 SA1 NBIND $ LX1 54 $ BX6 X1 17 1251 SA6 IPUNCH+3 $ NO $ SB0 B0 17 1252 ERRORP 1 UNEXPECTED 17 1253 FOS38 ERRORP 138 17 1254 FOS35 ERRORP 135 17 1255 FOS3 SA1 BBA $ SA2 BBB 17 1256 LX2 54 $ BX6 X1+X2 $ SA6 IPUNCH+3 17 1257 ERRORP 2 17 1258 FOS49 ERRORP 149 17 1259 FOS50 ERRORP 150 17 1260 FOS57 ERRORP 157 17 1261 FOS58 ERRORP 158 17 1262 FOS43 ERRORP 143 17 1263 FOS42 ERRORP 142 17 1264 FOS52 ERRORP 152 17 1265 FOS41 ERRORP 141 17 1266 FOS17 ERRORP 117 17 1267 * 17 1268 SUMI1 RJ SEAR1 17 1269 SUM1 RJ LEZE1 SET CREATED BIT FOR INDICES. 17 1270 SB1 SYMB1 $ SB2 NVIND 17 1271 SB3 IA $ SB4 NVIGEH 17 1272 RJ ZOEK 17 1273 SA1 IA $ SX2 200000B 17 1274 SA3 X1+NVIGEH-1 $ BX6 X2+X3 $ SA6 A3 17 1275 SA1 NBIND $ SX2 X1-77B 17 1276 NZ X2,SUM1 $ ZR B0,GOON1 17 1277 * 17 1278 NAMEL1 AX2 30 $ SA2 X2 $ MX0 30 $ BX6 -X0*X2 ANALYSE S,V,I,F CARD 17 1279 AX2 30 $ SA6 VLAG $ BX7 -X0*X2 17 1280 SA7 NP31 $ RJ SEAR1 VLAG=NALGE, NP31=NAGEH 17 1281 SO123 RJ LEZE1 17 1282 + SA1 VLAG $ SA2 NP31 ANALYSE QUANT BEHIND COMMA 17 1283 SA1 X1 $ SB1 X2 $ SA3 SYMB1 17 1284 RJ SARAY1 17 1285 + NZ B5,SO125 $ BX6 X3 $ SA6 B1 17 1286 SX7 X1+1 $ SA7 A1 17 1287 SO125 SX6 B1 $ SX7 B5 $ LX6 18 $ BX7 X6+X7 17 1288 SA7 LVAG $ RJ INSPEC1 INSPECT TERMINATOR 17 1289 SA1 NBIND $ SX1 X1-EQ0 ANALYZE QUANTT BEHIND EQUAL SIGN 17 1290 NZ X1,SO123 $ RJ LEZE1 17 1291 SA2 IAL $ ZR X2,SO125 17 1292 SA1 NP31 $ SX2 NVIGEH 17 1293 SA5 LVAG $ SB5 X5 $ AX5 18 B1=ADDR, B5=NR IN LIST OR 0 17 1294 IX7 X1-X2 $ SA2 NRFLAG1 $ SB1 X5 17 1295 SA4 X5 $ SA3 B $ MX0 55 17 1296 SX5 NAGEH $ IX5 X1-X5 $ LX3 6 17 1297 NZ X2,SO124 $ ZR X7,SO124+3 JP IF NR, INDEX 17 1298 SX5 NVGEH $ SX2 X3-ZZ0 VECTOR P=Z IS SET TO ZERO AT EXC. 17 1299 IX5 X1-X5 $ BX7 X5+X2 $ ZR X7,SO124+3 TIME (ALSO DTP) 17 1300 MX0 54 $ BX7 X0*X4 $ NO $ BX3 -X0*X3 17 1301 BX6 X3+X7 $ SX3 X3-03B $ SA6 A4 JP IF NOT COMPLEX 17 1302 NZ X3,SO125 $ SA5 VLAG 17 1303 SA5 X5 $ BX3 -X0*X4 $ NZ B5,SO125A JP IF ALREADY IN LIST 17 1304 SX6 X5+B6 $ MX0 6 $ SA6 A5 $ MX6 0 CREATE ENTRY FOR CONJG 17 1305 SX1 07B $ SB4 4 BY APPENDING G TO NAME 17 1306 + BX4 X0*X7 $ LX1 54 $ SB4 B4-B6 $ LX0 54 17 1307 NG B4,SO125B $ NZ X4,*-1 SEARCH END OF NAME 17 1308 + BX6 X1+X7 $ SA6 A4+B6 $ ZR B0,SO125 17 1309 SO125A SX3 X3-03B $ ZR X3,SO125 C FOR COMPLEX 17 1310 MX0 30 $ BX7 X0*X7 $ SA7 IPUNCH+3 17 1311 ERRORP 6 PREVIOUSLY NOT COMPLEX 17 1312 SO125B MX0 30 $ BX7 X0*X7 $ SA7 IPUNCH+3 17 1313 ERRORP 7 TOO LONG FOR ADDING G 17 1314 SO124 SA2 IMINUS $ SA3 NRFIX NR OR VARIABLE DIMENSION 17 1315 + PL X2,*+1 $ BX3 -X3 $ NO IN NVIGEH OR NR IN NAGEH, 17 1316 + NZ X5,*+1 $ LX3 8 $ LX0 8 BITS 48-52 17 1317 + BX3 -X0*X3 $ BX4 X0*X4 $ BX6 X3+X4 $ SA6 A4 THIS CARD IS 17 1318 ZR X7,SO125 $ ZR X5,SO125 JUMPED TO AS SO124+3 17 1319 FOS53 ERRORP 153 17 1320 INSPEC1 BSS 1 INSPECT TERMINATOR 17 1321 SA1 NBIND $ SX2 X1-77B 17 1322 SA3 NBLAN1 $ ZR X2,GOON1 17 1323 NZ X3,NBLANK1 $ SX2 X1-PO0 17 1324 ZR X2,GOON1 $ SX2 X1-CO0 17 1325 ZR X2,INSPEC1 $ SX2 X1-EQ0 17 1326 ZR X2,INSPEC1 $ ZR B0,GOON1 17 1327 * 17 1328 BRACK1 RJ SEAR1 ANALYZE BRACKET CARD 17 1329 MX6 0 $ SA6 NBR 17 1330 SO142 RJ LEZE1 17 1331 + SA1 SYMB1 $ NO $ BX6 X1 17 1332 SA6 GAMM5 $ RJ SNAME1 17 1333 + SA3 NBIND $ SX7 X3-BO0 ( 17 1334 NZ X7,SO143 $ SB1 SYMB1 17 1335 SB2 NVECT $ SB3 IA 17 1336 SB4 NVGEH $ RJ ZOEK 17 1337 RJ LEZE1 17 1338 SA1 NRFLAG1 $ ZR X1,FOS36 17 1339 SA2 NBIND $ SA3 IMINUS 17 1340 SX0 X2-BC0 $ NZ X0,FOS36 17 1341 NG X3,FOS36 $ SA1 IA 17 1342 SA2 NRFIX $ MX0 55 $ LX1 5 17 1343 BX2 -X0*X2 $ BX6 X1+X2 $ SA6 NP31 17 1344 SA1 GAMM5 $ SA5 IAL 17 1345 SX6 BC0 $ SA4 B 17 1346 MX0 6 $ LX6 54 $ SB1 48 17 1347 SB5 X5 $ SB2 6 $ SA6 A4+B5 17 1348 + BX3 X0*X1 $ LX0 54 $ SB1 B1-B2 $ NO 17 1349 + GE B0,B1,*+1 $ NZ X3,*-1 17 1350 + SX2 BO0 $ NO $ SB4 B0 17 1351 SB1 B1+12 $ LX2 B1,X2 $ BX7 X1+X2 17 1352 + LX3 B1,X4 $ SB1 B1-B2 $ SA4 A4+B6 $ BX7 X7+X3 17 1353 + GE B0,B1,*+2 $ SB4 B4+B6 $ NO 17 1354 + GE B5,B4,*-2 $ NO $ NO 17 1355 + SA7 A1 $ RJ LEZE1 17 1356 SX6 4000B $ SA5 NP31 17 1357 + ZR B0,SO145 17 1358 SO143 NZ B5,SO145 $ RJ COSYM1 17 1359 SO145 SA4 NBR $ SA1 GAMM5 17 1360 SX7 X4+1 $ ZR X1,FOS82 17 1361 BX6 X5+X6 $ MX0 48 $ SA7 A4 $ BX1 X0*X1 17 1362 BX6 X1+X6 $ NO $ SA6 X4+MBR 17 1363 RJ INSPEC1 17 1364 SX1 X1-EQ0 $ ZR X1,FOS83 17 1365 SA1 NBR $ NO $ MX7 59 17 1366 SX2 X1-25 $ NG X2,SO142 TEST ON OVERFLOW 17 1367 IX7 X1+X7 $ SA7 A1 $ ZR B0,SO142 OF BRACKET LIST 17 1368 FOS36 ERRORP 136 17 1369 FOS82 ERROR 182 17 1370 FOS83 ERROR 183 17 1371 * 17 1372 OLDNE1 RJ SEAR1 NAME CHANGER 17 1373 SO146A RJ LEZE1 17 1374 + SA1 NBIND $ SA2 NRFLAG1 17 1375 SX6 X1-54B $ NZ X2,FOS54 = JP IF NR. 17 1376 NZ X6,FOS54 $ RJ SNAME1 17 1377 ZR B5,FOS54 $ LX5 30 $ BX6 X6+X5 17 1378 SA6 TUS1A $ RJ LEZE1 NR,CODE 17 1379 + SA3 NRFLAG1 $ SA4 TUS1A 17 1380 NZ X3,FOS54 $ SA2 SYMB1 17 1381 SX1 X4-0400B $ SB1 NVIGEH-1 17 1382 ZR X1,SO146B $ SX1 X4-1000B 17 1383 SB1 NVGEH-1 $ ZR X1,SO146B 17 1384 SX1 X4-2000B $ SB1 NAGEH-1 17 1385 ZR X1,SO146B $ SX1 X4-3000B 17 1386 SB1 NFGEH-1 $ NZ X1,FOS54 17 1387 SO146B LX4 30 $ MX0 30 $ SA1 B1+X4 $ BX2 X0*X2 17 1388 BX1 -X0*X1 $ BX7 X1+X2 $ NO $ SA7 A1 17 1389 + RJ INSPEC1 17 1390 ZR B0,SO146A 17 1391 FOS54 ERRORP 154 17 1392 * 17 1393 IDENI1 SA4 LEVHY $ NO $ NO ID,A=... 17 1394 IDE1 MX0 54 $ BX6 -X0*X4 $ SX7 B6 $ LX6 30 17 1395 SA7 NI $ SA6 SUBS1 17 1396 RJ SEAR1 17 1397 + SA2 NI $ SA1 X2+A 17 1398 RJ NUM1 17 1399 SX7 X6-1 $ SA1 SUBS1 17 1400 PL X7,IDE2 $ MX7 0 17 1401 IDE2 MX0 54 $ BX7 -X0*X7 $ BX6 X1+X7 $ SA6 A1 17 1402 ZR B0,IDEN1 17 1403 IDENA1 SA4 LEVLO $ ZR B0,IDE1 AL,A=... 17 1404 IDENL1 SA1 A+1 $ RJ NUM1 17 1405 BX4 X6 $ ZR B0,IDE1 17 1406 SPACE1 SA1 A $ RJ NUM1 17 1407 ZR B0,SPA1 17 1408 SPACE2 SA1 A+1 $ RJ NUM1 17 1409 SPA1 SA5 LEVCH $ SA4 LEVHY 17 1410 IX6 X6+X5 $ IX7 X6-X4 $ SA6 A5 $ NO 17 1411 + NG X7,*+1 $ BX4 X6 $ NO 17 1412 + ZR B0,IDE1 17 1413 SPACE3 SA1 A+1 $ RJ NUM1 17 1414 BX6 -X6 $ ZR B0,SPA1 17 1415 * 17 1416 IDEN1 SX7 BL0 $ SA3 IDAAN 17 1417 LX7 54 $ BX6 X3 $ SA7 AZPMEM1 17 1418 SA6 IDAHE $ MX7 0 $ SX6 B0 17 1419 SA7 VLAG $ NO $ NO 17 1420 SA6 JANI1 $ SA7 JDVF1 17 1421 SX6 7 $ SA7 NDUMY 17 1422 SA6 NORDER $ RJ READI1 17 1423 SA1 IAL $ SX7 X1-1 IGNORE POSSIBLE LEADING COMMA 17 1424 PL X7,SO189A $ RJ READI1 17 1425 SO189A SA6 AA $ SB1 MSPEC1 INSPECT FOR KEYWORD 17 1426 SA1 NSPIC1 $ SA3 SYMB1 17 1427 RJ SARAY1 17 1428 + SA4 NBIND $ ZR B5,SO190 17 1429 SA2 B1 $ MX0 6 $ LX2 54 $ NO 17 1430 BX6 X0*X2 $ SX4 X4-56B , MUST BE , 17 1431 SA6 AZPMEM1 $ NZ X4,FOS59 17 1432 RJ READI1 17 1433 + SA6 AA 17 1434 SO190 SB1 MSPEC $ SX1 NSPIC 17 1435 SA3 SYMB1 $ RJ SARAY1 17 1436 + SX7 B5 $ SA7 NSPEC $ MX6 7 17 1437 ZR X7,SO193 $ SA6 VLAG 17 1438 SX6 -2 $ SA6 NNUM1 FOR CONTROLE NUMER 17 1439 SB1 B5-12 $ NZ B1,SO193 JP IF NOT TRICK 17 1440 SA1 SUBS1 $ SX3 4 17 1441 SX2 X1 $ NO $ NZ X2,SO193 17 1442 BX6 X1+X3 $ NO $ SA6 A1 $ NO 5 STAGES FOR TRICK 17 1443 SO193 SA4 MBU $ SA2 SUBS1 17 1444 SA3 IDAAN $ LX2 30 $ SB1 X2 17 1445 LX2 30 $ SX5 B1 $ SX6 B1 $ LX5 51 17 1446 SX2 X2 $ MX0 30 $ SA6 LEVLO 17 1447 IX6 X6+X2 $ SX7 X6+B6 $ SA2 NSPEC 17 1448 SA7 LEVCL $ SA7 LEVCH 17 1449 + ZR X2,*+1 $ SA7 A6 $ NO 17 1450 + SB2 X6 $ BX7 X3 $ LX6 33 $ LX7 30 17 1451 SB3 B2-41 $ PL B3,FOS33 17 1452 SO195 SA2 B1+NID $ BX7 X0*X7 $ BX2 -X0*X2 INDICATE NEW ID IN NID 17 1453 SB1 B1+B6 $ NZ X2,SO196 $ SX2 X3 17 1454 SO196 BX7 X2+X7 $ SA7 A2 $ GE B2,B1,SO195 17 1455 MX0 51 $ SX7 X3+B6 $ BX4 -X0*X4 $ LX4 24 PILOT WORD CONSTRU 17 1456 SA7 IDAAN $ BX6 X5+X6 $ BX6 X4+X6 17 1457 SA6 X3+IDGEH-1 $ SA1 NSPEC 17 1458 SA2 AA $ NO $ BX6 X2 17 1459 NZ X1,BIN243 $ ZR B0,SO203 17 1460 RE201 RJ READI1 17 1461 SO203 SA1 NBIND $ SX3 X1-51B ( 17 1462 SA4 SYMB1 $ SA1 NNUM1 CHECK IF SYMB1 STARTS 17 1463 AX4 54 $ SX7 X1+B6 $ SX4 X4+16B WITH [ 17 1464 SA7 A1 $ NO $ ZR X4,SO203A X4=77..7761B IF [ 17 1465 ZR X3,SO207 $ SA3 EXPOFL1 17 1466 NZ X6,SO205 $ SA5 IB 17 1467 NZ X3,SC239 $ RJ INIDG1 17 1468 + SX5 3000B $ MX6 0 17 1469 RJ INIDG1 17 1470 + SA4 JDVF1 $ SX6 X4+1 17 1471 SA6 A4 $ ZR B0,BIN243 17 1472 SO203A SA5 SYMB1 $ RJ SQBRA 17 1473 MX6 0 $ SX4 1404B 17 1474 LX5 12 $ BX5 X4+X5 $ RJ INIDG1 1404 NR FOR [XXX] 17 1475 ZR B0,BIN243 17 1476 SO205 SA1 NSPEC $ SX6 X1-24 EXPAND 17 1477 NZ X6,SO205B $ SB1 NXGEH 17 1478 SA1 NXEX $ SA3 SYMB1 17 1479 RJ SARAY1 17 1480 + SA5 B1 $ ZR B5,FOS16 $ LX5 44 JP IF FILE DOES NOT EXIST 17 1481 PL X5,FOS16 $ MX0 30 $ BX6 -X6*X6 JP IF FILE NOT FROZEN 17 1482 LX5 46 $ BX5 -X0*X5 $ RJ INIDG1 DOES NOT CHANGE B1 17 1483 SA5 B1 $ MX0 52 $ BX6 -X0*X5 17 1484 NO $ ZR X6,FOS16 $ NO 17 1485 SA2 X6+LOC-1 $ NO $ AX2 42 READ NAMELIST 17 1486 + NZ X2,*+1 $ RJ FNAM2 JP IF NAMES ARE IN. A2,X6 ARE SET 17 1487 + ZR B0,END245 ONLY ONE ENTRY ALLOWED 17 1488 SO205B SA1 NRFLAG1 $ ZR X1,SO205A 17 1489 SA2 NSPEC $ SX2 X2-19 17 1490 ZR X2,SO171 $ MX7 0 $ NO NUMER 17 1491 SA7 NNUM1 $ SB2 X2-3 IFEQU 17 1492 ZR B2,SO171 $ EQ B2,B6,SO171 IFSMA 17 1493 SB2 -B2 $ EQ B2,B6,SO171 $ NO IFGRE 17 1494 SA3 VLAG $ NZ X3,SO205A 17 1495 SA4 EXPOFL1 $ ZR X4,FOS60 CASE OF ID,A*2=B 17 1496 * NUMERICAL QUANTITY WILL BE TREATED AS A FIXED POINT NR 34**B 17 1497 SO205A RJ SNAME1 17 1498 + SX7 X6-3000B $ ZR B5,SO237 17 1499 NZ X7,SC239 $ RJ INIDG1 17 1500 SA5 VLAG $ NZ X5,BIN243 JP IF SPECIAL 17 1501 + MX5 0 $ SX6 3000B 17 1502 RJ INIDG1 17 1503 + ZR B0,BIN243 17 1504 FOS59 ERRORP 159 17 1505 FOS33 ERRORP 133 17 1506 FOS16 ERRORP 116 17 1507 FOS60 ERRORP 160 17 1508 * QUANTITY IS A FLOATING POINT NR 17 1509 SO171 SA1 JANI1 $ SA2 IMINUS 17 1510 SA3 NRFLOAT $ SA4 A3+B6 $ MX5 0 17 1511 + PL X2,*+1 $ BX3 -X3 $ BX4 -X4 17 1512 + SX7 64 $ BX6 X3 $ SA7 A2 FORCE IMINUS POSITIVE 17 1513 IX7 X7+X1 $ SA7 A1 $ RJ INIDG1 17 1514 BX6 X4 $ RJ INIDG1 17 1515 * TEST ON CORRECT ALTERNATION VAR,VALUE IN NUMER COMMAND 17 1516 SA1 NNUM1 $ NZ X1,FOS55 17 1517 SX7 -2 $ NO $ SA7 A1 17 1518 ZR B0,BIN243 17 1519 SO207 SA1 SYMB1 $ MX0 6 $ BX6 X0*X1 17 1520 LX7 B0,X1 $ LX6 6 $ SA7 IA 17 1521 SA6 ILK $ RJ READI1 17 1522 + SA1 NBIND $ SX0 X1-52B ) 17 1523 NZ X0,FU217 $ SA1 NVECT JP IF CERTAINLY NO VECTOR 17 1524 SB1 NVGEH $ SA3 IA 17 1525 RJ SARAY1 TRY VECTOR 17 1526 + NZ B5,VE209 $ SA1 NFUN 17 1527 SB1 NFGEH $ SA3 IA 17 1528 RJ SARAY1 TRY FUNCTION 17 1529 + SA1 ILK $ NZ B5,FU217 17 1530 SX0 X1-04B $ SX2 X1-11B D - H IS TAKEN TO BE FUNCTION 17 1531 BX0 -X0*X2 $ NG X0,FU217 17 1532 SB1 IA $ SB2 NVECT 17 1533 SB3 IB $ SB4 NVGEH 17 1534 RJ ZOEK 17 1535 + SA5 IB $ NO $ NO 17 1536 VE209 SA1 NRFLAG1 $ NZ X1,SO215 17 1537 SA1 NDUMY $ SB1 IDUM 17 1538 BX7 X5 $ SA3 IA 17 1539 SA7 IB $ RJ SARAY1 17 1540 MX6 0 $ NZ B5,SO211 $ NO 17 1541 SX6 1000B $ SA1 JDVF1 17 1542 SA5 IB $ SX7 64 17 1543 IX7 X7+X1 $ NO $ SA7 A1 $ NO 17 1544 SO211 RJ INIDG1 17 1545 + RJ SNAME1 17 1546 + NZ B5,SO213 $ SB1 SYMB1 17 1547 SB2 NVIND $ SB3 IA 17 1548 SB4 NVIGEH $ RJ ZOEK 17 1549 + SA3 JANI1 $ SA5 IA 17 1550 SX6 B6 $ IX7 X6+X3 $ LX6 8 $ SA7 A3 X6=400B 17 1551 SO213 RJ INIDG1 17 1552 + RJ READI1 17 1553 + ZR B0,BIN243 17 1554 SO215 SB1 IA $ SB2 NVECT 17 1555 SB3 IB $ SB4 NVGEH 17 1556 RJ ZOEK 17 1557 + SA2 NRFLAG1 $ SA1 IB 17 1558 ZR X2,FOS63 $ SA2 NRFIX MUST BE NUMBER, P(3) 17 1559 MX0 55 $ BX6 -X0*X2 $ LX1 5 $ BX7 X6+X1 17 1560 SX6 X7+4000B $ SA6 IA 17 1561 RJ READI1 17 1562 + SA5 IA $ SA1 JDVF1 17 1563 SA2 JANI1 $ SX3 64 17 1564 BX4 X3 $ IX6 X3+X1 $ IX7 X2+X4 $ SA6 A1 17 1565 SA7 A2 $ MX6 0 $ ZR B0,SC239 17 1566 FU217 SA1 NDUMY $ SB1 IDUM 17 1567 SA3 IA $ RJ SARAY1 17 1568 + ZR B5,SO219 $ SA1 JDVF1 17 1569 SX7 X1+B6 $ SA7 A1 $ JP SO221 17 1570 SO219 SB1 IA $ SB2 NFUN 17 1571 SB3 IB $ SB4 NFGEH 17 1572 RJ ZOEK 17 1573 + SA1 IB $ SA2 JDVF1 17 1574 SX7 1 $ SX5 X1+3000B 17 1575 IX6 X7+X2 $ SX7 X5-3021B $ SA6 A2 17 1576 ZR X7,SO222 $ NO $ NO JP IF SPECIAL FUNCTION DF 17 1577 SO221 MX6 0 $ RJ INIDG1 17 1578 ZR B0,ARG227 17 1579 SO222 MX6 0 $ RJ INIDG1 TREATMENT OF DF 17 1580 SX6 4 $ SA6 IB 17 1581 SO222A SA1 SYMB1 $ MX0 52 $ LX1 8 17 1582 BX7 X0*X1 $ BX1 -X0*X1 $ SX5 X1+3400B 17 1583 MX6 0 $ SA7 A1 $ RJ INIDG1 17 1584 SA1 IB $ SX6 X1-1 17 1585 SA6 A1 $ NZ X6,SO222A 17 1586 RJ READI1 17 1587 + SA2 NRFLAG1 $ SA1 NRFIX 17 1588 MX0 52 $ NZ X2,SO222B $ MX1 0 17 1589 SO222B AX1 8 $ BX5 -X0*X1 $ MX6 0 IF DUMMY, MAKE 3400,DU 17 1590 SX5 X5+3400B $ RJ INIDG1 17 1591 + SA2 NRFLAG1 $ SA1 NRFIX 17 1592 MX0 52 $ NO $ ZR X2,SO229A 17 1593 BX6 -X0*X1 $ SA6 A1 $ ZR B0,SO229A 17 1594 SO223 SA1 IMINUS $ PL X1,SO225 ANALYSIS OF FUNCTION ARGS 17 1595 SX7 1407B $ LX5 12 $ BX5 X5+X7 17 1596 SO225 MX6 0 $ RJ INIDG1 17 1597 + SA1 NBIND $ SX0 X1-52B ) 17 1598 ZR X0,SO235 $ RJ READI1 17 1599 + SA5 IB $ ZR X6,SO225 DUMMY IS INSERTED IMMEDIATELY 17 1600 ARG227 SA1 NBIND $ SX0 X1-BO0 C ENTRY POINT 17 1601 NZ X0,SO229 $ SA1 IMINUS ARG IS VECTOR NR 17 1602 MX6 0 $ BX7 X1 $ SA6 IMINUS 17 1603 SA7 SO1 $ RJ COVNR1 17 1604 + SA1 JDVF1 $ SX7 4096 17 1605 BX5 X5+X6 $ IX7 X1+X7 $ SA7 A1 17 1606 NZ X6,SO225 $ JP FOS61 P(MU+) CANNOT BE ARG 17 1607 SO229 SA3 NRFLAG1 $ NZ X3,SO229A ZERO CAN MATCH DELETED FILE 17 1608 SA1 NXEX $ SB1 NXGEH X EXPR MAY BE FU ARG. 17 1609 SA3 SYMB1 $ RJ SARAY1 17 1610 ZR B5,SO229A $ SA1 B1 $ MX6 52 17 1611 BX5 X1 $ LX5 42 $ PL X5,SO229B JP IF X-TYPE 17 1612 SX5 B5+2400B $ ZR B0,SO223 17 1613 SO229B BX5 -X6*X1 $ SX6 2400B $ BX5 X5+X6 17 1614 ZR B0,SO223 17 1615 SO229A RJ SNAME1 17 1616 + BX5 X5+X6 $ ZR B5,SO233 17 1617 SA1 SYMB2 $ ZR X6,SO231 17 1618 SX7 X6-3000B $ SX3 X5-3000B 17 1619 NZ X7,SO223 $ SX5 X3+1040B FU INSIDE FU 17 1620 JP SO223 17 1621 SO231 ZR X1,SO225 $ JP FOS56 17 1622 SO233 RJ COSYM1 17 1623 + BX5 X5+X6 $ JP SO223 17 1624 SO235 SX5 3000B $ MX6 0 END OF FU ARGS 17 1625 RJ INIDG1 17 1626 + RJ READI1 17 1627 + ZR B0,BIN243 17 1628 SO237 SA1 NXEX $ SB1 NXGEH 17 1629 SA3 SYMB1 $ RJ SARAY1 17 1630 ZR B5,SO238 $ SX6 2400B 17 1631 SX5 B5 $ ZR B0,SC239 17 1632 SO238 SA1 NSPEC $ SX2 X1-25 CHECK FOR COMPO 17 1633 + NZ X2,SO238A $ SB1 SYMB1 17 1634 SB2 NFUN $ SB3 LVAG FOR COMPO ARGS 17 1635 SB4 NFGEH $ RJ ZOEK DEFAULT IS FUNCTION 17 1636 + SA5 LVAG $ SX6 3000B 17 1637 RJ INIDG1 17 1638 + ZR B0,BIN243 17 1639 SO238A RJ COSYM1 17 1640 SC239 SA1 EXPOFL1 $ SA3 IDAAN 17 1641 + ZR X1,*+1 $ SX3 X3-1 OVERWRITE OLD EXPONENT 17 1642 + BX7 X3 $ SA7 A3 $ RJ INIDG1 17 1643 + SA2 VLAG $ SA1 EXPOFL1 17 1644 BX1 X1+X2 $ NO $ NZ X1,BIN243 17 1645 SA1 NBIND $ SA2 AZPMEM1 17 1646 SX1 X1-EQ0 $ LX2 6 $ NO 17 1647 NZ X1,SO242 $ SX2 X2-17B O FOR ONCE 17 1648 NZ X2,SO241A $ SA4 JANI1 17 1649 SX7 64 $ IX7 X4+X7 $ SA7 A4 17 1650 ZR B0,SO242 17 1651 SO241A SA1 IDAAN $ SA2 IDAHE 17 1652 IX1 X1-X2 $ NO $ SX1 X1-2 17 1653 ZR X1,BIN243 $ NO $ NO NO EXPON IF ONLY 1 FACTOR 17 1654 SO242 SX6 3400B $ SX5 1 17 1655 RJ INIDG1 17 1656 BIN243 SA4 NBIND $ SA3 IDAAN 17 1657 SB1 X4-54B $ SB2 X4-52B = ) 17 1658 ZR B1,END245 $ SB1 X4-77B SPECIAL TERMINATOR 17 1659 SA1 NBLAN1 $ SA2 NSPEC 17 1660 ZR B1,END245 $ NZ X1,END245 17 1661 SB1 X4-CO0 $ SX1 X4-BO0 , ( 17 1662 + ZR X2,*+3 $ ZR B1,RE201 17 1663 FOS2A LX4 54 $ BX6 X4 $ SA6 IPUNCH+3 17 1664 + ERRORP 1 UNEXPECTED.... 17 1665 + ZR B1,RE201 $ ZR B2,FOS2A 17 1666 ZR X1,FOS2A $ ZR B0,RE201 17 1667 END245 SA4 AZPMEM1 $ SA1 IDAAN SET TERMINATING MARKER, MAKE 17 1668 MX0 54 $ SA2 NSPEC $ LX4 6 IDIND1 NON ZERO 17 1669 MX6 7 $ BX4 -X0*X4 $ SA6 IDIND1 17 1670 SA3 IDAHE $ SA5 X3+IDGEH-1 17 1671 ZR X4,FOS10 $ BX6 X5+X1 $ SA6 A5 17 1672 NZ X2,SO265 $ SA1 JANI1 JP IF COMMAND 17 1673 SA2 NBLAN1 $ NZ X2,FOS62 JP IF NONBLANK A(1) 17 1674 SA3 NDUMY $ SA2 JDVF1 17 1675 MX0 54 $ SB2 B6 $ MX5 24 $ SX6 X4 17 1676 LX1 18 $ BX7 X1+X2 $ ZR X3,SO246 JP IF NO DUMMIES 17 1677 AX3 1 $ SB2 B0 $ NZ X3,SO251 JP IF MORE THAN 1 DUMMY 17 1678 SO246 LX6 36 $ BX7 X6+X7 $ RJ LOOKUP LOOK WITHOUT KEYWORD 17 1679 + ZR X3,SO251 $ MX5 18 $ SB1 X3 17 1680 RJ LOOKUP TRY WITH KEYWORD. IF NOT FOUNT USE RESULT 17 1681 + NZ X3,SO263 $ SX3 B1 OF PREVIOUS LOOKUP 17 1682 ZR B0,SO263 17 1683 LOK2 SA5 A3-B6 $ MX0 54 $ AX5 42 $ BX3 -X0*X5 17 1684 LOOKUP BSS 1 COMPARE X7 WITH TABLE, MASK IN X5. 17 1685 + SA3 TABLE1 $ BX6 -X5*X7 $ SB7 B2 17 1686 LOK1 BX3 -X5*X3 $ IX0 X6-X3 $ SA3 A3+B6 LEAVE WITH MX0 54 17 1687 ZR X0,LOK2 $ NZ X3,LOK1 17 1688 SB7 B7-B6 $ SA3 A3+B6 $ GE B7,B0,LOK1 17 1689 SX3 B0 $ MX0 54 $ ZR B0,LOOKUP 17 1690 * TYPE OF SUBSTITUTION 17 1691 * AZPMEM1 OR KEYWORD 17 1692 * JANI1 17 1693 * JDVF1 17 1694 TABLE1 VFD 18/6,6/1H ,18/0,18/100B P(MU) 17 1695 VFD 18/15,6/1HD,18/0,18/100B P(MU) D 17 1696 VFD 18/16,6/1HF,18/0,18/100B P(MU) F 17 1697 VFD 60/0 17 1698 VFD 18/1,6/1H ,18/10000B,18/0 A 17 1699 VFD 18/3,6/1H ,18/10100B,18/0 A**3 17 1700 VFD 18/7,6/1HF,18/10000B,18/0 A F 17 1701 VFD 18/7,6/1HO,18/10100B,18/0 A**3 O 17 1702 VFD 18/1,6/1HM,18/10000B,18/0 A M 17 1703 VFD 18/1,6/1HM,18/10100B,18/0 A**3 M 17 1704 VFD 18/2,6/1H ,18/1B,18/0 I 17 1705 VFD 18/4,6/1H ,18/101B,18/0 I**3 17 1706 VFD 18/8,6/1HF,18/1B,18/0 I F 17 1707 VFD 18/8,6/1HO,18/101B,18/0 I**3 O 17 1708 VFD 18/2,6/1HM,18/1B,18/0 I M 17 1709 VFD 18/2,6/1HM,18/101B,18/0 I**3 M 17 1710 VFD 18/2,6/1H ,18/0,18/10000B PDQ 17 1711 VFD 18/4,6/1H ,18/100B,18/10000B PDQ**3 17 1712 VFD 18/8,6/1HF,18/0,18/10000B PDQ F 17 1713 VFD 18/8,6/1HO,18/100B,18/10000B PDQ**3 O 17 1714 VFD 18/2,6/1HM,18/0,18/10000B PDQ M 17 1715 VFD 18/2,6/1HM,18/100B,18/10000B PDQ**3 M 17 1716 VFD 18/2,6/1H ,18/100B,18/100B P(4) 17 1717 VFD 18/4,6/1H ,18/200B,18/100B P(4)**3 17 1718 VFD 18/8,6/1HF,18/100B,18/100B P(4) F 17 1719 VFD 18/8,6/1HO,18/200B,18/100B P(4)**3 O 17 1720 VFD 18/2,6/1HM,18/100B,18/100B P(4) M 17 1721 VFD 18/2,6/1HM,18/200B,18/100B P(4)**3 M 17 1722 VFD 60/0 17 1723 SO251 SA1 IDAHE $ SA5 IDAAN NOT PRESENT IN TABLE. A2=JDVF1 17 1724 BX2 -X0*X2 $ SA1 X1+IDGEH $ MX0 4 GET FIRST AND LAST 17 1725 SB1 X2-1 $ SA5 X5+IDGEH-2 SYMBOL OF IDENTIFIER. 17 1726 NZ B1,SO257 $ LX0 12 $ BX1 X0*X1 ONE FUNCTION 17 1727 SX5 X5-3000B $ SX1 X1-3000B SEE IF BEGIN AND END ARE FUNC. 17 1728 NZ X1,SO253 $ NZ X5,SO255 17 1729 SA3 NDUMY $ SB2 A5-B6 $ SB3 A1-B2 SEE IF ALL DUMMIES 17 1730 SB2 X3+B3 $ SA1 A1-B6 $ SX3 10 OCCUR ONCE INBETWEEN. IF 17 1731 NZ B2,SO263 $ SA2 IDAHE SO, TYPE 0 17 1732 MX0 36 $ SX6 X2+2 $ BX7 X0*X1 17 1733 SA6 IDAAN $ BX7 X7+X6 $ SA7 A1 17 1734 JP STEX1 17 1735 SO253 SX1 X1+3000B $ SX3 10 MAYBE DUMMY FUNCTION. 17 1736 ZR X1,SO263 17 1737 SO255 SX3 9 $ ZR B0,SO263 ANYTHING TIMES ONE FUNCTION 17 1738 SO257 SB1 X4-16B $ SB2 X4-17B N O A4=AZPMEM1 17 1739 SX3 11 $ ZR B1,SO263 N 17 1740 SX3 12 $ ZR B2,SO263 O 17 1741 SX3 13 $ NO $ NO ELSE 17 1742 SO263 MX0 6 $ SA1 IDAHE $ LX3 18 X3 = ID. TYPE. SET IN PILOT 17 1743 SA1 X1+IDGEH-1 $ LX0 24 $ BX7 -X0*X1 WORD 17 1744 BX6 X7+X3 $ SA6 A1 $ JP STEX1 17 1745 SO265 MX0 6 $ SA1 IDAHE $ LX0 24 17 1746 SX3 X2+29 $ SA4 X1+IDGEH-1 17 1747 LX3 18 $ BX1 -X0*X4 $ SX2 X2-19 COMMAND. MAKE ERROR CHECK 17 1748 BX6 X1+X3 $ SA3 NNUM1 $ MX7 0 IN CASE OF NUMER, NR 19 17 1749 SA6 A4 $ SA7 NSPEC $ SA7 A3 17 1750 SX3 X3+2 $ SA4 NBLAN1 17 1751 NZ X2,SO266 $ NZ X3,FOS55 17 1752 SO266 ZR X4,GOON1 $ ZR B0,NBLANK1 17 1753 FOS55 ERRORP 155 17 1754 FOS63 ERRORP 163 17 1755 FOS61 ERRORP 161 17 1756 FOS56 ERRORP 156 17 1757 FOS62 ERRORP 162 17 1758 * 17 1759 EXIT1 RJ IDMOV1 17 1760 MX2 59 $ NO $ SA1 DOVLAG X2=TERMINATOR 17 1761 SA4 DO77 $ RJ MOV12 MOVE DOLOOP,BLOCK ARG FROM 17 1762 SA1 BLOKPT $ SA4 BLK77 NSUBS TO MBE 17 1763 RJ MOV12 17 1764 SA1 IDAAN $ SX2 NDIMI TEST OVERFLOW IDGEH 17 1765 SA3 MBU $ SA4 NANU TEST OVERFLOW LOC 17 1766 IX1 X2-X1 $ IX3 X4-X3 $ NG X1,FOS28 17 1767 NG X3,FOS29 $ MX7 0 $ NO 17 1768 SA1 NSUBS $ NO $ NO 17 1769 SA2 MNSUBS $ IX3 X1-X2 $ BX6 X1 17 1770 + SA7 A1 $ NG X3,*+1 $ SA6 A2 17 1771 + RJ STAR ANALYZE KEYWORD ON * CARD. 17 1772 + SA1 NVECT $ SX1 X1-31 NAME 31=37 EXCLUDED 17 1773 PL X1,FOS4 $ ZR B0,SCHOON 17 1774 FOS28 ERRORP 128 17 1775 FOS29 ERRORP 129 17 1776 FOS4 ERRORP 114 TOO MANY VECTOR NAMES 17 1777 * 17 1778 *IDMOV1************ *IDMOV1****** 17 1779 IDMOV1 BSS 1 MOVE IDGEH INTO IT 17 1780 SA3 IDADR $ SX4 IDGEH 17 1781 SA1 IDAAN $ SA2 MBE 17 1782 IX6 X3-X4 $ NZ X6,IDMOV1 $ SB7 X1 17 1783 SX7 X2+IT-1 $ SB1 B6 $ SA7 A3 17 1784 IDM1 SA1 B1+IDGEH-1 $ BX6 X1 $ SB1 B1+B6 17 1785 SA6 X2+IT-1 $ SX2 X2+B6 17 1786 GE B7,B1,IDM1 $ MX6 7 $ BX7 X2 17 1787 SA6 A6 $ SA7 A2 $ SX2 200000B 17 1788 SA1 NVIND $ SA3 NVIGEH 17 1789 SB1 X1 $ SB2 B6 $ SB3 256 17 1790 IDM2 BX7 X2*X3 $ MX0 30 $ SB2 B2+B6 $ BX6 -X0*X3 CLEAR NAMES OF 17 1791 SA3 A3+B6 $ ZR X7,IDM3 $ SA6 A3-B6 CREATED INDICES 17 1792 IDM3 GE B1,B2,IDM2 $ BX6 X2 $ LX7 B0,X1 SET UNUSED PART OF 17 1793 SB1 3 $ AX2 1 $ SA6 A3 NVIGEH TO 200000B (CR IND OF DIM 4) 17 1794 SA7 NQX $ SA7 NCRIN NRES+20=LIMIT OF FIXED PART OF NVIGEH 17 1795 IDM4 SB2 B2+B6 $ SA6 A6+B6 $ GE B3,B2,IDM4 17 1796 IDM5 SA1 B1+MREF $ SB1 B1-B6 $ SA4 X1 REMOVE OUTPUT PRESENCE 17 1797 AX1 30 $ SA3 X1 $ MX7 59 $ IX4 X4+X7 BIT. 17 1798 IDM6 BX6 -X2*X3 $ IX4 X4+X7 $ SA6 A3 $ SA3 A3+B6 17 1799 PL X4,IDM6 $ GE B1,B0,IDM5 17 1800 SB1 B6 $ SX6 B6 $ SB2 40 DETERMINE HIGHEST SUBSTITUTION 17 1801 SB3 NID-1 $ SB7 MAXID LEVEL 17 1802 + SA4 B1+B3 $ ZR X4,*+1 $ SX6 B1 17 1803 + SB1 B1+B6 $ GE B2,B1,*-1 $ SA6 B7 17 1804 SA1 KKUIT $ SA2 MBE NFFO=POINTER TO LIST IN IT OF 17 1805 ZR X1,IDM7 $ SB4 X1 $ BX7 X2 LOC,FILN1 OF Z-EXPRSS 17 1806 SX6 X2+B4 $ SA7 NFFO $ SA6 A2 ( COPIED FROM IPR ) 17 1807 + SA1 B4+IPR $ SB4 B4-1 17 1808 + BX6 X1 $ SA6 X7+B4 $ NZ B4,*-1 17 1809 IDM7 ZR B0,IDMOV1 17 1810 * 17 1811 *MOV12************* *MOV12******* 17 1812 DO77 VFD 24/4H/DO/,36/0 17 1813 BLK77 VFD 30/5HBLOK/,30/0 17 1814 MOV12 BSS 1 17 1815 ZR X1,MOV12 $ SX3 X1 $ LX1 18 X3=BEGIN OF DOCYCLE 17 1816 SX1 X1 $ SA5 X3 $ ZR X1,MOV13 X1=LENGTH 17 1817 SA4 MBE $ BX7 X5 $ IX0 X3-X4 MOVE DOLOOP TO LOWER MBE 17 1818 + SA3 NDIMT $ PL X0,*+3 17 1819 + IX0 X0+X1 $ NO $ SX0 X0-1 17 1820 + PL X0,FOS40 $ ZR B0,MOV12 X2=TERMINATOR 17 1821 + IX6 X4+X1 $ SA7 X4 $ ZR X0,*+3 17 1822 + SA5 A5+B6 $ BX7 X5 $ IX0 X5-X2 $ SA7 A7+B6 17 1823 + NZ X0,*-1 $ SX7 A7+B6 $ IX0 X7-X6 17 1824 + NZ X0,FOS40 $ IX3 X3-X6 $ SA6 A4 UPDATE MBE, EVEN WHEN NO 17 1825 NG X3,FOS34 $ LX1 42 $ BX7 X1+X4 MOVE WAS DONE. CONSTRUCT 17 1826 SA7 A1 $ NO $ ZR B0,MOV12 NEW VALUE FOR DOPTR 17 1827 MOV13 SA5 NXEX $ MX0 30 $ SB5 X5 SEARCH VALUE OF DOPTR VIA 17 1828 SA5 X5+NXGEH-1 $ MX3 52 $ NO 17 1829 + BX6 X0*X5 $ IX6 X6-X4 $ ZR X6,MOV13A 17 1830 + SA5 A5-B6 $ SB5 B5-B6 $ LT B0,B5,*-1 17 1831 FOS40 ERRORP 140 17 1832 FOS34 ERRORP 134 17 1833 MOV13A BX5 -X3*X5 $ SA4 X5+LOC-1 $ SX1 X4 17 1834 LX4 18 $ SX7 X4 $ LX4 18 $ SA7 A1 17 1835 SA5 MBE $ SX4 X4 $ IX6 X1+X4 KEEP DOCYCLE OVER * BEGIN 17 1836 IX0 X5-X6 $ PL X0,MOV12 $ SA6 A5 17 1837 ZR B0,MOV12 17 1838 * 17 1839 TABLE4 VFD 18/3HBEG,42/0 1 = RESULTING NSPEC 17 1840 VFD 18/3HEND,42/0 2 17 1841 VFD 18/3HNEX,42/0 3 17 1842 VFD 18/3HYEP,42/0 4 17 1843 VFD 18/3HFIX,42/0 5 17 1844 TAB4L BSS 0 1 IF NOT IN TABLE 17 1845 NTAB4 EQU TAB4L-TABLE4 17 1846 STAR BSS 1 17 1847 SA1 A $ MX0 54 $ LX1 6 STAR. PAS=0 IF A(1)=* 17 1848 SB6 1 $ BX2 -X0*X1 $ SB5 B6+B6 17 1849 SX6 X2-AS0 $ SA6 PAS 17 1850 NZ X6,STAR $ SB7 71 GET 3 NON-BLANK CHARACTERS. 17 1851 STA1 SA1 A1+B6 $ SB7 B7-B6 $ NG B7,STA2 17 1852 LX1 6 $ BX1 -X0*X1 $ SX7 X1-BL0 17 1853 ZR X7,STA1 $ LX6 6 $ SB5 B5-B6 17 1854 BX6 X6+X1 $ GE B5,B0,STA1 $ LX6 42 17 1855 STA2 SB2 NTAB4 $ SB3 NSPEC 17 1856 STA3 SA2 B2+TABLE4-1 $ IX3 X6-X2 $ SB2 B2-B6 17 1857 ZR X3,STA4 $ GE B2,B6,STA3 17 1858 STA4 SX7 B2+B6 $ SA7 B3 $ ZR B0,STAR 17 1859 * 17 1860 END 18 0 IDENT LEES 18 1 ENTRY LEZE1,FOUTP 18 2 MACRO *EXPAND 18 3 MACRO *EXPRNR 18 4 MACRO *IN 18 5 EXT INP,GETAL,FOUT,FOUTC,LIJN 18 6 EXT SAMEN,BUGST1,BREAK,DLIST1,NUM1 18 7 DOL1 VFD 60/53000000000000000000B 18 8 VFD 24/4HLEES,36/0 18 9 LEZE1 BSS 1 READ ONE SYMBOL 18 10 SA1 SLASH2 $ MX6 0 $ BX7 X1 18 11 SA6 EXPOFL1 $ SA6 IMINUS 18 12 SA6 A1 $ NO $ SA7 SLASH1 18 13 LE1 SA2 MBU $ MX6 0 $ BX7 X2 COME FROM ARG3-1 18 14 SA6 NRFLAG1 $ SA7 MMBU 18 15 SA6 NBLAN1 $ SB6 1 B6=1 THROUGHOUT 18 16 MX7 0 $ NO $ SA6 LDA1+2 NSL NZ IS NUMBER 18 17 SA6 SYMB2 $ SA7 IAL NSL+1 N.Z. EXP., SIGN IN IMINUS 18 18 SA6 SYMB3 $ SA7 SYMB1 NSL+2 N.Z. NON-BLANK A(1) 18 19 NEXT1 SA2 CREATBR $ SA3 NHAK 18 20 SB6 1 $ BX7 -X7*X7 $ MX0 6 18 21 SA1 NI $ MX5 59 $ IX6 X3+X5 18 22 PL X2,LE2 $ SA6 A3 $ IX1 X1+X5 18 23 SA7 A2 $ NO $ NO $ NO 18 24 LE2 SB7 72 $ IX6 X1-X5 $ SB1 X6 18 25 SA6 A1 $ GE B7,B1,LE31 $ NO JP IF NO NEW CARD NEEDED 18 26 LE3 SA1 RCUR1 $ NZ X1,LE4 COME FROM LE17 18 27 + SA1 NTAP1 $ SB1 A1 $ SB2 X1 READ VIA INP IF NTAP1 GR 0 18 28 GE B0,B2,LE5 $ RJ INP 18 29 ZR B0,LE15 18 30 LE4 SA2 LEESPT $ SA3 X1 $ MX6 0 TAKE BLOK ARG AS NEW CARD 18 31 + ZR X2,*+3 $ RJ BREAK TAKE NEXT PART OF SAME BLOCK ARGUMENT 18 32 + MX6 0 $ NO $ SA6 NI 18 33 + ZR B0,NEXT1 18 34 + BX7 X3 $ SA6 A1 $ SA7 NI BLOCK ARGUMENT FINISHED 18 35 SB1 B0-B6 $ SB2 79 $ BX6 X1 RESTORE A FROM IT. RESET NSUBS 18 36 SA1 MNSUBS $ SA2 NSUBS 18 37 IX1 X1-X2 $ BX7 X2 $ SA6 RCUR2 18 38 + PL X1,*+1 $ SA7 A1 $ NO 18 39 + SA3 A3+B6 $ SB1 B1+B6 $ BX7 X3 $ NO 18 40 + SA7 B1+A $ LT B1,B2,*-1 18 41 ZR B0,NEXT1 18 42 LE5 SB2 A $ RJ INPP READ IEP CONTENT AS NEW CARD 18 43 SA3 A $ SA1 DOL1 EXTRACT DOLIST,BLOKPT FROM DO0 SYMBOL 18 44 MX0 24 $ SX6 X3 $ BX7 X0*X3 $ LX3 42 18 45 IX1 X1-X7 $ NZ X1,LE7 $ SA7 A3 18 46 SA6 BLOKPT $ SX7 X3 $ NO 18 47 SA7 DOLST1 $ NO $ NO 18 48 LE7 SA1 NCONT+4 $ ZR X1,LE15 NCONT(5)=PRINT BRACKETS FLAG 18 49 SA1 A $ SA2 DOL1 18 50 SB3 A1 $ IX2 X1-X2 $ ZR X2,LE6 18 51 SX2 BL0 $ LX2 54 $ IX2 X1-X2 18 52 NZ X2,LE15 $ SA1 A1+B6 $ MX0 6 18 53 IX2 X1-X0 $ ZR X1,LE15 $ NO 18 54 LE6 SX3 80 $ RJ UIT2 18 55 LE15 SB6 1 $ SA2 NORDER MOVE MARKER TO X3 18 56 SA1 A $ NG X2,EXIT2 18 57 SX2 BL0 $ SX6 B6 $ LX2 54 18 58 SA6 NI $ SA3 NHAK 18 59 IX2 X1-X2 $ NO $ ZR X2,NEXT1 18 60 NZ X3,LFO2 $ SA2 DOL1 18 61 IX2 X1-X2 $ NO $ ZR X2,LE21 18 62 * END OF STATEMENT. LAST INPUT CARD (A) IS COPIED INTO IEP. 18 63 SA5 IDO1+2 $ ZR X5,LE21 18 64 SA2 IDO1+1 $ ZR X2,LE19 18 65 SB1 ITA1+2 $ SB2 A 18 66 RJ INOUT INOUT(ITAP,A) 18 67 + SB1 ITA1+2 $ RJ REW REWIND 18 68 + SA4 NTAP1 $ SA1 ITA1 PRESERVE NTAP1, SET NTAP1=ITA1+2 18 69 BX6 X4 $ SA3 ITA1+2 $ SA4 A3+B6 18 70 BX7 X4 $ NZ X1,LE17 $ SA6 A1 RESET KTA1, +1 18 71 SA1 BLOKPT $ NO $ BX6 X1 INPUT READ IN. PREPARE FOR 18 72 SA1 NSUBS $ SA6 BLOKP1 READING DO0 SYMBOLS 18 73 NO $ BX6 X1 $ SA6 NSUB1 18 74 LE17 BX6 X3 $ SA7 KTA1 $ SA6 A7+B6 TO ITA1+3, +2. 18 75 SA6 NTAP1 $ MX7 0 START READING NEWLY CREATED ID, 18 76 SA7 IDO1+1 $ SA1 LEVCH 18 77 SX6 X1+B6 $ SA6 A1 $ SA6 LEVCL 18 78 ZR B0,LE3 18 79 LE19 SX6 B0 $ MX7 0 $ SA6 IDO1 NO ID LEFT 18 80 SA7 A6+B6 $ SA6 TAPMA1 $ SA6 A7+B6 REWIND AND RESTORE 18 81 SA6 LDA1+3 $ NO $ SA7 A6+B6 COMPLETE REWIND 18 82 + SA1 ITA1 $ NO $ BX7 X1 ITA1=0 18 83 SA7 NTAP1 $ SA6 KTA1 18 84 SX7 -2 $ SA7 A6+B6 $ SA6 A1 NCIND IS ALSO RESET IN SCHOON 18 85 SA1 BLOKP1 $ SA6 DOLST1 READ AGAIN FROM INPUT CARDS 18 86 BX7 X1 $ NO $ SA7 BLOKPT 18 87 SA1 MNSUBS $ SA2 NSUBS 18 88 SA3 NSUB1 $ IX1 X1-X2 $ BX6 X2 18 89 + BX7 X3 $ PL X1,*+1 $ SA6 A1 18 90 + SA7 A2 $ NO $ NO $ NO 18 91 LE21 SX6 B0 $ MX7 54 $ SA6 WW1 NON-BLANK A(1) 18 92 SA7 NBLAN1 $ NO $ NO 18 93 SB1 X7 $ MX2 0 $ JP EXIT1 18 94 LE23 SX6 X3-52B $ ZR X7,LE25 ) .ID CREATING COME FROM LE31 18 95 SX4 X3-77B $ ZR X4,LFO2 NO SPECIAL TERMIN INBETWEEN () 18 96 SX2 B0-B6 $ ZR X6,LE27 $ MX2 0 COUNT () IN X2 18 97 SX6 X3-56B $ SA5 CREATBR , 18 98 NZ X6,LE25 $ ZR X5,LE25 18 99 SA3 NHAK $ SA4 NHAK1 18 100 IX6 X3-X4 $ NZ X6,LE25 $ SA6 A5 , MAY IMPLY ) IN CASE OF 18 101 SA4 NI $ SX6 X4-2 INTEG() PLACED AROUND FU ARGUMENT 18 102 SX7 52B $ LX7 54 $ SA6 A4 PLACE ) 18 103 SA7 X6+A $ ZR B0,NEXT1 18 104 LE25 SA4 LDA1+1 $ BX6 X0*X1 $ SB2 X4+B6 LDA1+1 COUNTS CHARS 18 105 SA3 NHAK $ SA6 B2+IPR1-1 18 106 IX7 X3+X2 $ SB7 71 $ SX6 B2 18 107 SA7 A3 $ SA6 A4 $ GE B7,B2,NEXT1 WRITE IF 72 CHARACTERS 18 108 SB1 ITA1+2 $ SB2 IPR1 18 109 RJ INOUT 18 110 + SX7 BL0 $ SB6 1 18 111 LX7 54 $ SX6 B6 $ SA7 IPR1 18 112 SA6 LDA1+1 $ ZR B0,NEXT1 18 113 LE27 SA3 NHAK $ SA4 NHAK1 SEE IF TERMINATING ) 18 114 SX7 54B $ IX6 X3-X4 $ LX7 54 = 18 115 NZ X6,LE25 $ SA5 LDA1+1 TERMINATE CREATED ID, 18 116 SA3 CREATBR $ SA4 NI 18 117 + ZR X3,*+2 $ SX6 X4-1 18 118 SA6 A4 $ NO $ MX6 0 $ SA6 A3 BACKSPACE, IMPLYING TWO ) 18 119 + SX6 55B $ SB7 IPR1+72 FILL UP WITH BLANKS 18 120 SB2 X5+IPR1 $ SA7 B2 $ LX6 54 18 121 LE29 SB2 B2+B6 $ SA6 B2 $ GE B7,B2,LE29 18 122 SB1 ITA1+2 $ SB2 IPR1 18 123 RJ INOUT 18 124 + SX7 7 $ SB6 1 PUT SOME CHAR IN WW1, +1. SET IDO1 18 125 SA7 WW1 $ MX6 0 $ NO 18 126 SA6 IDO1 $ JP NEXT1 TO ZERO 18 127 LE31 SA1 B1+A-1 $ BX3 X0*X1 $ LX1 B0,X3 CHAR LEFT IN X1, RIGHT IN 18 128 SA4 IDO1 $ SX2 B6 $ LX3 6 X3. X2=1 .X0 ASSUMED M6 18 129 SX6 X3-55B $ SX7 X3-51B BLANK ( 18 130 ZR X6,NEXT1 $ NZ X4,LE23 SKIP BLANKS 18 131 SA5 EXPOFL1 $ SA4 LDA1+2 ELIMINATE () IN EXP. SET LDA1+2 18 132 ZR X5,LE35 $ NZ X7,LE33 JP IF NO EXPONENT 18 133 MX7 54 $ SA7 A4 $ ZR B0,NEXT1 SKIP ( SET EXP IND LDA1+2 18 134 LE33 SX6 X3-52B $ NZ X6,LE35 18 135 ZR X4,LE35 $ MX6 0 $ SA6 A4 SKIP ) NVRA=0 18 136 JP NEXT1 WW1=LAST TWO, WW1+1=LAST THREE CHAR 18 137 LE34 SX6 101 $ SA6 NI 18 138 ZR B0,NEXT1 18 139 LE35 SA2 BBB $ SA4 NORDER ADD CHAR TO WW1 TO MAKE NEW WW1+1 18 140 BX7 X2 $ LX6 B0,X1 $ SA7 BBA THAN CUT OFF ONE TO MAKE 18 141 SA6 A2 $ SB5 LE47 $ SX2 B6 18 142 ZR X4,LE34 $ SA5 WW1 X5 CONTAINS LAST THREE CHAR 18 143 MX0 48 $ LX5 6 $ BX7 X3+X5 $ BX6 -X0*X7 18 144 NO $ SA6 A5 $ BX5 X7 $ SB1 X3 PREPARE FOR COMPARE 18 145 BX4 -X4 $ MX6 59 $ SB7 X4+LE45 18 146 SA0 SLASH2 $ SA3 NREP 18 147 SA4 NHAK $ MX0 36 $ SX7 B0 18 148 LE37 NZ X7,LE39 $ AX0 6 $ BX5 -X0*X5 COMPARE 18 149 LE39 SA1 B5-B6 $ BX7 -X0*X1 $ SB5 B5-B6 $ IX1 X5-X7 18 150 LT B5,B7,LE59 $ NZ X1,LE37 18 151 JP B5+0 18 152 LE41 SA6 IMINUS $ ZR B0,NEXT1 18 153 + ZR B0,EXIT1 $ SB7 57B . REGISTERS - 18 154 + BX2 X6 $ NO $ SB7 46B - A0 = SLASH2 (FOR /) 18 155 + ZR B0,EXIT1 $ SB7 45B + A4,X4=NHAK 18 156 + SA6 A0 $ SB1 B1-B6 $ SB7 50B / X2=1 FOR NTEKEN 18 157 * B1 IS CHANGED FROM / INTO * 18 158 + ZR B0,EXIT1 $ SB7 47B * X3=NREP 18 159 + ZR B0,LE55 $ SB7 04B D X5=LAST CHAR(S) 18 160 + ZR B0,EXIT1 $ SB7 54B = X6=-1 FOR NTEKEN,IMINUS 18 161 + ZR B0,LE57 $ SB7 51B ( B1=LAST CHARACTER 18 162 + ZR B0,EXIT1 $ SB7 56B , B6=1 18 163 + ZR B0,EXIT1A $ SB7 77B SPECIAL TERMINATOR 18 164 + IX6 X4+X6 $ SA6 A4 $ SB1 52B ) 18 165 LE45 ZR B0,EXIT1 $ SB7 0 DELIMITER 1 CHAR COMPARISON 18 166 + SA6 IMINUS $ SB7 5646B ,- 18 167 + ZR B0,NEXT1 $ SB7 5645B ,+ 18 168 + ZR B0,LE53 $ SB7 0546B E- 18 169 + ZR B0,LE49 $ SB7 0545B E+ 18 170 + ZR B0,NEXT1 $ SB7 5445B =+ 18 171 + ZR B0,LE47 $ SB7 5446B =- 18 172 + ZR B0,LE47 $ SB7 5146B (- 18 173 + SA6 EXPOFL1 $ SB7 4747B ** 18 174 + ZR B0,NEXT1 $ SB7 5145B (+ 18 175 + ZR B0,EXIT1 $ SB7 0 DELIMITER 2 CHAR COMPARISON 18 176 + ZR B0,NEXT1 $ SB7 474745B **+ 18 177 + ZR B0,LE41 $ SB7 474746B **- 18 178 LE47 SA6 IMINUS $ ZR B0,NEXT1 ACTION ON =- 18 179 LE49 SA1 NRFLAG1 $ ZR X1,LE37 E+ GO BACK IF NOT NUMBER. 18 180 SX7 20B $ LX7 54 P 18 181 SA7 BBB $ ZR B0,LE59 18 182 LE53 SA1 NRFLAG1 $ ZR X1,LE37 E- GO BACK IF NOT NUMBER. 18 183 SX7 15B $ LX7 54 M 18 184 SA7 BBB $ JP LE59 18 185 LE55 SA3 IAL $ SA4 BBB DO NOT RECOGNIZE IF NOTHING BEFORE 18 186 SA5 SYMB2 $ ZR X3,LE59 D, OR SECOND D 18 187 SX7 X3-3 $ PL X7,LE59 OR MORE THAN 2 CHAR BEFORE D 18 188 NZ X5,LE59 $ SA5 SYMB1 18 189 MX6 0 $ BX7 X5 $ SA7 SYMB2 18 190 JP LE61 18 191 LE57 IX7 X4-X6 $ SA7 A4 $ NZ X3,EXIT1 ENCOUNTER OF ( 18 192 SA5 IAL $ SA3 DOL1 CONSTRUCT DO0,776 18 193 NZ X5,EXIT1 $ SA1 IDO1+3 18 194 BX7 X4 $ SA7 A4 $ SA7 NHAK1 18 195 IX6 X1+X6 $ SA6 A1 $ SA4 DOVLAG ADD DOLIST,BLOKPT TO 18 196 SA5 DOLST1 $ NZ X5,LE58 18 197 NO $ NO $ ZR X4,LE58 DOLLAR SYMBOL 18 198 SA5 NSUBS $ SA0 NDIMU STRAIGHTEN DOLIST 18 199 SB1 X4 $ SB2 B0 $ SA4 DOLIST COPY AT NSUBS 18 200 + SA4 X4+B1 $ SA2 A4+B6 $ SB3 X4 $ BX7 X2 18 201 + SA7 X5+B2 $ SB2 B2+B6 $ NE B3,B6,*-1 18 202 MX6 59 $ SA6 A7+B6 $ SA4 A0 $ SX7 A6+B6 18 203 IX4 X4-X7 $ SA7 A5 $ NG X4,LFO3 18 204 LE58 SA4 RCUR1 $ MX2 0 $ LX5 18 18 205 + NZ X4,*+2 $ SA2 BLOKPT 18 206 + SX2 X2 $ NO $ NO $ NO 18 207 + BX2 X2+X5 $ BX7 X3+X2 $ SA7 IPR1 18 208 MX6 0 $ BX7 X3 $ SA7 A7+B6 $ LX3 18 18 209 SA7 B $ SA6 X1+ISCAL-777B+LISCAL-1 18 210 MX0 57 $ BX2 -X0*X1 $ AX1 3 $ BX4 -X0*X1 FOLLOWED BY 18 211 SX7 X4+33B $ AX1 3 $ LX7 54 IDO1+3 TRANSLATED IN BCD CHARS 18 212 SX6 X1+33B $ LX1 12 $ LX6 54 18 213 SX5 333333B $ SA6 B+1 18 214 LX4 6 $ SA7 A6+B6 $ SA6 IPR1+2 18 215 IX1 X4+X1 $ BX4 X1+X2 $ SX6 X2+33B 18 216 SA7 A6+B6 $ LX6 54 $ IX2 X4+X5 $ SA6 A7+B6 18 217 SA7 BBA $ SA6 B+3 LAST AND LAST BUT ONE SYMBOL 18 218 LX2 54 $ BX7 X2+X3 $ SA7 SYMB1 18 219 SA6 BBB $ SA7 SYMB3 SET IDENTIFIER IN SYMB1 18 220 SX6 54B $ MX2 59 $ LX6 54 SET IAL=4, IDO1, IDO1+2 N.Z. 18 221 SA1 NCIND $ IX7 X1+X2 $ SA7 A1 NCIND = NCIND - 1 18 222 SX7 4 $ SA7 IAL 18 223 SA6 IPR1+5 $ SA7 IDO1 18 224 SA6 IDO1+2 $ SA1 KTA1 18 225 SA2 A1+B6 $ SA3 A7+B6 $ SX7 6 SET ITA1+2, ITA1+3 18 226 BX6 X1 $ SA7 LDA1+1 $ BX7 X2 INDICATE 6 CHARS IN IPR1 18 227 SA6 ITA1+2 $ SA7 A6+B6 $ MX7 54 18 228 NZ X3,NEXT1 $ NO $ NO 18 229 SB1 A6 $ SA7 A3 $ RJ REW SET IDO1+1 N.Z., REWIND 18 230 + SB6 1 $ JP NEXT1 GO READ CHARS IN IPR1 18 231 LE59 SA5 SYMB3 $ SA3 IAL NO SPECIAL CHAR. ADD TO SYMB1, 18 232 LX5 6 $ SA4 BBB $ BX6 X5+X4 INCREASE IAL BY ONE 18 233 BX7 X4 $ SA5 SYMB1 $ LX7 6 18 234 LE61 SA6 SYMB3 $ LX5 6 $ BX6 X5+X4 18 235 SA6 A5 $ SX7 X3+B6 $ BX6 X4 $ SA7 A3 18 236 SX0 X7-49 $ PL X0,LFO1 JP IF MORE THAN 49 CHARACTERS 18 237 SA6 X3+B $ NZ X3,NEXT1 B(IAL)=BBB .JP IF NOT FIRST CHAR. 18 238 LX6 6 $ SX4 X6-57B . 18 239 ZR X4,LE63 $ SX4 X6-33B 0 18 240 SX0 X6-45B $ BX0 -X4*X0 $ NO + 18 241 PL X0,NEXT1 18 242 LE63 SA6 NRFLAG1 $ JP NEXT1 SIGNAL NUMBER 18 243 EXIT1A SX6 101 $ SA6 NI 18 244 SA1 NHAK $ NZ X1,LFO2 18 245 EXIT1 SA3 LDA1+2 $ SX7 B1 $ BX6 X2 18 246 SA7 NBIND $ SA6 NTEKEN 18 247 NZ X3,LFO4 $ SA1 SYMB1 18 248 SA2 NRFLAG1 $ ZR X1,EXIT2 18 249 SA3 IAL $ ZR X2,LE73 18 250 LE71 MX6 0 $ SA6 SYMB2 18 251 SA1 GETALC $ RJ GETAL CALL GETAL 18 252 RJ END2 DEAL WITH POSSIBLE ENDBLOCK,ENDDO 18 253 ZR B0,EXIT2 18 254 GETALC VFD 60/NRINVERS GETAL CALLING SEQUENCE 18 255 VFD 60/NRFLOAT 18 256 VFD 60/NRFIX 18 257 VFD 60/IAL 18 258 VFD 60/0 18 259 LE73 SA5 SYMB3 $ SX0 X3-10 SYMBOL IS A NAME 18 260 SA1 SYMB1 $ SA3 SYMB2 18 261 PL X0,LFO1 $ RJ LE99 CHECK FOR LONG SYMBOLS 18 262 + SA6 A1 $ BX1 X3 $ RJ LE99 LEFT ADJUST SYMBOLS 18 263 + SA6 A3 $ BX1 X5 $ RJ LE99 18 264 SA1 DOL1 $ MX0 6 $ MX2 24 TEST AGAINST 18 265 BX0 X0*X6 $ BX2 -X2*X6 $ IX1 X1-X0 $ SA6 A5 ERRORS LIKE 18 266 + NZ X1,*+2 $ ZR X2,LE74 (A+B)E*F 18 267 + ZR B0,LFO7 18 268 + SA2 RCUR1 $ SA3 SYMB1 18 269 SA4 BLOKPT $ NZ X2,ARG3 18 270 ZR X4,ARG3 $ SA4 X4-1 18 271 + MX0 59 $ SA4 A4+B6 $ IX2 X4-X0 $ IX5 X4-X3 SCAN THRU BLOK AR 18 272 + ZR X2,ARG3 $ ZR X5,ARG4 JP IF END OF LIST.JP IF ARG FOUND 18 273 + SA4 A4+B6 $ MX1 54 $ BX4 -X1*X4 $ NO POSITON AT NEXT ARG 18 274 + NZ X4,*-1 $ ZR B0,*-3 18 275 ARG4 SA1 NBIND $ SA5 NHAK ARGUMENT MATCHES 18 276 SX2 X1-BO0 $ SX3 X1-BC0 18 277 + SB1 B0 $ NZ X2,*+1 $ SB1 B0-B6 ADJUST NHAK 18 278 + BX6 X1 $ NZ X3,*+1 $ SB1 B6 18 279 + SX7 X5+B1 $ SA6 BIND1 $ SA7 A5 18 280 SA1 NI $ SA3 RCUR2 STORE A AT IT FROM RCUR1,2 ON. 18 281 SA5 NSUBS $ SB2 80 FORCE END OF CARD 18 282 SX7 A4+B6 $ SX6 B2+B6 $ SA7 LEESPT STORE NI. 18 283 + SA6 A1 $ BX7 X3 $ NZ X3,*+4 18 284 + SA4 NDIMU $ MX7 59 $ IX6 X6+X5 18 285 + SA7 X6 $ IX4 X4-X6 $ NG X4,LFO3 18 286 + SX7 X6+B6 $ SA7 A5 $ BX3 X5 $ BX7 X5 UPDATE NSUBS 18 287 + SA7 A2 $ SB3 B0 $ NO $ NO 18 288 SA0 A $ BX7 X1 $ SA7 X3 18 289 + SA1 A0+B3 $ SB3 B3+B6 $ BX7 X1 $ SA7 A7+B6 18 290 + LT B3,B2,*-1 $ ZR B0,LE1 18 291 ARG3 SA1 DOLST1 $ NZ X1,LE72 SCAN THRU DO VARIABLES 18 292 SA1 DOVLAG $ MX0 30 $ SB1 X1 X3 IS SYMB1 18 293 ZR X1,LE74 $ RJ DLIST1 18 294 LE76 ZR B2,LE74 $ SX2 X4 $ SX7 B6 18 295 + MX5 0 $ MX6 59 $ PL X2,*+3 18 296 + SA4 IMINUS $ IX2 X5-X2 $ SA6 A4 18 297 + MX6 0 $ PL X4,*+1 $ SA6 A4 18 298 + SA7 NRFLAG1 $ RJ NUM1 CONVERT TO DISPLAY CODE 18 299 MX0 54 $ SB1 B0-B6 $ BX7 X0*X5 $ LX0 54 18 300 + BX6 -X0*X7 $ SB1 B1+B6 $ SA6 B1+B 18 301 + LX7 6 $ NZ X6,*-1 $ SX7 B1 18 302 SA7 IAL $ ZR B0,LE71 18 303 LE72 MX0 30 $ MX6 59 $ SA2 X1-1 SCAN THRU DO VARIABLES 18 304 + SA2 A2+B6 $ IX5 X2-X6 $ BX4 X0*X2 $ IX7 X4-X3 DURING 18 305 + ZR X5,*+1 $ NZ X7,*-1 ANALYSIS OF DOLLAR EXPRESSIONS 18 306 + BX4 -X0*X2 $ SB2 X5 $ ZR B0,LE76 18 307 END2 BSS 1 18 308 SA1 NTAP1 $ NO $ NO 18 309 MX6 0 $ IX1 X6-X1 $ SA3 ENDB1 18 310 PL X1,END2 $ SA4 BLOKPT 18 311 + SA6 A3 $ ZR X3,*+2 $ SA6 A4 18 312 + NG X3,*+1 $ BX7 X3 $ SA7 A4 18 313 + SA6 DOLST1 $ ZR B0,END2 18 314 LE74 RJ END2 18 315 SA5 SYMB3 $ SA1 SYMB2 NOTHING FOLLOWING D IS NO DOTPROD 18 316 MX7 0 $ NO $ NO $ NO 18 317 ZR X5,LE75 $ NZ X1,LE77 DOTPRODUCT. IF DOTPR GO TO LE77 18 318 LE75 SA7 SYMB2 $ JP EXIT2 18 319 LE77 SA1 B+1 $ SA2 B+2 IF AMBIGUOUS DOTPRODUCT, TRY TO 18 320 IX5 X1-X2 $ LX1 6 $ SX3 X1-04B DECIDE TAKING INTO ACCOUNT 18 321 NZ X3,LE97 $ NZ X5,LE95 IF NAMES ARE VECTOR OR OTHER 18 322 SA1 SYMB2 NAMES, AND LENGTH OF NAMES. 18 323 + MX0 30 $ SB4 B0 $ RJ LE89 18 324 + SB1 B4 $ SA1 SYMB3 18 325 + MX0 30 $ SB4 B0 $ RJ LE89 18 326 + SA4 SYMB2 $ SX7 04B ADD D, PRESERVE IN X6 18 327 SB2 B4 $ LX7 48 $ BX1 X7+X4 $ LX6 B0,X1 18 328 + GE B0,B1,*+1 $ LT B0,B2,EXIT2 BOTH ARE VECTORS 18 329 + MX0 30 $ SB4 B0 $ RJ LE89 18 330 + SA5 SYMB3 $ SB3 B4 $ MX1 12 SUBTRACT D, PRESERVE IN X7 18 331 LX5 6 $ BX1 X1*X5 $ LX7 B0,X1 18 332 + MX0 30 $ SB4 B0 $ RJ LE89 18 333 GE B0,B3,LE83 $ GE B0,B4,LE83 18 334 LE81 SA6 A4 $ SA7 A5 $ JP EXIT2 D ADDED TO FIRST, SUBTR SECOND 18 335 LE83 SA3 IAL $ SX0 X3-5 18 336 SX1 B1+B2 $ SX2 B3+B4 $ NG X0,LE87 18 337 LE85 PL X2,LE81 $ MX6 0 18 338 JP LE81 18 339 LE87 NG X1,LE85 $ IX3 X1-X2 18 340 NG X3,LE81 $ JP EXIT2 18 341 LE89 BSS 1 DOES NOT USE X6,X7 18 342 BX3 X0*X1 $ LX3 6 $ SX2 X3-33B 18 343 PL X2,LE90 $ NO 18 344 + SA2 NVGEH $ SA3 NVECT IF VECTOR NAME, B4=1 18 345 SB5 1 $ RJ LE91 IF OTHERNAME, B4=-3 18 346 + NZ B4,LE89 $ SA2 NAGEH IF NO NAME B4=0 18 347 SB5 B0-3 $ SA3 NALGE 18 348 RJ LE91 18 349 + NZ B4,LE89 $ SA2 NFGEH 18 350 SA3 NFUN $ RJ LE91 18 351 + NZ B4,LE89 $ SA2 NVIGEH 18 352 SA3 NVIND $ RJ LE91 18 353 ZR B0,LE89 18 354 LE90 SB4 B0-3 $ ZR B0,LE89 18 355 LE91 BSS 1 18 356 LE93 BX4 X0*X2 $ IX5 X1-X4 $ SX3 X3-1 18 357 NG X3,LE91 $ SA2 A2+1 SEARCH ARRAY 18 358 NZ X5,LE93 $ SB4 B5 18 359 JP LE91 18 360 LE95 SA3 IAL $ SX0 X3-5 CHECK FOR LONG VECTOR NAMES 18 361 MX7 0 $ PL X0,LE75 18 362 LE97 MX7 0 $ SA1 SYMB2 CHECK IF NOT OTHER NAMES THAN VECTOR 18 363 + MX0 30 $ SB4 B0 $ RJ LE89 18 364 NG B4,LE75 $ SA1 SYMB3 18 365 + MX0 30 $ SB4 B0 $ RJ LE89 18 366 NG B4,LE75 $ NO $ NO 18 367 EXIT2 SA1 LEVCH $ SA2 EREXP1 SET EREXP1 TO DETECT ILLEGAL 18 368 SB6 1 $ SX3 X1-40 A**B CASES. CHECK NR OF LEVELS. 18 369 BX6 X2 $ MX7 0 $ SA6 A2+B6 $ SA7 A2 18 370 NG X3,LEZE1 $ ZR B0,LFO8 TOO MANY SUBSTITUTIONS 18 371 LE99 BSS 1 18 372 + MX0 6 $ LX1 6 $ BX6 -X0*X1 $ LX0 6 LEFT ADJUST X1 18 373 LE101 LX6 54 $ BX2 X0*X6 $ NZ X2,LE101 INTO X6 18 374 JP LE99 USES X1=INPUT, X0, X2, X6=OUTPUT 18 375 INOUT BSS 1 INOUT(ITA1,IPR1) 18 376 SA3 LDA1+3 $ SB6 1 LDA1+3,4 GIVE START IN IEP 18 377 SB7 B2-9 $ SX4 LIEP 18 378 SA1 B1 $ NZ X1,LE109 $ BX5 X3 18 379 SA3 A3+B6 $ ZR X5,LE109 $ IX5 X3-X5 IN IEP 18 380 SX5 X5+9 $ PL X5,LFO6 18 381 LE109 IX4 X4-X3 $ MX0 6 $ NG X4,LFO6 18 382 SB4 X3+9 $ SB3 6 18 383 SA4 B2 $ SA5 B2+B6 $ BX7 X4 $ LX6 B0,X5 18 384 SA7 X3+IEP $ SA6 A7+B6 $ MX6 0 INTO IEP 18 385 LE111 SB7 B7+10 $ SB5 B7+10 MOVE 70 IPR1 INTO 7 IEP 18 386 LE113 SA4 B5 $ LX6 54 $ SB5 B5-B6 $ BX4 X0*X4 10 IPR1 18 387 BX6 X6+X4 $ LT B7,B5,LE113 $ SA6 A6+B6 INTO 1 IEP 18 388 SB3 B3-B6 $ MX6 0 $ PL B3,LE111 IEP COUNT IN B3 18 389 SA1 MNEPS $ SX6 B4 $ IX1 X1-X6 18 390 + PL X1,*+1 $ SA6 A1 $ NO 18 391 + SA6 A3 $ ZR B0,INOUT 18 392 INPP BSS 1 INPP(ITA1,A) 18 393 + SA1 B1 $ SA3 LDA1+3 $ MX0 6 LDA1+3,4 CONTAIN START IN 18 394 SB7 B2-9 $ SB6 1 IEP. LEAVE A3,X3 18 395 NZ X1,LE115 $ SA3 LDA1+4 IF ITA1 ZR, TAKE LDA1+4 18 396 LE115 SB4 X3+9 $ SB3 6 18 397 SA4 X3+IEP $ SA5 A4+B6 $ BX7 X4 IEP TO AZ, AZP 18 398 LX6 B0,X5 $ SA7 B2 $ SA6 B2+B6 $ SA5 A5+B6 18 399 LE117 SB7 B7+10 $ SB5 B7+10 7 IEP COUNTED IN B3 18 400 LE119 LX5 54 $ BX7 X0*X5 $ SB5 B5-B6 $ SA7 B5+B6 18 401 LT B7,B5,LE119 $ SB3 B3-B6 $ SA5 A5+B6 18 402 PL B3,LE117 $ SX6 B4 $ SA6 A3 18 403 JP INPP 18 404 LE121 SA4 TAPMA1 $ SX6 X4+20 SUBSEQUENT (()) 18 405 SA6 LDA1+3 NEED LESS AND LESS SPACE 18 406 REW BSS 1 RESET LDA1+3,4 IF ITA1=-2,0 18 407 + SA4 B1 $ MX6 0 $ NZ X4,LE121 INDICATING STARTING POINTS 18 408 SA5 LDA1+4 $ SA6 A5 $ BX7 X5 18 409 SA7 TAPMA1 $ ZR B0,REW 18 410 UIT2 BSS 1 PRINT A LINE OF LENGTH X3,STARTING AT B3 18 411 SA1 IPUNCH+3 $ NO $ BX7 X1 18 412 SA7 UIT2TEMP $ NO $ NO 18 413 SB6 1 $ SA5 IBUF+4 SAVE IBUF TO IPUNCH 18 414 SA1 IBUF $ BX6 X5 $ BX7 X1 18 415 SB2 -17 $ SA7 IPUNCH 18 416 + SA1 A1+B6 $ BX7 X1 $ SB2 B2+B6 $ SA7 A7+B6 18 417 + NG B2,*-1 $ SB2 LDA1 LDA1(1) CONTAINS LENGTH OF CHAR 18 418 SA6 A5+B6 $ SX7 10 $ SB1 A6 STRING TO BE PACKED 18 419 SA7 B2 $ SB3 B3-10 $ BX6 X3 B1,B2,B3,B6,X0,X6 ARE NOT CHANG 18 420 + SX0 X6-10 $ SB3 B3+10 BY SAMEN 18 421 + PL X0,*+1 $ SA6 B2 $ NO 18 422 + SB1 B1+B6 $ BX6 X0 $ RJ SAMEN SAMEN(IBUF,N,A) 18 423 + ZR X0,*+1 $ PL X0,*-3 18 424 + SA1 NTAP2 $ MX6 59 $ BX7 X1 18 425 SA2 ISPLAY $ SA7 IBUF 18 426 SB2 IBUF+4 $ SA6 IBUF+2 18 427 + MX7 0 $ ZR X2,*+1 $ SA7 A6 18 428 + SX6 B1-B2 $ SA6 A6+B6 $ RJ LIJN 18 429 SA1 IPUNCH $ SB6 1 18 430 BX7 X1 $ NO $ SB2 -17 18 431 SA7 IBUF $ SA2 UIT2TEMP 18 432 + SA1 A1+B6 $ BX7 X1 $ SB2 B2+B6 $ SA7 A7+B6 18 433 + NG B2,*-1 $ BX6 X2 $ NO 18 434 SA6 IPUNCH+3 $ ZR B0,UIT2 18 435 UIT2TEMP BSS 1 CONTAINS ADDITIONAL TEXT FOR ERRORMESSAGE 1 TO 20 18 436 FOUTP BSS 1 18 437 RJ BUGST1 18 438 + SA1 =00000000000014050523B $ SA2 FOUTP 18 439 BX6 X1+X2 $ LX6 30 $ SA6 NAGEH+253 18 440 SA3 NI $ SB6 1 18 441 SB3 A $ SX4 X3-73 18 442 SA1 B3 $ SA2 B3+B6 $ MX0 6 $ NO 18 443 + NG X4,*+1 $ SX3 72 18 444 + IX6 X1-X0 $ IX4 X2-X0 $ ZR X6,FOUTC 18 445 ZR X4,FOUTC $ RJ UIT2 DO NOT PRINT LINE WITH 77B 18 446 + ZR B0,FOUTC 18 447 LFO1 SB1 IPUNCH+3 $ SB2 =10 18 448 SB3 B $ RJ SAMEN 18 449 ERRORP 5 NAME TOO LONG 18 450 LFO2 ERRORP 25 BRACKET UNCHECK 18 451 LFO3 ERRORP 26 DO,BLOCK ARGM TOO LONG 18 452 LFO4 ERRORP 27 EXPON MUST BE NR OR DUMMY 18 453 LFO6 ERRORP 28 TOO MUCH INBETWEEN (()) 18 454 LFO7 ERRORP 29 ILLEGAL CHARACTER 18 455 LFO8 ERROR 30 TOO MANY SUBSTITUTIONS 18 456 END 19 0 IDENT INP 19 1 ENTRY SEAR3,SEAR4,INP,WREND1,PRIN3,BREAK 19 2 MACRO *EXPAND 19 3 MACRO *EXPRNR 19 4 MACRO *IN 19 5 NAZ1 VFD 54/9HTX ,6/0 19 6 NAZ2 VFD 36/6HCOMMON,24/0 19 7 VFD 24/4HCOPY,36/0 19 8 VFD 12/2HDO,48/0 19 9 VFD 30/5HENDDO,30/0 19 10 VFD 54/9HAVAILABLE,6/0 19 11 CARD0 DIS 5,PRINT STATPRINT NSTAPRINT LISTPRINT NLISPRINT INPU 19 12 CAR5 DIS 5,PRINT OUTPPRINT NOUTPRINT NINPPRINT CINPPRINT COUT 19 13 CAR10 DIS 2,PRINT ERROPRINT BRAC 19 14 VFD 54/9HTAPE COPY,6/0 19 15 DIS 2,TAPE REWINTAPE ENDFI 19 16 CAR15 VFD 54/9HTAPE READ,6/0 19 17 DIS 1,TAPE START 19 18 VFD 54/9HTAPE END ,6/0 19 19 DIS 2,TAPE NAMESTAPE NONAM 19 20 CAR20 DIS 3,TAPE FORWATAPE PRINTTAPE PUNCH 19 21 VFD 54/9HDISPLAY ,6/0 19 22 VFD 54/9HPRINTER ,6/0 19 23 CAR25 DIS 4,ENTER COMMWRITE COMMENTER BLOCWRITE BLOC 19 24 VFD 54/9HENDBLOCK ,6/0 19 25 CAR30 DIS 2,PRINT CEXEMERGE COMM 19 26 VFD 54/9HSCREEN ,6/0 19 27 CARD1 BSS 0 19 28 NCAR1 EQU CARD1-CARD0 19 29 EXT FOUT,LIJN,TAKMAN,TAXMAN,NUTRA0,INPHU 19 30 EXT PAKB1,FOUTP,COPY1,RBUFI1,WBUFV1,NTUSE 19 31 VFD 18/3HINP,42/0 19 32 INP BSS 1 19 33 SX4 A0 $ MX7 42 $ SA3 INP 19 34 BX7 -X7*X4 $ SX5 5100B $ LX5 18 19 35 BX7 X5+X7 $ BX7 X3+X7 $ LX7 30 $ SA7 A3 19 36 INP1 SA1 DUMCAR $ NZ X1,INP1B 19 37 MX7 58 $ NO $ SA7 TABIN1 19 38 SA1 NTAP1 $ RJ INPHU READ 19 39 SA4 CARD0+4 $ MX0 6 $ BX2 X0*X1 EXCEPTION DUMMY CARD GENERAT 19 40 LX2 6 $ SX3 X2-55B $ MX6 58 19 41 SX5 X2-24B $ ZR X5,INP1A T 19 42 SX5 X2-03B $ ZR X3,INP1AA 19 43 SA2 CAR5+2 $ IX4 X4-X1 $ IX2 X2-X1 PRINT INPUT,PRINT NINPUT 19 44 ZR X4,INP1A $ ZR X2,INP1A 19 45 SA2 CAR20+4 $ MX0 48 $ BX3 X0*X1 PRINTER 19 46 BX2 X0*X2 $ IX0 X2-X3 $ ZR X0,INP1A 19 47 SA3 NAZ2 $ SA4 NAZ2+2 COMMON,DO 19 48 MX0 12 $ BX7 X0*X1 $ IX7 X7-X4 $ MX0 36 19 49 ZR X7,INP1AA $ NZ X5,INP2C 19 50 BX7 X0*X1 $ IX7 X7-X3 $ NZ X7,INP1A COMMENT CARD OR COPY 19 51 INP2C SA6 DUMCAR $ SX7 55B FIRST DUMMY CARD BEFORE CARD 19 52 MX6 6 $ LX7 54 $ SA7 A WITH NON BLANK FIRST COLUMN 19 53 SA6 A+1 $ ZR B0,INP 19 54 INP1B AX1 1 $ SX6 X1 $ MX7 6 $ SA6 A1 GENERATE CARD 19 55 ZR X6,INP1C $ SA7 A WITH A(1)=77B 19 56 ZR B0,INP 19 57 INP1C SA1 IBUF+6 $ MX2 12 $ BX3 X2*X1 19 58 LX3 12 $ SB1 X3 $ SB2 1104B CHECK IF ID CARD 19 59 SB3 0114B $ EQ B1,B2,INP1D CHECK IF AL CARD 19 60 NE B1,B3,INP1A $ SA3 LEVLO 19 61 INP1D SA4 LEVCH $ SA5 LEVHY LEVHY=MAX(LEVHY,LEVCH) 19 62 IX2 X5-X4 $ BX6 X5 $ NO $ NO 19 63 + PL X2,*+1 $ BX6 X4 $ SA6 A5 19 64 + EQ B1,B2,*+1 $ BX6 X3 $ NO BRAZI1=LEVEL TO BE PRINTED 19 65 + SA6 BRAZI1 $ ZR B0,INP1A IN FRONT OF ID,AL CARD 19 66 INP1AA MX6 0 $ NO $ SA6 TABIN1 19 67 INP1A SA5 ISPLAY $ SA1 NTAP1 19 68 SA2 IBUF+6 $ SA3 CARD0+4 PRINT INPU 19 69 MX4 54 $ BX0 -X4*X2 $ SX0 X0-55B STRIP OFF LAST BLANK 19 70 + NZ X0,*+1 $ BX2 X4*X2 $ NO 19 71 ZR X5,INP1A1 $ MX0 58 $ IX0 X1+X0 SUBTRACT 3 19 72 NG X5,INP1A1 $ SA1 DOVLAG 19 73 + ZR X0,*+1 $ ZR X1,INP2 JP IF NO DO LOOP 19 74 INP1A1 SA1 NCONT+2 $ IX6 X2-X3 $ CX6 X6 19 75 + NZ X6,*+1 $ SX1 1 19 76 + ZR X1,INP2 $ SA5 CAR20+3 DISPLAY 19 77 IX6 X2-X5 $ CX6 X6 $ ZR X6,INP2 19 78 SA5 BRAZI1 $ SA1 IBUF+4 19 79 NO $ BX6 X1 $ ZR X5,INP1CC 19 80 SX2 X5-10 $ RJ NUTRA0 CONSTRUCT L 3 ID,... 19 81 + SX3 14B $ MX0 6 $ LX3 54 19 82 + PL X2,*+2 $ BX4 X0*X1 $ LX5 54 JP IF X5 HAS 2 DIGITS 19 83 + NO $ BX6 -X0*X5 $ NO $ BX5 X6+X4 X1 IS BLANK 19 84 + BX4 -X0*X1 $ MX0 12 $ BX6 X4+X3 $ LX0 54 19 85 LX5 54 $ BX1 -X0*X6 $ BX2 X0*X5 $ BX6 X1+X2 19 86 INP1CC SA1 NTAP2 $ SA2 ISPLAY 19 87 BX7 X1 $ LX6 54 $ SA7 IBUF 19 88 SA6 IBUF+5 $ MX7 59 $ SB0 B0 19 89 + PL X2,*+1 $ MX7 0 $ BX1 X1 19 90 + SA7 IBUF+2 $ RJ LIJN 19 91 INP2 SA1 IBUF+6 $ SA3 NAZ2+2 19 92 MX2 54 $ BX6 -X2*X1 $ SX7 X6-55B STRIP OFF LAST BLANK 19 93 + NZ X7,*+1 $ BX1 X2*X1 $ NO 19 94 MX0 12 $ SX2 03B $ BX0 X0*X1 DO , C 19 95 IX0 X0-X3 $ NO $ SB6 1 19 96 ZR X0,DO1 $ MX0 6 $ LX2 54 19 97 BX0 X0*X1 $ MX7 0 $ IX2 X0-X2 $ MX0 36 19 98 NZ X2,INP2B $ SA2 A3-B6 $ SA3 A2-B6 COPY,COMMON 19 99 BX1 X0*X1 $ IX3 X3-X1 $ MX0 24 $ BX1 X0*X1 19 100 ZR X3,INP4 $ IX2 X2-X1 $ NO 19 101 ZR X2,COPYB1 $ ZR B0,INP1 COMMENT CARD 19 102 INP2B SA7 BRAZI1 $ SB1 NCAR1 19 103 * WHEN TAB(EL) IND(ICATOR) =0, THE SCAN THRU THE PRINT AND TAPE CARDS 19 104 SA2 TABIN1 $ ZR X2,INP4 IS NOT MADE 19 105 * WHEN MFOUT=NZ, EXECUTION OF PRINT AND TAPE CARDS IS NOT WANTED. 19 106 SA2 MFOUT $ NZ X2,INP4 19 107 INP5 SA2 B1+CARD0-1 $ SB1 B1-B6 $ BX6 X2-X1 19 108 NG B1,INP4 $ NZ X6,INP5 19 109 SX7 B6 $ JP B1+CAR0D 19 110 CAR0D SA7 NCONT+8 $ ZR B0,INP1 PRINT STAT 19 111 CAP1 SA6 NCONT+8 $ ZR B0,INP1 PRINT NSTAT 19 112 CAP2 SA7 NCONT+10 $ ZR B0,INP1 PRINT LIST 19 113 CAP3 SA6 NCONT+10 $ ZR B0,INP1 PRINT NLIST 19 114 CAP4 SB1 2 $ JP HCAP1 PRINT INPU 19 115 CAP5 SB1 1 $ JP HCAP1 PRINT OUTP 19 116 CAP6 MX7 0 $ SB1 B6 $ JP HCAP1 PRINT NOUT 19 117 CAP7 MX7 0 $ SB1 B6+B6 $ JP HCAP1 PRINT NINP 19 118 CAP8 SA7 NCONT+5 $ JP INP1 PRINT CINP 19 119 CAP9 SA7 NCONT+9 $ JP INP1 PRINT COUT 19 120 CAP10 SA7 NCONT+7 $ JP INP1 PRINT ERRO 19 121 CAP11 SA7 NCONT+4 $ JP INP1 PRINT BRAC 19 122 CAP12 JP HCAP23 TAPE COPY 19 123 CAP13 SB4 -1 $ ZR B0,HCAP13 TAPE REWIND 19 124 CAP14 SB4 1 $ ZR B0,HCAP14 TAPE ENDFILE 19 125 CAP15 SA1 NTAP1 $ JP HCAP15 TAPE READ 19 126 CAP16 SA1 ITAR1+1 $ JP HCAP16 TAPE START 19 127 CAP17 SA1 ITAR1 $ JP HCAP17 TAPE END 19 128 CAP18 SA1 ITAR1+1 $ JP HCAP18 TAPE NAMES 19 129 CAP19 SA3 CAR15+1 $ JP HCAP19 TAPE NONAM 19 130 CAP20 SA3 CAR15+2 $ JP HCAP19 TAPE FORWA 19 131 CAP21 SA6 ITAR3 $ ZR B0,HCAP21 TAPE PRINT 19 132 CAP22 SA7 ITAR3 $ ZR B0,HCAP21 TAPE PUNCH 19 133 CAP23 SA7 ISPLAY $ ZR B0,DIS1 DISPLAY 19 134 CAP24 SA6 ISPLAY $ ZR B0,PRIN1 PRINTER 19 135 CAP25 SX5 5 $ ZR B0,ENCOM2 ENTER COMMON 19 136 CAP26 SX6 200000B $ ZR B0,WRCOM2 WRITE COMMON 19 137 CAP27 ZR B0,ENBLOK1 ENTER BLOCKS 19 138 CAP28 SX6 100000B $ ZR B0,WRBLOK1 WRITE BLOCKS 19 139 CAP29 SA1 ITAR1 $ ZR B0,HCAP17 ENDBLOCK 19 140 CAP30 SA7 NCONT+6 $ ZR B0,INP1 PRINT CEXEC 19 141 CAP31 ZR B0,HCAP31 MERGE COMMON 19 142 CAP32 MX7 59 $ BX6 -X6*X6 $ ZR B0,HCAP32 SCREEN 19 143 DIS1 SA6 NCONT+8 $ SA6 NCONT+10 PRINT NLIST,NSTAT 19 144 SA7 NCONT+1 $ SA7 NVRA 19 145 ZR B0,INP1 19 146 PRIN1 SA7 NVRA $ SA7 NCONT+1 19 147 SA7 NCONT+8 $ SA7 NCONT+2 19 148 SA7 NCONT+10 $ ZR B0,INP1 19 149 HCAP1 SA5 B1+NCONT $ BX6 X7 $ SA6 A5 19 150 NE B1,B6,INP1 $ SA6 NVRA 19 151 ZR X7,INP1 $ SX6 X5+B6 $ SA6 A6 19 152 ZR B0,INP1 19 153 HCAP13 SX1 NTAP3 $ RJ NTUSE NTUSE USES X1 BUT NOT A1 19 154 REW. NTAP3 19 155 ZR B0,INP1 19 156 HCAP14 EOF. NTAP3 19 157 ZR B0,INP1 19 158 HCAP15 SA3 ITAR1 $ SA2 NTAP3 TAPE READ 19 159 BX6 X1 $ LX7 B0,X2 $ NZ X3,IFO1 X1=NTAP1 19 160 SA6 A3 $ SA7 A1 $ JP INP1 19 161 HCAP16 NZ X1,*+1 $ JP INP1 TAPE START 19 162 + BX7 X1 $ SA6 A1 $ SA7 NTAP1 TERMINATE INPUT NAMES 19 163 JP INP1 19 164 HCAP17 ZR X1,IFO1 $ BX7 X1 $ SA6 A1 TAPE END ,ENDBLOCK 19 165 SA7 NTAP1 $ SA1 IAL 19 166 + MX6 59 $ MX7 0 $ ZR X1,*+2 19 167 + SA6 ENDB1 $ ZR B0,INP1 19 168 + SA7 BLOKPT $ ZR B0,INP1 19 169 HCAP18 SA2 ITAR1 $ SA3 NTAP1 TAPE NAMES 19 170 SA4 NTAP3 $ BX5 X1+X2 $ LX6 B0,X3 19 171 BX7 X4 $ SA6 A1 $ SA7 A3 19 172 ZR X5,INP1 $ JP IFO1 19 173 HCAP19 BX7 X3 $ NO $ SA7 ITAR3 TAPE NONAMES,FORWARD 19 174 + SA1 NTAP3 $ RJ INPHU SKIP TILL TAPE START,TAPE END 19 175 + SA2 ITAR3 $ IX6 X1-X2 $ NO 19 176 + NZ X6,*-2 $ ZR B0,INP1 19 177 HCAP21 SA1 NTAP3 $ RJ INPHU TAPE PRINT,TAPE PUNCH 19 178 + SA1 ITAR3 $ SA2 NTAP2 19 179 SA3 NTAP8 $ BX6 X2 $ MX7 0 PRINT 19 180 + ZR X1,*+1 $ BX6 X3 $ SX7 X1 PUNCH 19 181 + SA6 IBUF $ SA7 IBUF+2 19 182 RJ LIJN 19 183 SA1 IBUF+6 $ SA2 NAZ1 TX . 19 184 SA4 CAR15 $ MX0 30 $ BX1 X0*X1 TAPE READ 19 185 BX2 X0*X2 $ BX4 X0*X4 $ IX2 X2-X1 $ IX3 X4-X1 19 186 ZR X2,INP1 $ ZR X3,INP1 TESTXON TAPE ,T . 19 187 ZR B0,HCAP21 19 188 HCAP23 SA1 NTAP1 $ RJ INPHU TAPE COPY 19 189 RJ PRIN3 19 190 + SA4 IBUF+6 $ SA5 NAZ1 CHECK ON TX 19 191 MX1 54 $ BX6 -X1*X4 $ SX7 X6-55B 19 192 + NZ X7,*+1 $ BX4 X1*X4 $ NO 19 193 BX4 X4-X5 $ ZR X4,INP1 19 194 SA2 NTAP3 $ SX6 1 19 195 BX7 X2 $ NO $ SA7 IBUF 19 196 SA6 IBUF+2 $ RJ LIJN WRITE ON TAPE3 19 197 ZR B0,HCAP23 19 198 HCAP31 SX6 4 $ SB6 1 RESET TAPENRS 19 199 SA6 NTAP4 $ SX7 X6+B6 $ SX6 X7+B6 19 200 SA7 NTAP5 $ SA6 NTAP6 19 201 SX7 X6+B6 $ NO $ SA7 NTAP7 19 202 REW. NTAP4 19 203 REW. NTAP5 19 204 REW. NTAP6 19 205 READ. NTAP4,NNS,BUFA1 19 206 READ. NTAP5,NNSA,BUFV1 19 207 SB6 1 $ SB1 5 B6=1 B7=2 19 208 SA5 NNS $ SB7 B6+B6 $ SB2 X5+B6 19 209 BX0 -X0*X0 $ MX6 43 $ SB0 B0 $ NO 19 210 H31A SA2 B1+BUFA1-1 $ BX4 -X6*X2 $ AX2 24 CONTAINS REC NR AND 19 211 BX5 -X6*X2 $ SX4 X4-1 $ IX7 X4+X5 LENGTH. FIND NR OF 19 212 + IX3 X7-X0 $ NG X3,*+1 $ BX0 X7 LAST REC ON TAPE4. 19 213 + SB1 B1+B7 $ GE B2,B1,H31A $ SB1 B7+B7 RESULT IN X0 19 214 SA5 NNS $ SA2 NNSA TRANSFER NAMES TO BUFA1. KEEP A5 19 215 SB4 X5+3 $ SB5 X2 $ SB4 B4-B6 19 216 H31B SA1 B1+BUFV1-1 $ SB2 B4+B1 $ BX6 X1 19 217 SA2 A1+B6 $ MX7 43 $ BX4 -X7*X2 $ BX3 X2 19 218 SA6 B2+BUFA1-5 $ AX2 24 $ BX5 -X7*X2 19 219 SX4 X4-2 $ IX6 X4+X5 $ SB1 B1+B7 19 220 + BX7 X3 $ NG X6,*+1 $ IX7 X7+X0 INCREASE REC NR 19 221 + SA7 A6+B6 $ GE B5,B1,H31B $ MX6 0 19 222 + SA6 A7+B6 $ BX7 -X7*X7 $ SA7 A6+B6 $ SX6 B2-B6 19 223 SX6 X6-3 $ SB4 X6 $ SA6 A5 NNS=NR OF WORDS. (EXCL 3 HEADERS) 19 224 SB3 B7+B7 $ SB2 B4-B7 $ LT B2,B3,H31D 19 225 H31C SA1 B3+BUFA1-1 $ SB5 B3+B7 $ MX0 42 CHECK FOR IDENTICAL 19 226 + SA2 B5+BUFA1-1 $ BX4 X0*X1 $ BX5 X0*X2 NAMES 19 227 IX6 X4-X5 $ ZR X6,MFO31 $ SB5 B5+B7 19 228 GE B2,B5,H31C+1 $ SB3 B3+B7 19 229 GE B2,B3,H31C $ ZR B0,H31D 19 230 MFO31 BX6 X4 $ NO $ SA6 IPUNCH+3 19 231 ERROR 8 DUPLICATE FILE NAME 19 232 H31D WRITE. NTAP6,NNS,BUFA1 19 233 READ. NTAP4,NNS,BUFA1 19 234 SA1 BUFA1+3 $ MX7 59 $ IX6 X1-X7 19 235 NZ X6,H31D $ NO $ NO 19 236 H31E READ. NTAP5,NNS,BUFA1 19 237 WRITE. NTAP6,NNS,BUFA1 19 238 SA1 BUFA1+3 $ MX7 59 $ IX6 X1-X7 19 239 NZ X6,H31E $ NO $ NO 19 240 REW. NTAP4 19 241 REW. NTAP5 19 242 SA5 NTAP6 $ ZR B0,ENCOM2 19 243 HCAP32 SA7 ISPLAY $ SA6 NCONT+8 SCREEN. NSTAT 19 244 SA6 NCONT+10 $ SX7 B6 NLIST 19 245 SA7 NVRA $ ZR B0,INP1 19 246 IFO1 ERROR 31 19 247 * 19 248 WRCOM2 SA1 AZ $ ZR X1,WRI0 19 249 WRFO1 SA2 TAPUSE $ BX6 X6+X2 $ SA6 A2 19 250 ERROR 176 19 251 WRI0 SX6 4 $ SB4 WEOFR0 19 252 SA6 KV $ SB1 NTAP4 19 253 SX7 X6+B6 $ SA7 B1 $ RJ TAKMAN EOF, REWIND 19 254 MX6 0 $ SA6 KI $ MX1 0 19 255 WRI1 SA2 X1+NXGEH $ MX0 52 $ BX6 X0*X2 19 256 SB1 X2 $ NO $ PL B1,WRI2 SKIP X,D,T 19 257 BX4 -X0*X2 $ LX2 43 $ PL X2,WRI2 19 258 ZR X4,WRI1A $ SA4 X4+LOC-1 KEEP EMPTY COMMON AND EMPTY 19 259 WRI1A SA5 KV $ NZ X4,WRI1B INDEXED COMMON IF INDEX 0 19 260 LX2 6 $ MX0 48 $ NG X2,WRI1B JP IF NOT INDEXED 19 261 LX2 53 $ BX2 -X0*X2 $ NZ X2,WRI2 JP IF NON-ZERO INDEX 19 262 WRI1B SA6 X5+BUFV1-1 $ SX7 X5+2 CONSTRUCT LIST WITH 19 263 SA7 A5 $ BX6 X4 $ SA6 A6+1 NAME OF ALL FILES 19 264 WRI2 SA2 NXEX $ SX1 X1+1 19 265 IX3 X1-X2 $ NG X3,WRI1 19 266 SB6 1 $ RJ WBUFV1 19 267 MX6 59 $ SX7 5 WRITE (0,-1)=EOF ON TAPE7 19 268 SA6 BUFV1+3 $ SA7 KV 19 269 SA1 NTAP7 $ BX6 X1 19 270 SA6 NTAP4 $ RJ WBUFV1 19 271 SA1 BUFV1 $ SA3 NTAP7 19 272 SX7 5 $ BX6 X3 $ SA7 A3 19 273 SA6 NTAP5 $ SX2 A6 19 274 RJ COPY1 COPY TAPE7 TO TAPE5 19 275 SA5 NTAP5 $ SX6 5 RESET TAPE NRS 19 276 BX7 X5 $ SA6 A5 $ SA7 NTAP7 19 277 SX6 4 $ SA6 NTAP4 19 278 + ZR B0,INP1 19 279 NTAPX1 BSS 1 19 280 ENCOM2 BX6 X5 $ SA6 NTAPX1 FROM MERGE OR ENTER COMMON 19 281 REW. NTAPX1 19 282 READ. NTAPX1,KI,BUFI1 TAXMAN SETS B6 TO 1 19 283 SA2 MBU $ SA3 BUFI1+1 19 284 SA1 NXEX $ SX5 X3-5 19 285 AX5 1 $ SB7 X5 $ ZR X5,INP1 19 286 SA3 BUFI1+3 $ MX0 52 $ SB5 B0-B6 19 287 ENT1 SA4 A3+B6 $ BX6 X0*X3 $ SX1 X1+B6 $ SA3 A4+B6 19 288 + ZR X4,*+2 $ BX6 X6+X2 $ LX7 B0,X4 19 289 + SX2 X2+B6 $ NO $ SA7 X2+LOC-2 19 290 + SB7 B7-B6 $ NO $ SA6 X1+NXGEH-1 19 291 LT B0,B7,ENT1 $ BX6 X2 $ LX7 B0,X1 19 292 SA6 A2 $ SA7 A1 $ SA6 MTAB+8 19 293 SA6 MTAB+9 $ SA6 MTAB+10 19 294 SA7 MTAB+17 $ SX7 7 19 295 MX1 59 $ IX6 X7+X1 $ SA7 NTAP7 19 296 SA6 NTAP6 $ IX7 X6+X1 $ IX6 X7+X1 19 297 SA7 NTAP5 $ SA6 NTAP4 INITIALIZE TAPE NR.S. 19 298 SX2 NTAPX1 $ RJ COPY1 19 299 ZR B0,INP1 19 300 * 19 301 ENBLOK1 MX7 59 $ NO $ SA7 BLOV34 ENTER BLOCKS 19 302 ZR B0,INP1 19 303 WRBLOK1 SA1 AZ $ NZ X1,WRFO1 19 304 + SA1 ITNAM1 $ NZ X1,WRBLOK2 WRITE BLOCKS 19 305 WRBLOK3 RJ WREND1 WRITE TAPE END ON TAPE3 AND REWIND 19 306 REW. NTAP4 19 307 MX7 0 $ NO $ SA7 ITNAM1 19 308 ZR B0,INP1 19 309 WREND1 BSS 1 19 310 SA2 CAR15+2 $ SA3 NTAP3 19 311 BX6 X2 $ BX7 X3 $ SA6 IBUF+5 WRITE TAPE END 19 312 SA7 IBUF $ SX6 1 19 313 MX7 0 $ NO $ SA6 IBUF+3 19 314 SA7 IBUF+2 $ RJ LIJN 19 315 REW. NTAP3 19 316 SB6 1 $ ZR B0,WREND1 19 317 WRBLOK2 SA1 NTAP4 $ RJ INPHU 19 318 SA4 IBUF+6 $ SA2 CAR15+2 TAPE END 19 319 IX3 X2-X4 $ NO $ SA1 ITNAM1 19 320 SA2 MBE $ NZ X3,WRBLOK4 19 321 SA4 MMBE $ SX6 X1-10 19 322 IX4 X2-X4 $ SA6 A2 $ NG X4,WRBLOK3 19 323 BX7 X2 $ SA7 A4 $ ZR B0,WRBLOK3 19 324 WRBLOK4 SA3 X1 $ IX3 X4-X3 $ SX1 X1+6 COMP BLOKNAME WITH NAMELIST 19 325 + ZR X3,*+2 $ IX3 X1-X2 $ NO COMPARE FIRST WORD 19 326 + NG X3,WRBLOK4 $ ZR B0,IFO2 JP IF NAME NOT IN 19 327 + SB5 A3+4 $ MX7 0 $ NO 19 328 + SA3 A3+B6 $ SA4 A4+B6 $ IX0 X3-X4 $ SB2 A3 19 329 + BX7 X7+X0 $ LT B2,B5,*-1 $ CX7 X7 COMP REST OF NAME 19 330 + ZR X7,*+2 $ SA4 IBUF+6 19 331 + ZR B0,WRBLOK4 19 332 + SA3 A3+B6 $ MX6 0 $ BX7 X3 $ NO 19 333 SA7 IBUF+11 $ SA6 IBUF+2 PRINT UPDATING MESSAGE 19 334 SA2 NTAP2 $ SX6 7 19 335 BX7 X2 $ SA6 A6+B6 $ SA7 IBUF 19 336 RJ LIJN 19 337 SA5 NAZ2+4 $ SA3 IBUF+11 AVAILABLE 19 338 IX0 X5-X3 $ ZR X0,WRBLOK6 JP IF BLOK IS UNCHANGED 19 339 + SA1 NTAP4 $ RJ INPHU SKIP BLOCK 19 340 + SA2 CAR25+4 $ MX0 54 $ NO ENDBLOCK 19 341 + BX1 X0*X1 $ IX1 X1-X2 $ NZ X1,*-2 19 342 ZR B0,WRBLOK2 19 343 WRBLOK6 SA1 NTAP3 $ SX6 1 WRITE NAME OF BLOCK ON TAPE3 19 344 BX7 X1 $ NO $ SA6 IBUF+2 19 345 SA7 IBUF $ RJ LIJN 19 346 WRBLOK5 SA1 NTAP4 $ RJ INPHU NAME NO MATCH OR ITS BLOCK UNCHANGED 19 347 SA1 NTAP3 $ SX6 1 COPY TAP4 TO TAPE3 TILL ENDBLOCK 19 348 BX7 X1 $ NO $ SA6 IBUF+2 19 349 SA7 IBUF $ RJ LIJN 19 350 SA1 IBUF+6 $ SA2 CAR25+4 ENDBLOCK 19 351 MX0 54 $ BX1 X0*X1 $ NO $ IX1 X1-X2 19 352 NZ X1,WRBLOK5 $ ZR B0,WRBLOK2 19 353 * STRUCTURE OF ARGUMENT MATCHING WHILE COPYING BLOCKS 19 354 * SYMBOL,ARGUMENT,SYMBOL,ARGUMENT,SYMBOL,ARG.....,7777776 19 355 * BLOKPT NSUBS 19 356 * ARG HAS ANY LENGTH AND ENDS ON 6 BINARY ZEROS. SYMBOL IS ONE WORD. 19 357 * ARG IS ACTUAL PARAMETER OF COPY CARD. SYMBOL IS DUMMY OF BLOCK DEF. 19 358 * ROUTINE SEAR2 SCANS CHARACTERS OF INPUT CARDS, 19 359 * WITH CONTINUATION FOR NBLOCK AND BLOCK ARGUMENTS. 19 360 * WITHOUT CONTINUATION FOR DO AND ENDDO . 19 361 * USE OF REGISTERS 19 362 * B1 B2 B3 B4 B5 B6 B7 A0 19 363 * A (NI) 73 (STORE) SHIFT 1 VLAG (NHAK) 19 364 SEAR2 BSS 1 PACK CHAR FROM A INTO (B4) WHILE CHECKING ON 19 365 C10 SB1 A $ SX1 BL0 SPECIAL CHARACTERS 19 366 SX2 CO0 $ SX3 BC0 B2,B4,B5,B6 HAVE TO BE SET 19 367 SX4 BO0 $ LX1 54 $ LX2 54 B7=0 ACCEPTS CONTIN CARDS. 19 368 LX3 54 $ LX4 54 $ SB3 73 B7=1 STOPS AT END OF CARD. 19 369 ZR B0,C8 19 370 C9 LX5 B5,X5 $ BX7 X7+X5 $ SB5 B5-6 19 371 NZ B5,C8 $ SA7 B4 $ SB4 B4+B6 END OF WORD 19 372 C7 SB5 60 $ MX7 0 $ NO NEW WORD 19 373 C8 SA5 B1+B2 $ SB2 B2+B6 $ LT B2,B3,SEAR2 JP IF NOT END OF CARD 19 374 NZ B7,SEAR2 $ SX6 B5 $ SA7 B4 EXIT WITH B2=73 19 375 SA6 SHIF1 $ SX6 B4 $ SX7 A0 READ NEW CARD 19 376 SA6 STOR1 $ SA7 NHAK2 REGISTER STORE 19 377 C4 SA1 NTAP1 $ RJ INPHU READ 19 378 + RJ BREAK 19 379 SA2 A $ SX1 BL0 NEW CARD 19 380 LX2 6 $ IX3 X2-X1 $ ZR X3,C6 JP IF BLANK FIRST COLM 19 381 SX3 03B $ SA4 NAZ2 COMMON 19 382 IX2 X2-X3 $ MX0 36 $ SA5 IBUF+6 X3 NON ZERO 19 383 NZ X2,C5 $ SA2 A4+B6 $ BX5 X0*X5 COPY 19 384 MX0 24 $ IX4 X4-X5 $ ZR X4,C5 19 385 BX4 X0*X5 $ IX4 X4-X2 $ ZR X4,C5 19 386 RJ PRIN3 19 387 ZR B0,C4 COMMENT CARD 19 388 C6 RJ PRIN3 PRINT ON OUTPUT 19 389 + MX3 0 $ SX1 BL0 $ NO 19 390 C5 SA5 STOR1 $ SA4 SHIF1 19 391 SA2 NHAK2 $ SB4 X5 $ SB5 X4 REGISTER RESTORE 19 392 SB7 B0 $ SB3 73 $ LX1 54 EXIT WITH X1 BLANK 19 393 SA5 X5 $ SA0 X2 $ BX7 X5 $ SB2 B0 NON BLANK FIRST COLUMN 19 394 NZ X3,SEAR2 $ ZR B0,C10 GIVES EXIT WITH B2=0 19 395 SEAR3 BSS 1 POSITION AT LAST SPECIAL CHAR NNSSSSNNNN 19 396 SA1 MBE $ SA5 B2+A B5 IS FLAG * 19 397 * B7 MUST BE SET TO REQUEST ACTION FOR CONTINUATION CARDS. IS UNCHANGED. 19 398 SX0 47B $ LX5 6 $ SB5 B6 B2 IS POINTER ON CARD 19 399 + IX0 X5-X0 $ PL X0,*+1 $ SB5 B0 JP IF FIRST CHAR IS SPECIAL 19 400 + SB4 X1 $ SB2 B2+B6 $ RJ SEAR2 19 401 EQ B2,B3,SEAR3 $ NO $ NO JP IF END OF CARD 19 402 ZR B2,SEAR3 $ SX0 47B JP IF NO CONTINUATION CARD 19 403 + LX5 6 $ IX0 X5-X0 $ NG X0,*+2 19 404 + SB5 B6 $ ZR B0,C8 SKIP SPECIAL CHARACTERS 19 405 + ZR B5,C8 $ SB5 54 SKIP NON SPECIAL CHARS OF FIRST GROUP 19 406 BX7 X5 $ LX7 54 $ RJ SEAR2 ASSEMBLE NON SPECIAL CHARS 19 407 * OF SECOND GROUP INTO BLOKNAME OR BLOKARGUMENT. 19 408 EQ B2,B3,SEAR3 $ NO $ NO JP IF END OF CARD 19 409 ZR B2,SEAR3 $ IX0 X5-X1 $ IX6 X5-X2 TEST ON CONTIN CARDS 19 410 ZR X0,C8 $ ZR X6,SEAR3 TEST ON END OF NAME 19 411 IX0 X5-X3 $ IX6 X5-X4 $ ZR X0,SEAR3 TEST END OF ARGUMENT 19 412 ZR X6,SEAR3 $ SX0 54B = 19 413 LX5 6 $ SX6 47B $ IX0 X5-X0 19 414 ZR X0,SEAR3 $ IX6 X5-X6 $ LX5 54 19 415 PL X0,IFO3 $ NG X6,C9 19 416 ZR B0,IFO3 19 417 SEAR4 BSS 1 BLANK FILL THE NAME PRODUCED BY SEAR3 19 418 SA2 MBE $ SB2 B2-B6 $ NO B2 IS RESET. BKSP ON NI . 19 419 + SB1 X2+5 $ GE B4,B1,*+3 TRUNCATE NAME TO 50 CHARS 19 420 + LX5 B5,X1 $ BX7 X7+X5 $ SB5 B5-6 X1 IS BLANK 19 421 + NZ B5,*-1 $ SA7 B4 $ SB4 B4+B6 19 422 + MX7 0 $ SB5 60 $ NO 19 423 + GE B1,B4,*-3 $ ZR B0,SEAR4 19 424 * 19 425 COPYB1 SA3 MBE $ SX6 X3+2 19 426 SA2 MFOUT $ SA6 A3 $ NO 19 427 NZ X2,INP4 $ RJ BREAK 19 428 SB7 B0 $ SB2 B0 $ RJ SEAR3 19 429 + IX0 X4-X5 $ NO $ NZ X0,IFO3 TEST ON ( . 19 430 RJ SEAR4 19 431 SB1 IFO2+1 $ RJ PAKB1 CONSTRUCT NAME AT MBE 19 432 SA2 NSUBS $ SB5 60 19 433 + SA0 B0 $ BX6 X2 $ SB2 B2+B6 $ SX7 X6+B6 19 434 SA1 BLOKPT $ SA7 NSUBS 19 435 SA6 A1 $ BX6 X1 $ SA6 ENDB1 OLD BLOKPT IS STORED 19 436 SB4 X7 $ MX7 0 $ RJ SEAR2 B7=0 19 437 + ZR B2,IFO3 $ IX0 X5-X1 $ NO 19 438 ZR X0,C8 $ IX0 X5-X2 $ MX6 59 JP IF BLANK 19 439 ZR X0,C2 $ IX6 X5-X3 $ IX0 X5-X4 JP IF COMMA 19 440 ZR X6,C2 $ NZ X0,C9 JP IF ) , OR NOT ( . 19 441 SA0 A0+B6 $ ZR B0,C9 19 442 C2 SX0 A0 $ NZ X6,*+1 $ SA0 A0-B6 , OR ) 19 443 + NZ X0,C9 $ MX0 54 $ MX6 0 19 444 BX0 -X0*X7 $ SA7 B4 $ SB4 B4+2 19 445 + ZR X0,*+1 $ SA6 B4-B6 $ SB4 B4+B6 19 446 + SX0 A0+B6 $ SX6 B4 $ NZ X0,C7 START NEW ARGUMENT 19 447 MX7 59 $ SA0 A1 $ SA3 NDIMU LIST TERMINATOR 19 448 SA7 B4-B6 $ IX3 X3-X6 $ SA6 NSUBS 19 449 NG X3,IFO4 $ NO $ NO 19 450 REW. NTAP3 19 451 COPYB2 SA1 NTAP3 $ RJ INPHU READ IN BLOCK NAME 19 452 SA3 MBE $ SA2 CAR15+2 TAPE END 19 453 SA3 X3 $ IX2 X2-X1 $ IX3 X3-X1 $ NO 19 454 ZR X2,IFO5 $ SB2 -5 19 455 + NZ X3,COPYB2 $ SA1 A1+B6 $ SA3 A3+B6 COMPARE NAMES 19 456 + SB2 B2+B6 $ IX3 X3-X1 $ NG B2,*-1 19 457 + SA2 NTAP1 $ SA1 NTAP3 NAME MATCHES 19 458 SA3 ITAR1 $ BX6 X2 $ BX7 X1 CHECK ON CONSISTENT USE OF 19 459 NZ X3,IFO1A $ SA6 A3 $ SA7 A2 TAPE NUMBERS. 19 460 RJ INPHU READ FROM 3 . 19 461 + RJ BREAK 19 462 + SA1 NCONT+2 $ ZR X1,*+4 19 463 + SA2 NTAP2 $ MX7 59 $ BX6 X2 19 464 + SA7 IBUF+2 $ SA6 IBUF 19 465 + RJ LIJN 19 466 + SA2 NSUBS $ SB2 B0 $ SB4 X2 19 467 SB7 B0 $ NO $ NO $ NO 19 468 SB6 1 $ RJ SEAR2 19 469 ZR B2,C10 $ SA1 BLOKPT 19 470 IX0 X5-X4 $ NZ X0,C8 $ SA0 X1 SEARCH ( . 19 471 S1 SA2 NSUBS $ SB5 60 19 472 SB4 X2 $ MX7 0 $ RJ SEAR2 19 473 GE B0,B2,IFO3 $ IX0 X5-X2 $ IX6 X5-X3 19 474 + ZR X0,*+4 $ ZR X6,*+4 JP IF , . JP IF ) . 19 475 + IX6 X5-X1 $ ZR X6,C8 $ LX5 6 JP IF BLANK 19 476 + SX6 45B $ IX6 X5-X6 $ LX5 54 19 477 + PL X6,IFO3 $ ZR B0,C9 19 478 + SA4 NSUBS $ SA7 B4 $ MX2 54 19 479 SA4 X4 $ SA1 A0+B6 $ BX7 X4 $ SA7 A0 A0,NHAK1 IS PNTR ARG LS 19 480 + BX4 -X2*X1 $ SA1 A1+B6 $ NZ X4,* SEARCH LOC FOR NEXT ARG 19 481 SA0 A1 $ ZR X0,S1 START NEW ARGUMENT JP IF , 19 482 SA3 NSUBS $ SA1 MBE RESTORE MBE 19 483 SA4 BLOKPT $ SX6 X1-2 19 484 SX0 A0+B6 $ SA6 A1 $ IX0 X3-X0 $ IX7 X3-X4 19 485 NZ X0,IFO3 $ MX1 58 $ IX6 X7+X1 NR OF ARGUMENTS INCONSISTENT 19 486 LX7 42 $ BX7 X7+X4 $ SA2 ENDB1 19 487 SA7 A4 $ NG X6,IFO3 $ NO 19 488 + NZ X6,*+2 $ SA5 X4 $ SX7 X4 19 489 + NZ X5,*+1 $ SA6 A4 $ SA7 A3 THERE ARE NO ARGUM PRESENT. 19 490 + SA1 IAL $ NZ X1,*+2 19 491 + MX6 0 $ SA6 A2 $ ZR B0,INP1 19 492 + SA4 A4 $ BX6 X2 $ BX7 X4 $ SA6 A4 19 493 SA7 A2 $ ZR B0,INP1 19 494 * 19 495 DO1 SA3 MBE $ SA2 MFOUT BEGIN OF A DO CYCLE 19 496 SX6 X3+2 $ SA1 NSUBS 19 497 NZ X2,INP4 $ MX7 0 $ SA6 A3 19 498 SA7 DODEPTH $ BX6 X1 $ SX7 X1+B6 19 499 SA6 DOPT1 $ SA7 DOLIST 1 IS NIL FOR DOLIST 19 500 DO2 RJ BREAK 19 501 SA1 NSUBS $ SA2 DODEPTH CHAINING LISTS OF DO VARIABLES 19 502 BX7 X1 $ SB7 B0-B6 $ SA7 DOCARD 19 503 SA3 DOLIST $ SA5 DOPT1 19 504 SX6 X2+B7 $ SA7 A3 $ IX7 X3-X5 $ SA6 A2 19 505 SA7 X1 $ SX6 X1+B6 $ SB2 B6 $ SA6 A1 19 506 DO3 SB2 B2-B6 $ SB7 B6 $ RJ SEAR3 ANALYSE DO J=1,3,N 19 507 SB1 B0 $ NO $ NO $ NO 19 508 DO6 MX0 54 $ SX1 33B $ BX7 X0*X7 19 509 SX2 45B $ LX7 6 $ BX5 -X0*X7 19 510 IX3 X5-X1 $ IX2 X5-X2 $ ZR X5,IFO3 19 511 LX7 54 $ NG X3,DO5 $ NO JP IF LETTER 19 512 + NG X2,*+3 $ ZR X2,*+2 JP IF NUMBER, + 19 513 + SB3 X2 $ NE B3,B6,IFO3 $ SB1 B6 B1 FLAG FOR NEGAT NR 19 514 + LX7 6 $ BX7 X0*X7 $ ZR B0,DO6 19 515 + MX2 0 $ LX7 6 $ NO $ NO 19 516 DO7 BX5 -X0*X7 $ BX7 X0*X7 $ ZR X5,DO8 CONVERT BCD TO INTEG 19 517 + LX7 6 $ BX3 X2 $ NO $ LX3 3 19 518 LX2 1 $ IX5 X5-X1 $ IX2 X3+X2 $ IX2 X2+X5 19 519 ZR B0,DO7 19 520 DO8 BX7 X2 $ ZR B1,DO5 $ MX7 0 19 521 MX0 42 $ IX7 X7-X2 $ BX7 -X0*X7 $ NO 19 522 DO5 SA1 NSUBS $ SA7 X1 $ SX6 X1+B6 19 523 SA6 A1 $ SA2 DOCARD $ SX7 B6 VARIABLES COUNTED IN DOCARD 19 524 SX0 X1-3 $ IX0 X0-X2 $ SB1 X0 X0+2=NR OF ARGUMENTS 19 525 + SB3 73 $ NE B1,B6,*+2 19 526 + NE B2,B3,IFO6 $ ZR B0,DO4 3 ARGUMENTS 19 527 + NZ X0,*+3 $ NE B2,B3,DO3 2 ARGUM REW(ITA1) 19 528 SA7 X6 $ SX6 X6+B6 $ SA6 A1 $ NO 19 529 ZR B0,DO4 MISSING THIRD ARG IS 1. 19 530 + PL X0,IFO6 $ NE B2,B3,DO3 19 531 ZR B0,IFO6 19 532 PRIN3 BSS 1 19 533 SA1 NCONT+2 $ SA3 NTAP1 19 534 MX0 58 $ ZR X1,PRIN3 $ IX0 X3+X0 19 535 SA4 ISPLAY $ SA2 NTAP2 19 536 + NG X4,*+2 $ NO $ SB0 B0 19 537 + ZR X4,*+1 $ NZ X0,PRIN3 19 538 + MX7 0 $ BX6 X2 $ SA7 IBUF+2 19 539 SA6 IBUF $ RJ LIJN PRINT ON OUTPUT 19 540 SB6 1 $ ZR B0,PRIN3 19 541 DO4 SA1 NTAP1 $ RJ INPHU END OF ANALYSIS OF DOCARD 19 542 RJ PRIN3 READ CARDS INSIDE DO LOOP 19 543 SA2 IBUF+3 $ SB6 1 19 544 SB2 9 $ SB1 X2 $ SA3 A2+B6 19 545 NE B1,B2,DO4A $ SA5 A3+B2 $ MX0 12 BLANK OUT COL 73-80 19 546 BX6 -X0*X3 $ BX7 X0*X5 $ BX6 X6+X7 $ IX0 X6-X3 19 547 SA6 A5 $ NZ X0,DO4A $ MX0 54 REMOVE TRAILING BLANK WORDS 19 548 + SA4 A3+B1 $ SB1 B1-B6 $ IX5 X4-X3 $ BX1 -X0*X3 19 549 + GE B6,B1,*+1 $ ZR X5,*-1 19 550 BX5 -X0*X4 $ BX7 X0*X4 $ IX5 X5-X1 $ SB1 B1+B6 LAST WORD 19 551 + ZR X5,*+1 $ BX7 X0*X3 $ SB1 B1+B6 MUST END ON 00 19 552 + SX6 B1 $ SA7 A3+B1 $ SA6 A2 19 553 DO4A SA1 IBUF+6 $ MX0 12 $ BX4 X0*X1 19 554 SA2 NAZ2+2 $ SA3 A2+B6 $ IX2 X2-X4 DO,ENDDO 19 555 ZR X2,DO2 $ MX0 30 $ BX4 X0*X1 19 556 IX3 X3-X4 $ ZR X3,ENDDO1 $ NO 19 557 SA2 IBUF+3 $ SA3 NSUBS 19 558 SB3 X2-1 $ SA0 X3 $ SB2 B0 COPY CARD AT NSUBS 19 559 + BX7 X1 $ SA7 A0+B2 $ SB2 B2+B6 $ SA1 A1+B6 19 560 + LT B2,B3,*-1 $ SX6 A7+B6 $ SA6 A3 19 561 ZR B0,DO4 19 562 * 19 563 ENDDO1 RJ BREAK 19 564 SB2 B6 $ NO $ MX7 0 $ NO 19 565 ENDDO3 SB2 B2-B6 $ SB7 B6 $ RJ SEAR3 SCAN THRU LOOP VARIABLES 19 566 ZR X7,IFO3 $ NO $ NO 19 567 SA1 DODEPTH $ SA4 NSUBS 19 568 SA2 DOLIST $ SX7 X1+B6 $ MX0 6 ENDDO DIRECTIVE IS 0077B 19 569 SA5 DOPT1 $ SA7 A1 $ LX0 54 19 570 SA3 X2 $ IX2 X2-X5 $ BX6 X0+X2 $ NO 19 571 IX7 X3+X5 $ SA6 X4 $ SA7 A2 $ SX6 X4+B6 19 572 SX1 X1+B6 $ SA6 A4 $ MX7 0 $ NO 19 573 NE B2,B3,ENDDO3 $ NG X1,DO4 19 574 + NZ X1,IFO3 $ SA2 DOLIST 19 575 SA3 DOPT1 $ MX7 59 $ SX4 X3+B6 END OF DO CYCLE. 19 576 IX0 X2-X4 $ NO $ NZ X0,IFO3 777777776 TERMINATOR 19 577 SA4 NSUBS $ NO $ SA7 X4 19 578 MX6 0 $ SX7 A7+B6 $ SA6 DOCARD DOCARD POINTS TO BEGIN 19 579 SA1 MBE $ SX6 X1-2 RESTORE MBE 19 580 SA7 A4 $ IX0 X7-X3 $ SA2 NDIMU 19 581 SA6 A1 $ IX2 X2-X7 $ NG X2,IFO4 19 582 NG X0,IFO3 $ LX0 42 $ BX6 X0+X3 19 583 SA6 DOVLAG $ ZR B0,INP1 19 584 INP4 SA1 NORDER $ ZR X1,*+3 19 585 + RJ BREAK 19 586 + ZR B0,INP 19 587 + SA1 IBUF+6 $ MX0 6 $ BX1 X0*X1 19 588 + SX6 BL0 $ LX6 54 $ IX0 X6-X1 19 589 + NZ X0,*-4 $ SA6 A 19 590 *** ELIMINATES ACTION OF BREAK ON CONTINUATION OF COMMENTS CARDS. 19 591 SA6 A6+B6 $ SA6 A6+B6 $ ZR B0,INP 19 592 * 19 593 BREAK BSS 1 EXPANDS 8 (7) WORDS AT IBUF+6 (LEESPT) INTO A WITH BL 19 594 SA4 LEESPT $ NO $ MX3 52 FILL 19 595 SB3 B0 $ MX2 50 $ SA1 IBUF+6 19 596 + ZR X4,*+1 $ MX3 53 $ SA1 X4 19 597 + SA5 IBUF+4 $ MX0 6 $ SB7 B0 19 598 INP14 BX6 X0*X1 $ AX2 1 $ SB7 B7+B6 $ LX1 6 19 599 + NZ X6,*+1 $ SB3 A6 $ BX1 X5 19 600 + SA6 B7+A-1 $ NZ X2,INP14 19 601 + BX1 X5 $ NZ B3,*+1 $ SA1 A1+B6 19 602 + AX3 1 $ MX2 50 $ NZ X3,INP14 19 603 + NZ X4,*+2 $ ZR B3,BREAK NORMAL INPUT 19 604 + BX6 X0*X5 $ SA6 B3+B6 $ ZR B0,BREAK 19 605 + BX6 X0*X5 $ SA6 A+70 $ SA6 A6+B6 SET COLUMN 71,72 BLANK 19 606 + NZ B3,*+2 $ SX7 X4+7 DEALING WITH BLOK ARGUMENTS 19 607 + SA7 A4 $ ZR B0,BREAK UPDATE LEESPT 19 608 + SA1 BIND1 $ MX7 0 $ LX1 54 19 609 + BX6 X1 $ SA6 B3+B6 $ ZR B0,*-2 19 610 * 19 611 IFO1A ERROR 88 19 612 IFO2 ERROR 32 19 613 IFO3 ERRORP 33 19 614 IFO4 ERROR 34 19 615 IFO5 ERROR 35 19 616 IFO6 ERRORP 36 DO REQUIRES J=J1,J2 (,J3) 19 617 END 20 0 OVERLAY (SCHIP,4,0) 20 1 PROGRAM WRONG 20 2 C MFOUT(RECOV) NZ PRINTS ERROR MESSAGE AFTER SCHOONSCHIP(SCOPE) ERROR. 20 3 C LAY4(1) NZ CALLS ERROB (=PRINT CINPUT) LAY4(2) NZ PRINTS NAMELISTS 20 4 CALL WRONG1 20 5 END 21 0 SUBROUTINE FOUTA(DUMXX) 21 1 MACRO CBLANK 21 2 COMMON /LAY41/ IEROR(25),ISAVE(18),LAYNAM1,ITEXT(2000) 21 3 INTEGER AZ,PAS 21 4 DIMENSION IPUNCH(18) 21 5 EQUIVALENCE ( IBUF(19) , IPUNCH(1) ) 21 6 DATA MESLEN /6/ 21 7 CALL STORE ( IBUF,0,ISAVE,0,18) 21 8 IBUF(1)=2 21 9 IBUF(2)=0 21 10 IBUF(3)=0 21 11 J=IPUNCH(3)*MESLEN 21 12 IF ( ISPLAY ) 4,3,4 21 13 3 CALL STORE (IEROR,0,IBUF,5,8) 21 14 IBUF(4)=8 21 15 AZ=1 21 16 CALL LIJN 21 17 CALL STORE ( IEROR,8,IBUF,5,6) 21 18 IBUF(4)=7 21 19 IBUF(12)=IPUNCH(6) 21 20 CALL LIJN 21 21 IBUF(6)=IPUNCH(5) 21 22 CALL STORE ( ITEXT,J,IBUF,6,MESLEN) 21 23 J=6+MESLEN 21 24 GO TO 17 21 25 4 IBUF(6)=IEROR(21) 21 26 IBUF(4)=3 21 27 IBUF(7)=IPUNCH(5) 21 28 IBUF(8)=IPUNCH(6) 21 29 AZ=1 21 30 CALL LIJN 21 31 CALL STORE (ITEXT,J,IBUF,5,MESLEN) 21 32 J=5+MESLEN 21 33 17 IF (IPUNCH(3).LE.20) IBUF(J+4-MESLEN)=IPUNCH(4) 21 34 16 IF ( IBUF(J) ) 10 , 11 , 10 21 35 C STRIP OFF ZERO WORDS. 21 36 11 J=J-1 21 37 GO TO 16 21 38 10 IBUF(4)=J-5 21 39 CALL LIJN 21 40 IF ( LEVEL ) 2,2,1 21 41 1 IBUF(4)=5 21 42 CALL STORE ( IEROR,21,IBUF,5,3 ) 21 43 IBUF(9)=KVTIN(LEVEL) 21 44 IBUF(10)=IEROR(25) 21 45 CALL LIJN 21 46 2 IF(ISPLAY) 7,6,7 21 47 6 CALL STORE ( IEROR,14,IBUF,5,6) 21 48 IBUF(4)=6 21 49 CALL LIJN 21 50 NCONT(9)=1 21 51 NCONT(11)=1 21 52 GO TO 7 21 53 7 CALL STATS 21 54 PAS=0 21 55 IF ( NCONT(8) ) 8,9,8 21 56 8 CALL ERROB 21 57 9 CALL STORE ( ISAVE , 0 , IBUF , 0 , 18 ) 21 58 LEVEL=0 21 59 RETURN 21 60 END 22 0 SUBROUTINE STORE(IA,NA,IB,NB,M) 22 1 DIMENSION IA(1),IB(1) 22 2 DO 1 I=1,M 22 3 N1=NA+I 22 4 N2=NB+I 22 5 1 IB(N2)=IA(N1) 22 6 RETURN 22 7 END 23 0 SUBROUTINE ERROB(DUMXX) 23 1 MACRO CBLANK 23 2 MACRO CEXPRNR 23 3 MACRO CSTOREF 23 4 COMMON / LAY41 / IEROR(25) , ISAVE(18),LAYNAM1 23 5 COMMON / LBL / IBL0,IBL(80) 23 6 COMMON / LBLA/ IBLA0,IBLA(80) 23 7 COMMON /LIN/ IN0,IN(100) 23 8 COMMON /LINA/ INA0,INA(40) 23 9 COMMON /LEXEC/ IEX0,IEX(50) 23 10 COMMON /LEXECA/ IEXA0,IEXA(60) 23 11 COMMON /LUIT/ IUT0,IUT(50) 23 12 COMMON /LUITA/ IUTA0,IUTA(20) 23 13 INTEGER PAS 23 14 IF ( MFOUT ) 1,2,1 23 15 2 CALL STORE ( IBUF,0,ISAVE,0,18 ) 23 16 1 IF ( MMBE-MBE ) 81,84,84 23 17 81 MMBE=MBE 23 18 84 IF ( MMBU-MBU ) 82,83,83 23 19 82 MMBU=MBU 23 20 83 IF ( MNSUBS - NSUBS ) 85,86,86 23 21 85 MNSUBS=NSUBS 23 22 86 MNEPS=MNEPS+4 23 23 MNSUBS=MNSUBS+4 23 24 MMBE=MMBE+4 23 25 MMBU=MMBU+4 23 26 NNDIMT=NDIMT 23 27 IF ( JEERST ) 7,8,8 23 28 7 NNDIMT=JEERST-40000000000000000000B 23 29 NNDIMT=NNDIMT-10B 23 30 8 IBUF(1)=NTAP2 23 31 IBUF(3)=0 23 32 IBUF(4)=1 23 33 IBUF(6)=10H0 23 34 CALL LIJN 23 35 CALL DUMP22 ( 0,IBL0,IBL ) 23 36 CALL DUMP22 ( 1,IBLA0,IBLA ) 23 37 IBLA( IBLA0+3 ) = 16255555555555000000B + NNDIMT 23 38 DO 47 L1=1,3,2 23 39 IBUF(4)=1 23 40 IBUF(6)=IBUF(5) 23 41 CALL LIJN 23 42 II=IBLA0 +L1 23 43 47 CALL DMP2(IBLA(II),0) 23 44 IBUF(4)=2 23 45 CALL OVERDMP 23 46 CALL LIJN 23 47 IBUF(6)=10H0 23 48 IBUF(4)=1 23 49 CALL LIJN 23 50 GO TO ( 3,4,5,6 ) , LAYNAM1 23 51 3 CALL DUMP22 ( 0,IN0,IN) 23 52 CALL DUMP22 ( 1,INA0,INA) 23 53 GO TO 6 23 54 4 CALL DUMP22 ( 0,IEX0,IEX) 23 55 CALL DUMP22 ( 1,IEXA0,IEXA) 23 56 GO TO 6 23 57 5 CALL DUMP22 ( 0,IUT0,IUT) 23 58 CALL DUMP22 ( 1,IUTA0,IUTA) 23 59 GO TO 6 23 60 6 IF ( PAS ) 11,18,9 23 61 18 CALL REGPR 23 62 11 IF(NQU-13) 9,70,9 23 63 C PROVOKE ADDRESS OUT OF RANGE 23 64 70 L5=100000 23 65 L5=IBUF(L5) 23 66 9 RETURN 23 67 END 24 0 SUBROUTINE DUMP22 ( I2, KXB1,XB1 ) 24 1 MACRO CBLANK 24 2 INTEGER XB1(1) 24 3 IF ( I2 ) 2 , 1 , 2 24 4 1 L1=1 24 5 44 IF ( L1-KXB1 ) 45,45,46 24 6 45 II=XB1(L1) 24 7 CALL DMP1(II,0) 24 8 IF ( L1+1-KXB1 ) 42,42,43 24 9 42 IBUF(10)=IBUF(5) 24 10 IBUF(4)=9 24 11 II=XB1(L1+1) 24 12 CALL DMP1(II,5) 24 13 GO TO 40 24 14 43 IBUF(4)=4 24 15 40 CALL LIJN 24 16 L1=L1+2 24 17 GO TO 44 24 18 46 RETURN 24 19 2 DO 41 L1=1,KXB1 ,2 24 20 IBUF(4)=1 24 21 IBUF(6)=IBUF(5) 24 22 CALL LIJN 24 23 41 CALL DMP2(XB1(L1),XB1(L1)) 24 24 RETURN 24 25 END 25 0 IDENT WRONG1 25 1 ENTRY WRONG1,HUGO,OVERDMP,DMP1,ADRE,DMP2 25 2 EXT LISTV,ERROB,STATS,FOUTA,NUTRA0,OCTAL1,ADRS1,OCT60 25 3 EXT LIJN 25 4 MACRO *EXPAND 25 5 MACRO *EXPRNR 25 6 WRONG2 VFD 30/5HWRONG,30/4 25 7 TT1 DIS 2,END OF IDGEH. 25 8 TT2 DIS 2,TERMINATOR FILE / DO 25 9 ER24 DIS 1,(NR 24) 25 10 IPUNCH EQU IBUF+18 25 11 WRONG1 BSS 1 25 12 SA1 RECOV $ ZR X1,WRONG3 25 13 SX6 24 $ SB6 1 RECOVERY FROM SCOPE ERROR 25 14 SA6 IPUNCH+2 $ SA1 ER24 25 15 BX7 X1 $ SA7 IPUNCH+5 $ NO 25 16 + RJ FOUTA 25 17 + MX7 0 $ NO $ SA7 NCONT+7 25 18 + ZR B0,WRONG1 25 19 WRONG3 SA1 MFOUT $ NZ X1,*-3 25 20 + SA1 LAY4+1 $ ZR X1,*+2 25 21 + RJ LISTV 25 22 + SA1 LAY4 $ ZR X1,WRONG1 25 23 RJ ERROB 25 24 + ZR B0,WRONG1 25 25 DMP1 BSS 1 DMP1(TABEL,ARG) PUTS NAME,ADDRESS,CONTENT IN 25 26 SB6 1 $ SA2 A1+B6 $ SA1 X1 IBUF+ARG AND FOLLOWING 25 27 SA3 IBUF+4 $ MX0 42 $ BX4 X0*X1 25 28 BX3 -X0*X3 $ SA2 X2 $ BX6 X3+X4 $ BX1 -X0*X1 25 29 LX6 54 $ LX1 30 $ SA6 X2+IBUF+5 25 30 MX0 3 $ SB2 -B6 $ RJ OCTAL1 25 31 + SA3 IBUF+4 $ MX0 24 $ BX7 -X0*X7 25 32 BX3 X0*X3 $ SA1 X1 $ BX7 X7+X3 $ MX0 3 25 33 LX7 24 $ SB2 B6 $ SA7 A6+B6 $ NO 25 34 RJ OCTAL1 25 35 + SA6 A7+B6 $ SA7 A6+B6 $ ZR B0,DMP1 25 36 LOCALS B1HER,1,B2HER,1,COUNT1,1,COUNT2,1,HUG2,5,COUNT3,1 25 37 LOCALS HUG1,1 25 38 Z1ERO DATA 0 25 39 DMP1C BSS 1 DMP1 CALLING SEQUENCE 25 40 VFD 60/Z1ERO 25 41 DMP2 BSS 1 DMP2(TABEL,ARG) 25 42 SA2 A1+1 $ SX6 X1 $ SX7 X2 25 43 SA6 B1HER $ SA7 B2HER 25 44 SA6 DMP1C $ SA1 DMP1C 25 45 RJ DMP1 WRITE NAME OF ARRAY. 25 46 + SA1 B1HER $ SA2 IBUF+4 25 47 SA1 X1+B6 $ MX0 42 $ BX6 X2 $ BX3 X0*X1 25 48 SA6 IBUF+9 $ ZR X3,DMP22 TEST ON ZERO NAMES 25 49 SX6 A1 $ SA6 DMP2C $ NO ADDR OF LENGTH IS GIVEN IN TABLE 25 50 SA1 DMP2C $ RJ DMP1 WRITE VAR. THAT CONTAINS LENGTH ARRAY 25 51 SX7 9 $ SA7 IBUF+3 25 52 RJ LIJN 25 53 + SA1 B1HER $ SA2 X1+1 25 54 SA3 X2 $ ZR B0,DMP23 25 55 F1IVE DATA 5 25 56 DMP2C BSS 1 DMP1 CALLING SEQUENCE 25 57 VFD 60/F1IVE 25 58 DMP22 SX7 6 $ SB2 -B6 $ BX1 -X0*X1 LENGTH IS SPECIFIED IN TABLE 25 59 SA7 IBUF+3 $ LX1 30 $ MX0 3 25 60 RJ OCTAL1 25 61 + SA3 IBUF+4 $ MX0 18 $ BX7 -X0*X7 25 62 BX3 X0*X3 $ BX7 X7+X3 $ NO 25 63 SA7 IBUF+10 $ RJ LIJN 25 64 + SA1 B1HER $ SA3 X1+1 25 65 DMP23 SA4 X1 $ SX7 X3 $ SA5 B2HER IF ARG=0, THE ADDRESSES ARE 25 66 SX6 X4 $ SA5 X5 $ IX7 X7+X6 $ NO ABSOLUTE. CASE OF IT AND NU. 25 67 + NZ X5,*+1 $ IX7 X7-X6 $ NO 25 68 + SA7 COUNT2 $ SA6 COUNT1 COUNT1,COUNT2 = BEGIN,TOP OF ARRAY 25 69 DMP24 SA2 COUNT1 $ NO $ SA1 X2 25 70 RJ OCT60 25 71 + SA3 B2HER $ SA1 COUNT1 25 72 SX2 X1-360B $ NG X2,DMP25 START ONLY FROM 360B 25 73 + SA4 X3 $ NO $ ZR X4,*+2 25 74 + SX4 X4-1 $ NO $ IX1 X1-X4 COUNT INSTEAD OF ADDRESS 25 75 + LX1 30 $ RJ ADRS1 25 76 + LX7 18 $ NO $ SA7 IBUF+5 25 77 RJ LIJN 25 78 SA3 B2HER $ SA1 COUNT1 25 79 SA4 X3 $ MX6 0 $ NZ X4,DMP25 INTERPRETATION BY HUGO REQUIR 25 80 SA6 COUNT3 $ SA6 IBUF+3 COUNT3,IBUF+3 COUNT WITHIN PRINTLINE 25 81 DMP27 SA1 COUNT1 $ SA2 COUNT3 CYCLE TRANSLATING 4 CONSEC IT WORDS 25 82 SB2 HUG2 $ IX3 X1+X2 $ SB1 X3 25 83 SX7 X2+1 $ SX4 X2-4 25 84 PL X4,DMP26 $ SA7 A2 $ SA1 B1 25 85 LX1 8 $ BX6 X1 $ AX1 12 $ NO 25 86 + ZR X6,*+2 $ SX0 X6-140B CHECK ON 3000B 25 87 + ZR X0,*+1 $ ZR X1,DMP28 25 88 + RJ HUGO 25 89 DMP29 SB6 1 $ SA1 HUG2 PACK 5 TIMES 24 BITS OF HUG2(I) INTO 2 25 90 SA2 A1+B6 $ SA3 A2+B6 $ SA4 A3+B6 $ SA5 A4+B6 WORDS OF IBUF 25 91 MX0 24 $ BX1 X0*X1 $ BX2 X0*X2 $ BX4 X0*X4 25 92 BX5 X0*X5 $ LX2 36 $ LX4 48 $ LX5 24 25 93 MX0 12 $ BX6 X1+X2 $ BX7 X4+X5 $ BX1 X0*X3 25 94 LX3 12 $ BX2 X0*X3 $ LX1 12 $ BX7 X7+X2 25 95 SA3 IBUF+4 $ BX6 X6+X1 $ SA2 A3-B6 25 96 SA6 X2+IBUF+6 $ SA7 A6+B6 $ BX6 X3 25 97 SX7 X2+3 $ SA6 A6-B6 $ SA7 A2 25 98 ZR B0,DMP27 25 99 DMP28 SA6 HUG1 $ NO $ SB1 A6 INTERPRET EXPANDED QUANTITIES 25 100 RJ HUGO TAIL(8 BITS),0...0,HEAD(4 BITS) 25 101 + SA1 HUG1 $ SB6 1 25 102 MX0 3 $ SB2 -B6 $ LX1 30 $ NO 25 103 RJ OCTAL1 PRINT THE LEFT SHIFTED QUANTITY 25 104 + LX7 36 $ NO $ SA7 HUG2 25 105 ZR B0,DMP29 25 106 DMP26 SA4 COUNT1 $ MX0 7 $ SB1 B0 CHECK PRESENCE OF SPECIAL 25 107 SA1 X4 $ MX3 59 $ SB6 1 SEPARATORS IN -IT- LINE 25 108 SB2 4 $ NO $ NO 25 109 DMP30 GE B1,B2,DMP31 $ IX7 X1-X0 $ SB1 B1+B6 25 110 IX6 X1-X3 $ SA1 A1+B6 $ SA2 TT1 25 111 + ZR X7,*+2 $ SA2 TT2 25 112 + NZ X6,DMP30 25 113 + SA5 A2+B6 $ BX6 X2 $ SB3 B1+B1 $ BX7 X5 25 114 SB3 B3+B1 $ SA7 B3+IBUF+4 $ SA6 A7-B6 25 115 ZR B0,DMP30 25 116 DMP31 RJ LIJN 25 117 DMP25 SA1 COUNT1 $ SA2 COUNT2 CHECK ON END OF ARRAY 25 118 SX6 X1+4 $ IX3 X2-X6 $ SA6 A1 25 119 PL X3,DMP24 $ ZR B0,DMP2 25 120 TRAN1SL SX4 X4-41B $ NG X4,TRANSL1 25 121 SA1 X4+NFGEH $ SB7 6 25 122 TRANSL1 NO TRANSLATION OF SYMBOL INTO BCD 25 123 TRA2NS LT B0,B5,TRANS2 $ SB2 B2+1 CHARACTERS. THE RESULT IS IN 25 124 SB5 60 $ GE B2,B3,HU5 X1, LEFT ADJUSTED. X7 GIVES 25 125 TRANS2 SA1 B2+NU-1 $ SB5 B5-12 MASK, 30 OR 36(FOR PP(13)) BITS 25 126 MX0 48 $ AX1 B5,X1 $ BX1 -X0*X1 $ MX0 52 HEAD IN B7 25 127 ZR X1,HU5 25 128 BX4 -X0*X1 $ AX1 8 $ MX0 55 $ SB7 X1 NAME IN X4 25 129 SB6 KOHER-1 25 130 MX7 30 $ JP B7+S1BEB USES B6,B7,X0,X1,X4,X6,X7 25 131 S1BEB ZR X4,HU5 $ JP HU4 25 132 MACRO *TRANS 25 133 DATA 10250717000000000002B .HUGO(A,B) 25 134 HUGO DATA 0 .TRANSLATE A INTO 5 WORDS IN B 25 135 SB6 NU-1 $ NO $ NO 25 136 SA0 B2 $ SB2 B1-B6 $ SB1 1 25 137 SA1 A0-B1 $ SX7 52B $ BX6 X1 25 138 LX7 54 $ SA6 A1 $ SA7 NFGEH-1 25 139 SX7 232005B $ SB5 60 25 140 SB3 B2+B1 25 141 HU0 RJ TRANSL1 25 142 + MX0 54 $ SX6 B7-7 $ BX1 X7*X1 25 143 SB6 9 $ NZ X6,HU00 25 144 PL X4,HU00 $ SX7 46B 25 145 BX1 X1+X7 $ LX1 54 25 146 HU00 SX7 55B $ ZR X1,HU5 25 147 MX0 6 $ SX6 B7-5 $ BX2 X0*X1 25 148 ZR X6,HU10 $ ZR X2,HU8 JP IF EXPRESSION 25 149 LX2 6 $ SX6 X2-53B 25 150 ZR X6,HU8 25 151 HU1 MX0 54 $ BX2 -X0*X1 $ SX6 X2-55B BLANK 25 152 NZ X2,HU11 $ BX1 X1+X7 25 153 HU11 ZR X6,HU2 $ SX6 X2-53B DOLLAR 25 154 NG X6,HU2 $ ZR X6,HU9 25 155 SX6 X2-54B $ ZR X6,HU2 = 25 156 SX6 X2-61B $ ZR X6,HU2 [ 25 157 SX6 X2-62B $ NZ X6,HU9 ] 25 158 HU2 SB6 B6-B1 $ LX1 6 $ PL B6,HU1 25 159 HU3 BX6 X1 $ SA6 A6+1 25 160 LT B0,B5,HU0 $ JP HUGO 25 161 HU8 SX6 B7-1 $ NZ X6,HU9 25 162 BX5 X4 $ RJ NUTRA0 25 163 BX1 X5 $ SX7 15B $ NO 25 164 LX7 18 $ BX1 X1+X7 $ LX1 36 25 165 SX7 55B $ JP HU1 25 166 HU9 SA1 HU6 $ BX6 X1 $ LX7 B0,X1 25 167 SA6 A0 $ SA7 A0+B1 $ SA6 A7+B1 $ SA7 A6+B1 25 168 SA6 A7+B1 $ JP HUGO 25 169 HU10 SA1 HU6A $ JP HU3 25 170 HU4 SX7 X4-200B $ AX7 59 $ BX4 X7*X4 25 171 BX5 X4 $ RJ NUTRA0 25 172 BX1 X5 $ SX7 47B $ LX1 18 25 173 LX7 18 $ BX1 X1+X7 $ LX1 36 $ MX0 54 25 174 SB6 9 $ SX7 55B 25 175 JP HU1 25 176 HU5 SA1 HU6 $ JP HU3 25 177 HU20 SB2 B1-B6 $ SB1 1 $ SB3 B2+B1 TRANSLATE SYMBOL IN LAST 25 178 SB5 12 $ JP HU0 12 BITS OF (B3) TO X6 25 179 DATA 01040422000000000002B 25 180 ADRE DATA 0 25 181 + SX6 B1 $ SA6 B2 $ JP ADRE ADRE(A,N) 25 182 LLL1 DIS 1,0OVERLAY 25 183 OVERDMP BSS 1 25 184 SA1 LAYNAM $ SA2 COMADR 25 185 MX0 42 $ BX6 -X0*X1 $ SA3 LLL1 25 186 BX7 X0*X1 $ NO $ SA7 IBUF+6 25 187 SA6 LAYNAM1 $ SB2 8 25 188 LX6 1 $ SB6 1 $ SB1 X6 25 189 BX7 X3 $ SA7 A7-B6 $ GE B0,B1,OVERDMP 25 190 + GE B1,B2,OVERDMP $ JP B1+*-1 25 191 + SA3 IN0 $ SA1 INA0 25 192 + ZR B0,*+4 25 193 + SA3 IEX0 $ SA1 IEXA0 25 194 + ZR B0,*+2 25 195 + SA3 IUT0 $ SA1 IUTA0 25 196 + SA4 A3+B6 $ NO $ SB2 X3 $ SB7 B6+B6 25 197 + BX7 -X0*X4 $ BX6 X4+X2 $ NZ X7,*+2 25 198 + SX2 X2+B6 $ SA6 A4 $ NO $ NO 25 199 + SA4 A4+B6 $ SB2 B2-B6 $ LT B0,B2,*-2 25 200 + SB2 X1 $ SA4 A1+B6 $ NO $ NO 25 201 + SB3 X4 $ BX7 X0*X4 $ PL B3,*+2 25 202 SB3 B0-B3 $ BX7 X7+X2 $ SX2 X2+B3 $ SA7 A4 25 203 + SA4 A4+B7 $ SB2 B2-B7 $ LT B0,B2,*-2 25 204 ZR B0,OVERDMP 25 205 USE /LAY41/ 25 206 E1 DIS 5,0*** SOME INPUT ERROR OR TAPE READ OR WRITE ERROR 25 207 DIS 2,PREVENTS FURTHER EXE 25 208 VFD 42/7HCUTION.,18/0 25 209 E9 DIS 5, THE FOLLOWING MESSAGE MAY BE OF HELP IN FINDING T 25 210 VFD 48/8HHE ERROR,12/2H 25 211 E15 DIS 5,0THE PROGRAM CONTINUES WITH THE NEXT PROBLEM, IF P 25 212 VFD 48/8HOSSIBLE.,12/0 25 213 E21 VFD 48/8H **ERROR,12/2H A 25 214 E22 DIS 3, ***** AT SUBSTITUTION LEVEL 25 215 E25 VFD 42/7H *****,18/0 25 216 ISAVE BSS 18 25 217 LAYNAM1 BSSZ 1 25 218 BSS 2000 25 219 USE * 25 220 USE /LBL/ 25 221 * MAXIMUM 80 SYMBOLS 25 222 * THIS TEXT STARTS IN 40TH COLUMN 25 223 IBL0 VFD 60/IBL2-IBL1 LIST OF // COMMON SYMBOLS 25 224 IBL1 VFD 42/7HAZ ,18/AZ ERROR FLAG FORCING ADRES OUT RANG 25 225 VFD 42/7HBLOKPT ,18/BLOKPT BEGIN ARG REPLACING LIST FOR COPY 25 226 VFD 42/7HCOMADR ,18/COMADR BEGIN COMMON IN OVERLAYS 25 227 VFD 42/7HCRIND ,18/CRIND NR OF CREATED INDICES IN OUTPUT 25 228 VFD 42/7HDOCARD ,18/DOCARD RELATIF POINTER ON STORED DOLOOP 25 229 VFD 42/7HDOLIST ,18/DOLIST BEGIN LIST DO VARIAB + THEIR VALU 25 230 VFD 42/7HDOVLAG ,18/DOVLAG BEGIN AND LENGTH OF STORED DOLOOP 25 231 VFD 42/7HDUMCAR ,18/DUMCAR DUMMY CARD HAS 77B IN COL 1 OR 2 25 232 VFD 42/7HIDAAN ,18/IDAAN NEXT FREE LOCATION IN IDGEH 25 233 VFD 42/7HIDADR ,18/IDADR START ADRES OF IDGEH 25 234 VFD 42/7HISPLAY ,18/ISPLAY =-1,0,1 IF SCREEN,PR,DISPL MODE 25 235 VFD 42/7HI1001 ,18/I1001 INDEX FOR ERROR I1001 25 236 VFD 42/7HJEERST ,18/JEERST PTR TO FIRST TERM IN OUTPUT 25 237 VFD 42/7HKKUIT ,18/KKUIT TOTAL NR OF Z EXPRESSIONS 25 238 VFD 42/7HTAPUSE ,18/TAPUSE BIT N FROM RIGHT NZ IF TAPE N US 25 239 VFD 42/7HLAYNAM ,18/LAYNAM NAME OF OVERLAY BEING IN CORE 25 240 VFD 42/7HLAYNR ,18/LAYNR RETURN ADRES AFTER ERROR IN OVLAY 25 241 VFD 42/7HLAY1 ,18/LAY1 SKIPPING INPUT CARDS AFTER ERROR 25 242 VFD 42/7HLAY1+1 ,18/LAY1+1 PRINT TIME BEFORE NEW INPUT 25 243 VFD 42/7HLAY2 ,18/LAY2 NZ FOR EXEC AFTER * YEP,R INPUT 25 244 VFD 42/7HLAY4 ,18/LAY4 PRINT CINPUT, COUTPUT,CEXEC 25 245 VFD 42/7HLAY4+1 ,18/LAY4+1 PRINT NAMELISTS 25 246 VFD 42/7HLEVEL ,18/LEVEL EXECUTION LEVEL 25 247 VFD 42/7HMAXID ,18/MAXID HIGHEST SUBST LEVEL OF INPUT 25 248 VFD 42/7HMBE ,18/MBE NEXT FREE WORD IN INPUT ARRAY 25 249 VFD 42/7HMBU ,18/MBU NEXT FREE WORD IN LOC ARRAY 25 250 VFD 42/7HMFOUT ,18/MFOUT SCHOONSCHIP ERROR OCCURED 25 251 VFD 42/7HMMBE ,18/MMBE MAX VALUE OF MBE 25 252 VFD 42/7HMMBU ,18/MMBU MAX VALUE OF MBU 25 253 VFD 42/7HMNEPS ,18/MNEPS MAX VALUE OF NEPS 25 254 VFD 42/7HMNSUBS ,18/MNSUBS MAX VALUE OF NSUBS 25 255 VFD 42/7HNAMES ,18/NAMES NAMES OF EXPR READ AT EXEC TIME 25 256 VFD 42/7HNANU ,18/NANU SIZE OF LOC ARRAY 25 257 VFD 42/7HNASFF ,18/NASFF ADRES(FILN1) OF Z BEING CALCULAT 25 258 VFD 42/7HNCRIN ,18/NCRIN NR OF CREATED INDICES.END OF INPU 25 259 VFD 42/7HNDIMT ,18/NDIMT TOP INPUT SPACE (ABS ADRES ) 25 260 VFD 42/7HNDIMU ,18/NDIMU TOP OUTPUT SPACE ( ABS ADRES ) 25 261 VFD 42/7HNEPS ,18/NEPS NEXT FREE WORD IN IEP 25 262 VFD 42/7HNF ,18/NF INSERT COUNT LIMIT 25 263 VFD 42/7HNFFO ,18/NFFO PTR IN IT TO LOC,FILN1 OF Z EXPRS 25 264 VFD 42/7HNMULT ,18/NMULT NR OF INSERT PASSINGS.FOR STATIST 25 265 VFD 42/7HNQU ,18/NQU NR DIGITS FOR PRINT OF FL POINT N 25 266 VFD 42/7HNQX ,18/NQX NR INDICES AT EXEC TIME 25 267 VFD 42/7HNQ1 ,18/NQ1 TAPE RECORD WRITING COUNT 25 268 VFD 42/7HNREP ,18/NREP NZ FOR * YEP, R INPUT 25 269 VFD 42/7HNSPEC ,18/NSPEC TYPE OF LAST * CARD (BEGIN,YEP..) 25 270 VFD 42/7HNSUBS ,18/NSUBS NEXT FREE WORD IN OUTPUT SPACE 25 271 VFD 42/7HNSUM ,18/NSUM NASFF OF FIRST Z WITH OUTP OVFLOW 25 272 VFD 42/7HNTAP1 ,18/NTAP1 INPUT TAPE 25 273 VFD 42/7HNTAP2 ,18/NTAP2 OUTPUT TAPE 25 274 VFD 42/7HNTAP3 ,18/NTAP3 BLOCKS, STORE AND R INPUT 25 275 VFD 42/7HNTAP4 ,18/NTAP4 OUTPUT OVERFLOW TAPE 25 276 VFD 42/7HNTAP5 ,18/NTAP5 OUTPUT OVERFLOW TAPE 25 277 VFD 42/7HNTAP6 ,18/NTAP6 * YEP INTERMEDIATE RESULTS 25 278 VFD 42/7HNTAP7 ,18/NTAP7 COMMON EXPR, LARGE KEEP EXPRESS 25 279 VFD 42/7HNTAP8 ,18/NTAP8 PUNCH OUTPUT 25 280 VFD 42/7HNTEM ,18/NTEM GENERATED TERMS ( GIVEN IN STAT ) 25 281 VFD 42/7HNTEMA ,18/NTEMA RECORD COUNT DURING OUTP OVERFLOW 25 282 VFD 42/7HNTIME ,18/NTIME STARTING TIME 25 283 VFD 42/7HNVRA ,18/NVRA PRINT OUTPUT FLAG FOR * YEP 25 284 VFD 42/7HNWEG ,18/NWEG NR CANCELLED OUTPUT TERMS 25 285 VFD 42/7HNWOC ,18/NWOC WORD COUNT DURING OUTPUT OVFLOW 25 286 VFD 42/7HNZELF ,18/NZELF NR OF IDENTICAL OUTPUT TERMS 25 287 VFD 42/7HPAS ,18/PAS * CARD/REQ REGDMP AFT PRINT ERROR 25 288 VFD 42/7HRECOV ,18/RECOV SCOPE ERROR OCCURED 25 289 VFD 42/7HS1RED ,18/S1RED SPACE OF CANCELLED QTS. GARBAG. 25 290 VFD 42/7HYEPFLAG,18/YEPFLAG =1 IF INPUT COMES FROM NTAP6 25 291 VFD 42/7HYTERM ,18/YTERM COUNTS TERMS DURING YEP INPUT 25 292 IBL2 BSS 0 25 293 USE * 25 294 USE /LBLA/ 25 295 * MAXIMUM 40 ARRAYS 25 296 IBLA0 VFD 60/IBLA2-IBLA1+1 LIST OF ARRAYS WITH FIXED LENGTH 25 297 IBLA1 VFD 42/7HIBUF ,18/ISAVE I/O BUFFER (FORMATTED RECORDS ) 25 298 VFD 60/18 25 299 VFD 42/7HIPUNCH ,18/IPUNCH I/O BUFFER (FORMATTED RECORDS) 25 300 VFD 60/18 25 301 VFD 42/7HITAR1 ,18/ITAR1 TAPE NR WHEN INP FROM TAPE1,TAPE3 25 302 VFD 60/2 25 303 VFD 42/7HMTAB ,18/MTAB LIMITS AFTER * FIX,* BEGIN,.. 25 304 VFD 60/20 25 305 VFD 42/7HNCONT ,18/NCONT OUTPUT CONTROL FLAGS 25 306 VFD 60/11 25 307 VFD 42/7HNID ,18/NID ADRES(IDGEH) SUBSTIT PER LEVEL 25 308 VFD 60/42 25 309 VFD 42/7HVOLUM ,18/VOLUM COUNTS VOLUM OF EXPR IN OUTP SPAC 25 310 VFD 60/36 25 311 VFD 42/7HMBR ,18/MBR QUANTITIES OUT OF BRACKETS 25 312 VFD 42/7HNBR ,18/NBR 25 313 VFD 42/7HNAGEH ,18/NAGEH NAMES OF ALGEBRAIC QUANTITIES 25 314 VFD 42/7HNALGE ,18/NALGE 25 315 VFD 42/7HNFGEH ,18/NFGEH NAMES OF FUNCTIONS 25 316 VFD 42/7HNFUN ,18/NFUN 25 317 VFD 42/7HNVIGEH ,18/NVIGEH NAMES OF INDICES 25 318 VFD 42/7HNVIND ,18/NVIND 25 319 VFD 42/7HNVGEH ,18/NVGEH NAMES OF VECTORS 25 320 VFD 42/7HNVECT ,18/NVECT 25 321 VFD 42/7HNXGEH ,18/NXGEH OPERATORS.X-D EXPR.KEEP-COMMON EX 25 322 VFD 42/7HNXEX ,18/NXEX 25 323 VFD 42/7HFILN1 ,18/FILN1 NAMES OF Z EXPRESSIONS 25 324 VFD 42/7HN5PS ,18/N5PS 25 325 VFD 42/7HLOC ,18/LOC LOCATION OF SUBEXPRESSIONS 25 326 IBLA2 VFD 42/7HMMBU ,18/MMBU 25 327 VFD 42/7HIT ,18/ITIN INPUT ARRAY 25 328 VFD 42/7HMMBE ,18/MMBE 25 329 VFD 42/7HNU ,18/0 ADRES IS CALCULATED IN ERROB 25 330 VFD 42/7HMNSUBS ,18/MNSUBS 25 331 USE * 25 332 * THE QUANTITIES WITH ADRES 18/0 OR 18/NEGATIVE HAVE TO BE IN THE SAME 25 333 * ORDER AS IN THE /LAY.1/ DEFINITION. THE NEGATIVE NR IS THEIR DIMENSION 25 334 * QUANTITIES WITH 18/POSITIVE ARE SKIPPED WITH RESPECT TO THE ORDERING. 25 335 USE /LIN/ 25 336 ** MAXIMUM 100 SYMBOLS. PRESENTLY 82. 25 337 IN0 VFD 60/IN2-IN1+1 LIST OF SYMBOLS IN INPUT COMMON 25 338 IN1 VFD 42/7HBRAZI1 ,18/0 LEVEL OF ID,AL CARD. FOR PRINT. 25 339 VFD 42/7HDOPT1 ,18/0 (A) BEGIN DOLOOP WHILE READ IN 25 340 VFD 42/7HFFILN ,18/0 FILN1 FOR FROZEN SUBFILE 25 341 VFD 42/7HFRVEC ,18/0 FOR NEW VECT HEAD IN FREZE BUF 25 342 VFD 42/7HKA ,18/0 POINTER IN ALGEBRA BUF. FREEZE 25 343 VFD 42/7HKI ,18/0 POINTER IN INPUT BUFFER. FREEZE 25 344 VFD 42/7HKV ,18/0 POINTER IN VECT BUF. FREEZE 25 345 VFD 42/7HKSUBF ,18/0 COUNTS FROZEN SUBFILES 25 346 VFD 42/7HK4 ,18/0 RECS WRITTEN ON TAPE4 IN FREEZE 25 347 VFD 42/7HK5 ,18/0 RECS WRITTEN ON TAPE5 IN FREEZE 25 348 VFD 42/7HK7 ,18/0 REQUESTS REC OF TAPE7. BIAS 6 25 349 VFD 42/7HLEN ,18/0 LENGTH DF(..). IN IPR1 25 350 VFD 42/7HNENDBL1,18/0 SIGNALS ENDBLOCK 25 351 VFD 42/7HITAR3 ,18/0 TAPE PRINT,PUNCH,NONAMES,FORWARD 25 352 VFD 42/7HIMINUS ,18/0 SIGN OF READ IN QUANTITY 25 353 VFD 42/7HSYMB3 ,18/0 SECOND PART OF NAME IN DOTPRODUCT 25 354 VFD 42/7HVLAGT1 ,18/0 SIGNALS TABLE EXPR. 25 355 VFD 42/7HCREATBR,18/0 CREATE () FOR INTEG,CONJG EXPR 25 356 VFD 42/7HDATAFL1,18/0 SIGNALS DATA EXPR VERSUS X EXPR. 25 357 VFD 42/7HDS1 ,18/0 COUNTS COMMAS FOR DS FUNCTION 25 358 VFD 42/7HEXPOFL1,18/0 SIGNALS THAT AN EXPONENT IS READ 25 359 VFD 42/7HLEVCH ,18/0 HIGHEST VALUE OF CURRENT LEVEL 25 360 VFD 42/7HLEVCL ,18/0 STARTING VALUE FOR CURRENT LEVEL 25 361 VFD 42/7HLEVHY ,18/0 HIGHEST LEVEL OF SERIES OF SUBST 25 362 VFD 42/7HLEVLO ,18/0 STARTING VALUE FOR SERIES OF SUBS 25 363 VFD 42/7HNBLAN1 ,18/0 SIGNALS NON-BLANK FIRST COLUMN 25 364 VFD 42/7HNRFIX ,18/0 INTEGER VALUE OF NR READ IN 25 365 VFD 42/7HNRFLAG1,18/0 SIGNALS THAT A NUMBER IS READ 25 366 VFD 42/7HSLASH1 ,18/0 SIGNALS / . 25 367 VFD 42/7HSLASH2 ,18/0 SIGNALS / . 25 368 VFD 42/7HAA ,18/0 TEMP SLASH1 OR NDUMFL 25 369 VFD 42/7HAZPMEM1,18/0 LETTER OF KEYWORD OF SUBST 25 370 VFD 42/7HBBA ,18/0 CHARACTER READ BEFORE LAST 25 371 VFD 42/7HBBB ,18/0 LAST CHARACTER READ 25 372 VFD 42/7HBIND1 ,18/0 TEMPORARY NBIND 25 373 VFD 42/7HBLOKP1 ,18/0 TEMPORARY BLOKPT 25 374 VFD 42/7HBLOV34 ,18/0 FLAG FOR ENTERING BLOCKS 25 375 VFD 42/7HDODEPTH,18/0 COUNTS NESTING OF DOLOOPS 25 376 VFD 42/7HDOLST1 ,18/0 (A) STRAIGHTENED DOLIST 25 377 VFD 42/7HDSXI1 ,18/0 NO KEY REQUEST FOR DS,DX 25 378 VFD 42/7HENDB1 ,18/0 FLAG FOR ENDBLOCK OR BEGIN BLOCK 25 379 VFD 42/7HFITE1 ,18/0 SIGNALS FIRST TERM OF EXPR 25 380 VFD 42/7HFITE2 ,18/0 SIGNALS FIRST R EXPRESSION 25 381 VFD 42/7HGAMM5 ,18/0 NAME OF QUANTITY OUTSIDE BRACKETS 25 382 VFD 42/7HIA ,18/0 VARIA 25 383 VFD 42/7HIAL ,18/0 LENGTH OF SYMBOL 25 384 VFD 42/7HIB ,18/0 VARIA 25 385 VFD 42/7HIDAHE ,18/0 (R) IN IDGEH OF LHS OF SUBST 25 386 VFD 42/7HIDIND1 ,18/0 25 387 VFD 42/7HILK ,18/0 1ST CHAR OF NAME FUNCT/VECTOR 25 388 VFD 42/7HITNAM1 ,18/0 PTR(INPUT SPACE) TO BLOCK NAMES 25 389 VFD 42/7HITTA1 ,18/0 (A) BUFFER FOR R INPUT 25 390 VFD 42/7HJANI1 ,18/0 ALG,NR,INDEX IN LHS OF SUBST 25 391 VFD 42/7HJDVF1 ,18/0 DOTPR,VECT,FUNCTION LHS SUBST 25 392 VFD 42/7HKTERM ,18/0 IT ADRES PREVIOS TERM.INSERT PNTR 25 393 VFD 42/7HLEESPT ,18/0 ADRES REPLACED ARGUM OF COPY BLOC 25 394 VFD 42/7HLVAG ,18/0 VARIA 25 395 VFD 42/7HLVEC1 ,18/0 (A) LAST VECT HEAD IN R INPUT BUF 25 396 VFD 42/7HNBIND ,18/0 SEPARATOR OF SYMBOLS 25 397 VFD 42/7HNCIND ,18/0 COUNTS DO0 S. FOR END OF EXPR 25 398 VFD 42/7HNDUMY ,18/0 NR OF DUMMIES 25 399 VFD 42/7HNHAK ,18/0 COUNTS NESTING OF BRACKETS 25 400 VFD 42/7HNHAK1 ,18/0 =NHAK DURING INTEG*(.) 25 401 VFD 42/7HNHAK2 ,18/0 COUNTS () INSIDE BLOCK ARGS 25 402 VFD 42/7HNI ,18/0 POINTER ON INPUT CARD 25 403 VFD 42/7HNNUM1 ,18/0 CHECKS FORMAT OF ID,NUMER,A,1,.. 25 404 VFD 42/7HNORDER ,18/0 SPECIAL CHAR FOR INPUT SCAN 25 405 VFD 42/7HNP31 ,18/0 VARIA 25 406 VFD 42/7HNSUB1 ,18/0 =NSUBS WHILE ANALYZ SUBEXPRS 25 407 VFD 42/7HNTEKEN ,18/0 SIGN OF TERM 25 408 VFD 42/7HRCUR1 ,18/0 (A) STORED INPUT CARD.ARG REPLACM 25 409 VFD 42/7HRCUR2 ,18/0 RCUR1.IF BLOCK ARG HAS DO VARIABL 25 410 VFD 42/7HRIND1 ,18/0 SIGNALS R INPUT. WRITE ONTO TAPE6 25 411 VFD 42/7HSHIF1 ,18/0 REG STORE IN SEAR2. CHAR BLOKNAME 25 412 VFD 42/7HSHMEM1 ,18/0 SHIFT FOR INSERT CODE IN WORD 25 413 VFD 42/7HSO1 ,18/0 TEMP IGET.VECTNR,DOTPRS 25 414 VFD 42/7HSTOR1 ,18/0 REG STORE IN SEAR2.WORD BLOKNAME 25 415 VFD 42/7HSYMB1 ,18/0 SYMBOL OR INTEGER NUMBER 25 416 VFD 42/7HSYMB2 ,18/0 FIRST PART OF DOTPR NAME 25 417 VFD 42/7HTABIN1 ,18/0 NO SCAN THRU TABLE..PRINT LIST.. 25 418 VFD 42/7HTAPMA1 ,18/0 (R) IEP .TOP DO0 EXPR.1ST HALF 25 419 VFD 42/7HTUS1A ,18/0 VARIA. E.G. A(1) 25 420 VFD 42/7HVECIN1 ,18/0 R INPUT IS SCALAR/VECTOR 25 421 VFD 42/7HVLAG ,18/0 0/1 IF LHS SUBST/COMMAND 25 422 VFD 42/7HXDRE1 ,18/0 REMEMB NXGEH(NR) FOR X,D EXPR 25 423 VFD 42/7HSUBS1 ,18/0 LEVEL,MULTP OF SUBSTITUTION 25 424 IN2 VFD 42/7HWW1 ,18/0 3 CHARS LAST READ 25 425 USE * 25 426 USE /LINA/ 25 427 * MAXIMUM 20 ARRAYS 25 428 INA0 VFD 60/INA2-INA1+1 ARRAYS IN INPUT COMMON 25 429 INA1 VFD 42/7HA ,18/IPR1+100 INPUT CARD . 1 CHAR/WORD 25 430 VFD 60/80 25 431 VFD 42/7HB ,18/B LAST READ SYMBOL . 1CHAR/WORD 25 432 VFD 60/50 25 433 VFD 42/7HBUFA1 ,18/IIDGEHX+500 BUFFER FOR OUTPUT ALG QUANT 25 434 VFD 60/16 WHEN FREEZING 25 435 VFD 42/7HBUFV1 ,18/BBUFX BUFFER FOR OUTPUT VECTORS WHEN 25 436 VFD 60/16 FREEZING / WRITE COMMON 25 437 VFD 42/7HEREXP1 ,18/-2 FLAGS FOR FU**EXP NOT ALLOWED 25 438 VFD 60/2 25 439 VFD 42/7HIDGEH ,18/IIDGEHX+3 IDENTIFIERS(=LHS OF SUBSTS) 25 440 VFD 42/7HIDAAN ,18/IDAAN 25 441 VFD 42/7HIDO1 ,18/-5 FLAGS,COUNT FOR DO0 EXPR CREATION 25 442 VFD 60/5 25 443 VFD 42/7HIDUM ,18/NAANT LIST OF DUMMIES 25 444 VFD 60/42 25 445 VFD 42/7HIEP ,18/IIEP TERMS IN () AT INP. DO0 EXPRESS/ 25 446 VFD 42/7HMNEPS ,18/MNEPS INPUT BUFFER NAMELIST IN CROSR/ 25 447 * DOLLAR SUBEXPRESSIONS / INPUT BUFFER FOR FREEZE, ENTER COMMON 25 448 VFD 42/7HIPR ,18/IPR LOC AND FILN1 OF EACH Z EXPRES 25 449 VFD 60/40 IPR(0)=TOTAL NR OF Z EXPR 25 450 VFD 42/7HIPR1 ,18/IPR1 DO0 EXPR . 1 CHAR / WORD . TO BE 25 451 VFD 60/80 PACKED IN IEP 25 452 VFD 42/7HISCAL ,18/IISCAL+100 LOC OF DO0 EXPR 25 453 VFD 60/28 25 454 VFD 42/7HITA1 ,18/-4 25 455 VFD 60/4 25 456 VFD 42/7HKTA1 ,18/-2 25 457 VFD 60/2 25 458 VFD 42/7HLDA1 ,18/-5 POINTERS STORAGE DO0 EXPR IN IEP 25 459 VFD 60/5 25 460 VFD 42/7HNRFLOAT,18/-2 FL POINT CONVERSION OF READ IN NR 25 461 VFD 60/2 25 462 VFD 42/7HNRINVER,18/-2 =1/NRFLOAT. IN FLOATING POINT 25 463 INA2 VFD 60/2 25 464 USE * 25 465 USE /LEXEC/ 25 466 * MAXIMUM 50 SYMBOLS 25 467 IEX0 VFD 60/IEX2-IEX1 LIST OF SYMBOLS IN EXEC COMMON 25 468 IEX1 VFD 42/7HANTHAU ,18/0 LOC OF RHS OF SUBST FROM IDGEH 25 469 VFD 42/7HA37JO ,18/0 NR OF CURRENT Z EXPR 25 470 VFD 42/7HBB1HER ,18/0 (R) OF MATCHING FU IN IEP,IDGEH 25 471 VFD 42/7HB1B ,18/0 LOOPINDEX AT APA8(HELENE) 25 472 VFD 42/7HB1HER ,18/0 (R) IN IDGEH OF NEXT SUBST AT LEV 25 473 VFD 42/7HB2HER ,18/0 (R) IN IDGEH OF LAST SUBST AT LEV 25 474 VFD 42/7HB3HER ,18/0 (R) IN IDGEH OF CURRENT SUBSTITUT 25 475 VFD 42/7HCOMM1 ,18/0 (R) IN IEP OF START FOR SEARCH 25 476 VFD 42/7HDREQ1 ,18/0 FLAGS PRESENCE OF KREQ OPERATOR 25 477 VFD 42/7HEPSM1 ,18/0 REDUCTION OF EPF OR REARRANGE ARG 25 478 VFD 42/7HEXPO1 ,18/0 CALL BRIAN(*,BASE1,EXPO1).ROTSOI 25 479 VFD 42/7HHULP1A ,18/0 NAME,INDEX OF FROZEN FILE. EXPAND 25 480 VFD 42/7HHULP1B ,18/0 IEP(HULP1B)=3000B=END OF DF FU 25 481 VFD 42/7HHULP1C ,18/0 RECORDNR OF FROZEN FILE.EXPAND 25 482 VFD 42/7HISWIH1 ,18/0 5 (R) IN IEP OF BEGIN MATCHING FU 25 483 VFD 42/7HISWIH2 ,18/0 5 (R) IN IDGEH OF BEGIN MATCH FU 25 484 VFD 42/7HISWIH4 ,18/0 NDUMY FOR MATCHING FUNCTIONS 25 485 VFD 42/7HISWI1 ,18/0 REQ. NON-COMMUT.ADISO,AINBE 25 486 VFD 42/7HJV ,18/0 SCHUIF INSERTS TERM BETWEEN 25 487 VFD 42/7HJVA ,18/0 QUANTITIES AT JVA AND JV 25 488 VFD 42/7HMARKER ,18/0 FLAGS SUCCESSFUL SUBSTITUTION 25 489 VFD 42/7HMBEWW ,18/0 MBE WHEN STARTING NEW Z EXPR 25 490 VFD 42/7HMBE1 ,18/0 TEMPORARY MBE (INSERT) 25 491 VFD 42/7HMBE11 ,18/0 TEMPORARY MBE (HELENE) 25 492 VFD 42/7HMBE2 ,18/0 STORE MBE DURING REPEAT 25 493 VFD 42/7HMBUWW ,18/0 MBU WHEN STARTING NEW Z EXPR 25 494 VFD 42/7HMBU1 ,18/0 MBU DURING ROTSOI 25 495 VFD 42/7HNQA ,18/0 LOCATION OF EPF IN IEP 25 496 VFD 42/7HNQB ,18/0 OCCUR OF SPECIAL FUNCT IN IEP 25 497 VFD 42/7HRETUR ,18/0 RETURN ADDRESS FOR MARTYN 25 498 VFD 42/7HRETUR2 ,18/0 RETURN ADDRESS FOR BOEK1,BOEK2 25 499 VFD 42/7HSE9VL ,18/0 FLAG FOR ID,Q(L+)*Q(M+)=.. Q=VECT 25 500 VFD 42/7HSKEY1 ,18/0 (A) OF FIRST QU OF DKEY.OVERWRITE 25 501 VFD 42/7HS1ALOC ,18/0 LOC NEXT ALGEBR.COMPARE IN SCHUIF 25 502 VFD 42/7HS1XR4 ,18/0 PTR (BUF OUTP OVFL) FOR NEXT TERM 25 503 VFD 42/7HZN2IND ,18/0 NZ IF OUTPUT SPACE FULL 25 504 VFD 42/7HS1VLOC ,18/0 LOC NEXT VECTOR.COMPARE IN SCHUIF 25 505 VFD 42/7HMBE1F ,18/0 POINTER IN * YEP BUF FOR VECTOR 25 506 VFD 42/7HMBE4 ,18/0 POINTER IN * YEP BUF FOR ALGEBR 25 507 VFD 42/7HMBE5 ,18/0 STORE FOR MBU IN REPEAT 25 508 VFD 42/7HNTABK ,18/0 HOLDS TABLE EXPR INFORM. 25 509 VFD 42/7HCONSER ,18/0 FLAGS DC IN INSER 25 510 VFD 42/7HDGEPF ,18/0 NEG IF D,EPF,G PRESENT 25 511 VFD 42/7HKEYD1 ,18/0 NR DUMMIES.A(NEW KEY).A(CURR KEY) 25 512 VFD 42/7HLEVBUF1,18/0 LEVEL ON WHICH FIRST/SECOND HALF 25 513 VFD 42/7HLEVBUF2,18/0 OF IDGEH IS USED AS BUFFER 25 514 VFD 42/7HNEPSG ,18/0 5 VALUES OF NEPS DURING CONJG 25 515 IEX2 BSS 0 25 516 USE * 25 517 USE /LEXECA/ 25 518 * MAXIMUM 30 ARRAYS 25 519 IEXA0 VFD 60/IEXA2-IEXA1+1 ARRAYS IN EXEC COMMON 25 520 IEXA1 VFD 42/7HBUF1 ,18/BBUFX OUTP BUF FOR OUTPUT OVERFLOW 25 521 VFD 60/16 25 522 VFD 42/7HIDGEH1 ,18/IIDGEHX * YEP INPUT BUFFER / 2 INPUT BUFS 25 523 VFD 60/16 FOR FILES 25 524 VFD 42/7HIDGEH2 ,18/IIDGEHX+508 25 525 VFD 60/16 25 526 VFD 42/7HIPR1 ,18/IPR1 EXPONENT OF ALGEBRAIC SYMBOLS 25 527 VFD 42/7HNALGE ,18/NALGE 25 528 VFD 42/7HIPR ,18/IPR QUANT ASSOCIATD WITH VECTOR INDEX 25 529 VFD 42/7HNQX ,18/NQX 25 530 VFD 42/7HISCAL ,18/IISCAL QUANT ASSOC WITH DOTPR, VECT NR 25 531 VFD 42/7HNDOTI ,18/NDOTI 25 532 VFD 42/7HNAANT ,18/NAANT NR OF EXPRESS TO BE MULTIPLIED 25 533 VFD 60/42 AT EACH LEVEL 25 534 VFD 42/7HNS ,18/NNS VECTOR PART OF OUTPUT TERM 25 535 VFD 42/7HNP ,18/NP 25 536 VFD 42/7HNSA ,18/NNSA ALGEBRA PART OF OUTPUT TERM 25 537 VFD 42/7HNA ,18/NA 25 538 VFD 42/7HBASE1 ,18/-2 DOUBLE PREC FL.P.NR DURING 25 539 VFD 60/2 NUMERICAL EVAL OF EXPRESSIONS. 25 540 VFD 42/7HBSTOR1 ,18/-2 (1)=REGSTORE FOR CALL FTN(ROTSOI) 25 541 VFD 60/2 (2)=FULL EVAL FLAG FOR DS 25 542 VFD 42/7HFILD1 ,18/-5 ARG LIST FOR CALL TAKMAN(GLADYS) 25 543 VFD 60/5 25 544 VFD 42/7HFILD2 ,18/-2 (1)=FLAG FOR TAPEWORK IN GLADYS 25 545 VFD 60/2 (2)=EOF FLAG DURING TAPEWORK 25 546 VFD 42/7HIDUM1 ,18/-20 VALUES OF DUMMIES DURING Z9IDT 25 547 VFD 60/20 (R) IN IEP OF * ARGS OF COMPO FU 25 548 VFD 42/7HINDA1 ,18/-3 REGSTORE DURING CONJG 25 549 VFD 60/3 25 550 VFD 42/7HINDA2 ,18/-5 ARG LIST FOR CALL BRIAN(INSERT) 25 551 VFD 60/5 25 552 VFD 42/7HMBUW ,18/-42 FOR EACH LEVEL,(A) MULTPL POINT, 25 553 VFD 60/42 MBE11,MBU 25 554 VFD 42/7HIGET ,18/-3 NUMERICAL COEF OF TERM 25 555 VFD 60/3 25 556 VFD 42/7HREMEM1 ,18/-41 . 25 557 VFD 60/41 25 558 VFD 42/7HRETUR1 ,18/-42 FOR EACH LEVEL, MBE,NQX, 25 559 VFD 60/42 RETURN ADDRESS 25 560 VFD 42/7HKAHD1 ,18/-2 (1)=(A) WHERE EQUAL ARGS OF G ARE 25 561 VFD 60/2 STORED. (2)=INDEX,OPERAT OF G DURING KAHANE 25 562 VFD 42/7HTABKEY ,18/-5 HOLDS TABLE INF IN INSERT 25 563 VFD 60/5 25 564 VFD 42/7HIEP ,18/-750 FUNCTION REGISTER / BUFFER 25 565 IEXA2 VFD 42/7HMNEPS ,18/MNEPS GARBAGE COLLECTION 25 566 USE * 25 567 USE /LUIT/ 25 568 * MAXIMUM 50 SYMBOLS 25 569 IUT0 VFD 60/IUT2-IUT1 LIST OF SYMBOLS IN UIT COMMON 25 570 IUT1 BSS 0 25 571 VFD 42/7HIY1 ,18/0 COEF IN FLOAT,POINTER FORMAT. 25 572 * IY1=-1(0) IF (NOT) EXACT INTEG 25 573 VFD 42/7HIY2 ,18/0 IY2=INTEGER VALUE. 25 574 VFD 42/7HMIND ,18/0 NR OF DIGITS IN PRINT.RATIO REQ 25 575 VFD 42/7HIND ,18/0 POINTER IN CHAR ARRAY B 25 576 VFD 42/7HIEXP ,18/0 ESTIM EXPON OF 10 OF BDOUB 25 577 VFD 42/7HBDOUB1 ,18/0 96 BIT DP COEF TO BE CONVERTED TO 25 578 VFD 42/7HBDOUB2 ,18/0 DISPLAY CODE BY ROUTINE NUMBER 25 579 VFD 42/7HB2HER ,18/0 SAVE B2 REGISTER 25 580 VFD 42/7HB3HER ,18/0 SAVE B3 REGISTER 25 581 VFD 42/7HB4HER ,18/0 SAVE B4 REGISTER 25 582 VFD 42/7HB5HER ,18/0 SAVE B5 REGISTER 25 583 VFD 42/7HIERIC ,18/0 LENGTH OF PRINTLINE 25 584 VFD 42/7HINIT2 ,18/0 =0 TO INIT NEW PUNCH CARD 25 585 VFD 42/7HIREG ,18/0 REQUESTS NEW CARD WHEN PUNCHING 25 586 VFD 42/7HJV ,18/0 SCHUIF INSERTS TERM BETWEEN 25 587 VFD 42/7HJVA ,18/0 QUANTITIES AT JVA AND JV 25 588 VFD 42/7HKAM1 ,18/0 COUNTS CARDS WHILE PUNCHING 25 589 VFD 42/7HKEM1 ,18/0 INHIBITS FTN CONTIN CHAR ON PUNCH 25 590 VFD 42/7HKIM1 ,18/0 POINTER ON PUNCH CARD ( WORD ) 25 591 VFD 42/7HKOM1 ,18/0 POINTER ON PUNCH CARD ( CHARACT ) 25 592 VFD 42/7HLDOC ,18/0 SIGNALS DOLLAR IN OUTPUT 25 593 VFD 42/7HLLIM1 ,18/0 MAX LENGTH OF PRINTLINE 25 594 VFD 42/7HNFOL ,18/0 LOC NEXT ALGEBRA TO PRINT 25 595 VFD 42/7HNINX ,18/0 NZ IF SOME FILES TO BE KEPT 25 596 VFD 42/7HARGA0 ,18/0 STORE A0 DURING ARGL1=ARG PRINT 25 597 VFD 42/7HNKLOPS ,18/0 NR WORDS STILL OVFLOW TAPE.FEEDIN 25 598 VFD 42/7HNORPR1 ,18/0 (R) IN FILN1 OF EXPR IN PRINT 25 599 VFD 42/7HNPA ,18/0 LENGT OF V/ALG PART OF PRINT TERM 25 600 VFD 42/7HNRECOR ,18/0 NR REC STILL OVFLOW TAPE.FEEDIN 25 601 VFD 42/7HNRECO2 ,18/0 NR RECS ON COMMON,* YEP TAPE 25 602 VFD 42/7HNREM ,18/0 LOC NEXT VECTOR TO BE PRINTED 25 603 VFD 42/7HNURI ,18/0 /4003.JEERST/ FOR CURRENT FILE 25 604 VFD 42/7HNWORDS ,18/0 NR OF WORDS IN RECORD. NKLOPS 25 605 VFD 42/7HNWOR2 ,18/0 NR WORDS IN OUTP BUF(WRITE1) 25 606 VFD 42/7HS1ALOC ,18/0 LOC NEXT ALG FOR COMPAR .SCHUIF 25 607 VFD 42/7HS1VLOC ,18/0 LOC NEXT VECTOR FOR COMPAR.SCHUIF 25 608 VFD 42/7HS1XR4 ,18/0 PTR (BUF OUTP OVFL) FOR NEXT TERM 25 609 VFD 42/7HZN2IND ,18/0 NZ IF OUTPUT SPACE FULL 25 610 VFD 42/7HTUS ,18/0 25 611 VFD 42/7HTUS1 ,18/0 25 612 VFD 42/7HTUS2 ,18/0 LENGT OF EXPR IN RECORDS 25 613 VFD 42/7HTUS3 ,18/0 REC NR OF NAMELIST OF EXPR 25 614 VFD 42/7HBRAKCL ,18/0 REQ. TO PRINT ) AFTER ALG PART 25 615 VFD 42/7HBRAKOP ,18/0 REQ. TO PRINT ( BEFORE ALG PART 25 616 VFD 42/7HNFIRST ,18/0 FLAGS FIRST FACTOR IN TERM IN PRI 25 617 IUT2 BSS 0 25 618 USE * 25 619 USE /LUITA/ 25 620 * MAXIMUM 10 ARRAYS 25 621 IUTA0 VFD 60/IUTA2-IUTA1 ARRAYS IN OUTPUT COMMON 25 622 IUTA1 VFD 42/7HB ,18/B NR TO PRINT. IN DISPLAY CHARS 25 623 VFD 60/50 25 624 VFD 42/7HBUFX ,18/-508 OUTP BUF FOR OUTPUT OVERFLOW 25 625 VFD 60/16 25 626 VFD 42/7HIEP ,18/-750 BUFFER FOR GARBAGE COLLECTION 25 627 VFD 60/16 25 628 VFD 42/7HNS ,18/-64 VECTOR PART OF OUTPUT TERM 25 629 VFD 42/7HNP ,18/NP 25 630 VFD 42/7HNSA ,18/-64 ALGEBRA PART OF OUTPUT TERM 25 631 VFD 42/7HNA ,18/NA 25 632 VFD 42/7HBC1 ,18/-130 PRINT LINE. 1 CHAR/WORD 25 633 VFD 60/130 25 634 VFD 42/7HIT23 ,18/-512 * YEP OUTP BUFFER / INP BUF OVFL 25 635 VFD 60/16 TERMS / BUF FOR TAPE UPDATING 25 636 VFD 42/7HPARAM1 ,18/-3 VARS OF TAPEW. BUFFER,BUFLENGT 25 637 VFD 60/3 ADDR NEXT VECTOR,ALGEBRA 25 638 VFD 42/7HDCONT1 ,18/-4 PUNCH,PRINT,STORE FLAG FOR Z EXPR 25 639 VFD 60/4 (3)=OVERALL FLAG FOR OUTPUT 25 640 VFD 42/7HIGET ,18/-3 NUMERICAL COEF OF TERM 25 641 VFD 60/3 25 642 IUTA2 BSS 0 25 643 USE * 25 644 END 26 0 IDENT MESSA 26 1 USE /LAY41/ 26 2 IEROR BSS 25 26 3 ISAVE BSS 18 26 4 LAYNAM BSS 1 26 5 MS MACRO TEXT 26 6 + BSS 0 FORCE ALIGNMENT 26 7 HERE SET * ML=LENGTH OF MESSAGE IN WORDS 26 8 DATA L(TEXT( 26 9 DATA 0,0,0,0,0,0 ML ZERO WORDS TO PAD MESSAGE. 26 10 ORG HERE+6 HERE+ML 26 11 ENDM 26 12 E000 MS ( UNIMPLEMENTED MESSAGE ) 26 13 * MESSAGES 1 TO 20 GET AN ADDITIONAL WORD OF TEXT TRANSFERRED 26 14 * TO THE 4TH WORD OF THE MESSAGE TEXT. TEXT MUST BE BLANK FILLED. 26 15 E001 MS ( ILLEGAL SEPARATOR READ ) 26 16 E002 MS ( WRONG SEQUENCE OF SEPARATORS ) 26 17 E003 MS ( E003 ) 26 18 E004 MS ( EXPONENT NOT ALLOWED AFTER ) 26 19 E005 MS ( NAME IS LONGER THAN 5 CHARS ) 26 20 E006 MS ( PREVIOUSLY NOT COMPLEX ) 26 21 E007 MS ( TOO LONG FOR ADDING G ) 26 22 E008 MS ( DUPLICATE FILE NAME ) 26 23 E009 BSS 72 26 24 E021 MS ( SAME VARIABLE HAS DIFFERENT PROPERTIES IN COMMON EXPRS) 26 25 E022 MS ( MORE THAN 128 X AND D EXPRESSIONS) 26 26 E023 MS ( REARRANGEMENT ERROR DURING GARBAGE COLLECTION) 26 27 E024 MS ( ERROR DETECTED BY SCOPE.MIGHT BE DUE TO EARLIER ERROR) 26 28 E025 MS ( BRACKETS NOT BALANCED) 26 29 E026 MS ( SPACE FOR DOLOOP,BLOCK ARGMS FULL. TRY LESS KEEP,X,D EXPR) 26 30 E027 MS ( EXPONENT MUST BE NUMBER OR DUMMY) 26 31 E028 MS ( SUBEXPR TOO BIG TO BE STORED. TRY TO CUT INITIAL EXPR) 26 32 E029 MS ( EXPR IN BRACKETS MUST BE FOLLOWED BY OPERATOR +-*/) 26 33 E030 MS ( MORE THAN 40 SUBST LEVELS REQUIRED.TRY TO INSERT A *YEP) 26 34 E031 MS ( ERROR WHILE READING TAPE3.CHECK TAPE CARDS,BLOCK LIBRARY) 26 35 E032 MS ( INCONSISTENCY IN INTERNAL BLOCK LIST) 26 36 E033 MS ( ILLEGAL CHARACTER IN BLOCK,DOLOOP ARGUMENTS. ) 26 37 E034 MS ( NO SPACE FOR BLOCK,DO ARGMS.TRY TO USE LESS KEEP,X,D EXPR) 26 38 E035 MS ( BLOCK NOT FOUND ON TAPE3.CHECK BLOCK LIBRARY) 26 39 E036 MS ( DO CARD REQUIRES J=J1,J2 OR J=J1,J2,J3) 26 40 E037 MS ( SUPPOSEDLY NUMERICAL FUNCTION ARG HAS NON-NUMERIC FACTORS ) 26 41 E038 MS ( DELTA FUNCTION D MUST HAVE TWO ARGUMENTS ) 26 42 E039 MS ( INTERNAL ERROR WHILE COUNTING SPECIAL FUNCTIONS.INSERT) 26 43 E040 MS ( VECTOR COMPONENT MUST HAVE EXPON=1,UNLESS COMPON IS NR OR V) 26 44 E041 MS ( ZERO TO A NEGATIVE POWER IS IMPOSSIBLE) 26 45 E042 MS ( REFERENCE TO Z,X,D EXPR IN WRONG FORMAT OR CALLS ILLEG EXPR) 26 46 E043 MS ( INT.ERROR WHILE REPLACING FU ARGMS ACCORDING TO D FU) 26 47 E044 MS ( INCONSISTENCY WITH BUFFERING OF EXPR ON DISK) 26 48 E045 MS ( MORE THAN 40 SUBST LEVELS USED.CHECK RECURSION) 26 49 E046 MS ( EMPTY OR UNDEFINED EXPR ENCOUNTERED) 26 50 E047 MS ( EXPR IS A FU ARGM.MUST BE SUBSTITUTED BEFORE *YEP) 26 51 E048 MS ( WORKSPACE FULL.TRY LESS BLOCK ARGMS,KEEP,X,D,EXPR) 26 52 E049 MS ( UNKNOWN OPERATOR OR UNREPLACED DUMMY ENCOUNTERED) 26 53 E050 MS ( COMPONENT OF VECTOR OR ARGM OF D FU IS NOT A VECT,NR,INDEX) 26 54 E051 MS ( INSERT COUNT LIMIT.GENERATED BY NR ON N CARD) 26 55 E052 MS ( EXPONENT SHOULD EVALUATE TO A NUMBER) 26 56 E053 MS ( ERROR IN COMPLEX CONJUGATION) 26 57 E054 MS ( DD FUNCTION MUST HAVE 1 OR 2 ARGMS) 26 58 E055 MS ( 5TH ARGM OF DS FUNCTION IS NOT NUMERICAL) 26 59 E056 MS ( MORE THAN 256 DUMMIES OR PROBLEM WITH SKEY) 26 60 E057 MS ( ILLEGAL ARGM IN EPF OR G.MINUS IS ONLY ALLOWED OPERATOR) 26 61 E058 MS ( A NON-NUMERICAL EXPR OCCURS WHERE A NR IS REQUIRED) 26 62 E059 MS ( INDEX OF Z EXPRESSION IS NOT NUMERICAL) 26 63 E060 MS ( REFERENCE TO NONEXISTING Z EXPR.CHECK VALUE OF ITS INDEX) 26 64 E061 MS ( DD FUNCTION EXPECTS BOTH ITS ARGMS TO BE ALGEBRAIC SYMBOLS) 26 65 E062 MS ( NR GREATER THAN 128 USED AS FUNCTION ARGM) 26 66 E063 MS ( EXPR WITH NEGAT EXPON.CHECK IF EXPR SHOULD BE NUMERICAL) 26 67 E064 MS ( DUMMY FUNCTION MUST BE REPLACED BY FU,X,D,Z EXPR) 26 68 E065 MS ( D,DS,DX ILLEGAL AS REPLACEMENT FOR DUMMY FUNCTION) 26 69 E066 MS ( SYMBOL WITH VARIABLE DIMENSION NOT FOUND IN S LIST) 26 70 E067 MS ( 4TH ARGM OF DS FU MUST BE EXPR.TRY BRACKETS AROUND IT) 26 71 E068 MS ( UNIMPLEMENTED SUBSTITUTION OR COMMAND ENCOUNTERED) 26 72 E069 MS ( COMPO MUST NOT BE USED AT SAME LEVEL AS REORDERING OPERATOR) 26 73 E070 MS ( RESULT OF RATIO FILLS WORKSPACE.USE LESS KEEP,X,D EXPR) 26 74 E071 MS ( THE FUNCTION ON WHICH COMPO ACTS HAS AN ILLEGAL ARGUMENT) 26 75 E072 MS ( LEGAL FORMAT IS ID,ORDER,FU,NR,I1,I2,...) 26 76 E073 MS ( COUNT COMMAND LEADS TO WEIGHT GT 128.CANNOT BE FU ARGM) 26 77 E074 MS ( LEVEL ASSIGNMENT ERROR DURING TRICK,TRACE) 26 78 E075 MS ( ILLEGAL ARGM IN G,GI,G5,G6,G7 FUNCTION) 26 79 E076 MS ( INCONSISTENCY IN KAHANE ALGORITHM.TRICK,TRACE COMMAND) 26 80 E077 MS ( ERROR WHILE MATCHING A FU,OF WHICH ALL ARGMS ARE DUMMIES) 26 81 E078 MS ( ILLEGAL FACTOR IN LHS OF SUBSTITUTION) 26 82 E079 MS ( MORE THAN 5 FUNCTIONS IN LHS OF SUBSTITUTION) 26 83 E080 MS ( INCONSISTENCY WHILE MATCHING LHS OF SUBSTITUTION) 26 84 E081 MS ( RATIO COMMAND REQUIRES 3 PARAMETERS) 26 85 E082 MS ( INVALID PARAMETER IN NUMER COMMAND) 26 86 E083 MS ( 2ND PARAMETER OF IFEQU,IFSMA,IFGRE IS NOT ALGEBRAIC SYMBOL) 26 87 E084 MS ( EXPAND COMMAND CONTAINS UNKNOWN OR UNDEFINED EXPR) 26 88 E085 MS ( WRONG FORMAT OF DF ARGMS SEEN DURING EXPAND) 26 89 E086 MS ( PARAMETERS OF COMPO COMMAND MUST BE FUNCTIONS) 26 90 E087 MS ( COMPO.NR OF ARGMS BEFORE FIRST * MUST EQUAL NR OF STARS) 26 91 E088 MS ( TAPE3 ERROR. MAYBE DUE TO PREVIOUS ERROR ) 26 92 E089 MS ( COMPOSED NAME HAS MORE THAN 5 CHARACTERS) 26 93 E090 MS ( THE TYPE OF THE FIRST PARAMETER ON COUNT COMMAND IS ILLEGAL) 26 94 E091 MS ( MULTIPLICATION OF MORE THAN 256 EXPRS IS IMPOSSIBLE) 26 95 E092 MS ( UNKNOWN ERROR IN ANNEKE) 26 96 E093 MS ( PROGRAM ERROR 1001.TRACING VIA VECT P , N MU , *P OF MU) 26 97 E094 MS ( TOO MANY FACTORS IN TERM) 26 98 E095 MS ( EPF HAS ILLEGAL ARGM OR ITS NR OF ARGMS IS INCONSISTENT 26 99 E096 MS ( ALGEBRAIC SYMBOL HAS NON-NUMERIC EXPONENT. ) 26 100 E097 MS ( SPECIAL FUNCTION, BUT NOT DD, WITH DVECT AS ARG ) 26 101 E098 MS ( CONFUSION OVER POSSIBILITY OF FILE FITTING IN MEMORY. ) 26 102 E099 MS ( DUMMY WITHOUT SPECIFIED REPLACEMENT. ) 26 103 E100 MS ( PDQ**-N ENCOUNTERED. CANNOT DO P=Z. ) 26 104 E101 MS ( TERMS LOST DURING *YEP DISK TRANSFER . INTERNAL ERROR) 26 105 E102 MS ( FROZEN SUBFILE MISSING) 26 106 E103 MS ( END OF FILE READ OR ERRORS IN DISK READING) 26 107 E104 MS ( INCONSISTENCY IN NUMBERING OF RECORDS OF DISK FILE) 26 108 E105 MS ( ILLEGAL CHARACTER IN NUMBER) 26 109 E106 MS ( RANGE OF DOLOOP INDEX IS UNDEFINED) 26 110 E107 MS ( DOLOOP USES TOO MUCH SPACE. TRY TO USE A BLOCK INSIDE) 26 111 E108 MS ( INPUT SPACE IS FULL WITH EXPRS.TRY TO SPLIT UP WITH *YEP) 26 112 E109 MS ( MORE THAN 128 EXPRS IN BRACKETS OR INTERN ERR IN DOLLAR NR) 26 113 E110 MS ( ILLEGAL CHARACTER IN NAME OR IN NUMBER) 26 114 E111 MS ( VECTOR ARGM IS NOT A SIMPLE INDEX OR NR.CHECK NAMELISTS) 26 115 E112 MS ( EXPECTED CLOSING BRACKET OR = SIGN NOT FOUND) 26 116 E113 MS ( INPUT FULL WITH KEEP EXPRS,DOLOOPS,*FIXED EXPRS,ETC.) 26 117 E114 MS ( MORE THAN 32 VECTORS USED.TRY TO SPLIT UP WITH *BEGIN) 26 118 E115 MS ( TERM IN R INPUT HAS TOO MANY FACTORS) 26 119 E116 MS ( ONLY FROZEN EXPRS CAN BE EXPANDED.CHECK NAMELISTS) 26 120 E117 MS ( ERROR IN ANALYSIS OF FU ARGMS.INTERNAL ERROR) 26 121 E118 MS ( ONLY NONINDEXED,COMMON EXPRS CAN BE FROZEN.CHECK NAMELISTS) 26 122 E119 MS ( MORE THAN 35 Z EXPR NAMES + Z EXPR ARGUMENTS) 26 123 E120 MS ( COMMON EXPR CANNOT BE INDEXED AND NONINDEXED AT SAME TIME) 26 124 E121 MS ( NAME OF X OR D EXPR EXISTS ALREADY AS NAME OF Z EXPR) 26 125 E122 MS ( COPY,BLOCK,DO CARDS ARE ILLEGAL INSIDE BLOCK DEFINITION) 26 126 E123 MS ( MORE THAN 256 INDICES+ CREATED INDICES.TRY TO INSERT *BEGIN) 26 127 E124 MS ( PROCESSING OF CURRENT COMMON EXPR REQUIRES NAMES CARD) 26 128 E125 MS ( NAME OF X OR D EXPR NOT FOLLOWED BY = OR OPENING BRACKET) 26 129 E126 MS ( ARGUMENTS OF X OR D EXPR NOT PROPERLY SEPARATED) 26 130 E127 MS ( ARGUMENT LIST OF X OR D EXPR NOT FOLLOWED BY = SIGN) 26 131 E128 MS ( LHS OF SUBSTS TAKE TOO MUCH SPACE.TRY TO INSERT A *YEP) 26 132 E129 MS ( TOTAL NR OF X,D,Z,ID,AL... + SUBEXPRESS GREATER THAN 256) 26 133 E130 MS ( MORE THAN 4096 FROZEN SUBFILES USED) 26 134 E131 MS ( NO SPACE FOR R INPUT ROUTINE.TRY LESS KEEP EXPRS,DO LOOP) 26 135 E132 MS ( TOO MANY BLOCKS FOR UPDATING TAPE3) 26 136 E133 MS ( MORE THAN 40 SUBSTITUTION LEVELS REQUIRED) 26 137 E134 MS ( DOLOOP OR BLOCK ARGMS FILL INPUT SPACE.TRY LESS KEEP,X,D EX) 26 138 E135 MS ( R INPUT MUST BE FOLLOWED BY * YEP) 26 139 E136 MS ( VECTORS ON B CARD MUST BE FOLLOWED BY A NR IN BRACKETS) 26 140 E137 MS ( REMAINING OUTPUT SPACE TOO SMALL OR ARGM IS NOT A NR) 26 141 E138 MS ( D EXPR REQUIRES PURELY MULTIPLICATIVE COMPONENTS) 26 142 E139 MS ( BLOCK NAME MUST BE FOLLOWED BY BRACKETS AT DEFINITION) 26 143 E140 MS ( INTERNAL ERROR WHILE MOVING DOLOOP OR BLOCK ARGMS) 26 144 E141 MS ( CHARACTER ARGMS MUST BE = SIGN FOLLOWED BY 1 LETTER) 26 145 E142 MS ( FIRST ARGM OF DS FUNCTION MUST NOT BE NEGATIVE) 26 146 E143 MS ( FIRST ARGM OF DS FUNCTION MUST NOT BE AN EXISTING DUMMY) 26 147 E144 MS ( UNEXPECTED CONTINUATION CARD) 26 148 E145 MS ( INDEX OF Z EXPR USES BRACKETS OR UNDEFINED OPERATORS) 26 149 E146 MS ( NAME OF Z OR R EXPR NOT FOLLOWED BY = SIGN AND RHS) 26 150 E147 MS ( THE NR ON THE LEVEL ASSIGNMENT NEEDS COMMA ON SAME CARD) 26 151 E148 MS ( MORE THAN 128 EXPRS IN BRACKETS.TRY TO INSERT *YEP.) 26 152 E149 MS ( CONJG OR INTEG MUST BE FOLLOWED BY EXPR IN BRACKETS) 26 153 E150 MS ( EXPONENT MUST BE NR OR DUMMY) 26 154 E151 MS ( VECTOR ARGM SHOULD BE DUMMY,VECTOR,NR,INDEX.CHECK NAMELISTS) 26 155 E152 MS ( DS FUNCTION REQUIRES 4 OR 5 ARGUMENTS) 26 156 E153 MS ( ONLY INDICES CAN HAVE A NUMERICAL DIMENSION) 26 157 E154 MS ( OLDNEW FORMAT IS VAR1=VAR2 . VAR1 MUST BE IN V,I,S,F LIST) 26 158 E155 MS ( EACH VARIABLE IN NUMER COMMAND MUST BE FOLLOWED BY 1 NR) 26 159 E156 MS ( DOTPRODUCT IN LHS OF SUBST CANNOT CONTAIN A DUMMY VECTOR) 26 160 E157 MS ( EXPR IN BRACKETS MUST BE DELIMITED BY OPERATOR */+-) 26 161 E158 MS ( SECOND ARGM OF DF FUNCTION MUST BE NUMBER OR DUMMY) 26 162 E159 MS ( KEYWORD OF SUBSTITUTION NOT TERMINATED BY COMMA) 26 163 E160 MS ( LHS OF SUBST CAN CONTAIN A NR ONLY AS EXPON OR FU ARGM) 26 164 E161 MS ( VECTOR COMPONENT AS FU ARGM NEEDS NUMERICAL INDEX) 26 165 E162 MS ( BEGIN OF RHS OF SUBSTITUTION CANNOT BE DETERMINED) 26 166 E163 MS ( UNKNOWN ERROR IN SCHOON) 26 167 E164 MS ( YOU DID IT ) 26 168 E165 MS ( DD FUNCTION REQUIRES 1 OR 2 ARGMS) 26 169 E166 MS ( WORKSPACE FULL DURING NUMERICAL EVAL.TRY LESS KEEP,X,D EXPR) 26 170 E167 MS ( COMPONENT OF D EXPR. NOT FOUND, OR WRONG DUMMY USE. ) 26 171 E168 MS ( DIVISION BY ZERO DURING NUMERICAL EVALUATION) 26 172 E169 MS ( NUMERICAL EVALUATION ROUTINE REQUIRES EXPR AS ARGM) 26 173 E170 MS ( NUMERICAL EVAL OF FU ARGM LEADS TO NR GREATER THAN 128) 26 174 E171 MS ( TERMS OF OUTPUT OVERFLOW LOST DURING DISK TRANSFER) 26 175 E172 MS ( LOCATION OF DOLOOP,BLOCK ARGMS LOST OVER * CARD) 26 176 E173 MS ( ERROR WHILE COPYING KEEP EXPR FROM OUTPUT TO INPUT SPACE) 26 177 E174 MS ( TOO MANY,ILLEGAL QUANT IN ARGM/NAMELIST OF KEEP/COMMON EXPR) 26 178 E175 MS ( INCONSISTENCY.A DUMMY MUST NEVER APPEAR IN THE OUTPUT) 26 179 E176 MS ( TAPE OPERATIONS EXCLUDED AFTER ERROR. ERROR EXIT FORCED ) 26 180 E177 MS ( INCONSISTENCY IN ARGMS OF DS FUNCTION) 26 181 E178 MS ( NON-NUMERICAL FU SEEN DURING NUMERICAL EVALUATION) 26 182 E179 MS ( DB FUNCTION REQUIRES 2 ARGMS) 26 183 E180 MS ( DK FUNCTION REQUIRES 2 ARGMS) 26 184 E181 MS ( NUMERICAL EVALUATION OF DD FU LEADS TO DIVISION BY ZERO) 26 185 E182 MS ( NULL SYMBOL FOUND ) 26 186 E183 MS ( NO = SIGN ALLOWED HERE ) 26 187 E184 MS ( ARG. NR. EXCEEDS LIST IN FUNCTION ) 26 188 E185 MS ( OVERFLOW. TOO MANY FUNCTION ARGUMENTS ) 26 189 E186 MS ( INTERFERING SUBSTITUTION ON SAME LEVEL ) 26 190 E187 MS ( CHARACTERLESS SYMBOL ) 26 191 E188 MS ( ILLEGAL CHARACTER IN [] OR MISSING ] ) 26 192 E189 MS ( ILLEGAL TABLE LIST ) 26 193 E190 MS ( X-EXPR. FOLLOWED BY BRACKET. EXPECT TABLE EXPR. ) 26 194 E191 MS ( FAILING TABLE LOOK-UP ) 26 195 E192 MS ( TABLE INDEX EXCEEDS TABLE SIZE ) 26 196 E193 MS ( DC REQUIRES NUM. ARGS. DC=1 IF SUM ARGS =0, ELSE 1. ) 26 197 E194 MS ( TABLE WITH TABLE IN LIST NEEDS AT LEAST TWO ARGS ) 26 198 USE * 26 199 END 27 0 IDENT LISTV 27 1 ENTRY LISTV 27 2 MACRO *EXPAND 27 3 MACRO *EXPRNR 27 4 TEX DIS 5,0SYMBOLS 0INDICES 0VECTORS 0FUNCTIONS0EXPR. 27 5 DIS 3,0BRACKETS 0CONFUSED 27 6 TTT DIS 1,TAPE START 27 7 LOCALZ MCOF,20,NCONF,ILK,TYPE,NR,TOP,CONTIN,NAME1 27 8 LOCALZ NAME2,NAME3,TERMIN 27 9 EXT NUTRA0,LIJN,NUM1 27 10 DATA 13111206202500000001B 27 11 LISTV BSS 1 27 12 SA4 NCONT $ SA5 NCONT+3 CHECK IF TAPE WRITING REQUIRED 27 13 + MX6 0 $ ZR X4,*+1 $ SX6 X4 27 14 + ZR X5,*+1 $ SX6 X5 $ NO 27 15 + SA6 ILK $ RJ INNAM INVENT NAMES FOR CREATED INDICES 27 16 SB7 5 $ MX0 30 $ MX6 0 27 17 SB3 1 $ SA6 NCONF 27 18 VEOUTL SA1 B3+LISTS-1 $ SA2 X1 $ AX1 30 LOOK FOR CONFUSED QUANT 27 19 SB1 B0 $ SA1 X1-1 $ SB2 X2 27 20 ZR X2,READ9+2 $ NO $ NO 27 21 SUOUTL SA1 A1+1 $ SB4 B3+1 $ BX1 X0*X1 27 22 OUTERL SA3 B4+LISTS-1 $ SA4 X3 $ AX3 30 27 23 SB5 B0 $ SB6 X4 $ SA3 X3-1 27 24 INNERL SA3 A3+1 $ BX7 X0*X3 $ IX6 X1-X7 27 25 SB5 B5+1 $ LT B6,B5,READ9 27 26 NZ X6,INNERL $ SA4 NCONF 27 27 SX6 X4+1 $ BX7 X1 $ SA6 A4 27 28 SA7 X4+MCOF $ SX5 X6-20 27 29 PL X5,GENOEG $ ZR B0,INNERL 27 30 READ9 SB4 B4+1 $ GE B7,B4,OUTERL 27 31 SB1 B1+1 $ LT B1,B2,SUOUTL 27 32 SB3 B3+1 $ LT B3,B7,VEOUTL 27 33 GENOEG MX7 0 $ NO $ SA7 TYPE PRINT NAMELISTS 27 34 LOOP1 SB6 1 $ SA1 TYPE TYPE DEFINES WHICH LIST OF WAT3 27 35 SX7 X1+B6 $ SA7 A1 $ SX1 X7-8 27 36 PL X1,DONE1 $ SA2 X7+LISTS-1 27 37 SA3 X2 $ BX6 X3 $ SA6 TOP 27 38 LX2 12 $ MX0 54 $ SX7 B0 $ BX6 -X0*X2 27 39 SA6 NR $ IX2 X3-X6 $ NO NR IS BEGIN OF LIST 27 40 NG X2,LOOP1 $ SA7 CONTIN JP IF EMPTY LIST 27 41 LOOP2 SA4 IBUF+4 $ MX0 30 $ SX6 B6+B6 INITIALIZE PRINTLINE 27 42 BX7 X0*X4 $ NO $ SA7 IBUF+6 27 43 SA6 IBUF+3 $ RJ NAMLIST 27 44 SA3 CONTIN $ NZ X3,TWEE JP IF NAME OF LIST NOT NEEDED 27 45 SX7 B6 $ MX6 0 $ SA7 CONTIN 27 46 SA1 TYPE $ SA4 NTAP2 27 47 SA3 ISPLAY $ SA2 X1+TEX-1 NAME OF LIST IN IBUF+5 27 48 BX7 X4 $ SA7 IBUF $ BX7 X2 27 49 NZ X3,ISPL1 $ SA7 IBUF+5 27 50 SA6 IBUF+2 $ ZR B0,PUNCH1 PRINT FROM IBUF+5 27 51 ISPL1 MX0 6 $ SX1 55B $ LX0 54 1 LETTER OF NAME OF LIST 27 52 LX1 54 $ BX3 X0*X2 $ SX6 B6 $ BX4 X1+X3 27 53 SA1 IBUF+6 $ SA6 IBUF+2 PRINT FROM IBUF+6 27 54 MX0 12 $ BX3 -X0*X1 $ BX7 X3+X4 $ SA7 A1 27 55 PUNCH1 RJ LIJN 27 56 + SA2 ILK $ ZR X2,HULP3 27 57 SA1 TYPE $ SX7 5 EXPR,CONFUSED,BRACKETS NOT ON TAPE3 27 58 IX2 X1-X7 $ MX0 6 $ PL X2,HULP3 27 59 SX6 1 $ SA2 X1+TEX-1 27 60 SA6 IBUF+2 $ SA1 IBUF+6 27 61 LX0 54 $ BX3 X0*X2 $ SX4 55B 27 62 LX3 6 $ LX4 48 $ MX0 12 $ BX5 X3+X4 27 63 SA2 NCONT $ BX3 -X0*X1 $ BX7 X3+X5 27 64 + NO $ SA7 A1 $ ZR X2,*+3 27 65 + SA1 NTAP8 $ BX7 X1 $ NO 27 66 + SA7 IBUF $ RJ LIJN 27 67 + SA2 NCONT+3 $ ZR X2,HULP3 27 68 SA4 NTAP3 $ BX7 X4 $ NO 27 69 SA7 IBUF $ RJ LIJN 27 70 ZR B0,HULP3 27 71 TWEE SA1 ISPLAY $ NZ X1,*+4 27 72 + SA2 IBUF+4 $ MX6 0 $ BX7 X2 27 73 + SA7 IBUF+5 $ SA6 IBUF+2 27 74 + ZR B0,*+2 27 75 + SX7 1 $ SA7 IBUF+2 27 76 + SA4 NTAP2 $ BX6 X4 $ NO 27 77 SA6 IBUF $ RJ LIJN 27 78 SA1 ILK $ ZR X1,HULP3 27 79 SA1 TYPE $ SX7 5 27 80 IX2 X1-X7 $ PL X2,HULP3 27 81 SX6 1 $ SA2 NCONT 27 82 + SA6 IBUF+2 $ ZR X2,*+3 27 83 + SA4 NTAP8 $ BX7 X4 $ NO 27 84 + SA7 IBUF $ RJ LIJN 27 85 + SA2 NCONT+3 $ ZR X2,HULP3 27 86 SA4 NTAP3 $ BX6 X4 $ NO 27 87 SA6 IBUF $ RJ LIJN 27 88 + ZR B0,HULP3 27 89 HULP3 SA1 NR $ SA2 TOP 27 90 SB6 1 $ IX5 X2-X1 $ NO 27 91 PL X5,LOOP2 $ ZR B0,LOOP1 27 92 DONE1 SA5 NCONT+3 $ ZR X5,EXI1 27 93 SA1 NTAP3 $ MX6 0 $ BX7 X1 27 94 SA2 TTT $ SA7 IBUF TAPE START 27 95 SA6 IBUF+2 $ SX7 1 27 96 BX6 X2 $ NO $ SA7 IBUF+3 27 97 SA6 IBUF+5 $ RJ LIJN 27 98 EXI1 SA1 NVIND $ SX2 200000B 27 99 MX0 30 $ SB1 X1 $ SB6 1 27 100 KIJ1 SA1 B1+NVIGEH-1 $ BX3 X2*X1 $ SB1 B1-B6 CLEAR NAMES OF 27 101 NG B1,LISTV $ ZR X3,KIJ1 CREATED INDICES 27 102 BX6 -X0*X1 $ SA6 A1 $ ZR B0,KIJ1 27 103 * 27 104 * BEGIN ARRAY TOP OF LISTS TO PRINT 27 105 LISTS VFD 12/1,18/NAGEH,12/0,18/NALGE 27 106 VFD 12/2,18/NVIGEH,12/0,18/NVIND 27 107 VFD 12/2,18/NVGEH,12/0,18/NVECT 27 108 VFD 12/1,18/NFGEH,12/0,18/NFUN 27 109 VFD 12/3,18/NXGEH,12/0,18/NXEX 27 110 VFD 12/1,18/MBR,12/0,18/NBR 27 111 VFD 12/1,18/MCOF,12/0,18/NCONF 27 112 * 27 113 * NAME1 IS NAME OF THE VARIABLE. NAME2 IS 0 OR =DIM OR =LEVEL OR 27 114 * =REALP OR (INDEX . NAME3 IS 0 OR ) . TERMIN IS , OR . 27 115 * THESE 4 QUANTS JOINED TOGETHER ARE THE ENTRY IN THE PRINTLINE. 27 116 NAMLIST BSS 1 27 117 NEXT1 MX6 0 $ NO $ SA1 TYPE TAKE NEXT ELEMENT OF LIST 27 118 SA6 NAME2 $ SA5 NR 27 119 SA6 NAME3 $ SX0 X1-6 27 120 SA2 X1+LISTS-1 $ AX2 30 $ IX3 X2+X5 27 121 + SA4 X3-1 $ NZ X0,*+3 27 122 + MX0 48 $ BX7 X0*X4 $ SA7 NAME1 BRACKETS 27 123 + ZR B0,NEXT2 27 124 + MX0 30 $ BX7 X0*X4 $ SA7 NAME1 27 125 SX0 X1-5 $ NZ X0,N2 27 126 MX0 12 $ LX0 30 $ BX2 X0*X4 $ LX4 42 EXPR. 27 127 AX2 18 $ NG X4,N4 $ NO 27 128 SX6 EQ0 $ AX2 6 $ MX7 0 X,D EXPR = LEVEL 27 129 ZR B0,N5 27 130 N4 LX4 2 $ NG X4,N6 $ LX4 5 JP IF FROZEN FILE 27 131 NG X4,NEXT2 $ MX0 52 $ LX4 11 JP IF NOT INDEXED 27 132 BX4 -X0*X4 $ NO $ ZR X4,NEXT2 UNUSED COMMON FILE 27 133 LX2 48 $ NO $ AX2 48 $ NO SIGN EXTENSION 27 134 N6 SX6 BO0 $ SX7 BC0 INDEXED OR FROZEN FILE 27 135 N5 LX6 54 $ LX7 54 $ SA6 NAME2 27 136 SA7 NAME3 $ NO $ NO 27 137 CONVERT MX5 0 $ RJ NUM1 27 138 SA3 NAME2 $ LX5 54 $ BX7 X3+X5 27 139 SA7 A3 $ ZR B0,NEXT2 27 140 N2 SX0 X1-3 $ ZR X0,*+2 JP IF V, FOR CASE P=Z. 27 141 + SX0 X1-2 $ NZ X0,N3 27 142 MX0 55 $ BX2 -X0*X4 $ SX4 X2-16B INDEX 27 143 ZR X2,NEXT2 $ SX7 EQ0 NO DIM PRESENT 27 144 + NG X4,*+3 $ LX7 6 $ BX7 X7+X2 27 145 + LX7 48 $ NO $ SA7 NAME2 DIMEN=LETTER 27 146 + ZR B0,NEXT2 27 147 + LX7 54 $ NO $ SA7 NAME2 DIMEN=NR 27 148 ZR B0,CONVERT 27 149 N2A MX0 55 $ SX7 EQ0 $ AX4 8 CASE S A=7 27 150 BX2 -X0*X4 $ LX7 54 $ ZR X2,NEXT2 27 151 SA7 NAME2 $ ZR B0,CONVERT 27 152 N3 MX0 54 $ BX7 -X0*X4 $ ZR X7,N2A V,F,S WITH REALPROPS 27 153 SX5 EQ0 $ LX5 6 $ BX7 X7+X5 27 154 LX7 48 $ NO $ SA7 NAME2 27 155 NEXT2 SA1 TOP $ SA2 NR IS THIS THE END OF THE LIST... 27 156 IX3 X2-X1 $ NO $ SX7 5700B . 27 157 + PL X3,*+1 $ SX7 5655B , 27 158 + LX7 48 $ SA1 IBUF+3 $ MX0 6 27 159 SA7 TERMIN $ SA2 NAME1 27 160 SA3 X1+IBUF+4 $ RJ JOIN 27 161 SA2 NAME2 $ RJ JOIN 27 162 SA2 NAME3 $ RJ JOIN 27 163 SA2 TERMIN $ RJ JOIN 27 164 SA1 NR $ SA2 TOP IS THERE SPACE IN IBUF FOR 1 MORE NAME. 27 165 SX7 X1+B6 $ IX3 X1-X2 $ SA7 A1 $ NO 27 166 PL X3,NAMLIST $ SA1 IBUF+3 27 167 SX1 X1-8 $ NG X1,NEXT1 27 168 ZR B0,NAMLIST 27 169 * ADD THE NON-ZERO CHARS OF X2 ONTO PRINTLINE. 27 170 JOIN BSS 1 (X1,X2,X3) A1,A3 27 171 MX0 54 $ NO $ BX2 X0*X2 $ BX4 -X0*X3 27 172 + ZR X4,*+2 $ NO $ NO 27 173 FULL SA3 A3+B6 $ SX7 X1+B6 $ MX3 0 $ SA7 A1 TAKE NEW WORD IN IBUF 27 174 + SB2 60 $ MX0 6 $ NO 27 175 + BX4 X0*X3 $ ZR X4,JOIN1 $ LX0 54 27 176 + SB2 B2-6 $ ZR B0,*-1 27 177 JOIN1 MX0 6 $ BX4 X0*X2 $ ZR X4,END 27 178 LX4 X4,B2 $ BX3 X3+X4 $ SB2 B2-6 27 179 LX2 6 $ NZ B2,JOIN1 $ BX7 X3 27 180 SA7 A3 $ ZR B0,FULL 27 181 END BX7 X3 $ SA7 A3 $ ZR B0,JOIN 27 182 MACRO *INNAM 27 183 END 28 0 OVERLAY (SCHIP,2,0) 28 1 PROGRAM EXEC 28 2 C LAY2(1)=0 CALL GLADYS. 28 3 C LAY2(1)=1,-1 CALL REPEAT AFTER * YEP, R INPUT . 28 4 CALL EXEC1 28 5 END 29 0 SUBROUTINE BRIAN(X,Y,N) 29 1 DOUBLE X,Y 29 2 N=N+0 29 3 X=X*Y**N 29 4 RETURN 29 5 END 30 0 SUBROUTINE EXTRA(I,A,R) 30 1 DIMENSION I(10),A(5) 30 2 DOUBLE A,R,A1 30 3 IF(I(1)) 1,2,3 30 4 3 R=1. 30 5 I2=I(2) 30 6 DO 4 I1=1,I2 30 7 A1=I1 30 8 4 R=R*A1 30 9 2 RETURN 30 10 1 R=A(1)**I(2) 30 11 RETURN 30 12 END 31 0 IDENT GLADYS 31 1 ENTRY GLADYS,EXEC1,HELENE 31 2 MACRO *EXPAND 31 3 MACRO *EXPRNR 31 4 MACRO *EXEC 31 5 IDGEHX EQU IIDGEHX * YEP INPUT BUF, 2 INPUT BUF FOR FILES 31 6 EXT FOUT,BOEK1,BOEK2,INSER1,INSER2,ANNEKE,MARTYN1 31 7 EXT TAKMAN,SCHUI2,TAXMAN 31 8 EXEC2 VFD 24/4HEXEC,36/2 31 9 EXEC1 BSS 1 31 10 + SX7 *-1 $ SA1 EXEC2 31 11 SX6 EXECCOM $ SA7 LAYNR 31 12 SA6 COMADR $ BX7 X1 $ MX6 0 31 13 SA7 LAYNAM $ SA6 MNEPS 31 14 SB1 35 $ SA6 BBUFX DELETE CONTENT OF BUFFERS 31 15 SB6 1 $ SA6 IIDGEHX 31 16 + SA6 B1+VOLUM $ SB1 B1-B6 $ NO 31 17 + GE B1,B0,*-1 $ NO $ NO 31 18 SX6 BBUFX-11 $ SA6 NDIMU 31 19 SB1 EXECCOM $ SA0 EX3 31 20 SB2 EXECCO1 $ MX6 0 $ BX7 -X7*X7 31 21 + SA6 B1 $ SA7 B1+B6 $ SB1 B1+2 31 22 + LT B1,B2,*-1 $ ZR B0,BOEK2 INITIALIZE 31 23 EX3 SA1 LAY2 $ ZR X1,*+3 31 24 + RJ REPEAT 31 25 + ZR B0,*+2 31 26 + RJ GLADYS 31 27 + SA1 NTEMA $ ZR X1,EXEC1 31 28 MX0 59 $ IX6 X1+X0 $ NO $ SA6 A1 31 29 RJ SCHUI2 EMPTIES OUTPUT OVERFLOW BUFFER 31 30 + ZR B0,EXEC1 31 31 GLADYS BSS 1 31 32 SX4 A0 $ MX7 42 $ SA2 GLADYS A0 BUSSINES 31 33 BX7 -X7*X4 $ SX5 5100B $ AX2 30 31 34 SB1 1 $ LX5 18 $ BX7 X7+X5 31 35 LX7 30 $ BX6 X2+X7 $ SA6 GLADYS 31 36 SX6 B1 $ MX7 0 $ SA7 MARKER 31 37 SA1 KKUIT $ SA6 A37JO 31 38 ZR X1,GLADYS $ SA2 MBE 31 39 SA1 MBU $ BX7 X2 $ BX6 X1 31 40 SA7 MBEWW $ SA6 MBUWW 31 41 A32Q1 SA2 A37JO $ SA3 NFFO 31 42 IX3 X2+X3 $ SX7 1 $ IX4 X3-X7 31 43 MX0 30 $ SA1 X4 $ SA3 NQX 31 44 BX6 X0*X1 $ SX4 FLOP $ LX6 30 31 45 SA7 NAANT $ SA6 MBUW 31 46 BX7 -X0*X1 $ SB7 B0 $ SA7 NASFF 31 47 LX3 18 $ SX6 B0 $ BX7 X3+X4 $ MX1 0 NAANT=NR OF EXP IN BL 31 48 SA6 LEVEL $ SA7 RETUR1 START WITH LEVEL 0 31 49 SX6 50 $ SA6 LEVBUF1 31 50 SA6 LEVBUF2 $ ZR B0,HUP4 31 51 FLOP SA1 A37JO $ SA2 KKUIT START NEW Z EXPRESS 31 52 SA3 MBEWW $ SA4 MBUWW 31 53 BX6 X3 $ LX7 B0,X4 $ SA6 MBE 31 54 SA7 MBU $ SB2 X1+1 31 55 SB3 X2 $ SX6 B2 $ SA6 A37JO 31 56 GE B3,B2,A32Q1 $ ZR B0,GLADYS 31 57 DATA 10051405160500000000B 31 58 HELENE SA4 NQX $ SA2 LEVEL 31 59 SA1 NQB $ SA3 MBE 31 60 LX4 18 $ SX6 A0 $ LX7 B0,X3 $ BX6 X4+X6 SEE BELOW FOR RETUR 31 61 SA7 MBE11 $ SA6 X2+RETUR1+1 31 62 SX7 X2+1 $ SA7 A2 $ SB7 X7 X1=NQB=ARG OF INSER2 31 63 + ZR X1,*+3 $ RJ INSER2 TREAT SPECIAL FUNCTIONS 31 64 + SA2 IGET+1 $ SA1 LEVEL 31 65 + SB7 X1 $ ZR X2,HUP8B 31 66 SA2 NDOTI $ SB6 1 31 67 ZR X2,HE1 $ SB2 B6+B6 $ MX0 55 31 68 SA3 ISCAL $ MX7 48 $ SB1 X2 X7=-7777B 31 69 HE2 BX6 X3+X7 $ AX3 5 $ BX5 -X0*X3 $ AX3 5 31 70 BX4 -X0*X6 $ SB3 X3 $ LT B3,B2,HE5 JP IF NOT DTP, VEC-NR 31 71 EQ B3,B2,HE4 $ ZR X6,IFOD1 JP IF VEC-NR 31 72 SA4 X4+NVGEH-1 $ BX3 -X0*X4 TEST FOR P=Z 31 73 SX6 X3-ZZ0 $ NZ X6,HE4 31 74 HE3 SA5 A3+B6 $ NO $ ZR X5,HE4 31 75 SA6 IGET+1 $ PL X5,HUP8B 31 76 GFOA1 ERROR 100 PDQ**-N WITH P OR Q=Z 31 77 IFOD1 ERROR 99 DUMMY OUT OF RANGE 31 78 HE4 SA4 X5+NVGEH-1 $ BX3 -X0*X4 31 79 SX6 X3-ZZ0 $ ZR X6,HE3 31 80 HE5 SB1 B1-B2 $ SA3 A3+B2 $ LT B0,B1,HE2 31 81 HE1 SA3 MAXID $ SA2 MARKER 31 82 SA5 B7+NID $ SB5 X3 $ BX2 X5+X2 IF MARKER=0, AND ABOVE 31 83 LT B7,B5,HUP1 $ SX6 EIND1 MAX. SUBST. LEVEL, 31 84 SB5 40 $ ZR X2,BOEK1 CALL BOEKH 31 85 LT B7,B5,HUP3 $ ZR B0,GFO1 31 86 HUP1 NZ X2,HUP3 IF NO SUBST. PERFORMED, 31 87 HUP2 SA0 EIND1 $ ZR B0,HELENE GO ON TO NEXT LEVEL 31 88 HUP3 ZR X5,HUP8B $ SA1 LEVEL 31 89 SA0 HUP8B $ ZR B0,MARTYN1 31 90 HUP8B SA1 LEVEL $ SA3 MBE11 31 91 SB7 X1 $ LX3 18 $ SA2 IGET+1 31 92 SA4 MBU $ BX7 X4+X3 $ MX6 0 31 93 SA7 B7+MBUW $ NO 31 94 SA0 EIND1 $ SA3 MARKER SUBSTITUTIONS TO BE DONE IF N 31 95 ZR X2,BOEK2 $ SA6 B7+NAANT NON ZERO 31 96 ZR X3,HUP2 $ RJ ANNEKE NAANT(LEVEL)=NUMBER OF 31 97 SA1 LEVEL $ SA2 X1+MBUW 31 98 MX0 52 $ BX6 -X0*X2 $ SA6 MBU 31 99 SA1 LEVEL $ SB7 X1 31 100 HUP4 SA3 B7+NAANT $ SA2 B7+MBUW EXPRESSIONS TO BE MULTIPLIED. 31 101 SA4 MBE $ ZR X3,HUP2 31 102 SB6 1 $ SB1 X4+IT-1 NEW MBE = OLD + (NR+1)/2 31 103 SX5 X3+B6 $ AX5 1 $ IX6 X5+X4 $ LX4 36 31 104 SA6 A4 $ BX7 X4+X2 $ SA7 A2 $ SB2 X3 31 105 SA4 X2+LOC-1 $ MX0 43 $ BX6 -X6*X6 31 106 AAP2 BX7 -X0*X4 $ LX4 41 $ ZR X7,GFO2 LOOP TO SET UP ADMIN WORDS 31 107 SB2 B2-B6 $ NG X4,FIL1 $ BX5 X7+X6 JP IF FILE 31 108 MX0 45 $ BX0 X0*X7 $ NZ X0,GFO1 TEST ON ADRES LT 15 BITS 31 109 A2AP SA4 A4+B6 $ MX0 43 $ ZR X6,AAP2P MULTPL POINTS.4ADR/WORD 31 110 BX6 X5 $ LX5 15 $ BX6 X6+X5 $ SA6 B1 31 111 MX5 0 $ SB1 B1+B6 ALTERNATE FIRST/LAST HALF WORD 31 112 AAP2P LX5 30 $ BX6 X5 $ LT B0,B2,AAP2 31 113 SA1 LEVEL $ SA2 MBE 31 114 SA3 X1+RETUR1 $ SB7 X1 $ LX2 36 31 115 BX7 X2+X3 $ SA7 A3 $ ZR X6,APA7 STORE LEFTOVER HALFWORD 31 116 BX5 X6 $ LX5 15 $ BX6 X6+X5 $ SA6 B1 IF NR OF EXPRSS IS ODD. 31 117 APA7 SA2 B7+RETUR1 $ SB1 1 FROM HERE TO GLA3+2 IS BRACKET LOOP 31 118 BX7 -X7*X7 $ AX2 36 $ NO $ NO 31 119 SA7 NEPSG $ BX6 X2 $ NO 31 120 SA6 MBE $ SA6 KEYD1 31 121 APA8 MX0 59 $ SX2 X0+B1 $ SX7 B1 $ BX6 -X0*X2 X6=1,0 IF B1=ODD,EV 31 122 AX2 1 $ BX1 X6 $ LX6 5 $ LX1 1 X2 = (B1-1)/2 31 123 SA3 B7+MBUW $ IX1 X1-X6 $ AX3 36 B4 = 30-30*REST 31 124 SB5 X3+IT-1 $ MX0 45 $ SA2 X2+B5 X1=0 OR -(32-2) FOR SHIFTS 31 125 SB4 X1+30 $ AX2 B4,X2 $ BX2 -X0*X2 X2=MULTPL POINTER 31 126 SA7 B1B $ MX3 59 $ IX6 X2-X3 31 127 SA1 X2 $ LX5 B0,X6 $ SX7 X1+1 31 128 PL X1,APA9 $ SA7 FILD1 31 129 AX1 18 $ NO $ SX5 X1+2 31 130 RJ INSER1 31 131 SA1 IGET+1 $ SA5 FILD1 31 132 ZR X1,IN1NS $ NO $ NO JP OUT LOOP IF COEFF=0 31 133 APA9 RJ INSER1 31 134 IN1NS SA1 LEVEL $ SA3 B1B RESTORE B7 AND B1=B1+1 31 135 SA4 X1+NAANT $ SA2 IGET+1 31 136 SB7 X1 $ SB4 X4 $ SB1 X3+1 31 137 SA0 PA064 $ ZR X2,BOEK2 OUT OF LOOP IF IGET+1=0 31 138 GE B4,B1,APA8 $ ZR B0,HELENE 31 139 PA064 SA1 LEVEL $ SB6 1 31 140 SA4 X1+NAANT $ SA5 X1+MBUW 31 141 SB1 X4 $ MX6 0 $ SB7 X1 $ LX5 24 B5 = IT AREA 31 142 SB5 X5 $ NO $ MX7 59 31 143 SA6 FILD2 $ SA7 FILD2+1 31 144 GLA30 SX2 B1-B6 $ LX2 59 $ SA3 X2+B5 $ MX0 45 A3=(B1-1)/2+B5 31 145 + SB1 B1-B6 $ NG X2,*+1 $ LX3 30 31 146 + BX5 -X0*X3 $ SA5 X5 $ NG X5,FIL4 X5=ADDR IN IT 31 147 AX5 42 $ BX3 X0*X3 $ SX7 X5-100B 31 148 + NG X7,*+3 $ BX6 X5+X3 JP ALSO IF D-TYPE 31 149 + NG X2,*+1 $ LX6 30 31 150 + SA6 A3 $ ZR B0,APA7 31 151 + MX5 30 $ BX5 -X5*X3 $ AX5 15 $ BX6 X5+X3 31 152 + NG X2,*+1 $ LX6 30 31 153 + SA6 A3 $ LT B0,B1,GLA30 31 154 GLA35 SA1 FILD2 $ SA4 B7+MBUW 31 155 GLA36 NZ X1,FIL7 $ ZR B7,EIND1 31 156 MX1 42 $ BX6 -X1*X4 $ AX4 18 $ BX7 -X1*X4 31 157 SA6 MBU $ SA7 MBE 31 158 EIND1 SA1 LEVEL $ SA2 X1+RETUR1 31 159 MX3 59 $ IX6 X1+X3 $ SB5 X2 $ AX2 18 31 160 SX7 X2 $ SA6 A1 $ SA7 NQX 31 161 SA5 LEVBUF1 $ SA2 LEVBUF2 MAKE LEVBUF=50 IF LARGER 31 162 IX3 X5-X1 $ SX0 50 $ AX3 59 THAN LEVEL. 31 163 IX4 X2-X1 $ BX6 X3*X5 $ AX4 59 $ BX7 -X3*X0 31 164 IX6 X6+X7 $ BX7 X4*X2 $ SA6 A5 $ BX0 -X4*X0 31 165 BX7 X0+X7 $ SA7 A2 $ JP B5+0 31 166 FIL1 SA1 MBE $ SX2 A4 $ SX3 B1 INITIATE FILE 31 167 SA6 FILD1 $ LX2 36 $ SX5 B2 PRESERVE X6, A4 B1 B2 31 168 LX3 18 $ BX2 X2+X5 $ SB6 1 LOC IN X4 31 169 BX7 X2+X3 $ LX4 1 $ SA7 A6+B6 $ SB3 A7+B6 B3 = FILD1+2 31 170 PL X4,FIL2 $ SB1 NTAP7 JP IF NO TAPE 31 171 SA2 LEVBUF1 $ SA3 LEVEL B4 = FILD1+3 31 172 LX4 18 $ MX0 43 $ IX2 X3-X2 $ BX4 -X0*X4 GET RECORD NR 31 173 SB2 X1+IT+1 $ SX7 X4+7 SET TO ONE AFTER NAMES 31 174 PL X2,FIL1A $ BX6 X3 $ SA6 A2 FILD1+4 CONTAINS BUFFER 31 175 SB2 IDGEHX $ ZR B0,FIL1B START. 31 176 FIL1A SA2 LEVBUF2 $ NO $ IX2 X3-X2 31 177 PL X2,FIL1B $ BX6 X3 $ NO 31 178 SA6 A2 $ SB2 IDGEHX+508 $ NO 31 179 FIL1B SA7 B3+B6 $ SX6 B2 $ SB4 B3+B6 $ SA6 A7+B6 31 180 RJ TAKMAN READ RECORD 31 181 + SA1 MBE $ SA2 FILD1+4 31 182 SB6 1 $ SB7 X1+IT+1 B3 = IT AREA. B7=0 IF BUFFER IN IT. 31 183 SB5 X2 $ SB3 X1+IT-1 $ SB7 B7-B5 B5 = BUFFER START. 31 184 SA3 B5+B6 $ SA2 B5 $ SB4 X3-1 X3 = NR OF WORDS 31 185 SX6 X1+2 $ NO $ SA4 B5+B4 $ NO 31 186 MX5 59 $ NO $ SX2 X2 $ NO X2=RECORD NUMBER 31 187 IX0 X4-X5 $ NZ B7,FIL1C $ IX6 X6+X3 X0 = 0 IF COMPLETELY 31 188 ZR X0,FIL1C $ SX6 X1+510 IN MEMORY. 31 189 FIL1C SA6 A1 $ SX3 B5+3 $ BX1 X3 UPDATE MBE 31 190 SA4 X3+B6 $ LX3 36 $ SX5 A4 $ AX4 42 31 191 LX1 18 $ IX4 X5+X4 $ BX1 X1+X3 $ LX7 B0,X2 1 ADMINIST WORD 31 192 BX6 X1+X4 $ LX2 18 $ MX5 1 $ BX7 X7+X2 FOR VECT,ALGE ADRES 31 193 + NZ X0,*+1 $ MX5 2 $ BX7 X6+X5 31 194 + SA1 FILD1+1 $ SA2 A1-B6 $ BX6 X5+X6 31 195 SB2 X1 $ SA6 B3 $ AX1 18 $ SA7 B3+B6 1 ADMINISTRATION WORD 31 196 SB1 X1 $ SX0 B3 $ AX1 18 $ BX6 X2 FOR RECORD COUNT 31 197 SA4 X1 $ BX5 X0+X6 $ ZR B0,A2AP 31 198 FIL2 LX4 54 $ SX7 X4-1 $ LX4 24 31 199 ZR X7,FIL3 $ SA5 X4+IT JP IF NUMERICAL FILE 31 200 MX7 2 $ SX2 A5 $ SX0 A5-B6 $ AX5 42 31 201 IX5 X2+X5 $ BX2 X0 $ LX0 18 $ LX2 36 31 202 BX5 X0+X5 $ BX4 X2+X7 $ SX7 X1+2 31 203 SA7 A1 $ BX7 X5+X4 $ SA7 X1+IT-1 A1=MBE 31 204 BX5 X1+X6 $ SA7 A7+B6 $ ZR B0,A2AP 31 205 FIL3 LX4 43 $ MX7 1 $ AX4 43 $ PX4 B0,X4 NUMERICAL FILE 31 206 SA7 X1+IT-1 $ NX7 B0,X4 $ SA7 A7+B6 31 207 MX7 0 $ SA7 A7+B6 $ SX7 X1+3 31 208 SA7 A1 $ BX5 X1+X6 $ ZR B0,A2AP 31 209 FIL4 SB4 X5 $ ZR B4,FIL9 $ SA4 X5 31 210 MX0 42 $ BX5 X0*X5 $ AX4 42 31 211 SB4 X4 $ SA3 A4+B4 $ ZR X3,FIL5 31 212 SX6 A3 $ BX7 X5+X6 $ SA7 A5 31 213 ZR B0,APA7 31 214 FIL5 SA2 A3+B6 $ MX7 59 $ MX0 24 $ SA4 A5+B6 31 215 ZR X2,FILR1 $ IX6 X2+X7 $ IX7 X2-X7 JP IF EOR 31 216 ZR X6,FILR1 $ BX5 X0*X5 JP IF EOR 31 217 ZR X7,FIL6 $ SX7 A2 $ AX2 42 JP IF EOF 31 218 IX6 X7+X2 $ SX7 A3 $ LX7 18 $ BX5 X5+X7 31 219 BX7 X5+X6 $ SA7 A5 $ NZ X2,APA7 31 220 ZR B0,GFO2 31 221 FIL6 BX6 X5 $ LX6 1 $ PL X6,FILF1 JP IF NOT MEM FILE 31 222 BX6 X4 $ SA6 A5 $ LT B0,B1,GLA30 31 223 ZR B0,GLA35 31 224 FILR1 MX6 0 $ MX7 59 $ SA6 FILD2+1 EOR 31 225 SA7 FILD2 $ RJ BSE1 FILD2=TAPE WORK, +1 REMAINS NON-ZERO 31 226 LT B0,B1,GLA30 $ ZR B0,GLA35 IF ALL EOF 31 227 FILF1 MX7 42 $ BX6 X7*X4 $ AX4 18 $ SX7 B0-B6 EOF 31 228 SX4 X4-1 $ SA7 FILD2 INSERT FIRST-1 RECORD NUMBER 31 229 BX6 X4+X6 $ SA6 A4 $ RJ BSE1 31 230 FIL9 LT B0,B1,GLA30 $ ZR B0,GLA35 31 231 FIL7 SA2 A1+B6 $ MX1 0 $ NZ X2,GLA36 31 232 SA4 B7+NAANT $ SB1 X4 31 233 FIL7A SX2 B1-B6 $ LX2 59 $ SA3 X2+B5 $ MX0 30 31 234 + SB1 B1-B6 $ NG X2,*+1 $ LX3 30 31 235 + MX5 45 $ BX5 -X5*X3 $ SA5 X5 $ NO 31 236 + NG X5,*+2 $ NO $ NO 31 237 FIL7C LT B0,B1,FIL7A $ ZR B0,GFO3 31 238 + LX5 1 $ NG X5,FIL7C $ LX5 59 31 239 SB4 X5 $ ZR B4,FIL7C $ SA4 A5+B6 IF CURRENT REC LT FIRST 31 240 BX6 X4 $ SB5 X4 $ AX6 18 $ SB4 X6 REC = EOF CASE 31 241 + MX7 0 $ LT B5,B4,*+1 $ MX7 59 X7=0 FOR EOF CASE 31 242 + SA7 FILD1+1 $ SX6 X4+7 X7=2 OR -1 IF END OF RECORD 31 243 SA6 A7+B6 $ SX7 B1 $ SX1 A5 $ LX7 18 FILD1 = B1 A5 31 244 BX7 X1+X7 $ SA7 A7-B6 $ SB1 NTAP7 31 245 AX5 36 $ SB2 X5-3 $ SB3 A6+B6 31 246 SB4 A6 $ RJ TAKMAN 31 247 + SA1 FILD1 $ SB6 1 31 248 SA5 X1 $ AX1 18 $ SB1 X1 $ SA4 A5+B6 X5=BUF ADRES. X4=REC NR 31 249 LX5 24 $ NO $ SA3 X5-3 A3=FIRST WORD OF BUFFER 31 250 MX0 42 $ NO $ SX3 X3 $ NO 31 251 BX4 X0*X4 $ BX6 X3+X4 $ SA6 A4 $ LX5 36 31 252 SA2 LEVEL $ SA3 X2+MBUW 31 253 SB7 X2 $ LX3 24 $ RJ BSE1 31 254 SA2 A1+B6 $ SB5 X3 $ NZ X2,APA7 31 255 LT B0,B1,FIL7A $ ZR B0,GFO1 31 256 BSE1 BSS 1 RESET POINTERS TO BEGIN OF RECORD, 31 257 BX4 X5 $ MX0 24 $ LX4 24 $ BX5 X0*X5 POINTER IN X5 31 258 SX6 X4 $ SA4 X4+B6 $ SX7 X6+B6 $ AX4 42 31 259 LX6 18 $ IX7 X7+X4 $ BX5 X5+X6 $ BX6 X7+X5 31 260 SA6 A5 $ ZR B0,BSE1 31 261 REPEAT BSS 1 A+B*(C+D+...)+E*(F+...)+0. 31 262 + SA1 MBU $ SA2 MBE 31 263 SB6 1 $ MX7 0 $ BX6 X1 31 264 SA7 YTERM $ SA6 MBE5 31 265 SX6 X2+B6 $ SA6 A2 $ SA6 MBE2 31 266 SO270 READ. NTAP6,MBE4,IDGEHX 31 267 + SA1 IDGEHX+4 $ BX6 -X6*X6 $ MX0 7 31 268 SO270A SA6 LEVBUF1 $ BX2 -X0*X1 $ AX2 42 31 269 SX7 A1 $ IX6 X2+X7 $ SA7 MBE1F 31 270 SA6 MBE4 $ SB6 1 31 271 SA1 A1+2 $ MX0 49 $ AX1 36 31 272 BX7 -X0*X1 $ SA7 NASFF 31 273 SO270B SA1 MBE5 $ SA2 MBE2 31 274 SA5 MBE1F $ BX6 X1 $ LX7 B0,X2 31 275 SA6 MBU $ SA7 MBE 31 276 SX5 X5+B6 $ NO $ SA7 LEVBUF2 31 277 RJ INSER1 31 278 SA5 MBE4 $ SA1 IGET+1 31 279 + SX5 X5+1 $ ZR X1,*+2 31 280 + RJ INSER1 31 281 SA2 NDOTI $ SB6 1 31 282 ZR X2,SO1 $ SB2 B6+B6 $ MX0 55 31 283 SA3 ISCAL $ MX7 48 $ SB1 X2 X7=-7777B 31 284 SO2 BX6 X3+X7 $ AX3 5 $ BX5 -X0*X3 $ AX3 5 31 285 BX4 -X0*X6 $ SB3 X3 $ LT B3,B2,SO5 JP IF NOT DTP, VEC-NR 31 286 EQ B3,B2,SO4 $ ZR X6,IFOD1 JP IF VEC-NR 31 287 SA4 X4+NVGEH-1 $ BX3 -X0*X4 TEST FOR P=Z 31 288 SX6 X3-ZZ0 $ NZ X6,SO4 31 289 SO3 SA5 A3+B6 $ ZR X5,SO4 31 290 SA6 IGET+1 $ NG X5,GFOA1 31 291 ZR B0,SO1 31 292 SO4 SA4 X5+NVGEH-1 $ BX3 -X0*X4 31 293 SX6 X3-ZZ0 $ ZR X6,SO3 31 294 SO5 SB1 B1-B2 $ SA3 A3+B2 $ LT B0,B1,SO2 31 295 SO1 MX3 59 $ SA0 SO270C $ MX0 4 31 296 SA2 IEP-1 $ SA1 NEPS 31 297 LX0 12 $ MX2 0 $ SB7 -2400B 31 298 SA4 NXEX $ SB5 X4 $ MX7 52 31 299 SO270D NZ X2,*+2 $ SA2 A2+1 31 300 + IX1 X1+X3 $ BX5 X0*X2 $ NG X1,CALSUB2 CHECK IF EXPRESSIONS 31 301 + SX4 X5+B7 $ BX6 -X7*X2 $ AX2 12 $ BX5 X0*X2 31 302 NZ X4,SO270D $ SB4 X6 IN BRACKETS AS FU ARG 31 303 GE B5,B4,SO270D $ ZR B0,FOS12 31 304 SO270C SA1 MBE4 $ SB6 1 31 305 SA2 X1 $ AX2 42 $ IX7 X1+X2 $ SA3 X7 31 306 SA7 A1 $ NZ X3,SO270B $ SA1 A3+B6 JP IF NO 0 31 307 MX0 7 $ BX6 -X6*X6 $ ZR X1,SO270 JP IF TWO 0 31 308 MX5 59 $ IX7 X1+X5 $ ZR X7,SO270 JP IF 0,1 31 309 MX5 59 $ IX7 X1-X5 $ NZ X7,SO270A JP IF NOT 0,-1 31 310 REWS. NTAP6 31 311 ZR B0,REPEAT 31 312 CALSUB2 SA1 NVIND $ SA2 YTERM COUNT TERMS 31 313 BX6 X1 $ IX7 X2-X3 $ SA6 NQX X3=-1 31 314 SA7 A2 $ MX6 0 $ SA6 LEVEL 31 315 SA6 MARKER $ ZR B0,HELENE 31 316 GFO1 ERROR 45 MORE THAN 40 LEVELS REQUIRED 31 317 GFO2 ERROR 46 EMPTY EXPR 31 318 GFO3 ERROR 44 ERROR BUFFERING EXPR ON DISK 31 319 FOS12 ERROR 47 EXPR AS FU ARGM IN *YEP 31 320 END 32 0 IDENT INSERT 32 1 ENTRY INSER1,INSER2 32 2 MACRO *EXPAND 32 3 MACRO *EXPRNR 32 4 MACRO *EXEC 32 5 EXT FOUT,BRIAN,EVNUM,EVFUN,SEARCH,TAKMAN,TAXMAN,INDCR 32 6 + VFD 36/6HINSER1,24/0 32 7 INSER1 BSS 1 32 8 SA1 IGET+1 $ SA5 X5+IT-1 MULTIPLICATION OF NUM COEFS 32 9 SB6 1 $ SA2 A1+B6 $ SA4 A5-B6 CONVERT 90 BITS TO DOUBLE PREC 32 10 BX7 X1-X2 $ LX4 18 $ AX7 59 $ UX0 B7,X5 32 11 AX4 18 $ SB7 B7-60B $ LX4 7 COMPLM X2 IF ITS SIGN IS OPPOSITE 32 12 BX2 X2-X7 $ PX4 B7,X4 $ FX0 X2*X5 $ FX7 X1*X4 OF X1. E.G. 32 13 SB5 8 $ FX3 X0+X7 $ MX0 12 //605737..7//0..0// 32 14 SB7 52 $ FX2 X1*X5 $ DX4 X1*X5 32 15 FX7 X3+X4 $ FX6 X7+X2 $ DX7 X7+X2 $ SA6 A1 32 16 SA7 A1+B6 $ LX0 4 $ ZR X6,INSER1 32 17 SA4 MBE $ SA3 KEYD1 32 18 BX6 X4 $ MX7 0 $ SA6 MBE1 32 19 SA0 X4+B6 $ SB2 X3 $ SB3 B0 $ SB1 B0-B6 32 20 * 32 21 * UNPACK NEW TERM FROM IT INTO IT, REPLACING DUMMIES. 32 22 * RESULTING WORDS - 32 23 * 1 FACTOR/WORD, NAME IN FIRST 8 BITS, HEADING IN LAST 4 BITS. 32 24 * 32 25 * A0 A5 A7 B1 B2 B3 B4 B5 B6 B7 X0 X1 32 26 * START IN OUT -1 DUMMY COUNT * 8 1 52 MASK COUNT 32 27 * 32 28 INA1 SA5 A5+B6 $ MX1 5 $ NO $ LX5 4 32 29 INA2 LX6 B0,X7 $ BX7 X0*X5 $ LX1 1 $ SX3 X7+B1 32 30 SB3 B3+B6 $ LX5 12 $ BX4 -X1+X3 $ SA7 A0+B3 32 31 PL X4,INA2 $ PL X3,INA1 JP IF NOT DUMMY NOR ZERO 32 32 LX7 8 $ ZR X7,INA8 $ LX6 8 JP IF ALL DONE. 32 33 SA4 KEYD1 $ MX3 48 $ LX4 18 DUMMY. SEE IF IN RANGE 32 34 BX4 -X3*X4 $ SX2 X6-1405B $ IX6 X4-X7 32 35 BX4 -X3 $ NG X6,INA2A $ SA4 X7+B2 SEE IF PREC. BY OPERATOR 32 36 INA2A BX6 -X3*X4 $ SX3 X2-11B $ AX4 12 32 37 BX3 -X2*X3 $ ZR X4,INA3 $ LX1 59 JP IF NOT DOUBLE 32 38 LX5 48 $ BX5 -X0*X5 $ LX4 52 $ BX5 X5+X4 DUMMY 32 39 INA3 LX7 B7,X6 $ SB4 X7+B6 $ NG X3,INA5 JP IF PREC BY OPERATOR 32 40 INA4 SA7 A0+B3 $ NO $ NG X1,INA2 REPLACE DUMMY 32 41 ZR B0,INA1 32 42 INA5 NE B4,B5,INA6 $ SX2 X2-2 JP IF NOT NR. JP IF NOT 1407B 32 43 NZ X2,INA4 $ MX2 8 $ SB3 B3-B6 32 44 BX7 X7-X2 $ SA7 A0+B3 $ NG X1,INA2 32 45 ZR B0,INA1 32 46 INA6 SX3 X6-1405B $ SX6 X6-1416B 32 47 LX3 1 $ BX6 -X3*X6 $ LX4 B6,X3 $ IX3 X4+X3 X3=6*X3 32 48 PL X6,INA4 $ SA2 X2+INA7 JP IF NOT OP*OP 32 49 SB4 X3 $ AX6 B4,X2 $ MX3 54 $ BX6 -X3*X6 32 50 SX3 X6-25B $ ZR X3,INA4 DO NOTHING IF NOT DEFINED 32 51 SB3 B3-B6 $ SX7 X6+1400B $ LX7 52 32 52 NZ X6,INA4 $ SB3 B3-B6 $ MX7 0 32 53 NG X1,INA2 $ ZR B0,INA1 32 54 IFO1 ERROR 48 INPUT SPACE FULL 32 55 * MULTIPLICATION TABLE FOR OPERATORS 1405B-1415B . 32 56 * THIS TABLE ALSO USED BELOW, IN TABLE TREATMENT. 32 57 * -T T-I I-C C M-X X 32 58 INA7 DATA 25252525252525252525B XXX 05 32 59 DATA 25252525252525252525B -XXX 06 32 60 DATA 25141512131011000506B MIN 07 32 61 DATA 25252513120700112525B CONJ 10 32 62 DATA 25252512130007102525B -CONJ 11 32 63 DATA 25252513121312132525B INTEG 12 32 64 DATA 25252512131213122525B -INTEG 13 32 65 DATA 25252525252525152525B TABLE 14 32 66 DATA 25252525252525142525B -TABLE 15 32 67 INA8 SA2 NDIMT $ SA3 MMBE 32 68 SX6 A7+B6 $ IX2 X6-X2 $ SA6 MBE 32 69 + IX5 X6-X3 $ NG X5,*+1 $ SA6 A3 32 70 + SA1 NDOTI $ PL X2,IFO1 32 71 SA3 NEPS $ BX0 X1 $ SA5 A0+B6 32 72 SB4 DIR1 $ SA0 X3 32 73 * 32 74 * A0 A5 B4 B5 B6 B7 X0 32 75 * (NEPS) IT DIR1 8 1 52 (NDOTI) 32 76 * 32 77 VERDER SA4 X5+B4 $ AX1 B7,X5 $ SB1 X4 $ LX7 B5,X5 32 78 SA5 A5+B6 $ JP B1+0 32 79 * 32 80 * ADDRESS TABLE FOR FUNCTION ARGUMENTS AND INCOMING QUANTITIES. 32 81 * DURING CONJG 32 82 * 32 83 DIR1 VFD 6/00B,24/FIN1,30/DUM1 00 DUMMY 32 84 VFD 6/01B,24/FIN1,30/DOT1 04 INDEX 32 85 VFD 6/02B,24/FVE1,30/VEC1 10 VECTOR 32 86 VFD 6/03B,24/FOP1,30/OPE1 14 OPERATOR 32 87 VFD 6/04B,24/FAL1,30/ALG1 20 ALGEBRAIC SYMBOL 32 88 VFD 6/05B,24/FEX1,30/EXR1 24 EXPRESSION 32 89 VFD 6/06B,24/FFU1,30/FUN1 30 FUNCTION 32 90 VFD 6/07B,24/FIN1,30/NUM1 34 NUMBER 32 91 VFD 6/10B,24/FIN1,30/DOT1 40 VECTOR WITH NR INDEX 32 92 VFD 6/11B,24/FIN1,30/DOT1 44 VECTOR WITH NR INDEX 32 93 VFD 6/12B,24/FIN1,30/DOT1 50 VECTOR WITH NR INDEX 32 94 VFD 6/13B,24/FIN1,30/DOT1 54 VECTOR WITH NR INDEX 32 95 VFD 6/14B,24/FIN1,30/DOT1 60 DOTPRODUCT 32 96 VFD 6/15B,24/FIN1,30/DOT1 64 DOTPRODUCT 32 97 VFD 6/16B,24/FIN1,30/DOT1 70 DOTPRODUCT 32 98 VFD 6/17B,24/FIN1,30/DOT1 74 DOTPRODUCT 32 99 * 32 100 * ADDRESS TABLE FOR OPERATORS AND D-FU ENCOUNTER. 32 101 * DIR2 FOR OPERATORS OUTSIDE FUNCTIONS. DIR3 FOR OPS AS FU ARG 32 102 * DELTA FUNCTION. D(N1,N2) IS WORKED OUT BY LOOKING AT IPR(N1-401B), 32 103 * IPR(N2-401B). THOSE QUANTS CAN BE ZERO,INDEX,VECTOR,-2000B FOR FUNCT 32 104 * ,NUMBER. THEY ARE ABBREVIATED AS NOTHING,DELTA,VECTOR,FUNCTION,I... 32 105 * THEY ARE ASSIGNED THE VALUES 1,2,3,4,0 IN THE TABLE, WHAT IS 32 106 * OBTAINED BY TAKING BITS 2-4 OF (QUANT+400B) . 32 107 * EXAMPLE. P(3) BECOMES P(N253)*D(3,N254)*D(N253,N254) . 32 108 * IPR(N253-401B)=P TABLE VALUE=3 TYPE =V 32 109 * IPR(N254-401B)=3 TABLE VALUE=0 TYPE =I 32 110 * THEREFORE GOTO DIV1. 32 111 * 32 112 DIR2 VFD 6/00B,24/IFO2,30/DII1 1400 .II=00 32 113 VFD 6/01B,24/KEY1,30/DVN1 1401 DUMMY KEY .IN=01 32 114 VFD 6/02B,24/SUK1,30/DVD1 1402 SUPERKEY .ID=02 32 115 VFD 6/03B,24/DTP1,30/DIV1 1403 P(3) .IV=03 32 116 VFD 6/04B,24/IFO2,30/DVF1 1404 [SF ] .IF04 32 117 VFD 6/05B,24/IFO2,30/IFO3 1405 32 118 VFD 6/06B,24/IFO2,30/IFO3 1406 32 119 VFD 6/07B,24/SIG1,30/IFO3 1407 -SIGN 32 120 VFD 6/10B,24/COE1,30/DVN1 1410 CONJG EXPR. .NI=10 32 121 VFD 6/11B,24/MCE1,30/DNN1 1411 -CONJG EXPR. .NN=11 32 122 VFD 6/12B,24/INT2,30/DDN1 1412 INTEG EXPR. .ND=12 32 123 VFD 6/13B,24/INT1,30/DVN1 1413 -INTEG EXPR. .NV=13 32 124 VFD 6/14B,24/IFO2,30/DNF1 1414 TABLE .NF=14 32 125 VFD 6/15B,24/IFO2,30/IFO3 1415 -TABLE 32 126 VFD 6/16B,24/IFO2,30/IFO3 1416 END TABLE 32 127 VFD 6/17B,24/IFO2,30/IFO3 1417 KEY REQUEST 32 128 VFD 6/20B,24/CCB1,30/DVD1 1420 COMPLEX CONJ. .DI=20 32 129 VFD 6/21B,24/CCE1,30/DDN1 1421 END C. CONJ. .DN=21 32 130 VFD 6/22B,24/IFO2,30/DDD1 1422 REDUCE .DD=22 32 131 VFD 6/23B,24/IFO2,30/DVD1 1423 TRACK .DV=23 32 132 VFD 6/24B,24/VERDER,30/DDF1 1424 PASS .DF=24 32 133 DIR3 VFD 6/25B,24/IFO2,30/IFO3 1400 32 134 VFD 6/26B,24/IFO2,30/IFO3 1401 KEY 32 135 VFD 6/27B,24/IFO2,30/IFO3 1402 / 32 136 VFD 6/30B,24/DOF1,30/DIV1 1403 P(3) .VI=30 32 137 VFD 6/31B,24/SQB1,30/DVN1 1404 [SFV...] .VN=31 32 138 VFD 6/32B,24/IFO2,30/DVD1 1405 .VD=32 32 139 VFD 6/33B,24/IFO2,30/DVV1 1406 .VV=33 32 140 VFD 6/34B,24/SIF1,30/DVF1 1407 - .VF=34 32 141 VFD 6/35B,24/CCF1,30/IFO3 1410 CE 32 142 VFD 6/36B,24/CCF1,30/IFO3 1411 -CE 32 143 VFD 6/37B,24/ITG2,30/IFO3 1412 INT 32 144 VFD 6/40B,24/ITG1,30/DVF1 1413 -INT .FI=40 32 145 VFD 6/41B,24/TAB1,30/DNF1 1414 TABLE .FN=41 32 146 VFD 6/42B,24/TAB1,30/DDF1 1415 -TABLE .FD=42 32 147 VFD 6/43B,24/TABE,30/DVF1 1416 END TABLE .FV=43 32 148 VFD 6/44B,24/RQF1,30/DFF1 1417 REQ .FF=44 32 149 VFD 6/45B,24/IFO2,30/IFO3 1420 CC 32 150 VFD 6/46B,24/IFO2,30/IFO3 1421 ECC 32 151 VFD 6/47B,24/REF1,30/IFO3 1422 TRICK 32 152 VFD 6/50B,24/REF1,30/IFO3 1423 TRACK 32 153 VFD 6/51B,24/PAF1,30/IFO3 1424 PASS 32 154 VFD 6/52B,24/IFO2,30/IFO2 1425 UNDEFINED 32 155 VFD 6/53B,24/CHA1,30/IFO2 1426 =CHARACTER 32 156 DUM1 ZR X7,EXI1 32 157 IFO2 ERROR 49 UNKNOWN OPERAT OR UNREPLACED DUMMY 32 158 EXI1 SA2 MNEPS $ SA1 NF NMULT COUNTS NR OF 32 159 SA3 MBE1 $ SA4 NMULT TIMES INSERT IS CALLED (NOT COUN- 32 160 BX7 X3 $ NO $ SA7 MBE 32 161 SX6 A0 $ IX5 X2-X6 $ SA6 NEPS TING TERMS WITH ZERO COEF) 32 162 + LX7 B0,X0 $ PL X5,*+1 $ SA6 A2 NF IS EVT THE MAXIMUM 32 163 + SA7 NDOTI $ MX0 59 $ IX5 X1-X4 ALLOWED FOR NMULT 32 164 + ZR X1,*+3 $ PL X5,*+3 32 165 + SX6 X1-51B $ NZ X6,IFO4 32 166 + SA6 B7 $ SB7 B7-B6 $ GE B7,B0,*+0 32 167 + IX7 X4-X0 $ SA7 A4 $ ZR B0,INSER1 32 168 VEC1 SX2 X7-1041B $ BX3 X7 $ LX4 B5,X5 32 169 SB2 X4-1000B $ NG X2,VEC2 32 170 SX7 X7+1740B $ ZR B0,FUN1 32 171 VEC2 SX1 X4-1407B $ NZ X1,VEC3 32 172 SA1 IGET+1 $ SA5 A5+B6 $ LX4 B5,X5 32 173 BX7 -X1 $ SA7 A1 $ SB2 X4-1000B 32 174 VEC3 BX6 X3 $ SB1 X6-1041B COME FROM DEL3A 32 175 SX3 776B $ PL B1,VEC7 32 176 + SX7 X6-1000B $ NG X7,*+4 JP IF NOT VECTOR 32 177 + SA1 X6+NVGEH-1001B $ MX2 55 $ BX1 -X2*X1 INSPECT FOR P=Z 32 178 + SX7 X1-ZZ0 $ NZ X7,*+2 32 179 + SA7 IGET+1 $ ZR B0,INSER1 32 180 VEC4 SA6 IPR+375B $ NG B2,DEL5 32 181 VEC5 BX6 X4 $ SB1 X6-1041B COME FROM DEL2 32 182 SX4 777B $ PL B1,VEC8 32 183 + SX7 X6-1000B $ NG X7,*+4 JP IF NOT VECTOR 32 184 + SA1 X6+NVGEH-1001B $ MX2 55 $ BX1 -X2*X1 INSPECT FOR P=Z 32 185 + SX7 X1-ZZ0 $ NZ X7,*+2 32 186 + SA7 IGET+1 $ ZR B0,INSER1 32 187 VEC6 SA6 IPR+376B $ ZR B0,DEL5 32 188 VEC7 SX7 X6-4000B $ PL X7,IFO3 32 189 SX7 X6-3400B $ PL X7,VEC4 32 190 VEC8 SX7 X6-4000B $ PL X7,IFO3 32 191 SX7 X6-3400B $ PL X7,VEC6 32 192 IFO3 ERROR 50 WRONG VECTOR,DELTA ARGM 32 193 IFO4 ERROR 51 INSERT COUNT LIMIT 32 194 OPE1 SB1 X7-1424B $ SA1 B1+DIR2+24B ANALYZE OPERATOR 32 195 SA2 IGET+1 $ AX1 30 $ SB2 X1 32 196 LT B0,B1,IFO2 $ JP B2+0 32 197 KEY1 SA1 KEYD1 $ SA4 MBE1 X7=1401B. .NRES+7 - NR OF DUMMIES 32 198 MX3 48 $ LX1 42 $ SB2 X4+IT-3 (18 BITS), PRESERVE MARKER 32 199 SX6 X1 $ LX1 18 $ SB1 B6+B6 (24), ADDR. DUM START(18). 32 200 + NZ X6,*+1 $ SB2 X1-2 KEY STARTS WITH 1401B. 32 201 + SA7 B2+2 $ SB3 -1427B 32 202 SX6 B2+3 $ SA6 SKEY1 32 203 KEY3 LX6 B5,X5 $ SX1 X6+B3 $ SX7 X6-1404B DUMMY INSERTION 32 204 ZR X6,KEY4 $ BX1 -X7*X1 $ SA5 A5+B6 32 205 NG X1,KEY5 $ SB1 B1+B6 $ SA6 B2+B1 32 206 SX1 B1-255 $ NG X1,KEY3 32 207 IFO9 ERROR 56 DUMMY OVERFLOW 32 208 KEY4 SX1 B1-2 $ SX7 B2+2 32 209 LX1 42 $ BX7 X1+X7 $ SB3 IT-2 32 210 SA7 KEYD1 $ ZR X1,EXI1 32 211 SX7 A6-B3 $ SA7 MBE1 32 212 ZR B0,EXI1 32 213 KEY5 LX4 B5,X5 $ SA5 A5+B6 $ LX4 12 $ BX6 X4+X6 OP + SUBS IN 1 W 32 214 SB1 B1+B6 $ SA6 B2+B1 $ ZR B0,KEY3 32 215 SUK1 SA4 SKEY1 $ SB3 B0-1427B SUPERPOSE KEY 32 216 SUK2 LX6 B5,X5 $ SX1 X6+B3 $ SX7 X6-1404B 32 217 ZR X6,SUK3 $ BX1 -X7*X1 $ SA5 A5+B6 32 218 NG X1,SUK4 $ SA6 X4 $ SX4 X4+B6 32 219 ZR B0,SUK2 32 220 SUK3 SA5 MBE1 $ SX7 X5+B6 $ IX6 X7-X4 32 221 PL X6,EXI1 $ ZR B0,IFO9 32 222 SUK4 LX3 B5,X5 $ SA5 A5+B6 $ LX3 12 $ BX6 X3+X6 32 223 SA6 X4 $ SX4 X4+B6 $ ZR B0,SUK2 32 224 DTP1 SB1 B0-1407B $ LX6 B5,X5 $ SX4 X6+B1 1403 P MU = P(MU) 32 225 + SA5 A5+B6 $ LX1 B5,X5 $ NZ X4,*+2 32 226 + LX6 B5,X5 $ SA5 A5+B6 $ SB7 B0-B7 $ LX1 B5,X5 32 227 + SX4 X1+B1 $ SA5 A5+B6 $ NZ X4,*+2 32 228 + LX1 B5,X5 $ SB7 B0-B7 $ SA5 A5+B6 32 229 + PL B7,DTP6 $ SA3 IGET+1 32 230 LX4 B0,X5 $ SB7 B0-B7 $ BX7 -X3 $ NO 32 231 + PL X4,*+1 $ BX4 -X4 $ NO 32 232 + LX4 7 $ PL X4,DTP6 $ SA7 A3 32 233 DTP6 IX4 X6-X1 $ MX3 55 $ BX7 X1 32 234 + NG X4,*+1 $ BX7 X6 $ LX6 B0,X1 32 235 + SX4 X6-1000B $ SX2 X6-1400B 32 236 NG X4,DTP10 $ PL X2,DTP10 32 237 BX6 -X3*X6 $ BX3 -X3*X7 $ SX4 X7-1400B 32 238 IX7 X6-X3 $ LX6 5 $ PL X4,DTP9 32 239 + NG X7,*+1 $ AX6 5 $ LX3 5 32 240 + SX3 X3+2000B 32 241 DTP9 SX3 X3+4000B $ BX7 X3+X6 32 242 ZR B0,DOT1 32 243 DTP10 LX6 52 $ LX7 52 $ SA6 A5-B6 $ SA7 A6-B6 MAKE D-FUNCTION 32 244 LX4 B5,X5 $ SX6 6 $ SA6 A5 PLACE 3000B SHIFTED 52L 32 245 SX3 X4-3401B $ NZ X3,IFO33 32 246 SA5 A7 $ ZR B0,DEL1 BACKSPACE 32 247 IFO33 ERROR 40 VECT COMP MUST BE **1 32 248 SIG1 SA1 IGET+1 $ SB1 X5-2 MINUS SIGN 32 249 SB2 4 $ SA4 A5+B6 $ BX6 -X1 32 250 LX3 B0,X4 $ SA6 A1 $ ZR B1,VERDER JP IF VECTOR 32 251 SX6 X4-3 $ NZ X6,SIG2 32 252 SA4 A4+B6 $ BX3 X4 32 253 SIG2 LX3 7 $ BX4 X4-X3 $ EQ B1,B2,VERDER JP IF FUNCTION 32 254 AX4 59 $ BX6 X1-X4 $ SA6 IGET+1 32 255 ZR B0,VERDER 32 256 COE1 LX7 B5,X5 $ SA5 A5+B6 $ RJ NUMWO1 CONJG EXPRESSION 32 257 PL X2,NUM2 $ SX6 1420B TRY FIRST NUMER EV. JP IF SUCCESS. 32 258 SA6 A0+IEP $ SB7 B0-B7 $ SA0 A0+B6 32 259 SX3 1421B $ ZR B0,EXR1A 32 260 MCE1 SA1 IGET+1 $ SA4 A5+B6 $ BX3 X4 MINUS CONJG EXPRES 32 261 LX4 7 $ BX3 X4-X3 $ AX3 59 $ BX6 X1-X3 32 262 SA6 IGET+1 $ ZR B0,COE1 32 263 INT1 SB7 B0-B7 $ SX3 1407B $ LX1 B5,X5 -INTEG 32 264 INT2 LX7 B5,X5 $ SX2 X5-5 $ LX1 12 +INTEG 32 265 + PL B7,*+1 $ SB7 B0-B7 $ BX7 X1+X3 32 266 + NZ X2,IFO12A $ RJ INTEG1 32 267 BX1 X6 $ SA5 A5+B6 $ ZR B0,NUM1 32 268 IFO12A ERROR 58 32 269 CCB1 SA1 NEPSG $ MX7 48 $ SX6 A0 CONJG BEGIN 32 270 LX1 12 $ BX2 X7*X1 $ BX6 X2+X6 $ SA6 A1 32 271 CCB2 RJ CAL2 LEAVE A0,A5,X0,X5,B6=1 UNCHANGED 32 272 + SB4 DIR1 $ SB5 8 32 273 SB7 52 $ NZ X5,VERDER 32 274 ZR B0,EXI1 32 275 CCE1 SA1 NEPSG $ MX7 48 $ LX6 B0,X1 CONJG END 32 276 BX2 -X7*X1 $ SB1 X2+IEP $ AX6 12 32 277 SB2 A0+IEP-1 $ SA6 A1 32 278 LT B2,B1,CCB2 $ RJ CFU1 32 279 + SA1 NQA $ SX6 1 32 280 ZR X1,CCB2 $ SA6 A1 32 281 ZR B0,CCB2 32 282 CAL1 BX6 X4 $ SA6 IGET+1 COMPLEX CONJUGATION OF ALGEBRA 32 283 CAL2 BSS 1 REGISTER 32 284 + SA4 IPR1-2 $ SA1 IPR1-1 I=71B , C=63B 32 285 SA2 NALGE $ BX6 X1 $ SB2 X2 32 286 SB1 B0-B6 $ LX1 B0,X4 $ SA4 IGET+1 32 287 SA3 NAGEH-1 $ SB3 59 $ MX2 54 32 288 SB4 11B $ SB5 03B 32 289 CAL3 BX7 X1 $ SB1 B1+B6 $ SA6 A1 $ SA7 A1-B6 B3=59, B4=I, B5=C 32 290 CAL4 GE B1,B2,CAL1 $ SA3 A3+B6 $ SA1 A1+B6 B6=1 32 291 CAL5 BX7 -X2*X3 $ SB1 B1+B6 $ LX6 B0,X1 $ SB7 X7 32 292 ZR X7,CAL4 $ LX3 B3,X1 $ BX7 X3-X1 32 293 AX3 B3,X7 $ BX4 X4-X3 $ EQ B7,B4,CAL4 32 294 BX4 X4-X3 $ SA3 A3+B6 $ SA1 A1+B6 32 295 EQ B7,B5,CAL3 $ LT B1,B2,CAL5 32 296 ZR B0,CAL1 32 297 CFU1 BSS 1 COMPLEX CONJUGATION OF FUNCTI 32 298 + SX6 B1 $ SX7 B2 $ SA6 INDA1 A0=NEPS, X0=NDOTI 32 299 SA7 INDA1+1 $ SX4 6 B1 B2 B3 B5 B6 32 300 SA1 B1 $ LX2 B5,X4 ADDR LOW HIGH COU 8 1 32 301 CFU3 AX6 B5,X1 $ IX7 X6-X4 $ LT B2,B1,CFU5 32 302 SB1 B1+B6 $ SB3 X1-3000B $ SA1 A1+B6 32 303 NZ X7,CFU3 $ SA3 B3+NFGEH-1 32 304 MX6 54 $ ZR B3,CFU3 $ BX7 -X6*X3 32 305 SX3 X7-25B $ SB3 B0 U 32 306 ZR X3,CFU3 32 307 + IX6 X1-X2 $ SA1 A1+B6 $ LT B2,B1,IFO6 X2=3000B 32 308 + SB3 B3-B6 $ SB1 B1+B6 $ NZ X6,*-1 REPLACE 3000B BY -1-NR 32 309 SX6 B3 $ SA6 A1-B6 $ GE B2,B1,CFU3 OF ARG IN FUNCTION 32 310 CFU5 SA3 INDA1 $ SA1 B2+B6 $ SB2 B2+B6 32 311 SB3 B0 $ SX4 A0 $ SB1 X3 X4 PRESERVES OLD A0 32 312 CFU6 SB2 B2-B6 $ SA1 A1-B6 $ LT B2,B1,CFU9 32 313 SB3 B3+B6 $ PL X1,CFU6 $ SB3 B3-B6 REVERSE ORDER 32 314 SB4 X1 $ LT B0,B3,CFU10 $ BX6 X2 F1*F2*Y1*Y2*F3*F4 BECOMES 32 315 CFU7 SB7 A0+B6 $ SA0 B7-B4 $ SA6 A0+IEP-1 F4*F3*1420*Y1*Y2*1421* 32 316 + SA1 A1-B6 $ BX6 X1 $ SB2 B2-B6 $ SB4 B4+B6 F2*F1 32 317 + SA6 A6-B6 $ LT B4,B0,*-1 $ SB3 B0 32 318 LT B1,B2,CFU6 $ ZR B0,CFU12 32 319 CFU9 ZR B3,CFU12 32 320 CFU10 SA3 A1 $ SX6 1420B $ SA0 A0+B6 32 321 SA6 A0+IEP-1 $ SX7 1421B 32 322 + SA3 A3+B6 $ SA0 A0+B6 $ BX6 X3 $ SB3 B3-B6 32 323 + SA6 A6+B6 $ LT B0,B3,*-1 32 324 SA0 A0+B6 $ SB4 X1 $ SA7 A6+B6 $ BX6 X2 32 325 GE B2,B1,CFU7 32 326 CFU12 SA1 INDA1 $ SA2 INDA1+1 32 327 MX6 0 $ SB1 X1 $ SB2 X2 $ BX7 X4 32 328 + SA6 B1 $ SB1 B1+B6 $ GE B2,B1,* SET ZERO 32 329 SA7 INDA1+2 $ SB1 X7+IEP INDA1+2=OLD A0 32 330 SB2 A0+IEP-1 $ SA1 B1 32 331 CFU14 SX4 6 $ SX3 1401B 32 332 CFU15 AX6 B5,X1 $ IX7 X6-X4 $ LT B2,B1,CFU1 32 333 IX6 X1-X3 $ SX2 X1-3000B 32 334 SB1 B1+B6 $ SA1 A1+B6 $ ZR X2,CFU15 32 335 ZR X7,CFU17 $ NZ X6,CFU15 32 336 + MX7 12 $ BX6 X7*X1 $ SA1 A1+B6 $ SB1 B1+B6 32 337 + NZ X6,CFU15 $ GE B2,B1,*-1 32 338 ZR B0,IFO6 32 339 CFU17 SA2 X2+NFGEH-1 $ IX6 X6+X3 $ MX7 54 32 340 BX2 -X7*X2 $ SX7 X2-25B $ SA4 A2-B6 U 32 341 ZR X7,CFU14 $ SX3 X2-11B I 32 342 MX7 54 $ BX7 -X7*X4 $ NZ X3,CFU18 32 343 SA3 IGET+1 $ BX7 -X3 $ SA7 A3 32 344 ZR B0,CFU20 32 345 CFU18 SX4 X2-03B $ SX7 X7-03B C C 32 346 ZR X4,CFU19 $ NZ X7,CFU20 32 347 SX6 X6-2 32 348 CFU19 SX6 X6+B6 $ SA6 A1-B6 32 349 CFU20 MX4 56 $ AX6 B5,X1 $ BX4 -X4*X6 $ SB3 B0 32 350 MX7 48 $ SA3 X4+DIR1 $ BX6 X7*X1 32 351 CFU21 SX4 X1-3000B $ AX3 30 $ SB4 X3 32 352 JP B4+0 32 353 FAL1 SA2 X4+NAGEH+777B 32 354 CFU22 MX7 54 $ BX2 -X7*X2 $ SA3 A2-B6 $ BX7 -X7*X3 32 355 SX6 X2-11B $ SX4 X2-03B I C 32 356 SX3 1407B $ ZR X6,CFU24 32 357 + SX7 X7-03B $ ZR X4,*+2 C 32 358 + NZ X7,FIN1 $ SX1 X1-2 32 359 + SX7 X1+B6 $ SA7 A1 $ ZR B3,FIN1 32 360 LX1 12 $ BX7 X3+X1 $ SA7 A1 32 361 ZR B0,FIN1 32 362 CFU24 BX6 X1 $ SA6 A1 $ NZ B3,FIN1 32 363 LX1 12 $ BX6 X1+X3 $ SA6 A1 32 364 NZ X4,FIN1 32 365 LOOK. 0H30CF 32 366 FEX1 LX1 12 $ SX4 B3+1410B $ BX7 X1+X4 32 367 SA7 A1 $ ZR B0,FIN1 32 368 FFU1 SA2 X4+NFGEH-1 $ NZ X4,CFU22 FUNCTION 32 369 SB1 B1+B6 $ BX2 X1 $ SA1 A1+B6 $ AX4 B5,X2 RESTORE 32 370 SX3 1401B $ ZR B0,CFU15 32 371 FVE1 SB4 X1-1041B $ SA2 X1+NFGEH-1041B 32 372 NG B4,FIN1 $ ZR B0,CFU22 32 373 FOP1 BX7 -X7*X1 $ ZR X6,FIN1 $ AX6 12 32 374 SX2 X7-1410B $ SX3 X7-1407B 32 375 ZR X2,CFU25 $ ZR X3,CFU26 32 376 SX2 X7-1411B $ SX3 1407B 32 377 LX6 12 $ BX6 X3+X6 $ NZ X2,FIN1 32 378 CFU25 SA6 A1 $ ZR B0,FIN1 32 379 CFU26 AX1 12 $ SB3 B6-B3 $ MX4 56 $ AX6 B5,X1 32 380 BX4 -X4*X6 $ MX7 48 $ SA3 X4+DIR1 32 381 BX6 X7*X1 $ ZR B0,CFU21 32 382 FIN1 SA1 A1+B6 $ SB1 B1+B6 $ GE B2,B1,CFU20 32 383 IFO6 ERROR 53 ERROR IN COMPLEX CONJG 32 384 IFO5A ERROR 96 NON-NUMERIC EXPONENT. 32 385 ALG1 SA3 X7+IPR1-2001B $ AX2 B7,X5 $ SB1 X5+B6 32 386 SA5 A5+B6 $ SA4 X7+NAGEH-2001B $ MX1 55 32 387 NE B1,B5,IFO5A $ IX6 X2+X3 $ AX4 8 32 388 SA6 A3 $ BX1 -X1*X4 $ ZR X1,VERDER COMPARE EXPONENT WITH 32 389 IX4 X6-X1 $ MX7 0 $ NG X4,VERDER NAGEH. SET 0 IF GE. 32 390 SA7 IGET+1 $ ZR B0,INSER1 32 391 EXR1 RJ NUMWO1 TRY NUMERICAL EVALUATION 32 392 PL X2,NUM2 $ NO $ NO JP IF SUCCESSFUL 32 393 EXR1A SA4 A5-B6 $ MX2 52 $ NO $ LX7 B5,X4 CALLED FROM COE1 ALSO 32 394 BX1 -X2*X7 $ LX6 B5,X5 $ SA4 X1+LOC-1 LOC - ADDRESS KEY 32 395 BX6 -X2*X6 $ LX4 18 $ SX2 X4 $ LX1 48 (18BITS), NR OF DUMMYS 32 396 + NZ X2,*+1 $ SA4 KEYD1 (18),IT LOC(24) 32 397 + SA2 X4 $ BX6 X6+X1 $ LX4 18 $ SB1 X4+B6 KEY STARTS WITH 1401 32 398 NG X5,IFO17 $ SA6 MARKER 32 399 EQ B1,B6,EXR5 32 400 + BX7 X2 $ SB1 B1-B6 $ SA7 A0+IEP 32 401 + SA0 A0+B6 $ SA2 A2+B6 $ LT B0,B1,*-1 32 402 EXR5 SA5 A5+B6 $ SA0 A0+B6 $ SA6 A0+IEP-1 32 403 PL B7,VERDER $ SB7 B0-B7 $ BX6 X3 32 404 SA0 A0+B6 $ SA6 A6+B6 $ ZR B0,VERDER 32 405 IFO17 ERROR 63 EXPR WITH NEGATIVE EXPON 32 406 * 32 407 * IN ADDITION TO REGISTER USE AS GIVEN ABOVE - 32 408 * 32 409 * B1 B2 B3 X1 X2 A6 32 410 * -1 IPR-401B -1000B -2000B -3000B IEP 32 411 * 32 412 FUN1 SA2 NQA $ SX6 X7-3004B GI 32 413 SB1 X7-3001B $ SB3 -1000B DGEPF NEG FOR D,EPS,G 32 414 SA6 DGEPF $ NO $ MX6 0 32 415 SA6 NTABK $ EQ B1,B0,DEL1 32 416 MX6 0 $ SA6 TABKEY $ NO FOR TABLE 32 417 SB2 X7-3022B $ SX3 X7-3012B FOR DC CONSER IS SET 32 418 + NZ B2,*+1 $ SX6 A0+IEP ADDRESS FUNCTION 32 419 + SA6 CONSER $ NO $ SX6 B2+B6 32 420 BX6 -X3*X6 $ SB1 X2+B1 $ NG X6,FUN6 JP IF DD-DP 32 421 SX6 A0+B6 $ NE B6,B1,FUN2 $ SA6 A2 32 422 FUN2 SX1 B3+B3 $ SA3 A0+IEP-1 $ SB1 B0-B6 32 423 BX6 X3 $ SB2 IPR-401B $ SA0 A0+B6 32 424 SA6 A3 $ SX2 X1+B3 $ BX6 X7 X2=-3000B 32 425 FUN3 SX7 X7-2 $ ZR X7,OPF15 140*=OPERATION TO DO 32 426 IX4 X6+X2 $ SA6 A6+B6 $ NZ X4,FUN4 CHECK 3000B 32 427 SA3 CONSER $ ZR X3,VERDER 32 428 SA3 X3 $ BX7 -X7*X7 $ SX3 3400B TREAT DC 32 429 + LX3 52 $ SX6 B0 $ SB3 X3+B6 $ SA6 A3 DC=1 IF SUM ARGS IS 0, 32 430 + AX3 52 $ IX7 X7+X3 $ NE B3,B5,CONFO1 ELSE 0. 32 431 + SA3 A3+B6 $ IX4 X3+X2 $ NZ X4,*-2 32 432 SA6 A3 $ ZR X7,VERDER $ NO 32 433 SA6 IGET+1 $ ZR B0,INSER1 32 434 CONFO1 ERROR 193 DC REQUIRES NUMERICAL ARG. 32 435 FUN4 LX6 B5,X5 $ SX7 X5+B1 $ SA0 A0+B6 $ SA5 A5+B6 32 436 NZ X7,FUN3 $ SA6 A6+B6 $ SA3 X6+B2 JP IF NOT INDEX 32 437 SA4 NTABK $ NZ X4,FUN4 IGNORE TABLE ARGS 32 438 IX7 X1-X3 $ SX4 X3+B1 $ SA7 A3 $ BX6 X3 32 439 NG X4,FUN4 $ SX4 X3+B3 $ MX7 0 JP IF N OR F IN IPR 32 440 SA6 A6+B0 $ SA7 A3 $ PL X4,FUN4 JP IF V OR NR IN IPR 32 441 BX7 X1 $ SA7 X3+B2 $ ZR B0,FUN4 DELTA IN IPR 32 442 FUN5 SA3 NQB $ SX6 X3+1 DD,DB,DT,DS,DX,DK,DP 32 443 SA6 A3 $ ZR B0,FUN2 12,13,14,15,16,17,20 32 444 FUN6 NZ X3,FUN5 $ LX3 B5,X5 $ SX4 X3+B3 JP IF NOT DD 32 445 NZ X4,FUN5 $ SA4 A5+B6 JP IF NOT 1000B 32 446 SX3 X4-3 $ NZ X3,FUN8 JP IF NOT OPERATOR 32 447 LX3 B5,X4 $ SX3 X3-1407B - SIGN ALLOWED. 32 448 NZ X3,IFO18 $ SA3 IGET+1 32 449 SA4 A5 $ BX6 -X3 $ LX7 B0,X4 $ SA6 A3 32 450 SA7 A4+B6 $ SA4 A5-B6 $ BX6 X4 $ LX5 B0,X4 32 451 SA6 A5 $ ZR B0,VERDER 32 452 FUN7A SX3 X4-6 $ NZ X3,IFO18 32 453 LX4 8 $ SX4 X4-1740B $ LX4 52 32 454 FUN8 SX3 X4-2 $ NZ X3,FUN9 JP IF NOT FUNCTION 32 455 LX4 8 $ SX7 X4-1041B 32 456 NG X7,IFO18 $ SX4 X4+1740B 32 457 SX7 X4-3001B $ SA5 A4 D 32 458 ZR X7,IFO19 $ SX7 X4-3015B DS 32 459 ZR X7,IFO19 $ SX7 X4-3016B DX NOT ALLOWED 32 460 LX4 52 $ BX6 X4 $ LX5 B0,X4 $ SA6 A5 32 461 NZ X7,VERDER $ ZR B0,IFO19 32 462 FUN9 SX3 X4-5 $ NZ X3,FUN7A JP IF NOT EXPRESSION 32 463 SA3 NXEX $ LX4 8 $ MX6 52 32 464 BX6 -X6*X4 $ IX6 X3-X6 $ NG X6,IFO18 32 465 SA3 X4+NXGEH-2401B $ SX6 B6-B3 $ LX6 52 1001B = X-EXPRESSIO 32 466 LX3 42 $ NG X3,FUN10 $ LX3 7 32 467 + PL X3,*+1 $ BX5 X6 $ SA6 A5 32 468 + MX6 52 $ LX3 11 $ BX3 -X6*X3 32 469 SX6 X3+2400B $ LX6 52 $ SA6 A4 32 470 ZR B0,FUN5 32 471 FUN10 SX6 401B $ LX6 52 $ SA6 A5 FILE 32 472 BX5 X6 $ ZR B0,FUN5 32 473 IFO18 ERROR 64 DUMMY FU WRONGLY REPLACED 32 474 IFO19 ERROR 65 WRONG REPLACEMENT OF DUMMY FU 32 475 OPF15 SA3 X6+DIR3-1400B $ AX3 30 $ SB1 X3 32 476 LX7 B5,X5 $ MX3 48 $ JP B1+0 32 477 SQB1 SB0 B0 1404 [SFV...] 32 478 CHA1 SB1 B0-B6 $ SA5 A5+B6 $ MX3 48 $ BX6 -X3*X6 1426 =CHAR. 32 479 LX7 12 $ BX6 X6+X7 $ SX2 X1+B3 $ SA6 A6+B6 MAKE XXXX1426 32 480 ZR B0,FUN4 32 481 SIF1 SA2 DGEPF $ SB1 B0-B6 $ SA5 A5+B6 32 482 + SA3 NTABK $ NZ X3,*+2 32 483 + NG X2,SIF6 $ NO $ SB0 B0 32 484 SX2 X7 $ AX2 8 $ SX2 X2-7 32 485 NZ X2,SIF4 $ MX2 52 $ BX7 -X7 - NUMBER 32 486 BX2 -X2*X7 $ SX6 X2+3400B $ MX7 0 32 487 SIF3 MX3 48 $ BX6 -X3*X6 $ LX7 12 $ BX6 X6+X7 32 488 SX2 X1+B3 $ SA6 A6+B6 $ ZR B0,FUN4 32 489 SIF4 SX2 X7-1000B $ PL X2,SIF3 JP IF NOT INDEX 32 490 SA2 NTABK $ NZ X2,SIF3 32 491 SA3 X7+B2 $ IX2 X1-X3 $ SX4 X3+B1 32 492 + PL X4,*+2 $ BX4 X7 $ LX7 B0,X2 N OR F IN IPR 32 493 + SA7 A3 $ BX7 X4 $ ZR B0,SIF3 32 494 + SX4 X3+B3 $ MX7 0 $ SA7 A3 $ BX7 X3 V OR NR, 32 495 PL X4,SIF3 $ BX7 X1 $ SA7 X3+B2 D IN IPR. 32 496 BX7 X3 $ ZR B0,SIF3 32 497 SIF6 SA2 IGET+1 $ SA5 A5-B6 $ LX7 52 1407B IN EPF 32 498 SX3 X6-1407B $ BX5 X7 $ BX7 -X2 OR G GIVES - SIGN IN FRONT 32 499 SA7 A2 $ SX2 -3000B $ SA0 A0-B6 32 500 ZR X3,FUN4 $ ZR B0,IFO11 32 501 IFO11 ERROR 57 ILLEGAL ARGM IN EPF OR G 32 502 REF1 SB1 B0-B6 $ SA5 A5+B6 $ ZR B0,SIF4 32 503 ITG1 LX7 12 $ SX3 1407B $ BX7 X3+X7 32 504 ITG2 SX3 X5-5 $ NZ X3,IFO12 32 505 SX6 A6 $ SA6 INDA2 32 506 RJ INTEG1 32 507 BX7 X6 $ AX7 53 $ NZ X7,IFO16 32 508 LX6 52 $ AX6 52 $ SX6 X6+B0 $ MX7 52 32 509 SA5 A5+B6 $ BX2 -X7*X6 $ SX6 X2+3400B -0 = 0 32 510 SA3 INDA2 $ SB3 -1000B 32 511 SX1 B3+B3 $ SA6 X3+B6 $ SB1 B0-B6 $ SX2 X1+B3 32 512 SB2 IPR-401B $ ZR B0,FUN4 32 513 IFO12 ERROR 37 INCORRECT INTEG ARGM 32 514 IFO16 ERROR 62 NR GT 128 AS FU ARGM 32 515 NUMWO1 BSS 1 EVALUATE EXPRESSION IN X7 32 516 BX1 X7 $ AX1 12 $ SB2 A0+IEP 32 517 + MX2 58 $ NZ X1,*+1 $ BX1 X7 32 518 + LX1 52 $ SX6 X1-5 $ LX1 8 CHECK IF 24**. IF NO 32 519 NZ X6,NUMWO1 $ SA1 X1+LOC-2401B SUCCESS X2 NEG 32 520 SA7 B2 $ SX6 A0 $ LX0 18 $ SX7 A5 32 521 BX6 X0+X6 $ AX1 42 $ SA7 INDA2+3 32 522 + NZ X1,*+1 $ SA1 KEYD1 32 523 + SB1 X1+B6 $ SA6 A7+B6 $ RJ EVNUM 32 524 + SA1 INDA2+3 $ SB6 1 32 525 SA3 A1+B6 $ SA5 X1 $ SB5 8 32 526 SA0 X3 $ AX3 18 $ SB7 52 32 527 SX0 X3 $ SB4 DIR1 32 528 ZR B0,NUMWO1 32 529 INTEG1 BSS 1 32 530 RJ NUMWO1 32 531 + SX4 16124B $ NG X2,IFO12 2**-70. FIXED POINT RESULT IN X6 32 532 LX4 45 $ FX3 X6*X4 $ FX2 X7+X3 $ FX6 X6+X2 ROUND BIT 70 32 533 UX7 B3,X6 $ LX6 B3,X7 $ ZR B0,INTEG1 32 534 DOF1 LX6 B5,X5 $ SA5 A5+B6 $ SX4 X6-1407B 32 535 MX3 55 $ LX7 B5,X5 $ NZ X4,DOF2 32 536 LX6 B5,X5 $ SA5 A5+B6 $ SB7 B0-B7 $ LX7 B5,X5 32 537 DOF2 SX4 X7-1407B $ NZ X4,DOF3 32 538 SB7 B0-B7 $ SA5 A5+B6 $ LX7 B5,X5 32 539 DOF3 SX4 X7-1400B $ BX6 -X3*X6 $ BX3 -X3*X7 32 540 IX7 X6-X3 $ LX6 5 $ PL X4,DOF5 32 541 + NG X7,*+1 $ AX6 5 $ LX3 5 32 542 + SX3 X3+2000B 32 543 DOF5 SA5 A5+B6 $ SX3 X3+4000B $ BX6 X3+X6 32 544 SA6 A6+B6 $ SB1 B0-B6 $ PL B7,FUN4 32 545 SX7 1407B $ LX6 12 $ BX6 X6+X7 32 546 SB7 B0-B7 $ SA6 B0+A6 $ ZR B0,FUN4 32 547 CCF1 SA4 NTABK $ NZ X4,CCF3 X6=10B HERE 32 548 SA3 DGEPF $ SX4 X3-11B DS-4=11B 32 549 SX6 X3-12B $ NZ X4,CCF3 DX-4 .JP IF NOT DS 32 550 CCF2 SA0 A0+B6 $ SA4 A5-B6 $ LX7 B5,X5 $ LX6 B5,X4 32 551 SA5 A5+B6 $ SB1 B0-B6 $ ZR B0,SIF4 32 552 CCF3 ZR X6,CCF2 $ SB7 B0-B7 JP IF DX 32 553 RQF1 SA2 A5 $ SB1 B0-5 $ MX5 18 DUMMY KEY REQUEST 32 554 + SX6 X2+B1 $ SA2 A2+B6 $ NZ X6,* SEARCH EXPR 32 555 SA4 KEYD1 $ SA2 A2-B6 $ SX6 B6 32 556 LX6 18 $ BX7 X4+X6 $ LX2 8 $ NO 32 557 MX5 36 $ SA3 X2+LOC-2401B $ LX4 42 32 558 LX3 18 $ SX6 X3 $ LX3 42 $ SB1 B0-B6 32 559 + SA0 A0-B6 $ NZ X6,RQF2 $ NO JP IF ALREADY KEY IN LOC 32 560 BX4 X5*X4 $ SA7 A4 $ BX6 -X5*X3 $ BX7 X4+X6 32 561 SA3 MBU $ SA7 X3+LOC-1 32 562 SX7 X3+B6 $ SA7 A3 $ SX7 X3+2400B 32 563 LX7 52 $ SB1 B0-B6 $ SA7 A2 $ NO 32 564 RQF2 SX2 X1+B3 $ SA5 A5 $ PL B7,FUN4 32 565 SB7 B0-B7 $ SA0 A0+B6 $ SA4 A5-B6 $ LX7 B5,X5 32 566 LX6 B5,X4 $ SA5 A5+B6 $ ZR B0,SIF4 32 567 PAF1 SA0 A0-B6 $ SB1 B0-B6 $ ZR B0,FUN4 32 568 TABF1 ERROR 191 FAILING TABLE LOOK-UP 32 569 TABF2 ERROR 192 TABLE OUT OF RANGE 32 570 TABD1 BSSZ 1 HOLDS END OF TABLE ARG LIST 32 571 TAB1 LX6 18 $ SX3 A0 $ BX3 X3+X6 $ LX3 18 TABKEY HOLDS 32 572 BX6 X7 $ NO $ SA6 A6+B6 $ NO 1414(1415),A0,ADDR 32 573 SX7 A6 $ BX7 X3+X7 $ SA4 NTABK OF TABLE NAME. 32 574 SA5 A5+B6 $ SB1 B0-B6 $ SA7 X4+TABKEY 32 575 SX7 X4+B6 $ SX4 X4-5 $ SA7 A4 32 576 NG X4,FUN4 $ ZR B0,TABF1 32 577 TABE SX6 A6 $ NO $ SA6 TABD1 KEEP END ARG LIST 32 578 TABEP SA4 NTABK $ SA3 X4+TABKEY-1 FOLLOWING THE TABLE 32 579 SA4 X3+B6 $ LX6 B7,X4 $ SX2 X6-7 NAME MUST BE 32 580 LX6 8 $ ZR X2,TAB3 $ BX7 X6 NR OR EXPR. 32 581 MX2 48 $ BX2 -X2*X6 $ SX2 X2-1426B CHAR MAY BE ARG. 32 582 AX6 12 $ ZR X2,TAB3 THEN A=1,B=2,.. ETC. 32 583 RJ INTEG1 EVAL. EXPR. X7. RESULT IN X6. 32 584 + NG X2,TABF2 X2 NEG = FAILING NUM EVAL. 32 585 TAB3 LX6 52 $ AX6 52 $ SB1 B0-B6 $ SX6 X6+B1 DO NOT USE X5,A5 32 586 SA3 NTABK $ NG X6,TABF2 GET TABLE NAME. 32 587 SA3 X3+TABKEY-1 $ NO $ NO 32 588 SA2 X3 $ SX7 X2-2400B $ AX7 8 MUST BE EXPR. 32 589 NZ X7,TABF1 $ SA4 X2+NXGEH-2401B GET IT ADDRESS 32 590 AX7 B6,X6 $ SB3 X4 $ SA4 X7+B3 $ LX6 59 GET ITEM 32 591 MX7 48 $ LX4 12 $ BX2 -X7*X4 $ AX4 12 CHECK 1424B 32 592 SX2 X2-1424B $ NZ X2,TABF2 A2=ADDRESS TABLE 32 593 + MX2 36 $ NG X6,*+1 $ AX4 24 NAME IN IEP. 32 594 + BX6 -X2*X4 $ BX2 -X2*X4 $ AX2 12 $ AX4 B5,X2 32 595 SB3 X3 $ AX3 18 $ SA0 X3 $ LX3 41 32 596 NZ X4,TABX1 $ SB2 X2 $ SA2 A2+B2 IF DUMMY, GET IT 32 597 MX7 48 $ BX6 -X7*X6 $ RJ OPMULT COMBINE X2, X6 INTO X6. 32 598 TAB4 MX4 48 $ BX7 -X4*X6 $ SX4 X7-1424B 32 599 + NZ X4,*+1 $ AX6 12 $ NO 32 600 + PL X3,*+2 $ BX2 X6 $ NO 32 601 + SX6 1407B $ RJ OPMULT 32 602 + MX7 48 $ BX4 -X7*X6 $ SA2 TABD1 SEE IF TABLE 32 603 AX4 1 $ SX7 X4-606B $ SB2 X2 606B=1414,5/2 32 604 NZ X7,EXTAB1 $ SB1 B3+B6 $ SX7 B2-B6 IF SO, MOVE 32 605 SA7 A2 $ NO $ SB0 B0 $ NO ARGS ONE BACK 32 606 + SA4 B1+B6 $ BX7 X4 $ SB1 B1+B6 $ SA7 A4-B6 32 607 + LT B1,B2,*-1 $ EQ B1,B2,TAB5 32 608 TABF3 ERROR 194 TABLE IN TABLE WITHOUT SUFFICIENT ARGS. 32 609 TAB5 SA2 NTABK $ MX4 48 $ BX7 -X4*X6 32 610 AX6 12 $ SX4 A0 $ SX3 B3 $ SA6 B3 32 611 LX4 18 $ BX3 X4+X3 $ LX7 36 $ BX7 X3+X7 32 612 SA7 X2+TABKEY-1 $ ZR B0,TABEP 32 613 EXTAB1 SA6 B3 $ SA4 NTABK $ SB1 B0-B6 32 614 SX7 X4+B1 $ SB3 B0-1000B $ SA7 A4 32 615 SX1 B3+B3 $ SX2 X1+B3 $ SB2 IPR-401B 32 616 NZ X7,FUN4 $ MX4 48 $ BX7 X4*X6 BACKSPACE 1 OR 2 32 617 SA5 A5-B6 $ SA0 A0-B6 $ SA3 A6-B6 $ LX7 40 32 618 + ZR X7,*+1 $ SA7 A5 $ SA5 A5-B6 32 619 + BX7 -X4*X6 $ BX6 X3 $ LX7 52 $ SA6 A3 32 620 SA7 A5 $ BX5 X7 $ ZR B0,FUN4 32 621 TABX1 SX7 X4-5 $ SA1 KEYD1 SEE IF (EXPR) OR X-EXPR. 32 622 + ZR X7,*+3 $ SX7 X4-3 X-EXPR IN TABLE = 14** 32 623 + NZ X7,TAB4 $ SX7 1000B ADD 1000B 32 624 + LX7 12 $ IX6 X6+X7 $ ZR B0,TAB4 32 625 + SX7 B6 $ LX7 18 $ BX7 X7+X1 $ SA7 A1 SET PRESERVE BIT 32 626 SA1 MBE1 $ SX7 1401B TO AVOID OVERWRITING 32 627 SA7 X1+IT-1 $ SA4 TABD1 B2=ADDR LAST ARG 32 628 SB1 B3+B6 $ NO $ SB2 X4 $ NO MAKE DUMMY KEY 32 629 + SA4 B1 $ BX7 X4 $ SB1 B1+B6 $ SA7 A7+B6 FROM ARGS 32 630 + SX1 X1+B6 $ GE B2,B1,*-1 $ SX7 X1+B6 32 631 SA4 A1 $ SA7 A4 $ IX7 X1-X4 $ BX2 X6 MAKE NEW LOC 32 632 SX1 X4+IT-1 $ AX2 12 $ NO REFERRING 32 633 LX7 24 $ LX1 42 $ SA4 X2+LOC-2401B TO DUMMY KEY 32 634 BX7 X1+X7 $ MX2 42 $ SA1 MBU 32 635 BX4 -X2*X4 $ BX7 X7+X4 $ SA7 X1+LOC-1 32 636 SX7 X1+B6 $ MX4 48 $ SA7 A1 $ BX6 -X4*X6 32 637 SX7 X1+2400B $ LX7 12 $ BX6 X6+X7 32 638 MX4 48 $ BX1 -X4*X6 $ SX2 B0 $ LX1 59 32 639 SX4 X1-605B $ NZ X4,TAB4 CHECK IF INTEG 32 640 + BX7 X6 $ AX7 12 $ PL X1,*+2 JP IF -INTEG 32 641 + SX1 1407B $ LX7 12 $ BX7 X1+X7 32 642 + RJ INTEG1 32 643 + MX4 52 $ LX6 52 $ AX6 52 $ SX6 X6+B0 32 644 BX7 -X4*X6 $ SX6 X7+3400B $ MX2 0 32 645 SA4 NTABK $ SA3 X4+TABKEY-1 32 646 SB3 X3 $ LX3 23 $ ZR B0,TAB4 32 647 OPMULT BSS 1 COMBINE X2 AND X6 INTO X6. USES ALSO A4,X4,X7,B2 32 648 MX4 48 $ BX7 X4*X6 $ ZR X7,OPM1 NO MORE THAN ONE DOUBLE. 32 649 BX7 X6 $ BX6 X2 $ BX2 X7 $ BX7 X4*X6 32 650 NZ X7,OPMF1 32 651 OPM1 LX6 52 $ SX7 X6-3 $ LX6 8 32 652 ZR X7,OPM3 $ NZ X6,OPM2 JP IF X6 OPER. 32 653 BX6 X2 $ MX2 0 $ ZR B0,OPM1E 32 654 OPM2 BX7 X4*X2 $ NZ X7,OPMF1 $ LX2 40 X6 N.Z., NOT OPER. 32 655 ZR X2,OPMULT $ SX7 X2-3 32 656 LX2 20 $ SX4 X2-1422B $ MX2 0 32 657 NZ X7,OPMF1 $ ZR X4,OPMULT 32 658 SX4 X4+1422B $ LX6 12 $ BX6 X6+X4 32 659 OPM1E LX6 40 $ SX7 X6-7 $ LX6 20 CHECK 1407 NR 32 660 NZ X7,OPMULT $ MX4 48 $ BX7 -X4*X6 32 661 SX7 X7-1407B $ NZ X7,OPMULT 32 662 MX7 52 $ AX6 12 $ BX6 -X6 $ BX6 -X7*X6 32 663 SX6 X6+3400B $ ZR B0,OPMULT 32 664 OPM3 SX7 X6-1422B $ NZ X7,*+2 X6=OPER. 32 665 + BX6 X2 $ MX2 0 $ ZR B0,OPM1E 32 666 + BX7 -X4*X2 $ LX7 52 $ SB2 X7-3 32 667 ZR B2,OPM4 $ BX7 X4*X2 $ LX2 12 32 668 BX6 X6+X2 $ MX2 0 $ ZR X7,OPM1E 32 669 OPMF1 ERROR 117 ERRONEOUS SEQUENCE OF OPERATORS 32 670 OPM4 LX7 8 $ SX4 X7-1405B $ AX2 12 32 671 IX4 X4+X4 $ SB2 X4 $ IX4 X4+X4 $ SB2 B2+X4 MULT BY 6 32 672 SX7 B2-59 $ BX4 -X4*X7 $ NO CHECK BOTH OPERATORS 32 673 SX7 X6-1416B $ SX6 X6-1405B IN RANGE 32 674 BX7 -X6*X7 $ BX4 X4*X7 $ PL X7,OPMF1 32 675 SA4 X6+INA7 $ MX7 54 $ AX4 B2,X4 USE OP. MULT TABLE 32 676 BX7 -X7*X4 $ SX4 X7+1400B $ BX6 X2 RESULT =0 OR OPER. 32 677 MX2 0 $ ZR X7,OPMULT $ LX6 12 32 678 BX6 X4+X6 $ ZR B0,OPM1E 32 679 ZR B0,FUN4 32 680 DEL1 LX3 B5,X5 $ SB1 X3-1000B $ SA5 A5+B6 32 681 PL B1,DEL3 $ LX4 B5,X5 $ SA5 A5+B6 32 682 DEL2 SB2 X4-1000B $ NG B2,DEL4 32 683 SX1 X4-1407B $ NZ X1,VEC5 32 684 SA1 IGET+1 $ LX4 B5,X5 $ SA5 A5+B6 32 685 BX7 -X1 $ SA7 A1 $ ZR B0,DEL2 32 686 DEL3 SX1 X3-1407B $ NZ X1,DEL3A 32 687 SA1 IGET+1 $ BX7 -X1 $ SA7 A1 32 688 ZR B0,DEL1 32 689 DEL3A LX4 B5,X5 $ SA5 A5+B6 $ SX1 X4-1407B 32 690 SB2 X4-1000B $ NZ X1,VEC3 32 691 SA1 IGET+1 $ BX7 -X1 $ SA7 A1 32 692 ZR B0,DEL3A 32 693 DEL4 SB3 X5-6 $ NZ B3,IFO3A 32 694 DEL5 SA2 X4+IPR-401B $ SB2 X4 $ MX7 57 OF THE FORM D(M,N),M,N IN 32 695 SA1 X3+IPR-401B $ SB1 X3 $ AX4 B5,X2 B1 AND B2. CONSTRUCT 32 696 SX3 X1+400B $ SX6 X4+B6 $ BX4 -X7*X6 TYPICAL NUMBER FROM IPR 32 697 AX3 5 $ IX6 X2-X1 $ SB3 X4 $ LX7 3 CONTENTS, JP ACCORDINGLY 32 698 BX5 -X7*X3 $ SX4 X5+B3 $ SA3 X4+DIR2 32 699 NG X6,DEL6 $ EQ B1,B2,DEL12 JP TO DEL12 ID D(M,M) 32 700 SX7 B2 $ SB2 B1 $ BX6 X2 $ LX2 B0,X1 ARRANGE X1 LARGER X2 32 701 SB1 X7 $ BX1 X6 $ IX6 X2-X1 N=NOTHING, V=VECTOR, D=DELTA, F=F 32 702 DEL6 SB3 X3 $ MX7 0 $ JP B3+0 I=NUMBER FOR IPR CONTENT 32 703 IFO3A ERROR 38 32 704 DVV1 SA7 A1 $ SX2 X2-1000B $ SA7 A2 ARRANGE SUCH THAT X1 32 705 SX1 X1+5000B $ LX2 5 $ SX3 B6 LARGER THAN X2 32 706 LX5 B7,X3 $ BX7 X1+X2 $ SB2 B6+B6 $ SB1 X0 32 707 SA1 ISCAL $ NZ X7,DOT2 32 708 DII1 BX3 X6 $ MX6 0 $ SA7 A1 $ SA6 A2 32 709 SA5 A5+B6 $ ZR X3,VERDER 32 710 SA6 IGET+1 $ ZR B0,INSER1 32 711 DIV1 SA7 A1 $ SX2 X2-1000B $ SA7 A2 32 712 SX3 4037B $ SX4 X1+400B 32 713 LX2 5 $ BX1 X3*X4 $ SX3 B6 $ LX5 B7,X3 32 714 BX7 X1+X2 $ SB2 B6+B6 $ SB1 X0 $ NO 32 715 SA1 ISCAL $ ZR B0,DOT2 32 716 DVD1 BX6 X1 $ SA7 B1+IPR-401B 32 717 SA6 X2+IPR-401B $ SA7 B2+IPR-401B 32 718 SA5 A5+B6 $ AX1 B7,X5 $ SA4 X5+B4 $ LX7 B5,X5 32 719 SB1 X4 $ SA5 A5+B6 $ JP B1+0 32 720 DVN1 BX6 X1 $ SA7 B1+IPR-401B 32 721 SA6 B2+IPR-401B 32 722 SA5 A5+B6 $ AX1 B7,X5 $ SA4 X5+B4 $ LX7 B5,X5 32 723 SB1 X4 $ SA5 A5+B6 $ JP B1+0 32 724 DVF1 SA7 A1 $ BX6 X1 $ SX4 B2 $ SA7 A2 32 725 DEL7 SB1 A0 $ SB2 B0-B6 $ MX5 48 32 726 DEL8 SA2 B2+IEP+1 $ SB2 B2+B6 $ BX3 -X5*X2 32 727 SB3 X2-1401B $ GE B2,B1,IFO30 32 728 IX1 X3-X4 $ LX2 48 $ ZR B3,DEL10 32 729 BX3 -X5*X2 $ IX7 X3-X4 $ ZR X1,DEL9 32 730 NZ X7,DEL8 $ LX5 12 $ LX6 12 32 731 DEL9 LX2 12 $ BX3 X5*X2 $ BX7 X3+X6 $ SA7 A2 32 732 ZR B0,DEL11 32 733 DEL10 MX7 12 $ SA2 B2+IEP+1 $ BX7 X7*X2 32 734 SB2 B2+B6 $ ZR X7,DEL10 32 735 GE B1,B2,DEL8 $ ZR B0,IFO30 32 736 IFO30 ERROR 43 TROUBLE WITH ARGMS OF D FU 32 737 DDD1 SA7 A2 $ SB1 X1 $ BX6 X2 $ SA7 A1 32 738 EQ B1,B2,DEL12 $ SB2 X2 $ LX7 B0,X1 32 739 SA6 B1+IPR-401B $ SA7 B2+IPR-401B 32 740 DEL11 SA5 A5+B6 $ AX1 B7,X5 $ SA4 X5+B4 $ LX7 B5,X5 32 741 SB1 X4 $ SA5 A5+B6 $ JP B1+0 32 742 DDN1 SA7 B1+IPR-401B $ SB1 X1 32 743 DNN1 SX6 B2 $ SX7 B1 $ SA6 B1+IPR-401B 32 744 SA7 B2+IPR-401B 32 745 SA5 A5+B6 $ AX1 B7,X5 $ SA4 X5+B4 $ LX7 B5,X5 32 746 SB1 X4 $ SA5 A5+B6 $ JP B1+0 32 747 DDF1 SA7 A1 $ BX6 X1 $ SA7 A2 $ SX4 B2 32 748 SX7 -2000B $ SA7 X1+IPR-401B 32 749 ZR B0,DEL7 32 750 DNF1 SX6 -2000B $ SA7 B2+IPR-401B 32 751 SA6 B1+IPR-401B $ SX4 B2 $ SX6 B1 32 752 ZR B0,DEL7 32 753 DFF1 MX6 0 $ SA7 A1 $ SA6 A2 $ SX4 B1 32 754 SX6 B2 $ ZR B0,DEL7 32 755 DEL12 SA3 NVIND $ SB2 B2-401B 32 756 SB1 X3 $ SA2 =4. $ MX4 0 32 757 + GE B2,B1,*+1 $ SA4 B2+NVIGEH 32 758 + MX7 54 $ BX7 -X7*X4 $ SX7 X7-16B N 32 759 NG X7,DEL16 $ SX7 X7+16B N 32 760 SA3 NALGE $ SA4 NAGEH 32 761 SB1 X3 $ LX7 54 $ MX6 30 $ SB2 B6 32 762 DEL14 BX4 X6*X4 $ IX3 X4-X7 $ ZR X3,DEL15 32 763 SA4 A4+B6 $ SB2 B2+B6 $ GE B1,B2,DEL14 32 764 IFO20 ERROR 66 VAR DIM SYMBOL NOT IN S LIST 32 765 DEL15 SA4 B2+IPR1-1 $ MX6 59 $ IX7 X4-X6 32 766 SA7 A4 $ ZR B0,DEL11 32 767 DEL16 MX7 54 $ SA1 IGET+1 $ SA3 A1+B6 32 768 FX6 X1*X2 $ BX4 -X7*X4 $ FX7 X3*X2 $ PX4 B0,X4 32 769 SA6 A1 $ NX4 B0,X4 $ SA7 A3 $ BX6 X1-X3 32 770 ZR X4,DEL11 $ AX6 59 $ BX3 X3-X6 32 771 FX6 X3*X4 $ FX3 X1*X4 $ DX7 X1*X4 $ NO 32 772 SA5 A5+B6 $ FX1 X6+X7 $ FX6 X1+X3 $ DX7 X1+X3 32 773 SA6 A1 $ SA7 A3 $ ZR B0,VERDER 32 774 NUM1 PX2 B0,X1 $ MX7 0 $ NX6 B0,X2 $ NO 32 775 NUM2 SX2 X5-7 $ NZ X2,IFO5 JP IF EXPON IS NOT NUMBER 32 776 + NZ X6,*+2 $ NG X5,IFO32 JP IF RESULT NZ, IF EXPON NEG 32 777 SA6 IGET+1 $ ZR B0,INSER1 X6=0 32 778 + SA6 INDA2+1 $ NO $ SA7 A6+B6 32 779 AX6 B7,X5 $ NO $ SA6 INDA2 EXPONENT 32 780 SX7 A5 $ SX6 A0 $ LX0 18 $ BX6 X0+X6 32 781 SA7 INDA2+3 $ SA6 A7+B6 32 782 SA1 IGET+1 $ SA2 A1+B6 $ BX6 X1-X2 32 783 AX6 59 $ BX7 X2-X6 $ SB4 B0 $ SA7 A2 32 784 SA1 BRIAN1C $ RJ BRIAN 32 785 + SA1 INDA2+3 $ SB6 1 32 786 SA2 A1+1 $ SB7 52 32 787 SB5 8 $ SB4 DIR1 32 788 SA5 X1+B6 $ SA0 X2 $ AX2 18 32 789 SX0 X2 $ JP VERDER 32 790 BRIAN1C VFD 60/IGET+1 BRIAN CALLING SEQUENCE 32 791 VFD 60/INDA2+1 32 792 VFD 60/INDA2 32 793 VFD 60/0 32 794 DOT1 SX2 3700B $ SA1 ISCAL 40** IS PASS 32 795 BX6 X2*X7 $ SB2 B6+B6 $ ZR X6,VERDER VECTORS 0,1 IMPOSSIBLE 32 796 SX2 X5-3 $ SB1 X0 $ LX6 B5,X5 32 797 NZ X2,DOT2 $ SX2 X6-1407B 32 798 SA5 A5+B6 $ NZ X2,IFO5 $ BX5 -X5 32 799 DOT2 GE B0,B1,DOT3 $ IX2 X7-X1 $ SB1 B1-B2 32 800 SA1 A1+B2 $ NZ X2,DOT2 $ SA2 A1-B6 32 801 AX6 B7,X5 $ SA5 A5+B6 $ IX6 X2+X6 $ AX1 B7,X5 32 802 SA6 A2 $ SA4 X5+B4 $ LX7 B5,X5 $ SB1 X4 32 803 SA5 A5+B6 $ JP B1+0 32 804 DOT3 SA7 X0+ISCAL $ AX6 B7,X5 $ IX1 X1-X1 32 805 SX0 X0+2 $ SA6 A7+B6 $ SA5 A5+B6 32 806 ZR X1,VERDER 32 807 IFO5 ERROR 52 EXPONENT SHOULD EVALUATE TO A NUMBER 32 808 IFO32 ERROR 41 0**NEG NR IS ILLEGAL 32 809 * 32 810 * TREATMENT OF SPECIAL FUNCTIONS. THIS IS DONE AFTER ALL 32 811 * FACTORS HAVE BEEN MULTIPLIED IN. 32 812 * 32 813 VFD 36/6HINSER2,24/0 32 814 INSER2 BSS 1 ASSUME NQB IN X1 NON-ZERO 32 815 SB1 IEP 32 816 SA2 NEPS $ SB6 1 B6=1, B1=IEP COUNT 32 817 SPF2 SX7 B6 $ SX0 3020B $ IX6 X1-X7 32 818 SA3 B1 $ SB2 X2+IEP $ SA6 A1 32 819 + SX6 X3-3012B $ IX5 X0-X3 $ SB1 B1+B6 X5=6, 5,...,0 32 820 + BX5 X6+X5 $ LT B2,B1,IFO34 $ SA3 B1 X7=1 32 821 + NG X5,*-2 $ NO $ NO 32 822 SX2 3000B $ SX5 X3-401B 32 823 + IX7 X3-X2 $ SA3 A3+B6 $ NZ X7,* SEARCH END OF FUNCTION 32 824 SB3 A3 $ ZR X5,SPF13 32 825 MX7 0 $ RJ EVFUN TRY NUM EVAL OF ENTIRE DS FUNCTION 32 826 + SA1 IGET+1 $ NG X2,SPF10 E.G. DS(J,1,5,((J-3)**4),((J+2)/J)) 32 827 ZR X6,SPF8 $ SA2 A1+B6 $ BX3 X1-X2 32 828 AX3 59 $ BX2 X2-X3 $ FX4 X2*X6 $ FX5 X1*X7 32 829 FX4 X4+X5 $ FX2 X1*X6 $ DX5 X1*X6 $ NO 32 830 FX5 X4+X5 $ FX6 X5+X2 $ DX7 X5+X2 $ NO 32 831 SA6 A1 $ SA7 A2 $ MX6 0 $ SA6 B1-B6 32 832 + SA6 B1 $ SB1 B1+B6 $ LT B1,B3,* 32 833 SPF7 SA1 NQB $ ZR X1,INSER2 32 834 SA2 NEPS $ ZR B0,SPF2 32 835 SPF8 SA6 IGET+1 $ ZR B0,INSER2 32 836 SPF10 SA5 B1-B6 $ SX0 X5-3012B $ SX7 B6 DD 32 837 SX1 X5-3015B $ ZR X0,FDD1 SIGMA 32 838 NZ X1,SPF7 $ SX6 3777B RESTORE J X7=1 32 839 SA6 B3-6 $ RJ EVFUN CONSTRUCT NUM COEF FOR EACH TERM IN IEP 32 840 + NG X2,IFO8 $ NO USING 5TH ARG OF DS 32 841 + SA1 NEPS $ SB2 X1+IEP B2=FACT 32 842 SA2 MBE $ SA3 =1. X2=MBE 32 843 SA1 B3-5 $ SA5 B3-3 X1=M 32 844 SX6 1401B $ SX0 3777B EXPAND SIGMA 32 845 SA6 B1 $ LX0 36 $ BX7 X0+X2 $ SX0 B6 32 846 LX7 12 $ BX7 X0+X7 $ MX0 48 $ SA7 B1-B6 32 847 BX6 -X0*X5 $ SX7 X6-1407B $ BX6 X5 32 848 + NZ X7,*+2 $ AX6 12 32 849 + SA5 IGET+1 $ BX7 -X5 $ SA7 A5 32 850 + SX6 X6-2400B $ SX7 B6 $ MX0 52 32 851 BX0 X0*X6 $ LX6 48 $ NZ X0,IFO36 32 852 SA7 B3-6 $ BX6 X6+X7 $ SA6 A7+B6 32 853 SA5 A6+B6 $ MX7 0 $ BX6 -X6*X6 $ SA7 B3-B6 32 854 SA6 A5 $ SA7 A7-B6 $ SA6 A5+B6 $ MX4 0 32 855 SPF12 MX6 58 $ IX7 X2-X6 $ MX0 18 $ UX4 B0,X4 X6=-3 32 856 LX7 42 $ AX4 7 $ BX4 -X0*X4 $ IX7 X4+X7 32 857 SA7 X2 $ IX2 X2-X6 $ BX6 X3 $ SA6 A7+B6 32 858 SX7 1401B $ LX7 12 $ BX6 X7+X1 X1=RUNNING INDEX=J 32 859 BX4 X1 $ LX1 52 $ LX6 36 $ AX1 52 32 860 SA6 A6+B6 $ SX1 X1+B6 $ MX0 52 $ BX7 -X0*X1 32 861 SX1 X7+3400B $ IX6 X4-X5 $ SA3 B2 X5=UPPER LIMIT INDEX 32 862 SA4 B2+B6 $ SB2 B2+2 32 863 NZ X6,SPF12 $ SA3 X2+IT-4 32 864 MX0 18 $ BX6 -X0*X3 $ LX7 B0,X2 $ SA6 A3 32 865 SA7 A2 $ NO $ NO 32 866 SA7 MARKER $ ZR B0,SPF7 32 867 IFO34 ERROR 39 WRONG COUNT OF SPECIAL FUS 32 868 IFO8 ERROR 55 WRONG DS ARGM 32 869 IFO36 ERROR 67 WRONG DS FU ARGM 32 870 * TREATMENT OF FILES. 3012 0401 2403 ARG ... ARG 3000 ... IS SEEN 32 871 * B1 B3 32 872 SPF13 NZ X6,IFO31A $ SA3 B1+B6 $ BX7 -X7*X7 32 873 MX0 52 $ BX5 -X0*X3 $ SA2 X5+NXGEH-1 B2=NEXT FREE IN IEP 32 874 SA6 B1-B6 $ LX2 49 $ SA7 B1 $ MX1 4 2403 REPLACED BY LOC ADR 32 875 NG X2,SPF15 $ SA4 A3+B6 $ LX1 12 JP IF NOT SUBSCRIPTED 32 876 BX1 X1*X4 $ LX4 52 $ SX7 X1-3400B GET SUBSCRIPT 32 877 NZ X7,IFO13 $ MX0 30 $ AX4 34 32 878 SB1 B1+B6 $ LX2 11 $ SA7 B1 $ BX2 X0*X2 32 879 SA3 NXEX $ BX4 -X0*X4 $ BX7 X2+X4 32 880 MX4 42 $ SA2 NXGEH $ MX1 59 32 881 SPF14 BX6 X4*X2 $ IX5 X6-X7 $ LX2 49 $ IX3 X3+X1 32 882 MX0 52 $ ZR X5,SPF15 $ SA2 A2+B6 SEARCH 32 883 NZ X3,SPF14 $ ZR B0,IFO14 32 884 SPF15 LX2 11 $ BX5 -X0*X2 $ SA1 X5+LOC-1 32 885 ZR X5,IFO14 $ ZR X1,IFO14 32 886 SX7 X1 $ LX1 36 $ SA4 IGET+1 32 887 SB7 X1 $ NE B7,B6,SPF18 $ LX7 43 JP IF NOT NUMERICAL FILE 32 888 SA5 A4+B6 $ AX7 43 $ PX1 B0,X7 $ BX3 X4-X5 32 889 NX6 B0,X1 $ AX3 59 $ BX5 X5-X3 $ FX2 X6*X5 32 890 FX7 X6*X4 $ DX3 X6*X4 $ FX3 X2+X3 $ FX6 X7+X3 32 891 DX7 X7+X3 $ SA6 A4 $ SA7 A5 32 892 ZR X6,INSER2 $ MX6 0 32 893 + SA6 B1 $ SB1 B1+B6 $ LT B1,B3,* SET IEP ZERO 32 894 SPF17 SA1 NQB $ SA2 NEPS 32 895 ZR X1,INSER2 $ ZR B0,SPF2 GET OUT 32 896 SPF18 SX6 -3 $ SA6 MARKER 32 897 NG X7,SPF19 $ SX7 1401B JP IF ON TAPE 32 898 + SB7 X6+B3 $ NE B1,B7,*+1 $ MX7 0 32 899 + LX5 48 $ SX6 B6 $ SA7 B1+B6 $ BX6 X5+X6 32 900 SA6 B3-B6 $ SB1 B3 $ ZR B0,SPF17 32 901 SPF19 LX1 4 $ MX7 0 $ PL X1,SPF18 JP IF LOCAL 32 902 MX0 18 $ LX1 20 $ SX7 3777B //3777/ADRES KEY/MULTIPL=1// 32 903 BX6 X0*X1 $ ZR X6,SPF19A $ LX7 48 JP IF NO KEY 32 904 LX6 30 $ SX0 B6 $ BX6 X6+X7 $ BX7 X0+X6 SET BEFORE SUPERKEY 32 905 SA7 B1 $ SX6 1402B $ SA6 A7+B6 //LOC/0/MULTIPL=1// 32 906 SB7 LOC-1 $ SX7 A1-B7 $ LX7 48 BEHIND SUPERKEY 32 907 AX1 42 $ NO $ SA2 X1+2 32 908 BX7 X0+X7 $ MX0 55 $ SA7 B3-B6 $ MX4 12 32 909 SB7 B1-B3 $ SB5 B2 $ NO $ SB7 B7+B6 32 910 SPF20 BX3 X4*X2 $ LX2 12 $ ZR X3,SPF21 JP IF END OF KEY 32 911 LX3 4 $ AX0 1 $ SX6 X3-1 32 912 + NZ X0,*+1 $ SA2 A2+B6 $ MX0 55 TAKE NEXT WORD 32 913 + SB7 B7+B6 $ NG B7,SPF20 $ NO SKIP FILE ARGUMENTS 32 914 NZ X6,SPF20 $ BX3 X4*X3 $ LX3 8 JP IF NO INDEX 32 915 SA5 X3+NVIGEH-1 $ MX7 55 $ BX6 X5 32 916 LX5 43 $ PL X5,SPF21 $ BX6 -X7*X6 JP IF NO CREATED INDEX 32 917 RJ INDCR DOES NOT USE X0,X2 32 918 + SX6 X6+400B $ MX7 0 $ SA6 B2 32 919 SA7 X6+IPR-401B $ SB2 B2+B6 $ MX4 12 32 920 ZR B0,SPF20 32 921 SPF21 EQ B5,B2,SPF17 $ SB4 IEP JP IF NO CR IND WERE INSERTED 32 922 SA1 B3-2 $ SX6 B2-B4 $ SX7 B3-B4 WRITE JP BACK (B3) 32 923 SX6 X6+B6 $ LX7 36 $ SA6 NEPS 32 924 MX0 12 $ SA7 B2 $ LX0 48 $ NO 32 925 BX0 -X0*X1 $ SX6 B5-B4 $ SX6 X6+B6 $ LX6 36 JP FORWARD(B5) 32 926 BX6 X0+X6 $ SA6 A1 $ ZR B0,SPF17 32 927 SPF19A SX6 B1 $ SX7 B2 $ LX6 18 $ BX7 X6+X7 NAME LIST NOT YET IN 32 928 SB7 LOC-1 $ SX6 A1-B7 $ SA6 B1+B6 32 929 SX6 B3 $ LX7 18 $ BX6 X6+X7 $ SB1 A1 32 930 SA6 INDA2+3 $ RJ CROSR CROSR(LOC,BUF) 32 931 SX7 B6 $ NO $ SA7 NAMES 32 932 + SA2 INDA2+3 $ SB3 X2 $ AX2 18 32 933 SB2 X2 $ AX2 18 $ SB1 X2 $ SB7 B3-B1 B7=NR OF ARG + 3 32 934 SA2 B2+B6 $ SB4 IEP-2 $ SB5 B2-B4 X2=NR OF WORDS 32 935 SX6 B5+B7 $ MX7 0 $ SA7 B2 $ SB7 B7-B6 B5=TWO BEFORE NAME 32 936 + SA7 A7+B6 $ SB7 B7-B6 $ GE B7,B0,* 32 937 SA3 B1+B6 $ SX7 1401B $ LX6 36 PLANT JP FORWARD 32 938 SA7 A3 $ SX7 B6 $ SA4 B3-2 32 939 LX3 48 $ BX6 X4+X6 $ BX7 X3+X7 $ SA6 A4 32 940 SA7 B3-B6 $ SB4 IEP $ SB5 X2+B2 32 941 SX7 B3-B4 $ SB5 B5-B6 $ LX7 36 $ SA7 B5-B6 32 942 SX6 B5-B4 $ SA6 NEPS 32 943 ZR B0,SPF17 32 944 IFO31A ERROR 97 DVECT, BUT NOT DD 32 945 IFO13 ERROR 59 INDEX OF Z EXPR IS NOT NUMERICAL 32 946 IFO14 ERROR 60 REF TO NONEXISTING Z EXPR.WRONG INDEX 32 947 MACRO *CROSR 32 948 FDD1 SA1 B1 $ SX6 X1-1001B $ SB4 B3-B1 32 949 SB5 B4-2 $ ZR X6,FDD2 32 950 SX6 X1-1000B $ ZR X6,FDD3 32 951 NG B5,IFO7 $ LT B6,B5,IFO7 32 952 SA3 B1 $ SA4 B1+B6 $ SA2 NEPS 32 953 MX7 0 $ SB2 X2 $ SB3 IEP 32 954 SB1 B1-B3 $ ZR B0,FDD4 32 955 FDD2 SA1 B1+B6 $ MX0 48 $ BX7 X0*X1 $ BX1 -X0*X1 X-EXPR 32 956 ZR X7,FDD2A $ SX6 X1-1407B 32 957 NZ X6,IFO31 $ SA2 IGET 32 958 SA3 A2+B6 $ LX1 B0,X7 $ BX6 -X2 $ AX1 12 32 959 BX7 -X3 $ SA6 A2 $ SA7 A3 32 960 FDD2A SX6 1401B $ MX0 52 $ NO 32 961 SX7 X1-2400B $ BX0 X0*X7 $ SA6 B1+B6 32 962 SX2 B6 $ LX7 48 $ SX6 B0 $ BX7 X2+X7 32 963 SA6 B1-B6 $ SA7 B3-B6 $ SA6 B1 32 964 SA7 MARKER $ ZR X0,SPF7 32 965 ZR B0,IFO31 32 966 FDD3 SA1 B1+B6 $ NO $ MX0 48 $ NO D-EXPR 32 967 BX7 X0*X1 $ BX2 -X0*X1 $ ZR X7,FDD3A 32 968 SX6 X2-1407B $ NZ X6,IFO31 32 969 SA2 IGET $ SA3 A2+B6 $ AX1 12 32 970 BX6 -X2 $ BX7 -X3 $ SA6 A2 $ SA7 A3 32 971 FDD3A BX6 X1 $ SA6 A1 $ RJ SEARCH 32 972 + SX7 3777B $ LX6 12 $ SX5 B6 32 973 LX7 48 $ BX7 X6+X7 $ SX6 1401B 32 974 SA6 B1+B6 $ BX7 X7+X5 $ SA6 MARKER 32 975 SA7 B3-B6 $ MX6 0 $ SA6 B1-B6 $ BX7 -X7*X7 32 976 SA7 B1 $ ZR B0,SPF7 32 977 FDD4 MX6 0 $ SA7 A3-B6 $ SA6 A4+B6 $ SA7 A3 32 978 SA6 A4 $ BX7 X4 $ SA5 IEP 32 979 SB7 B0 $ SB4 B0-B6 $ SB1 B1+2 PRESERVE B1,B2,X0,B6=1 32 980 FDD5 IX6 X3-X5 $ SB7 B7+B6 $ LT B2,B7,FDD7 32 981 SA5 A5+B6 $ NZ X6,FDD5 $ SA7 A5-B6 32 982 ZR B0,FDD5 32 983 FDD7 PL B4,FDD8 $ SX6 1407B 32 984 LX3 12 $ SB4 B6 $ LX7 12 $ BX3 X3+X6 32 985 SB7 B0 $ SA5 IEP $ BX7 X7+X6 32 986 ZR B0,FDD5 32 987 FDD8 AX3 12 $ SB4 B0-B6 $ AX7 12 $ BX6 X3 32 988 SA4 NVIND $ AX6 9 $ NO 32 989 SB4 X6+B4 $ SA5 IPR $ SB7 X4 32 990 SB3 IPR1-2001B $ EQ B4,B6,FDD13 32 991 NZ B4,FDD10 $ NO $ NO 32 992 FDD9 IX6 X3-X5 $ SB7 B7-B6 $ NG B7,FDD14 32 993 SA5 A5+B6 $ NZ X6,FDD9 $ SA7 A5-B6 32 994 ZR B0,FDD9 32 995 FDD10 SA4 NDOTI $ SA5 ISCAL 32 996 SB7 X4 $ ZR X4,FDD14 $ SB5 B6+B6 32 997 FDD11 IX6 X3-X5 $ SB7 B7-B5 $ NG B7,FDD14 32 998 SA5 A5+B5 $ NZ X6,FDD11 $ SA7 A5-B5 32 999 SB4 X4 $ SA2 ISCAL 32 1000 FDD12 IX6 X7-X2 $ SB4 B4-B5 $ NG B4,FDD14 32 1001 SA2 A2+B5 $ NZ X6,FDD12 $ SA1 A2-B6 32 1002 EQ B4,B7,FDD12 $ NO $ NO 32 1003 SA2 A7+B6 $ IX6 X1+X2 $ SA6 A2 $ MX6 0 32 1004 SA6 A1 $ SA6 A1-B6 $ ZR B0,FDD14 32 1005 FDD13 BX4 X7 $ SA3 X3+B3 $ AX4 8 $ MX6 0 32 1006 SX4 X4-4 $ NZ X4,IFO35 32 1007 SA5 X7+B3 $ SA6 A3 $ IX7 X3+X5 $ SA7 A5 32 1008 FDD14 SX6 X3-3000B $ SB1 B1+IEP 32 1009 NZ X6,SPF7 $ ZR B0,IFO7 32 1010 IFO31 ERROR 42 WRONG REFERENCE TO Z,X,D EXPR 32 1011 IFO7 ERROR 54 DD FU NEEDS U OR 2 ARGMS 32 1012 IFO35 ERROR 61 WRONG ARGMS FOR DD FU 32 1013 END 33 0 IDENT MARTYN 33 1 MACRO *EXPAND 33 2 MACRO *EXPRNR 33 3 MACRO *EXEC 33 4 ENTRY MARTYN1 33 5 EXT INDCR,FOUT,BRIAN,TAKMAN,TAXMAN,EPSRED1 33 6 VFD 42/7HMARTYN1,18/0 33 7 MARTYN1 SA2 X1+NID $ SA4 NQA 33 8 SX6 A0 $ MX7 0 $ SA6 RETUR B1=NEXT ID, B2=LAST ID TO DO 33 9 SA1 IDADR $ NO $ NO 33 10 SB3 X1-1 $ SB1 X2+B3 $ LX2 30 33 11 BX6 X4 $ SB2 X2+B3 $ SA6 EPSM1 33 12 Z1IDT SA1 LEVEL $ LT B2,B1,Z2UIT 33 13 SA0 X1 $ SA3 B1 $ SX1 A0+1 X1=LEVEL+1 IN LEFT 9 BITS 33 14 MX0 54 $ SB4 A0 $ SB6 42 B4=-LEVEL 33 15 SB5 27 $ LX1 51 $ SB4 B0-B4 INSPECTION OF 33 16 Z2IDT LX6 B5,X3 $ IX4 X1-X3 $ SX7 X6+B4 $ SB3 A3 LEVEL LIMITS IN 33 17 SA5 IDADR $ BX4 X4+X7 $ LX2 B6,X3 33 18 SB7 X5-1 $ NO $ SA3 X3+B7 33 19 SB1 A3 $ BX7 -X0*X2 $ PL X4,Z2RAAK 33 20 GE B2,B1,Z2IDT $ SA3 MARKER 33 21 Z2UIT SA1 EPSM1 $ SA5 NEPS 33 22 ZR X1,ANNE1R $ BX7 -X1 $ SA7 A1 33 23 RJ EPSRED1 33 24 ANNE1R SA5 RETUR $ NO $ SB6 X5 33 25 JP B6+0 33 26 ANNE0R SA5 RETUR $ MX6 0 $ SB6 X5 33 27 SA6 IGET+1 $ JP B6+0 33 28 Z2RAAK LX7 59 $ SA1 X7+WAARZO $ LX6 9 33 29 + NG X7,*+1 $ AX1 30 ANTHAU = KUIT FROM PILOT WORD 33 30 + MX7 51 $ BX6 -X7*X6 $ SB7 X1 33 31 SA6 ANTHAU $ JP B7+0 33 32 WAARZO VFD 30/SOORT0,30/SOORT1,30/SOORT2,30/SOORT3,30/SOORT4 33 33 VFD 30/SOORT5,30/SOORT6,30/SOORT7,30/SOORT8,30/SOORT9 33 34 VFD 30/SOORT10,30/SOORT11,30/SOORT12,30/SOORT13,30/FOUTB1 33 35 VFD 30/SOORT15,30/SOORT16,30/FOUTB1,30/FOUTB1,30/FOUTB1 33 36 VFD 30/FOUTB1,30/FOUTB1,30/FOUTB1,30/FOUTB1,30/FOUTB1 33 37 VFD 30/FOUTB1,30/FOUTB1,30/FOUTB1,30/FOUTB1,30/FOUTB1 33 38 VFD 30/SOORT30,30/SOORT31,30/SOORT32,30/SOORT33,30/SOORT34 33 39 VFD 30/SOORT35,30/SOORT36,30/SOORT37,30/FOUTB1,30/SOORT39 33 40 VFD 30/SOORT40,30/SOORT41,30/SOORT42,30/SOORT43,30/SOORT44 33 41 VFD 30/SOORT45,30/SOORT46,30/SOORT47,30/SOORT48,30/SOORT49 33 42 VFD 30/SOORT50,30/SOORT51,30/SOORT52,30/SOORT53,30/SOORT54 33 43 VFD 30/FOUTB1,30/FOUTB1,30/FOUTB1,30/FOUTB1,30/FOUTB1 33 44 VFD 30/FOUTB1,30/FOUTB1,30/FOUTB1,30/FOUTB1 33 45 FOUTB1 ERROR 68 UNIMPLEMENTED SUBST OR COMMAND 33 46 SOORT0 SB6 1 $ SA3 NEPS FUNCTION WITH ONLY DUMMIES 33 47 SA1 B3+B6 $ AX1 8 $ ZR X1,SOORT10 33 48 ZR X3,Z1IDT $ SA1 IEP 33 49 LX6 48 $ SB4 X3 $ SX4 B6 $ BX7 X6+X4 33 50 SA2 B3+B6 $ SB5 B6 $ SX6 1401B 33 51 Z2DOORG IX4 X2-X1 $ SA1 A1+B6 $ LT B4,B5,Z1IDT 33 52 SB5 B5+B6 $ NZ X4,Z2DOORG $ SA6 A1-B6 33 53 SX0 3000B $ SA7 MARKER 33 54 Z4RAFU IX5 X1-X0 $ SA1 A1+B6 $ LT B4,B5,FOUTB2 33 55 SB5 B5+B6 $ NZ X5,Z4RAFU $ SA7 A1-B6 33 56 JP Z2DOORG 33 57 FOUTB2 ERROR 77 ERROR IN FU(DUMMIES) 33 58 SOORT1 SA3 B3+2 $ MX5 24 $ BX7 X5*X3 A**N, MULTIPLE SUBST. 33 59 SB6 1 $ SA1 B3+B6 $ SX0 B6 33 60 ZR X7,SO1A $ SA2 X1+IPR1-2001B NO EXP=EXP 1. 33 61 SO1D IX5 X2-X0 $ BX7 -X7*X7 $ SA4 NEPS 33 62 NG X5,Z1IDT $ LX6 48 $ SA7 A2 33 63 MX5 52 $ BX3 -X5*X2 $ IX6 X3+X6 $ SX7 X4+B6 33 64 SA6 X4+IEP $ SA7 A4 33 65 SA6 MARKER $ ZR B0,Z1IDT 33 66 SO1A SA2 X1+IPR1-2001B $ LX3 52 33 67 ZR X2,Z1IDT $ ZR B0,SO2E 33 68 SOORT2 SA1 B3+1 $ SA5 NDOTI J**N, MULTIPLE SUBSTITUTION. 33 69 SB6 A1-B3 $ SB4 ISCAL $ SA3 A1+B6 33 70 SO2A SX5 X5-2 $ SA4 X5+B4 $ BX7 X1-X4 33 71 NG X5,Z1IDT $ SA2 A4+B6 $ MX4 24 33 72 NZ X7,SO2A $ BX7 X4*X3 $ SX0 B6 33 73 NZ X7,SO1D $ LX3 52 33 74 SO2E AX3 52 $ BX1 X3 $ AX3 8 $ BX7 X2-X3 33 75 PX5 B0,X2 $ BX3 X1-X3 $ IX7 X7-X3 $ PX3 B0,X1 33 76 NG X7,Z1IDT $ NX7 B0,X3 $ NX5 B0,X5 33 77 FX5 X5/X7 $ UX3 B4,X5 $ LX3 B4,X3 $ PX5 B0,X3 X3=X2/X1 33 78 NX5 B0,X5 $ FX7 X5*X7 $ UX5 B4,X7 $ LX4 B4,X5 33 79 SO2C SA5 NEPS $ IX7 X2-X4 $ MX4 52 REST IN X7 33 80 BX3 -X4*X3 $ SA7 A2 $ LX6 48 $ IX6 X3+X6 33 81 SX7 X5+B6 $ SA6 X5+IEP $ SA7 A5 33 82 SA6 MARKER $ ZR B0,Z1IDT 33 83 SOORT3 SA1 B3+1 $ SA2 X1+IPR1-2001B A**N, ONCE IF EXACT 33 84 SA4 B3+2 $ SB6 A1-B3 $ LX4 52 B7=0 IF COMING FROM SOORT7 33 85 SO3B AX4 52 $ IX7 X2-X4 $ SX3 B6 OR SOORT8. 33 86 ZR X7,SO2C $ BX5 X2-X4 $ BX1 X2-X7 33 87 NZ B7,Z1IDT $ BX5 X5+X1 33 88 PL X5,SO2C $ ZR B0,Z1IDT 33 89 SOORT4 SA1 B3+1 $ SA5 NDOTI J**N, ONCE IF EXACT. 33 90 SB6 A1-B3 $ SB4 ISCAL $ SA4 A1+B6 33 91 SO4A SX5 X5-2 $ SA3 X5+B4 $ BX7 X3-X1 B7=0 IF COMING FROM SOORT8 33 92 NG X5,Z1IDT $ NZ X7,SO4A 33 93 SA2 A3+B6 $ LX4 52 $ ZR B0,SO3B 33 94 SOORT5 MX6 0 $ RJ Z9IDT 33 95 + JP Z1IDT 33 96 SOORT6 MX6 0 $ RJ Z9IDT 33 97 + NZ B5,SOORT6 $ JP Z1IDT 33 98 SOORT7 SB7 1 $ SA1 B3+2 B7 IS ALSO SWITCH IN SOORT3 33 99 MX5 24 $ BX7 X5*X1 $ SA3 NEPS ID,FUNCT,A=DOLLAR1 33 100 SB6 X3 $ SB4 B0 $ NZ X7,Z1IDX 33 101 SB7 B0 $ ZR B0,SOORT3 33 102 Z1IDX GE B0,B6,Z1IDT $ SA5 ANTHAU EXTRACT DOLLAR1 FROM 33 103 SX4 2400B $ SA1 B3+B7 $ BX6 X4+X5 PILOT WORD IN IDGEH 33 104 SA3 B4+IEP-1 $ SX5 1407B 33 105 BX4 X1 $ LX7 B0,X6 $ LX4 12 $ BX2 X4+X5 33 106 LX7 12 $ BX7 X7+X5 $ SB5 B0 $ NO 33 107 Z1IDY GE B4,B6,Z1IDT $ SA3 A3+B7 $ SB4 B4+B7 B5 IS FLAG. NZ WHEN 33 108 + SX0 X3-3000B $ NZ B5,*+3 LOOKING AT FUNCTION ARGUMENTS. 33 109 + SX4 X0-400B $ BX4 -X0*X4 $ AX4 59 X1=A , X2=-A 33 110 + BX5 X4*X7 $ SB5 X5 $ ZR B0,Z1IDY X7 IS NON ZERO 33 111 + IX4 X3-X1 $ NZ X4,*+1 $ SA6 A3 B5 ON,WHEN FUNCTION IS SEEN 33 112 + IX5 X3-X2 $ SB5 X0 $ NZ X5,Z1IDY OFF,WHEN 3000B SEEN 33 113 SA7 A3 $ ZR B0,Z1IDY X6=DOLLAR1 , X7=-DOLLAR1 33 114 SOORT8 SB7 1 $ SA1 B3+2 B7 IS ALSO SWITCH IN SOORT4 33 115 MX5 24 $ BX7 X5*X1 $ SA3 NEPS 33 116 SB6 X3 $ SB4 B0 $ NZ X7,Z1IDX 33 117 SB7 B0 $ ZR B0,SOORT4 33 118 SOORT9 MX6 0 $ RJ Z9IDT 33 119 + JP Z1IDT 33 120 * 33 121 *NXROUND EQU D9OGA START TESTROUND OR REPLACEMENT ROUND. 33 122 *NXFACT EQU D9OG START NEW FACTOR OF LHS OF SUBSTITUTION 33 123 *NOMATCH EQU NODI9 FACTOR OF LHS DOES NOT MATCH 33 124 Z9IDT BSS 1 33 125 SA6 ISWI1 $ SX7 B1 $ SX6 B2 ISWI1=0 IGNORE ORDER,INBETWEEN 33 126 SA7 B1HER $ SA6 B2HER 1 NOT IGNORING ORDER 33 127 SX7 B3 $ SB7 1 $ SA7 B3HER -1 ,, AND INBETWEEN 33 128 SB1 B0 $ SB4 B0 B1=0 FIRST ROUND 33 129 D9OGA BX6 -X6*X6 $ MX7 0 $ SA6 COMM1 1 SECOND ROUND 33 130 SA7 ISWIH1 $ SA6 ISWIH2 -1 UNCHECK 33 131 SA7 ISWIH4 B4=DUMMY COUNT 33 132 D9OG SA1 B3+B7 $ SB3 B3+B7 $ MX0 48 $ BX4 -X0*X1 B3=IDGEH COUNT 33 133 LX7 B0,X1 $ SB5 7 $ AX7 24 B7=1 33 134 AX4 8 $ SB6 X4 $ NZ X7,EIND9A ISWIH1,2,4=5 STATUS POINTS IN 33 135 LT B5,B6,SEDA9 $ JP B6+SO9RT IEP, IDGEH, B4. 33 136 * LOOK AT EACH QUANTITY OF IDGEHX. =LHS OF SUBSTITUTION. 33 137 SO9RT SB2 B4 $ JP SEFU9 DUMMY 0000 33 138 + ZR B0,SEDA9 INDEX 0400 33 139 + SA2 B3+B7 $ SB3 B3+B7 $ JP SEV9 VECTOR 1000 33 140 + JP FOUTB3 OPERATOR 1400 33 141 + SA2 B3+B7 $ SB3 B3+B7 $ JP SEA9 ALGEBRA 2000 33 142 + JP FOUTB3 EXPRESSION 2400 33 143 + SB2 B4 $ JP SEFU9 FUNCTION 3000 33 144 + JP FOUTB3 NUMBER 3400 33 145 D9OGF SA1 ISWI1 $ ZR X7,D9OG BACKSPACE TILL FIRST IF NO 33 146 PL X1,D9OG INBETWEEN ALLOWED 33 147 RET9R SA3 ISWIH1 $ SA4 ISWIH2 BACKSPACE ONE FUNCTION 33 148 SA5 ISWIH4 $ MX0 48 $ BX2 -X0*X3 COMM1=IEP STARTING POINT 33 149 SA1 IDADR $ SX6 X2+B7 $ BX7 -X0*X4 33 150 SB3 X1-1 $ NO $ SB3 X7+B3 33 151 SA6 COMM1 $ ZR X7,NODI9 IN SECOND ROUND DUMMY TABLE 33 152 + LT B0,B1,*+1 $ BX2 -X0*X5 $ SB4 X2 IS FIXED 33 153 + BX6 X0*X3 $ BX7 X0*X4 $ LX6 48 $ LX7 48 33 154 SA6 A3 $ SA7 A4 $ BX6 X0*X5 $ LX6 48 33 155 SA6 A5 $ LT B7,B3,D9OGF JP IF STILL AFTER FIRST 33 156 LOOK. 0HRET9 33 157 NODI9 GE B1,B7,FOUTB5 $ SB5 B0 MUST BE CHECK ROUND 33 158 EIND9 SA1 B1HER $ SA2 B2HER EXIT 33 159 SB1 X1 $ SB2 X2 $ SA1 B3HER 33 160 SA2 SE9VL $ SA5 NQX 33 161 SB3 X1 $ ZR X2,Z9IDT $ SB6 X5 SWITCH OFF MARKING BIT 33 162 SX6 B0 $ NO $ SA6 A2 $ NO SWITCH OFF MARKING BIT 33 163 + SA4 B6+IPR-1 $ GE B0,B6,Z9IDT AFTER NOMATCH. 33 164 + SB2 X4 $ SB6 B6-B7 $ GE B0,B2,*-1 POSSIBLY SET AT SEV9E 33 165 + SX6 B2 $ SA6 A4 $ ZR B0,*-2 SIGNALLED BY SE9VL NZ 33 166 * 33 167 DUIN9A SB4 X3 $ BX7 X4 INCREASE DUMMY TABLE 33 168 DUIN9B SA7 X3+IDUM1-1 $ MX6 0 X6=0 IF NO CONFLICT 33 169 DUIN9 BSS 1 ENTRY/EXIT 33 170 * X3 IS NUMBER OF THE DUMMY. X4 IS ITS VALUE 33 171 SX7 X4-3000B $ SX6 B7 $ SB5 X3 3000B IS ILLEGAL DUMMY 33 172 ZR X7,DUIN9 $ LT B4,B5,DUIN9A JP IF ) , IF NEW DUMMY 33 173 SA5 X3+IDUM1-1 $ IX6 X5-X4 $ BX7 X4 COMPARE 33 174 NZ X5,DUIN9 $ JP DUIN9B 33 175 * 33 176 D9OGB MX6 0 $ GE B0,B1,D9OG $ SA6 A4 ELIMINATE DOTPRODUCT 33 177 SA6 A4-B7 $ JP D9OG 33 178 D9OGC MX6 0 $ GE B0,B1,D9OG $ SA6 A4 ELIMINATE ALGEBRA OR VECTOR 33 179 JP D9OG 33 180 SEDA9 SA2 B3+B7 $ SB3 B3+B7 $ NO $ NO 33 181 SA5 NDOTI $ MX0 59 $ BX3 X0*X5 33 182 + SA5 X3+ISCAL-2 $ ZR X3,NODI9 SEARCH DOTPRODUCT 33 183 + SX3 X3-2 $ IX7 X1-X5 $ SA4 A5+B7 33 184 + MX0 52 $ BX6 -X0*X4 $ NZ X7,*-2 JP IF NOT SAME 33 185 SX4 X6+3400B $ ZR X6,NODI9 JP IF EXPONENT 0 33 186 IX6 X4-X2 $ BX3 X2 $ ZR X6,D9OGB JP IF SAME EXPONENT 33 187 SX7 X2-400B 33 188 PL X7,NODI9 $ RJ DUIN9 JP IF NO DUMMY 33 189 + NZ X6,RET9R $ JP D9OGB JP IF NO DUMMY CHECK 33 190 SEA9 SA4 X1+IPR1-2001B $ MX0 52 $ BX6 -X0*X4 33 191 SX7 X2-400B $ ZR X4,NODI9 CHECK ALGEBRA 33 192 SX4 X6+3400B $ IX6 X4-X2 $ BX3 X2 33 193 ZR X6,D9OGC $ PL X7,NODI9 33 194 RJ DUIN9 33 195 + NZ X6,RET9R $ JP D9OGC 33 196 SEV9 SX5 X2-400B $ SX7 X2-1000B 33 197 NG X5,SEV9D $ SA4 X2+IPR-401B JP IF VECTOR(DUMMY) 33 198 PL X7,NODI9 $ IX6 X4-X1 JP IF VECTOR(VECTOR) 33 199 NZ X6,NODI9 $ GE B0,B1,D9OG JP IF V(INDEX) DOES NOT MATCH 33 200 SA6 A4 $ JP D9OG 33 201 SEV9D SA5 NQX $ BX3 X2 $ SB6 X5 33 202 SA4 IPR $ NO $ SB2 B0 33 203 + GE B2,B6,NODI9 $ IX6 X4-X1 $ SB2 B2+B7 33 204 + SA4 A4+B7 $ NZ X6,*-1 $ NO 33 205 SX4 B2+400B $ RJ DUIN9 33 206 + NZ X6,FOUTB5 $ LT B0,B1,*+3 33 207 + MX6 1 $ LX6 59 $ NO $ BX6 X6+X1 33 208 + SA6 SE9VL $ NO $ NO MARK VECTORS ALREADY USED 33 209 + SA6 A4-B7 $ ZR B0,D9OG 33 210 * THIS FORCES L(M+)*L(N+)=... TO MATCH WITH 2 DIFFERENT INDICES. 33 211 SEFU9 SA3 NEPS $ SA4 COMM1 33 212 SB5 X4+B7 $ SB6 X3 $ SA5 ISWI1 SEARCH FUNCTION 33 213 SA4 ISWIH1 $ NZ X4,SEF9A $ MX5 0 33 214 SEF9A SX6 X1-400B $ NG X6,SEF9I JP IF DUMMY FUNCTION 33 215 + LT B6,B5,RET9R $ SA4 B5+IEP-1 33 216 + IX7 X4-X1 $ SB5 B5+B7 $ ZR X4,*-1 33 217 + ZR X7,HEF9U $ PL X5,*-2 33 218 JP RET9R 33 219 SEF9I MX0 52 $ SB4 B2 $ BX3 X1 CASE OF DUMMY FUNCTION 33 220 SEF9J LT B6,B5,RET9R $ SA4 B5+IEP-1 33 221 BX7 X0*X4 $ SB5 B5+B7 $ SX6 X7-3000B 33 222 + ZR X4,SEF9J $ ZR X6,*+2 33 223 + PL X5,SEF9J $ JP RET9R 33 224 + SX7 X4-3000B $ ZR X7,*-1 33 225 SX2 B5 $ BX0 X5 $ SX4 X4-1740B 33 226 RJ DUIN9 33 227 + SB5 X2 $ BX5 X0 $ ZR X6,HEF9U 33 228 PL X5,SEF9I $ JP RET9R 33 229 HEF9U SA3 ISWIH1 $ MX0 48 $ SX7 B5-B7 33 230 + BX4 -X0*X3 $ IX6 X4-X7 $ ZR X3,HEF9Y 33 231 + BX3 X0*X3 $ LX3 48 $ NZ X6,*-1 CHECK FOR PREVIOUS 33 232 PL X5,SEF9A $ JP RET9R 33 233 HEF9Y SA1 IDADR $ SX4 B3 $ IX6 X4-X1 33 234 LX6 18 $ BX7 X6+X7 $ SA7 BB1HER BB1HER=B3,B5 33 235 HE9FU SA1 B3+B7 $ SB3 B3+B7 $ SA4 A4+B7 $ IX6 X4-X1 CHECK ARGUM. 33 236 BX5 X1 $ SX7 X4-3000B $ AX5 8 33 237 ZR X5,HEF9D $ NZ X6,SEF9F JP IF DUMMY,IF IDGEH.NE.IEP 33 238 NZ X7,HE9FU $ SA3 ISWI1 JP IF NOT 3000B,) 33 239 SX6 A4 $ SX7 IEP-1 $ IX6 X6-X7 SUCESFUL MATCHING OF A FACTOR 33 240 + NZ X3,*+1 $ MX6 0 $ NO JP IF ORDERED FUNCTIONS 33 241 + SA6 COMM1 $ NO $ NO 33 242 + SA3 ISWIH1 $ SA4 BB1HER ISWIH1=ISWIH1+B5(FU START) 33 243 SA5 ISWIH2 $ MX0 48 $ BX6 -X0*X4 ISWIH2=ISWIH2+B3(FU START) 33 244 SA2 ISWIH4 $ LX3 12 $ AX4 18 ISWIH4=ISWIH4+B4(FU START) 33 245 LX5 12 $ BX7 -X0*X3 $ LX2 12 $ BX6 X6+X3 33 246 BX4 X4+X5 $ NZ X7,FOUTB4 $ BX7 X4 JP IF MORE THAN 5 33 247 SA6 A3 $ SA7 A5 $ SX4 B2 $ BX6 X2+X4 33 248 SA6 A2 $ JP D9OG 33 249 HEF9D BX3 X1 $ RJ DUIN9 33 250 + ZR X6,HE9FU 33 251 SEF9F SA5 BB1HER $ MX0 48 $ SB4 B2 RESTORE B1,A1,B4 33 252 SA3 IDADR $ AX5 18 $ SB3 X3 33 253 SB5 IEP $ SB3 X5+B3 $ SB5 B5-B7 33 254 SA3 NEPS $ SA5 ISWI1 UNLESS NO INBETWEEN ALLOWED. 33 255 SB5 A4-B5 $ SA1 B3 $ SA4 ISWIH1 33 256 SB6 X3 $ PL X5,SEF9A $ MX5 0 33 257 ZR X4,SEF9A $ JP RET9R 33 258 EIND9A LT B0,B1,OK9 $ SA3 B3HER GO EVT BACK FOR SECOND ROUND 33 259 SA1 SE9VL $ SA5 NQX 33 260 SB3 X3 $ SB1 B7 $ ZR X1,D9OGA 33 261 SX6 B0 $ SB6 X5 $ SA6 A1 $ NO SWITCH OFF MARKING BIT 33 262 + SA4 B6+IPR-1 $ GE B0,B6,D9OGA AFTER SUCCESSFUL TESTROUND 33 263 + SB2 X4 $ SB6 B6-B7 $ GE B0,B2,*-1 POSSIBLY SET AT SEV9E 33 264 + SX6 B2 $ SA6 A4 $ ZR B0,*-2 SIGNALLED BY SE9VL NZ 33 265 OK9 SA1 ISWIH1 $ SX3 3000B ELIMINATE FUNCTIONS 33 266 OK9C MX0 48 $ BX2 -X0*X1 $ BX1 X0*X1 $ LX1 48 TAKE NEXT 33 267 ZR X2,OK9A $ MX6 0 FUNCTION 33 268 + SA4 X2+IEP-1 $ IX7 X4-X3 $ SX2 X2+B7 SET ZERO 33 269 + SA6 A4 $ NZ X7,*-1 33 270 ZR B0,OK9C 33 271 OK9A SA1 ISWIH1 $ MX0 48 $ BX2 -X0*X1 33 272 SA3 NEPS $ ZR X1,OK9D JP IF NO FUNCTIONS 33 273 SX7 X3+1 $ LX7 36 $ SX6 X2+B7 SET JP TO NEPS+1 33 274 SA7 X2+IEP-1 $ LX6 36 $ SX4 X3+B4 AND JP BACK 33 275 SA6 X4+IEP+2 33 276 OK9D SA4 ANTHAU $ SX6 1401B SET DUMMY KEY 33 277 SA6 X3+IEP $ SX3 X3+B7 $ SB5 B0 33 278 + SA5 B5+IDUM1 $ GE B5,B4,OK9F 33 279 + BX6 X5 $ SB5 B5+B7 $ SA6 A6+B7 $ SX3 X3+B7 33 280 + ZR B0,*-2 33 281 OK9F LX4 48 $ SX5 B7 $ BX7 X4+X5 $ SA7 A6+B7 EXPRESSION REF. 33 282 + SX6 X3+B7 $ ZR X1,*+1 $ SX6 X6+B7 EVT JP BACK 33 283 + SA6 NEPS $ SA7 MARKER 33 284 SA1 B1HER $ SA2 B2HER RETURN 33 285 SB1 X1 $ SB5 B7 $ SA3 B3HER 33 286 SB2 X2 $ SB3 X3 $ ZR B0,Z9IDT 33 287 FOUTB3 ERROR 78 ILLEGAL FACTOR IN LHS OF SUBST 33 288 FOUTB4 ERROR 79 MORE THAN 5 FUS IN LHS OF SUBST 33 289 FOUTB5 ERROR 80 ERROR IN MATCHING 33 290 SOORT10 MX6 0 $ RJ Z9IDT 33 291 + NZ B5,SOORT10 $ JP Z1IDT 33 292 SOORT11 MX6 0 $ RJ Z9IDT 33 293 + JP Z1IDT 33 294 SOORT12 SX6 1 $ RJ Z9IDT 33 295 + JP Z1IDT 33 296 SOORT13 MX6 59 $ RJ Z9IDT 33 297 + JP Z1IDT 33 298 * ID,DOTPR,P(MU+)= DOLLAR1 E.G. PP(MU) 33 299 * PDQ**3 BECOMES KEY Q (DOLLAR1 3 ) OR (PP(Q))**3 33 300 * P(4)**3 BECOMES KEY 4 (DOLLAR1 3) OR PP(4)**3 33 301 * SET ISCAL TO ZERO. 33 302 SOORT15 SA1 NDOTI $ SB6 1 P(MU+) IN DOTPR. AND VECTOR NR. 33 303 LX6 48 $ SB7 X1 $ SA2 B3+B6 $ BX0 X6 B6=1, B7=NDOTI COUNT, 33 304 SA3 NEPS $ SX1 X2-1000B X4=DOTPR., X5=EXP., X3=NEPS, 33 305 SO15A SA4 B7+ISCAL-2 $ GE B0,B7,Z1IDT X1=VECTOR NAME, X0=EXPR NR 33 306 SA5 A4+B6 $ SX2 X4-4000B $ BX6 X2+X5 33 307 SB7 B7-2 $ NG X6,SO15A SKIP INDICES AND NEG EXP. 33 308 ZR X5,SO15A 33 309 MX7 55 $ SX6 X4-6000B $ BX4 -X7*X4 33 310 PL X6,SO15B $ AX2 5 $ IX6 X2-X1 JP IF DOTPR. 33 311 SX4 X4+3400B $ NZ X6,SO15A IS VECTOR NR 33 312 SO15D MX7 0 $ SX6 1401B $ SA7 A4 33 313 SA6 X3+IEP $ SA7 A5 $ BX6 X4 33 314 SX7 X3+3 $ SA6 A6+B6 $ SA7 A3 33 315 LX3 B0,X7 $ BX6 X0+X5 $ SA7 MARKER 33 316 SA6 A6+B6 $ JP SO15A 33 317 SO15B IX7 X4-X1 $ AX6 5 $ BX2 X6-X1 MAYBE FIRST OR SECOND 33 318 ZR X7,SO15C $ NZ X2,SO15A POSITION. 33 319 SX4 X4+1000B $ JP SO15D PDP IS SUBSTITUTED ONLY ONCE 33 320 SO15C SX4 X6+1000B $ JP SO15D 33 321 * SOORT 16 IS ID,FUNCT,P(MU+)=DOLLAR1 33 322 * IEP ...F(P)... OR ...F(-P)... BECOMES 33 323 * IEP ...F(N1)...1401 N1 DOLLAR1 OR ...F(-N1)...1401 N1 DOLLAR1 33 324 SOORT16 SA3 NEPS $ SA4 NQX 33 325 SB7 1 $ ZR X3,SOORT6 33 326 SA1 B3+B7 $ SB4 X3 $ SX4 X4+401B X4 IS FIRST CREATED INDEX 33 327 SB5 B0 $ LX6 48 $ SX7 B7 $ BX6 X6+X7 33 328 SA2 IEP-1 $ SX5 1407B 33 329 BX0 X1 $ LX0 12 $ BX5 X5+X0 $ SB6 B0 X1=P , X5=-P 33 330 S16C1 SA2 A2+B7 $ SB5 B5+B7 $ SX0 X2-3000B B6 IS FLAG. NZ WHEN 33 331 + NZ B6,*+3 $ SX7 X0-400B LOOKING AT FUNCTION ARGUMENTS 33 332 + BX0 -X0*X7 $ AX0 59 $ SX7 B7 $ BX7 X0*X7 33 333 + SB6 X7 $ ZR B0,S16C2 B6 IS SET ON, WHEN FUNCTION IS SEEN 33 334 + SB6 X0 $ IX7 X2-X5 $ IX0 X1-X2 $ NO OFF,WHEN 3000B SEEN 33 335 ZR X7,S16A2 $ ZR X0,S16A1 33 336 S16C2 LT B5,B4,S16C1 $ SX7 X4-401B 33 337 BX6 X3 $ SA7 NQX $ SA6 A3 $ JP SOORT6 33 338 S16A1 SA6 X3+IEP+2 $ MX7 0 P IS FOUND 33 339 SA7 X4+IPR-401B $ SX3 X3+3 33 340 SX7 1401B $ SA7 A6-2 33 341 SA6 MARKER $ BX7 X4 $ SA7 A7+B7 33 342 SX4 X4+B7 $ SA7 A2 $ JP S16C2 33 343 S16A2 SX7 1401B $ SA6 X3+IEP+2 -P IS FOUND 33 344 SA7 X3+IEP $ SX3 X3+3 33 345 BX7 X4 $ SA6 MARKER $ SX4 X4+B7 33 346 SA7 A7+B7 $ SX0 1407B $ LX7 12 33 347 BX7 X0+X7 $ SA7 A2 $ JP S16C2 33 348 SOORT30 JP FOUTB1 33 349 SOORT31 JP FOUTB1 33 350 SOORT32 SA1 NDOTI $ SB7 1 ORTHG 33 351 ZR X1,Z1IDT $ SB5 X1 $ SA2 B3+B7 33 352 MX3 55 $ BX0 -X3*X2 $ AX2 24 33 353 NZ X2,Z1IDT $ SA2 A2+B7 33 354 C32NO BX1 -X3*X2 $ AX2 24 $ NZ X2,Z1IDT 33 355 BX2 X0 $ IX3 X2-X1 $ SX4 6000B 33 356 + NG X3,*+1 $ BX2 X1 $ LX1 B0,X0 33 357 + LX2 5 $ BX5 X2+X1 $ IX1 X5+X4 $ SB4 B7+B7 33 358 SB6 B5 33 359 CN32O SA3 B6+ISCAL-2 $ SA4 A3+B7 $ IX6 X3-X1 33 360 GE B0,B6,C32ON $ SB6 B6-B4 $ MX7 0 33 361 NZ X6,CN32O $ PL X4,ANNE0R 33 362 C32ON SA2 A2+B7 $ MX3 55 $ ZR B0,C32NO 33 363 SOORT33 SA1 NDOTI $ SB7 1 ORTHN 33 364 ZR X1,Z1IDT $ SB5 X1 $ SA1 B3+B7 33 365 RT33S MX3 55 $ BX0 -X3*X1 $ AX1 24 $ SA2 A1 33 366 NZ X1,Z1IDT $ MX7 30 33 367 C33NO BX1 -X3*X2 $ AX2 24 $ NZ X2,CN33O 33 368 BX2 X0 $ IX3 X2-X1 $ SX4 6000B 33 369 + NG X3,*+1 $ BX2 X1 $ LX1 B0,X0 33 370 + LX2 5 $ BX5 X2+X1 $ IX1 X5+X4 $ SB4 B7+B7 33 371 SB6 B5 33 372 T33R SA3 B6+ISCAL-2 $ SA4 A3+B7 $ IX6 X3-X1 33 373 GE B0,B6,TT33R $ SB6 B6-B4 33 374 NZ X6,T33R $ NZ X7,TTR33 33 375 NG X4,TT33R $ ZR B0,ANNE0R 33 376 TTR33 MX7 0 $ SA7 A3 $ SA7 A4 33 377 TT33R SA2 A2+B7 $ MX3 55 $ SX7 B0 $ JP C33NO 33 378 CN33O SA1 A1+B7 $ JP RT33S 33 379 SOORT34 SB6 1 $ SA0 B3+B6 $ SX1 B1 ORDER,AF,3,I1,I2,I3,... 33 380 SA5 NEPS $ SX2 B2 $ LX1 18 ORDER,I1,I2,I3,.... 33 381 SB4 X5 $ BX7 X1+X2 $ GE B0,B4,Z1IDT 33 382 + SA4 B4+IEP-1 $ BX6 X4 $ SB4 B4-B6 SHIFT ALL IEP 1 PLACE. 33 383 + SA6 A4+B6 $ LT B0,B4,*-1 $ SX6 X5+B6 33 384 SA7 B1HER $ SA6 A5 $ MX7 0 SET 0 IN FRONT. 33 385 SA7 A4 $ SB7 X6 $ MX0 52 $ SA1 A0 B7=NEPS 33 386 BX2 X0*X1 $ SA0 A0+B6 $ SX7 X2-3000B GET FIRST ARGUMENT. 33 387 AX2 30 $ NZ X2,Z1IDT $ SB3 B0 33 388 SB5 B6 $ NZ X7,S34D $ SA0 A0+B6 JP IF NOT FUNCTION. 33 389 S34B SA3 B3+IEP $ GE B3,B7,Z1IDT SEARCH FUNCTION. 33 390 IX4 X3-X1 $ SB3 B3+B6 $ NZ X4,S34B 33 391 SA3 A0-B6 $ BX2 X0*X3 $ SX7 X2-3400B GET SECOND ARGUMENT. 33 392 SX3 X3-3400B $ NZ X7,S34J MUST BE NUMBER. 33 393 SB4 B3 $ SB3 X3+B3 $ SX4 3000B 33 394 + SA3 B4+IEP $ GE B4,B3,S34F SEE IF ENOUGH ARGUMENTS. 33 395 + IX5 X3-X4 $ SB4 B4+B6 $ NZ X5,*-1 33 396 SB3 B4 $ ZR B0,S34B ELSE SEARCH NEXT FUNCTION. 33 397 S34D SA3 B3+IEP $ GE B3,B7,S34I SEARCH INDEX. 33 398 IX4 X3-X1 $ SB3 B3+B6 $ NZ X4,S34D 33 399 EQ B5,B6,S34F $ EQ B3,B4,S34D SKIP SELF. 33 400 S34F SX4 3000B $ SB2 B3 $ MX0 48 33 401 + SA1 B2+IEP $ BX7 -X0*X1 $ SB2 B2+B6 SEARCH END FUNCTION. 33 402 + IX7 X7-X4 $ BX6 X0*X1 $ NZ X7,*-1 33 403 NZ X6,S34I $ SX6 B3 $ MX3 59 JP IF ALREADY IN CHAIN. 33 404 + SA1 X6+IEP-2 $ MX0 52 $ BX2 X0*X1 SEARCH BEGIN. 33 405 + IX7 X2-X4 $ IX6 X6+X3 $ NZ X7,*-1 33 406 SA1 B5+IEP-1 $ LX6 36 $ BX7 X6+X1 PLANT JP TOBEGIN FUNCTION. 33 407 SA2 B3+IEP $ SB5 B2 $ SA7 A1 TAKE ARGUMENT AFTER AS 33 408 SA3 B3+IEP-2 $ BX4 X0*X2 $ BX5 X0*X3 NEXT INDEX. IF NOT 33 409 SX6 X4-400B $ SB4 B3+B6 $ BX1 X2 INDEX, TAKE FOREGOING. 33 410 SB3 B0 $ ZR X6,S34D $ BX1 X3 33 411 SX6 X5-400B $ SB4 B4-2 B4 REMEMBERS INDEX LOCATION. 33 412 ZR X6,S34D B5=LOCATION END FU OF LAST IN CHAIN. 33 413 S34I SA1 A0 $ BX2 X1 $ SA0 A0+B6 $ AX2 30 NEXT INDEX. 33 414 SB3 B0 $ ZR X2,S34D $ SX6 B6 AT END CHAIN PLANT JP BACK. 33 415 SA1 B5+IEP-1 $ SA2 B1HER 33 416 LX6 36 $ SB2 X2 $ BX6 X6+X1 $ AX2 18 33 417 SB1 X2 $ EQ B5,B6,Z1IDT $ SA6 A1 33 418 SA6 MARKER $ ZR B0,Z1IDT 33 419 S34J ERROR 72 WRONG FORMAT ON ORDER CARD 33 420 SOORT35 EQU SOORT34 33 421 SOORT36 SB6 B0 $ JP SOORD37 SYMXX,AF,1,2,4,BF,2,3,6= 33 422 SOORT37 SA5 IGET+1 $ SB6 1 ASYMX,AF,1,2,4,BF,2,3,6= 33 423 SOORD37 SA1 NEPS $ SX6 B1 $ SX7 B2 33 424 SA6 B1HER $ SA7 B2HER 33 425 SB5 X1 $ SB7 1 33 426 SOORE37 SA1 B3+B7 $ BX0 X1 $ AX1 8 $ SB1 B7 33 427 SX2 X1-6 $ AX1 16 $ SB3 B3+B7 33 428 NZ X1,END37 $ NZ X2,SOORE37 33 429 SOORA37 SA1 B1+IEP-1 $ IX6 X0-X1 $ SB1 B1+B7 SEARCH FU. 33 430 GE B1,B5,SOORE37 $ NZ X6,SOORA37 33 431 SB2 B3+B7 $ SB1 B1-B7 FU AT B1 33 432 SOORB37 SA1 B2 $ SX2 X1-3400B $ AX1 8 GET NEXT ARG. NR. 33 433 SX4 X1-7 $ NZ X4,SOO8T37 JP IF NOT 34XX 33 434 SX2 X2+IEP-1 $ SA1 X2+B1 $ SB4 B2+B7 ARG IN X1 33 435 SOORC37 SA2 B4 $ SX3 X2-3400B $ AX2 8 GET NEXT ARG. NR 33 436 SX4 X2-7 $ NZ X4,SOO5T37 JP IF NOT 34XX. 33 437 SX3 X3+IEP-1 33 438 SA2 X3+B1 $ IX4 X1-X2 $ SB4 B4+B7 ARG. IN X2, COMPARE 33 439 NG X4,SOORC37 $ BX6 X1 $ LX7 B0,X2 33 440 SA6 A2 $ SA7 A1 $ BX5 -X5 $ LX1 B0,X2 EXCHANGE 33 441 NZ X4,SOORC37 $ ZR B6,SOORC37 33 442 ZR B0,ANNE0R EQUAL ARG IN ASYM MEANS ZERO 33 443 SOO5T37 SB2 B2+B7 $ ZR B0,SOORB37 33 444 SOO8T37 SB1 B1+B7 $ LT B1,B5,SOORA37 GO SEARCH FU 33 445 JP SOORE37 33 446 END37 SA1 B1HER $ SA2 B2HER 33 447 SB1 X1 $ SB2 X2 $ ZR B6,Z1IDT 33 448 BX6 X5 $ SA6 A5 $ JP Z1IDT 33 449 COU38 BSS 1 CONSTRUCT A-NR IN X6. SYMBOL IN X5 33 450 SB6 1 $ SA2 NALGE 33 451 MX6 0 $ SB4 X2 $ SB5 IPR1-1 33 452 C38A SA3 B5+B4 $ GE B0,B4,C38C $ SB4 B4-B6 33 453 ZR X3,C38A $ SX5 B4+2001B 33 454 RJ CA38 33 455 PX7 B0,X3 $ PX5 B0,X4 $ DX7 X5*X7 $ UX5 B0,X7 33 456 IX6 X5+X6 $ GE B4,B6,C38A 33 457 C38C SA2 NQX $ NO $ SB4 X2 33 458 C38D SA5 B4+IPR-1 $ GE B0,B4,C38F 33 459 SX7 X5-1000B $ SX0 X5-1040B 33 460 BX7 -X7*X0 $ SB4 B4-B6 $ PL X7,C38D JP IF NOT VECTOR 33 461 RJ CA38 33 462 IX6 X4+X6 $ GE B4,B6,C38D 33 463 C38F SA2 NDOTI $ SB7 B6+B6 $ SB4 X2 33 464 C38G SA2 B4+ISCAL-2 $ GE B0,B4,C38M 33 465 SX4 X2-1000B $ SX7 X2-6000B 33 466 SA3 A2+B6 $ SB4 B4-B7 $ NG X4,C38K JP IF INDEX 33 467 NG X7,C38L $ MX4 55 $ BX5 -X4*X7 JP IF VNR 33 468 SX5 X5+1000B $ AX7 5 $ SA0 X7 33 469 RJ CA38 33 470 C38I BX7 X4 $ PX3 B0,X3 $ SX5 A0+1000B 33 471 RJ CA38 33 472 C38J IX4 X4+X7 $ PX3 B0,X3 $ PX4 B0,X4 $ DX3 X3*X4 33 473 UX3 B0,X3 $ IX6 X6+X3 $ ZR B0,C38G 33 474 C38K SA0 X2-1000B $ MX4 0 $ NO 33 475 ZR B0,C38I 33 476 C38L AX7 5 $ BX4 -X4*X4 $ MX5 55 $ BX7 -X5*X7 33 477 SA0 X7 $ ZR B0,C38I 33 478 C38M SA2 NEPS $ SB4 B0 $ SB5 X2 33 479 C38N SA5 B4+IEP $ GE B4,B5,COU38 33 480 SX7 X5-3400B $ SX4 X5-3001B 33 481 SB4 B4+B6 $ BX7 -X4*X7 $ PL X7,C38N 33 482 RJ CA38 33 483 IX6 X6+X4 $ ZR B0,C38N 33 484 CA38 BSS 1 GET A-NR FROM LIST IN IDGEH 33 485 SA1 B3+2 $ MX0 12 $ BX4 -X4*X4 33 486 CA38A IX2 X5-X1 $ BX1 X0*X1 $ NZ X1,CA38 33 487 SA1 A1+B6 $ NZ X2,CA38A $ BX2 X0*X1 33 488 BX5 X1 $ AX1 8 $ SX1 X1-7 33 489 SX4 B6 $ NZ X1,CA38 $ LX5 52 33 490 NZ X2,CA38 $ AX5 52 $ BX4 X5 33 491 ZR B0,CA38 33 492 SOORT39 SA5 NEPS $ SX6 B1 $ SX7 B3 SPIN SUM HALF INTEGER SPINS. 33 493 ZR X5,Z1IDT $ SA6 B1HER UG(I1,V1,..V5,M,P)*UBG(I2,W1,.. 33 494 SA7 B3HER $ SB1 X5 $ SX6 B2 W5,M,P)=EXPR.10+5,ARG) V1...W5, 33 495 SB7 1 $ SA6 B2HER M,P. V1...W5 MAY NOT BE 33 496 MX5 12 $ SA0 IEP-1 $ LX5 48 DOUBLE ARG., LIKE -P ETC. 33 497 SOORA39 SA1 B3HER $ SA2 X1+B7 $ SX6 X1+B7 33 498 BX0 X2 $ AX2 24 $ SA6 A1 $ SB2 B7 33 499 NZ X2,EIND39 $ SA1 A0+B2 33 500 LOO39A SX7 X1-3010B $ LT B1,B2,SOORA39 SEARCH UG 33 501 SB2 B2+B7 $ SA1 A0+B2 $ NZ X7,LOO39A 33 502 SB2 B2+4 $ IX7 X1-X0 $ SA1 A0+B2 CHECK LOOP NR. 33 503 NZ X7,LOO39A $ SA3 A1-B7 $ SB6 B0-B7 33 504 + SX7 X3-3000B $ SB6 B6+B7 $ BX6 X3 B6 COUNTS ARG. BEYOND 33 505 + SA3 A3+B7 $ NZ X7,*-1 $ BX6 X6+X5 LOOP,MASS,MOMENTUM 33 506 ZR B6,L39L39 $ SB3 B6+3 33 507 SA2 A3-B3 $ SB3 B6 REMOVE EVENTUAL - SIGNS 33 508 LL3939 MX7 48 $ BX7 -X7*X2 $ SX7 X7-1407B FROM V1,V2,... 33 509 SB3 B3-B7 $ ZR X7,L3L939 $ SA2 A2-B7 THERE IS NO NEED TO 33 510 LT B0,B3,LL3939 $ JP L39L39 REMOVE THEM FROM W1,W2,... 33 511 L3L939 SB4 A2 $ AX2 12 $ BX7 X2 $ SA7 A2 33 512 SA2 IGET+1 $ BX7 -X2 $ SA7 A2 ASSUME UG LINEAR IN V1,V2,... 33 513 SA2 B4-B7 $ LT B0,B3,LL3939 CHANGE SIGN 33 514 L39L39 SA2 A0+B7 $ SB3 B7 $ SA6 A3-B7 $ SB4 A1+B6 SET TERM. 7777B 33 515 L39A SX7 X2-3011B $ LT B1,B3,SOORA39 SEARCH UBG 33 516 SB3 B3+B7 $ SA2 A0+B3 $ NZ X7,L39A IEP(B4)=3000B OF UG 33 517 SB3 B3+4 $ SA2 A0+B3 $ SB5 A2+B6 IEP(B5)=3000B OF UBG 33 518 SA4 B5-B7 $ SA3 B4-3 $ BX1 X4 33 519 SA4 B5-3 $ NO $ NO 33 520 IX6 X3-X4 $ SA3 A3+B7 $ SA4 A4+B7 $ IX7 X3-X4 CHECK M,P,3000B 33 521 SX1 X1-3000B $ BX6 X6+X7 $ BX7 X1+X6 33 522 CX6 X7 $ NZ X6,L39A $ SB4 B0 33 523 SA3 A1-3 $ SA4 A2-3 MAKE DUMMY KEY, I1,V1,W1,V2,... 33 524 SX6 1401B $ ZR B6,L39B1 M,P 33 525 + LX4 12 $ BX7 X3+X4 $ SB4 B4+B7 $ SA7 A3 33 526 + SA3 A3+B7 $ SA4 A4+B7 $ LT B4,B6,*-1 33 527 L39B1 SA6 MARKER $ SX3 B6+9 EXPR NR = B6+9, IN PLACE OF 3000B 33 528 SX4 B3+B6 $ NO $ LX3 48 $ NO OF UG. PLANT ALSO JP TO 33 529 SX4 X4-1 $ SA6 A1-5 PLACE OF 3000 IN UBG. 33 530 LX4 36 $ SX7 B7 $ BX3 X4+X3 $ BX7 X7+X3 33 531 SX6 7776B $ SA7 A3+2 SET BLOCK 7776B AT UBG 33 532 LX6 36 $ SA4 A2-4 $ MX7 0 33 533 SA6 A4-B7 $ SA7 A4+B7 $ SA7 A7+B7 $ MX6 48 33 534 + SB6 B6-B7 $ SA7 A7+B7 $ GE B6,B0,* 33 535 SA7 A4 $ SA3 A0+B7 $ SB4 B7 $ SB2 B3 33 536 L39B4 BX2 -X6*X3 $ IX1 X2-X4 $ LT B1,B4,L39B5 CHANGE I2 INTO I1 33 537 BX2 X6*X3 $ SB4 B4+B7 $ SA3 A3+B7 EVERYWHERE 33 538 NZ X1,L39B4 $ BX7 X0+X2 $ SA7 A3-B7 33 539 ZR B0,L39B4 LOOK FOR FURTHER UG 33 540 L39B5 SA1 A0+B2 $ JP LOO39A NO NEED TO LOOK BEFORE UBG 33 541 EIND39 SA1 B1HER $ SA2 B2HER 33 542 SB1 X1 $ SB2 X2 $ JP Z1IDT 33 543 SOORT40 RJ COU38 COUNT,XX,A,10,B,I,2,P,3,F,5 33 544 SA2 B3+B6 $ BX3 X2 $ NO $ AX3 8 B IS TAKEN TO BE 1 33 545 SB5 X3-6 $ EQ B5,B6,S40H XX MAY BE NR, I, A, XEXPR, F, DTPR 33 546 ZR B5,S40E $ NG B5,S40D 33 547 S40A SA1 NDOTI $ SB7 B6+B6 $ SB4 X1 DOTPR OR VNR 33 548 S40B SA4 B4+ISCAL-2 $ GE B0,B4,S40C 33 549 BX7 X4-X2 $ SB4 B4-B7 $ NZ X7,S40B 33 550 SA4 A4+B6 $ IX7 X4+X6 $ SA7 A4 33 551 ZR B0,Z1IDT 33 552 S40C BX7 X2 $ SA6 X1+ISCAL+1 $ SA7 A6-B6 33 553 SX6 X1+B7 $ SA6 A1 $ ZR B0,Z1IDT 33 554 S40D SB5 X3-1 $ ZR B5,S40A 33 555 SB5 X3-4 $ NZ B5,S40G 33 556 SA4 X2+IPR1-2001B $ IX7 X4+X6 $ SA7 A4 33 557 ZR B0,Z1IDT 33 558 S40H LX2 52 $ BX7 -X7*X7 $ AX2 52 $ IX5 X6-X2 33 559 PL X5,Z1IDT $ ZR B0,ANNE0R KILL TERMS WITH WEIGHT LT NR 33 560 S40E SA1 NEPS $ BX7 X2 $ MX0 52 33 561 BX5 -X0*X6 $ SA7 X1+IEP $ AX6 8 33 562 SX7 X5+3400B $ NZ X6,S40N 33 563 SA7 A7+B6 $ SX6 3000B $ SA6 A7+B6 33 564 SX7 X1+3 $ SA7 A1 33 565 ZR B0,Z1IDT 33 566 S40G SB5 X3-5 $ NZ B5,S40F 33 567 SA1 NEPS $ SX7 3012B 33 568 SA7 X1+IEP $ SX7 1000B 33 569 SA7 A7+B6 $ SX1 X1+B6 $ SA7 MARKER 33 570 SX7 X1+B6 $ SA7 A1 $ ZR B0,S40E 33 571 S40N ERROR 90 ILLEGAL TYPE FOR COUNT PARAM 33 572 S40F ERROR 73 WEIGHT GT 128 33 573 *TRICK,I1,I2,TRACE,I3,I4 33 574 * EACH TERM IS APPENDED WITH D(TRACE,K), K BEING A 8 BIT NUMBER. 33 575 * THE 8 BITS ARE USED AS FOLLOWS. LEFT 6 BITS = NR OF LEVELS TO GO. 33 576 * RIGHT 2 BITS- 0 = NO G PRESENT. 1 = TRY ANOTHER PTRICK. 2 = DO 33 577 * NOT TRY PTRICK. 33 578 * IPR(1) CONCERNS FIRST INDEX, I.E. TRACE 33 579 SOORT41 SA2 NEPS $ SA3 IPR 33 580 SX6 B1 $ SX7 B2 $ BX4 X2+X3 $ LX6 18 33 581 ZR X4,Z1IDT $ SB6 1 33 582 SB7 X2 $ SA0 IEP-1 $ BX6 X6+X7 33 583 SA6 B1HER $ NZ X3,S41CA 33 584 SA1 B3 $ SA4 LEVEL $ AX1 33 A1 = ADDRESS IDENTIFIER PILOT 33 585 SX6 X1 $ AX1 18 $ SX7 X1 $ IX5 X7-X4 33 586 IX6 X6-X4 $ SX7 X6-2 $ LX6 2 COMPARE LEVEL WITH PILOT WORD 33 587 NZ X5,S41FO1 $ NG X7,S41FO1 33 588 SX7 3401B $ BX7 X6+X7 $ NO SET IPR = 3400B + LEVELS TO GO 33 589 SA7 IPR $ RJ LABEL + 1 (= TRY PTRICK) 33 590 NZ B4,S41C $ SA2 IPR JP IF G PRESENT 33 591 S41A MX0 58 $ BX6 X0*X2 $ SA6 A2 33 592 S41B SA1 B1HER $ SB2 X1 $ AX1 18 EXIT 33 593 SB1 X1 $ ZR B0,Z1IDT 33 594 S41C RJ GBMOV 33 595 SA2 IPR $ ZR B1,S41A 33 596 RJ KAHANE 33 597 ZR B0,S41B 33 598 S41CA NZ B7,S41D $ MX6 0 33 599 SA6 IPR $ ZR B0,S41B NOTHING LEFT 33 600 S41D NO $ BX5 X3 $ AX5 2 $ MX0 58 33 601 SB4 X5-701B $ BX5 -X0*X3 $ NO 3404 33 602 NZ X5,S41F $ NZ B4,S41E 33 603 SX6 B6 $ MX7 0 $ SA6 EPSM1 33 604 SA7 IPR $ RJ EPSRED1 33 605 ZR B0,S41B 33 606 S41E NG B4,S41FO1 $ SX6 X3-4 33 607 SA6 IPR $ ZR B0,Z1IDT 33 608 S41F SB5 X5 $ GE B6,B4,S41G $ MX6 0 33 609 NE B5,B6,S41E $ RJ GBMOV 33 610 SA2 IPR $ SX6 X2-3 33 611 SX2 X2-4 $ ZR B1,S41A 33 612 SA6 IPR $ RJ PTRICK 33 613 ZR B0,S41B 33 614 S41G ZR B4,S41H $ RJ GBMOV LAST BUT ONE LEVEL 33 615 SA2 IPR $ SX6 3400B 33 616 SX2 3404B $ ZR B1,S41A 33 617 SA6 IPR $ RJ PTRICK REDUCE ALL STRINGS 33 618 SX6 3406B $ SA6 IPR 33 619 ZR B0,S41B 33 620 S41H MX6 0 $ SX7 B6 $ SA6 IPR 33 621 SA7 EPSM1 $ RJ GBMOV DO LAST TRACES 33 622 NZ B1,S41FO1 $ RJ EPSRED1 33 623 ZR B0,S41B 33 624 S41FO1 SX7 B7 $ SA4 MNEPS $ IX4 X4-X7 33 625 PL X4,S41FO2 $ SA7 A4 33 626 S41FO2 ERROR 74 LEVEL ASSIGNMENT ERROR IN TRACE 33 627 *GBMOV MOVES ALL GAMMAS WITH LABELLED LOOP INDICES. 33 628 * ON EXIT B1 = 0 IF NONE FOUND. NEPS IS ADJUSTED. 33 629 * HULP1B HAS //00/CUMUL B1 OF GAMMOV/TOP OF DOLOOP=B5/DOLOOP INDEX=B4// 33 630 * LABELLED MEANS THAT TRICK OR TRACE IS APPENDED AS OPERATOR. 33 631 * ASSUMES B6 = 1, B7 = NEPS, A0 = IEP-1. 33 632 GBMOV BSS 1 33 633 SX6 B7 $ SX7 B6 $ LX6 18 $ BX7 X6+X7 33 634 SA7 HULP1B $ MX6 0 33 635 GBM1 SA1 HULP1B $ SB4 X1 $ LX1 42 33 636 SB5 X1 $ MX7 48 $ LX1 18 $ BX1 X6+X1 33 637 GBM2 SA2 A0+B4 $ BX6 -X7*X2 $ SX4 X6-1422B FIND LABELLED 33 638 SX5 X6-1424B $ SB4 B4+B6 $ BX6 -X4*X5 LOOP INDEX. 33 639 LT B5,B4,GBM3 $ PL X6,GBM2 33 640 SX6 B5 $ SX7 B4 $ MX0 24 $ BX1 X0*X1 33 641 LX6 18 $ BX7 X1+X7 $ LX1 B0,X2 $ BX7 X6+X7 33 642 SA7 A1 $ SB4 B4-B6 $ RJ GAMMOV 33 643 SX6 B1 $ LX6 36 $ ZR B0,GBM1 33 644 GBM3 AX1 28 $ SB1 X1 $ SX6 B7 TEST PRES OF G AND NEPS GT 10 BITS 33 645 SA6 NEPS $ ZR B0,GBMOV 33 646 *LABEL REMOVES - SIGNS FROM GAMMAS. FURTHERMORE 1422B (1423B) IS 33 647 * ADDED TO LOOP INDICES TO BE REDUCED (TRACED). 33 648 * ASSUMES B6 = 1, B7 = NEPS, A0 = IEP-1. B4 = 0 IF NO LABEL ATTACHED. 33 649 LABEL BSS 1 33 650 SB5 B6 $ SB4 B0 A1 = IDENTIFIER ADDRESS 33 651 LAB1 SA2 A0+B5 $ GE B5,B7,LABEL $ SB5 B5+B6 LEAVE A1 UNCHANGED 33 652 SX6 X2-3003B $ SX7 X2-3010B 33 653 SA3 A2+B6 $ BX7 -X6*X7 $ PL X7,LAB1 33 654 MX5 48 $ BX7 X5*X3 $ NZ X7,LABFO1 JP IF ILLEGAL LOOP NR 33 655 SA2 A1+B6 $ SA4 A3 $ NZ X6,LAB4 JP IF GI,G5,G6,G7 33 656 LAB2 SA4 A4+B6 $ BX6 X5*X4 $ ZR X6,LAB3 JP IF NO DOUBLE ARGUMENT 33 657 BX6 -X5*X4 $ SX6 X6-1407B $ AX4 12 REMOVE - SIGN FROM 33 658 NZ X6,LABFO1 $ BX6 X4 $ SA6 A4 FOLLOWING ARGUMENTS 33 659 SA5 IGET+1 $ BX6 -X5 $ BX0 X0 33 660 SA6 A5 $ MX5 48 $ BX7 X7 33 661 LAB3 SX6 X4-3000B $ NZ X6,LAB2 GO ON FOR NEXT ARGUMENT 33 662 LAB4 SX0 1422B $ MX4 30 REDUCE LABEL 33 663 LAB5 BX5 X4*X2 $ IX7 X3-X2 $ NZ X5,LAB7 SEE IF IN LIST 33 664 ZR X7,LAB6 $ SX7 X2-401B AFTER 401B MAKE TRACE LABEL 33 665 SA2 A2+B6 $ NO $ NZ X7,LAB5 33 666 SX0 1423B $ ZR B0,LAB5 TRACE LABEL 33 667 LAB6 LX3 12 $ BX7 X3+X0 $ SB4 B6 $ SA7 A3 33 668 LAB7 SB5 B5+2 $ ZR B0,LAB1 33 669 LABFO1 ERROR 75 ILLEGAL G,GI,G5,G6,G7 ARGM 33 670 *GAMMOV MOVES ALL GAMMAS OF LOOP L = (X1) TO THE NEXT FREE SPACE IN 33 671 * IEP. JUMPS TO AND FROM LOCATION OF THE FIRST GAMMA ENCOUNTERED ARE 33 672 * INSERTED. GI, G5, G6, G7 ARE MULTIPLIED AND WORKED OUT. THE RESULT 33 673 * IS OF THE FORM GX(L)*G(L,M1,M2,...) WITH X = I,5, OR ALTERNATIVELY 33 674 * 1401 L EXPR G(L,M1,M2,...) WITH EXPR CORRESPONDING TO G6 OR G7. 33 675 * ONE ZERO WORD IS SET AFTER EVERY M. TWO IDENTICAL SUBSEQUENT M ARE 33 676 * REPLACED BY D(M,M). NO M IMPLIES GI, I.E. G(L) = GI(L). 33 677 * ASSUMES B6 = 1, B7 = NEPS, A0 = IEP-1, X1 = LOOP. 33 678 * B4 = FIRST OCCURRENCE OF LOOP NR. 33 679 * RETURNED- B6, B7, A0, AND B1 = LOCATION OF GX, B2 = NR OF 33 680 * INDICES M1, M2,... B1 = 0 IF NO G FOUND. 33 681 * REDUCE, TRACE OF SIMPLE CASES ARE DONE. 33 682 GAMMOV BSS 1 PRESERVE A1 33 683 SB2 B4-B6 $ SB1 B0 $ MX2 0 X2 = - IF ODD NR OF INDICES 33 684 GAM1 SA3 A0+B2 $ GE B2,B7,GAM8 $ SA4 A3+B6 33 685 SX5 X3-3010B $ IX6 X1-X4 $ SB2 B2+B6 33 686 NZ X6,GAM1 $ SX3 X3-3003B FUNCTION G 33 687 BX5 -X3*X5 $ PL X5,GAM1 $ SA6 A3 33 688 SA6 A4 $ NZ B1,GAM2 $ BX6 X1 B4 = 0,1,2,3 FOR GI,G5,G6,G7 33 689 SB1 B7+5 $ SX7 3003B B3 = LOC FIRST G. INITIALIZE. 33 690 SA6 A0+B1 $ SA7 A6-B6 $ SX7 3000B B1 = LAST USED IN IEP 33 691 SA7 A7-B6 $ SA6 A7-B6 $ SX7 3004B 33 692 SA7 A6-B6 $ SB4 B0 $ SB3 B2-B6 $ MX6 0 33 693 GAM2 SB2 B2+2 $ SA5 B1+IEP-2 33 694 NZ X3,GAM4 $ BX7 X5 $ SB5 B6+B6 JP IF GI,G5,G6,G7 33 695 GAM3 SA4 A4+B6 $ SX3 X4-3000B $ SA6 A4 33 696 ZR X3,GAM1 $ ZR X4,GAM3 SKIP ZERO 33 697 IX3 X4-X7 $ BX7 X4 $ SB1 B1+B5 $ BX2 -X2 SEE IF SAME 33 698 SA6 A0+B1 $ SA7 A6-B6 $ SA7 MARKER PREVIOUS INDEX 33 699 NZ X3,GAM3 $ SB1 B1-B5 $ SB5 B1-B5 G(L,X)*G(L,X)=D(X,X) 33 700 SX7 3000B $ SX3 X7+B6 $ LX7 12 MOVE ALL AFTER 33 701 + SA5 A0+B5 $ BX7 X7+X4 $ SB5 B5-B6 $ BX6 X5 B7 TWO PLACES UP. 33 702 + SA6 A5+2 $ LT B7,B5,*-1 INSERT D IN 33 703 SB5 B6+B6 $ SB7 B7+B5 $ SA7 A0+B7 $ LX4 12 FREE SPACE 33 704 SA5 B1+IEP-2 $ BX6 X3+X4 $ SA6 A7-B6 33 705 MX6 0 $ BX7 X5 $ ZR B0,GAM3 33 706 GAM4 SA6 A4+B6 $ SA5 IGET+1 $ BX6 X5-X2 33 707 SB5 X3-1 $ EQ B5,B6,GAM5 IS GI-G7. JP IF G5 33 708 SX7 B0-B5 $ ZR B5,GAM1 $ BX6 X6-X2 JP IF GI 33 709 PL X2,GAM5 $ SB5 X7+5 INTERCHANGE G6,G7 33 710 GAM5 SX7 B5-B6 $ LX3 B6,X7 $ NZ B4,GAM6 33 711 SA6 A5 $ SB4 B5 $ ZR B0,GAM1 33 712 GAM6 IX3 X3+X7 $ SB5 X3+B4 $ SA3 B5+GAM7-1 33 713 SA4 A5+B6 $ SB4 X3 $ AX3 45 $ LX3 45 33 714 FX6 X3*X6 $ FX7 X3*X4 $ SA6 A5 $ SA7 A4 33 715 NZ X3,GAM1 $ ZR B0,ANNE0R 33 716 GAM7 VFD 15/17204B,45/0 G5*G5 = GI 33 717 VFD 15/17204B,45/2 G5*G6 = G6 33 718 VFD 15/60573B,45/3 G5*G7 = - G7 33 719 VFD 15/17204B,45/2 G6*G5 = G6 33 720 VFD 15/17214B,45/2 G6*G6 = 2*G6 33 721 VFD 60/0 G6*G7 = 0 33 722 VFD 15/60573B,45/3 G7*G5 = - G7 33 723 VFD 60/0 G7*G6 = 0 33 724 VFD 15/17214B,45/3 G7*G7 = 2*G7 33 725 GAM8 ZR B1,GAMMOV $ MX0 48 $ BX0 -X0*X1 JP IF NO G FOUND. 33 726 MX6 0 $ SX0 X0-1423B TRACE LABEL 33 727 PL X2,GAM10 $ NZ X0,GAM10 TRACE OF ODD NR OF G IS ZERO. 33 728 GAM9 SA6 IGET+1 $ ZR B0,ANNE1R 33 729 GAM10 SB2 B1-5 $ SX6 B2-B7 $ AX6 1 X6 = NR OF INDICES M 33 730 SX7 3000B $ NZ X0,GAM16 JP IF NOT TRACE 33 731 ZR X6,GAM15 $ SA3 B7+IEP+5 SEE IF FIRST AND LAST EQUAL. 33 732 SA4 B1+IEP-2 $ SB5 B7+8 IF SO, MAKE D-FUNCTION. 33 733 IX5 X3-X4 $ NZ X5,GAM14 $ SX6 X7+B6 33 734 GAM11 LX3 12 $ LX7 12 $ BX6 X6+X3 $ BX7 X7+X4 33 735 SA4 A0+B3 $ SA3 IGET+1 $ SX5 B6 33 736 + SA4 A4+B6 $ BX2 X5+X4 $ BX5 X4 FIND FREE PLACE, 33 737 + NZ X2,*-1 $ SA7 A4 $ SA6 A4-B6 INSERT D. 33 738 + SA4 A0+B5 $ SB5 B5+2 $ BX6 X4 MOVE ALL INDICES ONE 33 739 + SA6 A4-2 $ LT B5,B1,*-1 PLACE BACK. 33 740 SB1 B1-4 $ ZR B4,GAM10 TAKE CARE OF G5 AFFAIRE. 33 741 SX7 B6-B4 $ SB4 X7+4 $ BX6 -X3 EXCHANGE G6,G7 33 742 NG X7,GAM10 $ SA6 A3 $ SB4 B6 33 743 ZR B0,GAM10 TRY AGAIN. 33 744 GAM14 SB2 X6 $ SX6 X7+B6 $ SX5 B2-2 33 745 ZR X5,GAM11 $ SX6 B2 MAKE D-FUNCTION IF TWO M ONLY. 33 746 GAM15 NZ X6,GAM16 $ SA4 IGET+1 IF NO M LEFT,TRACE = 4, 33 747 EQ B4,B6,GAM9 $ SA3 =4. UNLESS B4 = 1, I.E. G5 33 748 SA5 A4+B6 $ FX6 X3*X4 $ FX7 X3*X5 $ SA6 A4 33 749 SA7 A5 $ SB1 B0 $ ZR B0,GAMMOV 33 750 GAM16 SB2 X6 $ SB5 B6+B6 $ SX7 3000B SET FINAL 3000B 33 751 SX6 X6-4 $ EQ B4,B6,GAM21 33 752 GAM16A SB1 B1+B6 $ SX6 B4+3004B $ SA7 A0+B1 SET GX. 33 753 SA6 B7+IEP $ SX7 B7+B6 $ LX7 36 SET JUMPS. 33 754 SA7 A0+B3 $ SX6 B3+B6 $ LX6 36 $ SB3 B7+B6 33 755 SB7 B1+B6 $ SA6 A0+B7 $ GE B6,B4,GAM17 33 756 SX6 B4+B5 $ SX4 B6 $ SX7 1401B SUBSTITUTE G6,7=1+-G5 33 757 LX6 48 $ BX6 X6+X4 $ SA7 A0+B3 $ SA6 A7+B5 33 758 GAM17 SB1 B3 $ MX6 59 $ SA6 MARKER 33 759 ZR X0,GAMMOV $ LT B5,B2,GAMMOV JP IF TRACE. 33 760 LT B6,B4,GAMMOV $ SA3 B1+IEP JP IF G6,G7 33 761 AX3 12 $ SB3 B1 $ BX6 X3 $ SA6 A3 0, 1 OR 2 G 33 762 SA6 A3+3 $ SB1 B0 $ SA4 A0+B7 REMOVE REDUCE LABEL 33 763 NZ B2,GAM18 $ SB7 B3+3 JP IF 1 OR 2 GAMMAS 33 764 BX6 X4 $ SA6 A0+B7 $ ZR B0,GAMMOV MOVE JP BACKWARDS 33 765 GAM18 SX7 3000B $ SA7 A6+B5 $ SB2 B2-B6 33 766 SX4 3003B $ LX3 12 $ BX3 X4+X3 33 767 NZ B4,GAM18A $ MX6 0 $ SA6 A0+B3 JP IF NOT GI 33 768 SA6 A6+B6 $ NO $ NO $ SA6 A6+B6 REMOVE GI 33 769 GAM18A GE B0,B2,GAM20 33 770 + SA4 A7+B6 $ LX4 24 $ BX6 X3+X4 $ SA6 A4 CHANGE G(M1,M2) 33 771 + SA7 A6+B6 $ SB2 B2-B6 $ LT B0,B2,*-1 INTO G(M1)*G(M2) 33 772 GAM20 MX6 0 $ SA6 A7+B6 $ ZR B0,GAMMOV 33 773 GAM21 NZ X6,GAM16A $ NZ X0,GAM16A 33 774 SA4 B7+IEP+5 $ BX6 X4 $ SA4 A4+B5 TRACE OF G5 AND FOUR G 33 775 SA6 B7+IEP+1 $ BX6 X4 $ SA6 A6+B6 33 776 SA4 A4+B5 $ BX6 X4 $ SA4 A4+B5 $ SA6 A6+B6 33 777 BX6 X4 $ SA6 A6+B6 $ SB1 B7+6 33 778 SA7 A0+B1 $ SA4 IGET+1 $ SA3 A4+B6 33 779 SA5 =4. $ FX6 X4*X5 $ FX7 X3*X5 33 780 SA6 A4 $ SA7 A3 $ SX6 3002B 33 781 SX7 B7+B6 $ LX7 36 $ SA6 B7+IEP 33 782 SA7 A0+B3 $ SX6 B3+B6 $ SB7 B1+B6 $ LX6 36 PLANT JUMPS 33 783 SA4 NQA $ SA6 A0+B7 $ SB3 B0 33 784 NZ X4,GAM17 $ SX6 B7-6 33 785 SA6 A4 $ ZR B0,GAM17 33 786 *KAHANE APPLIES KAHANES ALGORITHM. 33 787 * ASSUMES B6 = 1, B7 = NEPS, A0 = IEP-1. 33 788 KAHANE BSS 1 A5 = IGET+1 THROUGHOUT. 33 789 SA5 IGET+1 $ SB1 B6 SEARCH TRICK OR TRACK LABEL 33 790 KAH1 SA1 A0+B1 $ GE B1,B7,KAHANE $ SB1 B1+B6 33 791 SX2 X1-3003B $ NZ X2,KAH1 SEARCH G-FUNCTION. 33 792 SA2 A1+B6 $ MX3 48 $ BX6 -X3*X2 A1 = ADDR FUNCTION. 33 793 SX4 X6-1422B $ SX5 X6-1423B REDUCE, TRACE LABEL. 33 794 + ZR X4,*+1 $ NZ X5,KAH1 33 795 + MX0 60 $ SB2 B1+B6 $ SX1 3000B X1 = 3000B. B1 = LOOP ADDR 33 796 BX6 X2 $ LX6 12 $ SA6 KAHD1+1 KEEP LOOP, 12 SHIFTED 33 797 KAH3 SA2 A0+B2 $ SB2 B2+2 $ IX6 X2-X1 SEARCH FIRST INDEX. 33 798 ZR X6,KAH7 $ BX3 X2 $ AX3 8 X0 = PARITY FIRST INDEX. 33 799 BX0 -X0 $ ZR X3,KFO1 $ AX3 1 SEE IF INDEX, 400B 33 800 NZ X3,KAH3 $ SB3 B2 $ BX6 X0 X6 = PARITY SECOND INDEX. 33 801 KAH4 SA3 A0+B3 $ SB3 B3+2 $ IX4 X3-X1 33 802 IX5 X3-X2 $ ZR X4,KAH3 $ BX6 -X6 33 803 NZ X5,KAH4 $ AX0 12 $ BX0 X0-X1 EVERY PAIR IS A FACTOR 33 804 SA4 =-2. $ SA5 A5+B6 $ FX7 X4*X5 -2 AND MAKES X0 NON-ZERO. 33 805 SA7 A5 $ SA5 A5-B6 $ FX7 X4*X5 $ SA7 A5 33 806 SB4 A3 $ SB5 A3+B6 $ BX2 X0-X6 $ MX7 24 MAKE LINK. 33 807 + PL X2,*+1 $ SB5 A3 $ SB4 A3+B6 INDEX IS REPLACED BY 33 808 + MX3 17 $ BX5 X7*X6 $ MX4 1 $ BX7 X7*X0 TWO WORDS CONTAINING 33 809 LX3 36 $ BX7 X7+X4 $ BX5 X5+X4 $ LX4 19 1(1 BIT), PAR(23), 33 810 BX6 X7+X3 $ SX3 B4 $ BX7 X7+X4 $ SX4 B5 -1 OR +1(18), 33 811 BX6 X6+X3 $ BX7 X7+X4 $ SA6 A2 $ SA7 A2+B6 JP ADDR(18), 33 812 SB4 A2 $ MX3 17 $ SB5 A2+B6 $ LX3 36 -1 IN CASE OF FIRST 33 813 + PL X2,*+1 $ SB4 A2+B6 $ SB5 A2 WORD REPLACING THE INDEX. 33 814 + SX4 B6 $ BX6 X3+X5 $ LX4 18 $ BX7 X4+X5 33 815 SX3 B4 $ SX4 B5 $ BX6 X3+X6 $ BX7 X4+X7 33 816 SA6 A3 $ SA7 A3+B6 $ ZR B0,KAH3 33 817 KAH7 ZR X0,KAH1 $ SA2 A1-B6 $ MX6 59 JP IF NO PAIR FOUND. 33 818 SB7 B7+B6 $ NO $ NO $ SA6 A0+B7 33 819 SA6 MARKER $ SB2 B0 $ MX6 0 33 820 SB4 B7 $ SB3 B6 $ SA6 KAHD1 READ OUT, PLACE IN IEP. 33 821 KAH8 SA2 A2+B3 $ ZR X2,KAH8 $ SA6 A2 X6 = 0. 33 822 IX3 X2-X1 $ BX7 X2 $ NG X2,KAH12 B3 = READ DIRECTION. 33 823 SA4 A0+B4 $ IX5 X4-X7 $ ZR X5,KAH25 B2 = LOC AFTER 33 824 KAH9A SB4 B4+B6 $ SA7 A0+B4 $ NZ X3,KAH8 FIRST JUMP 33 825 MX7 59 $ SB4 B4-B6 $ SB5 B4 $ SA7 A2 SET -1 AT FU END. 33 826 KAH10 ZR B2,KFO1 $ SB3 B6 $ MX3 59 B5 = LOC LAST ARG MAIN CHAIN. 33 827 + SA2 B2 $ SB2 B2+B6 $ PL X2,* 33 828 IX4 X2-X3 $ BX7 X2 $ SB2 B0 $ LX2 24 OR FIND END FUNCTION 33 829 ZR X4,KAH14 $ PL X2,KAH9A EXIT OR NEXT. MUST BE FORW READ 33 830 KAH12 SA2 X2 $ NZ B2,*+1 $ SB2 A6+B6 JP. GO ON UNLESS JP 33 831 + AX2 18 $ SB3 X2 $ SX3 A2-B2 $ SA6 A2 TO BEFORE B2 33 832 PL X3,KAH8 $ ZR B0,KAH10 33 833 KAH14 SX7 3000B $ SB3 B5 $ SA7 A2 33 834 + SA3 A0+B5 $ SB5 B5-B6 $ BX7 X3 $ SA7 A7-B6 MOVE MAIN CHAIN. 33 835 + LT B7,B5,*-1 $ SB1 A0 $ SB1 A2-B1 33 836 KAH16 SA2 A0+B4 $ SA3 A2-2 $ SB4 B4-B6 MOVE BRACES BACK. 33 837 LT B4,B3,KAH21 $ NG X2,KAH17 JP IF 0 ARG. 33 838 PL X3,KAH18 $ SX6 3000B JP IF NOT 2 ARGUMENTS 33 839 SA3 A3+B6 $ LX6 12 $ SX5 3001B BRACE(X,Y) = - 2*D(X,Y) 33 840 BX7 X6+X2 $ LX3 12 $ SA7 A7-B6 $ BX7 X3+X5 33 841 SA7 A7-B6 $ SB4 B4-2 33 842 KAH17 SA3 =-2. $ SA5 A5 $ SA4 A5+B6 BRACE() = -2. 33 843 FX6 X3*X5 $ SA6 A5 $ FX6 X3*X4 $ SA6 A4 33 844 ZR B0,KAH16 33 845 KAH18 SX6 3000B $ LX6 12 $ BX7 X6+X2 33 846 SA7 A7-B6 $ SX5 23003B G, DUMMY 2 33 847 + SA2 A0+B4 $ SB4 B4-B6 $ BX7 X2 $ SA7 A7-B6 33 848 + PL X2,*-1 $ BX7 X5 $ SA7 A7 33 849 SX5 11 $ SX7 B6 $ LX5 48 EXPR. 11 = BRACE, BRACE PRIME. 33 850 SA4 NQX $ BX7 X7+X5 $ SA7 A7-B6 MAKE 1401B,OLD LOOP, 33 851 MX6 0 $ NO $ SA6 X4+IPR 33 852 SX7 1401B $ SX6 X4+B6 $ SA6 A4 NEW LOOP, N 33 853 LX2 1 $ SX5 1423B $ LX6 12 N=1 FOR BRACE 33 854 SA4 KAHD1+1 $ SX3 340104B 33 855 + PL X2,*+1 $ SX3 377604B N=-1 FOR BRACE PRIME 33 856 + BX6 X6+X5 $ LX3 18 $ BX7 X4+X7 $ BX6 X3+X6 33 857 SA6 A7-B6 $ SA7 A6-B6 $ ZR B0,KAH16 33 858 KAH21 SA2 KAHD1 $ ZR X2,KAH23 33 859 KAH22 SA3 X2 $ SX6 3000B $ SX2 A3-B6 G(L,X)*G(L,X) = D(X,X) 33 860 ZR X3,KAH23 $ LX6 12 $ BX7 X6+X3 33 861 SX5 3001B $ SA7 A7-B6 $ LX3 12 33 862 BX7 X3+X5 $ SA7 A7-B6 $ ZR B0,KAH22 33 863 KAH23 SB3 A1 $ SB4 A7 $ MX6 0 33 864 + SA6 B4-B6 $ SB4 B4-B6 $ LT B3,B4,* 33 865 EQ B3,B4,KAH1 $ ZR B0,KFO1 33 866 KAH25 SA4 KAHD1 $ SB4 B4-B6 $ BX6 X7 G(L,X)*G(L,X) CASE. 33 867 NZ X4,KAH26 $ SA4 MBE PRESERVE X IN IT 33 868 MX6 0 $ SA6 X4 $ NO $ BX6 X7 33 869 KAH26 SA6 X4+B6 $ SX6 X4+B6 $ SA6 KAHD1 33 870 ZR B0,KAH8 33 871 KFO1 ERROR 76 KAHANE ERROR 33 872 *PTRICK APPLIES ALGORITHM FOR G(X)*S*G(X) WITH X NOT INDEX. 33 873 * ALSO REDUCES PRODUCT OF GAMMAS TO AT MOST TWO GAMMAS IF IPR(1) 33 874 * CONTAINS 3400B. IN THAT CASE NO TRICKS ARE DONE. 33 875 * IF TRICK DONE, IPR(1) GETS 01 IN LAST TWO BITS. 33 876 * ASSUMES A0 = IEP-1, B6 = 1, B7 = NEPS. 33 877 PTRICK BSS 1 33 878 SB2 B0 33 879 PTR1 SB1 B2+B6 $ SX0 3003B $ MX7 48 33 880 PTR2 SA1 A0+B1 $ GE B1,B7,PTRICK $ SB1 B1+B6 33 881 IX2 X1-X0 $ NZ X2,PTR2 $ SA2 A1+B6 1422B = REDUCE 33 882 BX3 -X7*X2 $ SX6 X3-1423B $ SX5 X6+B6 1423B = TRACE 33 883 + ZR X6,*+1 $ NZ X5,PTR2 X6 = 0 IF TRACE 33 884 + SA5 IPR $ SB2 B1+B6 $ SB5 B6+B6 B1 = ADDRESS LOOP NR 33 885 SX4 X5-3400B $ NZ X4,PTR4 33 886 + SA2 A0+B2 $ SB2 B2+B5 $ SX6 X2-3000B SEARCH END FUNCTION 33 887 + NZ X6,*-1 $ ZR B0,PTR13 X6=0 FOR PTR13 33 888 PTR4 SA2 A0+B2 $ SX1 3000B $ IX3 X2-X1 33 889 ZR X3,PTR1 $ SX4 X2-1000B 33 890 SB2 B2+B5 $ SB3 B2 $ NG X4,PTR4 33 891 + SA3 A0+B3 $ IX4 X3-X1 $ SB3 B3+B5 $ IX5 X3-X2 33 892 + ZR X4,PTR4 $ NZ X5,*-1 33 893 SA4 IPR $ MX0 58 $ SX7 B6 33 894 BX4 X0*X4 $ BX7 X4+X7 $ NO $ SA7 A4 33 895 SB3 B3-B5 $ SX0 B3-B2 $ SB2 B2-B5 X0 = 2*NR OF INBETWEEN G 33 896 NZ X6,PTR8 $ SX6 X0-6 JP IF REDUCE 33 897 NG X6,PTR8 $ SB4 B3+B5 JP IF 0,1,2 G INBETWEEN. 33 898 + SA4 A0+B4 $ SX7 B1 $ SB4 B4+B5 $ IX6 X4-X1 SEARCH END 33 899 + NZ X6,*-1 $ SX6 B4-7 IN CASE OF TRACE, SEE IF ON THE 33 900 IX6 X6-X7 $ IX7 X6-X0 $ SX4 X7-6 OUTSIDE 2 OR LESS G. 33 901 PL X4,PTR8 $ SB4 B4-12 33 902 SA2 A4-B5 $ SA3 A2-B5 $ SA4 A3-B5 $ SA5 A4-B5 33 903 + SA1 A0+B4 $ BX0 X7 $ SB4 B4-B5 $ BX6 X1 MAKE 33 904 + SA6 A1+8 $ LT B1,B4,*-1 CIRCULAR MOVE OF 4 GAMMAS. 33 905 BX6 X2 $ LX7 B0,X3 $ SA6 A6-B5 $ SA7 A6-B5 33 906 BX6 X4 $ LX7 B0,X5 $ SA6 A7-B5 $ SA7 A6-B5 33 907 SB3 B2+8 $ SB2 X0+B5 $ SB2 B3-B2 33 908 PTR8 SA1 B2+IEP-2 $ SX3 3000B SEE IF PRECEDING IS LOOP NR. 33 909 + SA4 A0+B1 $ ZR X1,*+2 $ MX6 0 IF NOT, JP. ELSE SET 3003 AND 33 910 + SA6 A1 $ SA6 A1-B6 $ ZR B0,PTR9 LOOP NR TO ZERO. 33 911 + SA1 A1-B6 $ LX3 12 $ BX6 X1+X3 $ SA6 A1 SET 3000B AFTER. 33 912 PTR9 AX0 1 $ SX7 3003B $ SB4 X0 B4=NR OF G INBETWEEN 33 913 LX0 59 $ NO $ LX4 12 $ BX7 X7+X4 SET G,L BEFORE TAIL 33 914 SA7 B3+IEP $ GE B5,B4,PTR12 33 915 SA3 NQX $ SX7 1401B 33 916 MX6 0 $ NO $ SA6 X3+IPR 33 917 BX7 X7+X4 $ SX6 X3+B6 $ SA7 B2+IEP-2 33 918 SA6 A3 $ SX3 X3+401B $ SX1 B2 33 919 SX2 B3 $ SB2 B2+B5 $ SB3 B3-B5 33 920 PTR10 SA4 A0+B2 $ SA5 A0+B3 $ BX6 X4 $ LX7 B0,X5 REVERSE 33 921 SB2 B2+B5 $ SB3 B3-B5 $ SA6 A5 $ SA7 A4 33 922 LT B2,B3,PTR10 $ SB2 X1 $ SB3 X2 33 923 SX6 3000B $ SA5 A0+B2 $ SA4 A5+B5 33 924 SX7 13003B $ LX4 24 $ BX7 X7+X4 G-FU, DUMMY NR 1 33 925 SA6 A0+B3 $ SA7 A4 $ NG X0,PTR11 JP IF ODD 33 926 MX6 0 $ LX3 12 $ RJ INDCR 33 927 MX7 0 $ NO $ SA7 X6+IPR-1 33 928 SX6 X6+400B $ BX3 X3+X5 $ LX6 24 33 929 BX6 X6+X3 $ SX7 B6 $ SB5 B6+B6 $ SA6 A0+B2 G(P)*S*G(P) 33 930 SX5 13 $ LX5 48 $ BX7 X7+X5 S EVEN. EXPR. 13 33 931 SA7 A6+B6 $ SA7 MARKER $ SB2 B3+B5 33 932 ZR B0,PTR1 33 933 PTR11 LX3 12 $ BX6 X3+X5 $ SX7 B6 $ SA6 A0+B2 G(P)*S*G(P) 33 934 SX5 12 $ LX5 48 $ BX7 X7+X5 S ODD. EXPR. 12. 33 935 SA7 A6+B6 $ SA7 MARKER $ SB2 B3+B5 33 936 ZR B0,PTR1 33 937 PTR12 SX7 1401B $ SX6 B4+13 B4 = 1,2. EXPR. 14, 15 33 938 BX7 X7+X4 $ SX5 B6 $ SA7 B2+IEP-2 33 939 LX6 48 $ BX6 X6+X5 $ SA7 MARKER 33 940 SA6 A0+B3 $ SB2 B3+B5 $ ZR B0,PTR1 33 941 PTR13 SX7 B2-B1 $ SB5 B6+B6 $ AX7 1 $ SA1 A0+B1 X6=0. REDUCE TO 33 942 SB4 X7 $ SB4 B4-B6 $ SA6 A1-B6 $ SA6 A1 AT MOST TWO GAMMAS 33 943 GE B5,B4,PTR15 $ SX7 1401B B4 = NR OF G. 33 944 LX1 12 $ BX0 X1+X7 $ SX5 6 EXPR. NR 6 33 945 SX1 B6 $ LX5 48 $ BX1 X1+X5 $ SB1 B1+B6 33 946 PTR14 SB6 B4 $ MX6 0 $ RJ INDCR 33 947 + SA2 A0+B1 $ SB4 B6 $ SB6 1 33 948 MX7 0 $ NO $ SA7 X6+IPR-1 33 949 SB5 B6+B6 $ SA3 A2+B5 $ SA4 A3+B5 $ LX3 12 33 950 SX6 X6+400B $ SB4 B4-B5 $ BX7 X0 SET KEY. 33 951 SA7 A2 $ LX6 12 $ BX6 X6+X4 $ SA6 A3 33 952 BX7 X2+X3 $ AX6 12 $ SA7 A6-B6 $ SA6 A4 33 953 BX7 X1 $ SB1 B1+4 $ SA7 A4-B6 33 954 LT B5,B4,PTR14 $ SB1 B1-B6 33 955 PTR15 SA2 B1+IEP $ AX0 12 $ LX0 12 33 956 SX1 3003B $ ZR B4,PTR16 33 957 BX7 X0+X1 $ BX6 X2 $ SA7 A2 $ SA6 A2+B6 33 958 SA7 MARKER $ ZR B0,PTR1 33 959 PTR16 MX6 0 $ SA6 A0+B2 $ MX7 59 33 960 SA7 MARKER $ ZR B0,PTR1 33 961 SOORT42 MX1 0 $ RJ SO42A EVENX 33 962 ZR B0,Z1IDT 33 963 * 33 964 *FA,1,2,FB,3,5 33 965 * REPLACE IN FA, ARGS 1,2 AND FB, ARGS 3,5 THE ARG BY X0 IF EQUAL TO X1. 33 966 * IF X1=0, REMOVE - SIGN. B7 IS SET 1 AND CHANGED SIGN FOR EVERY - SIGN 33 967 * REMOVED. 33 968 * A0=NEPS, X2=FA,FB,..., A3=ADDRESS FA,FB,... IN IEP. 33 969 SO42A BSS 1 33 970 SA3 NEPS $ SB6 1 33 971 SB7 B6 $ ZR X3,SO42A $ SA0 X3 33 972 SO42B SA2 B3+B6 $ MX6 52 $ BX7 X6*X2 $ SB3 B3+B6 33 973 SX6 X7-3000B $ AX7 24 $ SB5 A0 33 974 NZ X7,SO42A $ NZ X6,SO42B 33 975 SO42C SA3 B5+IEP-1 $ GE B0,B5,SO42B 33 976 SB5 B5-B6 $ IX4 X3-X2 $ NZ X4,SO42C 33 977 SA4 A2+B6 $ SX3 1407B 33 978 SO42D MX5 52 $ SX6 X4-3400B $ BX5 X5*X6 33 979 SA4 A4+B6 $ SB4 X6 $ NZ X5,SO42C 33 980 SA5 A3+B4 $ IX6 X5-X1 $ MX7 48 $ BX7 -X7*X5 33 981 ZR X1,SO42E $ NZ X6,SO42D 33 982 BX6 X0 $ SA6 A5 $ ZR B0,SO42D 33 983 SO42E IX7 X7-X3 $ NZ X7,SO42D $ AX6 12 33 984 SA6 A5 $ SB7 B0-B7 $ ZR B0,SO42D 33 985 * 33 986 SOORT43 MX1 0 $ RJ SO42A ODDXX 33 987 PL B7,Z1IDT $ SA1 IGET+1 33 988 BX6 -X1 $ SA6 A1 $ ZR B0,Z1IDT 33 989 SOORT44 SA1 B3+1 $ SA2 B3+2 REPLA 33 990 SB3 A2 $ BX0 X2 $ RJ SO42A 33 991 ZR B0,Z1IDT 33 992 SOORT45 SA2 B3+4 $ SB5 1 33 993 SX6 B1 $ SX7 B2 $ SA6 B1HER CHECK IF RATIO WITH 3 OR 33 994 SA7 B2HER $ MX0 36 $ BX3 X0*X2 MORE THAN 3 ARGUMENTS. 33 995 SX6 B3 $ NO $ SA6 B3HER SAVE B1, B2 AND B3. 33 996 ZR X3,FOUTB6 $ SA2 B3+B5 $ NO 33 997 SA3 A2+B5 $ SA4 X2+IPR1-2001B $ SB6 X4 X2=A, X3=B 33 998 SA5 X3+IPR1-2001B $ ZR X4,Z1IDT X4=B6=N, X5=B7=M 33 999 SB7 X5 $ ZR X5,Z1IDT $ SA1 A3+B5 X1=BA 33 1000 LX3 12 $ SX7 1407B $ BX4 X1 $ LX1 12 DUMMY KEY - 33 1001 BX1 X7+X1 $ LX1 12 $ SX6 B0 $ BX7 -X7*X7 A,B,BA,-BA. IF N+ 33 1002 NG B6,SO45A $ PL B7,Z1IDT EXCHANGE. 33 1003 AX3 12 $ SX5 B6 $ LX2 12 $ SB6 B7 M,N, MAKE KEY 33 1004 AX1 12 $ SB7 X5 $ LX4 24 B,A,-BA,BA. 33 1005 SO45A SA6 A4 $ SA7 A5 $ SB4 B0 $ BX6 X4+X1 33 1006 SX7 1401B $ SA5 NEPS 33 1007 SA1 MBE $ SA7 X5+IEP 33 1008 SX4 3777B $ IX7 X2+X3 $ LX4 36 INSERT KEY 33 1009 SA7 A7+B5 $ SX2 B5 $ BX4 X4+X1 $ SA6 A7+B5 33 1010 LX4 12 $ BX7 X4+X2 $ SX6 X5+4 33 1011 SA7 A6+B5 $ SA6 A5 $ SA7 MARKER 33 1012 SB6 B0-B6 $ SB7 B0-B7 $ MX6 52 $ BX2 -X6 33 1013 SB1 13400B $ SB2 43400B PARAMETERS POLE PART. 33 1014 SO45G SX6 B7 $ SA3 =1. $ LX6 59 33 1015 AX6 59 $ BX0 X3-X6 $ SB3 3 33 1016 PL B7,SO45C $ BX0 -X0 33 1017 SO45C SX6 X1+B3 $ BX1 X6 $ LX6 42 $ BX7 X0 LOOP. TWICE IF N,M NEG 33 1018 SX3 B4-B6 $ SA6 X1+IT-4 $ SX4 B4+B7 33 1019 BX3 X2*X3 $ SA7 A6+B5 $ BX4 -X4*X2 $ SX3 X3+B1 ONCE IF M 33 1020 SX4 X4+B2 $ LX3 36 $ SX5 B7+B4 $ LX4 12 POSITIVE. 33 1021 SX6 B4+B5 $ PX5 B0,X5 $ BX7 X3+X4 $ NX5 B0,X5 33 1022 SA7 A7+B5 $ PX6 B0,X6 $ FX3 X0*X5 $ NX6 B0,X6 33 1023 FX0 X3/X6 $ SB4 B4+B5 $ ZR X0,SO45DD STOP IF ZERO COEF 33 1024 LT B4,B6,SO45C $ SX7 B1-13400B IN CASE M POSITIVE. 33 1025 SB2 33400B $ SX6 B6 $ SB6 B7 33 1026 SB7 X6 $ NZ X7,SO45DD $ SB4 B0 BUT M-(-N) NEGATIVE. 33 1027 SB1 23400B $ PL B6,SO45G PREPARE SECOND ROUND 33 1028 SB6 B0-B6 $ SA3 =1. $ SB1 B6-B7 33 1029 LT B1,B0,SO45DD $ SB2 IT-4 B1=M-N, B6=M, B7=N 33 1030 SO45H SX6 X1+B3 $ BX1 X6 $ LX6 42 $ BX7 X3 33 1031 SX4 B1-B4 $ SA6 X1+B2 $ SX4 X4+23400B NON-POLE PART 33 1032 SX5 B4+33400B $ LX4 36 $ SA7 A6+B5 33 1033 LX5 12 $ BX7 X4+X5 $ SX4 B4+B7 $ PX5 B0,X4 33 1034 SX4 B4+B5 $ NX5 B0,X5 $ SA7 A7+B5 $ FX5 X3*X5 33 1035 PX4 B0,X4 $ NX7 B0,X4 $ SB4 B4+B5 $ FX3 X5/X7 33 1036 GE B1,B4,SO45H 33 1037 SO45DD SA2 B1HER $ SA3 A2+B5 $ SB1 X2 RESTORE B1,B2. 33 1038 SA2 NDIMT $ SB2 X3 $ MX6 0 CHECK SPACE IN IT. 33 1039 BX7 X1 $ IX3 X2-X1 $ SA6 A6+B0 $ SA7 A1 33 1040 PL X3,Z1IDT $ ZR B0,FOUT3 33 1041 FOUTB6 ERROR 81 RATIO NEEDS 3 PARAMS 33 1042 FOUT3 ERROR 70 RATIO FILLS WORKSPACE 33 1043 SOORT46 SA3 NEPS $ SB6 1 CYCLI,FA,1,3,7,FB,FC,4,5 33 1044 ZR X3,Z1IDT $ SX6 3000B PLANT FUNCTION END, KEEP A6 33 1045 SA0 X3 $ SA6 X3+IEP 33 1046 SO46B SA2 B3+B6 $ MX6 52 $ BX7 X6*X2 $ SB3 B3+B6 SEARCH NEXT FU 33 1047 SX6 X7-3000B $ AX7 24 $ SB5 A0 IN LIST. 33 1048 NZ X7,Z1IDT $ NZ X6,SO46B KEEP IN X2 33 1049 SO46C SA3 B5+IEP-1 $ GE B0,B5,SO46B SEARCH IEP FOR FUNCTION 33 1050 IX4 X3-X2 $ SB5 B5-B6 $ NZ X4,SO46C 33 1051 SA4 A2+B6 $ SB7 B0 $ SX0 3400B FOUND. KEEP B5. 33 1052 SO46D MX5 52 $ IX6 X4-X0 $ BX5 X5*X4 $ IX7 X5-X0 GET ARG. NR. 33 1053 SA4 A4+B6 $ SB4 X6 $ NZ X7,SO46F JP IF NO ARG. NRS. LEFT 33 1054 + SA5 A3+B4 $ SX7 X5-3000B $ SB4 B4-B6 TEST RANGE. 33 1055 + ZR X7,CYFO1 $ LT B0,B4,*-1 IF O.K. INSERT IN IDUM1, 33 1056 SB4 X6 $ SA5 A3+B4 $ SB7 B7+B6 $ BX7 X5 COUNT IN B7. 33 1057 SA7 B7+IDUM1-1 $ ZR B0,SO46D 33 1058 SO46F SB4 21 $ SX5 3000B 33 1059 + MX0 0 $ NZ B7,*+3 $ SB7 B0-B6 IF NO ARG. NRS., 33 1060 + SA3 A3+B6 $ BX7 X3 $ SB7 B7+B6 $ IX6 X5-X3 TAKE THEM ALL. 33 1061 + SA7 B7+IDUM1 $ NZ X6,*-1 33 1062 + GE B7,B4,CYFO2 $ GE B6,B7,SO46C 33 1063 SO46G SB4 B6 $ SX1 IDUM1-1 COPY IDUM1 TO IEP. 33 1064 + SA4 X1+B4 $ BX7 X4 $ SA7 A6+B4 $ SB4 B4+B6 33 1065 + GE B7,B4,*-1 $ SA5 X1+B6 $ SB4 X0+B6 33 1066 GE B4,B7,SO46I $ SB4 B6+B6 $ SX0 X0+B6 ROTATE IDUM1. 33 1067 SO46H SA4 B4+X1 $ BX7 X4 $ SB4 B4+B6 $ SA7 A4-B6 33 1068 + GE B7,B4,*-1 $ BX7 X5 $ SA7 A7+B6 33 1069 SA5 X1+B6 $ SA4 A6+B6 $ SB4 B6 $ SX3 B7-B6 X0 KEEPS COUNT 33 1070 + IX7 X5-X4 $ SA4 A4+B6 $ SB4 B4+B6 $ SA5 A5+B6 33 1071 + NZ X7,*+1 $ GE B7,B4,*-1 COMPARE, UNTIL ALL CYCLIC 33 1072 + NG X7,SO46G $ SA5 X1+B6 $ IX7 X0-X3 PERMUTATIONS DONE, 33 1073 SB4 B6+B6 $ SX0 X0+B6 $ NG X7,SO46H AS COUNTED IN X0. 33 1074 SO46I SA4 A2+B6 $ MX5 52 $ SX0 3400B ALL DONE. 33 1075 IX6 X4-X0 $ BX5 X5*X4 $ IX7 X5-X0 $ NO MOVE BACK IN FU. 33 1076 NZ X7,SO46K $ SA5 A6+B6 $ BX7 X5 JP IN CASE OF ALL ARG. 33 1077 + SX1 X6+B5 $ SA7 X1+IEP $ SB7 B7-B6 33 1078 + SA4 A4+B6 $ SA5 A5+B6 $ IX6 X4-X0 $ BX7 X5 33 1079 + LT B0,B7,*-2 $ ZR B0,SO46C 33 1080 SO46K SB4 B6 $ SX1 B5+IEP-1 MOVE ALL ARGS BACK INTO FUNCTION. 33 1081 + SA5 A6+B4 $ SB4 B4+B6 $ BX7 X5 $ SA7 X1+B4 33 1082 + GE B7,B4,*-1 $ ZR B0,SO46C 33 1083 CYFO1 ERROR 184 ARG. NR CONFLICT 33 1084 CYFO2 ERROR 185 TOO MANY ARGS 33 1085 SOORT47 SA3 NEPS $ SB6 1 COMMU,FA,FB,FC... FA ETC ARE COMMUTATING. 33 1086 ZR X3,Z1IDT $ SA0 X3+IEP+1 SET IN FRONT, IN WELL DEFINED 33 1087 MX6 59 $ SB7 X3 $ SB4 B0 $ SA6 A0-B6 ORDER. A0=START TABLE-1 33 1088 SO47A SA2 B3+B6 $ MX6 0 $ BX7 X2 $ SB3 B3+B6 B4=COUNT. GET FU 33 1089 AX2 24 $ NZ X2,SO47D $ SB5 B7 X6=0 FOR SO47D. 33 1090 + SA2 A2+B6 $ IX1 X2-X7 $ ZR X1,SO47A CHECK FOR IDENTICAL 33 1091 + AX2 24 $ ZR X2,*-1 $ BX2 X7 FUNCTIONS IN LIST. 33 1092 SO47B SA3 B5+IEP-1 $ GE B0,B5,SO47A SEARCH IEP FOR FU., 33 1093 SB5 B5-B6 $ IX4 X3-X2 $ NZ X4,SO47B COUNT ARGS., AND 33 1094 MX0 59 $ LX2 24 $ SB4 B4+B6 $ SX6 B5+B6 STORE NAME, NR. OF 33 1095 + SA3 A3+B6 $ SX7 X3-3000B $ MX4 48 ARGS., START FU. IN 33 1096 + BX5 X4*X3 $ SX0 X0+B6 $ NZ X5,SO47C+3 TABLE. 12 BITS EQCH. 33 1097 SO47C NZ X7,*-2 $ LX0 12 $ BX6 X6+X2 CHECK FOR PILES UP ARGS. 33 1098 + AX2 24 $ BX6 X6+X0 $ NO $ SA6 A0+B4 33 1099 + LT B6,B5,SO47B $ ZR B0,SO47A 33 1100 + BX5 -X4*X3 $ MX1 52 $ BX1 X1*X4 $ AX3 24 SEE IF OPERATOR, 33 1101 SX4 1400B $ IX1 X1-X4 $ BX3 X3+X1 IF SO, GO BACK, ELSE 33 1102 ZR X3,SO47C $ ZR B0,COFO1 INTERFERENCE OF OTHER SUBS. 33 1103 SO47D ZR B4,Z1IDT $ EQ B4,B6,SO47F PLANT 0 AT END OF TABLE. 33 1104 SA4 A0+B6 $ SA5 A4+B6 $ SB5 B4+B6 $ SA6 A0+B5 33 1105 SO47E MX0 48 $ IX2 X5-X4 $ BX7 -X0*X5 $ AX2 12 X6 MUST BE ZERO 33 1106 IX3 X2+X6 $ BX6 -X0*X4 $ NG X3,SO47EX COMPARE FU NAME, NR OF 33 1107 NZ X3,SO47EX+2 $ SA2 X6+IEP ARGS, ARGUMENTS. 33 1108 SA3 X7+IEP $ SX0 3000B SO47EX=EXCHANGE, 33 1109 + IX1 X3-X2 $ SA2 A2+B6 $ NG X1,SO47EX SO47EX+2=NO EXCHANGE. 33 1110 + NZ X1,SO47EX+2 $ IX1 X3-X0 $ SA3 A3+B6 33 1111 + NZ X1,*-2 $ ZR B0,SO47EX+2 33 1112 SO47EX BX6 X4 $ LX7 B0,X5 $ SA6 A5 $ SA7 A4 33 1113 + BX5 X6 $ LX4 B0,X7 $ SB0 B0 $ MX6 0 33 1114 + SA5 A5+B6 $ MX6 0 $ NZ X5,SO47E NEXT COMPARISON. 33 1115 SA4 A4+B6 $ SA5 A4+B6 $ NZ X5,SO47E 33 1116 SO47F SA4 IEP+1 $ SA5 A4-B6 $ LX4 12 CLEAR FIRST PLACE IN IEP. 33 1117 BX6 X4+X5 $ SB5 B6 $ MX7 0 $ SA6 A4 33 1118 SA7 A5 $ SB7 B6 $ MX0 48 33 1119 + SA4 A0+B7 $ BX5 -X0*X4 $ AX4 12 $ BX6 -X0*X4 X5=START FU. 33 1120 + SX6 X6+B6 $ IX7 X5+X6 $ SX3 X5-1 X6=NR OF ARGS PLUS ONE. 33 1121 + SB7 B7+B6 $ NZ X3,*+1 $ SX5 X5+B6 X7=END FUNCTION. 33 1122 + LX5 36 $ SA4 B5+IEP-1 $ BX6 X4+X5 33 1123 + SB5 X7 $ SA6 A4 $ GE B4,B7,*-4 PLANT JP TO THIS FU, END 33 1124 SA4 B5+IEP-1 $ SX6 B6+B6 $ LX6 36 IN B5. PLANT JP TO 33 1125 BX7 X6+X4 $ SX6 B6 $ NO $ SA7 A4 33 1126 SA6 MARKER $ ZR B0,Z1IDT 33 1127 COFO1 ERROR 186 INTERFERING SUBSTITUTIONS 33 1128 SOORT48 SB7 1 $ MX0 13 $ SB5 B7+B7 NUMER. SUBSTITUTE NUMERICALS 33 1129 SOT48 SA1 B3+B7 $ BX7 X0*X1 $ SA2 A1+B7 $ BX3 X1 33 1130 NZ X7,Z1IDT $ MX7 52 $ BX5 -X7*X1 33 1131 AX3 8 $ SX4 X3-4 $ SB3 A2+B7 33 1132 ZR X1,FOUTB7 $ NZ X4,DOT48 33 1133 SA5 X5+IPR1-1 $ SX7 B1 $ MX6 0 IS ALGEBRA 33 1134 SX1 B2 $ ZR X5,SOT48 $ LX1 18 33 1135 NZ X2,AL48 $ NG X5,SOT48 NO (0.0)**- SUBSTITUTION 33 1136 A48L SA6 IGET+1 $ JP ANNE1R 33 1137 AL48 BX7 X1+X7 $ SX1 B3 $ SA6 A5 $ LX1 36 CALL FORTRAN ROUTINE 33 1138 BX7 X1+X7 $ SA7 B1HER $ BX7 X5 33 1139 SA7 B3HER $ SA1 IGET+1 33 1140 SA3 A1+1 $ BX6 X1-X3 $ AX6 59 33 1141 SA1 BRIAN2C $ BX7 X3-X6 $ SA7 A3 33 1142 SX6 A2 $ NO $ SA6 A1+1 33 1143 RJ BRIAN 33 1144 + SA1 B1HER $ SB1 X1 $ AX1 18 33 1145 SB2 X1 $ AX1 18 $ SB7 1 33 1146 SB3 X1 $ JP SOORT48 33 1147 BRIAN2C VFD 60/IGET+1 BRIAN CALLING SEQUENCE 33 1148 VFD 60/0 33 1149 VFD 60/B3HER 33 1150 VFD 60/0 33 1151 DOT48 SA4 NDOTI $ SX6 B7+B7 $ BX3 X1 ASSUME DOTPRODUCT 33 1152 DTO48 IX4 X4-X6 $ SA5 X4+ISCAL $ IX7 X5-X1 33 1153 NG X4,SOT48 $ NZ X7,DTO48 33 1154 SA5 A5+B7 $ MX6 0 $ ZR X5,SOT48 33 1155 SA6 A5-B7 $ SX1 B2 $ SX7 B1 $ LX1 18 33 1156 NZ X2,AL48 $ PL X5,A48L 33 1157 BX6 X3 $ SA6 A5-B7 $ JP SOT48 33 1158 FOUTB7 ERROR 82 INVALID PARAM IN NUMER COMMAND 33 1159 SOORT49 ZR B0,FOUTB1 33 1160 SOORT50 SB7 1 $ RJ SO50A IFGRE 33 1161 + NG X6,Z1IDT $ ZR X6,Z1IDT 33 1162 SO50D SA1 A2+B7 $ MX0 52 $ BX2 -X0*X1 $ SX6 B7 33 1163 SA3 X2+IPR1-1 $ IX7 X6+X3 $ AX1 8 33 1164 SX0 X1-4 $ SA7 A3 33 1165 ZR X0,Z1IDT $ ZR B0,FOUTB8 33 1166 FOUTB8 ERROR 83 WRONG PARAM IN IFEQU,IFGRE,IFSMA 33 1167 SO50A BSS 1 33 1168 + SA1 B3+B7 $ SA3 IGET+1 $ SA2 A1+B7 33 1169 FX5 X3-X1 $ AX2 18 $ NX6 B0,X5 $ SA4 A3+B7 33 1170 LX2 18 $ NO $ NO $ NO 33 1171 NZ X6,SO50A $ AX4 18 $ LX4 18 33 1172 FX5 X4-X2 $ NX6 B0,X5 $ ZR B0,SO50A 33 1173 SOORT51 SB7 1 $ RJ SO50A IFEQU 33 1174 ZR X6,SO50D $ ZR B0,Z1IDT 33 1175 SOORT52 SB7 1 $ RJ SO50A IFSMA 33 1176 NG X6,SO50D $ ZR B0,Z1IDT 33 1177 SOORT53 SB6 1 $ SA3 B3+B6 $ SB7 B6 EXPAND 33 1178 SX6 B1 $ SX7 B2 $ SA6 B1HER NAME IN X3 33 1179 SA7 B2HER $ SA4 NEPS 33 1180 SB5 X4 $ MX0 52 $ SX7 3021B SPECIAL FUNCTION DF 33 1181 S53A SA1 B7+IEP-1 $ LT B5,B7,S53D SEARCH IEP 33 1182 IX6 X1-X7 $ SB7 B7+B6 $ NZ X6,S53A ANALYZE NAME OF FILE 33 1183 SA2 A1+B6 $ SA4 A2+B6 $ BX5 -X0*X2 $ BX6 -X0*X4 33 1184 SA2 A4+B6 $ SA4 A2+B6 $ LX5 24 $ BX2 -X0*X2 33 1185 LX6 16 $ BX4 -X0*X4 $ BX5 X5+X6 $ LX2 8 33 1186 BX5 X2+X5 $ BX6 X4+X5 $ AX6 2 $ IX1 X6-X3 33 1187 SB7 B7+4 $ NZ X1,S53A A4=ADDRESS 2ND NUMBER 33 1188 SA2 A4+B6 $ SA4 A2+B6 $ BX6 -X6*X6 $ BX2 -X0*X2 ANALYZE INDE 33 1189 MX7 0 $ SA6 A1 $ SA7 A1+B6 $ SA6 A7+B6 33 1190 SA7 A6+B6 $ SA6 A7+B6 $ BX4 -X0*X4 $ LX2 8 33 1191 SX6 1402B $ BX4 X2+X4 $ NO SUPERKEY. NR IN X4 33 1192 SA6 MARKER $ LX3 30 $ SA6 A4 SHIFT NAME 33 1193 SA2 NXEX $ SA1 NXGEH 33 1194 + MX0 30 $ BX6 X0*X1 $ SX2 X2-1 33 1195 + IX7 X6-X3 $ NG X2,FOUTB9 $ BX5 X1 33 1196 + SA1 A1+B6 $ NZ X7,*-2 $ MX0 52 33 1197 BX7 -X0*X5 $ ZR X7,FOUTB9 $ MX0 18 33 1198 SA1 X7+LOC-1 $ SX6 3777B NAMES CARD WRITES KEY IN IT 33 1199 BX7 X0*X1 $ LX6 48 $ ZR X7,FOUTB9 LOC HAS ADRES OF KEY 33 1200 SX2 B6 $ LX7 30 $ BX6 X6+X2 $ BX7 X6+X7 33 1201 SA7 A4-B6 $ SX6 3000B $ SB7 B7+B6 33 1202 + SA1 B7+IEP-1 $ LT B5,B7,FOUTBA SEARCH END DF 33 1203 + IX7 X6-X1 $ SB7 B7+B6 $ NZ X7,*-1 33 1204 SA1 HULP1A $ LX4 18 $ SX2 B7 33 1205 BX6 X3+X4 $ IX1 X1-X6 $ SA3 HULP1C 33 1206 ZR X1,S53E $ SA6 A1 $ SX7 B7 33 1207 SB3 A6 $ SB2 A3 $ SA7 HULP1B 33 1208 SB1 NTAP7 $ SB4 SEARCH0 33 1209 RJ TAKMAN 33 1210 + SA2 HULP1B $ SA3 HULP1C 33 1211 S53E SA1 MBU $ MX4 3 $ LX4 20 33 1212 SB6 1 $ BX7 X3+X4 $ SX6 X1+B6 33 1213 SA7 X1+LOC-1 $ SA6 A1 $ SX0 B6 33 1214 LX1 48 $ BX6 X1+X0 $ SA6 X2+IEP-2 33 1215 S53D SA1 B1HER $ SA2 B2HER 33 1216 SB1 X1 $ SB2 X2 $ ZR B0,Z1IDT 33 1217 FOUTB9 ERROR 84 EXPAND OF UNKNOWN FILE 33 1218 FOUTBA ERROR 85 WRONG DF ARGMS DURING EXPAND 33 1219 SOORT54 SA1 NEPS $ SX6 B1 $ SX7 B2 COMPO,F1,F2,... 33 1220 SB6 1 $ SA6 B1HER 33 1221 SA7 B2HER $ SB7 X1 $ SA1 B3 33 1222 SX6 3637B $ SA6 HULP1A SEARCH ALL, INSERT IN S. 33 1223 SO54A SA1 A1+B6 $ BX0 X1 $ AX1 8 33 1224 SX6 X1-6 $ AX1 16 $ SB5 B0 33 1225 NZ X1,END54 $ ZR X6,SO54B IF NOT FU MUST BE REQUEST 33 1226 MX7 48 $ BX1 -X7*X0 $ SX2 X1-1404B FOR [] 33 1227 BX7 X0 $ SB5 X6 $ SA7 HULP1A 33 1228 EQ B5,B6,SO54A $ AX7 12 $ SA7 A7 33 1229 ZR X2,SO54A $ ZR B0,FOUTBB 33 1230 SO54B SA2 B5+IEP $ IX6 X0-X2 $ SB5 B5+B6 SEARCH FUNCTION 33 1231 GE B5,B7,SO54A $ NZ X6,SO54B F(A,B,..,4400B,..,4400B,..) 33 1232 SB4 B0-B6 $ SB3 B0-4400B $ SA3 A2 A2=ADDRESS FU 33 1233 SX2 3000B $ SA6 IDUM1 B4=NAME COUNT 33 1234 SB2 B0 $ SA0 X0 33 1235 + SA3 A3+B6 $ SB4 B4+B6 $ IX6 X3-X2 $ SX7 X3+B3 33 1236 + ZR X6,SO54MA $ NZ X7,*-1 JP IF 3000B. JP IF NOT 4400B 33 1237 SO54D SX6 A3 $ SX5 A2-B5 $ IX6 X6-X5 $ SA7 A3 X5=IEP-1 33 1238 SA6 B2+IDUM1+1 $ SB1 B6 $ SB2 B2+B6 SET 4400B TO 0 33 1239 SA4 A6-B6 $ LX6 30 $ BX7 X4+X6 $ SA7 A4 33 1240 + SA3 A3+B6 $ SX7 X3+B3 $ IX6 X3-X2 $ SX4 A3 SEARCH 4400B 33 1241 + ZR X7,SO54D $ NZ X6,*-1 OR 3000B 33 1242 IX7 X4-X5 $ SA4 A6 $ SA7 A6+B6 $ LX7 30 B4=NR OF ARG. 33 1243 BX7 X7+X4 $ SA7 A4 $ GE B6,B4,SO54FB JP IF 0 OR 1 ARG. 33 1244 + SA3 A2+B1 $ SX4 X3-5000B $ SB1 B1+B6 SEARCH / 33 1245 + ZR X3,*+1 $ NZ X4,*-1 B2=NR OF * 33 1246 + SB3 B1-2 $ LT B2,B3,SO54P B3=NR OF ARG BEFORE / 33 1247 GE B6,B3,SO54FB $ SB1 B6 $ SB2 B6+B6 33 1248 + SA3 A2+B1 $ MX0 48 $ BX4 -X0*X3 $ SB1 B1+B6 33 1249 + SX6 X4-1426B $ NZ X6,*+2 REMOVE 1426B, 33 1250 + AX3 8 $ BX6 -X0*X3 $ AX6 4 $ SA6 A3 REMOVE 3400 HEAD, 33 1251 + GE B4,B1,*-3 $ SB1 B6 $ SA3 A2+B6 BEFORE ORDERING. 33 1252 SO54F SA4 A2+B2 $ MX7 52 $ IX6 X4-X3 $ BX5 X7*X3 33 1253 SX5 X5-3400B $ NZ X5,SO54FAA ORDER NAMES, SMALLEST FIRST 33 1254 BX5 X7*X4 $ SX5 X5-3400B $ LX7 B0,X3 33 1255 NZ X5,SO54FAA $ BX6 X4 $ LX6 52 33 1256 AX6 52 $ LX7 52 $ AX7 52 $ IX6 X6-X7 33 1257 SO54FAA NG X6,SO54M 33 1258 SO54FA SB2 B2+B6 $ GE B3,B2,SO54F $ SB1 B1+B6 33 1259 SA3 A2+B1 $ SB2 B1+B6 $ LT B1,B3,SO54F CONSTRUCT NAME FROM FI 33 1260 SO54FB SB1 B6 $ MX6 0 $ SB2 60 CHARACTERS 33 1261 SO54G SA3 A2+B1 $ SB1 B1+B6 $ BX5 X3 $ AX3 8 33 1262 + SX7 X3-8 $ LX5 54 33 1263 ZR X3,SO54GE $ LX5 6 $ MX4 48 33 1264 NG X7,SO54GA $ SX7 X5-5000B IGNORE / 33 1265 BX4 -X4*X5 $ SX3 X4-1426B $ MX4 55 33 1266 + NZ X3,*+2 $ MX7 52 $ AX5 12 33 1267 + BX5 -X7*X5 $ LX5 54 $ ZR B0,SO54GE 33 1268 + ZR X7,SO54GF $ AX5 5 $ SX3 B6+B6 IS VNR OR DOTPR. 33 1269 BX5 -X4*X5 $ SX5 X5+1000B 33 1270 SO54GA SA4 X3+MREFH $ LX3 8 $ BX5 X5-X3 GET NAME 33 1271 PL X4,SO54GD $ SX3 X3-3400B 33 1272 NZ X3,SO54N 33 1273 SO54GC SB3 B7 $ SB7 X4 $ SA4 SO54GB 33 1274 BX7 X4 $ SA7 B7 $ JP B7+1 JP TO NUTRA0 33 1275 SO54GB SB7 B3 $ ZR B0,SO54GE 33 1276 SO54GD IX4 X4+X5 $ SA5 X4 33 1277 SO54GE MX0 6 $ BX7 X0*X5 $ LX7 B2,X7 $ BX6 X6+X7 33 1278 SA3 IDUM1 $ SB2 B2-6 33 1279 NZ X3,SO54GF $ LX5 6 $ BX7 X0*X5 CASE OF NO * TYPE ARGS. 33 1280 NZ X7,SO54GE 33 1281 SO54GF GE B4,B1,SO54G $ SB1 B0-B6 $ MX0 55 33 1282 MX2 30 $ BX7 -X2*X6 $ NZ X7,SO54R 33 1283 ZR X6,SO54N $ NO $ NO 33 1284 SA5 HULP1A $ SA3 MREF X5=3401,2,4,10,20B AND COMB. 33 1285 SO54H LX5 59 $ PL X5,SO54HA $ SA4 X3 =I,V,F,S,X 33 1286 AX3 30 $ SB2 X4+B1 $ SA4 X3+B2 $ AX3 18 33 1287 + BX7 X2*X4 $ BX7 X7-X6 $ ZR X7,SO54J SEARCH ARRAY 33 1288 + SA4 A4-B6 $ SB2 B2-B6 $ GE B2,B0,*-1 IF NOT FOUND SET 33 1289 SO54HA SA3 A3+B6 $ AX0 1 $ NZ X0,SO54H ZERO UNLESS REQUESTED. 33 1290 MX0 57 $ BX0 -X0*X5 $ ZR X0,ANNE0R 33 1291 LX5 59 $ PL X5,SO54HC $ NO 33 1292 SA4 NVECT $ SX7 X4+B6 $ SA7 A4 33 1293 SA6 X4+NVGEH $ SX3 X4+1001B INSERT IN V REGISTER. 33 1294 SB2 B0 $ ZR B0,SO54J 33 1295 SO54HC LX5 59 $ PL X5,SO54HB $ NO 33 1296 SA4 NFUN $ SX7 X4+B6 $ SA7 A4 33 1297 SA6 X4+NFGEH $ SX3 X4+3001B 33 1298 SB2 B0 $ ZR B0,SO54J 33 1299 SO54HB SA4 NALGE $ SX7 X4+B6 $ SA7 A4 ELSE IN S-LIST 33 1300 SA6 X4+NAGEH $ SX3 X4+2001B 33 1301 MX6 0 $ SB2 B0 $ SA6 X4+IPR1 33 1302 SO54J SX7 X3+B2 $ MX6 0 $ SA7 A2+B6 $ SB1 B6+B6 33 1303 + EQ B6,B4,*+2 $ SA7 MARKER FU OF N ARGS BECOMES FU OF M ARGS 33 1304 + SA6 A2+B1 $ SB1 B1+B6 $ GE B4,B1,* 33 1305 + SA3 IDUM1 $ AX3 30 $ SB2 X3 33 1306 ZR X3,SO54LA $ SA7 MARKER 33 1307 SO54L SA3 A3+B6 $ MX0 24 $ SA4 B2+IEP-2 33 1308 SX7 X3 $ LX7 36 $ BX7 X7+X4 $ SA7 A4 33 1309 BX6 X0*X4 $ NO $ NZ X6,FOUT7 33 1310 AX3 30 $ SB2 X3 $ NZ B2,SO54L 33 1311 SO54LA SX0 A0 $ ZR B0,SO54B 33 1312 SO54M BX6 X4 $ LX7 B0,X3 $ SA6 A3 $ SA7 A4 33 1313 BX3 X4 $ SA4 B2+IDUM1 $ BX6 X4 33 1314 SA4 B1+IDUM1 $ SA6 A4 $ BX7 X4 33 1315 SA7 B2+IDUM1 $ ZR B0,SO54FA 33 1316 SO54MA SB2 B2+B6 $ SA3 A2+B2 $ MX0 48 $ BX4 -X0*X3 X6=0 HERE 33 1317 + SX5 X4-1426B $ NZ X5,*+2 REMOVE 1426B 33 1318 + MX0 52 $ AX3 12 $ BX7 -X0*X3 $ SA7 A3 SEARCH / 33 1319 + SX5 X4-5000B $ NZ X5,*+2 33 1320 + SX6 B2 $ NE B2,B6,*+1 $ MX6 0 33 1321 + LT B2,B4,SO54MA $ ZR X6,SO54FB 33 1322 SB1 B6+B6 $ SB2 B6+B6 $ SA3 A2+B6 $ SB3 X6 33 1323 + SA4 A2+B2 $ IX7 X4-X3 $ SB2 B2+B6 $ NO ORDER BEFORE / 33 1324 + PL X7,*+2 $ BX6 X4 $ LX7 B0,X3 SMALLEST FIRST. 33 1325 + SA6 A3 $ SA7 A4 $ BX3 X4 $ NO 33 1326 + LT B2,B3,*-3 $ SB1 B1+B6 $ SA3 A3+B6 33 1327 + SB2 B1 $ LT B1,B3,*-4 $ NO 33 1328 ZR B0,SO54FB 33 1329 END54 SA1 B1HER $ SA2 B2HER 33 1330 SB1 X1 $ SB2 X2 $ ZR B0,Z1IDT 33 1331 FOUTBB ERROR 86 COMPO TRIED ON NON-FUNCTION 33 1332 FOUT7 ERROR 69 INCOMPATIBLE OPERAT WITH COMPO 33 1333 SO54P ERROR 87 WRONG NR OF ARGMS FOR COMPO 33 1334 SO54N ERROR 71 COMPO ACTS ON FU WITH ILLEGAL ARGMS 33 1335 SO54R ERROR 89 COMPOSED NAME GT 5 CHARS 33 1336 END 34 0 IDENT ANNEKE 34 1 ENTRY ANNEKE 34 2 MACRO *EXPAND 34 3 MACRO *EXPRNR 34 4 MACRO *EXEC 34 5 EXT FOUT 34 6 DATA 01161605130500000000B 34 7 ANNEKE BSS 1 34 8 + SA1 MBU $ SB3 1 B3=1,A6=IT-COUNT,B7=SHIFT 34 9 SA2 MBE $ SA4 IGET+1 IF B7 NEG, X6 IS FULL 34 10 SA3 NALGE $ SA5 A4+B3 $ BX7 X4-X5 START TERM IN IT 34 11 LX6 B0,X2 $ SB6 12 $ AX7 59 34 12 BX7 X5-X7 $ NX4 B0,X4 $ DX5 X4+X7 $ FX4 X4+X7 34 13 UX5 B0,X5 $ SB0 B0 $ MX0 18 $ AX5 7 34 14 SA6 X1+LOC-1 $ BX7 -X0*X5 $ SA7 X2 B6=12,B4=36,X4=3400B 34 15 SB4 B6+B6 $ BX6 X4 $ SB2 X3 $ MX7 0 X2=2000B-1, X7=0 34 16 SA6 A7+B3 $ SB1 B3 $ SX4 3400B B2=NALGE. 34 17 SX2 1777B $ MX5 0 $ BX6 -X6*X6 INITIALIZE X5=0, B7=72 34 18 SA1 IPR1 $ SB4 B4+B6 $ SB7 B4+B4 34 19 SYMBX1 SB7 B7-B6 $ LX5 B7,X5 $ BX6 X5+X6 $ SB7 B7-B6 34 20 + LT B2,B1,DOTPX1 $ BX0 X2*X1 $ SA1 A1+B3 INSERT ALGEBRA IN IT 34 21 AN11 SB1 B1+B3 $ BX5 X0+X4 $ ZR X0,*-1 STACK REMAINS FOR 34 22 SA7 A1-B3 $ SX0 B1+X2 $ NG B7,AN57 FIVE ALGEBRA 34 23 LX0 B7,X0 $ BX6 X0+X6 $ LT B0,B7,SYMBX1 EXP IN X5, NAME X0 34 24 SA6 A6+B3 $ SB7 B4 $ LX5 48 $ BX6 X5 34 25 BX0 X2*X1 $ SA1 A1+B3 $ GE B2,B1,AN11 34 26 DOTPX1 SA5 NDOTI $ SA1 ISCAL B1=COUNT, B2=2 34 27 SA3 A1+B3 $ SB1 X5 $ SB2 B3+B3 $ MX5 0 34 28 SB7 B7+24 $ SA7 A5 $ MX2 52 34 29 AN13 SB7 B7-B6 $ LX5 B7,X5 $ BX6 X5+X6 $ SB7 B7-B6 34 30 AN15 GE B0,B1,VECTX1 $ BX7 -X2*X3 $ LX0 B0,X1 MX2=52. DOTPR IN IT 34 31 SA1 A3+B3 $ SA3 A3+B2 $ BX5 X7+X4 $ SB1 B1-B2 X4=3400B 34 32 ZR X7,AN15 $ ZR X0,AN15 34 33 NG B7,AN17 $ LX0 B7,X0 $ BX6 X0+X6 34 34 LT B0,B7,AN13 $ SA6 A6+B3 $ SX7 B4+B6 B6=12, B4=36 34 35 SB7 X7+B6 $ MX6 0 $ ZR B0,AN13 SB7=60 34 36 AN17 SA6 A6+B3 $ SB7 B4+B6 $ LX6 B7,X0 $ LX7 B4,X5 34 37 NZ B1,AN13 $ SB7 B4-B6 $ BX6 X7+X6 34 38 VECTX1 SA1 NQX $ NO $ SB4 X4 EXTRACTION IPR REGISTER 34 39 SB1 400B $ SB2 X1+B1 $ SX4 B6+B6 B1=COUNT, B2=NQX(+400B) 34 40 SA1 IPR-1 $ IX4 X4+X4 34 41 AN19 SB7 B7+24 $ MX7 0 $ BX5 -X5*X5 X4=48 , B4=3400B 34 42 AN21 SB7 B7-B6 $ LX5 B7,X5 $ BX6 X5+X6 $ SB7 B7-B6 34 43 AN23 SA1 A1+B3 $ GE B1,B2,FUNCX1 $ SB5 X1 JP IF ALL DONE 34 44 SB1 B1+B3 $ SA7 A1 $ GE B0,B5,AN23 SKIP NEG OR ZERO 34 45 GE B2,B5,AN61 $ GE B5,B4,AN63 INDEX .NUMBER 34 46 SX5 B1 $ NG B7,AN59 $ LX1 B7,X1 VECTOR. X1=NAME, X5 INDEX 34 47 BX6 X1+X6 $ LT B0,B7,AN21 $ SA6 A6+B3 34 48 SB7 X4+B6 $ MX6 0 $ LT B1,B2,AN21 JP IF NOT ALL DONE 34 49 SB7 X4 $ LX6 B7,X5 $ SB7 B7-B6 34 50 FUNCX1 SA1 NEPS $ SA3 MBU 34 51 SA4 MNEPS $ IX0 X4-X1 $ BX7 X1 34 52 + MX4 24 $ PL X0,*+1 $ SA7 A4 34 53 + MX7 59 $ SB1 IEP-1 $ SB2 X1+B1 IEP EXTRACTION. PLACE END 34 54 SA7 B2+B3 $ MX0 48 $ BX7 -X7*X7 $ SA7 A1 STOP. B2=NEPS 34 55 SB5 X3+B3 $ SA7 MARKER $ SX5 B0-B6 (+IEP-1). B3=1, B4 REMEM 34 56 SA7 NQA $ SA7 NQB BERS FIRST JP, B5=MBU COUNT, B6 NON 34 57 AGAIN1 SA1 B1 $ SB4 B0 $ SB6 B0 ZERO IF SKIPPING OCCURRED, B7=SHIFT 34 58 AN27 SA1 A1+B3 $ BX3 X4*X1 $ ZR X1,AN27 IF B7=B3 NUMERICAL 34 59 MX7 0 $ NZ X3,NONZ12 $ BX2 -X0*X1 MUST STILL BE MADE. . 34 60 SA7 A1 $ EQ B7,B3,NUMER1 A1,X1=IEP, X4=M24, X5=-12, A6,X6= 34 61 AN29 AX1 12 $ LX3 B7,X2 $ NG B7,AN39 RESULT, X7=0. X3=0 IF B7NEG 34 62 AN31 IX2 X7-X2 $ BX6 X3+X6 $ AX2 59 $ BX3 X2*X5 X3=0 IF X2=0. 34 63 SB7 X3+B7 $ BX2 -X0*X1 $ NZ X1,AN37 OTHERWISE X3=-12. 34 64 + SA1 A1+B3 $ BX3 X4*X1 $ ZR X1,* X3=BYTES 1,2 34 65 BX2 -X0*X1 $ NZ X3,NONZ12 $ SA7 A1 34 66 AN37 LX3 B7,X2 $ AX1 12 $ PL B7,AN31 34 67 AN39 SA6 A6+B3 $ SB7 48 $ LX6 B7,X2 HERE X3=0. STORE IN IT. 34 68 ZR B0,AN31 34 69 NONZ12 AX3 36 $ BX2 -X0*X3 $ NG X1,IEPEND1 X2=SECOND BYTE. 34 70 AX3 12 $ SA7 A1 $ ZR X3,JUMP2 X3=FIRST BYTE. 34 71 BX7 -X4*X1 $ EQ B7,B3,EXPR1 $ SA6 A6+B3 TERMINATE TERM. 34 72 PL B7,EXPR1 $ MX6 0 $ SA6 A6+B3 X7=BYTE 3,4,5. 34 73 EXPR1 SB1 X3-3777B $ SA3 X3+LOC-1 3777B IMPLIES IT LOC IN 34 74 + AX7 12 $ ZR B1,*+1 $ BX7 X3 BYTES 3,4. ELSE IN LOC 34 75 + MX3 52 $ BX3 -X3*X1 $ SX1 B3 $ IX3 X3-X1 X3=MULTIPLICITY. 34 76 PL X3,AN43 $ SX7 ITIN EXPR**0=1=EXPR NR 1 34 77 AN43 SA7 B5+LOC-1 $ IX3 X3-X1 $ SB5 B5+B3 34 78 PL X3,AN43 $ MX1 0 $ SB7 B3 34 79 JUMP2 SB1 A1 $ ZR X2,AN27 $ MX7 0 34 80 SX3 X2-7776B $ PL X3,SPINX1 7777B AND 7776B ARE SPECIAL. 34 81 + NZ B4,*+1 $ SB4 A1 REMEMBER FIRST JP IN B4 34 82 + SB1 X2+IEP-2 $ LT B2,B1,AN51 GO ON AS GIVEN IN X2. 34 83 AN47 BX3 -X4*X1 $ SA1 B1 $ ZR X3,AN27 NOW X3=BYTES 3,4,5. 34 84 BX2 -X0*X3 $ LX1 B0,X3 $ NE B7,B3,AN29 34 85 NUMER1 SA3 =1. $ SB7 48 START NEW TERM WITH NUMERICAL 34 86 SX7 A6+B3 $ MX6 0 $ SA7 B5+LOC-1 34 87 SA6 A6+B3 $ BX6 X3 $ SB5 B5+B3 $ SA6 A6+B3 34 88 MX7 0 $ BX6 -X6*X6 $ ZR B0,AN29 34 89 SPINX1 ZR X3,SPINX2 $ ZR B4,AN47 JP IF 7776B. 34 90 SB1 B4 $ SB4 B0 $ ZR B0,AN47 34 91 SPINX2 MX7 12 $ SA3 A1+B3 $ SB6 B3 $ LX7 48 SKIP TILL NEXT. 34 92 + BX2 X7*X3 $ SA3 A3+B3 $ ZR X2,* NON-ZERO SECOND BYTE. 34 93 SB1 A3-B3 $ MX7 0 $ GE B2,B1,AN47 SET B6 TO NON-ZERO. 34 94 AN51 SB1 B2 $ ZR B0,AN47 34 95 IEPEND1 SB1 IEP-1 $ NZ B6,AGAIN1 GO BACK IF SKIPPED OR JP. 34 96 SB1 B4 $ NZ B4,AGAIN1 $ SX7 B3 IF X1 NOT -1, FORCE 34 97 + IX5 X1+X7 $ EQ B7,B3,*+2 $ SA6 A6+B3 ERROR EXIT. 34 98 + PL B7,*+1 $ MX6 0 $ SA6 A6+B3 TERMINATE EVT TERM. 34 99 + SA4 MBU $ SA1 MMBU 34 100 SX3 A6+B3 $ SX7 B5 $ SX0 IT-1 34 101 SA7 A4 $ IX6 X7-X4 $ SA2 =1. 34 102 + IX4 X1-X7 $ PL X4,*+1 $ SA7 A1 34 103 + SA4 NANU $ SA1 LEVEL 34 104 IX4 X4-X7 $ IX7 X3-X0 $ SA6 X1+NAANT 34 105 SA7 MBE $ NZ X5,FOA2 ERROR EXIT ON X1 NOT -1 34 106 BX6 X2 $ MX7 0 $ SA6 IGET+1 CHECK LOC DIM 34 107 SA7 IGET+2 $ PL X4,ANNEKE 34 108 ZR B0,FOA1 34 109 AN57 SA6 A6+B3 $ SB7 B4+B6 $ LX6 B7,X0 $ LX3 B4,X5 IT INSERTION 34 110 GE B2,B1,SYMBX1 $ BX6 X3+X6 $ SB7 B4-B6 34 111 JP DOTPX1 BACK TO ALGEBRA LOOP 34 112 AN59 SA6 A6+B3 $ SB7 48 $ LX6 B7,X1 IT INSERTION FOR INDEX 34 113 LT B1,B2,AN21 $ SB7 24 LOOP 34 114 LX5 36 $ BX6 X5+X6 $ JP FUNCX1 34 115 AN61 SX5 X1-400B $ NG X5,FOA2 34 116 SA7 X1+IPR-401B WATCH OUT FOR DIRT IN IPR 34 117 AN63 SX5 B1 $ SA3 =30000000300100000000B $ LX1 B6,X1 DELTA 34 118 IX5 X5+X1 $ BX3 X5+X3 $ MX0 48 $ LX3 36 CONSTRUCTION 34 119 AN65 BX5 -X0*X3 $ LX3 12 $ ZR X5,AN19 34 120 NG B7,AN67 $ LX5 B7,X5 $ BX6 X5+X6 34 121 SB7 B7-B6 $ ZR B0,AN65 34 122 AN67 SA6 A6+B3 $ SB7 X4 $ LX6 B7,X5 $ SB7 B7-B6 X4=48 34 123 ZR B0,AN65 34 124 FOA1 ERROR 91 TOO MANY EXPR 34 125 FOA2 ERROR 92 UNKNOWN ERROR 34 126 END 35 0 IDENT BOEKH 35 1 ENTRY BOEK1,BOEK2,INDCR,EPSRED1 35 2 MACRO *EXPAND 35 3 MACRO *EXPRNR 35 4 MACRO *EXEC 35 5 EXT SCHUIF,STATS,FOUT 35 6 DATA 02170513340000000000B 35 7 BOEK1 SA6 RETUR2 $ SB6 1 35 8 SA3 I1001 $ SA5 NEPS 35 9 SA2 NQA $ ZR X3,CR1A 35 10 SA3 X3+IPR-1 $ NZ X3,FOUT1 35 11 CR1A SB7 X5 $ MX7 0 $ SA0 IEP-1 35 12 ZR X2,MOVE1 $ SB5 B7 $ SB1 B0 35 13 CR1 SB1 B1+B6 $ GE B1,B5,MOVE1 $ SA1 A0+B1 EPF IS SET AT 35 14 SX2 X1-3002B $ NZ X2,CR1 END OF IEP 35 15 CR2 SA7 A1 $ BX6 X1 $ SB7 B7+B6 $ SA6 A0+B7 35 16 SX2 X1-3000B $ ZR X2,CR1 35 17 SA1 A1+B6 $ SB1 B1+B6 $ ZR B0,CR2 35 18 MOVE1 SA5 NQX $ SA1 IPR-1 MOVE IPR CONTENT TO IEP 35 19 SX4 B6 $ BX7 -X7*X7 $ SB3 IPR-401B 35 20 SA3 NCRIN $ BX6 X5 $ IX3 X3-X5 35 21 PL X3,MO1 $ SA6 A3 35 22 MO1 SA1 A1+B6 $ IX5 X5-X4 $ NG X5,CR3 MAY CONTAIN 0,-,400,1000, 35 23 SA7 A1 $ IX2 X1-X4 $ NG X2,MO1 3400 35 24 AX2 9 $ NZ X2,MO3 $ SA7 X1+B3 JP IF VECTOR,NR 35 25 MO2 SX6 3000B $ SB7 B7+4 D(MU,X) 35 26 SA6 A0+B7 $ BX7 X1 $ SA7 A6-B6 $ IX6 X6+X4 35 27 SX7 A1-B3 $ SA7 A7-B6 $ SA6 A7-B6 $ MX7 0 35 28 ZR B0,MO1 35 29 MO3 AX2 1 $ NZ X2,MO2 $ SX6 A1-B3 35 30 SB7 B7+2 $ SA6 A0+B7 $ BX6 X1 P(MU) 35 31 SA6 A6-B6 $ ZR B0,MO1 35 32 CR3 SB1 B6 $ MX0 52 $ BX7 -X7*X7 35 33 CR4 SA1 A0+B1 $ LT B7,B1,CR6 $ SB1 B1+B6 35 34 BX2 X0*X1 $ SX3 X2-400B CREATED INDICES ARE MOVED UPWARDS 35 35 ZR X3,CR5 $ LX1 48 $ BX2 X0*X1 35 36 SX3 X2-400B $ NZ X3,CR4 DIMENSION IS ADDED. 35 37 CR5 SA3 X1+NVIGEH-401B $ MX2 54 $ BX4 -X2*X3 ALLOW FOR 140* 35 38 LX3 43 $ LX1 51 $ PL X3,CR4 IN FRONT 35 39 BX7 X1+X4 $ SA7 A1 $ ZR B0,CR4 35 40 CR6 SB1 B6 $ SB5 B0 $ ZR X7,CR12 JP IF NO CR INDICES PRESENT 35 41 CR7 SA1 A0+B1 $ LT B7,B1,CR12 $ SB1 B1+B6 35 42 PL X1,CR7 $ SX0 200077B 35 43 SX2 X1+200000B $ SB3 B0 $ BX3 X1 35 44 CR8 SA4 B3+NVIGEH $ SB3 B3+B6 $ BX6 X0*X4 35 45 IX5 X6-X2 $ NZ X5,CR8 $ MX5 1 SEE IF ALREADY USED. 35 46 LX5 7 $ BX6 X5*X4 $ NZ X6,CR8 (BIT 54 NON-ZERO) 35 47 BX6 X4+X5 $ SB2 B1 $ MX5 48 $ SA6 A4 ADD BIT 54 35 48 GE B5,B3,CR9 $ SB5 B3 35 49 CR9 SX7 B3+400B $ AX1 39 $ BX1 -X5*X1 35 50 + ZR X1,*+1 $ LX7 12 $ BX7 X1+X7 35 51 + SA7 A1 $ LX5 39 $ BX3 X5*X3 35 52 + SA1 A1+B6 $ SB2 B2+B6 $ BX6 X5*X1 $ IX7 X6-X3 35 53 + LT B7,B2,CR7 $ NZ X7,*-1 35 54 MX5 48 $ ZR B0,CR9 35 55 CR12 SB1 B5+B6 $ MX0 1 $ NO $ LX0 7 35 56 + SA1 B1+NVIGEH $ BX6 -X0*X1 $ SB1 B1-B6 REMOVE USE BIT 54 35 57 + SA6 A1 $ GE B1,B0,*-1 35 58 SA1 CRIND $ SX7 B5 $ SX6 B7 35 59 + IX3 X1-X7 $ PL X3,*+1 $ SA7 A1 35 60 + SA6 NEPS $ SA1 NQA 35 61 ZR X1,CR14 $ BX6 -X6 $ NO 35 62 SA6 EPSM1 $ RJ EPSRED1 35 63 CR14 SA1 IGET+1 $ SA2 RETUR2 35 64 SA0 X2 $ ZR X1,BOEK2 35 65 SA2 NTEM $ SX6 1 35 66 MX4 47 $ IX7 X2+X6 $ BX5 -X4*X7 $ SA7 A2 35 67 + NZ X5,*+1 $ RJ STATS PRINT STAT EVERY 2**13 TIMES 35 68 + SX6 1 $ SA1 IGET+1 35 69 SA5 IPR1 $ SB6 X6 $ MX0 57 TREATMENT OF IMAGINARY 35 70 BX7 -X7*X7 $ LX5 1 $ BX2 -X0*X5 $ SA7 A5 35 71 SB7 48 $ ZR X2,A3IM7 35 72 SX2 X2+B6 $ AX3 B6,X2 $ BX7 X6*X3 $ LX2 57 35 73 SA7 A5 $ AX2 59 $ BX6 X1-X2 $ SA6 A1 35 74 A3IM7 SA5 NASFF $ SA0 NS-1 B6=NS COUNT, INITIALLY 1 35 75 SA1 NEPS $ SB2 12 B7=SHIFT COUNT, INITIALLY 24 35 76 SB1 IEP $ SB7 B2+B2 $ SB4 X1+B1 35 77 SB5 B7+B2 $ LX6 B5,X5 $ SB2 B0-B2 $ MX0 48 35 78 SB3 B6 $ SB5 B5+B7 $ ZR X1,FL1ES B5=60, B2=-12 35 79 FL7EQ SA5 B1 $ GE B1,B4,FL1ES $ SB1 B1+B3 MX0 48 35 80 FL8EQ BX1 -X0*X5 $ ZR X5,FL7EQ $ LX7 B7,X1 35 81 SB7 B7+B2 $ BX6 X7+X6 $ AX5 12 $ LX1 48 35 82 GE B7,B2,FL8EQ $ SA6 A0+B6 $ SB7 B7+B5 35 83 SB6 B6+B3 $ BX6 X1 $ ZR B0,FL8EQ 35 84 FL1ES SA1 NBR $ SB1 B3 $ SB2 X1 35 85 ZR X1,FL2ES $ SA5 B1+MBR-1 35 86 FL2BU MX0 48 $ SB1 B1+1 $ BX5 -X0*X5 35 87 MX0 51 $ SB3 X5-3000B 35 88 SB4 X5-2000B $ PL B3,BR1DP JP IF DOT PROD. OR INDEX 35 89 NG B4,BR1DP $ SA3 B4+IPR1-1 35 90 MX7 0 $ MX0 52 ALGEBRAIC QUANTITIES OUTSIDE 35 91 ZR X3,FL2BR $ BX3 -X0*X3 $ NO 35 92 + PL B7,X3Q1 $ SB7 48 35 93 + SA6 A0+B6 $ SB6 B6+1 $ MX6 0 35 94 X3Q1 LX5 B7,X5 $ BX6 X5+X6 $ SB7 B7-12 35 95 SX5 X3+3400B $ SA7 A3 35 96 + PL B7,X2Q1 $ SB7 48 35 97 + SA6 A0+B6 $ SB6 B6+1 $ MX6 0 35 98 X2Q1 LX5 B7,X5 $ BX6 X5+X6 $ SB7 B7-12 35 99 FL2BR SA5 B1+MBR-1 $ GE B2,B1,FL2BU 35 100 FL2ES SA5 NDOTI $ SB3 1 35 101 + ZR X6,*+1 $ SA6 A0+B6 $ SB6 B6+B3 CONSTRUCT CHECKWORD 35 102 + SA2 A0+B3 $ SX7 B6-B3 $ SX0 40004B 35 103 SA7 NP $ LX0 45 $ BX6 X0+X2 35 104 LX7 48 $ BX6 X7+X6 $ NO $ SA6 A2 B1 B2 B3 B4 B5 B6 B7 35 105 MX7 60 $ ZR X5,DOT8P $ SB6 B0 ISCAL * 1 2(NDOTI)0 B1+B5-1 35 106 MX6 0 $ SB1 ISCAL $ SB4 B3+B3 X5=3400B 35 107 MX0 3 $ SA1 X5+B1 $ SB5 X5 $ SA2 A1+B3 DOTPROD.ARE ORDERED, 0 35 108 LX0 11 $ SB7 A1-B3 $ SX5 3400B EXP REMOVED, NON ZERO EXP 35 109 UIT2 SA6 A1-B6 $ BX0 -X0*X7 $ IX7 X0+X5 $ SA7 A2-B6 ARE PROVIDED 35 110 HX1A GE B1,B7,UIT3 $ SA2 B1+B3 $ SA1 B1 WITH THE HEAD 3400 35 111 LX7 B0,X2 $ BX6 X1 $ SB1 B1+B4 $ SB6 B6+B4 B6 COUNTS DOTPR. 35 112 ZR X2,HX1A $ SB2 B1 $ SB6 B6-B4 WITH ZERO EXPONENTS. 35 113 HX3A SA3 B2 $ MX0 52 $ GE B2,B7,UIT2 SMALLEST DOTPR. FIRST 35 114 IX0 X3-X6 $ SB2 B2+B4 $ SA4 A3+B3 35 115 PL X0,HX3A $ ZR X4,HX3A 35 116 SA6 A3 $ SA7 A4 $ BX6 X3 EXCHANGE 35 117 LX7 B0,X4 $ ZR B0,HX3A 35 118 UIT3 SX6 B5-B6 $ SA6 NDOTI NDOTI=NDOTI-B6 35 119 DOT8P SB6 60 $ SB5 1 B1 B2 B3 B4 B5 B6 B7 35 120 SA2 NALGE $ SB1 2000B COUNT NAL * 12 1 60 * 35 121 SA1 IPR1 $ MX0 52 $ SB2 X2+B1 A1 X0 X2 X4 35 122 SB4 12 $ SX2 NSA-2 IPR1 M52 NSA 3400B 35 123 SX4 3400B $ MX6 0 $ BX7 -X7*X7 X6 X7 35 124 SX5 B1+B5 $ SB1 B1+B5 $ NZ X1,H7ALI RES 0 35 125 H9ALZ NO $ SA1 A1+B5 $ GE B1,B2,X9ADP 35 126 SX5 B1+B5 $ SB1 B1+B5 $ ZR X1,H9ALZ 35 127 H7ALI BX1 -X0*X1 $ LX5 12 $ SB7 B0 $ SB3 B6-B4 35 128 SB3 B3-B4 $ BX5 X1+X5 $ SA7 B2+IPR1-2000B 35 129 H7BLI SX1 B1 $ LT B0,B7,Z3ALI $ SX2 X2+B5 35 130 NG B7,Z4ALI $ BX6 X1+X6 $ MX1 0 FIRST INSERTION, SA6,CIS 35 131 Z4ALI SA6 X2 $ SB7 B7+B3 $ MX6 0 $ SB3 B6 DUMMY AND NEEDED TO 35 132 Z3ALI LX1 B7,X1 $ IX5 X5+X4 $ SB7 B7-B4 $ BX6 X1+X6 SET UP INSTRUC- 35 133 SA7 A1 $ LX5 B7,X5 $ SB7 B7-B4 $ BX6 X5+X6 TION STACK 35 134 H4ALI SA1 A1+B5 $ NO $ SB1 B1+B5 $ BX5 -X0*X1 35 135 NZ X1,H7BLI $ LT B1,B2,H4ALI 35 136 H9ALI SA3 NDOTI $ SB1 B5 $ SB4 B0-B4 DOTPR. EXTRACTION 35 137 ZR X3,X1ADP $ SB2 X3 $ SB6 B6+B4 NOW B6=48 35 138 X3ADP SA1 B1+ISCAL-1 $ LT B2,B1,X1ADP 35 139 SB1 B1+B5 $ LX7 B7,X1 $ SB7 B7+B4 $ BX6 X7+X6 35 140 GE B7,B4,X3ADP $ SA6 X2+B5 $ SB7 B6+B4 MAKE B7=36 35 141 SX2 X2+B5 $ LX6 B6,X1 $ GE B2,B1,X3ADP 35 142 X1ADP ZR X6,X2ADP $ SA6 X2+B5 $ SX2 X2+B5 35 143 X2ADP MX0 12 $ SX3 NSA-1 $ IX7 X2-X3 35 144 SA2 X3+B5 $ NZ X7,X2AD3 $ SX7 X7+B5 35 145 X2AD3 BX1 -X0*X2 $ SX2 X7+4000B $ LX2 48 35 146 SA4 NP $ BX5 X7 $ SX6 B0 MAX DIM NS, NSA = 64 35 147 AX5 6 $ SA7 NA $ AX4 6 35 148 IX5 X4+X5 $ NZ X5,FOUT2 $ BX7 X1+X2 35 149 SA6 NDOTI $ SA7 NSA 35 150 SA6 NEPS $ SA6 NQA 35 151 NO $ SA6 NQB 35 152 SA6 MARKER $ SA1 IGET+1 35 153 SA2 IGET+2 $ BX6 X1-X2 $ NX1 B0,X1 35 154 AX6 59 $ BX3 X2-X6 $ FX6 X1+X3 $ DX7 X1+X3 35 155 SA6 A1 $ SA7 A1+B5 $ RJ SCHUIF 35 156 SA1 RETUR2 $ SA2 =1. 35 157 MX7 0 $ SB7 X1 $ SA7 IGET+2 35 158 BX6 X2 $ SA6 IGET+1 35 159 JP B7+0 35 160 X9ADP MX6 0 $ SX2 X2+B5 $ SB7 36 NO ALGEBRA. PREPARE FOR 35 161 SA6 NSA $ JP H9ALI DOTPRODUCT EXTRACTION. 35 162 BR1DP SA1 NDOTI $ SB3 1 $ MX7 0 X5 CONTAINS DOT PR. TO BE TAKEN 35 163 SB4 X1 $ ZR X1,FL2BR OUTSIDE BRACKETS 35 164 SA4 B3+ISCAL-1 $ SA3 B3+ISCAL 35 165 BR3DP SB3 B3+2 $ IX4 X4-X5 35 166 ZR X3,BR2DP $ NZ X4,BR2DP $ NO JP IF EXPONENT=0 35 167 + PL B7,X1Q1 $ SB7 48 A 35 168 + SA6 A0+B6 $ SB6 B6+1 $ MX6 0 35 169 X1Q1 LX5 B7,X5 $ BX6 X5+X6 $ SB7 B7-12 35 170 MX0 52 $ SX5 3400B 35 171 BX0 -X0*X3 $ SA7 A4 $ IX5 X5+X0 35 172 PL B7,X0Q1 $ SB7 48 ARRAY ADDRESS IN A0 35 173 + SA6 A0+B6 $ SB6 B6+1 $ MX6 0 PLACE TO BE FILLED IN B6 35 174 X0Q1 LX5 B7,X5 $ BX6 X5+X6 $ SB7 B7-12 35 175 SA7 A3 $ SA5 B1+MBR-1 35 176 GE B2,B1,FL2BU $ JP FL2ES 35 177 BR2DP SA4 B3+ISCAL-1 $ SA3 B3+ISCAL $ GE B4,B3,BR3DP 35 178 SA5 B1+MBR-1 $ GE B2,B1,FL2BU $ JP FL2ES 35 179 * 35 180 DATA 02170513350000000000B 35 181 BOEK2 SA1 NQX $ SA2 NALGE INITIALIZE INSERT REGISTERS 35 182 MX6 0 $ SX3 -2 $ BX7 -X7*X7 35 183 SA6 NEPS $ SA7 NDOTI 35 184 SA6 NQA $ SA7 NQB 35 185 IX1 X1+X3 $ SA7 IPR $ IX2 X2+X3 35 186 SA6 IPR+1 $ SB7 2 35 187 A2NIE IX1 X1+X3 $ SA7 A7+B7 $ SA6 A6+B7 35 188 PL X1,A2NIE $ SA6 MARKER 35 189 SA7 IPR1+1 $ SA6 IPR1 35 190 A3NIE IX2 X2+X3 $ SA6 A6+B7 $ SA7 A7+B7 35 191 PL X2,A3NIE $ SB6 1 35 192 SA2 =1. $ SB7 A0 $ BX6 X2 35 193 SA7 IGET+2 $ SA6 IGET+1 35 194 JP B7 35 195 * 35 196 *EPSRED1 ARRANGES ARGUMENTS OF EPF, SMALLEST FIRST. 35 197 * IF EPSM1 POSITIVE ANY TWO EPF WITH EQUAL NR OF ARGUMENTS ARE REDUCED. 35 198 * ASSUMPTION - NR OF ARGUMENTS = RANGE INDICES. 35 199 * A0 = IEP-1, B6 = 1, B7 = NEPS, X0 = -3002B 35 200 EPDAT1 BSS 2 35 201 EPSRED1 BSS 1 35 202 SA1 NEPS $ SB6 1 35 203 SA0 IEP-1 $ MX5 0 $ SB7 X1 X5 = SIGN 35 204 SX0 B0-3002B $ SB5 X1 $ SB1 B0 35 205 EP1 SA2 A0+B5 $ GE B0,B5,EP6 $ IX7 X2+X0 SEARCH EPF 35 206 SB5 B5-B6 $ NZ X7,EP1 $ SA1 A2 35 207 SX2 3000B $ SB1 A2+B6 $ MX3 48 B1 = LOC FIRST ARGUMENT 35 208 EP2 SA1 A1+B6 $ BX7 X3*X1 $ ZR X7,EP3 SEARCH END EPF 35 209 BX1 -X3*X1 $ SX6 X1-1407B $ BX5 -X5 REMOVE - SIGN 35 210 NZ X6,EP5A $ AX7 12 $ SA7 A1 B2 = END EPF (3000B. 35 211 EP3 IX7 X1-X2 $ NZ X7,EP2 $ SX6 A1-B1 SET NR OF ARG ABOVE EPF 35 212 LX6 30 $ BX7 -X0+X6 $ SB2 A1 $ SA7 A2 35 213 EP4 SA3 B1 $ SB1 B1+B6 $ SB3 A3+B6 COMPARE ARGUMENTS 35 214 GE B1,B2,EP1 $ BX7 X3 35 215 EP5 SA2 B3 $ GE B3,B2,EP4 $ SB3 B3+B6 35 216 IX4 X7-X2 $ NG X4,EP5 $ SA7 A2 35 217 LX6 B0,X2 $ BX5 -X5 $ SA6 A3 $ BX7 X2 EXCHANGE, 35 218 NZ X4,EP5 $ MX6 0 0 IF EQUAL ARGUMENTS. 35 219 SA6 IGET+1 $ ZR B0,EPEX1 35 220 EP5A IX7 X1-X2 $ BX5 -X5 $ ZR X7,EP3 35 221 ZR B0,EP1 ABANDON EPF IF COMPOSITE ARGS. 35 222 EP6 ZR B1,EPSRED1 $ SA4 IGET+1 35 223 SA2 A4+B6 $ AX5 59 $ SA1 EPSM1 35 224 BX6 X4-X5 $ BX7 X2-X5 $ SA6 A4 $ SA7 A2 35 225 SB1 B6 $ PL X1,EP8 35 226 EP7 SA2 A0+B1 $ SB1 B1+B6 $ LT B7,B1,EPEX1 REMOVE NR ABOVE EPF 35 227 SX6 X2-3002B $ NZ X6,EP7 35 228 SX6 X2 $ SA6 A2 $ ZR B0,EP7 35 229 EPEX1 SX6 B7 $ MX7 0 $ SA6 NEPS EXIT 35 230 SA7 EPSM1 $ ZR B0,EPSRED1 35 231 EP8 SA2 A0+B1 $ SB1 B1+B6 $ LT B7,B1,EPEX1 SEARCH EPF 35 232 SX6 X2 $ IX4 X6+X0 $ NZ X4,EP8 35 233 SX7 B1 $ BX5 X2 $ SA6 A2 $ AX5 30 35 234 SA7 EPDAT1 $ SB2 X5+B1 $ NO 35 235 + SA3 A0+B2 $ SB2 B2+B6 $ LT B7,B2,EP8 SEARCH EPF 35 236 + IX6 X3-X2 $ NZ X6,*-1 $ SX3 B0 WITH SAME NR OF ARGUMENTS. 35 237 SB3 B1 $ SA4 =1. $ SB5 B7+B6 X6=0, X4=PAIR FACTOR. 35 238 EP10 SA1 A0+B3 $ SX7 X1-777B $ SB3 B3+B6 SEARCH FOR INDEX PAIRS 35 239 SX5 B1+B3 $ PL X7,EP12 $ SB4 X3+B2 35 240 + SA2 A0+B4 $ IX7 X1-X2 $ NG X7,EP10 X3=NR OF PAIRS 35 241 + SB4 B4+B6 $ NZ X7,*-1 $ SA6 A1 HERE ALSO X7=0 35 242 SA7 A2 $ SX3 X3+B6 $ PX7 B0,X3 $ SX1 B2+B4 35 243 NX2 B0,X7 $ IX1 X1+X5 $ FX7 X2*X4 $ LX1 59 35 244 AX1 59 $ BX4 X7-X1 $ ZR B0,EP10 35 245 EP12 SX7 1401B $ MX6 0 $ SA7 A0+B5 MAKE KEY 35 246 SB4 B2-B6 $ SA6 A0+B4 $ SB4 B1-B6 $ SA6 A0+B4 35 247 EP13 SA1 A0+B1 $ SB1 B1+B6 $ SX3 X1-3000B MOVE ARGU, SET OLD 35 248 ZR X1,EP13 $ SB5 B5+B6 $ SA6 A1 LOCATION ZERO 35 249 BX7 X1 $ SA7 A0+B5 $ NZ X3,EP13 35 250 SB5 B5-B6 $ SB1 B2 $ SB7 B0-B7 $ SB2 B7+B6 35 251 NG B7,EP13 $ SA2 IGET+1 MULTIPLY WITH PAIR FACTOR 35 252 SA3 A2+B6 $ BX5 X2-X3 $ AX5 59 $ BX3 X3-X5 35 253 FX6 X4*X3 $ FX7 X4*X2 $ DX5 X4*X2 $ FX5 X6+X5 35 254 SX1 B5-B2 $ FX6 X5+X7 $ LX1 59 $ DX7 X5+X7 35 255 NG X1,EPFO1 $ SA6 A2 $ SA7 A3 X1=NR OF ARGUMENTS 35 256 SB1 B4+B6 $ ZR X1,EP8 $ SB3 X1 B3 = NR OF D-FUNCTIONS. 35 257 SX6 3001B $ IX7 X6-X1 $ SB7 B5 B2=FIRST FREE LOCATION 35 258 SA7 MARKER $ NE B3,B6,EP15 JP IF MORE THAN 1 D 35 259 SA6 A0+B2 $ SB7 B7+B6 $ NO $ SA7 A0+B7 HERE X6=3001, X7=3000 35 260 ZR B0,EP8 35 261 EP15 SB2 B3-B6 $ SB5 B3 $ NE B2,B6,EP16 JP IF NOT 2 D 35 262 SX6 B6 $ SX7 B6 $ SB7 B7+B6 $ LX7 51 X7=8, LEFTSH 48 35 263 BX7 X6+X7 $ SA7 A0+B7 $ ZR B0,EP8 EXPR. NR 8 = 2 D 35 264 EP16 SB2 B3-3 $ NZ B2,EP18 B5 = NR OF D 35 265 SX7 7 $ MX5 59 $ SB7 B7+B6 B3=NR OF IND PAIR LEFT 35 266 LX7 48 $ BX7 -X5+X7 $ SB1 B6 $ SA7 A0+B7 EXPR 7 = KEY FOR 3 D 35 267 EP17 IX6 X5-X0 $ SB7 B7+4 $ SA6 A7+B6 X6=3001B. MAKE D-FUNCTION. 35 268 SX7 B1 $ SX6 B1+B5 $ SA7 A6+B6 $ SA6 A7+B6 X5=-1 35 269 SX7 3000B $ SB1 B1+B6 $ SA7 A0+B7 35 270 GE B5,B1,EP17 $ SA1 EPDAT1 35 271 SB1 X1+B6 $ ZR B0,EP8 35 272 EP18 SA2 MBE $ SA1 =1. X2 = MBE 35 273 MX7 0 $ SB2 B3+B6 $ SA7 X2 $ SX5 B5 STORE B5 IN X5 35 274 EP19 BX7 X1 $ SX6 A7 $ SA7 A7+B6 $ LX6 42 CONSTRUCT KEY FOR B3 35 275 SB5 48 $ SA3 EPDAT1+1 ARGUMENTS. 35 276 + LT B3,B2,*+1 $ BX1 -X1 $ SA6 X3 35 277 + AX6 42 $ SX7 1402B $ BX1 -X1 35 278 SA6 A3 $ LX7 48 $ SB1 B6 $ SB2 B2-B6 35 279 EP21 SX3 B1 $ NE B1,B2,EP22 $ SX3 B3 35 280 EP22 SB5 B5-12 $ PL B5,EP23 35 281 SA7 A7+B6 $ SB5 48 $ MX7 0 35 282 EP23 LX3 B5,X3 $ BX7 X7+X3 $ SB1 B1+B6 $ SX3 B2 35 283 LT B1,B3,EP21 $ EQ B1,B3,EP22 35 284 SA7 A7+B6 $ SX3 3777B $ MX7 0 35 285 + SA7 A7+B6 $ NZ B5,*+1 $ SA7 A7+B6 35 286 + LT B6,B2,EP19 $ SB5 X5 $ SX6 A7+B6 35 287 SB3 B3-B6 $ SX7 B6 $ SA6 MBE DECREASE B3 35 288 LX2 12 $ BX7 X2+X7 $ LX3 48 $ BX7 X3+X7 35 289 SB7 B7+B6 $ SA7 A0+B7 $ ZR B0,EP16 35 290 * 35 291 MACRO *INDCR 35 292 FOUT1 ERROR 93 ERROR 1001 35 293 FOUT2 ERROR 94 TOO MANY FACTORS IN TERM 35 294 EPFO1 ERROR 95 ILLEGAL EPF ARGM 35 295 END 36 0 IDENT ROTSOI 36 1 ENTRY EVNUM,EVFUN,SEARCH 36 2 MACRO *EXPAND 36 3 MACRO *EXPRNR 36 4 MACRO *EXEC 36 5 EXT FOUT,BRIAN,EXTRA 36 6 DSUM MACRO X6,X7=X2,X3+X4,X5 36 7 UX7 B2,X2 $ FX6 X4+X2 $ DX7 X4+X2 $ FX3 X5+X3 USES B2,B4 36 8 NX6 B0,X6 $ FX7 X7+X3 $ FX3 X6+X7 $ NX2 B0,X3 36 9 DX7 X6+X7 $ NX4 B0,X7 $ FX6 X4+X2 $ UX3 B4,X6 36 10 SB2 B2-73 $ DX7 X4+X2 $ SX3 B2-B4 SET ZERO IF 74 BIT 36 11 AX3 59 $ BX6 X3*X6 $ BX7 X3*X7 CANCELLATION 36 12 ENDM 36 13 DPROD MACRO X6,X7,=X2,X3*X4,X5 36 14 FX6 X5*X2 $ FX7 X4*X3 $ FX6 X6+X7 $ FX5 X4*X2 36 15 DX7 X4*X2 $ FX7 X6+X7 $ FX6 X7+X5 $ DX7 X7+X5 36 16 ENDM 36 17 * EVSIG1 EVALUATES SIGMA. ADDRESS FIRST DUMMY IN B1, ADDRESS 36 18 * AFTER CLOSING BRACKET IN B3. STORAGE ADDRESS IT IN A0. 36 19 * BSTOR1+1 IS FLAG. IF=0,TRY NUM EVAL OF DS. ELSE COMPUTE 36 20 * NUM COEF FOR EACH TERM OF THE SUM. 36 21 * SIGMA(2,D1,D2,J,M,MP,EX1,EX2) 36 22 * B1 B3 36 23 EVSIG1 SA1 B3-6 $ SX6 X1-3777B B6=1 THROUGHOUT 36 24 SA2 A1+B6 $ SA3 A2+B6 $ NZ X6,FOUT5 CHECK FORMAT 36 25 MX4 52 $ SX7 X2 $ BX6 X4*X2 $ SA7 A1 SET J=M 36 26 BX1 X4*X3 $ SX6 X6-3400B $ LX2 52 36 27 SX1 X1-3400B $ AX2 52 $ BX6 X6+X1 CHECK IF M AND MP NUM. 36 28 LX3 52 $ NZ X6,NOSUC1 $ AX3 52 RESULT 0 IF MP LT. M 36 29 IX1 X3-X2 $ MX7 0 $ SA2 =1. TOT=0, FACT=1. 36 30 NG X1,EVBAS8 $ SA6 A0+15 36 31 SA7 A6+B6 $ BX6 X2 $ SA7 A0+10 36 32 SA6 A7-B6 $ SX7 B3 $ SX5 B1 $ LX7 18 SAVE B1, B3 36 33 SA1 BSTOR1+1 $ BX7 X5+X7 $ AX1 18 36 34 SA7 A0+17 $ NZ B7,SIG1AA 36 35 SA2 A0+15 $ NZ X1,SIG1BB 36 36 SIG1AA SB2 B3-3 $ SA0 A0+20 36 37 + SB1 B1+B6 $ ZR B7,*+1 $ SA0 B3 36 38 + SB4 SIG1B $ ZR B0,EVEX6 GO EV. EXPR1. RESULT IN X6,X7 36 39 SIG1B SA1 B7+REMEM1 $ BX4 X6 $ LX5 B0,X7 36 40 AX1 18 $ SA0 X1 $ SA1 X1+17 NUM EVAL OF DS FUNCTION 36 41 SA2 A0+9 $ SB1 X1 $ SA3 A2+B6 FACT=PRODUCT EX2(1)*..*EX2(J) 36 42 AX1 18 $ SB3 X1 $ ZR X6,SIG1C JP IF TERM =0 36 43 DPROD X6,X7=FACT*EX1 36 44 SIG1C SA2 A0+15 $ SA3 A2+B6 $ BX4 X6 $ LX5 B0,X7 36 45 DSUM X6,X7=TOT+FACT*EX1 36 46 SIG1BB SA1 B3-6 $ NO $ NO 36 47 SA3 B3-4 $ IX5 X3-X1 $ MX4 52 36 48 SB2 B3-2 $ ZR X5,EVBAS8 36 49 LX1 52 $ AX1 52 $ SX5 X1+B6 $ BX4 -X4*X5 36 50 SA6 A2 $ SA7 A6+B6 $ SX6 X4+3400B 36 51 SA0 A0+20 $ SA6 A1 $ NO 36 52 + SB1 B1+B6 $ ZR B7,*+1 $ SA0 B3 36 53 + SB4 SIG1E $ ZR B0,EVEX6 36 54 SIG1E SA1 B7+REMEM1 $ LX4 B0,X6 $ BX5 X7 36 55 AX1 18 $ SA0 X1 $ SA1 X1+17 36 56 SA2 A0+9 $ SB1 X1 $ SA3 A2+B6 36 57 AX1 18 $ SB3 X1 $ NZ X6,SIG1F 36 58 SA1 B3-6 $ MX4 52 $ LX1 52 RESET MP=J-1 AS NOT TO EXPAND 36 59 AX1 52 $ SX5 X1-1 $ BX4 -X4*X5 INTO TERMS WITH COEF=0 36 60 SX6 X4+3400B $ SA6 B3-4 36 61 SA1 A0+15 $ SA2 A0+16 36 62 BX6 X1 $ BX7 X2 $ ZR B0,EVBAS8 36 63 SIG1F DPROD X6,X7=FACT*EX2 36 64 SA6 A2 $ SA7 A3 36 65 NZ B7,SIG1AA $ SA1 BSTOR1+1 36 66 SX2 B6+B6 $ SA6 X1 $ SA7 X1+B6 $ IX6 X1+X2 36 67 AX1 18 $ SA6 A1 $ ZR X1,SIG1AA 36 68 SA2 A0+15 $ ZR B0,SIG1BB 36 69 * EXTRA1 EVALUATES EXTRA. CONVENTIONS AS SIGMA1. 36 70 * EXTRA(2,D1,D2,EX1,NR1,EX2,EX3,NR2,...) 36 71 * B1 B3 36 72 * CALLING SEQUENCE - EXTRA(I,A,R) 36 73 * I = ARRAY CONTAINING FIXED POINT NUMBERS 36 74 * A = DOUBLE PRECISION ARRAY CONTAINING NUMERICAL VALUE OF 36 75 * THE EXPRESSIONS 36 76 * R = THE DOUBLE PRECISION RESULT TO BE RETURNED. 36 77 * THERE MAY BE AT MOST 10 FIXED POINT NUMBERS FOR ARRAY I. 36 78 EXTRA1 SA1 B1 $ SX6 A0+20 $ LX1 52 36 79 + AX1 52 $ ZR B7,*+1 $ SX6 B3 36 80 + SX7 X6+10 $ SA6 A0+9 36 81 SA7 A6+B6 $ LX6 18 $ BX6 X7+X6 $ SA6 A7+B6 36 82 SX1 B1+X1 $ SX7 X1+B6 $ SA7 A6+B6 36 83 EXTRA3 SA1 A0+12 $ SA2 X1 $ MX4 52 36 84 SX6 X2-3000B $ ZR X6,EXTRA4 36 85 BX3 X4*X2 $ SX5 X3-3400B $ SX7 X1+B6 36 86 SB2 A2 $ SA7 A1 $ NZ X5,EXTRA5 36 87 LX2 52 $ SA3 A0+9 $ AX2 52 36 88 SX7 X3+B6 $ BX6 X2 $ SA7 A3 $ SA6 X3 36 89 ZR B0,EXTRA3 36 90 EXTRA5 SA3 A0+10 $ SB1 B1+B6 $ SA0 X3+B6 36 91 SB4 EXTRA6 $ ZR B0,EVEX6 36 92 EXTRA6 SA1 B7+REMEM1 $ SB1 X1 $ AX1 18 36 93 SA0 X1 $ SA2 X1+10 $ SA6 X2 36 94 SA7 A6+B6 $ SX6 X2+2 $ SA6 A2 36 95 ZR B0,EXTRA3 36 96 EXTRA4 SA3 A1-B6 $ SB2 X3 $ AX3 18 $ SB3 A1+B6 36 97 SB1 X3 $ SX6 B7 $ SX7 B1 $ LX6 36 36 98 SX5 A0 $ LX7 18 $ IX6 X6+X5 $ BX7 X6+X7 36 99 SA7 BSTOR1 $ SX6 B1 $ SX7 B2 36 100 SA6 EXBR1C $ SA7 A6+B6 $ SX6 B3 36 101 SA1 A6 $ SA6 A7+B6 $ RJ EXTRA 36 102 + SA1 BSTOR1 $ SA0 X1 $ AX1 18 36 103 SB1 X1 $ SA3 A0+13 $ AX1 18 36 104 SB6 1 $ SB7 X1 $ SA4 A3+B6 36 105 BX6 X3 $ LX7 B0,X4 $ ZR B0,EVBAS8 36 106 EXBR1C BSSZ 4 EXTRA, BRIAN CALLING SEQUENCE 36 107 * EVSTE1 EVALUATES STANDARD EXPRESSIONS. CONVENTIONS AS EVSIG1 36 108 * DD(DVECT,EXPR,D1,D2,.....) 36 109 * B1 B3 36 110 EVSTE1 SA0 A0+20 $ NO $ NO 36 111 + SB2 B1+B6 $ ZR B7,*+1 $ SA0 B3 36 112 + SA2 B1 $ SX6 X2-1001B $ MX0 48 36 113 SB4 EVBAS8 $ ZR X6,STA1C 36 114 SX6 X2-401B $ ZR X6,STA1D JP IF FILE 36 115 SA2 B1+B6 $ SB2 A0 $ BX3 -X0*X2 $ BX6 X2 36 116 SX7 X3-1407B $ NZ X7,STA1AA 36 117 AX6 12 $ SA6 A2 $ RJ SEARCH 36 118 MX7 49 $ LX6 12 $ SX2 1407B 36 119 BX7 -X7+X6 $ LX7 12 $ BX7 X7+X2 $ SA7 A0 36 120 ZR B0,STA1C 36 121 STA1AA RJ SEARCH 36 122 MX7 49 $ LX6 12 $ BX7 -X7+X6 $ SA7 A0 X7=-3777B 36 123 STA1C SB1 B1+2 $ ZR B0,EVEX6 EVALUATE EXPR. 36 124 STA1D SB2 B1+B6 $ SB1 B2+B6 $ ZR B0,EVFIL1 36 125 * 36 126 *EVFIL1 EVALUATES FILES NUMERICALLY. 36 127 * B1 IS ADDRESS FIRST ARGUMENT, B3 IS ONE AFTER CLOSING BRACKET. 36 128 * ADDRESS EXPRESSION NUMBER PLUS EVT. SIGN IN B2. B4 IS RETURN ADDRESS. 36 129 EVFIL1 SA2 B2 $ MX0 48 $ BX3 X0*X2 $ BX2 -X0*X2 36 130 + ZR X3,*+1 $ AX3 12 $ BX2 X3 36 131 + SA2 X2+LOC-2401B $ MX0 59 $ BX3 X2 36 132 AX2 24 $ IX7 X2+X0 $ NZ X7,EVF1D JP IF NOT NUMERICAL FILE 36 133 LX3 43 $ AX3 43 $ PX6 B0,X3 $ NX6 B0,X6 X7=0 HERE 36 134 EVF1B SA2 B2 $ MX0 48 $ BX3 -X0*X2 $ BX2 X0*X2 36 135 ZR X2,EVF1C $ SX3 X3-1407B 36 136 NZ X3,NOSUC1 $ BX6 -X6 $ BX7 -X7 36 137 EVF1C JP B4+0 36 138 EVF1D SX2 X3 $ LX3 18 $ NO $ AX3 36 36 139 SX3 X3-701B $ NZ X3,NOSUC1 JP IF NOT LOCAL FILE WITH LENGTH 7 36 140 NG X2,NOSUC1 $ SA5 X2+B6 $ SA4 A5+B6 JP IF FILE NOT IN MEM 36 141 LX5 18 $ LX4 18 $ SX5 X5-000002B VECTOR COEFF MUST BE 1. 36 142 SX4 X4-172040B $ NZ X5,NOSUC1 THEN FILE IS ONLY 1 36 143 NZ X4,NOSUC1 $ SA5 A4+B6 $ SA4 A5+B6 FLOATING POINT NR 36 144 LX5 18 $ BX6 X4 $ UX1 B5,X4 $ AX5 18 36 145 SB5 B5-60B $ LX5 7 $ PX7 B5,X5 ROUNDING 36 146 ZR B0,EVF1B 36 147 + VFD 36/6HSEARCH,24/0 36 148 SEARCH BSS 1 ADDRESS DVECT IN B1 36 149 SA2 B1+B6 $ MX0 52 $ BX6 X0*X2 DD(DVECT,EXPR,D1,D2,..,X) 36 150 + SA3 A2+B6 $ SX7 X6-2400B $ MX4 59 B1 X4=D1 36 151 NZ X7,FOUT4 $ SA1 X2+LOC-2401B SELECT TERM IN DATA EXPR. 36 152 SX3 X3-3400B $ MX7 18 $ IX6 X1+X4 36 153 SER1 SA2 X6+IT $ MX7 18 $ BX0 X7*X2 36 154 LX0 18 $ SX5 X0-1 $ IX6 X6-X4 36 155 SX0 X0-2 $ ZR X5,ENDS1 36 156 NZ X0,SER1 $ IX3 X3+X4 36 157 NZ X3,SER1 $ ZR B0,SEARCH 36 158 ENDS1 IX3 X3+X4 $ ZR X3,SEARCH 36 159 ZR B0,FOUT4 36 160 * EVFUN1 EVALUATES DD,DB,DT,DK,DP ASSUMING NUMERI- 36 161 * CAL ARGUMENTS B1 IS ADDRESS FIRST ARGUMENT, B3 IS ONE AFTER 36 162 * CLOSING BRACKET. B1 AND B3 ARE UNCHANGED, B6=1. 36 163 EVFUN1 SA2 =1. $ MX1 0 $ BX0 X2 36 164 SB2 B3-B1 $ SA4 B1-B6 $ SX6 X4-3020B 36 165 SB2 B2-B6 $ ZR X6,EPF1F $ SX6 X6+B6 36 166 SA2 B1 $ SA3 B1+B6 $ ZR X6,DEL1F INREVERSE ORDER 36 167 SX6 X4-3014B $ SX7 X6+B6 $ LX2 52 THETA, BINOM, DD 36 168 SB5 X7+B6 $ LX3 52 $ ZR X6,THE1F 36 169 ZR X7,BINO1F $ NZ B5,FOUT6 36 170 EQ B2,B6,DD2F $ AX2 52 $ PX4 B0,X2 DD 36 171 BX2 X3 $ NX0 B0,X4 $ GE B0,B2,FOUT2 36 172 DD2F AX2 52 $ PX4 B0,X2 $ SB2 B2-B6 $ NX2 B0,X4 36 173 GE B6,B2,DIV11 $ ZR B0,FOUT2 36 174 THE2F BX6 X0 $ SB2 B2-B6 $ LX7 B0,X1 $ SA2 A2+B6 36 175 GE B0,B2,EVBAS8 $ LX2 52 36 176 THE1F AX2 52 $ SX3 X2 $ PL X3,THE2F 36 177 MX6 0 $ BX7 -X7*X7 $ ZR B0,EVBAS8 36 178 BINO1F SB2 B2-B6 $ AX2 52 $ NE B2,B6,FOUT7 BINOM(X2,X3) 36 179 AX3 52 $ BX6 -X6*X6 $ IX4 X2-X3 $ BX5 X3+X4 X7 IS 0. 36 180 SB5 B0 $ NG X5,EVBAS8 $ IX5 X4-X3 IF X2-X3 LT X3, 36 181 SB2 X2 $ AX5 59 $ BX4 X5*X4 $ LX6 B0,X0 =BINOM(X2,X2-X3) 36 182 BX5 -X5*X3 $ IX3 X4+X5 $ SB4 X3 $ LX7 B0,X1 36 183 BINO2F SX2 B2-B5 $ PX3 B0,X2 $ GE B5,B4,EVBAS8 36 184 NX2 B0,X3 $ SX3 B5+B6 $ FX4 X6*X2 $ PX0 B0,X3 36 185 FX7 X7*X2 $ UX1 B5,X4 $ DX5 X6*X2 $ NX0 B0,X0 36 186 SX1 B5+B6 $ FX6 X4/X0 $ SB5 X3 $ FX5 X7+X5 36 187 NG X1,BINO2F $ FX0 X5+X4 $ DX1 X5+X4 JP IF RESULT<2**48. NO 36 188 DIV11 FX7 X0+X1 $ ZR X2,FOUT9 $ FX6 X7/X2 X6,X7=X0,X1/X2 36 189 FX4 X6*X2 $ FX5 X0-X4 $ DX4 X0-X4 $ NX5 B0,X5 36 190 FX5 X4+X5 $ DX4 X6*X2 $ FX1 X1-X4 $ FX7 X5+X1 36 191 FX2 X7/X2 $ FX1 X6+X2 $ DX2 X6+X2 $ NX5 B0,X1 36 192 FX6 X5+X2 $ DX7 X5+X2 $ NZ B5,BINO2F 36 193 ZR B0,EVBAS8 36 194 DEL1F SB2 B2-B6 $ IX5 X2-X3 $ NE B2,B6,FOUT8 DK(M,N) 36 195 MX6 0 $ BX7 -X7*X7 $ NZ X5,EVBAS8 36 196 BX6 X0 $ LX7 B0,X1 $ ZR B0,EVBAS8 36 197 EPF1F SB5 B3-B6 $ SB2 B1 DP(N1,N2,...,N38) 36 198 EPF2F SA2 B2 $ SB2 B2+B6 $ GE B2,B5,EPF4F 36 199 SB4 B2 $ BX6 X2 $ LX2 52 $ AX2 52 36 200 EPF3F SA3 B4 $ SB4 B4+B6 $ LT B5,B4,EPF2F 36 201 BX7 X3 $ LX3 52 $ AX3 52 $ IX4 X2-X3 36 202 NG X4,EPF3F $ BX2 X3 $ SA6 B4-B6 SMALLEST FIRST 36 203 SA7 B2-B6 $ BX0 -X0 $ LX6 B0,X7 CHANGE SIGN 36 204 NZ X4,EPF3F $ BX0 -X0*X0 $ MX1 0 ZERO IF EQUAL 36 205 EPF4F BX6 X0 $ LX7 B0,X1 $ ZR B0,EVBAS8 36 206 * EVEX6 EVALUATES EXPRESSIONS. ADDRESS FIRST DUMMY IN B1, 36 207 * ADDRESS EXPRESSION NUMBER PLUS EVT SIGN IN B2. NR. + 3777B 36 208 * INDICATES LOC(NR) IN IT. B4=RETURN ADDRESS. A0=IT STORAGE. 36 209 EVEX6 SA1 B2 $ SX2 X1-2401B $ BX7 -X7*X7 36 210 MX3 48 $ SA4 =1. $ BX6 X4 36 211 + NZ X2,*+1 $ JP B4+0 36 212 + SA7 A0+5 $ SX6 B4 $ SA7 A7+B6 36 213 LX6 36 $ SX5 B1 $ IX2 X6+X5 $ SA7 A7+B6 SAVE B4,A0,B1. 36 214 SX6 A0 $ BX4 -X3*X1 $ LX6 18 $ SA7 A7+B6 SET SUM=0, FACT=0. 36 215 BX6 X2+X6 $ SX5 X4-1407B $ MX3 52 36 216 + NZ X5,*+1 $ MX7 60 $ AX1 12 36 217 + SB7 B7+B6 $ SA7 A0 $ SA6 B7+REMEM1 36 218 BX5 X3*X1 $ SA3 MBU1 $ BX7 X3 36 219 SX3 X5-2400B $ SA7 A0+3 36 220 SX6 B7-40 $ PL X6,NOSUC1 NOT MORE THAN 40 LEVELS 36 221 MX4 48 $ BX4 -X4*X1 $ SX4 X4-3777B 36 222 + NZ X4,*+2 $ NO $ NO 36 223 + AX1 12 $ BX4 X1 $ ZR B0,NEXT8 36 224 + SA4 X1+LOC-2401B $ NZ X3,RFO6 36 225 SX3 X4 $ NG X3,NOSUC1 NO TAPE FILES 36 226 NEXT8 SA5 X4+IT-1 $ SA4 A5+B6 $ LX5 18 36 227 SX2 A4+B6 $ SX1 X5-100B $ LX2 18 36 228 SX7 X5 $ PL X1,NEX80 $ MX7 0 ADDR 1 OR 2 = DATA EXPR. 36 229 NEX80 UX1 B5,X4 $ AX5 18 $ SX1 48 36 230 SA7 A0+B6 $ SB5 B5-60B $ LX5 7 X4,X5=COEF 36 231 PX5 B5,X5 $ BX6 X1+X2 $ SB5 B0 $ SA6 A7+B6 36 232 ADD1 SA2 A0+5 $ SA3 A2+B6 $ BX6 X4 SUM=SUM+FACT 36 233 LX7 B0,X5 $ SA4 A3+B6 $ SA5 A4+B6 $ SA6 A4 FACT=COEFF. 36 234 SA7 A5 $ DSUM DSUM USES B2,B4 36 235 SA6 A2 $ SA7 A3 $ NZ B5,EXI9F 36 236 NEXF1 RJ VOFA1 GET NEXT FACTOR 36 237 BX5 X6 $ LX5 52 $ SX7 X5-7 36 238 AX5 52 $ NZ X7,EVBAS1 $ PX5 B0,X5 JP IF NOT NUMBER 36 239 SA7 BASE1+1 $ SX1 A0 $ NX6 B0,X5 36 240 EVXP2A SA0 X1 $ SA6 A7-B6 $ RJ VOFA1 GET EXPONENT IN X6 36 241 SX2 X6-1407B $ MX3 0 $ LX6 52 MINUS SIGN 36 242 + NZ X2,*+2 $ RJ VOFA1 36 243 + MX3 60 $ NO $ LX6 52 $ NO 36 244 + MX0 59 $ SX1 B1 $ SB4 X6-7 36 245 SX2 A0 $ AX6 52 $ BX6 X3-X6 $ SX3 B7 36 246 NZ B4,NOSUC1 $ IX0 X6+X0 $ LX2 18 36 247 SA4 BASE1 $ SB4 X6 $ NO TEST ON 0**NEGATIVE 36 248 + NZ X4,*+1 $ GE B0,B4,RFO5 36 249 + SA6 EXPO1 $ ZR X6,EVXP13 36 250 ZR X0,EVXP12 $ BX3 X2+X3 $ LX1 36 36 251 BX7 X1+X3 $ SA1 EXBR1C $ SX6 A6 36 252 SA7 BSTOR1 $ SX7 BASE1 36 253 SA7 A1+B6 $ SA6 A7+B6 $ SX7 A0+7 36 254 BX1 X7 $ SA7 A1 $ RJ BRIAN FACT=FACT*BASE**EXPO 36 255 + SA1 BSTOR1 $ SB6 1 36 256 SB7 X1 $ AX1 18 $ SA0 X1 $ AX1 18 36 257 EVXP13 SB1 X1 $ SB4 B7-40 $ SB5 B0 MAXIMUM 40 LEVELS 36 258 SA2 A0+7 $ PL B4,NOSUC1 36 259 NX7 B0,X2 $ NZ X7,NEXF1 $ SA7 A2 CHECK IF ZERO FACTOR 36 260 SA7 A2+B6 $ SB5 B6 $ ZR B0,NEXF3 36 261 EVXP12 SA2 A0+7 $ SA4 BASE1 36 262 SA3 A2+B6 $ SA5 A4+B6 $ SX1 B1 36 263 EVX12A DPROD 36 264 SA6 A2 $ SA7 A3 $ ZR B0,EVXP13 36 265 EXI9F SA1 B7+REMEM1 $ SA3 NDIMT EXIT 36 266 SA4 MMBE $ SB1 X1 $ AX1 18 CHECK STORAGE SPACE 36 267 SB4 IT-20 $ BX0 X7 $ SA0 X1 RESTORE A0,B1 36 268 SA5 A0+3 $ BX7 X5 $ NO 36 269 SA7 MBU1 $ NO $ NO 36 270 SX7 A0-B4 $ IX2 X3-X7 $ AX1 18 $ SB4 X1 36 271 NG X2,FOUT3 $ IX3 X7-X4 $ SB7 B7-B6 36 272 + SA5 A0 $ NG X3,*+1 $ SA7 A4 36 273 + BX7 X0-X5 $ BX6 X6-X5 $ JP B4+0 36 274 VOFA1 BSS 1 GET NEXT FACTOR IN X6 36 275 SA1 A0+2 $ SX6 X1-12 HEAD IN X1 36 276 SB6 X1 $ AX1 18 $ SA4 X1 $ MX7 48 DO NOT USE X0,X2,X3 36 277 AX4 B6,X4 $ SB6 1 $ SB5 B5+B6 36 278 + PL X6,*+1 $ CX6 X7 $ SX1 X1+B6 X6=48 36 279 + LX1 18 $ IX6 X1+X6 $ SA6 A1 $ BX6 -X7*X4 36 280 MX7 52 $ ZR X6,NEXF3 $ BX1 X7*X6 36 281 SX4 X6-1 $ NZ X1,VOFA1 JP IF NOT DUMMY 36 282 SA4 X4+B1 $ BX1 X7*X4 $ LX6 B0,X4 B1 POINTS TO DUMMY TABLE 36 283 NZ X1,VOFA1 $ ZR B0,NOSUC1 36 284 NEXF3 NE B6,B5,NOSUC1 $ SA4 A0+B6 $ SB5 B0-B6 END OF TERM 36 285 ZR X4,ADD1 $ ZR B0,NEXT8 GO ADD FACTOR TO TOTAL 36 286 EVBAS1 MX0 48 $ BX4 -X0*X6 $ SX5 X4-1407B 36 287 MX0 52 $ SA6 A0+18 $ MX7 0 EXPR. IN A0+18 36 288 + NZ X5,*+1 $ AX6 12 $ MX7 60 36 289 + SA7 A0+4 $ SX3 X6-2400B FU SIGN IN A0+4 36 290 BX7 X0*X3 $ SB4 EVBAS3 $ SB2 A6 36 291 NZ X7,EVBAS4 $ SA0 A0+19 36 292 SA1 X6+LOC-2401B $ MX2 18 $ BX3 X2*X1 36 293 ZR X3,EVEX6 $ LX3 18 $ SB1 X3+B6 36 294 ZR B0,EVEX6 36 295 EVBA2A SX6 X6+1740B $ SX7 X6-3021B 36 296 SX2 X6-3012B $ BX7 -X2*X7 36 297 NG X7,EVBAS4 $ SX6 X6-1740B 36 298 SX3 X6-1412B $ ZR X3,EVBA2B 36 299 SX7 X6-1413B $ NZ X7,NOSUC1 36 300 EVBA2B SB5 B6 $ RJ VOFA1 36 301 + BX5 X6 $ LX5 52 $ SX7 X5-5 36 302 NZ X7,RFO6 $ SX7 1407B 36 303 + ZR X3,*+1 $ LX6 12 $ BX6 X6+X7 36 304 + SA6 A0+18 $ SA0 A6+B6 $ SB2 A6 36 305 SB4 EVBA2D $ ZR B0,EVEX6 36 306 EVBA2D SB6 B0-B6 $ ZR B0,WORK9C 36 307 EVBAS3 SA1 B7+REMEM1 $ SB1 X1 $ AX1 18 36 308 SA7 BASE1+1 $ ZR B0,EVXP2A 36 309 EVBAS4 SX7 X6-3021B $ SX2 X6-3012B SEE IF DD - DP 36 310 SB2 B0 $ MX0 4 $ BX7 -X2*X7 $ LX0 12 36 311 PL X7,EVBA2A $ SB3 A0+20 36 312 MX7 0 $ SA6 B3-B6 $ SA7 DREQ1 36 313 SX3 X6-3015B $ NZ X3,EVBAS5 36 314 SB5 B6 $ RJ VOFA1 FOR DS- GET KEY IN 36 315 + SA6 B3 $ SB3 B3+B6 $ SX2 X6-3400B 36 316 BX7 X0*X2 $ NZ X7,NOSUC1 36 317 + SX2 X2-1 $ NG X2,EVBAS5 36 318 + SB5 B6 $ RJ VOFA1 36 319 + SA6 B3 $ SB3 B3+B6 $ NZ X2,*-2 36 320 EVBAS5 SB5 B6 $ RJ VOFA1 36 321 EVBAS6 BX3 X0*X6 $ SX7 X3-1400B 36 322 ZR X7,WORK1 $ SX7 X3-2400B 36 323 SX1 X6-3000B $ ZR X7,WORK8 36 324 EVBAS7 SA6 B3 $ SB3 B3+B6 $ NZ X1,EVBAS5 36 325 SB1 A0+20 36 326 EVBA7A SA5 B1-B6 $ SX6 X5-3016B 36 327 SX7 X5-3012B $ ZR X6,EXTRA1 36 328 SX6 X6+B6 $ SA1 B1 $ ZR X6,EVSIG1 36 329 NZ X7,EVFUN0 $ SX4 X1-3400B 36 330 MX7 52 $ BX6 X7*X4 $ SB2 X1-1000B 36 331 ZR X6,EVFUN0 $ NZ B2,NOSUC1 36 332 SA4 A1+B6 $ MX0 48 $ BX3 -X0*X4 $ MX0 52 36 333 SX3 X3-1407B $ SX6 1001B 1001B = X-EXPRESSION 36 334 NZ X3,EVB7B $ AX4 12 36 335 EVB7B BX7 X0*X4 $ AX7 8 $ SX0 X7-6 36 336 NZ X0,EVB7C $ SB1 B1+2 36 337 NZ X3,EVBA7A $ SA3 A0+4 36 338 LX7 B0,X4 $ BX6 -X3 $ SA7 A4 $ SA6 A3 36 339 ZR B0,EVBA7A 36 340 EVB7C SX0 X7-5 $ NZ X0,EVB7E 36 341 SA5 X4+NXGEH-2401B $ MX0 52 $ BX0 -X0*X5 36 342 LX5 42 $ NG X5,EVB7G $ LX5 7 JP IF FILE 36 343 NG X5,EVB7D $ SX6 1000B JP IF X-EXPR. 36 344 EVB7D SX7 X0+2400B $ NZ X3,*+2 36 345 + LX7 12 $ SX3 1407B $ BX7 X7+X3 36 346 + SA6 B1 $ SA7 B1+B6 $ ZR B0,EVSTE1 36 347 EVB7G LX5 7 $ SX6 401B $ SA2 A4+B6 36 348 NG X5,EVB7D $ SX4 X2-3400B JP IF NOT INDEXED 36 349 MX0 52 $ LX5 11 $ BX2 X0*X4 $ LX4 18 GET NR 36 350 MX0 30 $ NZ X2,NOSUC1 $ BX5 X0*X5 36 351 BX4 X4+X5 $ MX0 42 $ SA5 NXEX 36 352 SA2 NXGEH+1 $ SB4 X5 $ MX1 52 36 353 EVB7H SA2 A2+B6 $ SB4 B4-B6 $ GE B6,B4,NOSUC1 36 354 BX7 X0*X2 $ IX7 X7-X4 $ NZ X7,EVB7H 36 355 BX0 -X1*X2 $ ZR B0,EVB7D 36 356 EVB7E SX0 X7-2 $ NZ X0,NOSUC1 36 357 SX0 X4-1041B $ NG X0,NOSUC1 36 358 SX4 X4+1740B $ ZR B0,EVB7B 36 359 EVFUN0 SB4 B1 $ SB5 B3-2 $ MX0 52 36 360 + SA1 B4 $ BX6 X0*X1 $ SX7 X6-3400B CHECK IF ALL ARG. 36 361 + LT B5,B4,EVFUN1 $ SB4 B4+B6 NUMERICAL 36 362 + ZR X7,*-2 $ ZR B0,NOSUC1 36 363 WORK1 MX7 48 $ BX4 -X7*X6 $ SX1 X4-1407B OPERATOR IN FU. 36 364 BX2 X7*X6 $ NG X1,NOSUC1 $ NO 36 365 NZ X1,WORK7 $ SB5 B6 $ MX1 59 36 366 NZ X2,EVBAS7 $ RJ VOFA1 JP IF -EXPR. 36 367 + MX1 48 $ BX4 -X1*X6 $ SX7 X4-1407B 36 368 BX6 X1*X6 $ NZ X7,WORK6 $ AX6 12 JP IF NOT 1407B1407B 36 369 NZ X6,EVBAS7 $ ZR B0,EVBAS5 36 370 WORK7 SX1 X4-1417B $ NZ X1,WORK9 36 371 SA7 DREQ1 $ ZR B0,EVBAS5 MX7 48, FROM WORK1 36 372 WORK8 SA4 DREQ1 $ ZR X4,EVBAS7 36 373 SX7 B1-B6 $ SA4 X6+LOC-2401B $ LX7 42 36 374 MX3 18 $ BX4 -X3*X4 $ SA3 MBU1 36 375 BX7 X4+X7 $ SA7 X3+LOC-1 $ SX6 X3+B6 36 376 SA6 A3 $ MX7 0 $ SA7 DREQ1 36 377 SX6 X3+2400B $ ZR B0,EVBAS7 36 378 WORK9 SX1 X4-1412B $ SX2 X4-1413B 36 379 + ZR X1,*+1 $ NZ X2,NOSUC1 36 380 + SA6 B3 $ SB5 B6 $ RJ VOFA1 36 381 + BX3 X0*X6 $ SX7 X3-2400B $ SA2 B3 EVALUATE INTEG 36 382 NZ X7,RFO6 $ SX7 X2-1413B 36 383 SB4 WORK9C $ NZ X7,WORK9B 36 384 SX7 1407B $ LX6 12 $ BX6 X6+X7 36 385 WORK9B SA6 B3 $ SX7 B3 $ SA7 A0+17 36 386 SB2 A6 $ SA0 X7+B6 $ ZR B0,EVEX6 36 387 WORK9C SA1 B7+REMEM1 $ SB1 X1 $ AX1 18 36 388 SX4 16214B $ SA0 X1 $ LX4 45 2**-70 36 389 FX5 X6*X4 $ SA3 A0+17 $ FX5 X7+X5 ROUND BIT 70 36 390 SB3 X3 $ FX6 X6+X5 $ MX0 4 $ SB2 B0 36 391 UX7 B4,X6 $ LX6 B4,X7 $ BX4 X6 $ PX7 B0,X6 36 392 NG B6,WORK9D $ AX4 53 $ LX0 12 36 393 NZ X4,RFO7 $ LX6 52 $ AX6 52 36 394 MX4 52 $ SX6 X6+B0 $ BX7 -X4*X6 36 395 SX6 X7+3400B $ ZR B0,EVBAS7 X1 IS NONZERO 36 396 WORK9D NX6 B0,X7 $ SB6 B0-B6 $ MX7 0 $ SX1 A0 36 397 SA7 BASE1+1 $ ZR B0,EVXP2A 36 398 WORK6 SX3 X4-2400B $ MX1 52 $ BX2 X1*X3 36 399 NZ X2,WORK6A $ SA2 DREQ1 36 400 MX7 0 $ SA7 A2 $ ZR X2,WORK6B 36 401 SA2 X4+LOC-2401B $ SX7 B1-B6 $ MX3 18 36 402 LX7 42 $ BX4 -X3*X2 $ SA2 MBU1 36 403 BX7 X4+X7 $ SA7 X2+LOC-1 $ SX7 X2+B6 36 404 SX4 X2+2400B $ SA7 A2 36 405 ZR B0,WORK6B 36 406 WORK6A SX3 X4-3400B $ MX1 52 $ BX2 X1*X3 36 407 BX6 -X4-X1 $ ZR X2,EVBAS7 JP IF 1407NUMBER=-NUMBER 36 408 WORK6B SX7 1407B $ LX4 12 $ BX6 X4+X7 36 409 ZR B0,EVBAS7 36 410 * EVFUN EVALUATES DD,DB,DT,DS,DX,DK OR DP NUMERICALLY. 36 411 * ARG. START IN B1, ADDR. AFTER CLOSING BRACKET IN B3. SUCCES 36 412 * IF X2 POSITIVE. IF X7=1, EVALUATE FACTORS IN SIGMA AND PLACE 36 413 * IN IEP. ELSE X7=0. 36 414 DATA 05260625160000000000B 36 415 EVFUN BSS 1 36 416 SA1 MBE $ SA2 EVFUN 36 417 SA3 NEPS $ SA0 X1+IT 36 418 LX7 18 $ SX4 X3+IEP $ BX7 X4+X7 36 419 LX6 B0,X2 $ SA7 BSTOR1+1 $ SX1 A0 BSTOR1+1 FOR SIGMA 36 420 SA6 EVNUM $ SX2 B3 $ LX1 18 NO SUCCES EXIT VIA EVNUM 36 421 SX3 B1 $ BX1 X3+X1 $ LX2 36 $ BX6 X1+X2 36 422 SB6 1 $ SA6 REMEM1 SAVE B3,A0,B1 36 423 SA5 MBU $ SB7 B0 $ BX7 X5 36 424 MX6 0 $ SA6 DREQ1 B7=LEVEL OF EVALUATION 36 425 SA7 MBU1 36 426 + SA5 B1-B6 $ SX6 X5-3016B 36 427 SX7 X5-3012B $ ZR X6,EXTRA1 36 428 SX6 X6+B6 $ SA1 B1 $ ZR X6,EVSIG1 36 429 NZ X7,EVFUN0 $ SX4 X1-3400B 36 430 MX7 52 $ BX6 X7*X4 $ SB2 X1-1000B 36 431 ZR X6,EVFUN0 $ ZR B2,EVSTE1 36 432 EQ B2,B6,EVSTE1 $ ZR B0,NOSUC1 36 433 EVBAS8 SA3 B7+REMEM1 $ SB1 X3 $ AX3 18 EXIT FOR EVFUN OR 36 434 SA0 X3 $ SA4 X3+4 $ AX3 18 PART OF EVNUM WORK 36 435 SB3 X3 $ MX2 0 $ ZR B7,EVFUN IN CASE OF EVFUN, B7=0 36 436 SX1 B1 $ SA2 A0+7 $ BX5 X7-X4 36 437 SA3 A2+B6 $ BX4 X6-X4 $ ZR B0,EVX12A 36 438 * EVNUM EVALUATES EXPRESSIONS NUMERICALLY. 36 439 * B1=ADDRESS FIRST DUMMY. B2=ADDRESS CONTAINING EXPR. NUMBER 36 440 * EVT. INCLUDING 1407B=-SIGN. B1, B3 ARE RESTORED. 36 441 DATA 05261625150000000000B 36 442 EVNUM BSS 1 B6=1 THROUGHOUT 36 443 SB6 1 $ SA1 MBE PREPARE FOR EVEX6. B1=DUMMY START, 36 444 SX2 B3 $ SB4 EVNU1 $ SX3 B1 B2=EXPR. ADDR., B4=RETURN ADDR. 36 445 LX2 36 $ SX1 X1+IT $ BX3 X2+X3 A0=STORAGE AREA 36 446 SA4 MBU $ MX6 0 $ BX7 X4 36 447 SA7 MBU1 $ SA6 DREQ1 A0=START STORAGE AREA. 36 448 SA0 X1 $ LX1 18 $ BX6 X1+X3 $ SB7 B0 B7=LEVEL=-1 36 449 SA6 REMEM1 $ ZR B0,EVEX6 36 450 NOSUC1 MX2 59 36 451 EVNU1 SA1 REMEM1 $ SB1 X1 $ AX1 36 36 452 SB3 X1 $ ZR B0,EVNUM 36 453 FOUT2 ERROR 165 DD NEEDS 1 OR 2 ARGMS 36 454 FOUT3 ERROR 166 WORKSPACE FULL 36 455 FOUT4 ERROR 167 COMPONENT OF D EXPR NOT FOUND 36 456 FOUT5 ERROR 177 ERROR WITH ARGMS OF DS FU 36 457 FOUT6 ERROR 178 NON_NUM FU SEEN DURING NUMER EVAL 36 458 FOUT7 ERROR 179 DB NEEDS 2 ARGMS 36 459 FOUT8 ERROR 180 DK NEEDS 2 ARGMS 36 460 FOUT9 ERROR 181 DIVISION BY 0 36 461 RFO5 ERROR 168 DIVISION BY 0 36 462 RFO6 ERROR 169 NUM EVAL NEEDS EXPR AS ARGM 36 463 RFO7 ERROR 170 FU ARGM GT 128 36 464 END 37 0 IDENT SCHUIF 37 1 ENTRY SCHUIF,SCHUI2 37 2 MACRO *EXPAND 37 3 MACRO *EXPRNR 37 4 MACRO *EXEC 37 5 EXT FOUT,TAKMAN,TAXMAN 37 6 BUFX EQU BBUFX OUTPUT BUFFER FOR OUTPUT OVERFLOW 37 7 BSIZ2E EQU 505 37 8 BUFF1 EQU IEP BUFFER FOR GARBAGE COLLECTION 37 9 SIZE1 EQU 745 37 10 NU EQU IT 37 11 * MACRO *SCHUIF CONTAINS SCHUIF,GARBAG,MOVER. 37 12 MACRO *SCHUIF 37 13 GFO1 ERROR 23 REARRANGEMENT ERROR 37 14 END 38 0 OVERLAY (SCHIP,3,0) 38 1 PROGRAM UIT 38 2 CALL UIT1 38 3 END 39 0 SUBROUTINE RATON(XX,IND,IUP,IDO) 39 1 C TRY TO CONVERT XX INTO IUP/IDOWN. XX=FLOAT.P. IUP,IDOWN ARE INTEGERS 39 2 C LT 2**46. INDICATOR=+1 IF SUCCESSFUL. =-1 IF CONVERSION IMPOSSIBLE. 39 3 C LSIGN=+1 IF XX GT 1 . =2 IF XX LY -1 . =-1 IF 0 LT XX LT 1 . =-2 IF 39 4 C 0 GT XX GT -1 . 39 5 C X IS THE NUMBER GT 1 WHICH WILL BE CONVERTED. XX CAN BE RECONSTRUCTED 39 6 C BY LOOKING AT LSIGN. X-INTEG(X)/1 IS FRACTION TO BE APPROXIMATED BY 2 39 7 C INTEGERS. R1,R2 ARE LENGTHS OF INTERVALS ( EVERYTIME MADE FINER). 39 8 C N1,N2 INDICATE HOW OFTEN THE ORIGINAL INTERVALS CONTAIN THE FINEST 39 9 C SUBINTERVAL. 39 10 DOUBLE XX,X,R1,R2,R3 39 11 DATA RD/1E-26/ 39 12 LTRY=3 39 13 X=XX 39 14 LSIGN=1 39 15 IF(X) 1,2,2 39 16 1 LSIGN=2 39 17 X=-X 39 18 2 I2=LOG2(X) 39 19 IF(IABS(I2)-45) 3,4,4 39 20 4 IND=-1 39 21 RETURN 39 22 3 IF(I2) 5,6,6 39 23 5 X=1./X 39 24 LSIGN=-LSIGN 39 25 I2=-I2 39 26 6 K1=X 39 27 R2=K1 39 28 R2=X-R2 39 29 R1=R2-1. 39 30 N1=1 39 31 N2=1 39 32 ICR=70-I2 39 33 21 L1=LOG2(R1) 39 34 L2=LOG2I(N1) 39 35 L1=L1-L2 39 36 K4=1 39 37 IF(L1+ICR) 7,7,8 39 38 C EXIT. RECONSTRUCT ORIGINAL NR. TEST ACCURACY. 39 39 7 R3=N1 39 40 IUP=R3*X 39 41 IUP=IUP+K4 39 42 IDO=N1 39 43 L1=LOG2(R3) 39 44 9 IF(LSIGN) 11,12,12 39 45 11 N3=IDO 39 46 IDO=IUP 39 47 IUP=N3 39 48 12 IF(IABS(LSIGN)-2) 13,14,13 39 49 14 IUP=-IUP 39 50 13 R1=IUP 39 51 R2=IDO 39 52 R3=R1/R2 39 53 R1=XX 39 54 L1=LOG2(R1) 39 55 L2=LOG2(R1-R3) 39 56 IF(L1-L2-70) 27,15,15 39 57 C LTRY ALLOWS 2 TRIES FOR NUMERATOR, IUP AND IUP+1 . K4 IS THE VALUE 39 58 C OF THIS CORRECTION (0 OR 1) . 39 59 27 LTRY=LTRY-2 39 60 K4=1-K4 39 61 IF(LTRY) 4,7,7 39 62 15 IND=1 39 63 RETURN 39 64 8 L1=LOG2(R2) 39 65 L2=LOG2I(N2) 39 66 L1=L1-L2 39 67 IF(L1+ICR) 16,16,17 39 68 16 N1=N2 39 69 K4=0 39 70 GO TO 7 39 71 17 IF(DABS(R1)-DABS(R2)) 18,25,19 39 72 25 K1=1 39 73 X=X-RD*X 39 74 GO TO 24 39 75 18 R3=DABS(R2/R1) 39 76 L1=LOG2(R3) 39 77 IF(L1-46) 23,23,4 39 78 23 K1=R3 39 79 R3=R2+K1*R1 39 80 R1=R3+R1 39 81 R2=R3 39 82 L1=LOG2I(N1) 39 83 L3=LOG2I(K1) 39 84 N3=N2+K1*N1 39 85 N1=N3+N1 39 86 N2=N3 39 87 IF(L1+L3-46) 21,21,4 39 88 19 R3=DABS(R1/R2) 39 89 L1=LOG2(R3) 39 90 IF(L1-46) 22,22,4 39 91 22 K1=R3 39 92 24 R3=R1+K1*R2 39 93 R2=R3+R2 39 94 R1=R3 39 95 L1=LOG2I(N2) 39 96 L3=LOG2I(K1) 39 97 N3=N1+K1*N2 39 98 N2=N3+N2 39 99 N1=N3 39 100 IF(L1+L3-46) 21,21,4 39 101 END 40 0 SUBROUTINE NUMBER 40 1 COMMON //IY1,IY2,MIND,IND,IEXP,BDOUB(2) 40 2 MACRO CEXPRNR 40 3 MACRO CSTOREF 40 4 EQUIVALENCE (IB,LOC(211)),(AN,BDOUB(1)) 40 5 DIMENSION I10(15),IB(1) 40 6 DOUBLE AN,Z1,X10,X1,X01 40 7 DATA (I10(L1),L1=1,15)/1,10,100,1000,10000,100000,1000000, 40 8 1 10000000,100000000,1000000000,10000000000,100000000000, 40 9 2 1000000000000,10000000000000,100000000000000/ 40 10 DATA X10,X1,X01/10.D0,1.D0,0.1D0/ 40 11 DATA KE,KMI,KPUN,KSL,K0 / 5B,46B,57B,50B,33B / 40 12 C ROUTINE TO CONVERT FLOATING POINT NUMBERS TO PRINTABLE FORM. 40 13 C MIND=NR OF DIGITS TO BE PRINTED OR RATON(=CONVERT TO RATIO OF 2 INTEG 40 14 C ERS ) REQUEST. 40 15 C IND=LOCATION IN ARRAY B WHERE NEXT DISPLAY CHARACTER SHOULD BE STORED 40 16 C BDOUB=AN=DOUBLE PREC COEF (96 BITS) TO BE CONVERTED TO DISPLAY CODE 40 17 C IY1=0(-1) CONVERTS TO PRINTABLE FLOAT POINT NR (INTEGER) 40 18 C I.E. 2.5E1 OR 25 40 19 C IY2=INTEGER CORRESPONDING WITH BDOUB(RESULT AFTER UNPACKING). 40 20 C IEXP=ESTIMATED(VIA TWO LOGARITHM) POWER OF 10 FOR BDOUB. BY NUMERH 40 21 IRATIO=0 40 22 IF(MIND-195) 42,43,43 40 23 43 CALL RATON(AN,IW1X,IUP,IDO) 40 24 IF(MIND-201) 50,50,51 40 25 50 MIND=202 40 26 51 MIND=MIND-200 40 27 IF(IW1X) 42,44,44 40 28 44 IRATIO=1 40 29 IY2=IUP 40 30 IY1=-1 40 31 IYX2=LOG2I(IY2) 40 32 YX2=IYX2 40 33 IEXP=0.30102*YX2 40 34 42 IMND=-MIND 40 35 IIEXP=-IEXP 40 36 C MIND=1 TRUNCATE TO INTEGER. DONE BY GOTO 36 . 40 37 C MIND=0 ROUND TO INTEGER. DONE BY ADDING .5 40 38 IF(MIND-1) 1,36,3 40 39 1 IY2=AN+0.5 40 40 IF(IEXP+1) 2,36,36 40 41 2 IEXP=0 40 42 IY2=0 40 43 GO TO 36 40 44 3 IF(MIND-25) 39,40,40 40 45 40 MIND=25 40 46 39 IF(IY1) 36,4,4 40 47 C PROCEDURE TO ADJUST IEXP (IF THE ESTIMATION WAS SLIGHTLY WRONG). 40 48 C IF IEXP GT 293, 10**-IEXP=AN=0 WILL RESULT AND THIS PROCEDURE LOOPS. 40 49 C R1 IS REQUESTED ACCURACY. E.G. .5*10**-15 40 50 4 R1=0.5*10.**IMND 40 51 IF(IEXP) 41,5,41 40 52 41 AN=AN*X10**IIEXP 40 53 5 Z1=AN-X1 40 54 IF(Z1) 6,7,7 40 55 6 AN=AN*X10 40 56 IEXP=IEXP-1 40 57 GO TO 5 40 58 7 Z1=AN-X10 40 59 IF(Z1) 9,8,8 40 60 8 AN=AN*X01 40 61 IEXP=IEXP+1 40 62 GO TO 7 40 63 C AN IS REDUCED TO 1 LT AN LT 10 . MAKE 1 DIGIT APPEAR IN FRONT OF 40 64 C DECIMAL POINT. TRY TWICE IN DOLOOP 15. 40 65 9 IZ=AN 40 66 IK=IZ-1 40 67 DO 15 I2=1,2 40 68 IK=IK+1 40 69 Z1=IK 40 70 R2=AN-Z1 40 71 IF(R2) 10,11,11 40 72 10 R2=-R2 40 73 11 R2=R2-R1 40 74 IF(R2) 12,12,15 40 75 12 IF(IK-10) 14,13,5 40 76 13 IK=1 40 77 IEXP=IEXP+1 40 78 14 IZ=0 40 79 AN=0. 40 80 IND=IND+1 40 81 IB(IND)=IK+K0 40 82 GO TO 18 40 83 15 CONTINUE 40 84 IF(IEXP+1) 17,16,17 40 85 16 IEXP=0 40 86 IZ=0 40 87 IND=IND+1 40 88 IB(IND)=K0 40 89 GO TO 18 40 90 17 IZ=AN 40 91 IND=IND+1 40 92 IB(IND)=IZ+K0 40 93 Z1=IZ 40 94 AN=(AN-Z1)*X10 40 95 18 IND=IND+1 40 96 IB(IND)=KPUN 40 97 LIND=IND+1 40 98 KIND=IND+MIND 40 99 C MAKE PART BEHIND DECIMAL POINT. I1 COUNTS DIGITS. IND DISCARDS 40 100 C TRAILING ZEROS. 40 101 DO 24 I1=LIND,KIND 40 102 IZ=AN 40 103 R1=10.*R1 40 104 IK=IZ-1 40 105 DO 22 I2=1,2 40 106 IK=IK+1 40 107 Z1=IK 40 108 R2=AN-Z1 40 109 IF(R2) 19,20,20 40 110 19 R2=-R2 40 111 20 R2=R2-R1 40 112 IF(R2) 21,21,22 40 113 21 IF (IK) 52,53,52 40 114 52 IND=I1 40 115 53 IK=IK+K0 40 116 IB(I1)=IK 40 117 GO TO 25 40 118 22 CONTINUE 40 119 23 Z1=IZ 40 120 AN=(AN-Z1)*X10 40 121 IF (IZ) 54,55,54 40 122 54 IND=I1 40 123 55 IZ=IZ+K0 40 124 24 IB(I1)=IZ 40 125 C MAKE EXPONENT. MAX VALUE 3 DIGITS. 40 126 25 IF(IEXP) 38,34,26 40 127 38 IND=IND+2 40 128 IB(IND)=KMI 40 129 IB(IND-1)=KE 40 130 IEXP=-IEXP 40 131 GO TO 27 40 132 26 IND=IND+1 40 133 IB(IND)=KE 40 134 27 IKA=3 40 135 IC=100 40 136 IP=0 40 137 28 IL=0 40 138 C CONVERT TO PRINTABLE INTEGER. EXPON OR RATIO RESULT. 40 139 DO 32 I7=1,IKA 40 140 KI=IEXP/IC 40 141 IF(KI) 29,29,30 40 142 29 KI=0 40 143 IF(IL) 31,32,31 40 144 30 IL=3 40 145 IEXP=IEXP-KI*IC 40 146 31 KLAP=IND+1 40 147 IB(KLAP)=KI+K0 40 148 IND=KLAP 40 149 32 IC=IC/10 40 150 IF(IP) 33,34,33 40 151 33 IND=IND+1 40 152 IB(IND)=KPUN 40 153 IF(IRATIO) 34,34,46 40 154 46 IRATIO=0 40 155 IF(IDO-1) 49,34,49 40 156 49 IND=IND+1 40 157 IB(IND)=KSL 40 158 IY2=IDO 40 159 IYX2=LOG2I(IY2) 40 160 YX2=IYX2 40 161 IEXP=0.30102*YX2 40 162 GO TO 36 40 163 34 RETURN 40 164 36 IKA=IEXP+2 40 165 C PREPARE TO CONVERT RATIO RESULT. MAX 15 DIGITS. I10 CONTAINS ALL 40 166 C POWERS OF 10 REPRESENTABLE AS INTEGER. 40 167 IF(IKA-16) 47,48,48 40 168 48 IKA=15 40 169 47 IC=I10(IKA) 40 170 IEXP=IY2 40 171 IP=1 40 172 IF(IY2) 28,37,28 40 173 37 IND=IND+1 40 174 IB(IND)=K0 40 175 GO TO 33 40 176 END 41 0 IDENT UIT1 41 1 EXT LIJN 41 2 MACRO *EXPAND 41 3 MACRO *EXPRNR 41 4 MACRO *UIT 41 5 ENTRY UIT1,LOG2,LOG2I,NUMERH 41 6 ENTRY SCHUIF,SCHUI2,GARBAG 41 7 EXT SCHRYF,FOUT,TAKMAN,TAXMAN 41 8 MSG1 VFD 54/9H* END,6/0 41 9 MSG2 VFD 48/8HTAPE END,12/0 41 10 UIT2 VFD 36/6HOUTPUT,24/3 41 11 UIT1 BSS 1 41 12 + SX7 *-1 $ SA1 UIT2 41 13 SX6 UITCOM $ SA7 LAYNR 41 14 SA6 COMADR $ BX7 X1 $ NO 41 15 SX6 COMADR-10 $ SA6 NDIMU 41 16 SA7 LAYNAM $ SB1 UITCOM 41 17 MX6 0 $ BX7 -X7*X7 $ SB2 UITCO1 41 18 SB6 1 $ NO $ NO 41 19 + SA6 B1 $ SA7 B1+B6 $ SB1 B1+2 41 20 + LT B1,B2,*-1 $ RJ SCHRYF 41 21 SA1 NCONT $ SB6 1 41 22 MX6 0 $ SX7 B6 $ SA6 IBUF+1 41 23 + SA6 A6+B6 $ SA7 A6+B6 $ ZR X1,*+4 41 24 + SA3 NTAP8 $ SA4 MSG1 END PUNCH FILE WITH * END 41 25 + BX6 X3 $ BX7 X4 $ SA6 IBUF 41 26 + SA7 IBUF+5 $ RJ LIJN 41 27 + SA1 NCONT+3 $ ZR X1,UIT1 41 28 SA3 NTAP3 $ SA4 MSG2 END TAPE3 WITH TAPE END 41 29 BX6 X3 $ BX7 X4 $ SA6 IBUF 41 30 SA7 IBUF+5 $ RJ LIJN 41 31 ZR B0,UIT1 41 32 BUFF1 EQU IEP BUFFER FOR GARBAG 41 33 SIZE1 EQU 745 41 34 BSIZ2E EQU 505 SIZE OF OUTPUT BUFX FOR OUTPUT OVERFLOW 41 35 NU EQU IT 41 36 * MACRO *SCHUIF CONTAINS SCHUIF,GARBAG,MOVER. 41 37 MACRO *SCHUIF 41 38 VFD 36/6HNUMERH,24/0 41 39 NUMERH BSS 1 NUMERH(Y1,Y2,IEXP,BDOUB,B) 41 40 SA1 IY1 $ SB6 1 LEAVE A1,A2 UNCHANGED. 41 41 SA2 IY2 $ LX1 18 $ UX6 B7,X2 41 42 SB7 B7-60B $ AX1 18 $ LX1 7 41 43 PX1 B7,X1 $ SX6 45B $ NX3 B0,X2 + 41 44 FX2 X3+X1 $ DX1 X3+X1 $ PL X2,NU1 41 45 BX2 -X2 $ SX6 46B $ BX1 -X1 - 41 46 NU1 SA6 B $ SX7 55B BLANK 41 47 SA7 A6+B6 $ LX6 B0,X2 $ BX7 X1 $ UX4 B7,X2 41 48 SA4 =0.15051 $ NZ X3,NU2 X1=0.5*LOG(2) 41 49 MX6 59 $ BX7 -X7*X7 $ SA7 BDOUB ZERO 41 50 SA6 A1 $ MX6 0 $ SA7 A7+B6 $ SA6 A2 41 51 SA7 IEXP $ ZR B0,NUMERH 41 52 NU2 SA6 BDOUB $ SX5 B7+B7 $ SA7 A6+B6 41 53 SX5 X5+95 $ PX2 B0,X5 $ NX5 B0,X2 ESTIMATE POWER 41 54 FX6 X4*X5 $ AX5 59 $ SX2 B0-B6 $ BX1 X5*X2 OF TEN 41 55 UX7 B3,X6 $ LX5 B3,X7 $ SX7 292 41 56 IX6 X5+X1 $ SA6 IEXP $ IX2 X7-X6 41 57 * EXPONENTS BETWEEN 293 AND 322 EXISTS. BETWEEN -293 AND -322 DO NOT. 41 58 * ROUTINE .NUMBER. COMPUTES 10**-IEXP WHAT WOULD LEAD TO UNDERFLOW. 41 59 + MX6 0 $ PL X2,*+1 $ SA7 A6 41 60 + SA5 BDOUB $ SA3 A5+B6 $ UX4 B7,X5 CHECK IF INT. 41 61 LX3 12 $ AX3 33 $ PL B7,NU3 SECOND WORD MUST BE 41 62 NZ X3,NU3 $ SX0 B6 $ BX1 X3*X0 ALL 0 OR 1 TILL 41 63 + IX4 X4+X1 $ LX7 B7,X4 $ AX1 B7,X7 $ IX4 X1-X4 BIT 75 41 64 + NZ X4,NU3 $ MX6 59 $ SA7 A2 41 65 NU3 SA6 A1 $ ZR B0,NUMERH 41 66 * TAKE UNBIASED VALUE OF EXPON OF ABS(FL.POINT NR). IF FL.POINT NR = 0 41 67 * THEN EXPON=-1000+47. 41 68 LOG2 BSS 1 LOG2(X) 41 69 + SA1 X1 $ PL X1,*+1 $ BX1 -X1 41 70 + NX1 B0,X1 $ SB3 -1000 41 71 + ZR X1,*+1 $ UX3 B3,X1 41 72 + SX6 B3+47 $ ZR B0,LOG2 41 73 * FIND HIGHEST POWER OF 2 IN INTEGER. MAKE POSITIVE. IF NR LT 48 BITS, 41 74 * VIA PACK,NORMALIZE,UNPACK. ELSE COUNT SHIFTS TILL LEADING BIT NZ. 41 75 LOG2I BSS 1 LOG2I(NX) 41 76 + SA1 X1 $ PL X1,*+1 $ BX1 -X1 41 77 + MX0 12 $ BX2 X0*X1 $ ZR X2,TW3 41 78 SX6 59 41 79 + LX1 1 $ SX6 X6-1 41 80 PL X1,*-1 $ ZR B0,LOG2I 41 81 TW3 PX2 B0,X1 $ NX3 B0,X2 $ UX1 B3,X3 41 82 SX6 B3+47 $ ZR B0,LOG2I 41 83 GFO1 ERROR 23 REARRANGEMENT ERROR 41 84 END 42 0 IDENT SCHRYF 42 1 ENTRY SCHRYF 42 2 MACRO *EXPAND 42 3 MACRO *EXPRNR 42 4 MACRO *UIT 42 5 LENGT1 EQU 13 IS MAX LENGTH OF PRINT LINE 42 6 * IT23(512) IS YEP BUFFER 42 7 IT12 EQU IT23 INPUT BUFFER FOR OVERFLOW TERMS 42 8 CBUF1 EQU IT23 BUFFER FOR TAPE UPDATING 42 9 BSIZ1E EQU 495 BUFFER SIZE FOR TAPE OPERATIONS 42 10 BSIZE1 VFD 60/BSIZ1E 42 11 EXT TAKMAN,SCHUIF,SCHUI2,GARBAG,LIJN,NUMBER,FOUT,STATS 42 12 EXT TAXMAN,NUMERH,NUTRA0,NUM1 42 13 SCHRYF BSS 1 42 14 SX4 A0 $ MX7 42 $ SA3 SCHRYF 42 15 BX7 -X7*X4 $ SX5 5100B $ BX7 X7+X3 A0 STUFF 42 16 LX5 18 $ BX7 X5+X7 $ SX6 B0 $ LX7 30 42 17 SA6 NORPR1 $ SA7 SCHRYF 42 18 SA1 ISPLAY $ SX7 110 FIX LIMELIMIT 42 19 + ZR X1,*+1 $ SX7 65 =NR OF CHARACTERS ON PRINTLINE 42 20 + SA7 LLIM1 $ RJ INNAM 42 21 SB6 1 $ ZR B0,SYF8 42 22 MACRO *INNAM 42 23 DO77 VFD 24/4H/DO/,36/000000422000B 42 24 BLK77 VFD 30/5HBLOK/,30/0000422000B 42 25 DOMOV1 BSS 1 42 26 SX0 X1 $ LX1 18 $ ZR X0,DOMOV1 42 27 SX5 X1 $ MX6 1 $ NZ X5,DO2 42 28 MX5 30 $ LX6 14 $ SA4 NXEX SET KEEP BIT FOR DOCYCLE 42 29 SA3 X4+NXGEH-1 $ BX2 X5*X2 $ SB1 X4 42 30 + BX0 X5*X3 $ IX0 X0-X2 $ ZR X0,*+3 42 31 + SA3 A3-B6 $ SB1 B1-B6 $ LT B0,B1,*-1 42 32 FFO2 ERROR 172 BLOCK,DOLOOP LOST OVER * 42 33 + BX6 X3+X6 $ SA6 A3 $ ZR B0,DOMOV1 42 34 DO2 MX5 58 $ SX7 X0 $ IX1 X1+X5 $ IX0 X0-X5 INSERT DOCYCLE 42 35 LX6 55 $ SA7 A1 $ SA3 MTAB+9 AS KEEP FILE 42 36 BX6 X1+X6 $ SX7 X3+B6 $ SA4 MTAB+18 FILE BIT IN LOC 42 37 LX6 24 $ SA7 A3 $ BX6 X6+X0 $ BX7 X3+X2 42 38 SA6 X3+LOC-1 $ SA7 X4+NXGEH 42 39 SX6 X4+B6 $ SA6 A4 $ ZR B0,DOMOV1 42 40 SYF8 SA1 NSPEC $ SA5 NSUBS 42 41 BX7 -X7*X7 $ MX6 59 $ SA7 TUS 42 42 + NZ X5,*+1 $ SA7 JEERST 42 43 + SX3 X1-STARYEP $ SA2 MTAB+18 42 44 ZR X3,JEP1 $ BX6 X2 $ NO JP IF * YEP 42 45 SX3 X1-STAREND $ ZR X3,END1 42 46 SX1 X1-STARNEX $ SA6 NXEX UPDATE NXEX 42 47 ZR X1,SYF9 $ SA3 A2-B6 $ SB1 X2 JP IF * NEXT 42 48 SX0 20000B $ SA0 NXGEH REMOVE KEEP BITS IN NXGEH 42 49 + SB2 X3 $ NO $ GE B2,B1,*+2 42 50 + SA1 A0+B2 $ SB2 B2+B6 $ BX7 -X0*X1 $ SA7 A1 AND FILN1 42 51 + LT B2,B1,*-1 $ SA5 N5PS 42 52 SA4 FILN1 $ SB2 B0 $ SB1 X5 NO INTERFERENCE WITH FILE 42 53 + ZR X5,*+2 $ BX7 -X0*X4 $ SA7 A4 ARGUMENTS 42 54 + SB2 B2+B6 $ SA4 A4+B6 $ LT B2,B1,*-1 42 55 SYF9 SA1 DOVLAG $ SA2 DO77 42 56 RJ DOMOV1 42 57 SA1 BLOKPT $ SA2 BLK77 42 58 RJ DOMOV1 42 59 SB2 B6 $ NO $ NO $ NO 42 60 SYF10 SA1 B2+NXGEH-1 $ SX2 74000B 42 61 SB2 B2+B6 42 62 SA3 NXEX $ BX6 -X2*X1 $ SB5 X1 42 63 PL B5,SYF12A $ SX7 220000B KEEP IF X-EXPRESSION 42 64 MX0 52 $ BX7 X1*X7 $ ZR X7,SYF12 DELETE IF NOT KEEP, COMMON 42 65 SA2 N5PS $ LX1 49 $ SB7 X2 SEARCH NEW PRODUCTIONS 42 66 MX2 30 $ NG X1,SYF11A $ MX2 42 JP IF NOT INDEXED 42 67 SYF11A LX1 11 $ SA4 FILN1 $ BX5 X2*X1 42 68 SYF11B BX4 X2*X4 $ BX7 X5-X4 $ ZR B7,SYF12A 42 69 SB7 B7-B6 $ SA4 A4+B6 $ NZ X7,SYF11B DELETE IF FOUND 42 70 SYF12 BX0 -X0*X1 $ MX6 0 $ SA4 X0+LOC-1 DELETE. SET LOC TO 0. 42 71 SA5 TUS $ LX4 42 $ BX7 X4+X5 NAME IF NOT COMMON 42 72 ZR X0,SYF12B $ SA6 A4 $ SA7 A5 SET NAME ZERO IF NOT COMMON 42 73 SYF12B BX4 X1 $ NO $ LX4 43 42 74 PL X4,SYF12A $ MX0 52 $ BX6 X0*X1 JP IF NOT COMMON 42 75 SYF12A SB4 X3 $ SA6 A1 $ GE B4,B2,SYF10 42 76 SA1 MTAB+17 $ SA3 A1+B6 $ SB1 X1 A1=NXGEH TAKE 42 77 SB2 X3 $ SA1 B1+NXGEH-1 $ MX0 52 B1=NXGEH PUT 42 78 SB3 LOC-1 $ GE B1,B2,SYF16 B2=NXGEH LIMIT 42 79 SYF13 SA1 A1+B6 $ SB5 NXGEH-2 $ BX2 -X0*X1 42 80 ZR X1,SYF15 $ ZR X2,SYF14A 42 81 SA3 X2+B3 $ MX6 0 $ SB4 B6 $ SA6 A3 42 82 SYF14 SA4 B3+B4 $ SB4 B4+B6 $ NZ X4,SYF14 SEARCH FREE LOC 42 83 BX7 X3 $ SX2 B4-B6 $ BX1 X0*X1 $ SA7 A4 42 84 SYF14A BX6 X1+X2 $ SA6 B1+NXGEH $ SB1 B1+B6 42 85 SYF15 SB5 A1-B5 $ GE B2,B5,SYF13 42 86 SYF16 SA1 MTAB+9 $ SX6 B1 $ SB2 X1 42 87 SYF17 SB2 B2-B6 $ SA2 B2+B3 $ ZR X2,SYF17 UPDATE MBU 42 88 SX7 B2+B6 $ SB4 B2+B6 $ SA6 NXEX 42 89 SA7 MBU $ SB2 377777B B1=MBE, B2=LOWEST ABOVE B1 42 90 SA1 MTAB+1 $ SB3 B6 $ SB1 X1 42 91 SYF18 SA1 B3+LOC-1 $ SB3 B3+B6 $ MX6 18 42 92 BX7 -X6*X1 $ BX6 X1 $ LX1 41 $ SA7 A1 REMOVE KEY ADDR,LOC NAME 42 93 LT B4,B3,SYF19 $ PL X1,SYF18 42 94 LX1 1 $ NG X1,SYF18 $ SA6 A1 JP IF TAPE,RESTORE LOCATION NAME 42 95 LX1 54 $ SB5 X1 $ EQ B5,B6,SYF18 JP IF NUMERICAL FILE 42 96 LX1 42 $ SB5 X1 $ SX6 B5-B1 $ SX7 B5-B2 B5=ADDRESS FILE 42 97 BX6 -X6*X7 $ PL X6,SYF18 $ SB2 B5 JP IF OUTSIDE B1-B2 42 98 SA0 A1 $ LT B3,B4,SYF18 REMEMBER LOC IN A0 42 99 SYF19 SX6 B2-377777B $ ZR X6,SYF22 JP IF ALL DONE 42 100 SA1 A0 $ LT B1,B2,SYF20 $ SB7 X1 JP IF PLACES FREE 42 101 LX1 36 $ SB1 X1+B7 $ SB2 377777B UPDATE B1=MBE 42 102 SB3 B6 $ ZR B0,SYF18 TO TOP LOWEST FILE 42 103 SYF20 SB7 B2-B1 $ MX0 24 $ SB5 X1 $ LX1 18 B5=ADDR VECT START 42 104 SB3 X1 $ BX0 X0*X1 $ SX6 B5-B7 $ SX7 B3-B7 B3=ADDR NAME 42 105 LX6 18 $ BX0 X0+X6 $ BX7 X0+X7 $ LX7 42 B7=FREE PLACES 42 106 LX0 18 $ SB5 X0+B5 $ SA7 A0 $ SB1 B5-B7 X0=NR OF WORDS 42 107 SYF21 SA5 B3 $ SB3 B3+B6 $ BX6 X5 $ SA6 A5-B7 NOW B5=LIMIT, 42 108 GE B5,B3,SYF21 $ SB2 377777B B1=B5-B7=NEW MBE 42 109 SB3 B6 $ ZR B0,SYF18 42 110 SYF22 SA1 TUS $ SX6 B1 42 111 SA6 MTAB+2 $ SA6 MBE 42 112 PL X1,SYF30 $ RJ UPDAT 42 113 ZR B0,SYF30 42 114 * 42 115 MACRO *UPDAT 42 116 SYF30 SA1 N5PS $ SA2 FILN1 HANDLE NEW FILES 42 117 SX7 20000B $ MX6 0 $ SB1 X1 KEEP BIT 42 118 SYF31 BX5 X7*X2 $ SB1 B1-B6 $ BX6 X6+X5 $ SA2 A2+B6 42 119 LT B0,B1,SYF31 $ SA6 NINX NOTE IF ANY TO KEEP 42 120 RJ TERMI 42 121 SA1 JEERST $ MX6 1 $ BX6 X1+X6 42 122 SA6 NURI $ RJ DORIS PRINT NORMAL OUTPUT 42 123 SYF32 SA1 NURI $ SA2 N5PS 42 124 MX0 1 $ LX1 12 $ SB2 X2 $ LX0 18 42 125 MX3 49 $ BX3 -X3*X1 $ SB1 X3 42 126 SYF33 SA3 B1+FILN1 $ SB1 B1+B6 $ BX7 X0*X3 42 127 LT B2,B1,SYF40 $ ZR X7,SYF33 JP IF NOT FILE 42 128 SX6 B1+4000B $ MX7 48 $ BX1 X7*X1 42 129 BX6 X1+X6 $ LX1 B0,X3 $ LX3 43 $ LX6 48 42 130 SA6 A1 $ NG X3,SYF34 $ LX3 3 JP IF COMMON 42 131 PL X3,SYF32 JP IF NOT KEEP 42 132 SYF34 RJ MSTAT1 42 133 EQ B7,B6,SYF32 $ NG B7,SYF35 JP IF NUM FILE,IF FITS NOT IN M 42 134 SA3 NURI $ SA1 MBE 42 135 LX3 12 $ MX0 49 $ BX3 -X0*X3 $ SA0 X1 42 136 SA3 X3+FILN1-1 $ LX3 43 42 137 NG X3,SYF35 $ RJ REFER JP IF COMMON 42 138 + SA1 NURI $ SX7 A0+B7 $ LX2 B6,X1 42 139 SA3 NXEX $ SA4 MBU 42 140 AX2 49 $ SA5 X2+FILN1-1 $ SX6 A0 42 141 SA1 =77777777777777702000B $ LX6 42 $ MX0 1 42 142 BX7 X6+X7 $ LX0 19 $ BX5 X1*X5 $ BX7 X0+X7 X0=FILE BIT 42 143 BX6 X5+X4 $ SA7 X4+LOC-1 42 144 SA6 X3+NXGEH $ SX7 X3+B6 $ SA7 A3 42 145 SX6 A0+B7 $ SA6 MBE $ SB2 X6 42 146 SB1 NTAP7 $ SA1 NDIMT 42 147 IX7 X1-X6 $ SA7 TUS1 $ SB3 A7 MBE POINTS BEHIND NAMELIST 42 148 RJ TAPEW COPY FROM NU TO IT. 42 149 + SA1 MBU $ SA2 MBE MBE POINTS BEHIND FILE 42 150 NZ X7,MFO1A $ SA3 X1+LOC-1 42 151 IX7 X2+X5 $ SX6 X1+B6 $ SA7 A2 $ SA6 A1 42 152 LX5 24 $ BX7 X3+X5 $ SA7 A3 42 153 ZR B0,SYF32 42 154 SYF35 SB1 NTAP7 $ SB3 TUS3 42 155 SB4 =-4 $ RJ TAKMAN REQUEST RECORD NUMBER 42 156 + SA0 CBUF1+3 $ RJ REFER 42 157 SX7 B7 $ SA7 TUS 42 158 WRITE. NTAP7,TUS,CBUF1 42 159 SX6 B6 $ SA6 TUS2 42 160 SYF36 SB1 NTAP7 $ SB2 CBUF1+3 42 161 SB3 BSIZE1 $ RJ TAPEW 42 162 SA6 TUS1 $ NZ X7,SYF37 42 163 RJ TAKMAN 42 164 + SB6 1 $ SX7 B6 42 165 SYF37 SA1 TUS2 $ SA2 TUS1 42 166 IX7 X1+X7 $ SA7 A1 $ NZ X2,SYF38 42 167 RJ FEEDIN 42 168 RJ DORIS 42 169 + SA1 NXEX $ SB6 1 42 170 BX6 -X1 $ SA6 A1 $ RJ MSTAT1 42 171 + SA1 NXEX $ BX6 -X1 $ SA6 A1 42 172 ZR B0,SYF36 42 173 SYF38 RJ COSEA1 A3=NXGEH, A4=FILN1 LOCATIONS 42 174 SA1 TUS2 $ SA2 TUS3 42 175 SA3 A3+B0 $ SA4 A4+B0 $ LX1 24 $ MX0 52 42 176 SA5 MBU $ BX6 -X0*X3 $ SX7 X5+B6 42 177 NZ X6,SYF38A $ BX6 X5 $ SA7 A5 42 178 SYF38A BX7 X1+X2 $ MX0 2 $ SA1 =77777777777777702000B 42 179 BX5 X6 $ SX2 B6 $ BX6 X1*X4 $ LX4 43 ADD EVT COMMON 42 180 PL X4,SYF39 $ BX0 X2+X0 BIT TO LOC 42 181 SYF39 BX6 X5+X6 $ LX0 19 $ BX7 X0+X7 $ SA6 A3 42 182 SA7 X5+LOC-1 $ ZR B0,SYF32 42 183 SYF40 SA1 NXEX $ SA2 MBU DEAL WITH FILES WHICH ARE IN 42 184 SA3 MBE $ BX6 X1 $ LX7 B0,X2 FILN1 BEHIND LAST COMMON OR 42 185 SA6 MTAB+18 $ SA7 MTAB+9 KEEP FILE. 42 186 BX6 X3 $ SA6 MTAB+2 42 187 SA7 MTAB+10 $ SA6 MTAB+4 42 188 SYF41 SA1 NSUM $ ZR X1,SYF42 42 189 RJ FEEDIN 42 190 RJ DORIS 42 191 ZR B0,SYF41 42 192 SYF42 SA4 MTAB+1 $ SA5 MTAB+6 42 193 SA3 MBE $ SA2 NDIMT 42 194 IX7 X5-X4 $ IX6 X3+X7 $ IX0 X2-X6 42 195 NG X0,SCHRYF $ SA6 A2 42 196 ZR B0,SCHRYF 42 197 MFO1A ERROR 98 INCONSISTENCIES 42 198 JEP1 RJ TERMI 42 199 + SA3 NCONT $ SA2 NCONT+3 42 200 SA4 A3+1 $ BX5 X2+X3 $ BX6 X5+X4 42 201 SA6 DCONT1+2 $ NO $ NO 42 202 JEP2 SA1 DCONT1+2 $ NO $ NO 42 203 ZR X1,JEP3 $ RJ DORIS 42 204 JEP3 SB1 NTAP6 $ SB2 IT23 42 205 SB3 BSIZE1 $ RJ TAPEW 42 206 NZ X6,SCHRYF $ RJ FEEDIN 42 207 ZR B0,JEP2 42 208 END1 RJ TERMI INITIALIZE. CASE OF * END . 42 209 END2 RJ DORIS 42 210 SA1 NSUM $ ZR X1,SCHRYF 42 211 RJ FEEDIN 42 212 ZR B0,END2 42 213 DORIS BSS 1 42 214 SA1 N5PS $ ZR X1,DORIS 42 215 SB1 B0 $ RJ S1NEWL 42 216 SA1 JEERST $ MX7 0 $ BX6 X1 NREM=LOC NEXT VECTOR 42 217 SA7 BRAKOP $ SA7 BRAKCL NFOL=LOC NEXT ALGEBRA 42 218 SA6 NREM $ SA7 NFIRST NPA=NR OF WORDS IN VECT,ALGB EXPR 42 219 S1NEWV SA1 BRAKCL $ MX6 0 $ SA6 A1 42 220 * START NEW VECTOR 42 221 ZR X1,S3IKW $ SX7 55B 42 222 SX6 BC0 $ SA7 B1+BC1-1 42 223 SA6 B1+BC1 $ SB1 B1+2 42 224 S3IKW SA1 NREM $ SA2 NSUM 42 225 SB6 1 $ BX4 X1+X2 42 226 SA3 NORPR1 $ ZR X4,ARL1 42 227 ZR X1,ARL5 $ NO 42 228 SA2 X1+NU $ MX0 49 $ AX2 36 42 229 BX7 -X0*X2 $ IX4 X3-X7 $ ZR X4,ARL4 JP = PRINT VECTOR 42 230 ARL1 SA4 N5PS $ SB4 X3+B6 $ SB3 X4 START NEW Z EXPRESSION 42 231 ARL2 SA1 B4+FILN1-1 $ LT B3,B4,ARL5 JP IF ALL DONE 42 232 LX1 42 $ SB4 B4+B6 $ PL X1,ARL2 42 233 SX7 B4-B6 $ SB2 A1 $ SA7 NORPR1 42 234 RJ S1NEWL 42 235 SB3 1 $ RJ S1NEWL 42 236 SB6 B3 $ SA0 B2 $ RJ ARGL1 GO PRINT ARGUMENT LIST 42 237 SA1 NREM $ SA3 NORPR1 42 238 NZ X7,ARL2B $ SB1 5 42 239 ARL2C ZR X1,DORIS $ NO $ NO 42 240 SA2 X1+NU $ SA4 X1+NU-1 42 241 AX2 36 $ MX0 49 $ BX5 -X0*X2 $ IX6 X3-X5 42 242 AX4 30 $ NZ X6,S1NEWV $ BX6 X4 42 243 LX1 B0,X4 $ SA6 A1 $ ZR B0,ARL2C 42 244 ARL2B SX6 ZE0 $ ZR X1,ARL2A 42 245 SA2 X1+NU $ MX0 49 $ AX2 36 42 246 BX7 -X0*X2 $ IX4 X3-X7 $ ZR X4,ARL6 42 247 ARL3 SX7 PO0 $ SA6 A7+B6 $ SA7 A6+B6 42 248 SX0 A7 $ SX1 BC1-2 $ IX6 X0-X1 42 249 SB1 X6 $ ZR B0,S3IKW 42 250 ARL4 RJ S1NEWL 42 251 ZR B0,ARL8 42 252 ARL5 SX7 BL0 $ SA7 B1+BC1-1 42 253 SB1 B1+1 $ ZR B0,AR1 42 254 ARL2A SA1 NSUM $ ZR X1,ARL3 42 255 SX0 A7 $ SX1 BC1-2 $ IX6 X0-X1 42 256 SB1 X6 $ RJ S1NEWL 42 257 ZR B0,AR1 42 258 ARL6 SX0 A7 $ SX1 BC1-2 $ IX6 X0-X1 42 259 SA2 NORPR1 $ SA4 X2+VOLUM-1 42 260 SX7 X6-50 $ SX5 X4-18 42 261 BX7 X7*X5 $ SB1 X6 $ NG X7,ARL7 ONE LINE IF POSSIBLE 42 262 ARL8 RJ S1NEWL 42 263 ARL7 SA1 NREM $ ZR X1,AR1 JP IF ALL DONE 42 264 SA2 X1+NU $ SB2 X1 $ BX6 X2 42 265 SA3 A2-1 $ LX6 1 $ MX0 24 42 266 AX6 49 $ BX0 -X0*X2 $ MX4 30 $ BX7 -X4*X3 42 267 SA6 NPA $ SA7 NFOL 42 268 + NZ X0,*+3 $ BX6 X4*X3 $ MX7 0 JP IF SOMETHING IN VECTOR 42 269 + LX6 30 $ NO $ SA6 NREM PART 42 270 + SA7 BRAKOP $ ZR B0,S1A JP TO NEXT ALGEBRA 42 271 + SA2 IREG $ SX6 4 **NEXT VECTOR********** 42 272 MX3 58 $ NO $ SA6 BRAKOP TEST ON REQUEST TO PUNCH R CARD 42 273 + IX3 X2+X3 $ ZR X3,*+1 $ SA6 A2 JP IF ARG LIST NOT YET PRINT 42 274 + SB2 X7 $ MX0 18 $ SA1 B2+NU-1 42 275 SA2 B2+NU+1 $ MX3 12 $ BX6 X1 42 276 BX4 X0*X1 $ SA6 IY1 $ BX7 -X3*X2 42 277 NZ X4,S35YW2 $ NZ X7,S35YW2 42 278 SX7 2 $ SA7 IND 42 279 SA5 B2+NU $ BX6 X5 42 280 SA6 IY2 $ RJ S1NUMB 42 281 + SA1 B2+NU $ SA2 =1. 42 282 NX1 B0,X1 $ NO $ NO $ NO IN ORDER NOT TO SKIP COEF WITH 42 283 * LARGE EXP , BUT ZERO MANTISSA 42 284 + MX6 0 $ PL X1,*+1 $ BX1 -X1 42 285 + FX3 X1-X2 $ SX7 61B $ NX4 B6,X3 INSPECT IF NUMERICAL IS +-1. 42 286 SB3 47 $ SA7 NFIRST 42 287 + ZR X3,*+1 $ LT B6,B3,*+2 42 288 + SA6 NFIRST $ SB1 B1-2 NO NEED TO WRITE 1.0 42 289 + SA1 NREM $ MX0 30 $ SX6 B0 42 290 SA2 X1+NU-1 $ SB2 X1 $ LX2 30 42 291 BX7 -X0*X2 $ SA6 NFOL $ SA7 A1 42 292 SA6 BRAKOP $ JP S3BC 42 293 S35YW2 SX6 45B $ SX7 55B WRITE+BLANK 42 294 MX0 30 $ SA6 B1+BC1-1 $ NO 42 295 MX6 0 $ NO $ SA6 NFIRST 42 296 SA7 B1+BC1 $ SA1 NREM NREM=ADDRESS OF NEXT VECTOR 42 297 SB1 B1+2 $ SA2 X1+NU-1 42 298 SB2 X1 $ LX2 30 $ BX6 -X0*X2 $ SA6 A1 42 299 S3BC SA1 NPA $ ZR X1,S1A 42 300 SA5 LLIM1 $ SB2 B2+1 42 301 SB3 X1+B2 $ SB4 X5 $ SB5 36 42 302 S1BE GE B4,B1,*+1 $ RJ S3NEWL B1=LINE COUNT 42 303 + RJ TRANSL1 42 304 + SA3 NFIRST $ NO $ NO 42 305 + BX1 X7*X1 $ SA7 A3 $ ZR X3,S2BEA B3=NU COUNT LIMIT 42 306 SX3 B7 $ LX3 8 $ BX3 X3+X4 42 307 SX3 X3-1421B $ ZR X3,S2BEA 42 308 SX6 47B $ SA6 B1+BC1-1 B4=LINE COUNT LIMIT 42 309 SB1 B1+1 B5=NU SHIFT COUNT 42 310 S2BEA RJ INZET1 42 311 + SB6 B7-2 $ SB7 B7-6 42 312 ZR B6,S2BVE $ ZR B7,S2FU7 EVERYTHING EXCEPT VECTOR OR 42 313 SB6 B6-1 $ ZR B6,S1OPS OPERATOR OR 42 314 RJ TRANSL1 FUNCTION IS FOLLOWED BY 42 315 + BX1 X7*X1 $ SB6 X4-1 $ NO 42 316 NG X4,S3EXP1 $ ZR B6,S1BE EXPONENT 42 317 SX6 AS0 $ NO $ NO DONT WRITE EXPONENT +1 42 318 SA6 B1+BC1-1 $ SA6 B1+BC1 42 319 SB1 B1+2 $ RJ INZET1 42 320 + JP S1BE 42 321 S1OPS SX7 X4-20B $ SA7 NFIRST NO * AFTER CONJG*( 42 322 JP S1BE 42 323 S3EXP1 SX6 47B $ SX7 51B ( .ENCLOSE NEGATIVE EXPONENT 42 324 SA6 B1+BC1-1 $ SA7 B1+BC1+1 IN BRACKETS 42 325 SA6 B1+BC1 $ SX7 46B - 42 326 SB1 B1+4 $ SA7 B1+BC1-2 42 327 RJ INZET1 42 328 + SX6 52B $ SA6 B1+BC1-1 ) 42 329 SB1 B1+1 $ JP S1BE 42 330 S2BVE SX6 51B $ SA6 B1+BC1-1 ( .INSIDE A FUNCTION SYMBOLS 42 331 SB1 B1+1 $ RJ TRANSL1 ARE SEPARATED BY COMMAS 42 332 + BX1 X7*X1 $ RJ INZET1 NO EXPONENTS, NO VECTOR- 42 333 + SX6 52B $ SA6 B1+BC1-1 ) .INDICES. 42 334 SB1 B1+1 $ JP S1BE 42 335 S2FU7 SX6 51B $ SB4 LLIM1 42 336 SA6 B1+BC1-1 $ SX5 X4-21B SPECIAL FUNCTION DF 42 337 SB1 B1+1 $ NZ X5,BU5KE 42 338 SB7 24 $ MX5 52 $ BX6 -X6*X6 42 339 DFF1A RJ NEXS1 TREATMENT OF DF 42 340 BX7 -X5*X1 $ LX7 B7,X7 $ SB7 B7-8 42 341 BX6 X6+X7 $ GE B7,B0,DFF1A $ LX6 28 42 342 BX1 X6 $ RJ INZET1 42 343 RJ NEXS1 42 344 BX6 -X5*X1 $ LX6 8 $ RJ NEXS1 42 345 BX1 -X5*X1 $ BX2 X6+X1 $ SX6 CO0 42 346 BX5 -X5*X5 $ RJ NUM1 42 347 SA6 B1+BC1-1 $ SB1 B1+1 42 348 BX1 X5 $ MX7 54 $ ZR B0,DFF2A 42 349 S4FU7 SA6 B1+BC1-1 $ SB1 B1+1 MAY GO TO 100 CHARACTERS 42 350 BU5KE RJ TRANSL1 42 351 DFF2A BX1 X7*X1 42 352 + SB7 B7-6 $ NZ B7,S3FU7 TERMINATE THE FUNCTION IF 42 353 NZ X4,S3FU7 $ SX6 52B ). FUNCTION-HEAD WITH ZERO NAME 42 354 SA1 B1+BC1-2 $ SX4 X1-51B ( 42 355 + NZ X4,*+2 $ SB1 B1-1 IS ENCOUNTERED 42 356 + ZR B0,*+2 42 357 + SA6 B1+BC1-2 $ NO $ NO 42 358 + SA4 LLIM1 $ SB4 X4-20 MAKE LINELIMIT SHORTER 42 359 JP S1BE RESTORE LINE LIMIT TO 90 42 360 S3FU7 SB7 B7-1 $ NZ B7,BU3KE 42 361 PL X4,BU3KE $ SX6 46B 42 362 SA6 B1+BC1-1 $ SB1 B1+1 42 363 BU3KE RJ INZET1 CHARF1 IS DEFINED IN MACRO TRANSL. 42 364 + SA2 CHARF1 $ NZ X2,BU5KE NO , NEEDED FOR =CHAR 42 365 + SX6 56B $ GE B4,B1,S4FU7 , 42 366 RJ S1NEWL 42 367 + SX6 56B $ JP S4FU7 , 42 368 BU4KE RJ INZET1 42 369 + GE B4,B1,BU5KE $ RJ S1NEWL 42 370 + JP BU5KE NO , IF OPERATOR 42 371 * START NEW ALGEBRA 42 372 S1A SA1 NFOL $ SA2 BRAKOP 42 373 ZR X1,S1NEWV $ ZR X2,S3A3B5 IF NO NEXT ALGEBRA, TAKE NEXT 42 374 MX6 0 $ SA6 A2 $ RJ S1NEWL VECTOR. IF FIRST ALGEBRA WRITE 42 375 + SX7 47B $ SX6 55B * BL ( BL 42 376 SA7 B1+BC1-1 $ SA6 B1+BC1 42 377 SX7 51B $ SA6 BRAKCL 42 378 SA7 B1+BC1+1 $ SX2 1 X2=MARKER FOR + SUPPRESSING 42 379 SB1 B1+3 $ NO $ NO 42 380 S3A3B5 SA1 LLIM1 $ NO $ SB4 X1 42 381 + GE B4,B1,*+2 $ RJ S1NEWL 42 382 + SX2 B0 42 383 + SA1 NFOL $ SA3 LLIM1 42 384 NO $ SB4 X3-20 $ NO 42 385 SA3 X1+NU+1 $ MX0 53 $ SB2 X1 EXTRACT NR. OF WORDS NEXT 42 386 LX3 12 $ BX7 -X0*X3 $ SA5 B2+NU-1 42 387 + AX3 12 $ NZ X3,*+1 $ MX7 0 42 388 + SA4 B2+NU $ BX6 X5 42 389 + SA7 NPA $ BX7 X4 $ AX4 59 42 390 SA6 IY1 $ SX6 2 SET + SUPPRES. NEVER - SUPPRESS 42 391 + ZR X2,*+1 $ BX6 X4*X6 $ NO 42 392 + SA7 IY2 $ SA6 IND 42 393 MX6 59 $ NO $ SA6 NFIRST 42 394 BX6 X5 $ SX7 55B $ AX6 42 42 395 SA7 B1+BC1-1 $ SA6 NFOL 42 396 SB1 B1+1 $ RJ S1NUMB 42 397 + SA1 B2+NU $ SA2 =1. 42 398 + NX1 B0,X1 $ PL X1,*+1 $ BX1 -X1 42 399 + FX3 X1-X2 $ SA5 NPA $ NX4 B6,X3 SEE IF NUMERICAL IS 1. 42 400 SB3 47 $ LT B6,B3,S2VE2S JP IF NOT 1 42 401 ZR X5,S2VE2S $ SX6 0 ERASE 1. 42 402 SB1 B1-2 $ SA6 NFIRST 42 403 S2VE2S SA1 NPA $ ZR X1,S1A 42 404 SA5 LLIM1 $ SB2 B2+2 42 405 SB3 X1+B2 $ SB4 X5 $ SB5 48 42 406 ZR B0,S1BE 42 407 AR1 SA1 NRECOR $ SX6 55B BLA .JP IF STILL TERMS ON TAPE 42 408 SX7 45B $ NZ X1,S77AR7 + .OTHERWISE WRITE +0. AND 42 409 SA6 B1+BC1-1 $ SA7 B1+BC1 TERMINATE 42 410 SX6 33B $ SX7 57B 0. 42 411 SA6 B1+BC1+1 $ SA7 B1+BC1+2 42 412 SB1 B1+4 42 413 S77AR7 RJ S1NEWL 42 414 SA1 NRECOR $ SX7 4 42 415 + NZ X1,*+1 $ SA7 IREG FORCE PUNCHING OF LAST CARD 42 416 + RJ S1NEWL 42 417 SB6 1 $ ZR B0,DORIS 42 418 S3NEWL BSS 1 42 419 + SA5 S3NEWL $ SB6 B5 $ SB7 B2 42 420 SA4 NFOL $ BX6 X5 WRITE ) IF NO FURTER FACTOR, AND 42 421 SA3 BRAKCL $ SA6 S1NEWL NO FURTHER TERM (NFOL=0), AND 42 422 LT B0,B6,TR2NE3 $ SB7 B7+1 INITIAL BRACKET WAS WRITTEN 42 423 SB6 60 $ GE B7,B3,EIND4 (NSL+7 NON ZERO) 42 424 TR2NE3 SA1 B7+NU-1 $ SB6 B6-12 42 425 MX0 48 $ AX1 B6,X1 $ BX1 -X0*X1 $ BX4 X1+X4 42 426 EIND4 NZ X4,S1NEWL+1 $ ZR X3,S1NEWL+1 42 427 MX7 0 $ SX6 52B $ SA7 A3 ) 42 428 SA6 B1+BC1-1 $ SB1 B1+1 42 429 JP S1NEWL+1 42 430 S1NEWL BSS 1 42 431 + SX6 B1 $ SX7 B2 $ SA6 IERIC LINE OUTPUT. B1 CONTAINS NR. 42 432 SA7 B2HER $ SX6 B3 $ SX7 B4 OF CHARACTERS 42 433 SA6 B3HER $ SA7 B4HER 42 434 SX6 B5 $ SA6 B5HER 42 435 SB3 B1+2 $ SB2 1 $ SB4 54 42 436 + SA1 B2+BC1-1 $ SB2 B2+1 42 437 + LX6 B4,X1 $ SA6 A1 $ GE B3,B2,*-1 42 438 RJ OUTP 42 439 + SA1 B2HER $ SA2 B3HER 42 440 SA3 B4HER $ SA4 B5HER 42 441 SB2 X1 $ SB3 X2 $ SB4 X3 $ SB5 X4 42 442 SB7 5 $ SX7 BL0 42 443 + SA7 B7+BC1-1 $ SB7 B7-1 42 444 + LT B0,B7,*-1 $ SB1 5 42 445 ZR B0,S1NEWL 42 446 S1NUMB BSS 1 42 447 SX6 B1 $ SX7 B2 $ SA6 IERIC 42 448 SA7 B2HER $ SA1 NQU 42 449 BX6 X1 $ NO $ SA6 MIND 42 450 RJ NUMERH 42 451 SA0 MIND $ RJ NUMBER FORCE A0 POSITIVE 42 452 SA1 IERIC $ SA2 B2HER 42 453 SB1 X1 $ SB2 X2 $ SB6 1 42 454 SA3 LLIM1 $ SA1 IND 42 455 SB5 X3 $ SX7 B1-B5 $ NO $ IX6 X1+X7 42 456 + NG X6,*+1 $ RJ S1NEWL 42 457 + SA2 IND $ SB6 1 42 458 SA1 B $ SB7 X2 42 459 + BX6 X1 $ SA6 B1+BC1-1 $ SB7 B7-B6 42 460 + SB1 B1+B6 $ SA1 A1+B6 $ LT B0,B7,*-1 42 461 ZR B0,S1NUMB 42 462 NEXS1 BSS 1 OBTAIN NEXT SYMBOL 42 463 LT B0,B5,NEC2 $ SB2 B2+1 42 464 SB5 60 $ GE B2,B3,S1A 42 465 NEC2 SA1 B2 $ SB5 B5-12 $ MX0 48 42 466 AX1 B5,X1 $ BX1 -X0*X1 $ ZR B0,NEXS1 42 467 TRAN1SL SX4 X4-41B $ NG X4,TRANSL1 42 468 SA1 X4+NFGEH $ SB7 6 42 469 TRANSL1 BSS 1 TRANSLATION OF SYMBOL INTO BC 42 470 LT B0,B5,TRANS2 $ SB2 B2+1 CHARACTERS. THE RESULT IS IN 42 471 SB5 60 $ GE B2,B3,S1A X1, LEFT ADJUSTED. X7 GIVES 42 472 TRANS2 SA1 B2+NU-1 $ SB5 B5-12 MASK, 30 OR 36(FOR PP(13)) BITS 42 473 MX0 48 $ AX1 B5,X1 $ BX1 -X0*X1 $ MX0 52 HEAD IN B7 42 474 ZR X1,S1A $ BX4 -X0*X1 $ AX1 8 42 475 MX0 55 $ SB7 X1 $ SB6 KOHER-1 NAME IN X4 42 476 MX7 30 $ JP B7+S1BEB USES B6,B7,X0,X1,X4,X6,X7 42 477 S1BEB ZR X4,S1A $ ZR B0,FOSY1 42 478 MACRO *TRANS 42 479 INZET1 BSS 1 INSERT SYMBOL 42 480 + MX0 54 $ LX1 6 $ BX6 -X0*X1 $ BX1 X0*X1 42 481 ZR X6,INZET1 $ SX7 X6-55B 42 482 ZR X7,INZET1 42 483 INZET2 LX1 6 $ SA6 B1+BC1-1 $ BX6 -X0*X1 BC1 REGISTER 42 484 SX7 X6-55B $ SB1 B1+1 42 485 ZR X7,INZET1 $ NZ X6,INZET2 42 486 JP INZET1 42 487 FOSY1 ERROR 175 DUMMY IN OUTPUT 42 488 MACRO *WTAKM 42 489 * TERMI INITIALIZES NRECOR TO NTEMA AND NKLOPS TO NWOC. 42 490 * INTERCHANGES TAPE4 AND TAPE5. 42 491 TERMI BSS 1 42 492 SA1 NTEMA $ BX6 X1 42 493 + SA6 NRECOR $ ZR X1,*+3 42 494 + SA2 ZN2IND $ ZR X2,*+2 42 495 + RJ SCHUI2 42 496 + SA3 NWOC $ SA1 NTAP4 42 497 SA2 NTAP5 $ MX6 0 $ BX7 X3 42 498 SA6 NTEMA $ SA7 NKLOPS 42 499 BX6 X1 $ LX7 B0,X2 $ SA6 A2 $ SA7 A1 42 500 SA3 YEPFLAG $ SA4 NINX 42 501 NZ X3,TERMI $ ZR X4,TERMI 42 502 MX7 0 $ SA7 A4 $ RJ GARBAG 42 503 SA1 NSUBS $ SA2 MTAB+7 42 504 SA3 MTAB+6 $ SA4 NDIMT DETERMINE SHIFT UP 42 505 IX6 X1-X4 $ NO $ IX7 X2-X6 $ IX5 X2-X3 NEW NDIMT MAX. EQUAL 42 506 AX5 1 $ IX6 X3+X5 $ ZR X1,TER8 TO (MTAB(7)+MTAB(8))/2 42 507 IX0 X6-X7 $ NG X0,TER2 $ BX6 X7 X6=NEW NDIMT, X7=SHIFT UP 42 508 TER2 IX7 X6-X4 $ SB1 X7 $ SX5 X7-1400 42 509 NG X5,TERMI $ SA6 A4 $ SB2 X1 42 510 SB3 X4 $ SX7 X1+B1 $ SA7 A1 $ SB7 B6+B6 42 511 TER3 SA2 B2 $ SA3 B2-B6 $ SB2 B2-B7 $ BX6 X2 42 512 LX7 B0,X3 $ SA6 A2+B1 $ SA7 A3+B1 $ MX0 30 MOVE B1 PLACES UP 42 513 GE B2,B3,TER3 $ SA1 JEERST 42 514 MX3 18 $ SX6 X1+B1 $ SX4 X1+B1 $ MX1 1 SPECIAL BIT WHEN 42 515 BX6 X6+X1 $ NO $ SA6 A1 $ NO C OF OUTPUT IS SHIFTED UPWRD 42 516 TER4 SA1 X4 $ BX4 X0*X1 $ BX1 -X0*X1 $ LX4 30 ADJUST ADDRESSES 42 517 SX1 X1+B1 $ ZR X4,TER5 $ SX4 X4+B1 42 518 TER5 LX4 30 $ BX6 X1+X4 $ SA6 A1 $ LX4 30 42 519 TER6 SA5 X1 $ BX7 X3*X5 $ BX5 -X3*X5 $ LX7 18 42 520 ZR X7,TER7 $ SX7 X7+B1 $ LX7 42 42 521 TER7 BX6 X5+X7 $ SA6 A5 $ LX7 18 $ BX1 X7 42 522 NZ X7,TER6 $ NZ X4,TER4 42 523 ZR B0,TERMI 42 524 TER8 SA6 A4 $ ZR B0,TERMI NOTHING IN OUTPUT 42 525 *FEEDIN************ *FEEDIN****** 42 526 *FEEDIN FEEDS TERMS STORED ON TAPE BACK IN AGAIN. 42 527 * FEEDIN READS IN BUFFERS, UNPACKS THE TERMS TO NS,NSA AND CALLS SCHUIF 42 528 * FOR EACH TERM TILL END OF THE TAPE. 42 529 * REQUIRES TERMI TO BE CALLED BEFOREHAND IN ORDER TO INITIALIZE NRECOR 42 530 * AND NKLOPS. FEEDIN ITSELF CALLS TERMI TO INTERCHANGE TAPE4,TAPE5. 42 531 FEEDIN BSS 1 42 532 SA1 NRECOR $ SB6 1 42 533 MX2 59 $ IX7 X1+X2 $ ZR X1,FEEDIN 42 534 MX6 0 $ SA7 A1 $ SA6 NSUBS 42 535 FEE1A SB1 NTAP5 $ SB2 IT12-3 42 536 SB3 NWORDS $ SB4 =-1 READ NEXT BUFFER 42 537 RJ TAKMAN 42 538 SA1 NWORDS $ SB6 1 42 539 SA2 NKLOPS $ MX4 59 $ IX7 X2-X1 42 540 IX6 X1+X4 $ SA7 A2 $ SA6 A1 $ SB1 B0 X4=-1 (FOR FEE5) 42 541 FEE2 SA1 B1+IT12 $ SA2 NWORDS A2,X2=NWORDS 42 542 BX6 X1 $ SB1 B1+B6 $ ZR X2,FEE5 SCHUIF ACTING ON ALL TERMS OF 42 543 SA3 A1+B6 $ SA4 A3+B6 $ SB1 B1+B6 $ BX7 X3 42 544 SA6 IGET+1 $ SA7 A6+B6 $ LX6 B6,X4 42 545 MX0 49 $ AX6 49 $ SB2 NS-1 42 546 LX4 24 $ SA6 NP $ BX7 -X0*X4 42 547 SA7 NASFF $ SB3 X6+B2 $ IX7 X2-X6 42 548 + SA1 B1+IT12 $ BX6 X1 $ SB1 B1+B6 COPY 1 TERM FROM BUF TO NS 42 549 + SA6 B2+B6 $ SB2 B2+B6 $ LT B2,B3,*-1 42 550 SA3 A1+B6 $ SB2 NSA-1 $ SX5 B6+B6 42 551 LX4 B6,X3 $ AX4 49 $ IX0 X4+X5 $ SB3 X4+B2 42 552 + SA1 B1+IT12 $ BX6 X1 $ SB1 B1+B6 COPY 1 TERM FROM BUF TO NS 42 553 + SA6 B2+B6 $ SB2 B2+B6 $ LT B2,B3,*-1 42 554 BX6 X4 $ IX7 X7-X0 $ SA6 NA X7=NWORDS-NP-NA-2 42 555 SA7 A2 $ SX6 B1 $ SA6 B2HER 42 556 RJ SCHUIF 42 557 + SA1 NWORDS $ SA2 B2HER 42 558 SB6 1 $ MX4 59 $ SB1 X2 SET X4=-1 42 559 NG X1,FFO1 $ NZ X1,FEE2 42 560 FEE5 SA1 NRECOR $ SA2 NKLOPS 42 561 IX6 X1+X4 $ SA6 A1 $ NZ X1,FEE1A 42 562 NZ X2,FFO1 ALL OVERFLOW READ IN 42 563 REWS. NTAP5 42 564 RJ STATS 42 565 + SB6 1 $ RJ TERMI 42 566 SA1 NSUM $ ZR X1,FEEDIN 42 567 SB6 1 $ RJ GARBAG 42 568 SB6 1 $ NG X6,FEEDIN 42 569 SA1 NSUBS $ SA2 NDIMU 42 570 SA3 NDIMT $ IX4 X1-X3 $ IX5 X2-X1 42 571 IX6 X5-X4 $ NG X6,FEEDIN $ MX2 59 MAKE SURE THAT 42 572 SA1 NRECOR $ IX6 X1+X2 $ SA6 A1 THERE IS SOMTHING IN. 42 573 MX7 0 $ SA7 NSUM 42 574 ZR B0,FEE1A JP IF MORE THAN HALF FULL. 42 575 FFO1 ERROR 171 TAPE COUNT UNCHECK 42 576 *MSTAT1************* *MSTAT1****** 42 577 *MSTAT1 INVESTIGATES FILE SIZE AND AVAILABLE SPACE. 42 578 * WHEN THE FILE IS NOT ENTIRELY IN CORE,THE FILE IS READ FROM DISK 42 579 * AND THE CONTENT OF THE OUTPUT STORE IS PRINTED. 42 580 * LAST 18 BITS OF NURI ARE SET TO FILE START 42 581 * B7=1 NUMERICAL FILE, ALREADY TREATED 42 582 * IF NXEX IS NEGATIVE DO NOT TREAT NUMERICAL FILE 42 583 * B7=0 FITS IN MEMORY 42 584 * B7=-1 WRITE ON TAPE 42 585 MSTAT1 BSS 1 ASSUMES B6=1 42 586 MST1 SA1 NURI $ SA2 NSUM 42 587 MX0 49 $ LX1 12 $ BX6 -X0*X1 $ IX7 X2-X6 42 588 SA3 X6+VOLUM-1 $ ZR X2,MST2 X3=2*NR OF CODE WORDS 42 589 MST1A PL X7,MST9 $ RJ FEEDIN 42 590 RJ DORIS 42 591 ZR B0,MST1 42 592 MST2 SA3 X6+VOLUM-1 $ SB4 X3-9 ALL IN OUTPUT MEMORY 42 593 ZR X3,MST5 $ RJ MST10 JP IF ZERO FILE 42 594 SA1 NDIMT $ ZR B4,MST8 JP IF POSSIBLY NUMERICAL FILE 42 595 MST2A SA2 MBE $ SX1 X1-1000 RESERVE WORKING SPACE 42 596 IX3 X1-X2 $ SB7 B0 $ SX7 B4 $ IX3 X3-X7 42 597 NG X3,MST4 $ NO $ NO FITS IN MEMORY 42 598 MST3 SA1 NURI $ SX7 B5 $ MX0 12 42 599 BX7 -X0*X7 $ BX1 X0*X1 $ BX7 X1+X7 $ SA7 A1 42 600 ZR B0,MSTAT1 42 601 MST4 SB7 B0-B6 $ ZR B0,MST3 TOO LARGE 42 602 MST5 SB7 B0 $ SB5 B0 ZERO FILE 42 603 MST6 SA5 NXEX $ NG X5,MST3 JP IF NO TREATMENT REQUESTED 42 604 SA2 =77777777777777702000B $ RJ COSEA1 GO FIND PLACE 42 605 + SA3 A3+B0 $ MX0 52 $ SA5 MBU 42 606 SA4 A4+B0 $ BX3 -X0*X3 $ SX6 X5+B6 $ BX4 X2*X4 42 607 + NZ X3,*+1 $ BX3 X5 $ SA6 A5 42 608 + BX7 X4+X3 $ SA7 A3 $ SX2 B6 $ LX4 43 42 609 + MX7 1 $ PL X4,*+1 $ BX7 X2+X7 42 610 + LX2 24 $ LX7 19 $ BX2 X2+X7 $ SX7 B7 42 611 MX0 43 $ BX7 -X0*X7 $ BX7 X2+X7 $ SB7 B6 42 612 SA7 X3+LOC-1 $ ZR B0,MST3 42 613 MST8 MX0 36 $ BX7 X0*X4 $ MX0 12 $ BX3 -X0*X3 42 614 SA4 A3-B6 $ BX7 X7+X3 $ NZ X7,MST2A 42 615 SA5 A4-B6 $ UX7 B7,X4 $ NO $ LX2 B7,X7 42 616 PX7 B0,X2 $ NX7 B0,X7 $ BX7 X4-X7 $ LX5 18 42 617 NZ X7,MST2A $ MX0 43 $ AX5 18 42 618 SB7 X2 $ LX5 7 $ BX2 X0*X2 $ PX4 B0,X5 42 619 AX2 17 $ NZ X2,MST2A $ NX4 B3,X4 42 620 ZR X5,MST6 $ SB3 B3-23 42 621 PL B3,MST6 $ ZR B0,MST2A 42 622 MST9 NZ X7,MST2 $ MX7 59 JP IF ALL IN 42 623 ZR X3,MST1A $ RJ MST10 JP IF NOTHING IN MEMORY 42 624 ZR B0,MST4 42 625 MST10 BSS 1 42 626 SA3 JEERST $ MX0 49 42 627 MST11 ZR X3,MFO1 $ SA4 X3+B6 $ SA5 X3 42 628 LX4 24 $ BX7 -X0*X4 $ LX3 B0,X5 $ IX7 X7-X6 42 629 AX3 30 $ NZ X7,MST11 $ SB5 A5 SEARCH START FILE 42 630 SA3 X5+2 $ ZR B0,MST10 42 631 MFO1 ERROR 173 STORAGE INCONSISTENTIES 42 632 *REFER************** *REFER******* 42 633 *REFER CONSTRUCTS REFERENCE LIST CONTAINING EXPRESSION NAME AND 42 634 * FURTHER VARIABLE NAMES, ONE NAME/WORD. FIRST ARGUMENTS OF THE EXPRES 42 635 * FOR COMMON EXPR THEN ALL CREATED INDICES AND THEN ALL OTHER VARIABLES 42 636 * APPEARING IN THE OUTPUT ( SIGNALLED BY OUTPUT PRESENCE BIT ). 42 637 * IN STORED EXPRESSIONS THE VARIABLES OF THE REFER LIST ARE REPLACED BY 42 638 * DUMMIES. THE DUMMY NR ASSOCIATED WITH A VARIABLE IS TEMPORARILY STORED 42 639 * IN BITS 31-42 OF THAT VARIABLE S ENTRY IN ITS NAMELIST. 42 640 * OUTPUT. EXIT - B7=NR OF WORDS INCLUDING TWO ZEROS, B4=NEG IF 42 641 * COMMON EXPRESSION. 42 642 * INPUT - A0=STARTING ADDRESS. 42 643 REFER BSS 1 42 644 SA1 NURI $ SB6 1 42 645 MX0 13 $ SB5 3 $ LX0 30 NURI=FILN1(FIRST 12 BITS), 42 646 REF1 SA2 B5+MREF $ SB5 B5-B6 $ SA3 X2 STARTING ADDRESS IN NU IN 42 647 AX2 30 $ SA2 X2 $ SB7 X3 $ LX7 B6,X1 LAST 18 BITS 42 648 + BX6 -X0*X2 $ SA6 A2 $ SB7 B7-B6 $ SA2 A2+B6 SET 31-43 OF 42 649 + LT B0,B7,*-1 $ GE B5,B0,REF1 NAMES TO ZERO 42 650 AX7 49 $ SA1 X7+FILN1-1 $ MX0 52 HERE B5=-1, B7=0 42 651 SA2 =77777777777777703777B $ BX6 X2*X1 $ SA6 A0 42 652 BX7 -X0*X1 $ LX1 1 $ SB3 X7 $ SB4 X1 B4 NEG IF COMMON 42 653 REF3 SA1 A1+B6 $ MX7 52 $ SB3 B3-B6 $ BX2 -X7*X1 DEAL WITH ARGS 42 654 MX3 48 $ BX3 -X3*X1 $ LT B3,B0,REF4 42 655 AX3 8 $ SA3 X3+MREFH $ SB5 X2 GET ARRAY NAME 42 656 NG X3,RFO1 $ SA3 X3+B5 $ MX7 48 GET NAME 42 657 SA4 =77777777770000200077B $ BX5 -X7*X1 $ BX6 X4*X3 42 658 LX5 18 $ NO $ BX6 X6+X5 $ SA6 A6+B6 KEEP NAME,CRE,REAL. 42 659 SX7 B7+B6 $ LX7 18 $ SB7 B7+B6 $ BX7 X3+X7 42 660 SA7 A3 $ ZR B0,REF3 42 661 REF4 PL B4,REF8 $ SB5 B0 $ SB1 B0 JP IF LOCAL.SEARCH CR IND 42 662 REF5 SA2 B5+MREF $ MX0 48 $ SA3 X2 ONLY FOR COMMON FILES 42 663 AX2 18 $ BX5 -X0*X2 $ SB3 X5 $ AX2 12 42 664 SA4 X2+B3 $ SB2 X3 $ AX2 18 $ BX5 -X0*X2 42 665 MX0 12 $ GE B3,B2,REF7 $ LX0 30 42 666 REF6 BX6 X0*X4 $ LX4 44 $ NZ X6,REF7 DU NR IN SYMBOL 42 667 PL X4,REF7 $ SX6 X5+B3 $ LX4 59 JP IF NO OUTP PRES BIT 42 668 + NZ B1,*+1 $ PL X4,REF7 JP IF 2TH ROUND,IF NO CREAT INDEX 42 669 + LX4 17 $ NO $ NO $ NO 42 670 SX7 B7+B6 $ LX6 18 $ BX6 X6+X4 $ LX7 18 42 671 SA6 A6+B6 $ BX7 X4+X7 $ SA7 A4 $ SB7 B7+B6 42 672 REF7 SB3 B3+B6 $ SA4 A4+B6 $ LT B3,B2,REF6 END LOOP WITHIN NAMELST 42 673 SB5 B5-B6 $ GE B5,B0,REF5 $ SB2 B1 END LOOP OVER ALL NMLST 42 674 SB5 3 $ NO $ SB1 B6 42 675 ZR B2,REF5 $ NO $ NO RESTART SEARCH FOR OTHER VARIABLS 42 676 REF8 MX6 0 $ SA6 A6+B6 $ SB7 B7+3 ADD TWO ZEROS 42 677 SA6 A6+B6 $ SX7 B7-254 42 678 NG X7,REFER $ ZR B0,RFO1 42 679 RFO1 ERROR 174 TOO MANY,ILLEGAL ARGM 42 680 *TAPEW************** *TAPEW******* 42 681 *TAPEW(ITAP4,BUFFER,BUFLIMIT) 42 682 * WRITES A Z EXPR ON TAPE WHILE LINEARIZING THE LIST IN THE OUTPUT STORE 42 683 * IF NOT * YEP, ARGUMENTS ( AND VARIABLES, IF COMMON ) ARE REPLACED BY 42 684 * DUMMIES. 42 685 * IF YEPFLAG NON-ZERO WRITE ALL. IF NSUM ZERO, TERMINATE WITH 0,-1 42 686 * ELSE WRITE ONLY IF EXPR. ADDRESS AS IN FIRST 12 BITS OF NURI. 42 687 * TERMINATE WITH 0,-1 IF NSUM NOT EQUAL TO FIRST PART OF NURI 42 688 * START EVERY NEW RECORD WITH THE VECTOR HEAD. 42 689 * TERMINATE RECORD IF NEW VECTOR UNLESS AT LEAST ONE ALGEBRA FITS ALSO. 42 690 * START AT LOC GIVEN IN LAST 18 BITS OF NURI, OR AT JEERST IF YEPFLAG N. 42 691 * EXIT WITH X6=0 IF NOT ALL DONE. 42 692 * EXIT WITH X6=-1 IF EXPR. FINISHED. IF X7=0 THERE IS ONLY ONE RECORD 42 693 * WHICH IS NOT YET WRITTEN, BUT REGISTERS ARE SET FOR RJ TAKMAN. 42 694 * THE NUMBER OF WORDS IN THE BUFFER IS IN X5. IF X7 NON-ZERO IT CON- 42 695 * TAINS THE NUMBER OF RECORDS WRITTEN. 42 696 TAPEW BSS 1 42 697 SA3 B3 $ SB6 1 $ SX2 B2 PARAM1=B1,BUFFER,BUFFER+BUFLIM 42 698 SX3 X3+B2 $ LX2 18 $ SB3 X3 $ BX7 X2+X3 42 699 SX1 B1 $ LX1 36 $ BX7 X1+X7 $ MX6 0 42 700 SA4 YEPFLAG $ SA1 NURI PARAM1=REGISTER STORE 42 701 + ZR X4,*+1 $ SA1 JEERST +1=NEXT VECTOR 42 702 + SA7 PARAM1 $ SA6 NRECO2 +2=NEXT ALGEBRA 42 703 SX7 X1 $ SA7 A7+B6 $ SA6 A7+B6 B3=BUFFER LIMIT 42 704 TAP1V SA4 PARAM1+1 $ SA5 NURI B2=BUFFER COUNT 42 705 ZR X4,TAP9 $ SA1 X4+B6 $ NO 42 706 MX2 12 $ BX5 X2*X5 $ LX7 B6,X1 $ LX1 12 42 707 BX2 X2*X1 $ LX5 12 $ LX2 12 $ IX2 X5-X2 42 708 AX7 49 $ SA3 A1-B6 $ SA5 YEPFLAG 42 709 ZR X2,TAP1 $ NZ X5,TAP1 42 710 PL X2,TAP8 $ ZR B0,TAP10 42 711 TAP1 SA5 X3+NU+1 $ LX2 B6,X5 $ AX2 49 ESTIMATE SPACE NEEDED 42 712 IX6 X2+X7 $ SX6 X6+3 $ LX6 1 INCLUDING AT LEAST 42 713 SB7 X6+B2 $ LT B7,B3,TAP2 $ NO ONE ALGEBRA 42 714 RJ WRITE1 42 715 ZR B0,TAP1V X6 MUST BE NONZERO FOR WRITE1 42 716 TAP2 SA0 B2+B6 $ SA5 =1. $ MX6 0 A0 REMEMBERS LOC 42 717 SB7 X7 $ SA6 B2 $ SB2 B2+3 FIRST WORD 42 718 NO $ SA6 A6+B6 $ BX7 X5 $ SA7 A6+B6 42 719 MX0 30 $ NO $ SA5 PARAM1+2 X6=0 HERE 42 720 + BX7 -X0*X3 $ PL X5,*+1 $ BX7 -X5 42 721 + SA7 A5 $ SB5 24 42 722 SA5 YEPFLAG $ ZR X5,TRANSL 42 723 TAP4 SA3 A3+B6 $ SB7 B7-B6 $ BX6 X3 $ NO 42 724 SA6 B2 $ SB2 B2+B6 $ LT B0,B7,TAP4 42 725 TAP6 SX7 A0-B2 $ SA4 A0 $ SA2 PARAM1+2 42 726 BX7 -X7 $ LX7 42 $ BX7 X4+X7 $ SA7 A4 42 727 ZR X2,TAP8 $ SA5 X2+NU+1 42 728 SA3 A5-B6 $ LX7 B6,X5 $ AX7 49 $ SA1 A3-B6 42 729 SB7 X7 $ SX6 X7+B6 $ LX6 1 $ SB5 X6+B2 42 730 LT B5,B3,TAP7 $ RJ WRITE1 42 731 + SA2 PARAM1+2 $ BX7 -X2 $ SA7 A2 42 732 ZR B0,TAP1V 42 733 TAP7 MX0 18 $ BX7 X0*X1 $ LX7 18 $ NO NEXT ALGE IN X2 42 734 SA0 B2 $ SA7 PARAM1+2 $ BX6 -X0*X1 42 735 LX7 B0,X3 $ SA6 B2 $ SA7 B2+B6 $ SB2 A7+B6 42 736 SA4 YEPFLAG $ NZ X4,TAP4 IF NOT * YEP,REPLACE VAR OF REF LIS 42 737 SB5 36 BY THEIR DUMMIES. REPLACE FUNCTION BY 3012 1000 ... 42 738 TRANSL SA3 A3+B6 $ MX0 48 $ BX6 -X6*X6 $ MX7 12 42 739 TRA1 AX1 B5,X3 $ BX2 -X0*X1 $ BX4 -X0*X1 $ AX2 8 42 740 SB1 X2 $ JP B1+TRA2 42 741 TRA2 ZR X4,TRA4 $ ZR B0,TRA2N 00 42 742 + SA2 X4+NVIGEH-401B $ ZR B0,TRA2S 04 42 743 + SX2 X4-1040B $ ZR B0,TRA2V 10 42 744 + ZR B0,TRA2N $ NO 14 42 745 + SA2 X4+NAGEH-2001B $ ZR B0,TRA2S 20 42 746 + ZR B0,TRA2N $ NO 24 42 747 + SX2 X4-3000B $ NZ X2,TRA2F 30 42 748 + ZR B0,TRA2N $ NO 34 42 749 + SX2 X4-4000B $ ZR B0,TRA2VN 40 42 750 + SX2 X4-4000B $ ZR B0,TRA2VN 44 42 751 + SX2 X4-4000B $ ZR B0,TRA2VN 50 42 752 + SX2 X4-4000B $ ZR B0,TRA2VN 54 42 753 + SX2 X4-6000B $ ZR B0,TRA2D 60 42 754 + SX2 X4-6000B $ ZR B0,TRA2D 64 42 755 + SX2 X4-6000B $ ZR B0,TRA2D 70 42 756 + SX2 X4-6000B $ ZR B0,TRA2D 74 42 757 TRA2N BX5 X7*X6 $ BX6 X6+X4 $ ZR X5,*+2 ASSEMBLE OUTPUT WORDS 42 758 + SA6 B2 $ NO $ SB2 B2+B6 $ MX6 0 5 BYTES 42 759 + SB5 B5-12 $ LX6 12 42 760 PL B5,TRA1 $ SB5 48 42 761 SB7 B7-B6 $ SA3 A3+B6 $ LT B0,B7,TRA1 TAKE NEW INPUT WORD 42 762 TRA4 SB2 B2+B6 $ ZR X6,*+2 42 763 + BX5 X7*X6 $ LX6 12 $ ZR X5,* 42 764 + LX6 48 $ SA6 B2-B6 $ NZ X6,TAP6 42 765 SB2 B2-B6 $ ZR B0,TAP6 42 766 TRA2S AX2 18 $ BX1 -X0*X2 $ ZR X1,TRA2N JP IF VAR NE ARG OF EXPR 42 767 BX4 X1 $ ZR B0,TRA2N ASSEMBLE DUMMY IN OUTPUT 42 768 TRA2V PL X2,*+2 $ SA2 X4+NVGEH-1001B 42 769 + ZR B0,TRA2S 42 770 + SA2 X2+NFGEH-1 $ ZR B0,TRA2S 42 771 TRA2F SA2 X2+NFGEH-1 $ AX2 18 $ BX5 -X0*X2 42 772 ZR X5,TRA2N $ SX2 3012B MAKE DD 1000B FU 42 773 SX4 1000B $ ZR B0,TRA9 42 774 TRA2D SB4 X4 $ MX1 55 $ BX5 -X1*X4 $ AX4 5 42 775 BX4 -X1*X4 $ AX2 B6,X5 $ ZR X2,TR2AD 42 776 AX1 B6,X4 $ ZR X1,TR2AD PDQ BECOMES 0001 1403 0002 42 777 SA2 X5+NVGEH-1 $ SX4 X4+1000B 42 778 AX2 18 $ BX2 -X0*X2 $ SX5 X5+1000B 42 779 NZ X2,TRA7 $ SA2 X4+NVGEH-1001B 42 780 AX2 18 $ BX4 -X0*X2 $ NZ X4,TRA8 42 781 TR2AD SX4 B4 $ ZR B0,TRA2N )VECT 42 782 TRA7 BX5 X2 $ SA2 X4+NVGEH-1001B $ AX2 18 42 783 BX2 -X0*X2 $ ZR X2,TRA8 $ BX4 X2 42 784 TRA8 SX2 1403B 42 785 TRA9 BX1 X7*X6 $ BX6 X6+X2 $ ZR X1,*+2 42 786 + SA6 B2 $ NO $ SB2 B2+B6 $ MX6 0 42 787 + LX2 B0,X4 $ BX4 X5 $ LX6 12 $ MX5 0 42 788 NZ X2,TRA9 $ SB5 B5-12 42 789 PL B5,TRA1 $ SB5 48 42 790 SB7 B7-B6 $ SA3 A3+B6 $ LT B0,B7,TRA1 42 791 ZR B0,TRA4 42 792 TRA2VN SB4 X4 $ MX1 55 $ BX5 -X1*X4 $ AX4 5 42 793 BX4 -X1*X4 $ SX5 X5+3400B $ AX2 B6,X4 42 794 ZR X2,TR2AVN $ SA2 X4+NVGEH-1 42 795 AX2 18 $ BX4 -X0*X2 $ NZ X4,TRA8 42 796 TR2AVN SX4 B4 $ ZR B0,TRA2N 42 797 TAP8 SA1 PARAM1+1 $ SA2 X1+NU-1 42 798 MX0 30 $ BX6 X0*X2 $ LX6 30 $ NO 42 799 SA6 A1 $ ZR B0,TAP1V 42 800 TAP9 SA3 NSUM $ LX5 1 $ AX5 49 42 801 IX7 X3-X5 $ NO $ NO 42 802 SA5 YEPFLAG $ ZR X3,TAP10 42 803 NZ X5,TAP11 $ ZR X7,TAP11 42 804 TAP10 MX6 0 $ RJ WRITE1 42 805 MX6 59 $ ZR B0,TAPEW 42 806 TAP11 MX6 59 $ RJ WRITE1 STILL SOMETHING ON TAPE 42 807 MX6 0 $ ZR B0,TAPEW 42 808 WRID1 DATA 40014001000000000000B,40013400340100000000B 42 809 WRITE1 BSS 1 42 810 SA1 PARAM1 $ BX0 X6 $ AX1 18 42 811 MX7 0 $ SB4 X1 $ NE B4,B2,WRI1A 42 812 MX6 2 $ SA7 B2 $ LX6 44 $ SA6 B2+B6 42 813 SA3 NTEM $ SX2 B6 $ IX7 X2+X3 INCREASE TERM COUNT FOR *YEP 42 814 SA7 A3 $ SA2 WRID1 $ SA3 A2+B6 42 815 SX7 17204B $ SA6 B2+4 CONSTRUCT EMPTY VECTOR AND ALGEBRA 42 816 LX7 45 $ BX6 X2 $ SA7 B2+2 42 817 SA7 A6+B6 $ BX7 X3 $ SA6 B2+3 42 818 SA7 A7+B6 $ BX6 X0 $ MX7 0 $ SB2 A7+B6 42 819 WRI1A SA7 B2 $ NZ X6,WRI3 $ MX7 59 ADD 0,0 OR 0,1 OR 0,-1 42 820 WRI1 BX0 X6 $ SA7 A7+B6 $ SX6 B2+2 42 821 SA1 PARAM1 $ SA3 NRECO2 42 822 AX1 18 $ MX2 42 $ SB2 X1-3 42 823 BX2 -X2*X1 $ AX1 18 $ IX6 X6-X2 $ SB1 X1 42 824 MX5 59 $ IX7 X3-X5 $ SA6 NWOR2 42 825 SA7 A3 $ SB4 WRITE0 $ SB3 A6 ITAP4,BUF-3,NWOR2,FLAG 42 826 NZ X0,WRI2 $ SA4 YEPFLAG 42 827 BX7 X3 $ NZ X3,WRI2 42 828 SA5 NWOR2 $ ZR X4,WRITE1 42 829 WRI2 RJ TAKMAN 42 830 SA2 PARAM1 $ SB6 1 RESTORE REGISTERS 42 831 SB3 X2 $ LX2 42 $ MX5 59 $ SB2 X2 42 832 LX2 42 $ SA3 NRECO2 $ SB1 X2 42 833 BX7 X3 $ ZR B0,WRITE1 NR OF RECORDS IN X7 42 834 WRI3 SA1 PARAM1+2 $ ZR X1,WRI1 42 835 SX7 B6 $ ZR B0,WRI1 42 836 *COSEA1************* *COSEA1****** 42 837 *COSEA1 INVESTIGATES NXGEH FOR FILENAME AS IN FILN1(K) WITH K= BITS 2-12 42 838 * OF NURI. IF NOT FOUND NXEX IS INCREASED. 42 839 * A3=ADDRESS IN NXGEH, A4=ADDRESS IN FILN1 42 840 COSEA1 BSS 1 USES X0,X3,X4,X7,B4,B3,A3,A4,A7 42 841 + SA4 NURI $ SA3 NXEX B6=1 42 842 SB6 1 $ SB4 X3 $ LX4 B6,X4 42 843 AX4 49 $ MX0 30 $ SA4 X4+FILN1-1 42 844 LX4 49 $ NG X4,COS1 $ MX0 42 JP IF NOT INDEXED 42 845 COS1 SA3 NXGEH $ LX4 11 $ SB3 B6 42 846 COS2 BX4 X0*X4 $ BX3 X0*X3 $ BX3 X3-X4 $ MX7 0 42 847 ZR X3,COSEA1 $ SB3 B3+B6 $ SA3 A3+B6 42 848 GE B4,B3,COS2 $ SA7 A3 $ SX7 B4+B6 42 849 SA7 NXEX $ ZR B0,COSEA1 42 850 *ARGL1************** *ARGL1******* 42 851 *ARGL1 PRINTS FILE NAME, EVT (, ARGUMENTS SEPARATED BY , EVT ) 42 852 * FOLLOWED BY BLA=BLA. THE ADDRESS OF THE FILE NAME MUST BE IN A0 42 853 * EXIT WITH X7=0 IF NO PRINT, PUNCH OR WRITE REQUESTED 42 854 ARGL1 BSS 1 42 855 SX7 A0 $ NO $ SX6 2 42 856 SA7 ARGA0 $ SA6 IREG 42 857 RJ S1NEWL FINISH PREVIOUS CARD. 42 858 + SA3 ARGA0 $ NO $ SA0 X3 42 859 + SA1 A0 $ NO $ SA2 NCONT+3 SET CONTROLE WORDS 42 860 BX5 X1 $ SA3 NCONT $ LX5 45 42 861 AX5 59 $ BX6 X5*X2 $ BX7 X6 $ BX5 X1 42 862 SA6 DCONT1+3 $ LX5 47 $ AX5 59 42 863 BX6 X5*X3 $ SA2 NCONT+1 $ BX7 X6+X7 42 864 SA6 DCONT1 $ BX5 X1 $ LX5 48 42 865 AX5 59 $ BX6 X5*X2 $ SA6 A6+B6 $ BX7 X6+X7 42 866 SA7 A6+B6 $ MX0 30 $ ZR X7,ARGL1 42 867 SA1 A0 $ SX7 BL0 $ BX5 X0*X1 42 868 SA7 BC1 $ NO $ BX1 -X0*X1 NAME IN X5 42 869 SA7 A7+B6 $ MX0 52 $ SX6 3 NR OF ARGUMENTS IN X3 42 870 BX3 -X0*X1 $ NO $ SB1 X3 $ LX1 42 INDEX IN X2 42 871 SA6 IREG $ RJ SPLIT 42 872 MX0 48 $ SX7 BO0 $ BX2 -X0*X1 12 BITS,NO SIGN FOR FROZEN 42 873 + SA7 A7+B6 $ LX1 2 $ NG X1,*+2 JP IF FROZEN FILE 42 874 + LX2 52 $ NO $ AX2 52 $ NO 8 BITS WITH SIGN FOR INDEX 42 875 + LX1 5 $ MX5 0 $ NG X1,ARG1 JP IF NOT INDEXED 42 876 RJ NUM1 42 877 SX6 CO0 $ RJ SPLIT 42 878 BX7 X6 $ ZR B1,ARG3 $ SA7 A7+B6 42 879 ARG1 SB2 B0 $ ZR B1,ARG3 42 880 ARG2 SB2 B2+B6 $ SA1 A0+B2 $ MX0 30 $ BX5 X0*X1 42 881 SX6 CO0 $ RJ SPLIT 42 882 BX7 X6 $ EQ B1,B2,ARG3 $ SA7 A7+B6 42 883 SA1 LLIM1 $ SX1 X1+BC1 42 884 SX0 A7 $ IX0 X0-X1 $ NG X0,ARG2 42 885 * PRINT ONE LINE OF OUTPUT. PRESERVES A7,A0,B1,B2,B3 42 886 SB3 A0 $ SB4 B1 $ RJ S1NEWL POINTER IN IT AND NR OF ARGS 42 887 SA0 B3 $ SB1 B4 $ SX7 BL0 MUST BE SAVED 42 888 SA7 BC1+1 $ ZR B0,ARG2 SET A7. 42 889 ARG3 SA1 A7 $ SX0 BO0 $ IX2 X1-X0 42 890 SX7 BL0 $ NZ X2,ARG4 42 891 BX6 X7 $ SA6 A1 $ ZR B0,ARG5 BLANK 42 892 ARG4 SX6 BC0 $ SA6 A7+B6 $ SA7 A6+B6 )BLANK 42 893 ARG5 SX6 EQ0 $ SA6 A7+B6 $ SA7 A6+B6 =BLANK 42 894 ZR B0,ARGL1 42 895 *SPLIT TAKES CONTENTS OF X5 INTO SUBSEQUENT A7 LOCATIONS. 42 896 * USES X0,X5,X7. ZERO 6 BITS BYTES ARE SKIPPED. 42 897 SPLIT BSS 1 42 898 SPL1 MX0 54 $ LX5 6 $ ZR X5,SPLIT 42 899 BX7 -X0*X5 $ BX5 X0*X5 $ ZR X7,SPL1 42 900 SA7 A7+1 $ ZR B0,SPL1 42 901 * 42 902 OUTP BSS 1 42 903 SB6 1 $ SB3 IBUF+5 42 904 SX0 53B $ SA2 IERIC CHECK FOR DOLLARS 42 905 SA3 BC1 $ SB5 B3 $ MX4 6 42 906 SX7 X2-1 $ NO $ SA7 A2 IERIC=LENGTH+1 42 907 NG X7,OUT6 $ SB7 B3+LENGT1-1 42 908 BX2 -X7 $ SX1 B6 $ MX6 0 $ LX0 54 42 909 OUT1 BX3 X3*X4 $ LX6 6 $ IX7 X3-X0 $ BX5 X4*X6 42 910 LX3 6 $ BX6 X6+X3 $ ZR X7,OUT4 42 911 OUT2 ZR X5,OUT3 $ SA6 B3 $ NO 42 912 SB3 B3+B6 $ MX6 0 $ LT B7,B3,OUT5 42 913 IX3 X2+X1 $ PL X3,OUT5 $ NO 42 914 OUT3 IX2 X2+X1 $ SA3 A3+B6 $ NG X2,OUT1 42 915 ZR X6,OUT5 $ LX6 54 $ NO 42 916 + LX6 6 $ BX5 X4*X6 $ ZR X5,* PAD WITH ZEROES 42 917 ZR B0,OUT2 42 918 OUT4 SX7 B6 $ MX0 30 $ SA7 LDOC 42 919 ZR B0,OUT2 42 920 OUT6 SA1 ISPLAY $ SX6 33B 0 42 921 + PL X1,*+1 $ SX6 55B BLANK 42 922 + SB3 B3+B6 $ LX6 54 $ NO $ SA6 B5 42 923 OUT5 SX7 B3-B5 $ SA1 B5 $ SA7 IBUF+3 42 924 SA5 IBUF+4 $ MX0 30 $ BX2 -X4*X1 42 925 SA3 ISPLAY $ SX7 33B 0 42 926 + PL X3,*+1 $ SX7 55B BLANK 42 927 + BX5 X0*X5 $ LX3 B0,X7 $ SB0 B0 $ IX5 X5-X1 42 928 LX3 54 $ MX7 0 $ BX6 X2+X3 $ SA7 A7-B6 42 929 SA2 NTAP2 $ SA6 A1 $ BX6 X2 EMPTY CARDS GO 42 930 SA7 A7-B6 $ SA6 A7-B6 $ ZR X5,PRINT2 ONLY TO PRINTER 42 931 SA3 LDOC $ ZR X3,PRINT3 JP IF NO DOLLAR IN OUTPUT 42 932 MX6 0 $ SA6 A3 $ RJ LIJN 42 933 + SB6 1 $ SB1 IBUF+5 PRINT ERROR MESSAGE 42 934 SA1 T8 $ SX6 3 42 935 RJ STOR2 42 936 SA2 ISPLAY $ NZ X2,PRINT4 42 937 + SA1 T11 $ SX6 12 42 938 SB1 IBUF+5 $ RJ STOR2 42 939 + SA1 T23 $ SX6 7 42 940 SB1 IBUF+5 $ RJ STOR2 42 941 + SA1 T30 $ SX6 5 42 942 SB1 IBUF+5 $ RJ STOR2 42 943 SX6 1 $ SA6 AZ 42 944 ZR B0,PRINT4 42 945 STOR2 BSS 1 42 946 SB3 X6 $ BX7 X1 $ SA6 IBUF+3 42 947 SB2 B6-B3 $ SA7 B1 $ NO $ NO 42 948 + SA1 A1+B6 $ BX7 X1 $ SB2 B2+B6 $ SA7 A7+B6 42 949 + NG B2,*-1 $ RJ LIJN 42 950 + SB6 1 $ ZR B0,STOR2 42 951 T8 DIS 2,0***ERROR. DOLLAR IN 42 952 VFD 48/8H OUTPUT.,12/0 42 953 T11 DIS 5,0MAY BE DUE TO EXPRESSION AS FUNCTION ARGUMENT, WH 42 954 DIS 5,ICH IS O.K. DURING CALCULATION, BUT ILLEGAL IF APP 42 955 DIS 1,EARING IN 42 956 VFD 42/7HOUTPUT.,18/0 42 957 T23 DIS 5, SUCH FUNCTIONS MUST BE SUBJECT TO A SUBSTITUTION 42 958 DIS 1,BEFORE THE 42 959 VFD 48/8H * CARD.,12/0 42 960 T30 DIS 4, ALSO IMPROPER DUMMY USE MAY BE THE REAS 42 961 VFD 18/3HON.,42/0 42 962 PRINT2 SA1 DCONT1+1 $ SA2 ISPLAY 42 963 ZR X1,OUTP $ MX3 0 $ IX6 X3-X2 42 964 NG X6,OUTP $ RJ LIJN 42 965 + SB6 1 $ ZR B0,OUTP 42 966 PRINT3 SA2 IERIC $ NG X2,PRINT2 42 967 SA1 DCONT1+1 $ ZR X1,PRINT4 42 968 RJ LIJN 42 969 + SB6 1 $ NO $ NO 42 970 PRINT4 SA1 DCONT1 $ SA2 DCONT1+3 PAD AND PUNCH,DEPENDING ON IREG 42 971 * IREG=0,1 CONTINUE ON SAME CARD.=2 FINISH PREVIOUS CARD AND SET OFF FTN 42 972 * CONTINUATION FLAG. =3 WRITE R AND START NEW CARD. =4 FINISH PREVIOUS 42 973 * CARD AND START NEW CARD. 42 974 BX3 X1+X2 $ ZR X3,OUTP 42 975 SA4 INIT2 $ ZR X4,PRINT6 JP IF INITIALIZATION NEEDED 42 976 PRINT7 SA1 IREG $ NZ X1,*+3 42 977 + RJ PACK1 PRINT LINE TO PUNCH BUFFER 42 978 + ZR B0,OUTP IREG=0,1 42 979 + SX1 X1-1 $ ZR X1,*-2 42 980 SX1 X1-2 $ ZR X1,PRINT9 JP IF IREG=3 42 981 SA4 IPUNCH $ SA3 IBUF+4 AVOIDS PUNCHING OF EMPTY CARDS 42 982 MX0 18 $ BX5 -X0*X3 $ NO $ IX0 X4-X5 IREG=2 OR 4 42 983 + ZR X0,*+2 $ RJ PAD1 FINISH PREVIOUS CARD 42 984 + RJ PUNCH2 PUNCH THAT CARD 42 985 + SA1 IREG $ NO $ NO 42 986 SX1 X1-4 $ ZR X1,PRINT8 42 987 SX6 5 $ SA6 KEM1 KEM=FLAG FOR FTN CONTIN ON PUNCH CRD 42 988 PRINT5 SX7 1 $ SA7 IREG RESTORE IREG 42 989 + ZR B0,OUTP 42 990 PRINT9 SX6 22B $ SA1 DCONT1 R IREG=3 42 991 MX7 0 $ LX6 54 $ SA7 IBUF+1 42 992 SA6 IBUF+5 $ SB6 1 42 993 SA7 A7+B6 $ SX6 B6 $ SA2 NTAP8 42 994 + SA6 A7+B6 $ ZR X1,*+2 $ BX7 X2 42 995 + SA7 IBUF $ RJ LIJN 42 996 + SA3 DCONT1+3 $ ZR X3,PRINT8 42 997 SA2 NTAP3 $ BX7 X2 $ NO 42 998 SA7 IBUF $ RJ LIJN 42 999 PRINT8 SB6 1 $ RJ INIT1 IREG=3 OR 4 42 1000 + RJ PACK1 42 1001 ZR B0,PRINT5 42 1002 INIT1 BSS 1 INITIALIZATION 42 1003 SX7 -64 $ SA3 IBUF+4 IBUF+4=BLANK 42 1004 SX6 IPUNCH $ SA7 KOM1 KOM=POINTER ON CARD (CHARACTER) 42 1005 MX0 18 $ BX7 -X0*X3 $ SA6 KIM1 KIM=POINTER ON CARD(WORD) 42 1006 SA7 X6 $ ZR B0,INIT1 42 1007 PRINT6 SX7 1 $ SA7 KAM1 42 1008 SA7 A4 $ RJ INIT1 42 1009 + ZR B0,PRINT7 42 1010 * PACK BC1 INTO IPUNCH. TAKE BLANKS AWAY. PUNCH WHEN IBUF FULL 42 1011 PACK1 BSS 1 42 1012 SA4 KIM1 $ SB6 1 KIM=PNTR ON CARD ( WORD) 42 1013 SA2 IERIC $ SB3 X4 $ BX2 -X2 IERIC=LENGTH 42 1014 SA5 B3 $ SX1 B6 $ SA3 BC1 BC1=BEGIN EXPANDED TEXT 42 1015 BX6 X5 $ MX4 6 $ SA5 KOM1 KOM=POINTER ON CARD(CHARACTER) 42 1016 SX0 55B $ SB1 X5 $ LX0 54 42 1017 OUT11 BX3 X3*X4 $ IX7 X3-X0 $ ZR X7,OUT15 TAKE BLANKS AWAY 42 1018 LX6 6 $ LX3 6 $ BX5 X4*X6 $ SB1 B1+B6 42 1019 BX6 X6+X3 $ PL B1,OUT12 $ NO 42 1020 + ZR X5,*+2 $ SA6 B3 $ SB3 B3+B6 42 1021 + MX6 0 $ NO $ NO $ NO 42 1022 OUT15 IX2 X2+X1 $ SA3 A3+B6 $ NG X2,OUT11 42 1023 SA6 B3 $ SX7 B3 $ SA7 KIM1 END OF PRINT LINE 42 1024 SX6 B1 $ SA6 KOM1 $ NO KIM=POINTER ON CARD ( WORD ) 42 1025 ZR B0,PACK1 KOM1 = POINTER ON CARD ( CHARACTER ) 42 1026 OUT12 BX6 X6+X0 $ SX7 X2 $ LX6 54 END OF PUNCH LINE 42 1027 SA7 KOM1 $ SA6 B3 $ SX7 A3 KOM= COUNT PRINT LINE 42 1028 SA7 KIM1 $ RJ PUNCH2 KIM1=POINTER ON PRINT LINE 42 1029 + SA2 KOM1 $ SA3 IBUF+4 42 1030 MX1 42 $ MX4 6 $ SB3 IPUNCH 42 1031 BX6 X1*X3 $ SB6 1 $ SX1 B6 42 1032 SA3 KIM1 $ SB1 -64 42 1033 SA3 X3 $ SX0 55B $ LX0 54 42 1034 LX6 42 $ ZR B0,OUT15 CONTINUE SCAN PRINT LINE 42 1035 * 72 CHARACTERS ARE GIVEN.OUT NR IS ADDED AND CARD PUNCHED. 42 1036 PUNCH2 BSS 1 42 1037 SA2 KAM1 $ SX7 X2+1 KAM COUNTS OUTGOING CARDS 42 1038 MX5 0 $ SA7 A2 $ RJ NUM1 CONVERT KAM TO DISPLAY CODE 42 1039 + MX0 6 $ SX2 55B $ LX0 36 42 1040 SX3 172524B $ SA4 IPUNCH+7 =OUT 42 1041 + BX1 X5*X0 $ NZ X1,*+2 $ BX5 X5+X2 PAD WITH BLANKS 42 1042 + LX5 54 $ ZR B0,*-1 42 1043 + BX5 X5+X3 $ SX7 21 $ LX5 30 42 1044 BX6 X5+X4 $ SB6 1 $ SA6 A4 42 1045 SA7 IBUF+3 $ SX6 13 IPUNCH(1) TO IPUNCH(8) 42 1046 SA1 DCONT1+3 $ MX7 0 $ SA6 A7-B6 42 1047 + SA7 A6-B6 $ ZR X1,*+3 $ NO WRITE ON TAPE3 42 1048 + SA1 NTAP3 $ BX6 X1 $ SA6 A7-B6 42 1049 + RJ LIJN 42 1050 + SA2 DCONT1 $ SB6 1 PUNCH 42 1051 ZR X2,PUNCH2 $ NO $ NO 42 1052 SA3 KEM1 $ SX4 5 42 1053 IX6 X3-X4 $ ZR X6,PUNCH3 $ MX0 6 JP IF NO FTN CONTINAT 42 1054 SA2 IPUNCH $ SX1 34B 42 1055 LX0 30 $ LX1 24 $ BX2 -X0*X2 $ BX7 X2+X1 42 1056 MX6 0 $ SA7 A2 $ NO $ NO 42 1057 PUNCH3 SA1 NTAP8 $ BX7 X1 $ SA6 A3 FTN FLAG ON AGAIN 42 1058 SA7 IBUF $ RJ LIJN 42 1059 + SB6 1 $ ZR B0,PUNCH2 42 1060 PAD1 BSS 1 PAD WITH BLANK TILL 72 42 1061 SA1 KIM1 $ SX7 IPUNCH+6 42 1062 SA2 X1 $ IX4 X7-X1 $ NG X4,PAD3 42 1063 SX3 55B $ MX0 6 $ BX6 X2 42 1064 + BX5 X0*X6 $ NZ X5,PAD2 $ LX6 6 42 1065 + BX6 X6+X3 $ ZR B0,*-1 42 1066 PAD2 SX0 1 $ IX4 X4-X0 $ SA6 A2 42 1067 NG X4,PAD3 $ SA5 IBUF+4 42 1068 BX6 X5 $ IX4 X7-X0 $ NO $ NO 42 1069 + IX1 X1+X0 $ NO $ SA6 X1 $ IX2 X4-X1 42 1070 + PL X2,*-1 $ NO $ NO 42 1071 PAD3 SX6 5555B $ LX6 48 $ NO 42 1072 SA6 IPUNCH+7 $ ZR B0,PAD1 42 1073 END CPTIME 5.62 SEC. DATE 04/21/83 , TIME .22.05.25. RECORDS WRITTEN 0 11605 0 0 0 0 0 0 R0 I