home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / cyberdan / intrance / inc / effect1.asm next >
Encoding:
Assembly Source File  |  1994-11-16  |  9.5 KB  |  411 lines
  1.                 B       EQU     BYTE PTR
  2.                 W       EQU     WORD PTR
  3.         D    EQU    DWORD PTR
  4. SUCKER1:
  5.         MOV    AX,13H
  6.         iNT    10H
  7.         CALL    PALONLY
  8.         MOV    AX,@DATA
  9.         MOV    DS,AX
  10.         MOV    AX,0A000H
  11.         MOV    ES,AX
  12.         MOV    Di,0
  13.                 MOV     EAX,02020202H
  14.                 CALL    MAiN
  15.         RET
  16. SUCKER2:        MOV    AX,@DATA
  17.         MOV    DS,AX
  18.         MOV    AX,0A000H
  19.         MOV    ES,AX
  20.         MOV     EAX,0
  21.         MOV    Di,0
  22.                 CALL    MAiN
  23.                 RET
  24. MAiN:
  25.         CALL    P1
  26.                 CALL    DELAY
  27.         MOV    Di,0
  28.         CALL    P2
  29.         ADD    Di,5120
  30.         CALL    P1
  31.                 CALL    DELAY
  32.         MOV    Di,0
  33.         CALL    P3
  34.         ADD    Di,5120
  35.         CALL    P2
  36.         ADD    Di,5120
  37.         CALL    P1
  38.                 CALL    DELAY
  39.         MOV    Di,0
  40.         CALL    P4
  41.         ADD    Di,5120
  42.         CALL    P3
  43.         ADD    Di,5120
  44.         CALL    P2
  45.         ADD    Di,5120
  46.         CALL    P1
  47.                 CALL    DELAY
  48.         MOV    Di,0
  49.                 CALL    P5
  50.                 ADD     Di,5120
  51.         CALL    P4
  52.         ADD    Di,5120
  53.         CALL    P3
  54.         ADD    Di,5120
  55.         CALL    P2
  56.         ADD    Di,5120
  57.         CALL    P1
  58.                 CALL    DELAY
  59.         MOV    Di,0
  60.                 CALL    P6
  61.                 ADD     Di,5120
  62.                 CALL    P5
  63.                 ADD     Di,5120
  64.         CALL    P4
  65.         ADD    Di,5120
  66.         CALL    P3
  67.         ADD    Di,5120
  68.         CALL    P2
  69.         ADD    Di,5120
  70.         CALL    P1
  71.                 CALL    DELAY
  72.         MOV    Di,0
  73.                 CALL    P7
  74.                 ADD     Di,5120
  75.                 CALL    P6
  76.                 ADD     Di,5120
  77.                 CALL    P5
  78.                 ADD     Di,5120
  79.         CALL    P4
  80.         ADD    Di,5120
  81.         CALL    P3
  82.         ADD    Di,5120
  83.         CALL    P2
  84.         ADD    Di,5120
  85.         CALL    P1
  86.                 CALL    DELAY
  87.         MOV    Di,0
  88.                 CALL    P8
  89.                 ADD     Di,5120
  90.                 CALL    P7
  91.                 ADD     Di,5120
  92.                 CALL    P6
  93.                 ADD     Di,5120
  94.                 CALL    P5
  95.                 ADD     Di,5120
  96.         CALL    P4
  97.         ADD    Di,5120
  98.         CALL    P3
  99.         ADD    Di,5120
  100.         CALL    P2
  101.         ADD    Di,5120
  102.         CALL    P1
  103.                 CALL    DELAY
  104.                 MOV     Di,5120
  105.                 CALL    P8
  106.                 ADD     Di,5120
  107.                 CALL    P7
  108.                 ADD     Di,5120
  109.                 CALL    P6
  110.                 ADD     Di,5120
  111.                 CALL    P5
  112.                 ADD     Di,5120
  113.         CALL    P4
  114.         ADD    Di,5120
  115.         CALL    P3
  116.         ADD    Di,5120
  117.         CALL    P2
  118.         ADD    Di,5120
  119.         CALL    P1
  120.                 CALL    DELAY
  121.                 MOV     Di,5120*2
  122.                 CALL    P8
  123.                 ADD     Di,5120
  124.                 CALL    P7
  125.                 ADD     Di,5120
  126.                 CALL    P6
  127.                 ADD     Di,5120
  128.                 CALL    P5
  129.                 ADD     Di,5120
  130.         CALL    P4
  131.         ADD    Di,5120
  132.         CALL    P3
  133.         ADD    Di,5120
  134.         CALL    P2
  135.         ADD    Di,5120
  136.         CALL    P1
  137.                 CALL    DELAY
  138.                 MOV     Di,5120*3
  139.                 CALL    P8
  140.                 ADD     Di,5120
  141.                 CALL    P7
  142.                 ADD     Di,5120
  143.                 CALL    P6
  144.                 ADD     Di,5120
  145.                 CALL    P5
  146.                 ADD     Di,5120
  147.         CALL    P4
  148.         ADD    Di,5120
  149.         CALL    P3
  150.         ADD    Di,5120
  151.         CALL    P2
  152.         ADD    Di,5120
  153.         CALL    P1
  154.                 CALL    DELAY
  155.                 MOV     Di,5120*4
  156.                 CALL    P8
  157.                 ADD     Di,5120
  158.                 CALL    P7
  159.                 ADD     Di,5120
  160.                 CALL    P6
  161.                 ADD     Di,5120
  162.                 CALL    P5
  163.                 ADD     Di,5120
  164.         CALL    P4
  165.         ADD    Di,5120
  166.         CALL    P3
  167.         ADD    Di,5120
  168.         CALL    P2
  169.         ADD    Di,5120
  170.         CALL    P1
  171.                 CALL    DELAY
  172.                 MOV     Di,5120*5
  173.                 CALL    P8
  174.                 ADD     Di,5120
  175.                 CALL    P7
  176.                 ADD     Di,5120
  177.                 CALL    P6
  178.                 ADD     Di,5120
  179.                 CALL    P5
  180.                 ADD     Di,5120
  181.         CALL    P4
  182.         ADD    Di,5120
  183.         CALL    P3
  184.         ADD    Di,5120
  185.         CALL    P2
  186.                 ADD     Di,5120 ;
  187.                 CALL    P1
  188.                 CALL    DELAY
  189.                 MOV     Di,5120*6
  190.                 CALL    P8
  191.                 ADD     Di,5120
  192.                 CALL    P7
  193.                 ADD     Di,5120
  194.                 CALL    P6
  195.                 ADD     Di,5120
  196.                 CALL    P5
  197.                 ADD     Di,5120
  198.         CALL    P4
  199.         ADD    Di,5120
  200.         CALL    P3
  201.                 ADD     Di,5120
  202.                 CALL    P2 ;
  203.                 CALL    DELAY
  204.                 MOV     Di,5120*7
  205.                 CALL    P8
  206.                 ADD     Di,5120
  207.                 CALL    P7
  208.                 ADD     Di,5120
  209.                 CALL    P6
  210.                 ADD     Di,5120
  211.                 CALL    P5
  212.                 ADD     Di,5120
  213.         CALL    P4
  214.                 ADD     Di,5120
  215.                 CALL    P3 ;
  216.                 CALL    DELAY
  217.                 MOV     Di,5120*8
  218.                 CALL    P8
  219.                 ADD     Di,5120
  220.                 CALL    P7
  221.                 ADD     Di,5120
  222.                 CALL    P6
  223.                 ADD     Di,5120
  224.                 CALL    P5
  225.                 ADD     Di,5120
  226.                 CALL    P4
  227.                 CALL    DELAY
  228.                 MOV     Di,5120*9
  229.                 CALL    P8
  230.                 ADD     Di,5120
  231.                 CALL    P7
  232.                 ADD     Di,5120
  233.                 CALL    P6
  234.                 ADD     Di,5120
  235.                 CALL    P5
  236.                 CALL    DELAY
  237.                 MOV     Di,5120*10
  238.                 CALL    P8
  239.                 ADD     Di,5120
  240.                 CALL    P7
  241.                 ADD     Di,5120
  242.                 CALL    P6
  243.                 CALL    DELAY
  244.                 MOV     Di,5120*11
  245.                 CALL    P8
  246.                 ADD     Di,5120
  247.                 CALL    P7
  248.                 CALL    DELAY
  249.         MOV    Di,5120*12
  250.                 CALL    P8
  251.                 CALL    DELAY
  252.                 RET
  253.  
  254. KOCKA:        MOV    Di,0
  255.         MOV    CX,16
  256.                 MOV     EAX,EAX
  257. KOCKA1:        PUSH    CX
  258.         MOV    CX,4
  259.         REP    STOSD
  260.         ADD    Di,304
  261.         POP    CX
  262.         LOOP    KOCKA1
  263.         RET
  264.  
  265. P1:        PUSH    Di
  266.         MOV    CX,40
  267.         ADD    Di,7+(320*7)
  268. P11:            MOV     W ES:[Di],AX
  269.         ADD    Di,16
  270.         LOOP    P11
  271.         POP    Di
  272.         RET
  273.  
  274. P2:             PUSH    Di
  275.         MOV     CX,80
  276.                 ADD     Di,6+(320*6)
  277. P21:            MOV     D ES:[Di],EAX
  278.         ADD    Di,16
  279.                 LOOP    P21
  280.         POP    Di
  281.         RET
  282.  
  283. P3:        PUSH    Di
  284.         MOV    CX,20
  285.         ADD    Di,5+(320*5)
  286. P31:            MOV     D ES:[Di],EAX
  287.                 MOV     W ES:[Di+4],AX
  288.         ADD    Di,16
  289.         LOOP    P31
  290.         MOV    CX,80        
  291. P32:            MOV     B ES:[Di],AL
  292.                 MOV     B ES:[Di+5],AL
  293.         ADD    Di,16
  294.         LOOP    P32
  295.         MOV    CX,20
  296. P33:            MOV     D ES:[Di],EAX
  297.                 MOV     W ES:[Di+4],AX
  298.         ADD    Di,16
  299.         LOOP    P33
  300.         POP    Di
  301.         RET
  302.  
  303. P4:             PUSH    Di
  304.         MOV     CX,20
  305.                 ADD     Di,4+(320*4)
  306. P41:            MOV     D ES:[Di],EAX
  307.                 MOV     D ES:[Di+4],EAX
  308.         ADD    Di,16
  309.                 LOOP    P41
  310.         MOV    CX,120
  311. P42:            MOV     B ES:[Di],AL
  312.                 MOV     B ES:[Di+7],AL
  313.         ADD    Di,16
  314.                 LOOP    P42
  315.         MOV    CX,20
  316. P43:            MOV     D ES:[Di],EAX
  317.                 MOV     D ES:[Di+4],EAX
  318.         ADD    Di,16
  319.                 LOOP    P43
  320.         POP    Di
  321.                 RET
  322.  
  323. P5:             PUSH    Di
  324.         MOV     CX,20
  325.                 ADD     Di,3+(320*3)
  326. P51:            MOV     D ES:[Di],EAX
  327.                 MOV     D ES:[Di+4],EAX
  328.                 MOV     W ES:[Di+8],AX
  329.                 ADD     Di,16
  330.                 LOOP    P51
  331.                 MOV     CX,160
  332. P52:            MOV     B ES:[Di],AL
  333.                 MOV     B ES:[Di+9],AL
  334.         ADD    Di,16
  335.                 LOOP    P52
  336.         MOV    CX,20
  337. P53:            MOV     D ES:[Di],EAX
  338.                 MOV     D ES:[Di+4],EAX
  339.                 MOV     W ES:[Di+8],AX
  340.         ADD    Di,16
  341.                 LOOP    P53
  342.         POP    Di
  343.                 RET
  344.  
  345. P6:             PUSH    Di
  346.         MOV     CX,20
  347.                 ADD     Di,2+(320*2)
  348. P61:            MOV     D ES:[Di],EAX
  349.                 MOV     D ES:[Di+4],EAX
  350.                 MOV     D ES:[Di+8],EAX
  351.                 ADD     Di,16
  352.                 LOOP    P61
  353.                 MOV     CX,200
  354. P62:            MOV     B ES:[Di],AL
  355.                 MOV     B ES:[Di+11],AL
  356.         ADD    Di,16
  357.                 LOOP    P62
  358.         MOV    CX,20
  359. P63:            MOV     D ES:[Di],EAX
  360.                 MOV     D ES:[Di+4],EAX
  361.                 MOV     D ES:[Di+8],EAX
  362.         ADD    Di,16
  363.                 LOOP    P63
  364.         POP    Di
  365.                 RET
  366.  
  367. P7:             PUSH    Di
  368.         MOV     CX,20
  369.                 ADD     Di,1+(320*1)
  370. P71:            MOV     D ES:[Di],EAX
  371.                 MOV     D ES:[Di+4],EAX
  372.                 MOV     D ES:[Di+8],EAX
  373.                 MOV     W ES:[Di+12],AX
  374.                 ADD     Di,16
  375.                 LOOP    P71
  376.                 MOV     CX,240
  377. P72:            MOV     B ES:[Di],AL
  378.                 MOV     B ES:[Di+13],AL
  379.         ADD    Di,16
  380.                 LOOP    P72
  381.         MOV    CX,20
  382. P73:            MOV     D ES:[Di],EAX
  383.                 MOV     D ES:[Di+4],EAX
  384.                 MOV     D ES:[Di+8],EAX
  385.                 MOV     W ES:[Di+12],AX
  386.         ADD    Di,16
  387.                 LOOP    P73
  388.         POP    Di
  389.                 RET
  390.  
  391. P8:             PUSH    Di
  392.         MOV     CX,80
  393.                 MOV     EAX,EAX
  394.                 REP     STOSD
  395.                 MOV     CX,280
  396. P81:            MOV     B ES:[Di],AL
  397.                 MOV     B ES:[Di+15],AL
  398.         ADD    Di,16
  399.                 LOOP    P81
  400.                 MOV     CX,80
  401.                 REP     STOSD
  402.         POP    Di
  403.                 RET
  404.  
  405. DELAY:          PUSH    CX
  406.                 MOV     CX,3
  407. DELAY1:         CALL    RASTERWAiT
  408.                 LOOP    DELAY1
  409.                 POP     CX
  410.                 RET
  411.