Subversion Repositories tsfmpro

Rev

Rev 546 | 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,25
  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,25
  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      42E3h
  96.                 db      0B6h,0F6h,76h,1;  
  97.                 dw      4202h
  98.                 db      0A6h,0E6h,66h,1  
  99.                 dw      4220h
  100.                 db      0BEh,0FEh,7Eh,0  
  101.                 dw      4241h
  102.                 db      86h,0C6h,46h,0  
  103.                 dw      4264h
  104.                 db      9Eh,0DEh,5Eh,0  
  105.                 dw      4286h
  106.                 db      8Eh,0CEh,4Eh,0  
  107.                 dw      42A7h
  108.                 db      0B6h,0F6h,76h,0  
  109.                 dw      46C5h
  110.                 db      8Eh,0CEh,4Eh,0  
  111.                 dw      46EBh
  112.                 db      86h,0C6h,46h,0  
  113. ;               dw      46FEh
  114. ;               db      0BEh,0FEh,7Eh,0  
  115.                 dw      4626h
  116.                 db      96h,0D6h,56h,0  
  117. ;               dw      465Bh
  118. ;               db      86h,0C6h,46h,0  
  119.                 dw      4669h
  120.                 db      96h,0D6h,56h,0  
  121.                 dw      4684h
  122.                 db      86h,0C6h,46h,0  
  123. ;               dw      46A8h
  124. ;               db      0AEh,0EEh,6Eh,0  
  125.                 dw      4AC7h
  126.                 db      9Eh,0DEh,5Eh,0  
  127.                 dw      4AFAh
  128.                 db      0A6h,0E6h,66h,0  
  129. ;               dw      4A08h
  130. ;               db      0B6h,0F6h,76h,1
  131.                 dw      4A29h
  132.                 db      0B6h,0F6h,76h,0  
  133.                 dw      4A47h
  134.                 db      8Eh,0CEh,4Eh,0  
  135.                 dw      4A79h
  136.                 db      0B6h,0F6h,76h,1;  
  137. ;               dw      4A8Ah
  138. ;               db      0A6h,0E6h,66h,1  
  139.                 dw      4AA8h
  140.                 db      0BEh,0FEh,7Eh,0  
  141.                 dw      4ED7h
  142.                 db      86h,0C6h,46h,0  
  143. ;               dw      4EDEh
  144. ;               db      9Eh,0DEh,5Eh,0  
  145.                 dw      4E03h
  146.                 db      8Eh,0CEh,4Eh,0  
  147.                 dw      4E38h
  148.                 db      0B6h,0F6h,76h,0  
  149. ;               dw      4E3Fh
  150. ;               db      8Eh,0CEh,4Eh,0  
  151.                 dw      4E7Ah
  152.                 db      86h,0C6h,46h,0  
  153.                 dw      4E81h
  154.                 db      0BEh,0FEh,7Eh,0  
  155.                 dw      4EABh
  156.                 db      96h,0D6h,56h,0  
  157.  
  158. Star_play_low:
  159.                 ld      ix,Star_table_cnst0
  160.  
  161. loc_0_6487:
  162.                 ld      b,25
  163.  
  164. loc_0_6488:
  165.                 push    bc
  166.                 ld      l, (ix++0)
  167.                 ld      h, (ix++1)
  168.                 ld      d, (ix++2)
  169.                 ld      e, (ix++3)
  170.                 ld      a, (ix++5)
  171.                 cp      1
  172.                 ld      a, d
  173.                 jr      nz, loc_0_649E
  174.                 ld      a, e
  175. loc_0_649E:
  176.                 ld      (loc_0_64A1+1), a
  177. loc_0_64A1:
  178.                 res     0, (hl)
  179.                
  180.                 ld      a,d
  181.                 sub     8
  182.                 cp      7Eh
  183.                 jr      nz,Star_low_next1
  184.                 inc     l
  185.                 ld      a,l
  186.                 and     1Fh
  187.                 jr      nz,Star_low_next0
  188.                 ld      a,l
  189.                 sub     20h
  190.                 ld      l,a
  191. Star_low_next0:        
  192.                 ld      (ix++0), l
  193.                 ld      a,0BEh
  194. Star_low_next1:
  195.                 ld      (ix++2),a
  196.                 ld      a,e
  197.                 sub     8
  198.                 cp      0BEh
  199.                 jr      nz,Star_low_next2
  200.                 ld      a,0FEh
  201. Star_low_next2:
  202.                 ld      (ix++3),a
  203.  
  204.                 ld      b, 1
  205.                 ld      c,a
  206.                 call    sub_0_6464
  207.                 ld      a,c
  208.                 ld      (loc_0_64D4+1), a
  209. loc_0_64D4:
  210.                 set     0,(hl)
  211.                 pop     bc
  212.                 djnz    loc_0_6488
  213.                 ret    
  214.  
  215. Star_init_low:
  216.                 ld      ix,Star_table_cnst0
  217.                 ld      b,25
  218.  
  219. sub_0_6464:
  220.                 ld      l, (ix++0)
  221.                 ld      h, (ix++1)
  222.                 ld      a, (ix++4)
  223.                 ld      e,a
  224.                 ld      (loc_0_6471+1),a
  225.                 xor     a
  226. loc_0_6471:
  227.                 bit     6, (hl)
  228.                 jr      z, loc_0_6477
  229.                 ld      a, 1
  230. loc_0_6477:
  231.                 ld      (ix++5), a
  232.  
  233.                 ld      a,e
  234.                 sub     8
  235.                 cp      3Eh
  236.                 jr      nz,Star_low_next3
  237.                 ld      a,7Eh
  238. Star_low_next3:
  239.                 ld      (ix++4),a
  240.                 ld      de, 6
  241.                 add     ix, de
  242.                 djnz    sub_0_6464
  243.                 ret    
  244.  
  245.  
  246.  
  247. Star_table_cnst0:
  248.  
  249.                 dw      40A1h
  250.                 db      9Eh,0DEh,5Eh,0  
  251. ;               dw      40B6h
  252. ;               db      0BEh,0FEh,7Eh,0  
  253.                 dw      40E2h
  254.                 db      0A6h,0E6h,66h,0
  255.                 dw      4003h
  256.                 db      9Eh,0DEh,5Eh,0  
  257.                 dw      402Ch
  258.                 db      9Eh,0DEh,5Eh,0  
  259. ;               dw      4035h
  260. ;               db      9Eh,0DEh,5Eh,0  
  261.                 dw      405Bh
  262.                 db      0B6h,0F6h,76h,0;  
  263.                 dw      408Ch
  264.                 db      0A6h,0E6h,66h,0  
  265.                 dw      44A9h
  266.                 db      9Eh,0DEh,5Eh,0  
  267.                 dw      44C8h
  268.                 db      0BEh,0FEh,7Eh,0  
  269.                 dw      44E7h
  270.                 db      0A6h,0E6h,66h,0
  271. ;               dw      44FAh
  272. ;               db      9Eh,0DEh,5Eh,0  
  273.                 dw      4429h
  274.                 db      9Eh,0DEh,5Eh,0  
  275.                 dw      4441h
  276.                 db      9Eh,0DEh,5Eh,0  
  277.                 dw      445Dh
  278.                 db      0B6h,0F6h,76h,0  
  279.                 dw      4488h
  280.                 db      0A6h,0E6h,66h,0  
  281.                 dw      48AAh
  282.                 db      9Eh,0DEh,5Eh,0  
  283.                 dw      48C7h
  284.                 db      0BEh,0FEh,7Eh,0  
  285.                 dw      48E5h
  286.                 db      0A6h,0E6h,66h,0
  287. ;               dw      48F9h
  288. ;               db      9Eh,0DEh,5Eh,0  
  289.                 dw      4816h
  290.                 db      9Eh,0DEh,5Eh,0  
  291.                 dw      4840h
  292.                 db      9Eh,0DEh,5Eh,0  
  293. ;               dw      485Eh
  294. ;               db      0B6h,0F6h,76h,1;  
  295.                 dw      487Ch
  296.                 db      0A6h,0E6h,66h,0  
  297.                 dw      4CABh
  298.                 db      9Eh,0DEh,5Eh,0  
  299.                 dw      4CC6h
  300.                 db      0BEh,0FEh,7Eh,0  
  301. ;               dw      4CD8h
  302. ;               db      0A6h,0E6h,66h,0
  303.                 dw      4CF7h
  304.                 db      9Eh,0DEh,5Eh,0  
  305.                 dw      4C2Bh
  306.                 db      9Eh,0DEh,5Eh,0  
  307.                 dw      4C41h
  308.                 db      9Eh,0DEh,5Eh,0  
  309. ;               dw      4C5Fh
  310. ;               db      0B6h,0F6h,76h,1;  
  311.                 dw      4C82h
  312.                 db      0A6h,0E6h,66h,0  
  313.  
  314.