Rosetta Code

Hello world/Text: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Lerno (talk | contribs)
38 edits
Added Odin and C3
→‎{{header|PL/M}}: Replaced the PLM286 version with one that can be compiled with the original 8080 PL/M compiler and run under CP/M (or an emulator).
Line 2,826:
 
=={{header|PL/M}}==
The original PL/M compiler does not recognise upper-case letters, hence the Hello, World! string must specify the ASCII codes for the lower-case letters.
Assuming the existence of a WRITE$STRING library routine.
<lang plm>HELLO_WORLD100H: DO;
/* external ICP/OM BDOS SYSTEM routinesCALL */
WRITE$STRINGBDOS: PROCEDURE( SFN, )ARG EXTERNAL); DECLARE SFN POINTERBYTE, ARG ADDRESS; ENDGOTO WRITE$STRING5; END;
/* endPRINT A $ externalTERMINATED routinesSTRING */
PRINT$STRING: PROCEDURE( S ); DECLARE S ADDRESS; CALL BDOS( 9, S ); END;
MAIN: PROCEDURE;
/* HELLO, WORLD! IN MIXED CASE */
CALL WRITE$STRING( @( 'Hello world!', 0AH, 0 ) );
DECLARE HELLO$WORLD ( 14 ) BYTE
END MAIN;
INITIAL( 'H', 65H, 6CH, 6CH, 6FH, ',', ' '
END HELLO_WORLD;
, 'W', 6FH, 72H, 6CH, 64H, 21H, '$'
</lang>▼
);
CALL PRINT$STRING( .HELLO$WORLD );
▲EOF</lang>
 
=={{header|PL/SQL}}==
Retrieved from "https://rosettacode.org/wiki/Hello_world/Text"