Return to rover.s CVS log

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

Annotation of researchv10dc/cmd/icon/setup/unixpc/rover.s, revision 1.1.1.1

1.1       root        1:        file "arith.s"
                      2: 
                      3:        global  runerr
                      4:        global  ckadd
                      5:        global  cksub
                      6:        global  ckmul
                      7: 
                      8:  text
                      9:  even
                     10: ckadd:
                     11:         link    %a6,&0
                     12:         mov.l   8(%a6),%d0      # Perform addition
                     13:         add.l   12(%a6),%d0     #  " " "
                     14:         #jvs     oflow           # Branch if overflow
                     15:        trapv                   # This trap untested!!
                     16:         unlk    %a6
                     17:         rts                     # Return result in d0
                     18: 
                     19:  even
                     20: cksub:
                     21:         link    %a6,&0
                     22:         mov.l   8(%a6),%d0      # Perform subtraction
                     23:         sub.l   12(%a6),%d0     #  " " "
                     24:         #jvs     oflow           # Branch if overflow
                     25:        trapv
                     26:         unlk    %a6
                     27:         rts                     # Return result in d0
                     28: 
                     29:  even
                     30: ckmul:
                     31:         link    %a6,&0
                     32:         mov.l   8(%a6),%d0     # Perform multiplication
                     33:         muls.w  12(%a6),%d0    #  " " "
                     34:        trapv
                     35:         #jvs     oflow           # Branch if overflow
                     36:         unlk    %a6
                     37:         rts                    # Return result in d0
                     38: 
                     39: oflow:                         # Got overflow on an operation
                     40:         pea     0
                     41:         pea     203
                     42:         jsr    runerr          # runerr(203,0)

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