Return to compat.s CVS log

Up to [CSRG BSD Unix] / 42BSD / games / compat

Annotation of 42BSD/games/compat/compat.s, revision 1.1.1.1

1.1       root        1: .data 0
                      2:        .asciz "        compat.s        4.1     82/05/12        "
                      3: .text
                      4:        .globl _regs
                      5:        .globl _psl
                      6:        .globl _pc
                      7:        .globl _compat
                      8: _compat:
                      9:        .word 0x0000
                     10: # fixup stack by doing rets from compat and the function
                     11: # which called it but modifying frame pc's to stay here
                     12:        moval l0,16(fp) # fix first return address
                     13:        ret
                     14: l0:    moval l1,16(fp) # fix first return address
                     15:        ret
                     16: l1:    moval l2,16(fp) # fix next return address
                     17:        ret
                     18: l2:    movl _psl,4(sp)
                     19:        movl _pc,(sp)
                     20: # copy back saved register values
                     21:        movw _regs,r0
                     22:        movw _regs+02,r1
                     23:        movw _regs+04,r2
                     24:        movw _regs+06,r3
                     25:        movw _regs+010,r4
                     26:        movw _regs+012,r5
                     27:        movw _regs+014,r6
                     28: # go to compatability mode with rei assuming correct psl is setup
                     29:        rei
                     30:        .globl _getregs
                     31: _getregs:
                     32:        .word 0
                     33: # copy registers into known locations for examination or modification
                     34:        movw r0,_regs
                     35:        movw r1,_regs+02
                     36:        movw r2,_regs+04
                     37:        movw r3,_regs+06
                     38:        movw r4,_regs+010
                     39:        movw r5,_regs+012
                     40:        movw r6,_regs+014
                     41:        ret

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