home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / cyberdan / intrance / inc / effect2.asm < prev    next >
Encoding:
Assembly Source File  |  1994-12-27  |  828 b   |  62 lines
  1.     KEPEK    DW    0
  2.     PUFFER  DW    0
  3.     FRAME    DW    0
  4.     SZAMLAL    DW    0
  5.  
  6. EFFECT2:MOV     AX,CS
  7.         MOV     DS,AX
  8.         MOV     ES,AX
  9.     MOV    CS:[PUFFER],0A000H
  10.     CALL    LOADANIM
  11. FO0:    MOV    CX,15
  12. FO1:    CALL    ONEPIC
  13.     ADD    FRAME,4000
  14.     CALL    RASTERWAIT
  15.     CALL    RASTERWAIT
  16.     LOOP    FO1
  17.     RET
  18.  
  19. ONEPIC:    PUSH    DS ES DI SI CX
  20.     MOV    DS,CS:[KEPEK]
  21.     MOV    ES,CS:[PUFFER]
  22.     MOV    DI,0
  23.  
  24.     MOV    CX,4
  25. OP1:    PUSH    CX
  26.     MOV    CX,4
  27. OP0:    CALL    ONEKEP
  28.     ADD    DI,80
  29.     LOOP    OP0
  30.     ADD    DI,(49*320)
  31.     POP    CX
  32.     LOOP    OP1
  33.  
  34.     POP    CX SI DI ES DS 
  35.     RET
  36.  
  37. ONEKEP: PUSH    DI CX AX
  38.     MOV    SI,CS:[FRAME]
  39.     MOV    CX,50
  40. ONE0:    PUSH    CX
  41.     MOV    CX,80
  42. ONE1:    LODSB
  43.     CMP    AL,0FFH
  44.     JNE    OKSD
  45.     INC    DI
  46.     JMP    NOKSD
  47. OKSD:    STOSB
  48. NOKSD:    LOOP    ONE1
  49.     ADD    DI,240
  50.     POP    CX
  51.     LOOP    ONE0
  52.     POP    AX CX DI
  53.     RET
  54. LOADANIM:
  55.     MOV    AX,4
  56.     PUSH    DS
  57.     MOV    DS,CS:[KEPEK]
  58.     MOV    DX,0
  59.     CALL    LOADOVERLAY
  60.     POP    DS
  61.     RET
  62.