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 / ULINE.PRO < prev    next >
Text File  |  1979-12-31  |  2KB  |  35 lines
  1. procedure underline;
  2.  
  3.     { This procedure filss the PCG memory with
  4.       the data for underlined characters of the
  5.       current character set.
  6.  
  7.       Written by Neil Brown/Gordon Rowell.
  8.     }
  9.  
  10. begin { underline }
  11.  
  12.                                { SCNTOP       EQU   0F000H      }
  13.                                { PCGRAM       EQU   0F800H      }
  14.                                { PCGSIZE      EQU   800H        }
  15.                                { ROMPORT      EQU   0BH         }
  16.  
  17. inline($3E/ $01/               { UNDERLINE: LD    A,1           }
  18.        $D3/ $0B/               {            OUT   (ROMPORT),A   }
  19.        $21/ $F000/             {            LD    HL,SCNTOP     }
  20.        $11/ $F800/             {            LD    DE,PCGRAM     }
  21.        $01/ $0800/             {            LD    BC,PCGSIZE    }
  22.        $ED/ $B0/               {            LDIR                }
  23.        $01/ $0010/            {            LD    BC,10H        }
  24.        $21/ $F80A/             {            LD    HL,PCGRAM+0AH }
  25.        $7E/                    { ULINE_1:   LD    A,(HL)        }
  26.        $2F/                    {            CPL                 }
  27.        $77/                    {            LD    (HL),A        }
  28.        $09/                    {            ADD   HL,BC         }
  29.        $30/ $FA/               {            JR    NC,ULINE_1    }
  30.        $AF/                    {            XOR   A             }
  31.        $D3/ $0B                {            OUT   (ROMPORT),A   }
  32.       )
  33.  
  34. end; { underline }
  35.