home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 221_01 / cc6.asm < prev    next >
Assembly Source File  |  1979-12-31  |  16KB  |  1,499 lines
  1. ;small-c V2.3
  2.  EXT ccdiv,ccmult
  3.  EXT fopen,fclose,getc,putc,putchar,getchar,rewind,gets
  4.  EXT exit
  5.  EXT CCSWITCH
  6.  EXT CCPOLL
  7.  EXT isalpha,isupper,islower,isdigit,isspace
  8.  EXT toupper,tolower
  9.  EXT strlen,reverse,left,strcmp,strcpy
  10.  EXT abs,itoa,atoi,printf
  11.  EXT add
  12.  EXT asl
  13.  EXT asr
  14.  EXT blanks
  15.  EXT ch
  16.  EXT com
  17.  EXT dec
  18.  EXT div
  19.  EXT doublere
  20.  EXT errrpt
  21.  EXT heir11
  22.  EXT immed
  23.  EXT inc
  24.  EXT lognot
  25.  EXT match
  26.  EXT mod
  27.  EXT mult
  28.  EXT needlval
  29.  EXT neg
  30.  EXT nl
  31.  EXT outstr
  32.  EXT pop
  33.  EXT push
  34.  EXT rvalue
  35.  EXT store
  36.  EXT streq
  37.  EXT sub
  38.  EXT lptr
  39.  EXT cptr
  40.  EXT line
  41.  NAME heir7
  42.  GLOBAL heir7
  43. heir7
  44.  LEAS -20,S
  45.  LEAY 18,S
  46.  TFR  Y,D
  47.  PSHS D
  48.  LDD  24,S
  49.  PSHS D
  50.  JSR heir8
  51.  LEAS 2,S
  52.  STD  [,S++]
  53.  JSR blanks
  54.  LEAY 0,S
  55.  TFR  Y,D
  56.  PSHS D
  57.  LDD  #line
  58.  ADDD lptr
  59.  STD  [,S++]
  60.  LDD  0,S
  61.  PSHS D
  62.  LDD  #cc1+0
  63.  PSHS D
  64.  JSR streq
  65.  LEAS 4,S
  66.  CMPD #0
  67.  LBEQ cc2
  68.  LDD  18,S
  69.  LEAS 20,S
  70.  RTS
  71. cc2
  72.  LDD  0,S
  73.  PSHS D
  74.  LDD  #cc1+4
  75.  PSHS D
  76.  JSR streq
  77.  LEAS 4,S
  78.  CMPD #0
  79.  LBEQ cc3
  80.  LDD  18,S
  81.  LEAS 20,S
  82.  RTS
  83. cc3
  84.  LDD  0,S
  85.  PSHS D
  86.  LDD  #cc1+8
  87.  PSHS D
  88.  JSR streq
  89.  LEAS 4,S
  90.  PSHS D
  91.  LDD  #0
  92.  CMPD ,S++
  93.  BEQ  *+8
  94.  LDD  #0
  95.  JMP cc5 _
  96.  LDD  #1
  97.  LDD  0,S
  98.  PSHS D
  99.  LDD  #cc1+11
  100.  PSHS D
  101.  JSR streq
  102.  LEAS 4,S
  103.  PSHS D
  104.  LDD  #0
  105.  CMPD ,S++
  106.  BEQ  *+8
  107.  LDD  #0
  108.  JMP cc5 _
  109.  LDD  #1
  110.  LDD  #1
  111. cc5
  112.  CMPD #0
  113.  LBEQ cc4
  114.  LDD  18,S
  115.  LEAS 20,S
  116.  RTS
  117. cc4
  118.  LDD  18,S
  119.  CMPD #0
  120.  LBEQ cc6
  121.  LDD  22,S
  122.  PSHS D
  123.  JSR rvalue
  124.  LEAS 2,S
  125. cc6
  126. cc7
  127.  LDD  #1
  128.  CMPD #0
  129.  LBEQ cc8
  130.  LDD  #cc1+14
  131.  PSHS D
  132.  JSR match
  133.  LEAS 2,S
  134.  CMPD #0
  135.  LBEQ cc9
  136.  JSR push
  137.  LEAY 2,S
  138.  TFR  Y,D
  139.  PSHS D
  140.  JSR heir8
  141.  LEAS 2,S
  142.  CMPD #0
  143.  LBEQ cc10
  144.  LEAY 2,S
  145.  TFR  Y,D
  146.  PSHS D
  147.  JSR rvalue
  148.  LEAS 2,S
  149. cc10
  150.  JSR asr
  151.  JMP cc11
  152. cc9
  153.  LDD  #cc1+17
  154.  PSHS D
  155.  JSR match
  156.  LEAS 2,S
  157.  CMPD #0
  158.  LBEQ cc12
  159.  JSR push
  160.  LEAY 2,S
  161.  TFR  Y,D
  162.  PSHS D
  163.  JSR heir8
  164.  LEAS 2,S
  165.  CMPD #0
  166.  LBEQ cc13
  167.  LEAY 2,S
  168.  TFR  Y,D
  169.  PSHS D
  170.  JSR rvalue
  171.  LEAS 2,S
  172. cc13
  173.  JSR asl
  174.  JMP cc14
  175. cc12
  176.  LDD  #0
  177.  LEAS 20,S
  178.  RTS
  179. cc14
  180. cc11
  181.  JMP cc7
  182. cc8
  183.  LEAS 20,S
  184.  RTS
  185. cc1 FCB 62,62,61,0,60,60,61,0,62,62
  186.  FCB 0,60,60,0,62,62,0,60,60,0
  187.  GLOBAL heir8
  188. heir8
  189.  LEAS -20,S
  190.  LEAY 18,S
  191.  TFR  Y,D
  192.  PSHS D
  193.  LDD  24,S
  194.  PSHS D
  195.  JSR heir9
  196.  LEAS 2,S
  197.  STD  [,S++]
  198.  JSR blanks
  199.  LEAY 0,S
  200.  TFR  Y,D
  201.  PSHS D
  202.  LDD  #line
  203.  ADDD lptr
  204.  STD  [,S++]
  205.  JSR ch
  206.  PSHS D
  207.  LDD  #43
  208.  CMPD ,S++
  209.  BNE  *+8
  210.  LDD  #0
  211.  JMP cc17 _
  212.  LDD  #1
  213.  JSR ch
  214.  PSHS D
  215.  LDD  #45
  216.  CMPD ,S++
  217.  BNE  *+8
  218.  LDD  #0
  219.  JMP cc17 _
  220.  LDD  #1
  221.  LDD  #1
  222. cc17
  223.  CMPD #0
  224.  LBEQ cc16
  225.  LDD  18,S
  226.  LEAS 20,S
  227.  RTS
  228. cc16
  229.  LDD  0,S
  230.  PSHS D
  231.  LDD  #cc15+0
  232.  PSHS D
  233.  JSR streq
  234.  LEAS 4,S
  235.  CMPD #0
  236.  LBEQ cc18
  237.  LDD  18,S
  238.  LEAS 20,S
  239.  RTS
  240. cc18
  241.  LDD  0,S
  242.  PSHS D
  243.  LDD  #cc15+3
  244.  PSHS D
  245.  JSR streq
  246.  LEAS 4,S
  247.  CMPD #0
  248.  LBEQ cc19
  249.  LDD  18,S
  250.  LEAS 20,S
  251.  RTS
  252. cc19
  253.  LDD  18,S
  254.  CMPD #0
  255.  LBEQ cc20
  256.  LDD  22,S
  257.  PSHS D
  258.  JSR rvalue
  259.  LEAS 2,S
  260. cc20
  261. cc21
  262.  LDD  #1
  263.  CMPD #0
  264.  LBEQ cc22
  265.  LDD  #cc15+6
  266.  PSHS D
  267.  JSR match
  268.  LEAS 2,S
  269.  CMPD #0
  270.  LBEQ cc23
  271.  JSR push
  272.  LEAY 2,S
  273.  TFR  Y,D
  274.  PSHS D
  275.  JSR heir9
  276.  LEAS 2,S
  277.  CMPD #0
  278.  LBEQ cc24
  279.  LEAY 2,S
  280.  TFR  Y,D
  281.  PSHS D
  282.  JSR rvalue
  283.  LEAS 2,S
  284. cc24
  285.  LDD  22,S
  286.  PSHS D
  287.  LDD  #0
  288.  PSHS D
  289.  ADDD ,S++
  290.  ADDD ,S++
  291.  PSHS D
  292.  LDD  [,S++]
  293.  STD  cptr
  294.  CMPD #0
  295.  LBEQ cc25
  296.  LDD  cptr
  297.  ADDD #9
  298.  PSHS D
  299.  LDB  [,S++]
  300.  SEX
  301.  PSHS D
  302.  LDD  #3
  303.  CMPD ,S++
  304.  BEQ  *+8
  305.  LDD  #0
  306.  JMP cc27 _
  307.  LDD  #1
  308.  LDD  cptr
  309.  ADDD #10
  310.  PSHS D
  311.  LDB  [,S++]
  312.  SEX
  313.  PSHS D
  314.  LDD  #2
  315.  PSHS D
  316.  LDD  #2
  317.  DECB
  318.  BLT  *+8
  319.  ASL  1,S
  320.  ROL  ,S
  321.  BRA  *-7
  322.  PULS D
  323.  CMPD ,S++
  324.  BEQ  *+8
  325.  LDD  #0
  326.  JMP cc27 _
  327.  LDD  #1
  328.  LDD  #1
  329. cc27
  330.  CMPD #0
  331.  LBEQ cc28 _
  332.  LDD  22,S
  333.  PSHS D
  334.  LDD  #2
  335.  PSHS D
  336.  ADDD ,S++
  337.  ADDD ,S++
  338.  PSHS D
  339.  LDD  [,S++]
  340.  CMPD #0
  341.  LBEQ cc28 _
  342.  LDD  #1
  343. cc28
  344.  CMPD #0
  345.  LBEQ cc26
  346.  JSR doublere
  347. cc26
  348. cc25
  349.  JSR add
  350.  JMP cc29
  351. cc23
  352.  LDD  #cc15+8
  353.  PSHS D
  354.  JSR match
  355.  LEAS 2,S
  356.  CMPD #0
  357.  LBEQ cc30
  358.  JSR push
  359.  LEAY 2,S
  360.  TFR  Y,D
  361.  PSHS D
  362.  JSR heir9
  363.  LEAS 2,S
  364.  CMPD #0
  365.  LBEQ cc31
  366.  LEAY 2,S
  367.  TFR  Y,D
  368.  PSHS D
  369.  JSR rvalue
  370.  LEAS 2,S
  371. cc31
  372.  LDD  22,S
  373.  PSHS D
  374.  LDD  #0
  375.  PSHS D
  376.  ADDD ,S++
  377.  ADDD ,S++
  378.  PSHS D
  379.  LDD  [,S++]
  380.  STD  cptr
  381.  CMPD #0
  382.  LBEQ cc32
  383.  LDD  cptr
  384.  ADDD #9
  385.  PSHS D
  386.  LDB  [,S++]
  387.  SEX
  388.  PSHS D
  389.  LDD  #3
  390.  CMPD ,S++
  391.  BEQ  *+8
  392.  LDD  #0
  393.  JMP cc34 _
  394.  LDD  #1
  395.  LDD  cptr
  396.  ADDD #10
  397.  PSHS D
  398.  LDB  [,S++]
  399.  SEX
  400.  PSHS D
  401.  LDD  #2
  402.  PSHS D
  403.  LDD  #2
  404.  DECB
  405.  BLT  *+8
  406.  ASL  1,S
  407.  ROL  ,S
  408.  BRA  *-7
  409.  PULS D
  410.  CMPD ,S++
  411.  BEQ  *+8
  412.  LDD  #0
  413.  JMP cc34 _
  414.  LDD  #1
  415.  LDD  #1
  416. cc34
  417.  CMPD #0
  418.  LBEQ cc35 _
  419.  LDD  22,S
  420.  PSHS D
  421.  LDD  #2
  422.  PSHS D
  423.  ADDD ,S++
  424.  ADDD ,S++
  425.  PSHS D
  426.  LDD  [,S++]
  427.  CMPD #0
  428.  LBEQ cc35 _
  429.  LDD  #1
  430. cc35
  431.  CMPD #0
  432.  LBEQ cc33
  433.  JSR doublere
  434. cc33
  435. cc32
  436.  JSR sub
  437.  JMP cc36
  438. cc30
  439.  LDD  #0
  440.  LEAS 20,S
  441.  RTS
  442. cc36
  443. cc29
  444.  JMP cc21
  445. cc22
  446.  LEAS 20,S
  447.  RTS
  448. cc15 FCB 43,61,0,45,61,0,43,0,45,0
  449.  GLOBAL heir9
  450. heir9
  451.  LEAS -20,S
  452.  LEAY 18,S
  453.  TFR  Y,D
  454.  PSHS D
  455.  LDD  24,S
  456.  PSHS D
  457.  JSR heir10
  458.  LEAS 2,S
  459.  STD  [,S++]
  460.  JSR blanks
  461.  LEAY 0,S
  462.  TFR  Y,D
  463.  PSHS D
  464.  LDD  #line
  465.  ADDD lptr
  466.  STD  [,S++]
  467.  JSR ch
  468.  PSHS D
  469.  LDD  #42
  470.  CMPD ,S++
  471.  BNE  *+8
  472.  LDD  #0
  473.  JMP cc39 _
  474.  LDD  #1
  475.  JSR ch
  476.  PSHS D
  477.  LDD  #47
  478.  CMPD ,S++
  479.  BNE  *+8
  480.  LDD  #0
  481.  JMP cc39 _
  482.  LDD  #1
  483.  LDD  #1
  484. cc39
  485.  CMPD #0
  486.  LBEQ cc40 _
  487.  JSR ch
  488.  PSHS D
  489.  LDD  #37
  490.  CMPD ,S++
  491.  BNE  *+8
  492.  LDD  #0
  493.  JMP cc40 _
  494.  LDD  #1
  495.  LDD  #1
  496. cc40
  497.  CMPD #0
  498.  LBEQ cc38
  499.  LDD  18,S
  500.  LEAS 20,S
  501.  RTS
  502. cc38
  503.  LDD  0,S
  504.  PSHS D
  505.  LDD  #cc37+0
  506.  PSHS D
  507.  JSR streq
  508.  LEAS 4,S
  509.  CMPD #0
  510.  LBEQ cc41
  511.  LDD  18,S
  512.  LEAS 20,S
  513.  RTS
  514. cc41
  515.  LDD  0,S
  516.  PSHS D
  517.  LDD  #cc37+3
  518.  PSHS D
  519.  JSR streq
  520.  LEAS 4,S
  521.  CMPD #0
  522.  LBEQ cc42
  523.  LDD  18,S
  524.  LEAS 20,S
  525.  RTS
  526. cc42
  527.  LDD  0,S
  528.  PSHS D
  529.  LDD  #cc37+6
  530.  PSHS D
  531.  JSR streq
  532.  LEAS 4,S
  533.  CMPD #0
  534.  LBEQ cc43
  535.  LDD  18,S
  536.  LEAS 20,S
  537.  RTS
  538. cc43
  539.  LDD  18,S
  540.  CMPD #0
  541.  LBEQ cc44
  542.  LDD  22,S
  543.  PSHS D
  544.  JSR rvalue
  545.  LEAS 2,S
  546. cc44
  547. cc45
  548.  LDD  #1
  549.  CMPD #0
  550.  LBEQ cc46
  551.  LDD  #cc37+9
  552.  PSHS D
  553.  JSR match
  554.  LEAS 2,S
  555.  CMPD #0
  556.  LBEQ cc47
  557.  JSR push
  558.  LEAY 2,S
  559.  TFR  Y,D
  560.  PSHS D
  561.  JSR heir9
  562.  LEAS 2,S
  563.  CMPD #0
  564.  LBEQ cc48
  565.  LEAY 2,S
  566.  TFR  Y,D
  567.  PSHS D
  568.  JSR rvalue
  569.  LEAS 2,S
  570. cc48
  571.  JSR pop
  572.  JSR mult
  573.  JMP cc49
  574. cc47
  575.  LDD  #cc37+11
  576.  PSHS D
  577.  JSR match
  578.  LEAS 2,S
  579.  CMPD #0
  580.  LBEQ cc50
  581.  JSR push
  582.  LEAY 2,S
  583.  TFR  Y,D
  584.  PSHS D
  585.  JSR heir10
  586.  LEAS 2,S
  587.  CMPD #0
  588.  LBEQ cc51
  589.  LEAY 2,S
  590.  TFR  Y,D
  591.  PSHS D
  592.  JSR rvalue
  593.  LEAS 2,S
  594. cc51
  595.  JSR pop
  596.  JSR div
  597.  JMP cc52
  598. cc50
  599.  LDD  #cc37+13
  600.  PSHS D
  601.  JSR match
  602.  LEAS 2,S
  603.  CMPD #0
  604.  LBEQ cc53
  605.  JSR push
  606.  LEAY 2,S
  607.  TFR  Y,D
  608.  PSHS D
  609.  JSR heir10
  610.  LEAS 2,S
  611.  CMPD #0
  612.  LBEQ cc54
  613.  LEAY 2,S
  614.  TFR  Y,D
  615.  PSHS D
  616.  JSR rvalue
  617.  LEAS 2,S
  618. cc54
  619.  JSR pop
  620.  JSR mod
  621.  JMP cc55
  622. cc53
  623.  LDD  #0
  624.  LEAS 20,S
  625.  RTS
  626. cc55
  627. cc52
  628. cc49
  629.  JMP cc45
  630. cc46
  631.  LEAS 20,S
  632.  RTS
  633. cc37 FCB 42,61,0,47,61,0,37,61,0,42
  634.  FCB 0,47,0,37,0
  635.  GLOBAL heir10
  636. heir10
  637.  LEAS -4,S
  638.  LDD  #cc56+0
  639.  PSHS D
  640.  JSR match
  641.  LEAS 2,S
  642.  CMPD #0
  643.  LBEQ cc57
  644.  LEAY 2,S
  645.  TFR  Y,D
  646.  PSHS D
  647.  LDD  8,S
  648.  PSHS D
  649.  JSR heir10
  650.  LEAS 2,S
  651.  STD  [,S++]
  652.  LDD  2,S
  653.  CMPD #0
  654.  LBEQ cc58
  655.  LDD  6,S
  656.  PSHS D
  657.  JSR rvalue
  658.  LEAS 2,S
  659. cc58
  660.  JSR lognot
  661.  LDD  #0
  662.  LEAS 4,S
  663.  RTS
  664. cc57
  665.  LDD  #cc56+2
  666.  PSHS D
  667.  JSR match
  668.  LEAS 2,S
  669.  CMPD #0
  670.  LBEQ cc60
  671.  LEAY 2,S
  672.  TFR  Y,D
  673.  PSHS D
  674.  LDD  8,S
  675.  PSHS D
  676.  JSR heir10
  677.  LEAS 2,S
  678.  STD  [,S++]
  679.  LDD  2,S
  680.  CMPD #0
  681.  LBEQ cc61
  682.  LDD  6,S
  683.  PSHS D
  684.  JSR rvalue
  685.  LEAS 2,S
  686. cc61
  687.  JSR com
  688.  LDD  #0
  689.  LEAS 4,S
  690.  RTS
  691. cc60
  692.  LDD  #cc56+4
  693.  PSHS D
  694.  JSR match
  695.  LEAS 2,S
  696.  CMPD #0
  697.  LBEQ cc63
  698.  LEAY 2,S
  699.  TFR  Y,D
  700.  PSHS D
  701.  LDD  8,S
  702.  PSHS D
  703.  JSR heir10
  704.  LEAS 2,S
  705.  STD  [,S++]
  706.  PSHS D
  707.  LDD  #0
  708.  CMPD ,S++
  709.  LBNE cc64
  710.  JSR needlval
  711.  LDD  #0
  712.  LEAS 4,S
  713.  RTS
  714. cc64
  715.  LDD  6,S
  716.  PSHS D
  717.  LDD  #1
  718.  PSHS D
  719.  ADDD ,S++
  720.  ADDD ,S++
  721.  PSHS D
  722.  LDD  [,S++]
  723.  CMPD #0
  724.  LBEQ cc65
  725.  JSR push
  726. cc65
  727.  LDD  6,S
  728.  PSHS D
  729.  JSR rvalue
  730.  LEAS 2,S
  731.  JSR inc
  732.  LEAY 0,S
  733.  TFR  Y,D
  734.  PSHS D
  735.  LDD  8,S
  736.  PSHS D
  737.  LDD  #0
  738.  PSHS D
  739.  ADDD ,S++
  740.  ADDD ,S++
  741.  PSHS D
  742.  LDD  [,S++]
  743.  STD  [,S++]
  744.  LDD  0,S
  745.  ADDD #9
  746.  PSHS D
  747.  LDB  [,S++]
  748.  SEX
  749.  PSHS D
  750.  LDD  #3
  751.  CMPD ,S++
  752.  BEQ  *+8
  753.  LDD  #0
  754.  JMP cc67 _
  755.  LDD  #1
  756.  LDD  0,S
  757.  ADDD #10
  758.  PSHS D
  759.  LDB  [,S++]
  760.  SEX
  761.  PSHS D
  762.  LDD  #2
  763.  PSHS D
  764.  LDD  #2
  765.  DECB
  766.  BLT  *+8
  767.  ASL  1,S
  768.  ROL  ,S
  769.  BRA  *-7
  770.  PULS D
  771.  CMPD ,S++
  772.  BEQ  *+8
  773.  LDD  #0
  774.  JMP cc67 _
  775.  LDD  #1
  776.  LDD  #1
  777. cc67
  778.  CMPD #0
  779.  LBEQ cc68 _
  780.  LDD  6,S
  781.  PSHS D
  782.  LDD  #2
  783.  PSHS D
  784.  ADDD ,S++
  785.  ADDD ,S++
  786.  PSHS D
  787.  LDD  [,S++]
  788.  CMPD #0
  789.  LBEQ cc68 _
  790.  LDD  #1
  791. cc68
  792.  CMPD #0
  793.  LBEQ cc66
  794.  JSR inc
  795. cc66
  796.  LDD  6,S
  797.  PSHS D
  798.  JSR store
  799.  LEAS 2,S
  800.  LDD  #0
  801.  LEAS 4,S
  802.  RTS
  803. cc63
  804.  LDD  #cc56+7
  805.  PSHS D
  806.  JSR match
  807.  LEAS 2,S
  808.  CMPD #0
  809.  LBEQ cc70
  810.  LEAY 2,S
  811.  TFR  Y,D
  812.  PSHS D
  813.  LDD  8,S
  814.  PSHS D
  815.  JSR heir10
  816.  LEAS 2,S
  817.  STD  [,S++]
  818.  PSHS D
  819.  LDD  #0
  820.  CMPD ,S++
  821.  LBNE cc71
  822.  JSR needlval
  823.  LDD  #0
  824.  LEAS 4,S
  825.  RTS
  826. cc71
  827.  LDD  6,S
  828.  PSHS D
  829.  LDD  #1
  830.  PSHS D
  831.  ADDD ,S++
  832.  ADDD ,S++
  833.  PSHS D
  834.  LDD  [,S++]
  835.  CMPD #0
  836.  LBEQ cc72
  837.  JSR push
  838. cc72
  839.  LDD  6,S
  840.  PSHS D
  841.  JSR rvalue
  842.  LEAS 2,S
  843.  JSR dec
  844.  LEAY 0,S
  845.  TFR  Y,D
  846.  PSHS D
  847.  LDD  8,S
  848.  PSHS D
  849.  LDD  #0
  850.  PSHS D
  851.  ADDD ,S++
  852.  ADDD ,S++
  853.  PSHS D
  854.  LDD  [,S++]
  855.  STD  [,S++]
  856.  LDD  0,S
  857.  ADDD #9
  858.  PSHS D
  859.  LDB  [,S++]
  860.  SEX
  861.  PSHS D
  862.  LDD  #3
  863.  CMPD ,S++
  864.  BEQ  *+8
  865.  LDD  #0
  866.  JMP cc74 _
  867.  LDD  #1
  868.  LDD  0,S
  869.  ADDD #10
  870.  PSHS D
  871.  LDB  [,S++]
  872.  SEX
  873.  PSHS D
  874.  LDD  #2
  875.  PSHS D
  876.  LDD  #2
  877.  DECB
  878.  BLT  *+8
  879.  ASL  1,S
  880.  ROL  ,S
  881.  BRA  *-7
  882.  PULS D
  883.  CMPD ,S++
  884.  BEQ  *+8
  885.  LDD  #0
  886.  JMP cc74 _
  887.  LDD  #1
  888.  LDD  #1
  889. cc74
  890.  CMPD #0
  891.  LBEQ cc75 _
  892.  LDD  6,S
  893.  PSHS D
  894.  LDD  #2
  895.  PSHS D
  896.  ADDD ,S++
  897.  ADDD ,S++
  898.  PSHS D
  899.  LDD  [,S++]
  900.  CMPD #0
  901.  LBEQ cc75 _
  902.  LDD  #1
  903. cc75
  904.  CMPD #0
  905.  LBEQ cc73
  906.  JSR dec
  907. cc73
  908.  LDD  6,S
  909.  PSHS D
  910.  JSR store
  911.  LEAS 2,S
  912.  LDD  #0
  913.  LEAS 4,S
  914.  RTS
  915. cc70
  916.  LDD  #line
  917.  ADDD lptr
  918.  PSHS D
  919.  LDD  #cc56+10
  920.  PSHS D
  921.  JSR streq
  922.  LEAS 4,S
  923.  CMPD #0
  924.  LBEQ cc77
  925.  LDD  2,S
  926.  LEAS 4,S
  927.  RTS
  928. cc77
  929.  LDD  #cc56+13
  930.  PSHS D
  931.  JSR match
  932.  LEAS 2,S
  933.  CMPD #0
  934.  LBEQ cc79
  935.  LEAY 2,S
  936.  TFR  Y,D
  937.  PSHS D
  938.  LDD  8,S
  939.  PSHS D
  940.  JSR heir10
  941.  LEAS 2,S
  942.  STD  [,S++]
  943.  LDD  2,S
  944.  CMPD #0
  945.  LBEQ cc80
  946.  LDD  6,S
  947.  PSHS D
  948.  JSR rvalue
  949.  LEAS 2,S
  950. cc80
  951.  JSR neg
  952.  LDD  #0
  953.  LEAS 4,S
  954.  RTS
  955. cc79
  956.  LDD  #line
  957.  ADDD lptr
  958.  PSHS D
  959.  LDD  #cc56+15
  960.  PSHS D
  961.  JSR streq
  962.  LEAS 4,S
  963.  CMPD #0
  964.  LBEQ cc82
  965.  LDD  2,S
  966.  LEAS 4,S
  967.  RTS
  968. cc82
  969.  LDD  #cc56+18
  970.  PSHS D
  971.  JSR match
  972.  LEAS 2,S
  973.  CMPD #0
  974.  LBEQ cc84
  975.  LEAY 2,S
  976.  TFR  Y,D
  977.  PSHS D
  978.  LDD  8,S
  979.  PSHS D
  980.  JSR heir10
  981.  LEAS 2,S
  982.  STD  [,S++]
  983.  LDD  2,S
  984.  CMPD #0
  985.  LBEQ cc85
  986.  LDD  6,S
  987.  PSHS D
  988.  JSR rvalue
  989.  LEAS 2,S
  990. cc85
  991.  LDD  6,S
  992.  PSHS D
  993.  LDD  #1
  994.  PSHS D
  995.  ADDD ,S++
  996.  ADDD ,S++
  997.  PSHS D
  998.  LDD  #2
  999.  PSHS D
  1000.  LDD  #2
  1001.  DECB
  1002.  BLT  *+8
  1003.  ASL  1,S
  1004.  ROL  ,S
  1005.  BRA  *-7
  1006.  PULS D
  1007.  STD  [,S++]
  1008.  LEAY 0,S
  1009.  TFR  Y,D
  1010.  PSHS D
  1011.  LDD  8,S
  1012.  PSHS D
  1013.  LDD  #0
  1014.  PSHS D
  1015.  ADDD ,S++
  1016.  ADDD ,S++
  1017.  PSHS D
  1018.  LDD  [,S++]
  1019.  STD  [,S++]
  1020.  CMPD #0
  1021.  LBEQ cc86
  1022.  LDD  6,S
  1023.  PSHS D
  1024.  LDD  #1
  1025.  PSHS D
  1026.  ADDD ,S++
  1027.  ADDD ,S++
  1028.  PSHS D
  1029.  LDD  2,S
  1030.  ADDD #10
  1031.  PSHS D
  1032.  LDB  [,S++]
  1033.  SEX
  1034.  STD  [,S++]
  1035. cc86
  1036.  LDD  6,S
  1037.  PSHS D
  1038.  LDD  #2
  1039.  PSHS D
  1040.  ADDD ,S++
  1041.  ADDD ,S++
  1042.  PSHS D
  1043.  LDD  #0
  1044.  STD  [,S++]
  1045.  LDD  6,S
  1046.  PSHS D
  1047.  LDD  #3
  1048.  PSHS D
  1049.  ADDD ,S++
  1050.  ADDD ,S++
  1051.  PSHS D
  1052.  LDD  #0
  1053.  STD  [,S++]
  1054.  LDD  #1
  1055.  LEAS 4,S
  1056.  RTS
  1057. cc84
  1058.  LDD  #line
  1059.  ADDD lptr
  1060.  PSHS D
  1061.  LDD  #cc56+20
  1062.  PSHS D
  1063.  JSR streq
  1064.  LEAS 4,S
  1065.  CMPD #0
  1066.  LBEQ cc88
  1067.  LDD  2,S
  1068.  LEAS 4,S
  1069.  RTS
  1070. cc88
  1071.  LDD  #cc56+23
  1072.  PSHS D
  1073.  JSR match
  1074.  LEAS 2,S
  1075.  CMPD #0
  1076.  LBEQ cc90
  1077.  LEAY 2,S
  1078.  TFR  Y,D
  1079.  PSHS D
  1080.  LDD  8,S
  1081.  PSHS D
  1082.  JSR heir10
  1083.  LEAS 2,S
  1084.  STD  [,S++]
  1085.  LDD  2,S
  1086.  PSHS D
  1087.  LDD  #0
  1088.  CMPD ,S++
  1089.  LBNE cc91
  1090.  LDD  #cc56+25
  1091.  PSHS D
  1092.  JSR errrpt
  1093.  LEAS 2,S
  1094.  LDD  #0
  1095.  LEAS 4,S
  1096.  RTS
  1097. cc91
  1098.  LDD  6,S
  1099.  PSHS D
  1100.  LDD  #1
  1101.  PSHS D
  1102.  ADDD ,S++
  1103.  ADDD ,S++
  1104.  PSHS D
  1105.  LDD  [,S++]
  1106.  CMPD #0
  1107.  LBEQ cc93
  1108.  LDD  #0
  1109.  LEAS 4,S
  1110.  RTS
  1111. cc93
  1112.  JSR immed
  1113.  LEAY 0,S
  1114.  TFR  Y,D
  1115.  PSHS D
  1116.  LDD  8,S
  1117.  PSHS D
  1118.  LDD  #0
  1119.  PSHS D
  1120.  ADDD ,S++
  1121.  ADDD ,S++
  1122.  PSHS D
  1123.  LDD  [,S++]
  1124.  STD  [,S++]
  1125.  PSHS D
  1126.  JSR outstr
  1127.  LEAS 2,S
  1128.  JSR nl
  1129.  LDD  6,S
  1130.  PSHS D
  1131.  LDD  #1
  1132.  PSHS D
  1133.  ADDD ,S++
  1134.  ADDD ,S++
  1135.  PSHS D
  1136.  LDD  2,S
  1137.  ADDD #10
  1138.  PSHS D
  1139.  LDB  [,S++]
  1140.  SEX
  1141.  STD  [,S++]
  1142.  LDD  #0
  1143.  LEAS 4,S
  1144.  RTS
  1145. cc94
  1146. cc92
  1147.  JMP cc95
  1148. cc90
  1149.  LEAY 2,S
  1150.  TFR  Y,D
  1151.  PSHS D
  1152.  LDD  8,S
  1153.  PSHS D
  1154.  JSR heir11
  1155.  LEAS 2,S
  1156.  STD  [,S++]
  1157.  LDD  #cc56+41
  1158.  PSHS D
  1159.  JSR match
  1160.  LEAS 2,S
  1161.  CMPD #0
  1162.  LBEQ cc96
  1163.  LDD  2,S
  1164.  PSHS D
  1165.  LDD  #0
  1166.  CMPD ,S++
  1167.  LBNE cc97
  1168.  JSR needlval
  1169.  LDD  #0
  1170.  LEAS 4,S
  1171.  RTS
  1172. cc97
  1173.  LDD  6,S
  1174.  PSHS D
  1175.  LDD  #1
  1176.  PSHS D
  1177.  ADDD ,S++
  1178.  ADDD ,S++
  1179.  PSHS D
  1180.  LDD  [,S++]
  1181.  CMPD #0
  1182.  LBEQ cc98
  1183.  JSR push
  1184. cc98
  1185.  LDD  6,S
  1186.  PSHS D
  1187.  JSR rvalue
  1188.  LEAS 2,S
  1189.  JSR inc
  1190.  LEAY 0,S
  1191.  TFR  Y,D
  1192.  PSHS D
  1193.  LDD  8,S
  1194.  PSHS D
  1195.  LDD  #0
  1196.  PSHS D
  1197.  ADDD ,S++
  1198.  ADDD ,S++
  1199.  PSHS D
  1200.  LDD  [,S++]
  1201.  STD  [,S++]
  1202.  LDD  0,S
  1203.  ADDD #9
  1204.  PSHS D
  1205.  LDB  [,S++]
  1206.  SEX
  1207.  PSHS D
  1208.  LDD  #3
  1209.  CMPD ,S++
  1210.  BEQ  *+8
  1211.  LDD  #0
  1212.  JMP cc100 _
  1213.  LDD  #1
  1214.  LDD  0,S
  1215.  ADDD #10
  1216.  PSHS D
  1217.  LDB  [,S++]
  1218.  SEX
  1219.  PSHS D
  1220.  LDD  #2
  1221.  PSHS D
  1222.  LDD  #2
  1223.  DECB
  1224.  BLT  *+8
  1225.  ASL  1,S
  1226.  ROL  ,S
  1227.  BRA  *-7
  1228.  PULS D
  1229.  CMPD ,S++
  1230.  BEQ  *+8
  1231.  LDD  #0
  1232.  JMP cc100 _
  1233.  LDD  #1
  1234.  LDD  #1
  1235. cc100
  1236.  CMPD #0
  1237.  LBEQ cc101 _
  1238.  LDD  6,S
  1239.  PSHS D
  1240.  LDD  #2
  1241.  PSHS D
  1242.  ADDD ,S++
  1243.  ADDD ,S++
  1244.  PSHS D
  1245.  LDD  [,S++]
  1246.  CMPD #0
  1247.  LBEQ cc101 _
  1248.  LDD  #1
  1249. cc101
  1250.  CMPD #0
  1251.  LBEQ cc99
  1252.  JSR inc
  1253. cc99
  1254.  LDD  6,S
  1255.  PSHS D
  1256.  JSR store
  1257.  LEAS 2,S
  1258.  JSR dec
  1259.  LDD  0,S
  1260.  ADDD #9
  1261.  PSHS D
  1262.  LDB  [,S++]
  1263.  SEX
  1264.  PSHS D
  1265.  LDD  #3
  1266.  CMPD ,S++
  1267.  BEQ  *+8
  1268.  LDD  #0
  1269.  JMP cc103 _
  1270.  LDD  #1
  1271.  LDD  0,S
  1272.  ADDD #10
  1273.  PSHS D
  1274.  LDB  [,S++]
  1275.  SEX
  1276.  PSHS D
  1277.  LDD  #2
  1278.  PSHS D
  1279.  LDD  #2
  1280.  DECB
  1281.  BLT  *+8
  1282.  ASL  1,S
  1283.  ROL  ,S
  1284.  BRA  *-7
  1285.  PULS D
  1286.  CMPD ,S++
  1287.  BEQ  *+8
  1288.  LDD  #0
  1289.  JMP cc103 _
  1290.  LDD  #1
  1291.  LDD  #1
  1292. cc103
  1293.  CMPD #0
  1294.  LBEQ cc104 _
  1295.  LDD  6,S
  1296.  PSHS D
  1297.  LDD  #2
  1298.  PSHS D
  1299.  ADDD ,S++
  1300.  ADDD ,S++
  1301.  PSHS D
  1302.  LDD  [,S++]
  1303.  CMPD #0
  1304.  LBEQ cc104 _
  1305.  LDD  #1
  1306. cc104
  1307.  CMPD #0
  1308.  LBEQ cc102
  1309.  JSR dec
  1310. cc102
  1311.  LDD  #0
  1312.  LEAS 4,S
  1313.  RTS
  1314. cc96
  1315.  LDD  #cc56+44
  1316.  PSHS D
  1317.  JSR match
  1318.  LEAS 2,S
  1319.  CMPD #0
  1320.  LBEQ cc106
  1321.  LDD  2,S
  1322.  PSHS D
  1323.  LDD  #0
  1324.  CMPD ,S++
  1325.  LBNE cc107
  1326.  JSR needlval
  1327.  LDD  #0
  1328.  LEAS 4,S
  1329.  RTS
  1330. cc107
  1331.  LDD  6,S
  1332.  PSHS D
  1333.  LDD  #1
  1334.  PSHS D
  1335.  ADDD ,S++
  1336.  ADDD ,S++
  1337.  PSHS D
  1338.  LDD  [,S++]
  1339.  CMPD #0
  1340.  LBEQ cc108
  1341.  JSR push
  1342. cc108
  1343.  LDD  6,S
  1344.  PSHS D
  1345.  JSR rvalue
  1346.  LEAS 2,S
  1347.  JSR dec
  1348.  LEAY 0,S
  1349.  TFR  Y,D
  1350.  PSHS D
  1351.  LDD  8,S
  1352.  PSHS D
  1353.  LDD  #0
  1354.  PSHS D
  1355.  ADDD ,S++
  1356.  ADDD ,S++
  1357.  PSHS D
  1358.  LDD  [,S++]
  1359.  STD  [,S++]
  1360.  LDD  0,S
  1361.  ADDD #9
  1362.  PSHS D
  1363.  LDB  [,S++]
  1364.  SEX
  1365.  PSHS D
  1366.  LDD  #3
  1367.  CMPD ,S++
  1368.  BEQ  *+8
  1369.  LDD  #0
  1370.  JMP cc110 _
  1371.  LDD  #1
  1372.  LDD  0,S
  1373.  ADDD #10
  1374.  PSHS D
  1375.  LDB  [,S++]
  1376.  SEX
  1377.  PSHS D
  1378.  LDD  #2
  1379.  PSHS D
  1380.  LDD  #2
  1381.  DECB
  1382.  BLT  *+8
  1383.  ASL  1,S
  1384.  ROL  ,S
  1385.  BRA  *-7
  1386.  PULS D
  1387.  CMPD ,S++
  1388.  BEQ  *+8
  1389.  LDD  #0
  1390.  JMP cc110 _
  1391.  LDD  #1
  1392.  LDD  #1
  1393. cc110
  1394.  CMPD #0
  1395.  LBEQ cc111 _
  1396.  LDD  6,S
  1397.  PSHS D
  1398.  LDD  #2
  1399.  PSHS D
  1400.  ADDD ,S++
  1401.  ADDD ,S++
  1402.  PSHS D
  1403.  LDD  [,S++]
  1404.  CMPD #0
  1405.  LBEQ cc111 _
  1406.  LDD  #1
  1407. cc111
  1408.  CMPD #0
  1409.  LBEQ cc109
  1410.  JSR dec
  1411. cc109
  1412.  LDD  6,S
  1413.  PSHS D
  1414.  JSR store
  1415.  LEAS 2,S
  1416.  JSR inc
  1417.  LDD  0,S
  1418.  ADDD #9
  1419.  PSHS D
  1420.  LDB  [,S++]
  1421.  SEX
  1422.  PSHS D
  1423.  LDD  #3
  1424.  CMPD ,S++
  1425.  BEQ  *+8
  1426.  LDD  #0
  1427.  JMP cc113 _
  1428.  LDD  #1
  1429.  LDD  0,S
  1430.  ADDD #10
  1431.  PSHS D
  1432.  LDB  [,S++]
  1433.  SEX
  1434.  PSHS D
  1435.  LDD  #2
  1436.  PSHS D
  1437.  LDD  #2
  1438.  DECB
  1439.  BLT  *+8
  1440.  ASL  1,S
  1441.  ROL  ,S
  1442.  BRA  *-7
  1443.  PULS D
  1444.  CMPD ,S++
  1445.  BEQ  *+8
  1446.  LDD  #0
  1447.  JMP cc113 _
  1448.  LDD  #1
  1449.  LDD  #1
  1450. cc113
  1451.  CMPD #0
  1452.  LBEQ cc114 _
  1453.  LDD  6,S
  1454.  PSHS D
  1455.  LDD  #2
  1456.  PSHS D
  1457.  ADDD ,S++
  1458.  ADDD ,S++
  1459.  PSHS D
  1460.  LDD  [,S++]
  1461.  CMPD #0
  1462.  LBEQ cc114 _
  1463.  LDD  #1
  1464. cc114
  1465.  CMPD #0
  1466.  LBEQ cc112
  1467.  JSR inc
  1468. cc112
  1469.  LDD  #0
  1470.  LEAS 4,S
  1471.  RTS
  1472. cc106
  1473.  LDD  2,S
  1474.  LEAS 4,S
  1475.  RTS
  1476. cc115
  1477. cc105
  1478. cc95
  1479. cc89
  1480. cc87
  1481. cc83
  1482. cc81
  1483. cc78
  1484. cc76
  1485. cc69
  1486. cc62
  1487. cc59
  1488. ;
  1489. ;^
  1490. ;******  no final }  ******
  1491.  LEAS 4,S
  1492.  RTS
  1493. cc56 FCB 33,0,126,0,43,43,0,45,45,0
  1494.  FCB 45,61,0,45,0,42,61,0,42,0
  1495.  FCB 38,61,0,38,0,105,108,108,101,103
  1496.  FCB 97,108,32,97,100,100,114,101,115,115
  1497.  FCB 0,43,43,0,45,45,0
  1498.  END
  1499.