1 dcl tedpseudo_      entry (             /* make a pseudo (read-only) buffer  */
2                     ptr,                /* -> to buffer to convert           */
3                     fixed bin,          /* segno of data (-1 if ^read)       */
4                     ptr,                /* -> the data                       */
5                     fixed bin (21)      /* the length of it                  */
6                     );
7