home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TUTOR.ZIP
/
DEMO2.ASM
< prev
next >
Wrap
Assembly Source File
|
1995-01-25
|
2KB
|
32 lines
mov ax,3 ;reset video to text mode
int 10h ;= clear the screen (CLS)
mov es,0b800h ;set es to text video segment
call cursof ;turn off blinking cursor
mov si,message ;message to display
mov di,1760 ;display at line 11 on video
mov ah,7 ;medium white color
nex1: mov al,cs:[si] ;byte from code seg message
inc si ;message +1
cmp al,0 ;end of message ?
jz done ;if so, jump to done
mov es:[di],ax ;move byte+color to video
add di,2 ;next video word address
jmp nex1 ;do next video
done: mov ah,0 ;wait for any key pressed
int 16h ;keyboard interrupt
call curson ;turn blinking cursor back on
mov ax,4c00h ;interrupt 21h exit instruct.
int 21h ;return to DOS> ready prompt
message:
db 'Captain Russell is now in command of the Starship Enterprise.',0
curson: mov ah,1 ;set cursor type
mov cx,0607h ;cursor normal type
int 10h ;bios video interrupt
mov dx,0 ;set video top left
jmp >c1 ;> = forward jump
cursof: mov dx,1900h ;cursor out of view
c1: mov ah,2 ;set cursor position
mov bh,0 ;page zero in text mode
int 10h ;bios video interrupt
ret ;return to call + next