Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/style/stnd.tst

Text File | 1988-05-03 | 125 b | 8 lines

procedure set_mask is
    use Machine_code;
begin
    si_format'(code => ssm,
           b => m'base_reg,
           d => m'disp);
end;