CD-X 1/cdx_01.iso/demodisc/tyrant/dottunne/dottbest.pas

Pascal/Delphi Source File | 1995-03-17 | 7.0 KB | 404 lines

Program DotTunnel;                              { by TyRaNT / MurmidoneS }

Var

        SinTab    : Array[0..360] Of Shortint;
        CosTab    : Array[0..360] Of Shortint;
        CsilTab   : Array[0..20000] Of Word;
        CsilMov   : Array[0..10000] Of Byte;
        CsilTer   : Array[0..2000] Of Integer;
        CsilTar   : Array[0..100] Of Integer;
        Sor100    : Array[0..180] Of Word;
        Szinek    : Array[0..300] Of Byte;

        zumikax      : byte;
        zumikay      : byte;

        CsP,Sza   : Word;
        I         : word;
        te,aj     : Word;
        te2,aj2   : Word;
        J,K       : Word;
        X,Y       : word;
    A,B       : Real;
        MaxCs     : Word;
        IrqSave   : Byte;

Procedure GenSinCos;
Begin
A:=0;
I:=0;
Repeat
SinTab[I]:=Trunc(Sin(A)*127);
CosTab[I]:=Trunc(Cos(A)*127);
Inc(I);
A:=A+Pi/180
Until A>2*Pi;
End;

Procedure GenCsilTab;assembler;
{RandomIze;}
asm
 mov    i,0
 mov    j,0
 {Repeat}
 @repeat2:
  {k:=110}
  mov    k,110
  { Repeat}
  @repeat1:
   {  X:=(SinTab[I]*K*768) Div 65536+160;}
   lea    si,sintab
   add    si,i
   lodsw
   push    ax

   xor    dx,dx
   mov    ax,k
   shl    ax,8
   xor    ch,ch
   mov    cl,zumikax
   div    cx
   add    ax,k
   mov    cx,ax

   pop    ax
   imul    cx
   mov  x,dx
   add    x,160

   {  Y:=(CosTab[I]*K*614) Div 65536+100;}
   lea    si,costab
   add    si,i
   lodsw
   push    ax

   xor    dx,dx
   mov    ax,k
   shl    ax,8
   xor    ch,ch
   mov    cl,zumikay
   div    cx
   add    ax,k
   mov    cx,ax

   pop    ax
   imul    cx
   mov  y,dx
   add    y,100
   { If (X<1) Or (X>319) Then Begin X:=0; Y:=0; End;}
   mov    ax,x
   cmp    ax,1
   jb    @nono1
   cmp    ax,319
   ja    @nono1
   jmp    @well1
   @nono1:
   mov    x,0
   mov    y,0
   @well1:
   {  If (Y<1) Or (Y>199) Then Begin X:=0; Y:=0; End;}
   mov    ax,y
   cmp    ax,1
   jb    @nono2
   cmp    ax,199
   ja    @nono2
   jmp    @well2
   @nono2:
   mov    x,0
   mov    y,0
   @well2:
   {  CsilTab[J]:=Y*320+X;Inc(J);K:=K-1}
   mov    ax,y
   mov    bx,ax
   shl    ax,8
   shl    bx,6
   add    ax,bx
   add    ax,x
   lea    si,csiltab
   mov    bx,j
   shl    bx,1
   add    si,bx
   mov    ds:[si],ax
   inc    j
   dec  k
   cmp    k,10
   {Until K=10;}
   jne    @repeat1
   { I:=I+2;}
  add    i,2
  cmp    i,360
  {Until I=360;}
 jne    @repeat2
 add    zumikax,1
 cmp    zumikax,0
 jnz    @okx1
 mov    zumikax,1
 @okx1:
 add    zumikay,1
 cmp    zumikaY,0
 jnz    @okY1
 mov    zumikaY,1
 @okY1:

End;

Procedure GenCsilMov;
Begin
I:=0;
Repeat
CsilMov[I]:=Random(180);
CsilMov[I+1]:=Random(100);
Inc(I,2);
Until I>=(MaxCs*2);
End;

Procedure GenCsilTer;
Begin
asm
        push es
        mov ax,ds
        mov es,ax
        lea di,Csiltar
        xor ax,ax
        mov cx,100
rep     stosw
        lea di,Csilter
        xor ax,ax
        mov cx,2000
rep     stosw
        pop es
