home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG063P.ASM < prev    next >
Assembly Source File  |  1988-04-17  |  1KB  |  44 lines
  1.  
  2. ;***********************************************************************
  3. ; Enable use of attribute to select between two                   *
  4. ; 256 character generators                           *
  5. ;***********************************************************************
  6.  
  7. Gen_A    EQU    0            ;For now we choose A to be first 256
  8. Gen_B    EQU    1            ;and B to be second 256 bitmaps
  9.  
  10.     PUBLIC    Enable_Second_Set
  11.  
  12. Enable_Second_Set PROC    FAR
  13.     MOV    DX,3C4H         ;Index for SELECT register
  14.     MOV    AL,3
  15.     OUT    DX,AL
  16.     INC    DX            ;Output value
  17.     MOV    AL,Gen_B        ;Shift Gen_B into bits 2 and 3
  18.     SHL    AL,1
  19.     SHL    AL,1
  20.     AND    AL,1100B
  21.     MOV    AH,Gen_A
  22.     AND    AH,11B            ;Shift Gen_A into bits 0 & 1
  23.     OR    AL,AH
  24.     OUT    DX,AL            ;Output the value
  25.     RET
  26. Enable_Second_Set ENDP
  27.  
  28. ;************************************************************************
  29. ; Force generator to be always the first 256 characters         *
  30. ; in plane 2                                *
  31. ;************************************************************************
  32.  
  33.     PUBLIC    Disable_Second_Set
  34.  
  35. Disable_Second_Set PROC    FAR
  36.     MOV    DX,3C4H         ;Fetch address of SEQUENCER
  37.     MOV    AL,3            ;Fetch index for CHAR GEN SELECT reg
  38.     OUT    DX,AL            ;Select index
  39.     INC    DX
  40.     MOV    AL,0            ;Select value = same for A and B
  41.     OUT    DX,AL            ;Set register to the value
  42.     RET
  43. Disable_Second_Set ENDP
  44.