plm_compiler/test.plm at master · computerspieler/plm_compiler · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
/*
                       SAMPLE  PL/M  PROGRAM

    THIS PROGRAM CALCULATES AND PRINTS OUT THE SQUARE ROOTS OF
    ALL INTEGERS BETWEEN 1 AND 1000.
                                                               */
DECLARE CR LITERALLY '0DH', LF LITERALLY '0AH', TRUE LITERALLY '1',
        FALSE LITERALLY '0';

10H:  /*  IS THE ORIGIN OF THIS PROGRAM */

SQUARE$ROOT: PROCEDURE(X) BYTE;
    DECLARE (X,Y,Z) ADDRESS;
    Y=X; Z=SHR(X+1,1);
        DO WHILE Y<>Z;
        Y=Z; Z=SHR(X/Y + Y + 1, 1);
        END;
    RETURN Y;
    END SQUAREROOT;

    /* PRINT USING INTELLEC MONITOR */
PRINT$CHAR: PROCEDURE (CHAR);
    DECLARE CHAR BYTE;
    DECLARE IOCO LITERALLY '3809H';
    GO TO IOCO;
    END PRINT$CHAR;

PRINT$NUMBER: PROCEDURE(NUMBER,BASE,CHARS,ZERO$SUPPRESS);
    DECLARE NUMBER ADDRESS, (BASE,CHARS,ZERO$SUPPRESS,I,J) BYTE;
    DECLARE TEMP(16) BYTE;
    IF CHARS > LAST(TEMP) THEN CHARS = LAST(TEMP);
        DO I = 1 TO CHARS;
        J=NUMBER MOD BASE + '0';
        IF J > '9' THEN J = J + 7;
        IF ZERO$SUPPRESS AND I <> 1 AND NUMBER = 0 THEN
            J = ' ';
        TEMP(LENGTH(TEMP)-I) = J;
        NUMBER = NUMBER / BASE;
        END;
    CALL PRINT$STRING(.TEMP + LENGTH(TEMP) - CHARS,CHARS);
    END PRINT$NUMBER;

DECLARE I ADDRESS,
    CRLF LITERALLY 'CR,LF',
    HEADING DATA (CRLF,LF,LF,
    '                        TABLE OF SQUARE ROOTS', CRLF,LF,
    ' VALUE  ROOT VALUE  ROOT VALUE  ROOT VALUE  ROOT VALUE  ROOT',
    CRLF,LF);

    /* SILENCE TTY AND PRINT COMPUTED VALUES */
    DO I = 1 TO 1000;
    IF I MOD 5 = 1 THEN
        DO; IF I MOD 250 = 1 THEN
            CALL PRINT$STRING(.HEADING,LENGTH(HEADING));
            ELSE
            CALL PRINT$STRING(.(CR,LF),2);
        END;
    CALL PRINT$NUMBER(I,10,6,TRUE /* TRUE SUPPRESSES LEADING ZEROES */);
    CALL PRINT$NUMBER(SQUARE$ROOT(I), 10,6, TRUE);
    END;

EOF