Subversion Repositories tsfmpro

Rev

Rev 547 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1. Star_play_middle:
  2.                 ld      ix,Star_table_cnst1
  3.  
  4. loc_1_6487:
  5.                 ld      b,16
  6.  
  7. loc_1_6488:
  8.                 push    bc
  9.                 ld      l, (ix++0)
  10.                 ld      h, (ix++1)
  11.                 ld      d, (ix++2)
  12.                 ld      e, (ix++3)
  13.                 ld      a, (ix++5)
  14.                 cp      1
  15.                 ld      a, d
  16.                 jr      nz, loc_1_649E
  17.                 ld      a, e
  18. loc_1_649E:
  19.                 ld      (loc_1_64A1+1), a
  20. loc_1_64A1:
  21.                 res     0, (hl)
  22.                
  23.                 ld      a,d
  24.                 sub     10h
  25.                 cp      86h
  26.                 jr      nc,Star_middle_next1
  27.                 ld      d,a
  28.                 inc     l
  29.                 ld      a,l
  30.                 and     1Fh
  31.                 jr      nz,Star_middle_next0
  32.                 ld      a,l
  33.                 sub     20h
  34.                 ld      l,a
  35. Star_middle_next0:             
  36.                 ld      (ix++0), l
  37.                 ld      a,d
  38.                 add     40h
  39. Star_middle_next1:
  40.                 ld      (ix++2),a
  41.                 ld      a,e
  42.                 sub     10h
  43.                 cp      0C6h
  44.                 jr      nc,Star_middle_next2
  45.                 add     40h
  46. Star_middle_next2:
  47.                 ld      (ix++3),a
  48.  
  49.                 ld      b, 1
  50.                 ld      c,a
  51.                 call    sub_1_6464
  52.                 ld      a,c
  53.                 ld      (loc_1_64D4+1), a
  54. loc_1_64D4:
  55.                 set     0,(hl)
  56.                 pop     bc
  57.                 djnz    loc_1_6488
  58.                 ret    
  59.  
  60. Star_init_middle:
  61.                 ld      ix,Star_table_cnst1
  62.                 ld      b,16
  63.  
  64. sub_1_6464:
  65.                 ld      l, (ix++0)
  66.                 ld      h, (ix++1)
  67.                 ld      a, (ix++4)
  68.                 ld      e,a
  69.                 ld      (loc_1_6471+1),a
  70.                 xor     a
  71. loc_1_6471:
  72.                 bit     6, (hl)
  73.                 jr      z, loc_1_6477
  74.                 ld      a, 1
  75. loc_1_6477:
  76.                 ld      (ix++5), a
  77.  
  78.                 ld      a,e
  79.                 sub     10h
  80.                 cp      46h
  81.                 jr      nc,Star_middle_next3
  82.                 add     40h
  83. Star_middle_next3:
  84.                 ld      (ix++4),a
  85.                 ld      de, 6
  86.                 add     ix, de
  87.                 djnz    sub_1_6464
  88.                 ret    
  89.  
  90.  
  91. Star_table_cnst1:
  92.  
  93.                 dw      42C8h
  94.                 db      8Eh,0CEh,4Eh,0  
  95.                 dw      4202h
  96.                 db      0A6h,0E6h,66h,1  
  97.                 dw      4220h
  98.                 db      0BEh,0FEh,7Eh,0  
  99.                 dw      4241h
  100.                 db      86h,0C6h,46h,0  
  101.                 dw      4264h
  102.                 db      9Eh,0DEh,5Eh,0  
  103.                 dw      4286h
  104.                 db      8Eh,0CEh,4Eh,0  
  105.                 dw      42A7h
  106.                 db      0B6h,0F6h,76h,0  
  107.                 dw      46C5h
  108.                 db      8Eh,0CEh,4Eh,0  
  109.                 dw      4626h
  110.                 db      96h,0D6h,56h,0  
  111.                 dw      4669h
  112.                 db      96h,0D6h,56h,0  
  113.                 dw      4684h
  114.                 db      86h,0C6h,46h,0  
  115.                 dw      4A29h
  116.                 db      0B6h,0F6h,76h,0  
  117.                 dw      4A47h
  118.                 db      8Eh,0CEh,4Eh,0  
  119.                 dw      4A79h
  120.                 db      0B6h,0F6h,76h,1;  
  121.                 dw      4E38h
  122.                 db      0B6h,0F6h,76h,0  
  123.                 dw      4E7Ah
  124.                 db      86h,0C6h,46h,0  
  125.  
  126. Star_play_low:
  127.                 ld      ix,Star_table_cnst0
  128.  
  129. loc_0_6487:
  130.                 ld      b,16
  131.  
  132. loc_0_6488:
  133.                 push    bc
  134.                 ld      l, (ix++0)
  135.                 ld      h, (ix++1)
  136.                 ld      d, (ix++2)
  137.                 ld      e, (ix++3)
  138.                 ld      a, (ix++5)
  139.                 cp      1
  140.                 ld      a, d
  141.                 jr      nz, loc_0_649E
  142.                 ld      a, e
  143. loc_0_649E:
  144.                 ld      (loc_0_64A1+1), a
  145. loc_0_64A1:
  146.                 res     0, (hl)
  147.                
  148.                 ld      a,d
  149.                 sub     8
  150.                 cp      7Eh
  151.                 jr      nz,Star_low_next1
  152.                 inc     l
  153.                 ld      a,l
  154.                 and     1Fh
  155.                 jr      nz,Star_low_next0
  156.                 ld      a,l
  157.                 sub     20h
  158.                 ld      l,a
  159. Star_low_next0:        
  160.                 ld      (ix++0), l
  161.                 ld      a,0BEh
  162. Star_low_next1:
  163.                 ld      (ix++2),a
  164.                 ld      a,e
  165.                 sub     8
  166.                 cp      0BEh
  167.                 jr      nz,Star_low_next2
  168.                 ld      a,0FEh
  169. Star_low_next2:
  170.                 ld      (ix++3),a
  171.  
  172.                 ld      b, 1
  173.                 ld      c,a
  174.                 call    sub_0_6464
  175.                 ld      a,c
  176.                 ld      (loc_0_64D4+1), a
  177. loc_0_64D4:
  178.                 set     0,(hl)
  179.                 pop     bc
  180.                 djnz    loc_0_6488
  181.                 ret    
  182.  
  183. Star_init_low:
  184.                 ld      ix,Star_table_cnst0
  185.                 ld      b,16
  186.  
  187. sub_0_6464:
  188.                 ld      l, (ix++0)
  189.                 ld      h, (ix++1)
  190.                 ld      a, (ix++4)
  191.                 ld      e,a
  192.                 ld      (loc_0_6471+1),a
  193.                 xor     a
  194. loc_0_6471:
  195.                 bit     6, (hl)
  196.                 jr      z, loc_0_6477
  197.                 ld      a, 1
  198. loc_0_6477:
  199.                 ld      (ix++5), a
  200.  
  201.                 ld      a,e
  202.                 sub     8
  203.                 cp      3Eh
  204.                 jr      nz,Star_low_next3
  205.                 ld      a,7Eh
  206. Star_low_next3:
  207.                 ld      (ix++4),a
  208.                 ld      de, 6
  209.                 add     ix, de
  210.                 djnz    sub_0_6464
  211.                 ret    
  212.  
  213.  
  214.  
  215. Star_table_cnst0:
  216.  
  217.                 dw      40A1h
  218.                 db      9Eh,0DEh,5Eh,0  
  219.                 dw      4003h
  220.                 db      9Eh,0DEh,5Eh,0  
  221.                 dw      402Ch
  222.                 db      9Eh,0DEh,5Eh,0  
  223.                 dw      405Bh
  224.                 db      0B6h,0F6h,76h,0;  
  225.                 dw      408Ch
  226.                 db      0A6h,0E6h,66h,0  
  227.                 dw      44A9h
  228.                 db      9Eh,0DEh,5Eh,0  
  229.                 dw      44C8h
  230.                 db      0BEh,0FEh,7Eh,0  
  231.                 dw      4429h
  232.                 db      9Eh,0DEh,5Eh,0  
  233.                 dw      4441h
  234.                 db      9Eh,0DEh,5Eh,0  
  235.                 dw      445Dh
  236.                 db      0B6h,0F6h,76h,0  
  237.                 dw      4488h
  238.                 db      0A6h,0E6h,66h,0  
  239.                 dw      4840h
  240.                 db      9Eh,0DEh,5Eh,0  
  241.                 dw      487Ch
  242.                 db      0A6h,0E6h,66h,0  
  243.                 dw      4C2Bh
  244.                 db      9Eh,0DEh,5Eh,0  
  245.                 dw      4C41h
  246.                 db      9Eh,0DEh,5Eh,0  
  247.                 dw      4C82h
  248.                 db      0A6h,0E6h,66h,0  
  249.  
  250.