home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG013.ARC / BOLDULIN.PRO < prev    next >
Text File  |  1979-12-31  |  2KB  |  47 lines
  1. procedure BoldUnderline;
  2.  
  3.     { This procedure copies the normal
  4.       character set into the PCG memory,
  5.       except that it also emboldens the
  6.       characters. It also sets the last
  7.       line of the character, giving bold
  8.       underlined characters.
  9.  
  10.       Writen by Neil Bown/Gordon Rowell.
  11.     }
  12.  
  13. begin { BoldUnderline }
  14.  
  15.                                  { SCNTOP     EQU      0F000H       }
  16.                                  { PCGRAM     EQU      0F800H       }
  17.                                  { ROMPORT    EQU      0BH          }
  18.  
  19. inline($3E/ $01/                 {BOLD:       LD        A,1         }
  20.        $D3/ $0B/                 {            OUT       (ROMPORT),A }
  21.        $21/ $F000/               {            LD        HL,SCNTOP   }
  22.        $11/ $F800/               {            LD        DE,PCGRAM   }
  23.                                  { BOLD_1:                          }
  24.        $7E/                      {            LD        A,(HL)      }
  25.        $07/                      {            RLCA                  }
  26.        $B6/                      {            OR        (HL)        }
  27.        $12/                      {            LD        (DE),A      }
  28.        $23/                      {            INC       HL          }
  29.        $13/                      {            INC       DE          }
  30.        $CB/ $5C/                 {            BIT       3,H         }
  31.        $28/ $F6/                 {            JR        Z,BOLD_1    }
  32.                                  { UNDERLINE:                       }
  33.        $01/ $0010/              {            LD        BC,10H      }
  34.        $21/ $F80A/               {            LD        HL,PCGRAM+0AH  }
  35.                                  { ULINE_1:                         }
  36.        $7E/                      {            LD        A,(HL)      }
  37.        $2F/                      {            CPL                   }
  38.        $77/                      {            LD        (HL),A      }
  39.        $09/                      {            ADD       HL,BC       }
  40.        $30/ $FA/                 {            JR        NC,ULINE_1  }
  41.        $AF/                      {            XOR       A           }
  42.        $D3/ $0B                  {            OUT       (ROMPORT),A }
  43.       )
  44.  
  45.  
  46. end; { BoldUnderline }
  47.