.


. - . 245


for _ use at 16#0020# ;

at "". , _.

task _ is

entry ;

for use at 16#40# ;

-- 䠠 "" -

-- 16#40#

end _ ;

 

.

: constant := 4 ; -- - ,

-- "" - .

type is (A,M,W,P) ; --

-- , , , .

type is (, , , ) ;

type _ is array (0 .. 7) of BOOLEAN ;

type _ is array () of BOOLEAN ;

type _ is array () of BOOLEAN ;

type __ is

record

_ ; _ ;

_ : INTEGER range 0 .. 3 ;

_ : _ ;

_ : _ ;

__ : INTEGER range 0 .. 3 ;

_ : INTEGER range 0 .. 3 ;

_ : _ ;

_ : ;

end record ;

--

for __ use

record at mod 8 ; -- 8, ..

-- .

_ at 0 * range 0 .. 7 ; --

-- .

_ at 0 * range 10 .. 11 ;

-- 8 9 .

_ at 0 * range 12 .. 15 ;




- -  - -  - -