| 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 |