'comment' A5 -- Genuine library A5 taken from KQX; 'procedure' write(device,form,value); 'value' device,form,value; 'real' value; 'integer' device,form; 'KDF9' 12/9/14/0; {value}; {form}; {device}; JSP291; 'EXIT'; P291V31; (PROCEDURE WRITE); V1=B1212121212121212; V2=B2020202020202020; V3=B2030446722743250; (1.024 TO 1I.P.); V4=B175/8; (1000/1024 TO 1I,P.); V5=B1463 1463 1463 1463; (.8 TO 1I.P.); V6=B2400 0000 0000 0000; (10/8 TO 1I.P.); V7=Q0/3/3; (INITIAL SPACES/SIGN/EXP SIGN); V8=B0013573716200001; (FORMAT/DS/ZS/DPH/APM/;/C/NDP); V9=B0314631463146315; (.1); V10=B0024365605075341; (.01); V11=B0000150667056544; (.0001); V12=B0000000005274617; (.00000001); V13=B12; (10); V14=B144; (100); V15=B23420; (10000); V16=B575360400; (100000000); V20=Q12/11/1; (S/F/E); V25=B0000 0003 7777 7775; V26=B0000 0001 7777 7777; V29=B4323606713434452; V30=B4720000000000000; 101; PERM; 102; =V21; 103; =V22; DUP; =V31; JS12P295; ZERO; =V28; V21; ZERO; SHLD+24; REV; ZERO; SHLD+4; =C10; ZERO; SHLD+2; =I10; ZERO; SHLD+5; NEG; =C7; ZERO; SHLD+4; =C11; ZERO; SHLD+2; =M10; ZERO; SHLD+4; =M7; SHC+3; =I7; DUP; ZERO; REV; SHLDC7; BITS; NEG; NOT; =I11; BITS; =M11; V22; I13=+1; DUP; J5>=Z; NEGF; I13=-1; I10; J5#Z; SET2; JS100; 1; JS80; 70; M7; SHC-2; J95=Z; M14; I11; +; DUP; =M15; M13; REV; -; J7=Z; M13; NOT; J6#Z; SET5; SHA+43; M13; NOT; NEG; =M13; ZERO; NOT; =TR; J10; 6; ERASE; ZERO; J12; 7; SET4; =RC15; ZERO; NOT; NEG; SHC-2; M13; 8; SHC-1; DUP; J9>=Z; REV; V9M15; *; REV; 9; M+I15; DC15; J8C15NZ; ERASE; SHA-4; 10; +; 11; DUP; SHL-43; SET10; -; J113=Z; 12; ZERO; DUP; =TR; NOT; NEG; M13; SET4; =RC15; 13; SHC-1; DUP; J14>=Z; REV; V13M15; *D; CONT; REV; 14; M+I15; DC15; J13C15NZ; ERASE; *D; SHAD+4; REV; ERASE; DUP; =V0; JS90; =V23; =V24; I10; NEG; NOT; SHL-1; J15#Z; SETB20; M7; OR; =M7; 15; I11; M11; +; C11; -; ZERO; =RM15; I11; NOT; NEG; NOT; NEG; =M13; J18<=Z; M14; C11; -; NOT; NEG; DUP; J32=Z; ERASE; ZERO; J72; 17; DC13; SHL+1; J73C13Z; C0TOQ14; SET8; =RC12; 19; DUP; J21=Z; ZERO; J26; 31; ZERO; V23M11; DC11; SHAD-6; =V23M11; J25C11NZ; M-I11; SET8; =C11; 25; SHL+1; M7; SETB10; AND; J27#Z; SETB77; SHL+42; J26#; ERASE; ZERO; J26; 27; SETB77; SHL+42; J30#; M13; J96=Z; ERASE; ZERO; J26; 96; ERASE; M7; SHL-4; J98=Z; M+I15; J29; 30; M7; SHL-4; J26=Z; M15; J26=Z; ERASE; ERASE; SET5; J74; 28; ERASE; M15; DUP; =+C10; NEG; =+C7; I10; J35=Z; I13; J34=Z; SETB13; =M13; J77<=Z; 68; M10; J75=Z; V0; J64=Z; C0TOQ13; M14; DUP; J37>=Z; NEG; DC13; 37; JS90; NOT; J78#Z; ZERO; REV; SHAD-12; NOT; J79#Z; ZERO; SHLD+7; JS40; SETB12; JS14P295; SETB77; J51=; C13; J38=Z; SETB230; JS14P295; 57; I7; SHL-2; J63#Z; I7; =C7; J60C7Z; 59; SET2; JS18P295; DC7; J59C7NZ; 60; M7; SHC-2; J62>=Z; V27; DUP; =C14; J62=Z; SETB216; JS14P295; 43; I10; J44=Z; SHA-27; REV; 92; REV; EXIT1; 100; =V28; EXIT1; 'ALGOL'; 'integer' 'procedure' format(lay out); 'string' lay out; 'KDF9' 12/9/14/6; (format); V2=B0013573703034671; V5=B4321221604215035; V6=B4720000000000000; {lay out}; DUP; =V1; =RM14; SET2; SHC-8; =V0; Q0TOQ15; SET24; DUP; =C12; SHA-1; =C11; Q0TOQ13; IM0TOQ12; IM0TOQ11; Q12TOQ10; Q0TOQ9; ZERO; JS27; SETB215; J32#; ERASE; J2; 1; REV; DUP; SHA+2; +; SHA+1; +; 2; JS27; DUP; SET10; -; J112); DC11; 12; PERM; DUP; PERM; OR; REV; CAB; (insert digit in field lay out); 13; ERASE; SHL+1; DC12; J32C12Z; (EFC>24); I10; J4#Z; (DPM); DC10; J4C10NZ; (NDP); J32; 14; (+-#); SHC-4; DUP; SHL+46; REV; SHL-44; ROUND; (1=+, 2=-, 3=#); I12; J15#Z; (EXM); C12; SET24; -; J31#Z; (SFC=0); I11; J31#Z; (first sign); =I11; J4; 15; (EXP SIGN); SET3; C12; -; J31#Z; M11; J31#Z; = M11; J4; 16; I10; J31#Z; (DPM); ERASE; I10=+1; J4; 17; (zero); J12C9NZ; C11; SET12; -; J31=Z; DC9; J12; 18; (subten); I12; J31#Z; I10; J31=Z; I12=+1; ERASE; OR; DUP; =V4; SHLC10; SHL+24; BITS; NEG; NOT; J34#Z; SET3; =C12; J3; 19; (;); I9; J31#Z; I9=+1; DC9; ERASE; J4; 20; (c); M10; SHL-2; J31#Z; DC9; ZERO; NOT; NEG; =+M10; ERASE; J4; 21; (p); M10; J31#Z; DC9; SET4; =M10; ERASE; J4; 22; SETB70; (s); J24#; ERASE; ERASE; 23; NOT; NEG; DUP; DUP; SHL-4; J4=Z; NEG; NOT; =V3; DC15; ZERO; DUP; NOT; NEG; CAB; J13; 24; PERM; ERASE; 25; =V3; DC15; ZERO; DUP; NOT; NEG; CAB; J5; 26; REV; DUP; J25=Z; J32; 39; ERASE; 27; ZERO; V0; 28; ZERO; SHLD+8; PERM; OR; DUP; J29=Z; =V0; SETB236; J39=; SETB240; J39=; SETB256; J39=; EXIT1; 29; ERASE; M0M14Q; J28; 30; ERASE; 31; ERASE; 32; ERASE; 33; ERASE; 34; V0P299; JS12P295; SETAV5; =RM14; 35; JS1P295; SETB235; J36=; JS14P295; J35; 36; ERASE; V1; =RM14; 37; JS1P295; SETB235; J38=; JS14P295; J37; 38; JS16P295; V2; J9; 'ALGOL'; 'procedure' output(device,value); 'value' device,value; 'real' value; 'integer' device; 'KDF9' 12/9/14/0; {value}; V0; {device}; JSP291; 'EXIT'; V0=B0013573703034651; 'ALGOL'; 'procedure' write boolean(device,boolean); 'value' device,boolean; 'integer' device; 'boolean' boolean; 'KDF9' 12/9/14/0; {boolean}; {device}; (write boolean); JS12P295; J2