Return to rover.s CVS log

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

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

1.1     ! root        1: 
        !             2:        .globl  _runerr
        !             3:        .globl  _ckadd
        !             4:        .globl  _cksub
        !             5:        .globl  _ckmul
        !             6:        .globl  lmul
        !             7: 
        !             8:        .text
        !             9: _ckadd:
        !            10:        push    bp
        !            11:        mov     bp,sp
        !            12:        mov     dx,*6(bp)
        !            13:        mov     ax,*4(bp)
        !            14:        add     ax,*8(bp)
        !            15:        adc     dx,10(bp)
        !            16:        jo      oflow
        !            17:        pop     bp
        !            18:        ret
        !            19: _cksub:
        !            20:        push    bp
        !            21:        mov     bp,sp
        !            22:        mov     dx,*6(bp)
        !            23:        mov     ax,*4(bp)
        !            24:        sub     ax,*8(bp)
        !            25:        sbb     dx,*10(bp)
        !            26:        jo      oflow
        !            27:        pop     bp
        !            28:        ret
        !            29: _ckmul:
        !            30:        push    bp
        !            31:        mov     bp,sp
        !            32:        push    *10(bp)
        !            33:        push    *8(bp)
        !            34:        push    *6(bp)
        !            35:        push    *4(bp)
        !            36:        call    lmul
        !            37:        jo      oflow
        !            38:        pop     bp
        !            39:        ret
        !            40: oflow:
        !            41:        mov     cx,#0
        !            42:        push    cx
        !            43:        mov     cx,#203
        !            44:        push    cx
        !            45:         call   _runerr

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