Compiler Library/XL Reference Manual (32650-90029)

ManualsBrandsHP ManualsSoftwareMPE/iX 6.5 Operating System

4- 19

ASCII (YEAR, 10, PRINT'BUFFER'B);

MOVE PRINT'BUFFER'B (4) := " ";

MOVE PRINT'BUFFER'B (7) := YEARLY (15 * (YEAR-1977)), (15);

PRINT (PRINT'BUFFER'W, -22, %40);

<< Convert ASCII to decimal >>

TOS := @PACKED'TEMP; TOS := 15;

TOS := @YEARLY (15 * (YEAR-1977)); TOS := 15;

ASSEMBLE (CVAD);

<< Add to sum >>

TOS := @PACKED'SUM; TOS := 15;

TOS := @PACKED'TEMP; TOS := 15;

ASSEMBLE (ADDD);

END;

<< Convert sum to ASCII, suppressing plus sign >>

TOS := @ASCII'SUM; TOS := 15;

TOS := @PACKED'SUM;

ASSEMBLE (CVDA ABS);

MOVE PRINT'BUFFER'B := "Total ";

MOVE PRINT'BUFFER'B (7) := ASCII'SUM, (15);

PRINT (PRINT'BUFFER'W, -22, %40);

END.