[Oberon] Compiler trap

Dan Parnete dan.parnete at fastwebnet.it
Mon Mar 13 21:41:31 CET 2006


Hello,

I have a big module, actually 61199. Compiling from PET, for any kind of 
syntax error the compiler traps, and the compilation is about 10 times 
longer the usual, but it ends with the correct error message. If there 
is no error, the compiler works fine. The Bluebottle version is 
21.02.06. This happens only for big modules. You can try on 
JPEG2000Decoder deleting any useful ; terminator, for example, and will 
obtain a similar trap:

[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599138 ESI=891BFDA5 EDI=0554DF89 ESP=891BFE2C CR2=00000014 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=01407C8F CR3=0FFEE000 
LCK=00000000
 EBP=891BFE7C FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E242
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  774 run 0 3 054C8270:PCP.ProcedureParser StringPool.GetIndex 
pc=1073 (000000431H) {}
PCB.CalcParsSize pc=51536 (00000C950H)
  * Parameters:
    maxSize (LONGINT) = 0 = 000000000H
    params (PCB.ExprList) = 054D2930H (PCB.ExprList)
    proc (PCB.Designator) = 054D28D0H (PCB.AnyProc)
    scope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = 015AA2D0H (PCB.Designator)
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054C8270H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 43 = 02BH
            scanner (PCS.Scanner) = 054C86F0H (PCS.Scanner)
            scope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054C9710H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 054D28D0H (PCB.AnyProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 042CF750H (PCT.Method)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 054D2930H (PCB.ExprList)
    pos (LONGINT) = 85057 = 000014C41H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054C8270H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 43 = 02BH
            scanner (PCS.Scanner) = 054C86F0H (PCS.Scanner)
            scope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054C9710H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    lock (BOOLEAN) = FALSE
PCP.Parser.Body pc=24263 (000005EC7H)
  * Parameters:
    @Self (PCP.Parser) = 054C8270H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 43 = 02BH
            scanner (PCS.Scanner) = 054C86F0H (PCS.Scanner)
            scope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054C9710H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    owner (PCT.Proc) = NIL
    name (ARRAY 32 OF CHAR) = "Init"
    00000000 49 6E 69 74 00 00 00 00 00 00 00 00 00 00 00 00 
Init............
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    export (BOOLEAN) = FALSE
    err (BOOLEAN) = FALSE
    id (LONGINT) = 0 = 000000000H
    size (LONGINT) = 0 = 000000000H
    persistentSize (LONGINT) = 0 = 000000000H
    factor (LONGINT) = 0 = 000000000H
PCP.Parser. at Body pc=27765 (000006C75H)
  * Parameters:
    @Self (PCP.Parser) = 054C8270H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 43 = 02BH
            scanner (PCS.Scanner) = 054C86F0H (PCS.Scanner)
            scope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548BDD0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054C9710H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

[1] TRAP 32767 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599000 ESI=00003246 EDI=036FDFBC ESP=8921FD84 CR2=00000014 
PID=00000000
 EAX=00000001 EBX=015AA2D0 ECX=00000000 EDX=036F0010 CR3=0FFEE000 
LCK=00000000
 EBP=8921FDD4 FS:=00000000 GS:=00000000 ERR=00000000 CR4=00000240 
TMR=0007E246
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13}
Process:  777 run 0 3 054CC990:PCP.ProcedureParser StringPool.GetIndex 
pc=1073 (000000431H) {}
PCB.CalcParsSize pc=51224 (00000C818H)
  * Parameters:
    maxSize (LONGINT) = 0 = 000000000H
    params (PCB.ExprList) = 036F1B10H (PCB.ExprList)
    proc (PCB.Designator) = 036F16F0H (PCB.AnyProc)
    scope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = 015AA2D0H (PCB.Designator)
    o (PCT.Parameter) = 05830A10H (PCT.Parameter)
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCP.Parser.Factor pc=13937 (000003671H)
  * Parameters:
    x (PCB.Expression) = 036FDF90H (PCB.FunCall)
    @Self (PCP.Parser) = 054CC990H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 19 = 013H
            scanner (PCS.Scanner) = 054CCE10H (PCS.Scanner)
            scope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054CF2D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    el (PCB.ExprList) = 036F1B10H (PCB.ExprList)
    d (PCB.Designator) = 036F16F0H (PCB.AnyProc)
    o (PCT.Symbol) = 05830A90H (PCT.Proc)
    pos (LONGINT) = 82394 = 0000141DAH
    mod (PCT.Symbol) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Proc) = NIL
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.Term pc=14423 (000003857H)
  * Parameters:
    x (PCB.Expression) = 036FDF90H (PCB.FunCall)
    @Self (PCP.Parser) = 054CC990H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 19 = 013H
            scanner (PCS.Scanner) = 054CCE10H (PCS.Scanner)
            scope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054CF2D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    y (PCB.Expression) = NIL
    xTmp (PCB.Expression) = NIL
    op (SHORTINT) = 0 = 000H
    pos (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
PCP.Parser.SimpleExpr pc=16229 (000003F65H)
  * Parameters:
    x (PCB.Expression) = 036FDF90H (PCB.FunCall)
    @Self (PCP.Parser) = 054CC990H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 19 = 013H
            scanner (PCS.Scanner) = 054CCE10H (PCS.Scanner)
            scope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054CF2D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    y (PCB.Expression) = NIL
    op (SHORTINT) = 0 = 000H
    pos (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
PCP.Parser.Expr pc=16624 (0000040F0H)
  * Parameters:
    x (PCB.Expression) = 036FDF90H (PCB.FunCall)
    @Self (PCP.Parser) = 054CC990H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 19 = 013H
            scanner (PCS.Scanner) = 054CCE10H (PCS.Scanner)
            scope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0548A9B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054CF2D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    y (PCB.Expression) = NIL
    op (SHORTINT) = 0 = 000H
    pos (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
PCP.Parser.ExprList pc=10770 (000002A12H)
PCP.Parser.StatementSeq pc=19920 (000004DD0H)
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=055967FC ESP=88D7FE08 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=88D7FE14 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E266
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  740 run 0 3 052FE7D0:PCP.ProcedureParser PCT.Scope.Await 
pc=182 (0000000B6H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 054B0A70H (PCB.SProc)
    params (PCB.BuiltInEl) = 054B0AD0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 052FE590H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 054B0AD0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 054B0A70H (PCB.SProc)
    scope (PCT.Scope) = 052FE590H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 052FE7D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 052FEC50H (PCS.Scanner)
            scope (PCT.Scope) = 052FE590H (PCT.ProcScope)
            codescope (PCT.Scope) = 052FE590H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054ABC10H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 054B0A70H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 054B0AD0H (PCB.BuiltInEl)
    pos (LONGINT) = 78924 = 00001344CH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.StatementBlock pc=18825 (000004989H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 052FE7D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 052FEC50H (PCS.Scanner)
            scope (PCT.Scope) = 052FE590H (PCT.ProcScope)
            codescope (PCT.Scope) = 052FE590H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054ABC10H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    lock (BOOLEAN) = FALSE
PCP.Parser.Body pc=24263 (000005EC7H)
  * Parameters:
    @Self (PCP.Parser) = 052FE7D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 052FEC50H (PCS.Scanner)
            scope (PCT.Scope) = 052FE590H (PCT.ProcScope)
            codescope (PCT.Scope) = 052FE590H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054ABC10H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    owner (PCT.Proc) = NIL
    name (ARRAY 32 OF CHAR) = "New"
    00000000 4E 65 77 00 00 00 00 00 00 00 00 00 00 00 00 00 
New.............
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    export (BOOLEAN) = FALSE
    err (BOOLEAN) = FALSE
    id (LONGINT) = 0 = 000000000H
    size (LONGINT) = 0 = 000000000H
    persistentSize (LONGINT) = 0 = 000000000H
    factor (LONGINT) = 0 = 000000000H
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=0559911C ESP=89AFFE08 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89AFFE14 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E267
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  848 run 0 3 0556DED0:PCP.ProcedureParser PCT.Scope.Await 
pc=182 (0000000B6H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 05570090H (PCB.SProc)
    params (PCB.BuiltInEl) = 055700F0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 055700F0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 05570090H (PCB.SProc)
    scope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0556DED0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0556E350H (PCS.Scanner)
            scope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0556EA10H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 05570090H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 055700F0H (PCB.BuiltInEl)
    pos (LONGINT) = 53166 = 00000CFAEH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.StatementBlock pc=18825 (000004989H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0556DED0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0556E350H (PCS.Scanner)
            scope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0556EA10H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    lock (BOOLEAN) = FALSE
PCP.Parser.Body pc=24263 (000005EC7H)
  * Parameters:
    @Self (PCP.Parser) = 0556DED0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0556E350H (PCS.Scanner)
            scope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0556DBD0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0556EA10H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    owner (PCT.Proc) = NIL
    name (ARRAY 32 OF CHAR) = "LoadPage"
    00000000 4C 6F 61 64 50 61 67 65 00 00 00 00 00 00 00 00 
LoadPage........
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    export (BOOLEAN) = FALSE
    err (BOOLEAN) = FALSE
    id (LONGINT) = 0 = 000000000H
    size (LONGINT) = 0 = 000000000H
    persistentSize (LONGINT) = 0 = 000000000H
    factor (LONGINT) = 0 = 000000000H
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=0559945C ESP=89B1FE08 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89B1FE14 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E268
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  849 run 0 3 05570550:PCP.ProcedureParser PCT.Scope.Await 
pc=182 (0000000B6H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 05573EB0H (PCB.SProc)
    params (PCB.BuiltInEl) = 05573F10H (PCB.BuiltInEl)
    scope (PCT.Scope) = 05570250H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 05573F10H (PCB.BuiltInEl)
    proc (PCB.Designator) = 05573EB0H (PCB.SProc)
    scope (PCT.Scope) = 05570250H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05570550H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055709D0H (PCS.Scanner)
            scope (PCT.Scope) = 05570250H (PCT.ProcScope)
            codescope (PCT.Scope) = 05570250H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05572830H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 05573EB0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 05573F10H (PCB.BuiltInEl)
    pos (LONGINT) = 53504 = 00000D100H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.StatementBlock pc=18825 (000004989H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05570550H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055709D0H (PCS.Scanner)
            scope (PCT.Scope) = 05570250H (PCT.ProcScope)
            codescope (PCT.Scope) = 05570250H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05572830H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    lock (BOOLEAN) = FALSE
PCP.Parser.Body pc=24263 (000005EC7H)
  * Parameters:
    @Self (PCP.Parser) = 05570550H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055709D0H (PCS.Scanner)
            scope (PCT.Scope) = 05570250H (PCT.ProcScope)
            codescope (PCT.Scope) = 05570250H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05572830H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    owner (PCT.Proc) = NIL
    name (ARRAY 32 OF CHAR) = "LoadForm"
    00000000 4C 6F 61 64 46 6F 72 6D 00 00 00 00 00 00 00 00 
LoadForm........
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    export (BOOLEAN) = FALSE
    err (BOOLEAN) = FALSE
    id (LONGINT) = 0 = 000000000H
    size (LONGINT) = 0 = 000000000H
    persistentSize (LONGINT) = 0 = 000000000H
    factor (LONGINT) = 0 = 000000000H
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=055996DC ESP=89B5FE08 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89B5FE14 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E269
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  851 run 0 3 055759D0:PCP.ProcedureParser PCT.Scope.Await 
pc=182 (0000000B6H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 0557F2F0H (PCB.SProc)
    params (PCB.BuiltInEl) = 0557F350H (PCB.BuiltInEl)
    scope (PCT.Scope) = 05575710H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 0557F350H (PCB.BuiltInEl)
    proc (PCB.Designator) = 0557F2F0H (PCB.SProc)
    scope (PCT.Scope) = 05575710H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055759D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05575E50H (PCS.Scanner)
            scope (PCT.Scope) = 05575710H (PCT.ProcScope)
            codescope (PCT.Scope) = 05575710H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0557DC70H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 0557F2F0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 0557F350H (PCB.BuiltInEl)
    pos (LONGINT) = 54072 = 00000D338H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.StatementBlock pc=18825 (000004989H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055759D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05575E50H (PCS.Scanner)
            scope (PCT.Scope) = 05575710H (PCT.ProcScope)
            codescope (PCT.Scope) = 05575710H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0557DC70H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    lock (BOOLEAN) = FALSE
PCP.Parser.Body pc=24263 (000005EC7H)
  * Parameters:
    @Self (PCP.Parser) = 055759D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05575E50H (PCS.Scanner)
            scope (PCT.Scope) = 05575710H (PCT.ProcScope)
            codescope (PCT.Scope) = 05575710H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0557DC70H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    owner (PCT.Proc) = NIL
    name (ARRAY 32 OF CHAR) = "LoadReport"
    00000000 4C 6F 61 64 52 65 70 6F 72 74 00 00 00 00 00 00 
LoadReport......
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    export (BOOLEAN) = FALSE
    err (BOOLEAN) = FALSE
    id (LONGINT) = 0 = 000000000H
    size (LONGINT) = 0 = 000000000H
    persistentSize (LONGINT) = 0 = 000000000H
    factor (LONGINT) = 0 = 000000000H
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=05599A5C ESP=89B9FE08 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89B9FE14 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E269
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  853 run 0 3 0557A370:PCP.ProcedureParser PCT.Scope.Await 
pc=182 (0000000B6H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 055899D0H (PCB.SProc)
    params (PCB.BuiltInEl) = 05589A30H (PCB.BuiltInEl)
    scope (PCT.Scope) = 0557A130H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 05589A30H (PCB.BuiltInEl)
    proc (PCB.Designator) = 055899D0H (PCB.SProc)
    scope (PCT.Scope) = 0557A130H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0557A370H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557A7F0H (PCS.Scanner)
            scope (PCT.Scope) = 0557A130H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557A130H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 055886D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 055899D0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 05589A30H (PCB.BuiltInEl)
    pos (LONGINT) = 54423 = 00000D497H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.StatementBlock pc=18825 (000004989H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0557A370H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557A7F0H (PCS.Scanner)
            scope (PCT.Scope) = 0557A130H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557A130H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 055886D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    lock (BOOLEAN) = FALSE
PCP.Parser.Body pc=24263 (000005EC7H)
  * Parameters:
    @Self (PCP.Parser) = 0557A370H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557A7F0H (PCS.Scanner)
            scope (PCT.Scope) = 0557A130H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557A130H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 055886D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    owner (PCT.Proc) = NIL
    name (ARRAY 32 OF CHAR) = "LoadMenu"
    00000000 4C 6F 61 64 4D 65 6E 75 00 00 00 00 00 00 00 00 
LoadMenu........
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    export (BOOLEAN) = FALSE
    err (BOOLEAN) = FALSE
    id (LONGINT) = 0 = 000000000H
    size (LONGINT) = 0 = 000000000H
    persistentSize (LONGINT) = 0 = 000000000H
    factor (LONGINT) = 0 = 000000000H
PCP.Parser. at Body pc=27765 (000006C75H)
 - Recovered[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=0566DA7C ESP=8939FCE8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=8939FCF4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E361
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  789 run 0 3 054EC810:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 05664DB0H (PCB.SProc)
    params (PCB.BuiltInEl) = 05664E10H (PCB.BuiltInEl)
    scope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 05664E10H (PCB.BuiltInEl)
    proc (PCB.Designator) = 05664DB0H (PCB.SProc)
    scope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054EC810H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054ECC90H (PCS.Scanner)
            scope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
            codescope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054EF3F0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 05664DB0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 05664E10H (PCB.BuiltInEl)
    pos (LONGINT) = 7908 = 000001EE4H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054EC810H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054ECC90H (PCS.Scanner)
            scope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
            codescope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054EF3F0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 05664C50H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054EC810H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054ECC90H (PCS.Scanner)
            scope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
            codescope (PCT.Scope) = 054EAFB0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054EF3F0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 7887 = 000001ECFH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=0567147C ESP=8985FCE8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=8985FCF4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E363
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  827 run 0 3 039DDF90:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 05669A30H (PCB.SProc)
    params (PCB.BuiltInEl) = 05669A90H (PCB.BuiltInEl)
    scope (PCT.Scope) = 05541370H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 05669A90H (PCB.BuiltInEl)
    proc (PCB.Designator) = 05669A30H (PCB.SProc)
    scope (PCT.Scope) = 05541370H (PCT.ProcScope)
    level (LONGINT) = 1 = 000000001H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 039DDF90H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05541510H (PCS.Scanner)
            scope (PCT.Scope) = 05541370H (PCT.ProcScope)
            codescope (PCT.Scope) = 05541370H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 1 = 001H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05530E90H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 05669A30H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 05669A90H (PCB.BuiltInEl)
    pos (LONGINT) = 47362 = 00000B902H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 039DDF90H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05541510H (PCS.Scanner)
            scope (PCT.Scope) = 05541370H (PCT.ProcScope)
            codescope (PCT.Scope) = 05541370H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 1 = 001H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05530E90H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 05669890H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 039DDF90H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05541510H (PCS.Scanner)
            scope (PCT.Scope) = 05541370H (PCT.ProcScope)
            codescope (PCT.Scope) = 05541370H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 1 = 001H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05530E90H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 47339 = 00000B8EBH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=05676DBC ESP=894BFCE8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=894BFCF4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E365
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  798 run 0 3 05500C70:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 05674930H (PCB.SProc)
    params (PCB.BuiltInEl) = 05674990H (PCB.BuiltInEl)
    scope (PCT.Scope) = 05500A30H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 05674990H (PCB.BuiltInEl)
    proc (PCB.Designator) = 05674930H (PCB.SProc)
    scope (PCT.Scope) = 05500A30H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05500C70H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055010F0H (PCS.Scanner)
            scope (PCT.Scope) = 05500A30H (PCT.ProcScope)
            codescope (PCT.Scope) = 05500A30H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05502C70H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 05674930H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 05674990H (PCB.BuiltInEl)
    pos (LONGINT) = 84340 = 000014974H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05500C70H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055010F0H (PCS.Scanner)
            scope (PCT.Scope) = 05500A30H (PCT.ProcScope)
            codescope (PCT.Scope) = 05500A30H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05502C70H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 05666CB0H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05500C70H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055010F0H (PCS.Scanner)
            scope (PCT.Scope) = 05500A30H (PCT.ProcScope)
            codescope (PCT.Scope) = 05500A30H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05502C70H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 84272 = 000014930H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=038599DC ESP=8925FCE8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=8925FCF4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E375
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  779 run 0 3 054D6570:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 03848D90H (PCB.SProc)
    params (PCB.BuiltInEl) = 03848DF0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 03848DF0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 03848D90H (PCB.SProc)
    scope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054D6570H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054D69F0H (PCS.Scanner)
            scope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054D76D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 03848D90H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 03848DF0H (PCB.BuiltInEl)
    pos (LONGINT) = 6927 = 000001B0FH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054D6570H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054D69F0H (PCS.Scanner)
            scope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054D76D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 03848230H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054D6570H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054D69F0H (PCS.Scanner)
            scope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 054D60B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054D76D0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 6899 = 000001AF3H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=039B3F1C ESP=89D3FCE8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89D3FCF4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E37B
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  866 run 0 3 055A1010:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 039B0AB0H (PCB.SProc)
    params (PCB.BuiltInEl) = 039B14D0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 039B14D0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 039B0AB0H (PCB.SProc)
    scope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055A1010H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055A1490H (PCS.Scanner)
            scope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
            codescope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 037D3F50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 039B0AB0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 039B14D0H (PCB.BuiltInEl)
    pos (LONGINT) = 34427 = 00000867BH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055A1010H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055A1490H (PCS.Scanner)
            scope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
            codescope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 037D3F50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 039B0950H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055A1010H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 055A1490H (PCS.Scanner)
            scope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
            codescope (PCT.Scope) = 0559CF70H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 037D3F50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 34399 = 00000865FH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=039BA2BC ESP=89E3FCE8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89E3FCF4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E37E
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  874 run 0 3 05651870:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 039B7690H (PCB.SProc)
    params (PCB.BuiltInEl) = 039B7BD0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 0564B870H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 039B7BD0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 039B7690H (PCB.SProc)
    scope (PCT.Scope) = 0564B870H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05651870H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05651CF0H (PCS.Scanner)
            scope (PCT.Scope) = 0564B870H (PCT.ProcScope)
            codescope (PCT.Scope) = 0564B870H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0565ADD0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 039B7690H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 039B7BD0H (PCB.BuiltInEl)
    pos (LONGINT) = 37242 = 00000917AH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05651870H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05651CF0H (PCS.Scanner)
            scope (PCT.Scope) = 0564B870H (PCT.ProcScope)
            codescope (PCT.Scope) = 0564B870H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0565ADD0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 039B7570H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 05651870H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05651CF0H (PCS.Scanner)
            scope (PCT.Scope) = 0564B870H (PCT.ProcScope)
            codescope (PCT.Scope) = 0564B870H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0565ADD0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 37221 = 000009165H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=03A3F51C ESP=89BDFBC8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89BDFBD4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E38C
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  855 run 0 3 0557CFF0:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 03A3F1B0H (PCB.SProc)
    params (PCB.BuiltInEl) = 03A3F210H (PCB.BuiltInEl)
    scope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 03A3F210H (PCB.BuiltInEl)
    proc (PCB.Designator) = 03A3F1B0H (PCB.SProc)
    scope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0557CFF0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557D470H (PCS.Scanner)
            scope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 055A3050H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 03A3F1B0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 03A3F210H (PCB.BuiltInEl)
    pos (LONGINT) = 56396 = 00000DC4CH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0557CFF0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557D470H (PCS.Scanner)
            scope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 055A3050H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 03A3E8D0H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0557CFF0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557D470H (PCS.Scanner)
            scope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557CCF0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 055A3050H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 56366 = 00000DC2EH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.If pc=17391 (0000043EFH)
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=056FC8DC ESP=8941FBC8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=8941FBD4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E39A
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  793 run 0 3 054F3650:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 056FA970H (PCB.SProc)
    params (PCB.BuiltInEl) = 056FA9D0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 054F3410H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 056FA9D0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 056FA970H (PCB.SProc)
    scope (PCT.Scope) = 054F3410H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054F3650H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054F3AD0H (PCS.Scanner)
            scope (PCT.Scope) = 054F3410H (PCT.ProcScope)
            codescope (PCT.Scope) = 054F3410H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054F42F0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 056FA970H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 056FA9D0H (PCB.BuiltInEl)
    pos (LONGINT) = 83843 = 000014783H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054F3650H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054F3AD0H (PCS.Scanner)
            scope (PCT.Scope) = 054F3410H (PCT.ProcScope)
            codescope (PCT.Scope) = 054F3410H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054F42F0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 056F5810H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054F3650H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054F3AD0H (PCS.Scanner)
            scope (PCT.Scope) = 054F3410H (PCT.ProcScope)
            codescope (PCT.Scope) = 054F3410H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054F42F0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 83758 = 00001472EH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.If pc=17391 (0000043EFH)
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=0573167C ESP=89BBFE08 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=89BBFE14 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E3C5
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  854 run 0 3 0557AFF0:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 05731450H (PCB.SProc)
    params (PCB.BuiltInEl) = 057314B0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 057314B0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 05731450H (PCB.SProc)
    scope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0557AFF0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557B470H (PCS.Scanner)
            scope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0559AC50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 05731450H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = 0398D510H (PCB.Var)
    y (PCB.Expression) = 03981150H (PCB.Const)
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 057314B0H (PCB.BuiltInEl)
    pos (LONGINT) = 55489 = 00000D8C1H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.StatementBlock pc=18825 (000004989H)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0557AFF0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557B470H (PCS.Scanner)
            scope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0559AC50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    lock (BOOLEAN) = FALSE
PCP.Parser.Body pc=24263 (000005EC7H)
  * Parameters:
    @Self (PCP.Parser) = 0557AFF0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0557B470H (PCS.Scanner)
            scope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
            codescope (PCT.Scope) = 0557AD30H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0559AC50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    owner (PCT.Proc) = NIL
    name (ARRAY 32 OF CHAR) = "LoadBForm"
    00000000 4C 6F 61 64 42 46 6F 72 6D 00 00 00 00 00 00 00 
LoadBForm.......
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    export (BOOLEAN) = FALSE
    err (BOOLEAN) = FALSE
    id (LONGINT) = 0 = 000000000H
    size (LONGINT) = 0 = 000000000H
    persistentSize (LONGINT) = 0 = 000000000H
    factor (LONGINT) = 0 = 000000000H
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=05755FBC ESP=897FFCE8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=897FFCF4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E3D2
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  824 run 0 3 0553B4D0:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 05755E50H (PCB.SProc)
    params (PCB.BuiltInEl) = 05755EB0H (PCB.BuiltInEl)
    scope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 05755EB0H (PCB.BuiltInEl)
    proc (PCB.Designator) = 05755E50H (PCB.SProc)
    scope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0553B4D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0553B950H (PCS.Scanner)
            scope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0553CEB0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 05755E50H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = 03A29130H (PCB.FunCall)
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 05755EB0H (PCB.BuiltInEl)
    pos (LONGINT) = 91166 = 00001641EH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0553B4D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0553B950H (PCS.Scanner)
            scope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0553CEB0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 03A20030H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = TRUE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 0553B4D0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 0553B950H (PCS.Scanner)
            scope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
            codescope (PCT.Scope) = 0553B2B0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 0553CEB0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 0553E1B0H (PCB.Var)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = 036F3390H (PCB.FunCall)
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 0553BF50H (PCT.LocalVar)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 90958 = 00001634EH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=057AD21C ESP=8909F8B8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=8909F8C4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E3E7
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  765 run 0 3 054A6470:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 057ACFF0H (PCB.SProc)
    params (PCB.BuiltInEl) = 057AD050H (PCB.BuiltInEl)
    scope (PCT.Scope) = 056F6070H (PCT.WithScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 057AD050H (PCB.BuiltInEl)
    proc (PCB.Designator) = 057ACFF0H (PCB.SProc)
    scope (PCT.Scope) = 056F6070H (PCT.WithScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054A6470H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054A68F0H (PCS.Scanner)
            scope (PCT.Scope) = 056F6070H (PCT.WithScope)
            codescope (PCT.Scope) = 039BFCB0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054C6BD0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 057ACFF0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 057AD050H (PCB.BuiltInEl)
    pos (LONGINT) = 86306 = 000015122H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054A6470H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054A68F0H (PCS.Scanner)
            scope (PCT.Scope) = 056F6070H (PCT.WithScope)
            codescope (PCT.Scope) = 039BFCB0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054C6BD0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 057ACE90H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054A6470H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054A68F0H (PCS.Scanner)
            scope (PCT.Scope) = 056F6070H (PCT.WithScope)
            codescope (PCT.Scope) = 039BFCB0H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054C6BD0H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 03BE8630H (PCB.Var)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = 03BE8FD0H (PCB.FunCall)
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 054C6690H (PCT.LocalVar)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 86283 = 00001510BH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 0 = 000000000H
PCP.Parser.If pc=17391 (0000043EFH)
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
PCP.Parser.StatementSeq pc=20816 (000005150H)
PCP.Parser.If pc=17391 (0000043EFH)
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
PCP.Parser.StatementSeq pc=21424 (0000053B0H)
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=057B1A3C ESP=8945FBF0 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=8945FBFC FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E3E9
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  795 run 0 3 054F9650:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 057B1810H (PCB.SProc)
    params (PCB.BuiltInEl) = 057B1870H (PCB.BuiltInEl)
    scope (PCT.Scope) = 054F9310H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 057B1870H (PCB.BuiltInEl)
    proc (PCB.Designator) = 057B1810H (PCB.SProc)
    scope (PCT.Scope) = 054F9310H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054F9650H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054F9AD0H (PCS.Scanner)
            scope (PCT.Scope) = 054F9310H (PCT.ProcScope)
            codescope (PCT.Scope) = 054F9310H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 1 = 000000001H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054FF730H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 057B1810H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 057B1870H (PCB.BuiltInEl)
    pos (LONGINT) = 43565 = 00000AA2DH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054F9650H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054F9AD0H (PCS.Scanner)
            scope (PCT.Scope) = 054F9310H (PCT.ProcScope)
            codescope (PCT.Scope) = 054F9310H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 1 = 000000001H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054FF730H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 057B1310H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 054F9650H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 054F9AD0H (PCS.Scanner)
            scope (PCT.Scope) = 054F9310H (PCT.ProcScope)
            codescope (PCT.Scope) = 054F9310H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 1 = 000000001H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 054FF730H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 057A71F0H (PCB.AnyProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 054F9FF0H (PCT.LocalVar)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 057A7250H (PCB.ExprList)
    pos (LONGINT) = 43537 = 00000AA11H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.StatementSeq pc=21424 (0000053B0H)
PCP.Parser.StatementBlock pc=18825 (000004989H)
PCP.Parser.Body pc=24263 (000005EC7H)
PCP.Parser. at Body pc=27765 (000006C75H)
[1] TRAP -14 PL 3  Aos 21.2.06
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=01599416 ESI=00003246 EDI=057B367C ESP=895BFBC8 CR2=00000010 
PID=00000000
 EAX=00000000 EBX=00000000 ECX=00000000 EDX=00711188 CR3=0FFEE000 
LCK=00000000
 EBP=895BFBD4 FS:=00000000 GS:=00000000 ERR=00000004 CR4=00000240 
TMR=0007E3EB
 EFLAGS: cPaZstIdo iopl3 {1..2, 6, 9, 12..13, 16}
Process:  806 run 0 3 055128F0:PCP.ProcedureParser PCT.Scope.Await pc=82 
(000000052H) {}
PCB.CalcSProcParsSize pc=52270 (00000CC2EH)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    proc (PCB.SProc) = 057B2AB0H (PCB.SProc)
    params (PCB.BuiltInEl) = 057B2B10H (PCB.BuiltInEl)
    scope (PCT.Scope) = 05512090H (PCT.ProcScope)
  * Local Variables:
    callSize (LONGINT) = 0 = 000000000H
    par0 (PCB.Expression) = NIL
    init (PCT.Method) = NIL
  * GlobalVariables:
    @Self (PTR) = 000DF88D0H
    Invalid (PCT.Node) = 01179600H (PCT.Node)
    InvalidExpr (PCB.Expression) = 015AA270H (PCB.Const)
    InvalidDesig (PCB.Designator) = 015AA2D0H (PCB.Designator)
    InvalidEL (PCB.ExprList) = 015AA330H (PCB.ExprList)
    Zero (PCB.Const) = 015AA390H (PCB.Const)
    One (PCB.Const) = 015AA3F0H (PCB.Const)
    unknownObj (PCT.Symbol) = 015AA450H (PCT.Symbol)
    aExpression (LONGINT) = 0 = 000000000H
    aConst (LONGINT) = 0 = 000000000H
    aDOp (LONGINT) = 0 = 000000000H
    aMOp (LONGINT) = 0 = 000000000H
    aConversion (LONGINT) = 0 = 000000000H
    aFunCall (LONGINT) = 0 = 000000000H
    aSFunCall (LONGINT) = 0 = 000000000H
    aExprList (LONGINT) = 0 = 000000000H
    aDesignator (LONGINT) = 0 = 000000000H
    aVar (LONGINT) = 0 = 000000000H
    aProc (LONGINT) = 0 = 000000000H
    aType (LONGINT) = 0 = 000000000H
    aDeref (LONGINT) = 0 = 000000000H
    aMethod (LONGINT) = 0 = 000000000H
    aField (LONGINT) = 0 = 000000000H
    aIndex (LONGINT) = 0 = 000000000H
    aGuard (LONGINT) = 0 = 000000000H
    aStatement (LONGINT) = 0 = 000000000H
    aStatSeq (LONGINT) = 0 = 000000000H
    aAssign (LONGINT) = 0 = 000000000H
    aProcCall (LONGINT) = 0 = 000000000H
    aSProcCall (LONGINT) = 0 = 000000000H
    aIf (LONGINT) = 0 = 000000000H
    aWhile (LONGINT) = 0 = 000000000H
    aRepeat (LONGINT) = 0 = 000000000H
    aReturn (LONGINT) = 0 = 000000000H
    aCase (LONGINT) = 0 = 000000000H
PCB.CalcParsSize pc=51012 (00000C744H)
  * Parameters:
    maxSize (LONGINT) = 16 = 000000010H
    params (PCB.ExprList) = 057B2B10H (PCB.BuiltInEl)
    proc (PCB.Designator) = 057B2AB0H (PCB.SProc)
    scope (PCT.Scope) = 05512090H (PCT.ProcScope)
    level (LONGINT) = 0 = 000000000H
  * Local Variables:
    p (PCB.Expression) = NIL
    o (PCT.Parameter) = NIL
    curSize (LONGINT) = 0 = 000000000H
    callSize (LONGINT) = 0 = 000000000H
    buf (ARRAY 64 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

PCP.Parser.StatementSeq pc=20004 (000004E24H)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055128F0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05512D70H (PCS.Scanner)
            scope (PCT.Scope) = 05512090H (PCT.ProcScope)
            codescope (PCT.Scope) = 05512090H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05516A50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = 057B2AB0H (PCB.SProc)
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = 015AB710H (PCT.Symbol)
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = 057B2B10H (PCB.BuiltInEl)
    pos (LONGINT) = 89057 = 000015BE1H
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = NIL
    module (PCT.Module) = NIL
    modScope (PCT.ModScope) = NIL
    str (ARRAY 32 OF CHAR) = ""
    00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................
    00000010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
................

    returnPos (anonymous POINTER) = NIL
    temp (anonymous POINTER) = NIL
    ap (PCB.AnyProc) = NIL
    m (PCT.Method) = NIL
    indexer (BOOLEAN) = FALSE
    parSize (LONGINT) = 16 = 000000010H
PCP.Parser.If pc=17391 (0000043EFH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055128F0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05512D70H (PCS.Scanner)
            scope (PCT.Scope) = 05512090H (PCT.ProcScope)
            codescope (PCT.Scope) = 05512090H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05516A50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    cond (PCB.Expression) = 057B2710H (PCB.DOp)
    info (PCB.LoopInfo) =
    ifsuppress (BOOLEAN) = FALSE
    elsifclause (BOOLEAN) = FALSE
PCP.Parser.StatementSeq pc=20127 (000004E9FH)
  * Parameters:
    body (BOOLEAN) = FALSE
    suppress (BOOLEAN) = FALSE
    @Self (PCP.Parser) = 055128F0H (PCP.ProcedureParser)
            sync (PCP.Barrier) = 057D6070H (PCP.Barrier)
            sym (SHORTINT) = 41 = 029H
            scanner (PCS.Scanner) = 05512D70H (PCS.Scanner)
            scope (PCT.Scope) = 05512090H (PCT.ProcScope)
            codescope (PCT.Scope) = 05512090H (PCT.ProcScope)
            looplevel (SHORTINT) = 0 = 000H
            scopelevel (SHORTINT) = 0 = 000H
            forexitcount (LONGINT) = 0 = 000000000H
            forretcount (LONGINT) = 0 = 000000000H
            retcount (LONGINT) = 0 = 000000000H
            fincount (LONGINT) = 0 = 000000000H
            curloop (PCB.LoopInfo) =
            code (PCLIR.Code) = 05516A50H (PCLIR.Code)
            inline (BOOLEAN) = FALSE
            locked (BOOLEAN) = FALSE
            unlockOnExit (BOOLEAN) = FALSE
            die (BOOLEAN) = FALSE
            notifyScope (BOOLEAN) = FALSE
            isRecord (BOOLEAN) = FALSE
            forwardPtr (ARRAY 128 OF anonymous RECORD) =
            nofForwardPtr (LONGINT) = 0 = 000000000H
            curStackSize (LONGINT) = 0 = 000000000H
            hasCalls (BOOLEAN) = FALSE

  * Local Variables:
    d (PCB.Designator) = NIL
    d1 (PCB.Designator) = NIL
    x (PCB.Expression) = NIL
    y (PCB.Expression) = NIL
    c (PCB.Const) = NIL
    o (PCT.Symbol) = NIL
    o1 (PCT.Symbol) = NIL
    param (PCB.ExprList) = NIL
    pos (LONGINT) = 89019 = 000015BBBH
    res (LONGINT) = 0 = 000000000H
    stack (LONGINT) = 0 = 000000000H
    oldscope (PCT.Scope) = NIL
    s (PCT.WithScope) = NIL
    loopinfo (PCB.LoopInfo) =
    caseinfo (PCB.CaseInfo) =
    first (BOOLEAN) = FALSE
    ifsuppress (BOOLEAN) = FALSE
    oldUnlockOnExit (BOOLEAN) = FALSE
    oldforcount (LONGINT) = 0 = 000000000H
    i (LONGINT) = 0 = 000000000H
    mod (PCT.Symbol) = NIL
    oldWith (BOOLEAN) = FALSE
    oldWithGuard (PCT.Symbol) = NIL
    oldWithScope (PCT.Scope) = NIL
    idx (LONGINT) = 0 = 000000000H
    proc (PCT.Proc) = NIL
    procScope (PCT.ProcScope) = - Recovered - Recovered

Best regards,
Dan Parnete


More information about the Oberon mailing list