home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / cyberdan / intrance / inc / effect3.asm < prev    next >
Encoding:
Assembly Source File  |  1995-03-09  |  1.1 KB  |  69 lines
  1. EFFECT3:
  2.     MOV    AX,13H
  3.     INT    10H
  4.     MOV    AX,CS
  5.     MOV    DS,AX
  6.     CALL    LOADPIC
  7.     MOV    PIC_X,319
  8.     MOV    PIC_Y,0
  9. MAINLOOP:
  10.     LEA    BX,MOVES
  11.     ADD    BX,MOVPTR
  12.     MOV    AX,CS:[BX]
  13.     CMP    AX,0FFH
  14.     JE    KONYEC
  15.     SUB    PIC_X,AX
  16.     CALL    DISPPIC
  17.     CALL    RASTERWAIT
  18.     ADD    MOVPTR,2
  19.     JMP    MAINLOOP
  20. KONYEC:    RET
  21. ;------------------------------------------------------------------------------
  22. LOADPIC:PUSH    DS ES
  23.     MOV    AX,5
  24.     MOV    DS,CS:[PICS]
  25.     MOV    DX,0
  26.     CALL    LOADOVERLAY
  27.     MOV    SI,64000
  28.     CALL    PAL256
  29.     POP    ES DS 
  30.     RET
  31.  
  32. DISPPIC:PUSH    DS ES
  33.     MOV    AX,0A000H
  34.     MOV    ES,AX
  35.         MOV     SI,28*320
  36.         MOV     DI,28*320
  37.     MOV    BX,PIC_X
  38.     MOV    BP,320
  39.     SUB    BP,BX
  40.     MOV    DS,CS:[PICS]
  41.         MOV     CX,174-28
  42.     MOV    AX,0    
  43. DP0:    PUSH    CX
  44.     MOV    CX,BX
  45.     SHR    CX,1
  46.     REP    STOSW
  47.     ADC    CX,CX
  48.     REP    STOSB
  49.     MOV    CX,BP
  50.     SHR    CX,1
  51.     REP    MOVSW
  52.     ADC    CX,CX
  53.     REP    MOVSB
  54.     ADD    SI,320
  55.     SUB    SI,BP
  56.     POP    CX
  57.     LOOP    DP0
  58.     POP    ES DS
  59.     RET
  60. PICS    DW    0
  61. PIC_X    DW    ?
  62. PIC_Y    DW    ?
  63. MOVES    DW    1,2,3,4,5,6,7,8,10,12,12,12,13,14,14,14,15,15
  64.     DW    15,16,16,17,18,21,22,27,-27,-20,-10,-5,-3,-2,-1,-1,-1
  65.     DW    1,1,2,3,5,8,9,10,13,18
  66.     DW    -16,-10,-5,-4,-3,-2,-1,-1,-1,1,1,2,3,4,5,7,9,11
  67.     DW    -5,-3,-1,-1,-1,1,2,3,5,255
  68. MOVPTR  DW    0
  69.