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 / BOLD.PRO < prev    next >
Text File  |  1979-12-31  |  2KB  |  35 lines
  1. procedure bold;
  2.  
  3.     { This procedure copies the normal
  4.       character set into the PCG memory,
  5.       except that it also emboldens the
  6.       characters.
  7.  
  8.       Writen by Neil Bown/Gordon Rowell.
  9.     }
  10.  
  11. begin { bold }
  12.  
  13.                                  { SCNTOP  EQU        0F000H }
  14.                                  { PCGRAM  EQU        0F800H }
  15.                                  { ROMPORT EQU        0BH    }
  16.  
  17. inline($3E/ $01/                 {BOLD:    LD        A,1         }
  18.        $D3/ $0B/                 {         OUT       (ROMPORT),A }
  19.        $21/ $F000/               {         LD        HL,SCNTOP   }
  20.        $11/ $F800/               {         LD        DE,PCGRAM   }
  21.                                  { BOLD_1:                       }
  22.        $7E/                      {         LD        A,(HL)      }
  23.        $07/                      {         RLCA                  }
  24.        $B6/                      {         OR        (HL)        }
  25.        $12/                      {         LD        (DE),A      }
  26.        $23/                      {         INC       HL          }
  27.        $13/                      {         INC       DE          }
  28.        $CB/ $5C/                 {         BIT       3,H         }
  29.        $28/ $F6/                 {         JR        Z,BOLD_1    }
  30.        $AF/                      {         XOR       A           }
  31.        $D3/ $0B                  {         OUT       (ROMPORT),A }
  32.       )
  33.  
  34. end; { bold }
  35.