84 lines
2.6 KiB
Text
84 lines
2.6 KiB
Text
100H: /* SUFFIX NUMBERS WITH ST, ND, RD OR TH AS APPROPRIATE */
|
|
|
|
/* CP/M BDOS SYSTEM CALL AND I/O ROUTINES */
|
|
BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END;
|
|
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$NL: PROCEDURE; CALL PR$CHAR( 0DH ); CALL PR$CHAR( 0AH ); END;
|
|
PR$NUMBER: PROCEDURE( N ); /* PRINTS A NUMBER IN THE MINIMUN FIELD WIDTH */
|
|
DECLARE N ADDRESS;
|
|
DECLARE V ADDRESS, N$STR ( 6 )BYTE, W BYTE;
|
|
V = N;
|
|
W = LAST( N$STR );
|
|
N$STR( W ) = '$';
|
|
N$STR( W := W - 1 ) = '0' + ( V MOD 10 );
|
|
DO WHILE( ( V := V / 10 ) > 0 );
|
|
N$STR( W := W - 1 ) = '0' + ( V MOD 10 );
|
|
END;
|
|
CALL PR$STRING( .N$STR( W ) );
|
|
END PR$NUMBER;
|
|
|
|
/* TASK */
|
|
|
|
DECLARE LD LITERALLY '100' /* LOWER CASE LETTERS NEEDED FOR THE SUFFICES */
|
|
, LH LITERALLY '104'
|
|
, LN LITERALLY '110'
|
|
, LR LITERALLY '114'
|
|
, LS LITERALLY '115'
|
|
, LT LITERALLY '116'
|
|
;
|
|
|
|
/* RETURNS THE TWO CHARACTER ORDINAL SUFFIX FOR N */
|
|
SUFFIX: PROCEDURE( N )ADDRESS;
|
|
DECLARE N ADDRESS;
|
|
DECLARE ( S1, S2 ) BYTE;
|
|
S1 = LT;
|
|
S2 = LH;
|
|
IF N MOD 100 < 4 OR N MOD 100 > 20 THEN DO;
|
|
DECLARE N10 ADDRESS;
|
|
N10 = N MOD 10;
|
|
IF N10 = 1 THEN DO;
|
|
S1 = LS;
|
|
S2 = LT;
|
|
END;
|
|
ELSE IF N10 = 2 THEN DO;
|
|
S1 = LN;
|
|
S2 = LD;
|
|
END;
|
|
ELSE IF N10 = 3 THEN DO;
|
|
S1 = LR;
|
|
S2 = LD;
|
|
END;
|
|
END;
|
|
RETURN ( S1 * 256 ) + S2;
|
|
END SUFFIX;
|
|
|
|
/* PRINTS THE TWO CHARACTER SUFFIX IN S */
|
|
PR$SUFFIX: PROCEDURE( S );
|
|
DECLARE S ADDRESS;
|
|
CALL PR$CHAR( HIGH( S ) );
|
|
CALL PR$CHAR( LOW( S ) );
|
|
END PR$SUFFIX ;
|
|
|
|
DECLARE I ADDRESS;
|
|
|
|
DO I = 0 TO 25;
|
|
IF I < 10 THEN CALL PR$CHAR( ' ' );
|
|
CALL PR$CHAR( ' ' );CALL PR$NUMBER( I );CALL PR$SUFFIX( SUFFIX( I ) );
|
|
IF ( I + 1 ) MOD 10 = 0 THEN CALL PR$NL;
|
|
END;
|
|
CALL PR$NL;
|
|
CALL PR$NL;
|
|
DO I = 250 TO 265;
|
|
CALL PR$CHAR( ' ' );CALL PR$NUMBER( I );CALL PR$SUFFIX( SUFFIX( I ) );
|
|
IF ( I - 249 ) MOD 10 = 0 THEN CALL PR$NL;
|
|
END;
|
|
CALL PR$NL;
|
|
CALL PR$NL;
|
|
DO I = 1000 TO 1025;
|
|
CALL PR$CHAR( ' ' );CALL PR$NUMBER( I );CALL PR$SUFFIX( SUFFIX( I ) );
|
|
IF ( I - 999 ) MOD 10 = 0 THEN CALL PR$NL;
|
|
END;
|
|
CALL PR$NL;
|
|
|
|
EOF
|