![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to opttsts CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / spitbol|
Return to opttsts CVS log | Up to [Research Unix] / researchv10no / cmd / spitbol |
1.1 ! root 1: movl initr,r8 # terminal flag ! 2: #---> tstl r8 # skip if no terminal ! 3: beqlu ini13 # skip if no terminal ! 4: ! 5: addl2 cswex,noxeq # add -noexecute flag ! 6: #---> tstl noxeq # jump if execution suppressed ! 7: bnequ inix2 # jump if execution suppressed ! 8: ! 9: movl 4*icval(r10),r5 # load exponent ! 10: #---> tstl r5 # error if negative exponent ! 11: bgeq 0f # error if negative exponent ! 12: ! 13: subl2 4*1(sp),r6 # minus final cursor = total length ! 14: #---> tstl r6 # jump if result is null ! 15: bnequ 0f # jump if result is null ! 16: ! 17: movl 4*sclen(r10),r6 # load length ! 18: #---> tstl r6 # jump if null replacement ! 19: beqlu orpl2 # jump if null replacement ! 20: ! 21: subl2 r8,r6 # minus final cursor = part 3 length ! 22: #---> tstl r6 # jump to assign if part 3 is null ! 23: bnequ 0f # jump to assign if part 3 is null ! 24: ! 25: labo1: movl kvert,r6 # load error code ! 26: #---> tstl r6 # jump if no error has occured ! 27: beqlu labo2 # jump if no error has occured ! 28: ! 29: lcnt1: movl r$cnt,r9 # load continuation code block ptr ! 30: #---> tstl r9 # jump if no previous error ! 31: beqlu lcnt2 # jump if no previous error ! 32: ! 33: movl 4*efrsl(r10),r7 # get result type id ! 34: #---> tstl r7 # branch if not unconverted ! 35: bnequ befa8 # branch if not unconverted ! 36: ! 37: movl 4*ffnxt(r9),r9 # else link to next ffblk on chain ! 38: #---> tstl r9 # loop back if another entry to check ! 39: bnequ bffc1 # loop back if another entry to check ! 40: ! 41: movl 4*pfnlo(r10),r6 # load number of locals ! 42: #---> tstl r6 # jump if no locals ! 43: beqlu bpf07 # jump if no locals ! 44: ! 45: addl2 kvftr,r6 # add ftrace value ! 46: #---> tstl r6 # jump if tracing possible ! 47: bnequ bpf09 # jump if tracing possible ! 48: ! 49: bicl2 r11,r6 ! 50: #---> tstl r6 # fail if no match ! 51: bnequ 0f # fail if no match ! 52: ! 53: decl r8 # else decrement level counter ! 54: #---> tstl r8 # loop back if not at outer level ! 55: bnequ pbal2 # loop back if not at outer level ! 56: ! 57: subl2 r7,r8 # get number of characters left ! 58: #---> tstl r8 # fail if no characters left ! 59: bnequ 0f # fail if no characters left ! 60: ! 61: subl2 r7,r8 # get number of characters left ! 62: #---> tstl r8 # fail if no characters left ! 63: bnequ 0f # fail if no characters left ! 64: ! 65: bicl2 r11,r6 ! 66: #---> tstl r6 # succeed if break character found ! 67: beqlu 0f # succeed if break character found ! 68: ! 69: bicl2 r11,r6 ! 70: #---> tstl r6 # fail if character is matched ! 71: beqlu 0f # fail if character is matched ! 72: ! 73: subl2 r7,r8 # calculate number of characters left ! 74: #---> tstl r8 # fail if no characters left ! 75: bnequ 0f # fail if no characters left ! 76: ! 77: bicl2 r11,r6 ! 78: #---> tstl r6 # jump if no match ! 79: beqlu pspn3 # jump if no match ! 80: ! 81: subl2 r7,r8 # calculate number of characters left ! 82: #---> tstl r8 # fail if no characters left ! 83: bnequ 0f # fail if no characters left ! 84: ! 85: movl 4*icval(r9),r5 # load integer value ! 86: #---> tstl r5 # jump if zero or neg (bad dimension) ! 87: bgtr 0f # jump if zero or neg (bad dimension) ! 88: ! 89: movl arptr,r10 # load offset (also pass indicator) ! 90: #---> tstl r10 # jump if first pass ! 91: beqlu sar05 # jump if first pass ! 92: ! 93: movl 4*icval(r9),r5 # get value ! 94: #---> tstl r5 # branch if negative or zero ! 95: bleq sbf01 # branch if negative or zero ! 96: ! 97: sclr4: movl 4*vrnxt(r9),r9 # point to next vrblk on chain ! 98: #---> tstl r9 # jump for next bucket if chain end ! 99: beqlu sclr3 # jump for next bucket if chain end ! 100: ! 101: scv02: movl (r10)+,r9 # load next table entry, bump pointer ! 102: #---> tstl r9 # fail if zero marking end of list ! 103: bnequ 0f # fail if zero marking end of list ! 104: ! 105: subl2 intv2,r5 # subtract 2 to compare ! 106: #---> tstl r5 # fail if dim2 not 2 ! 107: beql 0f # fail if dim2 not 2 ! 108: ! 109: movl 4*1(r10),r6 # load length for sbstr ! 110: #---> tstl r6 # return null if length is zero ! 111: bnequ 0f # return null if length is zero ! 112: ! 113: decl (sp) # count down ! 114: #---> tstl (sp) # loop ! 115: bnequ sdup5 # loop ! 116: ! 117: movl 4*2(r10),r10 # get next link ! 118: #---> tstl r10 # stop if chain end ! 119: beqlu senf4 # stop if chain end ! 120: ! 121: senf4: movl enfch,r10 # get chain head ! 122: #---> tstl r10 # finished if chain end ! 123: bnequ 0f # finished if chain end ! 124: ! 125: movl r$rpt,r9 # point to current table (if any) ! 126: #---> tstl r9 # jump if we already have a table ! 127: bnequ srpl2 # jump if we already have a table ! 128: ! 129: movl r9,r7 # save second argument ! 130: #---> tstl r7 # jump if second argument zero ! 131: bnequ 0f # jump if second argument zero ! 132: ! 133: ssubb: movl sbssv,r8 # reload third argument ! 134: #---> tstl r8 # skip if third arg given ! 135: bnequ ssub1 # skip if third arg given ! 136: ! 137: acs05: movl 4*trtyp(r9),r7 # load trap type code ! 138: #---> tstl r7 # jump if not input association ! 139: beqlu 0f # jump if not input association ! 140: ! 141: movl 4*trfpt(r9),r10 # get file ctrl blk ptr or zero ! 142: #---> tstl r10 # jump if not standard input file ! 143: bnequ acs06 # jump if not standard input file ! 144: ! 145: acmp3: movl 4*icval(r10),r5 # load second argument ! 146: #---> tstl r5 # gt if negative ! 147: blss acmp1 # gt if negative ! 148: ! 149: subl2 aldyn,r5 # subtract from scaled up free store ! 150: #---> tstl r5 # jump if sufficient free store ! 151: bgtr aloc5 # jump if sufficient free store ! 152: ! 153: asg11: movl 4*trfpt(r10),r6 # fcblk ptr ! 154: #---> tstl r6 # jump if standard output file ! 155: beqlu asg13 # jump if standard output file ! 156: ! 157: bicl2 r11,r6 ! 158: #---> tstl r6 # jump if constant keyword ! 159: bnequ cgv00 # jump if constant keyword ! 160: ! 161: bicl2 r11,r6 ! 162: #---> tstl r6 # jump if not ! 163: beqlu cgv12 # jump if not ! 164: ! 165: bicl2 r11,r6 ! 166: #---> tstl r6 # jump if preevaluation permitted ! 167: bnequ cgv08 # jump if preevaluation permitted ! 168: ! 169: bicl2 r11,r6 ! 170: #---> tstl r6 # ordinary binop if not ! 171: bnequ 0f # ordinary binop if not ! 172: ! 173: bicl2 r11,r6 ! 174: #---> tstl r6 # go gen if not constant ! 175: bnequ 0f # go gen if not constant ! 176: ! 177: cdwd1: movl r$ccb,r9 # load ptr to ccblk being built ! 178: #---> tstl r9 # jump if block allocated ! 179: bnequ cdwd2 # jump if block allocated ! 180: ! 181: subl2 r7,r6 # get length of label ! 182: #---> tstl r6 # skip if label length zero ! 183: bnequ 0f # skip if label length zero ! 184: ! 185: bisl2 4*cmcgo(sp),r8 # check if conditional goto ! 186: #---> tstl r8 # jump if -nofail and no cond. goto ! 187: beqlu cmpse # jump if -nofail and no cond. goto ! 188: ! 189: movl 4*cmlbl(sp),r10 # get possible label pointer ! 190: #---> tstl r10 # skip if no label ! 191: beqlu cmp26 # skip if no label ! 192: ! 193: cmp27: movl 4*cmsop(sp),r6 # load success offset ! 194: #---> tstl r6 # jump if no fill in required ! 195: beqlu cmp28 # jump if no fill in required ! 196: ! 197: bisl2 4*cmsgo(sp),r7 # or in success goto ! 198: #---> tstl r7 # ok if non-null field ! 199: beqlu 0f # ok if non-null field ! 200: ! 201: bicl2 r11,r7 ! 202: #---> tstl r7 # redef ok if not ! 203: beqlu dffn3 # redef ok if not ! 204: ! 205: movl 4*trtrf(r10),r10# point to trtrf trap block ! 206: #---> tstl r10 # jump if no iochn ! 207: beqlu dtch5 # jump if no iochn ! 208: ! 209: movl 4*trtrf(r10),r10# point to next link ! 210: #---> tstl r10 # jump if end of chain ! 211: beqlu dtch5 # jump if end of chain ! 212: ! 213: dmp01: movl 4*vrnxt(r9),r9 # point to next vrblk on chain ! 214: #---> tstl r9 # jump if end of this hash chain ! 215: bnequ 0f # jump if end of this hash chain ! 216: ! 217: movl (r10),r9 # load pointer to next entry ! 218: #---> tstl r9 # jump if end of chain to insert ! 219: bnequ 0f # jump if end of chain to insert ! 220: ! 221: dmp10: movl dmvch,r9 # load pointer to next entry on chain ! 222: #---> tstl r9 # jump if end of chain ! 223: beqlu dmp11 # jump if end of chain ! 224: ! 225: dmp12: movl (r10)+,r9 # load next svblk ptr from table ! 226: #---> tstl r9 # jump if end of list ! 227: beqlu dmp13 # jump if end of list ! 228: ! 229: movl 4*bclen(r9),r8 # load defined length ! 230: #---> tstl r8 # skip characters if none ! 231: beqlu dmp32 # skip characters if none ! 232: ! 233: movl 4*sclen(r9),r6 # get length of string ! 234: #---> tstl r6 # jump if null ! 235: beqlu ert02 # jump if null ! 236: ! 237: gbc02: movl (r10),r9 # load ptr to next vrblk ! 238: #---> tstl r9 # jump if end of chain ! 239: beqlu gbc03 # jump if end of chain ! 240: ! 241: gbc11: movl gbcnm,r10 # point to next move block ! 242: #---> tstl r10 # jump if end of chain ! 243: beqlu gbc12 # jump if end of chain ! 244: ! 245: movl gbsvb,r7 # reload move offset ! 246: #---> tstl r7 # jump if no move required ! 247: beqlu gbc13 # jump if no move required ! 248: ! 249: movl (sp)+,r8 # restore block pointer ! 250: #---> tstl r8 # continue loop unless outer levl ! 251: bnequ gpf02 # continue loop unless outer levl ! 252: ! 253: movl 4*vrnxt(r10),r10# point to next vrblk on chain ! 254: #---> tstl r10 # jump if end of chain ! 255: beqlu gnv08 # jump if end of chain ! 256: ! 257: bicl2 r11,r7 ! 258: #---> tstl r7 # jump if not present ! 259: beqlu gnv13 # jump if not present ! 260: ! 261: bicl2 r11,r8 ! 262: #---> tstl r8 # jump if no keyword number ! 263: beqlu gnv17 # jump if no keyword number ! 264: ! 265: bicl2 r11,r8 ! 266: #---> tstl r8 # skip if no system function ! 267: beqlu gnv18 # skip if no system function ! 268: ! 269: bicl2 r11,r8 ! 270: #---> tstl r8 # jump if bit is off (no system labl) ! 271: beqlu gnv19 # jump if bit is off (no system labl) ! 272: ! 273: bicl2 r11,r8 ! 274: #---> tstl r8 # all done if no value ! 275: bnequ 0f # all done if no value ! 276: ! 277: movl 4*sclen(r10),r6 # load length ! 278: #---> tstl r6 # jump if not system variable ! 279: bnequ gts04 # jump if not system variable ! 280: ! 281: decl r10 # decrement counter ! 282: #---> tstl r10 # loop back if more to go ! 283: bnequ gts25 # loop back if more to go ! 284: ! 285: movl 4*bclen(r10),r6 # get size to allocate ! 286: #---> tstl r6 # if null then return null ! 287: beqlu gts33 # if null then return null ! 288: ! 289: subl2 r8,r6 # subtract to get remainder ! 290: #---> tstl r6 # no pad if already even boundary ! 291: bnequ 0f # no pad if already even boundary ! 292: ! 293: movl r$iot,r9 # get 0 or trtrf ptr ! 294: #---> tstl r9 # jump if trtrf block exists ! 295: beqlu 0f # jump if trtrf block exists ! 296: ! 297: iop20: movl 4*trtrf(r9),r9 # next link of chain ! 298: #---> tstl r9 # not found ! 299: beqlu iop21 # not found ! 300: ! 301: bicl2 r11,r6 ! 302: #---> tstl r6 # error if no keyword association ! 303: beqlu kwnm1 # error if no keyword association ! 304: ! 305: movl lstsn,r9 # load statement number ! 306: #---> tstl r9 # jump if no statement number ! 307: beqlu list2 # jump if no statement number ! 308: ! 309: movl r$stl,r9 # load pointer to sub-title ! 310: #---> tstl r9 # jump if no sub-title ! 311: beqlu lstt1 # jump if no sub-title ! 312: ! 313: movl r$cim,r9 # point to image ! 314: #---> tstl r9 # jump if no image ! 315: beqlu nxts2 # jump if no image ! 316: ! 317: movl 4*sclen(r10),r7 # load string length ! 318: #---> tstl r7 # jump if null string case ! 319: beqlu pats6 # jump if null string case ! 320: ! 321: movl (r9),r5 # load nr of executions ! 322: #---> tstl r5 # no printing if zero ! 323: beql prfl3 # no printing if zero ! 324: ! 325: movl prlen,r7 # get prior length if any ! 326: #---> tstl r7 # skip if no length ! 327: beqlu prpa2 # skip if no length ! 328: ! 329: bicl2 r11,r7 ! 330: #---> tstl r7 # skip if clear ! 331: beqlu prpa4 # skip if clear ! 332: ! 333: bicl2 r11,r8 ! 334: #---> tstl r8 # jump if terminal required ! 335: beqlu 0f # jump if terminal required ! 336: ! 337: prn07: movl r9,r8 # copy vrblk pointer ! 338: #---> tstl r8 # jump if chain end (or prnmv zero) ! 339: beqlu prn09 # jump if chain end (or prnmv zero) ! 340: ! 341: subl2 r7,r6 # subtract count of chars already out ! 342: #---> tstl r6 # jump to exit if none left ! 343: bnequ 0f # jump to exit if none left ! 344: ! 345: subl2 profs,r9 # get chars left in print buffer ! 346: #---> tstl r9 # skip if room left on this line ! 347: bnequ prst2 # skip if room left on this line ! 348: ! 349: movl r$cni,r9 # get ptr to next image ! 350: #---> tstl r9 # exit if already read ! 351: bnequ read3 # exit if already read ! 352: ! 353: subl2 4*ardm2(r10),r5 # check against dimension ! 354: #---> tstl r5 # fail if too large ! 355: blss 0f # fail if too large ! 356: ! 357: subl2 $4,r8 # i = i - 1 ! 358: #---> tstl r8 # loop if i gt 0 ! 359: bnequ srt10 # loop if i gt 0 ! 360: ! 361: srt11: subl2 $4,r8 # i = i - 1 (n - 1 initially) ! 362: #---> tstl r8 # jump if done ! 363: beqlu srt12 # jump if done ! 364: ! 365: decl srtnr # decrement row count ! 366: #---> tstl srtnr # repeat till all rows done ! 367: bnequ srt13 # repeat till all rows done ! 368: ! 369: movl srtfd,r9 # get possible former dfblk ptr ! 370: #---> tstl r9 # jump if not ! 371: beqlu srtf4 # jump if not ! 372: ! 373: tfn02: movl 4*1(r9),r5 # load value as hash source ! 374: #---> tstl r5 # ok if positive or zero ! 375: bgeq tfn06 # ok if positive or zero ! 376: ! 377: movl 4*2(sp),r7 # restore name/value indicator ! 378: #---> tstl r7 # jump if called by name ! 379: bnequ tfn09 # jump if called by name ! 380: ! 381: movl 4*2(sp),r7 # load name/value indicator ! 382: #---> tstl r7 # exit with default if value call ! 383: beqlu tfn09 # exit with default if value call ! 384: ! 385: movl (sp)+,r7 # get trblk ptr again ! 386: #---> tstl r7 # jump if stoptr case ! 387: beqlu trc05 # jump if stoptr case ! 388: ! 389: movl 4*sclen(r9),r6 # load string length ! 390: #---> tstl r6 # jump if null input ! 391: beqlu trim2 # jump if null input ! 392: ! 393: trim1: decl r6 # else decrement character count ! 394: #---> tstl r6 # loop back if more to check ! 395: bnequ trim0 # loop back if more to check ! 396: ! 397: subl2 r7,r6 # get number of remaining characters ! 398: #---> tstl r6 # jump if no characters left ! 399: beqlu xscn2 # jump if no characters left ! 400: ! 401: decl r6 # decrement count of chars left ! 402: #---> tstl r6 # loop back if more chars to go ! 403: bnequ xscn1 # loop back if more chars to go ! 404: ! 405: subl2 4*ardim(r9),r5 # subtract dimension ! 406: #---> tstl r5 # out of range fail if too large ! 407: blss 0f # out of range fail if too large ! 408: ! 409: addl2 kvftr,r7 # add ftrace ! 410: #---> tstl r7 # jump if no tracing possible ! 411: bnequ 0f # jump if no tracing possible ! 412: ! 413: movl 4*pfrtr(r9),r9 # else load return trace trblk ptr ! 414: #---> tstl r9 # jump if not return traced ! 415: beqlu rtn02 # jump if not return traced ! 416: ! 417: movl (sp)+,r10 # pop saved pointer ! 418: #---> tstl r10 # no action if none ! 419: beqlu rtn7c # no action if none ! 420: ! 421: addl2 4*pfnlo(r9),r7 # add number of locals ! 422: #---> tstl r7 # jump if no args/locals ! 423: beqlu rtn10 # jump if no args/locals ! 424: ! 425: movl kvstc,r5 # get stmt count ! 426: #---> tstl r5 # omit counting if negative ! 427: bgeq 0f # omit counting if negative ! 428: ! 429: movl kvstl,r5 # get statement limit ! 430: #---> tstl r5 # skip if negative ! 431: blss stpr2 # skip if negative ! 432: ! 433: movl scnse,r6 # load scan element offset ! 434: #---> tstl r6 # skip if not set ! 435: beqlu err02 # skip if not set ! 436: ! 437: movl r$sxc,r9 # load setexit cdblk pointer ! 438: #---> tstl r9 # continue if no setexit trap ! 439: bnequ 0f # continue if no setexit trap ! 440: ! 441: err08: movl dmvch,r9 # chain head for affected vrblks ! 442: #---> tstl r9 # done if zero ! 443: beqlu err06 # done if zero ! 444: ! 445: 111 redundant TSTL instructions removed
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.