home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / democomp / demo / _2complx.arj / 2CLX-SRC.ZIP / 2COMPLEX.ASM next >
Encoding:
Assembly Source File  |  1995-11-10  |  3.0 KB  |  103 lines
  1. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  2. ;
  3. ; THIS IS THE MAIN SOURCE FILE OF   [2COMPLEX]  BY SHOCK!
  4. ;
  5. ; THE WHOLE THING WAS ASSEMBLED TOGETHER DURING 3 DAYS BEFORE THE DEADLINE
  6. ; SO FORGIVE US FOR THE SLOW AND UNOPTIMIZED ROUTINES
  7. ;
  8. ; ANYWAYS, MAYBE YOU CAN FIND SOMETHING INTERESTING HERE... - CYBERDANCER
  9. ;
  10. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  11.  
  12. INCLUDE         INC\MODUL.ASM
  13.  
  14. .MODEL TINY
  15. .386
  16. .STACK 100
  17. .CODE
  18.  
  19. START:          CALL    MEMKiOSZT
  20.                 CALL    LOADMUSIC
  21.                 CALL    INTROPART
  22.                 CALL    SHOCKLOGO
  23.                 CALL    CLEARSCREENV1
  24.                 CALL    SPACEPART
  25.                 CALL    LOADTHIRDPIC
  26.                 CALL    HANGFALPART
  27.                 CALL    LOADFOURTHPIC
  28.                 CALL    VECTORVALAMI
  29.                 CALL    GOMB
  30.                 CALL    LOADFIFTHPIC
  31.                 CALL    F14
  32.                 CALL    VECTORVALAMI2
  33.                 CALL    LOADSIXTHPIC
  34.                 MOV     CS:ORDERPOINTER,40
  35.                 CALL    FADEPAL
  36.                 CALL    S3MPLAYOFF
  37.                 CALL    ENDSCREEN
  38.                 MOV     AH,4CH
  39.                 iNT     21H
  40.  
  41. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  42.  
  43. MEMKiOSZT:      MOV     AX,0A000H
  44.                 MOV     ES,AX
  45.                 MOV     AX,CS
  46.                 MOV     DS,AX
  47.                 MOV     AX,SS
  48.                 ADD     AX,4096+100
  49.                 MOV     S3MPLACE,AX
  50.                 ADD     AX,4096
  51.                 MOV     PICPLACE,AX
  52.                 MOV     POINTS,AX
  53.                 MOV     KEP,AX
  54.                 MOV     TEXTBUFF,AX
  55.                 ADD     AX,4096
  56.                 MOV     WP,AX
  57.                 MOV     SCRPOINTER,AX
  58.                 ADD     AX,4096
  59.                 MOV     BACKSCRPOINTER,AX
  60.                 RET
  61.  
  62. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  63.  
  64. LBM256:         PUSHA
  65.                 PUSH    ES DS
  66.                 MOV     BP,64000
  67.                 MOV     AX,0A000H
  68.                 MOV     ES,AX
  69.                 MOV     Di,0
  70.                 MOV     SI,0
  71. FOUND_BODY:     LODSB
  72.                 CBW
  73.                 MOV     CX,AX
  74.                 OR      AX,AX
  75.                 JS      _REPLiCATE
  76. _COPY:          iNC     CX
  77.                 SUB     BP,CX
  78.                 REPNZ   MOVSB
  79.                 JMP     NEXTBLOKK
  80. _REPLiCATE:     NEG     CX
  81.                 iNC     CX
  82.                 SUB     BP,CX
  83.                 LODSB
  84.                 REPNZ   STOSB
  85. NEXTBLOKK:      OR      BP,BP
  86.                 JNE     FOUND_BODY
  87.                 POP     DS ES
  88.                 POPA
  89.                 RET
  90.  
  91. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  92.  
  93. INCLUDE INC\PALETTE.ASM
  94. INCLUDE INC\LOADER.ASM
  95. INCLUDE INC\S3M.ASM
  96. INCLUDE INC\ENDTEXT.ASM
  97. INCLUDE TEXTNEW\VECTOR.ASM
  98. INCLUDE VALAMI\VECTOR.ASM
  99. INCLUDE INC\OTHERS.ASM
  100. INCLUDE INC\SPACE.ASM
  101.  
  102. END START
  103.