home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / mp / lo-ibmrt.s < prev    next >
Encoding:
Text File  |  1991-06-19  |  936 b   |  68 lines
  1.  # Copyright W. Schelter 1991
  2.  # untested
  3.     .file    "foo.c"
  4.     .data
  5.     .text
  6.     .globl    .mulul3
  7.     .align    1
  8. .nmulul3:
  9.     .text
  10.     .set    L.1F,0x00000000
  11.     .set    L.1L,0x00000000
  12.     .set    L.1R,10
  13.     .set    L.1A,0x00000004-(4*L.1R-100)-16
  14.     stm    L.1R,4*L.1R-100(1)
  15.     cal    1,-(16+L.1A)(1)
  16.     lr    14,0
  17.     lr    12,2
  18.     lr    11,3
  19.     lr    10,4
  20. #    line 5, file "foo.c"
  21.     mts    10,12
  22.     s    13,13
  23.     m    13,11
  24.     m    13,11
  25.     m    13,11
  26.     m    13,11
  27.     m    13,11
  28.     m    13,11
  29.     m    13,11
  30.     m    13,11
  31.     m    13,11
  32.     m    13,11
  33.     m    13,11
  34.     m    13,11
  35.     m    13,11
  36.     m    13,11
  37.     m    13,11
  38.     m    13,11
  39.      # 86
  40.        # 46
  41. #    line 6, file "foo.c"
  42.     ci    12,0# 47
  43.     bge    L.13
  44. #    line 7, file "foo.c"
  45.     a    13,11# 63
  46. L.13:
  47. #    line 8, file "foo.c"
  48.     ci    11,0# 47
  49.     bge    L.14
  50. #    line 9, file "foo.c"
  51.     a    13,12# 63
  52. L.14:
  53. #    line 10, file "foo.c"
  54.     st    13,0(10)# 17
  55.     mfs    10,2
  56. #    line 11, file "foo.c"
  57. #clrcb    15,8  # DMAsync
  58.     lm    L.1R,(16+L.1A)+(4*L.1R-100)(1)
  59.     brx    15
  60.     cal    1,16+L.1A(1)
  61.     .short    0xdf01,L.1R*16+0xdf00,L.1A+16
  62.     .data    3
  63.     .globl    _mulul3
  64. _mulul3:
  65.     .long    .mulul3
  66.     .text
  67.     .data
  68.