comment A4;

real procedure read(device); value device; integer device;
        kdf9 12/9/14/0;
        {device}; JSP294; exit;


P294V12;        (read);
        V2=B3244647411363215;
        V3=B1067311107601054;
        V4=B2372617635665123;
        V5=B2567106670407501;
        V6=B6625327150150035;
        V8=B4323345211424636;
        V9=0;
        V10=0;
        V11=B4100000000112235;
        V12=Q2/1/AV8;
        DUP; =V10;
        JS4P295;
        CI0TOQ7; CI0TOQ8; SET10; ZERO; J1NV;
        NOT;
1;      =V7; Q0TOQ9; ZERO; NOT; REV;
        I14; =M7; J8;
$2;     DC9;
3;      DUPD; *D; J5#Z;
        REV; ERASE; J2C9NZS;
4;      DUP; M8; +; J7NV;
        DC9;
5;      DC7; J24C8NZ;
6;      SET1; =+C9; REV;
7;      PERM; ERASE; M+I9;
8;      JS6P295; J34;
        M7; I14; -; J35#Z;
23;     DUPD; =M8; -; J10>=Z;
        REV; DUP; J6C7NZ;
        I7=-1; J9C8NZ;
        M8; J6=Z;
9;      J3>=Z;
        NOT; C0TOQ9; J4;
10;     DUP; M8; -; NOT; DUP;
        J15>Z;
        I7=-1; J25C8NZ;
        J14=Z;
        REV; DUP; J11>=Z;
        J13C9Z;
        NOT;
13;     NEG;
11;     I8; J12>=Z;
        NEG;
12;     I0TOQ8; =V0; Q9; =V1; Q0TOQ9;
        DC8; ZERO; NOT; REV; C0TOQ7;
        J8;
14;     I9; J26#Z;
        I9=+1; J8;
15;     SET182; J17=;
        SET198; J18#;
        ERASE; I8; I8=-1;
16;     J27#Z;
        I7=-1; REV; DUP; J28>=Z;
        REV; J8;
17;     ERASE; I8; I8=+1; J16;
18;     ERASE; I7; J8=Z;
        M8; SETB236; J34=;
        SETB240; J34=;
        SETB256; J34=;
        ERASE;
36;     ERASE; DUP; J19>=Z;
        J29C9Z;
        NOT;
19;     M9; I9; +; NEG; NOT;
        J30=Z;
        I8; J20>=Z;
        NEG;
20;     J21C8Z;
        V1; =Q9; =+C9; V0;
21;     C9; M9; -; M8; JS10P295;
        JS8P295;
22;     V2; *D; SHAD+2; DUPD; ROUND;
        DUP; =Q8; ZERO; REV; -D;
        CONT; DUP; DUP; *; SHA-7;
        DUP; V3; *; V4; +;
        REV; V5; +; V6; REV;
        %; +; REV; SHA-4; DUPD;
        +; PERM; -; SHA+1; %;
        REV; DUP; ZERO; FLOAT; FIX;
        NEG; =C9; ERASE; SHLC9; *;
        Q8; SET48; +; C9; -;
        REV; DUP; J41=Z;
        ZERO; FLOAT; STR;
        PERM; ZERO; SHAD+8;
        CAB; +; SHAD-8; DUP;
        J42 >=Z;
        ERASE;
41;     ERASE; ERASE; ZERO;
        J43;
42;     CONT; REV; CONT;
43;     J33V;
        V7; SHA+48; ERASE; EXIT1;
24;     ERASE; SET1;
31;     CAB; ERASE;
32;     V12; PERM;
        V10; JS39; J37;
        JS39; J38;
        J36;
37;     DUP;
38;     SHL+8; OR; SHL+8; OR; SHL+16;
        V11; OR; =V9; JP299;
25;     ERASE; ERASE; SET2; J32;
26;     ERASE; SET3; J32;
27;     ERASE; SET4; J32;
28;     SET5; J31;
29;     SET6; J32;
30;     SET7; J32;
33;     SET8; J32;
34;     ERASE; J8;
35;     M7; NOT; NEG; =I14;
        I7; J23=Z;
        =M8; J36;
39;     SET10; %I; REV; DUP; J40#Z;
        ERASE; SETB236; EXIT1;
40;     EXIT2;
        algol;

boolean procedure read boolean(device);
        value device; integer device;
        kdf9 12/9/14/0;
        {device};
        (read b00llan);
        JS4P295;
        ZERO; J2;
1;      SETB315; NEV; J3=Z; DUP;
4;      ERASE;
2;      JS6P295;
        J4;
        SETB335; J1#;
        ERASE; NOT;
3;      JS8P295;
        exit;
        algol;