home *** CD-ROM | disk | FTP | other *** search
- Extrn FadeOut : FAR
- Extrn FadeIn : FAR
-
- STAK segment 'STACK' STACK
- dw 20 dup(?)
- STAK ends
-
- code segment 'CODE' PUBLIC
- assume cs:code,ss:stak,ds:code
- entry:
- mov ax,1017h
- xor bx,bx
- mov cx,256
- mov dx,seg oldpal
- mov es,dx
- mov ds,dx
- mov dx,offset oldpal
- push dx
- push es
- int 10h
- call FadeOut
- pop es
- pop di
- call FadeIn
- mov ax,4C00h
- int 21h
-
- oldpal db 256*3 dup(?)
-
- code ends
- end entry
-