Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H P T O A S . F T \ e -+-+-+-+-+\r |
2 | INTEGER FUNCTION TOASCI (IPA1)\r | |
3 | C TOASCI: INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS\r | |
4 | C LESS THAN 100. LEADING '0' IS NOT SUPPRESSED.\r | |
5 | C THE RESULT IS L.J.B.F. .\r | |
6 | INTEGER IPA1,\r | |
7 | * SHIFT,IOR,IATX,\r | |
8 | * TE\r | |
9 | EXTERNAL SHIFT,IOR,IATX\r | |
10 | C\r | |
11 | TE=IATX(48)\r | |
12 | TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24,\r | |
13 | * IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)),\r | |
14 | * IOR(IATX(MOD(IPA1,10)),TE))))\r | |
15 | END\r | |
16 | C -+-+-+-+-+ \ e H P T O A S . F T \ e -+-+-+-+-+\r | |
17 | INTEGER FUNCTION TOASCI (IPA1)\r | |
18 | C TOASCI: INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS\r | |
19 | C LESS THAN 100. LEADING '0' IS NOT SUPPRESSED.\r | |
20 | C THE RESULT IS L.J.B.F. .\r | |
21 | INTEGER IPA1,\r | |
22 | * SHIFT,S1,IOR,IATX,\r | |
23 | * TE\r | |
24 | EXTERNAL SHIFT,S1,IOR,IATX\r | |
25 | C\r | |
26 | TE=IATX(48)\r | |
27 | TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24,\r | |
28 | * IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)),\r | |
29 | * IOR(IATX(MOD(IPA1,10)),TE))))\r | |
30 | END\r | |
31 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |