home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MAILBOX.ZIP / MPVAXSJT.S < prev    next >
Encoding:
Text File  |  1988-03-28  |  2.3 KB  |  162 lines
  1. LL0:
  2.     .data
  3.     .text
  4.     .align    1
  5.     .globl    _mpvaxsj_protofn
  6. _mpvaxsj_protofn:
  7.     .word    L14
  8.     jbr     L16
  9. L17:
  10.     movl    $16,r11
  11.     movl    $17,r10
  12.     movl    $18,r9
  13.     movl    $19,r8
  14.     movl    $20,r7
  15.     movl    $21,r6
  16.     movl    $22,-4(fp)
  17.     movl    $23,-8(fp)
  18.     movl    $24,-12(fp)
  19.     movl    $25,-16(fp)
  20.     movl    $26,-20(fp)
  21.     movl    $27,-24(fp)
  22.     movl    $28,-28(fp)
  23.     addl3    r10,r11,r0
  24.     addl2    r9,r0
  25.     addl2    r8,r0
  26.     addl2    r7,r0
  27.     addl2    r6,r0
  28.     addl2    -4(fp),r0
  29.     addl2    -8(fp),r0
  30.     addl2    -12(fp),r0
  31.     addl2    -16(fp),r0
  32.     addl2    -20(fp),r0
  33.     addl2    -24(fp),r0
  34.     addl2    -28(fp),r0
  35.     ret
  36.     ret
  37.     .set    L14,0xfc0
  38. L16:
  39.     subl2    $28,sp
  40.     jbr     L17
  41.     .data
  42.     .text
  43.     .align    1
  44.     .globl    _mpvaxsj_test
  45. _mpvaxsj_test:
  46.     .word    L19
  47.     jbr     L21
  48. L22:
  49.     movl    $11,r11
  50.     movl    $10,r10
  51.     movl    $9,r9
  52.     movl    $8,r8
  53.     movl    $7,r7
  54.     movl    $6,r6
  55.     movl    $5,-72(fp)
  56.     .data    1
  57. L24:
  58.     .ascii    "\11Registers r5-r11\72 %d, %d, %d, %d, %d, %d, %d\12\0"
  59.     .text
  60.     pushl    r11
  61.     pushl    r10
  62.     pushl    r9
  63.     pushl    r8
  64.     pushl    r7
  65.     pushl    r6
  66.     pushl    -72(fp)
  67.     pushl    $L24
  68.     calls    $8,_printf
  69.     .data    1
  70. L25:
  71.     .ascii    "Setting jumper.\12\0"
  72.     .text
  73.     pushl    $L25
  74.     calls    $1,_printf
  75.     subl3    $64,fp,r0
  76.     pushl    r0
  77.     calls    $1,_mpvaxsj_setjmp
  78.     movl    r0,-68(fp)
  79.     jneq    L26
  80.     movl    $2,r11
  81.     movl    r11,r10
  82.     movl    r10,r9
  83.     movl    r9,r8
  84.     movl    r8,r7
  85.     movl    r7,r6
  86.     movl    r6,-72(fp)
  87.     .data    1
  88. L27:
  89.     .ascii    "Jumping Jumper\12\0"
  90.     .text
  91.     pushl    $L27
  92.     calls    $1,_printf
  93.     .data    1
  94. L28:
  95.     .ascii    "\11Registers r5-r11\72 %d, %d, %d, %d, %d, %d, %d\12\0"
  96.     .text
  97.     pushl    r11
  98.     pushl    r10
  99.     pushl    r9
  100.     pushl    r8
  101.     pushl    r7
  102.     pushl    r6
  103.     pushl    -72(fp)
  104.     pushl    $L28
  105.     calls    $8,_printf
  106.     pushl    $2
  107.     subl3    $64,fp,r0
  108.     pushl    r0
  109.     calls    $2,_mpvaxsj_longjmp
  110.     .data    1
  111. L29:
  112.     .ascii    "Should Never Evaluate\12\0"
  113.     .text
  114.     pushl    $L29
  115.     calls    $1,_printf
  116. L26:
  117.     .data    1
  118. L30:
  119.     .ascii    "Catching Jump with a %d returned.\12\0"
  120.     .text
  121.     pushl    -68(fp)
  122.     pushl    $L30
  123.     calls    $2,_printf
  124.     .data    1
  125. L31:
  126.     .ascii    "\11Registers r5-r11\72 %d, %d, %d, %d, %d, %d, %d\12\0"
  127.     .text
  128.     pushl    r11
  129.     pushl    r10
  130.     pushl    r9
  131.     pushl    r8
  132.     pushl    r7
  133.     pushl    r6
  134.     pushl    -72(fp)
  135.     pushl    $L31
  136.     calls    $8,_printf
  137.     ret
  138.     .set    L19,0xfc0
  139. L21:
  140.     movab    -72(sp),sp
  141.     jbr     L22
  142.     .data
  143.     .text
  144.     .align    1
  145.     .globl    _main
  146. _main:
  147.     .word    L33
  148.     jbr     L35
  149. L36:
  150.     calls    $0,_mpvaxsj_test
  151.     .data    1
  152. L37:
  153.     .ascii    "mpvaxsj_test() Returned\12\0"
  154.     .text
  155.     pushl    $L37
  156.     calls    $1,_printf
  157.     ret
  158.     .set    L33,0x0
  159. L35:
  160.     jbr     L36
  161.     .data
  162.