Compilation of various source - col

; - COLOURS ROUTINE -
; For tasm
;
cseg segment
assume cs: cseg, ds: cseg
org 100H
begin:
mov es, cs: [video]

mov ax, 3
int 10h
mov cs: [col], 0fh
mov di, 18
lea si, colr2
call mess

mov cx, 16
mov di, 160
xor al, al
rec1:
push cx

push di
lea si, colour
call mess
call hex2

mov bh, al
push cx
mov cx, 16
col2:
mov es: [di], byte ptr "#"
mov es: [di +1], bh
inc bh
add di, 2

loop col2
pop cx

pop di
add di, 160
add al, 10h

add cs: [col], 10h
pop cx
loop rec1

mov ah, 2
mov bh, 0
mov dh, 17
mov dl, 0
int 10h


mov ah, 4ch
int 21h

col db 0
colour db "Colour", 0
colr2 db "0123456789ABCDEF", 0
colnum db 0

video dw 0b800h

hex2 proc near
push ax
and al, 011110000b
shr al, 4
call hex1
pop ax
push ax
and al, 01111b
call hex1
pop ax
ret
hex2 endp
hex1 proc near
mov ah, cs: [col]
cmp al, 10
jb hnum1
add al,''A''-10
jmp hnum2
hnum1:
add al,''0''
hnum2:
mov es: [di], ax
add di, 2
ret
hex1 endp
mess proc
push ax
mov ah, cs: [col]
conmess:
mov al, cs: [si]
or al, al
jz endmess
mov es: [di], ax
inc si
add di, 2
jmp conmess
endmess:
pop ax
ret
mess endp

cseg ends
end begin







Recommended links:



PRD employment "UPWARD", "Labor Shortage" moved to the Mainland



New UMPC Make Waves



Recommend Dial Up And Connection Tools



Wave of MERGERS BI have a happy life



"Cottage XP" national dream



enhance the core competitiveness of ENTERPRISES



Bearing Co., Ltd. Yantai Ximeng Xi



MPG to AVI



3G2 To WMV



Compilation of The stack of parameters passed and amended



Reflector Decompilation Tools



BenQ compete in, with a hope that the road



DivX to MPEG



Genealogy reviews