Return to opttst.spt CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol

Annotation of researchv10no/cmd/spitbol/opttst.spt, revision 1.1.1.1

1.1       root        1: -IN80
                      2: -TITLE OPTIMIZE OUT REDUNDANT TSTL OPS FROM MACRO SOURCE
                      3: -STITL PREAMBLE
                      4: *
                      5: *      This Spitbol program is a quick&dirty pass over the
                      6: *      translated Minimal source (MACRO-32) to remove the
                      7: *      obviously unneeded TSTL comparison instructions.
                      8: *      A TSTL is unnecessary when it follows a MOVL, ADDL2, SUBL2,
                      9: *      BISL2 or BICL2 in the program. (There are others, but they
                     10: *      occur infrequently or not at all).  If the operand of the
                     11: *      TSTL is a register that is the same as the second operand
                     12: *      register of one of these op-codes that immediately precedes the
                     13: *      TSTL & the TSTL is not labelled, then it clearly can be dumped.
                     14: *
                     15: *      Steve Duff April 1980
                     16: *
                     17: -STITL INITIALIZATION
                     18: *
                     19: *      Keywords...
                     20: *
                     21:        &STLIMIT = 10000000;  &TRIM = 1;  &ANCHOR = 1
                     22: *
                     23: *      Patterns...
                     24: *
                     25:        REG     = 'R' (ANY('23456789') | ('1' ANY('01')))
                     26:        SB      = SPAN('        ')
                     27:        LABEL   = LEN(5) '::'
                     28:        OPTPATT = (LABEL | '')  SB
                     29: +                      ('MOVL' | 'ADDL2' | 'SUBL2' | 'BICL2' | 'BISL2')
                     30: +                      SB  BREAK(',') LEN(1)  REG . OPTREG  (SB | RPOS(0))
                     31:        TSTLPATT = SB 'TSTL' SB *OPTREG  (SB | RPOS(0))
                     32: *
                     33: *      I/O
                     34: *
                     35:        TERMINAL = 'Enter Name Of .MAR File, Sans Extension.'
                     36:        FILENAME = TERMINAL
                     37:        INPUT(.INFILE,1,FILENAME '.MAR')        :F(NOFILE_ERROR)
                     38:        OUTPUT(.OUTFILE,2,FILENAME '.MAR')
                     39: -STITL PROGRAM
                     40: LOOP
                     41:        CARD1   = INFILE                :F(EXIT)
                     42:        CARD1   ANY(';')                :S(FLUSH1)
                     43:        CARD1   OPTPATT                 :F(FLUSH1)
                     44:        CARD2   = INFILE
                     45:        CARD2   TSTLPATT                :F(FLUSH2)
                     46:        COUNT   = COUNT + 1
                     47: FLUSH1
                     48:        OUTFILE = CARD1                 :(LOOP)
                     49: FLUSH2
                     50:        OUTFILE = CARD1
                     51:        OUTFILE = CARD2                 :(LOOP)
                     52: EXIT
                     53:        TERMINAL = COUNT ' TSTL OPCODES REMOVED.'
                     54: END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.