home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / democomp / demo / _2complx.arj / 2CLX-SRC.ZIP / INC / OTHERS.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-11-10  |  6.4 KB  |  206 lines
  1. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  2. ;
  3. ; OTHER SHIT AND UNOPTIMIZED ROUTINES NECCESSARY FOR THE DEMO...
  4. ;
  5. ; CYBERDANCER/SHOCK!     TRASH ROUTINE COLLECTION ;-)))
  6. ;
  7. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  8.  
  9. PICPLACE        DW      0
  10. PICFILE1        DW      1
  11. PICFILE2        DW      2
  12. PICFILE3        DW      6
  13. PICFILE4        DW      16
  14. PICFILE5        DW      19
  15. PICFILE6        DW      22
  16. SCREENSEG       DW      0A000H
  17.  
  18. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  19.  
  20. INTROPART:      PUSHA
  21.                 PUSH    ES DS
  22.                 MOV     AX,CS
  23.                 MOV     DS,AX
  24.                 MOV     AX,13H
  25.                 INT     10H
  26.                 CALL    LOADFIRSTPIC
  27.                 CALL    LOADSECONDPIC
  28.                 POP     DS ES
  29.                 POPA
  30.                 RET
  31.  
  32. HANGFALPART:    PUSHA
  33.                 MOV     ESI,0
  34.                 MOV     EDI,0
  35.                 MOV     EAX,0
  36.                 MOV     EBX,0
  37.                 MOV     ECX,0
  38.                 MOV     EDX,0
  39.                 MOV     EBP,0
  40.                 MOV     AX,13H
  41.                 INT     10H
  42.                 PUSH    DS
  43.                 MOV     DS,CS:PICPLACE
  44.                 MOV     AX,17
  45.                 MOV     DX,0
  46.                 CALL    LOADOVERLAY
  47.                 MOV     SI,0
  48.                 CALL    PAL256
  49.                 POP     DS
  50.  
  51. HANGFALPART1:   MOV     CX,9
  52. HANGFALPART2:   CALL    RASTERWAIT
  53.                 CALL    EGYHANGFAL
  54. HANGFALPART3:   CMP     CS:ORDERPOINTER,8
  55.                 JE      HANGFALPARTVEGE
  56.                 INC     CX
  57.                 CMP     CX,16
  58.                 JB      HANGFALPART2
  59.                 JMP     HANGFALPART1
  60. HANGFALPARTVEGE:POPA
  61.                 RET
  62.  
  63. LOADFIRSTPIC:   PUSH    CX AX SI DI ES DS
  64.                 MOV     AX,CS:PICFILE1
  65.                 MOV     DS,CS:PICPLACE
  66.                 MOV     DX,0
  67.                 CALL    LOADOVERLAY
  68.                 MOV     SI,0
  69.                 CALL    PAL256
  70.                 MOV     ES,CS:SCREENSEG
  71.                 MOV     SI,768
  72.                 MOV     DI,0
  73.                 MOV     CX,16000
  74.                 REP     MOVSD
  75. LOADFIRSTPIC1:  CMP     CS:ORDERPOINTER,0
  76.                 JE      LOADFIRSTPIC1
  77.                 POP     DS ES DI SI AX CX
  78.                 RET
  79.  
  80. LOADSECONDPIC:  PUSH    CX AX SI DI ES DS
  81.                 MOV     AX,CS:PICFILE2
  82.                 MOV     DS,CS:PICPLACE
  83.                 MOV     DX,0
  84.                 CALL    LOADOVERLAY
  85.                 CALL    RASTERWAIT
  86.                 MOV     ES,CS:SCREENSEG
  87.                 MOV     SI,768
  88.                 MOV     DI,0
  89.                 MOV     CX,16000
  90.                 REP     MOVSD
  91.                 MOV     SI,0
  92.                 CALL    PAL256
  93. LOADSECONDPIC1: CMP     CS:ORDERPOINTER,1
  94.                 JE      LOADSECONDPIC1
  95.                 POP     DS ES DI SI AX CX
  96.                 RET
  97.  
  98. LOADTHIRDPIC:   PUSH    CX AX SI DI ES DS
  99.                 MOV     AX,CS:PICFILE3
  100.                 MOV     DS,CS:PICPLACE
  101.                 MOV     DX,0
  102.                 CALL    LOADOVERLAY
  103.                 CALL    RASTERWAIT
  104.                 MOV     ES,CS:SCREENSEG
  105.                 MOV     SI,768
  106.                 MOV     DI,0
  107.                 MOV     CX,16000
  108.                 REP     MOVSD
  109.                 MOV     SI,0
  110.                 CALL    PAL256
  111. LOADTHIRDPIC1:  CMP     CS:ORDERPOINTER,6
  112.                 JE      LOADTHIRDPIC1
  113.                 POP     DS ES DI SI AX CX
  114.                 RET
  115.  
  116. EGYHANGFAL:     PUSH    CX AX SI DI ES DS
  117.                 MOV     AX,CX
  118.                 MOV     DS,CS:PICPLACE
  119.                 MOV     DX,0
  120.                 CALL    LOADOVERLAY
  121.                 CALL    LBM256
  122.                 ;CALL    PAL256
  123.                 POP     DS ES DI SI AX CX
  124.                 RET
  125.  
  126. LOADFOURTHPIC:  PUSH    CX AX SI DI ES DS
  127.                 MOV     AX,CS:PICFILE4
  128.                 MOV     DS,CS:PICPLACE
  129.                 MOV     DX,0
  130.                 CALL    LOADOVERLAY
  131.                 CALL    RASTERWAIT
  132.                 MOV     ES,CS:SCREENSEG
  133.                 MOV     SI,768
  134.                 MOV     DI,0
  135.                 MOV     CX,16000
  136.                 REP     MOVSD
  137.                 MOV     SI,0
  138.                 CALL    PAL256
  139. LOADFOURTHPIC2: CMP     CS:ORDERPOINTER,8
  140.                 JE      LOADFOURTHPIC2
  141.                 POP     DS ES DI SI AX CX
  142.                 RET
  143.  
  144. LOADFIFTHPIC:   PUSH    CX AX SI DI ES DS
  145.                 MOV     AX,CS:PICFILE5
  146.                 MOV     DS,CS:PICPLACE
  147.                 MOV     DX,0
  148.                 CALL    LOADOVERLAY
  149.                 CALL    RASTERWAIT
  150.                 MOV     ES,CS:SCREENSEG
  151.                 MOV     SI,768
  152.                 MOV     DI,0
  153.                 MOV     CX,16000
  154.                 REP     MOVSD
  155.                 MOV     SI,0
  156.                 CALL    PAL256
  157. LOADFIFTHPIC2:  CMP     CS:ORDERPOINTER,14
  158.                 JE      LOADFIFTHPIC2
  159.                 POP     DS ES DI SI AX CX
  160.                 RET
  161.  
  162. LOADSIXTHPIC:   PUSH    CX AX SI DI ES DS
  163.                 MOV     AX,CS:PICFILE6
  164.                 MOV     DS,CS:PICPLACE
  165.                 MOV     DX,0
  166.                 CALL    LOADOVERLAY
  167.                 CALL    RASTERWAIT
  168.                 MOV     ES,CS:SCREENSEG
  169.                 MOV     SI,768
  170.                 MOV     DI,0
  171.                 MOV     CX,16000
  172.                 REP     MOVSD
  173.                 MOV     SI,0
  174.                 CALL    PAL256
  175. LOADSIXTHPIC2:  CMP     CS:ORDERPOINTER,21
  176.                 JB      LOADSIXTHPIC2
  177.                 POP     DS ES DI SI AX CX
  178.                 RET
  179.  
  180. CLEARSCREENV1:  PUSHA
  181.                 MOV     CX,100
  182.                 MOV     EAX,0
  183. CLEARV1:        CALL    RASTERWAIT
  184.                 PUSH    CX
  185.                 MOV     DI,OFFS1
  186.                 MOV     CX,40
  187.                 REP     STOSD
  188.                 ADD     DI,160
  189.                 MOV     CX,40
  190.                 REP     STOSD
  191.                 MOV     DI,OFFS2
  192.                 MOV     CX,40
  193.                 REP     STOSD
  194.                 SUB     DI,320+160
  195.                 MOV     CX,40
  196.                 REP     STOSD
  197.                 ADD     OFFS1,640
  198.                 SUB     OFFS2,640
  199.                 POP     CX
  200.                 LOOP    CLEARV1
  201.                 POPA
  202.                 RET
  203.  
  204. OFFS1           DW      0
  205. OFFS2           DW      64000-160
  206.