Return to rover.s CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / setup / sun

Annotation of researchv10dc/cmd/icon/setup/sun/rover.s, revision 1.1

1.1     ! root        1:        .globl  _runerr
        !             2:        .globl  _ckadd
        !             3:        .globl  _cksub
        !             4:        .globl  _ckmul
        !             5: 
        !             6: 
        !             7:        .text
        !             8:        .even
        !             9: _ckadd:
        !            10:        link    a6,#0
        !            11:        movl    a6@(8),d0       | Perform addition
        !            12:        addl    a6@(12),d0      |  " " "
        !            13:        jvs     oflow           | Branch if overflow
        !            14:        unlk    a6
        !            15:        rts                     | Return result in d0
        !            16: 
        !            17:        .even
        !            18: 
        !            19: _cksub:
        !            20:        link    a6,#0
        !            21:        movl    a6@(8),d0       | Perform subtraction
        !            22:        subl    a6@(12),d0      |  " " "
        !            23:        jvs     oflow           | Branch if overflow
        !            24:         unlk    a6
        !            25:        rts                     | Return result in d0
        !            26: 
        !            27:        .even
        !            28: 
        !            29: _ckmul:
        !            30:        link    a6,#0
        !            31:        movl    a6@(8),d0       | Perform multiplication
        !            32:        movl    a6@(12),d1
        !            33:        jsr     lmult
        !            34:        jvs     oflow           | Branch if overflow
        !            35:         unlk    a6
        !            36:        rts                     | Return result in d0
        !            37: 
        !            38: oflow:                         | Got overflow on an operation
        !            39:        pea     0
        !            40:        pea     203
        !            41:        jbsr    _runerr         | runerr(203,0)

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