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:



Seek And Find 2



Input text input is also on the all-powerful plug



3DMax Done Using NURBS Baseball Bat



How to identify real and can automatically create index INDEX



Shanda chairman Chen Tianqiao position: can not ignore the profit decline Sina



Semiconductor India VIED with New Deal



Evaluate Graphic



Legend Of The Case Told A Grand International Arbitration Claim Was Dismissed Wemade Results



VOB to MPG



8848 Tort Compensation Of The Companies Set Up 1.16 Million And Made An Apology



ASF converter



Audio Format Changes For



Shanghai university graduates OVERALL employment rate of 07 97.25%



Easy to use Games Simulation



Ad Blockers Infomation



VOB to ZUNE