home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / asm / 3dvect25 / stuff.inc < prev    next >
Encoding:
Text File  |  1993-08-29  |  2.5 KB  |  93 lines
  1. defpal  db 0,0,0,0,0,42,0,42,0,0,42,42,42,0,0,42
  2.         db 0,42,42,42,0,42,42,42,0,0,21,0,0,63,0,42
  3.         db 21,0,42,63,42,0,21,42,0,63,42,42,21,42,42,63
  4.         db 0,21,0,0,21,42,0,63,0,0,63,42,42,21,0,42
  5.         db 21,42,42,63,0,42,63,42,0,21,21,0,21,63,0,63
  6.         db 21,0,63,63,42,21,21,42,21,63,42,63,21,42,63,63
  7.         db 21,0,0,21,0,42,21,42,0,21,42,42,63,0,0,63
  8.         db 0,42,63,42,0,63,42,42,21,0,21,21,0,63,21,42
  9.         db 21,21,42,63,63,0,21,63,0,63,63,42,21,63,42,63
  10.         db 21,21,0,21,21,42,21,63,0,21,63,42,63,21,0,63
  11.         db 21,42,63,63,0,63,63,42,21,21,21,21,21,63,21,63
  12.         db 21,21,63,63,63,21,21,63,21,63,63,63,21,63,63,63
  13.  
  14. ; make endpage screen
  15.  
  16. endpage:
  17.         push    offset gamecolr
  18.         call    fadeoffpalette
  19.  
  20.         call    mode03
  21.         call    wipeoffpalette
  22.  
  23.         mov     edx,offset endtext
  24.         call    _putdosmsg
  25.  
  26.         push    offset defpal
  27.         call    fadeonpalette
  28.  
  29.         jmp _exit    ; protected mode exit
  30.  
  31. _putdosmsg:
  32.         push ax
  33.         push edx
  34.         add edx,_code32a
  35.         mov al,dl
  36.         and ax,0fh
  37.         shr edx,4
  38.         mov v86r_ds,dx
  39.         mov v86r_dx,ax
  40.         mov v86r_ah,9
  41.         mov al,21h
  42.         int 33h
  43.         pop edx
  44.         pop ax
  45.         ret
  46.  
  47. hextbl          db      '0123456789ABCDEF'
  48.  
  49. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  50. ; Put 8 digit hex number to screen buffer
  51. ; In:
  52. ;   EAX - number to put
  53. ;   EDI -> screen buffer location to put at
  54. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  55. _puthexnum:
  56.         push eax ebx ecx edx edi
  57.         mov ebx,offset hextbl
  58.         mov edx,eax
  59.         mov ecx,8
  60.         mov ah,0fh
  61. puthexnuml0:
  62.         rol edx,4
  63.         mov al,dl
  64.         and al,0fh
  65.         xlat
  66.         stosw
  67.         loop puthexnuml0
  68.         pop edi edx ecx ebx eax
  69.         ret
  70.  
  71. wipe_v_memory:
  72.         @rlp edi,0a0000h
  73.         mov ecx,320*200*4/4/4
  74.         xor eax,eax
  75.  
  76.         rep stosd
  77.  
  78.         ret
  79.  
  80. endtext db "I'll bet you didn't expect that!",13,10
  81.         db 13,10
  82.         db "John McCarthy tries to be a regular on Digital Pixel: (416) 298-1487",13,10
  83.         db 13,10
  84.         db "Or write to this address:",13,10
  85.         db 13,10
  86.         db "    John McCarthy",13,10
  87.         db "    1316 Redwood Lane",13,10
  88.         db "    Pickering, Ontario.",13,10
  89.         db "    Canada, Earth, Milky Way.",13,10
  90.         db "    L1X 1C5",13,10
  91.         db "$"
  92.  
  93.