home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / UCM / UCM_09.MSA / SOURCES.LZH / VOXEL / PREJUNK.S < prev    next >
Text File  |  1997-06-25  |  4KB  |  139 lines
  1. ********** Source: Vorberechnungen der Junk Tabelle ***********
  2.  
  3. precalculate_junk_tab:
  4.  
  5.                 lea     mammut_table,A0
  6.  
  7.                 lea     d0_tab(PC),A1
  8.                 lea     d1_tab(PC),A2
  9.                 lea     d2_tab(PC),A3
  10.                 lea     d3_tab(PC),A4
  11.  
  12.                 moveq   #0,D0
  13.                 moveq   #0,D1
  14.                 moveq   #0,D2
  15.                 moveq   #0,D3
  16.  
  17. loop:
  18.  
  19. ; Spalte 0
  20.  
  21.                 move.w  D0,D4
  22.                 lsl.w   #3,D4
  23.                 movem.l 0(A1,D4.w),D5-D6
  24.  
  25. ; Spalte 1
  26.                 move.w  D1,D4
  27.                 lsl.w   #3,D4
  28.                 or.l    0(A2,D4.w),D5
  29.                 or.l    4(A2,D4.w),D6
  30.  
  31. ; Spalte 2
  32.                 move.w  D2,D4
  33.                 lsl.w   #3,D4
  34.                 or.l    0(A3,D4.w),D5
  35.                 or.l    4(A3,D4.w),D6
  36.  
  37. ; Spalte 3
  38.  
  39.                 move.w  D3,D4
  40.                 lsl.w   #3,D4
  41.                 or.l    0(A4,D4.w),D5
  42.                 or.l    4(A4,D4.w),D6
  43.  
  44. ; In Tabelle schreiben
  45.  
  46.                 move.l  D5,(A0)+
  47.                 move.l  D6,(A0)+
  48.  
  49. ; NΣchste Kombination
  50.  
  51.                 addq.w  #1,D0
  52.                 cmp.w   #16,D0    ; 16 * ...
  53.                 blt.s   loop
  54.                 moveq   #0,D0
  55.  
  56.                 addq.w  #1,D1
  57.                 cmp.w   #16,D1    ; ... * 16 * ...
  58.                 blt.s   loop
  59.                 moveq   #0,D1
  60.  
  61.                 addq.w  #1,D2
  62.                 cmp.w   #16,D2    ; ... * 16 * ...
  63.                 blt.s   loop
  64.                 moveq   #0,D2
  65.  
  66.                 addq.w  #1,D3
  67.                 cmp.w   #15,D3    ; ... * 15
  68.                 blt.s   loop
  69.  
  70.                 rts
  71.  
  72. d0_tab:         DC.W $000F,$000F,$000F,$000F
  73.                 DC.W $000F,0,0,0
  74.                 DC.W 0,$000F,0,0
  75.                 DC.W $000F,$000F,0,0
  76.                 DC.W 0,0,$000F,0
  77.                 DC.W $000F,0,$000F,0
  78.                 DC.W 0,$000F,$000F,0
  79.                 DC.W $000F,$000F,$000F,0
  80.                 DC.W 0,0,0,$000F
  81.                 DC.W $000F,0,0,$000F
  82.                 DC.W 0,$000F,0,$000F
  83.                 DC.W $000F,$000F,0,$000F
  84.                 DC.W 0,0,$000F,$000F
  85.                 DC.W $000F,0,$000F,$000F
  86.                 DC.W 0,$000F,$000F,$000F
  87.                 DS.W 4
  88.  
  89. d1_tab:         DC.W $00F0,$00F0,$00F0,$00F0
  90.                 DC.W $00F0,0,0,0
  91.                 DC.W 0,$00F0,0,0
  92.                 DC.W $00F0,$00F0,0,0
  93.                 DC.W 0,0,$00F0,0
  94.                 DC.W $00F0,0,$00F0,0
  95.                 DC.W 0,$00F0,$00F0,0
  96.                 DC.W $00F0,$00F0,$00F0,0
  97.                 DC.W 0,0,0,$00F0
  98.                 DC.W $00F0,0,0,$00F0
  99.                 DC.W 0,$00F0,0,$00F0
  100.                 DC.W $00F0,$00F0,0,$00F0
  101.                 DC.W 0,0,$00F0,$00F0
  102.                 DC.W $00F0,0,$00F0,$00F0
  103.                 DC.W 0,$00F0,$00F0,$00F0
  104.                 DS.W 4
  105.  
  106. d2_tab:         DC.W $0F00,$0F00,$0F00,$0F00
  107.                 DC.W $0F00,0,0,0
  108.                 DC.W 0,$0F00,0,0
  109.                 DC.W $0F00,$0F00,0,0
  110.                 DC.W 0,0,$0F00,0
  111.                 DC.W $0F00,0,$0F00,0
  112.                 DC.W 0,$0F00,$0F00,0
  113.                 DC.W $0F00,$0F00,$0F00,0
  114.                 DC.W 0,0,0,$0F00
  115.                 DC.W $0F00,0,0,$0F00
  116.                 DC.W 0,$0F00,0,$0F00
  117.                 DC.W $0F00,$0F00,0,$0F00
  118.                 DC.W 0,0,$0F00,$0F00
  119.                 DC.W $0F00,0,$0F00,$0F00
  120.                 DC.W 0,$0F00,$0F00,$0F00
  121.                 DS.W 4
  122.  
  123. d3_tab:         DC.W $F000,$F000,$F000,$F000
  124.                 DC.W $F000,0,0,0
  125.                 DC.W 0,$F000,0,0
  126.                 DC.W $F000,$F000,0,0
  127.                 DC.W 0,0,$F000,0
  128.                 DC.W $F000,0,$F000,0
  129.                 DC.W 0,$F000,$F000,0
  130.                 DC.W $F000,$F000,$F000,0
  131.                 DC.W 0,0,0,$F000
  132.                 DC.W $F000,0,0,$F000
  133.                 DC.W 0,$F000,0,$F000
  134.                 DC.W $F000,$F000,0,$F000
  135.                 DC.W 0,0,$F000,$F000
  136.                 DC.W $F000,0,$F000,$F000
  137.                 DC.W 0,$F000,$F000,$F000
  138.                 DS.W 4
  139.