home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / cyberdan / intrance / inc / greets.asm < prev    next >
Encoding:
Assembly Source File  |  1995-03-20  |  6.3 KB  |  181 lines
  1. greets:         PUSHA
  2.                 PUSH    ES DS
  3.                 mov     ax,cs
  4.                 mov     ds,ax
  5.                 mov     es,ax
  6.                 mov     ax,0eh    ; 640x200x16
  7.                 int     10h
  8.                 mov     dx,3d4h
  9.                 mov     al,9
  10.                 mov     ah,0
  11.                 out     dx,ax     ; now 640x400x16
  12.                 lea     dx,[cs:reglist]
  13.                 mov     ax,1002h
  14.                 int     10h
  15.  
  16.                 lea     si,[cs:pal]
  17.                 call    Pal16
  18.                 lea     si,[cs:szoveg]
  19.                 call    typer
  20.                 POP     DS ES
  21.                 POPA
  22.                 ret
  23.  
  24. shockmsg:       PUSHA
  25.                 PUSH    DS ES
  26.                 mov     ax,cs
  27.                 mov     ds,ax
  28.                 mov     es,ax
  29.                 mov     ax,0eh    ; 640x200x16
  30.                 int     10h
  31.                 mov     dx,3d4h
  32.                 mov     al,9
  33.                 mov     ah,0
  34.                 out     dx,ax     ; now 640x400x16
  35.                 lea     dx,[cs:reglist]
  36.                 mov     ax,1002h
  37.                 int     10h
  38.                 MOV     CS:[AKTSOR],2
  39.                 MOV     CS:[AKTOSZLOP],0
  40.                 lea     si,[cs:pal]
  41.                 call    Pal16
  42.                 lea     si,[cs:szoveg2]
  43.                 call    typer
  44.                 POP     ES DS
  45.                 POPA
  46.                 ret
  47.  
  48. typer:          mov     cx,1
  49.                 call    plane
  50. nextchar:
  51.                 lodsb
  52.                 cmp     al,253
  53.                 je      UjLap
  54.                 cmp     al,254
  55.                 je      Ujsor
  56.                 ja      vege_typer
  57.                 jmp     nemujsor
  58. UJSOR:          mov     [cs:aktoszlop],0
  59.                 add     [cs:aktsor],1
  60.                 jmp     nextchar
  61. NemUjSor:       push    si
  62.                 call    Betukirak
  63.                 pop     si
  64.                 push    cx
  65.                 mov     cx,3
  66. Loopka:         call    RasterWait
  67.                 loop    loopka
  68.                 pop     cx
  69.                 inc     [cs:aktoszlop]
  70.                 jmp     Nextchar
  71. Vege_typer:     ret
  72. UjLap:          mov     [cs:aktoszlop],0
  73.                 mov     [cs:aktsor],4
  74.                 call    Betukle
  75.                 pusha
  76.                 push    0a000h
  77.                 pop     es
  78.                 mov     di,20*4*80
  79.                 mov     cx,(32000-(20*4*80))/2
  80.                 mov     ax,0
  81.                 rep     stosw
  82.                 popa
  83.                 call    Betukfel
  84.                 jmp     NextChar
  85.  
  86. BetuKirak:      cmp     al,65
  87.                 jb      Space
  88.                 sub     al,65
  89.                 lea     si,[cs:nagybetuk]
  90.                 shl     al,1
  91.                 mov     ah,0
  92.                 add     si,ax
  93.                 push    0a000h
  94.                 pop     es
  95.                 mov     ax,80*26     ;20
  96.                 mul     [cs:aktsor]
  97.                 mov     bx,[cs:aktoszlop]
  98.                 shl     bx,1
  99.                 add     ax,bx
  100.                 mov     di,ax
  101.                 mov     cx,18
  102. Betu1:
  103.                 movsw
  104.                 add     si,78
  105.                 add     di,78
  106.                 loop    Betu1
  107.                 jmp     vegeabetunek
  108. Space:          mov     ax,80*26            ;
  109.                 mul     [cs:aktsor]
  110.                 mov     bx,[cs:aktoszlop]
  111.                 shl     bx,1
  112.                 add     ax,bx
  113.                 mov     di,ax
  114.                 mov     cx,18
  115.                 mov     ax,0
  116. Betu2:
  117.                 ;stosw
  118.                 add     di,80 ;78
  119.                 loop    Betu2
  120.  
  121. Vegeabetunek:   ret
  122.  
  123. Betukle:        pusha
  124.                 mov     cx,30
  125. BetukLe1:
  126.                 cmp     byte ptr cs:[pal+12],30
  127.                 je      Okl1
  128.                 dec     byte ptr cs:[pal+12]
  129. Okl1:           cmp     byte ptr cs:[pal+13],30
  130.                 je      Okl2
  131.                 dec     byte ptr cs:[pal+13]
  132. Okl2:           cmp     byte ptr cs:[pal+14],35
  133.                 je      Okl3
  134.                 dec     byte ptr cs:[pal+14]
  135. Okl3:           call    RasterWait
  136.                 lea     si,[cs:pal]
  137.                 call    Pal16
  138.                 loop    BetukLe1
  139.                 popa
  140.                 ret
  141. BetukFel:       pusha
  142.                 mov     byte ptr cs:[pal+12],50
  143.                 mov     byte ptr cs:[pal+13],50
  144.                 mov     byte ptr cs:[pal+14],55
  145.                 lea     si,[cs:pal]
  146.                 call    Pal16
  147.                 popa
  148.                 ret
  149.  
  150.                 szoveg  db '            GREETZ GO OUT TO          ',254
  151.                         db 254
  152.                         DB '   ABADDON  ACME  AVALANCHE  CRESCENT',254;,254
  153.                         DB '    CRIMINAL GANG  FUTURE CREW  GRIF',254;,254
  154.                         DB ' EMF  DUST  FULMAR DESIGN  AGONY INFINY',254;,254
  155.                         DB '  IGUANA  LOGIC DESIGN  IMPHOBIA  BWU',254;,254
  156.                         DB '  MAJIC TWELVE  NIL  TDM  PSYCHOSQUAD',254;,254
  157.                         DB ' SOFTONE  SURPRISE  XEED  BLANK  REMAL',254;,254
  158.                         DB 'MURMIDONES  BIOHAZARD  MFC  LEGEND  TSI',254;,254
  159.                         DB ' EUPHORIA  DEIMONS  DYNAX  TOXIC VOLUME',254;,254
  160.                         DB '     AND FINALLY TO ALL FUCKNETTERS'
  161.                         db 255
  162.                 szoveg2 db '     THIS IS THE LAST PRESENTATION',254
  163.                         DB '          FROM PHANTOM DEZIGN',254
  164.                         DB 254
  165.                         DB ' PLEASE EXCUSE US FOR THE LOW QUALITY',254
  166.                         DB ' OF THIS PRODUCTION BUT IT IS JUST TO',254
  167.                         DB '  TELL YOU THAT WE WILL CONTINUE OUR',254
  168.                         DB '   SCENE BUSINESS UNDER A NEW LABEL',254
  169.                         DB 254
  170.                         DB '            SHOCK HAS BORN'
  171.                         DB 255
  172.                 aktsor    dw 2
  173.                 aktoszlop dw 0
  174.                 reglist db  0,2,4,6,8,10,12,14,1,3,5,7,9,11,13,15,0
  175.                 pal     db  10,10,20   ;hatter 0
  176.                         db  40,40,45
  177.                         db  40,40,45   ;plane 0
  178.                         db  40,40,45
  179.                         db  50,50,55   ;plane 1
  180. include         inc\nagy.inc
  181.