Category:Polyglot:PL/I and PL/M: Difference between revisions
→Include Files: Additional definitions
(→PL/I and PL/M: Notes on arrays) |
(→Include Files: Additional definitions) |
||
Line 130:
return ( mod( a, b ) );
end modf;
/* returns not p */
not: procedure( p )returns( bit( 1 ) );
declare p bit( 1 );
return( ^ p );
end not;
toupper: procedure( c )returns( character( 1 ) );
Line 140 ⟶ 146:
For PL/M, the following definitions would be used, with the appropiate subset cut-and-pasted into the programL
<lang pli>
<lang pli> DECLARE BINARY LITERALLY 'ADDRESS', CHARACTER LITERALLY 'BYTE';▼
DECLARE
DECLARE FIXED LITERALLY ' ',
DECLARE STATIC LITERALLY ' ', RETURNS LITERALLY ' ';
DECLARE
BDOSF: PROCEDURE( FN, ARG )BYTE;
DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END;
| |||