home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / zeller.src < prev   
Encoding:
Text File  |  1984-04-29  |  2.6 KB  |  255 lines
  1.     NAME    ZELLER
  2.     ENTRY    ZELLER
  3. ZELLER
  4.     ENTR    D,2,8
  5.     STMT    D,4097
  6.     MOV    H,9(IX)
  7.     MOV    L,8(IX)
  8.     PUSH    H
  9.     STMT    D,4098
  10.     STMT    D,4099
  11.     MOV    L,-9(IX)
  12.     MOV    H,-8(IX)
  13.     MOV    M,A
  14.     DCX    H
  15.     MOV    M,A
  16.     STMT    D,4100
  17.     MOV    L,-9(IX)
  18.     MOV    H,-8(IX)
  19.     DCX    H
  20.     DCX    H
  21.     MOV    M,A
  22.     DCX    H
  23.     MOV    M,A
  24.     STMT    D,4101
  25.     MOV    L,10(IX)
  26.     MOV    H,11(IX)
  27.     MOV    -6(IX),H
  28.     MOV    -7(IX),L
  29.     STMT    D,4102
  30.     MOV    L,14(IX)
  31.     MOV    H,15(IX)
  32.     DCX    H
  33.     DCX    H
  34.     MOV    -4(IX),H
  35.     MOV    -5(IX),L
  36.     STMT    D,4103
  37.     MOV    L,-5(IX)
  38.     MOV    H,-4(IX)
  39.     LXI    D,1
  40.     LESS    D,0
  41.     JNC    L268
  42.     STMT    D,4104
  43.     STMT    D,4105
  44.     MOV    L,-5(IX)
  45.     MOV    H,-4(IX)
  46.     LXI    D,12
  47.     DADD    D,0
  48.     MOV    -4(IX),H
  49.     MOV    -5(IX),L
  50.     STMT    D,4106
  51.     MOV    L,-7(IX)
  52.     MOV    H,-6(IX)
  53.     DCX    H
  54.     MOV    -6(IX),H
  55.     MOV    -7(IX),L
  56.     STMT    D,4107
  57. L268
  58.     STMT    D,4108
  59.     MOV    L,12(IX)
  60.     MOV    H,13(IX)
  61.     MOV    -2(IX),H
  62.     MOV    -3(IX),L
  63.     STMT    D,4109
  64.     MOV    L,-7(IX)
  65.     MOV    H,-6(IX)
  66.     LXI    D,100
  67.     DIVD    D,0
  68.     MOV    0(IX),H
  69.     MOV    -1(IX),L
  70.     STMT    D,4110
  71.     MOV    L,-7(IX)
  72.     MOV    H,-6(IX)
  73.     MOV    E,-1(IX)
  74.     MOV    D,0(IX)
  75.     PUSH    H
  76.     LXI    H,100
  77.     MULT    D,0
  78.     POP    D
  79.     XCHG
  80.     DSUB    D,0
  81.     MOV    -6(IX),H
  82.     MOV    -7(IX),L
  83.     STMT    D,4111
  84.     MOV    L,-9(IX)
  85.     MOV    H,-8(IX)
  86.     DCX    H
  87.     DCX    H
  88.     MOV    E,-5(IX)
  89.     MOV    D,-4(IX)
  90.     PUSH    H
  91.     LXI    H,13
  92.     MULT    D,0
  93.     DCX    H
  94.     LXI    D,5
  95.     DIVD    D,0
  96.     MOV    E,-3(IX)
  97.     MOV    D,-2(IX)
  98.     DADD    D,0
  99.     MOV    E,-7(IX)
  100.     MOV    D,-6(IX)
  101.     PUSH    H
  102.     LXI    H,4
  103.     XCHG
  104.     DIVD    D,0
  105.     POP    D
  106.     DADD    D,0
  107.     MOV    E,-1(IX)
  108.     MOV    D,0(IX)
  109.     PUSH    H
  110.     LXI    H,4
  111.     XCHG
  112.     DIVD    D,0
  113.     POP    D
  114.     DADD    D,0
  115.     XCHG
  116.     POP    H
  117.     MOV    M,D
  118.     DCX    H
  119.     MOV    M,E
  120.     STMT    D,4112
  121. L344
  122.     MOV    L,-7(IX)
  123.     MOV    H,-6(IX)
  124.     LXI    D,2
  125.     GRET    D,0
  126.     JNC    L343
  127.     STMT    D,4113
  128.     STMT    D,4114
  129.     MOV    L,-7(IX)
  130.     MOV    H,-6(IX)
  131.     DCX    H
  132.     DCX    H
  133.     DCX    H
  134.     MOV    -6(IX),H
  135.     MOV    -7(IX),L
  136.     STMT    D,4115
  137.     MOV    L,-9(IX)
  138.     MOV    H,-8(IX)
  139.     XCHG
  140.     MOV    L,-9(IX)
  141.     MOV    H,-8(IX)
  142.     PUSH    D
  143.     MOV    D,M
  144.     DCX    H
  145.     MOV    E,M
  146.     INX    D
  147.     POP    H
  148.     MOV    M,D
  149.     DCX    H
  150.     MOV    M,E
  151.     STMT    D,4116
  152.     MOV    L,-9(IX)
  153.     MOV    H,-8(IX)
  154.     DCX    H
  155.     DCX    H
  156.     XCHG
  157.     MOV    L,-9(IX)
  158.     MOV    H,-8(IX)
  159.     DCX    H
  160.     DCX    H
  161.     PUSH    D
  162.     MOV    D,M
  163.     DCX    H
  164.     MOV    E,M
  165.     LXI    H,71
  166.     DADD    D,0
  167.     XCHG
  168.     POP    H
  169.     MOV    M,D
  170.     DCX    H
  171.     MOV    M,E
  172.     STMT    D,4117
  173.     CTRL    M,4117
  174.     JMP    L344
  175. L343
  176.     STMT    D,4118
  177.     MOV    L,-9(IX)
  178.     MOV    H,-8(IX)
  179.     DCX    H
  180.     DCX    H
  181.     XCHG
  182.     MOV    L,-9(IX)
  183.     MOV    H,-8(IX)
  184.     DCX    H
  185.     DCX    H
  186.     PUSH    D
  187.     MOV    D,M
  188.     DCX    H
  189.     MOV    E,M
  190.     MOV    L,-7(IX)
  191.     MOV    H,-6(IX)
  192.     PUSH    D
  193.     LXI    D,365
  194.     MULT    D,0
  195.     POP    D
  196.     DADD    D,0
  197.     XCHG
  198.     POP    H
  199.     MOV    M,D
  200.     DCX    H
  201.     MOV    M,E
  202.     STMT    D,4119
  203.     MOV    L,-9(IX)
  204.     MOV    H,-8(IX)
  205.     XCHG
  206.     MOV    L,-9(IX)
  207.     MOV    H,-8(IX)
  208.     PUSH    D
  209.     MOV    D,M
  210.     DCX    H
  211.     MOV    E,M
  212.     MOV    L,-1(IX)
  213.     MOV    H,0(IX)
  214.     PUSH    D
  215.     LXI    D,35
  216.     MULT    D,0
  217.     POP    D
  218.     DADD    D,0
  219.     XCHG
  220.     POP    H
  221.     MOV    M,D
  222.     DCX    H
  223.     MOV    M,E
  224.     STMT    D,4120
  225.     MOV    L,-9(IX)
  226.     MOV    H,-8(IX)
  227.     DCX    H
  228.     DCX    H
  229.     XCHG
  230.     MOV    L,-9(IX)
  231.     MOV    H,-8(IX)
  232.     DCX    H
  233.     DCX    H
  234.     PUSH    D
  235.     MOV    D,M
  236.     DCX    H
  237.     MOV    E,M
  238.     MOV    L,-1(IX)
  239.     MOV    H,0(IX)
  240.     PUSH    D
  241.     LXI    D,684
  242.     MULT    D,0
  243.     POP    D
  244.     DADD    D,0
  245.     XCHG
  246.     POP    H
  247.     MOV    M,D
  248.     DCX    H
  249.     MOV    M,E
  250.     STMT    D,4121
  251.     POP    H
  252.     STMT    D,4122
  253.     EXIT    D,8
  254.     END    ZELLER
  255.