CP/M/CPM_CDROM.iso/mbug/mbug013.arc/ULINE.BAK

Text File | 1979-12-31 | 2KB | 35 lines

procedure underline;

    { This procedure filss the PCG memory with
      the data for underlined characters of the
      current character set.

      Written by Neil Brown/Gordon Rowell.
    }

begin { underline }

                               { SCNTOP       EQU   0F000H      }
                               { PCGRAM       EQU   0F800H      }
                               { PCGSIZE      EQU   800H        }
                               { ROMPORT      EQU   0BH         }

inline($3E/ $01/               { UNDERLINE: LD    A,1           }
       $D3/ $0B/               {            OUT   (ROMPORT),A   }
       $21/ $F000/             {            LD    HL,SCNTOP     }
       $11/ $F800/             {            LD    DE,PCGRAM     }
       $01/ $0800/             {            LD    BC,PCGSIZE    }
       $ED/ $B0/               {            LDIR                }
       $01/ >$0010/            {            LD    BC,10H        }
       $21/ $F80A/             {            LD    HL,PCGRAM+0AH }
       $7E/                    { ULINE_1:   LD    A,(HL)        }
       $2F/                    {            CPL                 }
       $77/                    {            LD    (HL),A        }
       $09/                    {            ADD   HL,BC         }
       $30/ $FA/               {            JR    NC,ULINE_1    }
       $AF/                    {            XOR   A             }
       $D3/ $0B                {            OUT   (ROMPORT),A   }
      )

end; { underline }