home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug094.arc
/
GETPCGBY.I
< prev
next >
Wrap
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;