func cmstart

Syntax

   cmstart (cmlogaddr)

Formal Declaration

   cmstart:lcptr (cmlogaddr:lcptr)

Parameters

cmlogaddr

A CM logical code pointer address for which the starting address of the containing level one procedure is to be returned.

Cmlogaddr must be a full CM logical code address (LCPTR). For example:

CMPC

Current CM program counter

CMPW+4

Top of CM program window + 4

PROG(2.102)

Program file logical seg 2 offset 102

fopen+102

CM procedure fopen + %102 (assumes CM mode)

cmaddr('fopen')+%102

CM procedure fopen + %102 (NM or CM mode

Examples

        PROGRAM test (input,output);

        PROCEDURE one;
        begin {one}
          writeln('ONE');
        end;  {one}

        PROCEDURE two;

            PROCEDURE three;
            begin {three}
              writeln('THREE');
            end;  {three}

        begin {two}
          writeln('TWO');
          three;
        end;  {two}

        begin {main body} {Outer block is named "ob'" by the compiler}
          one;
          two;
        end.  {main body}

      PROGRAM FILE PTEST.DEMO.TELESUP

      SEG'              0
         NAME            STT  CODE ENTRY SEG
         OB'               1     0    13
         TERMINATE'        5               ?
         P'RESET           6               ?
         P'REWRITE         7               ?
         P'CLOSEIO        10               ?
         P'INITHEAP'3000  11               ?
         TWO               2    71   123
         P'WRITELN        12               ?
         P'WRITESTR       13               ?
         ONE               3   142   155
         SEGMENT LENGTH        210

      PRIMARY DB        2   INITIAL STACK  10240   CAPABILITY      600
      SECONDARY DB    430   INITIAL DL         0   TOTAL CODE      210
      TOTAL DB        432   MAXIMUM DATA       ?   TOTAL RECORDS    11
      ELAPSED TIME   00:00:01.365          PROCESSOR TIME   00:00.740

      END OF PREPARE

   %cmdebug > wl ob'
   PROG %0.0
   %cmdebug > wl cmstart(ob')
   PROG %0.0

   %cmdebug > wl ?ob'
   PROG %0.13
   %cmdebug > wl cmentry(ob')
   PROG %0.13

   %cmdebug > wl cmstart(one)
   PROG %0.142

   %cmdebug > wl cmentry(one)
   PROG %0.155

   %cmdebug > wl cmentry(one+10)
   PROG %0.155

   %cmdebug > wl cmstart(two)
   PROG %0.71

   %cmdebug > wl cmstart(two+5)
   PROG %0.7

   %cmdebug > wl cmentry(two)
   PROG %0.123

Limitations, Restrictions