home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume5 / smallc / part3 / 6809 / shift.u < prev    next >
Encoding:
Text File  |  1986-11-30  |  317 b   |  33 lines
  1. |    Shift support for Small C v1 sa09
  2. .globl    asr
  3. asr:    tstb
  4.     bge    okr
  5.     negb
  6.     bra    asl
  7. okr:    incb
  8.     pshs    b
  9.     ldd    3(s)
  10. asrl:    dec    (s)
  11.     beq    return
  12.     asra
  13.     rorb
  14.     bra    asrl
  15.  
  16. .globl    asl
  17. asl:    tstb
  18.     bge    okl
  19.     negb
  20.     bra    asr
  21. okl:    incb
  22.     pshs    b
  23.     ldd    3(s)
  24. asll:    dec    (s)
  25.     beq    return
  26.     aslb
  27.     rola
  28.     bra    asll
  29.  
  30. return:    ldx    1(s)
  31.     leas    5(s)
  32.     jmp    (x)
  33.