;                          --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