DataMuseum.dk

top - download

    Length: 525 (0x20d)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦31f5de66f⟧ 
            └─⟦this⟧ 

TextFile

with unchecked_conversion;
package body memory
is
	function C is new unchecked_conversion(address, access_unit);

	procedure poke(where : address; value : in unit)
	is
	begin
		C(where).all := value;
	end;

	procedure peek(where : address; value : out unit)
	is
	begin
		value := C(where).all;
	end;

	procedure copy(source, destination: address; count: integer) is
		type arr is array(1..count) of character;
		src: arr;
			for src use at source;
		dest: arr;
			for dest use at destination;
	begin
		dest := src;
	end;

end