Return to optmov.spt CVS log

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

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

1.1       root        1: -IN80
                      2: -TITLE OPTIMISE OUT REDUNDANT MOV 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: *      unneeded MOVL instructions.  The unneeded MOVL instructions are
                      8: *      those which move into a register or memory location, and are
                      9: *      immediately followed by an unlabelled opcode ***L2 that can
                     10: *      be converted into ***L3 form, that is operating on the same register
                     11: *
                     12: *      This is not recommended, as the ***L3 form seems to be slower!
                     13: *
                     14: *      Steve Duff August 1980
                     15: *
                     16: -STITL INITIALIZATION
                     17:        &STLIMIT = 10000000; &TRIM = 1; &ANCHOR = 1
                     18:        ARITHOPCODES = 'ADDL2' | 'SUBL2' | 'MULL2' | 'DIVL2' |
                     19: +                      'BISL2' | 'BICL2' | 'XORL2'
                     20:        OPTRANS = TABLE(19)
                     21:        OPTRANS['ADDL2'] = 'ADDL3'; OPTRANS['SUBL2'] = 'SUBL3'
                     22:        OPTRANS['MULL2'] = 'MULL3'; OPTRANS['DIVL2'] = 'DIVL3'
                     23:        OPTRANS['BISL2'] = 'BISL3'; OPTRANS['BICL2'] = 'BICL3'
                     24:        OPTRANS['XORL2'] = 'XORL3'
                     25:        SB      = SPAN('         ')
                     26:        LABEL   = LEN(5) '::'
                     27:        OPTPATT = ((LABEL | '') SB) . LAB 'MOVL' SB BREAK(',') . OP1 LEN(1)
                     28: +                      (BREAK('        ') | REM) . OP2
                     29:        ARITHPATT = SB ARITHOPCODES . OPCODE SB BREAK(',') . OP1A LEN(1)
                     30: +                      *OP2 ((SB | RPOS(0)) REM) . COMMENT
                     31:        TERMINAL = 'Enter name of file (including extension).'
                     32:        FILENAME = TERMINAL
                     33:        INPUT(.INFILE,1,FILENAME)       :F(END)
                     34:        OUTPUT(.OUTFILE,2,FILENAME)
                     35: LOOP
                     36:        CARD1   = INFILE                :F(EXIT)
                     37:        CARD1   ANY(';')                :S(FLUSH1)
                     38:        CARD1   OPTPATT                 :F(FLUSH1)
                     39:        CARD2   = INFILE                :F(HUH)
                     40:        CARD2   ARITHPATT               :F(FLUSH2)
                     41:        OP2     ('-' | (RTAB(1) '+'))   :S(FLUSH2)
                     42:        TERMINAL = CARD1; TERMINAL = CARD2
                     43:        OUTFILE = LAB OPTRANS[OPCODE] ' ' OP1A ',' OP1 ',' OP2 COMMENT
                     44:        TERMINAL = OUTFILE
                     45:        TERMINAL =
                     46:        COUNT = COUNT + 1
                     47:        :(LOOP)
                     48: FLUSH1 OUTFILE = CARD1                 :(LOOP)
                     49: FLUSH2 OUTFILE = CARD1
                     50:        OUTFILE = CARD2                 :(LOOP)
                     51: EXIT   TERMINAL = COUNT + 0 ' MOVL OPCODES REMOVED.'
                     52: END

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