end;


A:=2*Pi/360;
B:=0;
For I:=0 To 1440  Do Begin
                   CsilTer[I+200]:=Round(Sin(B*3)*20)*320;
                   CsilTer[I+200]:=CsilTer[I+200]+Round(Sin(B*4)*20);
                   B:=B+A;
                   End;
End;


Procedure GenSor100; assembler;
asm
        push es
        mov ax,ds
        mov es,ax
        lea di,sor100
        xor ax,ax
        xor bx,bx
        mov cx,180
        xor dx,dx
@gssz:  push cx
        push ax
        mov bx,100
        mul bx
        stosw
        pop  ax
        pop  cx
        inc ax
        loop @gssz
        pop  es
end;

Procedure Genszin; assembler;
asm

        mov ax,ds
        mov es,ax

        lea di,szinek
        add di,298
        xor dx,dx
        mov cx,100

@yoo:   mov al,dl
        shr al,1
        stosb
        sub di,2
        mov al,dl
        shr al,1
        stosb
        sub di,2
        mov al,dl
        stosb
        sub di,2
        cmp dx,62
        je  @yot
        add dx,2
@yot:   loop @yoo

       MOV BX,1;
       MOV CX,99;
       push ds
       pop  es
       MOV DX,Offset szinek
       mov ax,01012h
       INT 10H
End;

Begin
zumikax:=70;
zumikay:=105;
asm
          Jmp     @Start

@Ret:     mov     dx,03dah
@y1:      in      al,dx
          test    al,8
          jz      @y1
@y2:      in      al,dx
          test    al,8
          jnz     @y2
          ret


@Fel:     mov     CX,MaxCs
          dec     cx
          mov     si,offset CsilMov
@Lo2:     push    cx

          lodsw

          cmp     ax,0
          je      @t1

          nop

@ko:      inc     ah
          cmp     ah,100
          jne     @Lt1
          xor     ah,ah
@Lt1:     mov     [si-2],ax
          push    ax

          mov     cl,ah
          xor     ch,ch
          xor     ah,ah

          mov     bx,offset sor100
          add     bx,ax
          add     bx,ax
          mov     ax,[bx]
          add     ax,cx


          mov     Bx,offset CsilTab
          add     bx,ax
          add     bx,ax
          mov     di,[bx]

          pop     ax

          mov     al,ah
          xor     ah,ah
          mov     bx,offset CsilTar
          add     bx,ax
          add     bx,ax
          add     di,[bx]

          cmp     di,te
          jb      @t1
          cmp     di,aj
          ja      @t1

          stosb

@T1:      pop     cx
          loop    @Lo2
          ret

@csilmv:  push  es
          push  ds
          pop   es

          mov   si,offset CsilTer
          add   si,csp
          mov   di,offset CsilTar
          mov   cx,100
rep       movsw

          add  csp,2
          cmp  csp,920*2
          jne  @cmk
          mov  csp,200*2

@cmk:     pop   es
          ret

@Start:   mov     ax,013h
          int     10h

          Call    Genszin

          mov     ax,09000h
          mov     es,ax
          xor     di,di
          xor     ax,ax
          mov     cx,32000
rep       stosw
          mov     csp,20
          mov     sza,500
          call    @csilmv
          mov     te,20*320
          mov     te2,20*320
          mov     aj,180*320
          mov     aj2,180*320
          mov     maxcs,5000
          call    GenSinCos;
          call    GenSor100;
          call    GenCsilMov
          call    GenCsilTab;
          call    GenCsilTer;


          mov     cx,100
@tmcs:    push    cx
          call    @csilmv
          pop     cx
          loop    @tmcs

@E1:      call    @fel
{          call      gencsiltab}

          push  ds
          push  es
          push  es
          pop   ds
          push  0a000h
          pop   es
          mov   si,20*320+20
          mov   di,20*320+20
          mov   cx,160
@cl1:     push  cx
          mov   cx,280/4
db $66
rep       movsw
          add  si,40
          add  di,40
          pop   cx
          loop  @cl1
          pop   es
          pop   ds

          call    @ret
          xor   di,di
          mov   cx,16000
db $66
          xor   ax,ax
db $66
rep       stosw

          call    @csilmv
          call    @csilmv


          in      al,060h
          cmp     al,1
          jne     @e1

end;

End.