DataMuseum.dk

top - download

    Length: 658 (0x292)
    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« 
        └─⟦ffb91ebe9⟧ 
            └─⟦this⟧ 

TextFile

-- Copyright 1990 Verdix Corporation

-- Machine dependent test and set routine for the M68000 processor family
-- This version is for the user space (rather than the kernel)

with system;
with machine_code;

package body v_tas is

	pragma suppress(ALL_CHECKS);
	pragma suppress(EXCEPTION_TABLES);

	-- A value of 1 is returned in the result parameter if the flag was set
	procedure test_and_set(flag_a: system.address; result: out boolean) is
		use machine_code;
	begin
		code_2'(movea_l, flag_a'ref, a0);
		code_1'(tas, indr(a0));
		code_1'(seq_b, result'ref);
		code_1'(neg_b, result'ref);
	end test_and_set;
		pragma inline_only(test_and_set);

end v_tas