home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / DUNEINT.ZIP / DUNE.ASM < prev    next >
Assembly Source File  |  1994-03-18  |  7KB  |  214 lines
  1. .286
  2.  
  3. ; Source of da DUNE ][ intro (1994 bytes compressed with our compresser)
  4. ; Coded by TSC of Phantom Dezign in about 2 hours of hurry... :-)
  5. ; Bye. BTW this souce is rotten.
  6.  
  7.                 code     segment
  8.                 assume   cs:code, ds:code, es:code
  9.                 org     100h
  10. start:
  11.                 mov     ax,0eh    ; 640x200x16
  12.                 int     10h
  13.                 mov     dx,3d4h
  14.                 mov     al,9
  15.                 mov     ah,0
  16.                 out     dx,ax     ; now 640x400x16
  17.                 lea     dx,[cs:reglist]
  18.                 mov     ax,1002h
  19.                 int     10h
  20.  
  21.                 lea     si,[cs:pal]
  22.                 call    Pal16
  23.  
  24.                 mov     cx,0
  25.                 call    plane
  26.                 lea     si,[cs:logo]
  27.                 push    0a000h
  28.                 pop     es
  29.                 mov     cx,62*80/2
  30.                 mov     di,6
  31.                 repnz   movsw
  32.  
  33.                 call    typer
  34.                 lea     si,[cs:szam]
  35.                 mov     di,(220*80)-2
  36.                 mov     cx,36*80/2
  37.                 rep     movsw
  38.  
  39.                 mov     ax,0
  40.                 int     16h
  41.                 call    Betukle
  42.                 mov     ax,3
  43.                 int     10h
  44.                 int     20h
  45.  
  46. typer:          mov     cx,1
  47.                 call    plane
  48.                 lea     si,[cs:szoveg]
  49. nextchar:
  50.                 lodsb
  51.                 cmp     al,253
  52.                 je      UjLap
  53.                 cmp     al,254
  54.                 je      Ujsor
  55.                 ja      vege_typer
  56.                 jmp     nemujsor
  57. UJSOR:          mov     [cs:aktoszlop],0
  58.                 add     [cs:aktsor],1
  59.                 jmp     nextchar
  60. NemUjSor:       push    si
  61.                 call    Betukirak
  62.                 pop     si
  63.                 push    cx
  64.                 mov     cx,70
  65. Loopka:         call    RasterWait
  66.                 loop    loopka
  67.                 pop     cx
  68.                 inc     [cs:aktoszlop]
  69.                 jmp     Nextchar
  70. Vege_typer:     ret
  71. UjLap:          mov     [cs:aktoszlop],0
  72.                 mov     [cs:aktsor],4
  73.                 call    Betukle
  74.                 pusha
  75.                 push    0a000h
  76.                 pop     es
  77.                 mov     di,20*4*80
  78.                 mov     cx,(32000-(20*4*80))/2
  79.                 mov     ax,0
  80.                 rep     stosw
  81.                 popa
  82.                 call    Betukfel
  83.                 jmp     NextChar
  84.  
  85. BetuKirak:      cmp     al,65
  86.                 jb      Space
  87.                 sub     al,65
  88.                 lea     si,[cs:nagybetuk]
  89.                 shl     al,1
  90.                 mov     ah,0
  91.                 add     si,ax
  92.                 push    0a000h
  93.                 pop     es
  94.                 mov     ax,80*20
  95.                 mul     [cs:aktsor]
  96.                 mov     bx,[cs:aktoszlop]
  97.                 shl     bx,1
  98.                 add     ax,bx
  99.                 mov     di,ax
  100.                 mov     cx,18
  101. Betu1:
  102.                 movsw
  103.                 add     si,78
  104.                 add     di,78
  105.                 loop    Betu1
  106.                 jmp     vegeabetunek
  107. Space:          mov     ax,80*20
  108.                 mul     [cs:aktsor]
  109.                 mov     bx,[cs:aktoszlop]
  110.                 shl     bx,1
  111.                 add     ax,bx
  112.                 mov     di,ax
  113.                 mov     cx,18
  114.                 mov     ax,0
  115. Betu2:
  116.                 stosw
  117.                 add     di,78
  118.                 loop    Betu2
  119.  
  120. Vegeabetunek:   ret
  121.  
  122. Betukle:        pusha
  123.                 mov     cx,30
  124. BetukLe1:
  125.                 cmp     byte ptr cs:[pal+12],30
  126.                 je      Okl1
  127.                 dec     byte ptr cs:[pal+12]
  128. Okl1:           cmp     byte ptr cs:[pal+13],30
  129.                 je      Okl2
  130.                 dec     byte ptr cs:[pal+13]
  131. Okl2:           cmp     byte ptr cs:[pal+14],35
  132.                 je      Okl3
  133.                 dec     byte ptr cs:[pal+14]
  134. Okl3:           call    RasterWait
  135.                 lea     si,[cs:pal]
  136.                 call    Pal16
  137.                 loop    BetukLe1
  138.                 popa
  139.                 ret
  140. BetukFel:       pusha
  141.                 mov     byte ptr cs:[pal+12],50
  142.                 mov     byte ptr cs:[pal+13],50
  143.                 mov     byte ptr cs:[pal+14],55
  144.                 lea     si,[cs:pal]
  145.                 call    Pal16
  146.                 popa
  147.                 ret
  148.  
  149. Pal16:          pusha
  150.                 mov     dx,3c8h
  151.                 mov     ax,0
  152.                 out     dx,al
  153.                 inc     dx
  154.                 mov     cx,15
  155.                 rep     outsb
  156.                 popa
  157.                 ret
  158. RasterWait:     pusha
  159.                 mov     dx,03dah
  160. Rast1:          in      al,dx
  161.                 test    al,8
  162.                 jz      Rast1
  163.                 popa
  164.                 ret
  165.  
  166. Plane:          pusha
  167.                 mov     dx,3c4h
  168.                 mov     al,2
  169.                 out     dx,al
  170.                 inc     dx
  171.                 mov     al,1
  172.                 shl     al,cl
  173.                 out     dx,al             ; plane select ?
  174.                 popa
  175.                 ret
  176.                 szoveg  db '        THIS FILE PASSED DUNE II',254
  177.                         db 254
  178.                         db ' WHQ FOR PHANTOM DEZIGN AND INFOMANIAX',254
  179.                         db 'HHQ FOR IMPHOBIA CASCADA AND ABSOLUTE PC',254
  180.                         db '              ABADDON SITE',254
  181.                         db '           BRAIN BROWSE SITE',254
  182.                         db '          CRIMINAL GANG SITE',254
  183.                         db '           FUTURE CREW SITE',254
  184.                         db '            GRIF TEAM SITE',254
  185.                         db '              IGUANA SITE',254
  186.                         db '           MAJIC TWELVE SITE',254
  187.                         db '               ONYX SITE',254
  188.                         db '             PENTAGON SITE',254
  189.                         db '           PSYCHOSQUAD SITE',254
  190.                         db '      THE DIGITAL MANEUVER SITE',254
  191.                         db '        TWIN SECTORS INC SITE',254
  192.                         db 253
  193.                         db '        SYSOPS ARE TSC AND CAT',254
  194.                         db '        THE COSYSOP IS ADMIRAL',254
  195.                         db 254
  196.                         db '          FOR TOONZ OF DEMOS',254
  197.                         db 254
  198.                         db '           DIAL THIS NUMBER',254
  199.                         db 255
  200.                 aktsor    dw 4
  201.                 aktoszlop dw 0
  202.                 rulez   dw      0
  203.                 reglist db  0,2,4,6,8,10,12,14,1,3,5,7,9,11,13,15,0
  204.                 pal     db  30,30,35   ;hatter 0
  205.                         db  40,40,45
  206.                         db  40,40,45   ;plane 0
  207.                         db  40,40,45
  208.                         db  50,50,55   ;plane 1
  209. include         dune.inc
  210. include         nagy.inc
  211. include         tsc.inc
  212. ends code
  213. end start
  214.