DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦dc5b5fba8⟧ M200

    Length: 23552 (0x5c00)
    Types: M200
    Notes: M200_PROGRAM
    Names: »CLI.M200«, »PROGRAM_1.M200«

Derivation

└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »CLI.M200« 
    └─ ⟦this⟧ »CLI.M200« 
    └─ ⟦this⟧ »PROGRAM_1.M200« 
    └─ ⟦this⟧ »PROGRAM_1.M200« 

Disassembly

0x203b0


@ 203b0
        <LVAR  0x010 1(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x008 @ 1(r)>
    <POP 203b0-20412 Body>                                              
        <POP 203b0-203c6 Prologue>                           Σ0         ↓
        <POP 203c6-203ca RegCacheLoad>                       Σ0         ↓
        <POP 203ca-203fa Naked>                              Σ0         ↓ →0x20404
            <MI 203ca  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Const 0x203ce 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[##0]}
            <MI 203d2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']}
            <Pointer.fp 0x203d6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]}
            <Pointer.fp 0x203d8 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
            <Call 0x203dc 0x24f88>                                              {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
            <POP 203e2-203e6 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x203e6 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x203ea 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 203f0-203f2 StackAdj>                       Δ+4                {}
            <MI 203f2  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 203f4  CMPA.W  #0x1,A0>                                         {}
            <MI 203f8  BEQ     0x20404>                                         {}
        <POP 203fa-20404 Naked>                              Σ0         ↓
            <Pointer.fp 0x203fa <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x203fc 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 20402-20404 StackAdj>                       Δ+4                {}
        <POP 20404-2040a Naked>                              Σ0         ↓ ←0x203ca
            <MI 20404  MOVE.B  (A6-0x8),(A6+0x10)>                              {}
        <POP 2040a-20412 Epilogue>                           Σ0         

0x20412


@ 20412
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @>
    <POP 20412-20470 Body>                                              
        <POP 20412-20428 Prologue>                           Σ0         ↓
        <POP 20428-2042c RegCacheLoad>                       Σ0         ↓
        <POP 2042c-2044c Naked>                              Σ0         ↓ →0x20468
            <MI 2042c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 20430  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0x8)']|[#0]}
            <MI 20432  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0x8)']|[#0]|[#0]}
            <Const 0x20434 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x20438 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]}
            <Pointer.fp 0x2043a <LVAR -0x008 @>>             Δ-4                {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
            <Call 0x2043e 0x10380>                                              {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20444-20448 StackAdj>                       Δ+20               {}
            <MI 20448  TST.B   (A6-0x4)>                                        {}
            <MI 2044a  BNE     0x20468>                                         {}
        <POP 2044c-20468 Naked>                              Σ0         ↓
            <Const 0x2044c 0x2.2>                            Δ-2                {[#2]}
            <Const 0x20450 0x1.2>                            Δ-2                {[#2]|[#1]}
            <Const 0x20454 0x1.4>                            Δ-4                {[#2]|[#1]|[##1]}
            <Pointer.fp 0x20458 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x2045a <LVAR -0x008 @>>             Δ-4                {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
            <Call 0x2045e 0x1038c>                                              {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20464-20468 StackAdj>                       Δ+16               {}
        <POP 20468-20470 Epilogue>                           Σ0         ←0x2042c

0x20470


@ 20470
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x404 @>
        <LVAR -0x410 @ 4(r)>
        <LVAR -0x414 @ 4(r)>
        <LVAR -0x418 @ 4(rw)>
        <LVAR -0x41c @ 4(rw)>
    <POP 20470-20656 Body>                                   Δ-8        
        <POP 20470-20486 Prologue>                           Σ0         ↓
        <POP 20486-2049a RegCacheLoad>                       Σ0         ↓
        <POP 2049a-20506 Naked>                              Σ0 Δ-2     ↓ →0x2050a
            <MI 2049a  LEA.L   (A6-0x404),A0>                                   {}
            <MI 2049e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 204a0  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <Blob 0x204a2 [10] @>                            Δ-10               {[«10""»]}
            <MI 204ae  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x204b0 0x2.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##2]}
            <Call 0x204b4 0x2216a>                                              {[«10""»]|[4, '(A6+0x8)']|[##2]}
            <POP 204ba-204be StackAdj>                       Δ+10               {[-8-]}
            <MI 204be  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x204c0 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x204c4 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 204ca-204cc StackAdj>                       Δ+8                {[-4-]}
            <MI 204cc  MOVE.L  (A7),(A6-0x41c)>                                 {[-4-]}
            <MI 204d0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x204d2 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x204d6 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 204dc-204de StackAdj>                       Δ+8                {[-4-]}
            <MI 204de  MOVE.L  (A7)+,(A6-0x418)>             Δ+4                {}
            <Blob 0x204e2 [2] @>                             Δ-2                {[«2""»]}
            <POP 204e6-204e8 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 204e8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 204ea-204ec StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x204ec 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
            <Call 0x204fc 0x203b0>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
            <POP 20500-20502 StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 20502  TST.B   (A7)+>                        Δ+2                {[«2""»]}
            <MI 20504  BEQ     0x2050a>                                         {[«2""»]}
        <POP 20506-2050a Naked>                              Σ-2        →0x2050c
            <MI 20506  MOVEQ.L #0x01,D6>                                        {[-2-]}
            <MI 20508  BRA     0x2050c>                                         {[-2-]}
        <POP 2050a-2050c Naked>                              Σ-2        ↓ ←0x2049a
            <MI 2050a  MOVEQ.L #0x02,D6>                                        {[-2-]}
        <POP 2050c-2052a Naked>                              Σ-2 Δ+2    ↓ →0x2052e ←0x20506
            <POP 2050c-2050e StackAdj>                       Δ+2                {}
            <MI 2050e  MOVE.L  (A6-0x41c),-(A7)>             Δ-4                {[4, '(A6-0x41c)']}
            <MI 20512  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x41c)']|[#0]}
            <Const 0x20514 0x1.2>                            Δ-2                {[4, '(A6-0x41c)']|[#0]|[#1]}
            <Const 0x20516 0x0.4>                            Δ-4                {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x2051a <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]}
            <Pointer.fp 0x2051c <LVAR -0x414 @ 4(r)>>        Δ-4                {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]|[@@-1044]}
            <Call 0x2051e 0x10380>                                              {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]|[@@-1044]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20524-20526 StackAdj>                       Δ+20               {}
            <MI 20526  TST.B   (A6-0x4)>                                        {}
            <MI 20528  BEQ     0x2052e>                                         {}
        <POP 2052a-2052e Naked>                              Σ0         →0x20636
            <MI 2052a  BRA     0x20636>                                         {}
        <POP 2052e-20558 Naked>                              Σ0         ↓ →0x2055c ←0x2050c
            <MI 2052e  MOVE.L  (A6-0x418),-(A7)>             Δ-4                {[4, '(A6-0x418)']}
            <MI 20532  MOVE.B  D6,D0>                                           {[4, '(A6-0x418)']}
            <MI 20534  EXTB.W  D0>                                              {[4, '(A6-0x418)']}
            <POP 0x20536 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[4, '(A6-0x418)']}
            <MI 20538  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x418)']|[2, 'D0']}
            <Const 0x2053a 0x1.2>                            Δ-2                {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
            <MI 2053c  MOVEA.L (A6-0x414),A0>                                   {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
            <MI 2053e  MOVE.W  (A0+0x20),D0>                                    {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
            <MI 20542  EXTW.L  D0>                                              {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
            <MI 20544  MOVE.L  D0,-(A7)>                     Δ-4                {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']}
            <Pointer.fp 0x20546 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]}
            <Pointer.fp 0x20548 <LVAR -0x410 @ 4(r)>>        Δ-4                {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]|[@@-1040]}
            <Call 0x2054c 0x10380>                                              {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]|[@@-1040]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20552-20554 StackAdj>                       Δ+20               {}
            <MI 20554  TST.B   (A6-0x4)>                                        {}
            <MI 20556  BEQ     0x2055c>                                         {}
        <POP 20558-2055c Naked>                              Σ0         →0x20622
            <MI 20558  BRA     0x20622>                                         {}
        <POP 2055c-205ac Naked>                              Σ0 Δ-4     ↓ ←0x2052e
            <MI 2055c  MOVEA.L (A6-0x410),A0>                                   {}
            <MI 20560  MOVEA.L (A6-0x414),A1>                                   {}
            <MI 20562  MOVE.B  (A1+0x3a),(A0+0x3a)>                             {}
            <MI 20568  MOVE.B  (A1+0x3b),(A0+0x3b)>                             {}
            <MI 2056e  MOVE.B  (A1+0x3c),(A0+0x3c)>                             {}
            <MI 20574  MOVE.B  (A1+0x3d),(A0+0x3d)>                             {}
            <MI 2057a  MOVE.B  (A1+0x3f),D0>                                    {}
            <MI 2057e  ANDI.B  #0xfd,(A0+0x3f)>                                 {}
            <MI 20584  AND.B   #0x02,D0>                                        {}
            <MI 20586  OR.B    D0,(A0+0x3f)>                                    {}
            <MI 2058a  MOVE.B  (A1+0x3f),D0>                                    {}
            <MI 2058e  ANDI.B  #0xfb,(A0+0x3f)>                                 {}
            <MI 20594  ANDI.B  #0x04,D0>                                        {}
            <MI 20598  OR.B    D0,(A0+0x3f)>                                    {}
            <MI 2059c  MOVE.B  #0x01,(A0+0x4c)>                                 {}
            <MI 205a0  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 205a4  SUBQ.W  #0x1,D0>                                         {}
            <MI 205a6  EXTW.L  D0>                                              {}
            <MI 205a8  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 205aa  MOVEQ.L #0x00,D7>                                        {[4, 'D0']}
        <POP 205ac-205b0 Naked>                              Σ-4        ↓ →0x2060a ←0x20606
            <MI 205ac  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 205ae  BGT     0x2060a>                                         {[-4-]}
        <POP 205b0-205d6 Naked>                              Σ-4        ↓ →0x205da
            <MI 205b0  MOVE.L  (A6-0x414),-(A7)>             Δ-4                {[-4-]|[4, '(A6-0x414)']}
            <POP 0x205b2 LimitCheck 0x0 ≤ D7 ≤ 0x4000>                          {[-4-]|[4, '(A6-0x414)']}
            <MI 205bc  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x414)']|[2, 'D7']}
            <MI 205be  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]}
            <Const 0x205c0 0x200.2>                          Δ-2                {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]}
            <Const 0x205c4 0x1.2>                            Δ-2                {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]}
            <MI 205c6  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']}
            <Pointer.fp 0x205c8 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
            <Call 0x205ca 0x10384>                                              {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 205d0-205d2 StackAdj>                       Δ+20               {[-4-]}
            <MI 205d2  TST.B   (A6-0x4)>                                        {[-4-]}
            <MI 205d4  BEQ     0x205da>                                         {[-4-]}
        <POP 205d6-205da Naked>                              Σ-4 Δ+4    →0x2060c
            <POP 205d6-205d8 StackAdj>                       Δ+4                {}
            <MI 205d8  BRA     0x2060c>                                         {}
        <POP 205da-20602 Naked>                              Σ-4        ↓ →0x20606 ←0x205b0
            <MI 205da  MOVE.L  (A6-0x410),-(A7)>             Δ-4                {[-4-]|[4, '(A6-0x410)']}
            <POP 0x205de LimitCheck 0x0 ≤ D7 ≤ 0x4000>                          {[-4-]|[4, '(A6-0x410)']}
            <MI 205e8  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x410)']|[2, 'D7']}
            <MI 205ea  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]}
            <Const 0x205ec 0x200.2>                          Δ-2                {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]}
            <Const 0x205f0 0x1.2>                            Δ-2                {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]}
            <MI 205f2  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']}
            <Pointer.fp 0x205f4 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
            <Call 0x205f6 0x10388>                                              {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 205fc-205fe StackAdj>                       Δ+20               {[-4-]}
            <MI 205fe  TST.B   (A6-0x4)>                                        {[-4-]}
            <MI 20600  BEQ     0x20606>                                         {[-4-]}
        <POP 20602-20606 Naked>                              Σ-4 Δ+4    →0x2060c
            <POP 20602-20604 StackAdj>                       Δ+4                {}
            <MI 20604  BRA     0x2060c>                                         {}
        <POP 20606-2060a Naked>                              Σ-4        ↓ →0x205ac ←0x205da
            <MI 20606  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 20608  BVC     0x205ac>                                         {[-4-]}
        <POP 2060a-2060c Naked>                              Σ-4 Δ+4    ↓ ←0x205ac
            <POP 2060a-2060c StackAdj>                       Δ+4                {}
        <POP 2060c-20622 Naked>                              Σ0         ↓ ←0x205d6 ←0x20602
            <MI 2060c  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2060e 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x20610 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x20614 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x20616 <LVAR -0x410 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
            <Call 0x2061a 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20620-20622 StackAdj>                       Δ+16               {}
        <POP 20622-20636 Naked>                              Σ0         ↓ ←0x20558
            <MI 20622  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20624 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x20626 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x2062a <LVAR -0x004 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x2062c <LVAR -0x414 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
            <Call 0x2062e 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20634-20636 StackAdj>                       Δ+16               {}
        <POP 20636-2064e Naked>                              Σ0         ↓ ←0x2052a
            <Pointer.fp 0x20636 <LVAR -0x41c @ 4(rw)>>       Δ-4                {[@@-1052]}
            <Call 0x2063a 0x102bc>                                              {[@@-1052]}
                FreeString(VAR a : String)
            <POP 20640-20642 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20642 <LVAR -0x418 @ 4(rw)>>       Δ-4                {[@@-1048]}
            <Call 0x20646 0x102bc>                                              {[@@-1048]}
                FreeString(VAR a : String)
            <POP 2064c-2064e StackAdj>                       Δ+4                {}
        <POP 2064e-20656 Epilogue>                           Σ0         

0x20656


@ 20656
        <LVAR  0x008 4(r)>
        <LVAR -0x00a 1(rw)>
        <LVAR -0x00c @ 1(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 20656-207ea Body>                                   Δ-4        
        <POP 20656-2066c Prologue>                           Σ0         ↓
        <POP 2066c-2067e RegCacheLoad>                       Σ0         ↓
        <POP 2067e-206da Naked>                              Σ0 Δ-4     ↓
            <Blob 0x2067e [2] @>                             Δ-2                {[«2""»]}
            <POP 20682-20684 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 20684  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 20686-20688 StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20688 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
            <Call 0x20694 0x203b0>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
            <POP 20698-2069a StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 2069a  MOVE.B  (A7)+,D0>                     Δ+2                {[«2""»]}
            <MI 2069c  EXTB.W  D0>                                              {[«2""»]}
            <POP 0x2069e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«2""»]}
            <POP 206a0-206a2 StackAdj>                       Δ+2                {}
            <MI 206a2  MOVE.B  D0,D5>                                           {}
            <Blob 0x206a4 [2] @>                             Δ-2                {[«2""»]}
            <POP 206a8-206aa StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 206aa  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 206ac-206ae StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x206ae 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$C ]}
            <Call 0x206ba 0x203b0>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$C ]}
            <POP 206be-206c0 StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 206c0  MOVE.B  (A7)+,D0>                     Δ+2                {[«2""»]}
            <MI 206c2  EXTB.W  D0>                                              {[«2""»]}
            <POP 0x206c4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«2""»]}
            <POP 206c6-206c8 StackAdj>                       Δ+2                {}
            <MI 206c8  MOVE.B  D0,(A6-0xa)>                                     {}
            <POP 206cc-206ce StackAdj>                       Δ-4                {[-4-]}
            <MI 206ce  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x206d0 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 206d6-206d8 StackAdj>                       Δ+4                {[-4-]}
            <MI 206d8  MOVEQ.L #0x01,D6>                                        {[-4-]}
        <POP 206da-206e0 Naked>                              Σ-4        ↓ →0x207e0 ←0x207d8
            <MI 206da  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 206dc  BGT     0x207e0>                                         {[-4-]}
        <POP 206e0-20700 Naked>                              Σ-4        ↓
            <POP 206e0-206e2 StackAdj>                       Δ-4                {[-8-]}
            <MI 206e2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 206e4  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x206e6 0x22a50>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 206ec-206ee StackAdj>                       Δ+8                {[-8-]}
            <MI 206ee  MOVEA.L (A7)+,A4>                     Δ+4                {[-4-]}
            <Const 0x206f0 0x1.2>                            Δ-2                {[-4-]|[#1]}
            <MI 206f2  MOVE.L  A4,-(A7)>                     Δ-4                {[-4-]|[#1]|[4, 'A4']}
            <Pointer.fp 0x206f4 <LVAR -0x010 @ 4(r)>>        Δ-4                {[-4-]|[#1]|[4, 'A4']|[@@-16]}
            <Call 0x206f8 0x10458>                                              {[-4-]|[#1]|[4, 'A4']|[@@-16]}
                DirFirst(MOD c : Bool; a : String; VAR b : File)
            <POP 206fe-20700 StackAdj>                       Δ+10               {[-4-]}
        <POP 20700-2070c Naked>                              Σ-4 Δ-4    ↓ →0x207d8 ←0x207c0
            <MI 20700  MOVEA.L (A6-0x10),A0>                                    {[-4-]}
            <MI 20704  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <MI 20706  CMPA.W  #0x01,A0>                                        {[-4-]|[4, 'A0']}
            <MI 20708  BEQ     0x207d8>                                         {[-4-]|[4, 'A0']}
        <POP 2070c-20712 Naked>                              Σ-8        ↓ →0x20716
            <MI 2070c  TST.B   (A6-0xa)>                                        {[-8-]}
            <MI 20710  BNE     0x20716>                                         {[-8-]}
        <POP 20712-20716 Naked>                              Σ-8        →0x20744
            <MI 20712  MOVEQ.L #0x01,D7>                                        {[-8-]}
            <MI 20714  BRA     0x20744>                                         {[-8-]}
        <POP 20716-20744 Naked>                              Σ-8        ↓ ←0x2070c
            <POP 20716-20718 StackAdj>                       Δ-30               {[-38-]}
            <MI 20718  MOVEA.L A7,A1>                                           {[-38-]}
            <BlockMove 30,A0,A1>                                                {[-38-]}
            <POP 20722-20724 StackAdj>                       Δ-6                {[-44-]}
            <Lit 0x20724>                                                       {[-40-]|[$$…]}
                <Pointer.sp 0x20724 6>                       Δ-4        
                <Const 0x20728 0x1.2>                        Δ-2        
                <Const 0x2072a 0x1e.2>                       Δ-2        
                <Call 0x2072c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2072e-20730 StackAdj>                   Δ+8        
            <POP 2072e-20730 StackAdj>                       Δ-2                {[-40-]|[$$…]|[-2-]}
            <MI 20730  CLR.B   (A7)>                                            {[-40-]|[$$…]|[-2-]}
            <Call 0x20732 0x103f0>                                              {[-40-]|[$$…]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20738-2073a StackAdj>                       Δ+6                {[-40-]}
            <MI 2073a  MOVE.B  (A7)+,D0>                     Δ+2                {[-38-]}
            <MI 2073c  EXTB.W  D0>                                              {[-38-]}
            <POP 0x2073e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-38-]}
            <POP 20740-20742 StackAdj>                       Δ+30               {[-8-]}
            <MI 20742  MOVE.B  D0,D7>                                           {[-8-]}
        <POP 20744-20748 Naked>                              Σ-8        ↓ →0x207c0 ←0x20712
            <MI 20744  TST.B   D7>                                              {[-8-]}
            <MI 20746  BEQ     0x207c0>                                         {[-8-]}
        <POP 20748-2074c Naked>                              Σ-8        ↓ →0x2079c
            <MI 20748  TST.B   D5>                                              {[-8-]}
            <MI 2074a  BEQ     0x2079c>                                         {[-8-]}
        <POP 2074c-2079c Naked>                              Σ-8        ↓
            <Blob 0x2074c [12] @>                            Δ-12               {[-8-]|[«12""»]}
            <MI 2075e  MOVEA.L (A7+0xc),A0>                                     {[-8-]|[«12""»]}
            <POP 20762-20764 StackAdj>                       Δ-30               {[-8-]|[«12""»]|[-30-]}
            <MI 20764  MOVEA.L A7,A1>                                           {[-8-]|[«12""»]|[-30-]}
            <BlockMove 30,A0,A1>                                                {[-8-]|[«12""»]|[-30-]}
            <POP 2076e-20770 StackAdj>                       Δ-8                {[-8-]|[«12""»]|[-38-]}
            <Lit 0x20770 11>                                                    {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]}
            <POP 2077c-2077e StackAdj>                       Δ-4                {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[-4-]}
            <Lit 0x2077e>                                                       {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[$$…]}
                <Pointer.sp 0x2077e 12>                      Δ-4        
                <Const 0x20782 0x1.2>                        Δ-2        
                <Const 0x20784 0x1e.2>                       Δ-2        
                <Call 0x20786 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20788-2078a StackAdj>                   Δ+8        
            <Call 0x2078a 0x102d0>                                              {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 20790-20792 StackAdj>                       Δ+8                {[-8-]|[«12""»]|[-34-]}
            <Call 0x20792 0x103e0>                                              {[-8-]|[«12""»]|[-34-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20798-2079c StackAdj>                       Δ+46               {[-8-]}
        <POP 2079c-207be Naked>                              Σ-8        ↓ →0x207c0 ←0x20748
            <Const 0x2079c 0x2.2>                            Δ-2                {[-8-]|[#2]}
            <Const 0x2079e 0x1.2>                            Δ-2                {[-8-]|[#2]|[#1]}
            <Const 0x207a0 0x1.4>                            Δ-4                {[-8-]|[#2]|[#1]|[##1]}
            <Pointer.fp 0x207a4 <LVAR -0x00c @ 1(r)>>        Δ-4                {[-8-]|[#2]|[#1]|[##1]|[@@-12]}
            <Pointer.fp 0x207a8 <LVAR -0x010 @ 4(r)>>        Δ-4                {[-8-]|[#2]|[#1]|[##1]|[@@-12]|[@@-16]}
            <Call 0x207ac 0x1038c>                                              {[-8-]|[#2]|[#1]|[##1]|[@@-12]|[@@-16]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 207b2-207b6 StackAdj>                       Δ+16               {[-8-]}
            <MI 207b6  MOVEQ.L #0x00,D7>                                        {[-8-]}
            <MI 207b8  TST.B   (A6-0xc)>                                        {[-8-]}
            <MI 207bc  BNE     0x207c0>                                         {[-8-]}
        <POP 207be-207c0 Naked>                              Σ-8        ↓
            <MI 207be  ADDQ.B  #0x1,D7>                                         {[-8-]}
        <POP 207c0-207d8 Naked>                              Σ-8 Δ+4    →0x20700 ←0x20744 ←0x2079c
            <MI 207c0  MOVE.B  D7,D0>                                           {[-8-]}
            <MI 207c2  EXTB.W  D0>                                              {[-8-]}
            <POP 0x207c4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-8-]}
            <MI 207c6  MOVE.B  D0,-(A7)>                     Δ-2                {[-8-]|[2, 'D0']}
            <Pointer.fp 0x207c8 <LVAR -0x010 @ 4(r)>>        Δ-4                {[-8-]|[2, 'D0']|[@@-16]}
            <Call 0x207cc 0x1045c>                                              {[-8-]|[2, 'D0']|[@@-16]}
                DirNext(MOD a : Bool; VAR b : File)
            <POP 207d2-207d4 StackAdj>                       Δ+10               {[-4-]}
            <MI 207d4  BRA     0x20700>                                         {[-4-]}
        <POP 207d8-207e0 Naked>                              Σ-8 Δ+4    ↓ →0x206da ←0x20700
            <POP 207d8-207da StackAdj>                       Δ+4                {[-4-]}
            <MI 207da  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 207dc  BVC     0x206da>                                         {[-4-]}
        <POP 207e0-207e2 Naked>                              Σ-4 Δ+4    ↓ ←0x206da
            <POP 207e0-207e2 StackAdj>                       Δ+4                {}
        <POP 207e2-207ea Epilogue>                           Σ0         

0x207ea


@ 207ea
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00c @ 1(r)>
        <LVAR -0x010 @>
    <POP 207ea-208ce Body>                                              
        <POP 207ea-20800 Prologue>                           Σ0         ↓
        <POP 20800-20812 RegCacheLoad>                       Σ0         ↓
        <POP 20812-20874 Naked>                              Σ0 Δ-2     ↓ →0x2087c
            <Blob 0x20812 [10] @>                            Δ-10               {[«10""»]}
            <MI 2081e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x20820 0x2.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##2]}
            <Call 0x20824 0x2216a>                                              {[«10""»]|[4, '(A6+0x8)']|[##2]}
            <POP 2082a-2082e StackAdj>                       Δ+10               {[-8-]}
            <MI 2082e  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x20830 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x20834 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 2083a-2083c StackAdj>                       Δ+8                {[-4-]}
            <MI 2083c  MOVE.L  (A7),(A6-0xa)>                                   {[-4-]}
            <MI 2083e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x20840 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x20844 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 2084a-2084c StackAdj>                       Δ+8                {[-4-]}
            <MI 2084c  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <Blob 0x2084e [2] @>                             Δ-2                {[«2""»]}
            <POP 20852-20854 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 20854  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 20856-20858 StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20858 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
            <Call 0x2086a 0x203b0>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
            <POP 2086e-20870 StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 20870  TST.B   (A7)+>                        Δ+2                {[«2""»]}
            <MI 20872  BEQ     0x2087c>                                         {[«2""»]}
        <POP 20874-2087c Naked>                              Σ-2        ↓
            <MI 20874  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Call 0x20876 0x20412>                                              {[-2-]|[4, '(A6-0x6)']}
            <POP 2087a-2087c StackAdj>                       Δ+4                {[-2-]}
        <POP 2087c-2089c Naked>                              Σ-2 Δ+2    ↓ →0x208b2 ←0x20812
            <POP 2087c-2087e StackAdj>                       Δ+2                {}
            <MI 2087e  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <MI 20880  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xa)']|[#0]}
            <Const 0x20882 0x1.2>                            Δ-2                {[4, '(A6-0xa)']|[#0]|[#1]}
            <Const 0x20884 0x0.4>                            Δ-4                {[4, '(A6-0xa)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x20888 <LVAR -0x00c @ 1(r)>>        Δ-4                {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]}
            <Pointer.fp 0x2088a <LVAR -0x010 @>>             Δ-4                {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]|[@@-16]}
            <Call 0x2088e 0x10380>                                              {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]|[@@-16]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20894-20898 StackAdj>                       Δ+20               {}
            <MI 20898  TST.B   (A6-0xc)>                                        {}
            <MI 2089a  BNE     0x208b2>                                         {}
        <POP 2089c-208b2 Naked>                              Σ0         ↓
            <Const 0x2089c 0x1.2>                            Δ-2                {[#1]}
            <Const 0x2089e 0x1.2>                            Δ-2                {[#1]|[#1]}
            <MI 208a0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#1]|[#1]|[4, '(A6-0x6)']}
            <Pointer.fp 0x208a2 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]}
            <Pointer.fp 0x208a4 <LVAR -0x010 @>>             Δ-4                {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]|[@@-16]}
            <Call 0x208a8 0x1038c>                                              {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]|[@@-16]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 208ae-208b2 StackAdj>                       Δ+16               {}
        <POP 208b2-208c6 Naked>                              Σ0         ↓ ←0x2087c
            <Pointer.fp 0x208b2 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x208b4 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 208ba-208bc StackAdj>                       Δ+4                {}
            <Pointer.fp 0x208bc <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x208be 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 208c4-208c6 StackAdj>                       Δ+4                {}
        <POP 208c6-208ce Epilogue>                           Σ0         

0x208ce


@ 208ce
        <LVAR -0x004 @>
    <POP 208ce-209a4 Body>                                              
        <POP 208ce-208e4 Prologue>                           Σ0         ↓
        <POP 208e4-208ee RegCacheLoad>                       Σ0         ↓
        <POP 208ee-20900 Naked>                              Σ0         ↓ →0x20926
            <POP 208ee-208f0 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x208f0 0x103f8>                                              {[-4-]}
                GetConsoleConfig() : Long
            <MI 208f6  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 208f8  CMPI.L  #0x00000003,D0>                                  {}
            <MI 208fe  BNE     0x20926>                                         {}
        <POP 20900-20926 Naked>                              Σ0         →0x2099c
            <Blob 0x20900 [22] @>                            Δ-22               {[«22""»]}
            <POP 2090c-2090e StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x2090e 22>                                                    {[«22""»]|[$$Already in REMOTE mode]}
            <Call 0x2091a 0x103e0>                                              {[«22""»]|[$$Already in REMOTE mode]}
                WriteConsoleStringCrLf(str : String)
            <POP 20920-20924 StackAdj>                       Δ+26               {}
            <MI 20924  BRA     0x2099c>                                         {}
        <POP 20926-2093e Naked>                              Σ0 Δ-2     ↓ →0x20970 ←0x208ee
            <POP 20926-20928 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20928 0x180.4>                          Δ-4                {[-2-]|[##384]}
            <Call 0x2092c 0x10592>                                              {[-2-]|[##384]}
                ReadConfig(where : Long) : Word
            <POP 20932-20934 StackAdj>                       Δ+4                {[-2-]}
            <MI 20934  MOVE.B  (A7+0x1),D0>                                     {[-2-]}
            <MI 20938  CMPI.B  #0x58,D0>                                        {[-2-]}
            <MI 2093c  BNE     0x20970>                                         {[-2-]}
        <POP 2093e-20970 Naked>                              Σ-2        →0x2099a
            <Blob 0x2093e [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <Blob 0x20942 [2] @>                             Δ-2                {[-2-]|[«2""»]|[«2""»]}
            <Blob 0x20946 [2] @>                             Δ-2                {[-2-]|[«2""»]|[«2""»]|[«2""»]}
            <POP 2094a-2094c StackAdj>                       Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2094c 6>                                                     {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]}
            <Const 0x2095a 0x1.4>                            Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]}
            <Const 0x2095e 0x1.2>                            Δ-2                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]}
            <Pointer.fp 0x20960 <LVAR -0x004 @>>             Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
            <Call 0x20964 0x103b0>                                              {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2096a-2096e StackAdj>                       Δ+20               {[-2-]}
            <MI 2096e  BRA     0x2099a>                                         {[-2-]}
        <POP 20970-2099a Naked>                              Σ-2        ↓ ←0x20926
            <Blob 0x20970 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x20974 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <POP 20978-2097a StackAdj>                       Δ-4                {[-2-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2097a 8>                                                     {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]}
            <Const 0x20988 0x1.4>                            Δ-4                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]}
            <Const 0x2098c 0x1.2>                            Δ-2                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]}
            <Pointer.fp 0x2098e <LVAR -0x004 @>>             Δ-4                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
            <Call 0x20992 0x103b0>                                              {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20998-2099a StackAdj>                       Δ+22               {[-2-]}
        <POP 2099a-2099c Naked>                              Σ-2 Δ+2    ↓ ←0x2093e
            <POP 2099a-2099c StackAdj>                       Δ+2                {}
        <POP 2099c-209a4 Epilogue>                           Σ0         ←0x20900

0x209a4


@ 209a4
    <POP 209a4-20a16 Body>                                              
        <POP 209a4-209ba Prologue>                           Σ0         ↓
        <POP 209ba-209bc RegCacheLoad>                       Σ0         ↓
        <POP 209bc-209ca Naked>                              Σ0         ↓ →0x209fc
            <POP 209bc-209be StackAdj>                       Δ-4                {[-4-]}
            <Call 0x209be 0x103f8>                                              {[-4-]}
                GetConsoleConfig() : Long
            <MI 209c4  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 209c6  CMP.L   #0x01,D0>                                        {}
            <MI 209c8  BNE     0x209fc>                                         {}
        <POP 209ca-209fc Naked>                              Σ0         →0x20a0e
            <Blob 0x209ca [22] @>                            Δ-22               {[«22""»]}
            <POP 209dc-209de StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x209de 21>                                                    {[«22""»]|[$$Already in LOCAL mode]}
            <Call 0x209f0 0x103e0>                                              {[«22""»]|[$$Already in LOCAL mode]}
                WriteConsoleStringCrLf(str : String)
            <POP 209f6-209fa StackAdj>                       Δ+26               {}
            <MI 209fa  BRA     0x20a0e>                                         {}
        <POP 209fc-20a0e Naked>                              Σ0         ↓ ←0x209bc
            <Call 0x209fc 0x10216>                                              {}
                KC0b
            <Const 0x20a02 0x1.4>                            Δ-4                {[##1]}
            <Call 0x20a06 0x103f4>                                              {[##1]}
                SetConsoleConfig(a : Long)
            <POP 20a0c-20a0e StackAdj>                       Δ+4                {}
        <POP 20a0e-20a16 Epilogue>                           Σ0         ←0x209ca

0x20a16


@ 20a16
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 20a16-20a72 Body>                                   Δ+4        
        <POP 20a16-20a2c Prologue>                           Σ0         ↓
        <POP 20a2c-20a34 RegCacheLoad>                       Σ0         ↓
        <POP 20a34-20a52 Naked>                              Σ0         ↓ →0x20a5c ←0x20a64
            <Pointer.fp 0x20a34 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x20a36 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <MI 20a3c  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Pointer.fp 0x20a40 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[@@-8]}
            <Pointer.fp 0x20a42 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[@@-8]|[@@-4]}
            <Call 0x20a44 0x1043c>                                              {[4, '(A6+0x8)']|[@@-8]|[@@-4]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 20a4a-20a4e StackAdj>                       Δ+12               {}
            <MI 20a4e  TST.B   (A6-0x4)>                                        {}
            <MI 20a50  BNE     0x20a5c>                                         {}
        <POP 20a52-20a5c Naked>                              Σ0 Δ-4     →0x20a64
            <MI 20a52  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Call 0x20a54 0x103e0>                                              {[4, '(A6-0x8)']}
                WriteConsoleStringCrLf(str : String)
            <MI 20a5a  BRA     0x20a64>                                         {[4, '(A6-0x8)']}
        <POP 20a5c-20a64 Naked>                              Σ0 Δ-4     ↓ ←0x20a34
            <Pointer.fp 0x20a5c <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x20a5e 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
        <POP 20a64-20a6a Naked>                              Σ-4 Δ+4    ↓ →0x20a34 ←0x20a52
            <POP 20a64-20a66 StackAdj>                       Δ+4                {}
            <MI 20a66  TST.B   (A6-0x4)>                                        {}
            <MI 20a68  BEQ     0x20a34>                                         {}
        <POP 20a6a-20a72 Epilogue>                           Σ0         

0x20a72


@ 20a72
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 20a72-20b5a Body>                                              
        <POP 20a72-20a88 Prologue>                           Σ0         ↓
        <POP 20a88-20a92 RegCacheLoad>                       Σ0         ↓
        <POP 20a92-20af8 Naked>                              Σ0         ↓
            <Blob 0x20a92 [10] @>                            Δ-10               {[«10""»]}
            <MI 20a9e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x20aa0 0x1.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <Call 0x20aa4 0x2216a>                                              {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <POP 20aaa-20aac StackAdj>                       Δ+10               {[-8-]}
            <MI 20aac  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x20aae 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x20ab2 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 20ab8-20aba StackAdj>                       Δ+8                {[-4-]}
            <MI 20aba  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x20abc [2] @>                             Δ-2                {[«2""»]}
            <POP 20ac0-20ac2 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 20ac2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 20ac4-20ac6 StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20ac6 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
            <Call 0x20ad8 0x203b0>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
            <POP 20adc-20ade StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 20ade  MOVE.B  (A7)+,D0>                     Δ+2                {[«2""»]}
            <MI 20ae0  EXTB.W  D0>                                              {[«2""»]}
            <POP 0x20ae2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«2""»]}
            <POP 20ae4-20ae6 StackAdj>                       Δ+2                {}
            <MI 20ae6  MOVE.B  D0,D7>                                           {}
            <Const 0x20ae8 0x1.2>                            Δ-2                {[#1]}
            <MI 20aea  MOVE.L  A4,-(A7)>                     Δ-4                {[#1]|[4, 'A4']}
            <Pointer.fp 0x20aec <LVAR -0x008 @ 4(r)>>        Δ-4                {[#1]|[4, 'A4']|[@@-8]}
            <Call 0x20af0 0x10458>                                              {[#1]|[4, 'A4']|[@@-8]}
                DirFirst(MOD c : Bool; a : String; VAR b : File)
            <POP 20af6-20af8 StackAdj>                       Δ+10               {}
        <POP 20af8-20b00 Naked>                              Σ0         ↓ →0x20b52 ←0x20b3a
            <MI 20af8  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 20afc  CMPA.W  #0x01,A0>                                        {}
            <MI 20afe  BEQ     0x20b52>                                         {}
        <POP 20b00-20b04 Naked>                              Σ0         ↓ →0x20b3a
            <MI 20b00  TST.B   D7>                                              {}
            <MI 20b02  BEQ     0x20b3a>                                         {}
        <POP 20b04-20b3a Naked>                              Σ0         ↓
            <Call 0x20b04 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <POP 20b0a-20b0c StackAdj>                       Δ-30               {[-30-]}
            <MI 20b0c  MOVEA.L A7,A1>                                           {[-30-]}
            <MI 20b0e  MOVEA.L A0,A2>                                           {[-30-]}
            <BlockMove 30,A2,A1>                                                {[-30-]}
            <POP 20b18-20b1a StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x20b1a>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x20b1a 4>                       Δ-4        
                <Const 0x20b1e 0x1.2>                        Δ-2        
                <Const 0x20b20 0x1e.2>                       Δ-2        
                <Call 0x20b22 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20b28-20b2a StackAdj>                   Δ+8        
            <Call 0x20b2a 0x103e0>                                              {[-30-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 20b30-20b34 StackAdj>                       Δ+34               {}
            <Call 0x20b34 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 20b3a-20b52 Naked>                              Σ0         →0x20af8 ←0x20b00
            <MI 20b3a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Call 0x20b3c 0x20a16>                                              {[4, 'A0']}
            <POP 20b40-20b42 StackAdj>                       Δ+2                {[-2-]}
            <MI 20b42  CLR.B   (A7)>                                            {[-2-]}
            <Pointer.fp 0x20b44 <LVAR -0x008 @ 4(r)>>        Δ-4                {[-2-]|[@@-8]}
            <Call 0x20b48 0x1045c>                                              {[-2-]|[@@-8]}
                DirNext(MOD a : Bool; VAR b : File)
            <POP 20b4e-20b50 StackAdj>                       Δ+6                {}
            <MI 20b50  BRA     0x20af8>                                         {}
        <POP 20b52-20b5a Epilogue>                           Σ0         ←0x20af8

0x20b5a


@ 20b5a
        <LVAR  0x008 4(r)>
        <LVAR -0x005 @ 1(rw)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x012 @ 4(rw)>
        <LVAR -0x014 @ 1(r)>
        <LVAR -0x018 @ 4(rw)>
        <LVAR -0x01c @ 4(r)>
        <LVAR -0x020 @ 4(rw)>
    <POP 20b5a-20d96 Body>                                              
        <POP 20b5a-20b70 Prologue>                           Σ0         ↓
        <POP 20b70-20b8c RegCacheLoad>                       Σ0         ↓
        <POP 20b8c-20bf8 Naked>                              Σ0         ↓ →0x20bfe
            <Blob 0x20b8c [10] @>                            Δ-10               {[«10""»]}
            <MI 20b98  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x20b9a 0x1.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <Call 0x20b9e 0x2216a>                                              {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <POP 20ba4-20ba6 StackAdj>                       Δ+10               {[-8-]}
            <MI 20ba6  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x20ba8 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x20bac 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 20bb2-20bb4 StackAdj>                       Δ+8                {[-4-]}
            <MI 20bb4  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {}
            <Blob 0x20bb8 [4] @>                             Δ-4                {[«4""»]}
            <POP 20bbc-20bbe StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x20bbe 4>                                                     {[«4""»]|[$$SIZE]}
            <MI 20bcc  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[«4""»]}
            <MI 20bd0  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x20bd2 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[##0]}
            <MI 20bd6  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']}
            <Pointer.fp 0x20bda <LVAR -0x01c @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]}
            <Pointer.fp 0x20bde <LVAR -0x014 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]|[@@-20]}
            <Call 0x20be0 0x24f88>                                              {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]|[@@-20]}
            <POP 20be6-20be8 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x20be8 <LVAR -0x020 @ 4(rw)>>       Δ-4                {[@@-32]}
            <Call 0x20bec 0x102bc>                                              {[@@-32]}
                FreeString(VAR a : String)
            <POP 20bf2-20bf4 StackAdj>                       Δ+4                {}
            <MI 20bf4  TST.B   (A6-0x14)>                                       {}
            <MI 20bf6  BNE     0x20bfe>                                         {}
        <POP 20bf8-20bfe Naked>                              Σ0         →0x20c50
            <MI 20bf8  MOVE.L  #0x01,(A6-0x18)>                                 {}
            <MI 20bfc  BRA     0x20c50>                                         {}
        <POP 20bfe-20c06 Naked>                              Σ0         ↓ →0x20c18 ←0x20b8c
            <MI 20bfe  MOVEA.L (A6-0x1c),A0>                                    {}
            <MI 20c02  CMPA.W  #0x01,A0>                                        {}
            <MI 20c04  BEQ     0x20c18>                                         {}
        <POP 20c06-20c18 Naked>                              Σ0         →0x20c26
            <MI 20c06  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Pointer.fp 0x20c08 <LVAR -0x014 @ 1(r)>>        Δ-4                {[4, 'A0']|[@@-20]}
            <Pointer.fp 0x20c0a <LVAR -0x018 @ 4(rw)>>       Δ-4                {[4, 'A0']|[@@-20]|[@@-24]}
            <Call 0x20c0e 0x102ec>                                              {[4, 'A0']|[@@-20]|[@@-24]}
                String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 20c14-20c16 StackAdj>                       Δ+12               {}
            <MI 20c16  BRA     0x20c26>                                         {}
        <POP 20c18-20c26 Naked>                              Σ0         ↓ ←0x20bfe
            <MI 20c18  CLR.B   (A6-0x14)>                                       {}
            <Pointer.fp 0x20c1a <LVAR -0x01c @ 4(r)>>        Δ-4                {[@@-28]}
            <Call 0x20c1e 0x102bc>                                              {[@@-28]}
                FreeString(VAR a : String)
            <POP 20c24-20c26 StackAdj>                       Δ+4                {}
        <POP 20c26-20c2a Naked>                              Σ0         ↓ →0x20c50 ←0x20c06
            <MI 20c26  TST.B   (A6-0x14)>                                       {}
            <MI 20c28  BNE     0x20c50>                                         {}
        <POP 20c2a-20c50 Naked>                              Σ0         ↓
            <Blob 0x20c2a [32] @>                            Δ-32               {[«32""»]}
            <POP 20c36-20c38 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x20c38 32>                                                    {[«32""»]|[$$/SIZE= requires decimal argument]}
            <Call 0x20c46 0x21d28>                                              {[«32""»]|[$$/SIZE= requires decimal argument]}
            <POP 20c4c-20c50 StackAdj>                       Δ+36               {}
        <POP 20c50-20c78 Naked>                              Σ0 Δ-10    ↓ →0x20c7c ←0x20bf8 ←0x20c26
            <Blob 0x20c50 [10] @>                            Δ-10               {[«10""»]}
            <POP 20c5c-20c5e StackAdj>                       Δ-2                {[«10""»]|[-2-]}
            <MI 20c5e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 20c60-20c62 StackAdj>                       Δ-4                {[«10""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20c62 10>                                                    {[«10""»]|[-2-]|[4, '(A6+0x8)']|[$$CONTIGUOUS]}
            <Call 0x20c6e 0x203b0>                                              {[«10""»]|[-2-]|[4, '(A6+0x8)']|[$$CONTIGUOUS]}
            <POP 20c72-20c74 StackAdj>                       Δ+8                {[«10""»]|[-2-]}
            <MI 20c74  TST.B   (A7)+>                        Δ+2                {[«10""»]}
            <MI 20c76  BEQ     0x20c7c>                                         {[«10""»]}
        <POP 20c78-20c7c Naked>                              Σ-10       ↓
            <MI 20c78  NEG.L   (A6-0x18)>                                       {[-10-]}
        <POP 20c7c-20c9e Naked>                              Σ-10 Δ+8   ↓ →0x20ca2 ←0x20c50
            <POP 20c7c-20c7e StackAdj>                       Δ+8                {[-2-]}
            <POP 20c7e-20c7f StackAdj>                       Δ+2                {}
            <Blob 0x20c7f [2] @>                             Δ-2                {[«2""»]}
            <POP 20c82-20c84 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 20c84  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 20c86-20c88 StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20c88 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
            <Call 0x20c94 0x203b0>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
            <POP 20c98-20c9a StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 20c9a  TST.B   (A7)+>                        Δ+2                {[«2""»]}
            <MI 20c9c  BEQ     0x20ca2>                                         {[«2""»]}
        <POP 20c9e-20ca2 Naked>                              Σ-2        →0x20ca4
            <MI 20c9e  MOVEQ.L #0x01,D7>                                        {[-2-]}
            <MI 20ca0  BRA     0x20ca4>                                         {[-2-]}
        <POP 20ca2-20ca4 Naked>                              Σ-2        ↓ ←0x20c7c
            <MI 20ca2  MOVEQ.L #0x02,D7>                                        {[-2-]}
        <POP 20ca4-20cce Naked>                              Σ-2 Δ+2    ↓ →0x20d82 ←0x20c9e
            <POP 20ca4-20ca6 StackAdj>                       Δ+2                {}
            <MI 20ca6  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0x12)']}
            <MI 20caa  MOVE.B  D7,D0>                                           {[4, '(A6-0x12)']}
            <MI 20cac  EXTB.W  D0>                                              {[4, '(A6-0x12)']}
            <POP 0x20cae LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[4, '(A6-0x12)']}
            <MI 20cb0  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x12)']|[2, 'D0']}
            <Const 0x20cb2 0x1.2>                            Δ-2                {[4, '(A6-0x12)']|[2, 'D0']|[#1]}
            <MI 20cb4  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']}
            <Pointer.fp 0x20cb8 <LVAR -0x006 @ 1(r)>>        Δ-4                {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]}
            <Pointer.fp 0x20cbc <LVAR -0x00a @ 4(r)>>        Δ-4                {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]|[@@-10]}
            <Call 0x20cbe 0x10380>                                              {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]|[@@-10]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20cc4-20cc6 StackAdj>                       Δ+20               {}
            <MI 20cc6  TST.B   (A6-0x6)>                                        {}
            <MI 20cca  BNE     0x20d82>                                         {}
        <POP 20cce-20d00 Naked>                              Σ0 Δ-2     ↓ →0x20d5e
            <MI 20cce  MOVEA.L (A6-0xa),A0>                                     {}
            <MI 20cd0  PEA.L   (A0+0x3a)>                    Δ-4                {[4, '^(A0+0x3a)']}
            <Call 0x20cd4 0x10304>                                              {[4, '^(A0+0x3a)']}
                GetRtc() : TimeStamp
            <POP 20cda-20cdc StackAdj>                       Δ+4                {}
            <MI 20cdc  MOVE.B  #0x01,(A0+0x4c)>                                 {}
            <Blob 0x20ce0 [2] @>                             Δ-2                {[«2""»]}
            <POP 20ce4-20ce6 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 20ce6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 20ce8-20cea StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20cea 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$I ]}
            <Call 0x20cf6 0x203b0>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$I ]}
            <POP 20cfa-20cfc StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 20cfc  TST.B   (A7)+>                        Δ+2                {[«2""»]}
            <MI 20cfe  BEQ     0x20d5e>                                         {[«2""»]}
        <POP 20d00-20d2a Naked>                              Σ-2        ↓ →0x20d3a ←0x20d4c
            <Blob 0x20d00 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <POP 20d04-20d06 StackAdj>                       Δ-8                {[-2-]|[«2""»]|[-8-]}
            <Lit 0x20d06 2>                                                     {[-2-]|[«2""»]|[-4-]|[$$) ]}
            <Call 0x20d12 0x103e4>                                              {[-2-]|[«2""»]|[-4-]|[$$) ]}
                AskConsoleString(prompt : String) : String
            <POP 20d18-20d1a StackAdj>                       Δ+4                {[-2-]|[«2""»]|[-4-]}
            <MI 20d1a  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[-2-]|[«2""»]}
            <POP 20d1e-20d20 StackAdj>                       Δ+2                {[-2-]}
            <MI 20d20  MOVEA.L (A6-0xe),A0>                                     {[-2-]}
            <MI 20d24  MOVE.W  (A0),D0>                                         {[-2-]}
            <MI 20d26  CMP.W   #0x01,D0>                                        {[-2-]}
            <MI 20d28  BNE     0x20d3a>                                         {[-2-]}
        <POP 20d2a-20d34 Naked>                              Σ-2        ↓ →0x20d3a
            <MI 20d2a  MOVE.B  (A0+0x2),D0>                                     {[-2-]}
            <MI 20d2e  CMPI.B  #0x29,D0>                                        {[-2-]}
            <MI 20d32  BNE     0x20d3a>                                         {[-2-]}
        <POP 20d34-20d3a Naked>                              Σ-2        →0x20d4c
            <MI 20d34  MOVE.B  #0x01,(A6-0x5)>                                  {[-2-]}
            <MI 20d38  BRA     0x20d4c>                                         {[-2-]}
        <POP 20d3a-20d4c Naked>                              Σ-2        ↓ ←0x20d00 ←0x20d2a
            <MI 20d3a  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']}
            <MI 20d3c  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
            <Pointer.fp 0x20d40 <LVAR -0x005 @ 1(rw)>>       Δ-4                {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[@@-5]}
            <Call 0x20d44 0x10440>                                              {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[@@-5]}
                FSCALL_10440
            <POP 20d4a-20d4c StackAdj>                       Δ+12               {[-2-]}
        <POP 20d4c-20d5e Naked>                              Σ-2        ↓ →0x20d00 ←0x20d34
            <Pointer.fp 0x20d4c <LVAR -0x00e @ 4(rw)>>       Δ-4                {[-2-]|[@@-14]}
            <Call 0x20d50 0x102bc>                                              {[-2-]|[@@-14]}
                FreeString(VAR a : String)
            <POP 20d56-20d58 StackAdj>                       Δ+4                {[-2-]}
            <MI 20d58  TST.B   (A6-0x5)>                                        {[-2-]}
            <MI 20d5c  BEQ     0x20d00>                                         {[-2-]}
        <POP 20d5e-20d82 Naked>                              Σ-2 Δ+2    ↓ ←0x20cce
            <POP 20d5e-20d60 StackAdj>                       Δ+2                {}
            <MI 20d60  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <Call 0x20d62 0x10448>                                              {[4, '(A6-0xa)']}
                FSCALL_10448
            <POP 20d68-20d6a StackAdj>                       Δ+2                {[-2-]}
            <MI 20d6a  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20d6c 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x20d6e 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x20d72 <LVAR -0x006 @ 1(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-6]}
            <Pointer.fp 0x20d76 <LVAR -0x00a @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-6]|[@@-10]}
            <Call 0x20d78 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-6]|[@@-10]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20d7e-20d82 StackAdj>                       Δ+16               {}
        <POP 20d82-20d8e Naked>                              Σ0         ↓ ←0x20ca4
            <Pointer.fp 0x20d82 <LVAR -0x012 @ 4(rw)>>       Δ-4                {[@@-18]}
            <Call 0x20d86 0x102bc>                                              {[@@-18]}
                FreeString(VAR a : String)
            <POP 20d8c-20d8e StackAdj>                       Δ+4                {}
        <POP 20d8e-20d96 Epilogue>                           Σ0         

0x20d96


@ 20d96
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x010 @ 1(r)>
    <POP 20d96-20e84 Body>                                   Δ+4        
        <POP 20d96-20dac Prologue>                           Σ0         ↓
        <POP 20dac-20db4 RegCacheLoad>                       Σ0         ↓
        <POP 20db4-20dc4 Naked>                              Σ0         ↓ →0x20e30
            <POP 20db4-20db6 StackAdj>                       Δ-4                {[-4-]}
            <MI 20db6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x20db8 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 20dbe-20dc0 StackAdj>                       Δ+4                {[-4-]}
            <MI 20dc0  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 20dc2  BEQ     0x20e30>                                         {}
        <POP 20dc4-20dcc Naked>                              Σ0         ↓ →0x20dce
            <MI 20dc4  CMPI.L  #0x00000002,D7>                                  {}
            <MI 20dca  BEQ     0x20dce>                                         {}
        <POP 20dcc-20dce Naked>                              Σ0         →0x20e4a
            <MI 20dcc  BRA     0x20e4a>                                         {}
        <POP 20dce-20e22 Naked>                              Σ0         ↓ →0x20e24 ←0x20dc4
            <POP 20dce-20dd0 StackAdj>                       Δ-4                {[-4-]}
            <MI 20dd0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x20dd2 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x20dd6 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 20ddc-20dde StackAdj>                       Δ+8                {[-4-]}
            <MI 20dde  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 20de0  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Const 0x20de2 0x20.2>                           Δ-2                {[4, 'A4']|[#32]}
            <Call 0x20de6 0x102c0>                                              {[4, 'A4']|[#32]}
                AppendChar(MOD b : String; a : char)
            <POP 20dec-20dee StackAdj>                       Δ+2                {[4, 'A4']}
            <MI 20dee  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']|[4, 'A4']}
            <POP 20df0-20df2 StackAdj>                       Δ-4                {[4, 'A4']|[4, 'A4']|[-4-]}
            <MI 20df2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']}
            <Const 0x20df4 0x2.4>                            Δ-4                {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x20df8 0x22a50>                                              {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 20dfe-20e00 StackAdj>                       Δ+8                {[4, 'A4']|[4, 'A4']|[-4-]}
            <Call 0x20e00 0x102d0>                                              {[4, 'A4']|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20e06-20e08 StackAdj>                       Δ+8                {[4, 'A4']}
            <MI 20e08  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 20e0a  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Pointer.fp 0x20e0c <LVAR -0x006 @ 4(r)>>        Δ-4                {[4, 'A4']|[@@-6]}
            <Pointer.fp 0x20e0e <LVAR -0x010 @ 1(r)>>        Δ-4                {[4, 'A4']|[@@-6]|[@@-16]}
            <Call 0x20e12 0x10310>                                              {[4, 'A4']|[@@-6]|[@@-16]}
                ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
            <POP 20e18-20e1c StackAdj>                       Δ+12               {}
            <MI 20e1c  TST.B   (A6-0x10)>                                       {}
            <MI 20e20  BNE     0x20e24>                                         {}
        <POP 20e22-20e24 Naked>                              Σ0         →0x20e4a
            <MI 20e22  BRA     0x20e4a>                                         {}
        <POP 20e24-20e2c Naked>                              Σ0 Δ-4     ↓ ←0x20dce
            <MI 20e24  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x20e26 0x1030c>                                              {[4, '(A6-0x6)']}
                SetRtc(a: TimeStamp)
        <POP 20e2c-20e30 Naked>                              Σ-4 Δ+4    →0x20e7c ←0x20e30
            <POP 20e2c-20e2e StackAdj>                       Δ+4                {}
            <MI 20e2e  BRA     0x20e7c>                                         {}
        <POP 20e30-20e4a Naked>                              Σ0 Δ-4     →0x20e2c ←0x20db4
            <Pointer.fp 0x20e30 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x20e32 0x10304>                                              {[@@-6]}
                GetRtc() : TimeStamp
            <MI 20e38  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[@@-6]|[4, '(A6-0x6)']}
            <Call 0x20e3a 0x10308>                                              {[@@-6]|[4, '(A6-0x6)']}
                TimeToText()
            <POP 20e40-20e42 StackAdj>                       Δ+4                {[@@-6]}
            <Call 0x20e42 0x103e0>                                              {[@@-6]}
                WriteConsoleStringCrLf(str : String)
            <MI 20e48  BRA     0x20e2c>                                         {[@@-6]}
        <POP 20e4a-20e7c Naked>                              Σ0         ↓ ←0x20dcc ←0x20e22
            <Blob 0x20e4a [36] @>                            Δ-36               {[«36""»]}
            <POP 20e5c-20e5e StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x20e5e 35>                                                    {[«36""»]|[$$Bad format.  Try HH:MM:SS DD-MMM-YY]}
            <Call 0x20e72 0x103e0>                                              {[«36""»]|[$$Bad format.  Try HH:MM:SS DD-MMM-YY]}
                WriteConsoleStringCrLf(str : String)
            <POP 20e78-20e7c StackAdj>                       Δ+40               {}
        <POP 20e7c-20e84 Epilogue>                           Σ0         ←0x20e2c

0x20e84


@ 20e84
        <LVAR  0x008 4(r)>
    <POP 20e84-21088 Body>                                              
        <POP 20e84-20e9a Prologue>                           Σ0         ↓
        <POP 20e9a-20eaa RegCacheLoad>                       Σ0         ↓
        <POP 20eaa-20fa8 Naked>                              Σ0 Δ-4     ↓
            <MI 20eaa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20eae  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x20eb0 [24] @>                            Δ-24               {[4, 'A0']|[«24""»]}
            <MI 20ec0  CLR.L   D0>                                              {[4, 'A0']|[«24""»]}
            <MI 20ec2  MOVE.B  (A0+0x1f),D0>                                    {[4, 'A0']|[«24""»]}
            <MI 20ec6  LSL.B   #0x7,D0>                                         {[4, 'A0']|[«24""»]}
            <MI 20ec8  LSR.B   #0x7,D0>                                         {[4, 'A0']|[«24""»]}
            <MI 20eca  MULU.W  #0x05,D0>                                        {[4, 'A0']|[«24""»]}
            <MI 20ecc  CLR.L   D1>                                              {[4, 'A0']|[«24""»]}
            <MI 20ece  MOVE.W  D0,D1>                                           {[4, 'A0']|[«24""»]}
            <MI 20ed0  LEA.L   0x20342,A1>                                      {[4, 'A0']|[«24""»]}
            <Blob 0x20ed2 [6] (A1+D1.L)>                     Δ-6                {[4, 'A0']|[«24""»]|[«6»]}
            <Blob 0x20ee2 [4] @>                             Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]}
            <Blob 0x20ee6 [4] @>                             Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]}
            <Blob 0x20eea [4] @>                             Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x20eee [4] @>                             Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20ef2  CLR.L   D0>                                              {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20ef4  MOVE.B  (A0+0x1f),D0>                                    {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20ef8  LSL.B   #0x6,D0>                                         {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20efa  LSR.B   #0x7,D0>                                         {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20efc  MULU.W  #0x05,D0>                                        {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20efe  CLR.L   D1>                                              {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f00  MOVE.W  D0,D1>                                           {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f02  LEA.L   0x20342,A1>                                      {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x20f04 [6] (A1+D1.L)>                     Δ-6                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]}
            <Blob 0x20f14 [4] @>                             Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]}
            <Blob 0x20f18 [4] @>                             Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]}
            <Blob 0x20f1c [4] @>                             Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f20  CLR.L   D0>                                              {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f22  MOVE.B  (A0+0x1f),D0>                                    {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f26  LSL.B   #0x5,D0>                                         {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f28  LSR.B   #0x7,D0>                                         {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f2a  MULU.W  #0x05,D0>                                        {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f2c  CLR.L   D1>                                              {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f2e  MOVE.W  D0,D1>                                           {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20f30  LEA.L   0x20342,A0>                                      {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x20f32 [6] (A0+D1.L)>                     Δ-6                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]}
            <POP 20f42-20f44 StackAdj>                       Δ-8                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-8-]}
            <Lit 0x20f44 23>                                                    {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]}
            <POP 20f50-20f52 StackAdj>                       Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[-4-]}
            <Lit 0x20f52>                                                       {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]}
                <Pointer.sp 0x20f52 52>                      Δ-4        
                <Const 0x20f56 0x1.2>                        Δ-2        
                <Const 0x20f58 0x5.2>                        Δ-2        
                <Call 0x20f5a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20f5c-20f5e StackAdj>                   Δ+8        
            <POP 20f5c-20f5e StackAdj>                       Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[-4-]}
            <Lit 0x20f5e 16>                                                    {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]}
            <POP 20f6a-20f6c StackAdj>                       Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[-4-]}
            <Lit 0x20f6c>                                                       {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]}
                <Pointer.sp 0x20f6c 38>                      Δ-4        
                <Const 0x20f70 0x1.2>                        Δ-2        
                <Const 0x20f72 0x5.2>                        Δ-2        
                <Call 0x20f74 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20f76-20f78 StackAdj>                   Δ+8        
            <POP 20f76-20f78 StackAdj>                       Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[-4-]}
            <Lit 0x20f78 12>                                                    {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]}
            <POP 20f84-20f86 StackAdj>                       Δ-4                {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[-4-]}
            <Lit 0x20f86>                                                       {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[$$…]}
                <Pointer.sp 0x20f86 28>                      Δ-4        
                <Const 0x20f8a 0x1.2>                        Δ-2        
                <Const 0x20f8c 0x5.2>                        Δ-2        
                <Call 0x20f8e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20f90-20f92 StackAdj>                   Δ+8        
            <Call 0x20f92 0x102e0>                                              {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$          PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[$$…]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 20f98-20f9a StackAdj>                       Δ+24               {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]}
            <Call 0x20f9a 0x103e0>                                              {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20fa0-20fa4 StackAdj>                       Δ+74               {[4, 'A0']}
            <MI 20fa4  MOVEQ.L #0x00,D7>                                        {[4, 'A0']}
            <MI 20fa6  MOVEQ.L #0x00,D6>                                        {[4, 'A0']}
        <POP 20fa8-20fc0 Naked>                              Σ-4        ↓ →0x21076 ←0x21076
            <POP 0x20fa8 LimitCheck 0x0 ≤ D6 ≤ 0x5>                             {[-4-]}
            <MI 20fae  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 20fb0  ASL.L   #0x2,D0>                                         {[-4-]}
            <MI 20fb2  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 20fb4  MOVE.W  (A0+D0.L+#0x2),D1>                               {[-4-]}
            <MI 20fb8  EXTW.L  D1>                                              {[-4-]}
            <MI 20fba  CMP.L   D7,D1>                                           {[-4-]}
            <MI 20fbc  BLT     0x21076>                                         {[-4-]}
        <POP 20fc0-21076 Naked>                              Σ-4        ↓
            <Blob 0x20fc0 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <Blob 0x20fd2 [4] @>                             Δ-4                {[-4-]|[«22""»]|[«4""»]}
            <MI 20fd6  ADDQ.W  #0x1,D1>                                         {[-4-]|[«22""»]|[«4""»]}
            <Blob 0x20fd8 [20] @>                            Δ-20               {[-4-]|[«22""»]|[«4""»]|[«20""»]}
            <POP 20fea-20fec StackAdj>                       Δ-8                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-8-]}
            <Lit 0x20fec 21>                                                    {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]}
            <MI 20ff8  MOVE.L  D7,-(A7)>                     Δ-4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']}
            <POP 20ff6-20ff8 StackAdj>                       Δ-8                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[-8-]}
            <MI 20ffa  ADDQ.L  #0x1,(A7)>                                       {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[-8-]}
            <Call 0x20ffc 0x102e4>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 21002-21004 StackAdj>                       Δ+4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[-4-]}
            <Const 0x21004 0x5.4>                            Δ-4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[-4-]|[##5]}
            <Call 0x21008 0x102f8>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[-4-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 2100e-21010 StackAdj>                       Δ+4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[-4-]}
            <Lit 0x21010 4>                                                     {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]}
            <MI 2101c  MOVE.W  D1,D2>                                           {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]}
            <POP 2101a-2101c StackAdj>                       Δ-8                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
            <MI 2101e  EXTW.L  D2>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
            <MI 21020  MOVE.L  D2,-(A7)>                     Δ-4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[4, 'D2']}
            <Call 0x21022 0x102e4>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[4, 'D2']}
                Long2String(a : Long) : String
            <POP 21028-2102a StackAdj>                       Δ+4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
            <Const 0x2102a 0x5.4>                            Δ-4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[##5]}
            <Call 0x2102e 0x102f8>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 21034-21036 StackAdj>                       Δ+4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
            <Lit 0x21036 19>                                                    {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]}
            <MI 21042  CLR.L   D2>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]}
            <POP 21040-21042 StackAdj>                       Δ-8                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
            <MI 21044  MOVE.W  (A0+D0.L+#0x4),D2>                               {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
            <MI 21048  MOVE.L  D2,-(A7)>                     Δ-4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[4, 'D2']}
            <Call 0x2104a 0x102e4>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[4, 'D2']}
                Long2String(a : Long) : String
            <POP 21050-21052 StackAdj>                       Δ+4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
            <Const 0x21052 0x5.4>                            Δ-4                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[##5]}
            <Call 0x21056 0x102f8>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 2105c-2105e StackAdj>                       Δ+8                {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-4-]}
            <Call 0x2105e 0x102e0>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$          File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-4-]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 21064-21066 StackAdj>                       Δ+24               {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]}
            <Call 0x21066 0x103e0>                                              {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2106c-2106e StackAdj>                       Δ+24               {[-4-]|[«22""»]|[«4""»]}
            <MI 2106e  EXTW.L  D1>                                              {[-4-]|[«22""»]|[«4""»]}
            <MI 21070  MOVE.L  D1,D7>                                           {[-4-]|[«22""»]|[«4""»]}
            <POP 21072-21076 StackAdj>                       Δ+26               {[-4-]}
        <POP 21076-2107e Naked>                              Σ-4        ↓ →0x20fa8 ←0x20fa8
            <MI 21076  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 21078  CMP.L   #0x05,D6>                                        {[-4-]}
            <MI 2107a  BLE     0x20fa8>                                         {[-4-]}
        <POP 2107e-21080 Naked>                              Σ-4 Δ+4    ↓
            <POP 2107e-21080 StackAdj>                       Δ+4                {}
        <POP 21080-21088 Epilogue>                           Σ0         

0x21088


@ 21088
        <LVAR  0x008 4(r)>
        <LVAR -0x002 1(rw)>
        <LVAR -0x006 @ 4(r)>
    <POP 21088-2125a Body>                                              
        <POP 21088-2109e Prologue>                           Σ0         ↓
        <POP 2109e-210aa RegCacheLoad>                       Σ0         ↓
        <POP 210aa-210ea Naked>                              Σ0 Δ-4     ↓
            <MI 210aa  MOVEQ.L #0x00,D7>                                        {}
            <MI 210ac  MOVEQ.L #0x00,D6>                                        {}
            <Blob 0x210ae [4] @>                             Δ-4                {[«4""»]}
            <POP 210b2-210b4 StackAdj>                       Δ-2                {[«4""»]|[-2-]}
            <MI 210b4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[-2-]|[4, '(A6+0x8)']}
            <POP 210b8-210ba StackAdj>                       Δ-4                {[«4""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x210ba 4>                                                     {[«4""»]|[-2-]|[4, '(A6+0x8)']|[$$FULL]}
            <Call 0x210c8 0x203b0>                                              {[«4""»]|[-2-]|[4, '(A6+0x8)']|[$$FULL]}
            <POP 210cc-210ce StackAdj>                       Δ+8                {[«4""»]|[-2-]}
            <MI 210ce  MOVE.B  (A7)+,D0>                     Δ+2                {[«4""»]}
            <MI 210d0  EXTB.W  D0>                                              {[«4""»]}
            <POP 0x210d2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«4""»]}
            <POP 210d4-210d6 StackAdj>                       Δ+4                {}
            <MI 210d6  MOVE.B  D0,(A6-0x2)>                                     {}
            <POP 210da-210dc StackAdj>                       Δ-4                {[-4-]}
            <MI 210dc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x210e0 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 210e6-210e8 StackAdj>                       Δ+4                {[-4-]}
            <MI 210e8  MOVEQ.L #0x01,D5>                                        {[-4-]}
        <POP 210ea-210f0 Naked>                              Σ-4        ↓ →0x211cc ←0x211c6
            <MI 210ea  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 210ec  BGT     0x211cc>                                         {[-4-]}
        <POP 210f0-21112 Naked>                              Σ-4        ↓
            <POP 210f0-210f2 StackAdj>                       Δ-4                {[-8-]}
            <MI 210f2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 210f6  MOVE.L  D5,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x210f8 0x22a50>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 210fe-21100 StackAdj>                       Δ+8                {[-8-]}
            <MI 21100  MOVEA.L (A7)+,A4>                     Δ+4                {[-4-]}
            <Const 0x21102 0x1.2>                            Δ-2                {[-4-]|[#1]}
            <MI 21104  MOVE.L  A4,-(A7)>                     Δ-4                {[-4-]|[#1]|[4, 'A4']}
            <Pointer.fp 0x21106 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-4-]|[#1]|[4, 'A4']|[@@-6]}
            <Call 0x2110a 0x10458>                                              {[-4-]|[#1]|[4, 'A4']|[@@-6]}
                DirFirst(MOD c : Bool; a : String; VAR b : File)
            <POP 21110-21112 StackAdj>                       Δ+10               {[-4-]}
        <POP 21112-2111c Naked>                              Σ-4        ↓ →0x211c6 ←0x211b4
            <MI 21112  MOVEA.L (A6-0x6),A0>                                     {[-4-]}
            <MI 21116  CMPA.W  #0x01,A0>                                        {[-4-]}
            <MI 21118  BEQ     0x211c6>                                         {[-4-]}
        <POP 2111c-211aa Naked>                              Σ-4        ↓ →0x211b4
            <MI 2111c  CLR.L   D0>                                              {[-4-]}
            <MI 2111e  MOVE.W  D6,D0>                                           {[-4-]}
            <MI 21120  MOVE.W  (A0+0x20),D1>                                    {[-4-]}
            <MI 21124  EXTW.L  D1>                                              {[-4-]}
            <MI 21126  ADD.L   D1,D0>                                           {[-4-]}
            <POP 0x21128 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-4-]}
            <MI 21132  MOVE.W  D0,D6>                                           {[-4-]}
            <MI 21134  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <POP 21136-21138 StackAdj>                       Δ-30               {[-34-]}
            <MI 21138  MOVEA.L A7,A1>                                           {[-34-]}
            <MI 2113a  MOVEA.L A0,A2>                                           {[-34-]}
            <BlockMove 30,A2,A1>                                                {[-34-]}
            <POP 21144-21148 StackAdj>                       Δ-12               {[-46-]}
            <Lit 0x21148>                                                       {[-42-]|[$$…]}
                <Pointer.sp 0x21148 12>                      Δ-4        
                <Const 0x2114c 0x1.2>                        Δ-2        
                <Const 0x2114e 0x1e.2>                       Δ-2        
                <Call 0x21150 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21152-21154 StackAdj>                   Δ+8        
            <Const 0x21154 0x1f.4>                           Δ-4                {[-42-]|[$$…]|[##31]}
            <Call 0x21158 0x102f8>                                              {[-42-]|[$$…]|[##31]}
                LeftPad(a : String; b : Long) : String
            <MI 2115e  MOVE.L  D1,-(A7)>                     Δ-4                {[-42-]|[$$…]|[##31]|[4, 'D1']}
            <Call 0x21160 0x102e4>                                              {[-42-]|[$$…]|[##31]|[4, 'D1']}
                Long2String(a : Long) : String
            <POP 21166-21168 StackAdj>                       Δ+4                {[-42-]|[$$…]|[##31]}
            <Const 0x21168 0x6.4>                            Δ-4                {[-42-]|[$$…]|[##31]|[##6]}
            <Call 0x2116c 0x102f8>                                              {[-42-]|[$$…]|[##31]|[##6]}
                LeftPad(a : String; b : Long) : String
            <MI 21172  MOVE.B  (A0+0x3a),(A7)>                                  {[-42-]|[$$…]|[##31]|[-4-]}
            <MI 21176  MOVE.B  (A0+0x3b),(A7+0x1)>                              {[-42-]|[$$…]|[##31]|[-4-]}
            <MI 2117c  MOVE.B  (A0+0x3c),(A7+0x2)>                              {[-42-]|[$$…]|[##31]|[-4-]}
            <MI 21182  MOVE.B  (A0+0x3d),(A7+0x3)>                              {[-42-]|[$$…]|[##31]|[-4-]}
            <Call 0x21188 0x10308>                                              {[-42-]|[$$…]|[##31]|[-4-]}
                TimeToText()
            <POP 2118e-21190 StackAdj>                       Δ+4                {[-42-]|[$$…]|[##31]}
            <Call 0x21190 0x102d4>                                              {[-42-]|[$$…]|[##31]}
                StringCat3(a, b, c : String) : String
            <POP 21196-2119a StackAdj>                       Δ+12               {[-38-]}
            <Call 0x2119a 0x103e0>                                              {[-38-]}
                WriteConsoleStringCrLf(str : String)
            <POP 211a0-211a4 StackAdj>                       Δ+34               {[-4-]}
            <MI 211a4  TST.B   (A6-0x2)>                                        {[-4-]}
            <MI 211a8  BEQ     0x211b4>                                         {[-4-]}
        <POP 211aa-211b4 Naked>                              Σ-4        ↓
            <MI 211aa  PEA.L   (A0+0x20)>                    Δ-4                {[-4-]|[4, '^(A0+0x20)']}
            <Call 0x211ae 0x20e84>                                              {[-4-]|[4, '^(A0+0x20)']}
            <POP 211b2-211b4 StackAdj>                       Δ+4                {[-4-]}
        <POP 211b4-211c6 Naked>                              Σ-4        →0x21112 ←0x2111c
            <MI 211b4  CLR.B   -(A7)>                        Δ-2                {[-4-]|[#0]}
            <Pointer.fp 0x211b6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-4-]|[#0]|[@@-6]}
            <Call 0x211ba 0x1045c>                                              {[-4-]|[#0]|[@@-6]}
                DirNext(MOD a : Bool; VAR b : File)
            <POP 211c0-211c2 StackAdj>                       Δ+6                {[-4-]}
            <MI 211c2  BRA     0x21112>                                         {[-4-]}
        <POP 211c6-211cc Naked>                              Σ-4        ↓ →0x210ea ←0x21112
            <MI 211c6  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 211c8  BVC     0x210ea>                                         {[-4-]}
        <POP 211cc-211d6 Naked>                              Σ-4 Δ+4    ↓ →0x21252 ←0x210ea
            <POP 211cc-211ce StackAdj>                       Δ+4                {}
            <MI 211ce  CMPI.L  #0x00000002,D7>                                  {}
            <MI 211d4  BLT     0x21252>                                         {}
        <POP 211d6-21252 Naked>                              Σ0         ↓
            <Blob 0x211d6 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x211e6 [10] @>                            Δ-10               {[«10""»]|[«10""»]}
            <Blob 0x211f2 [8] @>                             Δ-8                {[«10""»]|[«10""»]|[«8""»]}
            <POP 21202-21204 StackAdj>                       Δ-8                {[«10""»]|[«10""»]|[«8""»]|[-8-]}
            <Lit 0x21204 9>                                                     {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]}
            <POP 21210-21212 StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
            <MI 21212  CLR.L   D0>                                              {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
            <MI 21214  MOVE.W  D6,D0>                                           {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
            <MI 21216  MOVE.L  D0,-(A7)>                     Δ-4                {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D0']}
            <Call 0x21218 0x102e4>                                              {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <Lit 0x2121e 10>                                                    {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[$$ Pages in_]}
            <MI 21228  MOVE.L  D7,(A7)>                                         {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']}
            <POP 21226-21228 StackAdj>                       Δ-8                {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x2122a 0x102e4>                                              {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21230 7>                                                     {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-4-]|[$$ Files.]}
            <Call 0x2123e 0x102dc>                                              {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-4-]|[$$ Files.]}
                StringCat5(a, b, c, d, e : String) : String
            <POP 21244-21248 StackAdj>                       Δ+20               {[«10""»]|[«10""»]|[«8""»]|[-4-]}
            <Call 0x21248 0x103e0>                                              {[«10""»]|[«10""»]|[«8""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2124e-21252 StackAdj>                       Δ+32               {}
        <POP 21252-2125a Epilogue>                           Σ0         ←0x211cc

0x2125a


@ 2125a
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(rw)>
        <LVAR -0x024 @>
        <LVAR -0x02a 2(w)>
        <LVAR -0x030 2(w)>
        <LVAR -0x034 @>
        <LVAR -0x03c @ 4(r)>
        <LVAR -0x048 @ 4(rw)>
    <POP 2125a-214d6 Body>                                   Δ+136      
        <POP 2125a-21270 Prologue>                           Σ0         ↓
        <POP 21270-2127a RegCacheLoad>                       Σ0         ↓
        <POP 2127a-2128e Naked>                              Σ0         ↓ →0x212c2
            <POP 2127a-2127c StackAdj>                       Δ-4                {[-4-]}
            <MI 2127c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x21280 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 21286-21288 StackAdj>                       Δ+4                {[-4-]}
            <MI 21288  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 2128a  CMP.L   #0x01,D5>                                        {}
            <MI 2128c  BGE     0x212c2>                                         {}
        <POP 2128e-212a0 Naked>                              Σ0 Δ-68    ↓
            <Blob 0x2128e [68] @>                            Δ-68               {[«68""»]}
        <POP 212a0-212c2 Naked>                              Σ-68 Δ+68  →0x214ce ←0x214aa
            <POP 212a0-212a2 StackAdj>                       Δ-4                {[-72-]}
            <Lit 0x212a2>                                                       {[-68-]|[$$…]}
                <Pointer.sp 0x212a2 4>                       Δ-4        
                <Const 0x212a6 0x1.2>                        Δ-2        
                <Const 0x212a8 0x43.2>                       Δ-2        
                <Call 0x212ac 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 212b2-212b4 StackAdj>                   Δ+8        
            <Call 0x212b4 0x103e0>                                              {[-68-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 212ba-212be StackAdj>                       Δ+72               {}
            <MI 212be  BRA     0x214ce>                                         {}
        <POP 212c2-21314 Naked>                              Σ0         ↓ →0x2145a ←0x2127a
            <POP 212c2-212c4 StackAdj>                       Δ-4                {[-4-]}
            <MI 212c4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x212c8 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x212cc 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 212d2-212d4 StackAdj>                       Δ+8                {[-4-]}
            <MI 212d4  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x212d6 [2] @>                             Δ-2                {[«2""»]}
            <POP 212da-212dc StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x212dc 2>                                                     {[«2""»]|[$$ON]}
            <MI 212ee  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[«2""»]}
            <MI 212f0  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[4, 'A4']}
            <MI 212f2  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[«2""»]|[4, 'A4']|[4, '(A6-0x48)']}
            <Call 0x212f4 0x102c8>                                              {[«2""»]|[4, 'A4']|[4, '(A6-0x48)']}
                StringEqual(a, b : String) : Byte
            <POP 212fa-212fc StackAdj>                       Δ+8                {[«2""»]}
            <MI 212fc  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 212fe  EXTB.W  D0>                                              {}
            <POP 0x21300 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21302  MOVE.B  D0,(A6-0x2)>                                     {}
            <Pointer.fp 0x21304 <LVAR -0x048 @ 4(rw)>>       Δ-4                {[@@-72]}
            <Call 0x21306 0x102bc>                                              {[@@-72]}
                FreeString(VAR a : String)
            <POP 2130c-2130e StackAdj>                       Δ+4                {}
            <MI 2130e  TST.B   D0>                                              {}
            <MI 21310  BEQ     0x2145a>                                         {}
        <POP 21314-2131c Naked>                              Σ0         ↓ →0x21350
            <MI 21314  CMPI.L  #0x00000002,D5>                                  {}
            <MI 2131a  BEQ     0x21350>                                         {}
        <POP 2131c-2132e Naked>                              Σ0 Δ-68    ↓
            <Blob 0x2131c [68] @>                            Δ-68               {[«68""»]}
        <POP 2132e-21350 Naked>                              Σ-68 Δ+68  →0x21458 ←0x2137a
            <POP 2132e-21330 StackAdj>                       Δ-4                {[-72-]}
            <Lit 0x21330>                                                       {[-68-]|[$$…]}
                <Pointer.sp 0x21330 4>                       Δ-4        
                <Const 0x21334 0x1.2>                        Δ-2        
                <Const 0x21336 0x43.2>                       Δ-2        
                <Call 0x2133a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21340-21342 StackAdj>                   Δ+8        
            <Call 0x21342 0x103e0>                                              {[-68-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21348-2134c StackAdj>                       Δ+72               {}
            <MI 2134c  BRA     0x21458>                                         {}
        <POP 21350-2137a Naked>                              Σ0         ↓ →0x2138e ←0x21314
            <POP 21350-21352 StackAdj>                       Δ-4                {[-4-]}
            <MI 21352  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21356 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x2135a 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 21360-21362 StackAdj>                       Δ+8                {[-4-]}
            <MI 21362  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {}
            <MI 21364  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[4, '(A6-0x48)']}
            <Pointer.fp 0x21366 <LVAR -0x002 @ 1(rw)>>       Δ-4                {[4, '(A6-0x48)']|[@@-2]}
            <Pointer.fp 0x21368 <LVAR -0x03c @ 4(r)>>        Δ-4                {[4, '(A6-0x48)']|[@@-2]|[@@-60]}
            <Call 0x2136c 0x102ec>                                              {[4, '(A6-0x48)']|[@@-2]|[@@-60]}
                String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 21372-21376 StackAdj>                       Δ+12               {}
            <MI 21376  TST.B   (A6-0x2)>                                        {}
            <MI 21378  BNE     0x2138e>                                         {}
        <POP 2137a-2138e Naked>                              Σ0 Δ-68    →0x2132e
            <Blob 0x2137a [68] @>                            Δ-68               {[«68""»]}
            <MI 2138c  BRA     0x2132e>                                         {[«68""»]}
        <POP 2138e-21402 Naked>                              Σ0         ↓ →0x2142e ←0x21350
            <MI 2138e  MOVE.W  #0x01,(A6-0x30)>                                 {}
            <MI 21392  MOVE.W  #0x2,(A6-0x2a)>                                  {}
            <Pointer.fp 0x21398 <LVAR -0x034 @>>             Δ-4                {[@@-52]}
            <MI 2139c  LEA.L   (A6-0x24),A0>                                    {[@@-52]}
            <MI 213a0  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-52]|[4, 'A0']}
            <Const 0x213a2 0x3.2>                            Δ-2                {[@@-52]|[4, 'A0']|[#3]}
            <Call 0x213a6 0x10204>                                              {[@@-52]|[4, 'A0']|[#3]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 213ac-213ae StackAdj>                       Δ+8                {[-2-]}
            <POP 213ae-213af StackAdj>                       Δ+2                {}
            <Const 0x213af 0x3.2>                            Δ-2                {[#3]}
            <Pointer.fp 0x213b2 <LVAR -0x002 @ 1(rw)>>       Δ-4                {[#3]|[@@-2]}
            <Call 0x213b4 0x10206>                                              {[#3]|[@@-2]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 213ba-213bc StackAdj>                       Δ+6                {}
            <MI 213bc  MOVE.L  (A6-0x3c),D4>                                    {}
            <MI 213c0  MOVEQ.L #0x10,D3>                                        {}
            <Call 0x213c2 0x10294>                                              {}
                ?divs_d3_d4
            <MI 213c8  MOVE.L  D4,D7>                                           {}
            <MI 213ca  MOVE.L  D3,D6>                                           {}
            <POP 0x213cc LimitCheck 0x0 ≤ D7 ≤ 0x10>                            {}
            <MI 213d6  MOVE.L  D7,D0>                                           {}
            <MI 213d8  ASL.L   #0x1,D0>                                         {}
            <POP 0x213da LimitCheck 0x0 ≤ D6 ≤ 0xf>                             {}
            <MI 213e4  LEA.L   (A6+D0.L-#0x24),A0>                              {}
            <MI 213e8  MOVE.L  D6,D0>                                           {}
            <MI 213ea  ROR.L   #0x3,D0>                                         {}
            <MI 213ec  ADDA.W  D0,A0>                                           {}
            <MI 213ee  SWAP.W  D0>                                              {}
            <MI 213f0  ROL.W   #0x3,D0>                                         {}
            <MI 213f2  MOVE.B  (A0),D1>                                         {}
            <MI 213f4  LSL.B   D0,D1>                                           {}
            <MI 213f6  LSR.B   #0x7,D1>                                         {}
            <MI 213f8  MOVE.B  D1,(A6-0x2)>                                     {}
            <MI 213fa  MOVE.L  D4,D7>                                           {}
            <MI 213fc  MOVE.L  D3,D6>                                           {}
            <MI 213fe  TST.L   D7>                                              {}
            <MI 21400  BEQ     0x2142e>                                         {}
        <POP 21402-21406 Naked>                              Σ0         ↓ →0x2142e
            <MI 21402  TST.B   D1>                                              {}
            <MI 21404  BEQ     0x2142e>                                         {}
        <POP 21406-2142e Naked>                              Σ0         →0x21458
            <Const 0x21406 0x1.2>                            Δ-2                {[#1]}
            <MI 21408  MOVE.L  D7,D0>                                           {[#1]}
            <MI 2140a  SUBQ.L  #0x1,D0>                                         {[#1]}
            <POP 0x2140c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[#1]}
            <MI 21416  MOVE.W  D0,-(A7)>                     Δ-2                {[#1]|[2, 'D0']}
            <POP 0x21418 LimitCheck 0x0 ≤ D6 ≤ 0xff>                            {[#1]|[2, 'D0']}
            <MI 21422  MOVE.W  D6,-(A7)>                     Δ-2                {[#1]|[2, 'D0']|[2, 'D6']}
            <Call 0x21424 0x103fc>                                              {[#1]|[2, 'D0']|[2, 'D6']}
                SetConsolePrinter(a: Byte; b: Word; c: Word)
            <POP 2142a-2142c StackAdj>                       Δ+6                {}
            <MI 2142c  BRA     0x21458>                                         {}
        <POP 2142e-21458 Naked>                              Σ0         ↓ ←0x2138e ←0x21402
            <Blob 0x2142e [34] @>                            Δ-34               {[«34""»]}
            <POP 2143a-2143c StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x2143c 34>                                                    {[«34""»]|[$$Communications line does not exist]}
            <Call 0x2144e 0x103e0>                                              {[«34""»]|[$$Communications line does not exist]}
                WriteConsoleStringCrLf(str : String)
            <POP 21454-21458 StackAdj>                       Δ+38               {}
        <POP 21458-2145a Naked>                              Σ0         →0x214ce ←0x2132e ←0x21406
            <MI 21458  BRA     0x214ce>                                         {}
        <POP 2145a-214a6 Naked>                              Σ0         ↓ →0x214aa ←0x212c2
            <POP 2145a-2145c StackAdj>                       Δ-4                {[-4-]}
            <POP 2145c-2145d StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x2145d [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 21460  MOVE.B  0x202d1,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 21466  MOVE.B  0x202d2,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 2146c-2146e StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2146e>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2146e 4>                       Δ-4        
                <Const 0x21472 0x1.2>                        Δ-2        
                <Const 0x21474 0x3.2>                        Δ-2        
                <Call 0x21478 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2147e-21480 StackAdj>                   Δ+8        
            <MI 21480  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-2-]|[«2""»]}
            <POP 21482-21484 StackAdj>                       Δ+2                {[-2-]}
            <MI 21484  MOVE.L  A4,-(A7)>                     Δ-4                {[-2-]|[4, 'A4']}
            <MI 21486  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-2-]|[4, 'A4']|[4, '(A6-0x48)']}
            <Call 0x21488 0x102c8>                                              {[-2-]|[4, 'A4']|[4, '(A6-0x48)']}
                StringEqual(a, b : String) : Byte
            <POP 2148e-21490 StackAdj>                       Δ+8                {[-2-]}
            <MI 21490  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21492  EXTB.W  D0>                                              {}
            <POP 0x21494 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21496  MOVE.B  D0,(A6-0x2)>                                     {}
            <Pointer.fp 0x21498 <LVAR -0x048 @ 4(rw)>>       Δ-4                {[@@-72]}
            <Call 0x2149a 0x102bc>                                              {[@@-72]}
                FreeString(VAR a : String)
            <POP 214a0-214a2 StackAdj>                       Δ+4                {}
            <MI 214a2  TST.B   D0>                                              {}
            <MI 214a4  BEQ     0x214aa>                                         {}
        <POP 214a6-214aa Naked>                              Σ0         ↓ →0x214c0
            <MI 214a6  CMP.L   #0x01,D5>                                        {}
            <MI 214a8  BEQ     0x214c0>                                         {}
        <POP 214aa-214c0 Naked>                              Σ0 Δ-68    →0x212a0 ←0x2145a
            <Blob 0x214aa [68] @>                            Δ-68               {[«68""»]}
            <MI 214bc  BRA     0x212a0>                                         {[«68""»]}
        <POP 214c0-214ce Naked>                              Σ0         ↓ ←0x214a6
            <MI 214c0  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 214c2  CLR.W   -(A7)>                        Δ-2                {[#0]|[#0]}
            <MI 214c4  CLR.W   -(A7)>                        Δ-2                {[#0]|[#0]|[#0]}
            <Call 0x214c6 0x103fc>                                              {[#0]|[#0]|[#0]}
                SetConsolePrinter(a: Byte; b: Word; c: Word)
            <POP 214cc-214ce StackAdj>                       Δ+6                {}
        <POP 214ce-214d6 Epilogue>                           Σ0         ←0x212a0 ←0x21458

0x214d6


@ 214d6
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 214d6-21578 Body>                                              
        <POP 214d6-214ec Prologue>                           Σ0         ↓
        <POP 214ec-214f4 RegCacheLoad>                       Σ0         ↓
        <POP 214f4-214fe Naked>                              Σ0         ↓
            <MI 214f4  MOVE.L  #0xffffffff,(A6+0xc)>                            {}
            <MI 214fc  MOVEQ.L #0x01,D7>                                        {}
        <POP 214fe-21564 Naked>                              Σ0         ↓ →0x2156a ←0x2156a
            <MI 214fe  MOVE.L  D7,D0>                                           {}
            <MI 21500  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x21502 LimitCheck 0x0 ≤ D0 ≤ 0x9>                             {}
            <MI 2150c  MOVE.L  D0,D4>                                           {}
            <MI 2150e  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x21510 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21516  LEA.L   0x2034c,A0>                                      {}
            <Blob 0x2151a [10] (A0+D4.L)>                    Δ-10               {[«10»]}
            <POP 2152a-2152c StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x2152c>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x2152c 4>                       Δ-4        
                <Const 0x21530 0x1.2>                        Δ-2        
                <Const 0x21532 0xa.2>                        Δ-2        
                <Call 0x21534 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2153a-2153c StackAdj>                   Δ+8        
            <MI 2153c  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«10»]}
            <POP 2153e-21540 StackAdj>                       Δ+4                {[-6-]}
            <MI 21540  MOVE.L  (A6+0x8),(A7)>                                   {[-2-]|[4, '(A6+0x8)']}
            <MI 21544  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
            <Call 0x21546 0x102c8>                                              {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
                StringEqual(a, b : String) : Byte
            <POP 2154c-2154e StackAdj>                       Δ+8                {[-2-]}
            <MI 2154e  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21550  EXTB.W  D0>                                              {}
            <POP 0x21552 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21554  MOVE.B  D0,D6>                                           {}
            <Pointer.fp 0x21556 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x21558 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 2155e-21560 StackAdj>                       Δ+4                {}
            <MI 21560  TST.B   D6>                                              {}
            <MI 21562  BEQ     0x2156a>                                         {}
        <POP 21564-2156a Naked>                              Σ0         →0x21570
            <MI 21564  MOVE.L  D7,(A6+0xc)>                                     {}
            <MI 21568  BRA     0x21570>                                         {}
        <POP 2156a-21570 Naked>                              Σ0         ↓ →0x214fe ←0x214fe
            <MI 2156a  ADDQ.L  #0x1,D7>                                         {}
            <MI 2156c  CMP.L   #0x0a,D7>                                        {}
            <MI 2156e  BLE     0x214fe>                                         {}
        <POP 21570-21578 Epilogue>                           Σ0         ←0x21564

0x21578


@ 21578
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21578-21628 Body>                                   Δ+28       
        <POP 21578-2158e Prologue>                           Σ0         ↓
        <POP 2158e-21592 RegCacheLoad>                       Σ0         ↓
        <POP 21592-215b2 Naked>                              Σ0         ↓ →0x2161e
            <MI 21592  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21596  MOVE.B  #0x01,(A0)>                                      {}
            <POP 2159a-2159c StackAdj>                       Δ-4                {[-4-]}
            <MI 2159c  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <Call 0x215a0 0x214d6>                                              {[-4-]|[4, '(A6+0x10)']}
            <POP 215a4-215a6 StackAdj>                       Δ+4                {[-4-]}
            <MI 215a6  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 215a8  SUBQ.L  #0x1,D0>                                         {}
            <MI 215aa  CMPI.L  #0x00000009,D0>                                  {}
            <MI 215b0  BHI     0x2161e>                                         {}
        <POP 215b2-215bc Naked>                              Σ0         →0x215d0 →0x215da →0x215e2 →0x215ea →0x215f2 →0x215fa →0x21602 →0x2160a →0x21610 →0x21616
            <MI 215b2  ADD.W   D0,D0>                                           {}
            <MI 215b4  SWITCH  D0.W>                                            {}
        <POP 215d0-215d6 Naked>                              Σ0 Δ-4     ↓ ←0x215b2
            <MI 215d0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x215d2 0x20d96>                                              {[4, '(A6+0xc)']}
        <POP 215d6-215da Naked>                              Σ-4 Δ+4    →0x21620 ←0x215da ←0x215e2 ←0x215ea ←0x215f2 ←0x215fa ←0x21602 ←0x21616
            <POP 215d6-215d8 StackAdj>                       Δ+4                {}
            <MI 215d8  BRA     0x21620>                                         {}
        <POP 215da-215e2 Naked>                              Σ0 Δ-4     →0x215d6 ←0x215b2
            <MI 215da  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x215dc 0x21088>                                              {[4, '(A6+0xc)']}
            <MI 215e0  BRA     0x215d6>                                         {[4, '(A6+0xc)']}
        <POP 215e2-215ea Naked>                              Σ0 Δ-4     →0x215d6 ←0x215b2
            <MI 215e2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x215e4 0x20470>                                              {[4, '(A6+0xc)']}
            <MI 215e8  BRA     0x215d6>                                         {[4, '(A6+0xc)']}
        <POP 215ea-215f2 Naked>                              Σ0 Δ-4     →0x215d6 ←0x215b2
            <MI 215ea  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x215ec 0x20656>                                              {[4, '(A6+0xc)']}
            <MI 215f0  BRA     0x215d6>                                         {[4, '(A6+0xc)']}
        <POP 215f2-215fa Naked>                              Σ0 Δ-4     →0x215d6 ←0x215b2
            <MI 215f2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x215f4 0x20a72>                                              {[4, '(A6+0xc)']}
            <MI 215f8  BRA     0x215d6>                                         {[4, '(A6+0xc)']}
        <POP 215fa-21602 Naked>                              Σ0 Δ-4     →0x215d6 ←0x215b2
            <MI 215fa  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x215fc 0x20b5a>                                              {[4, '(A6+0xc)']}
            <MI 21600  BRA     0x215d6>                                         {[4, '(A6+0xc)']}
        <POP 21602-2160a Naked>                              Σ0 Δ-4     →0x215d6 ←0x215b2
            <MI 21602  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x21604 0x207ea>                                              {[4, '(A6+0xc)']}
            <MI 21608  BRA     0x215d6>                                         {[4, '(A6+0xc)']}
        <POP 2160a-21610 Naked>                              Σ0         →0x21620 ←0x215b2
            <Call 0x2160a 0x208ce>                                              {}
            <MI 2160e  BRA     0x21620>                                         {}
        <POP 21610-21616 Naked>                              Σ0         →0x21620 ←0x215b2
            <Call 0x21610 0x209a4>                                              {}
            <MI 21614  BRA     0x21620>                                         {}
        <POP 21616-2161e Naked>                              Σ0 Δ-4     →0x215d6 ←0x215b2
            <MI 21616  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x21618 0x2125a>                                              {[4, '(A6+0xc)']}
            <MI 2161c  BRA     0x215d6>                                         {[4, '(A6+0xc)']}
        <POP 2161e-21620 Naked>                              Σ0         ↓ ←0x21592
            <MI 2161e  CLR.B   (A0)>                                            {}
        <POP 21620-21628 Epilogue>                           Σ0         ←0x215d6 ←0x2160a ←0x21610

0x21628


@ 21628
        <LVAR  0x008 4(r)>
    <POP 21628-2166a Body>                                              
        <POP 21628-2163e Prologue>                           Σ0         ↓
        <POP 2163e-21640 RegCacheLoad>                       Σ0         ↓
        <POP 21640-21662 Naked>                              Σ0         ↓
            <Call 0x21640 0x10398>                                              {}
                FSCALL_10398
            <Const 0x21646 0x1.2>                            Δ-2                {[#1]}
            <Const 0x21648 0x1.2>                            Δ-2                {[#1]|[#1]}
            <Call 0x2164a 0x10210>                                              {[#1]|[#1]}
                KC08_PortSomething(port: Word; b: Byte)
            <POP 21650-21652 StackAdj>                       Δ+4                {}
            <MI 21652  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21656  LEA.L   0x20338,A1>                                      {}
            <BlockMove 10,A1,A0>                                                {}
        <POP 21662-2166a Epilogue>                           Σ0         

0x21ce6


@ 21ce6
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(w)>
    <POP 21ce6-21d28 Body>                                              
        <POP 21ce6-21cfc Prologue>                           Σ0         ↓
        <POP 21cfc-21d00 Naked>                              Σ0         ↓
            <MI 21cfc  MOVEA.L (A6+0x8),A4>                                     {}
        <POP 21d00-21d06 Naked>                              Σ0         ↓ →0x21d20 ←0x21d06
            <MI 21d00  CMPA.W  #0x1,A4>                                         {}
            <MI 21d04  BEQ     0x21d20>                                         {}
        <POP 21d06-21d20 Naked>                              Σ0         →0x21d00
            <MI 21d06  MOVE.L  A4,(A6-0x4)>                                     {}
            <MI 21d0a  MOVEA.L (A4+0x8),A4>                                     {}
            <Pointer.fp 0x21d0e <LVAR -0x004 @ 4(w)>>        Δ-4                {[@@-4]}
            <Const 0x21d12 0xc.4>                            Δ-4                {[@@-4]|[##12]}
            <Call 0x21d16 0x102a8>                                              {[@@-4]|[##12]}
                Free2(a : Pointer; b : Long)
            <POP 21d1c-21d1e StackAdj>                       Δ+8                {}
            <MI 21d1e  BRA     0x21d00>                                         {}
        <POP 21d20-21d28 Epilogue>                           Σ0         ←0x21d00

0x21d28


@ 21d28
        <LVAR  0x008 4(r)>
    <POP 21d28--0001 Body>                                              
        <POP 21d28-21d3e Prologue>                           Σ0         ↓
        <POP 21d3e-21d48 Naked>                              Σ0         ↓ →0x21d52
            <MI 21d3e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21d42  CMPA.W  #0x1,A0>                                         {}
            <MI 21d46  BEQ     0x21d52>                                         {}
        <POP 21d48-21d52 Naked>                              Σ0         ↓
            <MI 21d48  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Call 0x21d4a 0x103e0>                                              {[4, 'A0']}
                WriteConsoleStringCrLf(str : String)
            <POP 21d50-21d52 StackAdj>                       Δ+4                {}
        <POP 21d52-21d60 Naked>                              Σ0         ←0x21d3e
            <POP 21d52-21d60 Bailout>                                           {}
                <MI 21d52  MOVEA.L (A5+0x8),A7>                         
                <MI 21d56  MOVEA.W #0x0,A6>                             
                <MI 21d5a  JMP     0x25604>                             

0x21d86


@ 21d86
        <LVAR  0x008 1(rw)>
    <POP 21d86-21dc4 Body>                                              
        <POP 21d86-21d9c Prologue>                           Σ0         ↓
        <POP 21d9c-21daa Naked>                              Σ0         ↓ →0x21db0
            <MI 21d9c  MOVE.L  0x26832,D0>                                      {}
            <MI 21da2  CMP.L   0x26836,D0>                                      {}
            <MI 21da8  BLE     0x21db0>                                         {}
        <POP 21daa-21db0 Naked>                              Σ0         →0x21dbc
            <MI 21daa  CLR.B   (A6+0x8)>                                        {}
            <MI 21dae  BRA     0x21dbc>                                         {}
        <POP 21db0-21dbc Naked>                              Σ0         ↓ ←0x21d9c
            <MI 21db0  LEA.L   0x2582a,A0>                                      {}
            <MI 21db6  MOVE.B  (A0+D0.L+#0x7),(A6+0x8)>                         {}
        <POP 21dbc-21dc4 Epilogue>                           Σ0         ←0x21daa

0x21dc4


@ 21dc4
        <LVAR  0x008 1(rw)>
    <POP 21dc4-21e08 Body>                                              
        <POP 21dc4-21dda Prologue>                           Σ0         ↓
        <POP 21dda-21de0 RegCacheLoad>                       Σ0         ↓
        <POP 21de0-21dea Naked>                              Σ0         ↓ →0x21df0
            <MI 21de0  MOVE.L  0x26832,D0>                                      {}
            <MI 21de2  CMP.L   0x26836,D0>                                      {}
            <MI 21de8  BLE     0x21df0>                                         {}
        <POP 21dea-21df0 Naked>                              Σ0         →0x21dfc
            <MI 21dea  CLR.B   (A6+0x8)>                                        {}
            <MI 21dee  BRA     0x21dfc>                                         {}
        <POP 21df0-21dfc Naked>                              Σ0         ↓ ←0x21de0
            <MI 21df0  LEA.L   0x2582a,A0>                                      {}
            <MI 21df6  MOVE.B  (A0+D0.L+#0x7),(A6+0x8)>                         {}
        <POP 21dfc-21e00 Naked>                              Σ0         ↓ ←0x21dea
            <MI 21dfc  ADDQ.L  #0x1,D0>                                         {}
            <MI 21dfe  MOVE.L  D0,0x26832>                                      {}
        <POP 21e00-21e08 Epilogue>                           Σ0         

0x21e08


@ 21e08
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21e08-21ee2 Body>                                              
        <POP 21e08-21e1e Prologue>                           Σ0         ↓
        <POP 21e1e-21e30 RegCacheLoad>                       Σ0         ↓
        <POP 21e30-21e3c Naked>                              Σ0         ↓ →0x21e46 ←0x21ed6
            <POP 21e30-21e32 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21e32 0x21d86>                                              {[-2-]}
            <MI 21e36  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21e38  CMP.B   #0x5b,D0>                                        {}
            <MI 21e3a  BNE     0x21e46>                                         {}
        <POP 21e3c-21e46 Naked>                              Σ0         →0x21ed6
            <Call 0x21e3c 0x2510e>                                              {}
            <MI 21e42  BRA     0x21ed6>                                         {}
        <POP 21e46-21e52 Naked>                              Σ0         ↓ →0x21e6a ←0x21e30
            <MI 21e46  MOVE.L  0x26832,D6>                                      {}
            <POP 21e48-21e4a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21e4a 0x21dc4>                                              {[-2-]}
            <MI 21e4e  MOVE.B  (A7)+,D5>                     Δ+2                {}
            <MI 21e50  BNE     0x21e6a>                                         {}
        <POP 21e52-21e68 Naked>                              Σ0         →0x21eda
            <MI 21e52  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21e56  LEA.L   0x21c40,A1>                                      {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 21e62  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21e64  MOVE.B  #0x02,(A0)>                                      {}
            <MI 21e66  BRA     0x21eda>                                         {}
        <POP 21e6a-21e6e Naked>                              Σ0         ↓ →0x21e76 ←0x21e46
            <MI 21e6a  CMP.B   #0x2c,D5>                                        {}
            <MI 21e6c  BNE     0x21e76>                                         {}
        <POP 21e6e-21e76 Naked>                              Σ0         →0x21ec6
            <MI 21e6e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21e70  MOVE.B  #0x03,(A0)>                                      {}
            <MI 21e74  BRA     0x21ec6>                                         {}
        <POP 21e76-21e7a Naked>                              Σ0         ↓ →0x21e82 ←0x21e6a
            <MI 21e76  CMP.B   #0x3b,D5>                                        {}
            <MI 21e78  BNE     0x21e82>                                         {}
        <POP 21e7a-21e82 Naked>                              Σ0         →0x21ec6
            <MI 21e7a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21e7c  MOVE.B  #0x01,(A0)>                                      {}
            <MI 21e80  BRA     0x21ec6>                                         {}
        <POP 21e82-21e88 Naked>                              Σ0         ↓ →0x21e8e ←0x21e76
            <MI 21e82  CMPI.B  #0x5d,D5>                                        {}
            <MI 21e86  BNE     0x21e8e>                                         {}
        <POP 21e88-21e8e Naked>                              Σ0         →0x21ec6
            <MI 21e88  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21e8a  MOVE.B  #0x02,(A0)>                                      {}
            <MI 21e8c  BRA     0x21ec6>                                         {}
        <POP 21e8e-21e92 Naked>                              Σ0         ↓ ←0x21e82
            <MI 21e8e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21e90  CLR.B   (A0)>                                            {}
        <POP 21e92-21e9e Naked>                              Σ0         ↓ →0x21ea6 ←0x21ec4
            <POP 21e92-21e94 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21e94 0x21d86>                                              {[-2-]}
            <MI 21e98  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 21e9a  CMP.B   #0x5b,D7>                                        {}
            <MI 21e9c  BNE     0x21ea6>                                         {}
        <POP 21e9e-21ea6 Naked>                              Σ0         →0x21ec4
            <Call 0x21e9e 0x2510e>                                              {}
            <MI 21ea4  BRA     0x21ec4>                                         {}
        <POP 21ea6-21eaa Naked>                              Σ0         ↓ →0x21eb8 ←0x21e92
            <MI 21ea6  CMP.B   #0x3b,D7>                                        {}
            <MI 21ea8  BEQ     0x21eb8>                                         {}
        <POP 21eaa-21eae Naked>                              Σ0         ↓ →0x21eb8
            <MI 21eaa  CMP.B   #0x2c,D7>                                        {}
            <MI 21eac  BEQ     0x21eb8>                                         {}
        <POP 21eae-21eb4 Naked>                              Σ0         ↓ →0x21eb8
            <MI 21eae  CMPI.B  #0x5d,D7>                                        {}
            <MI 21eb2  BEQ     0x21eb8>                                         {}
        <POP 21eb4-21eb8 Naked>                              Σ0         ↓ →0x21ebc
            <MI 21eb4  TST.B   D7>                                              {}
            <MI 21eb6  BNE     0x21ebc>                                         {}
        <POP 21eb8-21eba Naked>                              Σ0         →0x21ec6 ←0x21ea6 ←0x21eaa ←0x21eae
            <MI 21eb8  BRA     0x21ec6>                                         {}
        <POP 21ebc-21ec4 Naked>                              Σ0         ↓ ←0x21eb4
            <POP 21ebc-21ebe StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21ebe 0x21dc4>                                              {[-2-]}
            <MI 21ec2  MOVE.B  (A7)+,D7>                     Δ+2                {}
        <POP 21ec4-21ec6 Naked>                              Σ0         →0x21e92 ←0x21e9e
            <MI 21ec4  BRA     0x21e92>                                         {}
        <POP 21ec6-21ed6 Naked>                              Σ0         →0x21eda ←0x21e6e ←0x21e7a ←0x21e88 ←0x21eb8
            <MI 21ec6  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21eca  MOVE.L  D6,(A0)>                                         {}
            <MI 21ecc  MOVE.L  0x26832,(A0+0x4)>                                {}
            <MI 21ed0  SUBQ.L  #0x1,(A0+0x4)>                                   {}
            <MI 21ed4  BRA     0x21eda>                                         {}
        <POP 21ed6-21eda Naked>                              Σ0         →0x21e30 ←0x21e3c
            <MI 21ed6  BRA     0x21e30>                                         {}
        <POP 21eda-21ee2 Epilogue>                           Σ0         ←0x21e52 ←0x21ec6

0x21ee2


@ 21ee2
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(rw)>
        <LVAR -0x008 4(w)>
        <LVAR -0x00c @ 4(w)>
    <POP 21ee2-21f80 Body>                                              
        <POP 21ee2-21ef8 Prologue>                           Σ0         ↓
        <POP 21ef8-21f02 RegCacheLoad>                       Σ0         ↓
        <POP 21f02-21f0e Naked>                              Σ0         ↓ →0x21f14
            <MI 21f02  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21f06  MOVE.B  (A0),D0>                                         {}
            <MI 21f08  CMPI.B  #0x01,D0>                                        {}
            <MI 21f0c  BEQ     0x21f14>                                         {}
        <POP 21f0e-21f14 Naked>                              Σ0         ↓ →0x21f22
            <MI 21f0e  CMPI.B  #0x02,D0>                                        {}
            <MI 21f12  BNE     0x21f22>                                         {}
        <POP 21f14-21f22 Naked>                              Σ0         →0x21f5e ←0x21f02
            <MI 21f14  MOVE.L  0x21c40,(A6-0xc)>                                {}
            <MI 21f18  MOVE.L  0x21c44,(A6-0x8)>                                {}
            <MI 21f1e  MOVE.B  D0,(A6-0x4)>                                     {}
            <MI 21f20  BRA     0x21f5e>                                         {}
        <POP 21f22-21f34 Naked>                              Σ0         ↓ →0x21f50 ←0x21f0e ←0x21f58
            <Pointer.fp 0x21f22 <LVAR -0x00c @ 4(w)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x21f24 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[@@-12]|[@@-4]}
            <Call 0x21f26 0x21e08>                                              {[@@-12]|[@@-4]}
            <POP 21f2a-21f2c StackAdj>                       Δ+8                {}
            <MI 21f2c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21f30  TST.B   (A6-0x4)>                                        {}
            <MI 21f32  BEQ     0x21f50>                                         {}
        <POP 21f34-21f3a Naked>                              Σ0         ↓ →0x21f50
            <MI 21f34  MOVE.B  (A0),D0>                                         {}
            <MI 21f36  CMP.B   #0x03,D0>                                        {}
            <MI 21f38  BNE     0x21f50>                                         {}
        <POP 21f3a-21f50 Naked>                              Σ0         →0x21f58
            <MI 21f3a  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21f3c  EXTB.W  D0>                                              {}
            <POP 0x21f3e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21f40  MOVE.B  D0,(A0)>                                         {}
            <MI 21f42  MOVE.L  0x21c40,(A6-0xc)>                                {}
            <MI 21f46  MOVE.L  0x21c44,(A6-0x8)>                                {}
            <MI 21f4c  CLR.B   (A6-0x4)>                                        {}
            <MI 21f4e  BRA     0x21f58>                                         {}
        <POP 21f50-21f58 Naked>                              Σ0         ↓ ←0x21f22 ←0x21f34
            <MI 21f50  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21f52  EXTB.W  D0>                                              {}
            <POP 0x21f54 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21f56  MOVE.B  D0,(A0)>                                         {}
        <POP 21f58-21f5e Naked>                              Σ0         ↓ →0x21f22 ←0x21f3a
            <MI 21f58  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21f5a  CMP.B   #0x03,D0>                                        {}
            <MI 21f5c  BEQ     0x21f22>                                         {}
        <POP 21f5e-21f78 Naked>                              Σ0         ↓ ←0x21f14
            <MI 21f5e  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 21f62  LEA.L   (A6-0xc),A1>                                     {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 21f6c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21f70  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21f72  EXTB.W  D0>                                              {}
            <POP 0x21f74 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21f76  MOVE.B  D0,(A0)>                                         {}
        <POP 21f78-21f80 Epilogue>                           Σ0         

0x21f80


@ 21f80
        <LVAR  0x008 4(rw)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x010 2(rw)>
    <POP 21f80-22088 Body>                                              
        <POP 21f80-21f96 Prologue>                           Σ0         ↓
        <POP 21f96-21fa4 RegCacheLoad>                       Σ0         ↓
        <POP 21fa4-21fbc Naked>                              Σ0 Δ-4     ↓
            <MI 21fa4  MOVEQ.L #0x01,D6>                                        {}
            <MI 21fa6  CLR.W   (A6-0x10)>                                       {}
            <MI 21fa8  MOVEQ.L #0x01,D5>                                        {}
            <POP 21faa-21fac StackAdj>                       Δ-4                {[-4-]}
            <MI 21fac  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x21fae 0x102f0>                                              {[-4-]|[4, '(A6+0x8)']}
                ToUpper(a : String) : String
            <POP 21fb4-21fb6 StackAdj>                       Δ+4                {[-4-]}
            <MI 21fb6  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {}
            <MI 21fb8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21fba  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
        <POP 21fbc-21fc8 Naked>                              Σ-4        ↓ →0x22076 ←0x2205c
            <MI 21fbc  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21fbe  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 21fc0  EXTW.L  D0>                                              {[-4-]}
            <MI 21fc2  CMP.L   D0,D6>                                           {[-4-]}
            <MI 21fc4  BGT     0x22076>                                         {[-4-]}
        <POP 21fc8-21fda Naked>                              Σ-4        ↓ →0x21fdc
            <MI 21fc8  CLR.L   D0>                                              {[-4-]}
            <MI 21fca  MOVE.B  (A0+D6.L+#0x1),D0>                               {[-4-]}
            <MI 21fce  ANDI.W  #0x007f,D0>                                      {[-4-]}
            <MI 21fd2  MOVE.B  D0,(A6-0x4)>                                     {[-4-]}
            <MI 21fd4  CMPI.B  #0x09,D0>                                        {[-4-]}
            <MI 21fd8  BNE     0x21fdc>                                         {[-4-]}
        <POP 21fda-21fdc Naked>                              Σ-4        ↓
            <MI 21fda  MOVE.B  #0x20,(A6-0x4)>                                  {[-4-]}
        <POP 21fdc-21fe8 Naked>                              Σ-4        ↓ →0x22018 ←0x21fc8
            <MI 21fdc  CLR.L   D0>                                              {[-4-]}
            <MI 21fde  MOVE.B  (A6-0x4),D0>                                     {[-4-]}
            <MI 21fe0  SUB.W   #0x20,D0>                                        {[-4-]}
            <MI 21fe2  CMPI.W  #0x000c,D0>                                      {[-4-]}
            <MI 21fe6  BHI     0x22018>                                         {[-4-]}
        <POP 21fe8-21ff2 Naked>                              Σ-4        →0x22010 →0x2200c →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22014
            <MI 21fe8  ADD.W   D0,D0>                                           {[-4-]}
            <MI 21fea  SWITCH  D0.W>                                            {[-4-]}
        <POP 2200c-2200e Naked>                              Σ-4        →0x22076 ←0x21fe8
            <MI 2200c  BRA     0x22076>                                         {[-4-]}
        <POP 22010-22014 Naked>                              Σ-4        →0x2201a ←0x21fe8
            <MI 22010  MOVEQ.L #0x00,D7>                                        {[-4-]}
            <MI 22012  BRA     0x2201a>                                         {[-4-]}
        <POP 22014-22018 Naked>                              Σ-4        →0x2201a ←0x21fe8
            <MI 22014  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 22016  BRA     0x2201a>                                         {[-4-]}
        <POP 22018-2201a Naked>                              Σ-4        ↓ ←0x21fdc ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8
            <MI 22018  MOVEQ.L #0x02,D7>                                        {[-4-]}
        <POP 2201a-2203e Naked>                              Σ-4        →0x22044 →0x22046 →0x22050 ←0x22010 ←0x22014
            <MI 2201a  MOVEQ.L #0x03,D0>                                        {[-4-]}
            <MI 2201c  MULS.W  (A6-0x10),D0>                                    {[-4-]}
            <MI 2201e  LEA.L   0x21c48,A0>                                      {[-4-]}
            <MI 22022  LEA.L   (A0+D0.W),A0>                                    {[-4-]}
            <MI 22026  CLR.L   D0>                                              {[-4-]}
            <MI 22028  MOVE.B  (A0+D7.W),D0>                                    {[-4-]}
            <POP 0x2202c LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[-4-]}
            <MI 22034  ADD.W   D0,D0>                                           {[-4-]}
            <MI 22036  SWITCH  D0.W>                                            {[-4-]}
        <POP 22044-22046 Naked>                              Σ-4        →0x2205c ←0x2201a
            <MI 22044  BRA     0x2205c>                                         {[-4-]}
        <POP 22046-22050 Naked>                              Σ-4        →0x2205c ←0x2201a
            <MI 22046  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 22048  MOVE.B  (A6-0x4),(A0+D5.L+#0x1)>                         {[-4-]}
            <MI 2204c  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 2204e  BRA     0x2205c>                                         {[-4-]}
        <POP 22050-2205c Naked>                              Σ-4        ↓ ←0x2201a
            <MI 22050  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 22052  MOVE.B  #0x2c,(A0+D5.L+#0x1)>                            {[-4-]}
            <MI 22058  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 2205a  SUBQ.L  #0x1,D6>                                         {[-4-]}
        <POP 2205c-22076 Naked>                              Σ-4        →0x21fbc ←0x22044 ←0x22046
            <MI 2205c  MOVEQ.L #0x03,D0>                                        {[-4-]}
            <MI 2205e  MULS.W  (A6-0x10),D0>                                    {[-4-]}
            <MI 22060  LEA.L   0x21c51,A0>                                      {[-4-]}
            <MI 22064  LEA.L   (A0+D0.W),A0>                                    {[-4-]}
            <MI 22068  CLR.L   D0>                                              {[-4-]}
            <MI 2206a  MOVE.B  (A0+D7.W),D0>                                    {[-4-]}
            <MI 2206e  MOVE.W  D0,(A6-0x10)>                                    {[-4-]}
            <MI 22070  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 22072  BRA     0x21fbc>                                         {[-4-]}
        <POP 22076-22080 Naked>                              Σ-4 Δ+4    ↓ ←0x21fbc ←0x2200c
            <MI 22076  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 22078  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 2207a  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 2207c  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 2207e-22080 StackAdj>                       Δ+4                {}
        <POP 22080-22088 Epilogue>                           Σ0         

0x22088


@ 22088
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x00a @>
        <LVAR -0x00e @ 4(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 22088-22134 Body>                                              
        <POP 22088-2209e Prologue>                           Σ0         ↓
        <POP 2209e-220a4 RegCacheLoad>                       Σ0         ↓
        <POP 220a4-220b2 Naked>                              Σ0         ↓ →0x220ba
            <POP 220a4-220a6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x220a6 0x21d86>                                              {[-2-]}
            <MI 220aa  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 220ac  CMPI.B  #0x5b,D0>                                        {}
            <MI 220b0  BNE     0x220ba>                                         {}
        <POP 220b2-220ba Naked>                              Σ0         ↓
            <POP 220b2-220b4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x220b4 0x21dc4>                                              {[-2-]}
            <MI 220b8  MOVE.B  (A7)+,D7>                     Δ+2                {}
        <POP 220ba-220c4 Naked>                              Σ0         ↓ ←0x220a4
            <MI 220ba  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 220be  MOVE.L  #0x01,(A0)>                                      {}
            <MI 220c0  CLR.B   (A6-0x14)>                                       {}
        <POP 220c4-220de Naked>                              Σ0         ↓ →0x22114 ←0x22114
            <Pointer.fp 0x220c4 <LVAR -0x00a @>>             Δ-4                {[@@-10]}
            <Pointer.fp 0x220c8 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-10]|[@@-2]}
            <Pointer.fp 0x220cc <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-10]|[@@-2]|[@@-20]}
            <Call 0x220d0 0x21ee2>                                              {[@@-10]|[@@-2]|[@@-20]}
            <POP 220d4-220d8 StackAdj>                       Δ+12               {}
            <MI 220d8  TST.B   (A6-0x2)>                                        {}
            <MI 220dc  BNE     0x22114>                                         {}
        <POP 220de-2210a Naked>                              Σ0         ↓ →0x2210e
            <Pointer.fp 0x220de <LVAR -0x00e @ 4(r)>>        Δ-4                {[@@-14]}
            <Const 0x220e0 0xc.4>                            Δ-4                {[@@-14]|[##12]}
            <Call 0x220e4 0x1029c>                                              {[@@-14]|[##12]}
                Malloc1(length : Long) : Pointer
            <POP 220ea-220ec StackAdj>                       Δ+8                {}
            <MI 220ec  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 220ee  MOVEA.L A0,A1>                                           {}
            <MI 220f0  LEA.L   (A6-0xa),A2>                                     {}
            <BlockMove 8,A2,A1>                                                 {}
            <MI 220fc  MOVE.L  #0x01,(A0+0x8)>                                  {}
            <MI 22100  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 22104  MOVEA.L (A0),A1>                                         {}
            <MI 22106  CMPA.W  #0x01,A1>                                        {}
            <MI 22108  BNE     0x2210e>                                         {}
        <POP 2210a-2210e Naked>                              Σ0         →0x22112
            <MI 2210a  MOVE.L  (A6-0xe),(A0)>                                   {}
            <MI 2210c  BRA     0x22112>                                         {}
        <POP 2210e-22112 Naked>                              Σ0         ↓ ←0x220de
            <MI 2210e  MOVE.L  (A6-0xe),(A4+0x8)>                               {}
        <POP 22112-22114 Naked>                              Σ0         ↓ ←0x2210a
            <MI 22112  MOVEA.L (A6-0xe),A4>                                     {}
        <POP 22114-2211a Naked>                              Σ0         ↓ →0x220c4 ←0x220c4
            <MI 22114  TST.B   (A6-0x2)>                                        {}
            <MI 22118  BEQ     0x220c4>                                         {}
        <POP 2211a-2212a Naked>                              Σ0         ↓ →0x2212c
            <MI 2211a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2211e  CLR.B   (A0)>                                            {}
            <MI 22120  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 22124  CMPI.B  #0x02,D0>                                        {}
            <MI 22128  BNE     0x2212c>                                         {}
        <POP 2212a-2212c Naked>                              Σ0         ↓
            <MI 2212a  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 2212c-22134 Epilogue>                           Σ0         ←0x2211a

0x22134


@ 22134
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
    <POP 22134-2216a Body>                                              
        <POP 22134-2214a Prologue>                           Σ0         ↓
        <POP 2214a-22150 Naked>                              Σ0         ↓
            <MI 2214a  MOVEQ.L #-0x01,D7>                                       {}
            <MI 2214c  MOVEA.L (A6+0x8),A4>                                     {}
        <POP 22150-22156 Naked>                              Σ0         ↓ →0x2215e ←0x22156
            <MI 22150  CMPA.W  #0x1,A4>                                         {}
            <MI 22154  BEQ     0x2215e>                                         {}
        <POP 22156-2215e Naked>                              Σ0         →0x22150
            <MI 22156  ADDQ.L  #0x1,D7>                                         {}
            <MI 22158  MOVEA.L (A4+0x8),A4>                                     {}
            <MI 2215c  BRA     0x22150>                                         {}
        <POP 2215e-22162 Naked>                              Σ0         ↓ ←0x22150
            <MI 2215e  MOVE.L  D7,(A6+0xc)>                                     {}
        <POP 22162-2216a Epilogue>                           Σ0         

0x2216a


@ 2216a
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2216a-221f6 Body>                                              
        <POP 2216a-22180 Prologue>                           Σ0         ↓
        <POP 22180-22182 RegCacheLoad>                       Σ0         ↓
        <POP 22182-22196 Naked>                              Σ0         ↓ →0x221ee
            <POP 22182-22184 StackAdj>                       Δ-4                {[-4-]}
            <MI 22184  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Call 0x22188 0x22134>                                              {[-4-]|[4, '(A6+0xc)']}
            <POP 2218c-2218e StackAdj>                       Δ+4                {[-4-]}
            <MI 2218e  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 22190  CMP.L   (A6+0x8),D0>                                     {}
            <MI 22194  BEQ     0x221ee>                                         {}
        <POP 22196-221ee Naked>                              Σ0         ↓
            <MI 22196  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x2219a 0x21ce6>                                              {[4, '(A6+0xc)']}
            <POP 2219e-221a0 StackAdj>                       Δ+4                {}
            <Blob 0x221a0 [32] @>                            Δ-32               {[«32""»]}
            <Blob 0x221ac [10] (A6+0x1a)>                    Δ-10               {[«32""»]|[«10»]}
            <POP 221b8-221ba StackAdj>                       Δ-8                {[«32""»]|[«10»]|[-8-]}
            <Lit 0x221ba 32>                                                    {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
            <POP 221ca-221cc StackAdj>                       Δ-4                {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
            <Lit 0x221cc>                                                       {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
                <Pointer.sp 0x221cc 12>                      Δ-4        
                <Const 0x221d0 0x1.2>                        Δ-2        
                <Const 0x221d2 0xa.2>                        Δ-2        
                <Call 0x221d6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 221dc-221de StackAdj>                   Δ+8        
            <Call 0x221de 0x102d0>                                              {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 221e4-221e6 StackAdj>                       Δ+8                {[«32""»]|[«10»]|[-4-]}
            <Call 0x221e6 0x21d28>                                              {[«32""»]|[«10»]|[-4-]}
            <POP 221ea-221ee StackAdj>                       Δ+46               {}
        <POP 221ee-221f6 Epilogue>                           Σ0         ←0x22182

0x221f6


@ 221f6
        <LVAR  0x014 1(rw)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 221f6-2227c Body>                                   Δ-4        
        <POP 221f6-2220c Prologue>                           Σ0         ↓
        <POP 2220c-22220 Naked>                              Σ0         ↓ →0x2226e
            <MI 2220c  CLR.B   (A6+0x14)>                                       {}
            <MI 22210  MOVE.L  (A6+0x10),D0>                                    {}
            <MI 22214  ADD.L   (A6+0x8),D0>                                     {}
            <MI 22218  CMP.L   0x26836,D0>                                      {}
            <MI 2221e  BGT     0x2226e>                                         {}
        <POP 22220-22226 Naked>                              Σ0 Δ-4     ↓
            <MI 22220  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 22224  MOVEQ.L #0x01,D7>                                        {[4, '(A6+0x8)']}
        <POP 22226-2222a Naked>                              Σ-4        ↓ →0x2226c ←0x22268
            <MI 22226  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22228  BGT     0x2226c>                                         {[-4-]}
        <POP 2222a-22264 Naked>                              Σ-4        ↓ →0x22268
            <MI 2222a  MOVE.L  (A6+0x10),D0>                                    {[-4-]}
            <MI 2222e  ADD.L   D7,D0>                                           {[-4-]}
            <MI 22230  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x22232 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]}
            <MI 2223c  LEA.L   0x2582a,A0>                                      {[-4-]}
            <MI 22242  MOVE.L  (A6+0xc),D1>                                     {[-4-]}
            <MI 22246  ADD.L   D7,D1>                                           {[-4-]}
            <MI 22248  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <MI 2224a  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x2224c LimitCheck 0x0 ≤ D1 ≤ 0x3e>                            {[-4-]}
            <MI 22256  LEA.L   0x21842,A1>                                      {[-4-]}
            <MI 2225a  MOVE.B  (A0+D0.L+#0x8),D0>                               {[-4-]}
            <MI 2225e  CMP.B   (A1+D1.L),D0>                                    {[-4-]}
            <MI 22262  BEQ     0x22268>                                         {[-4-]}
        <POP 22264-22268 Naked>                              Σ-4 Δ+4    →0x22274
            <POP 22264-22266 StackAdj>                       Δ+4                {}
            <MI 22266  BRA     0x22274>                                         {}
        <POP 22268-2226c Naked>                              Σ-4        ↓ →0x22226 ←0x2222a
            <MI 22268  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2226a  BVC     0x22226>                                         {[-4-]}
        <POP 2226c-2226e Naked>                              Σ-4 Δ+4    ↓ ←0x22226
            <POP 2226c-2226e StackAdj>                       Δ+4                {}
        <POP 2226e-22274 Naked>                              Σ0         ↓ ←0x2220c
            <MI 2226e  MOVE.B  #0x01,(A6+0x14)>                                 {}
        <POP 22274-2227c Epilogue>                           Σ0         ←0x22264

0x2227c


@ 2227c
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2227c-22306 Body>                                              
        <POP 2227c-22292 Prologue>                           Σ0         ↓
        <POP 22292-2229c RegCacheLoad>                       Σ0         ↓
        <POP 2229c-222a0 Naked>                              Σ0         ↓ →0x222de
            <MI 2229c  TST.L   (A6+0x8)>                                        {}
            <MI 2229e  BGE     0x222de>                                         {}
        <POP 222a0-222ae Naked>                              Σ0         ↓ →0x222de
            <MI 222a0  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 222a2  NEG.L   D0>                                              {}
            <MI 222a4  ADD.L   0x26836,D0>                                      {}
            <MI 222a6  CMPI.L  #0x00001000,D0>                                  {}
            <MI 222ac  BLE     0x222de>                                         {}
        <POP 222ae-222de Naked>                              Σ0         ↓
            <Blob 0x222ae [28] @>                            Δ-28               {[«28""»]}
            <POP 222c0-222c2 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x222c2 27>                                                    {[«28""»]|[$$Evaluation buffer overflow.]}
            <Call 0x222d6 0x21d28>                                              {[«28""»]|[$$Evaluation buffer overflow.]}
            <POP 222da-222de StackAdj>                       Δ+32               {}
        <POP 222de-222fe Naked>                              Σ0         ↓ ←0x2229c ←0x222a0
            <MI 222de  LEA.L   0x25832,A0>                                      {}
            <MI 222e4  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x222e6 [4] 0x26836>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 222e8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
            <MI 222ec  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x222ee 0x10364>                                              {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                MovStringTail(Base, Len, Ptr, Delta)
            <POP 222f4-222f8 StackAdj>                       Δ+16               {}
            <MI 222f8  MOVE.L  0x26836,D0>                                      {}
            <MI 222fa  SUB.L   (A6+0x8),D0>                                     {}
            <MI 222fc  MOVE.L  D0,0x26836>                                      {}
        <POP 222fe-22306 Epilogue>                           Σ0         

0x22306


@ 22306
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22306-22390 Body>                                              
        <POP 22306-2231c Prologue>                           Σ0         ↓
        <POP 2231c-22320 RegCacheLoad>                       Σ0         ↓
        <POP 22320-22340 Naked>                              Σ0 Δ-8     ↓
            <MI 22320  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22324  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22326  MOVEA.L (A6+0xc),A1>                                     {[4, 'A0']}
            <MI 22328  MOVE.L  (A1),-(A7)>                   Δ-4                {[4, 'A0']|[4, '(A1)']}
            <MI 2232a  MOVE.W  (A0),D0>                                         {[4, 'A0']|[4, '(A1)']}
            <MI 2232c  EXTW.L  D0>                                              {[4, 'A0']|[4, '(A1)']}
            <MI 2232e  NEG.L   D0>                                              {[4, 'A0']|[4, '(A1)']}
            <MI 22330  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
            <Call 0x22332 0x2227c>                                              {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
            <POP 22336-22338 StackAdj>                       Δ+8                {[4, 'A0']}
            <MI 22338  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 2233a  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 2233c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 2233e  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 22340-22344 Naked>                              Σ-8        ↓ →0x2237a ←0x22344
            <MI 22340  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 22342  BGT     0x2237a>                                         {[-8-]}
        <POP 22344-2237a Naked>                              Σ-8        ↓ →0x22340
            <MI 22344  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 22346  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 22348  ADD.L   (A0),D0>                                         {[-8-]}
            <MI 2234a  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 2234c  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x2234e LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 22358  LEA.L   0x2582a,A0>                                      {[-8-]}
            <MI 2235e  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 22360  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x22362 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 2236c  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 22370  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 22376  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 22378  BVC     0x22340>                                         {[-8-]}
        <POP 2237a-22388 Naked>                              Σ-8 Δ+8    ↓ ←0x22340
            <POP 2237a-2237c StackAdj>                       Δ+4                {[-4-]}
            <MI 2237c  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 2237e  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 22380  MOVE.W  (A1),D0>                                         {[-4-]}
            <MI 22382  EXTW.L  D0>                                              {[-4-]}
            <MI 22384  ADD.L   D0,(A0)>                                         {[-4-]}
            <POP 22386-22388 StackAdj>                       Δ+4                {}
        <POP 22388-22390 Epilogue>                           Σ0         

0x22390


@ 22390
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22390-22510 Body>                                              
        <POP 22390-223a6 Prologue>                           Σ0         ↓
        <POP 223a6-223b4 RegCacheLoad>                       Σ0         ↓
        <POP 223b4-223c6 Naked>                              Σ0         ↓
            <MI 223b4  MOVEQ.L #0x00,D7>                                        {}
            <MI 223b6  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 223ba  CLR.L   (A0)>                                            {}
            <MI 223bc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 223be  CLR.L   (A0)>                                            {}
            <MI 223c0  MOVE.L  0x26832,D6>                                      {}
        <POP 223c6-223e6 Naked>                              Σ0         ↓ →0x224b8 ←0x224c2 ←0x224c8
            <MI 223c6  MOVE.L  D6,D0>                                           {}
            <MI 223c8  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x223ca LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 223d4  LEA.L   0x2582a,A0>                                      {}
            <MI 223da  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 223de  CMPI.B  #0x5b,D0>                                        {}
            <MI 223e2  BNE     0x224b8>                                         {}
        <POP 223e6-223fa Naked>                              Σ0         ↓ →0x22478
            <POP 223e6-223e8 StackAdj>                       Δ-2                {[-2-]}
            <MI 223e8  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x223ea 0x1.4>                            Δ-4                {[-2-]|[4, 'D6']|[##1]}
            <Const 0x223ee 0x3.4>                            Δ-4                {[-2-]|[4, 'D6']|[##1]|[##3]}
            <Call 0x223f2 0x221f6>                                              {[-2-]|[4, 'D6']|[##1]|[##3]}
            <POP 223f4-223f6 StackAdj>                       Δ+12               {[-2-]}
            <MI 223f6  TST.B   (A7)+>                        Δ+2                {}
            <MI 223f8  BNE     0x22478>                                         {}
        <POP 223fa-2240c Naked>                              Σ0         ↓ →0x22478
            <POP 223fa-223fc StackAdj>                       Δ-2                {[-2-]}
            <MI 223fc  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x223fe 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##4]}
            <Const 0x22400 0x3.4>                            Δ-4                {[-2-]|[4, 'D6']|[##4]|[##3]}
            <Call 0x22404 0x221f6>                                              {[-2-]|[4, 'D6']|[##4]|[##3]}
            <POP 22406-22408 StackAdj>                       Δ+12               {[-2-]}
            <MI 22408  TST.B   (A7)+>                        Δ+2                {}
            <MI 2240a  BNE     0x22478>                                         {}
        <POP 2240c-2241e Naked>                              Σ0         ↓ →0x22478
            <POP 2240c-2240e StackAdj>                       Δ-2                {[-2-]}
            <MI 2240e  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22410 0x7.4>                            Δ-4                {[-2-]|[4, 'D6']|[##7]}
            <Const 0x22414 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##7]|[##4]}
            <Call 0x22416 0x221f6>                                              {[-2-]|[4, 'D6']|[##7]|[##4]}
            <POP 22418-2241a StackAdj>                       Δ+12               {[-2-]}
            <MI 2241a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2241c  BNE     0x22478>                                         {}
        <POP 2241e-22430 Naked>                              Σ0         ↓ →0x22478
            <POP 2241e-22420 StackAdj>                       Δ-2                {[-2-]}
            <MI 22420  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22422 0xb.4>                            Δ-4                {[-2-]|[4, 'D6']|[##11]}
            <Const 0x22426 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##11]|[##4]}
            <Call 0x22428 0x221f6>                                              {[-2-]|[4, 'D6']|[##11]|[##4]}
            <POP 2242a-2242c StackAdj>                       Δ+12               {[-2-]}
            <MI 2242c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2242e  BNE     0x22478>                                         {}
        <POP 22430-22442 Naked>                              Σ0         ↓ →0x22478
            <POP 22430-22432 StackAdj>                       Δ-2                {[-2-]}
            <MI 22432  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22434 0xf.4>                            Δ-4                {[-2-]|[4, 'D6']|[##15]}
            <Const 0x22438 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##15]|[##4]}
            <Call 0x2243a 0x221f6>                                              {[-2-]|[4, 'D6']|[##15]|[##4]}
            <POP 2243c-2243e StackAdj>                       Δ+12               {[-2-]}
            <MI 2243e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22440  BNE     0x22478>                                         {}
        <POP 22442-22454 Naked>                              Σ0         ↓ →0x22478
            <POP 22442-22444 StackAdj>                       Δ-2                {[-2-]}
            <MI 22444  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22446 0x13.4>                           Δ-4                {[-2-]|[4, 'D6']|[##19]}
            <Const 0x2244a 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##19]|[##4]}
            <Call 0x2244c 0x221f6>                                              {[-2-]|[4, 'D6']|[##19]|[##4]}
            <POP 2244e-22450 StackAdj>                       Δ+12               {[-2-]}
            <MI 22450  TST.B   (A7)+>                        Δ+2                {}
            <MI 22452  BNE     0x22478>                                         {}
        <POP 22454-22466 Naked>                              Σ0         ↓ →0x22478
            <POP 22454-22456 StackAdj>                       Δ-2                {[-2-]}
            <MI 22456  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22458 0x17.4>                           Δ-4                {[-2-]|[4, 'D6']|[##23]}
            <Const 0x2245c 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##23]|[##4]}
            <Call 0x2245e 0x221f6>                                              {[-2-]|[4, 'D6']|[##23]|[##4]}
            <POP 22460-22462 StackAdj>                       Δ+12               {[-2-]}
            <MI 22462  TST.B   (A7)+>                        Δ+2                {}
            <MI 22464  BNE     0x22478>                                         {}
        <POP 22466-22478 Naked>                              Σ0         ↓ →0x2247c
            <POP 22466-22468 StackAdj>                       Δ-2                {[-2-]}
            <MI 22468  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x2246a 0x1b.4>                           Δ-4                {[-2-]|[4, 'D6']|[##27]}
            <Const 0x2246e 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##27]|[##4]}
            <Call 0x22470 0x221f6>                                              {[-2-]|[4, 'D6']|[##27]|[##4]}
            <POP 22472-22474 StackAdj>                       Δ+12               {[-2-]}
            <MI 22474  TST.B   (A7)+>                        Δ+2                {}
            <MI 22476  BEQ     0x2247c>                                         {}
        <POP 22478-2247c Naked>                              Σ0         →0x224b8 ←0x223e6 ←0x223fa ←0x2240c ←0x2241e ←0x22430 ←0x22442 ←0x22454
            <MI 22478  ADDQ.L  #0x1,D7>                                         {}
            <MI 2247a  BRA     0x224b8>                                         {}
        <POP 2247c-22480 Naked>                              Σ0         ↓ →0x2249c ←0x22466
            <MI 2247c  TST.L   D7>                                              {}
            <MI 2247e  BNE     0x2249c>                                         {}
        <POP 22480-22494 Naked>                              Σ0         ↓ →0x2249c
            <POP 22480-22482 StackAdj>                       Δ-2                {[-2-]}
            <MI 22482  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22484 0x1f.4>                           Δ-4                {[-2-]|[4, 'D6']|[##31]}
            <Const 0x22488 0x5.4>                            Δ-4                {[-2-]|[4, 'D6']|[##31]|[##5]}
            <Call 0x2248c 0x221f6>                                              {[-2-]|[4, 'D6']|[##31]|[##5]}
            <POP 2248e-22490 StackAdj>                       Δ+12               {[-2-]}
            <MI 22490  TST.B   (A7)+>                        Δ+2                {}
            <MI 22492  BEQ     0x2249c>                                         {}
        <POP 22494-22498 Naked>                              Σ0         ↓
            <MI 22494  MOVEA.L (A6+0xc),A0>                                     {}
        <POP 22498-2249c Naked>                              Σ0         →0x224b8 ←0x224b2
            <MI 22498  MOVE.L  D6,(A0)>                                         {}
            <MI 2249a  BRA     0x224b8>                                         {}
        <POP 2249c-224ae Naked>                              Σ0         ↓ →0x224b8 ←0x2247c ←0x22480
            <POP 2249c-2249e StackAdj>                       Δ-2                {[-2-]}
            <MI 2249e  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x224a0 0x24.4>                           Δ-4                {[-2-]|[4, 'D6']|[##36]}
            <Const 0x224a4 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##36]|[##4]}
            <Call 0x224a6 0x221f6>                                              {[-2-]|[4, 'D6']|[##36]|[##4]}
            <POP 224a8-224aa StackAdj>                       Δ+12               {[-2-]}
            <MI 224aa  TST.B   (A7)+>                        Δ+2                {}
            <MI 224ac  BEQ     0x224b8>                                         {}
        <POP 224ae-224b2 Naked>                              Σ0         ↓ →0x224b6
            <MI 224ae  TST.L   D7>                                              {}
            <MI 224b0  BNE     0x224b6>                                         {}
        <POP 224b2-224b6 Naked>                              Σ0         →0x22498
            <MI 224b2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 224b4  BRA     0x22498>                                         {}
        <POP 224b6-224b8 Naked>                              Σ0         ↓ ←0x224ae
            <MI 224b6  SUBQ.L  #0x1,D7>                                         {}
        <POP 224b8-224c2 Naked>                              Σ0         ↓ →0x224d0 ←0x223c6 ←0x22478 ←0x22498 ←0x2249c
            <MI 224b8  ADDQ.L  #0x1,D6>                                         {}
            <MI 224ba  CMP.L   0x26836,D6>                                      {}
            <MI 224c0  BGT     0x224d0>                                         {}
        <POP 224c2-224c8 Naked>                              Σ0         ↓ →0x223c6
            <MI 224c2  TST.L   D7>                                              {}
            <MI 224c4  BNE     0x223c6>                                         {}
        <POP 224c8-224d0 Naked>                              Σ0         ↓ →0x223c6
            <MI 224c8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 224ca  TST.L   (A0)>                                            {}
            <MI 224cc  BEQ     0x223c6>                                         {}
        <POP 224d0-224d8 Naked>                              Σ0         ↓ →0x22508 ←0x224b8
            <MI 224d0  CMP.L   0x26836,D6>                                      {}
            <MI 224d6  BLE     0x22508>                                         {}
        <POP 224d8-22508 Naked>                              Σ0         ↓
            <Blob 0x224d8 [28] @>                            Δ-28               {[«28""»]}
            <POP 224ea-224ec StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x224ec 27>                                                    {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
            <Call 0x22500 0x21d28>                                              {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
            <POP 22504-22508 StackAdj>                       Δ+32               {}
        <POP 22508-22510 Epilogue>                           Σ0         ←0x224d0

0x22510


@ 22510
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 22510-22556 Body>                                              
        <POP 22510-22526 Prologue>                           Σ0         ↓
        <POP 22526-2252e RegCacheLoad>                       Σ0         ↓
        <POP 2252e-2253c Naked>                              Σ0         ↓ →0x2253e
            <Pointer.fp 0x2252e <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Pointer.fp 0x22530 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-8]|[@@-4]}
            <Call 0x22532 0x22390>                                              {[@@-8]|[@@-4]}
            <POP 22536-22538 StackAdj>                       Δ+8                {}
            <MI 22538  TST.L   (A6-0x8)>                                        {}
            <MI 2253a  BNE     0x2253e>                                         {}
        <POP 2253c-2253e Naked>                              Σ0         ↓
            <MI 2253c  MOVE.L  (A6-0x4),(A6-0x8)>                               {}
        <POP 2253e-2254e Naked>                              Σ0         ↓ ←0x2252e
            <MI 2253e  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 22540  ADDQ.L  #0x5,D0>                                         {}
            <MI 22542  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 22544  SUB.L   (A6-0x8),D0>                                     {[4, 'D0']}
            <MI 22546  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x22548 0x2227c>                                              {[4, 'D0']|[4, 'D0']}
            <POP 2254c-2254e StackAdj>                       Δ+8                {}
        <POP 2254e-22556 Epilogue>                           Σ0         

0x22556


@ 22556
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 22556-225b2 Body>                                              
        <POP 22556-2256c Prologue>                           Σ0         ↓
        <POP 2256c-22574 RegCacheLoad>                       Σ0         ↓
        <POP 22574-22582 Naked>                              Σ0         ↓ →0x22588
            <Pointer.fp 0x22574 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x22576 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-8]|[@@-4]}
            <Call 0x22578 0x22390>                                              {[@@-8]|[@@-4]}
            <POP 2257c-2257e StackAdj>                       Δ+8                {}
            <MI 2257e  TST.L   (A6-0x8)>                                        {}
            <MI 22580  BNE     0x22588>                                         {}
        <POP 22582-22588 Naked>                              Σ0         →0x2259a
            <MI 22582  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 22584  ADDQ.L  #0x5,D0>                                         {}
            <MI 22586  BRA     0x2259a>                                         {}
        <POP 22588-2259a Naked>                              Σ0         ↓ ←0x22574
            <MI 22588  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 2258a  ADDQ.L  #0x5,(A7)>                                       {[-4-]}
            <Const 0x2258c 0x5.4>                            Δ-4                {[-4-]|[##5]}
            <Call 0x22590 0x2227c>                                              {[-4-]|[##5]}
            <POP 22594-22596 StackAdj>                       Δ+8                {}
            <MI 22596  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 22598  ADDQ.L  #0x6,D0>                                         {}
        <POP 2259a-225aa Naked>                              Σ0         ↓ ←0x22582
            <MI 2259a  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2259c  SUB.L   0x26832,D0>                                      {[4, 'D0']}
            <MI 225a2  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x225a4 0x2227c>                                              {[4, 'D0']|[4, 'D0']}
            <POP 225a8-225aa StackAdj>                       Δ+8                {}
        <POP 225aa-225b2 Epilogue>                           Σ0         

0x225b2


@ 225b2
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 225b2-226c6 Body>                                              
        <POP 225b2-225c8 Prologue>                           Σ0         ↓
        <POP 225c8-225e0 RegCacheLoad>                       Σ0         ↓
        <POP 225e0-225e4 Naked>                              Σ0         ↓ →0x225ee
            <MI 225e0  TST.B   0x26844>                                         {}
            <MI 225e2  BEQ     0x225ee>                                         {}
        <POP 225e4-225e8 Naked>                              Σ0         ↓ →0x225ee
            <MI 225e4  TST.L   0x2684a>                                         {}
            <MI 225e6  BNE     0x225ee>                                         {}
        <POP 225e8-225ee Naked>                              Σ0         ↓
            <MI 225e8  MOVE.L  (A6+0x8),0x2684a>                                {}
            <MI 225ec  SUBQ.L  #0x1,0x2684a>                                    {}
        <POP 225ee-225f4 Naked>                              Σ0         ↓ →0x226be ←0x225e0 ←0x225e4
            <MI 225ee  TST.B   0x26844>                                         {}
            <MI 225f0  BNE     0x226be>                                         {}
        <POP 225f4-22628 Naked>                              Σ0         ↓ →0x22642
            <MI 225f4  MOVE.L  (A6+0x8),0x26832>                                {}
            <MI 225f8  ADDQ.L  #0x6,0x26832>                                    {}
            <Pointer.fp 0x225fa <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x225fc <LVAR -0x004 @>>             Δ-4                {[@@-8]|[@@-4]}
            <Call 0x22600 0x22088>                                              {[@@-8]|[@@-4]}
            <POP 22604-22606 StackAdj>                       Δ+8                {}
            <Blob 0x22606 [10] @>                            Δ-10               {[«10""»]}
            <MI 22612  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6-0x8)']}
            <Const 0x22614 0x0.4>                            Δ-4                {[«10""»]|[4, '(A6-0x8)']|[##0]}
            <Call 0x22618 0x2216a>                                              {[«10""»]|[4, '(A6-0x8)']|[##0]}
            <POP 2261c-22620 StackAdj>                       Δ+18               {}
            <MI 22620  TST.B   0x2684e>                                         {}
            <MI 22626  BEQ     0x22642>                                         {}
        <POP 22628-22642 Naked>                              Σ0         →0x22656
            <POP 22628-2262a StackAdj>                       Δ-8                {[-8-]}
            <MI 2262a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x8)']}
            <Const 0x2262c 0x0.4>                            Δ-4                {[-8-]|[4, '(A6-0x8)']|[##0]}
            <Call 0x22630 0x22a82>                                              {[-8-]|[4, '(A6-0x8)']|[##0]}
            <POP 22636-22638 StackAdj>                       Δ+8                {[-8-]}
            <MI 22638  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[-4-]}
            <MI 2263c  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 22640  BRA     0x22656>                                         {}
        <POP 22642-22656 Naked>                              Σ0         ↓ ←0x225f4
            <POP 22642-22644 StackAdj>                       Δ-4                {[-4-]}
            <MI 22644  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <Const 0x22646 0x0.4>                            Δ-4                {[-4-]|[4, '(A6-0x8)']|[##0]}
            <Call 0x2264a 0x22a50>                                              {[-4-]|[4, '(A6-0x8)']|[##0]}
            <POP 22650-22652 StackAdj>                       Δ+8                {[-4-]}
            <MI 22652  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
        <POP 22656-2266c Naked>                              Σ0         ↓ →0x22696 ←0x22628
            <MI 22656  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Call 0x22658 0x21ce6>                                              {[4, '(A6-0x8)']}
            <POP 2265c-2265e StackAdj>                       Δ+4                {}
            <MI 2265e  MOVE.L  0x26832,0x26846>                                 {}
            <MI 22664  TST.B   0x2684e>                                         {}
            <MI 2266a  BEQ     0x22696>                                         {}
        <POP 2266c-22696 Naked>                              Σ0         →0x226be
            <POP 2266c-2266e StackAdj>                       Δ-2                {[-2-]}
            <MI 2266e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']}
            <MI 22672  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Blob 0x22676 [4] 0x26858>                       Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
            <Blob 0x2267c [4] 0x26854>                       Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
            <Call 0x22682 0x1032c>                                              {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
                IsEqual(a, b : Quad) : Bool
            <POP 22688-2268c StackAdj>                       Δ+16               {[-2-]}
            <MI 2268c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2268e  EXTB.W  D0>                                              {}
            <POP 0x22690 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 22692  MOVE.B  D0,0x26844>                                      {}
            <MI 22694  BRA     0x226be>                                         {}
        <POP 22696-226be Naked>                              Σ0         ↓ ←0x22656
            <POP 22696-22698 StackAdj>                       Δ-2                {[-2-]}
            <MI 22698  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xc)']}
            <Blob 0x2269c [4] 0x26850>                       Δ-4                {[-2-]|[4, '(A6-0xc)']|[«4»]}
            <Call 0x226a2 0x102c8>                                              {[-2-]|[4, '(A6-0xc)']|[«4»]}
                StringEqual(a, b : String) : Byte
            <POP 226a8-226aa StackAdj>                       Δ+8                {[-2-]}
            <MI 226aa  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 226ac  EXTB.W  D0>                                              {}
            <POP 0x226ae LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 226b0  MOVE.B  D0,0x26844>                                      {}
            <Pointer.fp 0x226b2 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x226b6 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 226bc-226be StackAdj>                       Δ+4                {}
        <POP 226be-226c6 Epilogue>                           Σ0         ←0x225ee ←0x2266c

0x226c6


@ 226c6
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 226c6-22848 Body>                                              
        <POP 226c6-226dc Prologue>                           Σ0         ↓
        <POP 226dc-226f0 RegCacheLoad>                       Σ0         ↓
        <POP 226f0-22704 Naked>                              Σ0         ↓
            <MI 226f0  CLR.B   0x26844>                                         {}
            <MI 226f2  CLR.L   0x26846>                                         {}
            <MI 226f8  CLR.L   0x2684a>                                         {}
            <MI 226fa  MOVEQ.L #0x00,D7>                                        {}
            <MI 226fc  MOVEQ.L #0x00,D6>                                        {}
            <MI 226fe  MOVE.L  0x26832,D5>                                      {}
        <POP 22704-2270a Naked>                              Σ0         ↓ →0x227a8 ←0x227a4
            <MI 22704  TST.L   D6>                                              {}
            <MI 22706  BNE     0x227a8>                                         {}
        <POP 2270a-22714 Naked>                              Σ0         ↓ →0x227a8
            <MI 2270a  CMP.L   0x26836,D5>                                      {}
            <MI 22710  BGT     0x227a8>                                         {}
        <POP 22714-22732 Naked>                              Σ0         ↓ →0x2279e
            <MI 22714  MOVE.L  D5,D0>                                           {}
            <MI 22716  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x22718 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 22722  LEA.L   0x2582a,A0>                                      {}
            <MI 22728  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 2272c  CMPI.B  #0x5b,D0>                                        {}
            <MI 22730  BNE     0x2279e>                                         {}
        <POP 22732-22746 Naked>                              Σ0         ↓ →0x2275a
            <POP 22732-22734 StackAdj>                       Δ-2                {[-2-]}
            <MI 22734  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x22736 0x28.4>                           Δ-4                {[-2-]|[4, 'D5']|[##40]}
            <Const 0x2273a 0x5.4>                            Δ-4                {[-2-]|[4, 'D5']|[##40]|[##5]}
            <Call 0x2273e 0x221f6>                                              {[-2-]|[4, 'D5']|[##40]|[##5]}
            <POP 22740-22742 StackAdj>                       Δ+12               {[-2-]}
            <MI 22742  TST.B   (A7)+>                        Δ+2                {}
            <MI 22744  BNE     0x2275a>                                         {}
        <POP 22746-2275a Naked>                              Σ0         ↓ →0x2275e
            <POP 22746-22748 StackAdj>                       Δ-2                {[-2-]}
            <MI 22748  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x2274a 0x2d.4>                           Δ-4                {[-2-]|[4, 'D5']|[##45]}
            <Const 0x2274e 0x6.4>                            Δ-4                {[-2-]|[4, 'D5']|[##45]|[##6]}
            <Call 0x22752 0x221f6>                                              {[-2-]|[4, 'D5']|[##45]|[##6]}
            <POP 22754-22756 StackAdj>                       Δ+12               {[-2-]}
            <MI 22756  TST.B   (A7)+>                        Δ+2                {}
            <MI 22758  BEQ     0x2275e>                                         {}
        <POP 2275a-2275e Naked>                              Σ0         →0x2279e ←0x22732
            <MI 2275a  ADDQ.L  #0x1,D7>                                         {}
            <MI 2275c  BRA     0x2279e>                                         {}
        <POP 2275e-22762 Naked>                              Σ0         ↓ →0x22780 ←0x22746
            <MI 2275e  TST.L   D7>                                              {}
            <MI 22760  BNE     0x22780>                                         {}
        <POP 22762-22776 Naked>                              Σ0         ↓ →0x22780
            <POP 22762-22764 StackAdj>                       Δ-2                {[-2-]}
            <MI 22764  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x22766 0x33.4>                           Δ-4                {[-2-]|[4, 'D5']|[##51]}
            <Const 0x2276a 0x5.4>                            Δ-4                {[-2-]|[4, 'D5']|[##51]|[##5]}
            <Call 0x2276e 0x221f6>                                              {[-2-]|[4, 'D5']|[##51]|[##5]}
            <POP 22770-22772 StackAdj>                       Δ+12               {[-2-]}
            <MI 22772  TST.B   (A7)+>                        Δ+2                {}
            <MI 22774  BEQ     0x22780>                                         {}
        <POP 22776-22780 Naked>                              Σ0         →0x2279e
            <MI 22776  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <Call 0x22778 0x225b2>                                              {[4, 'D5']}
            <POP 2277c-2277e StackAdj>                       Δ+4                {}
            <MI 2277e  BRA     0x2279e>                                         {}
        <POP 22780-22794 Naked>                              Σ0         ↓ →0x2279e ←0x2275e ←0x22762
            <POP 22780-22782 StackAdj>                       Δ-2                {[-2-]}
            <MI 22782  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x22784 0x38.4>                           Δ-4                {[-2-]|[4, 'D5']|[##56]}
            <Const 0x22788 0x8.4>                            Δ-4                {[-2-]|[4, 'D5']|[##56]|[##8]}
            <Call 0x2278c 0x221f6>                                              {[-2-]|[4, 'D5']|[##56]|[##8]}
            <POP 2278e-22790 StackAdj>                       Δ+12               {[-2-]}
            <MI 22790  TST.B   (A7)+>                        Δ+2                {}
            <MI 22792  BEQ     0x2279e>                                         {}
        <POP 22794-22798 Naked>                              Σ0         ↓ →0x2279c
            <MI 22794  TST.L   D7>                                              {}
            <MI 22796  BNE     0x2279c>                                         {}
        <POP 22798-2279c Naked>                              Σ0         →0x2279e
            <MI 22798  MOVE.L  D5,D6>                                           {}
            <MI 2279a  BRA     0x2279e>                                         {}
        <POP 2279c-2279e Naked>                              Σ0         ↓ ←0x22794
            <MI 2279c  SUBQ.L  #0x1,D7>                                         {}
        <POP 2279e-227a2 Naked>                              Σ0         ↓ →0x227a4 ←0x22714 ←0x2275a ←0x22776 ←0x22780 ←0x22798
            <MI 2279e  TST.L   D6>                                              {}
            <MI 227a0  BNE     0x227a4>                                         {}
        <POP 227a2-227a4 Naked>                              Σ0         ↓
            <MI 227a2  ADDQ.L  #0x1,D5>                                         {}
        <POP 227a4-227a8 Naked>                              Σ0         →0x22704 ←0x2279e
            <MI 227a4  BRA     0x22704>                                         {}
        <POP 227a8-227b0 Naked>                              Σ0         ↓ →0x227be ←0x22704 ←0x2270a
            <MI 227a8  TST.B   0x2684e>                                         {}
            <MI 227ae  BNE     0x227be>                                         {}
        <POP 227b0-227be Naked>                              Σ0         ↓
            <Const 0x227b0 0x26850.4>                        Δ-4                {[##157776]}
            <Call 0x227b6 0x102bc>                                              {[##157776]}
                FreeString(VAR a : String)
            <POP 227bc-227be StackAdj>                       Δ+4                {}
        <POP 227be-227c2 Naked>                              Σ0         ↓ →0x227ea ←0x227a8
            <MI 227be  TST.B   0x26844>                                         {}
            <MI 227c0  BNE     0x227ea>                                         {}
        <POP 227c2-227ea Naked>                              Σ0         ↓
            <Blob 0x227c2 [26] @>                            Δ-26               {[«26""»]}
            <POP 227ce-227d0 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x227d0 26>                                                    {[«26""»]|[$$No case alternative found!]}
            <Call 0x227e2 0x21d28>                                              {[«26""»]|[$$No case alternative found!]}
            <POP 227e6-227ea StackAdj>                       Δ+30               {}
        <POP 227ea-227ee Naked>                              Σ0         ↓ →0x2281c ←0x227be
            <MI 227ea  TST.L   D6>                                              {}
            <MI 227ec  BNE     0x2281c>                                         {}
        <POP 227ee-2281c Naked>                              Σ0         ↓
            <Blob 0x227ee [20] @>                            Δ-20               {[«20""»]}
            <POP 22800-22802 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x22802 19>                                                    {[«20""»]|[$$No [ENDCASE] found!]}
            <Call 0x22814 0x21d28>                                              {[«20""»]|[$$No [ENDCASE] found!]}
            <POP 22818-2281c StackAdj>                       Δ+24               {}
        <POP 2281c-22830 Naked>                              Σ0         ↓ →0x2283a ←0x227ea
            <MI 2281c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22820  MOVE.L  D6,(A0)>                                         {}
            <MI 22822  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 22826  MOVE.L  0x26846,(A0)>                                    {}
            <MI 2282c  TST.L   0x2684a>                                         {}
            <MI 2282e  BNE     0x2283a>                                         {}
        <POP 22830-2283a Naked>                              Σ0         →0x22840
            <MI 22830  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 22834  MOVE.L  D6,(A0)>                                         {}
            <MI 22836  SUBQ.L  #0x1,(A0)>                                       {}
            <MI 22838  BRA     0x22840>                                         {}
        <POP 2283a-22840 Naked>                              Σ0         ↓ ←0x2281c
            <MI 2283a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2283e  MOVE.L  0x2684a,(A0)>                                    {}
        <POP 22840-22848 Epilogue>                           Σ0         ←0x22830

0x22848


@ 22848
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 22848-228bc Body>                                              
        <POP 22848-2285e Prologue>                           Σ0         ↓
        <POP 2285e-22868 RegCacheLoad>                       Σ0         ↓
        <POP 22868-228b4 Naked>                              Σ0         ↓
            <MI 22868  MOVE.L  0x26832,D6>                                      {}
            <MI 2286a  CLR.B   0x2684e>                                         {}
            <MI 22870  MOVE.L  (A6+0x8),0x26850>                                {}
            <MI 22878  MOVE.L  0x26832,D7>                                      {}
            <Pointer.fp 0x2287a <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Pointer.fp 0x2287c <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]}
            <Pointer.fp 0x22880 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]|[@@-8]}
            <Call 0x22884 0x226c6>                                              {[@@-16]|[@@-12]|[@@-8]}
            <POP 22888-2288c StackAdj>                       Δ+12               {}
            <MI 2288c  MOVE.L  D6,0x26832>                                      {}
            <MI 2288e  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 22892  ADDI.L  #0x00000009,D0>                                  {}
            <MI 22898  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2289a  SUB.L   (A6-0xc),D0>                                     {[4, 'D0']}
            <MI 2289e  SUBQ.L  #0x1,D0>                                         {[4, 'D0']}
            <MI 228a0  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x228a2 0x2227c>                                              {[4, 'D0']|[4, 'D0']}
            <POP 228a6-228a8 StackAdj>                       Δ+4                {[4, 'D0']}
            <MI 228a8  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 228aa  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
            <MI 228ac  SUB.L   D7,(A7)>                                         {[4, '(A6-0x10)']|[-4-]}
            <Call 0x228ae 0x2227c>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 228b2-228b4 StackAdj>                       Δ+8                {}
        <POP 228b4-228bc Epilogue>                           Σ0         

0x228bc


@ 228bc
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 228bc-2293a Body>                                              
        <POP 228bc-228d2 Prologue>                           Σ0         ↓
        <POP 228d2-228dc RegCacheLoad>                       Σ0         ↓
        <POP 228dc-22932 Naked>                              Σ0         ↓
            <MI 228dc  MOVE.L  0x26832,D6>                                      {}
            <MI 228de  MOVE.B  #0x01,0x2684e>                                   {}
            <MI 228e6  MOVE.L  (A6+0x8),0x26854>                                {}
            <MI 228ee  MOVE.L  (A6+0xc),0x26858>                                {}
            <MI 228f6  MOVE.L  0x26832,D7>                                      {}
            <Pointer.fp 0x228f8 <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Pointer.fp 0x228fa <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]}
            <Pointer.fp 0x228fe <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]|[@@-8]}
            <Call 0x22902 0x226c6>                                              {[@@-16]|[@@-12]|[@@-8]}
            <POP 22906-2290a StackAdj>                       Δ+12               {}
            <MI 2290a  MOVE.L  D6,0x26832>                                      {}
            <MI 2290c  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 22910  ADDI.L  #0x00000009,D0>                                  {}
            <MI 22916  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 22918  SUB.L   (A6-0xc),D0>                                     {[4, 'D0']}
            <MI 2291c  SUBQ.L  #0x1,D0>                                         {[4, 'D0']}
            <MI 2291e  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x22920 0x2227c>                                              {[4, 'D0']|[4, 'D0']}
            <POP 22924-22926 StackAdj>                       Δ+4                {[4, 'D0']}
            <MI 22926  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 22928  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
            <MI 2292a  SUB.L   D7,(A7)>                                         {[4, '(A6-0x10)']|[-4-]}
            <Call 0x2292c 0x2227c>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 22930-22932 StackAdj>                       Δ+8                {}
        <POP 22932-2293a Epilogue>                           Σ0         

0x2293a


@ 2293a
        <LVAR  0x010 4(rw)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2293a-22972 Body>                                              
        <POP 2293a-22950 Prologue>                           Σ0         ↓
        <POP 22950-22956 Naked>                              Σ0         ↓ →0x2295c
            <MI 22950  TST.L   (A6+0x8)>                                        {}
            <MI 22954  BNE     0x2295c>                                         {}
        <POP 22956-2295c Naked>                              Σ0         →0x2296a
            <MI 22956  CLR.L   (A6+0x10)>                                       {}
            <MI 2295a  BRA     0x2296a>                                         {}
        <POP 2295c-2296a Naked>                              Σ0         ↓ ←0x22950
            <MI 2295c  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 22960  SUB.L   (A6+0x8),D0>                                     {}
            <MI 22964  ADDQ.L  #0x1,D0>                                         {}
            <MI 22966  MOVE.L  D0,(A6+0x10)>                                    {}
        <POP 2296a-22972 Epilogue>                           Σ0         ←0x22956

0x22972


@ 22972
        <LVAR  0x014 4(w)>
        <LVAR  0x010 @ 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22972-229d4 Body>                                   Δ-4        
        <POP 22972-22988 Prologue>                           Σ0         ↓
        <POP 22988-2299e Naked>                              Σ0 Δ-4     ↓
            <MI 22988  MOVEA.L (A6+0xc),A4>                                     {}
            <MI 2298c  MOVE.L  0x21c40,(A6+0x10)>                               {}
            <MI 22992  MOVE.L  0x21c44,(A6+0x14)>                               {}
            <MI 22998  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 2299c  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0x8)']}
        <POP 2299e-229a2 Naked>                              Σ-4        ↓ →0x229ca ←0x229c6
            <MI 2299e  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 229a0  BGT     0x229ca>                                         {[-4-]}
        <POP 229a2-229a8 Naked>                              Σ-4        ↓ →0x229ac
            <MI 229a2  CMPA.W  #0x1,A4>                                         {[-4-]}
            <MI 229a6  BNE     0x229ac>                                         {[-4-]}
        <POP 229a8-229ac Naked>                              Σ-4 Δ+4    →0x229cc
            <POP 229a8-229aa StackAdj>                       Δ+4                {}
            <MI 229aa  BRA     0x229cc>                                         {}
        <POP 229ac-229b2 Naked>                              Σ-4        ↓ →0x229c2 ←0x229a2
            <MI 229ac  CMP.L   (A6+0x8),D7>                                     {[-4-]}
            <MI 229b0  BNE     0x229c2>                                         {[-4-]}
        <POP 229b2-229c2 Naked>                              Σ-4        →0x229c6
            <MI 229b2  LEA.L   (A6+0x10),A0>                                    {[-4-]}
            <MI 229b6  MOVEA.L A4,A1>                                           {[-4-]}
            <BlockMove 8,A1,A0>                                                 {[-4-]}
            <MI 229c0  BRA     0x229c6>                                         {[-4-]}
        <POP 229c2-229c6 Naked>                              Σ-4        ↓ ←0x229ac
            <MI 229c2  MOVEA.L (A4+0x8),A4>                                     {[-4-]}
        <POP 229c6-229ca Naked>                              Σ-4        ↓ →0x2299e ←0x229b2
            <MI 229c6  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 229c8  BVC     0x2299e>                                         {[-4-]}
        <POP 229ca-229cc Naked>                              Σ-4 Δ+4    ↓ ←0x2299e
            <POP 229ca-229cc StackAdj>                       Δ+4                {}
        <POP 229cc-229d4 Epilogue>                           Σ0         ←0x229a8

0x229d4


@ 229d4
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 229d4-22a50 Body>                                   Δ-4        
        <POP 229d4-229ea Prologue>                           Σ0         ↓
        <POP 229ea-229ee RegCacheLoad>                       Σ0         ↓
        <POP 229ee-22a06 Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x229ee <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x229f0 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <MI 229f6  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[@@-8]|[4, '(A6+0xc)']}
            <MI 229fa  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x229fe 0x2293a>                                              {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 22a02-22a04 StackAdj>                       Δ+8                {[@@-8]}
            <MI 22a04  MOVEQ.L #0x01,D7>                                        {[@@-8]}
        <POP 22a06-22a0a Naked>                              Σ-4        ↓ →0x22a42 ←0x22a32
            <MI 22a06  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22a08  BGT     0x22a42>                                         {[-4-]}
        <POP 22a0a-22a2e Naked>                              Σ-4        ↓ →0x22a32
            <MI 22a0a  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 22a0c  ADD.L   (A6+0x8),D0>                                     {[-4-]}
            <MI 22a10  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 22a12  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x22a14 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]}
            <MI 22a1e  LEA.L   0x2582a,A0>                                      {[-4-]}
            <MI 22a24  MOVE.B  (A0+D0.L+#0x8),D6>                               {[-4-]}
            <MI 22a28  CMPI.B  #0x2f,D6>                                        {[-4-]}
            <MI 22a2c  BNE     0x22a32>                                         {[-4-]}
        <POP 22a2e-22a32 Naked>                              Σ-4 Δ+4    →0x22a44
            <POP 22a2e-22a30 StackAdj>                       Δ+4                {}
            <MI 22a30  BRA     0x22a44>                                         {}
        <POP 22a32-22a42 Naked>                              Σ-4        ↓ →0x22a06 ←0x22a0a
            <MI 22a32  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <MI 22a34  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
            <Call 0x22a36 0x102c0>                                              {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 22a3c-22a3e StackAdj>                       Δ+6                {[-4-]}
            <MI 22a3e  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22a40  BVC     0x22a06>                                         {[-4-]}
        <POP 22a42-22a44 Naked>                              Σ-4 Δ+4    ↓ ←0x22a06
            <POP 22a42-22a44 StackAdj>                       Δ+4                {}
        <POP 22a44-22a48 Naked>                              Σ0         ↓ ←0x22a2e
            <MI 22a44  MOVE.L  (A6-0x8),(A6+0x10)>                              {}
        <POP 22a48-22a50 Epilogue>                           Σ0         

0x22a50


@ 22a50
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22a50-22a82 Body>                                              
        <POP 22a50-22a62 Prologue>                           Σ0         ↓
        <POP 22a62-22a7e Naked>                              Σ0         ↓
            <POP 22a62-22a66 StackAdj>                       Δ-12               {[-12-]}
            <MI 22a66  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 22a6a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x22a6e 0x22972>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 22a72-22a74 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x22a74 0x229d4>                                              {[-12-]}
            <POP 22a78-22a7a StackAdj>                       Δ+8                {[-4-]}
            <MI 22a7a  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
        <POP 22a7e-22a82 Epilogue>                           Σ0         

0x22a82


@ 22a82
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22a82-22abe Body>                                              
        <POP 22a82-22a94 Prologue>                           Σ0         ↓
        <POP 22a94-22aba Naked>                              Σ0         ↓
            <POP 22a94-22a98 StackAdj>                       Δ-12               {[-12-]}
            <MI 22a98  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 22a9c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x22aa0 0x22a50>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 22aa4-22aa6 StackAdj>                       Δ+8                {[-12-]}
            <Const 0x22aa6 0x10.4>                           Δ-4                {[-12-]|[##16]}
            <Call 0x22aaa 0x10360>                                              {[-12-]|[##16]}
                ?StringToInt64()
            <POP 22ab0-22ab2 StackAdj>                       Δ+8                {[-8-]}
            <MI 22ab2  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {[-4-]}
            <MI 22ab6  MOVE.L  (A7)+,(A6+0x14)>              Δ+4                {}
        <POP 22aba-22abe Epilogue>                           Σ0         

0x22abe


@ 22abe
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22abe-22af2 Body>                                              
        <POP 22abe-22ad0 Prologue>                           Σ0         ↓
        <POP 22ad0-22aee Naked>                              Σ0         ↓
            <POP 22ad0-22ad4 StackAdj>                       Δ-12               {[-12-]}
            <MI 22ad4  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 22ad8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x22adc 0x22a82>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 22ae0-22ae2 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x22ae2 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 22ae8-22aea StackAdj>                       Δ+8                {[-4-]}
            <MI 22aea  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
        <POP 22aee-22af2 Epilogue>                           Σ0         

0x22af2


@ 22af2
        <LVAR  0x008 @ 4(r)>
    <POP 22af2-22b7a Body>                                              
        <POP 22af2-22b08 Prologue>                           Σ0         ↓
        <POP 22b08-22b0e RegCacheLoad>                       Σ0         ↓
        <POP 22b0e-22b2c Naked>                              Σ0 Δ-8     ↓
            <MI 22b0e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22b12  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x22b14 [4] 0x26832>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 22b16  MOVE.W  (A0),D0>                                         {[4, 'A0']|[«4»]}
            <MI 22b18  EXTW.L  D0>                                              {[4, 'A0']|[«4»]}
            <MI 22b1a  NEG.L   D0>                                              {[4, 'A0']|[«4»]}
            <MI 22b1c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[«4»]|[4, 'D0']}
            <Call 0x22b1e 0x2227c>                                              {[4, 'A0']|[«4»]|[4, 'D0']}
            <POP 22b22-22b24 StackAdj>                       Δ+8                {[4, 'A0']}
            <MI 22b24  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 22b26  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 22b28  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 22b2a  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 22b2c-22b30 Naked>                              Σ-8        ↓ →0x22b64 ←0x22b30
            <MI 22b2c  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 22b2e  BGT     0x22b64>                                         {[-8-]}
        <POP 22b30-22b64 Naked>                              Σ-8        ↓ →0x22b2c
            <MI 22b30  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 22b32  ADD.L   0x26832,D0>                                      {[-8-]}
            <MI 22b34  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 22b36  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x22b38 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 22b42  LEA.L   0x2582a,A0>                                      {[-8-]}
            <MI 22b48  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 22b4a  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x22b4c LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 22b56  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 22b5a  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 22b60  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 22b62  BVC     0x22b2c>                                         {[-8-]}
        <POP 22b64-22b72 Naked>                              Σ-8 Δ+8    ↓ ←0x22b2c
            <POP 22b64-22b66 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22b66 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22b6a 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22b70-22b72 StackAdj>                       Δ+4                {}
        <POP 22b72-22b7a Epilogue>                           Σ0         

0x22b7a


@ 22b7a
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22b7a-22bae Body>                                              
        <POP 22b7a-22b8c Prologue>                           Σ0         ↓
        <POP 22b8c-22baa Naked>                              Σ0         ↓
            <POP 22b8c-22b8e StackAdj>                       Δ-4                {[-4-]}
            <MI 22b8e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 22b92  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x22b96 0x10.4>                           Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
            <Call 0x22b9a 0x1035c>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 22ba0-22ba4 StackAdj>                       Δ+12               {[-4-]}
            <Call 0x22ba4 0x22af2>                                              {[-4-]}
            <POP 22ba8-22baa StackAdj>                       Δ+4                {}
        <POP 22baa-22bae Epilogue>                           Σ0         

0x22bae


@ 22bae
        <LVAR  0x008 4(r)>
    <POP 22bae-22bd8 Body>                                              
        <POP 22bae-22bc0 Prologue>                           Σ0         ↓
        <POP 22bc0-22bd4 Naked>                              Σ0         ↓
            <POP 22bc0-22bc2 StackAdj>                       Δ-4                {[-4-]}
            <MI 22bc2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22bc6 0x102e4>                                              {[-4-]|[4, '(A6+0x8)']}
                Long2String(a : Long) : String
            <POP 22bcc-22bce StackAdj>                       Δ+4                {[-4-]}
            <Call 0x22bce 0x22af2>                                              {[-4-]}
            <POP 22bd2-22bd4 StackAdj>                       Δ+4                {}
        <POP 22bd4-22bd8 Epilogue>                           Σ0         

0x22bd8


@ 22bd8
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 22bd8-22ca8 Body>                                              
        <POP 22bd8-22bee Prologue>                           Σ0         ↓
        <POP 22bee-22bf6 RegCacheLoad>                       Σ0         ↓
        <POP 22bf6-22c08 Naked>                              Σ0         ↓
            <MI 22bf6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22bfa  MOVE.L  (A0+0x8),(A6-0x8)>                               {}
            <Pointer.fp 0x22bfe <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x22c00 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <POP 22c06-22c08 StackAdj>                       Δ+4                {}
        <POP 22c08-22c12 Naked>                              Σ0         ↓ →0x22c96 ←0x22c7e
            <MI 22c08  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 22c0a  CMPA.W  #0x1,A0>                                         {}
            <MI 22c0e  BEQ     0x22c96>                                         {}
        <POP 22c12-22c16 Naked>                              Σ0         ↓ →0x22c7e
            <MI 22c12  TST.L   (A0)>                                            {}
            <MI 22c14  BEQ     0x22c7e>                                         {}
        <POP 22c16-22c20 Naked>                              Σ0 Δ-4     ↓ →0x22c34
            <MI 22c16  MOVE.L  (A0+0x4),-(A7)>               Δ-4                {[4, '(A0+0x4)']}
            <MI 22c1a  MOVE.L  (A0),D7>                                         {[4, '(A0+0x4)']}
            <MI 22c1c  CMP.L   (A7),D7>                                         {[4, '(A0+0x4)']}
            <MI 22c1e  BGT     0x22c34>                                         {[4, '(A0+0x4)']}
        <POP 22c20-22c34 Naked>                              Σ-4        ↓
            <MI 22c20  MOVE.L  (A7),D0>                                         {[-4-]}
            <POP 0x22c22 LimitCheck -0x7fffffff ≤ D7>                           {[-4-]}
                <MI 22c22  CMPI.L  #0x80000001,D7>                      
                <MI 22c28  BLT     0x22c32>                             
            <POP 0x22c2a LimitCheck D0 ≤ 0x7fffffff>                            {[-4-]}
                <MI 22c2a  CMPI.L  #0x7fffffff,D0>                      
                <MI 22c30  BLE     0x22c34>                             
                <MI 22c32  TRAP    #15>                                 
        <POP 22c34-22c38 Naked>                              Σ-4        ↓ →0x22c7c ←0x22c16 ←0x22c78
            <MI 22c34  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22c36  BGT     0x22c7c>                                         {[-4-]}
        <POP 22c38-22c64 Naked>                              Σ-4        ↓ →0x22c78
            <MI 22c38  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <MI 22c3a  MOVE.L  D7,D0>                                           {[-4-]|[4, '(A6-0x4)']}
            <MI 22c3c  SUBQ.L  #0x1,D0>                                         {[-4-]|[4, '(A6-0x4)']}
            <POP 0x22c3e LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]|[4, '(A6-0x4)']}
            <MI 22c48  LEA.L   0x2582a,A0>                                      {[-4-]|[4, '(A6-0x4)']}
            <MI 22c4e  MOVE.B  (A0+D0.L+#0x8),-(A7)>         Δ-2                {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
            <Call 0x22c52 0x102c0>                                              {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
                AppendChar(MOD b : String; a : char)
            <POP 22c58-22c5a StackAdj>                       Δ+6                {[-4-]}
            <MI 22c5a  MOVEA.L (A6-0x4),A0>                                     {[-4-]}
            <MI 22c5c  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 22c5e  CMPI.W  #0x007a,D0>                                      {[-4-]}
            <MI 22c62  BLT     0x22c78>                                         {[-4-]}
        <POP 22c64-22c78 Naked>                              Σ-4        ↓
            <MI 22c64  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <Call 0x22c66 0x103d8>                                              {[-4-]|[4, '(A6-0x4)']}
                WriteConsoleString(str : String)
            <POP 22c6c-22c6e StackAdj>                       Δ+4                {[-4-]}
            <Pointer.fp 0x22c6e <LVAR -0x004 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Call 0x22c70 0x102b8>                                              {[-4-]|[@@-4]}
                NewString(VAR a : String)
            <POP 22c76-22c78 StackAdj>                       Δ+4                {[-4-]}
        <POP 22c78-22c7c Naked>                              Σ-4        ↓ →0x22c34 ←0x22c38
            <MI 22c78  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22c7a  BVC     0x22c34>                                         {[-4-]}
        <POP 22c7c-22c7e Naked>                              Σ-4 Δ+4    ↓ ←0x22c34
            <POP 22c7c-22c7e StackAdj>                       Δ+4                {}
        <POP 22c7e-22c96 Naked>                              Σ0         →0x22c08 ←0x22c12
            <MI 22c7e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <Const 0x22c80 0x20.2>                           Δ-2                {[4, '(A6-0x4)']|[#32]}
            <Call 0x22c84 0x102c0>                                              {[4, '(A6-0x4)']|[#32]}
                AppendChar(MOD b : String; a : char)
            <POP 22c8a-22c8c StackAdj>                       Δ+6                {}
            <MI 22c8c  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 22c8e  MOVE.L  (A0+0x8),(A6-0x8)>                               {}
            <MI 22c92  BRA     0x22c08>                                         {}
        <POP 22c96-22ca0 Naked>                              Σ0         ↓ ←0x22c08
            <MI 22c96  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <Call 0x22c98 0x103e0>                                              {[4, '(A6-0x4)']}
                WriteConsoleStringCrLf(str : String)
            <POP 22c9e-22ca0 StackAdj>                       Δ+4                {}
        <POP 22ca0-22ca8 Epilogue>                           Σ0         

0x22ca8


@ 22ca8
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 22ca8-22db2 Body>                                              
        <POP 22ca8-22cbe Prologue>                           Σ0         ↓
        <POP 22cbe-22cd0 RegCacheLoad>                       Σ0         ↓
        <POP 22cd0-22d16 Naked>                              Σ0         ↓ →0x22d4c
            <Blob 0x22cd0 [4] @>                             Δ-4                {[«4""»]}
            <POP 22cd4-22cd6 StackAdj>                       Δ-8                {[«4""»]|[-8-]}
            <MI 22cd6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[-8-]|[4, '(A6+0x8)']}
            <Call 0x22cd8 0x102cc>                                              {[«4""»]|[-8-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <Lit 0x22cde 4>                                                     {[«4""»]|[-8-]|[$$.HLP]}
            <Call 0x22cf0 0x102d0>                                              {[«4""»]|[-8-]|[$$.HLP]}
                StringCat2(a, b : String) : String
            <POP 22cf6-22cf8 StackAdj>                       Δ+8                {[«4""»]|[-4-]}
            <MI 22cf8  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«4""»]}
            <MI 22cfa  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 22cfc  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xc)']|[#0]}
            <MI 22cfe  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xc)']|[#0]|[#0]}
            <Const 0x22d00 0x0.4>                            Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x22d04 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
            <Pointer.fp 0x22d06 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
            <Call 0x22d08 0x10380>                                              {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 22d0e-22d12 StackAdj>                       Δ+20               {}
            <MI 22d12  TST.B   (A6-0x4)>                                        {}
            <MI 22d14  BEQ     0x22d4c>                                         {}
        <POP 22d16-22d4c Naked>                              Σ0         →0x22da0
            <Blob 0x22d16 [22] @>                            Δ-22               {[«22""»]}
            <POP 22d22-22d24 StackAdj>                       Δ-8                {[«22""»]|[-8-]}
            <Lit 0x22d24 22>                                                    {[«22""»]|[-4-]|[$$No help available for_]}
            <POP 22d34-22d36 StackAdj>                       Δ-4                {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
            <MI 22d36  MOVE.L  (A6+0x8),(A7)>                                   {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
            <Call 0x22d38 0x102d0>                                              {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 22d3e-22d40 StackAdj>                       Δ+8                {[«22""»]|[-4-]}
            <Call 0x22d40 0x103e0>                                              {[«22""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d46-22d4a StackAdj>                       Δ+26               {}
            <MI 22d4a  BRA     0x22da0>                                         {}
        <POP 22d4c-22d64 Naked>                              Σ0         ↓ →0x22d78 ←0x22cd0 ←0x22d78
            <MI 22d4c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Pointer.fp 0x22d4e <LVAR  0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0x8)']|[@@8]}
            <Pointer.fp 0x22d50 <LVAR -0x003 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[@@8]|[@@-3]}
            <Call 0x22d54 0x1043c>                                              {[4, '(A6-0x8)']|[@@8]|[@@-3]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 22d5a-22d5e StackAdj>                       Δ+12               {}
            <MI 22d5e  TST.B   (A6-0x3)>                                        {}
            <MI 22d62  BNE     0x22d78>                                         {}
        <POP 22d64-22d78 Naked>                              Σ0         ↓
            <POP 22d64-22d66 StackAdj>                       Δ-4                {[-4-]}
            <MI 22d66  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22d68 0x102cc>                                              {[-4-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <POP 22d6e-22d70 StackAdj>                       Δ+4                {[-4-]}
            <Call 0x22d70 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d76-22d78 StackAdj>                       Δ+4                {}
        <POP 22d78-22d7e Naked>                              Σ0         ↓ →0x22d4c ←0x22d4c
            <MI 22d78  TST.B   (A6-0x3)>                                        {}
            <MI 22d7c  BEQ     0x22d4c>                                         {}
        <POP 22d7e-22da0 Naked>                              Σ0         ↓
            <MI 22d7e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x22d80 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x22d84 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x22d88 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]}
            <Pointer.fp 0x22d8a <LVAR -0x008 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
            <Call 0x22d8c 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 22d92-22d96 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x22d96 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22d98 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22d9e-22da0 StackAdj>                       Δ+4                {}
        <POP 22da0-22daa Naked>                              Σ0         ↓ ←0x22d16
            <Pointer.fp 0x22da0 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x22da2 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 22da8-22daa StackAdj>                       Δ+4                {}
        <POP 22daa-22db2 Epilogue>                           Σ0         

0x22db2


@ 22db2
        <LVAR  0x008 4(r)>
    <POP 22db2-22e34 Body>                                              
        <POP 22db2-22dc8 Prologue>                           Σ0         ↓
        <POP 22dc8-22dd8 Naked>                              Σ0         ↓ →0x22e06
            <POP 22dc8-22dca StackAdj>                       Δ-4                {[-4-]}
            <MI 22dca  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22dce 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 22dd2-22dd4 StackAdj>                       Δ+4                {[-4-]}
            <MI 22dd4  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 22dd6  BNE     0x22e06>                                         {}
        <POP 22dd8-22e06 Naked>                              Σ0         →0x22e2c
            <Blob 0x22dd8 [10] 0x26844>                      Δ-10               {[«10»]}
            <POP 22de6-22de8 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x22de8>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x22de8 4>                       Δ-4        
                <Const 0x22dec 0x1.2>                        Δ-2        
                <Const 0x22df0 0xa.2>                        Δ-2        
                <Call 0x22df4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22dfa-22dfc StackAdj>                   Δ+8        
            <Call 0x22dfc 0x22ca8>                                              {[«10»]|[$$…]}
            <POP 22e00-22e04 StackAdj>                       Δ+14               {}
            <MI 22e04  BRA     0x22e2c>                                         {}
        <POP 22e06-22e0a Naked>                              Σ0 Δ-4     ↓ ←0x22dc8
            <MI 22e06  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 22e08  MOVEQ.L #0x01,D7>                                        {[4, 'D6']}
        <POP 22e0a-22e0e Naked>                              Σ-4        ↓ →0x22e2a ←0x22e0e
            <MI 22e0a  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22e0c  BGT     0x22e2a>                                         {[-4-]}
        <POP 22e0e-22e2a Naked>                              Σ-4        ↓ →0x22e0a
            <POP 22e0e-22e10 StackAdj>                       Δ-4                {[-8-]}
            <MI 22e10  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 22e14  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x22e16 0x22a50>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 22e1a-22e1c StackAdj>                       Δ+8                {[-8-]}
            <MI 22e1c  MOVEA.L (A7)+,A4>                     Δ+4                {[-4-]}
            <MI 22e1e  MOVE.L  A4,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']}
            <Call 0x22e20 0x22ca8>                                              {[-4-]|[4, 'A4']}
            <POP 22e24-22e26 StackAdj>                       Δ+4                {[-4-]}
            <MI 22e26  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22e28  BVC     0x22e0a>                                         {[-4-]}
        <POP 22e2a-22e2c Naked>                              Σ-4 Δ+4    ↓ ←0x22e0a
            <POP 22e2a-22e2c StackAdj>                       Δ+4                {}
        <POP 22e2c-22e34 Epilogue>                           Σ0         ←0x22dd8

0x22e34


@ 22e34
        <LVAR  0x00c @>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x020 @>
    <POP 22e34-22eb6 Body>                                              
        <POP 22e34-22e4a Prologue>                           Σ0         ↓
        <POP 22e4a-22e4c RegCacheLoad>                       Σ0         ↓
        <POP 22e4c-22e4e Naked>                              Σ0         ↓
            <MI 22e4c  MOVEQ.L #0x01,D7>                                        {}
        <POP 22e4e-22e5a Naked>                              Σ0         ↓ →0x22e6a ←0x22e88
            <MI 22e4e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22e52  MOVE.W  (A0),D0>                                         {}
            <MI 22e54  EXTW.L  D0>                                              {}
            <MI 22e56  CMP.L   D0,D7>                                           {}
            <MI 22e58  BLE     0x22e6a>                                         {}
        <POP 22e5a-22e6a Naked>                              Σ0         →0x22e88
            <MI 22e5a  MOVE.L  D7,D0>                                           {}
            <MI 22e5c  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x22e5e LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 22e64  CLR.B   (A6+D0.L-#0x20)>                                 {}
            <MI 22e68  BRA     0x22e88>                                         {}
        <POP 22e6a-22e88 Naked>                              Σ0         ↓ ←0x22e4e
            <MI 22e6a  MOVE.L  D7,D0>                                           {}
            <MI 22e6c  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x22e6e LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 22e74  MOVE.L  D7,D1>                                           {}
            <MI 22e76  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x22e78 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {}
            <MI 22e82  MOVE.B  (A0+D1.L+#0x2),(A6+D0.L-#0x20)>                  {}
        <POP 22e88-22e92 Naked>                              Σ0         ↓ →0x22e4e ←0x22e5a
            <MI 22e88  ADDQ.L  #0x1,D7>                                         {}
            <MI 22e8a  CMPI.L  #0x0000001e,D7>                                  {}
            <MI 22e90  BLE     0x22e4e>                                         {}
        <POP 22e92-22eae Naked>                              Σ0         ↓
            <Pointer.fp 0x22e92 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22e96 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22e9c-22e9e StackAdj>                       Δ+4                {}
            <MI 22e9e  LEA.L   (A6+0xc),A0>                                     {}
            <MI 22ea2  LEA.L   (A6-0x20),A1>                                    {}
            <BlockMove 30,A1,A0>                                                {}
        <POP 22eae-22eb6 Epilogue>                           Σ0         

0x22eb6


@ 22eb6
        <LVAR  0x026 4(w)>
        <LVAR  0x008 @>
        <LVAR -0x006 4(rw)>
    <POP 22eb6-22f0a Body>                                              
        <POP 22eb6-22ecc Prologue>                           Σ0         ↓
        <POP 22ecc-22ed0 RegCacheLoad>                       Σ0         ↓
        <POP 22ed0-22ed8 Naked>                              Σ0         ↓
            <MI 22ed0  MOVEQ.L #0x00,D7>                                        {}
            <MI 22ed2  MOVE.L  0x2685c,(A6-0x6)>                                {}
        <POP 22ed8-22ee0 Naked>                              Σ0         ↓ →0x22efe ←0x22efc
            <MI 22ed8  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22eda  CMPA.W  #0x1,A0>                                         {}
            <MI 22ede  BEQ     0x22efe>                                         {}
        <POP 22ee0-22ee4 Naked>                              Σ0         ↓ →0x22efe
            <MI 22ee0  TST.B   D7>                                              {}
            <MI 22ee2  BNE     0x22efe>                                         {}
        <POP 22ee4-22eec Naked>                              Σ0         ↓
            <MI 22ee4  MOVEA.L A0,A1>                                           {}
            <MI 22ee6  LEA.L   (A6+0x8),A2>                                     {}
            <MI 22eea  MOVEQ.L #0x1d,D0>                                        {}
        <POP 22eec-22ef2 Naked>                              Σ0         ↓ →0x22eec ←0x22eec
            <MI 22eec  CMPM.B  (A1)+,(A2)+>                                     {}
            <MI 22eee  DBNE    D0,0x22eec>                                      {}
        <POP 22ef2-22ef4 Naked>                              Σ0         ↓ →0x22ef8
            <MI 22ef2  BNE     0x22ef8>                                         {}
        <POP 22ef4-22ef8 Naked>                              Σ0         →0x22efc
            <MI 22ef4  MOVEQ.L #0x01,D7>                                        {}
            <MI 22ef6  BRA     0x22efc>                                         {}
        <POP 22ef8-22efc Naked>                              Σ0         ↓ ←0x22ef2
            <MI 22ef8  MOVE.L  (A0+0x26),(A6-0x6)>                              {}
        <POP 22efc-22efe Naked>                              Σ0         →0x22ed8 ←0x22ef4
            <MI 22efc  BRA     0x22ed8>                                         {}
        <POP 22efe-22f02 Naked>                              Σ0         ↓ ←0x22ed8 ←0x22ee0
            <MI 22efe  MOVE.L  A0,(A6+0x26)>                                    {}
        <POP 22f02-22f0a Epilogue>                           Σ0         

0x22f0a


@ 22f0a
        <LVAR  0x008 @ 4(r)>
    <POP 22f0a-22f90 Body>                                              
        <POP 22f0a-22f20 Prologue>                           Σ0         ↓
        <POP 22f20-22f2c RegCacheLoad>                       Σ0         ↓
        <POP 22f2c-22f32 Naked>                              Σ0         ↓ →0x22f88
            <MI 22f2c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22f2e  CMPA.W  #0x01,A0>                                        {}
            <MI 22f30  BEQ     0x22f88>                                         {}
        <POP 22f32-22f38 Naked>                              Σ0         ↓ →0x22f48
            <MI 22f32  TST.L   (A0+0x1e)>                                       {}
            <MI 22f36  BEQ     0x22f48>                                         {}
        <POP 22f38-22f48 Naked>                              Σ0         ↓
            <MI 22f38  MOVE.L  (A0+0x22),-(A7)>              Δ-4                {[4, '(A0+0x22)']}
            <MI 22f3c  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
            <Call 0x22f40 0x102a4>                                              {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
                Free1(a : Pointer; b : Long)
            <POP 22f46-22f48 StackAdj>                       Δ+8                {}
        <POP 22f48-22f4e Naked>                              Σ0         ↓ ←0x22f32
            <MI 22f48  MOVEQ.L #0x00,D7>                                        {}
            <MI 22f4a  MOVEA.W #0x01,A4>                                        {}
            <MI 22f4c  MOVEA.L 0x2685c,A3>                                      {}
        <POP 22f4e-22f52 Naked>                              Σ0         ↓ →0x22f66 ←0x22f64
            <MI 22f4e  CMPA.W  #0x01,A3>                                        {}
            <MI 22f50  BEQ     0x22f66>                                         {}
        <POP 22f52-22f56 Naked>                              Σ0         ↓ →0x22f66
            <MI 22f52  TST.B   D7>                                              {}
            <MI 22f54  BNE     0x22f66>                                         {}
        <POP 22f56-22f5a Naked>                              Σ0         ↓ →0x22f5e
            <MI 22f56  CMPA.L  (A6+0x8),A3>                                     {}
            <MI 22f58  BNE     0x22f5e>                                         {}
        <POP 22f5a-22f5e Naked>                              Σ0         →0x22f64
            <MI 22f5a  MOVEQ.L #0x01,D7>                                        {}
            <MI 22f5c  BRA     0x22f64>                                         {}
        <POP 22f5e-22f64 Naked>                              Σ0         ↓ ←0x22f56
            <MI 22f5e  MOVEA.L A3,A4>                                           {}
            <MI 22f60  MOVEA.L (A3+0x26),A3>                                    {}
        <POP 22f64-22f66 Naked>                              Σ0         →0x22f4e ←0x22f5a
            <MI 22f64  BRA     0x22f4e>                                         {}
        <POP 22f66-22f6a Naked>                              Σ0         ↓ →0x22f88 ←0x22f4e ←0x22f52
            <MI 22f66  TST.B   D7>                                              {}
            <MI 22f68  BEQ     0x22f88>                                         {}
        <POP 22f6a-22f6e Naked>                              Σ0         ↓ →0x22f74
            <MI 22f6a  CMPA.W  #0x01,A4>                                        {}
            <MI 22f6c  BNE     0x22f74>                                         {}
        <POP 22f6e-22f74 Naked>                              Σ0         →0x22f7a
            <MI 22f6e  MOVE.L  (A3+0x26),0x2685c>                               {}
            <MI 22f72  BRA     0x22f7a>                                         {}
        <POP 22f74-22f7a Naked>                              Σ0         ↓ ←0x22f6a
            <MI 22f74  MOVE.L  (A3+0x26),(A4+0x26)>                             {}
        <POP 22f7a-22f88 Naked>                              Σ0         ↓ ←0x22f6e
            <Pointer.fp 0x22f7a <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Const 0x22f7c 0x2a.4>                           Δ-4                {[@@8]|[##42]}
            <Call 0x22f80 0x102a8>                                              {[@@8]|[##42]}
                Free2(a : Pointer; b : Long)
            <POP 22f86-22f88 StackAdj>                       Δ+8                {}
        <POP 22f88-22f90 Epilogue>                           Σ0         ←0x22f2c ←0x22f66

0x22f90


@ 22f90
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x024 @>
    <POP 22f90-2304e Body>                                              
        <POP 22f90-22fa6 Prologue>                           Σ0         ↓
        <POP 22fa6-22fb0 RegCacheLoad>                       Σ0         ↓
        <POP 22fb0-22fce Naked>                              Σ0         ↓ →0x22fd0
            <POP 22fb0-22fb2 StackAdj>                       Δ-30               {[-30-]}
            <MI 22fb2  MOVEA.L (A6+0xc),A0>                                     {[-30-]}
            <MI 22fb6  MOVE.L  (A0),-(A7)>                   Δ-4                {[-30-]|[4, '(A0)']}
            <Call 0x22fb8 0x22e34>                                              {[-30-]|[4, '(A0)']}
            <POP 22fbc-22fbe StackAdj>                       Δ+4                {[-30-]}
            <MI 22fbe  LEA.L   (A6-0x24),A0>                                    {[-30-]}
            <POP 22fc2-22fca StackPop>                       Δ+30               {[-30-]}
                <BlockMove 30,A7,A0>                         Δ+30       
            <MI 22fca  TST.L   (A6+0x8)>                                        {[-30-]}
            <MI 22fcc  BGE     0x22fd0>                                         {[-30-]}
        <POP 22fce-22fd0 Naked>                              Σ0         ↓
            <MI 22fce  CLR.L   (A6+0x8)>                                        {}
        <POP 22fd0-22fec Naked>                              Σ0         ↓ →0x22ffe ←0x22fb0
            <POP 22fd0-22fd2 StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x22fd2 [30] (A6-0x6)>                     Δ-30               {[-4-]|[«30»]}
            <Call 0x22fdc 0x22eb6>                                              {[-4-]|[«30»]}
            <POP 22fe0-22fe2 StackAdj>                       Δ+30               {[-4-]}
            <MI 22fe2  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 22fe4  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22fe6  CMPA.W  #0x1,A0>                                         {}
            <MI 22fea  BEQ     0x22ffe>                                         {}
        <POP 22fec-22ff4 Naked>                              Σ0         ↓ →0x22ff6
            <MI 22fec  MOVE.L  (A0+0x1e),D0>                                    {}
            <MI 22ff0  CMP.L   (A6+0x8),D0>                                     {}
            <MI 22ff2  BNE     0x22ff6>                                         {}
        <POP 22ff4-22ff6 Naked>                              Σ0         →0x23042
            <MI 22ff4  BRA     0x23042>                                         {}
        <POP 22ff6-22ffe Naked>                              Σ0         ↓ ←0x22fec
            <MI 22ff6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x22ff8 0x22f0a>                                              {[4, '(A6-0x6)']}
            <POP 22ffc-22ffe StackAdj>                       Δ+4                {}
        <POP 22ffe-23032 Naked>                              Σ0         ↓ →0x23042 ←0x22fd0
            <Pointer.fp 0x22ffe <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Const 0x23000 0x2a.4>                           Δ-4                {[@@-6]|[##42]}
            <Call 0x23004 0x1029c>                                              {[@@-6]|[##42]}
                Malloc1(length : Long) : Pointer
            <POP 2300a-2300c StackAdj>                       Δ+8                {}
            <MI 2300c  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 2300e  MOVE.L  0x2685c,(A0+0x26)>                               {}
            <MI 23016  MOVE.L  (A6-0x6),0x2685c>                                {}
            <MI 2301c  MOVEA.L A0,A1>                                           {}
            <MI 2301e  LEA.L   (A6-0x24),A2>                                    {}
            <BlockMove 30,A2,A1>                                                {}
            <MI 2302a  MOVE.L  (A6+0x8),(A0+0x1e)>                              {}
            <MI 2302e  TST.L   (A6+0x8)>                                        {}
            <MI 23030  BEQ     0x23042>                                         {}
        <POP 23032-23042 Naked>                              Σ0         ↓
            <POP 23032-23034 StackAdj>                       Δ-4                {[-4-]}
            <MI 23034  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x23036 0x102a0>                                              {[-4-]|[4, '(A6+0x8)']}
                Malloc2(VAR dst : Pointer; length : Word)
            <POP 2303c-2303e StackAdj>                       Δ+4                {[-4-]}
            <MI 2303e  MOVE.L  (A7)+,(A0+0x22)>              Δ+4                {}
        <POP 23042-23046 Naked>                              Σ0         ↓ ←0x22ff4 ←0x22ffe
            <MI 23042  MOVE.L  (A6-0x6),(A6+0x10)>                              {}
        <POP 23046-2304e Epilogue>                           Σ0         

0x2304e


@ 2304e
        <LVAR  0x00c @>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 2304e-230d8 Body>                                              
        <POP 2304e-23064 Prologue>                           Σ0         ↓
        <POP 23064-23068 RegCacheLoad>                       Σ0         ↓
        <POP 23068-23086 Naked>                              Σ0         ↓ →0x230c6
            <MI 23068  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2306a  MOVE.W  (A0),D0>                                         {}
            <MI 2306c  EXTW.L  D0>                                              {}
            <MI 2306e  MOVE.L  D0,D6>                                           {}
            <POP 23070-23072 StackAdj>                       Δ-4                {[-4-]}
            <Pointer.fp 0x23072 <LVAR  0x00c @>>             Δ-4                {[-4-]|[@@12]}
            <MI 23076  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[@@12]|[4, 'D6']}
            <Call 0x23078 0x22f90>                                              {[-4-]|[@@12]|[4, 'D6']}
            <POP 2307c-2307e StackAdj>                       Δ+8                {[-4-]}
            <MI 2307e  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 23082  TST.L   D6>                                              {}
            <MI 23084  BEQ     0x230c6>                                         {}
        <POP 23086-23094 Naked>                              Σ0 Δ-8     ↓
            <MI 23086  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 2308a  MOVEA.L (A0+0x22),A0>                                    {}
            <MI 2308e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 23090  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D6']}
            <MI 23092  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D6']}
        <POP 23094-23098 Naked>                              Σ-8        ↓ →0x230c4 ←0x23098
            <MI 23094  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 23096  BGT     0x230c4>                                         {[-8-]}
        <POP 23098-230c4 Naked>                              Σ-8        ↓ →0x23094
            <MI 23098  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 2309a  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x2309c LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-8-]}
            <MI 230a6  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 230aa  MOVEA.L (A6+0x8),A1>                                     {[-8-]}
            <MI 230ac  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 230ae  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x230b0 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 230ba  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L)>                        {[-8-]}
            <MI 230c0  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 230c2  BVC     0x23094>                                         {[-8-]}
        <POP 230c4-230c6 Naked>                              Σ-8 Δ+8    ↓ ←0x23094
            <POP 230c4-230c6 StackAdj>                       Δ+8                {}
        <POP 230c6-230d0 Naked>                              Σ0         ↓ ←0x23068
            <Pointer.fp 0x230c6 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x230c8 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 230ce-230d0 StackAdj>                       Δ+4                {}
        <POP 230d0-230d8 Epilogue>                           Σ0         

0x230d8


@ 230d8
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(w)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x020 4(rw)>
    <POP 230d8-23244 Body>                                              
        <POP 230d8-230ee Prologue>                           Σ0         ↓
        <POP 230ee-230fc RegCacheLoad>                       Σ0         ↓
        <POP 230fc-2310e Naked>                              Σ0         ↓ →0x2313c
            <POP 230fc-230fe StackAdj>                       Δ-4                {[-4-]}
            <MI 230fe  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x23100 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 23104-23106 StackAdj>                       Δ+4                {[-4-]}
            <MI 23106  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 23108  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 2310a  CMP.L   #0x01,D0>                                        {}
            <MI 2310c  BGE     0x2313c>                                         {}
        <POP 2310e-2313c Naked>                              Σ0         ↓
            <Blob 0x2310e [26] @>                            Δ-26               {[«26""»]}
            <POP 23120-23122 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x23122 25>                                                    {[«26""»]|[$$Too few arguments for SET]}
            <Call 0x23134 0x21d28>                                              {[«26""»]|[$$Too few arguments for SET]}
            <POP 23138-2313c StackAdj>                       Δ+30               {}
        <POP 2313c-23142 Naked>                              Σ0 Δ-4     ↓ ←0x230fc
            <MI 2313c  CLR.L   (A6-0xc)>                                        {}
            <MI 2313e  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 23140  MOVEQ.L #0x02,D6>                                        {[4, 'D0']}
        <POP 23142-23146 Naked>                              Σ-4        ↓ →0x23164 ←0x23146
            <MI 23142  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 23144  BGT     0x23164>                                         {[-4-]}
        <POP 23146-23164 Naked>                              Σ-4        ↓ →0x23142
            <POP 23146-2314a StackAdj>                       Δ-12               {[-16-]}
            <MI 2314a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 2314c  MOVE.L  D6,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x2314e 0x22972>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 23152-23154 StackAdj>                       Δ+8                {[-16-]}
            <Call 0x23154 0x2293a>                                              {[-16-]}
            <POP 23158-2315a StackAdj>                       Δ+8                {[-8-]}
            <MI 2315a  MOVE.L  (A6-0xc),D0>                                     {[-8-]}
            <MI 2315c  ADD.L   (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 2315e  MOVE.L  D0,(A6-0xc)>                                     {[-4-]}
            <MI 23160  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 23162  BVC     0x23142>                                         {[-4-]}
        <POP 23164-23194 Naked>                              Σ-4 Δ+4    ↓ →0x2323c ←0x23142
            <POP 23164-23166 StackAdj>                       Δ+4                {}
            <MI 23166  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 23168  SUBQ.L  #0x2,D0>                                         {}
            <MI 2316a  ADD.L   D0,(A6-0xc)>                                     {}
            <POP 2316c-2316e StackAdj>                       Δ-4                {[-4-]}
            <MI 2316e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23170 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23174 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23178-2317a StackAdj>                       Δ+8                {[-4-]}
            <MI 2317a  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <Pointer.fp 0x2317e <LVAR -0x004 @ 4(w)>>        Δ-4                {[-4-]|[@@-4]}
            <MI 23182  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-4-]|[@@-4]|[4, '(A6-0xc)']}
            <Call 0x23184 0x22f90>                                              {[-4-]|[@@-4]|[4, '(A6-0xc)']}
            <POP 23188-2318a StackAdj>                       Δ+8                {[-4-]}
            <MI 2318a  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 2318e  TST.L   (A6-0xc)>                                        {}
            <MI 23190  BLE     0x2323c>                                         {}
        <POP 23194-231a4 Naked>                              Σ0 Δ-8     ↓
            <MI 23194  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 23198  MOVEA.L (A0+0x22),A0>                                    {}
            <MI 2319c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2319e  MOVEQ.L #0x01,D7>                                        {[4, 'A0']}
            <MI 231a0  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6-0x10)']}
            <MI 231a2  MOVEQ.L #0x02,D6>                                        {[4, 'A0']|[4, '(A6-0x10)']}
        <POP 231a4-231aa Naked>                              Σ-8        ↓ →0x2323a ←0x23234
            <MI 231a4  CMP.L   (A7),D6>                                         {[-8-]}
            <MI 231a6  BGT     0x2323a>                                         {[-8-]}
        <POP 231aa-231ca Naked>                              Σ-8 Δ-4    ↓ →0x231de
            <POP 231aa-231ac StackAdj>                       Δ-8                {[-16-]}
            <MI 231ac  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 231ae  MOVE.L  D6,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x231b0 0x22972>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 231b4-231b6 StackAdj>                       Δ+8                {[-16-]}
            <MI 231b6  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[-12-]}
            <MI 231ba  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[-8-]}
            <MI 231be  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x1c)']}
            <MI 231c2  MOVE.L  (A6-0x20),D5>                                    {[-8-]|[4, '(A6-0x1c)']}
            <MI 231c6  CMP.L   (A7),D5>                                         {[-8-]|[4, '(A6-0x1c)']}
            <MI 231c8  BGT     0x231de>                                         {[-8-]|[4, '(A6-0x1c)']}
        <POP 231ca-231de Naked>                              Σ-12       ↓
            <MI 231ca  MOVE.L  (A7),D0>                                         {[-12-]}
            <POP 0x231cc LimitCheck -0x7fffffff ≤ D5>                           {[-12-]}
                <MI 231cc  CMPI.L  #0x80000001,D5>                      
                <MI 231d2  BLT     0x231dc>                             
            <POP 0x231d4 LimitCheck D0 ≤ 0x7fffffff>                            {[-12-]}
                <MI 231d4  CMPI.L  #0x7fffffff,D0>                      
                <MI 231da  BLE     0x231de>                             
                <MI 231dc  TRAP    #15>                                 
        <POP 231de-231e2 Naked>                              Σ-12       ↓ →0x23214 ←0x231aa ←0x231e2
            <MI 231de  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 231e0  BGT     0x23214>                                         {[-12-]}
        <POP 231e2-23214 Naked>                              Σ-12       ↓ →0x231de
            <MI 231e2  MOVE.L  D7,D0>                                           {[-12-]}
            <MI 231e4  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x231e6 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-12-]}
            <MI 231f0  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 231f4  MOVE.L  D5,D1>                                           {[-12-]}
            <MI 231f6  SUBQ.L  #0x1,D1>                                         {[-12-]}
            <POP 0x231f8 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-12-]}
            <MI 23202  LEA.L   0x2582a,A1>                                      {[-12-]}
            <MI 23208  MOVE.B  (A1+D1.L+#0x8),(A0+D0.L)>                        {[-12-]}
            <MI 2320e  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 23210  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 23212  BVC     0x231de>                                         {[-12-]}
        <POP 23214-2321a Naked>                              Σ-12 Δ+4   ↓ →0x23234 ←0x231de
            <POP 23214-23216 StackAdj>                       Δ+4                {[-8-]}
            <MI 23216  CMP.L   (A6-0x10),D6>                                    {[-8-]}
            <MI 23218  BEQ     0x23234>                                         {[-8-]}
        <POP 2321a-23234 Naked>                              Σ-8        ↓
            <MI 2321a  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 2321c  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x2321e LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-8-]}
            <MI 23228  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 2322c  MOVE.B  #0x2c,(A0+D0.L)>                                 {[-8-]}
            <MI 23232  ADDQ.L  #0x1,D7>                                         {[-8-]}
        <POP 23234-2323a Naked>                              Σ-8        ↓ →0x231a4 ←0x23214
            <MI 23234  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 23236  BVC     0x231a4>                                         {[-8-]}
        <POP 2323a-2323c Naked>                              Σ-8 Δ+8    ↓ ←0x231a4
            <POP 2323a-2323c StackAdj>                       Δ+8                {}
        <POP 2323c-23244 Epilogue>                           Σ0         ←0x23164

0x23244


@ 23244
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
    <POP 23244-23332 Body>                                              
        <POP 23244-2325a Prologue>                           Σ0         ↓
        <POP 2325a-23262 RegCacheLoad>                       Σ0         ↓
        <POP 23262-23294 Naked>                              Σ0         ↓ →0x232d6
            <POP 23262-23264 StackAdj>                       Δ-4                {[-4-]}
            <MI 23264  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23268 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2326c 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23270-23272 StackAdj>                       Δ+8                {[-4-]}
            <MI 23272  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 23274-23278 StackAdj>                       Δ-34               {[-34-]}
            <MI 23278  MOVE.L  A4,-(A7)>                     Δ-4                {[-34-]|[4, 'A4']}
            <Call 0x2327a 0x22e34>                                              {[-34-]|[4, 'A4']}
            <POP 2327e-23280 StackAdj>                       Δ+4                {[-34-]}
            <Call 0x23280 0x22eb6>                                              {[-34-]}
            <POP 23284-23288 StackAdj>                       Δ+30               {[-4-]}
            <MI 23288  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 2328c  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 23290  CMPA.W  #0x01,A0>                                        {}
            <MI 23292  BNE     0x232d6>                                         {}
        <POP 23294-232d6 Naked>                              Σ0         ↓
            <Blob 0x23294 [20] @>                            Δ-20               {[«20""»]}
            <POP 232a6-232a8 StackAdj>                       Δ-8                {[«20""»]|[-8-]}
            <Lit 0x232a8 19>                                                    {[«20""»]|[-4-]|[$$Unknown variable :_]}
            <MI 232b8  MOVE.L  (A6+0x8),(A7)>                                   {[«20""»]|[-4-]|[4, '(A6+0x8)']}
            <POP 232b2-232b8 StackAdj>                       Δ-8                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Const 0x232bc 0x1.4>                            Δ-4                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
            <Call 0x232c0 0x22a50>                                              {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
            <POP 232c4-232c6 StackAdj>                       Δ+8                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
            <Call 0x232c6 0x102d0>                                              {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 232cc-232ce StackAdj>                       Δ+8                {[«20""»]|[-4-]}
            <Call 0x232ce 0x21d28>                                              {[«20""»]|[-4-]}
            <POP 232d2-232d6 StackAdj>                       Δ+24               {}
        <POP 232d6-232ec Naked>                              Σ0 Δ-8     ↓ ←0x23262
            <MI 232d6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x232d8 [4] 0x26832>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 232da  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <MI 232de  NEG.L   (A7)>                                            {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <Call 0x232e0 0x2227c>                                              {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <POP 232e4-232e6 StackAdj>                       Δ+4                {[4, 'A0']|[«4»]}
            <MI 232e6  MOVE.L  (A0+0x1e),(A7)>                                  {[4, 'A0']|[4, '(A0+0x1e)']}
            <MI 232ea  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, '(A0+0x1e)']}
        <POP 232ec-232f0 Naked>                              Σ-8        ↓ →0x23328 ←0x232f0
            <MI 232ec  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 232ee  BGT     0x23328>                                         {[-8-]}
        <POP 232f0-23328 Naked>                              Σ-8        ↓ →0x232ec
            <MI 232f0  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 232f2  ADD.L   0x26832,D0>                                      {[-8-]}
            <MI 232f4  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 232f6  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x232f8 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 23302  LEA.L   0x2582a,A0>                                      {[-8-]}
            <MI 23308  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 2330c  MOVEA.L (A1+0x22),A1>                                    {[-8-]}
            <MI 23310  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 23312  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x23314 LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {[-8-]}
            <MI 2331e  MOVE.B  (A1+D1.L),(A0+D0.L+#0x8)>                        {[-8-]}
            <MI 23324  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 23326  BVC     0x232ec>                                         {[-8-]}
        <POP 23328-2332a Naked>                              Σ-8 Δ+8    ↓ ←0x232ec
            <POP 23328-2332a StackAdj>                       Δ+8                {}
        <POP 2332a-23332 Epilogue>                           Σ0         

0x23332


@ 23332
        <LVAR -0x004 4(rw)>
    <POP 23332-23394 Body>                                              
        <POP 23332-23348 Prologue>                           Σ0         ↓
        <POP 23348-23350 RegCacheLoad>                       Σ0         ↓
        <POP 23350-23356 Naked>                              Σ0         ↓
            <MI 23350  MOVE.L  0x2685c,(A6-0x4)>                                {}
        <POP 23356-2335c Naked>                              Σ0         ↓ →0x2338c ←0x2335c
            <MI 23356  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 23358  CMPA.W  #0x01,A0>                                        {}
            <MI 2335a  BEQ     0x2338c>                                         {}
        <POP 2335c-2338c Naked>                              Σ0         →0x23356
            <POP 2335c-2335e StackAdj>                       Δ-30               {[-30-]}
            <MI 2335e  MOVEA.L A7,A1>                                           {[-30-]}
            <MI 23360  MOVEA.L A0,A2>                                           {[-30-]}
            <BlockMove 30,A2,A1>                                                {[-30-]}
            <POP 2336a-2336c StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x2336c>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x2336c 4>                       Δ-4        
                <Const 0x23370 0x1.2>                        Δ-2        
                <Const 0x23372 0x1e.2>                       Δ-2        
                <Call 0x23374 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2337a-2337c StackAdj>                   Δ+8        
            <Call 0x2337c 0x103e0>                                              {[-30-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 23382-23386 StackAdj>                       Δ+34               {}
            <MI 23386  MOVE.L  (A0+0x26),(A6-0x4)>                              {}
            <MI 2338a  BRA     0x23356>                                         {}
        <POP 2338c-23394 Epilogue>                           Σ0         ←0x23356

0x23394


@ 23394
        <LVAR  0x008 4(r)>
    <POP 23394-233d0 Body>                                              
        <POP 23394-233a6 Prologue>                           Σ0         ↓
        <POP 233a6-233cc Naked>                              Σ0         ↓
            <POP 233a6-233aa StackAdj>                       Δ-38               {[-38-]}
            <MI 233aa  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-38-]|[4, '(A6+0x8)']}
            <Const 0x233ae 0x1.4>                            Δ-4                {[-38-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x233b2 0x22a50>                                              {[-38-]|[4, '(A6+0x8)']|[##1]}
            <POP 233b6-233b8 StackAdj>                       Δ+8                {[-38-]}
            <Call 0x233b8 0x22e34>                                              {[-38-]}
            <POP 233bc-233be StackAdj>                       Δ+4                {[-34-]}
            <Call 0x233be 0x22eb6>                                              {[-34-]}
            <POP 233c2-233c6 StackAdj>                       Δ+30               {[-4-]}
            <Call 0x233c6 0x22f0a>                                              {[-4-]}
            <POP 233ca-233cc StackAdj>                       Δ+4                {}
        <POP 233cc-233d0 Epilogue>                           Σ0         

0x233d0


@ 233d0
    <POP 233d0-233fe Body>                                              
        <POP 233d0-233e2 Prologue>                           Σ0         ↓
        <POP 233e2-233fa Naked>                              Σ0         ↓
            <POP 233e2-233e4 StackAdj>                       Δ-8                {[-8-]}
            <Call 0x233e4 0x103cc>                                              {[-8-]}
                GetPushLevel() : Long
            <Call 0x233ea 0x102e4>                                              {[-8-]}
                Long2String(a : Long) : String
            <POP 233f0-233f2 StackAdj>                       Δ+4                {[-4-]}
            <Call 0x233f2 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 233f8-233fa StackAdj>                       Δ+4                {}
        <POP 233fa-233fe Epilogue>                           Σ0         

0x233fe


@ 233fe
        <LVAR  0x008 4(r)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 @ 1(r)>
        <LVAR -0x014 @ 1(r)>
        <LVAR -0x024 4(rw)>
        <LVAR -0x028 4(rw)>
        <LVAR -0x02c 4(rw)>
        <LVAR -0x030 @ 4(r)>
        <LVAR -0x032 1(w)>
        <LVAR -0x036 @ 4(r)>
        <LVAR -0x038 @ 1(r)>
        <LVAR -0x03c @ 4(rw)>
    <POP 233fe-23726 Body>                                              
        <POP 233fe-23414 Prologue>                           Σ0         ↓
        <POP 23414-2342c RegCacheLoad>                       Σ0         ↓
        <POP 2342c-2343c Naked>                              Σ0         ↓ →0x23464
            <POP 2342c-2342e StackAdj>                       Δ-4                {[-4-]}
            <MI 2342e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x23430 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 23434-23436 StackAdj>                       Δ+4                {[-4-]}
            <MI 23436  MOVE.L  (A7)+,(A6-0x2c)>              Δ+4                {}
            <MI 2343a  BNE     0x23464>                                         {}
        <POP 2343c-23464 Naked>                              Σ0         →0x23474
            <POP 2343c-2343e StackAdj>                       Δ-4                {[-4-]}
            <POP 2343e-2343f StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x2343f [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 23442  MOVE.B  0x2194d,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 23448  MOVE.B  0x2194e,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 2344e-23450 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x23450>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x23450 4>                       Δ-4        
                <Const 0x23454 0x1.2>                        Δ-2        
                <Const 0x23456 0x3.2>                        Δ-2        
                <Call 0x2345a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2345c-2345e StackAdj>                   Δ+8        
            <MI 2345e  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[-2-]|[«2""»]}
            <POP 23460-23462 StackAdj>                       Δ+4                {}
            <MI 23462  BRA     0x23474>                                         {}
        <POP 23464-23474 Naked>                              Σ0         ↓ ←0x2342c
            <POP 23464-23466 StackAdj>                       Δ-4                {[-4-]}
            <MI 23466  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23468 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2346c 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23470-23472 StackAdj>                       Δ+8                {[-4-]}
            <MI 23472  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {}
        <POP 23474-234c4 Naked>                              Σ0         ↓ →0x234d2 ←0x2343c
            <Blob 0x23474 [6] @>                             Δ-6                {[«6""»]}
            <POP 23484-23486 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <MI 23486  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
            <POP 23488-2348a StackAdj>                       Δ-4                {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
            <Lit 0x2348a 5>                                                     {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
            <Call 0x23498 0x102d0>                                              {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
                StringCat2(a, b : String) : String
            <POP 2349e-234a0 StackAdj>                       Δ+8                {[«6""»]|[-4-]}
            <MI 234a0  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«6""»]}
            <POP 234a2-234a4 StackAdj>                       Δ+2                {[-4-]}
            <MI 234a4  MOVE.L  (A6-0x3c),(A7)>                                  {[4, '(A6-0x3c)']}
            <MI 234a6  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x3c)']|[#0]}
            <Const 0x234a8 0x1.2>                            Δ-2                {[4, '(A6-0x3c)']|[#0]|[#1]}
            <Const 0x234aa 0x0.4>                            Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x234ae <LVAR -0x038 @ 1(r)>>        Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
            <Pointer.fp 0x234b2 <LVAR -0x036 @ 4(r)>>        Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
            <Call 0x234b6 0x10380>                                              {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 234bc-234be StackAdj>                       Δ+20               {}
            <MI 234be  TST.B   (A6-0x38)>                                       {}
            <MI 234c2  BEQ     0x234d2>                                         {}
        <POP 234c4-234d2 Naked>                              Σ0         →0x2371e
            <Pointer.fp 0x234c4 <LVAR -0x03c @ 4(rw)>>       Δ-4                {[@@-60]}
            <Call 0x234c6 0x102bc>                                              {[@@-60]}
                FreeString(VAR a : String)
            <POP 234cc-234ce StackAdj>                       Δ+4                {}
            <MI 234ce  BRA     0x2371e>                                         {}
        <POP 234d2-23518 Naked>                              Σ0         ↓ →0x2354e ←0x23474
            <MI 234d2  MOVEA.L (A6-0x36),A0>                                    {}
            <MI 234d6  MOVE.B  (A0+0x3f),D0>                                    {}
            <MI 234da  LSL.B   #0x6,D0>                                         {}
            <MI 234dc  LSR.B   #0x7,D0>                                         {}
            <MI 234de  MOVE.B  D0,(A6-0x32)>                                    {}
            <MI 234e2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x234e4 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x234e6 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x234ea <LVAR -0x038 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-56]}
            <Pointer.fp 0x234ee <LVAR -0x036 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
            <Call 0x234f2 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 234f8-234fc StackAdj>                       Δ+16               {}
            <MI 234fc  MOVEA.L (A6-0x3c),A0>                                    {}
            <MI 234fe  MOVE.W  (A0),D1>                                         {}
            <MI 23500  EXTW.L  D1>                                              {}
            <MI 23502  SUBQ.L  #0x5,D1>                                         {}
            <POP 0x23504 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff>                      {}
            <MI 23512  MOVE.W  D1,(A0)>                                         {}
            <MI 23514  TST.B   D0>                                              {}
            <MI 23516  BNE     0x2354e>                                         {}
        <POP 23518-2354e Naked>                              Σ0         →0x2371e
            <Blob 0x23518 [18] @>                            Δ-18               {[«18""»]}
            <POP 23524-23526 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <MI 23526  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
            <POP 23528-2352a StackAdj>                       Δ-4                {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
            <Lit 0x2352a 18>                                                    {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
            <Call 0x23538 0x102d0>                                              {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
                StringCat2(a, b : String) : String
            <POP 2353e-23540 StackAdj>                       Δ+8                {[«18""»]|[-4-]}
            <Call 0x23540 0x103e0>                                              {[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23546-2354a StackAdj>                       Δ+22               {}
            <MI 2354a  BRA     0x2371e>                                         {}
        <POP 2354e-23568 Naked>                              Σ0 Δ-8     ↓ ←0x234d2
            <Pointer.fp 0x2354e <LVAR -0x030 @ 4(r)>>        Δ-4                {[@@-48]}
            <Call 0x23552 0x102b8>                                              {[@@-48]}
                NewString(VAR a : String)
            <POP 23558-2355a StackAdj>                       Δ+4                {}
            <MI 2355a  MOVEA.L (A6-0x30),A0>                                    {}
            <MI 2355e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 23560  MOVEQ.L #0x01,D7>                                        {[4, 'A0']}
            <MI 23562  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6-0x2c)']}
            <MI 23566  MOVEQ.L #0x02,D5>                                        {[4, 'A0']|[4, '(A6-0x2c)']}
        <POP 23568-2356e Naked>                              Σ-8        ↓ →0x23600 ←0x235fa
            <MI 23568  CMP.L   (A7),D5>                                         {[-8-]}
            <MI 2356a  BGT     0x23600>                                         {[-8-]}
        <POP 2356e-2358e Naked>                              Σ-8 Δ-4    ↓ →0x235a2
            <POP 2356e-23570 StackAdj>                       Δ-8                {[-16-]}
            <MI 23570  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 23572  MOVE.L  D5,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x23574 0x22972>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 23578-2357a StackAdj>                       Δ+8                {[-16-]}
            <MI 2357a  MOVE.L  (A7)+,(A6-0x28)>              Δ+4                {[-12-]}
            <MI 2357e  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-8-]}
            <MI 23582  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x24)']}
            <MI 23586  MOVE.L  (A6-0x28),D6>                                    {[-8-]|[4, '(A6-0x24)']}
            <MI 2358a  CMP.L   (A7),D6>                                         {[-8-]|[4, '(A6-0x24)']}
            <MI 2358c  BGT     0x235a2>                                         {[-8-]|[4, '(A6-0x24)']}
        <POP 2358e-235a2 Naked>                              Σ-12       ↓
            <MI 2358e  MOVE.L  (A7),D0>                                         {[-12-]}
            <POP 0x23590 LimitCheck -0x7fffffff ≤ D6>                           {[-12-]}
                <MI 23590  CMPI.L  #0x80000001,D6>                      
                <MI 23596  BLT     0x235a0>                             
            <POP 0x23598 LimitCheck D0 ≤ 0x7fffffff>                            {[-12-]}
                <MI 23598  CMPI.L  #0x7fffffff,D0>                      
                <MI 2359e  BLE     0x235a2>                             
                <MI 235a0  TRAP    #15>                                 
        <POP 235a2-235a6 Naked>                              Σ-12       ↓ →0x235d8 ←0x2356e ←0x235a6
            <MI 235a2  CMP.L   (A7),D6>                                         {[-12-]}
            <MI 235a4  BGT     0x235d8>                                         {[-12-]}
        <POP 235a6-235d8 Naked>                              Σ-12       ↓ →0x235a2
            <MI 235a6  MOVE.L  D7,D0>                                           {[-12-]}
            <MI 235a8  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x235aa LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-12-]}
            <MI 235b4  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 235b8  MOVE.L  D6,D1>                                           {[-12-]}
            <MI 235ba  SUBQ.L  #0x1,D1>                                         {[-12-]}
            <POP 0x235bc LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-12-]}
            <MI 235c6  LEA.L   0x2582a,A1>                                      {[-12-]}
            <MI 235cc  MOVE.B  (A1+D1.L+#0x8),(A0+D0.L+#0x2)>                   {[-12-]}
            <MI 235d2  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 235d4  ADDQ.L  #0x1,D6>                                         {[-12-]}
            <MI 235d6  BVC     0x235a2>                                         {[-12-]}
        <POP 235d8-235e0 Naked>                              Σ-12 Δ+4   ↓ →0x235fa ←0x235a2
            <POP 235d8-235da StackAdj>                       Δ+4                {[-8-]}
            <MI 235da  CMP.L   (A6-0x2c),D5>                                    {[-8-]}
            <MI 235de  BEQ     0x235fa>                                         {[-8-]}
        <POP 235e0-235fa Naked>                              Σ-8        ↓
            <MI 235e0  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 235e2  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x235e4 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 235ee  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 235f2  MOVE.B  #0x2c,(A0+D0.L+#0x2)>                            {[-8-]}
            <MI 235f8  ADDQ.L  #0x1,D7>                                         {[-8-]}
        <POP 235fa-23600 Naked>                              Σ-8        ↓ →0x23568 ←0x235d8
            <MI 235fa  ADDQ.L  #0x1,D5>                                         {[-8-]}
            <MI 235fc  BVC     0x23568>                                         {[-8-]}
        <POP 23600-236b0 Naked>                              Σ-8 Δ+8    ↓ →0x236b6 ←0x23568
            <POP 23600-23602 StackAdj>                       Δ+4                {[-4-]}
            <MI 23602  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 23604  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 23606  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x23608 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 23616  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 23618-2361a StackAdj>                       Δ+2                {[-2-]}
            <POP 2361a-2361b StackAdj>                       Δ+2                {}
            <Blob 0x2361b [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2361e [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x23622 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 23626-23628 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x23628 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
            <MI 23636  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2363a-2363c StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <MI 2363c  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x2363e 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[##0]}
            <MI 23642  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
            <Pointer.fp 0x23646 <LVAR -0x010 @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
            <Pointer.fp 0x2364a <LVAR -0x013 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
            <Call 0x2364e 0x24f88>                                              {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
            <POP 23654-23656 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x23656 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2365a 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 23660-23662 StackAdj>                       Δ+2                {[-2-]}
            <POP 23662-23663 StackAdj>                       Δ+2                {}
            <Blob 0x23663 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x23666 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2366a [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2366e-23670 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x23670 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
            <MI 2367e  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 23682-23684 StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <MI 23684  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x23686 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[##0]}
            <MI 2368a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
            <Pointer.fp 0x2368e <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
            <Pointer.fp 0x23692 <LVAR -0x012 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
            <Call 0x23696 0x24f88>                                              {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
            <POP 2369c-2369e StackAdj>                       Δ+20               {}
            <Pointer.fp 0x2369e <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x236a2 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 236a8-236aa StackAdj>                       Δ+4                {}
            <MI 236aa  TST.B   (A6-0x13)>                                       {}
            <MI 236ae  BNE     0x236b6>                                         {}
        <POP 236b0-236b6 Naked>                              Σ0         ↓ →0x236bc
            <MI 236b0  TST.B   (A6-0x12)>                                       {}
            <MI 236b4  BEQ     0x236bc>                                         {}
        <POP 236b6-236bc Naked>                              Σ0         →0x236c0 ←0x23600
            <MI 236b6  CLR.B   (A6-0x4)>                                        {}
            <MI 236ba  BRA     0x236c0>                                         {}
        <POP 236bc-236c0 Naked>                              Σ0         ↓ ←0x236b0
            <MI 236bc  MOVE.B  #0x01,(A6-0x4)>                                  {}
        <POP 236c0-236e6 Naked>                              Σ0         ↓ →0x23706 ←0x236b6
            <MI 236c0  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[4, '(A6-0x3c)']}
            <MI 236c2  MOVE.L  (A6-0x30),-(A7)>              Δ-4                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 236c6  MOVE.B  (A6-0x4),D0>                                     {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 236ca  EXTB.W  D0>                                              {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <POP 0x236cc LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 236d0  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
            <Pointer.fp 0x236d2 <LVAR -0x014 @ 1(r)>>        Δ-4                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
            <Call 0x236d6 0x103b0>                                              {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 236dc-236e0 StackAdj>                       Δ+14               {}
            <MI 236e0  TST.B   (A6-0x13)>                                       {}
            <MI 236e4  BEQ     0x23706>                                         {}
        <POP 236e6-23706 Naked>                              Σ0         ↓
            <MI 236e6  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <POP 236ea-236ec StackAdj>                       Δ-4                {[4, '(A6-0x10)']|[-4-]}
            <MI 236ec  MOVE.B  (A6-0x14),D0>                                    {[4, '(A6-0x10)']|[-4-]}
            <MI 236f0  EXTB.W  D0>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 0x236f2 LimitCheck 0x0 ≤ D0 ≤ 0xe>                             {[4, '(A6-0x10)']|[-4-]}
            <MI 236f6  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
            <Call 0x236f8 0x103c0>                                              {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
                ExpErrMsg(a: Byte) : String
            <POP 236fe-23700 StackAdj>                       Δ+2                {[4, '(A6-0x10)']|[-4-]}
            <Call 0x23700 0x2304e>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 23704-23706 StackAdj>                       Δ+8                {}
        <POP 23706-2370c Naked>                              Σ0         ↓ →0x2371e ←0x236c0
            <MI 23706  TST.B   (A6-0x12)>                                       {}
            <MI 2370a  BEQ     0x2371e>                                         {}
        <POP 2370c-2371e Naked>                              Σ0         ↓
            <MI 2370c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <POP 23710-23712 StackAdj>                       Δ-4                {[4, '(A6-0xc)']|[-4-]}
            <Call 0x23712 0x103c8>                                              {[4, '(A6-0xc)']|[-4-]}
                FSCALL_103c8
            <Call 0x23718 0x2304e>                                              {[4, '(A6-0xc)']|[-4-]}
            <POP 2371c-2371e StackAdj>                       Δ+8                {}
        <POP 2371e-23726 Epilogue>                           Σ0         ←0x234c4 ←0x23518 ←0x23706

0x23726


@ 23726
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 23726-2379e Body>                                              
        <POP 23726-2373c Prologue>                           Σ0         ↓
        <POP 2373c-23744 RegCacheLoad>                       Σ0         ↓
        <POP 23744-23778 Naked>                              Σ0         ↓ →0x2377e
            <POP 23744-23746 StackAdj>                       Δ-4                {[-4-]}
            <MI 23746  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2374a 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2374e 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23752-23754 StackAdj>                       Δ+8                {[-4-]}
            <MI 23754  MOVE.L  (A7),(A6-0x8)>                                   {[-4-]}
            <MI 23756  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2375a 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x2375e 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 23762-23764 StackAdj>                       Δ+8                {[-4-]}
            <MI 23764  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 23766-23768 StackAdj>                       Δ+2                {[-2-]}
            <MI 23768  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']}
            <MI 2376a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <Call 0x2376c 0x102c8>                                              {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
                StringEqual(a, b : String) : Byte
            <POP 23772-23774 StackAdj>                       Δ+8                {[-2-]}
            <MI 23774  TST.B   (A7)+>                        Δ+2                {}
            <MI 23776  BEQ     0x2377e>                                         {}
        <POP 23778-2377e Naked>                              Σ0         →0x23782
            <Call 0x23778 0x22510>                                              {}
            <MI 2377c  BRA     0x23782>                                         {}
        <POP 2377e-23782 Naked>                              Σ0         ↓ ←0x23744
            <Call 0x2377e 0x22556>                                              {}
        <POP 23782-23796 Naked>                              Σ0         ↓ ←0x23778
            <Pointer.fp 0x23782 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x23784 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 2378a-2378c StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2378c <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2378e 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 23794-23796 StackAdj>                       Δ+4                {}
        <POP 23796-2379e Epilogue>                           Σ0         

0x2379e


@ 2379e
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 2379e-23816 Body>                                              
        <POP 2379e-237b4 Prologue>                           Σ0         ↓
        <POP 237b4-237bc RegCacheLoad>                       Σ0         ↓
        <POP 237bc-237f0 Naked>                              Σ0         ↓ →0x237f6
            <POP 237bc-237be StackAdj>                       Δ-4                {[-4-]}
            <MI 237be  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x237c2 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x237c6 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 237ca-237cc StackAdj>                       Δ+8                {[-4-]}
            <MI 237cc  MOVE.L  (A7),(A6-0x8)>                                   {[-4-]}
            <MI 237ce  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x237d2 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x237d6 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 237da-237dc StackAdj>                       Δ+8                {[-4-]}
            <MI 237dc  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 237de-237e0 StackAdj>                       Δ+2                {[-2-]}
            <MI 237e0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']}
            <MI 237e2  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <Call 0x237e4 0x102c8>                                              {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
                StringEqual(a, b : String) : Byte
            <POP 237ea-237ec StackAdj>                       Δ+8                {[-2-]}
            <MI 237ec  TST.B   (A7)+>                        Δ+2                {}
            <MI 237ee  BNE     0x237f6>                                         {}
        <POP 237f0-237f6 Naked>                              Σ0         →0x237fa
            <Call 0x237f0 0x22510>                                              {}
            <MI 237f4  BRA     0x237fa>                                         {}
        <POP 237f6-237fa Naked>                              Σ0         ↓ ←0x237bc
            <Call 0x237f6 0x22556>                                              {}
        <POP 237fa-2380e Naked>                              Σ0         ↓ ←0x237f0
            <Pointer.fp 0x237fa <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x237fc 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 23802-23804 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x23804 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x23806 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 2380c-2380e StackAdj>                       Δ+4                {}
        <POP 2380e-23816 Epilogue>                           Σ0         

0x23816


@ 23816
        <LVAR  0x008 4(r)>
    <POP 23816-23842 Body>                                              
        <POP 23816-23828 Prologue>                           Σ0         ↓
        <POP 23828-2383e Naked>                              Σ0         ↓
            <POP 23828-2382a StackAdj>                       Δ-4                {[-4-]}
            <MI 2382a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2382e 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23832 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23836-23838 StackAdj>                       Δ+8                {[-4-]}
            <Call 0x23838 0x22848>                                              {[-4-]}
            <POP 2383c-2383e StackAdj>                       Δ+4                {}
        <POP 2383e-23842 Epilogue>                           Σ0         

0x23842


@ 23842
        <LVAR  0x008 4(r)>
        <LVAR -0x014 @ 4(rw)>
    <POP 23842-23942 Body>                                              
        <POP 23842-23858 Prologue>                           Σ0         ↓
        <POP 23858-23862 RegCacheLoad>                       Σ0         ↓
        <POP 23862-238c0 Naked>                              Σ0         ↓ →0x238f0
            <POP 23862-23864 StackAdj>                       Δ-4                {[-4-]}
            <MI 23864  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23866 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2386a 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 2386e-23870 StackAdj>                       Δ+8                {[-4-]}
            <MI 23870  MOVE.L  (A7),(A6-0x14)>                                  {[-4-]}
            <MI 23872  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23874 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23878 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 2387c-2387e StackAdj>                       Δ+8                {[-4-]}
            <MI 2387e  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 23880-23884 StackAdj>                       Δ-12               {[-12-]}
            <MI 23884  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x23886 0x3.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x2388a 0x22a82>                                              {[-12-]|[4, '(A6+0x8)']|[##3]}
            <POP 2388e-23890 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x23890 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 23896-23898 StackAdj>                       Δ+8                {[-4-]}
            <MI 23898  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 2389a-2389c StackAdj>                       Δ-8                {[-12-]}
            <MI 2389c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x2389e 0x4.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##4]}
            <Call 0x238a2 0x22a82>                                              {[-12-]|[4, '(A6+0x8)']|[##4]}
            <POP 238a6-238a8 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x238a8 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 238ae-238b0 StackAdj>                       Δ+8                {[-4-]}
            <MI 238b0  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 238b2  MOVE.L  D6,D0>                                           {}
            <MI 238b4  ADD.L   D5,D0>                                           {}
            <MI 238b6  SUBQ.L  #0x1,D0>                                         {}
            <MI 238b8  MOVE.W  (A4),D1>                                         {}
            <MI 238ba  EXTW.L  D1>                                              {}
            <MI 238bc  CMP.L   D1,D0>                                           {}
            <MI 238be  BLE     0x238f0>                                         {}
        <POP 238c0-238f0 Naked>                              Σ0         ↓
            <Blob 0x238c0 [32] @>                            Δ-32               {[«32""»]}
            <POP 238d2-238d4 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x238d4 31>                                                    {[«32""»]|[$$Offset/Length error in [INSERT]]}
            <Call 0x238e8 0x21d28>                                              {[«32""»]|[$$Offset/Length error in [INSERT]]}
            <POP 238ec-238f0 StackAdj>                       Δ+36               {}
        <POP 238f0-238fc Naked>                              Σ0 Δ-8     ↓ ←0x23862
            <MI 238f0  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 238f2  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 238f4  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 238f6  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 238f8  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 238fa  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 238fc-23900 Naked>                              Σ-8        ↓ →0x23926 ←0x23900
            <MI 238fc  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 238fe  BGT     0x23926>                                         {[-8-]}
        <POP 23900-23926 Naked>                              Σ-8        ↓ →0x238fc
            <MI 23900  MOVE.L  D6,D0>                                           {[-8-]}
            <MI 23902  ADD.L   D7,D0>                                           {[-8-]}
            <MI 23904  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 23906  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x23908 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 2390e  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 23910  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x23912 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 23918  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 2391c  MOVE.B  (A0+D1.L+#0x2),(A4+D0.L+#0x2)>                   {[-8-]}
            <MI 23922  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 23924  BVC     0x238fc>                                         {[-8-]}
        <POP 23926-2393a Naked>                              Σ-8 Δ+8    ↓ ←0x238fc
            <POP 23926-23928 StackAdj>                       Δ+4                {[-4-]}
            <MI 23928  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x2392a 0x22af2>                                              {[4, 'A4']}
            <POP 2392e-23930 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x23930 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x23932 0x102bc>                                              {[@@-20]}
                FreeString(VAR a : String)
            <POP 23938-2393a StackAdj>                       Δ+4                {}
        <POP 2393a-23942 Epilogue>                           Σ0         

0x23942


@ 23942
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x014 @ 4(rw)>
    <POP 23942-23a28 Body>                                              
        <POP 23942-23958 Prologue>                           Σ0         ↓
        <POP 23958-23966 RegCacheLoad>                       Σ0         ↓
        <POP 23966-239be Naked>                              Σ0         ↓ →0x239c4
            <POP 23966-23968 StackAdj>                       Δ-4                {[-4-]}
            <MI 23968  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2396a 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2396e 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23972-23974 StackAdj>                       Δ+8                {[-4-]}
            <MI 23974  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <Pointer.fp 0x23976 <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Call 0x23978 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 2397e-23980 StackAdj>                       Δ-8                {[@@-16]|[-8-]}
            <MI 23980  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']}
            <Const 0x23982 0x2.4>                            Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23986 0x22a82>                                              {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
            <POP 2398a-2398c StackAdj>                       Δ+8                {[@@-16]|[-8-]}
            <Call 0x2398c 0x10350>                                              {[@@-16]|[-8-]}
                Quad2Long(a : Quad) : Long
            <POP 23992-23994 StackAdj>                       Δ+8                {[@@-16]}
            <MI 23994  MOVE.L  (A7),D5>                                         {[@@-16]}
            <POP 23996-23998 StackAdj>                       Δ-8                {[@@-16]|[-8-]}
            <MI 23998  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']}
            <Const 0x2399a 0x3.4>                            Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x2399e 0x22a82>                                              {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
            <POP 239a2-239a4 StackAdj>                       Δ+8                {[@@-16]|[-8-]}
            <Call 0x239a4 0x10350>                                              {[@@-16]|[-8-]}
                Quad2Long(a : Quad) : Long
            <POP 239aa-239ac StackAdj>                       Δ+8                {[@@-16]}
            <MI 239ac  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 239ae  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 239b0  MOVE.L  D5,D0>                                           {}
            <MI 239b2  ADD.L   D6,D0>                                           {}
            <MI 239b4  SUBQ.L  #0x1,D0>                                         {}
            <MI 239b6  MOVE.W  (A0),D1>                                         {}
            <MI 239b8  EXTW.L  D1>                                              {}
            <MI 239ba  CMP.L   D1,D0>                                           {}
            <MI 239bc  BLE     0x239c4>                                         {}
        <POP 239be-239c4 Naked>                              Σ0         ↓
            <MI 239be  ADDQ.L  #0x1,D1>                                         {}
            <MI 239c0  SUB.L   D5,D1>                                           {}
            <MI 239c2  MOVE.L  D1,D6>                                           {}
        <POP 239c4-239c8 Naked>                              Σ0 Δ-4     ↓ ←0x23966
            <MI 239c4  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 239c6  MOVEQ.L #0x01,D7>                                        {[4, 'D6']}
        <POP 239c8-239cc Naked>                              Σ-4        ↓ →0x239f2 ←0x239cc
            <MI 239c8  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 239ca  BGT     0x239f2>                                         {[-4-]}
        <POP 239cc-239f2 Naked>                              Σ-4        ↓ →0x239c8
            <MI 239cc  MOVEA.L (A6-0x10),A0>                                    {[-4-]}
            <MI 239ce  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 239d0  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x239d2 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 239d8  MOVEA.L (A6-0x14),A1>                                    {[-4-]}
            <MI 239da  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 239dc  ADD.L   D5,D1>                                           {[-4-]}
            <MI 239de  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <MI 239e0  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x239e2 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 239e8  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x2)>                   {[-4-]}
            <MI 239ee  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 239f0  BVC     0x239c8>                                         {[-4-]}
        <POP 239f2-23a20 Naked>                              Σ-4 Δ+4    ↓ ←0x239c8
            <POP 239f2-239f4 StackAdj>                       Δ+4                {}
            <MI 239f4  MOVEA.L (A6-0x10),A0>                                    {}
            <POP 0x239f6 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff>                      {}
            <MI 23a0c  MOVE.W  D6,(A0)>                                         {}
            <MI 23a0e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x23a10 0x22af2>                                              {[4, '(A6-0x10)']}
            <POP 23a14-23a16 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x23a16 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x23a18 0x102bc>                                              {[@@-20]}
                FreeString(VAR a : String)
            <POP 23a1e-23a20 StackAdj>                       Δ+4                {}
        <POP 23a20-23a28 Epilogue>                           Σ0         

0x23a28


@ 23a28
        <LVAR  0x008 4(r)>
    <POP 23a28-23a54 Body>                                              
        <POP 23a28-23a3a Prologue>                           Σ0         ↓
        <POP 23a3a-23a50 Naked>                              Σ0         ↓
            <POP 23a3a-23a3c StackAdj>                       Δ-8                {[-8-]}
            <MI 23a3c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23a40 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23a44 0x22a82>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 23a48-23a4a StackAdj>                       Δ+8                {[-8-]}
            <Call 0x23a4a 0x228bc>                                              {[-8-]}
            <POP 23a4e-23a50 StackAdj>                       Δ+8                {}
        <POP 23a50-23a54 Epilogue>                           Σ0         

0x23a54


@ 23a54
        <LVAR  0x008 4(r)>
    <POP 23a54-23aa0 Body>                                              
        <POP 23a54-23a66 Prologue>                           Σ0         ↓
        <POP 23a66-23a92 Naked>                              Σ0         ↓ →0x23a98
            <POP 23a66-23a6a StackAdj>                       Δ-10               {[-10-]}
            <MI 23a6a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23a6e 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23a72 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23a76  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23a7a 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23a7e 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23a82-23a84 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23a84 0x1032c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsEqual(a, b : Quad) : Bool
            <POP 23a8a-23a8e StackAdj>                       Δ+16               {[-2-]}
            <MI 23a8e  TST.B   (A7)+>                        Δ+2                {}
            <MI 23a90  BEQ     0x23a98>                                         {}
        <POP 23a92-23a98 Naked>                              Σ0         →0x23a9c
            <Call 0x23a92 0x22510>                                              {}
            <MI 23a96  BRA     0x23a9c>                                         {}
        <POP 23a98-23a9c Naked>                              Σ0         ↓ ←0x23a66
            <Call 0x23a98 0x22556>                                              {}
        <POP 23a9c-23aa0 Epilogue>                           Σ0         ←0x23a92

0x23aa0


@ 23aa0
        <LVAR  0x008 4(r)>
    <POP 23aa0-23aec Body>                                              
        <POP 23aa0-23ab2 Prologue>                           Σ0         ↓
        <POP 23ab2-23ade Naked>                              Σ0         ↓ →0x23ae4
            <POP 23ab2-23ab6 StackAdj>                       Δ-10               {[-10-]}
            <MI 23ab6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23aba 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23abe 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23ac2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23ac6 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23aca 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23ace-23ad0 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23ad0 0x1032c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsEqual(a, b : Quad) : Bool
            <POP 23ad6-23ada StackAdj>                       Δ+16               {[-2-]}
            <MI 23ada  TST.B   (A7)+>                        Δ+2                {}
            <MI 23adc  BNE     0x23ae4>                                         {}
        <POP 23ade-23ae4 Naked>                              Σ0         →0x23ae8
            <Call 0x23ade 0x22510>                                              {}
            <MI 23ae2  BRA     0x23ae8>                                         {}
        <POP 23ae4-23ae8 Naked>                              Σ0         ↓ ←0x23ab2
            <Call 0x23ae4 0x22556>                                              {}
        <POP 23ae8-23aec Epilogue>                           Σ0         ←0x23ade

0x23aec


@ 23aec
        <LVAR  0x008 4(r)>
    <POP 23aec-23b38 Body>                                              
        <POP 23aec-23afe Prologue>                           Σ0         ↓
        <POP 23afe-23b2a Naked>                              Σ0         ↓ →0x23b30
            <POP 23afe-23b02 StackAdj>                       Δ-10               {[-10-]}
            <MI 23b02  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23b06 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b0a 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23b0e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23b12 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23b16 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23b1a-23b1c StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b1c 0x10328>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsSmaller(a, b : Quad) : Bool
            <POP 23b22-23b26 StackAdj>                       Δ+16               {[-2-]}
            <MI 23b26  TST.B   (A7)+>                        Δ+2                {}
            <MI 23b28  BEQ     0x23b30>                                         {}
        <POP 23b2a-23b30 Naked>                              Σ0         →0x23b34
            <Call 0x23b2a 0x22510>                                              {}
            <MI 23b2e  BRA     0x23b34>                                         {}
        <POP 23b30-23b34 Naked>                              Σ0         ↓ ←0x23afe
            <Call 0x23b30 0x22556>                                              {}
        <POP 23b34-23b38 Epilogue>                           Σ0         ←0x23b2a

0x23b38


@ 23b38
        <LVAR  0x008 4(r)>
    <POP 23b38-23b84 Body>                                              
        <POP 23b38-23b4a Prologue>                           Σ0         ↓
        <POP 23b4a-23b76 Naked>                              Σ0         ↓ →0x23b7c
            <POP 23b4a-23b4e StackAdj>                       Δ-10               {[-10-]}
            <MI 23b4e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23b52 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b56 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23b5a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23b5e 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23b62 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23b66-23b68 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b68 0x10324>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsGreater(a, b : Quad) : Bool
            <POP 23b6e-23b72 StackAdj>                       Δ+16               {[-2-]}
            <MI 23b72  TST.B   (A7)+>                        Δ+2                {}
            <MI 23b74  BEQ     0x23b7c>                                         {}
        <POP 23b76-23b7c Naked>                              Σ0         →0x23b80
            <Call 0x23b76 0x22510>                                              {}
            <MI 23b7a  BRA     0x23b80>                                         {}
        <POP 23b7c-23b80 Naked>                              Σ0         ↓ ←0x23b4a
            <Call 0x23b7c 0x22556>                                              {}
        <POP 23b80-23b84 Epilogue>                           Σ0         ←0x23b76

0x23b84


@ 23b84
        <LVAR  0x008 4(r)>
    <POP 23b84-23bd0 Body>                                              
        <POP 23b84-23b96 Prologue>                           Σ0         ↓
        <POP 23b96-23bc2 Naked>                              Σ0         ↓ →0x23bc8
            <POP 23b96-23b9a StackAdj>                       Δ-10               {[-10-]}
            <MI 23b9a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23b9e 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23ba2 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23ba6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23baa 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23bae 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23bb2-23bb4 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23bb4 0x10324>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsGreater(a, b : Quad) : Bool
            <POP 23bba-23bbe StackAdj>                       Δ+16               {[-2-]}
            <MI 23bbe  TST.B   (A7)+>                        Δ+2                {}
            <MI 23bc0  BNE     0x23bc8>                                         {}
        <POP 23bc2-23bc8 Naked>                              Σ0         →0x23bcc
            <Call 0x23bc2 0x22510>                                              {}
            <MI 23bc6  BRA     0x23bcc>                                         {}
        <POP 23bc8-23bcc Naked>                              Σ0         ↓ ←0x23b96
            <Call 0x23bc8 0x22556>                                              {}
        <POP 23bcc-23bd0 Epilogue>                           Σ0         ←0x23bc2

0x23bd0


@ 23bd0
        <LVAR  0x008 4(r)>
    <POP 23bd0-23c1c Body>                                              
        <POP 23bd0-23be2 Prologue>                           Σ0         ↓
        <POP 23be2-23c0e Naked>                              Σ0         ↓ →0x23c14
            <POP 23be2-23be6 StackAdj>                       Δ-10               {[-10-]}
            <MI 23be6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23bea 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23bee 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23bf2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23bf6 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23bfa 0x22a82>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23bfe-23c00 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23c00 0x10328>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsSmaller(a, b : Quad) : Bool
            <POP 23c06-23c0a StackAdj>                       Δ+16               {[-2-]}
            <MI 23c0a  TST.B   (A7)+>                        Δ+2                {}
            <MI 23c0c  BNE     0x23c14>                                         {}
        <POP 23c0e-23c14 Naked>                              Σ0         →0x23c18
            <Call 0x23c0e 0x22510>                                              {}
            <MI 23c12  BRA     0x23c18>                                         {}
        <POP 23c14-23c18 Naked>                              Σ0         ↓ ←0x23be2
            <Call 0x23c14 0x22556>                                              {}
        <POP 23c18-23c1c Epilogue>                           Σ0         ←0x23c0e

0x23c1c


@ 23c1c
        <LVAR  0x008 4(r)>
    <POP 23c1c-23c66 Body>                                              
        <POP 23c1c-23c32 Prologue>                           Σ0         ↓
        <POP 23c32-23c34 RegCacheLoad>                       Σ0         ↓
        <POP 23c34-23c5e Naked>                              Σ0         ↓
            <POP 23c34-23c36 StackAdj>                       Δ-16               {[-16-]}
            <MI 23c36  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23c3a 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23c3e 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23c42  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23c46 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23c4a 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23c4e-23c50 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23c50 0x10314>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Add(a, b : Quad) : Quad
            <POP 23c56-23c58 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23c58 0x22b7a>                                              {[-8-]}
            <POP 23c5c-23c5e StackAdj>                       Δ+8                {}
        <POP 23c5e-23c66 Epilogue>                           Σ0         

0x23c66


@ 23c66
        <LVAR  0x008 4(r)>
    <POP 23c66-23cb0 Body>                                              
        <POP 23c66-23c7c Prologue>                           Σ0         ↓
        <POP 23c7c-23c7e RegCacheLoad>                       Σ0         ↓
        <POP 23c7e-23ca8 Naked>                              Σ0         ↓
            <POP 23c7e-23c80 StackAdj>                       Δ-16               {[-16-]}
            <MI 23c80  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23c84 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23c88 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23c8c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23c90 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23c94 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23c98-23c9a StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23c9a 0x10318>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Subtract(a, b : Quad) : Quad
            <POP 23ca0-23ca2 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23ca2 0x22b7a>                                              {[-8-]}
            <POP 23ca6-23ca8 StackAdj>                       Δ+8                {}
        <POP 23ca8-23cb0 Epilogue>                           Σ0         

0x23cb0


@ 23cb0
        <LVAR  0x008 4(r)>
    <POP 23cb0-23cfa Body>                                              
        <POP 23cb0-23cc6 Prologue>                           Σ0         ↓
        <POP 23cc6-23cc8 RegCacheLoad>                       Σ0         ↓
        <POP 23cc8-23cf2 Naked>                              Σ0         ↓
            <POP 23cc8-23cca StackAdj>                       Δ-16               {[-16-]}
            <MI 23cca  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23cce 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23cd2 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23cd6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23cda 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23cde 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23ce2-23ce4 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23ce4 0x1031c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Multiply(a, b : Quad) : Quad
            <POP 23cea-23cec StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23cec 0x22b7a>                                              {[-8-]}
            <POP 23cf0-23cf2 StackAdj>                       Δ+8                {}
        <POP 23cf2-23cfa Epilogue>                           Σ0         

0x23cfa


@ 23cfa
        <LVAR  0x008 4(r)>
    <POP 23cfa-23d44 Body>                                              
        <POP 23cfa-23d10 Prologue>                           Σ0         ↓
        <POP 23d10-23d12 RegCacheLoad>                       Σ0         ↓
        <POP 23d12-23d3c Naked>                              Σ0         ↓
            <POP 23d12-23d14 StackAdj>                       Δ-16               {[-16-]}
            <MI 23d14  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23d18 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23d1c 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23d20  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23d24 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23d28 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23d2c-23d2e StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23d2e 0x10320>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Divide(a, b : Quad) : Quad
            <POP 23d34-23d36 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23d36 0x22b7a>                                              {[-8-]}
            <POP 23d3a-23d3c StackAdj>                       Δ+8                {}
        <POP 23d3c-23d44 Epilogue>                           Σ0         

0x23d44


@ 23d44
        <LVAR  0x008 4(r)>
    <POP 23d44-23d8e Body>                                              
        <POP 23d44-23d5a Prologue>                           Σ0         ↓
        <POP 23d5a-23d5c RegCacheLoad>                       Σ0         ↓
        <POP 23d5c-23d86 Naked>                              Σ0         ↓
            <POP 23d5c-23d5e StackAdj>                       Δ-16               {[-16-]}
            <MI 23d5e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23d62 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23d66 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23d6a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23d6e 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23d72 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23d76-23d78 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23d78 0x10358>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Modulus(a, b : Quad) : Quad
            <POP 23d7e-23d80 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23d80 0x22b7a>                                              {[-8-]}
            <POP 23d84-23d86 StackAdj>                       Δ+8                {}
        <POP 23d86-23d8e Epilogue>                           Σ0         

0x23d8e


@ 23d8e
        <LVAR  0x008 4(r)>
    <POP 23d8e-23dd8 Body>                                              
        <POP 23d8e-23da4 Prologue>                           Σ0         ↓
        <POP 23da4-23da6 RegCacheLoad>                       Σ0         ↓
        <POP 23da6-23dd0 Naked>                              Σ0         ↓
            <POP 23da6-23da8 StackAdj>                       Δ-16               {[-16-]}
            <MI 23da8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23dac 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23db0 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23db4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23db8 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23dbc 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23dc0-23dc2 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23dc2 0x10334>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitOr(a, b : Quad) : Quad
            <POP 23dc8-23dca StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23dca 0x22b7a>                                              {[-8-]}
            <POP 23dce-23dd0 StackAdj>                       Δ+8                {}
        <POP 23dd0-23dd8 Epilogue>                           Σ0         

0x23dd8


@ 23dd8
        <LVAR  0x008 4(r)>
    <POP 23dd8-23e22 Body>                                              
        <POP 23dd8-23dee Prologue>                           Σ0         ↓
        <POP 23dee-23df0 RegCacheLoad>                       Σ0         ↓
        <POP 23df0-23e1a Naked>                              Σ0         ↓
            <POP 23df0-23df2 StackAdj>                       Δ-16               {[-16-]}
            <MI 23df2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23df6 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23dfa 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23dfe  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23e02 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23e06 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23e0a-23e0c StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23e0c 0x10330>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitAnd(a, b : Quad) : Quad
            <POP 23e12-23e14 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23e14 0x22b7a>                                              {[-8-]}
            <POP 23e18-23e1a StackAdj>                       Δ+8                {}
        <POP 23e1a-23e22 Epilogue>                           Σ0         

0x23e22


@ 23e22
        <LVAR  0x008 4(r)>
    <POP 23e22-23e6c Body>                                              
        <POP 23e22-23e38 Prologue>                           Σ0         ↓
        <POP 23e38-23e3a RegCacheLoad>                       Σ0         ↓
        <POP 23e3a-23e64 Naked>                              Σ0         ↓
            <POP 23e3a-23e3c StackAdj>                       Δ-16               {[-16-]}
            <MI 23e3c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23e40 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23e44 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23e48  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23e4c 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23e50 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23e54-23e56 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23e56 0x10340>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitXor(a, b : Quad) : Quad
            <POP 23e5c-23e5e StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23e5e 0x22b7a>                                              {[-8-]}
            <POP 23e62-23e64 StackAdj>                       Δ+8                {}
        <POP 23e64-23e6c Epilogue>                           Σ0         

0x23e6c


@ 23e6c
        <LVAR  0x008 4(r)>
    <POP 23e6c-23eb0 Body>                                              
        <POP 23e6c-23e7e Prologue>                           Σ0         ↓
        <POP 23e7e-23eac Naked>                              Σ0         ↓
            <POP 23e7e-23e82 StackAdj>                       Δ-16               {[-16-]}
            <MI 23e82  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23e86 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23e8a 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23e8e  MOVE.L  (A6+0x8),(A7)>                                   {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
            <Const 0x23e92 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <Call 0x23e96 0x22abe>                                              {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <POP 23e9a-23e9c StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']}
            <Call 0x23e9c 0x10344>                                              {[-16-]|[4, '(A6+0x8)']}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 23ea2-23ea6 StackAdj>                       Δ+12               {[-8-]}
            <Call 0x23ea6 0x22b7a>                                              {[-8-]}
            <POP 23eaa-23eac StackAdj>                       Δ+8                {}
        <POP 23eac-23eb0 Epilogue>                           Σ0         

0x23eb0


@ 23eb0
        <LVAR  0x008 4(r)>
    <POP 23eb0-23ef6 Body>                                              
        <POP 23eb0-23ec2 Prologue>                           Σ0         ↓
        <POP 23ec2-23ef2 Naked>                              Σ0         ↓
            <POP 23ec2-23ec6 StackAdj>                       Δ-16               {[-16-]}
            <MI 23ec6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23eca 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23ece 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23ed2  MOVE.L  (A6+0x8),(A7)>                                   {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
            <Const 0x23ed6 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <Call 0x23eda 0x22abe>                                              {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <POP 23ede-23ee0 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']}
            <MI 23ee0  NEG.L   (A7)>                                            {[-16-]|[4, '(A6+0x8)']}
            <Call 0x23ee2 0x10344>                                              {[-16-]|[4, '(A6+0x8)']}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 23ee8-23eec StackAdj>                       Δ+12               {[-8-]}
            <Call 0x23eec 0x22b7a>                                              {[-8-]}
            <POP 23ef0-23ef2 StackAdj>                       Δ+8                {}
        <POP 23ef2-23ef6 Epilogue>                           Σ0         

0x23ef6


@ 23ef6
        <LVAR  0x008 4(r)>
    <POP 23ef6-23f2c Body>                                              
        <POP 23ef6-23f08 Prologue>                           Σ0         ↓
        <POP 23f08-23f28 Naked>                              Σ0         ↓
            <POP 23f08-23f0c StackAdj>                       Δ-16               {[-16-]}
            <MI 23f0c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23f10 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23f14 0x22a82>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <POP 23f18-23f1a StackAdj>                       Δ+8                {[-16-]}
            <Call 0x23f1a 0x10338>                                              {[-16-]}
                BitNot(a : Quad) : Quad
            <POP 23f20-23f22 StackAdj>                       Δ+8                {[-8-]}
            <Call 0x23f22 0x22b7a>                                              {[-8-]}
            <POP 23f26-23f28 StackAdj>                       Δ+8                {}
        <POP 23f28-23f2c Epilogue>                           Σ0         

0x23f2c


@ 23f2c
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(rw)>
    <POP 23f2c-23fbc Body>                                              
        <POP 23f2c-23f42 Prologue>                           Σ0         ↓
        <POP 23f42-23f46 RegCacheLoad>                       Σ0         ↓
        <POP 23f46-23fb4 Naked>                              Σ0         ↓
            <POP 23f46-23f48 StackAdj>                       Δ-8                {[-8-]}
            <MI 23f48  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23f4a 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23f4e 0x22a82>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 23f52-23f54 StackAdj>                       Δ+8                {[-8-]}
            <MI 23f54  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {[-4-]}
            <MI 23f58  MOVE.L  (A7),(A6-0x14)>                                  {[-4-]}
            <POP 23f5c-23f5e StackAdj>                       Δ-4                {[-8-]}
            <MI 23f5e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23f60 0x2.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23f64 0x22a82>                                              {[-8-]|[4, '(A6+0x8)']|[##2]}
            <POP 23f68-23f6a StackAdj>                       Δ+8                {[-8-]}
            <MI 23f6a  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 23f6e  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 23f72  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23f74 0x3.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x23f78 0x22abe>                                              {[-4-]|[4, '(A6+0x8)']|[##3]}
            <POP 23f7c-23f7e StackAdj>                       Δ+8                {[-4-]}
            <MI 23f7e  MOVE.L  (A7),D7>                                         {[-4-]}
            <MI 23f80  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23f82 0x4.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##4]}
            <Call 0x23f86 0x22abe>                                              {[-4-]|[4, '(A6+0x8)']|[##4]}
            <POP 23f8a-23f8c StackAdj>                       Δ+8                {[-4-]}
            <MI 23f8c  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 23f8e-23f90 StackAdj>                       Δ-4                {[-8-]}
            <MI 23f90  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']}
            <MI 23f94  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
            <MI 23f98  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
            <MI 23f9c  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 23fa0  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
            <MI 23fa2  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
            <Call 0x23fa4 0x10348>                                              {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
                ?BitField_something_()
            <POP 23faa-23fae StackAdj>                       Δ+24               {[-8-]}
            <Call 0x23fae 0x22b7a>                                              {[-8-]}
            <POP 23fb2-23fb4 StackAdj>                       Δ+8                {}
        <POP 23fb4-23fbc Epilogue>                           Σ0         

0x23fbc


@ 23fbc
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 23fbc-2402e Body>                                              
        <POP 23fbc-23fd2 Prologue>                           Σ0         ↓
        <POP 23fd2-23fd6 RegCacheLoad>                       Σ0         ↓
        <POP 23fd6-24026 Naked>                              Σ0         ↓
            <POP 23fd6-23fd8 StackAdj>                       Δ-8                {[-8-]}
            <MI 23fd8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23fda 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23fde 0x22a82>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 23fe2-23fe4 StackAdj>                       Δ+8                {[-8-]}
            <MI 23fe4  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 23fe8  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 23fec  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23fee 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23ff2 0x22abe>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 23ff6-23ff8 StackAdj>                       Δ+8                {[-4-]}
            <MI 23ff8  MOVE.L  (A7),D7>                                         {[-4-]}
            <MI 23ffa  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23ffc 0x3.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x24000 0x22abe>                                              {[-4-]|[4, '(A6+0x8)']|[##3]}
            <POP 24004-24006 StackAdj>                       Δ+8                {[-4-]}
            <MI 24006  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 24008-2400a StackAdj>                       Δ-4                {[-8-]}
            <MI 2400a  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 2400e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 24012  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
            <MI 24014  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
            <Call 0x24016 0x1034c>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
                FSCALL_1034c
            <POP 2401c-24020 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24020 0x22b7a>                                              {[-8-]}
            <POP 24024-24026 StackAdj>                       Δ+8                {}
        <POP 24026-2402e Epilogue>                           Σ0         

0x2402e


@ 2402e
        <LVAR  0x008 4(r)>
    <POP 2402e-240a0 Body>                                              
        <POP 2402e-24044 Prologue>                           Σ0         ↓
        <POP 24044-24052 Naked>                              Σ0 Δ-4     ↓
            <POP 24044-24046 StackAdj>                       Δ-4                {[-4-]}
            <MI 24046  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x2404a 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 2404e-24050 StackAdj>                       Δ+4                {[-4-]}
            <MI 24050  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 24052-24056 Naked>                              Σ-4        ↓ →0x2407c ←0x24056
            <MI 24052  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 24054  BGT     0x2407c>                                         {[-4-]}
        <POP 24056-2407c Naked>                              Σ-4        ↓ →0x24052
            <POP 24056-24058 StackAdj>                       Δ-4                {[-8-]}
            <MI 24058  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 2405c  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x2405e 0x22a50>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 24062-24064 StackAdj>                       Δ+8                {[-8-]}
            <Call 0x24064 0x103d8>                                              {[-8-]}
                WriteConsoleString(str : String)
            <POP 2406a-2406c StackAdj>                       Δ+2                {[-6-]}
            <POP 2406c-2406d StackAdj>                       Δ+2                {[-4-]}
            <Const 0x2406d 0x20.2>                           Δ-2                {[-4-]|[#32]}
            <Call 0x24070 0x103d0>                                              {[-4-]|[#32]}
                WriteConsoleChar(chr : char)
            <POP 24076-24078 StackAdj>                       Δ+2                {[-4-]}
            <MI 24078  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2407a  BVC     0x24052>                                         {[-4-]}
        <POP 2407c-24098 Naked>                              Σ-4 Δ+4    ↓ ←0x24052
            <Const 0x2407c 0x1.4>                            Δ-4                {[-4-]|[##1]}
            <Call 0x24080 0x103e4>                                              {[-4-]|[##1]}
                AskConsoleString(prompt : String) : String
            <POP 24086-24088 StackAdj>                       Δ+4                {[-4-]}
            <MI 24088  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 2408a  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Call 0x2408c 0x21f80>                                              {[4, 'A4']}
            <MI 24090  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x24092 0x22af2>                                              {[4, 'A4']}
            <POP 24096-24098 StackAdj>                       Δ+4                {}
        <POP 24098-240a0 Epilogue>                           Σ0         

0x240a0


@ 240a0
        <LVAR  0x008 4(r)>
    <POP 240a0-24122 Body>                                              
        <POP 240a0-240b6 Prologue>                           Σ0         ↓
        <POP 240b6-240bc RegCacheLoad>                       Σ0         ↓
        <POP 240bc-2411a Naked>                              Σ0         ↓
            <POP 240bc-240be StackAdj>                       Δ-4                {[-4-]}
            <MI 240be  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x240c0 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x240c4 0x22a50>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 240c8-240ca StackAdj>                       Δ+8                {[-4-]}
            <MI 240ca  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 240cc-240ce StackAdj>                       Δ-12               {[-12-]}
            <MI 240ce  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x240d0 0x2.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x240d4 0x22a82>                                              {[-12-]|[4, '(A6+0x8)']|[##2]}
            <POP 240d8-240da StackAdj>                       Δ+8                {[-12-]}
            <Call 0x240da 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 240e0-240e2 StackAdj>                       Δ+8                {[-4-]}
            <MI 240e2  MOVE.L  (A7),D7>                                         {[-4-]}
            <POP 240e4-240e6 StackAdj>                       Δ-8                {[-12-]}
            <MI 240e6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x240e8 0x3.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x240ec 0x22a82>                                              {[-12-]|[4, '(A6+0x8)']|[##3]}
            <POP 240f0-240f2 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x240f2 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 240f8-240fa StackAdj>                       Δ+8                {[-4-]}
            <MI 240fa  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 240fc-240fe StackAdj>                       Δ-8                {[-12-]}
            <MI 240fe  MOVE.L  A4,-(A7)>                     Δ-4                {[-12-]|[4, 'A4']}
            <MI 24100  MOVE.L  D7,-(A7)>                     Δ-4                {[-12-]|[4, 'A4']|[4, 'D7']}
            <Call 0x24102 0x10360>                                              {[-12-]|[4, 'A4']|[4, 'D7']}
                ?StringToInt64()
            <POP 24108-2410a StackAdj>                       Δ+4                {[-12-]|[4, 'A4']}
            <MI 2410a  MOVE.L  D6,(A7)>                                         {[-12-]|[4, 'D6']}
            <Call 0x2410c 0x1035c>                                              {[-12-]|[4, 'D6']}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 24112-24114 StackAdj>                       Δ+12               {[-4-]}
            <Call 0x24114 0x22af2>                                              {[-4-]}
            <POP 24118-2411a StackAdj>                       Δ+4                {}
        <POP 2411a-24122 Epilogue>                           Σ0         

0x24122


@ 24122
        <LVAR  0x008 4(r)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 24122-241a2 Body>                                              
        <POP 24122-24138 Prologue>                           Σ0         ↓
        <POP 24138-24140 RegCacheLoad>                       Σ0         ↓
        <POP 24140-24158 Naked>                              Σ0         ↓
            <POP 24140-24142 StackAdj>                       Δ-8                {[-8-]}
            <MI 24142  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x24146 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2414a 0x22a82>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 2414e-24150 StackAdj>                       Δ+8                {[-8-]}
            <MI 24150  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 24152  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 24154  MOVEQ.L #0x00,D7>                                        {}
            <MI 24156  MOVEQ.L #0x00,D6>                                        {}
        <POP 24158-24188 Naked>                              Σ0         ↓ →0x24158 ←0x24158
            <MI 24158  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 2415c  ANDI.W  #0x0001,D0>                                      {}
            <MI 24160  CLR.L   D1>                                              {}
            <MI 24162  MOVE.W  D0,D1>                                           {}
            <MI 24164  ADD.L   D1,D7>                                           {}
            <POP 24166-24168 StackAdj>                       Δ-8                {[-8-]}
            <MI 24168  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 2416a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Const 0x2416c 0xffffffff.4>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
            <Call 0x24170 0x10344>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 24176-2417a StackAdj>                       Δ+12               {[-8-]}
            <MI 2417a  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 2417c  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 2417e  ADDQ.L  #0x1,D6>                                         {}
            <MI 24180  CMPI.L  #0x0000003f,D6>                                  {}
            <MI 24186  BLE     0x24158>                                         {}
        <POP 24188-2419a Naked>                              Σ0         ↓
            <POP 24188-2418a StackAdj>                       Δ-8                {[-8-]}
            <MI 2418a  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, 'D7']}
            <Call 0x2418c 0x10354>                                              {[-8-]|[4, 'D7']}
                Long2Quad(a : Long) : Quad
            <POP 24192-24194 StackAdj>                       Δ+4                {[-8-]}
            <Call 0x24194 0x22b7a>                                              {[-8-]}
            <POP 24198-2419a StackAdj>                       Δ+8                {}
        <POP 2419a-241a2 Epilogue>                           Σ0         

0x241a2


@ 241a2
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 241a2-24266 Body>                                              
        <POP 241a2-241b8 Prologue>                           Σ0         ↓
        <POP 241b8-241c2 RegCacheLoad>                       Σ0         ↓
        <POP 241c2-241c6 Naked>                              Σ0         ↓ →0x241f8
            <MI 241c2  TST.B   0x26864>                                         {}
            <MI 241c4  BNE     0x241f8>                                         {}
        <POP 241c6-241f8 Naked>                              Σ0         ↓
            <Blob 0x241c6 [28] @>                            Δ-28               {[«28""»]}
            <POP 241d8-241da StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x241da 27>                                                    {[«28""»]|[$$REPEATing, type ^G to exit.]}
            <Call 0x241ec 0x103e0>                                              {[«28""»]|[$$REPEATing, type ^G to exit.]}
                WriteConsoleStringCrLf(str : String)
            <POP 241f2-241f6 StackAdj>                       Δ+32               {}
            <MI 241f6  MOVE.B  #0x01,0x26864>                                   {}
        <POP 241f8-24222 Naked>                              Σ0         ↓ →0x24238 ←0x241c2
            <POP 241f8-241fa StackAdj>                       Δ-6                {[-6-]}
            <Call 0x241fa 0x103f8>                                              {[-6-]}
                GetConsoleConfig() : Long
            <MI 24200  MOVE.L  (A7)+,D0>                     Δ+4                {[-2-]}
            <POP 0x24202 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]}
            <MI 2420c  MOVE.W  D0,(A7)>                                         {[2, 'D0']}
            <Pointer.fp 0x2420e <LVAR -0x004 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-4]}
            <Call 0x24212 0x10212>                                              {[2, 'D0']|[@@-4]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 24218-2421a StackAdj>                       Δ+6                {}
            <MI 2421a  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 2421e  CMP.B   #0x01,D0>                                        {}
            <MI 24220  BEQ     0x24238>                                         {}
        <POP 24222-24238 Naked>                              Σ0         
            <MI 24222  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x24226 0x21ce6>                                              {[4, '(A6+0x8)']}
            <POP 2422a-2422c StackAdj>                       Δ+4                {}
            <POP 2422c-24238 Bailout>                                           {}
                <MI 2422c  MOVEA.L (A5+0x8),A7>                         
                <MI 24230  MOVEA.W #0x00,A6>                            
                <MI 24232  JMP     0x255ca>                             
        <POP 24238-24248 Naked>                              Σ0         ↓ →0x2425e ←0x241f8
            <POP 24238-2423a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2423a 0x103d4>                                              {[-2-]}
                ReadChar() : Byte
            <MI 24240  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 24242  CMPI.B  #0x07,D0>                                        {}
            <MI 24246  BEQ     0x2425e>                                         {}
        <POP 24248-2425e Naked>                              Σ0         
            <MI 24248  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x2424c 0x21ce6>                                              {[4, '(A6+0x8)']}
            <POP 24250-24252 StackAdj>                       Δ+4                {}
            <POP 24252-2425e Bailout>                                           {}
                <MI 24252  MOVEA.L (A5+0x8),A7>                         
                <MI 24256  MOVEA.W #0x00,A6>                            
                <MI 24258  JMP     0x255ca>                             
        <POP 2425e-24266 Epilogue>                           Σ0         ←0x24238

0x24266


@ 24266
    <POP 24266-24286 Body>                                              
        <POP 24266-24278 Prologue>                           Σ0         ↓
        <POP 24278-24282 Naked>                              Σ0         ↓
            <Const 0x24278 0xc8.4>                           Δ-4                {[##200]}
            <Call 0x2427c 0x22bae>                                              {[##200]}
            <POP 24280-24282 StackAdj>                       Δ+4                {}
        <POP 24282-24286 Epilogue>                           Σ0         

0x24286


@ 24286
        <LVAR  0x008 4(r)>
        <LVAR -0x00c @ 4(r)>
    <POP 24286-24332 Body>                                              
        <POP 24286-2429c Prologue>                           Σ0         ↓
        <POP 2429c-242a0 RegCacheLoad>                       Σ0         ↓
        <POP 242a0-242b4 Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x242a0 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x242a2 0x102b8>                                              {[@@-12]}
                NewString(VAR a : String)
            <MI 242a8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-12]|[4, '(A6+0x8)']}
            <Call 0x242ac 0x22134>                                              {[@@-12]|[4, '(A6+0x8)']}
            <POP 242b0-242b2 StackAdj>                       Δ+4                {[@@-12]}
            <MI 242b2  MOVEQ.L #0x01,D7>                                        {[@@-12]}
        <POP 242b4-242b8 Naked>                              Σ-4        ↓ →0x24322 ←0x2431e
            <MI 242b4  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 242b6  BGT     0x24322>                                         {[-4-]}
        <POP 242b8-242ca Naked>                              Σ-4        ↓ →0x242ea
            <POP 242b8-242ba StackAdj>                       Δ-4                {[-8-]}
            <MI 242ba  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 242be  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x242c0 0x22abe>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 242c4-242c6 StackAdj>                       Δ+8                {[-8-]}
            <MI 242c6  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 242c8  BLT     0x242ea>                                         {[-4-]}
        <POP 242ca-242d2 Naked>                              Σ-4        ↓ →0x242ea
            <MI 242ca  CMPI.L  #0x000000ff,D6>                                  {[-4-]}
            <MI 242d0  BGT     0x242ea>                                         {[-4-]}
        <POP 242d2-242ea Naked>                              Σ-4        →0x2431e
            <MI 242d2  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0xc)']}
            <POP 0x242d4 LimitCheck 0x0 ≤ D6 ≤ 0xff>                            {[-4-]|[4, '(A6-0xc)']}
            <MI 242de  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
            <Call 0x242e0 0x102c0>                                              {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 242e6-242e8 StackAdj>                       Δ+6                {[-4-]}
            <MI 242e8  BRA     0x2431e>                                         {[-4-]}
        <POP 242ea-2431e Naked>                              Σ-4        ↓ ←0x242b8 ←0x242ca
            <Pointer.fp 0x242ea <LVAR -0x00c @ 4(r)>>        Δ-4                {[-4-]|[@@-12]}
            <Call 0x242ec 0x102bc>                                              {[-4-]|[@@-12]}
                FreeString(VAR a : String)
            <POP 242f2-242f4 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x242f4 [28] @>                            Δ-28               {[-4-]|[«28""»]}
            <POP 24300-24302 StackAdj>                       Δ-4                {[-4-]|[«28""»]|[-4-]}
            <Lit 0x24302 28>                                                    {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
            <Call 0x24316 0x21d28>                                              {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
            <POP 2431a-2431e StackAdj>                       Δ+32               {[-4-]}
        <POP 2431e-24322 Naked>                              Σ-4        ↓ →0x242b4 ←0x242d2
            <MI 2431e  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 24320  BVC     0x242b4>                                         {[-4-]}
        <POP 24322-2432a Naked>                              Σ-4 Δ+4    ↓ ←0x242b4
            <MI 24322  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <Call 0x24324 0x22af2>                                              {[4, '(A6-0xc)']}
            <POP 24328-2432a StackAdj>                       Δ+4                {}
        <POP 2432a-24332 Epilogue>                           Σ0         

0x24332


@ 24332
        <LVAR  0x00c 1(rw)>
        <LVAR  0x008 4(r)>
    <POP 24332-243ea Body>                                   Δ-8        
        <POP 24332-24348 Prologue>                           Σ0         ↓
        <POP 24348-24358 Naked>                              Σ0 Δ-4     ↓
            <MI 24348  CLR.B   (A6+0xc)>                                        {}
            <MI 2434c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24350  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 24352  MOVEQ.L #0x00,D0>                                        {[4, 'A0']}
            <MI 24354  ADDQ.W  #0x1,D0>                                         {[4, 'A0']}
            <MI 24356  MOVE.B  D0,D6>                                           {[4, 'A0']}
        <POP 24358-24360 Naked>                              Σ-4        ↓ →0x243e0 ←0x243da
            <MI 24358  CMPI.B  #0x2b,D6>                                        {[-4-]}
            <MI 2435c  BGT     0x243e0>                                         {[-4-]}
        <POP 24360-24386 Naked>                              Σ-4        ↓ →0x243da
            <MI 24360  LEA.L   0x21c14,A0>                                      {[-4-]}
            <MI 24364  MOVE.B  D6,D0>                                           {[-4-]}
            <MI 24366  EXTB.W  D0>                                              {[-4-]}
            <MI 24368  EXTW.L  D0>                                              {[-4-]}
            <MI 2436a  ROR.L   #0x1,D0>                                         {[-4-]}
            <MI 2436c  ADDA.W  D0,A0>                                           {[-4-]}
            <MI 2436e  SWAP.W  D0>                                              {[-4-]}
            <MI 24370  ROL.W   #0x3,D0>                                         {[-4-]}
            <MI 24372  CLR.L   D1>                                              {[-4-]}
            <MI 24374  MOVE.B  (A0),D1>                                         {[-4-]}
            <MI 24376  LSL.B   D0,D1>                                           {[-4-]}
            <MI 24378  LSR.B   #0x4,D1>                                         {[-4-]}
            <MI 2437a  MOVE.L  D1,D5>                                           {[-4-]}
            <MI 2437c  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 2437e  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 24380  EXTW.L  D0>                                              {[-4-]}
            <MI 24382  CMP.L   D0,D5>                                           {[-4-]}
            <MI 24384  BNE     0x243da>                                         {[-4-]}
        <POP 24386-2438a Naked>                              Σ-4 Δ-4    ↓
            <MI 24386  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 24388  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D5']}
        <POP 2438a-2438e Naked>                              Σ-8        ↓ →0x243d0 ←0x243cc
            <MI 2438a  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 2438c  BGT     0x243d0>                                         {[-8-]}
        <POP 2438e-243c8 Naked>                              Σ-8        ↓ →0x243cc
            <MI 2438e  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 24390  EXTB.W  D0>                                              {[-8-]}
            <MI 24392  MULS.W  #0xa,D0>                                         {[-8-]}
            <MI 24396  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 24398  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x2439a LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 243a4  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 243a8  LEA.L   0x21a5c,A1>                                      {[-8-]}
            <MI 243ac  MOVE.L  D7,D2>                                           {[-8-]}
            <MI 243ae  SUBQ.L  #0x1,D2>                                         {[-8-]}
            <POP 0x243b0 LimitCheck 0x0 ≤ D2 ≤ 0x9>                             {[-8-]}
            <MI 243ba  LEA.L   (A1+D0.W),A1>                                    {[-8-]}
            <MI 243be  MOVE.B  (A0+D1.L+#0x2),D0>                               {[-8-]}
            <MI 243c2  CMP.B   (A1+D2.L),D0>                                    {[-8-]}
            <MI 243c6  BEQ     0x243cc>                                         {[-8-]}
        <POP 243c8-243cc Naked>                              Σ-8 Δ+4    →0x243da
            <POP 243c8-243ca StackAdj>                       Δ+4                {[-4-]}
            <MI 243ca  BRA     0x243da>                                         {[-4-]}
        <POP 243cc-243d0 Naked>                              Σ-8        ↓ →0x2438a ←0x2438e
            <MI 243cc  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 243ce  BVC     0x2438a>                                         {[-8-]}
        <POP 243d0-243da Naked>                              Σ-8 Δ+8    →0x243e2 ←0x2438a
            <POP 243d0-243d2 StackAdj>                       Δ+4                {[-4-]}
            <MI 243d2  MOVE.B  D6,(A6+0xc)>                                     {[-4-]}
            <POP 243d6-243d8 StackAdj>                       Δ+4                {}
            <MI 243d8  BRA     0x243e2>                                         {}
        <POP 243da-243e0 Naked>                              Σ-4        ↓ →0x24358 ←0x24360 ←0x243c8
            <MI 243da  ADDQ.B  #0x1,D6>                                         {[-4-]}
            <MI 243dc  BVC     0x24358>                                         {[-4-]}
        <POP 243e0-243e2 Naked>                              Σ-4 Δ+4    ↓ ←0x24358
            <POP 243e0-243e2 StackAdj>                       Δ+4                {}
        <POP 243e2-243ea Epilogue>                           Σ0         ←0x243d0

0x243ea


@ 243ea
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x006 @ 4(w)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(rw)>
    <POP 243ea-24526 Body>                                              
        <POP 243ea-24400 Prologue>                           Σ0         ↓
        <POP 24400-2440e RegCacheLoad>                       Σ0         ↓
        <POP 2440e-2447a Naked>                              Σ0         ↓ →0x244c4
            <POP 2440e-24410 StackAdj>                       Δ-4                {[-4-]}
            <MI 24410  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Call 0x24414 0x102cc>                                              {[-4-]|[4, '(A6+0xc)']}
                StringDup(a : String) : String
            <POP 2441a-2441c StackAdj>                       Δ+4                {[-4-]}
            <MI 2441c  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 2441e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Const 0x24420 0x2e.2>                           Δ-2                {[4, '(A6-0x10)']|[#46]}
            <Call 0x24424 0x102c0>                                              {[4, '(A6-0x10)']|[#46]}
                AppendChar(MOD b : String; a : char)
            <POP 2442a-2442c StackAdj>                       Δ+6                {}
            <Blob 0x2442c [10] 0x26844>                      Δ-10               {[«10»]}
            <POP 2443a-2443c StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <MI 2443c  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«10»]|[-4-]|[4, '(A6-0x10)']}
            <POP 2443e-24440 StackAdj>                       Δ-4                {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x24440>                                                       {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
                <Pointer.sp 0x24440 12>                      Δ-4        
                <Const 0x24444 0x1.2>                        Δ-2        
                <Const 0x24446 0xa.2>                        Δ-2        
                <Call 0x2444a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24450-24452 StackAdj>                   Δ+8        
            <Call 0x24452 0x102d0>                                              {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
                StringCat2(a, b : String) : String
            <POP 24458-2445a StackAdj>                       Δ+8                {[«10»]|[-4-]}
            <MI 2445a  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10»]}
            <POP 2445c-2445e StackAdj>                       Δ+6                {[-4-]}
            <MI 2445e  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 24460  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x10)']|[#0]}
            <Const 0x24462 0x1.2>                            Δ-2                {[4, '(A6-0x10)']|[#0]|[#1]}
            <Const 0x24464 0x0.4>                            Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x24468 <LVAR -0x002 @ 1(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
            <Pointer.fp 0x2446a <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
            <Call 0x2446c 0x10380>                                              {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 24472-24476 StackAdj>                       Δ+20               {}
            <MI 24476  TST.B   (A6-0x2)>                                        {}
            <MI 24478  BEQ     0x244c4>                                         {}
        <POP 2447a-244c4 Naked>                              Σ0         ↓
            <Pointer.fp 0x2447a <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x2447c 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <MI 24482  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Call 0x24486 0x21ce6>                                              {[4, '(A6+0x8)']}
            <POP 2448a-2448b StackAdj>                       Δ+4        ↓       {}
            <Blob 0x2448b [26] @>                            Δ-26               {[«26""»]}
            <POP 2449c-2449e StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x2449e 25>                                                    {[«26""»]|[-4-]|[$$Not a command or macro :_]}
            <POP 244ae-244b0 StackAdj>                       Δ-4                {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
            <MI 244b0  MOVE.L  (A6+0xc),(A7)>                                   {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
            <Call 0x244b4 0x102d0>                                              {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
                StringCat2(a, b : String) : String
            <POP 244ba-244bc StackAdj>                       Δ+8                {[«26""»]|[-4-]}
            <Call 0x244bc 0x21d28>                                              {[«26""»]|[-4-]}
            <POP 244c0-244c4 StackAdj>                       Δ+30               {}
        <POP 244c4-244cc Naked>                              Σ0         ↓ ←0x2440e
            <MI 244c4  MOVE.L  0x26832,(A6-0x6)>                                {}
        <POP 244cc-244e4 Naked>                              Σ0         ↓ →0x244f8 ←0x244f8
            <MI 244cc  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <Pointer.fp 0x244ce <LVAR -0x010 @ 4(rw)>>       Δ-4                {[4, '(A6-0xc)']|[@@-16]}
            <Pointer.fp 0x244d0 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
            <Call 0x244d4 0x1043c>                                              {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 244da-244de StackAdj>                       Δ+12               {}
            <MI 244de  MOVEA.L (A6-0x10),A0>                                    {}
            <MI 244e0  TST.W   (A0)>                                            {}
            <MI 244e2  BEQ     0x244f8>                                         {}
        <POP 244e4-244f8 Naked>                              Σ0         ↓
            <MI 244e4  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x244e6 0x21f80>                                              {[4, '(A6-0x10)']}
            <POP 244ea-244ec StackAdj>                       Δ+4                {}
            <Pointer.fp 0x244ec <LVAR -0x006 @ 4(w)>>        Δ-4                {[@@-6]}
            <MI 244f0  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[@@-6]|[4, '(A6-0x10)']}
            <Call 0x244f2 0x22306>                                              {[@@-6]|[4, '(A6-0x10)']}
            <POP 244f6-244f8 StackAdj>                       Δ+8                {}
        <POP 244f8-244fe Naked>                              Σ0         ↓ →0x244cc ←0x244cc
            <MI 244f8  TST.B   (A6-0x8)>                                        {}
            <MI 244fc  BEQ     0x244cc>                                         {}
        <POP 244fe-2451e Naked>                              Σ0         ↓
            <MI 244fe  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x24500 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x24502 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x24506 <LVAR -0x002 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-2]}
            <Pointer.fp 0x24508 <LVAR -0x00c @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
            <Call 0x2450a 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 24510-24514 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x24514 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x24516 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <POP 2451c-2451e StackAdj>                       Δ+4                {}
        <POP 2451e-24526 Epilogue>                           Σ0         

0x24526


@ 24526
        <LVAR  0x014 1(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 24526-24566 Body>                                              
        <POP 24526-2453c Prologue>                           Σ0         ↓
        <POP 2453c-2455e Naked>                              Σ0         ↓
            <MI 2453c  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 24540  ADD.L   (A6+0x8),D0>                                     {}
            <MI 24544  SUBQ.L  #0x1,D0>                                         {}
            <MI 24546  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x24548 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 24552  LEA.L   0x2582a,A0>                                      {}
            <MI 24558  MOVE.B  (A0+D0.L+#0x8),(A6+0x14)>                        {}
        <POP 2455e-24566 Epilogue>                           Σ0         

0x24566


@ 24566
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 24566-245e2 Body>                                              
        <POP 24566-2457c Prologue>                           Σ0         ↓
        <POP 2457c-245a4 Naked>                              Σ0         ↓ →0x245d4
            <POP 2457c-2457e StackAdj>                       Δ-4                {[-4-]}
            <MI 2457e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 24582  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x24586 0x229d4>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 2458a-2458c StackAdj>                       Δ+8                {[-4-]}
            <Pointer.fp 0x2458c <LVAR -0x004 @ 1(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Pointer.fp 0x24590 <LVAR -0x008 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]|[@@-8]}
            <Call 0x24594 0x102ec>                                              {[-4-]|[@@-4]|[@@-8]}
                String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 2459a-2459e StackAdj>                       Δ+12               {}
            <MI 2459e  TST.B   (A6-0x4)>                                        {}
            <MI 245a2  BNE     0x245d4>                                         {}
        <POP 245a4-245d4 Naked>                              Σ0         ↓
            <Blob 0x245a4 [24] @>                            Δ-24               {[«24""»]}
            <POP 245b6-245b8 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x245b8 23>                                                    {[«24""»]|[$$Illegal marker argument]}
            <Call 0x245cc 0x21d28>                                              {[«24""»]|[$$Illegal marker argument]}
            <POP 245d0-245d4 StackAdj>                       Δ+28               {}
        <POP 245d4-245da Naked>                              Σ0         ↓ ←0x2457c
            <MI 245d4  MOVE.L  (A6-0x8),(A6+0x10)>                              {}
        <POP 245da-245e2 Epilogue>                           Σ0         

0x245e2


@ 245e2
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(w)>
        <LVAR -0x020 4(rw)>
    <POP 245e2-2470a Body>                                              
        <POP 245e2-245f8 Prologue>                           Σ0         ↓
        <POP 245f8-24608 RegCacheLoad>                       Σ0         ↓
        <POP 24608-24622 Naked>                              Σ0 Δ-4     ↓
            <MI 24608  MOVEQ.L #0x00,D7>                                        {}
            <MI 2460a  MOVE.L  (A6+0x14),(A6-0x20)>                             {}
            <MI 2460e  MOVE.L  0x26832,D0>                                      {}
            <MI 24614  SUB.L   (A6+0x14),D0>                                    {}
            <MI 24618  MOVE.L  D0,(A6-0x14)>                                    {}
            <MI 2461a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 2461e  MOVE.L  (A6+0x10),D5>                                    {[4, '(A6+0xc)']}
        <POP 24622-24626 Naked>                              Σ-4        ↓ →0x24652 ←0x2464e
            <MI 24622  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 24624  BGT     0x24652>                                         {[-4-]}
        <POP 24626-2464c Naked>                              Σ-4        ↓ →0x2464e
            <POP 24626-24628 StackAdj>                       Δ-8                {[-12-]}
            <MI 24628  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <MI 2462c  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x2462e 0x22972>                                              {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 24632-24634 StackAdj>                       Δ+8                {[-12-]}
            <MI 24634  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-8-]}
            <MI 24636  MOVE.L  (A7),(A6-0xc)>                                   {[-8-]}
            <MI 24638  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 2463a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x2463c 0x2293a>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <POP 24640-24642 StackAdj>                       Δ+8                {[-8-]}
            <MI 24642  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 24644  ADD.L   D6,D7>                                           {[-4-]}
            <MI 24646  CMP.L   (A6+0xc),D5>                                     {[-4-]}
            <MI 2464a  BGE     0x2464e>                                         {[-4-]}
        <POP 2464c-2464e Naked>                              Σ-4        ↓
            <MI 2464c  ADDQ.L  #0x1,D7>                                         {[-4-]}
        <POP 2464e-24652 Naked>                              Σ-4        ↓ →0x24622 ←0x24626
            <MI 2464e  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 24650  BVC     0x24622>                                         {[-4-]}
        <POP 24652-24660 Naked>                              Σ-4 Δ+4    ↓ →0x2466c ←0x24622
            <POP 24652-24654 StackAdj>                       Δ+4                {}
            <MI 24654  MOVE.L  (A6-0x20),D0>                                    {}
            <MI 24656  ADD.L   (A6-0x14),D0>                                    {}
            <MI 24658  MOVE.L  D0,(A6-0x18)>                                    {}
            <MI 2465c  CMP.L   (A6-0x14),D7>                                    {}
            <MI 2465e  BEQ     0x2466c>                                         {}
        <POP 24660-2466c Naked>                              Σ0         ↓
            <MI 24660  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 24662  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[4, 'D0']|[4, '(A6-0x14)']}
            <MI 24664  SUB.L   D7,(A7)>                                         {[4, 'D0']|[-4-]}
            <Call 0x24666 0x2227c>                                              {[4, 'D0']|[-4-]}
            <POP 2466a-2466c StackAdj>                       Δ+8                {}
        <POP 2466c-24674 Naked>                              Σ0 Δ-4     ↓ ←0x24652
            <MI 2466c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 24670  MOVE.L  (A6+0x10),D5>                                    {[4, '(A6+0xc)']}
        <POP 24674-2467a Naked>                              Σ-4        ↓ →0x24700 ←0x246fa
            <MI 24674  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 24676  BGT     0x24700>                                         {[-4-]}
        <POP 2467a-2469c Naked>                              Σ-4 Δ-4    ↓
            <POP 2467a-2467c StackAdj>                       Δ-8                {[-12-]}
            <MI 2467c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <MI 24680  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x24682 0x22972>                                              {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 24686-24688 StackAdj>                       Δ+8                {[-12-]}
            <MI 24688  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-8-]}
            <MI 2468a  MOVE.L  (A7),(A6-0xc)>                                   {[-8-]}
            <MI 2468c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 2468e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x24690 0x2293a>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <POP 24694-24696 StackAdj>                       Δ+8                {[-8-]}
            <MI 24696  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 24698  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D6']}
            <MI 2469a  MOVEQ.L #0x01,D0>                                        {[-4-]|[4, 'D6']}
        <POP 2469c-246a0 Naked>                              Σ-8        ↓ →0x246d0 ←0x246a0
            <MI 2469c  CMP.L   (A7),D0>                                         {[-8-]}
            <MI 2469e  BGT     0x246d0>                                         {[-8-]}
        <POP 246a0-246d0 Naked>                              Σ-8        ↓ →0x2469c
            <MI 246a0  MOVE.L  (A6-0x20),D1>                                    {[-8-]}
            <MI 246a2  ADD.L   D0,D1>                                           {[-8-]}
            <MI 246a4  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <MI 246a6  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x246a8 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-8-]}
            <MI 246b2  LEA.L   0x2582a,A0>                                      {[-8-]}
            <POP 246b8-246ba StackAdj>                       Δ-2                {[-10-]}
            <MI 246ba  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0xc)']}
            <MI 246bc  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 246be  MOVE.L  D0,-(A7)>                     Δ-4                {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
            <Call 0x246c0 0x24526>                                              {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
            <POP 246c4-246c8 StackAdj>                       Δ+12               {[-10-]}
            <MI 246c8  MOVE.B  (A7)+,(A0+D1.L+#0x8)>         Δ+2                {[-8-]}
            <MI 246cc  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <MI 246ce  BVC     0x2469c>                                         {[-8-]}
        <POP 246d0-246d8 Naked>                              Σ-8 Δ+4    ↓ →0x246fa ←0x2469c
            <POP 246d0-246d2 StackAdj>                       Δ+4                {[-4-]}
            <MI 246d2  CMP.L   (A6+0xc),D5>                                     {[-4-]}
            <MI 246d6  BGE     0x246fa>                                         {[-4-]}
        <POP 246d8-246fa Naked>                              Σ-4        ↓
            <MI 246d8  MOVE.L  (A6-0x20),D0>                                    {[-4-]}
            <MI 246da  ADD.L   D6,D0>                                           {[-4-]}
            <MI 246dc  MOVE.L  D0,D1>                                           {[-4-]}
            <MI 246de  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x246e0 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-4-]}
            <MI 246ea  LEA.L   0x2582a,A0>                                      {[-4-]}
            <MI 246f0  MOVE.B  #0x2c,(A0+D1.L+#0x8)>                            {[-4-]}
            <MI 246f6  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 246f8  MOVE.L  D0,(A6-0x20)>                                    {[-4-]}
        <POP 246fa-24700 Naked>                              Σ-4        ↓ →0x24674 ←0x246d0
            <MI 246fa  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 246fc  BVC     0x24674>                                         {[-4-]}
        <POP 24700-24702 Naked>                              Σ-4 Δ+4    ↓ ←0x24674
            <POP 24700-24702 StackAdj>                       Δ+4                {}
        <POP 24702-2470a Epilogue>                           Σ0         

0x2470a


@ 2470a
        <LVAR  0x018 4(rw)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x018 4(w)>
    <POP 2470a-24800 Body>                                   Δ-12       
        <POP 2470a-24720 Prologue>                           Σ0         ↓
        <POP 24720-24736 RegCacheLoad>                       Σ0         ↓
        <POP 24736-24760 Naked>                              Σ0 Δ-4     ↓
            <POP 24736-24738 StackAdj>                       Δ-4                {[-4-]}
            <MI 24738  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 2473a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x2473c 0x2293a>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 24740-24742 StackAdj>                       Δ+8                {[-4-]}
            <MI 24742  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 24744  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 24748  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x2474c 0x2293a>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 24750-24752 StackAdj>                       Δ+8                {[-4-]}
            <MI 24752  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 24754  ADDQ.L  #0x1,(A6-0x8)>                                   {}
            <MI 24756  MOVE.L  (A6-0xc),D0>                                     {}
            <MI 24758  SUB.L   (A6-0x8),D0>                                     {}
            <MI 2475a  ADDQ.L  #0x1,D0>                                         {}
            <MI 2475c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2475e  MOVEQ.L #0x01,D0>                                        {[4, 'D0']}
        <POP 24760-24766 Naked>                              Σ-4        ↓ →0x247f2 ←0x247ea
            <MI 24760  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 24762  BGT     0x247f2>                                         {[-4-]}
        <POP 24766-24772 Naked>                              Σ-4 Δ-8    ↓
            <MI 24766  MOVE.L  D0,(A6-0x18)>                                    {[-4-]}
            <MI 2476a  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 2476c  MOVEQ.L #0x00,D6>                                        {[-4-]|[4, 'D0']}
            <MI 2476e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
            <MI 24770  MOVEQ.L #0x01,D5>                                        {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
        <POP 24772-24776 Naked>                              Σ-12       ↓ →0x247b8 ←0x247b2
            <MI 24772  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 24774  BGT     0x247b8>                                         {[-12-]}
        <POP 24776-2477e Naked>                              Σ-12       ↓ →0x24782
            <MI 24776  CMPI.L  #0x00000001,D5>                                  {[-12-]}
            <MI 2477c  BNE     0x24782>                                         {[-12-]}
        <POP 2477e-24782 Naked>                              Σ-12       →0x24796
            <MI 2477e  MOVEQ.L #0x2f,D7>                                        {[-12-]}
            <MI 24780  BRA     0x24796>                                         {[-12-]}
        <POP 24782-24796 Naked>                              Σ-12       ↓ ←0x24776
            <POP 24782-24784 StackAdj>                       Δ-2                {[-14-]}
            <MI 24784  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0xc)']}
            <MI 24788  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 2478c  MOVE.L  D5,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
            <MI 2478e  SUBQ.L  #0x1,(A7)>                                       {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
            <Call 0x24790 0x24526>                                              {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
            <POP 24792-24794 StackAdj>                       Δ+12               {[-14-]}
            <MI 24794  MOVE.B  (A7)+,D7>                     Δ+2                {[-12-]}
        <POP 24796-247ae Naked>                              Σ-12       ↓ →0x247b2 ←0x2477e
            <POP 24796-24798 StackAdj>                       Δ-2                {[-14-]}
            <MI 24798  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x14)']}
            <MI 2479a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 2479c  MOVE.L  (A7+0xe),D0>                                     {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 247a0  ADD.L   D5,D0>                                           {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 247a2  SUBQ.L  #0x1,D0>                                         {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 247a4  MOVE.L  D0,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <Call 0x247a6 0x24526>                                              {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <POP 247a8-247aa StackAdj>                       Δ+12               {[-14-]}
            <MI 247aa  CMP.B   (A7)+,D7>                     Δ+2                {[-12-]}
            <MI 247ac  BEQ     0x247b2>                                         {[-12-]}
        <POP 247ae-247b2 Naked>                              Σ-12 Δ+4   →0x247ba
            <POP 247ae-247b0 StackAdj>                       Δ+4                {[-8-]}
            <MI 247b0  BRA     0x247ba>                                         {[-8-]}
        <POP 247b2-247b8 Naked>                              Σ-12       ↓ →0x24772 ←0x24796
            <MI 247b2  MOVE.L  D5,D6>                                           {[-12-]}
            <MI 247b4  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 247b6  BVC     0x24772>                                         {[-12-]}
        <POP 247b8-247ba Naked>                              Σ-12 Δ+4   ↓ ←0x24772
            <POP 247b8-247ba StackAdj>                       Δ+4                {[-8-]}
        <POP 247ba-247be Naked>                              Σ-8        ↓ →0x247ea ←0x247ae
            <MI 247ba  CMP.L   (A6-0x8),D6>                                     {[-8-]}
            <MI 247bc  BNE     0x247ea>                                         {[-8-]}
        <POP 247be-247ca Naked>                              Σ-8        ↓ →0x247cc
            <MI 247be  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 247c0  MOVE.L  D0,(A6+0x18)>                                    {[-8-]}
            <MI 247c4  ADD.L   (A6-0x8),D0>                                     {[-8-]}
            <MI 247c6  CMP.L   (A6-0xc),D0>                                     {[-8-]}
            <MI 247c8  BLT     0x247cc>                                         {[-8-]}
        <POP 247ca-247cc Naked>                              Σ-8        →0x247e6
            <MI 247ca  BRA     0x247e6>                                         {[-8-]}
        <POP 247cc-247e0 Naked>                              Σ-8        ↓ →0x247e6 ←0x247be
            <POP 247cc-247ce StackAdj>                       Δ-2                {[-10-]}
            <MI 247ce  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']}
            <MI 247d0  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 247d2  MOVE.L  D0,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <Call 0x247d4 0x24526>                                              {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <POP 247d6-247d8 StackAdj>                       Δ+12               {[-10-]}
            <MI 247d8  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 247da  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 247de  BEQ     0x247e6>                                         {[-8-]}
        <POP 247e0-247e6 Naked>                              Σ-8        ↓ →0x247ea
            <MI 247e0  CMPI.B  #0x3d,D7>                                        {[-8-]}
            <MI 247e4  BNE     0x247ea>                                         {[-8-]}
        <POP 247e6-247ea Naked>                              Σ-8 Δ+8    →0x247f8 ←0x247ca ←0x247cc
            <POP 247e6-247e8 StackAdj>                       Δ+8                {}
            <MI 247e8  BRA     0x247f8>                                         {}
        <POP 247ea-247f2 Naked>                              Σ-8 Δ+4    ↓ →0x24760 ←0x247ba ←0x247e0
            <MI 247ea  MOVE.L  (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 247ec  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 247ee  BVC     0x24760>                                         {[-4-]}
        <POP 247f2-247f8 Naked>                              Σ-4 Δ+4    ↓ ←0x24760
            <POP 247f2-247f4 StackAdj>                       Δ+4                {}
            <MI 247f4  CLR.L   (A6+0x18)>                                       {}
        <POP 247f8-24800 Epilogue>                           Σ0         ←0x247e6

0x24800


@ 24800
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 24800-24894 Body>                                   Δ-4        
        <POP 24800-24816 Prologue>                           Σ0         ↓
        <POP 24816-24820 RegCacheLoad>                       Σ0         ↓
        <POP 24820-2483a Naked>                              Σ0         ↓ →0x2488c
            <POP 24820-24822 StackAdj>                       Δ-4                {[-4-]}
            <MI 24822  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 24824  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 24826  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 2482a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x2482e 0x2470a>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 24832-24836 StackAdj>                       Δ+16               {[-4-]}
            <MI 24836  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 24838  BLE     0x2488c>                                         {}
        <POP 2483a-2485a Naked>                              Σ0 Δ-4     ↓
            <MI 2483a  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x18)']}
            <Const 0x2483e 0x2f.2>                           Δ-2                {[4, '(A6+0x18)']|[#47]}
            <Call 0x24840 0x102c0>                                              {[4, '(A6+0x18)']|[#47]}
                AppendChar(MOD b : String; a : char)
            <POP 24846-24848 StackAdj>                       Δ+6                {}
            <MI 24848  MOVE.L  D5,D0>                                           {}
            <MI 2484a  ADDQ.L  #0x1,D0>                                         {}
            <POP 2484c-2484e StackAdj>                       Δ-4                {[-4-]}
            <MI 2484e  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 24850  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x24852 0x2293a>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 24856-24858 StackAdj>                       Δ+8                {[-4-]}
            <MI 24858  MOVE.L  D0,D6>                                           {[-4-]}
        <POP 2485a-2485e Naked>                              Σ-4        ↓ →0x2488a ←0x24878
            <MI 2485a  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 2485c  BGT     0x2488a>                                         {[-4-]}
        <POP 2485e-24874 Naked>                              Σ-4        ↓ →0x24878
            <POP 2485e-24860 StackAdj>                       Δ-2                {[-6-]}
            <MI 24860  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']}
            <MI 24862  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 24864  MOVE.L  D6,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <Call 0x24866 0x24526>                                              {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <POP 2486a-2486e StackAdj>                       Δ+12               {[-6-]}
            <MI 2486e  MOVE.B  (A7)+,D7>                     Δ+2                {[-4-]}
            <MI 24870  CMP.B   #0x2f,D7>                                        {[-4-]}
            <MI 24872  BNE     0x24878>                                         {[-4-]}
        <POP 24874-24878 Naked>                              Σ-4 Δ+4    →0x2488c
            <POP 24874-24876 StackAdj>                       Δ+4                {}
            <MI 24876  BRA     0x2488c>                                         {}
        <POP 24878-2488a Naked>                              Σ-4        ↓ →0x2485a ←0x2485e
            <MI 24878  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x18)']}
            <MI 2487c  MOVE.B  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
            <Call 0x2487e 0x102c0>                                              {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 24884-24886 StackAdj>                       Δ+6                {[-4-]}
            <MI 24886  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 24888  BVC     0x2485a>                                         {[-4-]}
        <POP 2488a-2488c Naked>                              Σ-4 Δ+4    ↓ ←0x2485a
            <POP 2488a-2488c StackAdj>                       Δ+4                {}
        <POP 2488c-24894 Epilogue>                           Σ0         ←0x24820 ←0x24874

0x24894


@ 24894
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 24894-2494a Body>                                   Δ-8        
        <POP 24894-248aa Prologue>                           Σ0         ↓
        <POP 248aa-248b8 RegCacheLoad>                       Σ0         ↓
        <POP 248b8-248d4 Naked>                              Σ0         ↓ →0x24942
            <POP 248b8-248ba StackAdj>                       Δ-4                {[-4-]}
            <MI 248ba  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 248bc  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 248be  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 248c2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x248c6 0x2470a>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 248ca-248ce StackAdj>                       Δ+16               {[-4-]}
            <MI 248ce  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <MI 248d2  BLE     0x24942>                                         {}
        <POP 248d4-248e8 Naked>                              Σ0 Δ-4     ↓
            <POP 248d4-248d6 StackAdj>                       Δ-4                {[-4-]}
            <MI 248d6  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 248d8  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x248da 0x2293a>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 248de-248e0 StackAdj>                       Δ+8                {[-4-]}
            <MI 248e0  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 248e2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 248e4  MOVE.L  (A6-0x14),D5>                                    {[4, '(A6-0x6)']}
        <POP 248e8-248ec Naked>                              Σ-4        ↓ →0x24940 ←0x2493c
            <MI 248e8  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 248ea  BGT     0x24940>                                         {[-4-]}
        <POP 248ec-24902 Naked>                              Σ-4        ↓ →0x2493c
            <POP 248ec-248ee StackAdj>                       Δ-2                {[-6-]}
            <MI 248ee  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']}
            <MI 248f0  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 248f2  MOVE.L  D5,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
            <Call 0x248f4 0x24526>                                              {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
            <POP 248f8-248fa StackAdj>                       Δ+12               {[-6-]}
            <MI 248fa  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 248fc  CMPI.B  #0x3d,D0>                                        {[-4-]}
            <MI 24900  BNE     0x2493c>                                         {[-4-]}
        <POP 24902-2490a Naked>                              Σ-4 Δ-4    ↓
            <MI 24902  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 24904  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 24906  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <MI 24908  MOVE.L  D0,D6>                                           {[-4-]|[4, '(A6-0x6)']}
        <POP 2490a-2490e Naked>                              Σ-8        ↓ →0x2493a ←0x24928
            <MI 2490a  CMP.L   (A7),D6>                                         {[-8-]}
            <MI 2490c  BGT     0x2493a>                                         {[-8-]}
        <POP 2490e-24924 Naked>                              Σ-8        ↓ →0x24928
            <POP 2490e-24910 StackAdj>                       Δ-2                {[-10-]}
            <MI 24910  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']}
            <MI 24912  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 24914  MOVE.L  D6,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <Call 0x24916 0x24526>                                              {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <POP 2491a-2491c StackAdj>                       Δ+12               {[-10-]}
            <MI 2491c  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 2491e  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 24922  BNE     0x24928>                                         {[-8-]}
        <POP 24924-24928 Naked>                              Σ-8 Δ+8    →0x24942
            <POP 24924-24926 StackAdj>                       Δ+8                {}
            <MI 24926  BRA     0x24942>                                         {}
        <POP 24928-2493a Naked>                              Σ-8        ↓ →0x2490a ←0x2490e
            <MI 24928  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']}
            <MI 2492c  MOVE.B  D7,-(A7)>                     Δ-2                {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
            <Call 0x2492e 0x102c0>                                              {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 24934-24936 StackAdj>                       Δ+6                {[-8-]}
            <MI 24936  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 24938  BVC     0x2490a>                                         {[-8-]}
        <POP 2493a-2493c Naked>                              Σ-8 Δ+4    ↓ ←0x2490a
            <POP 2493a-2493c StackAdj>                       Δ+4                {[-4-]}
        <POP 2493c-24940 Naked>                              Σ-4        ↓ →0x248e8 ←0x248ec
            <MI 2493c  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 2493e  BVC     0x248e8>                                         {[-4-]}
        <POP 24940-24942 Naked>                              Σ-4 Δ+4    ↓ ←0x248e8
            <POP 24940-24942 StackAdj>                       Δ+4                {}
        <POP 24942-2494a Epilogue>                           Σ0         ←0x248b8 ←0x24924

0x2494a


@ 2494a
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2494a-249d0 Body>                                   Δ-4        
        <POP 2494a-24960 Prologue>                           Σ0         ↓
        <POP 24960-2496a RegCacheLoad>                       Σ0         ↓
        <POP 2496a-2497c Naked>                              Σ0 Δ-4     ↓
            <POP 2496a-2496c StackAdj>                       Δ-4                {[-4-]}
            <MI 2496c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 2496e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x24970 0x2293a>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 24974-24976 StackAdj>                       Δ+8                {[-4-]}
            <MI 24976  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 24978  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <MI 2497a  MOVEQ.L #0x01,D6>                                        {[4, 'D5']}
        <POP 2497c-24980 Naked>                              Σ-4        ↓ →0x249c6 ←0x249c2
            <MI 2497c  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 2497e  BGT     0x249c6>                                         {[-4-]}
        <POP 24980-24996 Naked>                              Σ-4        ↓ →0x249c2
            <POP 24980-24982 StackAdj>                       Δ-2                {[-6-]}
            <MI 24982  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']}
            <MI 24984  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 24986  MOVE.L  D6,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x24988 0x24526>                                              {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 2498c-2498e StackAdj>                       Δ+12               {[-6-]}
            <MI 2498e  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 24990  CMPI.B  #0x2f,D0>                                        {[-4-]}
            <MI 24994  BNE     0x249c2>                                         {[-4-]}
        <POP 24996-2499a Naked>                              Σ-4 Δ-4    ↓
            <MI 24996  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 24998  MOVE.L  D6,D7>                                           {[-4-]|[4, 'D5']}
        <POP 2499a-2499e Naked>                              Σ-8        ↓ →0x249bc ←0x2499e
            <MI 2499a  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 2499c  BGT     0x249bc>                                         {[-8-]}
        <POP 2499e-249bc Naked>                              Σ-8        ↓ →0x2499a
            <MI 2499e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']}
            <POP 249a2-249a4 StackAdj>                       Δ-2                {[-8-]|[4, '(A6+0x10)']|[-2-]}
            <MI 249a4  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
            <MI 249a6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 249a8  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x249aa 0x24526>                                              {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 249ae-249b0 StackAdj>                       Δ+12               {[-8-]|[4, '(A6+0x10)']|[-2-]}
            <Call 0x249b0 0x102c0>                                              {[-8-]|[4, '(A6+0x10)']|[-2-]}
                AppendChar(MOD b : String; a : char)
            <POP 249b6-249b8 StackAdj>                       Δ+6                {[-8-]}
            <MI 249b8  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 249ba  BVC     0x2499a>                                         {[-8-]}
        <POP 249bc-249c2 Naked>                              Σ-8 Δ+8    →0x249c8 ←0x2499a
            <POP 249bc-249be StackAdj>                       Δ+4                {[-4-]}
            <POP 249be-249c0 StackAdj>                       Δ+4                {}
            <MI 249c0  BRA     0x249c8>                                         {}
        <POP 249c2-249c6 Naked>                              Σ-4        ↓ →0x2497c ←0x24980
            <MI 249c2  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 249c4  BVC     0x2497c>                                         {[-4-]}
        <POP 249c6-249c8 Naked>                              Σ-4 Δ+4    ↓ ←0x2497c
            <POP 249c6-249c8 StackAdj>                       Δ+4                {}
        <POP 249c8-249d0 Epilogue>                           Σ0         ←0x249bc

0x249d0


@ 249d0
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 249d0-24a40 Body>                                   Δ-4        
        <POP 249d0-249e6 Prologue>                           Σ0         ↓
        <POP 249e6-249fe Naked>                              Σ0 Δ-4     ↓
            <MI 249e6  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 249ea  CLR.W   (A0)>                                            {}
            <POP 249ec-249ee StackAdj>                       Δ-4                {[-4-]}
            <MI 249ee  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 249f2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x249f6 0x2293a>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 249fa-249fc StackAdj>                       Δ+8                {[-4-]}
            <MI 249fc  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 249fe-24a02 Naked>                              Σ-4        ↓ →0x24a36 ←0x24a32
            <MI 249fe  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 24a00  BGT     0x24a36>                                         {[-4-]}
        <POP 24a02-24a1e Naked>                              Σ-4        ↓ →0x24a2e
            <POP 24a02-24a04 StackAdj>                       Δ-2                {[-6-]}
            <MI 24a04  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']}
            <MI 24a08  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 24a0c  MOVE.L  D7,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x24a0e 0x24526>                                              {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 24a12-24a16 StackAdj>                       Δ+12               {[-6-]}
            <MI 24a16  MOVE.B  (A7)+,D6>                     Δ+2                {[-4-]}
            <MI 24a18  CMPI.B  #0x2f,D6>                                        {[-4-]}
            <MI 24a1c  BEQ     0x24a2e>                                         {[-4-]}
        <POP 24a1e-24a2e Naked>                              Σ-4        →0x24a32
            <MI 24a1e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <MI 24a22  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
            <Call 0x24a24 0x102c0>                                              {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 24a2a-24a2c StackAdj>                       Δ+6                {[-4-]}
            <MI 24a2c  BRA     0x24a32>                                         {[-4-]}
        <POP 24a2e-24a32 Naked>                              Σ-4 Δ+4    →0x24a38 ←0x24a02
            <POP 24a2e-24a30 StackAdj>                       Δ+4                {}
            <MI 24a30  BRA     0x24a38>                                         {}
        <POP 24a32-24a36 Naked>                              Σ-4        ↓ →0x249fe ←0x24a1e
            <MI 24a32  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 24a34  BVC     0x249fe>                                         {[-4-]}
        <POP 24a36-24a38 Naked>                              Σ-4 Δ+4    ↓ ←0x249fe
            <POP 24a36-24a38 StackAdj>                       Δ+4                {}
        <POP 24a38-24a40 Epilogue>                           Σ0         ←0x24a2e

0x24a40


@ 24a40
    <POP 24a40-24a88 Body>                                              
        <POP 24a40-24a56 Prologue>                           Σ0         ↓
        <POP 24a56-24a80 Naked>                              Σ0         ↓
            <Blob 0x24a56 [34] @>                            Δ-34               {[«34""»]}
            <POP 24a62-24a64 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x24a64 34>                                                    {[«34""»]|[$$Switch exclusion is unimplemented.]}
            <Call 0x24a78 0x21d28>                                              {[«34""»]|[$$Switch exclusion is unimplemented.]}
            <POP 24a7c-24a80 StackAdj>                       Δ+38               {}
        <POP 24a80-24a88 Epilogue>                           Σ0         

0x24a88


@ 24a88
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
    <POP 24a88-24bc2 Body>                                              
        <POP 24a88-24a9e Prologue>                           Σ0         ↓
        <POP 24a9e-24ab4 RegCacheLoad>                       Σ0         ↓
        <POP 24ab4-24ac2 Naked>                              Σ0         ↓ →0x24aca
            <MI 24ab4  MOVE.L  0x26832,(A6-0x6)>                                {}
            <POP 24ab8-24aba StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24aba 0x21dc4>                                              {[-2-]}
            <MI 24abc  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 24abe  CMP.B   #0x25,D7>                                        {}
            <MI 24ac0  BNE     0x24aca>                                         {}
        <POP 24ac2-24aca Naked>                              Σ0         →0x24baa
            <MI 24ac2  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24ac4  CLR.L   (A0)>                                            {}
            <MI 24ac6  BRA     0x24baa>                                         {}
        <POP 24aca-24ace Naked>                              Σ0         ↓ →0x24ada ←0x24ab4
            <MI 24aca  CMP.B   #0x2d,D7>                                        {}
            <MI 24acc  BNE     0x24ada>                                         {}
        <POP 24ace-24ada Naked>                              Σ0         →0x24baa
            <MI 24ace  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24ad0  MOVE.L  #0x1,(A0)>                                       {}
            <MI 24ad6  BRA     0x24baa>                                         {}
        <POP 24ada-24ae0 Naked>                              Σ0         ↓ →0x24aec ←0x24aca
            <MI 24ada  CMPI.B  #0x2f,D7>                                        {}
            <MI 24ade  BNE     0x24aec>                                         {}
        <POP 24ae0-24aec Naked>                              Σ0         →0x24baa
            <MI 24ae0  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24ae2  MOVE.L  #0x4,(A0)>                                       {}
            <MI 24ae8  BRA     0x24baa>                                         {}
        <POP 24aec-24af2 Naked>                              Σ0         ↓ →0x24afe ←0x24ada
            <MI 24aec  CMPI.B  #0x3d,D7>                                        {}
            <MI 24af0  BNE     0x24afe>                                         {}
        <POP 24af2-24afe Naked>                              Σ0         →0x24baa
            <MI 24af2  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24af4  MOVE.L  #0x5,(A0)>                                       {}
            <MI 24afa  BRA     0x24baa>                                         {}
        <POP 24afe-24b04 Naked>                              Σ0         ↓ →0x24b10 ←0x24aec
            <MI 24afe  CMPI.B  #0x5c,D7>                                        {}
            <MI 24b02  BNE     0x24b10>                                         {}
        <POP 24b04-24b10 Naked>                              Σ0         →0x24baa
            <MI 24b04  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24b06  MOVE.L  #0x6,(A0)>                                       {}
            <MI 24b0c  BRA     0x24baa>                                         {}
        <POP 24b10-24b14 Naked>                              Σ0         ↓ →0x24b40 ←0x24afe
            <MI 24b10  TST.B   D7>                                              {}
            <MI 24b12  BNE     0x24b40>                                         {}
        <POP 24b14-24b40 Naked>                              Σ0         →0x24baa
            <Blob 0x24b14 [24] @>                            Δ-24               {[«24""»]}
            <POP 24b20-24b22 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x24b22 24>                                                    {[«24""»]|[$$Illegal argument marker.]}
            <Call 0x24b36 0x21d28>                                              {[«24""»]|[$$Illegal argument marker.]}
            <POP 24b3a-24b3e StackAdj>                       Δ+28               {}
            <MI 24b3e  BRA     0x24baa>                                         {}
        <POP 24b40-24b44 Naked>                              Σ0         ↓ →0x24b70 ←0x24b10
            <MI 24b40  CMP.B   #0x30,D7>                                        {}
            <MI 24b42  BCS     0x24b70>                                         {}
        <POP 24b44-24b48 Naked>                              Σ0         ↓ →0x24b70
            <MI 24b44  CMP.B   #0x39,D7>                                        {}
            <MI 24b46  BHI     0x24b70>                                         {}
        <POP 24b48-24b50 Naked>                              Σ0         ↓
            <MI 24b48  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24b4a  MOVE.L  #0x2,(A0)>                                       {}
        <POP 24b50-24b5c Naked>                              Σ0         ↓ →0x24b66 ←0x24b6a
            <POP 24b50-24b52 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24b52 0x21d86>                                              {[-2-]}
            <MI 24b56  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 24b58  CMP.B   #0x30,D7>                                        {}
            <MI 24b5a  BCS     0x24b66>                                         {}
        <POP 24b5c-24b60 Naked>                              Σ0         ↓ →0x24b66
            <MI 24b5c  CMP.B   #0x39,D7>                                        {}
            <MI 24b5e  BHI     0x24b66>                                         {}
        <POP 24b60-24b66 Naked>                              Σ0         ↓
            <POP 24b60-24b62 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24b62 0x21dc4>                                              {[-2-]}
            <MI 24b64  MOVE.B  (A7)+,D6>                     Δ+2                {}
        <POP 24b66-24b6a Naked>                              Σ0         ↓ →0x24b6e ←0x24b50 ←0x24b5c
            <MI 24b66  CMP.B   #0x30,D7>                                        {}
            <MI 24b68  BCS     0x24b6e>                                         {}
        <POP 24b6a-24b6e Naked>                              Σ0         ↓ →0x24b50
            <MI 24b6a  CMP.B   #0x39,D7>                                        {}
            <MI 24b6c  BLS     0x24b50>                                         {}
        <POP 24b6e-24b70 Naked>                              Σ0         →0x24baa ←0x24b66
            <MI 24b6e  BRA     0x24baa>                                         {}
        <POP 24b70-24b7a Naked>                              Σ0         ↓ ←0x24b40 ←0x24b44
            <MI 24b70  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24b72  MOVE.L  #0x3,(A0)>                                       {}
            <MI 24b78  MOVEQ.L #0x00,D5>                                        {}
        <POP 24b7a-24b86 Naked>                              Σ0         ↓ →0x24b9c ←0x24ba6
            <POP 24b7a-24b7c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24b7c 0x21d86>                                              {[-2-]}
            <MI 24b80  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 24b82  CMP.B   #0x25,D7>                                        {}
            <MI 24b84  BEQ     0x24b9c>                                         {}
        <POP 24b86-24b8a Naked>                              Σ0         ↓ →0x24b9c
            <MI 24b86  CMP.B   #0x2d,D7>                                        {}
            <MI 24b88  BEQ     0x24b9c>                                         {}
        <POP 24b8a-24b90 Naked>                              Σ0         ↓ →0x24b9c
            <MI 24b8a  CMPI.B  #0x2f,D7>                                        {}
            <MI 24b8e  BEQ     0x24b9c>                                         {}
        <POP 24b90-24b96 Naked>                              Σ0         ↓ →0x24b9c
            <MI 24b90  CMPI.B  #0x3d,D7>                                        {}
            <MI 24b94  BEQ     0x24b9c>                                         {}
        <POP 24b96-24b9c Naked>                              Σ0         ↓ →0x24ba0
            <MI 24b96  CMPI.B  #0x5c,D7>                                        {}
            <MI 24b9a  BNE     0x24ba0>                                         {}
        <POP 24b9c-24ba0 Naked>                              Σ0         →0x24ba6 ←0x24b7a ←0x24b86 ←0x24b8a ←0x24b90
            <MI 24b9c  MOVEQ.L #0x01,D5>                                        {}
            <MI 24b9e  BRA     0x24ba6>                                         {}
        <POP 24ba0-24ba6 Naked>                              Σ0         ↓ ←0x24b96
            <POP 24ba0-24ba2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24ba2 0x21dc4>                                              {[-2-]}
            <MI 24ba4  MOVE.B  (A7)+,D6>                     Δ+2                {}
        <POP 24ba6-24baa Naked>                              Σ0         ↓ →0x24b7a ←0x24b9c
            <MI 24ba6  TST.B   D5>                                              {}
            <MI 24ba8  BEQ     0x24b7a>                                         {}
        <POP 24baa-24bba Naked>                              Σ0         ↓ ←0x24ac2 ←0x24ace ←0x24ae0 ←0x24af2 ←0x24b04 ←0x24b14 ←0x24b6e
            <MI 24baa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24bae  MOVE.L  (A6-0x6),(A0)>                                   {}
            <MI 24bb2  MOVE.L  0x26832,(A0+0x4)>                                {}
            <MI 24bb6  SUBQ.L  #0x1,(A0+0x4)>                                   {}
        <POP 24bba-24bc2 Epilogue>                           Σ0         

0x24bc2


@ 24bc2
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 24bc2-24c48 Body>                                              
        <POP 24bc2-24bd8 Prologue>                           Σ0         ↓
        <POP 24bd8-24bdc RegCacheLoad>                       Σ0         ↓
        <POP 24bdc-24bf6 Naked>                              Σ0 Δ-4     ↓ →0x24c02
            <MI 24bdc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24be0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 24be2  MOVE.L  0x26832,D6>                                      {[4, 'A0']}
            <MI 24be8  SUB.L   (A6+0xc),D6>                                     {[4, 'A0']}
            <MI 24bea  MOVE.L  (A6+0xc),D5>                                     {[4, 'A0']}
            <MI 24bec  ADD.L   D6,D5>                                           {[4, 'A0']}
            <MI 24bee  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 24bf0  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 24bf2  CMP.L   D6,D0>                                           {[4, 'A0']}
            <MI 24bf4  BEQ     0x24c02>                                         {[4, 'A0']}
        <POP 24bf6-24c02 Naked>                              Σ-4        ↓
            <MI 24bf6  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 24bf8  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']|[4, 'D6']}
            <MI 24bfa  SUB.L   D0,(A7)>                                         {[-4-]|[4, 'D5']|[-4-]}
            <Call 0x24bfc 0x2227c>                                              {[-4-]|[4, 'D5']|[-4-]}
            <POP 24c00-24c02 StackAdj>                       Δ+8                {[-4-]}
        <POP 24c02-24c06 Naked>                              Σ-4 Δ-4    ↓ ←0x24bdc
            <MI 24c02  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 24c04  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D0']}
        <POP 24c06-24c0a Naked>                              Σ-8        ↓ →0x24c3e ←0x24c0a
            <MI 24c06  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 24c08  BGT     0x24c3e>                                         {[-8-]}
        <POP 24c0a-24c3e Naked>                              Σ-8        ↓ →0x24c06
            <MI 24c0a  MOVE.L  (A6+0xc),D0>                                     {[-8-]}
            <MI 24c0c  ADD.L   D7,D0>                                           {[-8-]}
            <MI 24c0e  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 24c10  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x24c12 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 24c1c  LEA.L   0x2582a,A0>                                      {[-8-]}
            <MI 24c22  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 24c24  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x24c26 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 24c30  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 24c34  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 24c3a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 24c3c  BVC     0x24c06>                                         {[-8-]}
        <POP 24c3e-24c40 Naked>                              Σ-8 Δ+8    ↓ ←0x24c06
            <POP 24c3e-24c40 StackAdj>                       Δ+8                {}
        <POP 24c40-24c48 Epilogue>                           Σ0         

0x24c48


@ 24c48
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 4(r)>
        <LVAR -0x014 @ 4(r)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x020 4(rw)>
        <LVAR -0x024 4(rw)>
        <LVAR -0x028 4(rw)>
        <LVAR -0x034 4(rw)>
    <POP 24c48-24e90 Body>                                   Δ+56       
        <POP 24c48-24c5e Prologue>                           Σ0         ↓
        <POP 24c5e-24c70 RegCacheLoad>                       Σ0         ↓
        <POP 24c70-24c94 Naked>                              Σ0         ↓
            <MI 24c70  MOVE.L  0x26832,(A6-0x28)>                               {}
            <Pointer.fp 0x24c78 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x24c7a 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <POP 24c80-24c82 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x24c82 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x24c86 <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-12]|[@@-20]}
            <Call 0x24c88 0x24a88>                                              {[@@-12]|[@@-20]}
            <POP 24c8c-24c8e StackAdj>                       Δ+8                {}
            <MI 24c8e  CLR.L   (A6-0x34)>                                       {}
            <MI 24c92  MOVEQ.L #0x00,D7>                                        {}
        <POP 24c94-24ca8 Naked>                              Σ0         →0x24cd2 →0x24cdc →0x24cf0 →0x24d0c →0x24d10 →0x24d1e →0x24d32 →0x24d38 →0x24d3a →0x24d50 →0x24d5e →0x24d76 →0x24d8a →0x24d9e →0x24db4 →0x24db6 →0x24dd0 →0x24de6 →0x24df4 →0x24df6 →0x24df8 ←0x24e6c
            <MI 24c94  MOVE.L  (A6-0x34),D0>                                    {}
            <POP 0x24c98 LimitCheck 0x0 ≤ D0 ≤ 0x14>                            {}
            <MI 24c9e  ADD.W   D0,D0>                                           {}
            <MI 24ca0  SWITCH  D0.W>                                            {}
        <POP 24cd2-24cdc Naked>                              Σ0         →0x24e22 ←0x24c94
            <MI 24cd2  MOVEQ.L #0x00,D6>                                        {}
            <MI 24cd4  MOVE.L  (A6+0x8),D5>                                     {}
            <MI 24cd8  BRA     0x24e22>                                         {}
        <POP 24cdc-24cf0 Naked>                              Σ0         →0x24e22 ←0x24c94
            <POP 24cdc-24cde StackAdj>                       Δ-4                {[-4-]}
            <MI 24cde  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <MI 24ce2  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x24ce4 0x24566>                                              {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <POP 24ce8-24cea StackAdj>                       Δ+8                {[-4-]}
            <MI 24cea  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 24cec  BRA     0x24e22>                                         {}
        <POP 24cf0-24cf8 Naked>                              Σ0 Δ-12    ↓ ←0x24c94
            <MI 24cf0  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 24cf4  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']}
            <MI 24cf6  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
        <POP 24cf8-24d08 Naked>                              Σ-12 Δ+12  →0x24e7e ←0x24d10
            <MI 24cf8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <Call 0x24cfc 0x245e2>                                              {[-12-]|[4, '(A6+0xc)']}
            <POP 24d00-24d04 StackAdj>                       Δ+16               {}
            <MI 24d04  BRA     0x24e7e>                                         {}
        <POP 24d0c-24d10 Naked>                              Σ0         →0x24e22 ←0x24c94
            <MI 24d0c  BRA     0x24e22>                                         {}
        <POP 24d10-24d1a Naked>                              Σ0 Δ-12    →0x24cf8 ←0x24c94
            <MI 24d10  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 24d14  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']}
            <MI 24d16  MOVE.L  D5,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
            <MI 24d18  BRA     0x24cf8>                                         {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
        <POP 24d1e-24d32 Naked>                              Σ0         →0x24e22 ←0x24c94 ←0x24d38
            <POP 24d1e-24d20 StackAdj>                       Δ-4                {[-4-]}
            <MI 24d20  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <MI 24d24  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x24d26 0x24566>                                              {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <POP 24d2a-24d2c StackAdj>                       Δ+8                {[-4-]}
            <MI 24d2c  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 24d2e  BRA     0x24e22>                                         {}
        <POP 24d32-24d38 Naked>                              Σ0         →0x24e22 ←0x24c94
            <MI 24d32  MOVEQ.L #0x01,D6>                                        {}
            <MI 24d34  BRA     0x24e22>                                         {}
        <POP 24d38-24d3a Naked>                              Σ0         →0x24d1e ←0x24c94
            <MI 24d38  BRA     0x24d1e>                                         {}
        <POP 24d3a-24d50 Naked>                              Σ0         →0x24e22 ←0x24c94
            <POP 24d3a-24d3c StackAdj>                       Δ-8                {[-8-]}
            <MI 24d3c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xc)']}
            <MI 24d40  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x24d42 0x22972>                                              {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 24d46-24d48 StackAdj>                       Δ+8                {[-8-]}
            <MI 24d48  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-4-]}
            <MI 24d4a  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {}
            <MI 24d4c  BRA     0x24e22>                                         {}
        <POP 24d50-24d5e Naked>                              Σ0         →0x24e22 ←0x24c94
            <MI 24d50  MOVE.L  (A6-0x14),(A6-0x1c)>                             {}
            <MI 24d54  MOVE.L  (A6-0x10),(A6-0x18)>                             {}
            <MI 24d5a  BRA     0x24e22>                                         {}
        <POP 24d5e-24d70 Naked>                              Σ0 Δ-20    ↓ ←0x24c94
            <MI 24d5e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24d60  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24d62  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 24d64  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 24d68  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24d6c 0x24894>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
        <POP 24d70-24d76 Naked>                              Σ-20 Δ+20  →0x24e22 ←0x24d76
            <POP 24d70-24d72 StackAdj>                       Δ+20               {}
            <MI 24d72  BRA     0x24e22>                                         {}
        <POP 24d76-24d8a Naked>                              Σ0 Δ-20    →0x24d70 ←0x24c94
            <MI 24d76  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24d78  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24d7a  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 24d7c  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 24d80  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24d84 0x24800>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 24d88  BRA     0x24d70>                                         {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
        <POP 24d8a-24d94 Naked>                              Σ0 Δ-12    ↓ ←0x24c94
            <MI 24d8a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24d8c  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24d8e  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x24d90 0x2494a>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
        <POP 24d94-24d98 Naked>                              Σ-12 Δ+12  ↓ ←0x24dd0
            <POP 24d94-24d98 StackAdj>                       Δ+12               {}
        <POP 24d98-24d9e Naked>                              Σ0         →0x24e22 ←0x24d9e ←0x24db4 ←0x24df6
            <MI 24d98  MOVEQ.L #0x01,D7>                                        {}
            <MI 24d9a  BRA     0x24e22>                                         {}
        <POP 24d9e-24db4 Naked>                              Σ0         →0x24d98 ←0x24c94
            <MI 24d9e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24da0  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24da2  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 24da4  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 24da8  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24dac 0x24800>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 24db0-24db2 StackAdj>                       Δ+20               {}
            <MI 24db2  BRA     0x24d98>                                         {}
        <POP 24db4-24db6 Naked>                              Σ0         →0x24d98 ←0x24c94
            <MI 24db4  BRA     0x24d98>                                         {}
        <POP 24db6-24dca Naked>                              Σ0 Δ-12    ↓ ←0x24c94
            <MI 24db6  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <POP 24db8-24dba StackAdj>                       Δ-8                {[4, '(A6-0x8)']|[-8-]}
            <MI 24dba  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
            <MI 24dbe  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x24dc0 0x22972>                                              {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 24dc4-24dc6 StackAdj>                       Δ+8                {[4, '(A6-0x8)']|[-8-]}
            <Call 0x24dc6 0x2494a>                                              {[4, '(A6-0x8)']|[-8-]}
        <POP 24dca-24dd0 Naked>                              Σ-12 Δ+12  →0x24e22 ←0x24de6
            <POP 24dca-24dce StackAdj>                       Δ+12               {}
            <MI 24dce  BRA     0x24e22>                                         {}
        <POP 24dd0-24de6 Naked>                              Σ0 Δ-12    →0x24d94 ←0x24c94
            <MI 24dd0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <POP 24dd2-24dd4 StackAdj>                       Δ-8                {[4, '(A6-0x8)']|[-8-]}
            <MI 24dd4  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
            <MI 24dd8  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x24dda 0x22972>                                              {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 24dde-24de0 StackAdj>                       Δ+8                {[4, '(A6-0x8)']|[-8-]}
            <Call 0x24de0 0x249d0>                                              {[4, '(A6-0x8)']|[-8-]}
            <MI 24de4  BRA     0x24d94>                                         {[4, '(A6-0x8)']|[-8-]}
        <POP 24de6-24df4 Naked>                              Σ0 Δ-12    →0x24dca ←0x24c94
            <MI 24de6  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24de8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
            <MI 24dec  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x24dee 0x24a40>                                              {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <MI 24df2  BRA     0x24dca>                                         {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
        <POP 24df4-24df6 Naked>                              Σ0         →0x24e22 ←0x24c94
            <MI 24df4  BRA     0x24e22>                                         {}
        <POP 24df6-24df8 Naked>                              Σ0         →0x24d98 ←0x24c94
            <MI 24df6  BRA     0x24d98>                                         {}
        <POP 24df8-24e22 Naked>                              Σ0         ↓ ←0x24c94
            <Blob 0x24df8 [24] @>                            Δ-24               {[«24""»]}
            <POP 24e04-24e06 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x24e06 24>                                                    {[«24""»]|[$$Illegal argument marker.]}
            <Call 0x24e1a 0x21d28>                                              {[«24""»]|[$$Illegal argument marker.]}
            <POP 24e1e-24e22 StackAdj>                       Δ+28               {}
        <POP 24e22-24e26 Naked>                              Σ0         ↓ →0x24e6c ←0x24cd2 ←0x24cdc ←0x24d0c ←0x24d1e ←0x24d32 ←0x24d3a ←0x24d50 ←0x24d70 ←0x24d98 ←0x24dca ←0x24df4
            <MI 24e22  TST.B   D7>                                              {}
            <MI 24e24  BNE     0x24e6c>                                         {}
        <POP 24e26-24e6c Naked>                              Σ0         ↓
            <Pointer.fp 0x24e26 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x24e2a <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-12]|[@@-20]}
            <Call 0x24e2c 0x24a88>                                              {[@@-12]|[@@-20]}
            <POP 24e30-24e32 StackAdj>                       Δ+8                {}
            <MI 24e32  MOVE.L  (A6-0x34),D0>                                    {}
            <POP 0x24e36 LimitCheck 0x0 ≤ D0 ≤ 0x13>                            {}
            <MI 24e40  MOVE.L  D0,D4>                                           {}
            <MI 24e42  MOVEQ.L #0x07,D3>                                        {}
            <Call 0x24e44 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 24e4a  LEA.L   0x21c5a,A0>                                      {}
            <MI 24e4e  MOVE.L  (A6-0xc),D0>                                     {}
            <POP 0x24e52 LimitCheck 0x0 ≤ D0 ≤ 0x6>                             {}
            <MI 24e5c  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 24e60  MOVE.B  (A0+D0.L),D1>                                    {}
            <MI 24e64  EXTB.W  D1>                                              {}
            <MI 24e66  EXTW.L  D1>                                              {}
            <MI 24e68  MOVE.L  D1,(A6-0x34)>                                    {}
        <POP 24e6c-24e72 Naked>                              Σ0         ↓ →0x24c94 ←0x24e22
            <MI 24e6c  TST.B   D7>                                              {}
            <MI 24e6e  BEQ     0x24c94>                                         {}
        <POP 24e72-24e7e Naked>                              Σ0         ↓
            <MI 24e72  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 24e76  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
            <Call 0x24e78 0x24bc2>                                              {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
            <POP 24e7c-24e7e StackAdj>                       Δ+8                {}
        <POP 24e7e-24e88 Naked>                              Σ0         ↓ ←0x24cf8
            <Pointer.fp 0x24e7e <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x24e80 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 24e86-24e88 StackAdj>                       Δ+4                {}
        <POP 24e88-24e90 Epilogue>                           Σ0         

0x24e90


@ 24e90
        <LVAR  0x014 4(rw)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x018 4(w)>
    <POP 24e90-24f88 Body>                                   Δ-12       
        <POP 24e90-24ea6 Prologue>                           Σ0         ↓
        <POP 24ea6-24eb8 RegCacheLoad>                       Σ0         ↓
        <POP 24eb8-24ee0 Naked>                              Σ0 Δ-4     ↓
            <MI 24eb8  CLR.L   (A6+0x14)>                                       {}
            <POP 24ebc-24ebe StackAdj>                       Δ-4                {[-4-]}
            <MI 24ebe  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <MI 24ec0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Call 0x24ec2 0x2293a>                                              {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <POP 24ec6-24ec8 StackAdj>                       Δ+8                {[-4-]}
            <MI 24ec8  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 24eca  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24ece  MOVE.W  (A0),D0>                                         {}
            <MI 24ed0  EXTW.L  D0>                                              {}
            <MI 24ed2  ADDQ.L  #0x1,D0>                                         {}
            <MI 24ed4  MOVE.L  D0,(A6-0x8)>                                     {}
            <MI 24ed6  NEG.L   D0>                                              {}
            <MI 24ed8  ADD.L   (A6-0xc),D0>                                     {}
            <MI 24eda  ADDQ.L  #0x1,D0>                                         {}
            <MI 24edc  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 24ede  MOVEQ.L #0x01,D0>                                        {[4, 'D0']}
        <POP 24ee0-24ee6 Naked>                              Σ-4        ↓ →0x24f7e ←0x24f76
            <MI 24ee0  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 24ee2  BGT     0x24f7e>                                         {[-4-]}
        <POP 24ee6-24ef2 Naked>                              Σ-4 Δ-8    ↓
            <MI 24ee6  MOVE.L  D0,(A6-0x18)>                                    {[-4-]}
            <MI 24eea  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 24eec  MOVEQ.L #0x00,D6>                                        {[-4-]|[4, 'D0']}
            <MI 24eee  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
            <MI 24ef0  MOVEQ.L #0x01,D5>                                        {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
        <POP 24ef2-24ef6 Naked>                              Σ-12       ↓ →0x24f3e ←0x24f38
            <MI 24ef2  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 24ef4  BGT     0x24f3e>                                         {[-12-]}
        <POP 24ef6-24efe Naked>                              Σ-12       ↓ →0x24f02
            <MI 24ef6  CMPI.L  #0x00000001,D5>                                  {[-12-]}
            <MI 24efc  BNE     0x24f02>                                         {[-12-]}
        <POP 24efe-24f02 Naked>                              Σ-12       →0x24f1a
            <MI 24efe  MOVEQ.L #0x2f,D7>                                        {[-12-]}
            <MI 24f00  BRA     0x24f1a>                                         {[-12-]}
        <POP 24f02-24f1a Naked>                              Σ-12       ↓ ←0x24ef6
            <MI 24f02  MOVEA.L (A6+0x8),A0>                                     {[-12-]}
            <MI 24f06  MOVE.L  D5,D0>                                           {[-12-]}
            <MI 24f08  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <MI 24f0a  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x24f0c LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-12-]}
            <MI 24f16  MOVE.B  (A0+D0.L+#0x2),D7>                               {[-12-]}
        <POP 24f1a-24f34 Naked>                              Σ-12       ↓ →0x24f38 ←0x24efe
            <POP 24f1a-24f1c StackAdj>                       Δ-2                {[-14-]}
            <MI 24f1c  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x10)']}
            <MI 24f1e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24f20  MOVE.L  (A7+0xe),D0>                                     {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24f24  ADD.L   D5,D0>                                           {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24f26  SUBQ.L  #0x1,D0>                                         {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24f28  MOVE.L  D0,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
            <Call 0x24f2a 0x24526>                                              {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
            <POP 24f2e-24f30 StackAdj>                       Δ+12               {[-14-]}
            <MI 24f30  CMP.B   (A7)+,D7>                     Δ+2                {[-12-]}
            <MI 24f32  BEQ     0x24f38>                                         {[-12-]}
        <POP 24f34-24f38 Naked>                              Σ-12 Δ+4   →0x24f40
            <POP 24f34-24f36 StackAdj>                       Δ+4                {[-8-]}
            <MI 24f36  BRA     0x24f40>                                         {[-8-]}
        <POP 24f38-24f3e Naked>                              Σ-12       ↓ →0x24ef2 ←0x24f1a
            <MI 24f38  MOVE.L  D5,D6>                                           {[-12-]}
            <MI 24f3a  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 24f3c  BVC     0x24ef2>                                         {[-12-]}
        <POP 24f3e-24f40 Naked>                              Σ-12 Δ+4   ↓ ←0x24ef2
            <POP 24f3e-24f40 StackAdj>                       Δ+4                {[-8-]}
        <POP 24f40-24f44 Naked>                              Σ-8        ↓ →0x24f76 ←0x24f34
            <MI 24f40  CMP.L   (A6-0x8),D6>                                     {[-8-]}
            <MI 24f42  BNE     0x24f76>                                         {[-8-]}
        <POP 24f44-24f4e Naked>                              Σ-8        ↓ →0x24f74
            <MI 24f44  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 24f46  MOVE.L  D0,D1>                                           {[-8-]}
            <MI 24f48  ADD.L   (A6-0x8),D1>                                     {[-8-]}
            <MI 24f4a  CMP.L   (A6-0xc),D1>                                     {[-8-]}
            <MI 24f4c  BGE     0x24f74>                                         {[-8-]}
        <POP 24f4e-24f64 Naked>                              Σ-8        ↓ →0x24f6a
            <POP 24f4e-24f50 StackAdj>                       Δ-2                {[-10-]}
            <MI 24f50  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x10)']}
            <MI 24f52  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24f54  MOVE.L  D1,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
            <Call 0x24f56 0x24526>                                              {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
            <POP 24f5a-24f5c StackAdj>                       Δ+12               {[-10-]}
            <MI 24f5c  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 24f5e  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 24f62  BEQ     0x24f6a>                                         {[-8-]}
        <POP 24f64-24f6a Naked>                              Σ-8        ↓ →0x24f72
            <MI 24f64  CMPI.B  #0x3d,D7>                                        {[-8-]}
            <MI 24f68  BNE     0x24f72>                                         {[-8-]}
        <POP 24f6a-24f72 Naked>                              Σ-8 Δ+8    →0x24f80 ←0x24f4e ←0x24f74
            <MI 24f6a  MOVE.L  D0,(A6+0x14)>                                    {[-8-]}
            <POP 24f6e-24f70 StackAdj>                       Δ+8                {}
            <MI 24f70  BRA     0x24f80>                                         {}
        <POP 24f72-24f74 Naked>                              Σ-8        →0x24f76 ←0x24f64
            <MI 24f72  BRA     0x24f76>                                         {[-8-]}
        <POP 24f74-24f76 Naked>                              Σ-8        →0x24f6a ←0x24f44
            <MI 24f74  BRA     0x24f6a>                                         {[-8-]}
        <POP 24f76-24f7e Naked>                              Σ-8 Δ+4    ↓ →0x24ee0 ←0x24f40 ←0x24f72
            <MI 24f76  MOVE.L  (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 24f78  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 24f7a  BVC     0x24ee0>                                         {[-4-]}
        <POP 24f7e-24f80 Naked>                              Σ-4 Δ+4    ↓ ←0x24ee0
            <POP 24f7e-24f80 StackAdj>                       Δ+4                {}
        <POP 24f80-24f88 Epilogue>                           Σ0         ←0x24f6a

0x24f88


@ 24f88
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
    <POP 24f88-25070 Body>                                   Δ-12       
        <POP 24f88-24f9e Prologue>                           Σ0         ↓
        <POP 24f9e-24fae RegCacheLoad>                       Σ0         ↓
        <POP 24fae-24fd4 Naked>                              Σ0         ↓ →0x25068
            <MI 24fae  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24fb2  CLR.B   (A0)>                                            {}
            <MI 24fb4  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 24fb8  MOVE.L  #0x01,(A1)>                                      {}
            <POP 24fba-24fbc StackAdj>                       Δ-8                {[-8-]}
            <MI 24fbc  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']}
            <MI 24fc0  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
            <Call 0x24fc4 0x22972>                                              {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
            <POP 24fc8-24fca StackAdj>                       Δ+8                {[-8-]}
            <MI 24fca  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[-4-]}
            <MI 24fcc  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {}
            <MI 24fce  TST.L   (A6-0x1c)>                                       {}
            <MI 24fd0  BEQ     0x25068>                                         {}
        <POP 24fd4-24fea Naked>                              Σ0         ↓ →0x25068
            <POP 24fd4-24fd6 StackAdj>                       Δ-4                {[-4-]}
            <MI 24fd6  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']}
            <MI 24fd8  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 24fda  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
            <Call 0x24fde 0x24e90>                                              {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
            <POP 24fe2-24fe4 StackAdj>                       Δ+12               {[-4-]}
            <MI 24fe4  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <MI 24fe8  BEQ     0x25068>                                         {}
        <POP 24fea-2500a Naked>                              Σ0 Δ-4     ↓
            <MI 24fea  MOVE.B  #0x01,(A0)>                                      {}
            <MI 24fec  PEA.L   (A1)>                         Δ-4                {[4, '^(A1)']}
            <Call 0x24fee 0x102b8>                                              {[4, '^(A1)']}
                NewString(VAR a : String)
            <MI 24ff4  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '^(A1)']|[4, '(A6-0x18)']}
            <MI 24ff6  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24ff8 0x2293a>                                              {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 24ffc-24ffe StackAdj>                       Δ+8                {[4, '^(A1)']}
            <MI 24ffe  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 25000  MOVE.L  (A6-0x14),D0>                                    {}
            <MI 25004  ADDQ.L  #0x1,D0>                                         {}
            <MI 25006  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 25008  MOVE.L  D0,D5>                                           {[4, '(A6-0x8)']}
        <POP 2500a-2500e Naked>                              Σ-4        ↓ →0x25066 ←0x25062
            <MI 2500a  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 2500c  BGT     0x25066>                                         {[-4-]}
        <POP 2500e-25024 Naked>                              Σ-4        ↓ →0x25062
            <POP 2500e-25010 StackAdj>                       Δ-2                {[-6-]}
            <MI 25010  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x18)']}
            <MI 25012  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 25014  MOVE.L  D5,-(A7)>                     Δ-4                {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
            <Call 0x25016 0x24526>                                              {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
            <POP 2501a-2501c StackAdj>                       Δ+12               {[-6-]}
            <MI 2501c  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 2501e  CMPI.B  #0x3d,D0>                                        {[-4-]}
            <MI 25022  BNE     0x25062>                                         {[-4-]}
        <POP 25024-2502c Naked>                              Σ-4 Δ-4    ↓
            <MI 25024  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 25026  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 25028  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <MI 2502a  MOVE.L  D0,D7>                                           {[-4-]|[4, '(A6-0x8)']}
        <POP 2502c-25030 Naked>                              Σ-8        ↓ →0x2505e ←0x2504a
            <MI 2502c  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 2502e  BGT     0x2505e>                                         {[-8-]}
        <POP 25030-25046 Naked>                              Σ-8        ↓ →0x2504a
            <POP 25030-25032 StackAdj>                       Δ-2                {[-10-]}
            <MI 25032  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x18)']}
            <MI 25034  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 25036  MOVE.L  D7,-(A7)>                     Δ-4                {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
            <Call 0x25038 0x24526>                                              {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
            <POP 2503c-2503e StackAdj>                       Δ+12               {[-10-]}
            <MI 2503e  MOVE.B  (A7)+,D6>                     Δ+2                {[-8-]}
            <MI 25040  CMPI.B  #0x2f,D6>                                        {[-8-]}
            <MI 25044  BNE     0x2504a>                                         {[-8-]}
        <POP 25046-2504a Naked>                              Σ-8 Δ+8    →0x25068
            <POP 25046-25048 StackAdj>                       Δ+8                {}
            <MI 25048  BRA     0x25068>                                         {}
        <POP 2504a-2505e Naked>                              Σ-8        ↓ →0x2502c ←0x25030
            <MI 2504a  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 2504e  MOVE.L  (A0),-(A7)>                   Δ-4                {[-8-]|[4, '(A0)']}
            <MI 25050  MOVE.B  D6,-(A7)>                     Δ-2                {[-8-]|[4, '(A0)']|[2, 'D6']}
            <Call 0x25052 0x102c0>                                              {[-8-]|[4, '(A0)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 25058-2505a StackAdj>                       Δ+6                {[-8-]}
            <MI 2505a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 2505c  BVC     0x2502c>                                         {[-8-]}
        <POP 2505e-25062 Naked>                              Σ-8 Δ+8    →0x25068 ←0x2502c
            <POP 2505e-25060 StackAdj>                       Δ+8                {}
            <MI 25060  BRA     0x25068>                                         {}
        <POP 25062-25066 Naked>                              Σ-4        ↓ →0x2500a ←0x2500e
            <MI 25062  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 25064  BVC     0x2500a>                                         {[-4-]}
        <POP 25066-25068 Naked>                              Σ-4 Δ+4    ↓ ←0x2500a
            <POP 25066-25068 StackAdj>                       Δ+4                {}
        <POP 25068-25070 Epilogue>                           Σ0         ←0x24fae ←0x24fd4 ←0x25046 ←0x2505e

0x25070


@ 25070
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @ 1(r)>
    <POP 25070-2510e Body>                                              
        <POP 25070-25086 Prologue>                           Σ0         ↓
        <POP 25086-25094 RegCacheLoad>                       Σ0         ↓
        <POP 25094-250ac Naked>                              Σ0         ↓ →0x250fc
            <MI 25094  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 25096  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Pointer.fp 0x25098 <LVAR -0x010 @ 1(r)>>        Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
            <Call 0x2509c 0x21578>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
            <POP 250a2-250a6 StackAdj>                       Δ+12               {}
            <MI 250a6  TST.B   (A6-0x10)>                                       {}
            <MI 250aa  BNE     0x250fc>                                         {}
        <POP 250ac-250c6 Naked>                              Σ0         ↓
            <MI 250ac  MOVE.L  0x26832,D7>                                      {}
            <POP 250ae-250b0 StackAdj>                       Δ-4                {[-4-]}
            <MI 250b0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x250b2 0x22134>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 250b6-250b8 StackAdj>                       Δ+4                {[-4-]}
            <MI 250b8  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 250ba  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 250bc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x250be 0x243ea>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 250c2-250c4 StackAdj>                       Δ+8                {}
            <MI 250c4  MOVE.L  0x26832,D5>                                      {}
        <POP 250c6-250e4 Naked>                              Σ0         ↓ →0x250f0 ←0x250f0
            <MI 250c6  MOVE.L  D7,D0>                                           {}
            <MI 250c8  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x250ca LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 250d4  LEA.L   0x2582a,A0>                                      {}
            <MI 250da  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 250de  CMPI.B  #0x25,D0>                                        {}
            <MI 250e2  BNE     0x250f0>                                         {}
        <POP 250e4-250f0 Naked>                              Σ0         ↓
            <MI 250e4  MOVE.L  D7,0x26832>                                      {}
            <MI 250e6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 250e8  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x250ea 0x24c48>                                              {[4, '(A6+0x8)']|[4, 'D6']}
            <POP 250ee-250f0 StackAdj>                       Δ+8                {}
        <POP 250f0-250fa Naked>                              Σ0         ↓ →0x250c6 ←0x250c6
            <MI 250f0  ADDQ.L  #0x1,D7>                                         {}
            <MI 250f2  CMP.L   0x26836,D7>                                      {}
            <MI 250f8  BLE     0x250c6>                                         {}
        <POP 250fa-250fc Naked>                              Σ0         ↓
            <MI 250fa  MOVE.L  D5,0x26832>                                      {}
        <POP 250fc-25106 Naked>                              Σ0         ↓ ←0x25094
            <Pointer.fp 0x250fc <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x250fe 0x102bc>                                              {[@@12]}
                FreeString(VAR a : String)
            <POP 25104-25106 StackAdj>                       Δ+4                {}
        <POP 25106-2510e Epilogue>                           Σ0         

0x2510e


@ 2510e
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00b 1(w)>
        <LVAR -0x00c @ 1(r)>
    <POP 2510e-25420 Body>                                   Δ+148      
        <POP 2510e-25124 Prologue>                           Σ0         ↓
        <POP 25124-25132 RegCacheLoad>                       Σ0         ↓
        <POP 25132-25158 Naked>                              Σ0         ↓ →0x25402 ←0x25402
            <MI 25132  MOVE.L  0x26832,D7>                                      {}
            <Pointer.fp 0x25134 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Pointer.fp 0x25136 <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-6]|[@@-12]}
            <Call 0x2513a 0x22088>                                              {[@@-6]|[@@-12]}
            <POP 2513e-25140 StackAdj>                       Δ+8                {}
            <MI 25140  MOVE.L  0x26832,D6>                                      {}
            <POP 25142-25144 StackAdj>                       Δ-4                {[-4-]}
            <MI 25144  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Call 0x25146 0x22134>                                              {[-4-]|[4, '(A6-0x6)']}
            <POP 2514a-2514c StackAdj>                       Δ+4                {[-4-]}
            <MI 2514c  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 2514e  CMPI.L  #0xffffffff,D0>                                  {}
            <MI 25154  BEQ     0x25402>                                         {}
        <POP 25158-25182 Naked>                              Σ0         ↓ →0x25190
            <POP 25158-2515a StackAdj>                       Δ-4                {[-4-]}
            <MI 2515a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Const 0x2515c 0x0.4>                            Δ-4                {[-4-]|[4, '(A6-0x6)']|[##0]}
            <Call 0x25160 0x22a50>                                              {[-4-]|[4, '(A6-0x6)']|[##0]}
            <POP 25164-25166 StackAdj>                       Δ+8                {[-4-]}
            <MI 25166  MOVE.L  (A7),(A6-0xa)>                                   {[-4-]}
            <POP 25168-2516a StackAdj>                       Δ+2                {[-2-]}
            <MI 2516a  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']}
            <Call 0x2516c 0x24332>                                              {[-2-]|[4, '(A6-0xa)']}
            <POP 25170-25172 StackAdj>                       Δ+4                {[-2-]}
            <MI 25172  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 25174  EXTB.W  D0>                                              {}
            <POP 0x25176 LimitCheck 0x0 ≤ D0 ≤ 0x2b>                            {}
            <MI 2517a  MOVE.B  D0,(A6-0xb)>                                     {}
            <MI 2517e  TST.B   D0>                                              {}
            <MI 25180  BNE     0x25190>                                         {}
        <POP 25182-25190 Naked>                              Σ0         →0x253fa
            <MI 25182  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <MI 25184  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <Call 0x25186 0x25070>                                              {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <POP 2518a-2518c StackAdj>                       Δ+8                {}
            <MI 2518c  BRA     0x253fa>                                         {}
        <POP 25190-251c6 Naked>                              Σ0         ↓ →0x251f2 ←0x25158
            <Pointer.fp 0x25190 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x25192 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 25198-2519a StackAdj>                       Δ+4                {}
            <MI 2519a  MOVE.B  D0,D1>                                           {}
            <MI 2519c  EXTB.W  D1>                                              {}
            <POP 0x2519e LimitCheck 0x0 ≤ D1 ≤ 0x2b>                            {}
            <MI 251a2  LEA.L   0x21c2a,A0>                                      {}
            <MI 251a6  MOVE.W  D1,D0>                                           {}
            <MI 251a8  EXTW.L  D0>                                              {}
            <MI 251aa  MOVE.L  D0,D2>                                           {}
            <MI 251ac  ROR.L   #0x1,D2>                                         {}
            <MI 251ae  ADDA.W  D2,A0>                                           {}
            <MI 251b0  SWAP.W  D2>                                              {}
            <MI 251b2  ROL.W   #0x3,D2>                                         {}
            <MI 251b4  CLR.L   D3>                                              {}
            <MI 251b6  MOVE.B  (A0),D3>                                         {}
            <MI 251b8  LSL.B   D2,D3>                                           {}
            <MI 251ba  LSR.B   #0x4,D3>                                         {}
            <MI 251bc  MOVE.L  D3,D5>                                           {}
            <MI 251be  CMPI.L  #0x0000000f,D5>                                  {}
            <MI 251c4  BEQ     0x251f2>                                         {}
        <POP 251c6-251f2 Naked>                              Σ0         ↓
            <MI 251c6  MOVE.L  D0,D4>                                           {}
            <MI 251c8  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x251ca 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 251d0  LEA.L   0x21a5c,A0>                                      {}
            <Blob 0x251d4 [10] (A0+D4.W)>                    Δ-10               {[«10»]}
            <MI 251e6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«10»]|[4, '(A6-0x6)']}
            <MI 251e8  MOVE.L  D5,-(A7)>                     Δ-4                {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
            <Call 0x251ea 0x2216a>                                              {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
            <POP 251ee-251f2 StackAdj>                       Δ+18               {}
        <POP 251f2-25206 Naked>                              Σ0         →0x2525c →0x25268 →0x2527a →0x25288 →0x253ec →0x25290 →0x25294 →0x2529c →0x252a4 →0x252ac →0x252b4 →0x252bc →0x252c4 →0x252cc →0x252d4 →0x252dc →0x252e6 →0x252f0 →0x252fa →0x25304 →0x2530e →0x25318 →0x25322 →0x2532c →0x25336 →0x25340 →0x2534a →0x25354 →0x2535e →0x25368 →0x25372 →0x2537c →0x25386 →0x25390 →0x2539a →0x253a4 →0x253ae →0x253b8 →0x253be →0x253c8 →0x253d2 →0x253dc →0x253e2 ←0x25190
            <MI 251f2  SUBQ.W  #0x1,D1>                                         {}
            <POP 0x251f4 LimitCheck 0x0 ≤ D1 ≤ 0x2a>                            {}
            <MI 251fc  ADD.W   D1,D1>                                           {}
            <MI 251fe  SWITCH  D1.W>                                            {}
        <POP 2525c-25262 Naked>                              Σ0 Δ-4     ↓ ←0x251f2
            <MI 2525c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2525e 0x22bd8>                                              {[4, '(A6-0x6)']}
        <POP 25262-25268 Naked>                              Σ-4 Δ+4    →0x253fa ←0x2527a ←0x25288 ←0x25294 ←0x2529c ←0x252a4 ←0x252ac ←0x252b4 ←0x252bc ←0x252c4 ←0x252cc ←0x252d4 ←0x252dc ←0x252e6 ←0x252f0 ←0x252fa ←0x25304 ←0x2530e ←0x25318 ←0x25322 ←0x2532c ←0x25336 ←0x25340 ←0x2534a ←0x25354 ←0x2535e ←0x25368 ←0x25372 ←0x2537c ←0x25386 ←0x25390 ←0x2539a ←0x253a4 ←0x253ae ←0x253be ←0x253c8 ←0x253d2 ←0x253e2
            <POP 25262-25264 StackAdj>                       Δ+4                {}
            <MI 25264  BRA     0x253fa>                                         {}
        <POP 25268-2527a Naked>                              Σ0         →0x253fa ←0x251f2
            <MI 25268  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2526a 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x2526e 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 25274-25276 StackAdj>                       Δ+6                {}
            <MI 25276  BRA     0x253fa>                                         {}
        <POP 2527a-25288 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <POP 2527a-2527c StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2527c 0x102ac>                                              {[-4-]}
                FSCALL_102ac
            <Call 0x25282 0x22bae>                                              {[-4-]}
            <MI 25286  BRA     0x25262>                                         {[-4-]}
        <POP 25288-25290 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25288  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2528a 0x22db2>                                              {[4, '(A6-0x6)']}
            <MI 2528e  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25290-25294 Naked>                              Σ0         →0x253fa ←0x251f2
            <MI 25290  BRA     0x253fa>                                         {}
        <POP 25294-2529c Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25294  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25296 0x230d8>                                              {[4, '(A6-0x6)']}
            <MI 2529a  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 2529c-252a4 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 2529c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2529e 0x23244>                                              {[4, '(A6-0x6)']}
            <MI 252a2  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252a4-252ac Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252a4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252a6 0x23332>                                              {[4, '(A6-0x6)']}
            <MI 252aa  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252ac-252b4 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252ac  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252ae 0x23726>                                              {[4, '(A6-0x6)']}
            <MI 252b2  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252b4-252bc Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252b4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252b6 0x2379e>                                              {[4, '(A6-0x6)']}
            <MI 252ba  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252bc-252c4 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252bc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252be 0x23816>                                              {[4, '(A6-0x6)']}
            <MI 252c2  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252c4-252cc Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252c4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252c6 0x23842>                                              {[4, '(A6-0x6)']}
            <MI 252ca  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252cc-252d4 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252cc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252ce 0x23942>                                              {[4, '(A6-0x6)']}
            <MI 252d2  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252d4-252dc Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252d4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252d6 0x23a28>                                              {[4, '(A6-0x6)']}
            <MI 252da  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252dc-252e6 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252dc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252de 0x23a54>                                              {[4, '(A6-0x6)']}
            <MI 252e2  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252e6-252f0 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252e6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252e8 0x23aa0>                                              {[4, '(A6-0x6)']}
            <MI 252ec  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252f0-252fa Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252f0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252f2 0x23aec>                                              {[4, '(A6-0x6)']}
            <MI 252f6  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 252fa-25304 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 252fa  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x252fc 0x23b38>                                              {[4, '(A6-0x6)']}
            <MI 25300  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25304-2530e Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25304  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25306 0x23b84>                                              {[4, '(A6-0x6)']}
            <MI 2530a  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 2530e-25318 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 2530e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25310 0x23bd0>                                              {[4, '(A6-0x6)']}
            <MI 25314  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25318-25322 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25318  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2531a 0x23c1c>                                              {[4, '(A6-0x6)']}
            <MI 2531e  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25322-2532c Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25322  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25324 0x23c66>                                              {[4, '(A6-0x6)']}
            <MI 25328  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 2532c-25336 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 2532c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2532e 0x23cb0>                                              {[4, '(A6-0x6)']}
            <MI 25332  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25336-25340 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25336  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25338 0x23cfa>                                              {[4, '(A6-0x6)']}
            <MI 2533c  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25340-2534a Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25340  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25342 0x23d44>                                              {[4, '(A6-0x6)']}
            <MI 25346  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 2534a-25354 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 2534a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2534c 0x23d8e>                                              {[4, '(A6-0x6)']}
            <MI 25350  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25354-2535e Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25354  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25356 0x23dd8>                                              {[4, '(A6-0x6)']}
            <MI 2535a  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 2535e-25368 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 2535e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25360 0x23e22>                                              {[4, '(A6-0x6)']}
            <MI 25364  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25368-25372 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25368  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2536a 0x23e6c>                                              {[4, '(A6-0x6)']}
            <MI 2536e  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25372-2537c Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25372  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25374 0x23eb0>                                              {[4, '(A6-0x6)']}
            <MI 25378  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 2537c-25386 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 2537c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2537e 0x23ef6>                                              {[4, '(A6-0x6)']}
            <MI 25382  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25386-25390 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25386  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25388 0x23f2c>                                              {[4, '(A6-0x6)']}
            <MI 2538c  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 25390-2539a Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 25390  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25392 0x23fbc>                                              {[4, '(A6-0x6)']}
            <MI 25396  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 2539a-253a4 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 2539a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2539c 0x2402e>                                              {[4, '(A6-0x6)']}
            <MI 253a0  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 253a4-253ae Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 253a4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x253a6 0x23394>                                              {[4, '(A6-0x6)']}
            <MI 253aa  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 253ae-253b8 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 253ae  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x253b0 0x233fe>                                              {[4, '(A6-0x6)']}
            <MI 253b4  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 253b8-253be Naked>                              Σ0         →0x253fa ←0x251f2
            <Call 0x253b8 0x233d0>                                              {}
            <MI 253bc  BRA     0x253fa>                                         {}
        <POP 253be-253c8 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 253be  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x253c0 0x240a0>                                              {[4, '(A6-0x6)']}
            <MI 253c4  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 253c8-253d2 Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 253c8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x253ca 0x24122>                                              {[4, '(A6-0x6)']}
            <MI 253ce  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 253d2-253dc Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 253d2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x253d4 0x241a2>                                              {[4, '(A6-0x6)']}
            <MI 253d8  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 253dc-253e2 Naked>                              Σ0         →0x253fa ←0x251f2
            <Call 0x253dc 0x24266>                                              {}
            <MI 253e0  BRA     0x253fa>                                         {}
        <POP 253e2-253ec Naked>                              Σ0 Δ-4     →0x25262 ←0x251f2
            <MI 253e2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x253e4 0x24286>                                              {[4, '(A6-0x6)']}
            <MI 253e8  BRA     0x25262>                                         {[4, '(A6-0x6)']}
        <POP 253ec-253fa Naked>                              Σ0         ←0x251f2
            <POP 253ec-253fa Bailout>                                           {}
                <MI 253ec  MOVEA.L (A5+0x8),A7>                         
                <MI 253f0  MOVEA.W #0x0,A6>                             
                <MI 253f4  JMP     0x25604>                             
        <POP 253fa-25402 Naked>                              Σ0         ↓ ←0x25182 ←0x25262 ←0x25268 ←0x25290 ←0x253b8 ←0x253dc
            <MI 253fa  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x253fc 0x21ce6>                                              {[4, '(A6-0x6)']}
            <POP 25400-25402 StackAdj>                       Δ+4                {}
        <POP 25402-25418 Naked>                              Σ0         ↓ →0x25132 ←0x25132
            <MI 25402  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 25404  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']|[4, 'D6']}
            <MI 25406  SUB.L   D7,(A7)>                                         {[4, 'D6']|[-4-]}
            <Call 0x25408 0x2227c>                                              {[4, 'D6']|[-4-]}
            <POP 2540c-2540e StackAdj>                       Δ+8                {}
            <MI 2540e  MOVE.L  D7,0x26832>                                      {}
            <MI 25410  TST.B   (A6-0xc)>                                        {}
            <MI 25414  BEQ     0x25132>                                         {}
        <POP 25418-25420 Epilogue>                           Σ0         

0x25420


@ 25420
START
    <POP 25420--0001 Body>                                              
        <POP 25420-2542a Prologue>                           Σ0         
        <POP 2542a-2545a Naked>                              Σ0         ↓ →0x254c2
            <MI 2542a  MOVE.L  #0x1,0x2685c>                                    {}
            <POP 25434-25436 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x25436 0x103c4>                                              {[-4-]}
                GetArgv() : String
            <MI 2543c  MOVE.L  (A7)+,0x26860>                Δ+4                {}
            <Const 0x25442 0x2683a.4>                        Δ-4                {[##157754]}
            <Call 0x25448 0x21628>                                              {[##157754]}
            <POP 2544e-25450 StackAdj>                       Δ+4                {}
            <MI 25450  MOVEA.L 0x26860,A0>                                      {}
            <MI 25456  TST.W   (A0)>                                            {}
            <MI 25458  BLE     0x254c2>                                         {}
        <POP 2545a-254c2 Naked>                              Σ0         →0x254fc
            <Blob 0x2545a [8] @>                             Δ-8                {[«8""»]}
            <Blob 0x2546a [8] @>                             Δ-8                {[«8""»]|[«8""»]}
            <POP 2547a-2547c StackAdj>                       Δ-8                {[«8""»]|[«8""»]|[-8-]}
            <Lit 0x2547c 7>                                                     {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
            <POP 2548e-25490 StackAdj>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
            <POP 25490-25491 StackAdj>                       Δ+4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
            <Blob 0x25491 [4] 0x26860>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
            <POP 25496-25498 StackAdj>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
            <Lit 0x25498 7>                                                     {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
            <Call 0x254ac 0x102d4>                                              {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
                StringCat3(a, b, c : String) : String
            <POP 254b2-254b6 StackAdj>                       Δ+12               {[«8""»]|[«8""»]|[-4-]}
            <MI 254b6  MOVE.L  (A7)+,0x26860>                Δ+4                {[«8""»]|[«8""»]}
            <POP 254bc-254c0 StackAdj>                       Δ+16               {}
            <MI 254c0  BRA     0x254fc>                                         {}
        <POP 254c2-254fc Naked>                              Σ0         ↓ ←0x2542a
            <Const 0x254c2 0x26860.4>                        Δ-4                {[##157792]}
            <Call 0x254c8 0x102bc>                                              {[##157792]}
                FreeString(VAR a : String)
            <POP 254ce-254cf StackAdj>                       Δ+4        ↓       {}
            <Blob 0x254cf [8] @>                             Δ-8                {[«8""»]}
            <POP 254de-254e0 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x254e0 7>                                                     {[«8""»]|[$$[INIT];]}
            <MI 254f4  MOVE.L  (A7)+,0x26860>                Δ+4                {[«8""»]}
            <POP 254fa-254fc StackAdj>                       Δ+8                {}
        <POP 254fc-25504 Naked>                              Σ0         ↓ ←0x2545a
            <MI 254fc  MOVE.B  #0x01,0x2686a>                                   {}
        <POP 25504-2550c Naked>                              Σ0         ↓ →0x25516 ←0x25612
            <MI 25504  TST.B   0x2686a>                                         {}
            <MI 2550a  BEQ     0x25516>                                         {}
        <POP 2550c-25516 Naked>                              Σ0         →0x255c4
            <MI 2550c  CLR.B   0x2686a>                                         {}
            <MI 25512  BRA     0x255c4>                                         {}
        <POP 25516-255c4 Naked>                              Σ0         ↓ ←0x25504
            <Blob 0x25516 [10] 0x26844>                      Δ-10               {[«10»]}
            <Blob 0x25524 [2] @>                             Δ-2                {[«10»]|[«2""»]}
            <POP 25528-2552c StackAdj>                       Δ-12               {[«10»]|[«2""»]|[-12-]}
            <Lit 0x2552c>                                                       {[«10»]|[«2""»]|[-8-]|[$$…]}
                <Pointer.sp 0x2552c 14>                      Δ-4        
                <Const 0x25530 0x1.2>                        Δ-2        
                <Const 0x25534 0xa.2>                        Δ-2        
                <Call 0x25538 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2553e-25540 StackAdj>                   Δ+8        
            <POP 2553e-25540 StackAdj>                       Δ-4                {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
            <Lit 0x25540 2>                                                     {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
            <Call 0x25554 0x102d0>                                              {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
                StringCat2(a, b : String) : String
            <POP 2555a-2555c StackAdj>                       Δ+8                {[«10»]|[«2""»]|[-8-]}
            <Call 0x2555c 0x103e4>                                              {[«10»]|[«2""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 25562-25564 StackAdj>                       Δ+4                {[«10»]|[«2""»]|[-4-]}
            <MI 25564  MOVE.L  (A7)+,0x26866>                Δ+4                {[«10»]|[«2""»]}
            <POP 2556a-2556c StackAdj>                       Δ+8                {[-4-]}
            <POP 2556c-2556d StackAdj>                       Δ+4                {}
            <Blob 0x2556d [4] 0x26866>                       Δ-4                {[«4»]}
            <Call 0x25572 0x21f80>                                              {[«4»]}
            <POP 25576-25578 StackAdj>                       Δ+2                {[-2-]}
            <POP 25578-25579 StackAdj>                       Δ+2                {}
            <Blob 0x25579 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2557c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <POP 25580-25582 StackAdj>                       Δ-8                {[«2""»]|[«2""»]|[-8-]}
            <Lit 0x25582 2>                                                     {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
            <POP 25594-25596 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
            <POP 25596-25597 StackAdj>                       Δ+4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
            <Blob 0x25597 [4] 0x26866>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
            <POP 2559c-2559e StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
            <Lit 0x2559e 2>                                                     {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
            <Call 0x255b2 0x102d4>                                              {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
                StringCat3(a, b, c : String) : String
            <POP 255b8-255bc StackAdj>                       Δ+12               {[«2""»]|[«2""»]|[-4-]}
            <MI 255bc  MOVE.L  (A7)+,0x26860>                Δ+4                {[«2""»]|[«2""»]}
            <POP 255c2-255c4 StackAdj>                       Δ+4                {}
        <POP 255c4-255f0 Naked>                              Σ0         ↓ ←0x2550c
            <MI 255c4  CLR.B   0x26864>                                         {}
            <MI 255ca  MOVE.L  #0x1,0x26832>                                    {}
            <MI 255d4  CLR.L   0x26836>                                         {}
            <POP 255da-255dc StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x255dc [4] 0x26860>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x255e2 0x102cc>                                              {[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 255e8-255ea StackAdj>                       Δ+4                {[-4-]}
            <Call 0x255ea 0x22af2>                                              {[-4-]}
            <POP 255ee-255f0 StackAdj>                       Δ+4                {}
        <POP 255f0-255fe Naked>                              Σ0         ↓ →0x25604 ←0x255fe
            <MI 255f0  MOVE.L  0x26832,D0>                                      {}
            <MI 255f6  CMP.L   0x26836,D0>                                      {}
            <MI 255fc  BGT     0x25604>                                         {}
        <POP 255fe-25604 Naked>                              Σ0         →0x255f0
            <Call 0x255fe 0x2510e>                                              {}
            <MI 25602  BRA     0x255f0>                                         {}
        <POP 25604-25612 Naked>                              Σ0         ↓ ←0x255f0
            <Const 0x25604 0x26860.4>                        Δ-4                {[##157792]}
            <Call 0x2560a 0x102bc>                                              {[##157792]}
                FreeString(VAR a : String)
            <POP 25610-25612 StackAdj>                       Δ+4                {}
        <POP 25612-25616 Naked>                              Σ0         →0x25504
            <MI 25612  BRA     0x25504>                                         {}

0x2562a


@ 2562a
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2562a-25692 Body>                                              
        <POP 2562a-25640 Prologue>                           Σ0         ↓
        <POP 25640-2568a Naked>                              Σ0         ↓
            <Blob 0x25640 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x2564c 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 25650-25652 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x25652 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 25664-25666 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 25666  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2566a  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2566c  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2566e  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x25670 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 25676-25678 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x25678 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2567e-25680 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x25680 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 25686-2568a StackAdj>                       Δ+20               {}
        <POP 2568a-25692 Epilogue>                           Σ0         

0x256e6


@ 256e6
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 256e6-25822 Body>                                              
        <POP 256e6-256fc Prologue>                           Σ0         ↓
        <POP 256fc-25712 RegCacheLoad>                       Σ0         ↓
        <POP 25712-25772 Naked>                              Σ0         ↓ →0x257ba
            <Call 0x25712 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x25718 [18] @>                            Δ-18               {[«18""»]}
            <POP 25724-25726 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x25726 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x25732 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 25734-25735 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x25735 [14] @>                            Δ-14               {[«14""»]}
            <POP 25744-25746 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x25746 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 25750-25752 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 25752  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x25756 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 2575c-2575e StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x2575e 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 25764-25766 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x25766 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 25768-2576a StackAdj>                       Δ+18               {}
            <MI 2576a  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 2576e  CMPA.W  #0x01,A0>                                        {}
            <MI 25770  BEQ     0x257ba>                                         {}
        <POP 25772-257ba Naked>                              Σ0         ↓
            <Blob 0x25772 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x25782 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 25792-25794 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x25794 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 2579e-257a0 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x257a0>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x257a0 12>                      Δ-4        
                <Const 0x257a4 0x1.2>                        Δ-2        
                <Const 0x257a6 0x1e.2>                       Δ-2        
                <Call 0x257a8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 257aa-257ac StackAdj>                   Δ+8        
            <Call 0x257ac 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 257b2-257b4 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x257b4 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 257b6-257ba StackAdj>                       Δ+48               {}
        <POP 257ba-2581a Naked>                              Σ0         ↓ ←0x25712
            <Blob 0x257ba [14] @>                            Δ-14               {[«14""»]}
            <POP 257ca-257cc StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x257cc 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 257d6-257d8 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 257d8  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x257dc 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 257e2-257e4 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x257e4 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 257ea-257ec StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x257ec 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 257ee-257ef StackAdj>                       Δ+18       ↓       {}
            <Blob 0x257ef [24] @>                            Δ-24               {[«24""»]}
            <Const 0x257fe 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 25802-25804 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x25804 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x25812 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 25818-2581a StackAdj>                       Δ+30               {}
        <POP 2581a-25822 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.1a5a94ecd93db3c8
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 54 20              |  T     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 68 7e              |  h~    |		.PTR	0x2687e
00020010					code.end:
00020010 00 02 58 22              |  X"    |		.PTR	0x25822
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 56 2a              |  V*    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 56 e6              |  V     |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 43 4f 50 59 20 20 20 20  |COPY    |		.TXT	'COPY      '
00020114 44 20                    |D       |		.TXT	'D '
00020116 56 20                    |V       |		.TXT	'V '
00020118 43 20                    |C       |		.TXT	'C '
0002011a 44 65 6c 65 74 69 6e 67  |Deleting|		.TXT	'Deleting -> '
00020126 52 45 4e 41 4d 45 20 20  |RENAME  |		.TXT	'RENAME    '
00020130 44 20                    |D       |		.TXT	'D '
00020132 41 6c 72 65 61 64 79 20  |Already |		.TXT	'Already in REMOTE mode'
00020148 46 49                    |FI      |		.TXT	'FI'
0002014a 58 50                    |XP      |		.TXT	'XP'
0002014c 41 44                    |AD      |		.TXT	'AD'
0002014e 46 49 58 4d              |FIXM    |		.TXT	'FIXM'
00020152 4f 44 45 4d              |ODEM    |		.TXT	'ODEM'
00020156 41 6c 72 65 61 64 79 20  |Already |		.TXT	'Already in LOCAL mode '
0002016c 54 59 50 45 20 20 20 20  |TYPE    |		.TXT	'TYPE      '
00020176 56 20                    |V       |		.TXT	'V '
00020178 43 52 45 41 54 45 20 20  |CREATE  |		.TXT	'CREATE    '
00020182 53 49 5a 45              |SIZE    |		.TXT	'SIZE'
00020186 2f 53 49 5a 45 3d 20 72  |/SIZE= r|		.TXT	'/SIZE= requires decimal argument'
000201a6 43 4f 4e 54 49 47 55 4f  |CONTIGUO|		.TXT	'CONTIGUOUS'
000201b0 44 20                    |D       |		.TXT	'D '
000201b2 49 20                    |I       |		.TXT	'I '
000201b4 29 20                    |)       |		.TXT	') '
000201b6 42 61 64 20 66 6f 72 6d  |Bad form|		.TXT	'Bad format.  Try HH:MM:SS DD-MMM-YY '
000201da 46 41 4c 53 45 20        |FALSE   |		.XXX[0x6]
000201e0 54 52 55 45 5f 20        |TRUE_   |		.XXX[0x6]
000201e6 20 20 20 20 20 20 20 20  |        |		.TXT	'          PERMANENT =>_ '
000201fe 2c 20 45 58              |, EX    |		.TXT	', EX'
00020202 45 43 55 54              |ECUT    |		.TXT	'ECUT'
00020206 41 42 4c 45              |ABLE    |		.TXT	'ABLE'
0002020a 20 3d 3e 5f              | =>_    |		.TXT	' =>_'
0002020e 2c 20 4b 45              |, KE    |		.TXT	', KE'
00020212 52 4e 45 4c              |RNEL    |		.TXT	'RNEL'
00020216 20 3d 3e 5f              | =>_    |		.TXT	' =>_'
0002021a 20 20 20 20 20 20 20 20  |        |		.TXT	'          File pages_ '
00020230 20 2e 2e 5f              | .._    |		.TXT	' .._'
00020234 20 61 72 65 20 61 74 20  | are at |		.TXT	' are at disk block_ '
00020248 46 55 4c 4c              |FULL    |		.TXT	'FULL'
0002024c 54 6f 74 61 6c 20 6f 66  |Total of|		.TXT	'Total of_ '
00020256 20 50 61 67 65 73 20 69  | Pages i|		.TXT	' Pages in_'
00020260 20 46 69 6c 65 73 2e 20  | Files. |		.TXT	' Files. '
00020268 42 61 64 20 63 6f 6d 6d  |Bad comm|		.TXT	'Bad command format, try "PRINTER ON <line-number>" or "PRINTER OFF" '
000202ac 43 6f 6d 6d 75 6e 69 63  |Communic|		.TXT	'Communications line does not exist'
000202ce 4f 4e                    |ON      |		.TXT	'ON'
000202d0 4f 46                    |OF      |		.TXT	'OF'
000202d2 46 20 54 49 4d 45        |F TIME  |		.XXX[0x6]
000202d8 20 20 20 20 20 20 44 49  |      DI|		.XXX[0xd8]
000202e0 52 45 43 54 4f 52 59 20  |RECTORY |
000202e8 43 4f 50 59 20 20 20 20  |COPY    |
000202f0 20 20 44 45 4c 45 54 45  |  DELETE|
000202f8 20 20 20 20 54 59 50 45  |    TYPE|
00020300 20 20 20 20 20 20 43 52  |      CR|
00020308 45 41 54 45 20 20 20 20  |EATE    |
00020310 52 45 4e 41 4d 45 20 20  |RENAME  |
00020318 20 20 52 45 4d 4f 54 45  |  REMOTE|
00020320 20 20 20 20 4c 4f 43 41  |    LOCA|
00020328 4c 20 20 20 20 20 50 52  |L     PR|
00020330 49 4e 54 45 52 20 20 20  |INTER   |
00020338 43 4c 49 20 20 20 20 20  |CLI     |
00020340 20 20 46 41 4c 53 45 54  |  FALSET|
00020348 52 55 45 5f 54 49 4d 45  |RUE_TIME|
00020350 20 20 20 20 20 20 44 49  |      DI|
00020358 52 45 43 54 4f 52 59 20  |RECTORY |
00020360 43 4f 50 59 20 20 20 20  |COPY    |
00020368 20 20 44 45 4c 45 54 45  |  DELETE|
00020370 20 20 20 20 54 59 50 45  |    TYPE|
00020378 20 20 20 20 20 20 43 52  |      CR|
00020380 45 41 54 45 20 20 20 20  |EATE    |
00020388 52 45 4e 41 4d 45 20 20  |RENAME  |
00020390 20 20 52 45 4d 4f 54 45  |  REMOTE|
00020398 20 20 20 20 4c 4f 43 41  |    LOCA|
000203a0 4c 20 20 20 20 20 50 52  |L     PR|
000203a8 49 4e 54 45 52 20 20 20  |INTER   |
000203b0 ; --------------------------------------------------------------------------------------
000203b0 ; OMSI PASCAL Function
000203b0 ;    <LVAR  0x010 1(w)>
000203b0 ;    <LVAR  0x00c 4(r)>
000203b0 ;    <LVAR  0x008 @ 4(r)>
000203b0 ;    <LVAR -0x006 @ 4(r)>
000203b0 ;    <LVAR -0x008 @ 1(r)>
000203b0 ; --------------------------------------------------------------------------------------
000203b0 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000203b4 bf d5                    |        |		CMPA.L	(A5),A7
000203b6 62 06                    |b       |		BHI	0x203be
000203b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000203bc 4e 76                    |Nv      |		TRAPV
000203be de fc 00 20              |        |		ADDA.W	#0x20,A7
000203c2 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
000203c6 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
000203ca 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000203ce 48 78 00 00              |Hx      |		PEA.L	0x0
000203d2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000203d6 48 51                    |HQ      |		PEA.L	(A1)
000203d8 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000203dc 4e b9 00 02 4f 88        |N   O   |		JSR	0x24f88
000203e2 de fc 00 14              |        |		ADDA.W	#0x14,A7
000203e6 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
000203ea 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000203f0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203f2 20 51                    | Q      |		MOVEA.L	(A1),A0
000203f4 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
000203f8 67 0a                    |g       |		BEQ	0x20404
000203fa 48 51                    |HQ      |		PEA.L	(A1)
000203fc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020402 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020404 1d 6e ff f8 00 10        | n      |		MOVE.B	(A6-0x8),(A6+0x10)
0002040a 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
0002040e 4e 5e                    |N^      |		UNLK	A6
00020410 4e 75                    |Nu      |		RTS
00020412 ; --------------------------------------------------------------------------------------
00020412 ; OMSI PASCAL Function
00020412 ;    <LVAR  0x008 4(r)>
00020412 ;    <LVAR -0x004 @ 1(r)>
00020412 ;    <LVAR -0x008 @>
00020412 ; --------------------------------------------------------------------------------------
00020412 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00020416 bf d5                    |        |		CMPA.L	(A5),A7
00020418 62 06                    |b       |		BHI	0x20420
0002041a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002041e 4e 76                    |Nv      |		TRAPV
00020420 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020424 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020428 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0002042c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020430 42 27                    |B'      |		CLR.B	-(A7)
00020432 42 27                    |B'      |		CLR.B	-(A7)
00020434 48 78 00 00              |Hx      |		PEA.L	0x0
00020438 48 50                    |HP      |		PEA.L	(A0)
0002043a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002043e 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020444 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020448 4a 10                    |J       |		TST.B	(A0)
0002044a 66 1c                    |f       |		BNE	0x20468
0002044c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020450 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00020454 48 78 00 01              |Hx      |		PEA.L	0x1
00020458 48 50                    |HP      |		PEA.L	(A0)
0002045a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002045e 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020464 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020468 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0002046c 4e 5e                    |N^      |		UNLK	A6
0002046e 4e 75                    |Nu      |		RTS
00020470 ; --------------------------------------------------------------------------------------
00020470 ; OMSI PASCAL Function
00020470 ;    <LVAR  0x008 4(r)>
00020470 ;    <LVAR -0x004 @ 1(r)>
00020470 ;    <LVAR -0x404 @>
00020470 ;    <LVAR -0x410 @ 4(r)>
00020470 ;    <LVAR -0x414 @ 4(r)>
00020470 ;    <LVAR -0x418 @ 4(rw)>
00020470 ;    <LVAR -0x41c @ 4(rw)>
00020470 ; --------------------------------------------------------------------------------------
00020470 4e 56 fb 8c              |NV      |		LINK.W	A6,#0xfb8c
00020474 bf d5                    |        |		CMPA.L	(A5),A7
00020476 62 06                    |b       |		BHI	0x2047e
00020478 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002047c 4e 76                    |Nv      |		TRAPV
0002047e de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00020482 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020486 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
0002048a 47 ee fb ec              |G       |		LEA.L	(A6-0x414),A3
0002048e 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00020492 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020494 74 14                    |t       |		MOVEQ.L	#0x14,D2
00020496 76 02                    |v       |		MOVEQ.L	#0x02,D3
00020498 78 10                    |x       |		MOVEQ.L	#0x10,D4
0002049a 41 ee fb fc              |A       |		LEA.L	(A6-0x404),A0
0002049e 2f 08                    |/       |		MOVE.L	A0,-(A7)
000204a0 2a 1f                    |*       |		MOVE.L	(A7)+,D5
000204a2 41 fa fc 70              |A  p    |		LEA.L	0x20114,A0
000204a6 70 04                    |p       |		MOVEQ.L	#0x04,D0
000204a8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000204aa 51 c8 ff fc              |Q       |		DBF	D0,0x204a8
000204ae 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000204b0 48 78 00 02              |Hx      |		PEA.L	0x2
000204b4 4e b9 00 02 21 6a        |N   !j  |		JSR	0x2216a
000204ba de fc 00 0a              |        |		ADDA.W	#0xa,A7
000204be 2e 94                    |.       |		MOVE.L	(A4),(A7)
000204c0 48 78 00 01              |Hx      |		PEA.L	0x1
000204c4 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
000204ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204cc 2d 57 fb e4              |-W      |		MOVE.L	(A7),(A6-0x41c)
000204d0 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000204d2 48 78 00 02              |Hx      |		PEA.L	0x2
000204d6 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
000204dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204de 2d 5f fb e8              |-_      |		MOVE.L	(A7)+,(A6-0x418)
000204e2 3f 3a fc 30              |?: 0    |		MOVE.W	0x20114,-(A7)
000204e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000204e8 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000204ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204ec 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000204f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000204f2 3f 03                    |?       |		MOVE.W	D3,-(A7)
000204f4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000204fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204fc 4e ba fe b2              |N       |		JSR	0x203b0
00020500 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020502 4a 1f                    |J       |		TST.B	(A7)+
00020504 67 04                    |g       |		BEQ	0x2050a
00020506 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00020508 60 02                    |`       |		BRA	0x2050c
0002050a 7c 02                    ||       |		MOVEQ.L	#0x02,D6
0002050c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002050e 2f 2e fb e4              |/.      |		MOVE.L	(A6-0x41c),-(A7)
00020512 42 27                    |B'      |		CLR.B	-(A7)
00020514 1f 01                    |        |		MOVE.B	D1,-(A7)
00020516 48 78 00 00              |Hx      |		PEA.L	0x0
0002051a 48 52                    |HR      |		PEA.L	(A2)
0002051c 48 53                    |HS      |		PEA.L	(A3)
0002051e 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020524 de c2                    |        |		ADDA.W	D2,A7
00020526 4a 12                    |J       |		TST.B	(A2)
00020528 67 04                    |g       |		BEQ	0x2052e
0002052a 60 00 01 0a              |`       |		BRA	0x20636
0002052e 2f 2e fb e8              |/.      |		MOVE.L	(A6-0x418),-(A7)
00020532 10 06                    |        |		MOVE.B	D6,D0
00020534 48 80                    |H       |		EXTB.W	D0
00020536 41 83                    |A       |		CHK.W	D3,D0
00020538 1f 00                    |        |		MOVE.B	D0,-(A7)
0002053a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002053c 20 53                    | S      |		MOVEA.L	(A3),A0
0002053e 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00020542 48 c0                    |H       |		EXTW.L	D0
00020544 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020546 48 52                    |HR      |		PEA.L	(A2)
00020548 48 6e fb f0              |Hn      |		PEA.L	(A6-0x410)
0002054c 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020552 de c2                    |        |		ADDA.W	D2,A7
00020554 4a 12                    |J       |		TST.B	(A2)
00020556 67 04                    |g       |		BEQ	0x2055c
00020558 60 00 00 c8              |`       |		BRA	0x20622
0002055c 20 6e fb f0              | n      |		MOVEA.L	(A6-0x410),A0
00020560 22 53                    |"S      |		MOVEA.L	(A3),A1
00020562 11 69 00 3a 00 3a        | i : :  |		MOVE.B	(A1+0x3a),(A0+0x3a)
00020568 11 69 00 3b 00 3b        | i ; ;  |		MOVE.B	(A1+0x3b),(A0+0x3b)
0002056e 11 69 00 3c 00 3c        | i < <  |		MOVE.B	(A1+0x3c),(A0+0x3c)
00020574 11 69 00 3d 00 3d        | i = =  |		MOVE.B	(A1+0x3d),(A0+0x3d)
0002057a 10 29 00 3f              | ) ?    |		MOVE.B	(A1+0x3f),D0
0002057e 02 28 00 fd 00 3f        | (   ?  |		ANDI.B	#0xfd,(A0+0x3f)
00020584 c0 03                    |        |		AND.B	D3,D0
00020586 81 28 00 3f              | ( ?    |		OR.B	D0,(A0+0x3f)
0002058a 10 29 00 3f              | ) ?    |		MOVE.B	(A1+0x3f),D0
0002058e 02 28 00 fb 00 3f        | (   ?  |		ANDI.B	#0xfb,(A0+0x3f)
00020594 02 00 00 04              |        |		ANDI.B	#0x04,D0
00020598 81 28 00 3f              | ( ?    |		OR.B	D0,(A0+0x3f)
0002059c 11 41 00 4c              | A L    |		MOVE.B	D1,(A0+0x4c)
000205a0 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
000205a4 53 40                    |S@      |		SUBQ.W	#0x1,D0
000205a6 48 c0                    |H       |		EXTW.L	D0
000205a8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000205aa 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000205ac be 97                    |        |		CMP.L	(A7),D7
000205ae 6e 5a                    |nZ      |		BGT	0x2060a
000205b0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000205b2 0c 87 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D7
000205b8 63 02                    |c       |		BLS	0x205bc
000205ba 4e 4f                    |NO      |		TRAP	#15
000205bc 3f 07                    |?       |		MOVE.W	D7,-(A7)
000205be 42 67                    |Bg      |		CLR.W	-(A7)
000205c0 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
000205c4 1f 01                    |        |		MOVE.B	D1,-(A7)
000205c6 2f 05                    |/       |		MOVE.L	D5,-(A7)
000205c8 48 52                    |HR      |		PEA.L	(A2)
000205ca 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000205d0 de c2                    |        |		ADDA.W	D2,A7
000205d2 4a 12                    |J       |		TST.B	(A2)
000205d4 67 04                    |g       |		BEQ	0x205da
000205d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205d8 60 32                    |`2      |		BRA	0x2060c
000205da 2f 2e fb f0              |/.      |		MOVE.L	(A6-0x410),-(A7)
000205de 0c 87 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D7
000205e4 63 02                    |c       |		BLS	0x205e8
000205e6 4e 4f                    |NO      |		TRAP	#15
000205e8 3f 07                    |?       |		MOVE.W	D7,-(A7)
000205ea 42 67                    |Bg      |		CLR.W	-(A7)
000205ec 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
000205f0 1f 01                    |        |		MOVE.B	D1,-(A7)
000205f2 2f 05                    |/       |		MOVE.L	D5,-(A7)
000205f4 48 52                    |HR      |		PEA.L	(A2)
000205f6 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
000205fc de c2                    |        |		ADDA.W	D2,A7
000205fe 4a 12                    |J       |		TST.B	(A2)
00020600 67 04                    |g       |		BEQ	0x20606
00020602 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020604 60 06                    |`       |		BRA	0x2060c
00020606 52 87                    |R       |		ADDQ.L	#0x1,D7
00020608 68 a2                    |h       |		BVC	0x205ac
0002060a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002060c 42 27                    |B'      |		CLR.B	-(A7)
0002060e 1f 01                    |        |		MOVE.B	D1,-(A7)
00020610 48 78 00 01              |Hx      |		PEA.L	0x1
00020614 48 52                    |HR      |		PEA.L	(A2)
00020616 48 6e fb f0              |Hn      |		PEA.L	(A6-0x410)
0002061a 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020620 de c4                    |        |		ADDA.W	D4,A7
00020622 42 27                    |B'      |		CLR.B	-(A7)
00020624 1f 01                    |        |		MOVE.B	D1,-(A7)
00020626 48 78 00 01              |Hx      |		PEA.L	0x1
0002062a 48 52                    |HR      |		PEA.L	(A2)
0002062c 48 53                    |HS      |		PEA.L	(A3)
0002062e 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020634 de c4                    |        |		ADDA.W	D4,A7
00020636 48 6e fb e4              |Hn      |		PEA.L	(A6-0x41c)
0002063a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020640 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020642 48 6e fb e8              |Hn      |		PEA.L	(A6-0x418)
00020646 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002064c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002064e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020652 4e 5e                    |N^      |		UNLK	A6
00020654 4e 75                    |Nu      |		RTS
00020656 ; --------------------------------------------------------------------------------------
00020656 ; OMSI PASCAL Function
00020656 ;    <LVAR  0x008 4(r)>
00020656 ;    <LVAR -0x00a 1(rw)>
00020656 ;    <LVAR -0x00c @ 1(r)>
00020656 ;    <LVAR -0x010 @ 4(r)>
00020656 ; --------------------------------------------------------------------------------------
00020656 4e 56 ff 6a              |NV j    |		LINK.W	A6,#0xff6a
0002065a bf d5                    |        |		CMPA.L	(A5),A7
0002065c 62 06                    |b       |		BHI	0x20664
0002065e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020662 4e 76                    |Nv      |		TRAPV
00020664 de fc 00 82              |        |		ADDA.W	#0x82,A7
00020668 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002066c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020672 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00020676 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020678 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
0002067a 76 02                    |v       |		MOVEQ.L	#0x02,D3
0002067c 78 0a                    |x       |		MOVEQ.L	#0x0a,D4
0002067e 3f 3a fa 96              |?:      |		MOVE.W	0x20116,-(A7)
00020682 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020684 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020686 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020688 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002068c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002068e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020690 4e 92                    |N       |		JSR	(A2)
00020692 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020694 4e ba fd 1a              |N       |		JSR	0x203b0
00020698 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002069a 10 1f                    |        |		MOVE.B	(A7)+,D0
0002069c 48 80                    |H       |		EXTB.W	D0
0002069e 41 81                    |A       |		CHK.W	D1,D0
000206a0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206a2 1a 00                    |        |		MOVE.B	D0,D5
000206a4 3f 3a fa 72              |?: r    |		MOVE.W	0x20118,-(A7)
000206a8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206aa 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000206ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206ae 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000206b2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000206b4 3f 03                    |?       |		MOVE.W	D3,-(A7)
000206b6 4e 92                    |N       |		JSR	(A2)
000206b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206ba 4e ba fc f4              |N       |		JSR	0x203b0
000206be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206c0 10 1f                    |        |		MOVE.B	(A7)+,D0
000206c2 48 80                    |H       |		EXTB.W	D0
000206c4 41 81                    |A       |		CHK.W	D1,D0
000206c6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206c8 1d 40 ff f6              | @      |		MOVE.B	D0,(A6-0xa)
000206cc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206ce 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000206d0 4e b9 00 02 21 34        |N   !4  |		JSR	0x22134
000206d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206d8 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000206da bc 97                    |        |		CMP.L	(A7),D6
000206dc 6e 00 01 02              |n       |		BGT	0x207e0
000206e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206e2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000206e4 2f 06                    |/       |		MOVE.L	D6,-(A7)
000206e6 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
000206ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206ee 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000206f0 1f 01                    |        |		MOVE.B	D1,-(A7)
000206f2 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000206f4 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000206f8 4e b9 00 01 04 58        |N    X  |		JSR	DirFirst(MOD c : Bool; a : String; VAR b : File)
000206fe de c4                    |        |		ADDA.W	D4,A7
00020700 20 6e ff f0              | n      |		MOVEA.L	(A6-0x10),A0
00020704 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020706 b0 c1                    |        |		CMPA.W	D1,A0
00020708 67 00 00 ce              |g       |		BEQ	0x207d8
0002070c 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
00020710 66 04                    |f       |		BNE	0x20716
00020712 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00020714 60 2e                    |`.      |		BRA	0x20744
00020716 9e c2                    |        |		SUBA.W	D2,A7
00020718 22 4f                    |"O      |		MOVEA.L	A7,A1
0002071a 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0002071c 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002071e 51 c8 ff fc              |Q       |		DBF	D0,0x2071c
00020722 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020724 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020728 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002072a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002072c 4e 92                    |N       |		JSR	(A2)
0002072e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020730 42 17                    |B       |		CLR.B	(A7)
00020732 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020738 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002073a 10 1f                    |        |		MOVE.B	(A7)+,D0
0002073c 48 80                    |H       |		EXTB.W	D0
0002073e 41 81                    |A       |		CHK.W	D1,D0
00020740 de c2                    |        |		ADDA.W	D2,A7
00020742 1e 00                    |        |		MOVE.B	D0,D7
00020744 4a 07                    |J       |		TST.B	D7
00020746 67 78                    |gx      |		BEQ	0x207c0
00020748 4a 05                    |J       |		TST.B	D5
0002074a 67 50                    |gP      |		BEQ	0x2079c
0002074c 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00020750 20 4f                    | O      |		MOVEA.L	A7,A0
00020752 43 fa f9 c6              |C       |		LEA.L	0x2011a,A1
00020756 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020758 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002075a 51 c8 ff fc              |Q       |		DBF	D0,0x20758
0002075e 20 6f 00 0c              | o      |		MOVEA.L	(A7+0xc),A0
00020762 9e c2                    |        |		SUBA.W	D2,A7
00020764 22 4f                    |"O      |		MOVEA.L	A7,A1
00020766 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020768 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002076a 51 c8 ff fc              |Q       |		DBF	D0,0x20768
0002076e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020770 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020774 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020776 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
0002077a 4e 92                    |N       |		JSR	(A2)
0002077c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002077e 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020782 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020784 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020786 4e 92                    |N       |		JSR	(A2)
00020788 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002078a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020790 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020792 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020798 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0002079c 1f 03                    |        |		MOVE.B	D3,-(A7)
0002079e 1f 01                    |        |		MOVE.B	D1,-(A7)
000207a0 48 78 00 01              |Hx      |		PEA.L	0x1
000207a4 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000207a8 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000207ac 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000207b2 de fc 00 10              |        |		ADDA.W	#0x10,A7
000207b6 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000207b8 4a 2e ff f4              |J.      |		TST.B	(A6-0xc)
000207bc 66 02                    |f       |		BNE	0x207c0
000207be 52 07                    |R       |		ADDQ.B	#0x1,D7
000207c0 10 07                    |        |		MOVE.B	D7,D0
000207c2 48 80                    |H       |		EXTB.W	D0
000207c4 41 81                    |A       |		CHK.W	D1,D0
000207c6 1f 00                    |        |		MOVE.B	D0,-(A7)
000207c8 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000207cc 4e b9 00 01 04 5c        |N    \  |		JSR	DirNext(MOD a : Bool; VAR b : File)
000207d2 de c4                    |        |		ADDA.W	D4,A7
000207d4 60 00 ff 2a              |`  *    |		BRA	0x20700
000207d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207da 52 86                    |R       |		ADDQ.L	#0x1,D6
000207dc 68 00 fe fc              |h       |		BVC	0x206da
000207e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207e2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000207e6 4e 5e                    |N^      |		UNLK	A6
000207e8 4e 75                    |Nu      |		RTS
000207ea ; --------------------------------------------------------------------------------------
000207ea ; OMSI PASCAL Function
000207ea ;    <LVAR  0x008 4(r)>
000207ea ;    <LVAR -0x006 @ 4(rw)>
000207ea ;    <LVAR -0x00a @ 4(rw)>
000207ea ;    <LVAR -0x00c @ 1(r)>
000207ea ;    <LVAR -0x010 @>
000207ea ; --------------------------------------------------------------------------------------
000207ea 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
000207ee bf d5                    |        |		CMPA.L	(A5),A7
000207f0 62 06                    |b       |		BHI	0x207f8
000207f2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000207f6 4e 76                    |Nv      |		TRAPV
000207f8 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000207fc 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00020800 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00020804 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00020808 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
0002080c 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
00020810 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020812 41 fa f9 1c              |A       |		LEA.L	0x20130,A0
00020816 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020818 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002081a 51 c8 ff fc              |Q       |		DBF	D0,0x20818
0002081e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020820 48 78 00 02              |Hx      |		PEA.L	0x2
00020824 4e b9 00 02 21 6a        |N   !j  |		JSR	0x2216a
0002082a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002082e 2e 91                    |.       |		MOVE.L	(A1),(A7)
00020830 48 78 00 01              |Hx      |		PEA.L	0x1
00020834 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
0002083a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002083c 26 97                    |&       |		MOVE.L	(A7),(A3)
0002083e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020840 48 78 00 02              |Hx      |		PEA.L	0x2
00020844 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
0002084a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002084c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002084e 3f 3a f8 e0              |?:      |		MOVE.W	0x20130,-(A7)
00020852 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020854 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020856 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020858 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002085c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002085e 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020862 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020868 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002086a 4e ba fb 44              |N  D    |		JSR	0x203b0
0002086e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020870 4a 1f                    |J       |		TST.B	(A7)+
00020872 67 08                    |g       |		BEQ	0x2087c
00020874 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020876 4e ba fb 9a              |N       |		JSR	0x20412
0002087a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002087c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002087e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020880 42 27                    |B'      |		CLR.B	-(A7)
00020882 1f 01                    |        |		MOVE.B	D1,-(A7)
00020884 48 78 00 00              |Hx      |		PEA.L	0x0
00020888 48 54                    |HT      |		PEA.L	(A4)
0002088a 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
0002088e 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020894 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020898 4a 14                    |J       |		TST.B	(A4)
0002089a 66 16                    |f       |		BNE	0x208b2
0002089c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002089e 1f 01                    |        |		MOVE.B	D1,-(A7)
000208a0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000208a2 48 54                    |HT      |		PEA.L	(A4)
000208a4 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000208a8 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000208ae de fc 00 10              |        |		ADDA.W	#0x10,A7
000208b2 48 52                    |HR      |		PEA.L	(A2)
000208b4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000208ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208bc 48 53                    |HS      |		PEA.L	(A3)
000208be 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000208c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208c6 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
000208ca 4e 5e                    |N^      |		UNLK	A6
000208cc 4e 75                    |Nu      |		RTS
000208ce ; --------------------------------------------------------------------------------------
000208ce ; OMSI PASCAL Function
000208ce ;    <LVAR -0x004 @>
000208ce ; --------------------------------------------------------------------------------------
000208ce 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
000208d2 bf d5                    |        |		CMPA.L	(A5),A7
000208d4 62 06                    |b       |		BHI	0x208dc
000208d6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000208da 4e 76                    |Nv      |		TRAPV
000208dc de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000208e0 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
000208e4 43 f9 00 01 02 c4        |C       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A1
000208ea 72 01                    |r       |		MOVEQ.L	#0x01,D1
000208ec 74 16                    |t       |		MOVEQ.L	#0x16,D2
000208ee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000208f0 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
000208f6 20 1f                    |        |		MOVE.L	(A7)+,D0
000208f8 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
000208fe 66 26                    |f&      |		BNE	0x20926
00020900 41 fa f8 46              |A  F    |		LEA.L	0x20148,A0
00020904 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020906 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020908 51 c8 ff fc              |Q       |		DBF	D0,0x20906
0002090c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002090e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020912 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020914 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020916 4e 91                    |N       |		JSR	(A1)
00020918 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002091a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020920 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020924 60 76                    |`v      |		BRA	0x2099c
00020926 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020928 48 78 01 80              |Hx      |		PEA.L	0x180
0002092c 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00020932 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020934 10 2f 00 01              | /      |		MOVE.B	(A7+0x1),D0
00020938 0c 00 00 58              |   X    |		CMPI.B	#0x58,D0
0002093c 66 32                    |f2      |		BNE	0x20970
0002093e 3f 3a f8 0c              |?:      |		MOVE.W	0x2014c,-(A7)
00020942 3f 3a f8 06              |?:      |		MOVE.W	0x2014a,-(A7)
00020946 3f 3a f8 00              |?:      |		MOVE.W	0x20148,-(A7)
0002094a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002094c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020950 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020952 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00020956 4e 91                    |N       |		JSR	(A1)
00020958 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002095a 48 78 00 01              |Hx      |		PEA.L	0x1
0002095e 1f 01                    |        |		MOVE.B	D1,-(A7)
00020960 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020964 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002096a de fc 00 14              |        |		ADDA.W	#0x14,A7
0002096e 60 2a                    |`*      |		BRA	0x2099a
00020970 2f 3a f7 e0              |/:      |		MOVE.L	0x20152,-(A7)
00020974 2f 3a f7 d8              |/:      |		MOVE.L	0x2014e,-(A7)
00020978 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002097a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002097e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020980 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020984 4e 91                    |N       |		JSR	(A1)
00020986 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020988 48 78 00 01              |Hx      |		PEA.L	0x1
0002098c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002098e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020992 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020998 de c2                    |        |		ADDA.W	D2,A7
0002099a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002099c 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
000209a0 4e 5e                    |N^      |		UNLK	A6
000209a2 4e 75                    |Nu      |		RTS
000209a4 ; --------------------------------------------------------------------------------------
000209a4 ; OMSI PASCAL Function
000209a4 ; --------------------------------------------------------------------------------------
000209a4 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
000209a8 bf d5                    |        |		CMPA.L	(A5),A7
000209aa 62 06                    |b       |		BHI	0x209b2
000209ac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209b0 4e 76                    |Nv      |		TRAPV
000209b2 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
000209b6 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000209ba 72 01                    |r       |		MOVEQ.L	#0x01,D1
000209bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209be 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
000209c4 20 1f                    |        |		MOVE.L	(A7)+,D0
000209c6 b0 81                    |        |		CMP.L	D1,D0
000209c8 66 32                    |f2      |		BNE	0x209fc
000209ca 9e fc 00 16              |        |		SUBA.W	#0x16,A7
000209ce 20 4f                    | O      |		MOVEA.L	A7,A0
000209d0 43 fa f7 84              |C       |		LEA.L	0x20156,A1
000209d4 70 14                    |p       |		MOVEQ.L	#0x14,D0
000209d6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209d8 51 c8 ff fc              |Q       |		DBF	D0,0x209d6
000209dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209de 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209e2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209e4 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
000209e8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000209ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209f0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000209f6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000209fa 60 12                    |`       |		BRA	0x20a0e
000209fc 4e b9 00 01 02 16        |N       |		JSR	KC0b
00020a02 48 78 00 01              |Hx      |		PEA.L	0x1
00020a06 4e b9 00 01 03 f4        |N       |		JSR	SetConsoleConfig(a : Long)
00020a0c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a0e 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00020a12 4e 5e                    |N^      |		UNLK	A6
00020a14 4e 75                    |Nu      |		RTS
00020a16 ; --------------------------------------------------------------------------------------
00020a16 ; OMSI PASCAL Function
00020a16 ;    <LVAR  0x008 4(r)>
00020a16 ;    <LVAR -0x004 @ 1(r)>
00020a16 ;    <LVAR -0x008 @ 4(r)>
00020a16 ; --------------------------------------------------------------------------------------
00020a16 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00020a1a bf d5                    |        |		CMPA.L	(A5),A7
00020a1c 62 06                    |b       |		BHI	0x20a24
00020a1e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a22 4e 76                    |Nv      |		TRAPV
00020a24 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020a28 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00020a2c 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00020a30 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00020a34 48 50                    |HP      |		PEA.L	(A0)
00020a36 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020a3c 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00020a40 48 50                    |HP      |		PEA.L	(A0)
00020a42 48 51                    |HQ      |		PEA.L	(A1)
00020a44 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00020a4a de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020a4e 4a 11                    |J       |		TST.B	(A1)
00020a50 66 0a                    |f       |		BNE	0x20a5c
00020a52 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020a54 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020a5a 60 08                    |`       |		BRA	0x20a64
00020a5c 48 50                    |HP      |		PEA.L	(A0)
00020a5e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020a64 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a66 4a 11                    |J       |		TST.B	(A1)
00020a68 67 ca                    |g       |		BEQ	0x20a34
00020a6a 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00020a6e 4e 5e                    |N^      |		UNLK	A6
00020a70 4e 75                    |Nu      |		RTS
00020a72 ; --------------------------------------------------------------------------------------
00020a72 ; OMSI PASCAL Function
00020a72 ;    <LVAR  0x008 4(r)>
00020a72 ;    <LVAR -0x008 @ 4(r)>
00020a72 ; --------------------------------------------------------------------------------------
00020a72 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
00020a76 bf d5                    |        |		CMPA.L	(A5),A7
00020a78 62 06                    |b       |		BHI	0x20a80
00020a7a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a7e 4e 76                    |Nv      |		TRAPV
00020a80 de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
00020a84 48 e7 f1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00020a88 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00020a8c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020a8e 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00020a90 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020a92 41 fa f6 e2              |A       |		LEA.L	0x20176,A0
00020a96 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020a98 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020a9a 51 c8 ff fc              |Q       |		DBF	D0,0x20a98
00020a9e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020aa0 48 78 00 01              |Hx      |		PEA.L	0x1
00020aa4 4e b9 00 02 21 6a        |N   !j  |		JSR	0x2216a
00020aaa de c2                    |        |		ADDA.W	D2,A7
00020aac 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020aae 48 78 00 01              |Hx      |		PEA.L	0x1
00020ab2 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
00020ab8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020aba 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020abc 3f 3a f6 b8              |?:      |		MOVE.W	0x20176,-(A7)
00020ac0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ac2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020ac4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ac6 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020aca 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020acc 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020ad0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ad6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ad8 4e ba f8 d6              |N       |		JSR	0x203b0
00020adc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ade 10 1f                    |        |		MOVE.B	(A7)+,D0
00020ae0 48 80                    |H       |		EXTB.W	D0
00020ae2 41 81                    |A       |		CHK.W	D1,D0
00020ae4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ae6 1e 00                    |        |		MOVE.B	D0,D7
00020ae8 1f 01                    |        |		MOVE.B	D1,-(A7)
00020aea 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020aec 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020af0 4e b9 00 01 04 58        |N    X  |		JSR	DirFirst(MOD c : Bool; a : String; VAR b : File)
00020af6 de c2                    |        |		ADDA.W	D2,A7
00020af8 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
00020afc b0 c1                    |        |		CMPA.W	D1,A0
00020afe 67 52                    |gR      |		BEQ	0x20b52
00020b00 4a 07                    |J       |		TST.B	D7
00020b02 67 36                    |g6      |		BEQ	0x20b3a
00020b04 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020b0a 9e c3                    |        |		SUBA.W	D3,A7
00020b0c 22 4f                    |"O      |		MOVEA.L	A7,A1
00020b0e 24 48                    |$H      |		MOVEA.L	A0,A2
00020b10 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020b12 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020b14 51 c8 ff fc              |Q       |		DBF	D0,0x20b12
00020b18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020b1a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b1e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020b20 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020b22 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b2a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020b30 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020b34 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020b3a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020b3c 4e ba fe d8              |N       |		JSR	0x20a16
00020b40 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b42 42 17                    |B       |		CLR.B	(A7)
00020b44 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020b48 4e b9 00 01 04 5c        |N    \  |		JSR	DirNext(MOD a : Bool; VAR b : File)
00020b4e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b50 60 a6                    |`       |		BRA	0x20af8
00020b52 4c df 1f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
00020b56 4e 5e                    |N^      |		UNLK	A6
00020b58 4e 75                    |Nu      |		RTS
00020b5a ; --------------------------------------------------------------------------------------
00020b5a ; OMSI PASCAL Function
00020b5a ;    <LVAR  0x008 4(r)>
00020b5a ;    <LVAR -0x005 @ 1(rw)>
00020b5a ;    <LVAR -0x006 @ 1(r)>
00020b5a ;    <LVAR -0x00a @ 4(r)>
00020b5a ;    <LVAR -0x00e @ 4(rw)>
00020b5a ;    <LVAR -0x012 @ 4(rw)>
00020b5a ;    <LVAR -0x014 @ 1(r)>
00020b5a ;    <LVAR -0x018 @ 4(rw)>
00020b5a ;    <LVAR -0x01c @ 4(r)>
00020b5a ;    <LVAR -0x020 @ 4(rw)>
00020b5a ; --------------------------------------------------------------------------------------
00020b5a 4e 56 ff 80              |NV      |		LINK.W	A6,#0xff80
00020b5e bf d5                    |        |		CMPA.L	(A5),A7
00020b60 62 06                    |b       |		BHI	0x20b68
00020b62 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b66 4e 76                    |Nv      |		TRAPV
00020b68 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00020b6c 48 e7 fd f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00020b70 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00020b74 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020b7a 47 ee ff ec              |G       |		LEA.L	(A6-0x14),A3
00020b7e 49 ee ff f6              |I       |		LEA.L	(A6-0xa),A4
00020b82 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020b84 74 02                    |t       |		MOVEQ.L	#0x02,D2
00020b86 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00020b88 78 14                    |x       |		MOVEQ.L	#0x14,D4
00020b8a 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00020b8c 41 fa f5 f4              |A       |		LEA.L	0x20182,A0
00020b90 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b92 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b94 51 c8 ff fc              |Q       |		DBF	D0,0x20b92
00020b98 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020b9a 48 78 00 01              |Hx      |		PEA.L	0x1
00020b9e 4e b9 00 02 21 6a        |N   !j  |		JSR	0x2216a
00020ba4 de c3                    |        |		ADDA.W	D3,A7
00020ba6 2e 91                    |.       |		MOVE.L	(A1),(A7)
00020ba8 48 78 00 01              |Hx      |		PEA.L	0x1
00020bac 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
00020bb2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bb4 2d 5f ff ee              |-_      |		MOVE.L	(A7)+,(A6-0x12)
00020bb8 2f 3a f5 c8              |/:      |		MOVE.L	0x20182,-(A7)
00020bbc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bbe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020bc2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020bc4 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020bc8 4e 92                    |N       |		JSR	(A2)
00020bca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bcc 2d 5f ff e0              |-_      |		MOVE.L	(A7)+,(A6-0x20)
00020bd0 2e 91                    |.       |		MOVE.L	(A1),(A7)
00020bd2 48 78 00 00              |Hx      |		PEA.L	0x0
00020bd6 2f 2e ff e0              |/.      |		MOVE.L	(A6-0x20),-(A7)
00020bda 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
00020bde 48 53                    |HS      |		PEA.L	(A3)
00020be0 4e b9 00 02 4f 88        |N   O   |		JSR	0x24f88
00020be6 de c4                    |        |		ADDA.W	D4,A7
00020be8 48 6e ff e0              |Hn      |		PEA.L	(A6-0x20)
00020bec 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020bf2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bf4 4a 13                    |J       |		TST.B	(A3)
00020bf6 66 06                    |f       |		BNE	0x20bfe
00020bf8 2d 41 ff e8              |-A      |		MOVE.L	D1,(A6-0x18)
00020bfc 60 52                    |`R      |		BRA	0x20c50
00020bfe 20 6e ff e4              | n      |		MOVEA.L	(A6-0x1c),A0
00020c02 b0 c1                    |        |		CMPA.W	D1,A0
00020c04 67 12                    |g       |		BEQ	0x20c18
00020c06 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020c08 48 53                    |HS      |		PEA.L	(A3)
00020c0a 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00020c0e 4e b9 00 01 02 ec        |N       |		JSR	String2Long(src : String; VAR status : Bool; VAR retval : Long)
00020c14 de c5                    |        |		ADDA.W	D5,A7
00020c16 60 0e                    |`       |		BRA	0x20c26
00020c18 42 13                    |B       |		CLR.B	(A3)
00020c1a 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
00020c1e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020c24 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c26 4a 13                    |J       |		TST.B	(A3)
00020c28 66 26                    |f&      |		BNE	0x20c50
00020c2a 41 fa f5 7a              |A  z    |		LEA.L	0x201a6,A0
00020c2e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020c30 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020c32 51 c8 ff fc              |Q       |		DBF	D0,0x20c30
00020c36 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c38 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c3c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c3e 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00020c42 4e 92                    |N       |		JSR	(A2)
00020c44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c46 4e b9 00 02 1d 28        |N    (  |		JSR	0x21d28
00020c4c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020c50 41 fa f5 5e              |A  ^    |		LEA.L	0x201b0,A0
00020c54 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020c56 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c58 51 c8 ff fc              |Q       |		DBF	D0,0x20c56
00020c5c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c5e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020c60 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c62 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020c66 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c68 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020c6a 4e 92                    |N       |		JSR	(A2)
00020c6c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c6e 4e ba f7 40              |N  @    |		JSR	0x203b0
00020c72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c74 4a 1f                    |J       |		TST.B	(A7)+
00020c76 67 04                    |g       |		BEQ	0x20c7c
00020c78 44 ae ff e8              |D       |		NEG.L	(A6-0x18)
00020c7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c7e 3e ba f5 30              |>  0    |		MOVE.W	0x201b0,(A7)
00020c82 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c84 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020c86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c88 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020c8c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c8e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020c90 4e 92                    |N       |		JSR	(A2)
00020c92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c94 4e ba f7 1a              |N       |		JSR	0x203b0
00020c98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c9a 4a 1f                    |J       |		TST.B	(A7)+
00020c9c 67 04                    |g       |		BEQ	0x20ca2
00020c9e 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00020ca0 60 02                    |`       |		BRA	0x20ca4
00020ca2 7e 02                    |~       |		MOVEQ.L	#0x02,D7
00020ca4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ca6 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
00020caa 10 07                    |        |		MOVE.B	D7,D0
00020cac 48 80                    |H       |		EXTB.W	D0
00020cae 41 82                    |A       |		CHK.W	D2,D0
00020cb0 1f 00                    |        |		MOVE.B	D0,-(A7)
00020cb2 1f 01                    |        |		MOVE.B	D1,-(A7)
00020cb4 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00020cb8 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020cbc 48 54                    |HT      |		PEA.L	(A4)
00020cbe 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020cc4 de c4                    |        |		ADDA.W	D4,A7
00020cc6 4a 2e ff fa              |J.      |		TST.B	(A6-0x6)
00020cca 66 00 00 b6              |f       |		BNE	0x20d82
00020cce 20 54                    | T      |		MOVEA.L	(A4),A0
00020cd0 48 68 00 3a              |Hh :    |		PEA.L	(A0+0x3a)
00020cd4 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
00020cda 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020cdc 11 41 00 4c              | A L    |		MOVE.B	D1,(A0+0x4c)
00020ce0 3f 3a f4 d0              |?:      |		MOVE.W	0x201b2,-(A7)
00020ce4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ce6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020ce8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020cea 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020cee 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020cf0 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020cf2 4e 92                    |N       |		JSR	(A2)
00020cf4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cf6 4e ba f6 b8              |N       |		JSR	0x203b0
00020cfa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cfc 4a 1f                    |J       |		TST.B	(A7)+
00020cfe 67 5e                    |g^      |		BEQ	0x20d5e
00020d00 3f 3a f4 b2              |?:      |		MOVE.W	0x201b4,-(A7)
00020d04 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d06 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020d0a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d0c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020d0e 4e 92                    |N       |		JSR	(A2)
00020d10 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d12 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020d18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d1a 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00020d1e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d20 20 6e ff f2              | n      |		MOVEA.L	(A6-0xe),A0
00020d24 30 10                    |0       |		MOVE.W	(A0),D0
00020d26 b0 41                    | A      |		CMP.W	D1,D0
00020d28 66 10                    |f       |		BNE	0x20d3a
00020d2a 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00020d2e 0c 00 00 29              |   )    |		CMPI.B	#0x29,D0
00020d32 66 06                    |f       |		BNE	0x20d3a
00020d34 1d 41 ff fb              | A      |		MOVE.B	D1,(A6-0x5)
00020d38 60 12                    |`       |		BRA	0x20d4c
00020d3a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020d3c 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00020d40 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00020d44 4e b9 00 01 04 40        |N    @  |		JSR	FSCALL_10440
00020d4a de c5                    |        |		ADDA.W	D5,A7
00020d4c 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00020d50 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020d56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d58 4a 2e ff fb              |J.      |		TST.B	(A6-0x5)
00020d5c 67 a2                    |g       |		BEQ	0x20d00
00020d5e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d60 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020d62 4e b9 00 01 04 48        |N    H  |		JSR	FSCALL_10448
00020d68 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d6a 42 17                    |B       |		CLR.B	(A7)
00020d6c 1f 01                    |        |		MOVE.B	D1,-(A7)
00020d6e 48 78 00 01              |Hx      |		PEA.L	0x1
00020d72 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020d76 48 54                    |HT      |		PEA.L	(A4)
00020d78 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020d7e de fc 00 10              |        |		ADDA.W	#0x10,A7
00020d82 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020d86 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020d8c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d8e 4c df 1f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
00020d92 4e 5e                    |N^      |		UNLK	A6
00020d94 4e 75                    |Nu      |		RTS
00020d96 ; --------------------------------------------------------------------------------------
00020d96 ; OMSI PASCAL Function
00020d96 ;    <LVAR  0x008 4(r)>
00020d96 ;    <LVAR -0x006 @ 4(r)>
00020d96 ;    <LVAR -0x010 @ 1(r)>
00020d96 ; --------------------------------------------------------------------------------------
00020d96 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00020d9a bf d5                    |        |		CMPA.L	(A5),A7
00020d9c 62 06                    |b       |		BHI	0x20da4
00020d9e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020da2 4e 76                    |Nv      |		TRAPV
00020da4 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
00020da8 48 e7 81 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D0,-(A7)
00020dac 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00020db0 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00020db4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020db6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020db8 4e b9 00 02 21 34        |N   !4  |		JSR	0x22134
00020dbe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020dc0 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00020dc2 67 6c                    |gl      |		BEQ	0x20e30
00020dc4 0c 87 00 00 00 02        |        |		CMPI.L	#0x00000002,D7
00020dca 67 02                    |g       |		BEQ	0x20dce
00020dcc 60 7c                    |`|      |		BRA	0x20e4a
00020dce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020dd0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020dd2 48 78 00 01              |Hx      |		PEA.L	0x1
00020dd6 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
00020ddc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020dde 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020de0 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020de2 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
00020de6 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020dec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020dee 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020df0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020df2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020df4 48 78 00 02              |Hx      |		PEA.L	0x2
00020df8 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
00020dfe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e00 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020e06 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e08 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020e0a 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020e0c 48 52                    |HR      |		PEA.L	(A2)
00020e0e 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00020e12 4e b9 00 01 03 10        |N       |		JSR	ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
00020e18 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020e1c 4a 2e ff f0              |J.      |		TST.B	(A6-0x10)
00020e20 66 02                    |f       |		BNE	0x20e24
00020e22 60 26                    |`&      |		BRA	0x20e4a
00020e24 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e26 4e b9 00 01 03 0c        |N       |		JSR	SetRtc(a: TimeStamp)
00020e2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e2e 60 4c                    |`L      |		BRA	0x20e7c
00020e30 48 52                    |HR      |		PEA.L	(A2)
00020e32 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
00020e38 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e3a 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00020e40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e42 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020e48 60 e2                    |`       |		BRA	0x20e2c
00020e4a 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
00020e4e 20 4f                    | O      |		MOVEA.L	A7,A0
00020e50 43 fa f3 64              |C  d    |		LEA.L	0x201b6,A1
00020e54 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00020e56 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e58 51 c8 ff fc              |Q       |		DBF	D0,0x20e56
00020e5c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e5e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e62 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020e66 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00020e6a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e70 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e72 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020e78 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020e7c 4c df 1f 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2+A3+A4
00020e80 4e 5e                    |N^      |		UNLK	A6
00020e82 4e 75                    |Nu      |		RTS
00020e84 ; --------------------------------------------------------------------------------------
00020e84 ; OMSI PASCAL Function
00020e84 ;    <LVAR  0x008 4(r)>
00020e84 ; --------------------------------------------------------------------------------------
00020e84 4e 56 ff 52              |NV R    |		LINK.W	A6,#0xff52
00020e88 bf d5                    |        |		CMPA.L	(A5),A7
00020e8a 62 06                    |b       |		BHI	0x20e92
00020e8c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020e90 4e 76                    |Nv      |		TRAPV
00020e92 de fc 00 a6              |        |		ADDA.W	#0xa6,A7
00020e96 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020e9a 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020ea0 49 fa f4 a0              |I       |		LEA.L	0x20342,A4
00020ea4 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020ea6 78 05                    |x       |		MOVEQ.L	#0x05,D4
00020ea8 7a 18                    |z       |		MOVEQ.L	#0x18,D5
00020eaa 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020eae 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020eb0 9e c5                    |        |		SUBA.W	D5,A7
00020eb2 22 4f                    |"O      |		MOVEA.L	A7,A1
00020eb4 45 fa f3 30              |E  0    |		LEA.L	0x201e6,A2
00020eb8 70 16                    |p       |		MOVEQ.L	#0x16,D0
00020eba 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020ebc 51 c8 ff fc              |Q       |		DBF	D0,0x20eba
00020ec0 42 80                    |B       |		CLR.L	D0
00020ec2 10 28 00 1f              | (      |		MOVE.B	(A0+0x1f),D0
00020ec6 ef 08                    |        |		LSL.B	#0x7,D0
00020ec8 ee 08                    |        |		LSR.B	#0x7,D0
00020eca c0 c4                    |        |		MULU.W	D4,D0
00020ecc 42 81                    |B       |		CLR.L	D1
00020ece 32 00                    |2       |		MOVE.W	D0,D1
00020ed0 22 4c                    |"L      |		MOVEA.L	A4,A1
00020ed2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020ed4 24 4f                    |$O      |		MOVEA.L	A7,A2
00020ed6 43 f1 18 00              |C       |		LEA.L	(A1+D1.L),A1
00020eda 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020edc 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00020ede 51 c8 ff fc              |Q       |		DBF	D0,0x20edc
00020ee2 2f 3a f3 26              |/: &    |		MOVE.L	0x2020a,-(A7)
00020ee6 2f 3a f3 1e              |/:      |		MOVE.L	0x20206,-(A7)
00020eea 2f 3a f3 16              |/:      |		MOVE.L	0x20202,-(A7)
00020eee 2f 3a f3 0e              |/:      |		MOVE.L	0x201fe,-(A7)
00020ef2 42 80                    |B       |		CLR.L	D0
00020ef4 10 28 00 1f              | (      |		MOVE.B	(A0+0x1f),D0
00020ef8 ed 08                    |        |		LSL.B	#0x6,D0
00020efa ee 08                    |        |		LSR.B	#0x7,D0
00020efc c0 c4                    |        |		MULU.W	D4,D0
00020efe 42 81                    |B       |		CLR.L	D1
00020f00 32 00                    |2       |		MOVE.W	D0,D1
00020f02 22 4c                    |"L      |		MOVEA.L	A4,A1
00020f04 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020f06 24 4f                    |$O      |		MOVEA.L	A7,A2
00020f08 43 f1 18 00              |C       |		LEA.L	(A1+D1.L),A1
00020f0c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020f0e 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00020f10 51 c8 ff fc              |Q       |		DBF	D0,0x20f0e
00020f14 2f 3a f3 00              |/:      |		MOVE.L	0x20216,-(A7)
00020f18 2f 3a f2 f8              |/:      |		MOVE.L	0x20212,-(A7)
00020f1c 2f 3a f2 f0              |/:      |		MOVE.L	0x2020e,-(A7)
00020f20 42 80                    |B       |		CLR.L	D0
00020f22 10 28 00 1f              | (      |		MOVE.B	(A0+0x1f),D0
00020f26 eb 08                    |        |		LSL.B	#0x5,D0
00020f28 ee 08                    |        |		LSR.B	#0x7,D0
00020f2a c0 c4                    |        |		MULU.W	D4,D0
00020f2c 42 81                    |B       |		CLR.L	D1
00020f2e 32 00                    |2       |		MOVE.W	D0,D1
00020f30 20 4c                    | L      |		MOVEA.L	A4,A0
00020f32 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020f34 22 4f                    |"O      |		MOVEA.L	A7,A1
00020f36 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00020f3a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020f3c 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020f3e 51 c8 ff fc              |Q       |		DBF	D0,0x20f3c
00020f42 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020f44 48 6f 00 36              |Ho 6    |		PEA.L	(A7+0x36)
00020f48 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020f4a 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020f4e 4e 93                    |N       |		JSR	(A3)
00020f50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f52 48 6f 00 34              |Ho 4    |		PEA.L	(A7+0x34)
00020f56 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020f58 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020f5a 4e 93                    |N       |		JSR	(A3)
00020f5c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f5e 48 6f 00 28              |Ho (    |		PEA.L	(A7+0x28)
00020f62 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020f64 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00020f68 4e 93                    |N       |		JSR	(A3)
00020f6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f6c 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020f70 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020f72 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020f74 4e 93                    |N       |		JSR	(A3)
00020f76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f78 48 6f 00 1e              |Ho      |		PEA.L	(A7+0x1e)
00020f7c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020f7e 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
00020f82 4e 93                    |N       |		JSR	(A3)
00020f84 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f86 48 6f 00 1c              |Ho      |		PEA.L	(A7+0x1c)
00020f8a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020f8c 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020f8e 4e 93                    |N       |		JSR	(A3)
00020f90 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f92 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
00020f98 de c5                    |        |		ADDA.W	D5,A7
00020f9a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020fa0 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00020fa4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020fa6 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020fa8 bc 84                    |        |		CMP.L	D4,D6
00020faa 63 02                    |c       |		BLS	0x20fae
00020fac 4e 4f                    |NO      |		TRAP	#15
00020fae 20 06                    |        |		MOVE.L	D6,D0
00020fb0 e5 80                    |        |		ASL.L	#0x2,D0
00020fb2 20 57                    | W      |		MOVEA.L	(A7),A0
00020fb4 32 30 08 02              |20      |		MOVE.W	(A0+D0.L+#0x2),D1
00020fb8 48 c1                    |H       |		EXTW.L	D1
00020fba b2 87                    |        |		CMP.L	D7,D1
00020fbc 6d 00 00 b8              |m       |		BLT	0x21076
00020fc0 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00020fc4 22 4f                    |"O      |		MOVEA.L	A7,A1
00020fc6 45 fa f2 52              |E  R    |		LEA.L	0x2021a,A2
00020fca 74 14                    |t       |		MOVEQ.L	#0x14,D2
00020fcc 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020fce 51 ca ff fc              |Q       |		DBF	D2,0x20fcc
00020fd2 2f 3a f2 5c              |/: \    |		MOVE.L	0x20230,-(A7)
00020fd6 52 41                    |RA      |		ADDQ.W	#0x1,D1
00020fd8 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00020fdc 22 4f                    |"O      |		MOVEA.L	A7,A1
00020fde 45 fa f2 54              |E  T    |		LEA.L	0x20234,A2
00020fe2 74 12                    |t       |		MOVEQ.L	#0x12,D2
00020fe4 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020fe6 51 ca ff fc              |Q       |		DBF	D2,0x20fe4
00020fea 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020fec 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00020ff0 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020ff2 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00020ff6 4e 93                    |N       |		JSR	(A3)
00020ff8 2f 07                    |/       |		MOVE.L	D7,-(A7)
00020ffa 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00020ffc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021002 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021004 48 78 00 05              |Hx      |		PEA.L	0x5
00021008 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
0002100e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021010 48 6f 00 24              |Ho $    |		PEA.L	(A7+0x24)
00021014 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021016 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002101a 4e 93                    |N       |		JSR	(A3)
0002101c 34 01                    |4       |		MOVE.W	D1,D2
0002101e 48 c2                    |H       |		EXTW.L	D2
00021020 2f 02                    |/       |		MOVE.L	D2,-(A7)
00021022 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021028 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002102a 48 78 00 05              |Hx      |		PEA.L	0x5
0002102e 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021034 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021036 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
0002103a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002103c 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021040 4e 93                    |N       |		JSR	(A3)
00021042 42 82                    |B       |		CLR.L	D2
00021044 34 30 08 04              |40      |		MOVE.W	(A0+D0.L+#0x4),D2
00021048 2f 02                    |/       |		MOVE.L	D2,-(A7)
0002104a 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021050 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021052 48 78 00 05              |Hx      |		PEA.L	0x5
00021056 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
0002105c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002105e 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
00021064 de c5                    |        |		ADDA.W	D5,A7
00021066 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002106c de c5                    |        |		ADDA.W	D5,A7
0002106e 48 c1                    |H       |		EXTW.L	D1
00021070 2e 01                    |.       |		MOVE.L	D1,D7
00021072 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021076 52 86                    |R       |		ADDQ.L	#0x1,D6
00021078 bc 84                    |        |		CMP.L	D4,D6
0002107a 6f 00 ff 2c              |o  ,    |		BLE	0x20fa8
0002107e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021080 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021084 4e 5e                    |N^      |		UNLK	A6
00021086 4e 75                    |Nu      |		RTS
00021088 ; --------------------------------------------------------------------------------------
00021088 ; OMSI PASCAL Function
00021088 ;    <LVAR  0x008 4(r)>
00021088 ;    <LVAR -0x002 1(rw)>
00021088 ;    <LVAR -0x006 @ 4(r)>
00021088 ; --------------------------------------------------------------------------------------
00021088 4e 56 ff 72              |NV r    |		LINK.W	A6,#0xff72
0002108c bf d5                    |        |		CMPA.L	(A5),A7
0002108e 62 06                    |b       |		BHI	0x21096
00021090 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021094 4e 76                    |Nv      |		TRAPV
00021096 de fc 00 7a              |   z    |		ADDA.W	#0x7a,A7
0002109a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002109e 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000210a4 74 01                    |t       |		MOVEQ.L	#0x01,D2
000210a6 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000210a8 78 1e                    |x       |		MOVEQ.L	#0x1e,D4
000210aa 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000210ac 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000210ae 2f 3a f1 98              |/:      |		MOVE.L	0x20248,-(A7)
000210b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000210b4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000210b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210ba 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000210be 3f 02                    |?       |		MOVE.W	D2,-(A7)
000210c0 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000210c4 4e 93                    |N       |		JSR	(A3)
000210c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210c8 4e ba f2 e6              |N       |		JSR	0x203b0
000210cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210ce 10 1f                    |        |		MOVE.B	(A7)+,D0
000210d0 48 80                    |H       |		EXTB.W	D0
000210d2 41 82                    |A       |		CHK.W	D2,D0
000210d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210d6 1d 40 ff fe              | @      |		MOVE.B	D0,(A6-0x2)
000210da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210dc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000210e0 4e b9 00 02 21 34        |N   !4  |		JSR	0x22134
000210e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210e8 7a 01                    |z       |		MOVEQ.L	#0x01,D5
000210ea ba 97                    |        |		CMP.L	(A7),D5
000210ec 6e 00 00 de              |n       |		BGT	0x211cc
000210f0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210f2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000210f6 2f 05                    |/       |		MOVE.L	D5,-(A7)
000210f8 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
000210fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021100 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021102 1f 02                    |        |		MOVE.B	D2,-(A7)
00021104 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021106 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002110a 4e b9 00 01 04 58        |N    X  |		JSR	DirFirst(MOD c : Bool; a : String; VAR b : File)
00021110 de c3                    |        |		ADDA.W	D3,A7
00021112 20 6e ff fa              | n      |		MOVEA.L	(A6-0x6),A0
00021116 b0 c2                    |        |		CMPA.W	D2,A0
00021118 67 00 00 ac              |g       |		BEQ	0x211c6
0002111c 42 80                    |B       |		CLR.L	D0
0002111e 30 06                    |0       |		MOVE.W	D6,D0
00021120 32 28 00 20              |2(      |		MOVE.W	(A0+0x20),D1
00021124 48 c1                    |H       |		EXTW.L	D1
00021126 d0 81                    |        |		ADD.L	D1,D0
00021128 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0002112e 63 02                    |c       |		BLS	0x21132
00021130 4e 4f                    |NO      |		TRAP	#15
00021132 3c 00                    |<       |		MOVE.W	D0,D6
00021134 52 87                    |R       |		ADDQ.L	#0x1,D7
00021136 9e c4                    |        |		SUBA.W	D4,A7
00021138 22 4f                    |"O      |		MOVEA.L	A7,A1
0002113a 24 48                    |$H      |		MOVEA.L	A0,A2
0002113c 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0002113e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021140 51 c8 ff fc              |Q       |		DBF	D0,0x2113e
00021144 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00021148 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002114c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002114e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021150 4e 93                    |N       |		JSR	(A3)
00021152 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021154 48 78 00 1f              |Hx      |		PEA.L	0x1f
00021158 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
0002115e 2f 01                    |/       |		MOVE.L	D1,-(A7)
00021160 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021166 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021168 48 78 00 06              |Hx      |		PEA.L	0x6
0002116c 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021172 1e a8 00 3a              |   :    |		MOVE.B	(A0+0x3a),(A7)
00021176 1f 68 00 3b 00 01        | h ;    |		MOVE.B	(A0+0x3b),(A7+0x1)
0002117c 1f 68 00 3c 00 02        | h <    |		MOVE.B	(A0+0x3c),(A7+0x2)
00021182 1f 68 00 3d 00 03        | h =    |		MOVE.B	(A0+0x3d),(A7+0x3)
00021188 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
0002118e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021190 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021196 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002119a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000211a0 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000211a4 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000211a8 67 0a                    |g       |		BEQ	0x211b4
000211aa 48 68 00 20              |Hh      |		PEA.L	(A0+0x20)
000211ae 4e ba fc d4              |N       |		JSR	0x20e84
000211b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211b4 42 27                    |B'      |		CLR.B	-(A7)
000211b6 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000211ba 4e b9 00 01 04 5c        |N    \  |		JSR	DirNext(MOD a : Bool; VAR b : File)
000211c0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000211c2 60 00 ff 4e              |`  N    |		BRA	0x21112
000211c6 52 85                    |R       |		ADDQ.L	#0x1,D5
000211c8 68 00 ff 20              |h       |		BVC	0x210ea
000211cc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211ce 0c 87 00 00 00 02        |        |		CMPI.L	#0x00000002,D7
000211d4 6d 7c                    |m|      |		BLT	0x21252
000211d6 9e c3                    |        |		SUBA.W	D3,A7
000211d8 20 4f                    | O      |		MOVEA.L	A7,A0
000211da 43 fa f0 70              |C  p    |		LEA.L	0x2024c,A1
000211de 70 08                    |p       |		MOVEQ.L	#0x08,D0
000211e0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211e2 51 c8 ff fc              |Q       |		DBF	D0,0x211e0
000211e6 41 fa f0 78              |A  x    |		LEA.L	0x20260,A0
000211ea 70 04                    |p       |		MOVEQ.L	#0x04,D0
000211ec 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000211ee 51 c8 ff fc              |Q       |		DBF	D0,0x211ec
000211f2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000211f4 20 4f                    | O      |		MOVEA.L	A7,A0
000211f6 43 fa f0 68              |C  h    |		LEA.L	0x20260,A1
000211fa 70 06                    |p       |		MOVEQ.L	#0x06,D0
000211fc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211fe 51 c8 ff fc              |Q       |		DBF	D0,0x211fc
00021202 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021204 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00021208 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002120a 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002120e 4e 93                    |N       |		JSR	(A3)
00021210 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021212 42 80                    |B       |		CLR.L	D0
00021214 30 06                    |0       |		MOVE.W	D6,D0
00021216 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021218 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002121e 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00021222 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021224 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021226 4e 93                    |N       |		JSR	(A3)
00021228 2e 87                    |.       |		MOVE.L	D7,(A7)
0002122a 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021230 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00021234 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021236 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
0002123a 4e 93                    |N       |		JSR	(A3)
0002123c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002123e 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
00021244 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021248 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002124e de fc 00 20              |        |		ADDA.W	#0x20,A7
00021252 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021256 4e 5e                    |N^      |		UNLK	A6
00021258 4e 75                    |Nu      |		RTS
0002125a ; --------------------------------------------------------------------------------------
0002125a ; OMSI PASCAL Function
0002125a ;    <LVAR  0x008 4(r)>
0002125a ;    <LVAR -0x002 @ 1(rw)>
0002125a ;    <LVAR -0x024 @>
0002125a ;    <LVAR -0x02a 2(w)>
0002125a ;    <LVAR -0x030 2(w)>
0002125a ;    <LVAR -0x034 @>
0002125a ;    <LVAR -0x03c @ 4(r)>
0002125a ;    <LVAR -0x048 @ 4(rw)>
0002125a ; --------------------------------------------------------------------------------------
0002125a 4e 56 ff 28              |NV (    |		LINK.W	A6,#0xff28
0002125e bf d5                    |        |		CMPA.L	(A5),A7
00021260 62 06                    |b       |		BHI	0x21268
00021262 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021266 4e 76                    |Nv      |		TRAPV
00021268 de fc 00 8c              |        |		ADDA.W	#0x8c,A7
0002126c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021270 45 ee ff b8              |E       |		LEA.L	(A6-0x48),A2
00021274 47 ee ff fe              |G       |		LEA.L	(A6-0x2),A3
00021278 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002127a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002127c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021280 4e b9 00 02 21 34        |N   !4  |		JSR	0x22134
00021286 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021288 2a 1f                    |*       |		MOVE.L	(A7)+,D5
0002128a ba 82                    |        |		CMP.L	D2,D5
0002128c 6c 34                    |l4      |		BGE	0x212c2
0002128e 9e fc 00 44              |   D    |		SUBA.W	#0x44,A7
00021292 20 4f                    | O      |		MOVEA.L	A7,A0
00021294 43 fa ef d2              |C       |		LEA.L	0x20268,A1
00021298 70 42                    |pB      |		MOVEQ.L	#0x42,D0
0002129a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002129c 51 c8 ff fc              |Q       |		DBF	D0,0x2129a
000212a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212a6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000212a8 3f 3c 00 43              |?< C    |		MOVE.W	#0x43,-(A7)
000212ac 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212b4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000212ba de fc 00 48              |   H    |		ADDA.W	#0x48,A7
000212be 60 00 02 0e              |`       |		BRA	0x214ce
000212c2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212c4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000212c8 48 78 00 01              |Hx      |		PEA.L	0x1
000212cc 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
000212d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212d4 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000212d6 3f 3a ef f6              |?:      |		MOVE.W	0x202ce,-(A7)
000212da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212dc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212e0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000212e2 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000212e6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212ee 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000212f0 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000212f2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000212f4 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000212fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212fc 10 1f                    |        |		MOVE.B	(A7)+,D0
000212fe 48 80                    |H       |		EXTB.W	D0
00021300 41 82                    |A       |		CHK.W	D2,D0
00021302 16 80                    |        |		MOVE.B	D0,(A3)
00021304 48 52                    |HR      |		PEA.L	(A2)
00021306 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002130c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002130e 4a 00                    |J       |		TST.B	D0
00021310 67 00 01 48              |g  H    |		BEQ	0x2145a
00021314 0c 85 00 00 00 02        |        |		CMPI.L	#0x00000002,D5
0002131a 67 34                    |g4      |		BEQ	0x21350
0002131c 9e fc 00 44              |   D    |		SUBA.W	#0x44,A7
00021320 20 4f                    | O      |		MOVEA.L	A7,A0
00021322 43 fa ef 44              |C  D    |		LEA.L	0x20268,A1
00021326 70 42                    |pB      |		MOVEQ.L	#0x42,D0
00021328 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002132a 51 c8 ff fc              |Q       |		DBF	D0,0x21328
0002132e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021330 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021334 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021336 3f 3c 00 43              |?< C    |		MOVE.W	#0x43,-(A7)
0002133a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021340 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021342 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021348 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0002134c 60 00 01 0a              |`       |		BRA	0x21458
00021350 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021352 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021356 48 78 00 02              |Hx      |		PEA.L	0x2
0002135a 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
00021360 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021362 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021364 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021366 48 53                    |HS      |		PEA.L	(A3)
00021368 48 6e ff c4              |Hn      |		PEA.L	(A6-0x3c)
0002136c 4e b9 00 01 02 ec        |N       |		JSR	String2Long(src : String; VAR status : Bool; VAR retval : Long)
00021372 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021376 4a 13                    |J       |		TST.B	(A3)
00021378 66 14                    |f       |		BNE	0x2138e
0002137a 9e fc 00 44              |   D    |		SUBA.W	#0x44,A7
0002137e 20 4f                    | O      |		MOVEA.L	A7,A0
00021380 43 fa ee e6              |C       |		LEA.L	0x20268,A1
00021384 70 42                    |pB      |		MOVEQ.L	#0x42,D0
00021386 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021388 51 c8 ff fc              |Q       |		DBF	D0,0x21386
0002138c 60 a0                    |`       |		BRA	0x2132e
0002138e 3d 42 ff d0              |=B      |		MOVE.W	D2,(A6-0x30)
00021392 3d 7c 00 02 ff d6        |=|      |		MOVE.W	#0x2,(A6-0x2a)
00021398 48 6e ff cc              |Hn      |		PEA.L	(A6-0x34)
0002139c 41 ee ff dc              |A       |		LEA.L	(A6-0x24),A0
000213a0 2f 08                    |/       |		MOVE.L	A0,-(A7)
000213a2 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000213a6 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000213ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213ae 3e bc 00 03              |>       |		MOVE.W	#0x3,(A7)
000213b2 48 53                    |HS      |		PEA.L	(A3)
000213b4 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000213ba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000213bc 28 2e ff c4              |(.      |		MOVE.L	(A6-0x3c),D4
000213c0 76 10                    |v       |		MOVEQ.L	#0x10,D3
000213c2 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000213c8 2e 04                    |.       |		MOVE.L	D4,D7
000213ca 2c 03                    |,       |		MOVE.L	D3,D6
000213cc 0c 87 00 00 00 10        |        |		CMPI.L	#0x00000010,D7
000213d2 63 02                    |c       |		BLS	0x213d6
000213d4 4e 4f                    |NO      |		TRAP	#15
000213d6 20 07                    |        |		MOVE.L	D7,D0
000213d8 e3 80                    |        |		ASL.L	#0x1,D0
000213da 0c 86 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D6
000213e0 63 02                    |c       |		BLS	0x213e4
000213e2 4e 4f                    |NO      |		TRAP	#15
000213e4 41 f6 08 dc              |A       |		LEA.L	(A6+D0.L-#0x24),A0
000213e8 20 06                    |        |		MOVE.L	D6,D0
000213ea e6 98                    |        |		ROR.L	#0x3,D0
000213ec d0 c0                    |        |		ADDA.W	D0,A0
000213ee 48 40                    |H@      |		SWAP.W	D0
000213f0 e7 58                    | X      |		ROL.W	#0x3,D0
000213f2 12 10                    |        |		MOVE.B	(A0),D1
000213f4 e1 29                    | )      |		LSL.B	D0,D1
000213f6 ee 09                    |        |		LSR.B	#0x7,D1
000213f8 16 81                    |        |		MOVE.B	D1,(A3)
000213fa 2e 04                    |.       |		MOVE.L	D4,D7
000213fc 2c 03                    |,       |		MOVE.L	D3,D6
000213fe 4a 87                    |J       |		TST.L	D7
00021400 67 2c                    |g,      |		BEQ	0x2142e
00021402 4a 01                    |J       |		TST.B	D1
00021404 67 28                    |g(      |		BEQ	0x2142e
00021406 1f 02                    |        |		MOVE.B	D2,-(A7)
00021408 20 07                    |        |		MOVE.L	D7,D0
0002140a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002140c 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021412 63 02                    |c       |		BLS	0x21416
00021414 4e 4f                    |NO      |		TRAP	#15
00021416 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021418 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
0002141e 63 02                    |c       |		BLS	0x21422
00021420 4e 4f                    |NO      |		TRAP	#15
00021422 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021424 4e b9 00 01 03 fc        |N       |		JSR	SetConsolePrinter(a: Byte; b: Word; c: Word)
0002142a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002142c 60 2a                    |`*      |		BRA	0x21458
0002142e 41 fa ee 9e              |A       |		LEA.L	0x202ce,A0
00021432 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021434 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021436 51 c8 ff fc              |Q       |		DBF	D0,0x21434
0002143a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002143c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021440 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021442 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00021446 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002144c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002144e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021454 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021458 60 74                    |`t      |		BRA	0x214ce
0002145a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002145c 1e ba ee 72              |   r    |		MOVE.B	0x202d0,(A7)
00021460 1f 7a ee 6f 00 01        | z o    |		MOVE.B	0x202d1,(A7+0x1)
00021466 1f 7a ee 6a 00 02        | z j    |		MOVE.B	0x202d2,(A7+0x2)
0002146c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002146e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021472 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021474 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00021478 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002147e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021480 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021482 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021484 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021486 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021488 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002148e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021490 10 1f                    |        |		MOVE.B	(A7)+,D0
00021492 48 80                    |H       |		EXTB.W	D0
00021494 41 82                    |A       |		CHK.W	D2,D0
00021496 16 80                    |        |		MOVE.B	D0,(A3)
00021498 48 52                    |HR      |		PEA.L	(A2)
0002149a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000214a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214a2 4a 00                    |J       |		TST.B	D0
000214a4 67 04                    |g       |		BEQ	0x214aa
000214a6 ba 82                    |        |		CMP.L	D2,D5
000214a8 67 16                    |g       |		BEQ	0x214c0
000214aa 9e fc 00 44              |   D    |		SUBA.W	#0x44,A7
000214ae 20 4f                    | O      |		MOVEA.L	A7,A0
000214b0 43 fa ed b6              |C       |		LEA.L	0x20268,A1
000214b4 70 42                    |pB      |		MOVEQ.L	#0x42,D0
000214b6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214b8 51 c8 ff fc              |Q       |		DBF	D0,0x214b6
000214bc 60 00 fd e2              |`       |		BRA	0x212a0
000214c0 42 27                    |B'      |		CLR.B	-(A7)
000214c2 42 67                    |Bg      |		CLR.W	-(A7)
000214c4 42 67                    |Bg      |		CLR.W	-(A7)
000214c6 4e b9 00 01 03 fc        |N       |		JSR	SetConsolePrinter(a: Byte; b: Word; c: Word)
000214cc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000214ce 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000214d2 4e 5e                    |N^      |		UNLK	A6
000214d4 4e 75                    |Nu      |		RTS
000214d6 ; --------------------------------------------------------------------------------------
000214d6 ; OMSI PASCAL Function
000214d6 ;    <LVAR  0x00c 4(w)>
000214d6 ;    <LVAR  0x008 4(r)>
000214d6 ;    <LVAR -0x008 @ 4(rw)>
000214d6 ; --------------------------------------------------------------------------------------
000214d6 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
000214da bf d5                    |        |		CMPA.L	(A5),A7
000214dc 62 06                    |b       |		BHI	0x214e4
000214de 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000214e2 4e 76                    |Nv      |		TRAPV
000214e4 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
000214e8 48 e7 fb e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
000214ec 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
000214f0 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000214f2 74 01                    |t       |		MOVEQ.L	#0x01,D2
000214f4 2d 7c ff ff ff ff 00 0c  |-|      |		MOVE.L	#0xffffffff,(A6+0xc)
000214fc 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000214fe 20 07                    |        |		MOVE.L	D7,D0
00021500 53 80                    |S       |		SUBQ.L	#0x1,D0
00021502 0c 80 00 00 00 09        |        |		CMPI.L	#0x00000009,D0
00021508 63 02                    |c       |		BLS	0x2150c
0002150a 4e 4f                    |NO      |		TRAP	#15
0002150c 28 00                    |(       |		MOVE.L	D0,D4
0002150e 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00021510 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021516 41 fa ee 34              |A  4    |		LEA.L	0x2034c,A0
0002151a 9e c1                    |        |		SUBA.W	D1,A7
0002151c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002151e 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00021522 70 09                    |p       |		MOVEQ.L	#0x09,D0
00021524 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021526 51 c8 ff fc              |Q       |		DBF	D0,0x21524
0002152a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002152c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021530 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021532 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021534 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002153a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002153c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002153e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021540 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00021544 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021546 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002154c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002154e 10 1f                    |        |		MOVE.B	(A7)+,D0
00021550 48 80                    |H       |		EXTB.W	D0
00021552 41 82                    |A       |		CHK.W	D2,D0
00021554 1c 00                    |        |		MOVE.B	D0,D6
00021556 48 52                    |HR      |		PEA.L	(A2)
00021558 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002155e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021560 4a 06                    |J       |		TST.B	D6
00021562 67 06                    |g       |		BEQ	0x2156a
00021564 2d 47 00 0c              |-G      |		MOVE.L	D7,(A6+0xc)
00021568 60 06                    |`       |		BRA	0x21570
0002156a 52 87                    |R       |		ADDQ.L	#0x1,D7
0002156c be 81                    |        |		CMP.L	D1,D7
0002156e 6f 8e                    |o       |		BLE	0x214fe
00021570 4c df 07 df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2
00021574 4e 5e                    |N^      |		UNLK	A6
00021576 4e 75                    |Nu      |		RTS
00021578 ; --------------------------------------------------------------------------------------
00021578 ; OMSI PASCAL Function
00021578 ;    <LVAR  0x010 4(r)>
00021578 ;    <LVAR  0x00c 4(r)>
00021578 ;    <LVAR  0x008 4(r)>
00021578 ; --------------------------------------------------------------------------------------
00021578 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
0002157c bf d5                    |        |		CMPA.L	(A5),A7
0002157e 62 06                    |b       |		BHI	0x21586
00021580 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021584 4e 76                    |Nv      |		TRAPV
00021586 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002158a 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002158e 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
00021592 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021596 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
0002159a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002159c 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000215a0 4e ba ff 34              |N  4    |		JSR	0x214d6
000215a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215a6 20 1f                    |        |		MOVE.L	(A7)+,D0
000215a8 53 80                    |S       |		SUBQ.L	#0x1,D0
000215aa 0c 80 00 00 00 09        |        |		CMPI.L	#0x00000009,D0
000215b0 62 6c                    |bl      |		BHI	0x2161e
000215b2 d0 40                    | @      |		ADD.W	D0,D0
000215b4 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000215bc 00 14                    |        |		.CONST	0x14			; [0x0] -> 0x215d0
000215be 00 1e                    |        |		.CONST	0x1e			; [0x1] -> 0x215da
000215c0 00 26                    | &      |		.CONST	0x26			; [0x2] -> 0x215e2
000215c2 00 2e                    | .      |		.CONST	0x2e			; [0x3] -> 0x215ea
000215c4 00 36                    | 6      |		.CONST	0x36			; [0x4] -> 0x215f2
000215c6 00 3e                    | >      |		.CONST	0x3e			; [0x5] -> 0x215fa
000215c8 00 46                    | F      |		.CONST	0x46			; [0x6] -> 0x21602
000215ca 00 4e                    | N      |		.CONST	0x4e			; [0x7] -> 0x2160a
000215cc 00 54                    | T      |		.CONST	0x54			; [0x8] -> 0x21610
000215ce 00 5a                    | Z      |		.CONST	0x5a			; [0x9] -> 0x21616
000215d0					switch@0x215b4[0x0]:
000215d0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000215d2 4e ba f7 c2              |N       |		JSR	0x20d96
000215d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215d8 60 46                    |`F      |		BRA	0x21620
000215da					switch@0x215b4[0x1]:
000215da 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000215dc 4e ba fa aa              |N       |		JSR	0x21088
000215e0 60 f4                    |`       |		BRA	0x215d6
000215e2					switch@0x215b4[0x2]:
000215e2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000215e4 4e ba ee 8a              |N       |		JSR	0x20470
000215e8 60 ec                    |`       |		BRA	0x215d6
000215ea					switch@0x215b4[0x3]:
000215ea 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000215ec 4e ba f0 68              |N  h    |		JSR	0x20656
000215f0 60 e4                    |`       |		BRA	0x215d6
000215f2					switch@0x215b4[0x4]:
000215f2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000215f4 4e ba f4 7c              |N  |    |		JSR	0x20a72
000215f8 60 dc                    |`       |		BRA	0x215d6
000215fa					switch@0x215b4[0x5]:
000215fa 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000215fc 4e ba f5 5c              |N  \    |		JSR	0x20b5a
00021600 60 d4                    |`       |		BRA	0x215d6
00021602					switch@0x215b4[0x6]:
00021602 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021604 4e ba f1 e4              |N       |		JSR	0x207ea
00021608 60 cc                    |`       |		BRA	0x215d6
0002160a					switch@0x215b4[0x7]:
0002160a 4e ba f2 c2              |N       |		JSR	0x208ce
0002160e 60 10                    |`       |		BRA	0x21620
00021610					switch@0x215b4[0x8]:
00021610 4e ba f3 92              |N       |		JSR	0x209a4
00021614 60 0a                    |`       |		BRA	0x21620
00021616					switch@0x215b4[0x9]:
00021616 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021618 4e ba fc 40              |N  @    |		JSR	0x2125a
0002161c 60 b8                    |`       |		BRA	0x215d6
0002161e 42 10                    |B       |		CLR.B	(A0)
00021620 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021624 4e 5e                    |N^      |		UNLK	A6
00021626 4e 75                    |Nu      |		RTS
00021628 ; --------------------------------------------------------------------------------------
00021628 ; OMSI PASCAL Function
00021628 ;    <LVAR  0x008 4(r)>
00021628 ; --------------------------------------------------------------------------------------
00021628 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
0002162c bf d5                    |        |		CMPA.L	(A5),A7
0002162e 62 06                    |b       |		BHI	0x21636
00021630 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021634 4e 76                    |Nv      |		TRAPV
00021636 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002163a 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
0002163e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021640 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021646 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021648 1f 01                    |        |		MOVE.B	D1,-(A7)
0002164a 4e b9 00 01 02 10        |N       |		JSR	KC08_PortSomething(port: Word; b: Byte)
00021650 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021652 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021656 43 fa ec e0              |C       |		LEA.L	0x20338,A1
0002165a 70 09                    |p       |		MOVEQ.L	#0x09,D0
0002165c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002165e 51 c8 ff fc              |Q       |		DBF	D0,0x2165c
00021662 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00021666 4e 5e                    |N^      |		UNLK	A6
00021668 4e 75                    |Nu      |		RTS
0002166a ; --------------------------------------------------------------------------------------
0002166a ; COMMAND TABLE
0002166a ; --------------------------------------------------------------------------------------
0002166a					COMMAND_TABLE_2166a:
0002166a 21 40 23 24 25 5e 26 2a  |!@#$%^&*|		.TXT	'!@#$%^&*()'
00021674 57 52 49 54 45 20 20 20  |WRITE   |		.TXT	'WRITE     '
0002167e 42 59 45 20 20 20 20 20  |BYE     |		.TXT	'BYE       '
00021688 48 45 41 50 20 20 20 20  |HEAP    |		.TXT	'HEAP      '
00021692 48 45 4c 50 20 20 20 20  |HELP    |		.TXT	'HELP      '
0002169c 41 42 4f 52 54 20 20 20  |ABORT   |		.TXT	'ABORT     '
000216a6 43 4f 4d 4d 45 4e 54 20  |COMMENT |		.TXT	'COMMENT   '
000216b0 53 45 54 20 20 20 20 20  |SET     |		.TXT	'SET       '
000216ba 56 41 52 20 20 20 20 20  |VAR     |		.TXT	'VAR       '
000216c4 56 41 52 53 20 20 20 20  |VARS    |		.TXT	'VARS      '
000216ce 45 51 20 20 20 20 20 20  |EQ      |		.TXT	'EQ        '
000216d8 4e 45 20 20 20 20 20 20  |NE      |		.TXT	'NE        '
000216e2 43 41 53 45 20 20 20 20  |CASE    |		.TXT	'CASE      '
000216ec 49 4e 53 45 52 54 20 20  |INSERT  |		.TXT	'INSERT    '
000216f6 45 58 54 52 41 43 54 20  |EXTRACT |		.TXT	'EXTRACT   '
00021700 23 43 41 53 45 20 20 20  |#CASE   |		.TXT	'#CASE     '
0002170a 23 45 51 20 20 20 20 20  |#EQ     |		.TXT	'#EQ       '
00021714 23 4e 45 20 20 20 20 20  |#NE     |		.TXT	'#NE       '
0002171e 23 4c 54 20 20 20 20 20  |#LT     |		.TXT	'#LT       '
00021728 23 47 54 20 20 20 20 20  |#GT     |		.TXT	'#GT       '
00021732 23 4c 45 20 20 20 20 20  |#LE     |		.TXT	'#LE       '
0002173c 23 47 45 20 20 20 20 20  |#GE     |		.TXT	'#GE       '
00021746 41 44 44 20 20 20 20 20  |ADD     |		.TXT	'ADD       '
00021750 53 55 42 20 20 20 20 20  |SUB     |		.TXT	'SUB       '
0002175a 4d 55 4c 20 20 20 20 20  |MUL     |		.TXT	'MUL       '
00021764 44 49 56 20 20 20 20 20  |DIV     |		.TXT	'DIV       '
0002176e 4d 4f 44 20 20 20 20 20  |MOD     |		.TXT	'MOD       '
00021778 4f 52 20 20 20 20 20 20  |OR      |		.TXT	'OR        '
00021782 41 4e 44 20 20 20 20 20  |AND     |		.TXT	'AND       '
0002178c 58 4f 52 20 20 20 20 20  |XOR     |		.TXT	'XOR       '
00021796 4c 53 48 49 46 54 20 20  |LSHIFT  |		.TXT	'LSHIFT    '
000217a0 52 53 48 49 46 54 20 20  |RSHIFT  |		.TXT	'RSHIFT    '
000217aa 4e 4f 54 20 20 20 20 20  |NOT     |		.TXT	'NOT       '
000217b4 23 49 4e 53 45 52 54 20  |#INSERT |		.TXT	'#INSERT   '
000217be 23 45 58 54 52 41 43 54  |#EXTRACT|		.TXT	'#EXTRACT  '
000217c8 52 45 41 44 20 20 20 20  |READ    |		.TXT	'READ      '
000217d2 4b 49 4c 4c 20 20 20 20  |KILL    |		.TXT	'KILL      '
000217dc 50 55 53 48 20 20 20 20  |PUSH    |		.TXT	'PUSH      '
000217e6 4c 45 56 45 4c 20 20 20  |LEVEL   |		.TXT	'LEVEL     '
000217f0 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT   '
000217fa 43 4f 55 4e 54 5f 4f 4e  |COUNT_ON|		.TXT	'COUNT_ONES'
00021804 52 45 50 45 41 54 20 20  |REPEAT  |		.TXT	'REPEAT    '
0002180e 4d 4f 44 45 4c 20 20 20  |MODEL   |		.TXT	'MODEL     '
00021818 41 53 43 49 49 20 20 20  |ASCII   |		.TXT	'ASCII     '
00021822 57 72 6f 6e 67 20 6e 75  |Wrong nu|		.TXT	'Wrong number of arguments for :_'
00021842 45 51 2c 4e 45 2c        |EQ,NE,  |		.XXX[0x6]
00021848 23 45 51 2c 23 4e 45 2c  |#EQ,#NE,|		.XXX[0x38]
00021850 23 4c 54 2c 23 47 54 2c  |#LT,#GT,|
00021858 23 4c 45 2c 23 47 45 2c  |#LE,#GE,|
00021860 45 4c 53 45 5d 45 4e 44  |ELSE]END|
00021868 5d 43 41 53 45 2c 23 43  |]CASE,#C|
00021870 41 53 45 2c 57 48 45 4e  |ASE,WHEN|
00021878 2c 45 4e 44 43 41 53 45  |,ENDCASE|
00021880 5d 20                    |]       |		.XXX[0x2]
00021882 45 76 61 6c 75 61 74 69  |Evaluati|		.TXT	'Evaluation buffer overflow. '
0002189e 55 6e 62 61 6c 61 6e 63  |Unbalanc|		.TXT	'Unbalanced [ELSE] or [END]! '
000218ba 5b 57 48 45 4e 20 5d 20  |[WHEN ] |		.TXT	'[WHEN ]   '
000218c4 4e 6f 20 63 61 73 65 20  |No case |		.TXT	'No case alternative found!'
000218de 4e 6f 20 5b 45 4e 44 43  |No [ENDC|		.TXT	'No [ENDCASE] found! '
000218f2 4e 6f 20 68 65 6c 70 20  |No help |		.TXT	'No help available for_'
00021908 2e 48 4c 50              |.HLP    |		.TXT	'.HLP'
0002190c 54 6f 6f 20 66 65 77 20  |Too few |		.TXT	'Too few arguments for SET '
00021926 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown variable :_ '
0002193a 20 69 73 20 6e 6f 74 20  | is not |		.TXT	' is not a program.'
0002194c 43 4c                    |CL      |		.TXT	'CL'
0002194e 49 20                    |I       |		.XXX[0x2]
00021950 2e 4d 32 30 30 20        |.M200   |		.TXT	'.M200 '
00021956 53 54                    |ST      |		.TXT	'ST'
00021958 41 54                    |AT      |		.TXT	'AT'
0002195a 55 53                    |US      |		.TXT	'US'
0002195c 52 45                    |RE      |		.TXT	'RE'
0002195e 53 55                    |SU      |		.TXT	'SU'
00021960 4c 54                    |LT      |		.TXT	'LT'
00021962 4f 66 66 73 65 74 2f 4c  |Offset/L|		.TXT	'Offset/Length error in [INSERT] '
00021982 52 45 50 45 41 54 69 6e  |REPEATin|		.TXT	'REPEATing, type ^G to exit. '
0002199e 41 53 43 49 49 20 61 72  |ASCII ar|		.TXT	'ASCII argument out of range.'
000219ba 4e 6f 74 20 61 20 63 6f  |Not a co|		.TXT	'Not a command or macro :_ '
000219d4 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal marker argument '
000219ec 53 77 69 74 63 68 20 65  |Switch e|		.TXT	'Switch exclusion is unimplemented.'
00021a0e 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal argument marker.'
00021a26 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal argument marker.'
00021a3e 5b 49 4e 49 54 5d 5b 20  |[INIT][ |		.TXT	'[INIT][ '
00021a46 5d 5b 42 59 45 5d 3b 20  |][BYE]; |		.TXT	'][BYE]; '
00021a4e 5b 49 4e 49 54 5d 3b 20  |[INIT]; |		.TXT	'[INIT]; '
00021a56 3e 5f                    |>_      |		.TXT	'>_'
00021a58 5b 20                    |[       |		.TXT	'[ '
00021a5a 5d 3b                    |];      |		.TXT	'];'
00021a5c ; --------------------------------------------------------------------------------------
00021a5c ; COMMAND TABLE
00021a5c ; --------------------------------------------------------------------------------------
00021a5c					COMMAND_TABLE_21a5c:
00021a5c 21 40 23 24 25 5e 26 2a  |!@#$%^&*|		.TXT	'!@#$%^&*()'
00021a66 57 52 49 54 45 20 20 20  |WRITE   |		.TXT	'WRITE     '
00021a70 42 59 45 20 20 20 20 20  |BYE     |		.TXT	'BYE       '
00021a7a 48 45 41 50 20 20 20 20  |HEAP    |		.TXT	'HEAP      '
00021a84 48 45 4c 50 20 20 20 20  |HELP    |		.TXT	'HELP      '
00021a8e 41 42 4f 52 54 20 20 20  |ABORT   |		.TXT	'ABORT     '
00021a98 43 4f 4d 4d 45 4e 54 20  |COMMENT |		.TXT	'COMMENT   '
00021aa2 53 45 54 20 20 20 20 20  |SET     |		.TXT	'SET       '
00021aac 56 41 52 20 20 20 20 20  |VAR     |		.TXT	'VAR       '
00021ab6 56 41 52 53 20 20 20 20  |VARS    |		.TXT	'VARS      '
00021ac0 45 51 20 20 20 20 20 20  |EQ      |		.TXT	'EQ        '
00021aca 4e 45 20 20 20 20 20 20  |NE      |		.TXT	'NE        '
00021ad4 43 41 53 45 20 20 20 20  |CASE    |		.TXT	'CASE      '
00021ade 49 4e 53 45 52 54 20 20  |INSERT  |		.TXT	'INSERT    '
00021ae8 45 58 54 52 41 43 54 20  |EXTRACT |		.TXT	'EXTRACT   '
00021af2 23 43 41 53 45 20 20 20  |#CASE   |		.TXT	'#CASE     '
00021afc 23 45 51 20 20 20 20 20  |#EQ     |		.TXT	'#EQ       '
00021b06 23 4e 45 20 20 20 20 20  |#NE     |		.TXT	'#NE       '
00021b10 23 4c 54 20 20 20 20 20  |#LT     |		.TXT	'#LT       '
00021b1a 23 47 54 20 20 20 20 20  |#GT     |		.TXT	'#GT       '
00021b24 23 4c 45 20 20 20 20 20  |#LE     |		.TXT	'#LE       '
00021b2e 23 47 45 20 20 20 20 20  |#GE     |		.TXT	'#GE       '
00021b38 41 44 44 20 20 20 20 20  |ADD     |		.TXT	'ADD       '
00021b42 53 55 42 20 20 20 20 20  |SUB     |		.TXT	'SUB       '
00021b4c 4d 55 4c 20 20 20 20 20  |MUL     |		.TXT	'MUL       '
00021b56 44 49 56 20 20 20 20 20  |DIV     |		.TXT	'DIV       '
00021b60 4d 4f 44 20 20 20 20 20  |MOD     |		.TXT	'MOD       '
00021b6a 4f 52 20 20 20 20 20 20  |OR      |		.TXT	'OR        '
00021b74 41 4e 44 20 20 20 20 20  |AND     |		.TXT	'AND       '
00021b7e 58 4f 52 20 20 20 20 20  |XOR     |		.TXT	'XOR       '
00021b88 4c 53 48 49 46 54 20 20  |LSHIFT  |		.TXT	'LSHIFT    '
00021b92 52 53 48 49 46 54 20 20  |RSHIFT  |		.TXT	'RSHIFT    '
00021b9c 4e 4f 54 20 20 20 20 20  |NOT     |		.TXT	'NOT       '
00021ba6 23 49 4e 53 45 52 54 20  |#INSERT |		.TXT	'#INSERT   '
00021bb0 23 45 58 54 52 41 43 54  |#EXTRACT|		.TXT	'#EXTRACT  '
00021bba 52 45 41 44 20 20 20 20  |READ    |		.TXT	'READ      '
00021bc4 4b 49 4c 4c 20 20 20 20  |KILL    |		.TXT	'KILL      '
00021bce 50 55 53 48 20 20 20 20  |PUSH    |		.TXT	'PUSH      '
00021bd8 4c 45 56 45 4c 20 20 20  |LEVEL   |		.TXT	'LEVEL     '
00021be2 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT   '
00021bec 43 4f 55 4e 54 5f 4f 4e  |COUNT_ON|		.TXT	'COUNT_ONES'
00021bf6 52 45 50 45 41 54 20 20  |REPEAT  |		.TXT	'REPEAT    '
00021c00 4d 4f 44 45 4c 20 20 20  |MODEL   |		.TXT	'MODEL     '
00021c0a 41 53 43 49 49 20 20 20  |ASCII   |		.TXT	'ASCII     '
00021c14 a5 34 45 73              | 4Es    |		.XXX[0x4]
00021c18 34 22 46 75 33 33 33 33  |4"Fu3333|		.XXX[0x98]
00021c20 33 32 33 66 37 84 44 57  |323f7 DW|
00021c28 a6 55 0f 00 f0 ff 10 22  | U     "|
00021c30 14 31 22 22 22 22 22 22  | 1""""""|
00021c38 22 22 14 3f 1f 03 10 0f  |"" ?    |
00021c40 00 00 00 00 ff ff ff ff  |        |
00021c48 00 01 01 00 01 01 00 01  |        |
00021c50 02 00 00 01 02 00 01 02  |        |
00021c58 00 01 14 06 01 14 08 14  |        |
00021c60 0f 02 03 14 14 08 14 0f  |        |
00021c68 14 14 14 14 14 14 14 04  |        |
00021c70 14 05 14 14 14 14 14 14  |        |
00021c78 14 14 14 14 14 04 14 14  |        |
00021c80 14 14 14 14 04 14 07 14  |        |
00021c88 14 14 14 04 14 14 14 14  |        |
00021c90 14 14 0c 14 14 09 14 14  |        |
00021c98 14 0d 14 14 14 0b 0a 14  |        |
00021ca0 0e 14 14 14 08 14 14 0c  |        |
00021ca8 14 14 09 14 14 14 14 14  |        |
00021cb0 14 14 14 14 14 14 14 14  |        |		.BLANK	14[0x10]
00021cc0 14 14 14 10 14 14 11 14  |        |		.XXX[0x20]
00021cc8 14 14 14 14 14 14 14 14  |        |
00021cd0 14 13 14 14 14 14 14 12  |        |
00021cd8 14 14 14 11 14 14 14 14  |        |
00021ce0 14 14 14 14 14 14        |        |		.XXX[0x6]
00021ce6 ; --------------------------------------------------------------------------------------
00021ce6 ; OMSI PASCAL Function
00021ce6 ;    <LVAR  0x008 4(r)>
00021ce6 ;    <LVAR -0x004 @ 4(w)>
00021ce6 ; --------------------------------------------------------------------------------------
00021ce6 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00021cea bf d5                    |        |		CMPA.L	(A5),A7
00021cec 62 06                    |b       |		BHI	0x21cf4
00021cee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021cf2 4e 76                    |Nv      |		TRAPV
00021cf4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021cf8 48 e7 00 08              |H       |		MOVEM.L	A4,-(A7)
00021cfc 28 6e 00 08              |(n      |		MOVEA.L	(A6+0x8),A4
00021d00 b8 fc 00 01              |        |		CMPA.W	#0x1,A4
00021d04 67 1a                    |g       |		BEQ	0x21d20
00021d06 2d 4c ff fc              |-L      |		MOVE.L	A4,(A6-0x4)
00021d0a 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
00021d0e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021d12 48 78 00 0c              |Hx      |		PEA.L	0xc
00021d16 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
00021d1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d1e 60 e0                    |`       |		BRA	0x21d00
00021d20 4c df 10 00              |L       |		MOVEM.L	(A7)+,A4
00021d24 4e 5e                    |N^      |		UNLK	A6
00021d26 4e 75                    |Nu      |		RTS
00021d28 ; --------------------------------------------------------------------------------------
00021d28 ; OMSI PASCAL Function
00021d28 ;    <LVAR  0x008 4(r)>
00021d28 ; --------------------------------------------------------------------------------------
00021d28 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00021d2c bf d5                    |        |		CMPA.L	(A5),A7
00021d2e 62 06                    |b       |		BHI	0x21d36
00021d30 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021d34 4e 76                    |Nv      |		TRAPV
00021d36 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021d3a 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021d3e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021d42 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00021d46 67 0a                    |g       |		BEQ	0x21d52
00021d48 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021d4a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d52 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00021d56 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
00021d5a 4e f9 00 02 56 04        |N   V   |		JMP	0x25604
00021d60 4c df 01 00 4e 5e 4e 75  |L   N^Nu|		.XXX[0x20]
00021d68 4e 56 ff fc bf d5 62 06  |NV    b |
00021d70 44 fc 00 02 4e 76 de fc  |D   Nv  |
00021d78 00 04 2d 79 00 02 68 32  |  -y  h2|
00021d80 00 08 4e 5e 4e 75        |  N^Nu  |		.XXX[0x6]
00021d86 ; --------------------------------------------------------------------------------------
00021d86 ; OMSI PASCAL Function
00021d86 ;    <LVAR  0x008 1(rw)>
00021d86 ; --------------------------------------------------------------------------------------
00021d86 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00021d8a bf d5                    |        |		CMPA.L	(A5),A7
00021d8c 62 06                    |b       |		BHI	0x21d94
00021d8e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021d92 4e 76                    |Nv      |		TRAPV
00021d94 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021d98 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021d9c 20 39 00 02 68 32        | 9  h2  |		MOVE.L	0x26832,D0
00021da2 b0 b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D0
00021da8 6f 06                    |o       |		BLE	0x21db0
00021daa 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00021dae 60 0c                    |`       |		BRA	0x21dbc
00021db0 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00021db6 1d 70 08 07 00 08        | p      |		MOVE.B	(A0+D0.L+#0x7),(A6+0x8)
00021dbc 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021dc0 4e 5e                    |N^      |		UNLK	A6
00021dc2 4e 75                    |Nu      |		RTS
00021dc4 ; --------------------------------------------------------------------------------------
00021dc4 ; OMSI PASCAL Function
00021dc4 ;    <LVAR  0x008 1(rw)>
00021dc4 ; --------------------------------------------------------------------------------------
00021dc4 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00021dc8 bf d5                    |        |		CMPA.L	(A5),A7
00021dca 62 06                    |b       |		BHI	0x21dd2
00021dcc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021dd0 4e 76                    |Nv      |		TRAPV
00021dd2 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021dd6 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00021dda 43 f9 00 02 68 32        |C   h2  |		LEA.L	0x26832,A1
00021de0 20 11                    |        |		MOVE.L	(A1),D0
00021de2 b0 b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D0
00021de8 6f 06                    |o       |		BLE	0x21df0
00021dea 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00021dee 60 0c                    |`       |		BRA	0x21dfc
00021df0 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00021df6 1d 70 08 07 00 08        | p      |		MOVE.B	(A0+D0.L+#0x7),(A6+0x8)
00021dfc 52 80                    |R       |		ADDQ.L	#0x1,D0
00021dfe 22 80                    |"       |		MOVE.L	D0,(A1)
00021e00 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021e04 4e 5e                    |N^      |		UNLK	A6
00021e06 4e 75                    |Nu      |		RTS
00021e08 ; --------------------------------------------------------------------------------------
00021e08 ; OMSI PASCAL Function
00021e08 ;    <LVAR  0x00c 4(r)>
00021e08 ;    <LVAR  0x008 4(r)>
00021e08 ; --------------------------------------------------------------------------------------
00021e08 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00021e0c bf d5                    |        |		CMPA.L	(A5),A7
00021e0e 62 06                    |b       |		BHI	0x21e16
00021e10 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021e14 4e 76                    |Nv      |		TRAPV
00021e16 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00021e1a 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021e1e 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00021e22 47 f9 00 02 68 32        |G   h2  |		LEA.L	0x26832,A3
00021e28 72 5b                    |r[      |		MOVEQ.L	#0x5b,D1
00021e2a 74 02                    |t       |		MOVEQ.L	#0x02,D2
00021e2c 76 2c                    |v,      |		MOVEQ.L	#0x2c,D3
00021e2e 78 3b                    |x;      |		MOVEQ.L	#0x3b,D4
00021e30 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e32 4e ba ff 52              |N  R    |		JSR	0x21d86
00021e36 10 1f                    |        |		MOVE.B	(A7)+,D0
00021e38 b0 01                    |        |		CMP.B	D1,D0
00021e3a 66 0a                    |f       |		BNE	0x21e46
00021e3c 4e b9 00 02 51 0e        |N   Q   |		JSR	0x2510e
00021e42 60 00 00 92              |`       |		BRA	0x21ed6
00021e46 2c 13                    |,       |		MOVE.L	(A3),D6
00021e48 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e4a 4e ba ff 78              |N  x    |		JSR	0x21dc4
00021e4e 1a 1f                    |        |		MOVE.B	(A7)+,D5
00021e50 66 18                    |f       |		BNE	0x21e6a
00021e52 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021e56 43 fa fd e8              |C       |		LEA.L	0x21c40,A1
00021e5a 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021e5c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e5e 51 c8 ff fc              |Q       |		DBF	D0,0x21e5c
00021e62 20 52                    | R      |		MOVEA.L	(A2),A0
00021e64 10 82                    |        |		MOVE.B	D2,(A0)
00021e66 60 72                    |`r      |		BRA	0x21eda
00021e68 60 5c                    |`\      |		.XXX[0x2]
00021e6a ba 03                    |        |		CMP.B	D3,D5
00021e6c 66 08                    |f       |		BNE	0x21e76
00021e6e 20 52                    | R      |		MOVEA.L	(A2),A0
00021e70 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00021e74 60 50                    |`P      |		BRA	0x21ec6
00021e76 ba 04                    |        |		CMP.B	D4,D5
00021e78 66 08                    |f       |		BNE	0x21e82
00021e7a 20 52                    | R      |		MOVEA.L	(A2),A0
00021e7c 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
00021e80 60 44                    |`D      |		BRA	0x21ec6
00021e82 0c 05 00 5d              |   ]    |		CMPI.B	#0x5d,D5
00021e86 66 06                    |f       |		BNE	0x21e8e
00021e88 20 52                    | R      |		MOVEA.L	(A2),A0
00021e8a 10 82                    |        |		MOVE.B	D2,(A0)
00021e8c 60 38                    |`8      |		BRA	0x21ec6
00021e8e 20 52                    | R      |		MOVEA.L	(A2),A0
00021e90 42 10                    |B       |		CLR.B	(A0)
00021e92 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e94 4e ba fe f0              |N       |		JSR	0x21d86
00021e98 1e 1f                    |        |		MOVE.B	(A7)+,D7
00021e9a be 01                    |        |		CMP.B	D1,D7
00021e9c 66 08                    |f       |		BNE	0x21ea6
00021e9e 4e b9 00 02 51 0e        |N   Q   |		JSR	0x2510e
00021ea4 60 1e                    |`       |		BRA	0x21ec4
00021ea6 be 04                    |        |		CMP.B	D4,D7
00021ea8 67 0e                    |g       |		BEQ	0x21eb8
00021eaa be 03                    |        |		CMP.B	D3,D7
00021eac 67 0a                    |g       |		BEQ	0x21eb8
00021eae 0c 07 00 5d              |   ]    |		CMPI.B	#0x5d,D7
00021eb2 67 04                    |g       |		BEQ	0x21eb8
00021eb4 4a 07                    |J       |		TST.B	D7
00021eb6 66 04                    |f       |		BNE	0x21ebc
00021eb8 60 0c                    |`       |		BRA	0x21ec6
00021eba 60 08                    |`       |		.XXX[0x2]
00021ebc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ebe 4e ba ff 04              |N       |		JSR	0x21dc4
00021ec2 1e 1f                    |        |		MOVE.B	(A7)+,D7
00021ec4 60 cc                    |`       |		BRA	0x21e92
00021ec6 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021eca 20 86                    |        |		MOVE.L	D6,(A0)
00021ecc 21 53 00 04              |!S      |		MOVE.L	(A3),(A0+0x4)
00021ed0 53 a8 00 04              |S       |		SUBQ.L	#0x1,(A0+0x4)
00021ed4 60 04                    |`       |		BRA	0x21eda
00021ed6 60 00 ff 58              |`  X    |		BRA	0x21e30
00021eda 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00021ede 4e 5e                    |N^      |		UNLK	A6
00021ee0 4e 75                    |Nu      |		RTS
00021ee2 ; --------------------------------------------------------------------------------------
00021ee2 ; OMSI PASCAL Function
00021ee2 ;    <LVAR  0x010 4(r)>
00021ee2 ;    <LVAR  0x00c 4(r)>
00021ee2 ;    <LVAR  0x008 4(r)>
00021ee2 ;    <LVAR -0x004 @ 1(rw)>
00021ee2 ;    <LVAR -0x008 4(w)>
00021ee2 ;    <LVAR -0x00c @ 4(w)>
00021ee2 ; --------------------------------------------------------------------------------------
00021ee2 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00021ee6 bf d5                    |        |		CMPA.L	(A5),A7
00021ee8 62 06                    |b       |		BHI	0x21ef0
00021eea 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021eee 4e 76                    |Nv      |		TRAPV
00021ef0 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00021ef4 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00021ef8 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021efc 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00021f00 72 03                    |r       |		MOVEQ.L	#0x03,D1
00021f02 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021f06 10 10                    |        |		MOVE.B	(A0),D0
00021f08 0c 00 00 01              |        |		CMPI.B	#0x01,D0
00021f0c 67 06                    |g       |		BEQ	0x21f14
00021f0e 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00021f12 66 0e                    |f       |		BNE	0x21f22
00021f14 26 ba fd 2a              |&  *    |		MOVE.L	0x21c40,(A3)
00021f18 2d 7a fd 2a ff f8        |-z *    |		MOVE.L	0x21c44,(A6-0x8)
00021f1e 14 80                    |        |		MOVE.B	D0,(A2)
00021f20 60 3c                    |`<      |		BRA	0x21f5e
00021f22 48 53                    |HS      |		PEA.L	(A3)
00021f24 48 52                    |HR      |		PEA.L	(A2)
00021f26 4e ba fe e0              |N       |		JSR	0x21e08
00021f2a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f2c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021f30 4a 12                    |J       |		TST.B	(A2)
00021f32 67 1c                    |g       |		BEQ	0x21f50
00021f34 10 10                    |        |		MOVE.B	(A0),D0
00021f36 b0 01                    |        |		CMP.B	D1,D0
00021f38 66 16                    |f       |		BNE	0x21f50
00021f3a 10 12                    |        |		MOVE.B	(A2),D0
00021f3c 48 80                    |H       |		EXTB.W	D0
00021f3e 41 81                    |A       |		CHK.W	D1,D0
00021f40 10 80                    |        |		MOVE.B	D0,(A0)
00021f42 26 ba fc fc              |&       |		MOVE.L	0x21c40,(A3)
00021f46 2d 7a fc fc ff f8        |-z      |		MOVE.L	0x21c44,(A6-0x8)
00021f4c 42 12                    |B       |		CLR.B	(A2)
00021f4e 60 08                    |`       |		BRA	0x21f58
00021f50 10 12                    |        |		MOVE.B	(A2),D0
00021f52 48 80                    |H       |		EXTB.W	D0
00021f54 41 81                    |A       |		CHK.W	D1,D0
00021f56 10 80                    |        |		MOVE.B	D0,(A0)
00021f58 10 12                    |        |		MOVE.B	(A2),D0
00021f5a b0 01                    |        |		CMP.B	D1,D0
00021f5c 67 c4                    |g       |		BEQ	0x21f22
00021f5e 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00021f62 22 4b                    |"K      |		MOVEA.L	A3,A1
00021f64 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021f66 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f68 51 c8 ff fc              |Q       |		DBF	D0,0x21f66
00021f6c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021f70 10 12                    |        |		MOVE.B	(A2),D0
00021f72 48 80                    |H       |		EXTB.W	D0
00021f74 41 81                    |A       |		CHK.W	D1,D0
00021f76 10 80                    |        |		MOVE.B	D0,(A0)
00021f78 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00021f7c 4e 5e                    |N^      |		UNLK	A6
00021f7e 4e 75                    |Nu      |		RTS
00021f80 ; --------------------------------------------------------------------------------------
00021f80 ; OMSI PASCAL Function
00021f80 ;    <LVAR  0x008 4(rw)>
00021f80 ;    <LVAR -0x004 1(rw)>
00021f80 ;    <LVAR -0x010 2(rw)>
00021f80 ; --------------------------------------------------------------------------------------
00021f80 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00021f84 bf d5                    |        |		CMPA.L	(A5),A7
00021f86 62 06                    |b       |		BHI	0x21f8e
00021f88 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021f8c 4e 76                    |Nv      |		TRAPV
00021f8e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021f92 48 e7 c7 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00021f96 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00021f9a 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021f9e 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00021fa2 72 20                    |r       |		MOVEQ.L	#0x20,D1
00021fa4 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00021fa6 42 51                    |BQ      |		CLR.W	(A1)
00021fa8 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00021faa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fac 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021fae 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00021fb4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021fb6 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021fb8 20 53                    | S      |		MOVEA.L	(A3),A0
00021fba 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021fbc 20 57                    | W      |		MOVEA.L	(A7),A0
00021fbe 30 10                    |0       |		MOVE.W	(A0),D0
00021fc0 48 c0                    |H       |		EXTW.L	D0
00021fc2 bc 80                    |        |		CMP.L	D0,D6
00021fc4 6e 00 00 b0              |n       |		BGT	0x22076
00021fc8 42 80                    |B       |		CLR.L	D0
00021fca 10 30 68 01              | 0h     |		MOVE.B	(A0+D6.L+#0x1),D0
00021fce 02 40 00 7f              | @      |		ANDI.W	#0x007f,D0
00021fd2 14 80                    |        |		MOVE.B	D0,(A2)
00021fd4 0c 00 00 09              |        |		CMPI.B	#0x09,D0
00021fd8 66 02                    |f       |		BNE	0x21fdc
00021fda 14 81                    |        |		MOVE.B	D1,(A2)
00021fdc 42 80                    |B       |		CLR.L	D0
00021fde 10 12                    |        |		MOVE.B	(A2),D0
00021fe0 90 41                    | A      |		SUB.W	D1,D0
00021fe2 0c 40 00 0c              | @      |		CMPI.W	#0x000c,D0
00021fe6 62 30                    |b0      |		BHI	switch@0x21fea[0x2]
00021fe8 d0 40                    | @      |		ADD.W	D0,D0
00021fea 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021ff2 00 1e                    |        |		.CONST	0x1e			; [0x0] -> 0x22010
00021ff4 00 1a                    |        |		.CONST	0x1a			; [0x1] -> 0x2200c
00021ff6 00 26                    | &      |		.CONST	0x26			; [0x2] -> 0x22018
00021ff8 00 26                    | &      |		.CONST	0x26			; [0x3] -> 0x22018
00021ffa 00 26                    | &      |		.CONST	0x26			; [0x4] -> 0x22018
00021ffc 00 26                    | &      |		.CONST	0x26			; [0x5] -> 0x22018
00021ffe 00 26                    | &      |		.CONST	0x26			; [0x6] -> 0x22018
00022000 00 26                    | &      |		.CONST	0x26			; [0x7] -> 0x22018
00022002 00 26                    | &      |		.CONST	0x26			; [0x8] -> 0x22018
00022004 00 26                    | &      |		.CONST	0x26			; [0x9] -> 0x22018
00022006 00 26                    | &      |		.CONST	0x26			; [0xa] -> 0x22018
00022008 00 26                    | &      |		.CONST	0x26			; [0xb] -> 0x22018
0002200a 00 22                    | "      |		.CONST	0x22			; [0xc] -> 0x22014
0002200c					switch@0x21fea[0x1]:
0002200c 60 68                    |`h      |		BRA	0x22076
0002200e 60 0a                    |`       |		.XXX[0x2]
00022010					switch@0x21fea[0x0]:
00022010 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022012 60 06                    |`       |		BRA	0x2201a
00022014					switch@0x21fea[0xc]:
00022014 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022016 60 02                    |`       |		BRA	0x2201a
00022018					switch@0x21fea[0x2]:
00022018					switch@0x21fea[0x3]:
00022018					switch@0x21fea[0x4]:
00022018					switch@0x21fea[0x5]:
00022018					switch@0x21fea[0x6]:
00022018					switch@0x21fea[0x7]:
00022018					switch@0x21fea[0x8]:
00022018					switch@0x21fea[0x9]:
00022018					switch@0x21fea[0xa]:
00022018					switch@0x21fea[0xb]:
00022018 7e 02                    |~       |		MOVEQ.L	#0x02,D7
0002201a 70 03                    |p       |		MOVEQ.L	#0x03,D0
0002201c c1 d1                    |        |		MULS.W	(A1),D0
0002201e 41 fa fc 28              |A  (    |		LEA.L	0x21c48,A0
00022022 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022026 42 80                    |B       |		CLR.L	D0
00022028 10 30 70 00              | 0p     |		MOVE.B	(A0+D7.W),D0
0002202c 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00022030 63 02                    |c       |		BLS	0x22034
00022032 4e 4e                    |NN      |		TRAP	#14
00022034 d0 40                    | @      |		ADD.W	D0,D0
00022036 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002203e 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x22044
00022040 00 08                    |        |		.CONST	0x8			; [0x1] -> 0x22046
00022042 00 12                    |        |		.CONST	0x12			; [0x2] -> 0x22050
00022044					switch@0x22036[0x0]:
00022044 60 16                    |`       |		BRA	0x2205c
00022046					switch@0x22036[0x1]:
00022046 20 57                    | W      |		MOVEA.L	(A7),A0
00022048 11 92 58 01              |  X     |		MOVE.B	(A2),(A0+D5.L+#0x1)
0002204c 52 85                    |R       |		ADDQ.L	#0x1,D5
0002204e 60 0c                    |`       |		BRA	0x2205c
00022050					switch@0x22036[0x2]:
00022050 20 57                    | W      |		MOVEA.L	(A7),A0
00022052 11 bc 00 2c 58 01        |   ,X   |		MOVE.B	#0x2c,(A0+D5.L+#0x1)
00022058 52 85                    |R       |		ADDQ.L	#0x1,D5
0002205a 53 86                    |S       |		SUBQ.L	#0x1,D6
0002205c 70 03                    |p       |		MOVEQ.L	#0x03,D0
0002205e c1 d1                    |        |		MULS.W	(A1),D0
00022060 41 fa fb ef              |A       |		LEA.L	0x21c51,A0
00022064 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022068 42 80                    |B       |		CLR.L	D0
0002206a 10 30 70 00              | 0p     |		MOVE.B	(A0+D7.W),D0
0002206e 32 80                    |2       |		MOVE.W	D0,(A1)
00022070 52 86                    |R       |		ADDQ.L	#0x1,D6
00022072 60 00 ff 48              |`  H    |		BRA	0x21fbc
00022076 20 57                    | W      |		MOVEA.L	(A7),A0
00022078 20 05                    |        |		MOVE.L	D5,D0
0002207a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002207c 30 80                    |0       |		MOVE.W	D0,(A0)
0002207e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022080 4c df 0f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3
00022084 4e 5e                    |N^      |		UNLK	A6
00022086 4e 75                    |Nu      |		RTS
00022088 ; --------------------------------------------------------------------------------------
00022088 ; OMSI PASCAL Function
00022088 ;    <LVAR  0x00c 4(r)>
00022088 ;    <LVAR  0x008 4(r)>
00022088 ;    <LVAR -0x002 @ 1(r)>
00022088 ;    <LVAR -0x00a @>
00022088 ;    <LVAR -0x00e @ 4(r)>
00022088 ;    <LVAR -0x014 @ 1(r)>
00022088 ; --------------------------------------------------------------------------------------
00022088 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
0002208c bf d5                    |        |		CMPA.L	(A5),A7
0002208e 62 06                    |b       |		BHI	0x22096
00022090 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022094 4e 76                    |Nv      |		TRAPV
00022096 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002209a 48 e7 c1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D1+D0,-(A7)
0002209e 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
000220a2 72 01                    |r       |		MOVEQ.L	#0x01,D1
000220a4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220a6 4e ba fc de              |N       |		JSR	0x21d86
000220aa 10 1f                    |        |		MOVE.B	(A7)+,D0
000220ac 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
000220b0 66 08                    |f       |		BNE	0x220ba
000220b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220b4 4e ba fd 0e              |N       |		JSR	0x21dc4
000220b8 1e 1f                    |        |		MOVE.B	(A7)+,D7
000220ba 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000220be 20 81                    |        |		MOVE.L	D1,(A0)
000220c0 42 2e ff ec              |B.      |		CLR.B	(A6-0x14)
000220c4 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000220c8 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000220cc 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000220d0 4e ba fe 10              |N       |		JSR	0x21ee2
000220d4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000220d8 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000220dc 66 36                    |f6      |		BNE	0x22114
000220de 48 53                    |HS      |		PEA.L	(A3)
000220e0 48 78 00 0c              |Hx      |		PEA.L	0xc
000220e4 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
000220ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220ec 20 53                    | S      |		MOVEA.L	(A3),A0
000220ee 22 48                    |"H      |		MOVEA.L	A0,A1
000220f0 45 ee ff f6              |E       |		LEA.L	(A6-0xa),A2
000220f4 70 07                    |p       |		MOVEQ.L	#0x07,D0
000220f6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000220f8 51 c8 ff fc              |Q       |		DBF	D0,0x220f6
000220fc 21 41 00 08              |!A      |		MOVE.L	D1,(A0+0x8)
00022100 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022104 22 50                    |"P      |		MOVEA.L	(A0),A1
00022106 b2 c1                    |        |		CMPA.W	D1,A1
00022108 66 04                    |f       |		BNE	0x2210e
0002210a 20 93                    |        |		MOVE.L	(A3),(A0)
0002210c 60 04                    |`       |		BRA	0x22112
0002210e 29 53 00 08              |)S      |		MOVE.L	(A3),(A4+0x8)
00022112 28 53                    |(S      |		MOVEA.L	(A3),A4
00022114 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00022118 67 aa                    |g       |		BEQ	0x220c4
0002211a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002211e 42 10                    |B       |		CLR.B	(A0)
00022120 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
00022124 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00022128 66 02                    |f       |		BNE	0x2212c
0002212a 52 10                    |R       |		ADDQ.B	#0x1,(A0)
0002212c 4c df 1f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3+A4
00022130 4e 5e                    |N^      |		UNLK	A6
00022132 4e 75                    |Nu      |		RTS
00022134 ; --------------------------------------------------------------------------------------
00022134 ; OMSI PASCAL Function
00022134 ;    <LVAR  0x00c 4(w)>
00022134 ;    <LVAR  0x008 4(r)>
00022134 ; --------------------------------------------------------------------------------------
00022134 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00022138 bf d5                    |        |		CMPA.L	(A5),A7
0002213a 62 06                    |b       |		BHI	0x22142
0002213c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022140 4e 76                    |Nv      |		TRAPV
00022142 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022146 48 e7 01 08              |H       |		MOVEM.L	A4+D7,-(A7)
0002214a 7e ff                    |~       |		MOVEQ.L	#-0x01,D7
0002214c 28 6e 00 08              |(n      |		MOVEA.L	(A6+0x8),A4
00022150 b8 fc 00 01              |        |		CMPA.W	#0x1,A4
00022154 67 08                    |g       |		BEQ	0x2215e
00022156 52 87                    |R       |		ADDQ.L	#0x1,D7
00022158 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
0002215c 60 f2                    |`       |		BRA	0x22150
0002215e 2d 47 00 0c              |-G      |		MOVE.L	D7,(A6+0xc)
00022162 4c df 10 80              |L       |		MOVEM.L	(A7)+,D7+A4
00022166 4e 5e                    |N^      |		UNLK	A6
00022168 4e 75                    |Nu      |		RTS
0002216a ; --------------------------------------------------------------------------------------
0002216a ; OMSI PASCAL Function
0002216a ;    <LVAR  0x00c 4(r)>
0002216a ;    <LVAR  0x008 4(r)>
0002216a ; --------------------------------------------------------------------------------------
0002216a 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
0002216e bf d5                    |        |		CMPA.L	(A5),A7
00022170 62 06                    |b       |		BHI	0x22178
00022172 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022176 4e 76                    |Nv      |		TRAPV
00022178 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
0002217c 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00022180 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022182 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022184 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022188 4e ba ff aa              |N       |		JSR	0x22134
0002218c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002218e 20 1f                    |        |		MOVE.L	(A7)+,D0
00022190 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
00022194 67 58                    |gX      |		BEQ	0x221ee
00022196 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002219a 4e ba fb 4a              |N  J    |		JSR	0x21ce6
0002219e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221a0 41 fa f6 a0              |A       |		LEA.L	0x21842,A0
000221a4 70 07                    |p       |		MOVEQ.L	#0x07,D0
000221a6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000221a8 51 c8 ff fc              |Q       |		DBF	D0,0x221a6
000221ac 41 ee 00 1a              |A       |		LEA.L	(A6+0x1a),A0
000221b0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000221b2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221b4 51 c8 ff fc              |Q       |		DBF	D0,0x221b2
000221b8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000221ba 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
000221be 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221c0 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
000221c4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000221ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221cc 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000221d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221d2 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000221d6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000221dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221de 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000221e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221e6 4e ba fb 40              |N  @    |		JSR	0x21d28
000221ea de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000221ee 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000221f2 4e 5e                    |N^      |		UNLK	A6
000221f4 4e 75                    |Nu      |		RTS
000221f6 ; --------------------------------------------------------------------------------------
000221f6 ; OMSI PASCAL Function
000221f6 ;    <LVAR  0x014 1(rw)>
000221f6 ;    <LVAR  0x010 4(r)>
000221f6 ;    <LVAR  0x00c 4(r)>
000221f6 ;    <LVAR  0x008 4(r)>
000221f6 ; --------------------------------------------------------------------------------------
000221f6 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc		; Spelunked
000221fa bf d5                    |        |		CMPA.L	(A5),A7
000221fc 62 06                    |b       |		BHI	0x22204
000221fe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022202 4e 76                    |Nv      |		TRAPV
00022204 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022208 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
0002220c 42 2e 00 14              |B.      |		CLR.B	(A6+0x14)
00022210 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00022214 d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00022218 b0 b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D0
0002221e 6e 4e                    |nN      |		BGT	0x2226e
00022220 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022224 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022226 be 97                    |        |		CMP.L	(A7),D7
00022228 6e 42                    |nB      |		BGT	0x2226c
0002222a 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
0002222e d0 87                    |        |		ADD.L	D7,D0
00022230 53 80                    |S       |		SUBQ.L	#0x1,D0
00022232 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00022238 63 02                    |c       |		BLS	0x2223c
0002223a 4e 4f                    |NO      |		TRAP	#15
0002223c 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00022242 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
00022246 d2 87                    |        |		ADD.L	D7,D1
00022248 53 81                    |S       |		SUBQ.L	#0x1,D1
0002224a 53 81                    |S       |		SUBQ.L	#0x1,D1
0002224c 0c 81 00 00 00 3e        |     >  |		CMPI.L	#0x0000003e,D1
00022252 63 02                    |c       |		BLS	0x22256
00022254 4e 4f                    |NO      |		TRAP	#15
00022256 43 fa f5 ea              |C       |		LEA.L	0x21842,A1
0002225a 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
0002225e b0 31 18 00              | 1      |		CMP.B	(A1+D1.L),D0
00022262 67 04                    |g       |		BEQ	0x22268
00022264 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022266 60 0c                    |`       |		BRA	0x22274
00022268 52 87                    |R       |		ADDQ.L	#0x1,D7
0002226a 68 ba                    |h       |		BVC	0x22226
0002226c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002226e 1d 7c 00 01 00 14        | |      |		MOVE.B	#0x01,(A6+0x14)
00022274 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00022278 4e 5e                    |N^      |		UNLK	A6
0002227a 4e 75                    |Nu      |		RTS
0002227c ; --------------------------------------------------------------------------------------
0002227c ; OMSI PASCAL Function
0002227c ;    <LVAR  0x00c 4(r)>
0002227c ;    <LVAR  0x008 4(r)>
0002227c ; --------------------------------------------------------------------------------------
0002227c 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00022280 bf d5                    |        |		CMPA.L	(A5),A7
00022282 62 06                    |b       |		BHI	0x2228a
00022284 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022288 4e 76                    |Nv      |		TRAPV
0002228a de fc 00 40              |   @    |		ADDA.W	#0x40,A7
0002228e 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
00022292 45 f9 00 02 68 36        |E   h6  |		LEA.L	0x26836,A2
00022298 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
0002229c 4a 93                    |J       |		TST.L	(A3)
0002229e 6c 3e                    |l>      |		BGE	0x222de
000222a0 20 13                    |        |		MOVE.L	(A3),D0
000222a2 44 80                    |D       |		NEG.L	D0
000222a4 d0 92                    |        |		ADD.L	(A2),D0
000222a6 0c 80 00 00 10 00        |        |		CMPI.L	#0x00001000,D0
000222ac 6f 30                    |o0      |		BLE	0x222de
000222ae 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000222b2 20 4f                    | O      |		MOVEA.L	A7,A0
000222b4 43 fa f5 cc              |C       |		LEA.L	0x21882,A1
000222b8 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000222ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000222bc 51 c8 ff fc              |Q       |		DBF	D0,0x222ba
000222c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000222c2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000222c6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000222ca 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000222ce 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000222d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222d6 4e ba fa 50              |N  P    |		JSR	0x21d28
000222da de fc 00 20              |        |		ADDA.W	#0x20,A7
000222de 41 f9 00 02 58 32        |A   X2  |		LEA.L	0x25832,A0
000222e4 2f 08                    |/       |		MOVE.L	A0,-(A7)
000222e6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000222e8 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000222ec 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000222ee 4e b9 00 01 03 64        |N    d  |		JSR	MovStringTail(Base, Len, Ptr, Delta)
000222f4 de fc 00 10              |        |		ADDA.W	#0x10,A7
000222f8 20 12                    |        |		MOVE.L	(A2),D0
000222fa 90 93                    |        |		SUB.L	(A3),D0
000222fc 24 80                    |$       |		MOVE.L	D0,(A2)
000222fe 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
00022302 4e 5e                    |N^      |		UNLK	A6
00022304 4e 75                    |Nu      |		RTS
00022306 ; --------------------------------------------------------------------------------------
00022306 ; OMSI PASCAL Function
00022306 ;    <LVAR  0x00c 4(r)>
00022306 ;    <LVAR  0x008 4(r)>
00022306 ; --------------------------------------------------------------------------------------
00022306 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
0002230a bf d5                    |        |		CMPA.L	(A5),A7
0002230c 62 06                    |b       |		BHI	0x22314
0002230e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022312 4e 76                    |Nv      |		TRAPV
00022314 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022318 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
0002231c 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00022320 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022324 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022326 22 52                    |"R      |		MOVEA.L	(A2),A1
00022328 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002232a 30 10                    |0       |		MOVE.W	(A0),D0
0002232c 48 c0                    |H       |		EXTW.L	D0
0002232e 44 80                    |D       |		NEG.L	D0
00022330 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022332 4e ba ff 48              |N  H    |		JSR	0x2227c
00022336 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022338 30 10                    |0       |		MOVE.W	(A0),D0
0002233a 48 c0                    |H       |		EXTW.L	D0
0002233c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002233e 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022340 be 97                    |        |		CMP.L	(A7),D7
00022342 6e 36                    |n6      |		BGT	0x2237a
00022344 20 52                    | R      |		MOVEA.L	(A2),A0
00022346 20 07                    |        |		MOVE.L	D7,D0
00022348 d0 90                    |        |		ADD.L	(A0),D0
0002234a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002234c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002234e 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00022354 63 02                    |c       |		BLS	0x22358
00022356 4e 4f                    |NO      |		TRAP	#15
00022358 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
0002235e 22 07                    |"       |		MOVE.L	D7,D1
00022360 53 81                    |S       |		SUBQ.L	#0x1,D1
00022362 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00022368 63 02                    |c       |		BLS	0x2236c
0002236a 4e 4f                    |NO      |		TRAP	#15
0002236c 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00022370 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
00022376 52 87                    |R       |		ADDQ.L	#0x1,D7
00022378 68 c6                    |h       |		BVC	0x22340
0002237a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002237c 20 52                    | R      |		MOVEA.L	(A2),A0
0002237e 22 57                    |"W      |		MOVEA.L	(A7),A1
00022380 30 11                    |0       |		MOVE.W	(A1),D0
00022382 48 c0                    |H       |		EXTW.L	D0
00022384 d1 90                    |        |		ADD.L	D0,(A0)
00022386 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022388 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
0002238c 4e 5e                    |N^      |		UNLK	A6
0002238e 4e 75                    |Nu      |		RTS
00022390 ; --------------------------------------------------------------------------------------
00022390 ; OMSI PASCAL Function
00022390 ;    <LVAR  0x00c 4(r)>
00022390 ;    <LVAR  0x008 4(r)>
00022390 ; --------------------------------------------------------------------------------------
00022390 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00022394 bf d5                    |        |		CMPA.L	(A5),A7
00022396 62 06                    |b       |		BHI	0x2239e
00022398 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002239c 4e 76                    |Nv      |		TRAPV
0002239e de fc 00 50              |   P    |		ADDA.W	#0x50,A7
000223a2 48 e7 c3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
000223a6 45 fa fe 4e              |E  N    |		LEA.L	0x221f6,A2
000223aa 47 f8 00 04              |G       |		LEA.L	0x4,A3
000223ae 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
000223b2 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000223b4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000223b6 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000223ba 42 90                    |B       |		CLR.L	(A0)
000223bc 20 54                    | T      |		MOVEA.L	(A4),A0
000223be 42 90                    |B       |		CLR.L	(A0)
000223c0 2c 39 00 02 68 32        |,9  h2  |		MOVE.L	0x26832,D6
000223c6 20 06                    |        |		MOVE.L	D6,D0
000223c8 53 80                    |S       |		SUBQ.L	#0x1,D0
000223ca 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
000223d0 63 02                    |c       |		BLS	0x223d4
000223d2 4e 4f                    |NO      |		TRAP	#15
000223d4 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
000223da 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
000223de 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
000223e2 66 00 00 d4              |f       |		BNE	0x224b8
000223e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223e8 2f 06                    |/       |		MOVE.L	D6,-(A7)
000223ea 48 78 00 01              |Hx      |		PEA.L	0x1
000223ee 48 78 00 03              |Hx      |		PEA.L	0x3
000223f2 4e 92                    |N       |		JSR	(A2)
000223f4 de c1                    |        |		ADDA.W	D1,A7
000223f6 4a 1f                    |J       |		TST.B	(A7)+
000223f8 66 7e                    |f~      |		BNE	0x22478
000223fa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223fc 2f 06                    |/       |		MOVE.L	D6,-(A7)
000223fe 48 53                    |HS      |		PEA.L	(A3)
00022400 48 78 00 03              |Hx      |		PEA.L	0x3
00022404 4e 92                    |N       |		JSR	(A2)
00022406 de c1                    |        |		ADDA.W	D1,A7
00022408 4a 1f                    |J       |		TST.B	(A7)+
0002240a 66 6c                    |fl      |		BNE	0x22478
0002240c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002240e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022410 48 78 00 07              |Hx      |		PEA.L	0x7
00022414 48 53                    |HS      |		PEA.L	(A3)
00022416 4e 92                    |N       |		JSR	(A2)
00022418 de c1                    |        |		ADDA.W	D1,A7
0002241a 4a 1f                    |J       |		TST.B	(A7)+
0002241c 66 5a                    |fZ      |		BNE	0x22478
0002241e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022420 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022422 48 78 00 0b              |Hx      |		PEA.L	0xb
00022426 48 53                    |HS      |		PEA.L	(A3)
00022428 4e 92                    |N       |		JSR	(A2)
0002242a de c1                    |        |		ADDA.W	D1,A7
0002242c 4a 1f                    |J       |		TST.B	(A7)+
0002242e 66 48                    |fH      |		BNE	0x22478
00022430 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022432 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022434 48 78 00 0f              |Hx      |		PEA.L	0xf
00022438 48 53                    |HS      |		PEA.L	(A3)
0002243a 4e 92                    |N       |		JSR	(A2)
0002243c de c1                    |        |		ADDA.W	D1,A7
0002243e 4a 1f                    |J       |		TST.B	(A7)+
00022440 66 36                    |f6      |		BNE	0x22478
00022442 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022444 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022446 48 78 00 13              |Hx      |		PEA.L	0x13
0002244a 48 53                    |HS      |		PEA.L	(A3)
0002244c 4e 92                    |N       |		JSR	(A2)
0002244e de c1                    |        |		ADDA.W	D1,A7
00022450 4a 1f                    |J       |		TST.B	(A7)+
00022452 66 24                    |f$      |		BNE	0x22478
00022454 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022456 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022458 48 78 00 17              |Hx      |		PEA.L	0x17
0002245c 48 53                    |HS      |		PEA.L	(A3)
0002245e 4e 92                    |N       |		JSR	(A2)
00022460 de c1                    |        |		ADDA.W	D1,A7
00022462 4a 1f                    |J       |		TST.B	(A7)+
00022464 66 12                    |f       |		BNE	0x22478
00022466 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022468 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002246a 48 78 00 1b              |Hx      |		PEA.L	0x1b
0002246e 48 53                    |HS      |		PEA.L	(A3)
00022470 4e 92                    |N       |		JSR	(A2)
00022472 de c1                    |        |		ADDA.W	D1,A7
00022474 4a 1f                    |J       |		TST.B	(A7)+
00022476 67 04                    |g       |		BEQ	0x2247c
00022478 52 87                    |R       |		ADDQ.L	#0x1,D7
0002247a 60 3c                    |`<      |		BRA	0x224b8
0002247c 4a 87                    |J       |		TST.L	D7
0002247e 66 1c                    |f       |		BNE	0x2249c
00022480 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022482 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022484 48 78 00 1f              |Hx      |		PEA.L	0x1f
00022488 48 78 00 05              |Hx      |		PEA.L	0x5
0002248c 4e 92                    |N       |		JSR	(A2)
0002248e de c1                    |        |		ADDA.W	D1,A7
00022490 4a 1f                    |J       |		TST.B	(A7)+
00022492 67 08                    |g       |		BEQ	0x2249c
00022494 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022498 20 86                    |        |		MOVE.L	D6,(A0)
0002249a 60 1c                    |`       |		BRA	0x224b8
0002249c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002249e 2f 06                    |/       |		MOVE.L	D6,-(A7)
000224a0 48 78 00 24              |Hx $    |		PEA.L	0x24
000224a4 48 53                    |HS      |		PEA.L	(A3)
000224a6 4e 92                    |N       |		JSR	(A2)
000224a8 de c1                    |        |		ADDA.W	D1,A7
000224aa 4a 1f                    |J       |		TST.B	(A7)+
000224ac 67 0a                    |g       |		BEQ	0x224b8
000224ae 4a 87                    |J       |		TST.L	D7
000224b0 66 04                    |f       |		BNE	0x224b6
000224b2 20 54                    | T      |		MOVEA.L	(A4),A0
000224b4 60 e2                    |`       |		BRA	0x22498
000224b6 53 87                    |S       |		SUBQ.L	#0x1,D7
000224b8 52 86                    |R       |		ADDQ.L	#0x1,D6
000224ba bc b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D6
000224c0 6e 0e                    |n       |		BGT	0x224d0
000224c2 4a 87                    |J       |		TST.L	D7
000224c4 66 00 ff 00              |f       |		BNE	0x223c6
000224c8 20 54                    | T      |		MOVEA.L	(A4),A0
000224ca 4a 90                    |J       |		TST.L	(A0)
000224cc 67 00 fe f8              |g       |		BEQ	0x223c6
000224d0 bc b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D6
000224d6 6f 30                    |o0      |		BLE	0x22508
000224d8 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000224dc 20 4f                    | O      |		MOVEA.L	A7,A0
000224de 43 fa f3 be              |C       |		LEA.L	0x2189e,A1
000224e2 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000224e4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224e6 51 c8 ff fc              |Q       |		DBF	D0,0x224e4
000224ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224ec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224f0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000224f4 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000224f8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022500 4e ba f8 26              |N  &    |		JSR	0x21d28
00022504 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022508 4c df 1f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
0002250c 4e 5e                    |N^      |		UNLK	A6
0002250e 4e 75                    |Nu      |		RTS
00022510 ; --------------------------------------------------------------------------------------
00022510 ; OMSI PASCAL Function
00022510 ;    <LVAR -0x004 @ 4(r)>
00022510 ;    <LVAR -0x008 @ 4(rw)>
00022510 ; --------------------------------------------------------------------------------------
00022510 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00022514 bf d5                    |        |		CMPA.L	(A5),A7
00022516 62 06                    |b       |		BHI	0x2251e
00022518 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002251c 4e 76                    |Nv      |		TRAPV
0002251e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022522 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00022526 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
0002252a 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
0002252e 48 50                    |HP      |		PEA.L	(A0)
00022530 48 51                    |HQ      |		PEA.L	(A1)
00022532 4e ba fe 5c              |N  \    |		JSR	0x22390
00022536 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022538 4a 90                    |J       |		TST.L	(A0)
0002253a 66 02                    |f       |		BNE	0x2253e
0002253c 20 91                    |        |		MOVE.L	(A1),(A0)
0002253e 20 11                    |        |		MOVE.L	(A1),D0
00022540 5a 80                    |Z       |		ADDQ.L	#0x5,D0
00022542 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022544 90 90                    |        |		SUB.L	(A0),D0
00022546 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022548 4e ba fd 32              |N  2    |		JSR	0x2227c
0002254c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002254e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00022552 4e 5e                    |N^      |		UNLK	A6
00022554 4e 75                    |Nu      |		RTS
00022556 ; --------------------------------------------------------------------------------------
00022556 ; OMSI PASCAL Function
00022556 ;    <LVAR -0x004 @ 4(r)>
00022556 ;    <LVAR -0x008 @ 4(r)>
00022556 ; --------------------------------------------------------------------------------------
00022556 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
0002255a bf d5                    |        |		CMPA.L	(A5),A7
0002255c 62 06                    |b       |		BHI	0x22564
0002255e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022562 4e 76                    |Nv      |		TRAPV
00022564 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022568 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002256c 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00022570 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00022574 48 50                    |HP      |		PEA.L	(A0)
00022576 48 51                    |HQ      |		PEA.L	(A1)
00022578 4e ba fe 16              |N       |		JSR	0x22390
0002257c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002257e 4a 90                    |J       |		TST.L	(A0)
00022580 66 06                    |f       |		BNE	0x22588
00022582 20 11                    |        |		MOVE.L	(A1),D0
00022584 5a 80                    |Z       |		ADDQ.L	#0x5,D0
00022586 60 12                    |`       |		BRA	0x2259a
00022588 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002258a 5a 97                    |Z       |		ADDQ.L	#0x5,(A7)
0002258c 48 78 00 05              |Hx      |		PEA.L	0x5
00022590 4e ba fc ea              |N       |		JSR	0x2227c
00022594 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022596 20 10                    |        |		MOVE.L	(A0),D0
00022598 5c 80                    |\       |		ADDQ.L	#0x6,D0
0002259a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002259c 90 b9 00 02 68 32        |    h2  |		SUB.L	0x26832,D0
000225a2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000225a4 4e ba fc d6              |N       |		JSR	0x2227c
000225a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225aa 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000225ae 4e 5e                    |N^      |		UNLK	A6
000225b0 4e 75                    |Nu      |		RTS
000225b2 ; --------------------------------------------------------------------------------------
000225b2 ; OMSI PASCAL Function
000225b2 ;    <LVAR  0x008 4(r)>
000225b2 ;    <LVAR -0x004 @>
000225b2 ;    <LVAR -0x008 @ 4(r)>
000225b2 ;    <LVAR -0x00c @ 4(rw)>
000225b2 ;    <LVAR -0x010 4(rw)>
000225b2 ;    <LVAR -0x014 4(rw)>
000225b2 ; --------------------------------------------------------------------------------------
000225b2 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
000225b6 bf d5                    |        |		CMPA.L	(A5),A7
000225b8 62 06                    |b       |		BHI	0x225c0
000225ba 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225be 4e 76                    |Nv      |		TRAPV
000225c0 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000225c4 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
000225c8 43 f9 00 02 68 44        |C   hD  |		LEA.L	0x26844,A1
000225ce 45 f9 00 02 68 4a        |E   hJ  |		LEA.L	0x2684a,A2
000225d4 47 f9 00 02 68 32        |G   h2  |		LEA.L	0x26832,A3
000225da 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
000225de 72 01                    |r       |		MOVEQ.L	#0x01,D1
000225e0 4a 11                    |J       |		TST.B	(A1)
000225e2 67 0a                    |g       |		BEQ	0x225ee
000225e4 4a 92                    |J       |		TST.L	(A2)
000225e6 66 06                    |f       |		BNE	0x225ee
000225e8 24 ae 00 08              |$       |		MOVE.L	(A6+0x8),(A2)
000225ec 53 92                    |S       |		SUBQ.L	#0x1,(A2)
000225ee 4a 11                    |J       |		TST.B	(A1)
000225f0 66 00 00 cc              |f       |		BNE	0x226be
000225f4 26 ae 00 08              |&       |		MOVE.L	(A6+0x8),(A3)
000225f8 5c 93                    |\       |		ADDQ.L	#0x6,(A3)
000225fa 48 54                    |HT      |		PEA.L	(A4)
000225fc 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022600 4e ba fa 86              |N       |		JSR	0x22088
00022604 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022606 41 fa f2 bc              |A       |		LEA.L	0x218c4,A0
0002260a 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002260c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002260e 51 c8 ff fc              |Q       |		DBF	D0,0x2260c
00022612 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022614 48 78 00 00              |Hx      |		PEA.L	0x0
00022618 4e ba fb 50              |N  P    |		JSR	0x2216a
0002261c de fc 00 12              |        |		ADDA.W	#0x12,A7
00022620 4a 39 00 02 68 4e        |J9  hN  |		TST.B	0x2684e
00022626 67 1a                    |g       |		BEQ	0x22642
00022628 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002262a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002262c 48 78 00 00              |Hx      |		PEA.L	0x0
00022630 4e b9 00 02 2a 82        |N   *   |		JSR	0x22a82
00022636 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022638 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
0002263c 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022640 60 14                    |`       |		BRA	0x22656
00022642 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022644 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022646 48 78 00 00              |Hx      |		PEA.L	0x0
0002264a 4e b9 00 02 2a 50        |N   *P  |		JSR	0x22a50
00022650 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022652 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00022656 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022658 4e ba f6 8c              |N       |		JSR	0x21ce6
0002265c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002265e 23 d3 00 02 68 46        |#   hF  |		MOVE.L	(A3),0x26846
00022664 4a 39 00 02 68 4e        |J9  hN  |		TST.B	0x2684e
0002266a 67 2a                    |g*      |		BEQ	0x22696
0002266c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002266e 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022672 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00022676 2f 39 00 02 68 58        |/9  hX  |		MOVE.L	0x26858,-(A7)
0002267c 2f 39 00 02 68 54        |/9  hT  |		MOVE.L	0x26854,-(A7)
00022682 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00022688 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002268c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002268e 48 80                    |H       |		EXTB.W	D0
00022690 41 81                    |A       |		CHK.W	D1,D0
00022692 12 80                    |        |		MOVE.B	D0,(A1)
00022694 60 28                    |`(      |		BRA	0x226be
00022696 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022698 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
0002269c 2f 39 00 02 68 50        |/9  hP  |		MOVE.L	0x26850,-(A7)
000226a2 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000226a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226aa 10 1f                    |        |		MOVE.B	(A7)+,D0
000226ac 48 80                    |H       |		EXTB.W	D0
000226ae 41 81                    |A       |		CHK.W	D1,D0
000226b0 12 80                    |        |		MOVE.B	D0,(A1)
000226b2 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000226b6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000226bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000226be 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
000226c2 4e 5e                    |N^      |		UNLK	A6
000226c4 4e 75                    |Nu      |		RTS
000226c6 ; --------------------------------------------------------------------------------------
000226c6 ; OMSI PASCAL Function
000226c6 ;    <LVAR  0x010 4(r)>
000226c6 ;    <LVAR  0x00c 4(r)>
000226c6 ;    <LVAR  0x008 4(r)>
000226c6 ; --------------------------------------------------------------------------------------
000226c6 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
000226ca bf d5                    |        |		CMPA.L	(A5),A7
000226cc 62 06                    |b       |		BHI	0x226d4
000226ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000226d2 4e 76                    |Nv      |		TRAPV
000226d4 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
000226d8 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000226dc 45 f9 00 02 68 4a        |E   hJ  |		LEA.L	0x2684a,A2
000226e2 47 fa fb 12              |G       |		LEA.L	0x221f6,A3
000226e6 49 f9 00 02 68 44        |I   hD  |		LEA.L	0x26844,A4
000226ec 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000226ee 74 01                    |t       |		MOVEQ.L	#0x01,D2
000226f0 42 14                    |B       |		CLR.B	(A4)
000226f2 42 b9 00 02 68 46        |B   hF  |		CLR.L	0x26846
000226f8 42 92                    |B       |		CLR.L	(A2)
000226fa 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000226fc 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000226fe 2a 39 00 02 68 32        |*9  h2  |		MOVE.L	0x26832,D5
00022704 4a 86                    |J       |		TST.L	D6
00022706 66 00 00 a0              |f       |		BNE	0x227a8
0002270a ba b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D5
00022710 6e 00 00 96              |n       |		BGT	0x227a8
00022714 20 05                    |        |		MOVE.L	D5,D0
00022716 53 80                    |S       |		SUBQ.L	#0x1,D0
00022718 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002271e 63 02                    |c       |		BLS	0x22722
00022720 4e 4f                    |NO      |		TRAP	#15
00022722 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00022728 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
0002272c 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
00022730 66 6c                    |fl      |		BNE	0x2279e
00022732 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022734 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022736 48 78 00 28              |Hx (    |		PEA.L	0x28
0002273a 48 78 00 05              |Hx      |		PEA.L	0x5
0002273e 4e 93                    |N       |		JSR	(A3)
00022740 de c1                    |        |		ADDA.W	D1,A7
00022742 4a 1f                    |J       |		TST.B	(A7)+
00022744 66 14                    |f       |		BNE	0x2275a
00022746 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022748 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002274a 48 78 00 2d              |Hx -    |		PEA.L	0x2d
0002274e 48 78 00 06              |Hx      |		PEA.L	0x6
00022752 4e 93                    |N       |		JSR	(A3)
00022754 de c1                    |        |		ADDA.W	D1,A7
00022756 4a 1f                    |J       |		TST.B	(A7)+
00022758 67 04                    |g       |		BEQ	0x2275e
0002275a 52 87                    |R       |		ADDQ.L	#0x1,D7
0002275c 60 40                    |`@      |		BRA	0x2279e
0002275e 4a 87                    |J       |		TST.L	D7
00022760 66 1e                    |f       |		BNE	0x22780
00022762 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022764 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022766 48 78 00 33              |Hx 3    |		PEA.L	0x33
0002276a 48 78 00 05              |Hx      |		PEA.L	0x5
0002276e 4e 93                    |N       |		JSR	(A3)
00022770 de c1                    |        |		ADDA.W	D1,A7
00022772 4a 1f                    |J       |		TST.B	(A7)+
00022774 67 0a                    |g       |		BEQ	0x22780
00022776 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022778 4e ba fe 38              |N  8    |		JSR	0x225b2
0002277c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002277e 60 1e                    |`       |		BRA	0x2279e
00022780 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022782 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022784 48 78 00 38              |Hx 8    |		PEA.L	0x38
00022788 48 78 00 08              |Hx      |		PEA.L	0x8
0002278c 4e 93                    |N       |		JSR	(A3)
0002278e de c1                    |        |		ADDA.W	D1,A7
00022790 4a 1f                    |J       |		TST.B	(A7)+
00022792 67 0a                    |g       |		BEQ	0x2279e
00022794 4a 87                    |J       |		TST.L	D7
00022796 66 04                    |f       |		BNE	0x2279c
00022798 2c 05                    |,       |		MOVE.L	D5,D6
0002279a 60 02                    |`       |		BRA	0x2279e
0002279c 53 87                    |S       |		SUBQ.L	#0x1,D7
0002279e 4a 86                    |J       |		TST.L	D6
000227a0 66 02                    |f       |		BNE	0x227a4
000227a2 52 85                    |R       |		ADDQ.L	#0x1,D5
000227a4 60 00 ff 5e              |`  ^    |		BRA	0x22704
000227a8 4a 39 00 02 68 4e        |J9  hN  |		TST.B	0x2684e
000227ae 66 0e                    |f       |		BNE	0x227be
000227b0 48 79 00 02 68 50        |Hy  hP  |		PEA.L	0x26850
000227b6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000227bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000227be 4a 14                    |J       |		TST.B	(A4)
000227c0 66 28                    |f(      |		BNE	0x227ea
000227c2 41 fa f1 1a              |A       |		LEA.L	0x218de,A0
000227c6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000227c8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000227ca 51 c8 ff fc              |Q       |		DBF	D0,0x227c8
000227ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227d4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000227d6 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
000227da 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000227e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227e2 4e ba f5 44              |N  D    |		JSR	0x21d28
000227e6 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000227ea 4a 86                    |J       |		TST.L	D6
000227ec 66 2e                    |f.      |		BNE	0x2281c
000227ee 9e fc 00 14              |        |		SUBA.W	#0x14,A7
000227f2 20 4f                    | O      |		MOVEA.L	A7,A0
000227f4 43 fa f0 e8              |C       |		LEA.L	0x218de,A1
000227f8 70 12                    |p       |		MOVEQ.L	#0x12,D0
000227fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000227fc 51 c8 ff fc              |Q       |		DBF	D0,0x227fa
00022800 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022802 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022806 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022808 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
0002280c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022812 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022814 4e ba f5 12              |N       |		JSR	0x21d28
00022818 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002281c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022820 20 86                    |        |		MOVE.L	D6,(A0)
00022822 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022826 20 b9 00 02 68 46        |    hF  |		MOVE.L	0x26846,(A0)
0002282c 4a 92                    |J       |		TST.L	(A2)
0002282e 66 0a                    |f       |		BNE	0x2283a
00022830 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022834 20 86                    |        |		MOVE.L	D6,(A0)
00022836 53 90                    |S       |		SUBQ.L	#0x1,(A0)
00022838 60 06                    |`       |		BRA	0x22840
0002283a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002283e 20 92                    |        |		MOVE.L	(A2),(A0)
00022840 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00022844 4e 5e                    |N^      |		UNLK	A6
00022846 4e 75                    |Nu      |		RTS
00022848 ; --------------------------------------------------------------------------------------
00022848 ; OMSI PASCAL Function
00022848 ;    <LVAR  0x008 4(r)>
00022848 ;    <LVAR -0x008 @ 4(r)>
00022848 ;    <LVAR -0x00c @ 4(r)>
00022848 ;    <LVAR -0x010 @ 4(r)>
00022848 ; --------------------------------------------------------------------------------------
00022848 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
0002284c bf d5                    |        |		CMPA.L	(A5),A7
0002284e 62 06                    |b       |		BHI	0x22856
00022850 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022854 4e 76                    |Nv      |		TRAPV
00022856 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0002285a 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
0002285e 41 f9 00 02 68 32        |A   h2  |		LEA.L	0x26832,A0
00022864 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00022868 2c 10                    |,       |		MOVE.L	(A0),D6
0002286a 42 39 00 02 68 4e        |B9  hN  |		CLR.B	0x2684e
00022870 23 ee 00 08 00 02 68 50  |#     hP|		MOVE.L	(A6+0x8),0x26850
00022878 2e 10                    |.       |		MOVE.L	(A0),D7
0002287a 48 51                    |HQ      |		PEA.L	(A1)
0002287c 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00022880 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00022884 4e ba fe 40              |N  @    |		JSR	0x226c6
00022888 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002288c 20 86                    |        |		MOVE.L	D6,(A0)
0002288e 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
00022892 06 80 00 00 00 09        |        |		ADDI.L	#0x00000009,D0
00022898 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002289a 90 ae ff f4              |        |		SUB.L	(A6-0xc),D0
0002289e 53 80                    |S       |		SUBQ.L	#0x1,D0
000228a0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000228a2 4e ba f9 d8              |N       |		JSR	0x2227c
000228a6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228a8 2e 91                    |.       |		MOVE.L	(A1),(A7)
000228aa 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000228ac 9f 97                    |        |		SUB.L	D7,(A7)
000228ae 4e ba f9 cc              |N       |		JSR	0x2227c
000228b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228b4 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
000228b8 4e 5e                    |N^      |		UNLK	A6
000228ba 4e 75                    |Nu      |		RTS
000228bc ; --------------------------------------------------------------------------------------
000228bc ; OMSI PASCAL Function
000228bc ;    <LVAR  0x00c 4(r)>
000228bc ;    <LVAR  0x008 4(r)>
000228bc ;    <LVAR -0x008 @ 4(r)>
000228bc ;    <LVAR -0x00c @ 4(r)>
000228bc ;    <LVAR -0x010 @ 4(r)>
000228bc ; --------------------------------------------------------------------------------------
000228bc 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000228c0 bf d5                    |        |		CMPA.L	(A5),A7
000228c2 62 06                    |b       |		BHI	0x228ca
000228c4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000228c8 4e 76                    |Nv      |		TRAPV
000228ca de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000228ce 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
000228d2 41 f9 00 02 68 32        |A   h2  |		LEA.L	0x26832,A0
000228d8 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
000228dc 2c 10                    |,       |		MOVE.L	(A0),D6
000228de 13 fc 00 01 00 02 68 4e  |      hN|		MOVE.B	#0x01,0x2684e
000228e6 23 ee 00 08 00 02 68 54  |#     hT|		MOVE.L	(A6+0x8),0x26854
000228ee 23 ee 00 0c 00 02 68 58  |#     hX|		MOVE.L	(A6+0xc),0x26858
000228f6 2e 10                    |.       |		MOVE.L	(A0),D7
000228f8 48 51                    |HQ      |		PEA.L	(A1)
000228fa 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000228fe 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00022902 4e ba fd c2              |N       |		JSR	0x226c6
00022906 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002290a 20 86                    |        |		MOVE.L	D6,(A0)
0002290c 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
00022910 06 80 00 00 00 09        |        |		ADDI.L	#0x00000009,D0
00022916 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022918 90 ae ff f4              |        |		SUB.L	(A6-0xc),D0
0002291c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002291e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022920 4e ba f9 5a              |N  Z    |		JSR	0x2227c
00022924 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022926 2e 91                    |.       |		MOVE.L	(A1),(A7)
00022928 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002292a 9f 97                    |        |		SUB.L	D7,(A7)
0002292c 4e ba f9 4e              |N  N    |		JSR	0x2227c
00022930 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022932 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00022936 4e 5e                    |N^      |		UNLK	A6
00022938 4e 75                    |Nu      |		RTS
0002293a ; --------------------------------------------------------------------------------------
0002293a ; OMSI PASCAL Function
0002293a ;    <LVAR  0x010 4(rw)>
0002293a ;    <LVAR  0x00c 4(r)>
0002293a ;    <LVAR  0x008 4(r)>
0002293a ; --------------------------------------------------------------------------------------
0002293a 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
0002293e bf d5                    |        |		CMPA.L	(A5),A7
00022940 62 06                    |b       |		BHI	0x22948
00022942 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022946 4e 76                    |Nv      |		TRAPV
00022948 de fc 00 08              |        |		ADDA.W	#0x8,A7
0002294c 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00022950 4a ae 00 08              |J       |		TST.L	(A6+0x8)
00022954 66 06                    |f       |		BNE	0x2295c
00022956 42 ae 00 10              |B       |		CLR.L	(A6+0x10)
0002295a 60 0e                    |`       |		BRA	0x2296a
0002295c 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00022960 90 ae 00 08              |        |		SUB.L	(A6+0x8),D0
00022964 52 80                    |R       |		ADDQ.L	#0x1,D0
00022966 2d 40 00 10              |-@      |		MOVE.L	D0,(A6+0x10)
0002296a 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0002296e 4e 5e                    |N^      |		UNLK	A6
00022970 4e 75                    |Nu      |		RTS
00022972 ; --------------------------------------------------------------------------------------
00022972 ; OMSI PASCAL Function
00022972 ;    <LVAR  0x014 4(w)>
00022972 ;    <LVAR  0x010 @ 4(w)>
00022972 ;    <LVAR  0x00c 4(r)>
00022972 ;    <LVAR  0x008 4(r)>
00022972 ; --------------------------------------------------------------------------------------
00022972 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00022976 bf d5                    |        |		CMPA.L	(A5),A7
00022978 62 06                    |b       |		BHI	0x22980
0002297a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002297e 4e 76                    |Nv      |		TRAPV
00022980 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022984 48 e7 81 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D0,-(A7)
00022988 28 6e 00 0c              |(n      |		MOVEA.L	(A6+0xc),A4
0002298c 2d 7a f2 b2 00 10        |-z      |		MOVE.L	0x21c40,(A6+0x10)
00022992 2d 7a f2 b0 00 14        |-z      |		MOVE.L	0x21c44,(A6+0x14)
00022998 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002299c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002299e be 97                    |        |		CMP.L	(A7),D7
000229a0 6e 28                    |n(      |		BGT	0x229ca
000229a2 b8 fc 00 01              |        |		CMPA.W	#0x1,A4
000229a6 66 04                    |f       |		BNE	0x229ac
000229a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229aa 60 20                    |`       |		BRA	0x229cc
000229ac be ae 00 08              |        |		CMP.L	(A6+0x8),D7
000229b0 66 10                    |f       |		BNE	0x229c2
000229b2 41 ee 00 10              |A       |		LEA.L	(A6+0x10),A0
000229b6 22 4c                    |"L      |		MOVEA.L	A4,A1
000229b8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000229ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000229bc 51 c8 ff fc              |Q       |		DBF	D0,0x229ba
000229c0 60 04                    |`       |		BRA	0x229c6
000229c2 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
000229c6 52 87                    |R       |		ADDQ.L	#0x1,D7
000229c8 68 d4                    |h       |		BVC	0x2299e
000229ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229cc 4c df 13 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A4
000229d0 4e 5e                    |N^      |		UNLK	A6
000229d2 4e 75                    |Nu      |		RTS
000229d4 ; --------------------------------------------------------------------------------------
000229d4 ; OMSI PASCAL Function
000229d4 ;    <LVAR  0x010 4(w)>
000229d4 ;    <LVAR  0x00c 4(r)>
000229d4 ;    <LVAR  0x008 4(r)>
000229d4 ;    <LVAR -0x008 @ 4(r)>
000229d4 ; --------------------------------------------------------------------------------------
000229d4 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000229d8 bf d5                    |        |		CMPA.L	(A5),A7
000229da 62 06                    |b       |		BHI	0x229e2
000229dc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000229e0 4e 76                    |Nv      |		TRAPV
000229e2 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000229e6 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
000229ea 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
000229ee 48 51                    |HQ      |		PEA.L	(A1)
000229f0 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000229f6 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000229fa 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000229fe 4e ba ff 3a              |N  :    |		JSR	0x2293a
00022a02 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a04 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022a06 be 97                    |        |		CMP.L	(A7),D7
00022a08 6e 38                    |n8      |		BGT	0x22a42
00022a0a 20 07                    |        |		MOVE.L	D7,D0
00022a0c d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00022a10 53 80                    |S       |		SUBQ.L	#0x1,D0
00022a12 53 80                    |S       |		SUBQ.L	#0x1,D0
00022a14 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00022a1a 63 02                    |c       |		BLS	0x22a1e
00022a1c 4e 4f                    |NO      |		TRAP	#15
00022a1e 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00022a24 1c 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D6
00022a28 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
00022a2c 66 04                    |f       |		BNE	0x22a32
00022a2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a30 60 12                    |`       |		BRA	0x22a44
00022a32 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022a34 1f 06                    |        |		MOVE.B	D6,-(A7)
00022a36 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00022a3c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022a3e 52 87                    |R       |		ADDQ.L	#0x1,D7
00022a40 68 c4                    |h       |		BVC	0x22a06
00022a42 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a44 2d 51 00 10              |-Q      |		MOVE.L	(A1),(A6+0x10)
00022a48 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00022a4c 4e 5e                    |N^      |		UNLK	A6
00022a4e 4e 75                    |Nu      |		RTS
00022a50 ; --------------------------------------------------------------------------------------
00022a50 ; OMSI PASCAL Function
00022a50 ;    <LVAR  0x010 4(w)>
00022a50 ;    <LVAR  0x00c 4(r)>
00022a50 ;    <LVAR  0x008 4(r)>
00022a50 ; --------------------------------------------------------------------------------------
00022a50 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00022a54 bf d5                    |        |		CMPA.L	(A5),A7
00022a56 62 06                    |b       |		BHI	0x22a5e
00022a58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022a5c 4e 76                    |Nv      |		TRAPV
00022a5e de fc 00 18              |        |		ADDA.W	#0x18,A7
00022a62 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022a66 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022a6a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022a6e 4e ba ff 02              |N       |		JSR	0x22972
00022a72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a74 4e ba ff 5e              |N  ^    |		JSR	0x229d4
00022a78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a7a 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00022a7e 4e 5e                    |N^      |		UNLK	A6
00022a80 4e 75                    |Nu      |		RTS
00022a82 ; --------------------------------------------------------------------------------------
00022a82 ; OMSI PASCAL Function
00022a82 ;    <LVAR  0x014 4(w)>
00022a82 ;    <LVAR  0x010 4(w)>
00022a82 ;    <LVAR  0x00c 4(r)>
00022a82 ;    <LVAR  0x008 4(r)>
00022a82 ; --------------------------------------------------------------------------------------
00022a82 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00022a86 bf d5                    |        |		CMPA.L	(A5),A7
00022a88 62 06                    |b       |		BHI	0x22a90
00022a8a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022a8e 4e 76                    |Nv      |		TRAPV
00022a90 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022a94 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022a98 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022a9c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022aa0 4e ba ff ae              |N       |		JSR	0x22a50
00022aa4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022aa6 48 78 00 10              |Hx      |		PEA.L	0x10
00022aaa 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
00022ab0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ab2 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00022ab6 2d 5f 00 14              |-_      |		MOVE.L	(A7)+,(A6+0x14)
00022aba 4e 5e                    |N^      |		UNLK	A6
00022abc 4e 75                    |Nu      |		RTS
00022abe ; --------------------------------------------------------------------------------------
00022abe ; OMSI PASCAL Function
00022abe ;    <LVAR  0x010 4(w)>
00022abe ;    <LVAR  0x00c 4(r)>
00022abe ;    <LVAR  0x008 4(r)>
00022abe ; --------------------------------------------------------------------------------------
00022abe 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00022ac2 bf d5                    |        |		CMPA.L	(A5),A7
00022ac4 62 06                    |b       |		BHI	0x22acc
00022ac6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022aca 4e 76                    |Nv      |		TRAPV
00022acc de fc 00 18              |        |		ADDA.W	#0x18,A7
00022ad0 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022ad4 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022ad8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022adc 4e ba ff a4              |N       |		JSR	0x22a82
00022ae0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ae2 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00022ae8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022aea 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00022aee 4e 5e                    |N^      |		UNLK	A6
00022af0 4e 75                    |Nu      |		RTS
00022af2 ; --------------------------------------------------------------------------------------
00022af2 ; OMSI PASCAL Function
00022af2 ;    <LVAR  0x008 @ 4(r)>
00022af2 ; --------------------------------------------------------------------------------------
00022af2 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00022af6 bf d5                    |        |		CMPA.L	(A5),A7
00022af8 62 06                    |b       |		BHI	0x22b00
00022afa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022afe 4e 76                    |Nv      |		TRAPV
00022b00 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022b04 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00022b08 45 f9 00 02 68 32        |E   h2  |		LEA.L	0x26832,A2
00022b0e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022b12 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022b14 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022b16 30 10                    |0       |		MOVE.W	(A0),D0
00022b18 48 c0                    |H       |		EXTW.L	D0
00022b1a 44 80                    |D       |		NEG.L	D0
00022b1c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022b1e 4e ba f7 5c              |N  \    |		JSR	0x2227c
00022b22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b24 30 10                    |0       |		MOVE.W	(A0),D0
00022b26 48 c0                    |H       |		EXTW.L	D0
00022b28 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022b2a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022b2c be 97                    |        |		CMP.L	(A7),D7
00022b2e 6e 34                    |n4      |		BGT	0x22b64
00022b30 20 07                    |        |		MOVE.L	D7,D0
00022b32 d0 92                    |        |		ADD.L	(A2),D0
00022b34 53 80                    |S       |		SUBQ.L	#0x1,D0
00022b36 53 80                    |S       |		SUBQ.L	#0x1,D0
00022b38 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00022b3e 63 02                    |c       |		BLS	0x22b42
00022b40 4e 4f                    |NO      |		TRAP	#15
00022b42 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00022b48 22 07                    |"       |		MOVE.L	D7,D1
00022b4a 53 81                    |S       |		SUBQ.L	#0x1,D1
00022b4c 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00022b52 63 02                    |c       |		BLS	0x22b56
00022b54 4e 4f                    |NO      |		TRAP	#15
00022b56 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00022b5a 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
00022b60 52 87                    |R       |		ADDQ.L	#0x1,D7
00022b62 68 c8                    |h       |		BVC	0x22b2c
00022b64 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b66 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022b6a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022b70 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b72 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
00022b76 4e 5e                    |N^      |		UNLK	A6
00022b78 4e 75                    |Nu      |		RTS
00022b7a ; --------------------------------------------------------------------------------------
00022b7a ; OMSI PASCAL Function
00022b7a ;    <LVAR  0x00c 4(r)>
00022b7a ;    <LVAR  0x008 4(r)>
00022b7a ; --------------------------------------------------------------------------------------
00022b7a 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00022b7e bf d5                    |        |		CMPA.L	(A5),A7
00022b80 62 06                    |b       |		BHI	0x22b88
00022b82 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b86 4e 76                    |Nv      |		TRAPV
00022b88 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022b8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b8e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022b92 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022b96 48 78 00 10              |Hx      |		PEA.L	0x10
00022b9a 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00022ba0 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022ba4 4e ba ff 4c              |N  L    |		JSR	0x22af2
00022ba8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022baa 4e 5e                    |N^      |		UNLK	A6
00022bac 4e 75                    |Nu      |		RTS
00022bae ; --------------------------------------------------------------------------------------
00022bae ; OMSI PASCAL Function
00022bae ;    <LVAR  0x008 4(r)>
00022bae ; --------------------------------------------------------------------------------------
00022bae 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00022bb2 bf d5                    |        |		CMPA.L	(A5),A7
00022bb4 62 06                    |b       |		BHI	0x22bbc
00022bb6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022bba 4e 76                    |Nv      |		TRAPV
00022bbc de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022bc0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022bc2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022bc6 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022bcc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022bce 4e ba ff 22              |N  "    |		JSR	0x22af2
00022bd2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022bd4 4e 5e                    |N^      |		UNLK	A6
00022bd6 4e 75                    |Nu      |		RTS
00022bd8 ; --------------------------------------------------------------------------------------
00022bd8 ; OMSI PASCAL Function
00022bd8 ;    <LVAR  0x008 4(r)>
00022bd8 ;    <LVAR -0x004 @ 4(r)>
00022bd8 ;    <LVAR -0x008 4(rw)>
00022bd8 ; --------------------------------------------------------------------------------------
00022bd8 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00022bdc bf d5                    |        |		CMPA.L	(A5),A7
00022bde 62 06                    |b       |		BHI	0x22be6
00022be0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022be4 4e 76                    |Nv      |		TRAPV
00022be6 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00022bea 48 e7 81 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D0,-(A7)
00022bee 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00022bf2 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00022bf6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022bfa 24 a8 00 08              |$       |		MOVE.L	(A0+0x8),(A2)
00022bfe 48 51                    |HQ      |		PEA.L	(A1)
00022c00 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022c06 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c08 20 52                    | R      |		MOVEA.L	(A2),A0
00022c0a b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00022c0e 67 00 00 86              |g       |		BEQ	0x22c96
00022c12 4a 90                    |J       |		TST.L	(A0)
00022c14 67 68                    |gh      |		BEQ	0x22c7e
00022c16 2f 28 00 04              |/(      |		MOVE.L	(A0+0x4),-(A7)
00022c1a 2e 10                    |.       |		MOVE.L	(A0),D7
00022c1c be 97                    |        |		CMP.L	(A7),D7
00022c1e 6e 14                    |n       |		BGT	0x22c34
00022c20 20 17                    |        |		MOVE.L	(A7),D0
00022c22 0c 87 80 00 00 01        |        |		CMPI.L	#0x80000001,D7
00022c28 6d 08                    |m       |		BLT	0x22c32
00022c2a 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
00022c30 6f 02                    |o       |		BLE	0x22c34
00022c32 4e 4f                    |NO      |		TRAP	#15
00022c34 be 97                    |        |		CMP.L	(A7),D7
00022c36 6e 44                    |nD      |		BGT	0x22c7c
00022c38 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022c3a 20 07                    |        |		MOVE.L	D7,D0
00022c3c 53 80                    |S       |		SUBQ.L	#0x1,D0
00022c3e 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00022c44 63 02                    |c       |		BLS	0x22c48
00022c46 4e 4f                    |NO      |		TRAP	#15
00022c48 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00022c4e 1f 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),-(A7)
00022c52 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00022c58 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022c5a 20 51                    | Q      |		MOVEA.L	(A1),A0
00022c5c 30 10                    |0       |		MOVE.W	(A0),D0
00022c5e 0c 40 00 7a              | @ z    |		CMPI.W	#0x007a,D0
00022c62 6d 14                    |m       |		BLT	0x22c78
00022c64 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022c66 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022c6c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c6e 48 51                    |HQ      |		PEA.L	(A1)
00022c70 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022c76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c78 52 87                    |R       |		ADDQ.L	#0x1,D7
00022c7a 68 b8                    |h       |		BVC	0x22c34
00022c7c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c7e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022c80 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
00022c84 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00022c8a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022c8c 20 52                    | R      |		MOVEA.L	(A2),A0
00022c8e 24 a8 00 08              |$       |		MOVE.L	(A0+0x8),(A2)
00022c92 60 00 ff 74              |`  t    |		BRA	0x22c08
00022c96 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022c98 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c9e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ca0 4c df 07 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2
00022ca4 4e 5e                    |N^      |		UNLK	A6
00022ca6 4e 75                    |Nu      |		RTS
00022ca8 ; --------------------------------------------------------------------------------------
00022ca8 ; OMSI PASCAL Function
00022ca8 ;    <LVAR  0x008 @ 4(r)>
00022ca8 ;    <LVAR -0x003 @ 1(r)>
00022ca8 ;    <LVAR -0x004 @ 1(r)>
00022ca8 ;    <LVAR -0x008 @ 4(r)>
00022ca8 ;    <LVAR -0x00c @ 4(rw)>
00022ca8 ; --------------------------------------------------------------------------------------
00022ca8 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00022cac bf d5                    |        |		CMPA.L	(A5),A7
00022cae 62 06                    |b       |		BHI	0x22cb6
00022cb0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022cb4 4e 76                    |Nv      |		TRAPV
00022cb6 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00022cba 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022cbe 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00022cc2 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00022cc6 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
00022cca 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
00022cce 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022cd0 2f 3a ec 36              |/: 6    |		MOVE.L	0x21908,-(A7)
00022cd4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022cd6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022cd8 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022cde 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00022ce2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ce4 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022ce8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022cee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cf0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022cf6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cf8 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022cfa 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022cfc 42 27                    |B'      |		CLR.B	-(A7)
00022cfe 42 27                    |B'      |		CLR.B	-(A7)
00022d00 48 78 00 00              |Hx      |		PEA.L	0x0
00022d04 48 53                    |HS      |		PEA.L	(A3)
00022d06 48 54                    |HT      |		PEA.L	(A4)
00022d08 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00022d0e de fc 00 14              |        |		ADDA.W	#0x14,A7
00022d12 4a 13                    |J       |		TST.B	(A3)
00022d14 67 36                    |g6      |		BEQ	0x22d4c
00022d16 41 fa eb f0              |A       |		LEA.L	0x21908,A0
00022d1a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022d1c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022d1e 51 c8 ff fc              |Q       |		DBF	D0,0x22d1c
00022d22 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022d24 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022d28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022d2a 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00022d2e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022d34 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d36 2e 91                    |.       |		MOVE.L	(A1),(A7)
00022d38 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022d3e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d40 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022d46 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022d4a 60 54                    |`T      |		BRA	0x22da0
00022d4c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022d4e 48 51                    |HQ      |		PEA.L	(A1)
00022d50 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00022d54 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00022d5a de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022d5e 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
00022d62 66 14                    |f       |		BNE	0x22d78
00022d64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d66 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022d68 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022d6e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d70 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022d76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d78 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
00022d7c 67 ce                    |g       |		BEQ	0x22d4c
00022d7e 42 27                    |B'      |		CLR.B	-(A7)
00022d80 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00022d84 48 78 00 01              |Hx      |		PEA.L	0x1
00022d88 48 53                    |HS      |		PEA.L	(A3)
00022d8a 48 54                    |HT      |		PEA.L	(A4)
00022d8c 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00022d92 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022d96 48 51                    |HQ      |		PEA.L	(A1)
00022d98 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022d9e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022da0 48 52                    |HR      |		PEA.L	(A2)
00022da2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022da8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022daa 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00022dae 4e 5e                    |N^      |		UNLK	A6
00022db0 4e 75                    |Nu      |		RTS
00022db2 ; --------------------------------------------------------------------------------------
00022db2 ; OMSI PASCAL Function
00022db2 ;    <LVAR  0x008 4(r)>
00022db2 ; --------------------------------------------------------------------------------------
00022db2 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00022db6 bf d5                    |        |		CMPA.L	(A5),A7
00022db8 62 06                    |b       |		BHI	0x22dc0
00022dba 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022dbe 4e 76                    |Nv      |		TRAPV
00022dc0 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00022dc4 48 e7 83 88              |H       |		MOVEM.L	A4+A0+D7+D6+D0,-(A7)
00022dc8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022dca 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022dce 4e ba f3 64              |N  d    |		JSR	0x22134
00022dd2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022dd4 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00022dd6 66 2e                    |f.      |		BNE	0x22e06
00022dd8 41 f9 00 02 68 44        |A   hD  |		LEA.L	0x26844,A0
00022dde 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022de0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022de2 51 c8 ff fc              |Q       |		DBF	D0,0x22de0
00022de6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022de8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022dec 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022df0 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00022df4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022dfa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022dfc 4e ba fe aa              |N       |		JSR	0x22ca8
00022e00 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022e04 60 26                    |`&      |		BRA	0x22e2c
00022e06 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022e08 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022e0a be 97                    |        |		CMP.L	(A7),D7
00022e0c 6e 1c                    |n       |		BGT	0x22e2a
00022e0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e10 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022e14 2f 07                    |/       |		MOVE.L	D7,-(A7)
00022e16 4e ba fc 38              |N  8    |		JSR	0x22a50
00022e1a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e1c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022e1e 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00022e20 4e ba fe 86              |N       |		JSR	0x22ca8
00022e24 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022e26 52 87                    |R       |		ADDQ.L	#0x1,D7
00022e28 68 e0                    |h       |		BVC	0x22e0a
00022e2a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022e2c 4c df 11 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A4
00022e30 4e 5e                    |N^      |		UNLK	A6
00022e32 4e 75                    |Nu      |		RTS
00022e34 ; --------------------------------------------------------------------------------------
00022e34 ; OMSI PASCAL Function
00022e34 ;    <LVAR  0x00c @>
00022e34 ;    <LVAR  0x008 @ 4(r)>
00022e34 ;    <LVAR -0x020 @>
00022e34 ; --------------------------------------------------------------------------------------
00022e34 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00022e38 bf d5                    |        |		CMPA.L	(A5),A7
00022e3a 62 06                    |b       |		BHI	0x22e42
00022e3c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e40 4e 76                    |Nv      |		TRAPV
00022e42 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022e46 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00022e4a 74 1d                    |t       |		MOVEQ.L	#0x1d,D2
00022e4c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022e4e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022e52 30 10                    |0       |		MOVE.W	(A0),D0
00022e54 48 c0                    |H       |		EXTW.L	D0
00022e56 be 80                    |        |		CMP.L	D0,D7
00022e58 6f 10                    |o       |		BLE	0x22e6a
00022e5a 20 07                    |        |		MOVE.L	D7,D0
00022e5c 53 80                    |S       |		SUBQ.L	#0x1,D0
00022e5e b0 82                    |        |		CMP.L	D2,D0
00022e60 63 02                    |c       |		BLS	0x22e64
00022e62 4e 4f                    |NO      |		TRAP	#15
00022e64 42 36 08 e0              |B6      |		CLR.B	(A6+D0.L-#0x20)
00022e68 60 1e                    |`       |		BRA	0x22e88
00022e6a 20 07                    |        |		MOVE.L	D7,D0
00022e6c 53 80                    |S       |		SUBQ.L	#0x1,D0
00022e6e b0 82                    |        |		CMP.L	D2,D0
00022e70 63 02                    |c       |		BLS	0x22e74
00022e72 4e 4f                    |NO      |		TRAP	#15
00022e74 22 07                    |"       |		MOVE.L	D7,D1
00022e76 53 81                    |S       |		SUBQ.L	#0x1,D1
00022e78 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00022e7e 63 02                    |c       |		BLS	0x22e82
00022e80 4e 4f                    |NO      |		TRAP	#15
00022e82 1d b0 18 02 08 e0        |        |		MOVE.B	(A0+D1.L+#0x2),(A6+D0.L-#0x20)
00022e88 52 87                    |R       |		ADDQ.L	#0x1,D7
00022e8a 0c 87 00 00 00 1e        |        |		CMPI.L	#0x0000001e,D7
00022e90 6f bc                    |o       |		BLE	0x22e4e
00022e92 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022e96 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022e9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022e9e 41 ee 00 0c              |A       |		LEA.L	(A6+0xc),A0
00022ea2 43 ee ff e0              |C       |		LEA.L	(A6-0x20),A1
00022ea6 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022ea8 30 d9                    |0       |		MOVE.W	(A1)+,(A0)+
00022eaa 51 c8 ff fc              |Q       |		DBF	D0,0x22ea8
00022eae 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
00022eb2 4e 5e                    |N^      |		UNLK	A6
00022eb4 4e 75                    |Nu      |		RTS
00022eb6 ; --------------------------------------------------------------------------------------
00022eb6 ; OMSI PASCAL Function
00022eb6 ;    <LVAR  0x026 4(w)>
00022eb6 ;    <LVAR  0x008 @>
00022eb6 ;    <LVAR -0x006 4(rw)>
00022eb6 ; --------------------------------------------------------------------------------------
00022eb6 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00022eba bf d5                    |        |		CMPA.L	(A5),A7
00022ebc 62 06                    |b       |		BHI	0x22ec4
00022ebe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022ec2 4e 76                    |Nv      |		TRAPV
00022ec4 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022ec8 48 e7 c1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D1+D0,-(A7)
00022ecc 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00022ed0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022ed2 26 b9 00 02 68 5c        |&   h\  |		MOVE.L	0x2685c,(A3)
00022ed8 20 53                    | S      |		MOVEA.L	(A3),A0
00022eda b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00022ede 67 1e                    |g       |		BEQ	0x22efe
00022ee0 4a 07                    |J       |		TST.B	D7
00022ee2 66 1a                    |f       |		BNE	0x22efe
00022ee4 22 48                    |"H      |		MOVEA.L	A0,A1
00022ee6 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00022eea 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022eec b5 09                    |        |		CMPM.B	(A1)+,(A2)+
00022eee 56 c8 ff fc              |V       |		DBNE	D0,0x22eec
00022ef2 66 04                    |f       |		BNE	0x22ef8
00022ef4 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022ef6 60 04                    |`       |		BRA	0x22efc
00022ef8 26 a8 00 26              |&  &    |		MOVE.L	(A0+0x26),(A3)
00022efc 60 da                    |`       |		BRA	0x22ed8
00022efe 2d 48 00 26              |-H &    |		MOVE.L	A0,(A6+0x26)
00022f02 4c df 0f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3
00022f06 4e 5e                    |N^      |		UNLK	A6
00022f08 4e 75                    |Nu      |		RTS
00022f0a ; --------------------------------------------------------------------------------------
00022f0a ; OMSI PASCAL Function
00022f0a ;    <LVAR  0x008 @ 4(r)>
00022f0a ; --------------------------------------------------------------------------------------
00022f0a 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00022f0e bf d5                    |        |		CMPA.L	(A5),A7
00022f10 62 06                    |b       |		BHI	0x22f18
00022f12 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022f16 4e 76                    |Nv      |		TRAPV
00022f18 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022f1c 48 e7 81 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D0,-(A7)
00022f20 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00022f24 45 f9 00 02 68 5c        |E   h\  |		LEA.L	0x2685c,A2
00022f2a 70 01                    |p       |		MOVEQ.L	#0x01,D0
00022f2c 20 51                    | Q      |		MOVEA.L	(A1),A0
00022f2e b0 c0                    |        |		CMPA.W	D0,A0
00022f30 67 56                    |gV      |		BEQ	0x22f88
00022f32 4a a8 00 1e              |J       |		TST.L	(A0+0x1e)
00022f36 67 10                    |g       |		BEQ	0x22f48
00022f38 2f 28 00 22              |/( "    |		MOVE.L	(A0+0x22),-(A7)
00022f3c 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
00022f40 4e b9 00 01 02 a4        |N       |		JSR	Free1(a : Pointer; b : Long)
00022f46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f48 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022f4a 38 40                    |8@      |		MOVEA.W	D0,A4
00022f4c 26 52                    |&R      |		MOVEA.L	(A2),A3
00022f4e b6 c0                    |        |		CMPA.W	D0,A3
00022f50 67 14                    |g       |		BEQ	0x22f66
00022f52 4a 07                    |J       |		TST.B	D7
00022f54 66 10                    |f       |		BNE	0x22f66
00022f56 b7 d1                    |        |		CMPA.L	(A1),A3
00022f58 66 04                    |f       |		BNE	0x22f5e
00022f5a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022f5c 60 06                    |`       |		BRA	0x22f64
00022f5e 28 4b                    |(K      |		MOVEA.L	A3,A4
00022f60 26 6b 00 26              |&k &    |		MOVEA.L	(A3+0x26),A3
00022f64 60 e8                    |`       |		BRA	0x22f4e
00022f66 4a 07                    |J       |		TST.B	D7
00022f68 67 1e                    |g       |		BEQ	0x22f88
00022f6a b8 c0                    |        |		CMPA.W	D0,A4
00022f6c 66 06                    |f       |		BNE	0x22f74
00022f6e 24 ab 00 26              |$  &    |		MOVE.L	(A3+0x26),(A2)
00022f72 60 06                    |`       |		BRA	0x22f7a
00022f74 29 6b 00 26 00 26        |)k & &  |		MOVE.L	(A3+0x26),(A4+0x26)
00022f7a 48 51                    |HQ      |		PEA.L	(A1)
00022f7c 48 78 00 2a              |Hx *    |		PEA.L	0x2a
00022f80 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
00022f86 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f88 4c df 1f 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2+A3+A4
00022f8c 4e 5e                    |N^      |		UNLK	A6
00022f8e 4e 75                    |Nu      |		RTS
00022f90 ; --------------------------------------------------------------------------------------
00022f90 ; OMSI PASCAL Function
00022f90 ;    <LVAR  0x010 4(w)>
00022f90 ;    <LVAR  0x00c 4(r)>
00022f90 ;    <LVAR  0x008 4(r)>
00022f90 ;    <LVAR -0x006 @ 4(rw)>
00022f90 ;    <LVAR -0x024 @>
00022f90 ; --------------------------------------------------------------------------------------
00022f90 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
00022f94 bf d5                    |        |		CMPA.L	(A5),A7
00022f96 62 06                    |b       |		BHI	0x22f9e
00022f98 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022f9c 4e 76                    |Nv      |		TRAPV
00022f9e de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00022fa2 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022fa6 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00022faa 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00022fae 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00022fb0 9e c1                    |        |		SUBA.W	D1,A7
00022fb2 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022fb6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00022fb8 4e ba fe 7a              |N  z    |		JSR	0x22e34
00022fbc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022fbe 41 ee ff dc              |A       |		LEA.L	(A6-0x24),A0
00022fc2 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022fc4 30 df                    |0       |		MOVE.W	(A7)+,(A0)+
00022fc6 51 c8 ff fc              |Q       |		DBF	D0,0x22fc4
00022fca 4a 94                    |J       |		TST.L	(A4)
00022fcc 6c 02                    |l       |		BGE	0x22fd0
00022fce 42 94                    |B       |		CLR.L	(A4)
00022fd0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fd2 20 4b                    | K      |		MOVEA.L	A3,A0
00022fd4 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022fd6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022fd8 51 c8 ff fc              |Q       |		DBF	D0,0x22fd6
00022fdc 4e ba fe d8              |N       |		JSR	0x22eb6
00022fe0 de c1                    |        |		ADDA.W	D1,A7
00022fe2 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022fe4 20 53                    | S      |		MOVEA.L	(A3),A0
00022fe6 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00022fea 67 12                    |g       |		BEQ	0x22ffe
00022fec 20 28 00 1e              | (      |		MOVE.L	(A0+0x1e),D0
00022ff0 b0 94                    |        |		CMP.L	(A4),D0
00022ff2 66 02                    |f       |		BNE	0x22ff6
00022ff4 60 4c                    |`L      |		BRA	0x23042
00022ff6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022ff8 4e ba ff 10              |N       |		JSR	0x22f0a
00022ffc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ffe 48 53                    |HS      |		PEA.L	(A3)
00023000 48 78 00 2a              |Hx *    |		PEA.L	0x2a
00023004 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
0002300a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002300c 20 53                    | S      |		MOVEA.L	(A3),A0
0002300e 21 79 00 02 68 5c 00 26  |!y  h\ &|		MOVE.L	0x2685c,(A0+0x26)
00023016 23 d3 00 02 68 5c        |#   h\  |		MOVE.L	(A3),0x2685c
0002301c 22 48                    |"H      |		MOVEA.L	A0,A1
0002301e 45 ee ff dc              |E       |		LEA.L	(A6-0x24),A2
00023022 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00023024 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023026 51 c8 ff fc              |Q       |		DBF	D0,0x23024
0002302a 21 54 00 1e              |!T      |		MOVE.L	(A4),(A0+0x1e)
0002302e 4a 94                    |J       |		TST.L	(A4)
00023030 67 10                    |g       |		BEQ	0x23042
00023032 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023034 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023036 4e b9 00 01 02 a0        |N       |		JSR	Malloc2(VAR dst : Pointer; length : Word)
0002303c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002303e 21 5f 00 22              |!_ "    |		MOVE.L	(A7)+,(A0+0x22)
00023042 2d 53 00 10              |-S      |		MOVE.L	(A3),(A6+0x10)
00023046 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
0002304a 4e 5e                    |N^      |		UNLK	A6
0002304c 4e 75                    |Nu      |		RTS
0002304e ; --------------------------------------------------------------------------------------
0002304e ; OMSI PASCAL Function
0002304e ;    <LVAR  0x00c @>
0002304e ;    <LVAR  0x008 @ 4(r)>
0002304e ;    <LVAR -0x008 4(rw)>
0002304e ; --------------------------------------------------------------------------------------
0002304e 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00023052 bf d5                    |        |		CMPA.L	(A5),A7
00023054 62 06                    |b       |		BHI	0x2305c
00023056 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002305a 4e 76                    |Nv      |		TRAPV
0002305c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00023060 48 e7 c3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D1+D0,-(A7)
00023064 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00023068 20 52                    | R      |		MOVEA.L	(A2),A0
0002306a 30 10                    |0       |		MOVE.W	(A0),D0
0002306c 48 c0                    |H       |		EXTW.L	D0
0002306e 2c 00                    |,       |		MOVE.L	D0,D6
00023070 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023072 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00023076 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023078 4e ba ff 16              |N       |		JSR	0x22f90
0002307c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002307e 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00023082 4a 86                    |J       |		TST.L	D6
00023084 67 40                    |g@      |		BEQ	0x230c6
00023086 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
0002308a 20 68 00 22              | h "    |		MOVEA.L	(A0+0x22),A0
0002308e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00023090 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023092 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023094 be 97                    |        |		CMP.L	(A7),D7
00023096 6e 2c                    |n,      |		BGT	0x230c4
00023098 20 07                    |        |		MOVE.L	D7,D0
0002309a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002309c 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
000230a2 63 02                    |c       |		BLS	0x230a6
000230a4 4e 4f                    |NO      |		TRAP	#15
000230a6 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000230aa 22 52                    |"R      |		MOVEA.L	(A2),A1
000230ac 22 07                    |"       |		MOVE.L	D7,D1
000230ae 53 81                    |S       |		SUBQ.L	#0x1,D1
000230b0 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
000230b6 63 02                    |c       |		BLS	0x230ba
000230b8 4e 4f                    |NO      |		TRAP	#15
000230ba 11 b1 18 02 08 00        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L)
000230c0 52 87                    |R       |		ADDQ.L	#0x1,D7
000230c2 68 d0                    |h       |		BVC	0x23094
000230c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230c6 48 52                    |HR      |		PEA.L	(A2)
000230c8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000230ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000230d0 4c df 07 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2
000230d4 4e 5e                    |N^      |		UNLK	A6
000230d6 4e 75                    |Nu      |		RTS
000230d8 ; --------------------------------------------------------------------------------------
000230d8 ; OMSI PASCAL Function
000230d8 ;    <LVAR  0x008 4(r)>
000230d8 ;    <LVAR -0x004 @ 4(w)>
000230d8 ;    <LVAR -0x008 4(rw)>
000230d8 ;    <LVAR -0x00c 4(rw)>
000230d8 ;    <LVAR -0x010 4(rw)>
000230d8 ;    <LVAR -0x01c 4(rw)>
000230d8 ;    <LVAR -0x020 4(rw)>
000230d8 ; --------------------------------------------------------------------------------------
000230d8 4e 56 ff 82              |NV      |		LINK.W	A6,#0xff82
000230dc bf d5                    |        |		CMPA.L	(A5),A7
000230de 62 06                    |b       |		BHI	0x230e6
000230e0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000230e4 4e 76                    |Nv      |		TRAPV
000230e6 de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
000230ea 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000230ee 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
000230f2 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
000230f6 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
000230fa 74 01                    |t       |		MOVEQ.L	#0x01,D2
000230fc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000230fe 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023100 4e ba f0 32              |N  2    |		JSR	0x22134
00023104 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023106 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00023108 20 13                    |        |		MOVE.L	(A3),D0
0002310a b0 82                    |        |		CMP.L	D2,D0
0002310c 6c 2e                    |l.      |		BGE	0x2313c
0002310e 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00023112 20 4f                    | O      |		MOVEA.L	A7,A0
00023114 43 fa e7 f6              |C       |		LEA.L	0x2190c,A1
00023118 72 18                    |r       |		MOVEQ.L	#0x18,D1
0002311a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002311c 51 c9 ff fc              |Q       |		DBF	D1,0x2311a
00023120 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023122 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023126 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023128 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
0002312c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023132 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023134 4e ba eb f2              |N       |		JSR	0x21d28
00023138 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002313c 42 92                    |B       |		CLR.L	(A2)
0002313e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023140 7c 02                    ||       |		MOVEQ.L	#0x02,D6
00023142 bc 97                    |        |		CMP.L	(A7),D6
00023144 6e 1e                    |n       |		BGT	0x23164
00023146 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
0002314a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002314c 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002314e 4e ba f8 22              |N  "    |		JSR	0x22972
00023152 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023154 4e ba f7 e4              |N       |		JSR	0x2293a
00023158 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002315a 20 12                    |        |		MOVE.L	(A2),D0
0002315c d0 9f                    |        |		ADD.L	(A7)+,D0
0002315e 24 80                    |$       |		MOVE.L	D0,(A2)
00023160 52 86                    |R       |		ADDQ.L	#0x1,D6
00023162 68 de                    |h       |		BVC	0x23142
00023164 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023166 20 13                    |        |		MOVE.L	(A3),D0
00023168 55 80                    |U       |		SUBQ.L	#0x2,D0
0002316a d1 92                    |        |		ADD.L	D0,(A2)
0002316c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002316e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023170 48 78 00 01              |Hx      |		PEA.L	0x1
00023174 4e ba f8 da              |N       |		JSR	0x22a50
00023178 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002317a 2d 57 ff fc              |-W      |		MOVE.L	(A7),(A6-0x4)
0002317e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00023182 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023184 4e ba fe 0a              |N       |		JSR	0x22f90
00023188 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002318a 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
0002318e 4a 92                    |J       |		TST.L	(A2)
00023190 6f 00 00 aa              |o       |		BLE	0x2323c
00023194 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
00023198 20 68 00 22              | h "    |		MOVEA.L	(A0+0x22),A0
0002319c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002319e 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000231a0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000231a2 7c 02                    ||       |		MOVEQ.L	#0x02,D6
000231a4 bc 97                    |        |		CMP.L	(A7),D6
000231a6 6e 00 00 92              |n       |		BGT	0x2323a
000231aa 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000231ac 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000231ae 2f 06                    |/       |		MOVE.L	D6,-(A7)
000231b0 4e ba f7 c0              |N       |		JSR	0x22972
000231b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000231b6 2d 5f ff e0              |-_      |		MOVE.L	(A7)+,(A6-0x20)
000231ba 2d 5f ff e4              |-_      |		MOVE.L	(A7)+,(A6-0x1c)
000231be 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
000231c2 2a 2e ff e0              |*.      |		MOVE.L	(A6-0x20),D5
000231c6 ba 97                    |        |		CMP.L	(A7),D5
000231c8 6e 14                    |n       |		BGT	0x231de
000231ca 20 17                    |        |		MOVE.L	(A7),D0
000231cc 0c 85 80 00 00 01        |        |		CMPI.L	#0x80000001,D5
000231d2 6d 08                    |m       |		BLT	0x231dc
000231d4 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
000231da 6f 02                    |o       |		BLE	0x231de
000231dc 4e 4f                    |NO      |		TRAP	#15
000231de ba 97                    |        |		CMP.L	(A7),D5
000231e0 6e 32                    |n2      |		BGT	0x23214
000231e2 20 07                    |        |		MOVE.L	D7,D0
000231e4 53 80                    |S       |		SUBQ.L	#0x1,D0
000231e6 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
000231ec 63 02                    |c       |		BLS	0x231f0
000231ee 4e 4f                    |NO      |		TRAP	#15
000231f0 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
000231f4 22 05                    |"       |		MOVE.L	D5,D1
000231f6 53 81                    |S       |		SUBQ.L	#0x1,D1
000231f8 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
000231fe 63 02                    |c       |		BLS	0x23202
00023200 4e 4f                    |NO      |		TRAP	#15
00023202 43 f9 00 02 58 2a        |C   X*  |		LEA.L	0x2582a,A1
00023208 11 b1 18 08 08 00        |        |		MOVE.B	(A1+D1.L+#0x8),(A0+D0.L)
0002320e 52 87                    |R       |		ADDQ.L	#0x1,D7
00023210 52 85                    |R       |		ADDQ.L	#0x1,D5
00023212 68 ca                    |h       |		BVC	0x231de
00023214 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023216 bc 93                    |        |		CMP.L	(A3),D6
00023218 67 1a                    |g       |		BEQ	0x23234
0002321a 20 07                    |        |		MOVE.L	D7,D0
0002321c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002321e 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
00023224 63 02                    |c       |		BLS	0x23228
00023226 4e 4f                    |NO      |		TRAP	#15
00023228 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0002322c 11 bc 00 2c 08 00        |   ,    |		MOVE.B	#0x2c,(A0+D0.L)
00023232 52 87                    |R       |		ADDQ.L	#0x1,D7
00023234 52 86                    |R       |		ADDQ.L	#0x1,D6
00023236 68 00 ff 6c              |h  l    |		BVC	0x231a4
0002323a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002323c 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00023240 4e 5e                    |N^      |		UNLK	A6
00023242 4e 75                    |Nu      |		RTS
00023244 ; --------------------------------------------------------------------------------------
00023244 ; OMSI PASCAL Function
00023244 ;    <LVAR  0x008 4(r)>
00023244 ;    <LVAR -0x00c 4(rw)>
00023244 ; --------------------------------------------------------------------------------------
00023244 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00023248 bf d5                    |        |		CMPA.L	(A5),A7
0002324a 62 06                    |b       |		BHI	0x23252
0002324c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023250 4e 76                    |Nv      |		TRAPV
00023252 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00023256 48 e7 e1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
0002325a 47 f9 00 02 68 32        |G   h2  |		LEA.L	0x26832,A3
00023260 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023262 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023264 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023268 48 78 00 01              |Hx      |		PEA.L	0x1
0002326c 4e ba f7 e2              |N       |		JSR	0x22a50
00023270 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023272 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00023274 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00023278 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002327a 4e ba fb b8              |N       |		JSR	0x22e34
0002327e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023280 4e ba fc 34              |N  4    |		JSR	0x22eb6
00023284 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023288 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
0002328c 20 6e ff f4              | n      |		MOVEA.L	(A6-0xc),A0
00023290 b0 c2                    |        |		CMPA.W	D2,A0
00023292 66 42                    |fB      |		BNE	0x232d6
00023294 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00023298 22 4f                    |"O      |		MOVEA.L	A7,A1
0002329a 45 fa e6 8a              |E       |		LEA.L	0x21926,A2
0002329e 70 12                    |p       |		MOVEQ.L	#0x12,D0
000232a0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000232a2 51 c8 ff fc              |Q       |		DBF	D0,0x232a0
000232a6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000232a8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000232ac 3f 02                    |?       |		MOVE.W	D2,-(A7)
000232ae 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000232b2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000232b8 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000232bc 48 78 00 01              |Hx      |		PEA.L	0x1
000232c0 4e ba f7 8e              |N       |		JSR	0x22a50
000232c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232c6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000232cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232ce 4e ba ea 58              |N  X    |		JSR	0x21d28
000232d2 de fc 00 18              |        |		ADDA.W	#0x18,A7
000232d6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000232d8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000232da 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
000232de 44 97                    |D       |		NEG.L	(A7)
000232e0 4e ba ef 9a              |N       |		JSR	0x2227c
000232e4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000232e6 2e a8 00 1e              |.       |		MOVE.L	(A0+0x1e),(A7)
000232ea 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000232ec be 97                    |        |		CMP.L	(A7),D7
000232ee 6e 38                    |n8      |		BGT	0x23328
000232f0 20 07                    |        |		MOVE.L	D7,D0
000232f2 d0 93                    |        |		ADD.L	(A3),D0
000232f4 53 80                    |S       |		SUBQ.L	#0x1,D0
000232f6 53 80                    |S       |		SUBQ.L	#0x1,D0
000232f8 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
000232fe 63 02                    |c       |		BLS	0x23302
00023300 4e 4f                    |NO      |		TRAP	#15
00023302 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00023308 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
0002330c 22 69 00 22              |"i "    |		MOVEA.L	(A1+0x22),A1
00023310 22 07                    |"       |		MOVE.L	D7,D1
00023312 53 81                    |S       |		SUBQ.L	#0x1,D1
00023314 0c 81 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D1
0002331a 63 02                    |c       |		BLS	0x2331e
0002331c 4e 4f                    |NO      |		TRAP	#15
0002331e 11 b1 18 00 08 08        |        |		MOVE.B	(A1+D1.L),(A0+D0.L+#0x8)
00023324 52 87                    |R       |		ADDQ.L	#0x1,D7
00023326 68 c4                    |h       |		BVC	0x232ec
00023328 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002332a 4c df 1f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
0002332e 4e 5e                    |N^      |		UNLK	A6
00023330 4e 75                    |Nu      |		RTS
00023332 ; --------------------------------------------------------------------------------------
00023332 ; OMSI PASCAL Function
00023332 ;    <LVAR -0x004 4(rw)>
00023332 ; --------------------------------------------------------------------------------------
00023332 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00023336 bf d5                    |        |		CMPA.L	(A5),A7
00023338 62 06                    |b       |		BHI	0x23340
0002333a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002333e 4e 76                    |Nv      |		TRAPV
00023340 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00023344 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00023348 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
0002334c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002334e 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00023350 26 b9 00 02 68 5c        |&   h\  |		MOVE.L	0x2685c,(A3)
00023356 20 53                    | S      |		MOVEA.L	(A3),A0
00023358 b0 c1                    |        |		CMPA.W	D1,A0
0002335a 67 30                    |g0      |		BEQ	0x2338c
0002335c 9e c2                    |        |		SUBA.W	D2,A7
0002335e 22 4f                    |"O      |		MOVEA.L	A7,A1
00023360 24 48                    |$H      |		MOVEA.L	A0,A2
00023362 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00023364 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023366 51 c8 ff fc              |Q       |		DBF	D0,0x23364
0002336a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002336c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023370 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023372 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023374 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002337a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002337c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023382 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00023386 26 a8 00 26              |&  &    |		MOVE.L	(A0+0x26),(A3)
0002338a 60 ca                    |`       |		BRA	0x23356
0002338c 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
00023390 4e 5e                    |N^      |		UNLK	A6
00023392 4e 75                    |Nu      |		RTS
00023394 ; --------------------------------------------------------------------------------------
00023394 ; OMSI PASCAL Function
00023394 ;    <LVAR  0x008 4(r)>
00023394 ; --------------------------------------------------------------------------------------
00023394 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00023398 bf d5                    |        |		CMPA.L	(A5),A7
0002339a 62 06                    |b       |		BHI	0x233a2
0002339c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000233a0 4e 76                    |Nv      |		TRAPV
000233a2 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000233a6 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
000233aa 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000233ae 48 78 00 01              |Hx      |		PEA.L	0x1
000233b2 4e ba f6 9c              |N       |		JSR	0x22a50
000233b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233b8 4e ba fa 7a              |N  z    |		JSR	0x22e34
000233bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233be 4e ba fa f6              |N       |		JSR	0x22eb6
000233c2 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000233c6 4e ba fb 42              |N  B    |		JSR	0x22f0a
000233ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233cc 4e 5e                    |N^      |		UNLK	A6
000233ce 4e 75                    |Nu      |		RTS
000233d0 ; --------------------------------------------------------------------------------------
000233d0 ; OMSI PASCAL Function
000233d0 ; --------------------------------------------------------------------------------------
000233d0 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
000233d4 bf d5                    |        |		CMPA.L	(A5),A7
000233d6 62 06                    |b       |		BHI	0x233de
000233d8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000233dc 4e 76                    |Nv      |		TRAPV
000233de de fc 00 0c              |        |		ADDA.W	#0xc,A7
000233e2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000233e4 4e b9 00 01 03 cc        |N       |		JSR	GetPushLevel() : Long
000233ea 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000233f0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233f2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000233f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233fa 4e 5e                    |N^      |		UNLK	A6
000233fc 4e 75                    |Nu      |		RTS
000233fe ; --------------------------------------------------------------------------------------
000233fe ; OMSI PASCAL Function
000233fe ;    <LVAR  0x008 4(r)>
000233fe ;    <LVAR -0x004 1(rw)>
000233fe ;    <LVAR -0x008 @ 4(rw)>
000233fe ;    <LVAR -0x00c @ 4(r)>
000233fe ;    <LVAR -0x010 @ 4(r)>
000233fe ;    <LVAR -0x012 @ 1(r)>
000233fe ;    <LVAR -0x013 @ 1(r)>
000233fe ;    <LVAR -0x014 @ 1(r)>
000233fe ;    <LVAR -0x024 4(rw)>
000233fe ;    <LVAR -0x028 4(rw)>
000233fe ;    <LVAR -0x02c 4(rw)>
000233fe ;    <LVAR -0x030 @ 4(r)>
000233fe ;    <LVAR -0x032 1(w)>
000233fe ;    <LVAR -0x036 @ 4(r)>
000233fe ;    <LVAR -0x038 @ 1(r)>
000233fe ;    <LVAR -0x03c @ 4(rw)>
000233fe ; --------------------------------------------------------------------------------------
000233fe 4e 56 ff 64              |NV d    |		LINK.W	A6,#0xff64
00023402 bf d5                    |        |		CMPA.L	(A5),A7
00023404 62 06                    |b       |		BHI	0x2340c
00023406 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002340a 4e 76                    |Nv      |		TRAPV
0002340c de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00023410 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023414 45 ee ff c4              |E       |		LEA.L	(A6-0x3c),A2
00023418 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
0002341c 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00023422 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023424 76 14                    |v       |		MOVEQ.L	#0x14,D3
00023426 28 3c ff ff 80 00        |(<      |		MOVE.L	#0xffff8000,D4
0002342c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002342e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023430 4e ba ed 02              |N       |		JSR	0x22134
00023434 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023436 2d 5f ff d4              |-_      |		MOVE.L	(A7)+,(A6-0x2c)
0002343a 66 28                    |f(      |		BNE	0x23464
0002343c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002343e 1e ba e5 0c              |        |		MOVE.B	0x2194c,(A7)
00023442 1f 7a e5 09 00 01        | z      |		MOVE.B	0x2194d,(A7+0x1)
00023448 1f 7a e5 04 00 02        | z      |		MOVE.B	0x2194e,(A7+0x2)
0002344e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023450 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023454 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023456 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
0002345a 4e 94                    |N       |		JSR	(A4)
0002345c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002345e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00023460 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023462 60 10                    |`       |		BRA	0x23474
00023464 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023466 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023468 48 78 00 01              |Hx      |		PEA.L	0x1
0002346c 4e ba f5 e2              |N       |		JSR	0x22a50
00023470 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023472 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00023474 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023476 20 4f                    | O      |		MOVEA.L	A7,A0
00023478 43 fa e4 d6              |C       |		LEA.L	0x21950,A1
0002347c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002347e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023480 51 c8 ff fc              |Q       |		DBF	D0,0x2347e
00023484 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023486 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023488 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002348a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002348e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023490 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00023494 4e 94                    |N       |		JSR	(A4)
00023496 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023498 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002349e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000234a0 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000234a2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000234a4 2e 92                    |.       |		MOVE.L	(A2),(A7)
000234a6 42 27                    |B'      |		CLR.B	-(A7)
000234a8 1f 02                    |        |		MOVE.B	D2,-(A7)
000234aa 48 78 00 00              |Hx      |		PEA.L	0x0
000234ae 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
000234b2 48 6e ff ca              |Hn      |		PEA.L	(A6-0x36)
000234b6 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000234bc de c3                    |        |		ADDA.W	D3,A7
000234be 4a 2e ff c8              |J.      |		TST.B	(A6-0x38)
000234c2 67 0e                    |g       |		BEQ	0x234d2
000234c4 48 52                    |HR      |		PEA.L	(A2)
000234c6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000234cc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000234ce 60 00 02 4e              |`  N    |		BRA	0x2371e
000234d2 20 6e ff ca              | n      |		MOVEA.L	(A6-0x36),A0
000234d6 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
000234da ed 08                    |        |		LSL.B	#0x6,D0
000234dc ee 08                    |        |		LSR.B	#0x7,D0
000234de 1d 40 ff ce              | @      |		MOVE.B	D0,(A6-0x32)
000234e2 42 27                    |B'      |		CLR.B	-(A7)
000234e4 1f 02                    |        |		MOVE.B	D2,-(A7)
000234e6 48 78 00 01              |Hx      |		PEA.L	0x1
000234ea 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
000234ee 48 6e ff ca              |Hn      |		PEA.L	(A6-0x36)
000234f2 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000234f8 de fc 00 10              |        |		ADDA.W	#0x10,A7
000234fc 20 52                    | R      |		MOVEA.L	(A2),A0
000234fe 32 10                    |2       |		MOVE.W	(A0),D1
00023500 48 c1                    |H       |		EXTW.L	D1
00023502 5b 81                    |[       |		SUBQ.L	#0x5,D1
00023504 92 84                    |        |		SUB.L	D4,D1
00023506 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
0002350c 63 02                    |c       |		BLS	0x23510
0002350e 4e 4f                    |NO      |		TRAP	#15
00023510 d2 84                    |        |		ADD.L	D4,D1
00023512 30 81                    |0       |		MOVE.W	D1,(A0)
00023514 4a 00                    |J       |		TST.B	D0
00023516 66 36                    |f6      |		BNE	0x2354e
00023518 41 fa e4 32              |A  2    |		LEA.L	0x2194c,A0
0002351c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002351e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023520 51 c8 ff fc              |Q       |		DBF	D0,0x2351e
00023524 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023526 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023528 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002352a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002352e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023530 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00023534 4e 94                    |N       |		JSR	(A4)
00023536 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023538 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002353e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023540 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023546 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002354a 60 00 01 d2              |`       |		BRA	0x2371e
0002354e 48 6e ff d0              |Hn      |		PEA.L	(A6-0x30)
00023552 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00023558 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002355a 20 6e ff d0              | n      |		MOVEA.L	(A6-0x30),A0
0002355e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00023560 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023562 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
00023566 7a 02                    |z       |		MOVEQ.L	#0x02,D5
00023568 ba 97                    |        |		CMP.L	(A7),D5
0002356a 6e 00 00 94              |n       |		BGT	0x23600
0002356e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023570 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023572 2f 05                    |/       |		MOVE.L	D5,-(A7)
00023574 4e ba f3 fc              |N       |		JSR	0x22972
00023578 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002357a 2d 5f ff d8              |-_      |		MOVE.L	(A7)+,(A6-0x28)
0002357e 2d 5f ff dc              |-_      |		MOVE.L	(A7)+,(A6-0x24)
00023582 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
00023586 2c 2e ff d8              |,.      |		MOVE.L	(A6-0x28),D6
0002358a bc 97                    |        |		CMP.L	(A7),D6
0002358c 6e 14                    |n       |		BGT	0x235a2
0002358e 20 17                    |        |		MOVE.L	(A7),D0
00023590 0c 86 80 00 00 01        |        |		CMPI.L	#0x80000001,D6
00023596 6d 08                    |m       |		BLT	0x235a0
00023598 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
0002359e 6f 02                    |o       |		BLE	0x235a2
000235a0 4e 4f                    |NO      |		TRAP	#15
000235a2 bc 97                    |        |		CMP.L	(A7),D6
000235a4 6e 32                    |n2      |		BGT	0x235d8
000235a6 20 07                    |        |		MOVE.L	D7,D0
000235a8 53 80                    |S       |		SUBQ.L	#0x1,D0
000235aa 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000235b0 63 02                    |c       |		BLS	0x235b4
000235b2 4e 4f                    |NO      |		TRAP	#15
000235b4 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
000235b8 22 06                    |"       |		MOVE.L	D6,D1
000235ba 53 81                    |S       |		SUBQ.L	#0x1,D1
000235bc 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
000235c2 63 02                    |c       |		BLS	0x235c6
000235c4 4e 4f                    |NO      |		TRAP	#15
000235c6 43 f9 00 02 58 2a        |C   X*  |		LEA.L	0x2582a,A1
000235cc 11 b1 18 08 08 02        |        |		MOVE.B	(A1+D1.L+#0x8),(A0+D0.L+#0x2)
000235d2 52 87                    |R       |		ADDQ.L	#0x1,D7
000235d4 52 86                    |R       |		ADDQ.L	#0x1,D6
000235d6 68 ca                    |h       |		BVC	0x235a2
000235d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000235da ba ae ff d4              |        |		CMP.L	(A6-0x2c),D5
000235de 67 1a                    |g       |		BEQ	0x235fa
000235e0 20 07                    |        |		MOVE.L	D7,D0
000235e2 53 80                    |S       |		SUBQ.L	#0x1,D0
000235e4 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000235ea 63 02                    |c       |		BLS	0x235ee
000235ec 4e 4f                    |NO      |		TRAP	#15
000235ee 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000235f2 11 bc 00 2c 08 02        |   ,    |		MOVE.B	#0x2c,(A0+D0.L+#0x2)
000235f8 52 87                    |R       |		ADDQ.L	#0x1,D7
000235fa 52 85                    |R       |		ADDQ.L	#0x1,D5
000235fc 68 00 ff 6a              |h  j    |		BVC	0x23568
00023600 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023602 20 57                    | W      |		MOVEA.L	(A7),A0
00023604 20 07                    |        |		MOVE.L	D7,D0
00023606 53 80                    |S       |		SUBQ.L	#0x1,D0
00023608 90 84                    |        |		SUB.L	D4,D0
0002360a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00023610 63 02                    |c       |		BLS	0x23614
00023612 4e 4f                    |NO      |		TRAP	#15
00023614 d0 84                    |        |		ADD.L	D4,D0
00023616 30 80                    |0       |		MOVE.W	D0,(A0)
00023618 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002361a 3e ba e3 3e              |>  >    |		MOVE.W	0x2195a,(A7)
0002361e 3f 3a e3 38              |?: 8    |		MOVE.W	0x21958,-(A7)
00023622 3f 3a e3 32              |?: 2    |		MOVE.W	0x21956,-(A7)
00023626 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023628 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002362c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002362e 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00023632 4e 94                    |N       |		JSR	(A4)
00023634 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023636 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
0002363a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002363c 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002363e 48 78 00 00              |Hx      |		PEA.L	0x0
00023642 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00023646 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
0002364a 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
0002364e 4e b9 00 02 4f 88        |N   O   |		JSR	0x24f88
00023654 de c3                    |        |		ADDA.W	D3,A7
00023656 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002365a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023660 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023662 3e ba e2 fc              |>       |		MOVE.W	0x21960,(A7)
00023666 3f 3a e2 f6              |?:      |		MOVE.W	0x2195e,-(A7)
0002366a 3f 3a e2 f0              |?:      |		MOVE.W	0x2195c,-(A7)
0002366e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023670 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023674 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023676 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
0002367a 4e 94                    |N       |		JSR	(A4)
0002367c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002367e 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00023682 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023684 2e 93                    |.       |		MOVE.L	(A3),(A7)
00023686 48 78 00 00              |Hx      |		PEA.L	0x0
0002368a 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
0002368e 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00023692 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00023696 4e b9 00 02 4f 88        |N   O   |		JSR	0x24f88
0002369c de c3                    |        |		ADDA.W	D3,A7
0002369e 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000236a2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000236a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000236aa 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
000236ae 66 06                    |f       |		BNE	0x236b6
000236b0 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
000236b4 67 06                    |g       |		BEQ	0x236bc
000236b6 42 2e ff fc              |B.      |		CLR.B	(A6-0x4)
000236ba 60 04                    |`       |		BRA	0x236c0
000236bc 1d 42 ff fc              | B      |		MOVE.B	D2,(A6-0x4)
000236c0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000236c2 2f 2e ff d0              |/.      |		MOVE.L	(A6-0x30),-(A7)
000236c6 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
000236ca 48 80                    |H       |		EXTB.W	D0
000236cc 41 bc 00 02              |A       |		CHK.W	#0x2,D0
000236d0 1f 00                    |        |		MOVE.B	D0,-(A7)
000236d2 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000236d6 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000236dc de fc 00 0e              |        |		ADDA.W	#0xe,A7
000236e0 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
000236e4 67 20                    |g       |		BEQ	0x23706
000236e6 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
000236ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000236ec 10 2e ff ec              | .      |		MOVE.B	(A6-0x14),D0
000236f0 48 80                    |H       |		EXTB.W	D0
000236f2 41 bc 00 0e              |A       |		CHK.W	#0xe,D0
000236f6 1f 00                    |        |		MOVE.B	D0,-(A7)
000236f8 4e b9 00 01 03 c0        |N       |		JSR	ExpErrMsg(a: Byte) : String
000236fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023700 4e ba f9 4c              |N  L    |		JSR	0x2304e
00023704 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023706 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
0002370a 67 12                    |g       |		BEQ	0x2371e
0002370c 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00023710 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023712 4e b9 00 01 03 c8        |N       |		JSR	FSCALL_103c8
00023718 4e ba f9 34              |N  4    |		JSR	0x2304e
0002371c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002371e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023722 4e 5e                    |N^      |		UNLK	A6
00023724 4e 75                    |Nu      |		RTS
00023726 ; --------------------------------------------------------------------------------------
00023726 ; OMSI PASCAL Function
00023726 ;    <LVAR  0x008 4(r)>
00023726 ;    <LVAR -0x004 @ 4(rw)>
00023726 ;    <LVAR -0x008 @ 4(rw)>
00023726 ; --------------------------------------------------------------------------------------
00023726 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
0002372a bf d5                    |        |		CMPA.L	(A5),A7
0002372c 62 06                    |b       |		BHI	0x23734
0002372e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023732 4e 76                    |Nv      |		TRAPV
00023734 de fc 00 18              |        |		ADDA.W	#0x18,A7
00023738 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
0002373c 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00023740 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00023744 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023746 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002374a 48 78 00 01              |Hx      |		PEA.L	0x1
0002374e 4e ba f3 00              |N       |		JSR	0x22a50
00023752 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023754 20 97                    |        |		MOVE.L	(A7),(A0)
00023756 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002375a 48 78 00 02              |Hx      |		PEA.L	0x2
0002375e 4e ba f2 f0              |N       |		JSR	0x22a50
00023762 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023764 22 97                    |"       |		MOVE.L	(A7),(A1)
00023766 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023768 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002376a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002376c 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00023772 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023774 4a 1f                    |J       |		TST.B	(A7)+
00023776 67 06                    |g       |		BEQ	0x2377e
00023778 4e ba ed 96              |N       |		JSR	0x22510
0002377c 60 04                    |`       |		BRA	0x23782
0002377e 4e ba ed d6              |N       |		JSR	0x22556
00023782 48 51                    |HQ      |		PEA.L	(A1)
00023784 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002378a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002378c 48 50                    |HP      |		PEA.L	(A0)
0002378e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023794 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023796 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
0002379a 4e 5e                    |N^      |		UNLK	A6
0002379c 4e 75                    |Nu      |		RTS
0002379e ; --------------------------------------------------------------------------------------
0002379e ; OMSI PASCAL Function
0002379e ;    <LVAR  0x008 4(r)>
0002379e ;    <LVAR -0x004 @ 4(rw)>
0002379e ;    <LVAR -0x008 @ 4(rw)>
0002379e ; --------------------------------------------------------------------------------------
0002379e 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
000237a2 bf d5                    |        |		CMPA.L	(A5),A7
000237a4 62 06                    |b       |		BHI	0x237ac
000237a6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000237aa 4e 76                    |Nv      |		TRAPV
000237ac de fc 00 18              |        |		ADDA.W	#0x18,A7
000237b0 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
000237b4 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
000237b8 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
000237bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000237be 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000237c2 48 78 00 01              |Hx      |		PEA.L	0x1
000237c6 4e ba f2 88              |N       |		JSR	0x22a50
000237ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000237cc 20 97                    |        |		MOVE.L	(A7),(A0)
000237ce 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000237d2 48 78 00 02              |Hx      |		PEA.L	0x2
000237d6 4e ba f2 78              |N  x    |		JSR	0x22a50
000237da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000237dc 22 97                    |"       |		MOVE.L	(A7),(A1)
000237de 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000237e0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000237e2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000237e4 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000237ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000237ec 4a 1f                    |J       |		TST.B	(A7)+
000237ee 66 06                    |f       |		BNE	0x237f6
000237f0 4e ba ed 1e              |N       |		JSR	0x22510
000237f4 60 04                    |`       |		BRA	0x237fa
000237f6 4e ba ed 5e              |N  ^    |		JSR	0x22556
000237fa 48 51                    |HQ      |		PEA.L	(A1)
000237fc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023802 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023804 48 50                    |HP      |		PEA.L	(A0)
00023806 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002380c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002380e 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00023812 4e 5e                    |N^      |		UNLK	A6
00023814 4e 75                    |Nu      |		RTS
00023816 ; --------------------------------------------------------------------------------------
00023816 ; OMSI PASCAL Function
00023816 ;    <LVAR  0x008 4(r)>
00023816 ; --------------------------------------------------------------------------------------
00023816 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
0002381a bf d5                    |        |		CMPA.L	(A5),A7
0002381c 62 06                    |b       |		BHI	0x23824
0002381e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023822 4e 76                    |Nv      |		TRAPV
00023824 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023828 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002382a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002382e 48 78 00 01              |Hx      |		PEA.L	0x1
00023832 4e ba f2 1c              |N       |		JSR	0x22a50
00023836 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023838 4e ba f0 0e              |N       |		JSR	0x22848
0002383c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002383e 4e 5e                    |N^      |		UNLK	A6
00023840 4e 75                    |Nu      |		RTS
00023842 ; --------------------------------------------------------------------------------------
00023842 ; OMSI PASCAL Function
00023842 ;    <LVAR  0x008 4(r)>
00023842 ;    <LVAR -0x014 @ 4(rw)>
00023842 ; --------------------------------------------------------------------------------------
00023842 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
00023846 bf d5                    |        |		CMPA.L	(A5),A7
00023848 62 06                    |b       |		BHI	0x23850
0002384a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002384e 4e 76                    |Nv      |		TRAPV
00023850 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00023854 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00023858 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
0002385c 47 ee ff ec              |G       |		LEA.L	(A6-0x14),A3
00023860 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
00023862 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023864 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023866 48 78 00 01              |Hx      |		PEA.L	0x1
0002386a 4e ba f1 e4              |N       |		JSR	0x22a50
0002386e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023870 26 97                    |&       |		MOVE.L	(A7),(A3)
00023872 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023874 48 78 00 02              |Hx      |		PEA.L	0x2
00023878 4e ba f1 d6              |N       |		JSR	0x22a50
0002387c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002387e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00023880 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00023884 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023886 48 78 00 03              |Hx      |		PEA.L	0x3
0002388a 4e ba f1 f6              |N       |		JSR	0x22a82
0002388e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023890 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023896 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023898 2c 17                    |,       |		MOVE.L	(A7),D6
0002389a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002389c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002389e 48 78 00 04              |Hx      |		PEA.L	0x4
000238a2 4e ba f1 de              |N       |		JSR	0x22a82
000238a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238a8 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000238ae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238b0 2a 1f                    |*       |		MOVE.L	(A7)+,D5
000238b2 20 06                    |        |		MOVE.L	D6,D0
000238b4 d0 85                    |        |		ADD.L	D5,D0
000238b6 53 80                    |S       |		SUBQ.L	#0x1,D0
000238b8 32 14                    |2       |		MOVE.W	(A4),D1
000238ba 48 c1                    |H       |		EXTW.L	D1
000238bc b0 81                    |        |		CMP.L	D1,D0
000238be 6f 30                    |o0      |		BLE	0x238f0
000238c0 9e fc 00 20              |        |		SUBA.W	#0x20,A7
000238c4 20 4f                    | O      |		MOVEA.L	A7,A0
000238c6 43 fa e0 9a              |C       |		LEA.L	0x21962,A1
000238ca 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
000238cc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000238ce 51 c8 ff fc              |Q       |		DBF	D0,0x238cc
000238d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000238d4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000238d8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000238dc 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
000238e0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000238e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238e8 4e ba e4 3e              |N  >    |		JSR	0x21d28
000238ec de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000238f0 20 53                    | S      |		MOVEA.L	(A3),A0
000238f2 2f 08                    |/       |		MOVE.L	A0,-(A7)
000238f4 30 10                    |0       |		MOVE.W	(A0),D0
000238f6 48 c0                    |H       |		EXTW.L	D0
000238f8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000238fa 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000238fc be 97                    |        |		CMP.L	(A7),D7
000238fe 6e 26                    |n&      |		BGT	0x23926
00023900 20 06                    |        |		MOVE.L	D6,D0
00023902 d0 87                    |        |		ADD.L	D7,D0
00023904 53 80                    |S       |		SUBQ.L	#0x1,D0
00023906 53 80                    |S       |		SUBQ.L	#0x1,D0
00023908 b0 82                    |        |		CMP.L	D2,D0
0002390a 63 02                    |c       |		BLS	0x2390e
0002390c 4e 4f                    |NO      |		TRAP	#15
0002390e 22 07                    |"       |		MOVE.L	D7,D1
00023910 53 81                    |S       |		SUBQ.L	#0x1,D1
00023912 b2 82                    |        |		CMP.L	D2,D1
00023914 63 02                    |c       |		BLS	0x23918
00023916 4e 4f                    |NO      |		TRAP	#15
00023918 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0002391c 19 b0 18 02 08 02        |        |		MOVE.B	(A0+D1.L+#0x2),(A4+D0.L+#0x2)
00023922 52 87                    |R       |		ADDQ.L	#0x1,D7
00023924 68 d6                    |h       |		BVC	0x238fc
00023926 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023928 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002392a 4e ba f1 c6              |N       |		JSR	0x22af2
0002392e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023930 48 53                    |HS      |		PEA.L	(A3)
00023932 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023938 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002393a 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
0002393e 4e 5e                    |N^      |		UNLK	A6
00023940 4e 75                    |Nu      |		RTS
00023942 ; --------------------------------------------------------------------------------------
00023942 ; OMSI PASCAL Function
00023942 ;    <LVAR  0x008 4(r)>
00023942 ;    <LVAR -0x010 @ 4(r)>
00023942 ;    <LVAR -0x014 @ 4(rw)>
00023942 ; --------------------------------------------------------------------------------------
00023942 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00023946 bf d5                    |        |		CMPA.L	(A5),A7
00023948 62 06                    |b       |		BHI	0x23950
0002394a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002394e 4e 76                    |Nv      |		TRAPV
00023950 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00023954 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00023958 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
0002395c 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
00023960 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00023964 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
00023966 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023968 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002396a 48 78 00 01              |Hx      |		PEA.L	0x1
0002396e 4e ba f0 e0              |N       |		JSR	0x22a50
00023972 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023974 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00023976 48 53                    |HS      |		PEA.L	(A3)
00023978 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002397e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023980 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023982 48 78 00 02              |Hx      |		PEA.L	0x2
00023986 4e ba f0 fa              |N       |		JSR	0x22a82
0002398a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002398c 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023992 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023994 2a 17                    |*       |		MOVE.L	(A7),D5
00023996 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023998 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002399a 48 78 00 03              |Hx      |		PEA.L	0x3
0002399e 4e ba f0 e2              |N       |		JSR	0x22a82
000239a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239a4 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000239aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239ac 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000239ae 20 52                    | R      |		MOVEA.L	(A2),A0
000239b0 20 05                    |        |		MOVE.L	D5,D0
000239b2 d0 86                    |        |		ADD.L	D6,D0
000239b4 53 80                    |S       |		SUBQ.L	#0x1,D0
000239b6 32 10                    |2       |		MOVE.W	(A0),D1
000239b8 48 c1                    |H       |		EXTW.L	D1
000239ba b0 81                    |        |		CMP.L	D1,D0
000239bc 6f 06                    |o       |		BLE	0x239c4
000239be 52 81                    |R       |		ADDQ.L	#0x1,D1
000239c0 92 85                    |        |		SUB.L	D5,D1
000239c2 2c 01                    |,       |		MOVE.L	D1,D6
000239c4 2f 06                    |/       |		MOVE.L	D6,-(A7)
000239c6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000239c8 be 97                    |        |		CMP.L	(A7),D7
000239ca 6e 26                    |n&      |		BGT	0x239f2
000239cc 20 53                    | S      |		MOVEA.L	(A3),A0
000239ce 20 07                    |        |		MOVE.L	D7,D0
000239d0 53 80                    |S       |		SUBQ.L	#0x1,D0
000239d2 b0 82                    |        |		CMP.L	D2,D0
000239d4 63 02                    |c       |		BLS	0x239d8
000239d6 4e 4f                    |NO      |		TRAP	#15
000239d8 22 52                    |"R      |		MOVEA.L	(A2),A1
000239da 22 07                    |"       |		MOVE.L	D7,D1
000239dc d2 85                    |        |		ADD.L	D5,D1
000239de 53 81                    |S       |		SUBQ.L	#0x1,D1
000239e0 53 81                    |S       |		SUBQ.L	#0x1,D1
000239e2 b2 82                    |        |		CMP.L	D2,D1
000239e4 63 02                    |c       |		BLS	0x239e8
000239e6 4e 4f                    |NO      |		TRAP	#15
000239e8 11 b1 18 02 08 02        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x2)
000239ee 52 87                    |R       |		ADDQ.L	#0x1,D7
000239f0 68 d6                    |h       |		BVC	0x239c8
000239f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000239f4 20 53                    | S      |		MOVEA.L	(A3),A0
000239f6 04 86 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D6
000239fc 0c 86 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D6
00023a02 63 02                    |c       |		BLS	0x23a06
00023a04 4e 4f                    |NO      |		TRAP	#15
00023a06 06 86 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D6
00023a0c 30 86                    |0       |		MOVE.W	D6,(A0)
00023a0e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023a10 4e ba f0 e0              |N       |		JSR	0x22af2
00023a14 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023a16 48 52                    |HR      |		PEA.L	(A2)
00023a18 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023a1e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023a20 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00023a24 4e 5e                    |N^      |		UNLK	A6
00023a26 4e 75                    |Nu      |		RTS
00023a28 ; --------------------------------------------------------------------------------------
00023a28 ; OMSI PASCAL Function
00023a28 ;    <LVAR  0x008 4(r)>
00023a28 ; --------------------------------------------------------------------------------------
00023a28 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00023a2c bf d5                    |        |		CMPA.L	(A5),A7
00023a2e 62 06                    |b       |		BHI	0x23a36
00023a30 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a34 4e 76                    |Nv      |		TRAPV
00023a36 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023a3a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023a3c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023a40 48 78 00 01              |Hx      |		PEA.L	0x1
00023a44 4e ba f0 3c              |N  <    |		JSR	0x22a82
00023a48 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a4a 4e ba ee 70              |N  p    |		JSR	0x228bc
00023a4e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a50 4e 5e                    |N^      |		UNLK	A6
00023a52 4e 75                    |Nu      |		RTS
00023a54 ; --------------------------------------------------------------------------------------
00023a54 ; OMSI PASCAL Function
00023a54 ;    <LVAR  0x008 4(r)>
00023a54 ; --------------------------------------------------------------------------------------
00023a54 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023a58 bf d5                    |        |		CMPA.L	(A5),A7
00023a5a 62 06                    |b       |		BHI	0x23a62
00023a5c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a60 4e 76                    |Nv      |		TRAPV
00023a62 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023a66 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023a6a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023a6e 48 78 00 01              |Hx      |		PEA.L	0x1
00023a72 4e ba f0 0e              |N       |		JSR	0x22a82
00023a76 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023a7a 48 78 00 02              |Hx      |		PEA.L	0x2
00023a7e 4e ba f0 02              |N       |		JSR	0x22a82
00023a82 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a84 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00023a8a de fc 00 10              |        |		ADDA.W	#0x10,A7
00023a8e 4a 1f                    |J       |		TST.B	(A7)+
00023a90 67 06                    |g       |		BEQ	0x23a98
00023a92 4e ba ea 7c              |N  |    |		JSR	0x22510
00023a96 60 04                    |`       |		BRA	0x23a9c
00023a98 4e ba ea bc              |N       |		JSR	0x22556
00023a9c 4e 5e                    |N^      |		UNLK	A6
00023a9e 4e 75                    |Nu      |		RTS
00023aa0 ; --------------------------------------------------------------------------------------
00023aa0 ; OMSI PASCAL Function
00023aa0 ;    <LVAR  0x008 4(r)>
00023aa0 ; --------------------------------------------------------------------------------------
00023aa0 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023aa4 bf d5                    |        |		CMPA.L	(A5),A7
00023aa6 62 06                    |b       |		BHI	0x23aae
00023aa8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023aac 4e 76                    |Nv      |		TRAPV
00023aae de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023ab2 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023ab6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023aba 48 78 00 01              |Hx      |		PEA.L	0x1
00023abe 4e ba ef c2              |N       |		JSR	0x22a82
00023ac2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023ac6 48 78 00 02              |Hx      |		PEA.L	0x2
00023aca 4e ba ef b6              |N       |		JSR	0x22a82
00023ace 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ad0 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00023ad6 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023ada 4a 1f                    |J       |		TST.B	(A7)+
00023adc 66 06                    |f       |		BNE	0x23ae4
00023ade 4e ba ea 30              |N  0    |		JSR	0x22510
00023ae2 60 04                    |`       |		BRA	0x23ae8
00023ae4 4e ba ea 70              |N  p    |		JSR	0x22556
00023ae8 4e 5e                    |N^      |		UNLK	A6
00023aea 4e 75                    |Nu      |		RTS
00023aec ; --------------------------------------------------------------------------------------
00023aec ; OMSI PASCAL Function
00023aec ;    <LVAR  0x008 4(r)>
00023aec ; --------------------------------------------------------------------------------------
00023aec 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023af0 bf d5                    |        |		CMPA.L	(A5),A7
00023af2 62 06                    |b       |		BHI	0x23afa
00023af4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023af8 4e 76                    |Nv      |		TRAPV
00023afa de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023afe 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023b02 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b06 48 78 00 01              |Hx      |		PEA.L	0x1
00023b0a 4e ba ef 76              |N  v    |		JSR	0x22a82
00023b0e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b12 48 78 00 02              |Hx      |		PEA.L	0x2
00023b16 4e ba ef 6a              |N  j    |		JSR	0x22a82
00023b1a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b1c 4e b9 00 01 03 28        |N    (  |		JSR	IsSmaller(a, b : Quad) : Bool
00023b22 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023b26 4a 1f                    |J       |		TST.B	(A7)+
00023b28 67 06                    |g       |		BEQ	0x23b30
00023b2a 4e ba e9 e4              |N       |		JSR	0x22510
00023b2e 60 04                    |`       |		BRA	0x23b34
00023b30 4e ba ea 24              |N  $    |		JSR	0x22556
00023b34 4e 5e                    |N^      |		UNLK	A6
00023b36 4e 75                    |Nu      |		RTS
00023b38 ; --------------------------------------------------------------------------------------
00023b38 ; OMSI PASCAL Function
00023b38 ;    <LVAR  0x008 4(r)>
00023b38 ; --------------------------------------------------------------------------------------
00023b38 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023b3c bf d5                    |        |		CMPA.L	(A5),A7
00023b3e 62 06                    |b       |		BHI	0x23b46
00023b40 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023b44 4e 76                    |Nv      |		TRAPV
00023b46 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023b4a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023b4e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b52 48 78 00 01              |Hx      |		PEA.L	0x1
00023b56 4e ba ef 2a              |N  *    |		JSR	0x22a82
00023b5a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b5e 48 78 00 02              |Hx      |		PEA.L	0x2
00023b62 4e ba ef 1e              |N       |		JSR	0x22a82
00023b66 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b68 4e b9 00 01 03 24        |N    $  |		JSR	IsGreater(a, b : Quad) : Bool
00023b6e de fc 00 10              |        |		ADDA.W	#0x10,A7
00023b72 4a 1f                    |J       |		TST.B	(A7)+
00023b74 67 06                    |g       |		BEQ	0x23b7c
00023b76 4e ba e9 98              |N       |		JSR	0x22510
00023b7a 60 04                    |`       |		BRA	0x23b80
00023b7c 4e ba e9 d8              |N       |		JSR	0x22556
00023b80 4e 5e                    |N^      |		UNLK	A6
00023b82 4e 75                    |Nu      |		RTS
00023b84 ; --------------------------------------------------------------------------------------
00023b84 ; OMSI PASCAL Function
00023b84 ;    <LVAR  0x008 4(r)>
00023b84 ; --------------------------------------------------------------------------------------
00023b84 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023b88 bf d5                    |        |		CMPA.L	(A5),A7
00023b8a 62 06                    |b       |		BHI	0x23b92
00023b8c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023b90 4e 76                    |Nv      |		TRAPV
00023b92 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023b96 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023b9a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b9e 48 78 00 01              |Hx      |		PEA.L	0x1
00023ba2 4e ba ee de              |N       |		JSR	0x22a82
00023ba6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023baa 48 78 00 02              |Hx      |		PEA.L	0x2
00023bae 4e ba ee d2              |N       |		JSR	0x22a82
00023bb2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bb4 4e b9 00 01 03 24        |N    $  |		JSR	IsGreater(a, b : Quad) : Bool
00023bba de fc 00 10              |        |		ADDA.W	#0x10,A7
00023bbe 4a 1f                    |J       |		TST.B	(A7)+
00023bc0 66 06                    |f       |		BNE	0x23bc8
00023bc2 4e ba e9 4c              |N  L    |		JSR	0x22510
00023bc6 60 04                    |`       |		BRA	0x23bcc
00023bc8 4e ba e9 8c              |N       |		JSR	0x22556
00023bcc 4e 5e                    |N^      |		UNLK	A6
00023bce 4e 75                    |Nu      |		RTS
00023bd0 ; --------------------------------------------------------------------------------------
00023bd0 ; OMSI PASCAL Function
00023bd0 ;    <LVAR  0x008 4(r)>
00023bd0 ; --------------------------------------------------------------------------------------
00023bd0 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023bd4 bf d5                    |        |		CMPA.L	(A5),A7
00023bd6 62 06                    |b       |		BHI	0x23bde
00023bd8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023bdc 4e 76                    |Nv      |		TRAPV
00023bde de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023be2 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023be6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023bea 48 78 00 01              |Hx      |		PEA.L	0x1
00023bee 4e ba ee 92              |N       |		JSR	0x22a82
00023bf2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023bf6 48 78 00 02              |Hx      |		PEA.L	0x2
00023bfa 4e ba ee 86              |N       |		JSR	0x22a82
00023bfe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c00 4e b9 00 01 03 28        |N    (  |		JSR	IsSmaller(a, b : Quad) : Bool
00023c06 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023c0a 4a 1f                    |J       |		TST.B	(A7)+
00023c0c 66 06                    |f       |		BNE	0x23c14
00023c0e 4e ba e9 00              |N       |		JSR	0x22510
00023c12 60 04                    |`       |		BRA	0x23c18
00023c14 4e ba e9 40              |N  @    |		JSR	0x22556
00023c18 4e 5e                    |N^      |		UNLK	A6
00023c1a 4e 75                    |Nu      |		RTS
00023c1c ; --------------------------------------------------------------------------------------
00023c1c ; OMSI PASCAL Function
00023c1c ;    <LVAR  0x008 4(r)>
00023c1c ; --------------------------------------------------------------------------------------
00023c1c 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023c20 bf d5                    |        |		CMPA.L	(A5),A7
00023c22 62 06                    |b       |		BHI	0x23c2a
00023c24 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c28 4e 76                    |Nv      |		TRAPV
00023c2a de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023c2e 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023c32 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023c34 9e c0                    |        |		SUBA.W	D0,A7
00023c36 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023c3a 48 78 00 01              |Hx      |		PEA.L	0x1
00023c3e 4e ba ee 42              |N  B    |		JSR	0x22a82
00023c42 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023c46 48 78 00 02              |Hx      |		PEA.L	0x2
00023c4a 4e ba ee 36              |N  6    |		JSR	0x22a82
00023c4e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c50 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00023c56 de c0                    |        |		ADDA.W	D0,A7
00023c58 4e ba ef 20              |N       |		JSR	0x22b7a
00023c5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c5e 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023c62 4e 5e                    |N^      |		UNLK	A6
00023c64 4e 75                    |Nu      |		RTS
00023c66 ; --------------------------------------------------------------------------------------
00023c66 ; OMSI PASCAL Function
00023c66 ;    <LVAR  0x008 4(r)>
00023c66 ; --------------------------------------------------------------------------------------
00023c66 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023c6a bf d5                    |        |		CMPA.L	(A5),A7
00023c6c 62 06                    |b       |		BHI	0x23c74
00023c6e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c72 4e 76                    |Nv      |		TRAPV
00023c74 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023c78 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023c7c 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023c7e 9e c0                    |        |		SUBA.W	D0,A7
00023c80 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023c84 48 78 00 01              |Hx      |		PEA.L	0x1
00023c88 4e ba ed f8              |N       |		JSR	0x22a82
00023c8c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023c90 48 78 00 02              |Hx      |		PEA.L	0x2
00023c94 4e ba ed ec              |N       |		JSR	0x22a82
00023c98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c9a 4e b9 00 01 03 18        |N       |		JSR	Subtract(a, b : Quad) : Quad
00023ca0 de c0                    |        |		ADDA.W	D0,A7
00023ca2 4e ba ee d6              |N       |		JSR	0x22b7a
00023ca6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ca8 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023cac 4e 5e                    |N^      |		UNLK	A6
00023cae 4e 75                    |Nu      |		RTS
00023cb0 ; --------------------------------------------------------------------------------------
00023cb0 ; OMSI PASCAL Function
00023cb0 ;    <LVAR  0x008 4(r)>
00023cb0 ; --------------------------------------------------------------------------------------
00023cb0 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023cb4 bf d5                    |        |		CMPA.L	(A5),A7
00023cb6 62 06                    |b       |		BHI	0x23cbe
00023cb8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023cbc 4e 76                    |Nv      |		TRAPV
00023cbe de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023cc2 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023cc6 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023cc8 9e c0                    |        |		SUBA.W	D0,A7
00023cca 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023cce 48 78 00 01              |Hx      |		PEA.L	0x1
00023cd2 4e ba ed ae              |N       |		JSR	0x22a82
00023cd6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023cda 48 78 00 02              |Hx      |		PEA.L	0x2
00023cde 4e ba ed a2              |N       |		JSR	0x22a82
00023ce2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ce4 4e b9 00 01 03 1c        |N       |		JSR	Multiply(a, b : Quad) : Quad
00023cea de c0                    |        |		ADDA.W	D0,A7
00023cec 4e ba ee 8c              |N       |		JSR	0x22b7a
00023cf0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023cf2 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023cf6 4e 5e                    |N^      |		UNLK	A6
00023cf8 4e 75                    |Nu      |		RTS
00023cfa ; --------------------------------------------------------------------------------------
00023cfa ; OMSI PASCAL Function
00023cfa ;    <LVAR  0x008 4(r)>
00023cfa ; --------------------------------------------------------------------------------------
00023cfa 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023cfe bf d5                    |        |		CMPA.L	(A5),A7
00023d00 62 06                    |b       |		BHI	0x23d08
00023d02 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023d06 4e 76                    |Nv      |		TRAPV
00023d08 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023d0c 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023d10 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023d12 9e c0                    |        |		SUBA.W	D0,A7
00023d14 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023d18 48 78 00 01              |Hx      |		PEA.L	0x1
00023d1c 4e ba ed 64              |N  d    |		JSR	0x22a82
00023d20 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023d24 48 78 00 02              |Hx      |		PEA.L	0x2
00023d28 4e ba ed 58              |N  X    |		JSR	0x22a82
00023d2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d2e 4e b9 00 01 03 20        |N       |		JSR	Divide(a, b : Quad) : Quad
00023d34 de c0                    |        |		ADDA.W	D0,A7
00023d36 4e ba ee 42              |N  B    |		JSR	0x22b7a
00023d3a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d3c 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023d40 4e 5e                    |N^      |		UNLK	A6
00023d42 4e 75                    |Nu      |		RTS
00023d44 ; --------------------------------------------------------------------------------------
00023d44 ; OMSI PASCAL Function
00023d44 ;    <LVAR  0x008 4(r)>
00023d44 ; --------------------------------------------------------------------------------------
00023d44 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023d48 bf d5                    |        |		CMPA.L	(A5),A7
00023d4a 62 06                    |b       |		BHI	0x23d52
00023d4c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023d50 4e 76                    |Nv      |		TRAPV
00023d52 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023d56 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023d5a 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023d5c 9e c0                    |        |		SUBA.W	D0,A7
00023d5e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023d62 48 78 00 01              |Hx      |		PEA.L	0x1
00023d66 4e ba ed 1a              |N       |		JSR	0x22a82
00023d6a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023d6e 48 78 00 02              |Hx      |		PEA.L	0x2
00023d72 4e ba ed 0e              |N       |		JSR	0x22a82
00023d76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d78 4e b9 00 01 03 58        |N    X  |		JSR	Modulus(a, b : Quad) : Quad
00023d7e de c0                    |        |		ADDA.W	D0,A7
00023d80 4e ba ed f8              |N       |		JSR	0x22b7a
00023d84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d86 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023d8a 4e 5e                    |N^      |		UNLK	A6
00023d8c 4e 75                    |Nu      |		RTS
00023d8e ; --------------------------------------------------------------------------------------
00023d8e ; OMSI PASCAL Function
00023d8e ;    <LVAR  0x008 4(r)>
00023d8e ; --------------------------------------------------------------------------------------
00023d8e 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023d92 bf d5                    |        |		CMPA.L	(A5),A7
00023d94 62 06                    |b       |		BHI	0x23d9c
00023d96 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023d9a 4e 76                    |Nv      |		TRAPV
00023d9c de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023da0 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023da4 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023da6 9e c0                    |        |		SUBA.W	D0,A7
00023da8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023dac 48 78 00 01              |Hx      |		PEA.L	0x1
00023db0 4e ba ec d0              |N       |		JSR	0x22a82
00023db4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023db8 48 78 00 02              |Hx      |		PEA.L	0x2
00023dbc 4e ba ec c4              |N       |		JSR	0x22a82
00023dc0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dc2 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00023dc8 de c0                    |        |		ADDA.W	D0,A7
00023dca 4e ba ed ae              |N       |		JSR	0x22b7a
00023dce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dd0 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023dd4 4e 5e                    |N^      |		UNLK	A6
00023dd6 4e 75                    |Nu      |		RTS
00023dd8 ; --------------------------------------------------------------------------------------
00023dd8 ; OMSI PASCAL Function
00023dd8 ;    <LVAR  0x008 4(r)>
00023dd8 ; --------------------------------------------------------------------------------------
00023dd8 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023ddc bf d5                    |        |		CMPA.L	(A5),A7
00023dde 62 06                    |b       |		BHI	0x23de6
00023de0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023de4 4e 76                    |Nv      |		TRAPV
00023de6 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023dea 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023dee 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023df0 9e c0                    |        |		SUBA.W	D0,A7
00023df2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023df6 48 78 00 01              |Hx      |		PEA.L	0x1
00023dfa 4e ba ec 86              |N       |		JSR	0x22a82
00023dfe 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023e02 48 78 00 02              |Hx      |		PEA.L	0x2
00023e06 4e ba ec 7a              |N  z    |		JSR	0x22a82
00023e0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e0c 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00023e12 de c0                    |        |		ADDA.W	D0,A7
00023e14 4e ba ed 64              |N  d    |		JSR	0x22b7a
00023e18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e1a 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023e1e 4e 5e                    |N^      |		UNLK	A6
00023e20 4e 75                    |Nu      |		RTS
00023e22 ; --------------------------------------------------------------------------------------
00023e22 ; OMSI PASCAL Function
00023e22 ;    <LVAR  0x008 4(r)>
00023e22 ; --------------------------------------------------------------------------------------
00023e22 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023e26 bf d5                    |        |		CMPA.L	(A5),A7
00023e28 62 06                    |b       |		BHI	0x23e30
00023e2a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023e2e 4e 76                    |Nv      |		TRAPV
00023e30 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023e34 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023e38 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023e3a 9e c0                    |        |		SUBA.W	D0,A7
00023e3c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023e40 48 78 00 01              |Hx      |		PEA.L	0x1
00023e44 4e ba ec 3c              |N  <    |		JSR	0x22a82
00023e48 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023e4c 48 78 00 02              |Hx      |		PEA.L	0x2
00023e50 4e ba ec 30              |N  0    |		JSR	0x22a82
00023e54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e56 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00023e5c de c0                    |        |		ADDA.W	D0,A7
00023e5e 4e ba ed 1a              |N       |		JSR	0x22b7a
00023e62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e64 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023e68 4e 5e                    |N^      |		UNLK	A6
00023e6a 4e 75                    |Nu      |		RTS
00023e6c ; --------------------------------------------------------------------------------------
00023e6c ; OMSI PASCAL Function
00023e6c ;    <LVAR  0x008 4(r)>
00023e6c ; --------------------------------------------------------------------------------------
00023e6c 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00023e70 bf d5                    |        |		CMPA.L	(A5),A7
00023e72 62 06                    |b       |		BHI	0x23e7a
00023e74 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023e78 4e 76                    |Nv      |		TRAPV
00023e7a de fc 00 20              |        |		ADDA.W	#0x20,A7
00023e7e 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00023e82 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023e86 48 78 00 01              |Hx      |		PEA.L	0x1
00023e8a 4e ba eb f6              |N       |		JSR	0x22a82
00023e8e 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00023e92 48 78 00 02              |Hx      |		PEA.L	0x2
00023e96 4e ba ec 26              |N  &    |		JSR	0x22abe
00023e9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e9c 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00023ea2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023ea6 4e ba ec d2              |N       |		JSR	0x22b7a
00023eaa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023eac 4e 5e                    |N^      |		UNLK	A6
00023eae 4e 75                    |Nu      |		RTS
00023eb0 ; --------------------------------------------------------------------------------------
00023eb0 ; OMSI PASCAL Function
00023eb0 ;    <LVAR  0x008 4(r)>
00023eb0 ; --------------------------------------------------------------------------------------
00023eb0 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00023eb4 bf d5                    |        |		CMPA.L	(A5),A7
00023eb6 62 06                    |b       |		BHI	0x23ebe
00023eb8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023ebc 4e 76                    |Nv      |		TRAPV
00023ebe de fc 00 20              |        |		ADDA.W	#0x20,A7
00023ec2 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00023ec6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023eca 48 78 00 01              |Hx      |		PEA.L	0x1
00023ece 4e ba eb b2              |N       |		JSR	0x22a82
00023ed2 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00023ed6 48 78 00 02              |Hx      |		PEA.L	0x2
00023eda 4e ba eb e2              |N       |		JSR	0x22abe
00023ede 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ee0 44 97                    |D       |		NEG.L	(A7)
00023ee2 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00023ee8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023eec 4e ba ec 8c              |N       |		JSR	0x22b7a
00023ef0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ef2 4e 5e                    |N^      |		UNLK	A6
00023ef4 4e 75                    |Nu      |		RTS
00023ef6 ; --------------------------------------------------------------------------------------
00023ef6 ; OMSI PASCAL Function
00023ef6 ;    <LVAR  0x008 4(r)>
00023ef6 ; --------------------------------------------------------------------------------------
00023ef6 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00023efa bf d5                    |        |		CMPA.L	(A5),A7
00023efc 62 06                    |b       |		BHI	0x23f04
00023efe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023f02 4e 76                    |Nv      |		TRAPV
00023f04 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00023f08 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00023f0c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023f10 48 78 00 01              |Hx      |		PEA.L	0x1
00023f14 4e ba eb 6c              |N  l    |		JSR	0x22a82
00023f18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f1a 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00023f20 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f22 4e ba ec 56              |N  V    |		JSR	0x22b7a
00023f26 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f28 4e 5e                    |N^      |		UNLK	A6
00023f2a 4e 75                    |Nu      |		RTS
00023f2c ; --------------------------------------------------------------------------------------
00023f2c ; OMSI PASCAL Function
00023f2c ;    <LVAR  0x008 4(r)>
00023f2c ;    <LVAR -0x00c 4(rw)>
00023f2c ;    <LVAR -0x010 4(rw)>
00023f2c ;    <LVAR -0x014 4(rw)>
00023f2c ;    <LVAR -0x018 4(rw)>
00023f2c ; --------------------------------------------------------------------------------------
00023f2c 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00023f30 bf d5                    |        |		CMPA.L	(A5),A7
00023f32 62 06                    |b       |		BHI	0x23f3a
00023f34 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023f38 4e 76                    |Nv      |		TRAPV
00023f3a de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00023f3e 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
00023f42 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00023f46 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023f48 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023f4a 48 78 00 01              |Hx      |		PEA.L	0x1
00023f4e 4e ba eb 32              |N  2    |		JSR	0x22a82
00023f52 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f54 2d 5f ff e8              |-_      |		MOVE.L	(A7)+,(A6-0x18)
00023f58 2d 57 ff ec              |-W      |		MOVE.L	(A7),(A6-0x14)
00023f5c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f5e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023f60 48 78 00 02              |Hx      |		PEA.L	0x2
00023f64 4e ba eb 1c              |N       |		JSR	0x22a82
00023f68 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f6a 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00023f6e 2d 57 ff f4              |-W      |		MOVE.L	(A7),(A6-0xc)
00023f72 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023f74 48 78 00 03              |Hx      |		PEA.L	0x3
00023f78 4e ba eb 44              |N  D    |		JSR	0x22abe
00023f7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f7e 2e 17                    |.       |		MOVE.L	(A7),D7
00023f80 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023f82 48 78 00 04              |Hx      |		PEA.L	0x4
00023f86 4e ba eb 36              |N  6    |		JSR	0x22abe
00023f8a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f8c 2c 17                    |,       |		MOVE.L	(A7),D6
00023f8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f90 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00023f94 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00023f98 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00023f9c 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00023fa0 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023fa2 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023fa4 4e b9 00 01 03 48        |N    H  |		JSR	?BitField_something_()
00023faa de fc 00 18              |        |		ADDA.W	#0x18,A7
00023fae 4e ba eb ca              |N       |		JSR	0x22b7a
00023fb2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023fb4 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
00023fb8 4e 5e                    |N^      |		UNLK	A6
00023fba 4e 75                    |Nu      |		RTS
00023fbc ; --------------------------------------------------------------------------------------
00023fbc ; OMSI PASCAL Function
00023fbc ;    <LVAR  0x008 4(r)>
00023fbc ;    <LVAR -0x00c 4(rw)>
00023fbc ;    <LVAR -0x010 4(rw)>
00023fbc ; --------------------------------------------------------------------------------------
00023fbc 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00023fc0 bf d5                    |        |		CMPA.L	(A5),A7
00023fc2 62 06                    |b       |		BHI	0x23fca
00023fc4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023fc8 4e 76                    |Nv      |		TRAPV
00023fca de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023fce 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
00023fd2 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00023fd6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023fd8 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023fda 48 78 00 01              |Hx      |		PEA.L	0x1
00023fde 4e ba ea a2              |N       |		JSR	0x22a82
00023fe2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023fe4 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00023fe8 2d 57 ff f4              |-W      |		MOVE.L	(A7),(A6-0xc)
00023fec 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023fee 48 78 00 02              |Hx      |		PEA.L	0x2
00023ff2 4e ba ea ca              |N       |		JSR	0x22abe
00023ff6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ff8 2e 17                    |.       |		MOVE.L	(A7),D7
00023ffa 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023ffc 48 78 00 03              |Hx      |		PEA.L	0x3
00024000 4e ba ea bc              |N       |		JSR	0x22abe
00024004 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024006 2c 17                    |,       |		MOVE.L	(A7),D6
00024008 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002400a 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
0002400e 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00024012 2f 07                    |/       |		MOVE.L	D7,-(A7)
00024014 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024016 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
0002401c de fc 00 10              |        |		ADDA.W	#0x10,A7
00024020 4e ba eb 58              |N  X    |		JSR	0x22b7a
00024024 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024026 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
0002402a 4e 5e                    |N^      |		UNLK	A6
0002402c 4e 75                    |Nu      |		RTS
0002402e ; --------------------------------------------------------------------------------------
0002402e ; OMSI PASCAL Function
0002402e ;    <LVAR  0x008 4(r)>
0002402e ; --------------------------------------------------------------------------------------
0002402e 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024032 bf d5                    |        |		CMPA.L	(A5),A7
00024034 62 06                    |b       |		BHI	0x2403c
00024036 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002403a 4e 76                    |Nv      |		TRAPV
0002403c de fc 00 20              |        |		ADDA.W	#0x20,A7
00024040 48 e7 01 08              |H       |		MOVEM.L	A4+D7,-(A7)
00024044 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024046 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002404a 4e ba e0 e8              |N       |		JSR	0x22134
0002404e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024050 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024052 be 97                    |        |		CMP.L	(A7),D7
00024054 6e 26                    |n&      |		BGT	0x2407c
00024056 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024058 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002405c 2f 07                    |/       |		MOVE.L	D7,-(A7)
0002405e 4e ba e9 f0              |N       |		JSR	0x22a50
00024062 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024064 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002406a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002406c 1e bc 00 20              |        |		MOVE.B	#0x20,(A7)
00024070 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
00024076 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024078 52 87                    |R       |		ADDQ.L	#0x1,D7
0002407a 68 d6                    |h       |		BVC	0x24052
0002407c 48 78 00 01              |Hx      |		PEA.L	0x1
00024080 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00024086 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024088 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002408a 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002408c 4e ba de f2              |N       |		JSR	0x21f80
00024090 2e 8c                    |.       |		MOVE.L	A4,(A7)
00024092 4e ba ea 5e              |N  ^    |		JSR	0x22af2
00024096 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024098 4c df 10 80              |L       |		MOVEM.L	(A7)+,D7+A4
0002409c 4e 5e                    |N^      |		UNLK	A6
0002409e 4e 75                    |Nu      |		RTS
000240a0 ; --------------------------------------------------------------------------------------
000240a0 ; OMSI PASCAL Function
000240a0 ;    <LVAR  0x008 4(r)>
000240a0 ; --------------------------------------------------------------------------------------
000240a0 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000240a4 bf d5                    |        |		CMPA.L	(A5),A7
000240a6 62 06                    |b       |		BHI	0x240ae
000240a8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000240ac 4e 76                    |Nv      |		TRAPV
000240ae de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000240b2 48 e7 83 88              |H       |		MOVEM.L	A4+A0+D7+D6+D0,-(A7)
000240b6 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
000240ba 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000240bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000240be 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000240c0 48 78 00 01              |Hx      |		PEA.L	0x1
000240c4 4e ba e9 8a              |N       |		JSR	0x22a50
000240c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240ca 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000240cc 9e c0                    |        |		SUBA.W	D0,A7
000240ce 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000240d0 48 78 00 02              |Hx      |		PEA.L	0x2
000240d4 4e ba e9 ac              |N       |		JSR	0x22a82
000240d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240da 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000240e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240e2 2e 17                    |.       |		MOVE.L	(A7),D7
000240e4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000240e6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000240e8 48 78 00 03              |Hx      |		PEA.L	0x3
000240ec 4e ba e9 94              |N       |		JSR	0x22a82
000240f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240f2 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000240f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240fa 2c 17                    |,       |		MOVE.L	(A7),D6
000240fc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000240fe 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00024100 2f 07                    |/       |		MOVE.L	D7,-(A7)
00024102 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
00024108 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002410a 2e 86                    |.       |		MOVE.L	D6,(A7)
0002410c 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00024112 de c0                    |        |		ADDA.W	D0,A7
00024114 4e ba e9 dc              |N       |		JSR	0x22af2
00024118 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002411a 4c df 11 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A4
0002411e 4e 5e                    |N^      |		UNLK	A6
00024120 4e 75                    |Nu      |		RTS
00024122 ; --------------------------------------------------------------------------------------
00024122 ; OMSI PASCAL Function
00024122 ;    <LVAR  0x008 4(r)>
00024122 ;    <LVAR -0x00a 2(r)>
00024122 ;    <LVAR -0x00c 4(rw)>
00024122 ;    <LVAR -0x010 4(rw)>
00024122 ; --------------------------------------------------------------------------------------
00024122 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00024126 bf d5                    |        |		CMPA.L	(A5),A7
00024128 62 06                    |b       |		BHI	0x24130
0002412a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002412e 4e 76                    |Nv      |		TRAPV
00024130 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00024134 48 e7 c3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D1+D0,-(A7)
00024138 41 ee ff f0              |A       |		LEA.L	(A6-0x10),A0
0002413c 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00024140 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024142 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024146 48 78 00 01              |Hx      |		PEA.L	0x1
0002414a 4e ba e9 36              |N  6    |		JSR	0x22a82
0002414e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024150 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00024152 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00024154 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00024156 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00024158 30 2e ff f6              |0.      |		MOVE.W	(A6-0xa),D0
0002415c 02 40 00 01              | @      |		ANDI.W	#0x0001,D0
00024160 42 81                    |B       |		CLR.L	D1
00024162 32 00                    |2       |		MOVE.W	D0,D1
00024164 de 81                    |        |		ADD.L	D1,D7
00024166 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024168 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002416a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002416c 48 78 ff ff              |Hx      |		PEA.L	0xffffffff
00024170 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00024176 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002417a 20 9f                    |        |		MOVE.L	(A7)+,(A0)
0002417c 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0002417e 52 86                    |R       |		ADDQ.L	#0x1,D6
00024180 0c 86 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D6
00024186 6f d0                    |o       |		BLE	0x24158
00024188 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002418a 2f 07                    |/       |		MOVE.L	D7,-(A7)
0002418c 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00024192 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024194 4e ba e9 e4              |N       |		JSR	0x22b7a
00024198 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002419a 4c df 03 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1
0002419e 4e 5e                    |N^      |		UNLK	A6
000241a0 4e 75                    |Nu      |		RTS
000241a2 ; --------------------------------------------------------------------------------------
000241a2 ; OMSI PASCAL Function
000241a2 ;    <LVAR  0x008 4(r)>
000241a2 ;    <LVAR -0x004 @ 1(r)>
000241a2 ; --------------------------------------------------------------------------------------
000241a2 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
000241a6 bf d5                    |        |		CMPA.L	(A5),A7
000241a8 62 06                    |b       |		BHI	0x241b0
000241aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000241ae 4e 76                    |Nv      |		TRAPV
000241b0 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000241b4 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
000241b8 45 f9 00 02 68 64        |E   hd  |		LEA.L	0x26864,A2
000241be 72 01                    |r       |		MOVEQ.L	#0x01,D1
000241c0 74 00                    |t       |		MOVEQ.L	#0x00,D2
000241c2 4a 12                    |J       |		TST.B	(A2)
000241c4 66 32                    |f2      |		BNE	0x241f8
000241c6 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000241ca 20 4f                    | O      |		MOVEA.L	A7,A0
000241cc 43 fa d7 b4              |C       |		LEA.L	0x21982,A1
000241d0 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000241d2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000241d4 51 c8 ff fc              |Q       |		DBF	D0,0x241d2
000241d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000241da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000241de 3f 01                    |?       |		MOVE.W	D1,-(A7)
000241e0 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000241e4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000241ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000241ec 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000241f2 de fc 00 20              |        |		ADDA.W	#0x20,A7
000241f6 14 81                    |        |		MOVE.B	D1,(A2)
000241f8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000241fa 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
00024200 20 1f                    |        |		MOVE.L	(A7)+,D0
00024202 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00024208 63 02                    |c       |		BLS	0x2420c
0002420a 4e 4f                    |NO      |		TRAP	#15
0002420c 3e 80                    |>       |		MOVE.W	D0,(A7)
0002420e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00024212 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
00024218 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002421a 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
0002421e b0 01                    |        |		CMP.B	D1,D0
00024220 67 16                    |g       |		BEQ	0x24238
00024222 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024226 4e ba da be              |N       |		JSR	0x21ce6
0002422a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002422c 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00024230 3c 42                    |<B      |		MOVEA.W	D2,A6
00024232 4e f9 00 02 55 ca        |N   U   |		JMP	0x255ca
00024238 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002423a 4e b9 00 01 03 d4        |N       |		JSR	ReadChar() : Byte
00024240 10 1f                    |        |		MOVE.B	(A7)+,D0
00024242 0c 00 00 07              |        |		CMPI.B	#0x07,D0
00024246 67 16                    |g       |		BEQ	0x2425e
00024248 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002424c 4e ba da 98              |N       |		JSR	0x21ce6
00024250 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024252 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00024256 3c 42                    |<B      |		MOVEA.W	D2,A6
00024258 4e f9 00 02 55 ca        |N   U   |		JMP	0x255ca
0002425e 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00024262 4e 5e                    |N^      |		UNLK	A6
00024264 4e 75                    |Nu      |		RTS
00024266 ; --------------------------------------------------------------------------------------
00024266 ; OMSI PASCAL Function
00024266 ; --------------------------------------------------------------------------------------
00024266 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
0002426a bf d5                    |        |		CMPA.L	(A5),A7
0002426c 62 06                    |b       |		BHI	0x24274
0002426e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024272 4e 76                    |Nv      |		TRAPV
00024274 de fc 00 08              |        |		ADDA.W	#0x8,A7
00024278 48 78 00 c8              |Hx      |		PEA.L	0xc8
0002427c 4e ba e9 30              |N  0    |		JSR	0x22bae
00024280 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024282 4e 5e                    |N^      |		UNLK	A6
00024284 4e 75                    |Nu      |		RTS
00024286 ; --------------------------------------------------------------------------------------
00024286 ; OMSI PASCAL Function
00024286 ;    <LVAR  0x008 4(r)>
00024286 ;    <LVAR -0x00c @ 4(r)>
00024286 ; --------------------------------------------------------------------------------------
00024286 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
0002428a bf d5                    |        |		CMPA.L	(A5),A7
0002428c 62 06                    |b       |		BHI	0x24294
0002428e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024292 4e 76                    |Nv      |		TRAPV
00024294 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00024298 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
0002429c 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
000242a0 48 51                    |HQ      |		PEA.L	(A1)
000242a2 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000242a8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000242ac 4e ba de 86              |N       |		JSR	0x22134
000242b0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000242b2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000242b4 be 97                    |        |		CMP.L	(A7),D7
000242b6 6e 6a                    |nj      |		BGT	0x24322
000242b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000242ba 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000242be 2f 07                    |/       |		MOVE.L	D7,-(A7)
000242c0 4e ba e7 fc              |N       |		JSR	0x22abe
000242c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000242c6 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000242c8 6d 20                    |m       |		BLT	0x242ea
000242ca 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
000242d0 6e 18                    |n       |		BGT	0x242ea
000242d2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000242d4 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
000242da 63 02                    |c       |		BLS	0x242de
000242dc 4e 4f                    |NO      |		TRAP	#15
000242de 1f 06                    |        |		MOVE.B	D6,-(A7)
000242e0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000242e6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000242e8 60 34                    |`4      |		BRA	0x2431e
000242ea 48 51                    |HQ      |		PEA.L	(A1)
000242ec 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000242f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000242f4 41 fa d6 c4              |A       |		LEA.L	0x219ba,A0
000242f8 70 06                    |p       |		MOVEQ.L	#0x06,D0
000242fa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000242fc 51 c8 ff fc              |Q       |		DBF	D0,0x242fa
00024300 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024302 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024306 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002430a 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
0002430e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024314 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024316 4e ba da 10              |N       |		JSR	0x21d28
0002431a de fc 00 20              |        |		ADDA.W	#0x20,A7
0002431e 52 87                    |R       |		ADDQ.L	#0x1,D7
00024320 68 92                    |h       |		BVC	0x242b4
00024322 2e 91                    |.       |		MOVE.L	(A1),(A7)
00024324 4e ba e7 cc              |N       |		JSR	0x22af2
00024328 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002432a 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
0002432e 4e 5e                    |N^      |		UNLK	A6
00024330 4e 75                    |Nu      |		RTS
00024332 ; --------------------------------------------------------------------------------------
00024332 ; OMSI PASCAL Function
00024332 ;    <LVAR  0x00c 1(rw)>
00024332 ;    <LVAR  0x008 4(r)>
00024332 ; --------------------------------------------------------------------------------------
00024332 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00024336 bf d5                    |        |		CMPA.L	(A5),A7
00024338 62 06                    |b       |		BHI	0x24340
0002433a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002433e 4e 76                    |Nv      |		TRAPV
00024340 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00024344 48 e7 e7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024348 42 2e 00 0c              |B.      |		CLR.B	(A6+0xc)
0002434c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024350 2f 08                    |/       |		MOVE.L	A0,-(A7)
00024352 70 00                    |p       |		MOVEQ.L	#0x00,D0
00024354 52 40                    |R@      |		ADDQ.W	#0x1,D0
00024356 1c 00                    |        |		MOVE.B	D0,D6
00024358 0c 06 00 2b              |   +    |		CMPI.B	#0x2b,D6
0002435c 6e 00 00 82              |n       |		BGT	0x243e0
00024360 41 fa d8 b2              |A       |		LEA.L	0x21c14,A0
00024364 10 06                    |        |		MOVE.B	D6,D0
00024366 48 80                    |H       |		EXTB.W	D0
00024368 48 c0                    |H       |		EXTW.L	D0
0002436a e2 98                    |        |		ROR.L	#0x1,D0
0002436c d0 c0                    |        |		ADDA.W	D0,A0
0002436e 48 40                    |H@      |		SWAP.W	D0
00024370 e7 58                    | X      |		ROL.W	#0x3,D0
00024372 42 81                    |B       |		CLR.L	D1
00024374 12 10                    |        |		MOVE.B	(A0),D1
00024376 e1 29                    | )      |		LSL.B	D0,D1
00024378 e8 09                    |        |		LSR.B	#0x4,D1
0002437a 2a 01                    |*       |		MOVE.L	D1,D5
0002437c 20 57                    | W      |		MOVEA.L	(A7),A0
0002437e 30 10                    |0       |		MOVE.W	(A0),D0
00024380 48 c0                    |H       |		EXTW.L	D0
00024382 ba 80                    |        |		CMP.L	D0,D5
00024384 66 54                    |fT      |		BNE	0x243da
00024386 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024388 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002438a be 97                    |        |		CMP.L	(A7),D7
0002438c 6e 42                    |nB      |		BGT	0x243d0
0002438e 10 06                    |        |		MOVE.B	D6,D0
00024390 48 80                    |H       |		EXTB.W	D0
00024392 c1 fc 00 0a              |        |		MULS.W	#0xa,D0
00024396 22 07                    |"       |		MOVE.L	D7,D1
00024398 53 81                    |S       |		SUBQ.L	#0x1,D1
0002439a 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
000243a0 63 02                    |c       |		BLS	0x243a4
000243a2 4e 4f                    |NO      |		TRAP	#15
000243a4 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000243a8 43 fa d6 b2              |C       |		LEA.L	COMMAND_TABLE_21a5c,A1
000243ac 24 07                    |$       |		MOVE.L	D7,D2
000243ae 53 82                    |S       |		SUBQ.L	#0x1,D2
000243b0 0c 82 00 00 00 09        |        |		CMPI.L	#0x00000009,D2
000243b6 63 02                    |c       |		BLS	0x243ba
000243b8 4e 4f                    |NO      |		TRAP	#15
000243ba 43 f1 00 00              |C       |		LEA.L	(A1+D0.W),A1
000243be 10 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),D0
000243c2 b0 31 28 00              | 1(     |		CMP.B	(A1+D2.L),D0
000243c6 67 04                    |g       |		BEQ	0x243cc
000243c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243ca 60 0e                    |`       |		BRA	0x243da
000243cc 52 87                    |R       |		ADDQ.L	#0x1,D7
000243ce 68 ba                    |h       |		BVC	0x2438a
000243d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243d2 1d 46 00 0c              | F      |		MOVE.B	D6,(A6+0xc)
000243d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243d8 60 08                    |`       |		BRA	0x243e2
000243da 52 06                    |R       |		ADDQ.B	#0x1,D6
000243dc 68 00 ff 7a              |h  z    |		BVC	0x24358
000243e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243e2 4c df 03 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1
000243e6 4e 5e                    |N^      |		UNLK	A6
000243e8 4e 75                    |Nu      |		RTS
000243ea ; --------------------------------------------------------------------------------------
000243ea ; OMSI PASCAL Function
000243ea ;    <LVAR  0x00c 4(r)>
000243ea ;    <LVAR  0x008 4(r)>
000243ea ;    <LVAR -0x002 @ 1(r)>
000243ea ;    <LVAR -0x006 @ 4(w)>
000243ea ;    <LVAR -0x008 @ 1(r)>
000243ea ;    <LVAR -0x00c @ 4(r)>
000243ea ;    <LVAR -0x010 @ 4(rw)>
000243ea ; --------------------------------------------------------------------------------------
000243ea 4e 56 ff a6              |NV      |		LINK.W	A6,#0xffa6
000243ee bf d5                    |        |		CMPA.L	(A5),A7
000243f0 62 06                    |b       |		BHI	0x243f8
000243f2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000243f6 4e 76                    |Nv      |		TRAPV
000243f8 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
000243fc 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00024400 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
00024404 47 ee ff fe              |G       |		LEA.L	(A6-0x2),A3
00024408 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
0002440c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002440e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024410 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024414 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002441a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002441c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002441e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024420 1f 3c 00 2e              | < .    |		MOVE.B	#0x2e,-(A7)
00024424 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002442a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002442c 41 f9 00 02 68 44        |A   hD  |		LEA.L	0x26844,A0
00024432 70 04                    |p       |		MOVEQ.L	#0x04,D0
00024434 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024436 51 c8 ff fc              |Q       |		DBF	D0,0x24434
0002443a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002443c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002443e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024440 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024444 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024446 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
0002444a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024450 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024452 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024458 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002445a 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002445c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002445e 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024460 42 27                    |B'      |		CLR.B	-(A7)
00024462 1f 01                    |        |		MOVE.B	D1,-(A7)
00024464 48 78 00 00              |Hx      |		PEA.L	0x0
00024468 48 53                    |HS      |		PEA.L	(A3)
0002446a 48 54                    |HT      |		PEA.L	(A4)
0002446c 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00024472 de fc 00 14              |        |		ADDA.W	#0x14,A7
00024476 4a 13                    |J       |		TST.B	(A3)
00024478 67 4a                    |gJ      |		BEQ	0x244c4
0002447a 48 52                    |HR      |		PEA.L	(A2)
0002447c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024482 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00024486 4e ba d8 5e              |N  ^    |		JSR	0x21ce6
0002448a 9e fc 00 16              |        |		SUBA.W	#0x16,A7
0002448e 20 4f                    | O      |		MOVEA.L	A7,A0
00024490 43 fa d5 28              |C  (    |		LEA.L	0x219ba,A1
00024494 70 18                    |p       |		MOVEQ.L	#0x18,D0
00024496 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024498 51 c8 ff fc              |Q       |		DBF	D0,0x24496
0002449c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002449e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000244a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000244a4 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000244a8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000244ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244b0 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
000244b4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000244ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244bc 4e ba d8 6a              |N  j    |		JSR	0x21d28
000244c0 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000244c4 2d 79 00 02 68 32 ff fa  |-y  h2  |		MOVE.L	0x26832,(A6-0x6)
000244cc 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000244ce 48 52                    |HR      |		PEA.L	(A2)
000244d0 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000244d4 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
000244da de fc 00 0c              |        |		ADDA.W	#0xc,A7
000244de 20 52                    | R      |		MOVEA.L	(A2),A0
000244e0 4a 50                    |JP      |		TST.W	(A0)
000244e2 67 14                    |g       |		BEQ	0x244f8
000244e4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000244e6 4e ba da 98              |N       |		JSR	0x21f80
000244ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244ec 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000244f0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000244f2 4e ba de 12              |N       |		JSR	0x22306
000244f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244f8 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
000244fc 67 ce                    |g       |		BEQ	0x244cc
000244fe 42 27                    |B'      |		CLR.B	-(A7)
00024500 1f 01                    |        |		MOVE.B	D1,-(A7)
00024502 48 78 00 01              |Hx      |		PEA.L	0x1
00024506 48 53                    |HS      |		PEA.L	(A3)
00024508 48 54                    |HT      |		PEA.L	(A4)
0002450a 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00024510 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024514 48 52                    |HR      |		PEA.L	(A2)
00024516 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002451c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002451e 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00024522 4e 5e                    |N^      |		UNLK	A6
00024524 4e 75                    |Nu      |		RTS
00024526 ; --------------------------------------------------------------------------------------
00024526 ; OMSI PASCAL Function
00024526 ;    <LVAR  0x014 1(w)>
00024526 ;    <LVAR  0x00c 4(r)>
00024526 ;    <LVAR  0x008 4(r)>
00024526 ; --------------------------------------------------------------------------------------
00024526 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
0002452a bf d5                    |        |		CMPA.L	(A5),A7
0002452c 62 06                    |b       |		BHI	0x24534
0002452e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024532 4e 76                    |Nv      |		TRAPV
00024534 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024538 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002453c 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00024540 d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00024544 53 80                    |S       |		SUBQ.L	#0x1,D0
00024546 53 80                    |S       |		SUBQ.L	#0x1,D0
00024548 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002454e 63 02                    |c       |		BLS	0x24552
00024550 4e 4f                    |NO      |		TRAP	#15
00024552 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00024558 1d 70 08 08 00 14        | p      |		MOVE.B	(A0+D0.L+#0x8),(A6+0x14)
0002455e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00024562 4e 5e                    |N^      |		UNLK	A6
00024564 4e 75                    |Nu      |		RTS
00024566 ; --------------------------------------------------------------------------------------
00024566 ; OMSI PASCAL Function
00024566 ;    <LVAR  0x010 4(w)>
00024566 ;    <LVAR  0x00c 4(r)>
00024566 ;    <LVAR  0x008 4(r)>
00024566 ;    <LVAR -0x004 @ 1(r)>
00024566 ;    <LVAR -0x008 @ 4(r)>
00024566 ; --------------------------------------------------------------------------------------
00024566 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
0002456a bf d5                    |        |		CMPA.L	(A5),A7
0002456c 62 06                    |b       |		BHI	0x24574
0002456e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024572 4e 76                    |Nv      |		TRAPV
00024574 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00024578 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002457c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002457e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024582 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024586 4e ba e4 4c              |N  L    |		JSR	0x229d4
0002458a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002458c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00024590 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00024594 4e b9 00 01 02 ec        |N       |		JSR	String2Long(src : String; VAR status : Bool; VAR retval : Long)
0002459a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002459e 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
000245a2 66 30                    |f0      |		BNE	0x245d4
000245a4 9e fc 00 18              |        |		SUBA.W	#0x18,A7
000245a8 20 4f                    | O      |		MOVEA.L	A7,A0
000245aa 43 fa d4 28              |C  (    |		LEA.L	0x219d4,A1
000245ae 70 16                    |p       |		MOVEQ.L	#0x16,D0
000245b0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000245b2 51 c8 ff fc              |Q       |		DBF	D0,0x245b0
000245b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000245b8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000245bc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000245c0 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000245c4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000245ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000245cc 4e ba d7 5a              |N  Z    |		JSR	0x21d28
000245d0 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000245d4 2d 6e ff f8 00 10        |-n      |		MOVE.L	(A6-0x8),(A6+0x10)
000245da 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000245de 4e 5e                    |N^      |		UNLK	A6
000245e0 4e 75                    |Nu      |		RTS
000245e2 ; --------------------------------------------------------------------------------------
000245e2 ; OMSI PASCAL Function
000245e2 ;    <LVAR  0x014 4(r)>
000245e2 ;    <LVAR  0x010 4(r)>
000245e2 ;    <LVAR  0x00c 4(r)>
000245e2 ;    <LVAR  0x008 4(r)>
000245e2 ;    <LVAR -0x00c 4(rw)>
000245e2 ;    <LVAR -0x010 4(rw)>
000245e2 ;    <LVAR -0x014 4(rw)>
000245e2 ;    <LVAR -0x018 4(w)>
000245e2 ;    <LVAR -0x020 4(rw)>
000245e2 ; --------------------------------------------------------------------------------------
000245e2 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
000245e6 bf d5                    |        |		CMPA.L	(A5),A7
000245e8 62 06                    |b       |		BHI	0x245f0
000245ea 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000245ee 4e 76                    |Nv      |		TRAPV
000245f0 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
000245f4 48 e7 c7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
000245f8 43 ee ff e0              |C       |		LEA.L	(A6-0x20),A1
000245fc 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
00024600 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00024604 49 ee ff ec              |I       |		LEA.L	(A6-0x14),A4
00024608 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002460a 22 ae 00 14              |"       |		MOVE.L	(A6+0x14),(A1)
0002460e 20 39 00 02 68 32        | 9  h2  |		MOVE.L	0x26832,D0
00024614 90 ae 00 14              |        |		SUB.L	(A6+0x14),D0
00024618 28 80                    |(       |		MOVE.L	D0,(A4)
0002461a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002461e 2a 2e 00 10              |*.      |		MOVE.L	(A6+0x10),D5
00024622 ba 97                    |        |		CMP.L	(A7),D5
00024624 6e 2c                    |n,      |		BGT	0x24652
00024626 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024628 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002462c 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002462e 4e ba e3 42              |N  B    |		JSR	0x22972
00024632 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024634 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024636 26 97                    |&       |		MOVE.L	(A7),(A3)
00024638 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002463a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002463c 4e ba e2 fc              |N       |		JSR	0x2293a
00024640 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024642 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00024644 de 86                    |        |		ADD.L	D6,D7
00024646 ba ae 00 0c              |        |		CMP.L	(A6+0xc),D5
0002464a 6c 02                    |l       |		BGE	0x2464e
0002464c 52 87                    |R       |		ADDQ.L	#0x1,D7
0002464e 52 85                    |R       |		ADDQ.L	#0x1,D5
00024650 68 d0                    |h       |		BVC	0x24622
00024652 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024654 20 11                    |        |		MOVE.L	(A1),D0
00024656 d0 94                    |        |		ADD.L	(A4),D0
00024658 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
0002465c be 94                    |        |		CMP.L	(A4),D7
0002465e 67 0c                    |g       |		BEQ	0x2466c
00024660 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024662 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024664 9f 97                    |        |		SUB.L	D7,(A7)
00024666 4e ba dc 14              |N       |		JSR	0x2227c
0002466a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002466c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024670 2a 2e 00 10              |*.      |		MOVE.L	(A6+0x10),D5
00024674 ba 97                    |        |		CMP.L	(A7),D5
00024676 6e 00 00 88              |n       |		BGT	0x24700
0002467a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002467c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024680 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024682 4e ba e2 ee              |N       |		JSR	0x22972
00024686 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024688 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002468a 26 97                    |&       |		MOVE.L	(A7),(A3)
0002468c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002468e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024690 4e ba e2 a8              |N       |		JSR	0x2293a
00024694 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024696 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00024698 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002469a 70 01                    |p       |		MOVEQ.L	#0x01,D0
0002469c b0 97                    |        |		CMP.L	(A7),D0
0002469e 6e 30                    |n0      |		BGT	0x246d0
000246a0 22 11                    |"       |		MOVE.L	(A1),D1
000246a2 d2 80                    |        |		ADD.L	D0,D1
000246a4 53 81                    |S       |		SUBQ.L	#0x1,D1
000246a6 53 81                    |S       |		SUBQ.L	#0x1,D1
000246a8 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
000246ae 63 02                    |c       |		BLS	0x246b2
000246b0 4e 4f                    |NO      |		TRAP	#15
000246b2 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
000246b8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000246ba 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000246bc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000246be 2f 00                    |/       |		MOVE.L	D0,-(A7)
000246c0 4e ba fe 64              |N  d    |		JSR	0x24526
000246c4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000246c8 11 9f 18 08              |        |		MOVE.B	(A7)+,(A0+D1.L+#0x8)
000246cc 52 80                    |R       |		ADDQ.L	#0x1,D0
000246ce 68 cc                    |h       |		BVC	0x2469c
000246d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000246d2 ba ae 00 0c              |        |		CMP.L	(A6+0xc),D5
000246d6 6c 22                    |l"      |		BGE	0x246fa
000246d8 20 11                    |        |		MOVE.L	(A1),D0
000246da d0 86                    |        |		ADD.L	D6,D0
000246dc 22 00                    |"       |		MOVE.L	D0,D1
000246de 53 81                    |S       |		SUBQ.L	#0x1,D1
000246e0 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
000246e6 63 02                    |c       |		BLS	0x246ea
000246e8 4e 4f                    |NO      |		TRAP	#15
000246ea 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
000246f0 11 bc 00 2c 18 08        |   ,    |		MOVE.B	#0x2c,(A0+D1.L+#0x8)
000246f6 52 80                    |R       |		ADDQ.L	#0x1,D0
000246f8 22 80                    |"       |		MOVE.L	D0,(A1)
000246fa 52 85                    |R       |		ADDQ.L	#0x1,D5
000246fc 68 00 ff 76              |h  v    |		BVC	0x24674
00024700 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024702 4c df 1f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
00024706 4e 5e                    |N^      |		UNLK	A6
00024708 4e 75                    |Nu      |		RTS
0002470a ; --------------------------------------------------------------------------------------
0002470a ; OMSI PASCAL Function
0002470a ;    <LVAR  0x018 4(rw)>
0002470a ;    <LVAR  0x014 4(r)>
0002470a ;    <LVAR  0x010 4(r)>
0002470a ;    <LVAR  0x00c 4(r)>
0002470a ;    <LVAR  0x008 4(r)>
0002470a ;    <LVAR -0x008 4(rw)>
0002470a ;    <LVAR -0x00c 4(rw)>
0002470a ;    <LVAR -0x018 4(w)>
0002470a ; --------------------------------------------------------------------------------------
0002470a 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
0002470e bf d5                    |        |		CMPA.L	(A5),A7
00024710 62 06                    |b       |		BHI	0x24718
00024712 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024716 4e 76                    |Nv      |		TRAPV
00024718 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
0002471c 48 e7 c7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00024720 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00024724 43 ee 00 14              |C       |		LEA.L	(A6+0x14),A1
00024728 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
0002472c 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00024730 49 fa fd f4              |I       |		LEA.L	0x24526,A4
00024734 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00024736 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024738 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002473a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002473c 4e ba e1 fc              |N       |		JSR	0x2293a
00024740 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024742 26 97                    |&       |		MOVE.L	(A7),(A3)
00024744 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024748 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002474c 4e ba e1 ec              |N       |		JSR	0x2293a
00024750 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024752 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00024754 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00024756 20 13                    |        |		MOVE.L	(A3),D0
00024758 90 90                    |        |		SUB.L	(A0),D0
0002475a 52 80                    |R       |		ADDQ.L	#0x1,D0
0002475c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002475e 70 01                    |p       |		MOVEQ.L	#0x01,D0
00024760 b0 97                    |        |		CMP.L	(A7),D0
00024762 6e 00 00 8e              |n       |		BGT	0x247f2
00024766 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
0002476a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002476c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002476e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024770 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00024772 ba 97                    |        |		CMP.L	(A7),D5
00024774 6e 42                    |nB      |		BGT	0x247b8
00024776 0c 85 00 00 00 01        |        |		CMPI.L	#0x00000001,D5
0002477c 66 04                    |f       |		BNE	0x24782
0002477e 7e 2f                    |~/      |		MOVEQ.L	#0x2f,D7
00024780 60 14                    |`       |		BRA	0x24796
00024782 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024784 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024788 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002478c 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002478e 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00024790 4e 94                    |N       |		JSR	(A4)
00024792 de c1                    |        |		ADDA.W	D1,A7
00024794 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024796 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024798 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002479a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002479c 20 2f 00 0e              | /      |		MOVE.L	(A7+0xe),D0
000247a0 d0 85                    |        |		ADD.L	D5,D0
000247a2 53 80                    |S       |		SUBQ.L	#0x1,D0
000247a4 2f 00                    |/       |		MOVE.L	D0,-(A7)
000247a6 4e 94                    |N       |		JSR	(A4)
000247a8 de c1                    |        |		ADDA.W	D1,A7
000247aa be 1f                    |        |		CMP.B	(A7)+,D7
000247ac 67 04                    |g       |		BEQ	0x247b2
000247ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247b0 60 08                    |`       |		BRA	0x247ba
000247b2 2c 05                    |,       |		MOVE.L	D5,D6
000247b4 52 85                    |R       |		ADDQ.L	#0x1,D5
000247b6 68 ba                    |h       |		BVC	0x24772
000247b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247ba bc 90                    |        |		CMP.L	(A0),D6
000247bc 66 2c                    |f,      |		BNE	0x247ea
000247be 20 17                    |        |		MOVE.L	(A7),D0
000247c0 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
000247c4 d0 90                    |        |		ADD.L	(A0),D0
000247c6 b0 93                    |        |		CMP.L	(A3),D0
000247c8 6d 02                    |m       |		BLT	0x247cc
000247ca 60 1a                    |`       |		BRA	0x247e6
000247cc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000247ce 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000247d0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000247d2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000247d4 4e 94                    |N       |		JSR	(A4)
000247d6 de c1                    |        |		ADDA.W	D1,A7
000247d8 1e 1f                    |        |		MOVE.B	(A7)+,D7
000247da 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
000247de 67 06                    |g       |		BEQ	0x247e6
000247e0 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
000247e4 66 04                    |f       |		BNE	0x247ea
000247e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000247e8 60 0e                    |`       |		BRA	0x247f8
000247ea 20 1f                    |        |		MOVE.L	(A7)+,D0
000247ec 52 80                    |R       |		ADDQ.L	#0x1,D0
000247ee 68 00 ff 70              |h  p    |		BVC	0x24760
000247f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247f4 42 ae 00 18              |B       |		CLR.L	(A6+0x18)
000247f8 4c df 1f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
000247fc 4e 5e                    |N^      |		UNLK	A6
000247fe 4e 75                    |Nu      |		RTS
00024800 ; --------------------------------------------------------------------------------------
00024800 ; OMSI PASCAL Function
00024800 ;    <LVAR  0x018 4(r)>
00024800 ;    <LVAR  0x014 4(r)>
00024800 ;    <LVAR  0x010 4(r)>
00024800 ;    <LVAR  0x00c 4(r)>
00024800 ;    <LVAR  0x008 4(r)>
00024800 ; --------------------------------------------------------------------------------------
00024800 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00024804 bf d5                    |        |		CMPA.L	(A5),A7
00024806 62 06                    |b       |		BHI	0x2480e
00024808 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002480c 4e 76                    |Nv      |		TRAPV
0002480e de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00024812 48 e7 c7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D1+D0,-(A7)
00024816 41 ee 00 14              |A       |		LEA.L	(A6+0x14),A0
0002481a 43 ee 00 10              |C       |		LEA.L	(A6+0x10),A1
0002481e 72 2f                    |r/      |		MOVEQ.L	#0x2f,D1
00024820 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024822 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024824 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024826 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002482a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002482e 4e ba fe da              |N       |		JSR	0x2470a
00024832 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024836 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00024838 6f 52                    |oR      |		BLE	0x2488c
0002483a 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
0002483e 1f 01                    |        |		MOVE.B	D1,-(A7)
00024840 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00024846 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024848 20 05                    |        |		MOVE.L	D5,D0
0002484a 52 80                    |R       |		ADDQ.L	#0x1,D0
0002484c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002484e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024850 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024852 4e ba e0 e6              |N       |		JSR	0x2293a
00024856 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024858 2c 00                    |,       |		MOVE.L	D0,D6
0002485a bc 97                    |        |		CMP.L	(A7),D6
0002485c 6e 2c                    |n,      |		BGT	0x2488a
0002485e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024860 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024862 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024864 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024866 4e ba fc be              |N       |		JSR	0x24526
0002486a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002486e 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024870 be 01                    |        |		CMP.B	D1,D7
00024872 66 04                    |f       |		BNE	0x24878
00024874 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024876 60 14                    |`       |		BRA	0x2488c
00024878 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
0002487c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002487e 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00024884 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024886 52 86                    |R       |		ADDQ.L	#0x1,D6
00024888 68 d0                    |h       |		BVC	0x2485a
0002488a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002488c 4c df 03 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1
00024890 4e 5e                    |N^      |		UNLK	A6
00024892 4e 75                    |Nu      |		RTS
00024894 ; --------------------------------------------------------------------------------------
00024894 ; OMSI PASCAL Function
00024894 ;    <LVAR  0x018 4(r)>
00024894 ;    <LVAR  0x014 4(r)>
00024894 ;    <LVAR  0x010 4(r)>
00024894 ;    <LVAR  0x00c 4(r)>
00024894 ;    <LVAR  0x008 4(r)>
00024894 ;    <LVAR -0x006 4(rw)>
00024894 ;    <LVAR -0x014 4(rw)>
00024894 ; --------------------------------------------------------------------------------------
00024894 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
00024898 bf d5                    |        |		CMPA.L	(A5),A7
0002489a 62 06                    |b       |		BHI	0x248a2
0002489c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000248a0 4e 76                    |Nv      |		TRAPV
000248a2 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000248a6 48 e7 c7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
000248aa 41 ee 00 14              |A       |		LEA.L	(A6+0x14),A0
000248ae 43 ee 00 10              |C       |		LEA.L	(A6+0x10),A1
000248b2 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000248b6 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000248b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000248ba 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248bc 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000248be 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000248c2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000248c6 4e ba fe 42              |N  B    |		JSR	0x2470a
000248ca de fc 00 10              |        |		ADDA.W	#0x10,A7
000248ce 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
000248d2 6f 6e                    |on      |		BLE	0x24942
000248d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000248d6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248d8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000248da 4e ba e0 5e              |N  ^    |		JSR	0x2293a
000248de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000248e0 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000248e2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000248e4 2a 2e ff ec              |*.      |		MOVE.L	(A6-0x14),D5
000248e8 ba 97                    |        |		CMP.L	(A7),D5
000248ea 6e 54                    |nT      |		BGT	0x24940
000248ec 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000248ee 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248f0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000248f2 2f 05                    |/       |		MOVE.L	D5,-(A7)
000248f4 4e ba fc 30              |N  0    |		JSR	0x24526
000248f8 de c1                    |        |		ADDA.W	D1,A7
000248fa 10 1f                    |        |		MOVE.B	(A7)+,D0
000248fc 0c 00 00 3d              |   =    |		CMPI.B	#0x3d,D0
00024900 66 3a                    |f:      |		BNE	0x2493c
00024902 20 05                    |        |		MOVE.L	D5,D0
00024904 52 80                    |R       |		ADDQ.L	#0x1,D0
00024906 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024908 2c 00                    |,       |		MOVE.L	D0,D6
0002490a bc 97                    |        |		CMP.L	(A7),D6
0002490c 6e 2c                    |n,      |		BGT	0x2493a
0002490e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024910 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024912 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024914 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024916 4e ba fc 0e              |N       |		JSR	0x24526
0002491a de c1                    |        |		ADDA.W	D1,A7
0002491c 1e 1f                    |        |		MOVE.B	(A7)+,D7
0002491e 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00024922 66 04                    |f       |		BNE	0x24928
00024924 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024926 60 1a                    |`       |		BRA	0x24942
00024928 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
0002492c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002492e 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00024934 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024936 52 86                    |R       |		ADDQ.L	#0x1,D6
00024938 68 d0                    |h       |		BVC	0x2490a
0002493a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002493c 52 85                    |R       |		ADDQ.L	#0x1,D5
0002493e 68 a8                    |h       |		BVC	0x248e8
00024940 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024942 4c df 07 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2
00024946 4e 5e                    |N^      |		UNLK	A6
00024948 4e 75                    |Nu      |		RTS
0002494a ; --------------------------------------------------------------------------------------
0002494a ; OMSI PASCAL Function
0002494a ;    <LVAR  0x010 4(r)>
0002494a ;    <LVAR  0x00c 4(r)>
0002494a ;    <LVAR  0x008 4(r)>
0002494a ; --------------------------------------------------------------------------------------
0002494a 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
0002494e bf d5                    |        |		CMPA.L	(A5),A7
00024950 62 06                    |b       |		BHI	0x24958
00024952 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024956 4e 76                    |Nv      |		TRAPV
00024958 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
0002495c 48 e7 c7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D1+D0,-(A7)
00024960 41 ee 00 0c              |A       |		LEA.L	(A6+0xc),A0
00024964 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00024968 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002496a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002496c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002496e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024970 4e ba df c8              |N       |		JSR	0x2293a
00024974 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024976 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00024978 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002497a 7c 01                    ||       |		MOVEQ.L	#0x01,D6
0002497c bc 97                    |        |		CMP.L	(A7),D6
0002497e 6e 46                    |nF      |		BGT	0x249c6
00024980 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024982 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024984 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024986 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024988 4e ba fb 9c              |N       |		JSR	0x24526
0002498c de c1                    |        |		ADDA.W	D1,A7
0002498e 10 1f                    |        |		MOVE.B	(A7)+,D0
00024990 0c 00 00 2f              |   /    |		CMPI.B	#0x2f,D0
00024994 66 2c                    |f,      |		BNE	0x249c2
00024996 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024998 2e 06                    |.       |		MOVE.L	D6,D7
0002499a be 97                    |        |		CMP.L	(A7),D7
0002499c 6e 1e                    |n       |		BGT	0x249bc
0002499e 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000249a2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000249a4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000249a6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000249a8 2f 07                    |/       |		MOVE.L	D7,-(A7)
000249aa 4e ba fb 7a              |N  z    |		JSR	0x24526
000249ae de c1                    |        |		ADDA.W	D1,A7
000249b0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000249b6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000249b8 52 87                    |R       |		ADDQ.L	#0x1,D7
000249ba 68 de                    |h       |		BVC	0x2499a
000249bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000249be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000249c0 60 06                    |`       |		BRA	0x249c8
000249c2 52 86                    |R       |		ADDQ.L	#0x1,D6
000249c4 68 b6                    |h       |		BVC	0x2497c
000249c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000249c8 4c df 03 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1
000249cc 4e 5e                    |N^      |		UNLK	A6
000249ce 4e 75                    |Nu      |		RTS
000249d0 ; --------------------------------------------------------------------------------------
000249d0 ; OMSI PASCAL Function
000249d0 ;    <LVAR  0x010 4(r)>
000249d0 ;    <LVAR  0x00c 4(r)>
000249d0 ;    <LVAR  0x008 4(r)>
000249d0 ; --------------------------------------------------------------------------------------
000249d0 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000249d4 bf d5                    |        |		CMPA.L	(A5),A7
000249d6 62 06                    |b       |		BHI	0x249de
000249d8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000249dc 4e 76                    |Nv      |		TRAPV
000249de de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000249e2 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
000249e6 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000249ea 42 50                    |BP      |		CLR.W	(A0)
000249ec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249ee 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000249f2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000249f6 4e ba df 42              |N  B    |		JSR	0x2293a
000249fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249fc 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000249fe be 97                    |        |		CMP.L	(A7),D7
00024a00 6e 34                    |n4      |		BGT	0x24a36
00024a02 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024a04 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024a08 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024a0c 2f 07                    |/       |		MOVE.L	D7,-(A7)
00024a0e 4e ba fb 16              |N       |		JSR	0x24526
00024a12 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024a16 1c 1f                    |        |		MOVE.B	(A7)+,D6
00024a18 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
00024a1c 67 10                    |g       |		BEQ	0x24a2e
00024a1e 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00024a22 1f 06                    |        |		MOVE.B	D6,-(A7)
00024a24 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00024a2a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024a2c 60 04                    |`       |		BRA	0x24a32
00024a2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024a30 60 06                    |`       |		BRA	0x24a38
00024a32 52 87                    |R       |		ADDQ.L	#0x1,D7
00024a34 68 c8                    |h       |		BVC	0x249fe
00024a36 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024a38 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
00024a3c 4e 5e                    |N^      |		UNLK	A6
00024a3e 4e 75                    |Nu      |		RTS
00024a40 ; --------------------------------------------------------------------------------------
00024a40 ; OMSI PASCAL Function
00024a40 ; --------------------------------------------------------------------------------------
00024a40 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00024a44 bf d5                    |        |		CMPA.L	(A5),A7
00024a46 62 06                    |b       |		BHI	0x24a4e
00024a48 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024a4c 4e 76                    |Nv      |		TRAPV
00024a4e de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00024a52 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00024a56 41 fa cf b6              |A       |		LEA.L	0x21a0e,A0
00024a5a 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024a5c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024a5e 51 c8 ff fc              |Q       |		DBF	D0,0x24a5c
00024a62 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a64 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a68 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024a6c 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00024a70 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024a76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a78 4e ba d2 ae              |N       |		JSR	0x21d28
00024a7c de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00024a80 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00024a84 4e 5e                    |N^      |		UNLK	A6
00024a86 4e 75                    |Nu      |		RTS
00024a88 ; --------------------------------------------------------------------------------------
00024a88 ; OMSI PASCAL Function
00024a88 ;    <LVAR  0x00c 4(r)>
00024a88 ;    <LVAR  0x008 4(r)>
00024a88 ;    <LVAR -0x006 4(rw)>
00024a88 ; --------------------------------------------------------------------------------------
00024a88 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00024a8c bf d5                    |        |		CMPA.L	(A5),A7
00024a8e 62 06                    |b       |		BHI	0x24a96
00024a90 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024a94 4e 76                    |Nv      |		TRAPV
00024a96 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00024a9a 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024a9e 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
00024aa2 45 f9 00 02 68 32        |E   h2  |		LEA.L	0x26832,A2
00024aa8 47 fa d3 1a              |G       |		LEA.L	0x21dc4,A3
00024aac 72 30                    |r0      |		MOVEQ.L	#0x30,D1
00024aae 74 39                    |t9      |		MOVEQ.L	#0x39,D2
00024ab0 76 25                    |v%      |		MOVEQ.L	#0x25,D3
00024ab2 78 2d                    |x-      |		MOVEQ.L	#0x2d,D4
00024ab4 2d 52 ff fa              |-R      |		MOVE.L	(A2),(A6-0x6)
00024ab8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024aba 4e 93                    |N       |		JSR	(A3)
00024abc 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024abe be 03                    |        |		CMP.B	D3,D7
00024ac0 66 08                    |f       |		BNE	0x24aca
00024ac2 20 51                    | Q      |		MOVEA.L	(A1),A0
00024ac4 42 90                    |B       |		CLR.L	(A0)
00024ac6 60 00 00 e2              |`       |		BRA	0x24baa
00024aca be 04                    |        |		CMP.B	D4,D7
00024acc 66 0c                    |f       |		BNE	0x24ada
00024ace 20 51                    | Q      |		MOVEA.L	(A1),A0
00024ad0 20 bc 00 00 00 01        |        |		MOVE.L	#0x1,(A0)
00024ad6 60 00 00 d2              |`       |		BRA	0x24baa
00024ada 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00024ade 66 0c                    |f       |		BNE	0x24aec
00024ae0 20 51                    | Q      |		MOVEA.L	(A1),A0
00024ae2 20 bc 00 00 00 04        |        |		MOVE.L	#0x4,(A0)
00024ae8 60 00 00 c0              |`       |		BRA	0x24baa
00024aec 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
00024af0 66 0c                    |f       |		BNE	0x24afe
00024af2 20 51                    | Q      |		MOVEA.L	(A1),A0
00024af4 20 bc 00 00 00 05        |        |		MOVE.L	#0x5,(A0)
00024afa 60 00 00 ae              |`       |		BRA	0x24baa
00024afe 0c 07 00 5c              |   \    |		CMPI.B	#0x5c,D7
00024b02 66 0c                    |f       |		BNE	0x24b10
00024b04 20 51                    | Q      |		MOVEA.L	(A1),A0
00024b06 20 bc 00 00 00 06        |        |		MOVE.L	#0x6,(A0)
00024b0c 60 00 00 9c              |`       |		BRA	0x24baa
00024b10 4a 07                    |J       |		TST.B	D7
00024b12 66 2c                    |f,      |		BNE	0x24b40
00024b14 41 fa cf 10              |A       |		LEA.L	0x21a26,A0
00024b18 70 05                    |p       |		MOVEQ.L	#0x05,D0
00024b1a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00024b1c 51 c8 ff fc              |Q       |		DBF	D0,0x24b1a
00024b20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024b22 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024b26 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024b2a 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00024b2e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024b34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b36 4e ba d1 f0              |N       |		JSR	0x21d28
00024b3a de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00024b3e 60 6a                    |`j      |		BRA	0x24baa
00024b40 be 01                    |        |		CMP.B	D1,D7
00024b42 65 2c                    |e,      |		BCS	0x24b70
00024b44 be 02                    |        |		CMP.B	D2,D7
00024b46 62 28                    |b(      |		BHI	0x24b70
00024b48 20 51                    | Q      |		MOVEA.L	(A1),A0
00024b4a 20 bc 00 00 00 02        |        |		MOVE.L	#0x2,(A0)
00024b50 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024b52 4e ba d2 32              |N  2    |		JSR	0x21d86
00024b56 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024b58 be 01                    |        |		CMP.B	D1,D7
00024b5a 65 0a                    |e       |		BCS	0x24b66
00024b5c be 02                    |        |		CMP.B	D2,D7
00024b5e 62 06                    |b       |		BHI	0x24b66
00024b60 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024b62 4e 93                    |N       |		JSR	(A3)
00024b64 1c 1f                    |        |		MOVE.B	(A7)+,D6
00024b66 be 01                    |        |		CMP.B	D1,D7
00024b68 65 04                    |e       |		BCS	0x24b6e
00024b6a be 02                    |        |		CMP.B	D2,D7
00024b6c 63 e2                    |c       |		BLS	0x24b50
00024b6e 60 3a                    |`:      |		BRA	0x24baa
00024b70 20 51                    | Q      |		MOVEA.L	(A1),A0
00024b72 20 bc 00 00 00 03        |        |		MOVE.L	#0x3,(A0)
00024b78 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00024b7a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024b7c 4e ba d2 08              |N       |		JSR	0x21d86
00024b80 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024b82 be 03                    |        |		CMP.B	D3,D7
00024b84 67 16                    |g       |		BEQ	0x24b9c
00024b86 be 04                    |        |		CMP.B	D4,D7
00024b88 67 12                    |g       |		BEQ	0x24b9c
00024b8a 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00024b8e 67 0c                    |g       |		BEQ	0x24b9c
00024b90 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
00024b94 67 06                    |g       |		BEQ	0x24b9c
00024b96 0c 07 00 5c              |   \    |		CMPI.B	#0x5c,D7
00024b9a 66 04                    |f       |		BNE	0x24ba0
00024b9c 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00024b9e 60 06                    |`       |		BRA	0x24ba6
00024ba0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024ba2 4e 93                    |N       |		JSR	(A3)
00024ba4 1c 1f                    |        |		MOVE.B	(A7)+,D6
00024ba6 4a 05                    |J       |		TST.B	D5
00024ba8 67 d0                    |g       |		BEQ	0x24b7a
00024baa 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024bae 20 ae ff fa              |        |		MOVE.L	(A6-0x6),(A0)
00024bb2 21 52 00 04              |!R      |		MOVE.L	(A2),(A0+0x4)
00024bb6 53 a8 00 04              |S       |		SUBQ.L	#0x1,(A0+0x4)
00024bba 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00024bbe 4e 5e                    |N^      |		UNLK	A6
00024bc0 4e 75                    |Nu      |		RTS
00024bc2 ; --------------------------------------------------------------------------------------
00024bc2 ; OMSI PASCAL Function
00024bc2 ;    <LVAR  0x00c 4(r)>
00024bc2 ;    <LVAR  0x008 4(r)>
00024bc2 ; --------------------------------------------------------------------------------------
00024bc2 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00024bc6 bf d5                    |        |		CMPA.L	(A5),A7
00024bc8 62 06                    |b       |		BHI	0x24bd0
00024bca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024bce 4e 76                    |Nv      |		TRAPV
00024bd0 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00024bd4 48 e7 c7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00024bd8 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00024bdc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024be0 2f 08                    |/       |		MOVE.L	A0,-(A7)
00024be2 2c 39 00 02 68 32        |,9  h2  |		MOVE.L	0x26832,D6
00024be8 9c 92                    |        |		SUB.L	(A2),D6
00024bea 2a 12                    |*       |		MOVE.L	(A2),D5
00024bec da 86                    |        |		ADD.L	D6,D5
00024bee 30 10                    |0       |		MOVE.W	(A0),D0
00024bf0 48 c0                    |H       |		EXTW.L	D0
00024bf2 b0 86                    |        |		CMP.L	D6,D0
00024bf4 67 0c                    |g       |		BEQ	0x24c02
00024bf6 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024bf8 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024bfa 91 97                    |        |		SUB.L	D0,(A7)
00024bfc 4e ba d6 7e              |N  ~    |		JSR	0x2227c
00024c00 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c02 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024c04 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024c06 be 97                    |        |		CMP.L	(A7),D7
00024c08 6e 34                    |n4      |		BGT	0x24c3e
00024c0a 20 12                    |        |		MOVE.L	(A2),D0
00024c0c d0 87                    |        |		ADD.L	D7,D0
00024c0e 53 80                    |S       |		SUBQ.L	#0x1,D0
00024c10 53 80                    |S       |		SUBQ.L	#0x1,D0
00024c12 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00024c18 63 02                    |c       |		BLS	0x24c1c
00024c1a 4e 4f                    |NO      |		TRAP	#15
00024c1c 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
00024c22 22 07                    |"       |		MOVE.L	D7,D1
00024c24 53 81                    |S       |		SUBQ.L	#0x1,D1
00024c26 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00024c2c 63 02                    |c       |		BLS	0x24c30
00024c2e 4e 4f                    |NO      |		TRAP	#15
00024c30 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00024c34 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
00024c3a 52 87                    |R       |		ADDQ.L	#0x1,D7
00024c3c 68 c8                    |h       |		BVC	0x24c06
00024c3e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c40 4c df 07 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2
00024c44 4e 5e                    |N^      |		UNLK	A6
00024c46 4e 75                    |Nu      |		RTS
00024c48 ; --------------------------------------------------------------------------------------
00024c48 ; OMSI PASCAL Function
00024c48 ;    <LVAR  0x00c 4(r)>
00024c48 ;    <LVAR  0x008 4(r)>
00024c48 ;    <LVAR -0x008 @ 4(r)>
00024c48 ;    <LVAR -0x00c @ 4(r)>
00024c48 ;    <LVAR -0x010 4(r)>
00024c48 ;    <LVAR -0x014 @ 4(r)>
00024c48 ;    <LVAR -0x018 4(rw)>
00024c48 ;    <LVAR -0x01c 4(rw)>
00024c48 ;    <LVAR -0x020 4(rw)>
00024c48 ;    <LVAR -0x024 4(rw)>
00024c48 ;    <LVAR -0x028 4(rw)>
00024c48 ;    <LVAR -0x034 4(rw)>
00024c48 ; --------------------------------------------------------------------------------------
00024c48 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00024c4c bf d5                    |        |		CMPA.L	(A5),A7
00024c4e 62 06                    |b       |		BHI	0x24c56
00024c50 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024c54 4e 76                    |Nv      |		TRAPV
00024c56 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00024c5a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024c5e 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00024c62 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00024c66 47 ee ff dc              |G       |		LEA.L	(A6-0x24),A3
00024c6a 49 ee ff e0              |I       |		LEA.L	(A6-0x20),A4
00024c6e 74 14                    |t       |		MOVEQ.L	#0x14,D2
00024c70 2d 79 00 02 68 32 ff d8  |-y  h2  |		MOVE.L	0x26832,(A6-0x28)
00024c78 48 51                    |HQ      |		PEA.L	(A1)
00024c7a 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00024c80 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024c82 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00024c86 48 52                    |HR      |		PEA.L	(A2)
00024c88 4e ba fd fe              |N       |		JSR	0x24a88
00024c8c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c8e 42 ae ff cc              |B       |		CLR.L	(A6-0x34)
00024c92 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00024c94 20 2e ff cc              | .      |		MOVE.L	(A6-0x34),D0
00024c98 b0 82                    |        |		CMP.L	D2,D0
00024c9a 63 02                    |c       |		BLS	0x24c9e
00024c9c 4e 4e                    |NN      |		TRAP	#14
00024c9e d0 40                    | @      |		ADD.W	D0,D0
00024ca0 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00024ca8 00 2a                    | *      |		.CONST	0x2a			; [0x0] -> 0x24cd2
00024caa 00 34                    | 4      |		.CONST	0x34			; [0x1] -> 0x24cdc
00024cac 00 48                    | H      |		.CONST	0x48			; [0x2] -> 0x24cf0
00024cae 00 64                    | d      |		.CONST	0x64			; [0x3] -> 0x24d0c
00024cb0 00 68                    | h      |		.CONST	0x68			; [0x4] -> 0x24d10
00024cb2 00 76                    | v      |		.CONST	0x76			; [0x5] -> 0x24d1e
00024cb4 00 8a                    |        |		.CONST	0x8a			; [0x6] -> 0x24d32
00024cb6 00 90                    |        |		.CONST	0x90			; [0x7] -> 0x24d38
00024cb8 00 92                    |        |		.CONST	0x92			; [0x8] -> 0x24d3a
00024cba 00 a8                    |        |		.CONST	0xa8			; [0x9] -> 0x24d50
00024cbc 00 b6                    |        |		.CONST	0xb6			; [0xa] -> 0x24d5e
00024cbe 00 ce                    |        |		.CONST	0xce			; [0xb] -> 0x24d76
00024cc0 00 e2                    |        |		.CONST	0xe2			; [0xc] -> 0x24d8a
00024cc2 00 f6                    |        |		.CONST	0xf6			; [0xd] -> 0x24d9e
00024cc4 01 0c                    |        |		.CONST	0x10c			; [0xe] -> 0x24db4
00024cc6 01 0e                    |        |		.CONST	0x10e			; [0xf] -> 0x24db6
00024cc8 01 28                    | (      |		.CONST	0x128			; [0x10] -> 0x24dd0
00024cca 01 3e                    | >      |		.CONST	0x13e			; [0x11] -> 0x24de6
00024ccc 01 4c                    | L      |		.CONST	0x14c			; [0x12] -> 0x24df4
00024cce 01 4e                    | N      |		.CONST	0x14e			; [0x13] -> 0x24df6
00024cd0 01 50                    | P      |		.CONST	0x150			; [0x14] -> 0x24df8
00024cd2					switch@0x24ca0[0x0]:
00024cd2 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00024cd4 2a 2e 00 08              |*.      |		MOVE.L	(A6+0x8),D5
00024cd8 60 00 01 48              |`  H    |		BRA	0x24e22
00024cdc					switch@0x24ca0[0x1]:
00024cdc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024cde 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00024ce2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ce4 4e ba f8 80              |N       |		JSR	0x24566
00024ce8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024cea 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00024cec 60 00 01 34              |`  4    |		BRA	0x24e22
00024cf0					switch@0x24ca0[0x2]:
00024cf0 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00024cf4 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024cf6 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024cf8 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024cfc 4e ba f8 e4              |N       |		JSR	0x245e2
00024d00 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024d04 60 00 01 78              |`  x    |		BRA	0x24e7e
00024d08 60 00 01 18              |`       |		.XXX[0x4]
00024d0c					switch@0x24ca0[0x3]:
00024d0c 60 00 01 14              |`       |		BRA	0x24e22
00024d10					switch@0x24ca0[0x4]:
00024d10 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00024d14 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024d16 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024d18 60 de                    |`       |		BRA	0x24cf8
00024d1a 60 00 01 06              |`       |		.XXX[0x4]
00024d1e					switch@0x24ca0[0x5]:
00024d1e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024d20 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00024d24 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d26 4e ba f8 3e              |N  >    |		JSR	0x24566
00024d2a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d2c 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00024d2e 60 00 00 f2              |`       |		BRA	0x24e22
00024d32					switch@0x24ca0[0x6]:
00024d32 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00024d34 60 00 00 ec              |`       |		BRA	0x24e22
00024d38					switch@0x24ca0[0x7]:
00024d38 60 e4                    |`       |		BRA	switch@0x24ca0[0x5]
00024d3a					switch@0x24ca0[0x8]:
00024d3a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024d3c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024d40 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024d42 4e ba dc 2e              |N  .    |		JSR	0x22972
00024d46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d48 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00024d4a 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00024d4c 60 00 00 d4              |`       |		BRA	0x24e22
00024d50					switch@0x24ca0[0x9]:
00024d50 2d 52 ff e4              |-R      |		MOVE.L	(A2),(A6-0x1c)
00024d54 2d 6e ff f0 ff e8        |-n      |		MOVE.L	(A6-0x10),(A6-0x18)
00024d5a 60 00 00 c6              |`       |		BRA	0x24e22
00024d5e					switch@0x24ca0[0xa]:
00024d5e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024d60 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024d62 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024d64 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00024d68 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00024d6c 4e ba fb 26              |N  &    |		JSR	0x24894
00024d70 de c2                    |        |		ADDA.W	D2,A7
00024d72 60 00 00 ae              |`       |		BRA	0x24e22
00024d76					switch@0x24ca0[0xb]:
00024d76 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024d78 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024d7a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024d7c 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00024d80 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00024d84 4e ba fa 7a              |N  z    |		JSR	0x24800
00024d88 60 e6                    |`       |		BRA	0x24d70
00024d8a					switch@0x24ca0[0xc]:
00024d8a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024d8c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024d8e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024d90 4e ba fb b8              |N       |		JSR	0x2494a
00024d94 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024d98 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024d9a 60 00 00 86              |`       |		BRA	0x24e22
00024d9e					switch@0x24ca0[0xd]:
00024d9e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024da0 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024da2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024da4 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00024da8 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00024dac 4e ba fa 52              |N  R    |		JSR	0x24800
00024db0 de c2                    |        |		ADDA.W	D2,A7
00024db2 60 e4                    |`       |		BRA	0x24d98
00024db4					switch@0x24ca0[0xe]:
00024db4 60 e2                    |`       |		BRA	0x24d98
00024db6					switch@0x24ca0[0xf]:
00024db6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024db8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024dba 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024dbe 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024dc0 4e ba db b0              |N       |		JSR	0x22972
00024dc4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024dc6 4e ba fb 82              |N       |		JSR	0x2494a
00024dca de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024dce 60 52                    |`R      |		BRA	0x24e22
00024dd0					switch@0x24ca0[0x10]:
00024dd0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024dd2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024dd4 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024dd8 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024dda 4e ba db 96              |N       |		JSR	0x22972
00024dde 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024de0 4e ba fb ee              |N       |		JSR	0x249d0
00024de4 60 ae                    |`       |		BRA	0x24d94
00024de6					switch@0x24ca0[0x11]:
00024de6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024de8 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00024dec 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024dee 4e ba fc 50              |N  P    |		JSR	0x24a40
00024df2 60 d6                    |`       |		BRA	0x24dca
00024df4					switch@0x24ca0[0x12]:
00024df4 60 2c                    |`,      |		BRA	0x24e22
00024df6					switch@0x24ca0[0x13]:
00024df6 60 a0                    |`       |		BRA	0x24d98
00024df8					switch@0x24ca0[0x14]:
00024df8 41 fa cc 44              |A  D    |		LEA.L	0x21a3e,A0
00024dfc 70 05                    |p       |		MOVEQ.L	#0x05,D0
00024dfe 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00024e00 51 c8 ff fc              |Q       |		DBF	D0,0x24dfe
00024e04 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024e06 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024e0a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024e0e 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00024e12 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024e18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e1a 4e ba cf 0c              |N       |		JSR	0x21d28
00024e1e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00024e22 4a 07                    |J       |		TST.B	D7
00024e24 66 46                    |fF      |		BNE	0x24e6c
00024e26 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00024e2a 48 52                    |HR      |		PEA.L	(A2)
00024e2c 4e ba fc 5a              |N  Z    |		JSR	0x24a88
00024e30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e32 20 2e ff cc              | .      |		MOVE.L	(A6-0x34),D0
00024e36 0c 80 00 00 00 13        |        |		CMPI.L	#0x00000013,D0
00024e3c 63 02                    |c       |		BLS	0x24e40
00024e3e 4e 4f                    |NO      |		TRAP	#15
00024e40 28 00                    |(       |		MOVE.L	D0,D4
00024e42 76 07                    |v       |		MOVEQ.L	#0x07,D3
00024e44 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00024e4a 41 fa ce 0e              |A       |		LEA.L	0x21c5a,A0
00024e4e 20 2e ff f4              | .      |		MOVE.L	(A6-0xc),D0
00024e52 0c 80 00 00 00 06        |        |		CMPI.L	#0x00000006,D0
00024e58 63 02                    |c       |		BLS	0x24e5c
00024e5a 4e 4f                    |NO      |		TRAP	#15
00024e5c 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00024e60 12 30 08 00              | 0      |		MOVE.B	(A0+D0.L),D1
00024e64 48 81                    |H       |		EXTB.W	D1
00024e66 48 c1                    |H       |		EXTW.L	D1
00024e68 2d 41 ff cc              |-A      |		MOVE.L	D1,(A6-0x34)
00024e6c 4a 07                    |J       |		TST.B	D7
00024e6e 67 00 fe 24              |g  $    |		BEQ	0x24c94
00024e72 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00024e76 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024e78 4e ba fd 48              |N  H    |		JSR	0x24bc2
00024e7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e7e 48 51                    |HQ      |		PEA.L	(A1)
00024e80 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024e86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024e88 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00024e8c 4e 5e                    |N^      |		UNLK	A6
00024e8e 4e 75                    |Nu      |		RTS
00024e90 ; --------------------------------------------------------------------------------------
00024e90 ; OMSI PASCAL Function
00024e90 ;    <LVAR  0x014 4(rw)>
00024e90 ;    <LVAR  0x010 4(r)>
00024e90 ;    <LVAR  0x00c 4(r)>
00024e90 ;    <LVAR  0x008 4(r)>
00024e90 ;    <LVAR -0x008 4(rw)>
00024e90 ;    <LVAR -0x00c 4(rw)>
00024e90 ;    <LVAR -0x018 4(w)>
00024e90 ; --------------------------------------------------------------------------------------
00024e90 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
00024e94 bf d5                    |        |		CMPA.L	(A5),A7
00024e96 62 06                    |b       |		BHI	0x24e9e
00024e98 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024e9c 4e 76                    |Nv      |		TRAPV
00024e9e de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00024ea2 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024ea6 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00024eaa 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
00024eae 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00024eb2 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
00024eb6 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00024eb8 42 ae 00 14              |B       |		CLR.L	(A6+0x14)
00024ebc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ebe 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ec0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024ec2 4e ba da 76              |N  v    |		JSR	0x2293a
00024ec6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ec8 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00024eca 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024ece 30 10                    |0       |		MOVE.W	(A0),D0
00024ed0 48 c0                    |H       |		EXTW.L	D0
00024ed2 52 80                    |R       |		ADDQ.L	#0x1,D0
00024ed4 22 80                    |"       |		MOVE.L	D0,(A1)
00024ed6 44 80                    |D       |		NEG.L	D0
00024ed8 d0 94                    |        |		ADD.L	(A4),D0
00024eda 52 80                    |R       |		ADDQ.L	#0x1,D0
00024edc 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024ede 70 01                    |p       |		MOVEQ.L	#0x01,D0
00024ee0 b0 97                    |        |		CMP.L	(A7),D0
00024ee2 6e 00 00 9a              |n       |		BGT	0x24f7e
00024ee6 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
00024eea 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024eec 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00024eee 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024ef0 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00024ef2 ba 97                    |        |		CMP.L	(A7),D5
00024ef4 6e 48                    |nH      |		BGT	0x24f3e
00024ef6 0c 85 00 00 00 01        |        |		CMPI.L	#0x00000001,D5
00024efc 66 04                    |f       |		BNE	0x24f02
00024efe 7e 2f                    |~/      |		MOVEQ.L	#0x2f,D7
00024f00 60 18                    |`       |		BRA	0x24f1a
00024f02 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024f06 20 05                    |        |		MOVE.L	D5,D0
00024f08 53 80                    |S       |		SUBQ.L	#0x1,D0
00024f0a 53 80                    |S       |		SUBQ.L	#0x1,D0
00024f0c 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00024f12 63 02                    |c       |		BLS	0x24f16
00024f14 4e 4f                    |NO      |		TRAP	#15
00024f16 1e 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D7
00024f1a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024f1c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f1e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024f20 20 2f 00 0e              | /      |		MOVE.L	(A7+0xe),D0
00024f24 d0 85                    |        |		ADD.L	D5,D0
00024f26 53 80                    |S       |		SUBQ.L	#0x1,D0
00024f28 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024f2a 4e ba f5 fa              |N       |		JSR	0x24526
00024f2e de c2                    |        |		ADDA.W	D2,A7
00024f30 be 1f                    |        |		CMP.B	(A7)+,D7
00024f32 67 04                    |g       |		BEQ	0x24f38
00024f34 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024f36 60 08                    |`       |		BRA	0x24f40
00024f38 2c 05                    |,       |		MOVE.L	D5,D6
00024f3a 52 85                    |R       |		ADDQ.L	#0x1,D5
00024f3c 68 b4                    |h       |		BVC	0x24ef2
00024f3e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024f40 bc 91                    |        |		CMP.L	(A1),D6
00024f42 66 32                    |f2      |		BNE	0x24f76
00024f44 20 17                    |        |		MOVE.L	(A7),D0
00024f46 22 00                    |"       |		MOVE.L	D0,D1
00024f48 d2 91                    |        |		ADD.L	(A1),D1
00024f4a b2 94                    |        |		CMP.L	(A4),D1
00024f4c 6c 26                    |l&      |		BGE	0x24f74
00024f4e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024f50 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f52 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024f54 2f 01                    |/       |		MOVE.L	D1,-(A7)
00024f56 4e ba f5 ce              |N       |		JSR	0x24526
00024f5a de c2                    |        |		ADDA.W	D2,A7
00024f5c 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024f5e 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00024f62 67 06                    |g       |		BEQ	0x24f6a
00024f64 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
00024f68 66 08                    |f       |		BNE	0x24f72
00024f6a 2d 40 00 14              |-@      |		MOVE.L	D0,(A6+0x14)
00024f6e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f70 60 0e                    |`       |		BRA	0x24f80
00024f72 60 02                    |`       |		BRA	0x24f76
00024f74 60 f4                    |`       |		BRA	0x24f6a
00024f76 20 1f                    |        |		MOVE.L	(A7)+,D0
00024f78 52 80                    |R       |		ADDQ.L	#0x1,D0
00024f7a 68 00 ff 64              |h  d    |		BVC	0x24ee0
00024f7e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024f80 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024f84 4e 5e                    |N^      |		UNLK	A6
00024f86 4e 75                    |Nu      |		RTS
00024f88 ; --------------------------------------------------------------------------------------
00024f88 ; OMSI PASCAL Function
00024f88 ;    <LVAR  0x018 4(r)>
00024f88 ;    <LVAR  0x014 4(r)>
00024f88 ;    <LVAR  0x010 4(r)>
00024f88 ;    <LVAR  0x00c 4(r)>
00024f88 ;    <LVAR  0x008 4(r)>
00024f88 ;    <LVAR -0x008 4(rw)>
00024f88 ;    <LVAR -0x014 4(rw)>
00024f88 ;    <LVAR -0x018 4(rw)>
00024f88 ;    <LVAR -0x01c 4(rw)>
00024f88 ; --------------------------------------------------------------------------------------
00024f88 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
00024f8c bf d5                    |        |		CMPA.L	(A5),A7
00024f8e 62 06                    |b       |		BHI	0x24f96
00024f90 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024f94 4e 76                    |Nv      |		TRAPV
00024f96 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00024f9a 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024f9e 45 ee ff e4              |E       |		LEA.L	(A6-0x1c),A2
00024fa2 47 ee ff e8              |G       |		LEA.L	(A6-0x18),A3
00024fa6 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
00024faa 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00024fac 74 01                    |t       |		MOVEQ.L	#0x01,D2
00024fae 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024fb2 42 10                    |B       |		CLR.B	(A0)
00024fb4 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00024fb8 22 82                    |"       |		MOVE.L	D2,(A1)
00024fba 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024fbc 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00024fc0 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00024fc4 4e ba d9 ac              |N       |		JSR	0x22972
00024fc8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fca 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024fcc 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00024fce 4a 92                    |J       |		TST.L	(A2)
00024fd0 67 00 00 96              |g       |		BEQ	0x25068
00024fd4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024fd6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024fd8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fda 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00024fde 4e ba fe b0              |N       |		JSR	0x24e90
00024fe2 de c1                    |        |		ADDA.W	D1,A7
00024fe4 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00024fe8 67 7e                    |g~      |		BEQ	0x25068
00024fea 10 82                    |        |		MOVE.B	D2,(A0)
00024fec 48 51                    |HQ      |		PEA.L	(A1)
00024fee 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00024ff4 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024ff6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ff8 4e ba d9 40              |N  @    |		JSR	0x2293a
00024ffc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ffe 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00025000 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
00025004 52 80                    |R       |		ADDQ.L	#0x1,D0
00025006 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00025008 2a 00                    |*       |		MOVE.L	D0,D5
0002500a ba 97                    |        |		CMP.L	(A7),D5
0002500c 6e 58                    |nX      |		BGT	0x25066
0002500e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025010 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025012 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025014 2f 05                    |/       |		MOVE.L	D5,-(A7)
00025016 4e ba f5 0e              |N       |		JSR	0x24526
0002501a de c1                    |        |		ADDA.W	D1,A7
0002501c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002501e 0c 00 00 3d              |   =    |		CMPI.B	#0x3d,D0
00025022 66 3e                    |f>      |		BNE	0x25062
00025024 20 05                    |        |		MOVE.L	D5,D0
00025026 52 80                    |R       |		ADDQ.L	#0x1,D0
00025028 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002502a 2e 00                    |.       |		MOVE.L	D0,D7
0002502c be 97                    |        |		CMP.L	(A7),D7
0002502e 6e 2e                    |n.      |		BGT	0x2505e
00025030 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025032 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025034 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025036 2f 07                    |/       |		MOVE.L	D7,-(A7)
00025038 4e ba f4 ec              |N       |		JSR	0x24526
0002503c de c1                    |        |		ADDA.W	D1,A7
0002503e 1c 1f                    |        |		MOVE.B	(A7)+,D6
00025040 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
00025044 66 04                    |f       |		BNE	0x2504a
00025046 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025048 60 1e                    |`       |		BRA	0x25068
0002504a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002504e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025050 1f 06                    |        |		MOVE.B	D6,-(A7)
00025052 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00025058 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002505a 52 87                    |R       |		ADDQ.L	#0x1,D7
0002505c 68 ce                    |h       |		BVC	0x2502c
0002505e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025060 60 06                    |`       |		BRA	0x25068
00025062 52 85                    |R       |		ADDQ.L	#0x1,D5
00025064 68 a4                    |h       |		BVC	0x2500a
00025066 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025068 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
0002506c 4e 5e                    |N^      |		UNLK	A6
0002506e 4e 75                    |Nu      |		RTS
00025070 ; --------------------------------------------------------------------------------------
00025070 ; OMSI PASCAL Function
00025070 ;    <LVAR  0x00c @ 4(r)>
00025070 ;    <LVAR  0x008 4(r)>
00025070 ;    <LVAR -0x010 @ 1(r)>
00025070 ; --------------------------------------------------------------------------------------
00025070 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00025074 bf d5                    |        |		CMPA.L	(A5),A7
00025076 62 06                    |b       |		BHI	0x2507e
00025078 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002507c 4e 76                    |Nv      |		TRAPV
0002507e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00025082 48 e7 87 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D0,-(A7)
00025086 43 f9 00 02 68 32        |C   h2  |		LEA.L	0x26832,A1
0002508c 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00025090 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00025094 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025096 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025098 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
0002509c 4e b9 00 02 15 78        |N    x  |		JSR	0x21578
000250a2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000250a6 4a 2e ff f0              |J.      |		TST.B	(A6-0x10)
000250aa 66 50                    |fP      |		BNE	0x250fc
000250ac 2e 11                    |.       |		MOVE.L	(A1),D7
000250ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000250b0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000250b2 4e ba d0 80              |N       |		JSR	0x22134
000250b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000250b8 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000250ba 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000250bc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000250be 4e ba f3 2a              |N  *    |		JSR	0x243ea
000250c2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250c4 2a 11                    |*       |		MOVE.L	(A1),D5
000250c6 20 07                    |        |		MOVE.L	D7,D0
000250c8 53 80                    |S       |		SUBQ.L	#0x1,D0
000250ca 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
000250d0 63 02                    |c       |		BLS	0x250d4
000250d2 4e 4f                    |NO      |		TRAP	#15
000250d4 41 f9 00 02 58 2a        |A   X*  |		LEA.L	0x2582a,A0
000250da 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
000250de 0c 00 00 25              |   %    |		CMPI.B	#0x25,D0
000250e2 66 0c                    |f       |		BNE	0x250f0
000250e4 22 87                    |"       |		MOVE.L	D7,(A1)
000250e6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000250e8 2f 06                    |/       |		MOVE.L	D6,-(A7)
000250ea 4e ba fb 5c              |N  \    |		JSR	0x24c48
000250ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250f0 52 87                    |R       |		ADDQ.L	#0x1,D7
000250f2 be b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D7
000250f8 6f cc                    |o       |		BLE	0x250c6
000250fa 22 85                    |"       |		MOVE.L	D5,(A1)
000250fc 48 53                    |HS      |		PEA.L	(A3)
000250fe 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00025104 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025106 4c df 0f e1              |L       |		MOVEM.L	(A7)+,D0+D5+D6+D7+A0+A1+A2+A3
0002510a 4e 5e                    |N^      |		UNLK	A6
0002510c 4e 75                    |Nu      |		RTS
0002510e ; --------------------------------------------------------------------------------------
0002510e ; OMSI PASCAL Function
0002510e ;    <LVAR -0x006 @ 4(r)>
0002510e ;    <LVAR -0x00a @ 4(rw)>
0002510e ;    <LVAR -0x00b 1(w)>
0002510e ;    <LVAR -0x00c @ 1(r)>
0002510e ; --------------------------------------------------------------------------------------
0002510e 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00025112 bf d5                    |        |		CMPA.L	(A5),A7
00025114 62 06                    |b       |		BHI	0x2511c
00025116 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002511a 4e 76                    |Nv      |		TRAPV
0002511c de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00025120 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00025124 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00025128 47 f9 00 02 68 32        |G   h2  |		LEA.L	0x26832,A3
0002512e 49 ee ff f6              |I       |		LEA.L	(A6-0xa),A4
00025132 2e 13                    |.       |		MOVE.L	(A3),D7
00025134 48 52                    |HR      |		PEA.L	(A2)
00025136 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
0002513a 4e ba cf 4c              |N  L    |		JSR	0x22088
0002513e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025140 2c 13                    |,       |		MOVE.L	(A3),D6
00025142 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025144 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025146 4e ba cf ec              |N       |		JSR	0x22134
0002514a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002514c 20 1f                    |        |		MOVE.L	(A7)+,D0
0002514e 0c 80 ff ff ff ff        |        |		CMPI.L	#0xffffffff,D0
00025154 67 00 02 ac              |g       |		BEQ	0x25402
00025158 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002515a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002515c 48 78 00 00              |Hx      |		PEA.L	0x0
00025160 4e ba d8 ee              |N       |		JSR	0x22a50
00025164 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025166 28 97                    |(       |		MOVE.L	(A7),(A4)
00025168 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002516a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002516c 4e ba f1 c4              |N       |		JSR	0x24332
00025170 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025172 10 1f                    |        |		MOVE.B	(A7)+,D0
00025174 48 80                    |H       |		EXTB.W	D0
00025176 41 bc 00 2b              |A  +    |		CHK.W	#0x2b,D0
0002517a 1d 40 ff f5              | @      |		MOVE.B	D0,(A6-0xb)
0002517e 4a 00                    |J       |		TST.B	D0
00025180 66 0e                    |f       |		BNE	0x25190
00025182 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00025184 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025186 4e ba fe e8              |N       |		JSR	0x25070
0002518a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002518c 60 00 02 6c              |`  l    |		BRA	0x253fa
00025190 48 54                    |HT      |		PEA.L	(A4)
00025192 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00025198 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002519a 12 00                    |        |		MOVE.B	D0,D1
0002519c 48 81                    |H       |		EXTB.W	D1
0002519e 43 bc 00 2b              |C  +    |		CHK.W	#0x2b,D1
000251a2 41 fa ca 86              |A       |		LEA.L	0x21c2a,A0
000251a6 30 01                    |0       |		MOVE.W	D1,D0
000251a8 48 c0                    |H       |		EXTW.L	D0
000251aa 24 00                    |$       |		MOVE.L	D0,D2
000251ac e2 9a                    |        |		ROR.L	#0x1,D2
000251ae d0 c2                    |        |		ADDA.W	D2,A0
000251b0 48 42                    |HB      |		SWAP.W	D2
000251b2 e7 5a                    | Z      |		ROL.W	#0x3,D2
000251b4 42 83                    |B       |		CLR.L	D3
000251b6 16 10                    |        |		MOVE.B	(A0),D3
000251b8 e5 2b                    | +      |		LSL.B	D2,D3
000251ba e8 0b                    |        |		LSR.B	#0x4,D3
000251bc 2a 03                    |*       |		MOVE.L	D3,D5
000251be 0c 85 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D5
000251c4 67 2c                    |g,      |		BEQ	0x251f2
000251c6 28 00                    |(       |		MOVE.L	D0,D4
000251c8 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000251ca 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000251d0 41 fa c8 8a              |A       |		LEA.L	COMMAND_TABLE_21a5c,A0
000251d4 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000251d8 22 4f                    |"O      |		MOVEA.L	A7,A1
000251da 41 f0 40 00              |A @     |		LEA.L	(A0+D4.W),A0
000251de 70 09                    |p       |		MOVEQ.L	#0x09,D0
000251e0 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000251e2 51 c8 ff fc              |Q       |		DBF	D0,0x251e0
000251e6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000251e8 2f 05                    |/       |		MOVE.L	D5,-(A7)
000251ea 4e ba cf 7e              |N  ~    |		JSR	0x2216a
000251ee de fc 00 12              |        |		ADDA.W	#0x12,A7
000251f2 53 41                    |SA      |		SUBQ.W	#0x1,D1
000251f4 0c 41 00 2a              | A *    |		CMPI.W	#0x002a,D1
000251f8 63 02                    |c       |		BLS	0x251fc
000251fa 4e 4e                    |NN      |		TRAP	#14
000251fc d2 41                    | A      |		ADD.W	D1,D1
000251fe 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00025206 00 56                    | V      |		.CONST	0x56			; [0x0] -> 0x2525c
00025208 00 62                    | b      |		.CONST	0x62			; [0x1] -> 0x25268
0002520a 00 74                    | t      |		.CONST	0x74			; [0x2] -> 0x2527a
0002520c 00 82                    |        |		.CONST	0x82			; [0x3] -> 0x25288
0002520e 01 e6                    |        |		.CONST	0x1e6			; [0x4] -> 0x253ec
00025210 00 8a                    |        |		.CONST	0x8a			; [0x5] -> 0x25290
00025212 00 8e                    |        |		.CONST	0x8e			; [0x6] -> 0x25294
00025214 00 96                    |        |		.CONST	0x96			; [0x7] -> 0x2529c
00025216 00 9e                    |        |		.CONST	0x9e			; [0x8] -> 0x252a4
00025218 00 a6                    |        |		.CONST	0xa6			; [0x9] -> 0x252ac
0002521a 00 ae                    |        |		.CONST	0xae			; [0xa] -> 0x252b4
0002521c 00 b6                    |        |		.CONST	0xb6			; [0xb] -> 0x252bc
0002521e 00 be                    |        |		.CONST	0xbe			; [0xc] -> 0x252c4
00025220 00 c6                    |        |		.CONST	0xc6			; [0xd] -> 0x252cc
00025222 00 ce                    |        |		.CONST	0xce			; [0xe] -> 0x252d4
00025224 00 d6                    |        |		.CONST	0xd6			; [0xf] -> 0x252dc
00025226 00 e0                    |        |		.CONST	0xe0			; [0x10] -> 0x252e6
00025228 00 ea                    |        |		.CONST	0xea			; [0x11] -> 0x252f0
0002522a 00 f4                    |        |		.CONST	0xf4			; [0x12] -> 0x252fa
0002522c 00 fe                    |        |		.CONST	0xfe			; [0x13] -> 0x25304
0002522e 01 08                    |        |		.CONST	0x108			; [0x14] -> 0x2530e
00025230 01 12                    |        |		.CONST	0x112			; [0x15] -> 0x25318
00025232 01 1c                    |        |		.CONST	0x11c			; [0x16] -> 0x25322
00025234 01 26                    | &      |		.CONST	0x126			; [0x17] -> 0x2532c
00025236 01 30                    | 0      |		.CONST	0x130			; [0x18] -> 0x25336
00025238 01 3a                    | :      |		.CONST	0x13a			; [0x19] -> 0x25340
0002523a 01 44                    | D      |		.CONST	0x144			; [0x1a] -> 0x2534a
0002523c 01 4e                    | N      |		.CONST	0x14e			; [0x1b] -> 0x25354
0002523e 01 58                    | X      |		.CONST	0x158			; [0x1c] -> 0x2535e
00025240 01 62                    | b      |		.CONST	0x162			; [0x1d] -> 0x25368
00025242 01 6c                    | l      |		.CONST	0x16c			; [0x1e] -> 0x25372
00025244 01 76                    | v      |		.CONST	0x176			; [0x1f] -> 0x2537c
00025246 01 80                    |        |		.CONST	0x180			; [0x20] -> 0x25386
00025248 01 8a                    |        |		.CONST	0x18a			; [0x21] -> 0x25390
0002524a 01 94                    |        |		.CONST	0x194			; [0x22] -> 0x2539a
0002524c 01 9e                    |        |		.CONST	0x19e			; [0x23] -> 0x253a4
0002524e 01 a8                    |        |		.CONST	0x1a8			; [0x24] -> 0x253ae
00025250 01 b2                    |        |		.CONST	0x1b2			; [0x25] -> 0x253b8
00025252 01 b8                    |        |		.CONST	0x1b8			; [0x26] -> 0x253be
00025254 01 c2                    |        |		.CONST	0x1c2			; [0x27] -> 0x253c8
00025256 01 cc                    |        |		.CONST	0x1cc			; [0x28] -> 0x253d2
00025258 01 d6                    |        |		.CONST	0x1d6			; [0x29] -> 0x253dc
0002525a 01 dc                    |        |		.CONST	0x1dc			; [0x2a] -> 0x253e2
0002525c					switch@0x251fe[0x0]:
0002525c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002525e 4e ba d9 78              |N  x    |		JSR	0x22bd8
00025262 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025264 60 00 01 94              |`       |		BRA	0x253fa
00025268					switch@0x251fe[0x1]:
00025268 42 27                    |B'      |		CLR.B	-(A7)
0002526a 48 78 00 01              |Hx      |		PEA.L	0x1
0002526e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00025274 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025276 60 00 01 82              |`       |		BRA	0x253fa
0002527a					switch@0x251fe[0x2]:
0002527a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002527c 4e b9 00 01 02 ac        |N       |		JSR	FSCALL_102ac
00025282 4e ba d9 2a              |N  *    |		JSR	0x22bae
00025286 60 da                    |`       |		BRA	0x25262
00025288					switch@0x251fe[0x3]:
00025288 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002528a 4e ba db 26              |N  &    |		JSR	0x22db2
0002528e 60 d2                    |`       |		BRA	0x25262
00025290					switch@0x251fe[0x5]:
00025290 60 00 01 68              |`  h    |		BRA	0x253fa
00025294					switch@0x251fe[0x6]:
00025294 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025296 4e ba de 40              |N  @    |		JSR	0x230d8
0002529a 60 c6                    |`       |		BRA	0x25262
0002529c					switch@0x251fe[0x7]:
0002529c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002529e 4e ba df a4              |N       |		JSR	0x23244
000252a2 60 be                    |`       |		BRA	0x25262
000252a4					switch@0x251fe[0x8]:
000252a4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252a6 4e ba e0 8a              |N       |		JSR	0x23332
000252aa 60 b6                    |`       |		BRA	0x25262
000252ac					switch@0x251fe[0x9]:
000252ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252ae 4e ba e4 76              |N  v    |		JSR	0x23726
000252b2 60 ae                    |`       |		BRA	0x25262
000252b4					switch@0x251fe[0xa]:
000252b4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252b6 4e ba e4 e6              |N       |		JSR	0x2379e
000252ba 60 a6                    |`       |		BRA	0x25262
000252bc					switch@0x251fe[0xb]:
000252bc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252be 4e ba e5 56              |N  V    |		JSR	0x23816
000252c2 60 9e                    |`       |		BRA	0x25262
000252c4					switch@0x251fe[0xc]:
000252c4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252c6 4e ba e5 7a              |N  z    |		JSR	0x23842
000252ca 60 96                    |`       |		BRA	0x25262
000252cc					switch@0x251fe[0xd]:
000252cc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252ce 4e ba e6 72              |N  r    |		JSR	0x23942
000252d2 60 8e                    |`       |		BRA	0x25262
000252d4					switch@0x251fe[0xe]:
000252d4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252d6 4e ba e7 50              |N  P    |		JSR	0x23a28
000252da 60 86                    |`       |		BRA	0x25262
000252dc					switch@0x251fe[0xf]:
000252dc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252de 4e ba e7 74              |N  t    |		JSR	0x23a54
000252e2 60 00 ff 7e              |`  ~    |		BRA	0x25262
000252e6					switch@0x251fe[0x10]:
000252e6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252e8 4e ba e7 b6              |N       |		JSR	0x23aa0
000252ec 60 00 ff 74              |`  t    |		BRA	0x25262
000252f0					switch@0x251fe[0x11]:
000252f0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252f2 4e ba e7 f8              |N       |		JSR	0x23aec
000252f6 60 00 ff 6a              |`  j    |		BRA	0x25262
000252fa					switch@0x251fe[0x12]:
000252fa 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000252fc 4e ba e8 3a              |N  :    |		JSR	0x23b38
00025300 60 00 ff 60              |`  `    |		BRA	0x25262
00025304					switch@0x251fe[0x13]:
00025304 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025306 4e ba e8 7c              |N  |    |		JSR	0x23b84
0002530a 60 00 ff 56              |`  V    |		BRA	0x25262
0002530e					switch@0x251fe[0x14]:
0002530e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025310 4e ba e8 be              |N       |		JSR	0x23bd0
00025314 60 00 ff 4c              |`  L    |		BRA	0x25262
00025318					switch@0x251fe[0x15]:
00025318 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002531a 4e ba e9 00              |N       |		JSR	0x23c1c
0002531e 60 00 ff 42              |`  B    |		BRA	0x25262
00025322					switch@0x251fe[0x16]:
00025322 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025324 4e ba e9 40              |N  @    |		JSR	0x23c66
00025328 60 00 ff 38              |`  8    |		BRA	0x25262
0002532c					switch@0x251fe[0x17]:
0002532c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002532e 4e ba e9 80              |N       |		JSR	0x23cb0
00025332 60 00 ff 2e              |`  .    |		BRA	0x25262
00025336					switch@0x251fe[0x18]:
00025336 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025338 4e ba e9 c0              |N       |		JSR	0x23cfa
0002533c 60 00 ff 24              |`  $    |		BRA	0x25262
00025340					switch@0x251fe[0x19]:
00025340 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025342 4e ba ea 00              |N       |		JSR	0x23d44
00025346 60 00 ff 1a              |`       |		BRA	0x25262
0002534a					switch@0x251fe[0x1a]:
0002534a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002534c 4e ba ea 40              |N  @    |		JSR	0x23d8e
00025350 60 00 ff 10              |`       |		BRA	0x25262
00025354					switch@0x251fe[0x1b]:
00025354 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025356 4e ba ea 80              |N       |		JSR	0x23dd8
0002535a 60 00 ff 06              |`       |		BRA	0x25262
0002535e					switch@0x251fe[0x1c]:
0002535e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025360 4e ba ea c0              |N       |		JSR	0x23e22
00025364 60 00 fe fc              |`       |		BRA	0x25262
00025368					switch@0x251fe[0x1d]:
00025368 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002536a 4e ba eb 00              |N       |		JSR	0x23e6c
0002536e 60 00 fe f2              |`       |		BRA	0x25262
00025372					switch@0x251fe[0x1e]:
00025372 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025374 4e ba eb 3a              |N  :    |		JSR	0x23eb0
00025378 60 00 fe e8              |`       |		BRA	0x25262
0002537c					switch@0x251fe[0x1f]:
0002537c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002537e 4e ba eb 76              |N  v    |		JSR	0x23ef6
00025382 60 00 fe de              |`       |		BRA	0x25262
00025386					switch@0x251fe[0x20]:
00025386 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025388 4e ba eb a2              |N       |		JSR	0x23f2c
0002538c 60 00 fe d4              |`       |		BRA	0x25262
00025390					switch@0x251fe[0x21]:
00025390 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025392 4e ba ec 28              |N  (    |		JSR	0x23fbc
00025396 60 00 fe ca              |`       |		BRA	0x25262
0002539a					switch@0x251fe[0x22]:
0002539a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002539c 4e ba ec 90              |N       |		JSR	0x2402e
000253a0 60 00 fe c0              |`       |		BRA	0x25262
000253a4					switch@0x251fe[0x23]:
000253a4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000253a6 4e ba df ec              |N       |		JSR	0x23394
000253aa 60 00 fe b6              |`       |		BRA	0x25262
000253ae					switch@0x251fe[0x24]:
000253ae 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000253b0 4e ba e0 4c              |N  L    |		JSR	0x233fe
000253b4 60 00 fe ac              |`       |		BRA	0x25262
000253b8					switch@0x251fe[0x25]:
000253b8 4e ba e0 16              |N       |		JSR	0x233d0
000253bc 60 3c                    |`<      |		BRA	0x253fa
000253be					switch@0x251fe[0x26]:
000253be 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000253c0 4e ba ec de              |N       |		JSR	0x240a0
000253c4 60 00 fe 9c              |`       |		BRA	0x25262
000253c8					switch@0x251fe[0x27]:
000253c8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000253ca 4e ba ed 56              |N  V    |		JSR	0x24122
000253ce 60 00 fe 92              |`       |		BRA	0x25262
000253d2					switch@0x251fe[0x28]:
000253d2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000253d4 4e ba ed cc              |N       |		JSR	0x241a2
000253d8 60 00 fe 88              |`       |		BRA	0x25262
000253dc					switch@0x251fe[0x29]:
000253dc 4e ba ee 88              |N       |		JSR	0x24266
000253e0 60 18                    |`       |		BRA	0x253fa
000253e2					switch@0x251fe[0x2a]:
000253e2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000253e4 4e ba ee a0              |N       |		JSR	0x24286
000253e8 60 00 fe 78              |`  x    |		BRA	0x25262
000253ec					switch@0x251fe[0x4]:
000253ec 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
000253f0 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
000253f4 4e f9 00 02 56 04        |N   V   |		JMP	0x25604
000253fa 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000253fc 4e ba c8 e8              |N       |		JSR	0x21ce6
00025400 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025402 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025404 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025406 9f 97                    |        |		SUB.L	D7,(A7)
00025408 4e ba ce 72              |N  r    |		JSR	0x2227c
0002540c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002540e 26 87                    |&       |		MOVE.L	D7,(A3)
00025410 4a 2e ff f4              |J.      |		TST.B	(A6-0xc)
00025414 67 00 fd 1c              |g       |		BEQ	0x25132
00025418 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002541c 4e 5e                    |N^      |		UNLK	A6
0002541e 4e 75                    |Nu      |		RTS
00025420 ; --------------------------------------------------------------------------------------
00025420 ; OMSI PASCAL Function
00025420 ; --------------------------------------------------------------------------------------
00025420					START:
00025420 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00025424 4e f9 00 01 02 80        |N       |		JMP	?start_program
0002542a					MAIN:
0002542a 23 fc 00 00 00 01 00 02  |#       |		MOVE.L	#0x1,0x2685c
00025432 68 5c                    |h\      |
00025434 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025436 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
0002543c 23 df 00 02 68 60        |#   h`  |		MOVE.L	(A7)+,0x26860
00025442 48 79 00 02 68 3a        |Hy  h:  |		PEA.L	0x2683a
00025448 4e b9 00 02 16 28        |N    (  |		JSR	0x21628
0002544e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025450 20 79 00 02 68 60        | y  h`  |		MOVEA.L	0x26860,A0
00025456 4a 50                    |JP      |		TST.W	(A0)
00025458 6f 68                    |oh      |		BLE	0x254c2
0002545a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002545c 20 4f                    | O      |		MOVEA.L	A7,A0
0002545e 43 fa c5 de              |C       |		LEA.L	0x21a3e,A1
00025462 70 06                    |p       |		MOVEQ.L	#0x06,D0
00025464 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025466 51 c8 ff fc              |Q       |		DBF	D0,0x25464
0002546a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002546c 20 4f                    | O      |		MOVEA.L	A7,A0
0002546e 43 fa c5 d6              |C       |		LEA.L	0x21a46,A1
00025472 70 06                    |p       |		MOVEQ.L	#0x06,D0
00025474 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025476 51 c8 ff fc              |Q       |		DBF	D0,0x25474
0002547a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002547c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00025480 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025484 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00025488 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002548e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025490 2e b9 00 02 68 60        |.   h`  |		MOVE.L	0x26860,(A7)
00025496 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025498 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002549c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000254a0 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000254a4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000254aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000254ac 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
000254b2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000254b6 23 df 00 02 68 60        |#   h`  |		MOVE.L	(A7)+,0x26860
000254bc de fc 00 10              |        |		ADDA.W	#0x10,A7
000254c0 60 3a                    |`:      |		BRA	0x254fc
000254c2 48 79 00 02 68 60        |Hy  h`  |		PEA.L	0x26860
000254c8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000254ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000254d0 20 4f                    | O      |		MOVEA.L	A7,A0
000254d2 43 fa c5 7a              |C  z    |		LEA.L	0x21a4e,A1
000254d6 70 06                    |p       |		MOVEQ.L	#0x06,D0
000254d8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000254da 51 c8 ff fc              |Q       |		DBF	D0,0x254d8
000254de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000254e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000254e4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000254e8 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000254ec 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000254f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000254f4 23 df 00 02 68 60        |#   h`  |		MOVE.L	(A7)+,0x26860
000254fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000254fc 13 fc 00 01 00 02 68 6a  |      hj|		MOVE.B	#0x01,0x2686a
00025504 4a 39 00 02 68 6a        |J9  hj  |		TST.B	0x2686a
0002550a 67 0a                    |g       |		BEQ	0x25516
0002550c 42 39 00 02 68 6a        |B9  hj  |		CLR.B	0x2686a
00025512 60 00 00 b0              |`       |		BRA	0x255c4
00025516 41 f9 00 02 68 44        |A   hD  |		LEA.L	0x26844,A0
0002551c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002551e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00025520 51 c8 ff fc              |Q       |		DBF	D0,0x2551e
00025524 3f 3a c5 30              |?: 0    |		MOVE.W	0x21a56,-(A7)
00025528 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
0002552c 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00025530 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025534 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00025538 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002553e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025540 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00025544 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025548 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002554c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025552 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025554 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002555a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002555c 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00025562 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025564 23 df 00 02 68 66        |#   hf  |		MOVE.L	(A7)+,0x26866
0002556a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002556c 2e b9 00 02 68 66        |.   hf  |		MOVE.L	0x26866,(A7)
00025572 4e ba ca 0c              |N       |		JSR	0x21f80
00025576 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025578 3e ba c4 de              |>       |		MOVE.W	0x21a58,(A7)
0002557c 3f 3a c4 dc              |?:      |		MOVE.W	0x21a5a,-(A7)
00025580 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025582 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00025586 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002558a 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002558e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025594 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025596 2e b9 00 02 68 66        |.   hf  |		MOVE.L	0x26866,(A7)
0002559c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002559e 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000255a2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000255a6 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000255aa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000255b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000255b2 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
000255b8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000255bc 23 df 00 02 68 60        |#   h`  |		MOVE.L	(A7)+,0x26860
000255c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000255c4 42 39 00 02 68 64        |B9  hd  |		CLR.B	0x26864
000255ca 23 fc 00 00 00 01 00 02  |#       |		MOVE.L	#0x1,0x26832
000255d2 68 32                    |h2      |
000255d4 42 b9 00 02 68 36        |B   h6  |		CLR.L	0x26836
000255da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000255dc 2f 39 00 02 68 60        |/9  h`  |		MOVE.L	0x26860,-(A7)
000255e2 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000255e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000255ea 4e ba d5 06              |N       |		JSR	0x22af2
000255ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000255f0 20 39 00 02 68 32        | 9  h2  |		MOVE.L	0x26832,D0
000255f6 b0 b9 00 02 68 36        |    h6  |		CMP.L	0x26836,D0
000255fc 6e 06                    |n       |		BGT	0x25604
000255fe 4e ba fb 0e              |N       |		JSR	0x2510e
00025602 60 ec                    |`       |		BRA	0x255f0
00025604 48 79 00 02 68 60        |Hy  h`  |		PEA.L	0x26860
0002560a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00025610 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025612 60 00 fe f0              |`       |		BRA	0x25504
00025616 4e b9                    |N       |		.XXX[0x2]
00025618 00 01 02 84              |        |		.XXX[0x4]
0002561c 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002562a ; --------------------------------------------------------------------------------------
0002562a ; OMSI PASCAL Function
0002562a ;    <LVAR  0x008 1(r)>
0002562a ; --------------------------------------------------------------------------------------
0002562a					PROG_FAIL:
0002562a 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002562e bf d5                    |        |		CMPA.L	(A5),A7
00025630 62 06                    |b       |		BHI	0x25638
00025632 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025636 4e 76                    |Nv      |		TRAPV
00025638 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002563c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00025640 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00025644 70 06                    |p       |		MOVEQ.L	#0x06,D0
00025646 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00025648 51 c8 ff fc              |Q       |		DBF	D0,0x25646
0002564c 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00025650 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025652 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00025656 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002565a 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
0002565e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025664 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025666 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002566a 48 80                    |H       |		EXTB.W	D0
0002566c 48 c0                    |H       |		EXTW.L	D0
0002566e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00025670 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00025676 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025678 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002567e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025680 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00025686 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002568a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002568e 4e 5e                    |N^      |		UNLK	A6
00025690 4e 75                    |Nu      |		RTS
00025692 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000256a0 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
000256ae 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
000256bc 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
000256ce 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000256e6 ; --------------------------------------------------------------------------------------
000256e6 ; OMSI PASCAL Function
000256e6 ;    <LVAR  0x00e 1(r)>
000256e6 ;    <LVAR  0x00a 4(r)>
000256e6 ;    <LVAR  0x008 1(r)>
000256e6 ; --------------------------------------------------------------------------------------
000256e6					EXP_FAIL:
000256e6 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000256ea bf d5                    |        |		CMPA.L	(A5),A7
000256ec 62 06                    |b       |		BHI	0x256f4
000256ee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000256f2 4e 76                    |Nv      |		TRAPV
000256f4 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000256f8 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000256fc 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00025702 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00025708 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002570a 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
0002570c 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002570e 78 12                    |x       |		MOVEQ.L	#0x12,D4
00025710 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00025712 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00025718 41 fa ff b4              |A       |		LEA.L	0x256ce,A0
0002571c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002571e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00025720 51 c8 ff fc              |Q       |		DBF	D0,0x2571e
00025724 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025726 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002572a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002572c 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002572e 4e 93                    |N       |		JSR	(A3)
00025730 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025732 4e 94                    |N       |		JSR	(A4)
00025734 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025736 20 4f                    | O      |		MOVEA.L	A7,A0
00025738 43 fa ff 58              |C  X    |		LEA.L	0x25692,A1
0002573c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002573e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025740 51 c8 ff fc              |Q       |		DBF	D0,0x2573e
00025744 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025746 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002574a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002574c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002574e 4e 93                    |N       |		JSR	(A3)
00025750 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025752 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00025756 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
0002575c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002575e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00025764 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025766 4e 94                    |N       |		JSR	(A4)
00025768 de c4                    |        |		ADDA.W	D4,A7
0002576a 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
0002576e b0 c1                    |        |		CMPA.W	D1,A0
00025770 67 48                    |gH      |		BEQ	0x257ba
00025772 9e c5                    |        |		SUBA.W	D5,A7
00025774 22 4f                    |"O      |		MOVEA.L	A7,A1
00025776 45 fa ff 28              |E  (    |		LEA.L	0x256a0,A2
0002577a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002577c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002577e 51 c8 ff fc              |Q       |		DBF	D0,0x2577c
00025782 9e c3                    |        |		SUBA.W	D3,A7
00025784 22 4f                    |"O      |		MOVEA.L	A7,A1
00025786 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
0002578a 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0002578c 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002578e 51 c8 ff fc              |Q       |		DBF	D0,0x2578c
00025792 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025794 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00025798 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002579a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002579c 4e 93                    |N       |		JSR	(A3)
0002579e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000257a0 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000257a4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000257a6 3f 03                    |?       |		MOVE.W	D3,-(A7)
000257a8 4e 93                    |N       |		JSR	(A3)
000257aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000257ac 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000257b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000257b4 4e 94                    |N       |		JSR	(A4)
000257b6 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000257ba 9e c5                    |        |		SUBA.W	D5,A7
000257bc 20 4f                    | O      |		MOVEA.L	A7,A0
000257be 43 fa fe ee              |C       |		LEA.L	0x256ae,A1
000257c2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000257c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000257c6 51 c8 ff fc              |Q       |		DBF	D0,0x257c4
000257ca 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000257cc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000257d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000257d2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000257d4 4e 93                    |N       |		JSR	(A3)
000257d6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000257d8 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000257dc 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000257e2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000257e4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000257ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000257ec 4e 94                    |N       |		JSR	(A4)
000257ee 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000257f0 20 4f                    | O      |		MOVEA.L	A7,A0
000257f2 43 fa fe da              |C       |		LEA.L	0x256ce,A1
000257f6 70 16                    |p       |		MOVEQ.L	#0x16,D0
000257f8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000257fa 51 c8 ff fc              |Q       |		DBF	D0,0x257f8
000257fe 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00025802 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025804 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00025808 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002580a 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002580e 4e 93                    |N       |		JSR	(A3)
00025810 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025812 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00025818 de c3                    |        |		ADDA.W	D3,A7
0002581a 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002581e 4e 5e                    |N^      |		UNLK	A6
00025820 4e 75                    |Nu      |		RTS