scr 6005  VGA.SCR
( GEMIT  >SCR   >GPH  )                                         
                                                                
CODE GEMIT ( c -) BX AX MOV, 14 #, AH MOV,  3 #, BX MOV,        
  $10 #, INT, BX POP, NXT,  END-CODE                            
CODE GAT ( y x -) BL DL MOV, BX POP, BL DH MOV, BX BX SUB,      
  $0200 #, AX MOV,   $10 #, INT,  BX POP, NXT,  END-CODE        
                                                                
CODE PALETTE ( u -)                                             
  $0B00 #, AX MOV,   $10 #, INT,  BX POP, NXT,  END-CODE        
: PL PALETTE ;                                                  
( $11 PL gives pretty white on blue )  ( $101 PL ? )            
( $14 PL gives pretty white on red  )