; EKS (30/05/2000): The LoText color wasn't blue anymore, it was CYAN, I changed ; the necessary line from mov al, 5 to mov al, 3. See 0.62b version for refs. ;----------------------------------------------------------------------------- ; IN AL = COL ; BL = RED ; BH = GREEN ; CL = BLUE ;----------------------------------------------------------------------------- PALETTE: ;LTH - the push/pop was changed to allow the code that calls this ;to be smaller by sharing values between calls pushad mov dx,3c8h ; Set palette index out dx,al inc dx ; dx=3c9h mov al,bl ; Set Red-Value out dx,al mov al,bh ; Set Green-Value out dx,al mov al,cl ; Set Blue-Value out dx,al popad ret ;----------------------------------------------------------------------------- ; Set a nifty color palette ;----------------------------------------------------------------------------- SETV2PALETTE: mov ax,1003h ; Clear background intensity bit mov bl,0 int 10h mov al, 1 mov bh,1 int 10h ; SET BORDERCOLOR TO 1 xor bx, bx xor cx, cx call PALETTE ; BORDERCLR dec al mov cl,16 call PALETTE ; BACK CLR mov al,2 mov bx, 3F3Fh mov cl,43 call PALETTE ; EDIT TEXT mov al,4 mov cl,63 call PALETTE ; HI TEXT ;EKS mov al, 5 mov al, 3 mov bx, 3228h call PALETTE ; LO TEXT mov al,7 CALL PALETTE ; SAME mov al,5 mov bx, 0032h mov cl,0 call PALETTE ; ERROR TEXT mov al,58 mov bx, 0A00h call PALETTE ; DARKENED-GREY (0Ah ! inc al mov bh,40 call PALETTE ; LIGHTER-GREY (0Bh ! mov al,56 mov bx, 1010h mov cl,32 call PALETTE ; TOPBAR ; 8 ! mov al,60 mov bx, 1818h mov cl,48 call PALETTE ; DARK-TOPBAR (0ch ! ;LTH - 1 is called after the other, just fall right into it :) ; ret ;----------------------------------------------------------------------------- ; Changes the font into a v2os customized one ;----------------------------------------------------------------------------- REPROGRAMFONT: ; pushad push es mov ax,ds mov es,ax mov bp,V2OSFONT mov cx,00FFh xor dx, dx mov bx, 0800h mov ax, 1100h int 10h ; REPROGRAM FONT pop es ; popad ret