home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / ossxmpls.lha / examples / mysort.t < prev    next >
Encoding:
Text File  |  1992-03-26  |  2.8 KB  |  233 lines
  1.     .data
  2.     .align
  3. C10:    .word    0xffffffff
  4.     .word    0xffffffff
  5.     .word    0xffffffff
  6.     .text
  7. L10_1:    entr    2,8
  8.     chek    L2
  9.     coll    L3
  10.     .data
  11. L3:    .word    0xfffffff8
  12.     .word    0xfffffff6
  13.     .text
  14. L2:    lods    1,9
  15.     bnez    1,L4
  16.     lodz    1
  17.     retr    2,8,1
  18. L4:    lods    1,9
  19.     beqz    1,L1
  20.     lodr    2,1
  21.     lodm    3,2,1
  22.     move    3,0
  23.     lodm    3,2,2
  24.     move    3,1
  25.     lods    1,0
  26.     lods    2,1
  27.     lods    3,8
  28.     call    3,2,L10_2
  29.     .addr    L5
  30.     .addr    L1
  31.     .word    0xfffffff8
  32.     .word    0xfffffff6
  33. L5:    move    2,3
  34.     move    1,4
  35.     lods    1,3
  36.     lods    2,8
  37.     call    2,1,L10_1
  38.     .addr    L6
  39.     .addr    L1
  40.     .word    0x4
  41.     .word    0xfffffff8
  42.     .word    0xfffffff6
  43. L6:    move    1,5
  44.     lods    1,4
  45.     lods    2,8
  46.     call    2,1,L10_1
  47.     .addr    L7
  48.     .addr    L1
  49.     .word    0x5
  50.     .word    0xfffffff8
  51.     .word    0xfffffff6
  52. L7:    move    1,6
  53.     brek    1,3
  54.     stoc    1,0,0xc000f
  55.     stos    1,1,0
  56.     stos    1,2,6
  57.     lods    2,5
  58.     lods    3,8
  59.     call    3,1,L10_3
  60.     .addr    L8
  61.     .addr    L1
  62.     .word    0xfffffff8
  63.     .word    0xfffffff6
  64. L8:    move    1,2
  65.     lods    1,2
  66.     retr    2,8,1
  67. L1:    fail    2,8
  68. L10_2:    entr    3,5
  69.     lods    1,6
  70.     bnez    1,L10
  71.     lodz    1
  72.     lodz    2
  73.     retr    3,5,2
  74. L10:    lods    1,6
  75.     beqz    1,L11
  76.     lodr    2,1
  77.     lodm    3,2,1
  78.     move    3,0
  79.     lodm    3,2,2
  80.     move    3,1
  81.     lods.i    1,7
  82.     lods.i    2,0
  83.     blt.i    2,L11
  84.     lods    1,7
  85.     lods    2,1
  86.     lods    3,5
  87.     call    3,2,L10_2
  88.     .addr    L12
  89.     .addr    L9
  90.     .word    0xfffffffb
  91.     .word    0xfffffff8
  92. L12:    move    2,2
  93.     move    1,3
  94.     chek    L13
  95.     coll    L14
  96.     .data
  97. L14:    .word    0x3
  98.     .word    0x2
  99.     .word    0xfffffffb
  100.     .word    0xfffffff8
  101.     .text
  102. L13:    lods    1,3
  103.     brek    2,3
  104.     stoc    2,0,0xc000f
  105.     stos    2,1,0
  106.     stos    2,2,2
  107.     retr    3,5,2
  108. L11:    lods    1,6
  109.     beqz    1,L9
  110.     lodr    2,1
  111.     lodm    3,2,1
  112.     move    3,0
  113.     lodm    3,2,2
  114.     move    3,1
  115.     lods.i    1,7
  116.     lods.i    2,0
  117.     bge.i    2,L9
  118.     lods    1,7
  119.     lods    2,1
  120.     lods    3,5
  121.     call    3,2,L10_2
  122.     .addr    L15
  123.     .addr    L9
  124.     .word    0xfffffffb
  125.     .word    0xfffffff8
  126. L15:    move    2,2
  127.     move    1,3
  128.     chek    L16
  129.     coll    L17
  130.     .data
  131. L17:    .word    0x3
  132.     .word    0x2
  133.     .word    0xfffffffb
  134.     .word    0xfffffff8
  135.     .text
  136. L16:    brek    1,3
  137.     stoc    1,0,0xc000f
  138.     stos    1,1,0
  139.     stos    1,2,3
  140.     lods    2,2
  141.     retr    3,5,2
  142. L9:    fail    3,5
  143. L10_3:    entr    3,4
  144.     lods    1,5
  145.     bnez    1,L19
  146.     lods    1,6
  147.     retr    3,4,1
  148. L19:    lods    1,5
  149.     beqz    1,L18
  150.     lodr    2,1
  151.     lodm    3,2,1
  152.     move    3,0
  153.     lodm    3,2,2
  154.     move    3,1
  155.     lods    1,6
  156.     lods    2,1
  157.     lods    3,4
  158.     call    3,1,L10_3
  159.     .addr    L20
  160.     .addr    L18
  161.     .word    0xfffffffc
  162.     .word    0xfffffff9
  163. L20:    move    1,2
  164.     chek    L21
  165.     coll    L22
  166.     .data
  167. L22:    .word    0x2
  168.     .word    0xfffffffc
  169.     .word    0xfffffff9
  170.     .text
  171. L21:    brek    1,3
  172.     stoc    1,0,0xc000f
  173.     stos    1,1,0
  174.     stos    1,2,2
  175.     retr    3,4,1
  176. L18:    fail    3,4
  177.     .data
  178.     .align
  179.     .globl    cno
  180.     .word    0xb
  181.     .globl    ctab
  182.     .word    0x0
  183.     .word    0x0
  184.     .word    0x0
  185.     .word    0x0
  186.     .word    0x0
  187.     .word    0x0
  188.     .word    0x0
  189.     .word    0x0
  190.     .word    0x0
  191.     .word    0x0
  192.     .addr    C10
  193.     .globl    dtab
  194.     .word    0x0
  195.     .word    0x0
  196.     .word    0x0
  197.     .word    0x0
  198.     .word    0x0
  199.     .word    0x0
  200.     .word    0x0
  201.     .word    0x0
  202.     .word    0x0
  203.     .word    0x0
  204.     .addr    M10
  205. M10:    .word    0x0
  206.     .addr    L10_1
  207.     .addr    L10_2
  208.     .addr    L10_3
  209.     .globl    stab
  210.     .addr    S0
  211.     .addr    S1
  212.     .addr    S2
  213.     .addr    S3
  214.     .addr    S4
  215.     .addr    S5
  216.     .addr    S6
  217.     .addr    S7
  218.     .addr    S8
  219.     .addr    S9
  220.     .addr    S10
  221. S0:    .ascii    $root
  222. S1:    .ascii    $handle
  223. S2:    .ascii    $listc
  224. S3:    .ascii    $listi
  225. S4:    .ascii    $listf
  226. S5:    .ascii    $listp
  227. S6:    .ascii    $arrayc
  228. S7:    .ascii    $arrayi
  229. S8:    .ascii    $arrayf
  230. S9:    .ascii    $arrayp
  231. S10:    .ascii    mysort
  232.     .align
  233.