Return to call.mod CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / mod

Annotation of 43BSD/ucb/dbx/tests/mod/call.mod, revision 1.1

1.1     ! root        1: (*
        !             2:  * Test program for dbx call command.
        !             3:  *)
        !             4: 
        !             5: module main;
        !             6: from io import writef, output;
        !             7: 
        !             8: var global : integer;
        !             9: 
        !            10: procedure startup ;
        !            11: var
        !            12:     mainlocal : integer;
        !            13: begin
        !            14:     global := 2;
        !            15:     mainlocal := 19;
        !            16:     p1();
        !            17:     p2(mainlocal);
        !            18:     p3("test", 3);
        !            19: end startup;
        !            20: 
        !            21: procedure p1 ();
        !            22: begin
        !            23:     writef(output, "in p1\n");
        !            24:     global := 4;
        !            25: end p1;
        !            26: 
        !            27: procedure p2 (frommain : integer);
        !            28: begin
        !            29:     writef(output, "in p2(%d)\n", frommain);
        !            30:     global := 9;
        !            31: end p2;
        !            32: 
        !            33: procedure p3 (s : array of char; i : integer);
        !            34: begin
        !            35:     writef(output, "in p3(%s, %d)\n", s, i);
        !            36:     global := 10;
        !            37: end p3;
        !            38: 
        !            39: begin
        !            40:     startup;
        !            41: end main.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.