home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / ossxmpls.lha / examples / Tsp.t < prev   
Encoding:
Text File  |  1992-04-04  |  8.3 KB  |  689 lines

  1.     .data
  2.     .align
  3. C10:    .word    0x3
  4.     .word    0x1
  5.     .word    0xffffffff
  6.     .word    0x2
  7.     .word    0xffffffff
  8.     .word    0xffffffff
  9.     .text
  10. L10_1:    entr    2,2
  11.     lods    1,3
  12.     lods    2,2
  13.     bnem    1,2,1,L2
  14.     lodz    1
  15.     retr    2,2,1
  16. L2:    lods.i    1,3
  17.     lodc.i    2,0x1
  18.     add.i    2
  19.     itow    1
  20.     lods    2,3
  21.     lods    3,2
  22.     call    3,0,L10_2
  23.     .addr    L3
  24.     .addr    L1
  25.     .word    0xfffffffe
  26.     .word    0xfffffffc
  27. L3:    lods.i    1,3
  28.     lodc.i    2,0x1
  29.     add.i    2
  30.     itow    1
  31.     lods    2,2
  32.     call    2,1,L10_1
  33.     .addr    L4
  34.     .addr    L1
  35.     .word    0xfffffffe
  36.     .word    0xfffffffc
  37. L4:    move    1,0
  38.     chek    L5
  39.     coll    L6
  40.     .data
  41. L6:    .word    0x0
  42.     .word    0xfffffffe
  43.     .word    0xfffffffc
  44.     .text
  45. L5:    brek    1,3
  46.     stoc    1,0,0xc000f
  47.     stos    1,1,3
  48.     stos    1,2,0
  49.     retr    2,2,1
  50. L1:    fail    2,2
  51. L10_2:    entr    3,2
  52.     lods    1,4
  53.     lods    2,2
  54.     bnem    1,2,1,L8
  55.     retr    3,2,0
  56. L8:    lods    1,2
  57.     lodm.i    1,1,3
  58.     lodc.i    2,0x1295
  59.     mul.i    2
  60.     lodc.i    2,0x1
  61.     add.i    2
  62.     lodc.i    2,0x8000
  63.     rem.i    2
  64.     itow    1
  65.     lods    2,2
  66.     stor    2,3,1
  67.     lods    1,2
  68.     lodm.i    1,1,3
  69.     lodc.i    2,0x10
  70.     div.i    2
  71.     lodc.i    2,0x100
  72.     rem.i    2
  73.     lodc.i    2,0x1
  74.     add.i    2
  75.     itow    1
  76.     move    1,0
  77.     lods    1,0
  78.     lods    2,2
  79.     lodm    2,2,2
  80.     lods.i    3,3
  81.     lodm.i    4,2,2
  82.     mul.i    4
  83.     lods.i    4,4
  84.     add.i    4
  85.     indx    3
  86.     stor    2,4,1
  87.     lods    1,0
  88.     lods    2,2
  89.     lodm    2,2,2
  90.     lods.i    3,4
  91.     lodm.i    4,2,2
  92.     mul.i    4
  93.     lods.i    4,3
  94.     add.i    4
  95.     indx    3
  96.     stor    2,4,1
  97.     lods.i    1,4
  98.     lodc.i    2,0x1
  99.     add.i    2
  100.     itow    1
  101.     lods    2,3
  102.     jump    3,2,2,L10_2
  103.     .data
  104.     .align
  105. C11:    .word    0x1
  106.     .word    0x2
  107.     .word    0x3
  108.     .word    0x7
  109.     .word    0xffffffff
  110.     .word    0x6
  111.     .word    0x5
  112.     .word    0x4
  113.     .word    0xffffffff
  114.     .word    0xffffffff
  115.     .text
  116. L11_1:    entr    6,3
  117.     chek    L10
  118.     coll    L11
  119.     .data
  120. L11:    .word    0xfffffffd
  121.     .word    0xfffffff7
  122.     .text
  123. L10:    lods.i    1,7
  124.     lods    2,3
  125.     lodm.i    2,2,7
  126.     blt.i    2,L12
  127.     retr    6,3,0
  128. L12:    lods    1,4
  129.     bnez    1,L13
  130.     lods    1,5
  131.     bnez    1,L13
  132.     lods    1,6
  133.     beqz    1,L13
  134.     lodr    2,1
  135.     lodm    3,2,1
  136.     move    3,1
  137.     move    1,0
  138.     lods.i    1,7
  139.     lods    2,3
  140.     lodm    2,2,5
  141.     lods.i    3,1
  142.     lodm.i    4,2,2
  143.     mul.i    4
  144.     lodz.i    4
  145.     add.i    4
  146.     indx    3
  147.     lodm.i    2,2,4
  148.     add.i    2
  149.     itow    1
  150.     lods    2,0
  151.     lods    3,3
  152.     call    3,0,L11_3
  153.     .addr    L14
  154.     .addr    L9
  155.     .word    0xfffffffd
  156.     .word    0xfffffff7
  157. L14:    retr    6,3,0
  158. L13:    lods    1,8
  159.     bnez    1,L15
  160.     brek    1,3
  161.     stoc    1,0,0x14000f
  162.     brek    2,5
  163.     stoc    2,0,0x300017
  164.     stos    2,1,4
  165.     stos    2,2,5
  166.     stos    2,3,6
  167.     stos    2,4,7
  168.     stor    1,1,2
  169.     stoz    1,2
  170.     lods    2,3
  171.     lodm    2,2,4
  172.     lods    3,3
  173.     call    3,1,L11_4
  174.     .addr    L16
  175.     .addr    L9
  176.     .word    0x6
  177.     .word    0x5
  178.     .word    0x4
  179.     .word    0xfffffffd
  180.     .word    0xfffffff7
  181. L16:    lods    2,3
  182.     stor    2,4,1
  183.     retr    6,3,0
  184. L15:    lods    1,8
  185.     lods    2,7
  186.     lods    3,6
  187.     lods    4,5
  188.     lods    5,4
  189.     lods    6,3
  190.     call    6,0,L11_2
  191.     .addr    L17
  192.     .addr    L9
  193.     .word    0x6
  194.     .word    0x5
  195.     .word    0x4
  196.     .word    0xfffffffd
  197.     .word    0xfffffff7
  198. L17:    lods    1,8
  199.     lods    2,7
  200.     lods    3,6
  201.     lods    4,4
  202.     lods    5,5
  203.     jump    6,3,5,L11_2
  204. L9:    fail    6,3
  205. L11_2:    entr    6,6
  206.     chek    L19
  207.     coll    L20
  208.     .data
  209. L20:    .word    0xfffffffa
  210.     .word    0xfffffff4
  211.     .text
  212. L19:    lods    1,7
  213.     bnez    1,L21
  214.     retr    6,6,0
  215. L21:    lods    1,7
  216.     beqz    1,L18
  217.     lodr    2,1
  218.     lodm    3,2,1
  219.     move    3,0
  220.     lodm    3,2,2
  221.     move    3,1
  222.     lods    1,9
  223.     beqz    1,L18
  224.     lodr    2,1
  225.     lodm    3,2,1
  226.     move    3,3
  227.     lodm    3,2,2
  228.     move    3,4
  229.     move    1,2
  230.     lods.i    1,11
  231.     lodc.i    2,0x1
  232.     sub.i    2
  233.     itow    1
  234.     lods.i    2,10
  235.     lods    3,6
  236.     lodm    3,3,5
  237.     lods.i    4,0
  238.     lodm.i    5,3,2
  239.     mul.i    5
  240.     lods.i    5,3
  241.     add.i    5
  242.     indx    4
  243.     lodm.i    3,3,4
  244.     add.i    3
  245.     itow    2
  246.     brek    3,6
  247.     stoc    3,0,0xc000f
  248.     stos    3,1,0
  249.     cdra    3,2
  250.     stom    3,3,3,0
  251.     stos    3,4,3
  252.     stos    3,5,4
  253.     lods    4,8
  254.     lods    5,1
  255.     lods    6,6
  256.     call    6,0,L11_1
  257.     .addr    L22
  258.     .addr    L18
  259.     .word    0x2
  260.     .word    0x8
  261.     .word    0x1
  262.     .word    0xfffffffa
  263.     .word    0xfffffff4
  264. L22:    lods    1,11
  265.     lods    2,10
  266.     lods    3,2
  267.     brek    4,3
  268.     stoc    4,0,0xc000f
  269.     stos    4,1,0
  270.     stos    4,2,8
  271.     lods    5,1
  272.     jump    6,6,5,L11_2
  273. L18:    fail    6,6
  274. L11_3:    entr    3,1
  275.     lods.i    1,3
  276.     lods    2,1
  277.     lodm.i    2,2,7
  278.     blt.i    2,L24
  279.     rets    3,1,0
  280. L24:    lods    1,2
  281.     lods    2,1
  282.     stor    2,6,1
  283.     lods    1,3
  284.     lods    2,1
  285.     stor    2,7,1
  286.     rets    3,1,0
  287. L11_4:    entr    3,4
  288.     lods    1,5
  289.     bnez    1,L26
  290.     lods    1,6
  291.     retr    3,4,1
  292. L26:    lods    1,5
  293.     beqz    1,L25
  294.     lodr    2,1
  295.     lodm    3,2,1
  296.     move    3,0
  297.     lodm    3,2,2
  298.     move    3,1
  299.     lods    1,6
  300.     lods    2,1
  301.     lods    3,4
  302.     call    3,1,L11_4
  303.     .addr    L27
  304.     .addr    L25
  305.     .word    0x0
  306.     .word    0xfffffffc
  307.     .word    0xfffffff9
  308. L27:    move    1,2
  309.     chek    L28
  310.     coll    L29
  311.     .data
  312. L29:    .word    0x2
  313.     .word    0x0
  314.     .word    0xfffffffc
  315.     .word    0xfffffff9
  316.     .text
  317. L28:    brek    1,3
  318.     stoc    1,0,0x14000f
  319.     stos    1,1,0
  320.     stos    1,2,2
  321.     retr    3,4,1
  322. L25:    fail    3,4
  323.     .data
  324.     .align
  325. C13:    .word    0x1
  326.     .word    0x2
  327.     .word    0x3
  328.     .word    0x7
  329.     .word    0xffffffff
  330.     .word    0x8
  331.     .word    0x6
  332.     .word    0x5
  333.     .word    0x4
  334.     .word    0xffffffff
  335.     .word    0xffffffff
  336.     .text
  337. L13_0:    entr    1,1
  338.     lods    1,1
  339.     call    1,0,L13_5
  340.     .addr    L31
  341.     .addr    L30
  342.     .word    0xffffffff
  343.     .word    0xfffffffe
  344. L31:    done
  345.     exit    1
  346. L30:    quit
  347.     exit    1
  348. L13_6:    entr    1,1
  349.     lodc    1,0xc000f
  350.     lodc    2,0x14000f
  351.     lods    3,1
  352.     lodm    3,3,7
  353.     lods    4,1
  354.     lodm    4,4,6
  355.     lodc    5,0x0
  356.     lodc    6,0x2
  357.     lodc    7,0x3
  358.     lods    8,1
  359.     lodm    8,8,8
  360.     send    8
  361.     lods    1,1
  362.     call    1,0,L13_5
  363.     .addr    L33
  364.     .addr    L32
  365.     .word    0xffffffff
  366.     .word    0xfffffffe
  367. L33:    recv    0,L32
  368.     retr    1,1,0
  369. L32:    fail    1,1
  370. L13_5:    entr    1,8
  371.     lodc    1,0xc000f
  372.     lodc    2,0x14000f
  373.     lodc    3,0x14000f
  374.     lodc    4,0x3
  375.     lodc    5,0x0
  376.     lodc    6,0x7
  377.     lods    7,8
  378.     lodm    7,7,8
  379.     send    7
  380.     recv    3,L35
  381.     move    3,0
  382.     move    2,1
  383.     move    1,2
  384.     lods    1,0
  385.     beqz    1,L35
  386.     lodm    2,1,0
  387.     bnec    2,0x300017,L35
  388.     lodm    2,1,1
  389.     move    2,3
  390.     lodm    2,1,2
  391.     move    2,4
  392.     lodm    2,1,3
  393.     move    2,5
  394.     lodm    2,1,4
  395.     move    2,6
  396.     lods    1,2
  397.     lods    2,1
  398.     lods    3,8
  399.     call    3,0,L11_3
  400.     .addr    L36
  401.     .addr    L35
  402.     .word    0x5
  403.     .word    0x4
  404.     .word    0x3
  405.     .word    0xfffffff8
  406.     .word    0xfffffff7
  407. L36:    lodc.i    1,0xffffffff
  408.     itow    1
  409.     lods    2,6
  410.     lods    3,5
  411.     lods    4,4
  412.     lods    5,3
  413.     lods    6,8
  414.     call    6,0,L11_1
  415.     .addr    L37
  416.     .addr    L35
  417.     .word    0xfffffff8
  418.     .word    0xfffffff7
  419. L37:    lods    1,8
  420.     call    1,0,L13_6
  421.     .addr    L38
  422.     .addr    L35
  423.     .word    0xfffffff8
  424.     .word    0xfffffff7
  425. L38:    retr    1,8,0
  426. L35:    retr    1,8,0
  427.     .data
  428.     .align
  429. C14:    .word    0x1
  430.     .word    0x2
  431.     .word    0x3
  432.     .word    0x7
  433.     .word    0xffffffff
  434.     .word    0x6
  435.     .word    0x5
  436.     .word    0x4
  437.     .word    0xffffffff
  438.     .word    0xffffffff
  439.     .text
  440. L14_5:    entr    4,5
  441.     chek    L40
  442.     coll    L41
  443.     .data
  444. L41:    .word    0xfffffffb
  445.     .word    0xfffffff7
  446.     .text
  447. L40:    lods    1,6
  448.     beqz    1,L39
  449.     lodm    2,1,2
  450.     move    2,0
  451.     lodm    2,1,3
  452.     bnes    2,0,L39
  453.     lods    2,5
  454.     stor    2,5,1
  455.     lodz    1
  456.     lods    2,5
  457.     stor    2,6,1
  458.     lodc    1,0xffff
  459.     lods    2,5
  460.     stor    2,7,1
  461.     brek    1,4
  462.     stoc    1,0,0x280013
  463.     stos    1,1,0
  464.     lods    2,5
  465.     stom    1,2,2,5
  466.     stoc    1,3,0xc5
  467.     move    1,1
  468.     lodz    1
  469.     lods    2,1
  470.     invk    2,1,1
  471.     .addr    L42
  472.     .addr    L39
  473.     .word    0x1
  474.     .word    0xfffffffb
  475.     .word    0xfffffff7
  476. L42:    beqz    1,L39
  477.     lodr    2,1
  478.     lodm    3,2,1
  479.     move    3,2
  480.     lodm    3,2,2
  481.     move    3,3
  482.     lods    1,7
  483.     lodz    2
  484.     brek    3,3
  485.     stoc    3,0,0xc000f
  486.     stos    3,1,2
  487.     stoz    3,2
  488.     lodz    4
  489.     lods    5,3
  490.     lods    6,5
  491.     call    6,0,L11_1
  492.     .addr    L43
  493.     .addr    L39
  494.     .word    0xfffffffb
  495.     .word    0xfffffff7
  496. L43:    lods    1,8
  497.     lods    2,5
  498.     call    2,0,L14_6
  499.     .addr    L44
  500.     .addr    L39
  501.     .word    0xfffffffb
  502.     .word    0xfffffff7
  503. L44:    lods    1,8
  504.     wait    1,2,L45
  505.     .word    0xfffffffb
  506.     .word    0xfffffff7
  507.     .word    0x3
  508. L45:    lods    1,5
  509.     lodm    1,1,7
  510.     lods    2,5
  511.     lodm    2,2,6
  512.     rets    4,5,2
  513. L39:    fail    4,5
  514. L14_6:    entr    2,1
  515.     chek    L47
  516.     coll    L48
  517.     .data
  518. L48:    .word    0xffffffff
  519.     .word    0xfffffffd
  520.     .text
  521. L47:    lods    1,2
  522.     bnez    1,L49
  523.     retr    2,1,0
  524. L49:    brek    1,9
  525.     stoc    1,0,0x340027
  526.     stoc    1,1,0x340027
  527.     stoz    1,4
  528.     lods    2,1
  529.     stom    1,5,2,5
  530.     stoz    1,6
  531.     stoc    1,7,0xffff
  532.     stos    1,8,1
  533.     stoz    1,2
  534.     stoz    1,3
  535.     cret    1
  536.     lods.i    1,2
  537.     lodc.i    2,0x1
  538.     sub.i    2
  539.     itow    1
  540.     jump    2,1,1,L14_6
  541. L14_7:    entr    4,2
  542.     lodz    1
  543.     lods    2,2
  544.     bnem    1,2,4,L51
  545.     lodc    1,0x1
  546.     post    1,2
  547.     lods    1,2
  548.     lodm    1,1,7
  549.     lods    2,2
  550.     lodm    2,2,6
  551.     lodz    3
  552.     rets    4,2,3
  553. L51:    lods    1,2
  554.     lodm    1,1,4
  555.     beqz    1,L52
  556.     lodr    2,1
  557.     lodm    3,2,1
  558.     move    3,0
  559.     lodm    3,2,2
  560.     lods    4,2
  561.     stor    4,4,3
  562.     lods    1,2
  563.     lodm.i    1,1,7
  564.     lods    2,0
  565.     lodm.i    2,2,4
  566.     ble.i    2,L52
  567.     lods    1,2
  568.     lodm    1,1,7
  569.     lods    2,2
  570.     lodm    2,2,6
  571.     lods    3,0
  572.     rets    4,2,3
  573. L52:    lods    4,2
  574.     call    4,3,L14_7
  575.     .addr    L53
  576.     .addr    L50
  577.     .word    0xfffffffe
  578.     .word    0xfffffffa
  579. L53:    move    3,0
  580.     lods    1,2
  581.     lodm    1,1,7
  582.     lods    2,2
  583.     lodm    2,2,6
  584.     lods    3,0
  585.     rets    4,2,3
  586. L50:    fail    4,2
  587.     .data
  588.     .align
  589. C12:    .word    0x4
  590.     .word    0xffffffff
  591.     .word    0x3
  592.     .word    0x2
  593.     .word    0x1
  594.     .word    0xffffffff
  595.     .word    0xffffffff
  596.     .text
  597.     .data
  598.     .align
  599.     .globl    cno
  600.     .word    0xf
  601.     .globl    ctab
  602.     .word    0x0
  603.     .word    0x0
  604.     .word    0x0
  605.     .word    0x0
  606.     .word    0x0
  607.     .word    0x0
  608.     .word    0x0
  609.     .word    0x0
  610.     .word    0x0
  611.     .word    0x0
  612.     .addr    C10
  613.     .addr    C11
  614.     .addr    C12
  615.     .addr    C13
  616.     .addr    C14
  617.     .globl    dtab
  618.     .word    0x0
  619.     .word    0x0
  620.     .word    0x0
  621.     .word    0x0
  622.     .word    0x0
  623.     .word    0x0
  624.     .word    0x0
  625.     .word    0x0
  626.     .word    0x0
  627.     .word    0x0
  628.     .addr    M10
  629.     .addr    M11
  630.     .addr    M12
  631.     .addr    M13
  632.     .addr    M14
  633. M10:    .word    0x0
  634.     .addr    L10_1
  635.     .addr    L10_2
  636. M11:    .word    0x0
  637.     .addr    L11_1
  638.     .addr    L11_2
  639.     .addr    L11_3
  640.     .addr    L11_4
  641. M12:    .word    0x0
  642. M13:    .addr    L13_0
  643.     .addr    L11_1
  644.     .addr    L11_2
  645.     .addr    L11_3
  646.     .addr    L11_4
  647.     .addr    L13_5
  648.     .addr    L13_6
  649. M14:    .word    0x0
  650.     .addr    L11_1
  651.     .addr    L11_2
  652.     .addr    L11_3
  653.     .addr    L11_4
  654.     .addr    L14_5
  655.     .addr    L14_6
  656.     .addr    L14_7
  657.     .globl    stab
  658.     .addr    S0
  659.     .addr    S1
  660.     .addr    S2
  661.     .addr    S3
  662.     .addr    S4
  663.     .addr    S5
  664.     .addr    S6
  665.     .addr    S7
  666.     .addr    S8
  667.     .addr    S9
  668.     .addr    S10
  669.     .addr    S11
  670.     .addr    S12
  671.     .addr    S13
  672.     .addr    S14
  673. S0:    .ascii    $root
  674. S1:    .ascii    $handle
  675. S2:    .ascii    $listc
  676. S3:    .ascii    $listi
  677. S4:    .ascii    $listf
  678. S5:    .ascii    $listp
  679. S6:    .ascii    $arrayc
  680. S7:    .ascii    $arrayi
  681. S8:    .ascii    $arrayf
  682. S9:    .ascii    $arrayp
  683. S10:    .ascii    map
  684. S11:    .ascii    Tsp
  685. S12:    .ascii    task
  686. S13:    .ascii    Slave
  687. S14:    .ascii    Master
  688.     .align
  689.