Show ASCII table: Difference between revisions

=={{header|PL/M}}==

<lang pli>100H: /* SHOW AN ASCII TABLE FROM 32 TO 127 */

/* CP/M BDOS SYSTEM CALL */

BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END;

/* I/O ROUTINES */

PR$CHAR: PROCEDURE( C ); DECLARE C BYTE; CALL BDOS( 2, C ); END;

PR$STRING: PROCEDURE( S ); DECLARE S ADDRESS; CALL BDOS( 9, S ); END;

PR$BYTE: PROCEDURE( N );

DECLARE N BYTE;

DECLARE V BYTE;

V = N MOD 100;

CALL PR$CHAR( ' ' );

CALL PR$CHAR( '0' + ( N / 100 ) );

CALL PR$CHAR( '0' + ( V / 10 ) );

CALL PR$CHAR( '0' + ( V MOD 10 ) );

END PR$BYTE;

/* ASCII TABLE */

DECLARE C BYTE;

DO C = 32 TO 127;

CALL PR$BYTE( C );

CALL PR$STRING( .': $' );

IF C = 32 THEN CALL PR$STRING( .'SPC$' );

ELSE IF C = 127 THEN CALL PR$STRING( .'DEL$' );

ELSE DO;

CALL PR$CHAR( ' ' );

CALL PR$CHAR( C );

CALL PR$CHAR( ' ' );

END;

IF ( ( C - 31 ) MOD 6 ) = 0 THEN CALL PR$STRING( .( 0DH, 0AH, '$' ) );

END;

EOF</lang>

{{out}}

<pre>

032: SPC 033: ! 034: " 035: # 036: $ 037: %

038: & 039: ' 040: ( 041: ) 042: * 043: +

044: , 045: - 046: . 047: / 048: 0 049: 1

050: 2 051: 3 052: 4 053: 5 054: 6 055: 7

056: 8 057: 9 058: : 059: ; 060: < 061: =

062: > 063: ? 064: @ 065: A 066: B 067: C

068: D 069: E 070: F 071: G 072: H 073: I

074: J 075: K 076: L 077: M 078: N 079: O

080: P 081: Q 082: R 083: S 084: T 085: U

086: V 087: W 088: X 089: Y 090: Z 091: [

092: \ 093: ] 094: ^ 095: _ 096: ` 097: a

098: b 099: c 100: d 101: e 102: f 103: g

104: h 105: i 106: j 107: k 108: l 109: m

110: n 111: o 112: p 113: q 114: r 115: s

116: t 117: u 118: v 119: w 120: x 121: y

122: z 123: { 124: | 125: } 126: ~ 127: DEL

</pre>