CP/M/CPM_CDROM.iso/mbug/mbug094.arc/GETPCGBY.I

Text File | 1979-12-31 | 512b | 15 lines

Function GetPCGByte(Location:Integer):byte;

Var store:byte;

begin
inline( $3E/1/           {LD A,1}
        $D3/11/          {OUT(11),A   standard character set}
        $2A/LOCATION/    {LD HL,(LOCATION)}
        $7E/             {LD A,(HL)}
        $32/STORE/       {LD (STORE),A}
        $3E/0/           {LD A,0}
        $D3/11);        {OUT(11),A video ram}
   GetPCGByte:=Store
end;